返回或设置 String 类型的值,该值代表当前文档的默认字符集。可读写。
expression.defaultCharset
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