Find & Replace

[Rick English]

How can I get the following subroutine to search and replace in the headers
and footers as well. The document has three sections with different headers
Thanks

Sub find_replace_text(oldtext As String, newtext As String)
Dim newtext1 As String
newtext1 = Replace(newtext, Chr$(10), "")
newtext1 = Replace(newtext1, Chr$(13), "^p")
' find_replace Macro
Set myrange = ActiveDocument.Content
'newtext1 = Check_Text(newtext)

With myrange.Find
.ClearFormatting
.Text = oldtext
With .Replacement
.Text = newtext1
End With
.Execute Replace:=wdReplaceAll

End With

End Sub

 

[Doug Robbins]

See the article "Using a macro to replace text where ever it appears in a
document

including Headers, Footers, Textboxes, etc." at:

http://word.mvps.org/FAQs/Customization/ReplaceAnywhere.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

 

[Rick English]

Wow

That's amazing. It works but it will be a long time before I fully
understand it.

The work object is pretty amazing


Thanks

Rick