You might use code along the lines of:
Code:
Private Sub CommandButton1_Click()
Dim i As Long, StrOut As String
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) Then
StrOut = StrOut & Me.ListBox1.List(i) & vbCr
End If
Next i
MsgBox StrOut
End Sub
As coded, the selections are simply reported in a message box. Presumably, you'll want to populate a bookmark, table cell, content control or something else but, without knowing exactly how you've defined the destination(s) in the document, only a generic guide can be given.