Charles,
Again, if the CCs are mapped it is a simple matter of:
Code:
Private Sub Document_ContentControlBeforeStoreUpdate(ByVal ContentControl As ContentControl, Content As String)
Select Case ContentControl.Type
Case 3, 4: Msgbox Content
End Select
End Sub