Populate paragraphs in document based on Userform Checkboxes

[gmaxey]

Private Sub CommandButton1_Click()
Dim oTmp As Template
Dim oCC As ContentControl
Dim oRng As Range
  'Set oCC = ActiveDocument.SelectContentControlsByTitle("ccTIFI").Item(1)
  Select Case True
    Case CheckBox1 And CheckBox2
      
    Case CheckBox2 And CheckBox3
      
    Case CheckBox1 And CheckBox3
      
  End Select
End Sub