Microsoft Office Forums - View Single Post - [Solved] Replace all occurrences of one merge field with plain text

macropod · 06-29-2011, 07:30 PM

Hi blankenhorst,

You could use a macro like:

Code:

Sub Demo()
Dim oFld As Field
For Each oFld In ActiveDocument.Fields
  With oFld
    If .Type = wdFieldMergeField Then
      If Trim(Replace(Replace(.Code, "MERGEFIELD", ""), Chr(34), "")) = "MyFieldName" Then .Unlink
    End If
  End With
Next
End Sub

or:

Code:

Sub Demo()
Dim oFld As Field
For Each oFld In ActiveDocument.Fields
  With oFld
    If .Type = wdFieldMergeField Then
      If Trim(Replace(Replace(.Code, "MERGEFIELD", ""), Chr(34), "")) = "MyFieldName" Then
        .Code.Text = "QUOTE " & Chr(34) & "My Text" & Chr(34)
        .Update
        .Unlink
      End If
    End If
  End With
Next
End Sub