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
|