Word宏转VBS后清除底纹格式行为异常问题排查

问题背景 #

原Word宏用于清除文档底纹，运行表现正常：

Sub RemoveShading()
Selection.Font.Shading.Texture = wdTextureNone
Selection.Shading.BackgroundPatternColor = wdColorWhite
Selection.Shading.ForegroundPatternColor = wdColorWhite
End Sub

开启修订后，仅在原有底纹位置生成「格式设置：图案清除」「格式设置：图案：纯色(100%)(白色)」的修订记录。

将逻辑改为VBS后，代码如下：

' Open the current file
Set WordDoc = Word.Documents.Open(objFile.path)

' select and de-highlight the whole document
Word.Selection.WholeStory
Set WordText = Word.Selection
WordText.Font.Shading.Texture = wdTextureNone
WordText.Shading.BackgroundPatternColor = wdColorWhite
WordText.Shading.ForegroundPatternColor = wdColorWhite

' save in a new file to preserve original
newPath = objFSO.BuildPath(objFolder.path, objFSO.GetBaseName(objFile.path)&"_done.docx")
WordDoc.SaveAs(newPath)
WordDoc.Close

但运行后出现两个异常：

• 整个文档产生大量字体格式修订记录（如「格式设置：字体：默认(Arial)」等）
• 全文档文本背景变为白色（仅Office深色主题下可见）
  原宏在同一机器运行无此问题，需排查原因。

问题原因及解决方法 #

1. VBS未识别Word内置常量，导致颜色/纹理赋值错误 #

Word VBA中的wdColorWhite、wdTextureNone是内置常量，但VBS默认不加载这些常量，会将其视为未定义变量（值为Empty），最终被解析为0。而0对应wdColorBlack，并非白色，这会导致代码实际将底纹背景设为黑色，在深色主题下被Word自动反转为白色显示；同时错误的赋值会触发不必要的格式变更记录。

解决方法：
手动定义常量值，或直接使用对应的数值：

• wdTextureNone 对应数值 0
• wdColorWhite 对应数值 &HFFFFFF

修改后的代码片段：

' 手动定义Word常量
Const wdTextureNone = 0
Const wdColorWhite = &HFFFFFF

WordText.Font.Shading.Texture = wdTextureNone
WordText.Shading.BackgroundPatternColor = wdColorWhite
WordText.Shading.ForegroundPatternColor = wdColorWhite

2. 全选操作触发新实例默认字体的强制应用 #

VBA宏通常在当前Word实例中运行，实例默认字体与文档原有格式匹配度高；但VBS会启动全新的Word实例，新实例的默认字体（如Arial）可能和文档默认字体不一致，执行WholeStory全选后，设置底纹时会隐性触发Word将新实例的默认字体应用到选中内容，从而产生大量字体格式修订。

解决方法：
避免操作Selection，改用Range对象直接定位文档全部内容，减少不必要的格式继承：

' 替换全选和Selection操作，直接用Document的Content对象
Set WordText = WordDoc.Content
WordText.Font.Shading.Texture = wdTextureNone
WordText.Shading.BackgroundPatternColor = wdColorWhite
WordText.Shading.ForegroundPatternColor = wdColorWhite

3. 修订模式状态不一致 #

原宏运行时文档已开启修订，而VBS打开文档时默认未开启修订，或新实例的修订配置不同，导致格式变更的记录逻辑出现差异。

解决方法：
在VBS中显式控制修订状态，与原宏运行环境保持一致：

' 打开文档后开启修订
WordDoc.TrackRevisions = True

内容的提问来源于stack exchange，提问作者SelAromDotNet