嘿，这个问题我太有共鸣了——手动插上百个字段简直是效率杀手！针对你每周更新Excel数据源、需要生成Name: James 1:85 2:54...这类格式内容的需求，这里有两个高效方案，完全不用逐个点击「插入邮件合并字段」：

方案一：文本编辑器批量生成域代码（无代码基础友好） #

这个方法靠批量替换快速生成所有字段的域代码，步骤超简单：

1. 完成邮件合并基础关联：打开Word，通过「邮件」选项卡连接到你的Excel数据源，确认已经成功加载数据（能看到「编辑收件人列表」正常显示内容）。
2. 开启域代码显示：切换到「视图」选项卡，勾选「域代码」（此时插入的字段会显示为{ MERGEFIELD 字段名 }格式，方便编辑）。
3. 批量生成域代码文本：
   • 打开你的Excel数据源，复制所有表头（比如Name 1 2 3 4 5 6 7）到记事本/Notepad++这类文本编辑器。
   • 用正则替换批量转换格式：
     • 先手动写出开头的Name:{ MERGEFIELD Name }
     • 对剩下的数字字段，查找规则设为(\d+)，替换规则设为 $1:{ MERGEFIELD $1 }
     • 举个例子：复制的表头是1 2 3，替换后会变成 1:{ MERGEFIELD 1 } 2:{ MERGEFIELD 2 } 3:{ MERGEFIELD 3 }，把这部分拼到开头的Name字段后面即可。
4. 粘贴并生效：把拼接好的文本粘贴到Word文档里，然后取消「视图」选项卡的「域代码」勾选，所有字段就会正常显示，且格式完全符合你的要求。

方案二：VBA宏自动生成（适合长期高频使用） #

如果每周都要处理这类需求，写个简单的宏能彻底解放双手，不管数据源新增多少字段都能自动适配：

1. 打开VBA编辑器：点击Word的「开发工具」选项卡（如果没显示，到「选项」→「自定义功能区」勾选），然后点击「Visual Basic」。
2. 插入模块并粘贴代码：在左侧项目窗口右键点击当前文档，选择「插入」→「模块」，然后粘贴以下代码：

Sub InsertAllMergeFieldsFormatted()
    Dim objMerge As MailMerge
    Dim fieldCount As Integer
    Dim strResult As String
    
    ' 关联当前文档的邮件合并对象
    Set objMerge = ActiveDocument.MailMerge
    
    ' 先拼接Name字段的格式
    strResult = "Name:{ MERGEFIELD " & objMerge.DataSource.FieldNames(1).Name & " }"
    
    ' 遍历所有剩余字段，按格式拼接
    For fieldCount = 2 To objMerge.DataSource.FieldNames.Count
        With objMerge.DataSource.FieldNames(fieldCount)
            strResult = strResult & " " & .Name & ":{ MERGEFIELD " & .Name & " }"
        End With
    Next fieldCount
    
    ' 将生成的内容插入到光标位置
    Selection.TypeText strResult
    ' 更新所有域，让字段正常显示
    ActiveDocument.Fields.Update
End Sub

3. 运行宏：回到Word，点击「开发工具」→「宏」，选择InsertAllMergeFieldsFormatted并运行，所有字段会自动按要求插入到光标位置。

注意事项 #

• 确保Excel数据源的表头没有特殊字符（比如空格、#、@等），如果有，需要调整宏里的字段名处理逻辑。
• 每周更新Excel后，记得在Word里刷新数据源：「邮件」→「编辑收件人列表」→确认数据源路径正确，点击「刷新」即可。

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