Cách thay đổi tên tác giả cho bình luận trong Word
Bài viết này nói về việc thay đổi tên tác giả mặc định cho các nhận xét hoặc thay đổi tên tác giả hiện có trong tài liệu thành một tên mới. Vui lòng thử hai phương pháp dưới đây.
Thay đổi tên tác giả của nhận xét để sử dụng trong tương lai
Thay đổi tên tác giả của nhận xét hiện có của tài liệu
Thay đổi tên tác giả của nhận xét để sử dụng trong tương lai
Nếu bạn muốn thay đổi tên tác giả của nhận xét để sử dụng trong tương lai, vui lòng thay đổi Tên Người dùng trong cửa sổ Tùy chọn Word.
1. Trong tài liệu Word đã mở, hãy nhấp vào Tập tin > Các lựa chọn. Trong Tùy chọn từ cửa sổ, hãy đảm bảo rằng bạn đang định vị trong Tổng Quát , thay đổi tên trong Tên người dùng như ảnh chụp màn hình bên dưới được hiển thị, và cuối cùng nhấp vào OK .
Bây giờ bạn đã thay đổi tên người dùng mặc định cho các nhận xét trong tài liệu Word.
Thay đổi tên tác giả của nhận xét hiện có của tài liệu
Nếu bạn đã nhận được một tài liệu có nhiều nhận xét và bạn muốn thay đổi tên tác giả của tất cả các nhận xét thành một tên nhất định, thì mã VBA sau đây sẽ giúp bạn.
1. Chọn phạm vi chứa nhận xét 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 Ctrl + A các phím, nhấn Khác + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. Trong phần mở đầu Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp Chèn > Mô-đun. Sau đó sao chép mã VBA bên dưới vào cửa sổ Mô-đun.
Mã VBA: Thay đổi tên tác giả của tài liệu nhận xét hiện có
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 Sub3. Nhấn nút F5 phím để chạy mã. Trong phần mở đầu Nhận xét Tên tác giả hộp thoại, nhập tên tác giả mới vào hộp văn bản và nhấp vào OK .
4. Trong lần khai trương tiếp theo Tên viết tắt của nhận xét hộp thoại, nhập tên viết tắt khi bạn cần và nhấp vào OK .
Sau đó, tất cả tên tác giả của nhận xét trong phạm vi đã chọn sẽ được thay đổi thành tên được chỉ định ngay lập tức như hình minh họa bên dưới.
Công cụ năng suất Word được đề xuất
Kutools cho Word - Hơn 100 tính năng nâng cao cho Word, tiết kiệm 50% thời gian của bạn
- Các hoạt động phức tạp và lặp đi lặp lại có thể được thực hiện xử lý một lần trong vài giây.
- Chèn nhiều hình ảnh trên các thư mục vào tài liệu Word cùng một lúc.
- Hợp nhất và kết hợp nhiều tệp Word trên các thư mục thành một với thứ tự mong muốn của bạn.
- Chia tài liệu hiện tại thành các tài liệu riêng biệt theo tiêu đề, ngắt phần hoặc các tiêu chí khác.
- Chuyển đổi tệp giữa Doc và Docx, Docx và PDF, bộ sưu tập các công cụ để chuyển đổi và lựa chọn phổ biến, v.v.
