Sub IncludeBracketInSentence() ' Paul Beverley - Version 24.08.12 ' Move the full point to after the bracketed reference myTrack = ActiveDocument.TrackRevisions ActiveDocument.TrackRevisions = False If Selection.Start = Selection.End Then Selection.MoveEnd wdCharacter, 40 Selection.MoveEndWhile cset:=ChrW(13), Count:=wdBackward mm = Selection mm = Replace(mm, ".", "") mm = Replace(mm, ")", ").") mm = Replace(mm, ")..", ").") Selection.TypeText mm ActiveDocument.TrackRevisions = myTrack End Sub