Accepting track changes via macro skips last paragraph mark, but not when accepting via Review menu

[Peterson]

I periodically see documents, all with track changes turned on, that have styles applied to the final paragraph mark, shown as revisions. When I click Review > Accept > Accept All Changes, the formatting change associated with the last paragraph in the document is accepted; however, when I run a macro to achieve the same thing, the revision remains. (All other revisions in the document are accepted.)

Sub WhyIsntThisDoingTheSameThingAsViaTheReviewMenu()
      ActiveDocument.AcceptAllRevisions
  End Sub

I tested three files, all based on different templates (one of which is based on a "pure," default Word template). Two of the three files (attached) failed to have these last-paragraph revisions cleared when running the macro. Why does the macro not work on the last paragraph mark, or, put another way, how can I force it to work on that final mark?




Thanks

[Peterson]

Bringing this back from the dead - hoping someone can shed some light on this, as I never figured this out and would love to be able to loop through dozens of files at a time and accept all revisions, regardless of whether there are revisions in the last paragraph. Thanks!

[Guessed]

Just in time for the zombie apocalypse...

Since the built-in command works, you could use that in your code instead

Application.CommandBars.ExecuteMso ("AcceptAllChangesInDocAndStopTracking")

[Peterson]

Ha, yes, the impending zombie apocalypse!

Thank you, Andrew, for the solution!

Incidentally, I also need to leave track changes turned on in these docs I'm looping through, so, in case someone else finds this post and has a similar need, I ended up going with this:

Application.CommandBars.ExecuteMso ("ReviewAcceptAllChangesInDocument")

...having just learned that you can find out the built-in command name via customizing the Quick Access Toolbar and hovering over the item in the list (after discovering that "AcceptAllChangesInDoc" doesn't work; so much for consistency...).