基于复选框值操控Word书签文本值以生成对应条形码

嗨，针对你在Word表单里要让条形码根据性别复选框生成对应内容的需求，我分两种情况给你说解决方案，先从不用VBA的方法开始，毕竟你说VBA能力有限～

这个方法靠Word的内置字段嵌套就能搞定，不用写代码，步骤如下：

• 首先确认你的两个复选框表单域书签已经设为checkMale和checkFemale，对应选项Male、Female。
• 插入条形码字段的时候，不要直接用原来的{REF TXTUSN}，而是嵌套IF判断字段来读取复选框状态。你需要插入的完整域代码是：

  {DISPLAYBARCODE "{IF {FORMCHECK checkMale} = 1 "Male" "{IF {FORMCHECK checkFemale} = 1 "Female" ""}" CODE128 \T \H 850 \R}
  

  解释下这段代码：
  • {FORMCHECK checkMale}会读取checkMale复选框的状态，勾选时返回1，未勾选返回0；
  • 外层IF先判断Male是否勾选，是就输出"Male"，否则进入内层IF判断Female是否勾选，输出"Female"，如果都没选就输出空文本；
  • 最后把这个判断结果传给DISPLAYBARCODE生成对应条形码。
• 怎么插入这段域？别直接键盘输入大括号，要按Ctrl+F9插入成对的域括号（就是那种灰色的大括号），然后在括号里输入上面的内容，注意所有符号都是英文半角。
• 完成后按F9更新域，勾选对应的性别复选框后，再按F9就能看到条形码内容跟着变了。

⚠️ 小提醒：这个方案需要手动按F9更新域，如果表单是保护状态，更新前可能需要暂时取消保护。

如果你希望勾选复选框后条形码自动更新，不用手动按F9，那VBA是最优选择，代码很简单，照着做就行：

1. 打开你的Word文档，点击顶部的「开发者」选项卡（如果没看到，去文件>选项>自定义功能区里勾选开发者）；
2. 点击「Visual Basic」按钮，打开VBA编辑器；
3. 在左侧项目窗口里找到你的文档，双击「ThisDocument」模块；
4. 粘贴下面的代码：

   Private Sub Document_FormFieldExit(ByVal ExitField As FormField, Cancel As Boolean)
       ' 当离开性别复选框时自动更新条形码
       If ExitField.Name = "checkMale" Or ExitField.Name = "checkFemale" Then
           Dim targetField As Field
           ' 遍历文档里的所有字段，找到条形码字段并更新
           For Each targetField In ActiveDocument.Fields
               If targetField.Type = wdFieldDisplayBarcode Then
                   targetField.Update
               End If
           Next targetField
       End If
   End Sub
   

5. 保存文档为「启用宏的Word文档」（.docm格式），不然宏会失效。

这段代码的作用是：当你勾选完性别复选框并点击其他地方时，自动更新文档里的所有条形码字段，完全不用手动操作。

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