UpdateStyles 方法

从相应模板中复制所有样式至文档中，覆盖文档中所有现有同名的样式。

expression   必需。该表达式返回一个 Document 对象。

示例

本示例将相关模板中的样式复制到每一打开文档中，然后关闭每一文档。

For Each aDoc In Documents
    aDoc.UpdateStyles
    aDoc.Close SaveChanges:=wdSaveChanges
Next aDoc

本示例修改活动文档的相关模板中“标题 1”样式的格式。用 UpdateStyles 方法更新活动文档中的样式（包括“标题 1”样式）。

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