Note: The other languages of the website are Google-translated. Back to English

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 Sub

3. 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.
Nhận xét (29)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Yardımı oldu, teşekkürler.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tập lệnh VBA đã hoạt động hoàn hảo để thay đổi tên tác giả thành tên công ty của tôi. Cảm ơn bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Đây là một Macro đã sửa đổi sẽ cho phép bạn chỉ định Tên trước tiên mà bạn muốn thay thế trong trường hợp có những nhận xét khác mà bạn không muốn sửa đổi.

Sub ChangeCommentAuthor ()
'Cập nhật bởi EntendOffice 20181112
Dim I As Long
Dim xOldName thành chuỗi
Dim xNewName thành chuỗi
Dim xShortName dưới dạng chuỗi
Nếu Selection.Comments.Count = 0 Thì
MsgBox "Không có nhận xét nào trong lựa chọn của bạn!", VbInformation, "KuTools cho Word"
Thoát Sub
Cuối Nếu
xOldName = InputBox ("Tên tác giả cũ?", "KuTools cho Word")
xNewName = InputBox ("Tên tác giả mới?", "KuTools cho Word")
xShortName = InputBox ("Tên viết tắt của tác giả mới?", "KuTools cho Word")
Nếu xOldName = "" Hoặc xNewName = "" Hoặc xShortName = "" Thì
MsgBox "Không được để trống tên tác giả / tên viết tắt.", VbInformation, "Kutools cho Word"
Thoát Sub
Cuối Nếu
Với sự lựa chọn
Đối với I = 1 Đến .Comments.Count
If .Comments (I) .Author = xOldName Thì
.Comments (I) .Author = xNewName
.Comments (I) .Initial = xShortName
Cuối Nếu
Tiếp theo tôi
Kết thúc với
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn bạn, Olivier, bạn là một người tốt!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
И салат неплох
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
La même en anglais

Sub ChangeCommentAuthor ()
'Đã cập nhật 20220603
Chỉ số mờ càng lâu
Dim xOldName thành chuỗi
Dim xNewName thành chuỗi
Dim xShortName dưới dạng chuỗi
Nếu Selection.Comments.Count = 0 Thì
MsgBox "Không có nhận xét nào trong lựa chọn của bạn!", VbInformation, "KuTools cho Word"
Thoát Sub
Cuối Nếu
xOldName = InputBox ("Tên tác giả cũ?", "KuTools cho Word")
xNewName = InputBox ("Tên tác giả mới?", "KuTools cho Word")
xShortName = InputBox ("Tên viết tắt của tác giả mới?", "KuTools cho Word")
Nếu xNewName = "" Hoặc xShortName = "" Thì
MsgBox "Không được để trống tên tác giả / tên viết tắt.", VbInformation, "Kutools cho Word"
Thoát Sub
Cuối Nếu
Với sự lựa chọn
Đối với Chỉ mục = 1 Đến .Comments.Count
If (.Comments (Index) .Author = xOldName) Thì
.Comments (Chỉ mục) .Author = xNewName
.Comments (Chỉ mục) .Initial = xShortName
Cuối Nếu
Chỉ mục tiếp theo
Kết thúc với
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Rất cám ơn vì điều này. Hoạt động hoàn hảo. Một cảnh báo mặc dù; tất cả các bình luận sẽ được thay đổi, bất kể nhiều tác giả. Điều gì đó đã không làm phiền tôi.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn vì hướng dẫn. nó thực sự đã giúp tôi
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Điều này dường như hoạt động nhưng tôi không thể lưu tệp mà nó không hoàn nguyên về Tác giả ban đầu.

Cách giải quyết của tôi là thay đổi phần mở rộng .docx trên tên tệp thành .zip. Sau đó, tôi mở tệp zip. Đã duyệt đến thư mục "word" và sau đó sao chép tệp "comments.xml". Mở tệp "comments.xml" trong trình soạn thảo văn bản. Thực hiện tìm kiếm và thay thế tên Tác giả sau đó lưu tệp. Sao chép và thay thế "comments.xml" cũ bằng một cái mới trong tệp .zip. Bây giờ thay đổi phần mở rộng tệp trở lại .docx và tên Tác giả hiện được thay thế trong tệp Word đã lưu.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bạn có thể đã bật một tập lệnh để hoàn nguyên tác giả nhận xét khi lưu.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn bạn! Nó đã thay đổi hoàn hảo các nhận xét, NHƯNG không phải định dạng, như đánh dấu. Có những gì có thể được sửa đổi trong VBA không? VBAproblem@mt2015.com
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi rất biết ơn về thông tin này. Các mã VBA hoạt động hoàn hảo trên một tài liệu Tôi không muốn người viết biết ai là người đánh giá. Thanks.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn rất nhiều, mã VBN đã hoạt động như một phép thuật !!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã thay đổi tên người dùng của mình theo hướng dẫn, nhưng tên thật của tôi vẫn hiển thị trong các nhận xét. Tôi đang cố gắng ẩn danh nhận xét của mình trong khi giữ lại nhận xét của người đánh giá khác với tên của họ trên đó.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Mã VBA đó hoạt động như một sự quyến rũ - cảm ơn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Làm việc hoàn hảo, cảm ơn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
traduction en français inutilisable. Dommage!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bản dịch tiếng Pháp khiến công việc không thể thực hiện được do sự khác biệt về bàn phím
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Ồ ! Tuyệt vời ! cảm ơn nhiều ! 
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào
Cette macro fonctionne bien, mais pour Anonymousiser l'auteur des Corrections dans un texte, il faudrait, en plus de l'auteur des commentaires, pouvoir changer le nom au niveau de marques de révision, et tel n'est pas le cas.
Giải pháp của Auriez-vous?
Merci d'avance.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
CHỈ DÀNH CHO NHỮNG AI THAY ĐỔI TÁC GIẢ CỦA WANNA MỞ TÀI LIỆU CỦA BẠN VỚI TRÌNH LƯU TRỮ (ví dụ: ZIP), đi tới thư mục word, tìm tệp comments.xml, giải nén, mở bằng notepad, chỉnh sửa cho phù hợp (ctrl + H để tìm và thay đổi tác giả hiện tại và tên viết tắt của những cái bạn muốn), lưu, đưa tệp trở lại thư mục word trong zip, et thì đấy
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cette astuce ne fonctionne pas avec toutes les version d'office
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tuyệt vời, hoạt động rất tốt ... cảm ơn
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Thông tin tuyệt vời trong bài đăng này và cả trong các bình luận. Cảm ơn mọi người.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Microsoft ist schon ein Schrott. Je neuer die Versionen sind, umso weniger findet man die Lösung. Wo ändere ich schlichtweg den Autor grundsätzlich. Bei mir wird nichts geändert und ich suche seit über 2 Stunden ... einfach nur Schrott das UX von Microschrott
Không có bình luận nào được đăng ở đây
Tải thêm
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL