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

Selection.Start = Selection.End
hereNow = Selection.End
With Selection.Find
  .Wrap = wdFindStop
  .Forward = True
  .MatchCase = False
  .Execute
End With
myStart = Selection.Start
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