Excel VBA未引用Word对象库时设置表格底纹变黑问题求解

我在Excel中编写了可自动生成Word文档的宏，用于将部分Excel表格复制到生成的Word文档中，当前使用如下代码调整Word内的表格格式：

Set WordTable = myDoc.Tables(i)
    With WordTable
        .AutoFitBehavior (wdAutoFitWindow)
        .Shading.Texture = wdTextureNone
        .Shading.BackgroundPatternColor = wdColorWhite
        .Range.Font.TextColor = wdColorBlack
        .Range.ParagraphFormat.SpaceAfter = 0
    End With

在已引用「Microsoft Word Object Library」的环境下上述代码可正常运行，但未设置该引用时，表格底纹会莫名变为黑色。由于该宏是供用户直接安装到个人电脑的大型Excel程序的组成部分，终端用户无需也不应操作VBA，请问除手动添加该引用外，是否有其他可行的解决方案？

底纹变黑的核心原因是：未添加Word对象库引用时，代码中使用的wdAutoFitWindow、wdTextureNone、wdColorWhite、wdColorBlack属于Word专属枚举常量，VBA找不到对应定义时，会默认将这些未声明的标识符识别为值为0的变体型变量，和常量本身的正确有效值不匹配，最终导致格式设置逻辑错乱。

不需要让用户手动添加引用，有两种可直接落地的方案，优先推荐第一种，稳定性最高：

方案1：晚绑定模式 + 显式定义常量（推荐） #

不需要提前引用Word对象库，只需要在代码模块的开头，显式定义所有用到的Word常量，给它们赋予Word官方规定的固定数值即可——这些常量值在所有主流Office版本（2007及以后）中完全一致，不存在兼容问题。
修改后的代码示例：

' 模块开头先定义所有用到的Word常量，值与Word官方枚举完全一致
Const wdAutoFitWindow As Long = 1
Const wdTextureNone As Long = 0
Const wdColorWhite As Long = 16777215
Const wdColorBlack As Long = 0

' 原有业务逻辑无需改动，如果是通过CreateObject("Word.Application")创建Word实例可直接适配
Set WordTable = myDoc.Tables(i)
With WordTable
    .AutoFitBehavior wdAutoFitWindow
    .Shading.Texture = wdTextureNone
    .Shading.BackgroundPatternColor = wdColorWhite
    .Range.Font.TextColor = wdColorBlack
    .Range.ParagraphFormat.SpaceAfter = 0
End With

这种方案完全不依赖用户端的引用配置，也不需要调整任何宏安全设置，只要Office能正常运行就能生效，是分发类VBA程序的通用标准做法。

方案2：代码运行时自动添加引用（不推荐） #

可以在宏启动时自动检测当前项目是否已加载Word对象库，如果未加载则自动添加对应引用，全程不需要用户手动操作VBA编辑器。但该方案要求用户必须开启「信任对VBA工程对象模型的访问」的宏安全选项，绝大多数用户默认是关闭该选项的，容易出现权限报错，且可能因为用户Office安装路径非标准、版本差异导致引用添加失败，兼容性远低于方案1。

注意：不要直接将所有参数替换为硬编码值0，比如直接写.AutoFitBehavior 0，会因为参数取值不符合Word接口要求触发其他格式异常，必须严格使用每个常量对应的正确取值。

内容的提问来源于stack exchange，提问作者Irene Ortiz de Guzmán