Sub FindFwdCase()
' Paul Beverley - Version 16.06.23
' Next case-sensitive find forwards

Set rng = Selection.Range.Duplicate
Selection.Collapse wdCollapseEnd
With Selection.Find
  .Wrap = wdFindStop
  .Forward = True
  .MatchCase = True
  .MatchWildcards = (InStr(.Text, "]") + InStr(.Text, "<") + _
       InStr(.Text, ">") > 0)
  .Execute

' Leave F&R dialogue in a sensible state
  .Wrap = wdFindContinue
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