Sub ChangeCommentAuthorAndInitials() Dim c As Comment For Each c In ActiveDocument.Comments c.Author = "Bugs Bunny" c.Initial = "BB" Next c End Sub