View Single Post
 
Old 07-28-2020, 05:55 PM
Guessed's Avatar
Guessed Guessed is offline Windows 10 Office 2016
Expert
 
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 3,932
Guessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant future
Default

Don't overthink it if you are going to accept them all anyway. Accepting revisions when there are no revisions is faster than testing to see if there are revisions before accepting.
Code:
Sub AcceptCCTracks()
  Dim aCC As ContentControl, aRng As Range
  For Each aRng In ActiveDocument.StoryRanges
    For Each aCC In aRng.ContentControls
      aCC.Range.Revisions.AcceptAll
    Next aCC
  Next aRng
End Sub
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote