Question

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 方法可更新活动文档中的样式，以便和附加模板中的样式相匹配。