Regarding #2. Often a document content control itself can serve as a pseudo external source for populating a userform listbox.


Private Sub UserForm_Initialize()
Dim lngIndex As Long
For lngIndex = 2 To ActiveDocument.SelectContentControlsByTitle("Lette r").Item(1).DropdownListEntries.Count
ListBox1.AddItem ActiveDocument.SelectContentControlsByTitle("Lette r").Item(1).DropdownListEntries(lngIndex).Text
Next
End Sub

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/