Note: The other languages of the website are Google-translated. Back to English
登入  \/ 
x
or
x
註冊  \/ 
x

or

如何在Word中更改作者姓名以進行註釋

本文討論的是更改註釋的默認作者姓名,或將文檔中的現有作者姓名更改為新的作者姓名。 請嘗試以下兩種方法。

更改評論的作者姓名以供將來使用

更改文檔的現有註釋作者姓名


更改評論的作者姓名以供將來使用

如果要更改註釋的作者名稱以供將來使用,請在“ Word選項”窗口中更改“用戶名”。

1.在打開的Word文檔中,單擊 文件 > 選項。 在 Word選項“ 窗口,請確保您位於 一般 標籤,在 用戶名 對話框如下圖所示,最後單擊 OK 按鈕。

現在,您已經更改了Word文檔中註釋的默認用戶名。


更改文檔的現有註釋作者姓名

如果您收到的文檔中包含很多註釋,並且您想將所有註釋的作者名稱更改為某個特定的名稱,那麼以下VBA代碼將為您提供幫助。

1.選擇包含註釋的範圍,或選擇整個文檔,然後按 按Ctrl + A 鍵,按 其他 + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2.在開幕 Microsoft Visual Basic for Applications 窗口中,單擊 插入 > 模塊。 然後將下面的VBA代碼複製到“模塊”窗口中。

VBA代碼:更改文檔現有註釋的作者姓名

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。 按 F5 鍵來運行代碼。 在開幕 評論作者姓名 對話框中,在文本框中輸入新的作者姓名,然後單擊 OK 按鈕。

4.在下一個開口 評論首字母 對話框中,根據需要輸入縮寫,然後單擊 OK 按鈕。

然後,所選範圍內的所有評論的作者姓名將立即更改為指定的作者姓名,如下圖所示。


推薦的Word生產力工具

 

Kutools For Word - 100 多個 Word 高級功能,節省 50% 的時間

  • 複雜和重複的操作可以在幾秒鐘內完成一次處理。
  • 跨文件夾一次將多個圖像插入Word文檔。
  • 將文件夾中的多個Word文件合併並合併為所需順序。
  • 根據標題,分節符或其他條件將當前文檔拆分為單獨的文檔。
  • 在Doc和Docx之間,Docx和PDF之間轉換文件,用於常見轉換和選擇的工具集合等...
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Kat · 11 days ago
    Wow ! Awesome ! many thanks ! 
  • To post as a guest, your comment is unpublished.
    fondeur · 25 days ago
    French translation makes the work impossible, due to keyboard differences
  • To post as a guest, your comment is unpublished.
    Fondeur · 25 days ago
    traduction en français inutilisable. Dommage !
  • To post as a guest, your comment is unpublished.
    Chris · 1 months ago
    Worked perfectly, thanks!
  • To post as a guest, your comment is unpublished.
    Sulaiman Lalani · 3 months ago
    That VBA code worked like a charm - thanks!
  • To post as a guest, your comment is unpublished.
    Cynthia Allen · 5 months ago
    I changed my user name as instructed, but my actual name is still showing up in the comments. I am trying to make my comments anonymous while retaining the other reviewer's comments with their name on them.
  • To post as a guest, your comment is unpublished.
    Vorson · 5 months ago
    VORSON DIGITAL is a Project of VORSON (Pvt.) Ltd.
    <a href="https://vorsondigital.com/">Digital Signage Companies in Pakistan</a>particularize in the support ability of gear administrations and make guarantee about the normalized nature of expert respectability.
  • To post as a guest, your comment is unpublished.
    Nezar · 8 months ago
    Thanks a lot, the VBN code worked like magic!!
  • To post as a guest, your comment is unpublished.
    Josh · 1 years ago
    I am very grateful for this information. The VBA codes works Perfectly on a document I don't want the writer to know who the reviewer is yet.
    Thanks.
  • To post as a guest, your comment is unpublished.
    VBAproblem · 1 years ago
    Thank you! It changed perfectly the comments, BUT not formatting, like highlighting. Is there what can be modified in the VBA?
    VBAproblem@mt2015.com

  • To post as a guest, your comment is unpublished.
    GuyGye · 1 years ago
    This appeared to work but I could not save the file without it reverting to the original Author.

    My workaround was to change the .docx extension on the filename to .zip. Then I opened the zip file. Browsed to the "word" folder and then copied the "comments.xml" file. Open the "comments.xml" file in a text editor. Do a search and replace of the Author name then saved the file. Copy and replace the old "comments.xml" with the new one in the .zip file. Now change the file extension back to .docx and the Author name is now replaced in the saved Word file.


  • To post as a guest, your comment is unpublished.
    Babak · 1 years ago
    Thanks for the tutorial. it really helped me

  • To post as a guest, your comment is unpublished.
    ebb · 1 years ago
    Many thanks for this. Works Perfect. A warning though; all comments will be changed, regardless of multiple authors. Something that didn't bother me.
  • To post as a guest, your comment is unpublished.
    Olivier · 2 years ago
    Here is a modified Macro that will allow you to first specify the Name your want to replace in case there are other comments that you don't want to modify.

    Sub ChangeCommentAuthor()
    'Updated by EntendOffice 20181112
    Dim I As Long
    Dim xOldName As String
    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
    xOldName = InputBox("Old author name?", "KuTools for Word")
    xNewName = InputBox("New author name?", "KuTools for Word")
    xShortName = InputBox("New author initials?", "KuTools for Word")
    If xOldName = "" Or 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
    If .Comments(I).Author = xOldName Then
    .Comments(I).Author = xNewName
    .Comments(I).Initial = xShortName
    End If
    Next I
    End With
    End Sub
    • To post as a guest, your comment is unpublished.
      Dan · 11 months ago
      Thank you, Olivier, you are a good person!
  • To post as a guest, your comment is unpublished.
    JaCo · 2 years ago
    The VBA script worked perfectly to change the name of the author to my company name. Thank you!
  • To post as a guest, your comment is unpublished.
    vahit · 2 years ago
    Yardımı oldu, teşekkürler.