跳到主要內容

如何僅在Word文檔中接受格式跟踪更改?

如果您的Word文檔處於曲目更改模式,則應用 接受所有更改 功能,所有曲目更改都會被接受。 但是,有時候,您只想接受格式軌道更改,而不接受插入或刪除。 本文將討論如何在Word文檔中解決此任務。

使用VBA代碼僅接受Word中的格式化軌道更改

使用顯示標記功能僅接受Word中的格式化軌道更改


使用VBA代碼僅接受Word中的格式化軌道更改

下面的VBA代碼可以幫助您僅在Word文檔中接受格式設置更改,請這樣做:

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

2。 然後,單擊 插入 > 模塊,將以下代碼複製並粘貼到打開的空白模塊中:

VBA代碼:僅在Word文檔中接受格式跟踪更改

Sub AcceptFormatChanges()
    Dim xRev As Revision
    For Each xRev In ActiveDocument.Revisions
        If Left(xRev.FormatDescription, 10) = "Formatted:" Then
            xRev.Accept
        End If
    Next
End Sub

3。 然後按 F5 鍵以運行此代碼,並且活動的Word文檔中僅接受了格式軌道更改。 看截圖:

doc接受格式1


使用顯示標記功能僅接受Word中的格式化軌道更改

在Word文檔中,您還可以應用 顯示標記 函數來完成這項工作,請執行以下步驟:

1。 在曲目更改模式文件中,單擊 回顧 > 顯示標記,然後取消選中 留言 插入和刪除 選項,然後離開 格式化 選項已選中,請參見屏幕截圖:

doc接受格式2

2。 現在,您可以看到格式跟踪的更改,然後繼續單擊 回顧 > 接受 > 接受顯示的所有更改 如下圖所示:

doc接受格式3

3。 並且所有格式化軌道的更改都已被接受,現在,您需要返回 評論, 插入和刪除 通過從中檢查選項 顯示標記 下拉列表,請參見屏幕截圖:

doc接受格式4

4。 現在,您可以看到格式化軌道更改已被接受,其他軌道更改仍保留,請參見屏幕截圖:

doc接受格式1

最佳辦公生產力工具

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

🤖 Kutools 人工智慧助手:用人工智慧改變你的寫作 - 生成內容  /  重寫文字  /  總結文件  /  查詢資料 基於文檔,全部在Word中

📘 文件掌握: 分頁  /  合併文件  /  以各種格式匯出選擇(PDF/TXT/DOC/HTML...)  /  批次轉換為PDF  /  將頁面匯出為圖像  /  一次列印多個文件...

內容編輯: 批量查找和替換 跨多個文件  /  調整所有圖片的大小  /  轉置表行和列  /  將表格轉換為文字...

🧹 輕鬆清潔: 移開 多餘的空間  /  分節符  /  所有標題  /  文本框  /  超鏈接  / 如需更多拆卸工具,請前往我們的 刪除組...

創意插入: 插入 千位分隔符  /  複選框  /  單選按鈕  /  QR Code  /  條碼  /  對角線表  /  公式標題  /  圖片說明  /  表格標題  /  多張圖片  / 發現更多 插入組...

🔍 精準選擇:精確定位 特定頁面  /    /  形狀  /  標題段落  / 增強導航功能 更多 選擇功能...

星級增強: 快速導航至任何位置  /  自動插入重複文字  /  在文檔視窗之間無縫切換  /  11 轉換工具...

???? 想嘗試這些功能嗎? Kutools for Word 提供了 60天免費試用,沒有任何限制! 🚀
 
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Vous êtes mon héros. En français, le code serait le suivant:

Sub AcceptFormatChanges()
Dim xRev As Revision
For Each xRev In ActiveDocument.Revisions
If Left(xRev.FormatDescription, 12) = "Mis en forme" Then
xRev.Accept
End If
Next
End Sub
This comment was minimized by the moderator on the site
Dans toutes les langues :

Sub AcceptFormatChanges()
Dim xRev As Revision
For Each xRev In ActiveDocument.Revisions
If xRev.FormatDescription <> "" Then
xRev.Accept
End If
Next
End Sub
This comment was minimized by the moderator on the site
Merci, en effet, la dernière méthode fonctionne aussi en néerlandais
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations