createStyleState 方法

返回 IFPStyleState 对象，该对象代表与所给文本范围相关联的属性。

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

示例

以下示例返回 IFPStyleState 对象，并且为活动文档添加文本的格式线。

Sub ChangeStyleState()

    Dim objStyleState As IFPStyleState
    Dim objRange As IHTMLTxtRange

    Application.ActiveDocument.body.innerHTML = _
        "Insert New Document Title Here"

    Set objRange = Application.ActiveDocument.body.createTextRange
    Set objStyleState = Application.ActiveDocument.createStyleState
    objStyleState.gather objRange

    objStyleState.fontWeight = 700
    objStyleState.fontFamily = "arial"
    objStyleState.Apply

End Sub