Find and Replace doesnt work

[Jack]

If I use the find and replace command within Word to replace text including
text within a shape object) everything works.
But when I place the code in a vba module it doesnt find the text in any
shape objects.
My code is
ActiveDocument.Content.Select
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "Year"
.Replacement.Text = "2007"
.Forward = True
.Wrap = wdFindAsk 'wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

Any suggestions would be appreciated
jack

 

[Doug Robbins - Word MVP]

See the article "Using a macro to replace text where ever it appears in a
document including Headers, Footers, Textboxes, etc." at:

http://www.word.mvps.org/FAQs/MacrosVBA/FindReplaceAllWithVBA.htm


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

 

[Jack]

Doug,,
Thank you very much. That is exactly what I was looking for. I had
actually been to that site searching but never came up with that article.
Thanks again
Jack