在用Word修改被WPS编辑过的文件时,被WPS编辑后的文件会打开文本样式自动更新。在Word的修订模式下,当保存文件时,格式会因打开自动更新就全部乱套了。
可以通过宏解决该问题,即遍历当前文档(ActiveDocument)的样式(Styles),如果它的类型(Type)是段落样式(wdStyleTypeParagraph),就关闭它的自动更新(AutomaticallyUpdate),以禁用所有段落样式自动更新:
Sub 禁用所有样式自动更新()
Dim s As Style
For Each s In ActiveDocument.Styles
If s.Type = wdStyleTypeParagraph Then
s.AutomaticallyUpdate = False
End If
Next s
End Sub
可以将宏放在Normal.dotm的类模块Private Sub app_DocumentOpen(ByVal doc As Document)里面,这样打开任何文件都会自动运行代码禁用更新。