find and replace field codes

[frogman]

i have looked at several different solutions but none seem to work for
me.

I want to find all field codes that are meteric and hide them then
later they will be deleted.
field code:
[{MACROBUTTON NoMacro {Quote "___" \*CharFormat}} m]
text in document:
[___ m]

the code I have is taken from:
http://word.mvps.org/faqs/customization/ReplaceAnywhere.htm

Public Sub SREntireDoc()
ActiveWindow.View.ShowFieldCodes = True
Dim rngStory As Word.Range
' Fix the skipped blank Header/Footer problem
MakeHFValid
' Iterate through all story types in the current document
For Each rngStory In ActiveDocument.StoryRanges
' Iterate through all linked stories
Do
SearchAndReplaceInStory rngStory, "[{MACROBUTTON NoMacro
{Quote ""___"" \*CharFormat}} m]", "itworked"
' Get next linked story (if any)
Set rngStory = rngStory.NextStoryRange
Loop Until rngStory Is Nothing
Next
ActiveWindow.View.ShowFieldCodes = False
End Sub

Public Sub SearchAndReplaceInStory(ByVal rngStory As Word.Range, ByVal
strSearch As String, ByVal strReplace As String)
Do Until (rngStory Is Nothing)
With rngStory.find
.Text = strSearch
.ClearFormatting
.Replacement.ClearFormatting
.Text = strSearch
.Replacement.Text = strReplace
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.Execute Replace:=wdReplaceAll
End With
Set rngStory = rngStory.NextStoryRange
Loop
End Sub

Public Sub MakeHFValid()
Dim lngJunk As Long
' It does not matter whether we access the Headers or Footers
property.
' The critical part is accessing the stories range object
lngJunk = ActiveDocument.Sections(1).Headers(1).Range.StoryType

End Sub

when i run the code nothing happens

 

[Klaus Linke]

Field braces aren't really the same characters as the curly braces { }.
Use ^d for them, or ^19 for the opening brace and ^21 for the closing brace.

Greetings,
Klaus