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
