如何关闭Word样式自动更新?

Sub CloseAutoUpdates()
Dim updates As Style
Set updates = ActiveDocument.Styles
If updates.InUse = True Then
updates.AutomaticallyUpdate = False
End If
End Sub

以上代码只实现了关闭单一样式文件的自动更新(并且不能是标题类样式),请问如何能够关闭任意文档中所有的样式自动更新?如何通过代码实现呢?

现在有两个思路,其一是,word文档的样式栏中有所有当前文档所用样式的选项,可不可以通过这个来实现,但是苦于没有找到其相应的参数,只知道在word 中它的选项叫"Formating inUse",如果可以通过它关闭样式自动更新最好,其二是,是不是可以通过.dot来控制样式自动更新,这只是一个想法,还不太成熟,还望各位大侠多多指点.

欢迎把意见和代码发至如下邮箱:

[e-mail]

3 个解决方案

#1

我不知道你到底要实现什么功能，不过光从代码上看，作了一点修改，你看看能不能用。

Sub CloseAutoUpdates()
    Dim update As Style
    Set updates = ActiveDocument.Styles
    For Each update In updates
        If update.InUse = True Then
            update.auto
            update.AutomaticallyUpdate = False
        End If
    Next
End Sub

#2

Sorry, 上面的 update.auto 是多余的。
另外，运行了一下，修改了一点，不知道是不是你想要的结果。

Sub CloseAutoUpdates()
    Dim update As Style
    Set updates = ActiveDocument.Styles
    For Each update In updates
        If update.Type = wdStyleTypeParagraph Then
            update.AutomaticallyUpdate = False
        End If
    Next
End Sub

#3

ok 结帖,感谢!