Replace all occurrences of one merge field with plain text

macropod · #2 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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Html send as plain text	JosSchaars	Outlook	5	12-21-2010 02:51 PM
Selecting merge field based on whether or not text is present	amym	Mail Merge	1	12-07-2010 05:14 AM
Replace All with plain text containing subscript	DeaducK	Word	0	06-24-2010 08:16 PM
merge field formatting problem with "text to be inserted before"	wissam	Mail Merge	0	12-13-2009 12:50 AM
Text field after word merge in Word 2000	brianlb	Word	1	06-29-2009 07:50 AM