loading Word combo box without VBA

Re: loading Word combo box without VBA

What type of combobox is it?

Re: loading Word combo box without VBA

I'm not sure what you want to do,
but I think you have to use the drop down form field for this.

VIEW - TOOLBARS - FORMS - drop down field

Then you can add the fields you want to select.
Hope this is what you seek.

Gollem

Re: loading Word combo box without VBA

Hi, to use the drop down field you have to exit the design mode and lock the form controls:

Add items to a drop-down list form field
Open the template that contains the form you want to change.

Remove protection from the form template by clicking Protect Form on the Forms toolbar.
Double-click the drop-down form field you want to change.
In the Drop-down item box, type the item.
Click Add.
Click OK.
Protect the form by clicking Protect Form on the Forms toolbar.
Note The first item in the Items in drop-down list box is the one that appears by default in the drop-down list. To move the most frequently selected item to the first position, use the Move arrow buttons.

=> After protecting, you cannot type anymore I've noticed, so I don't know if this is a solution for your problem. You can add textboxes to solve that problem, but I don't know if it's enough.

Gollem

Re: loading Word combo box without VBA

I'll take a look at it to populate with access table or from an excel range.
Acces => with ADO and Excel range with an excel object.

I'll post back to you

Re: loading Word combo box without VBA

Ok, here's an example of filling a combobox with an excel range:

Dim objExcel        As Object
    Dim lngRow          As Long
    
    Set objExcel = CreateObject("Excel.application")
    objExcel.workbooks.Open "c:\tmp\list.xls"
    objExcel.Visible = True
    
    cboExcel.Clear
    lngRow = 2 'Start reading on row 2
    Do While objExcel.activesheet.Cells(lngRow, 1).Value <> ""
        cboExcel.AddItem objExcel.activesheet.Cells(lngRow, 1).Value
        lngRow = lngRow + 1
    Loop
    objExcel.Quit
    Set objExcel = Nothing

Copy the list.xls file in the correct dir and execute the word-doc(press the button).

Gollem

Re: loading Word combo box without VBA

Here's the access example:

Dim cnn     As Object
    Dim rst     As Object
    
    Set cnn = CreateObject("ADODB.connection")
    Set rst = CreateObject("ADODB.recordset")
    
    cnn.provider = "Microsoft.jet.oledb.4.0" 'Access 2000
    cnn.connectionstring = "c:\tmp\List.mdb"
    cnn.Open
    
    cboAccess.Clear
    rst.Open "select * from tblValue", cnn, 2, 3  ' =>adopendynamic, adlockoptimistic
    Do While rst.EOF = False
        cboAccess.AddItem rst.Fields!Value
        rst.movenext
    Loop
    
    rst.Close
    Set rst = Nothing
    cnn.Close
    Set cnn = Nothing

Copy the access db in the correct dir(see next post).

Gollem

Re: loading Word combo box without VBA

Here's the DB, had to zip it...

Re: loading Word combo box without VBA

Ask a Microsoft Word Question

Hi,
I already have a microsoft word 2007 template made up as an editable document. I want to have one section contain three separate combo boxes that will be populated with varying items from a drp down list. These items will be locked so only one from each box can be chosen. The problem I have is that I can't figure out how to do this and yet still allow the rest of the template to be unprotected and therefore editable by the user.

I am not experienced in VBA, and I am hoping that another solution might be available

Thank you in advance. I hope you can find a solution for me
Regards

Terry