Merubah Comment Author di Word

Terkadang Kita ingin mengedit atau me review suatu tulisan di Word, dan harus memberikan Comment sesuai nama kita sebagai Reviewer, Bisa dengan merubah Nama User pada komputer itu melalui Option, tetapi akan membuat repot, jika banyak tulisan dan comment yang harus dirubah, lalu bagaimana cara merubah User pada komputer dengan mudah? Gunakan kode VBA berikut.

Sub ChangeCommentAuthor()
'Updated by EntendOffice 20181112
    Dim I As Long
    Dim xNewName As String
    Dim xShortName As String
    If Selection.Comments.Count = 0 Then
        MsgBox "No comments in your selection!", vbInformation, "KuTools for Word"
        Exit Sub
    End If
    xNewName = InputBox("New author name?", "KuTools for Word")
    xShortName = InputBox("New author initials?", "KuTools for Word")
    If xNewName = "" Or xShortName = "" Then
        MsgBox "The author name/initials can’t be empty.", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    With Selection
        For I = 1 To .Comments.Count
            .Comments(I).Author = xNewName
            .Comments(I).Initial = xShortName
        Next I
    End With
End Sub

Bagaimana cara meletakan kode VBA tersebut?

1. Pilih range yang terdapat coment nya, atau pilih seluruh dokumen yang mau dirubah Comment Authornya dengan menekan Ctrl + A , kemudian tekan Alt + F11 untuk membuka Microsoft Visual Basic for Applications. 

2. Pada jendela Microsoft Visual Basic for Applications, klik Insert > Module. kemudian copy-pastekan VBA code di atas pada modul. 

3. Jalankan (Run) Modul tersebut dengan klik ikon Run atau menekan f5, 

4. Tulis Author baru yg dinginkan

5. Tulis Inisial Author baru tersebut.

6. Author telah berubah