Sub ContentControlsRemove()
' Paul Beverley - Version 27.03.26
' Removes all content controls

myTrack = ActiveDocument.TrackRevisions
ActiveDocument.TrackRevisions = False
For i = ActiveDocument.ContentControls.Count To 1 Step -1
  ActiveDocument.ContentControls(i).Delete
Next i
ActiveDocument.TrackRevisions = myTrack
End Sub