Search and replace a word in all pages EXCEPT the last

[Dusty]

Hi, I need my macro to search and replace an occurance of a word in all pages
EXCEPT the last one - can anyone help? Thanks.

 

[Helmut Weber]

Hi Dusty,

like that:

Sub Test903c()
Dim l As Long
Dim rTmp As Range
Set rTmp = Selection.Range
l = ActiveDocument.Range.Information(wdNumberOfPagesInDocument)
Selection.HomeKey unit:=wdStory
rTmp.start = Selection.start
Selection.GoTo _
what:=wdGoToPage, _
which:=wdGoToAbsolute, _
Count:=l
rTmp.End = Selection.start
rTmp.Select
With Selection.Find
.Text = "JOHN BROWN"
.Replacement.Text = "PAUL WHITE"
.Execute Replace:=wdReplaceAll
End With
End Sub

--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP