Word VBA宏仅部分电脑生效 书签隐藏功能无报错失效求助

• 优先核对受影响设备的Word隐藏文本显示配置：进入「文件-选项-显示」菜单，查看「始终在屏幕上显示这些格式标记」分组下，是否勾选了「隐藏文字」或「显示所有格式标记」。只要勾选了这两个选项中的任意一个，即便VBA设置了字体隐藏属性，内容依然会在Word界面显示（带虚线下划线标识），这是90%以上同类问题的诱因。
• 核查受影响设备上的文档书签有效性：打开「插入-书签」菜单，确认代码中调用的所有书签（CAPA_Plan_And_Add、CAPA_Execution等）均存在，且书签覆盖的范围和预期一致。如果用户编辑文档时误删了书签边界，会导致隐藏操作的目标范围为空，看起来就像功能未生效。
• 核对Office版本与位数：排查受影响用户的Office是否为2016及更早版本，或32位版本，部分旧版Office对Font.Hidden属性的赋值不会自动触发屏幕刷新，会出现属性已修改但界面未更新的情况。
• 验证VBA执行权限：虽然宏已经可以正常执行复选框禁用逻辑，还是要确认受影响设备的Word信任中心设置中，是否允许VBA修改文档内容，部分严格的权限策略会限制对文档Range对象的修改，但不会触发报错。

1. 代码层面强制覆盖本地显示配置，无需依赖用户端设置：在所有涉及书签隐藏操作的Sub末尾，增加两行代码，强制关闭隐藏文本显示并刷新屏幕，示例修改如下：

Private Sub CheckBox1_Click()
If CheckBox2.Enabled = True Then
    CheckBox2.Enabled = False
    CheckBox3.Enabled = False
    CheckBox4.Enabled = False
    CheckBox5.Enabled = False
Else:
    CheckBox2.Enabled = True
    CheckBox3.Enabled = True
    CheckBox4.Enabled = True
    CheckBox5.Enabled = True
End If
If ActiveDocument.Bookmarks.Exists("CAPA_Plan_And_Add") Then
    Bookmarks("CAPA_Plan_And_Add").Range.Font.Hidden = CheckBox1.Value
End If
' 新增以下两行强制配置显示规则并刷新界面
Application.Options.View.ShowHiddenText = False
Application.ScreenRefresh
End Sub

你可以把这段通用逻辑封装成公共函数，所有复选框点击事件都调用，减少重复代码。
2. 增加代码健壮性：给所有书签操作加存在性判断和错误捕获，避免因为书签丢失导致静默失败，参考上面示例中的Bookmarks.Exists判断逻辑。
3. 企业内部批量配置：如果是内部统一使用，可以通过组策略推送Word配置，默认关闭「显示隐藏文字」「显示所有格式标记」选项，避免用户手动修改配置导致功能失效。
4. 交互逻辑校验：确认你当前的逻辑是「勾选复选框隐藏对应区块」，如果业务需求是勾选显示，需要把赋值语句修改为Bookmarks("xxx").Range.Font.Hidden = Not CheckBox1.Value。

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