Tilføje kontaktpersoner fra excel til word-formes

Ja - det skulle kunne lade sig gøre - hvordan er de enkelte data placeret i regnearket? Evt. send den/de relevante fil(er) pr.mail - adr under min profil.

(ps.: arbejder med Office2003)

VBA-Kode, der viser/henter data fra separat Excel-fil til Word-skabelon - i eksisterende Userform:

Const standardSti = "C:\Documents and Settings\pb.KHNBPB\Skrivebord\Parker\"
Const filnavnXLS = "ProjektAdresseListe.xls"
Const startRækXls = 2
Dim adrXLS
Dim sti
Private Sub UserForm_activate()
    sti = standardSti
   
    åbnAdresseFilen
    visAdresser
    lukAdresseFilen
End Sub
Private Sub annuller_Click()
    Unload brev
End Sub
Private Sub kontakt_Click()                        'kontakt er valgt
Rem hent den valgte adresse
    åbnAdresseFilen
    hentAdressen Me.kontakt.ListIndex
    lukAdresseFilen
End Sub
Private Sub hentAdressen(ix)                        'overtfør til userform
Dim ræk As String
    ræk = ix + startRækXls
   
    With adrXLS.Activeworkbook.Sheets(1)
        Me.firma = .Range("A" & ræk)
        Me.att = .Range("B" & ræk)
        Me.adr = .Range("F" & ræk)
        Me.post = .Range("G" & ræk)
        Me.by = .Range("H" & ræk)
    End With
End Sub
Private Sub åbnAdresseFilen()
    Set adrXLS = CreateObject("Excel.Application")
    With adrXLS
        .Workbooks.Open sti + filnavnXLS
    End With
End Sub
Private Sub visAdresser()
Dim række As Long, ræk As String
Dim kontakt As String, firma As String
    With adrXLS.Activeworkbook.Sheets(1)
        For række = startRækXls To 65000
            ræk = række
            If .Cells(ræk, 1) = "" Then
                Exit For
            Else
                Me.kontakt.AddItem .Range("B" & ræk) + "/" & .Range("A" & ræk)
            End If
        Next række
    End With
   
    Me.kontakt.DropDown
End Sub
Private Sub lukAdresseFilen()
    adrXLS.Application.Quit
    Set adrXLS = Nothing
End Sub