Document.DoNotEmbedSystemFonts (Word)

True para o Microsoft Word não incorporar fontes comuns do sistema. Boolean de leitura/gravação.

A definição da propriedade do documento como False é útil se o usuário está em um sistema do Leste Asiático e deseja criar um documento que podem ser lido por outras pessoas que não têm fontes do idioma em que seu sistema. Por exemplo, um usuário em um sistema japonês poderia escolher incorporar as fontes em um documento, de forma que o documento japonês seria legível em todos os sistemas.

Sub EmbedFonts() 
 With ActiveDocument 
 If .EmbedTrueTypeFonts = False Then 
 .EmbedTrueTypeFonts = True 
 .DoNotEmbedSystemFonts = False 
 Else 
 .DoNotEmbedSystemFonts = False 
 End If 
 End With 
End Sub