提示:其他語言是Google翻譯的。 你可以訪問 English 版本。
登入
x
or
x
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文檔。
  • 將多個文件夾合併並組合成一個具有所需訂單的文件。
  • 根據標題,分節符或其他標準將當前文檔拆分為單獨的文檔。
  • 在Doc和Docx,Docx和PDF之間轉換文件,用於常見轉換和選擇的工具集合等等......
Say something here...
symbols left.
You are guest ( Sign Up? )
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.
    Olivier · 5 months 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.
    JaCo · 9 months 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 · 10 months ago
    Yardımı oldu, teşekkürler.