Sub FindFwdWild()
' Paul Beverley - Version 09.01.21
' Next find wild forwards

Selection.Collapse wdCollapseEnd
hereNow = Selection.End
With Selection.Find
  .Wrap = wdFindStop
  .Forward = True
  .MatchCase = False
  .MatchWildcards = True
  .Execute
End With
If Selection.Start = hereNow Then
  If Selection.Find.Found = False Then Beep
End If
' Leave F&R dialogue in a sensible state
Selection.Find.Wrap = wdFindContinue
End Sub