Skip to main content

Kutools for Office — 一套工具,五種功能。完成更多工作。

如何在接受Word文檔中特定一位用戶的修訂?

Author Xiaoyang Last modified

假設您有一個由多人審閱過的Word文檔,如下方截圖所示。現在,您只需要接受來自某個特定人的修訂。該如何在Word文檔中完成這個任務呢?

Document with changes made by different people

接受Word中來自某個特定用戶的修訂

使用VBA代碼接受來自某個特定用戶的修訂


接受Word中來自某個特定用戶的修訂

要僅接受來自一個用戶的修訂,Word中的「顯示標記」功能可以幫助您,請按照以下步驟操作:

1. 打開包含修訂的Word文件,然後點擊「審閱」>「 顯示標記」>「特定人員」,然後取消勾選「所有審閱者」以隱藏所有審閱,參見截圖:

All Reviewers checked on the Specific People dropdown

2. 接著,繼續點擊「顯示標記」>「特定人員」,然後勾選您想要接受其修訂的一位審閱者,參見截圖:

Specific person selected from the Specific People dropdown

3. 然後,點擊「接受」>「接受所有顯示的更改」,參見截圖:

Accept All Changes Shown option on the Accept dropdown

4. 現在,只有來自這個特定人的修訂已被接受,參見截圖:

Track changes from this specific person are accepted

5. 最後,您應該顯示其他審閱者的修訂,請點擊「顯示標記」>「特定人員」,並勾選「所有審閱者」,如下方截圖所示:

All Reviewers checked on the Specific People dropdown


使用VBA代碼接受來自某個特定用戶的修訂

如果上述方法對您來說有些麻煩,這裡有一個簡單的VBA代碼也可以幫到您,請按照以下步驟操作:

1. 按住ALT + F11鍵打開Microsoft Visual Basic for Applications窗口。

2. 點擊 「插入」 >「模塊」,並將以下宏粘貼到模塊窗口中。

VBA代碼:接受來自某個用戶的修訂:

Sub Acceptoneuser()
    For Each xChange In ActiveDocument.Revisions
        If xChange.Author = "RubyMie" Then
            xChange.Accept
        End If
    Next
End Sub

注意:在上述代碼中,您應根據需要將用戶名「RubyMie」更改為您的名字。

3. 然後,按F5鍵運行此代碼,並且只有您在代碼中指定的審閱者的修訂會被接受,參見截圖:

Only the track changes from the reviewer you specified in the code are accepted

最佳辦公效率工具

Kutools for Word -透過超過 100 項卓越功能,提升您的 Word 使用體驗!

🤖 Kutools AI FeaturesAI AssistantReal-Time AssistantSuper Polish(保留格式)Super Translate(保留格式)AI RedactionAI Proofread...

📘 文件掌握分割頁面文檔合併區域導出成各種格式(PDF/TXT/DOC/HTML...)批量轉換為 PDF...

正文編輯批量查找與替換多個文件批量調整所有圖片大小翻轉表格的行與列表格轉文本...

🧹 輕鬆清理:快速清除多餘空格分節符文字框超連結/更多清除工具請前往刪除工具組...

創意插入:插入千位分隔符複選框選項按鈕二維碼條形碼批量插入圖片/還有更多精彩功能在插入工具組...

🔍 精確選擇:精確定位特定頁面表格形狀標題段落/使用更多 選擇 功能提升導航效率...

亮點增強導航至任何區域自動插入重複文字切換文檔窗口11 轉換工具...

🌍 支援40+種語言:可用 Kutools於您偏好語言環境——支援英語、西班牙語、德語、法語、中文以及超過40種語言!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 想立即體驗這些功能嗎?立即下載 Kutools for Word!🚀
 

✨ Kutools for Office——一次安裝,五大強力工具!

包含 Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint

📦 五大工具一次全擁有 | 🔗 與 Microsoft Office 無縫整合 | ⚡ 即刻省時提高工作效率

最佳辦公效率工具

Kutools for Word - 100+ 款 Word 工具