Combobox with For next Loop

[Steven Cheng]

sorry, i am not very good with VBA but I think this is possible. I want to
populate all comboboxes in a word document with the same options but do not
want to check for how many of them...I tried something like this...

Private Sub Document_Open()
dim cmb as combobox

For each cmb in ThisDocument
cmb.additem ""
cmb.additem 1
cmb.additem 2
cmb.additem 3
next
End Sub

I am getting an Object required error message on the ThisDocument statement
probably because I am not referencing the set of comboboxes in the
collection. However, Comboboxes OR Objects are not showing up as a valid
option.
can someone help me here. Thanks.

 

[Jezebel]

Comboboxes are OLE controls. These are in the Shapes collection; but there
are many other things that might be in that collection also. So you need to
iterate the collection and check the type of each member --

Dim pShape as Word.Shape

For each pShape in ActiveDocument.Shapes
if pShape.Type = msoOLEControlObject then 'It's a control
if pShape.OLEFormat.ClassType = "Forms.ComboBox.1" then
'It's a combobox
:

 

[Steven Cheng]

thanks Jezebel. works great.

Comboboxes are OLE controls. These are in the Shapes collection; but there
are many other things that might be in that collection also. So you need to
iterate the collection and check the type of each member --

Dim pShape as Word.Shape

For each pShape in ActiveDocument.Shapes
if pShape.Type = msoOLEControlObject then 'It's a control
if pShape.OLEFormat.ClassType = "Forms.ComboBox.1" then
'It's a combobox
: