AutomaticallyUpdate 属性

       

如果该属性值为 True,则根据所选内容自动重新定义此样式;如果为 False,则在对所选内容重新定义样式之前,Word 提供确认提示。当为具有相同样式的所选内容应用一种样式,但该所选内容的手动格式设置不同时,可对此样式重新定义。Boolean 类型,可读写。

示例

本示例创建名为“Style1”的样式,该样式不需进行确认即可重新定义。

Dim docNew as Document
Dim styleNew as Style

Set docNew = Documents.Add
Set styleNew = docNew.Styles.Add("Style1")

With styleNew
    .BaseStyle = docNew.Styles(wdStyleNormal)
    .ParagraphFormat.LineSpacingRule = wdLineSpaceDouble
    .AutomaticallyUpdate = True
End With