Run time error 5449 - Find/replace

[Greni]

Hi

I got runtime error 5449 when trying to run
Find/replace fron VBA code in a word document?

AutoOpen()

Selection.Find Clearformatting
Selection.Find replacement.Clearformatting
With selection.find
.Text = $CustomerID
.Replacement.text = intCustomerID
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.Matchwildcards = False
.MatchSoundsLike
.MatchAllWordForms
.Forward = true
End With
Selection.find.execute Replace:=wdreplaceAll (Stops here)

Any help?

/Greni

 

[fumei]

if you copied the code:
Selection.Find replacement.Clearformatting

literally, then you need a Dot, as in:

Selection.Find.Replacement.Clearformatting

   .Text = $CustomerID
   .Replacement.text = intCustomerID

These are string variables? Because if they are not...

Gerry