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

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

1.在打開的Word文檔中，單擊文件> 選項。

在Word選項“ 窗口，請確保您位於一般標籤，在 ... Note:TheotherlanguagesofthewebsiteareGoogle-translated.Backto English 登入 用戶名 登入 記住我 忘了用戶名了嗎？忘記密碼？ 立即註冊 ExtendOffice 商品 OfficeTabKutoolsforExcelKutoolsforWordKutoolsforOutlook下載OfficeTabKutoolsforExcelKutoolsforWordKutoolsforOutlook如何安裝或卸載最終用戶許可協議購買 OfficeTabKutoolsforExcelKutoolsforWordKutoolsforOutlook資源庫 Excel的技巧和竅門Word的技巧和竅門Outlook的技巧和竅門Excel函數Excel公式Excel圖表Outlook教程技術支援在線教程 OfficeTabKutoolsforExcelKutoolsforWordKutoolsforOutlook新聞和更新 OfficeTabKutoolsforExcelKutoolsforWordKutoolsforOutlook搜索搜索更多關於我們我們的團隊用戶感言我們的客戶說得到幫助？ 檢索許可證丟失許可證？報告錯誤錯誤報告論壇在論壇中發帖聯絡我們通過電子郵件與我們聯繫語言 English日本語한국어PolskiRomânăРусскийSlovenščinaEspañolSvenskaไทยTürkçeУкраїнськаTiếngViệtCymraeg简体中文繁體中文FrançaisDeutschPortuguêsItalianoČeština‎DanskNederlandsالعربيةՀայերենΕλληνικάMagyarBahasaIndonesiaGaelige ExtendOffice Excel技巧 Excel函數 Excel公式 Excel圖表 單詞提示 Outlook提示 如何在Word中更改作者姓名以進行註釋 本文討論的是更改註釋的默認作者姓名，或將文檔中的現有作者姓名更改為新的作者姓名。

請嘗試以下兩種方法。

更改評論的作者姓名以備將來使用 更改文檔現有評論的作者姓名 更改評論的作者姓名以備將來使用 如果要更改註釋的作者名稱以供將來使用，請在“Word選項”窗口中更改“用戶名”。

1.在打開的Word文檔中，單擊文件>選項。

在Word選項“窗口，請確保您位於一般標籤，在用戶名對話框如下圖所示，最後單擊OK按鈕。

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

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

1.選擇包含註釋的範圍，或選擇整個文檔，然後按按Ctrl+A鍵，按其他+F11鍵打開MicrosoftVisualBasicforApplications窗口。

2.在開幕MicrosoftVisualBasicforApplications窗口中，單擊插入>模塊。

然後將下面的VBA代碼複製到“模塊”窗口中。

VBA代碼：更改現有評論的文檔作者姓名 SubChangeCommentAuthor() 'UpdatedbyEntendOffice20181112 DimIAsLong DimxNewNameAsString DimxShortNameAsString IfSelection.Comments.Count=0Then MsgBox"Nocommentsinyourselection!",vbInformation,"KuToolsforWord" ExitSub EndIf xNewName=InputBox("Newauthorname?","KuToolsforWord") xShortName=InputBox("Newauthorinitials?","KuToolsforWord") IfxNewName=""OrxShortName=""Then MsgBox"Theauthorname/initialscan’tbeempty.",vbInformation,"KutoolsforWord" ExitSub EndIf WithSelection ForI=1To.Comments.Count .Comments(I).Author=xNewName .Comments(I).Initial=xShortName NextI EndWith EndSub 3。

按F5鍵來運行代碼。

在開幕評論作者姓名對話框中，在文本框中輸入新的作者姓名，然後單擊OK按鈕。

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

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

推薦的Word生產力工具   KutoolsForWord-超過100種Word高級功能，節省50％的時間 複雜和重複的操作可以在幾秒鐘內完成一次處理。

跨文件夾一次將多個圖像插入Word文檔。

將文件夾中的多個Word文件合併並合併為所需順序。

根據標題，分節符或其他條件將當前文檔拆分為單獨的文檔。

在Doc和Docx之間，Docx和PDF之間轉換文件，用於常見轉換和選擇的工具集合等... 閱讀更多立即下載購買 最舊的 按評論排序 最舊的 最新的 留言(26) 還沒有評分。

成為第一位評論！ 瓦希特 大約3年前 #28124 網站主持人對此評論進行了最小化 Yardımıoldu,teşekkürler。

回复 賈科 大約3年前 #28533 網站主持人對此評論進行了最小化 VBA腳本完美地將作者的姓名更改為我的公司名稱。

謝謝！ 回复 橄 大約3年前 #29806 網站主持人對此評論進行了最小化 這是一個修改後的宏，它允許您首先指定要替換的名稱，以防有其他您不想修改的註釋。

子ChangeCommentAuthor() '由EntendOffice20181112更新 暗淡我只要 將xOldName調暗為字符串 將xNewName調暗為字符串 將xShortName調暗為字符串 如果Selection.Comments.Count=0那麼 MsgBox"您的選擇沒有評論！",vbInformation,"KuToolsforWord" 退出小組 如果結束 xOldName=InputBox("舊作者姓名？","KuToolsforWord") xNewName=InputBox("新作者姓名？","KuToolsforWord") xShortName=InputBox("新作者姓名縮寫？","KuToolsforWord") 如果xOldName=""或xNewName=""或xShortName=""那麼 MsgBox"作者姓名/首字母不能為空。

",vbInformation,"KutoolsforWord" 退出小組 如果結束 有選擇 對於I=1到.Comments.Count 如果.Comments(I).Author=xOldName那麼 .Comments(I).Author=xNewName .Comments(I).Initial=xShortName 如果結束 接下來我 結束 ENDSUB 回复 擔     橄 大約1年前 #29807 網站主持人對此評論進行了最小化 謝謝你，奧利維爾，你是個好人！ 回复 Уася     擔 大約3個月前 #38196 網站主持人對此評論進行了最小化 Исалатнеплох 回复 克勞德-安德烈     橄 大約3個月前 #38272 網站主持人對此評論進行了最小化 英國人 子ChangeCommentAuthor() '更新20220603 暗淡指數只要 將xOldName調暗為字符串 將xNewName調暗為字符串 將xShortName調暗為字符串 如果Selection.Comments.Count=0那麼 MsgBox"您的選擇沒有評論！",vbInformation,"KuToolsforWord" 退出小組 如果結束 xOldName=InputBox("舊作者姓名？","KuToolsforWord") xNewName=InputBox("新作者姓名？","KuToolsforWord") xShortName=InputBox("新作者姓名縮寫？","KuToolsforWord") 如果xNewName=""或xShortName=""那麼 MsgBox"作者姓名/首字母不能為空。

",vbInformation,"KutoolsforWord" 退出小組 如果結束 有選擇 對於索引=1到.Comments.Count 如果(.Comments(Index).Author=xOldName)那麼 .Comments(Index).Author=xNewName .Comments(Index).Initial=xShortName 如果結束 下一個索引 結束 ENDSUB 回复 落潮 大約2年前 #32509 網站主持人對此評論進行了最小化 非常感謝。

完美運行。

雖然是一個警告；無論有多位作者，所有評論都將被更改。

一些沒有打擾我的事情。

回复 巴巴克 大約2年前 #32515 網站主持人對此評論進行了最小化 感謝您的教程。

它真的幫助了我 回复 蓋蓋 大約2年前 #32667 網站主持人對此評論進行了最小化 這似乎有效，但我無法保存文件而不將其恢復為原始作者。

我的解決方法是將文件名上的.docx擴展名更改為.zip。

然後我打開了zip文件。

瀏覽到“word”文件夾，然後復制“comments.xml”文件。

在文本編輯器中打開“comments.xml”文件。

搜索並替換作者姓名，然後保存文件。

複製舊的“comments.xml”並將其替換為.zip文件中的新“comments.xml”。

現在將文件擴展名更改回.docx並且作者姓名現在已在保存的Word文件中替換。

回复 即時報告 VBA問題 大約1年前 #34039 網站主持人對此評論進行了最小化 謝謝！它完美地改變了評論，但沒有格式化，比如突出顯示。

VBA裡面有什麼可以修改的嗎？[email protected] 回复 玩笑 大約1年前 #34413 網站主持人對此評論進行了最小化 我非常感謝這些信息。

VBA代碼在我不希望作者知道審閱者是誰的文檔上完美運行。

謝謝。

回复 內紮爾 大約1年前 #35044 網站主持人對此評論進行了最小化 非常感謝，VBN代碼就像魔術一樣工作！！ 回复 辛西婭·艾倫 大約1年前 #35674 網站主持人對此評論進行了最小化 我按照指示更改了我的用戶名，但我的真實姓名仍然出現在評論中。

我試圖讓我的評論匿名，同時保留其他評論者的評論以及他們的名字。

回复 蘇萊曼·拉拉尼 大約1年前 #35977 網站主持人對此評論進行了最小化 那個VBA代碼就像一個魅力-謝謝！ 回复 克里斯 大約10個月前 #36405 網站主持人對此評論進行了最小化 完美運行，謝謝！ 回复 方德 大約10個月前 #36573 網站主持人對此評論進行了最小化 traductionenfrançais無法使用。

毀滅！ 回复 豐德 大約10個月前 #36574 網站主持人對此評論進行了最小化 由於鍵盤差異，法語翻譯使這項工作變得不可能 回复 吉 大約9個月前 #36696 網站主持人對此評論進行了最小化 哇！驚人的！非常感謝！  回复 Jeferson 大約8個月前 #36931 網站主持人對此評論進行了最小化 你好 Cettemacrofonctionnebien,maispouranonymiserl'auteurdesCorrectionsdansuntexte,ilfaudrait,enplusdel'auteurdescommentaires,pouvoirchangerlenomauniveaudemarquesderévision,etteln'estpaslecas。

Auriez-vousune解決方案？ Mercid'avance。

回复 喬治 大約8個月前 #37038 網站主持人對此評論進行了最小化 對於那些只想更改某些評論的作者的人使用存檔器（例如ZIP）打開您的文檔，轉到word文件夾，找到comments.xml文件，提取，用記事本打開，相應地編輯（ctrl+H查找和更改當前作者和您想要的首字母縮寫），保存，將文件返回到zip中的word文件夾，等等 回复 克勞德-安德烈     喬治 大約3個月前 #38271 網站主持人對此評論進行了最小化 Cetteastucenefonctionnepasavectouteslesversionsd'office 回复 伊麗莎貝塔 大約5個月前 #37714 網站主持人對此評論進行了最小化 太好了，工作得很好......謝謝 回复 塞布斯卡·加西亞 大約5個月前 #37733 網站主持人對此評論進行了最小化 這篇文章和評論中有很好的信息。

謝謝大家。

回复 即時報告 DL 大約1個月之前 #39287 網站主持人對此評論進行了最小化 MicrosoftistschoneinSchrott。

JeneuerdieVersionensind，umsowenigerfindetmandieLösung。

WoändereichschlichtwegdenAutorgrundsätzlich。

Beimirwirdnichtsgeändertundichsucheseitüber2Stunden...einfachnurSchrottdasUXvonMicroschrott 回复 這裡還沒有評論 載入更多 留下你的意見 以訪客身份發帖 登入 用戶名 密碼： 登錄到我的帳戶→ 名稱（必填） 電子郵件（必填） × 評價此帖子： 重設 0  字符 推薦地點 我同意附帶條約 取消 提交評論 商品 OfficeTabKutoolsforExcelKutoolsforWordKutoolsforOutlook下載OfficeTabKutoolsforExcelKutoolsforWordKutoolsforOutlook如何安裝或卸載最終用戶許可協議購買 OfficeTabKutoolsforExcelKutoolsforWordKutoolsforOutlook資源庫 Excel的技巧和竅門Word的技巧和竅門Outlook的技巧和竅門Excel函數Excel公式Excel圖表Outlook教程技術支援在線教程 OfficeTabKutoolsforExcelKutoolsforWordKutoolsforOutlook新聞和更新 OfficeTabKutoolsforExcelKutoolsforWordKutoolsforOutlook搜索搜索更多關於我們我們的團隊用戶感言我們的客戶說得到幫助？ 檢索許可證丟失許可證？報告錯誤錯誤報告論壇在論壇中發帖聯絡我們通過電子郵件與我們聯繫語言 English日本語한국어PolskiRomânăРусскийSlovenščinaEspañolSvenskaไทยTürkçeУкраїнськаTiếngViệtCymraeg简体中文繁體中文FrançaisDeutschPortuguêsItalianoČeština‎DanskNederlandsالعربيةՀայերենΕλληνικάMagyarBahasaIndonesiaGaelige 您現在正在登錄使用您的Facebook憑證