Determining if Text Exists in active document

[LA Lawyer]

I want to determine if a specific string of text (e.g., "String of Texts")
exists on the first page of the document on the screen.

How is that done?

 

[macropod]

Hi LA Lawyer,

Try something along the lines of:
Sub FindOn1stPage()
Dim StrFind As String
StrFind = "My Text"
With ActiveDocument.Content.Find
.ClearFormatting
.Text = StrFind
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute
If .Found = True Then _
If Selection.Information(wdActiveEndPageNumber) = 1 Then _
MsgBox Chr(34) & StrFind & Chr(34) & " Found on First Page"
End With
End Sub