如何通过VBA将Word空邮件合并字段替换为用户输入值

报错根本原因 #

Word 邮件合并的 DataSource.DataFields 是只读属性，原生设计就不允许直接通过该对象修改数据源的值，所以会触发字段不可编辑/已锁定的报错。

最优解决方案（二选一即可，都比你提到的四步流程简单） #

方案1：不改原数据源，合并时动态替换空值（通用性最强，推荐）

不需要修改原始数据源，也不用断开模板的邮件合并连接，在合并生成结果文档的过程中直接替换空值即可，示例代码如下：

Dim mm As MailMerge
Dim mergedDoc As Document
Dim fld As Field
Dim InputStartDate As String

Set mm = ActiveDocument.MailMerge

' 先判断当前记录的startDate是否为空
If Len(mm.DataSource.DataFields("startDate").Value) < 1 Then
    InputStartDate = Format(InputBox("Enter Commenced date ..."), "mm/dd/yyyy")
End If

' 执行合并生成新文档
mm.Destination = wdSendToNewDocument
mm.Execute

' 遍历新生成文档的所有合并字段，替换空的startDate值
Set mergedDoc = ActiveDocument
For Each fld In mergedDoc.Fields
    If fld.Type = wdFieldMergeField Then
        If InStr(fld.Code.Text, "startDate") > 0 And Len(fld.Result.Text) < 1 Then
            fld.Result.Text = InputStartDate
        End If
    End If
Next

' 可选：一步将所有字段转为静态文本，替代不稳定的Sendkeys操作
mergedDoc.Fields.Unlink

方案2：直接修改原始数据源（适合需要保留修改值到数据源复用的场景）

如果你的数据源是本地可编辑的Excel/CSV/Access文件，可以直接操作数据源文件修改对应值，再刷新邮件合并连接即可，以Excel数据源为例：

Dim xlApp As Object, xlWb As Object, xlWs As Object
Dim dataPath As String, InputStartDate As String
Dim currentRec As Long, colNum As Long

If Len(ActiveDocument.MailMerge.DataSource.DataFields("startDate").Value) < 1 Then
    InputStartDate = Format(InputBox("Enter Commenced date ..."), "mm/dd/yyyy")
    ' 获取数据源文件路径与当前操作的记录序号
    dataPath = ActiveDocument.MailMerge.DataSource.Name
    currentRec = ActiveDocument.MailMerge.DataSource.ActiveRecord
    
    ' 打开Excel数据源修改对应值
    Set xlApp = CreateObject("Excel.Application")
    Set xlWb = xlApp.Workbooks.Open(dataPath)
    Set xlWs = xlWb.Sheets(1) ' 按实际情况修改为数据源所在工作表
    colNum = xlApp.Match("startDate", xlWs.Rows(1), 0) ' 匹配startDate字段所在列
    xlWs.Cells(currentRec + 1, colNum).Value = InputStartDate ' 表头占1行，所以行号+1
    
    ' 保存修改并刷新邮件合并数据源
    xlWb.Save
    xlWb.Close
    xlApp.Quit
    ActiveDocument.MailMerge.DataSource.Refresh
End If

额外优化提示 #

你提到的替代方案里用Sendkeys转换字段的操作可以直接用Fields.Unlink方法替代，不需要模拟按键，稳定性更高，也不需要手动全选内容。

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