Initial Property Example

This example displays the initials of the user who made the first comment in the selection.

If Selection.Comments.Count >= 1 Then
    MsgBox "Comment made by " & Selection.Comments(1).Initial
End If

This example checks the author initials associated with each comment in the first document section. If the author initials are "MSOffice," the example changes them to "KAE."

Set myRange = ActiveDocument.Sections(1).Range
For Each comm In myRange.Comments
    If comm.Initial = "MSOffice" Then comm.Initial = "KAE"
Next comm