Půjde to makrem, nevím sice jak ho vyladit, aby běželo jen do konce dokumentu, ale pokud nebude stačit 100 výskytů, prostě ho pusť znovu...
Že jich je ve skutečnosti míň nevadí...
Předpoklad: ten řádek s textem PAGE je opravdu jen jeden řádek a chceš ho odstranit (ne jen smazat text Page xxx, aby tam zůstal vynechaný prázdný řádek)
Sub hledej()
'
' hledej Makro
'
'
For i = 1 To 100
Selection.Find.ClearFormatting
With Selection.Find
.Text = "page"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.HomeKey Unit:=wdLine
Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
Next i
End Sub