Document.DoNotEmbedSystemFonts (Word)

True pour que Microsoft Word de ne pas incorporer les polices système communes.

Il est utile de définition de la propriété de Document à la valeur False si l'utilisateur se trouve sur un système asiatique et souhaite créer un document qui peut être lu par d'autres personnes qui n'ont pas de polices dans cette langue sur leur système.

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