As a starting point, document level events like
Code:
Private Sub Document_ContentControlOnExit(ByVal CCtrl As ContentControl, Cancel As Boolean)
should be in the ThisDocument module. They will not work from a standard module. I have not tested your code beyond establishing that it doesn't compile because you have an extra 'End With' line and a missing 'Next' line.