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
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
