Sub FindFwd()
' Paul Beverley - Version 20.12.23
' Finds next match forwards, case insensitively

mySpaces = "                "
For i = 1 To 3
  mySpaces = mySpaces & mySpaces
Next i
mySch = Selection.Find.Text
thisIsWild = ((InStr(mySch, "]") + InStr(mySch, "<") _
     + InStr(mySch, ">") > 0))
If thisIsWild Then StatusBar = mySpaces & "Using WILDCARD find"
Set rng = Selection.Range.Duplicate
Selection.Collapse wdCollapseEnd
With Selection.Find
  .Wrap = wdFindStop
  .Forward = True
  .MatchCase = False
  .MatchWildcards = thisIsWild
  .Execute
  .Wrap = wdFindStop
End With
If Selection.Find.Found = False Then
  Beep
Else
  If Selection.End = 0 Then
    rng.Select
    Beep
    myTime = Timer
    Do
    Loop Until Timer > myTime + 0.2
    Beep
    Selection.EndKey Unit:=wdStory
    With Selection.Find
      .Wrap = wdFindStop
      .Forward = False
      .Execute
' Leave F&R dialogue in a sensible state
      .Wrap = wdFindContinue
      .Forward = True
    End With
    StatusBar = "Sorry, Word's Find facility is playing sillies!"
  Else
    Set rng = Selection.Range.Duplicate
    Selection.Collapse wdCollapseStart
    Selection.MoveUp , 1
    rng.Select
  End If
End If
End Sub