如果该属性值为 True,则 Microsoft Word 不嵌入常规系统字体。Boolean 类型,可读写。
expression.DoNotEmbedSystemFonts
expression 必需。该表达式返回一个 Document 对象。
如果用户使用中文系统创建文档,并希望该文档对于那些系统中没有该语言字体的用户也可读,可将 DoNotEmbedSystemFonts 属性设为 False。例如,日语系统的用户可以选择在文档中嵌入字体,使日文文档在所有系统中可读。
本示例在当前文档中嵌入所有字体。
Sub EmbedFonts()
With ThisDocument
If .EmbedTrueTypeFonts = False Then
.EmbedTrueTypeFonts = True
.DoNotEmbedSystemFonts = False
Else
.DoNotEmbedSystemFonts = False
End If
End With
End Sub