Sub Ampersand()
' Paul Beverley - Version 03.06.22
' Changes next ampersand to 'and'

Selection.Collapse wdCollapseStart
Set rng = Selection.Range.Duplicate
If rng.End + 400 > ActiveDocument.Content.End Then
  rng.End = ActiveDocument.Content.End
Else
  rng.End = rng.Start + 400
End If
charPos = InStr(rng, "&")
If charPos > 0 Then
  Selection.MoveStart , charPos - 1
  Selection.End = Selection.Start + 1
  Selection.TypeText "and"
Else
  Beep
  MsgBox ("Can't see an ampersand!")
End If
End Sub