Try, for example:
Code:Sub Demo() Const StrFnd As String = "Membership Status:" With ActiveDocument.Range(Selection.Start, ActiveDocument.Range.End) With .Find .Text = StrFnd .Execute End With If .Find.Found = True Then Selection.End = .Start MsgBox Selection.Text End With End Sub
Bookmarks