Populating content controls is easy enough, either
Code:
Dim oCC As ContentControl
Set oCC = ActiveDocument.SelectContentControlsByTitle("title of control").Item(1).Range.Text = whatever
or
Code:
Dim oCC As ContentControl
For Each oCC In ActiveDocument.ContentControls
If oCC.TITLE = "title of control" Then
oCC.Range.Text = whatever
End If
Next oCC
The first will produce an error if there is no such named control.
You may find
Insert Content Control Add-In useful