Content controls and ActiveX controls lists can be populated using an array. The following code populates the a selected cc dropdown list:
Code:
Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim arrItems() As String
Dim lngIndex As Long
arrItems = Split("Item1|Item2|Item3", "|")
For lngIndex = 0 To UBound(arrItems)
Selection.Range.ContentControls(1).DropdownListEntries.Add arrItems(lngIndex), arrItems(lngIndex)
Next lngIndex
End Sub