how to mass accept all formatting changes in word

#How to mass accept all formatting changes in word code#

Ran the Sub against the original template and worked fine still returned '' and accepted the change. FormatDescription BUT still accepted the change (in the test document). What I found was that the majority of the time that messagebox returned '' for the.

#How to mass accept all formatting changes in word code#

FormatDescription property and hence why there is some de-bugging code in there which I've commented out. I had an inkling that the error might lie with utilising the. '' MsgBox '' & RevisionAccepted & ': Revisions of a total ' & RevisionTotal & ' were Accepted.'Įnd SubBasic Select Case to determine if this document is New, I keep all previous changes to the original template so I can show what/where things have changes, and if so the Accecpt All.īoth NewBool and NewRevision as Public and delcare elsewhere. '' RevisionAccepted = RevisionAccepted + 1ĮlseIf Left(NewRevision.FormatDescription, 15) = 'Formatted Table' ThenĮlseIf Left(NewRevision.FormatDescription, 11) = 'Field Code:' Then Find all '' and color the text red (ff0000). To display comments changes, click the red line to the left of the document. Word will track changes to text and formatting. Begin typing anywhere in the document, making changes, deleting items, or adding parts. If you click the triangle to open the dropdown & select the Accept All Changes in Document. In Word, press the Review tab and select Track Changes to highlight it and turn it on. On the Review tab both the Delete button for Comments & the Accept/Reject buttons for Changes have triangles on their right edge.

Find all '' and color the text orange (ff8100). Comments are separate from Changes, so Yes, you can delete all of one but retain the others. If Left(NewRevision.FormatDescription, 10) = 'Formatted:' Then How can I automate a find & replace function to change the font colour of all suit symbols document wide I write bridge articles (card game), and I need to automate this formatting constantly: Find all '' and color the text green (00b700). '' MsgBox 'Revision Index: ' & vbNewLine & 'Revision Type: ' & NewRevision.FormatDescription & '' '' Dim RevisionTotal, RevisionAccepted As Integerįor Each NewRevision In ActiveDocument.Revisions

Code: Public Sub Test_Document_AcceptAll()