Listbox to select field name from data

JamesWood · #1 05-17-2021, 02:31 AM

Hi guys

I'd like to create a form/listbox in Word that displays all the headings from a data source currently loaded for a mail merge, and then I can click and select one (which it will actually then use as a string, but irrelevant for this post).

Please see the attached image. Any thoughts?? Would really help a ton.

Thanks a lot!

James

gmayor · #2 05-17-2021, 04:06 AM

Do you mean like

Code:

Private Sub UserForm_Initialize()
Dim lngFld As Long
    With ActiveDocument.MailMerge.DataSource
        ListBox1.Clear
        For lngFld = 1 To .FieldNames.Count
            ListBox1.AddItem .FieldNames(lngFld)
        Next
    End With
End Sub

JamesWood · #3 05-17-2021, 06:15 AM

Quote:

Originally Posted by gmayor

Do you mean like

Code:

Private Sub UserForm_Initialize()
Dim lngFld As Long
    With ActiveDocument.MailMerge.DataSource
        ListBox1.Clear
        For lngFld = 1 To .FieldNames.Count
            ListBox1.AddItem .FieldNames(lngFld)
        Next
    End With
End Sub

Amazing! Thanks so much!!!

JamesWood · #4 05-25-2021, 07:39 AM

Quote:

Originally Posted by gmayor

Do you mean like

Code:

Private Sub UserForm_Initialize()
Dim lngFld As Long
    With ActiveDocument.MailMerge.DataSource
        ListBox1.Clear
        For lngFld = 1 To .FieldNames.Count
            ListBox1.AddItem .FieldNames(lngFld)
        Next
    End With
End Sub

So I'm wondering how I can store one of the fields as a string. So basically on the listbox, I click on the desired field name, then when I click OK it stores that field name as a string. Any thoughts please? Thanks so much

JamesWood · #5 05-25-2021, 08:21 AM

Actually I managed to make a string from the selected listbox field

' Make a string from the selected listbox field
For var = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(var) = True Then
docNameField = docNameField & ListBox1.List(var) _
& vbCrLf
End If
Next

I'm not sure why I'm getting this error though:

"The requested member of the collection does not exist"

On this line of code:

strDocName = ActiveDocument.MailMerge.DataSource.DataFields(doc NameField).Value & ".pdf"

Thoughts? It's getting stuck at the docNameField part I think but I don't know why.

JamesWood · #6 05-25-2021, 02:42 PM

No worries I figured it out

Thanks

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Yet another Multi-Select Listbox in Userform question	Javir	Word VBA	4	09-24-2019 01:01 AM
How to filter data before it is pulled into combobox/listbox AND remove data from listbox	Izzii0x	Excel Programming	8	05-24-2019 07:25 AM
Add-In creates ListBox from XLS, but data not saved in ppt	barbet	PowerPoint	0	05-26-2016 02:30 AM
How to use an ActiveX Control to insert a multi select listbox in Word	marksm33	Word	2	01-29-2014 05:21 PM
Multi-select listbox help	gvibe@hotmail.com	Word VBA	1	07-19-2013 10:54 AM