Extract/Export Drop Down List or Combo box Values from Use..

I was given a protected word forms which was built by a colleague who no
longer with the company. I am not sure how it was built, but when ran Visual
Basic (Alt + F11) on form, there was no code shows on VB editor, so I presume
it was built by toolbar form control.

Please help, if anyone have any idea on how to extract or export the
values/items of a Drop Down List and Combo Box to .txt or .xls? I can see the
values when right click on control's property, so in another words, at the
last, I would manually retype them. However my assignment is to redo the
whole form library, which contains approx 50 forms, each form has roughly
10-15 controls, and each control contains over dozen of list items...

Any help would be appreciated. Thank you.

The following code will cause each of the entries in a dropdown formfield to
be displayed in a message box

Dim i As Long
With ActiveDocument.FormFields("DropDown1").DropDown
For i = 1 To .ListEntries.Count
MsgBox .ListEntries(i).Name
Next i
End With

You could use that method in a modification of the code in the article "Find
& ReplaceAll on a batch of documents in the same folder" at:

http://www.word.mvps.org/FAQs/MacrosVBA/BatchFR.htm

To go through each file and extract the entries into another document.
--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"MSDN User - a rather VBA newbie" <MSDN User - a rather VBA newbie
@discussions.microsoft.com> wrote in message
news:B5E02239-EEBB-4FAD-89AD-871D84C38B69@microsoft.com...
>I was given a protected word forms which was built by a colleague who no
> longer with the company. I am not sure how it was built, but when ran
> Visual
> Basic (Alt + F11) on form, there was no code shows on VB editor, so I
> presume
> it was built by toolbar form control.
>
> Please help, if anyone have any idea on how to extract or export the
> values/items of a Drop Down List and Combo Box to .txt or .xls? I can see
> the
> values when right click on control's property, so in another words, at the
> last, I would manually retype them. However my assignment is to redo the
> whole form library, which contains approx 50 forms, each form has roughly
> 10-15 controls, and each control contains over dozen of list items...
>
> Any help would be appreciated. Thank you.
>
>