Populate Pulldown list with Macro

[Samedy]

I have about 40 names to add to a pulldown list (content controls, ActiveX) in a word document. This happens regularly enough that I would really appreciate a macro that will do this for me.

Previously I had a macro that would do this for me..

Before I would paste the names in a word document, separated with carriage return, I would run the macro from a documents and it would populate the pulldown list with the names in the document..

Unfortunately, I have exhausted my search abilities and cannot find that macro (having switched computers, I have lost all my previous macros..).

[gmaxey]

Content controls and ActiveX controls lists can be populated using an array. The following code populates the a selected cc dropdown list:

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