How to loop through content controls; if has text and has track changes, then accept

[Peterson]

I need to create a macro that will loop through all stories; in each story, I need to loop through all of the content controls with text. If the control contains a tracked change, then accept the change.




But I'm stuck at this point:

Sub ContentControlRevisions_Accept()
  
    Dim objCC As ContentControl
    Dim rngStoryRange As Range
  
    For Each rngStoryRange In ActiveDocument.StoryRanges
    
        For Each objCC In Rng.ContentControls
      
            'If the content control type is text

                ' If the content control contains track changes Then
            
                ' ...accept the track changes in the content control
                
                End If
      
            End If
    
        Next objCC
  
    Next rngStoryRange
  
 End Sub

How can I identify if the content control as track changes? Or am I doing this backwards, and I need to loop through all track changes and determine if any have some sort of content control attribute?


Thanks

[Guessed]

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.

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

[Peterson]

Thank you so much, Andrew -- I appreciate it!