public Sub Test() With Selection.Range.Find MsgBox .Execute(Selection.Range.text) MsgBox .Found End With End Sub
public Sub Test() Selection.Range.Find.ClearFormatting() With Selection.Range.Find MsgBox .Execute(Selection.Range.text) MsgBox .Found End With End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)