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

Tidak ada komentar:

Posting Komentar