Fra listbox til word!

Jeg har et program der henter data fra acces til exel via en listbox..hvor en ens valg så bliver skrevet i regnearket,men nu vil jeg også gerne bruge det samme program i word..Det går også fint med at få lagt data i listboxen, men så er det lige med at skrive dem til worddoc.
Jeg prøver at vedlægge lidt af programmet!

Går fint!!
If Not objRs.EOF Then
        A = objRs
UserForm1.ListBox1.ColumnCount = 5
UserForm1.ListBox1.Clear
    If Not objRs.EOF Then
  i = 0
  Do While Not objRs.EOF
        With objRs
    UserForm1.ListBox1.AddItem objRs("Kundenr")
    UserForm1.ListBox1.List(i, 1) = objRs("Navn1")
    UserForm1.ListBox1.List(i, 2) = objRs("Navn2")
    UserForm1.ListBox1.List(i, 3) = objRs("adresse")
    UserForm1.ListBox1.List(i, 4) = objRs("postby")
       
        i = i + 1
        .MoveNext
      End With
    Loop
    UserForm1.Show

    Knap så godt: skulle gerne indsættes i et worddoc.!!
Private Sub CommandButton1_Click()
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
For A = 0 To 4
Cells(A + 1, 1) = ListBox1.List(i, A)
Next
End If
Next

End Sub