Document.DoNotEmbedSystemFonts (Word)

True for Microsoft Word to not embed common system fonts.

Setting the Document property to False is useful if the user is on an East Asian system and wants to create a document that is readable by others who do not have fonts for that language on their system. For example, a user on a Japanese system could choose to embed the fonts in a document so that the Japanese document would be readable on all systems.

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