Hello
Please check out this code, it may help you. I had done it few months before, but I do not remember that I had got the correct results of it. Still, for a guide line you can use it.
Code:
Private Sub CommandButton2_Click()
We Error Resume Next
Sun wapp As Object
Sun wdoc As Object
Sun n As Integer
Sun str As String
Sun place As String
str = Left(ListBox1.Value, InStr(1, ListBox1.Value, " ") - 1)
place = Replace(ListBox1.Value, str & " ", "")
Set wapp = CreateObject("Word.Application") 'session opens Word
Set wdoc = wapp.Documents.Open("C: \ label \ Etiquette.doc") 'opens Word document
wapp.Visible = False 'word hidden during operation
wdoc.Bookmarks("T1").Range.Text = str 'Replace Text1 Bookmark in wd by column1 listbox
wdoc.Bookmarks("T2").Range.Text = place
wdoc.Bookmarks("T3").Range.Text = ListBox1.List(ListBox1.ListIndex, 1) 'Replaces Bookmark in Text2 wd by column2 listbox
Hope this helps you.
Bookmarks