Edit comments author at selection in Word

CommentsAuthor.bas

Sub EditComment()
  If ActiveDocument.Comments.Count = 0 Then Exit Sub
  For i = 1 To ActiveDocument.Comments.Count
    If (Selection.Start >= ActiveDocument.Comments(i).Scope.Start) And _
       (Selection.Start <= ActiveDocument.Comments(i).Scope.End) Then
        ActiveDocument.Comments(i).Author = InputBox(ActiveDocument.Comments(i).Author _
     & vbCrLf & vbCrLf & ActiveDocument.Comments(i).Range.Text, "Author", ActiveDocument.Comments(i).Author)
   End If
  Next
End Sub