Encoding 属性

返回或设置查看保存的文档时“Web 浏览器”使用的文档编码（代码页或字符集）。MsoEncoding，可读写。

expression   必需。该表达式返回“应用于”列表中的一个对象。

示例

本示例实现的功能是：检查默认的文档编码是否为西文，然后相应地设置字符串 strDocEncoding。

Dim strDocEncoding As String

If Application.DefaultWebOptions.Encoding _
        = msoEncodingWestern Then
    strDocEncoding = "Western"
Else
    strDocEncoding = "Other"
End If