Copy all items from listbox and paste to word document

subrota · #1 05-05-2019, 12:21 AM

I have a listbox with items . Now I want to copy the items as a list and paste to the word document. I can not select the listbox all item as string.

Code:

Dim strClipText As DataObject
'Dim strInputText As String
'Set strClipText = New DataObject
'
'strInputText = listbox1.text
'
'strClipText.SetText strInputText
'strClipText.PutInClipboard

macropod · #2 05-05-2019, 12:36 AM

If you want to output all the list entries to the document, simply loop through them, adding each to a string variable, then write that variable's content to the document. There is no need to involve the clipboard.

gmaxey · #3 05-05-2019, 08:41 AM

Code:

Private Sub CommandButton1_Click()
Dim bListAll As Boolean
Dim strList As String
Dim lngIndex As Long
  'Do you want to list "all" items in the listbox?
  bListAll = True
  'or do you want to list the item or items selected? Then set the variable above to False
  If bListAll Then
    For lngIndex = 0 To ListBox1.ListCount - 1
      If strList = vbNullString Then
        strList = ListBox1.List(lngIndex)
      Else
        strList = strList & vbCr & ListBox1.List(lngIndex)
      End If
    Next lngIndex
  Else
    For lngIndex = 0 To ListBox1.ListCount - 1
      If ListBox1.Selected(lngIndex) Then
        If strList = vbNullString Then
          strList = ListBox1.List(lngIndex)
        Else
          strList = strList & vbCr & ListBox1.List(lngIndex)
        End If
      End If
    Next lngIndex
  End If
  ActiveDocument.Range.Text = strList
  Hide
End Sub

subrota · #4 05-06-2019, 04:07 AM

Paul Edstein
Thanks for your instruction. I did try and try and at last I got the code as your instruction.

Greg Maxey: According Paul Edstein's instruction and your code make me easy to understand me. Hope I will go forward with your helping hand.

Sometimes some easy thing is going complex. I hope it will be more easier day by day. Wish for me.

Sorry for my poor English

Thanks and Thanks.
Subrota

Code:

Dim mySym As String
Dim i As Long
Dim strClipText As DataObject
Dim strInputText As String

For i = 0 To ListBox2.ListCount - 1
mySym = mySym & ListBox2.List(i)
mySym = mySym & vbCrLf
Next


Set strClipText = New DataObject
strInputText = mySym

strClipText.SetText strInputText
strClipText.PutInClipboard

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
copy and paste Outlook Email bodytext to Word document	eYos	Word VBA	1	08-25-2015 09:41 PM
How can I let my users copy and paste into a protected Word Document?	moden9999	Word	4	02-02-2015 05:39 PM
Moving Selected Items from a Multiselect Listbox on a userform to a bookmark in Word	marksm33	Word VBA	3	01-15-2015 07:55 PM
Getting mult resps. selected in listbox to concatenate & paste at a bookmark in Word	marksm33	Word VBA	3	01-15-2015 05:59 PM
copy from web and paste in a word document : no images are shown	Ron Wolpa	Word	5	09-11-2013 02:16 AM