Listbox Strings to word

[esperanto234]

Hi, Im using alistbox to insert names in a word document, im' using the following code but it only inserts the first ITEM on the list.


Code:

Dim strList1 As String
strList1 = ListBox1.List(ListBox1.ListIndex)
ActiveDocument.Bookmarks("p91").Range.Text = strList1

My question is: How can i do to insert ALL items in the listbox in word. I need them to be separated by comas and the last one by "and". Ex:

ITEM1, ITEM2, ITEM3 and ITEM4.

ITEM1, ITEM2 and ITEM3.

ITEM1, ITEM2 and ITEM5.


Of course, if theres only 1 item i need the "and" to be deleted. Ex:

ITEM1

THANK YOU VERY VEERY MUCH!!

[Frinavale]

Are you inserting all of the the items every time or just selected items?

Regardless, you need to loop through the ListBoxes's Items.

I'm not sure if you're using VB.NET or VB6...but here's what you'd do in VB.NET:

Dim str As New StringBuilder()
 
For i As Integer =0 To ListBox1.Items.Count - 1
  Dim li = ListBox1.Items(i)
  If str.Length > 0 And i < ListBox1.Items.Count - 2 Then
    str.Append(", ")
  Else If i = ListBox1.Items.Count - 2 Then
    str.Append("And ")
  End If
  str.Append(li.ToString())
Next
 

[esperanto234]

@Frinavale


HI, THANKS FOR THE REPLY
Here's what i have

Dim str1 As String
   Dim i As Integer
   Dim s As String
 
   With ListBox1
       For i = 0 To .ListCount - 1
           str1 = str1 & s & .List(i)
           s = ", "
           If i = .ListCount - 2 Then s = " y "
       Next i
 
       Debug.Print str1
   End With
ActiveDocument.Bookmarks("p91").Range.Text = str1

It works OK, The thing is i want to insert only the selected items (im using a listbox with checkboxes). Please Help Me...

[Frinavale]

Then loop through the SelectedItems instead... what language are you using? VB6 or VB.NET?

[esperanto234]

@Frinavale

Thaks, im using vb6, i need to insert only items that are checked. Could you please send me the code? thanks

[Frinavale]

I'm sorry, you had posted your question in the "introductions" forum and I wasn't sure what language you were using so my advise so far to you is probably not going to work. I've moved your question to the VB6 where it's more likely that you'll actually get help with the problem.

Happy coding!

-Frinny

[kadghar]

@esperanto234
Yes sir!! Ô_o


Just write an IF inside the loop

For i = 0 to MyList.ListCount-1
If MyList.Selected(i) then 'Your code for writing it somewhere
Next

HTH