Sub NoteMarkerMoveEndSentence()
' Paul Beverley - Version 13.03.23
' Moves the foot/endnote marker to the end of the sentence

myTrack = ActiveDocument.TrackRevisions
ActiveDocument.TrackRevisions = False
Do
  Selection.MoveLeft , 1
  DoEvents
Loop Until Asc(Selection) = 2
hereNow = Selection.Start
Selection.Expand wdSentence
Selection.Start = hereNow + 1
Selection.MoveEnd , -1
Selection.Cut
Selection.MoveLeft , 1
Selection.Paste
ActiveDocument.TrackRevisions = myTrack
End Sub