将文档保存为 Web 页或打开 Web 页时,返回 DefaultWebOptions 对象,该对象具有能由 Microsoft Word 全局应用的属性。
expression.DefaultWebOptions
expression 必需。该表达式返回一个 Application 对象。
本示例检验文档编码的默认设置是否为“Western”,然后设置相应字符串 strDocEncoding
。
Dim strDocEncoding As String
If Application.DefaultWebOptions.Encoding _
= msoEncodingWestern Then
strDocEncoding = "Western"
Else
strDocEncoding = "Other"
End If