Search and replace a word in all pages EXCEPT the last

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Dusty - 31 May 2008 18:10 GMT

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.

Reply to this Message

Helmut Weber - 31 May 2008 20:51 GMT

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

Reply to this Message