返回 IFPStyleState 对象,该对象代表与所给文本范围相关联的属性。
expression.createStyleState
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