Cách thay đổi tên tác giả của các nhận xét trong word với VBA

Nếu bạn đã nhận được một tài liệu có nhiều bình luận và bạn muốn thay đổi tên tác giả của tất cả các bình luận thành một tên nhất định, mã VBA sau đây sẽ giúp bạn.

Đôi khi bạn làm việc với các văn bản cần phải thay đổi tên của các comments hiện có thì Bài viết này giúp bạn thực hiện việc thay đổi tên tác giả mặc định cho nhận xét hoặc thay đổi tên tác giả hiện có trong tài liệu thành tên mới một cách dễ dàng.

Bước 1: Chọn dãy chứa chú thích hoặc chọn toàn bộ tài liệu bạn sẽ thay đổi tên tác giả bằng cách nhấn tổ hợp phím Ctrl + A, nhấn tổ hợp phím Alt + F11 để mở cửa sổ Microsoft Visual Basic for Applications.

Bước 2: Trong cửa sổ Microsoft Visual Basic for Applications đang mở, bấm vào Insert > Module. Xem hình dưới:

Lập trình VBA với word thật đơn giản - MATTHAN.ONLINE

Sau đó sao chép mã VBA bên dưới vào cửa sổ Module.

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

Bước 3: Nhấn phím F5 để chạy mã. Trong hộp thoại Comments Author Name mở, nhập tên tác giả mới vào hộp văn bản và nhấp vào nút OK.

Lập trình VBA với Word - MATTHAN.ONLINE