View Single Post
 
Old 08-05-2015, 04:07 PM
Guessed's Avatar
Guessed Guessed is offline Windows 7 32bit Office 2010 32bit
Expert
 
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 4,159
Guessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant future
Default

To populate the userform combobox with the values from a document Content Control I would try code similar to the following.
Code:
Private Sub UserForm_Initialize()
  Dim i As Integer
  With ActiveDocument.ContentControls(1).DropdownListEntries
    For i = 1 To .Count
      Me.cbTest.AddItem .Item(i).Text
    Next i
  End With
End Sub
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote