Word VBA教程:UpdateStyles方法

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

expression.UpdateStyles

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

VBA示例

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


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

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号