Sub CommentAddAndPasteSelected()
' Paul Beverley - Version 26.02.24
' Copies text, adds a comment and pastes text

introText = ""
' introText = "Suggested alternative: "

If Selection.Start = Selection.End Then Selection.Expand wdSentence
Selection.Copy
Dim cmt As Comment
Set cmt = Selection.Comments.Add(Range:=Selection.Range)
If introText > "" Then Selection.TypeText Text:=introText
Selection.Paste
ActiveWindow.ActivePane.Close
cmt.Edit
End Sub