Macro help [MS WORD]

[villa89]

Hi,

I am a total novice when its comes to writing macro's. I am trying to write one that I can use on lots of different word documents and finds a certain string e.g "Note number" and replaces it with another string "NOTE Number 12243".

Can anyone tell me where to start or where I can ask for some source code?

Thanks

[z1p]

Hi villa89,

I'm not strong in this area, but for something as simple as a macro to do a global replace you can use the record macro option. Save the macro in the normal.dot file and it will be available in all files that you open in word.

[villa89]

Hi,

Thnaks for the info, I was using the macro recoder but I wasn't using it right. Now that I have the first part right can anyone help me fix this code.

I am trying to serch for a string ("fox") and then when/if I find that string in the document I want to replace the string ("XXX111" with "Recommendation").


Selection.Find.Execute
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
If Selection.Find
.Text = "fox" = True
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
Then
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "XXX111"
.Replacement.Text = "Recommendation"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End If

[oracle128]

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "fox"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
If Selection.Find.Execute = True Then
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "XXX111"
.Replacement.Text = "Recommendation"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End If

[villa89]

Gold! Thanks a million, I realise this probably aint the hardest code to write but I know next to nothing about macros,