defaultCharset 属性

返回或设置 String 类型的值，该值代表当前文档的默认字符集。可读写。

expression  必选。返回 DispFPHTMLDocument 对象的表达式。

示例

下列示例显示当前文档的默认字符集。

Sub CharSet()
'Displays the default character set of the current document

    Dim objApp As FrontPage.Application
    Dim objDoc As DispFPHTMLDocument

    Set objApp = FrontPage.Application
    Set objDoc = objApp.ActiveDocument
    'Display the name of the default character set
    MsgBox "The default character set for the current document is " _
            & objDoc.defaultCharset & "."

End Sub