Attached is a sample doc with code in the ThisDocument module. This is using Content Controls and macros to produce the list from check boxes.
The code I used is
Code:
Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Dim aCC As ContentControl, aCCnest As ContentControl, sEndorsements As String
If ContentControl.Tag = "Update" Then
For Each aCCnest In ActiveDocument.SelectContentControlsByTitle("Endorsements Picker")(1).Range.ContentControls
If aCCnest.Checked Then sEndorsements = sEndorsements & aCCnest.Title & vbCr
Next aCCnest
ActiveDocument.SelectContentControlsByTitle("Endorsements")(1).Range.Text = sEndorsements
End If
End Sub