|
|
|||||||
|
|
Thread Tools | Display Modes |
|
#2
02-16-2014, 04:08 PM
|
||||
|
||||
Try something based on:
Code:
Private Sub CommandButton1_Click()
Dim i As Long
With Me.LB1a
For i = 0 To .ListCount - 1
If .Selected(i) = True Then Selection.InsertAfter .Column(0, i) & vbCr
Next
End With
Application.ScreenRefresh
End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] 
|
| Tags |
| listbox, multiselect, wordvba |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
 Getting mult resps. selected in listbox to concatenate & paste at a bookmark in Word
|
marksm33 | Word VBA | 3 | 01-15-2015 05:59 PM |
| How to use an ActiveX Control to insert a multi select listbox in Word | marksm33 | Word | 2 | 01-29-2014 05:21 PM |
|
How to link userform to another word document
|
SaneMan | Word VBA | 5 | 10-14-2011 05:12 AM |
| [Word 2003] Macro's and a UserForm | xanuex | Word VBA | 0 | 10-19-2009 05:42 AM |
| Moving Items | windsurfer | Outlook | 0 | 12-06-2005 06:36 AM |
Windows 7 32bit 
Office 2010 32bit
Threaded Mode