You don't have Selection.Find.Found in your code. I don't see how it would return anything.
With this code and your example and instructions, it returns "True"
Sub ScratchMacro()
'A basic Word Macro coded by Gregory K. Maxey
With Selection.Find
.Text = "X-"
.Forward = False
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
MsgBox .Found
End With
lbl_Exit:
Exit Sub
End Sub
|