Simple? I doubt it... but you'll have to tell us more about what you want to
do.

- Do all the comboboxes need to have the same list of entries, or are they
all different?
- If they're different, where is the data coming from? Will it be hard-coded
in the macro as it is in the one below, or taken from some other source?
- Do you need to save the selections and restore them on reopening the
document?

As pointed out in another branch of this thread, you may want to look at the
AutoTextList field (http://word.mvps.org/FAQs/TblsFldsFms/AutoTextList.htm)
as a simpler alternative.

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org

DanG wrote:
hi Jay - i just made a post with a similar question to Jinnys - that
I think you may have answered below - the only thing is - if I have
50 combo boxes is there a simple code that will run on opening and
populate all the combo boxes?

"Jay Freedman" wrote:

Hi Jinny,

The code you have will load the items into the combobox. The problem
you have is that the code isn't running each time you reopen the
document. Saving the document when the items are loaded into the
combobox does *not* save the items in place -- the box has to be
reloaded every time.

To make this work, you need two more macros in the same template.
These macros must have the special names AutoNew() and AutoOpen().
The first one runs automatically when someone uses File New to
create a document based on the template, and the second one runs
each time one of those documents is reopened. Each of the macros
needs to call TitleList:

Public Sub AutoNew()
TitleList
End Sub

Public Sub AutoOpen()
TitleList
End Sub

Another thing that may cause you grief is that TitleList contains the
line ".ListIndex = -1", which causes the combobox to start with a
blank display (nothing selected). I can guess that when you make an
entry, save and close, and reopen, you want the combobox to display
the same selection. In the current circumstances that won't happen.

To change this takes several steps. You have to save the selection so
it can be restored on reopening. These macros go in a regular module
(use Insert Module in the VBA editor):

Public Sub AutoNew()
TitleList
ThisDocument.ComboBox1.ListIndex = -1
End Sub

Public Sub AutoOpen()
On Error Resume Next
TitleList
ThisDocument.ComboBox1.ListIndex = _
ActiveDocument.Variables("TitleItem").Value
End Sub

Private Sub TitleList()
With ThisDocument.ComboBox1
.Clear
.AddItem "Mr"
.AddItem "Mrs"
.AddItem "Miss"
.AddItem "Unknown"
End With
End Sub

This macro goes in the ThisDocument module:

Private Sub ComboBox1_Change()
ActiveDocument.Variables("TitleItem").Value = _
ComboBox1.ListIndex
End Sub

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org

On Sun, 22 May 2005 18:15:01 -0700, "Jinny"
wrote:

Whilst I can appreciate some of the answers that are provided to
similar questions already posted, they are provided in such a
technical way that they are of little use to an everyday user.
Please is there not a simple way to explain how to create a drop
down list within word for text options only. I am able to create
the list of choices in VB, but when I save and return to the word
document, the choices are not visible. I have attached a small
sample Private Sub TitleList() With ComboBox1
.Clear
.AddItem "Mr"
.AddItem "Mrs"
.AddItem "Miss"
.AddItem "Unknown"
.ListIndex = -1
End With
End Sub