currentStyleState 属性

返回 IFPStyleState 对象，该对象代表当前文档的样式状态。

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

示例

下列示例返回当前文档的样式状态。当前样式状态的显示类型会显示给用户。

Sub StyleState()
'References the style state of the current document

    Dim objApp As FrontPage.Application
    Dim objDoc As DispFPHTMLDocument
    Dim objStyleState As IFPStyleState

    Set objApp = FrontPage.Application
    Set objDoc = objApp.ActiveDocument
    'Create a reference to the IFPStyleState object.
    Set objStyleState = objDoc.currentStyleState
    MsgBox "The display type of the current style state is " & _
            objStyleState.Display

End Sub