Hi,

vielleicht ist folgender Code interessant (nicht von mir, weiss aber auch nicht mehr woher, leider) der Excel Infos in ein Worddokument schreibt und in die vorher definerten Textmarken einfügt und als PDF speichert.

Sub PDFerstellen()
 
Dim lobjWord As Object, lwrdDoc As Object, bWordVorhanden As Boolean
Dim strPDFName As String, sBrief As String, TPos As String
 
 Range(Selection, ActiveCell.EntireRow).Select
 
'Pfad sollte angepasst werden
strPDFName = "C:\Temp\Test\" & "Testdatei.pdf"
  
 'Test.doc muss erstellt werden!!!
sBrief = "Test.doc"
 
 
TPos = ActiveCell.Address
 
    Set lobjWord = CreateObject("Word.Application")
    Set lwrdDoc = lobjWord.Documents.Add(sBrief)
    
 
    Range(Selection, ActiveCell.EntireRow).Select
    
 
    On Error Resume Next
    
 
    With lwrdDoc
'Textmarken werden dann entsprechend im Worddokument definiert
'Bsp: Textmarke "SpalteA" im Word Dok bekommt Inhalt aus Spalte A der in der Exceltabelle markierten Zeile
.Bookmarks("SpalteA").Range.Text = (ActiveCell.Offset(0, 0))
.Bookmarks("SpalteB").Range.Text = (ActiveCell.Offset(0, 1))
.Bookmarks("SpalteC").Range.Text = (ActiveCell.Offset(0, 2))
.Bookmarks("SpalteD").Range.Text = (ActiveCell.Offset(0, 3))
.Bookmarks("SpalteE").Range.Text = (ActiveCell.Offset(0, 4))
'usw
                 
'Bei Bedarf ausdrucken, lassen

        .PrintOut Copies:=0
        
 
        .ExportAsFixedFormat OutputFileName:=strPDFName, _
         ExportFormat:=17, _
         OpenAfterExport:=True
        .Close = False
 
        
         
        .Saved = True
        
     
    End With
 
   
    Set lwrdDoc = Nothing
    Set lobjWord = Nothing
 
Range(TPos).Select
End Sub