![]() |
|
|
Thread Tools | Display Modes |
#2
|
||||
|
||||
![]()
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 |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
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 |
![]() |
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 |