Hi =?Utf-8?B?SE1B?=,
These values just need to be printed so they can be added to a new
application. It doesn't matter what they look like as long as we get the
lists. I'm in word 2003. Thanks,
Hillary
OK, see if this does more or less what you need:
Sub ExtractListsFromDropdowns()
Dim docList As Word.Document
Dim docForm As Word.Document
Dim ffld As Word.FormField
Dim listEntry As String
Dim e As Word.listEntry
Set docForm = ActiveDocument
Set docList = Documents.Add
For Each ffld In docForm.FormFields
If ffld.DropDown.Valid Then
listEntry = listEntry & vbCr & ffld.Name & vbCr
For Each e In ffld.DropDown.ListEntries
listEntry = listEntry & vbTab & e.Name & vbCr
Next
End If
Next
docList.content.Text = listEntry
End Sub
Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 17 2005)
http://www.word.mvps.org
This reply is posted in the Newsgroup; please post any follow question or reply
in the newsgroup and not by e-mail