如何用VBA替换Word文档域内容并移除textarea保留代码

我来帮你搞定这两个Word文档自动化的问题，都是日常处理文档时经常碰到的场景：

Word里的域类型有不少，比如表单域（FormField）、邮件合并域（MergeField）等，不同类型的域处理方式略有区别，我给你两个常用场景的示例代码：

场景1：填充表单域（FormField） #

如果你的文档里是表单域（比如文本框、下拉框这类），可以用下面的代码定位并填充内容：

Sub FillFormFields()
    Dim doc As Document
    Set doc = ActiveDocument
    
    ' 先解除文档保护（如果表单域被保护的话）
    If doc.ProtectionType <> wdNoProtection Then
        doc.Unprotect Password:="" ' 如果有密码，替换成你的密码
    End If
    
    ' 填充指定名称的表单域
    doc.FormFields("Text1").Result = "这是填充的文本内容"
    doc.FormFields("DropDown1").Result = "选择项1" ' 下拉框填充
    
    ' 也可以遍历所有表单域批量处理
    Dim fld As FormField
    For Each fld In doc.FormFields
        Select Case fld.Type
            Case wdFieldFormTextInput
                fld.Result = "批量填充文本"
            Case wdFieldFormDropDown
                fld.Result = "批量选择项"
        End Select
    Next fld
    
    ' 重新保护文档（可选）
    doc.Protect Type:=wdAllowOnlyFormFields, NoReset:=True, Password:=""
End Sub

场景2：替换邮件合并域（MergeField） #

如果是邮件合并域，我们可以直接替换域的内容，或者把域转换成普通文本：

Sub ReplaceMergeFields()
    Dim doc As Document
    Set doc = ActiveDocument
    
    ' 遍历所有邮件合并域
    Dim fld As Field
    For Each fld In doc.Fields
        If fld.Type = wdFieldMergeField Then
            ' 获取域名称（去掉"MERGEFIELD "前缀）
            Dim fieldName As String
            fieldName = Mid(fld.Code, 12)
            fieldName = Trim(Replace(fieldName, "\* MERGEFORMAT", ""))
            
            ' 根据名称填充对应内容
            Select Case fieldName
                Case "UserName"
                    fld.Result.Text = "张三"
                Case "UserEmail"
                    fld.Result.Text = "zhangsan@example.com"
            End Select
            
            ' 可选：把域转换成普通文本，避免后续编辑时域失效
            fld.Unlink
        End If
    Next fld
End Sub

你提到复制文章后出现带滚动条的空textarea（大概率是Word里的表单文本输入域FormField），下方是带编号的代码表格，我帮你完善并补充代码，实现移除textarea、保留代码的需求：

Sub RemoveTextAreaAndKeepCode()
    Dim doc As Document
    Set doc = ActiveDocument
    Dim oFld As FormField
    Dim tbl As Table
    
    ' 第一步：解除文档保护（因为表单域通常会保护文档）
    If doc.ProtectionType <> wdNoProtection Then
        doc.Unprotect Password:="" ' 有密码的话替换成实际密码
    End If
    
    ' 第二步：遍历并删除所有文本输入类型的表单域（就是你说的textarea）
    For Each oFld In doc.FormFields
        If oFld.Type = wdFieldFormTextInput Then
            oFld.Delete ' 删除表单域
        End If
    Next oFld
    
    ' 第三步：处理代码表格，可选转换成纯文本（如果不需要表格格式）
    ' 遍历所有表格，判断是否是代码表格（这里假设代码表格有编号列，你可以根据实际调整判断条件）
    For Each tbl In doc.Tables
        ' 示例：如果表格第一列是编号，就把表格内容转换成纯文本
        Dim rng As Range
        Set rng = tbl.Range
        rng.Copy
        ' 在表格位置粘贴成纯文本
        rng.PasteSpecial DataType:=wdPasteText
        ' 删除原表格
        tbl.Delete
    Next tbl
    
    ' 可选：重新保护文档（如果之前有保护的话）
    ' doc.Protect Type:=wdAllowOnlyFormFields, NoReset:=True, Password:=""
End Sub

注意事项： #

• 如果你的textarea不是表单域，而是ActiveX控件的文本框，那需要调整代码遍历doc.Shapes或者doc.InlineShapes来删除；
• 代码表格的判断条件可以根据实际情况修改，比如根据表格的样式、内容关键词来精准定位，避免误删其他表格；
• 运行代码前建议先备份文档，避免意外情况。

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