Skip to content

Instantly share code, notes, and snippets.

@wyfinger

wyfinger/CommentsAuthor.bas

Created July 24, 2019 23:07
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save wyfinger/59a35653258d9f114a431674b0fa91d8 to your computer and use it in GitHub Desktop.
Save wyfinger/59a35653258d9f114a431674b0fa91d8 to your computer and use it in GitHub Desktop.
Download ZIP
Edit comments author at selection in Word
Raw
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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment