hjælp til vba i word

Hvordan er data i Excel organiseret?
Hvor skal data placeres i Word?

de er placeret sådanne at hver bruger har en række med forskellige oplysninger såsom username, telefon, navn o.s.v.

De skal placeres forsekllige steder i word. f.eks. at navn og telefonnummer kommer i bunden o.s.v. evt. via bogmærker.

Model kan returneres, hvis du sender en mail til min @-adresse (under min profil)


Const stiTilUserXls = "C:\Documents and Settings\pb.KHNBPB\Skrivebord\HenteDataFraXls\brugere.xlsx"
Dim userXls As Object, ræk As Integer


Dim brugerNavn As String, initialer, bruger As String

Dim navn As String, telefonNr As String
Private Sub Document_New()
'I tilfælde af skabelon
End Sub
Private Sub Document_Open()
On Error GoTo lukUserXls
    brugerNavn = Application.UserName
    initialer = Application.UserInitials
   
Rem een vælges - ander elimineres
    bruger = brugerNavn
    bruger = initialer
   
Rem Test
    bruger = "bb"
   
    Set userXls = CreateObject("Excel.application")
    With userXls
        .workbooks.Open stiTilUserXls
        ræk = findRække(bruger)
       
        If ræk = 0 Then
            MsgBox "Bruger: " & bruger & " kunne ikke findes"
        Else
            navn = .Range("B" & ræk)
            telefonNr = .Range("C" & ræk)
           
            sætIbogMærke "sagsbehandler", navn & " Tlf.: " & telefonNr
           
        End If
    End With
   
   
lukUserXls:
    userXls.Application.Quit
    Set userXls = Nothing

End Sub
Private Function findRække(user)
    For r = 2 To 65000
        If user = userXls.Range("A" & r) Then
            findRække = r
            Exit Function
        Else
            If userXls.Range("A" & r) = "" Then
                r = 0
                Exit Function
            End If
        End If
    Next r
    r = 0
End Function
Private Sub sætIbogMærke(bm, tekst)
    ActiveDocument.Bookmarks(bm).Select
    Selection.EndKey Unit:=wdLine
    Selection.TypeText Text:=tekst

End Sub

Følger tråden

Endelige udgave - VBA i Word skabelonen:

Const stiTilUserXls = "stinavn".xls"  '<---- tilpasses
Dim userXls As Object, ræk As Integer
Dim brugerNavn As String, initialer, bruger As String
Dim navn As String, telefonNr As String, emailAdr As String

Public Sub testSkabelon()
    Document_New
End Sub

Private Sub Document_New()
On Error GoTo lukUserXls
'    brugerNavn = Application.UserName
    initialer = Application.UserInitials
   
Rem een vælges - anden elimineres
'    bruger = brugerNavn
    bruger = initialer
       
    Set userXls = CreateObject("Excel.application")
    With userXls
        .workbooks.Open stiTilUserXls
        ræk = findRække(bruger)
       
        If ræk = 0 Then
            MsgBox "Bruger: " & bruger & " kunne ikke findes"
        Else
            telefonNr = .Range("G" & ræk)
            emailAdr = .Range("H" & ræk)
           
            sætIbogMærke "email", emailAdr
            sætIbogMærke "telefonnummer", telefonNr
        End If
    End With
   
lukUserXls:
    userXls.Application.Quit
    Set userXls = Nothing
End Sub

Private Function findRække(user)
    For r = 2 To 65000
        If user = userXls.Range("A" & r) Then
            findRække = r
            Exit Function
        Else
            If userXls.Range("A" & r) = "" Then
                r = 0
                Exit Function
            End If
        End If
    Next r
    r = 0
End Function

Private Sub sætIbogMærke(bm, tekst)
    ActiveDocument.Bookmarks(bm).Select
    Selection.EndKey Unit:=wdLine
    Selection.TypeText Text:=tekst

End Sub