Word VBA教程:Styles集合对象

Documents (Document)
Styles (Style)
多种对象

该对象是由代表文档中内置和用户定义样式的Style对象组成的集合。

使用 Styles集合

可使用 Styles属性返回 Styles集合。下例删除活动文档中的所有用户定义样式。


For Each sty In ActiveDocument.Styles
    If sty.BuiltIn = False Then sty.Delete
Next sty

可以使用 Add方法生成新的用户定义样式并将其加入 Styles集合。下例添加名为“Introduction”的字符样式,其字体为 Arial,尺寸为 12 磅,加粗、斜体。然后该示例将此样式应用于所选内容。


Set myStyle = ActiveDocument.Styles.Add(Name:="Introduction", _
    Type:=wdStyleTypeCharacter)
With myStyle.Font
    .Bold = True
    .Italic = True
    .Name = "Arial"
    .Size = 12
End With
Selection.Range.Style = "Introduction"

可使用 Styles(index) 返回一个 Style对象,其中 index 为样式名、WdBuiltinStyle 常量或索引号。样式名的拼写和间隔必须正确,但不必区分大小写。下例更改活动文档中用户定义样式“Color”中的字体。


ActiveDocument.Styles("Color").Font.Name = "Arial"

下例将内置标题 1 样式设置为非黑体。


ActiveDocument.Styles(wdStyleHeading1).Font.Bold = False

样式索引号代表以字母顺序排列的样式名列表中该样式的位置。注意,Styles(1) 为该字母顺序列表中的第一种样式。下例显示 Styles集合中第一种样式的基本样式和样式名称。


MsgBox "Base style= " _
    & ActiveDocument.Styles(1).BaseStyle & vbCr _
    & "Style name= " & ActiveDocument.Styles(1).NameLocal

说明

Styles对象在 Template对象中无效。但可以使用OpenAsDocument方法将模板作为文档打开,以修改模板中的样式。下例改变附加于活动文档的模板中 Heading 1 样式的格式。


Set aDoc = ActiveDocument.AttachedTemplate.OpenAsDocument
With aDoc
    .Styles(wdStyleHeading1).Font.Name = "Arial"
    .Close SaveChanges:=wdSaveChanges
End With

使用OrganizerCopy方法可在文档和模板间复制样式。使用UpdateStyles方法可更新活动文档中的样式,以便和附加模板中的样式相匹配。

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号