Rabu, 14 April 2021

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

Tidak ada komentar:

Posting Komentar