word修改一处别处样式会变换

<w:autoRedefine/>造成的

docx解压

找到

styles.xml

删除

再压缩

宏策略，尚未验证

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