Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
  Select Case ContentControl.Title
    Case "DDL"
      ContentControl.Type = 0
      Select Case ContentControl.Range.Text
        Case "SAS": InsertBB_atRTCC_Range "DDL", "SAS"
        Case "A": InsertBB_atRTCC_Range "DDL", "Text1"
        Case "B": InsertBB_atRTCC_Range "DDL", "Text2"
        Case "C": InsertBB_atRTCC_Range "DDL", "Text3"
        Case "D": InsertBB_atRTCC_Range "DDL", "Text4"
        Case Else: InsertBB_atRTCC_Range "DDL"
      End Select
      ContentControl.Type = 4
  End Select
lbl_Exit:
  Exit Sub
End Sub

Sub InsertBB_atRTCC_Range(CCTitle As String, Optional BBName As String = vbNullString)
Dim oTmp As Template
Dim oRng As Range
  Set oTmp = ThisDocument.AttachedTemplate
  Set oRng = ActiveDocument.SelectContentControlsByTitle(CCTitle).Item(1).Range
  If Not BBName = vbNullString Then
    oTmp.BuildingBlockEntries(BBName).Insert oRng, True
  Else
    oRng.Text = vbNullString
  End If
lbl_Exit:
  Exit Sub
End Sub