Sub FRgo()
' Paul Beverley - Version 04.05.24
' Finds, replaces and moves to the next match

Call MacroNameShow("FRgo")

hereNow = Selection.End
If Selection.End = Selection.Start Then
  With Selection.Find
    .Wrap = wdFindStop
    .Forward = True
    .Execute
  End With
Else
  Selection.End = Selection.Start
  With Selection.Find
    .Execute Replace:=wdReplaceOne
    .Wrap = wdFindStop
    .Forward = True
  End With
  Selection.Start = Selection.End
  Selection.Find.Execute
End If

If Selection.Start = hereNow And _
     Selection.Find.Found = False Then Beep

' Leave F&R dialogue in a sensible state
Selection.Find.Wrap = wdFindContinue
End Sub