Accepting All Formatting Changes

Thanks for the response, Andrew. I am not using any such program or setting, at least to my knowledge. My collaborator and I use Teams to hold daily chat discussions, but we don't access the Word docs via Teams. We load Word/Office 365 separately.

Chris, you may have accidentally accepted all changes (unlikely), or you may possibly have a setting or program that accepts all changes in documents sent by email as a security measure. Do you have Workshare running by any chance?

Andy.

Hey there, Allen! I had a weird situation occur with a couple of shared documents (shared via OneDrive). I made extensive changes in the docs with tracking ON, so that my writing partner could review them. However, when she opened the documents, there were no revisions left to inspect; all my changes had been made as if I had tracking OFF when I made them. I'm sure tracking was on, though, and I remember seeing the proposed revisions still there when I reopened the document a few hours before my partner did.

Any idea how this could have happened?

Thanks,
Chris

Thanks so much for the tips. It helps a lot.

Ken,
Thank you so much. You are brilliant and wonderful.
Zvi

Zvi

The following macro will accept format changes for all of the document including headers, footers, endnotes and footnotes as well as in textboxes and textframes in shapes.

Sub AcceptFormatChanges2()
Dim rv As Revision
Dim stry As Range
Dim shp As Shape
On Error Resume Next
For Each stry In ActiveDocument.StoryRanges
For Each rv In stry.Revisions
If rv.FormatDescription <> "" Then rv.Accept
Next rv
For Each shp In stry.ShapeRange
With shp.TextFrame
If .HasText Then
For Each rv In .TextRange.Revisions
If rv.FormatDescription <> "" Then rv.Accept
Next rv
End If
End With
Next shp
Next stry
End Sub

Ken,
Your macro works great for changes in main document, but it ignores changes in footnotes and endnotes.
Would you be able to get it to work in the notes also?
Thanks so much in advance.
Zvi

Ken

Thanks so much

Zvi

Zvi, macro for you

Sub AcceptFormatChanges()
Dim rv As Revision
For Each rv In ActiveDocument.Revisions
If rv.FormatDescription <> "" Then rv.Accept
Next rv
End Sub

Anyone know how to do this using a macro?

This is really, really, really useful!

Great tip. Thank you for this resource!

Thank you! Wish I would have found this sooner.

Oh my goodness - this is amazing - thank you! The format changes have annoyed me for years. It has taken me so much time to individually go through each format change and press 'accept' whenever forwarding on a track changed document.

Just brilliant. You saved me a ton of time, very much appreciated.

Why can't all Internet tutorials be this clear?

Thank you! This has made my task much easier!

clear, concise and effective, thx

Ok so I just wowed my colleagues by doing this :D. Thank you!

This was the MOST helpful site. Quick, clear, step by step instructions. Thank you.

Life = Saved
Thank you!

Thank you so much. Excellent answer!!

Hello,

I have an existing word document that I have Tracking change on. I have formatted changes that are linked to a numbered titled and the Accept Format Change option is not available. It shows Accept Change and Reject Change of which neither of them do anything. The text box that shows the changes is stil there. Do you have any idea how to resolve?

Excellent tips and clear guidance. thanks a lot! it save a lot of precious time.

Thanks Allen - you saved me hours here.
J

John Samuel

The following macro will open each document in the directory of the active document, remove all comments and close the document.

Sub BulkRemoveComments()
Dim fl As String
Dim aComment As Comment
Dim mydir As String
mydir = ActiveDocument.Path
fl = Dir(mydir & "" & "*.docx")
Do While fl <> ""
Documents.Open (mydir & "" & fl)
For Each aComment In ActiveDocument.Comments
aComment.Delete
Next aComment
Documents(fl).Close SaveChanges:=wdSaveChanges
fl = Dir()
Loop
End Sub

If you want to also accept Track Change revisions then after the line Next aComment add the line:
If ActiveDocument.Revisions.Count > 0 Then ActiveDocument.Revisions.AcceptAll

I have about 40-50 Word documents (.docx in Word 2010) all of which have review comments. I want to bulk accept all the comments in all the documents, without having to open the documents at all. Is that possible?

The closest that I have got a solution is to press Alt+R+A+D which is the keyboard shortcut to accept all comments in the document. But this still requires opening each document.

Any help is appreciated :)

Thank you.
have good time.

Greatly appreciated!

Thank you! This really saved my bacon!

regarding the note below that I left. I tried accepting one-at-time which worked, so I tried to accept all displayed changes and now it works. Thanks for your help! :)

when I do this (and I have done it many times in other documents) there is no affect. The format change indications remain as is.

saved me more time for goofing off!

Thanks a million! :-)

Amazing, thank you very much!

Thank you for the tip--it's awesome because about a hundred formatting changes were noted after about a dozen edits to some structured text in the document!

THANK YOU!!! This is a huge timesaver!

thank you soo much!!

Wow! That really helped - and explained so clearly and dummy-proofly.
Thank you very much Allen.

Great tip!

Thank you, this saved me a lot of right-clicking down through a document that had a lot of those pesky formatting changes! I've shared this tip with my colleagues :-)

Thanks for such simple, but so useful info!
Because there are a lot of formatting changes occur when you save a document with different languages and table in it.

Very useful tip!

I'm trying to accept changes in a document however each time I save, when I reopen it, all the changes are showing up again! What am I doing wong?? HELP!! Thanks, Anita

This helped tremendously. Thank you!

That was brilliant. Thanks!

THANK YOU!

Thank you for the useful tip :)

Thanks for this tip - This made things look a bit cleaner while I was giving feedback.

Thanks you so much, saves me a lot of time.

THANK YOU!!! Accepting all of the formatting changes in this document will make my life so much easier. I knew how to turn it off when you start, but my partners won't take this step for me.

Thanks!!!!