如何在Word中更改作者姓名以進(jìn)行注釋

本文討論的是更改注釋的默認(rèn)作者姓名，或?qū)⑽臋n中的現(xiàn)有作者姓名更改為新的作者姓名。 請嘗試以下兩種方法。

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

更改文檔現(xiàn)有評論的作者姓名

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

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

1.在打開的Word文檔中，單擊 文件 > 附加選項。 在 Word選項“ 窗口，請確保您位于 總類 標(biāo)簽，在 用戶名 對話框如下圖所示，最后單擊 OK 按鈕。

現(xiàn)在，您已經(jīng)更改了Word文檔中注釋的默認(rèn)用戶名。

更改文檔現(xiàn)有評論的作者姓名

如果您收到一個包含大量評論的文檔，并且想要將所有評論的作者姓名更改為某個人，那么下面的 VBA 代碼將幫您一個忙。

1.選擇包含注釋的范圍，或選擇整個文檔，然后按 按Ctrl + A 鍵，按 其他 + F11 鍵打開 Microsoft Visual Basic應(yīng)用程序 窗口。

2.在開幕 Microsoft Visual Basic應(yīng)用程序 窗口中，單擊 插頁 > 模塊。 然后將下面的VBA代碼復(fù)制到“模塊”窗口中。

VBA代碼：更改現(xiàn)有評論的文檔作者姓名

Sub ChangeCommentAuthor()Updated by EntendOffice 20181112Dim I As LongDim xNewName As StringDim xShortName As StringIf Selection.Comments.Count = 0 ThenMsgBox "No comments in your selection!", vbInformation, "KuTools for Word"Exit SubEnd IfxNewName = InputBox("New author name?", "KuTools for Word")xShortName = InputBox("New author initials?", "KuTools for Word")If xNewName = "" Or xShortName = "" ThenMsgBox "The author name/initials can’t be empty.", vbInformation, "Kutools for Word"Exit SubEnd IfWith SelectionFor I = 1 To .Comments.Count.Comments(I).Author = xNewName.Comments(I).Initial = xShortNameNext IEnd WithEnd Sub

3。 按 F5 鍵來運行代碼。 在開幕 評論作者姓名 對話框中，在文本框中輸入新的作者姓名，然后單擊 OK 按鈕。

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

然后，所選范圍內(nèi)的所有評論的作者姓名將立即更改為指定的作者姓名，如下圖所示。

最佳辦公生產(chǎn)力工具

Kutools for Word- 通過 Over 提升您的文字體驗 100 顯著特點！

深入了解下面突出顯示的功能或 單擊此處探索 Kutools for Word 的全部功能.