hente oplysning ind fra ad til word skabelon

Kan prøve - sig frem..

Jeg vil anbefale du tilgå det fra den anden side.

Brug powershell til at trække dit data ud, og spytte det ind i et Word doc (eller andet format, hvis du ønsker det)

http://www.suite101.com/content/how-to-create-a-word-document-with-powershell-a123055

HEj Vistodk

Okay det må jeg lige kigge på om det er nemmere.

dr.martin

hej

jeg har nu fået oplysningerne over på et exel via vba, men nu skal de over i en wordskabelon så når brugeren logger på tages brugerens oplysninger over i word dokumenetet.

Via UserName skulle det være muligt at hente data fra Word, så fremt dette også er i Excel.

Via VBA skulle det ikke være noget problem.

Okay

Er helt ny i vba så du har måske have noget kode.

Der skal hentes data fra en exel ark liggende på en central server, men der skal kun bruges oplysningerne fra brugeren der er logget ind. (jeg skriver kun dette så du ved lidt om det ikke for at du skal skrive koden.)

Har du mulighed for at sende regnearket og et word dokument, der viser hvor felterne skal sættes ind - alternativt hvilke bogmærke-navne, der skal indsættes felter i.

@-adresse under min profil..

Hej Supertekst

Jeg har lige sendt en mail til dig.

Const stiTilUserXls = "C:\Documents and Settings\pb.KHNBPB\Skrivebord\HenteDataFraXls\export data.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
           
    Set userXls = CreateObject("Excel.application")
    With userXls
        .workbooks.Open stiTilUserXls
        ræk = findRække(brugerNavn)
       
        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 UCase(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