Microsoft Office Forums - View Single Post - [Solved] Search first section for specific string...

macropod · 03-14-2014, 11:15 AM

You could use code like:

Code:

Sub Demo()
With ActiveDocument.Sections.First.Range.Find
  .Text = "My Text"
  .ClearFormatting
  .Replacement.ClearFormatting
  .Format = False
  .Forward = True
  .Wrap = wdFindStop
  .MatchWildcards = True
  .Execute
  If .Found Then
    MsgBox .Text & vbCr & "found in Section 1.", vbInformation
  Else
    MsgBox .Text & vbCr & "NOT found in Section 1", vbCritical
  End If
End With
End Sub