Document.SaveSubsetFonts (Word)

True se o Microsoft Word salva um subconjunto de fontes TrueType incorporadas com o documento. Boolean de leitura/gravação.

Se forem usados menos de 32 caracteres de uma fonte TrueType em um documento, o Word inserirá o subconjunto (somente os caracteres usados) no documento. Se mais de 32 caracteres forem usados, o Word inserirá a fonte inteira.

With Documents("MyDoc") 
 .EmbedTrueTypeFonts = True 
 .SaveSubsetFonts = True 
 .Save 
End With