VB.NET操作Word邮件合并：获取合并字段名称遇属性错误求助

你遇到的问题是MailMergeField对象没有name属性，正确获取字段名称需要通过Code.Text属性解析，或者直接从数据源的字段名集合获取，以下是两种可行方案：

方案1：解析文档中已插入的合并字段名称 #

修正你的代码，通过field.Code.Text提取字段名，处理掉字段代码中的冗余内容：

Dim wordApp As Microsoft.Office.Interop.Word.Application
Dim wrdDoc As Microsoft.Office.Interop.Word.Document

' 初始化Word应用并打开文档
wordApp = New Microsoft.Office.Interop.Word.Application()
wrdDoc = wordApp.Documents.Open(txtMergeDocPath.Text, ReadOnly:=True)

' 获取文档中的邮件合并字段集合
Dim mergeFields As Microsoft.Office.Interop.Word.MailMergeFields = wrdDoc.MailMerge.Fields

For Each field As Microsoft.Office.Interop.Word.MailMergeField In mergeFields
    ' 提取字段代码文本，格式类似 "MERGEFIELD 客户名称 \* MERGEFORMAT "
    Dim fieldCode As String = field.Code.Text.Trim()
    ' 按空格分割，取第二个元素（字段名）
    Dim fieldName As String = fieldCode.Split({" "}, StringSplitOptions.RemoveEmptyEntries)(1)
    cmbFields.Items.Add(fieldName)
Next

' 记得释放资源
wrdDoc.Close()
wordApp.Quit()
System.Runtime.InteropServices.Marshal.ReleaseComObject(wrdDoc)
System.Runtime.InteropServices.Marshal.ReleaseComObject(wordApp)

方案2：直接获取数据源的所有可用字段名 #

如果需要展示邮件合并数据源中的所有字段（而非文档中已插入的），可以直接访问MailMerge.DataSource.FieldNames集合，这种方式更准确：

Dim wordApp As Microsoft.Office.Interop.Word.Application
Dim wrdDoc As Microsoft.Office.Interop.Word.Document

wordApp = New Microsoft.Office.Interop.Word.Application()
wrdDoc = wordApp.Documents.Open(txtMergeDocPath.Text, ReadOnly:=True)

' 获取数据源的字段名集合
Dim fieldNames As Microsoft.Office.Interop.Word.FieldNames = wrdDoc.MailMerge.DataSource.FieldNames

For i As Integer = 1 To fieldNames.Count
    cmbFields.Items.Add(fieldNames.Item(i).Name)
Next

' 释放资源
wrdDoc.Close()
wordApp.Quit()
System.Runtime.InteropServices.Marshal.ReleaseComObject(wrdDoc)
System.Runtime.InteropServices.Marshal.ReleaseComObject(wordApp)

注意点 #

• 你的原始代码存在变量名不一致问题（wrdApp和wordApp），已在修正代码中统一
• 操作完Word对象后务必释放COM资源，避免进程残留

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