Limit replace macro to a specific page?

[ML]

Is there anyway to limit a replace macro to only run against a specific page
of a document? I want to look for certain words and reformat them if found
but only if on page 1 of my document.

 

[Dave Lett]

Hi ML,

You can use the following to limit the find/replace to the current page only:

Dim oRngToSearch As Range

Set oRngToSearch = Selection.Bookmarks("\Page").Range
With oRngToSearch.Find
.ClearFormatting
.Text = "Test"
.Font.Bold = True
With .Replacement
.ClearFormatting
.Text = "Replaced"
.Font.Bold = False
End With
.Execute Replace:=wdReplaceAll
End With

HTH,
Dave