Skip to main content

How to accept format track changes only in Word document?

If you have a Word document which is in track changes mode, when you apply the Accept All Changes feature, all the track changes will be accepted. But, sometimes, you just want to accept the formatting track changes without accepting the insertions or deletions. This article will talk about how to solve this task in Word document.

Accept only formatting track changes in Word with VBA code

Accept only formatting track changes in Word with Show Markup function


Accept only formatting track changes in Word with VBA code

The following VBA code can help you to accept the formatting track changes only in Word document, please do as this:

1. Hold down the ALT + F11 keys to open the Microsoft Visual Basic for Applications window.

2. And then, click Insert > Module, copy and paste below code into the opened blank module:

VBA code: Accept format track changes only in Word document

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. And then press F5 key to run this code, and only the formatting track changes have been accepted in the active Word document immediately. See screenshot:

doc accept formatting 1


Accept only formatting track changes in Word with Show Markup function

In Word document, you can also apply the Show Markup function to finish this job, please do with following steps:

1. In the track changes mode file, click Review > Show Markup, and then uncheck the Comments and Insertions and Deletions options, and leave the Formatting option checked, see screenshot:

doc accept formatting 2

2. And now, you just can see the formatting tracked changes, then, go on clicking Review > Accept > Accept All Changes Shown as following screenshot shown:

doc accept formatting 3

3. And all the formatting track changes have been accepted, now, you need to return on the Comment, Insertions and Deletions options by checking them from the Show Markup drop down list, see screenshot:

doc accept formatting 4

4. Now, you can see the formatting track changes have been accepted, and other track changes are still kept, see screenshot:

doc accept formatting 1

Best Office Productivity Tools

Kutools for Word - Elevate Your Word Experience with Over 100 Remarkable Features!

🤖 Kutools AI Assistant: Transform your writing with AI - Generate Content  /  Rewrite Text  /  Summarize Documents  /  Inquire for Information based on Document, all within Word

📘 Document Mastery: Split Pages  /  Merge Documents  /  Export Selection in Various Formats (PDF/TXT/DOC/HTML...)  /  Batch Convert to PDF  /  Export Pages as Images  /  Print Multiple Files at once...

Contents Editing: Batch Find and Replace across Multiple Files  /  Resize All Pictures  /  Transpose Table Rows and Columns  /  Convert Table to Text...

🧹 Effortless Clean: Sweap away Extra Spaces  /  Section Breaks  /  All Headers  /  Text Boxes  /  Hyperlinks  /  For more removing tools, head to our Remove Group...

Creative Inserts: Insert Thousand Separators  /  Check Boxes  /  Radio Buttons  /  QR Code  /  Barcode  /  Diagonal Line Table  /  Equation Caption  /  Image Caption  /  Table Caption  /  Multiple Pictures  /  Discover more in the Insert Group...

🔍 Precision Selections: Pinpoint specific pages  /  tables  /  shapes  /  heading paragraphs  /  Enhance navigation with more Select features...

Star Enhancements: Navigate swiftly to any location  /  auto-insert repetitive text  /  seamlessly toggle between document windows  /  11 Conversion Tools...

👉 Want to try these features? Kutools for Word offers a 60-day free trial, with no limitations! 🚀
Free Download     Read More     Buy Now
 
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