Hi Ulf,
like this:

Sub Test007
Dim rDcm As Range
Set rDcm = ActiveDocument.Range
ActiveDocument.ComputeStatistics (wdStatisticPages)
ResetSearch
With rDcm.Find
  .Text = "comx"
  If .Execute Then
     MsgBox rDcm.Information(wdActiveEndPageNumber)
     ' found on page ....
  End If
End With
end sub

Public Sub ResetSearch()
With Selection.Find
  .ClearFormatting
  .Replacement.ClearFormatting
  .Text = ""
  .Replacement.Text = ""
  .Forward = True
  .Wrap = wdFindContinue
  .Format = False
  .MatchCase = False
  .MatchWholeWord = False
  .MatchWildcards = False
  .MatchSoundsLike = False
  .MatchAllWordForms = False
  .Execute
End With
End Sub

Greetings from Bavaria, Germany
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000