Hallo zusammen,
ich habe derzeit ein kleines Problem mit dem automatischen einfügen von Bildern.
Ich übergebe per Makro (wie nachfolgend) Daten aus einer Exceltabelle per Textmarken über Word in ein PDF.
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
strPDFName = "Testdatei" & ActiveCell.Offset(0, 1) & ".pdf"
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
.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))
.Bookmarks("SpalteF").Range.Text = (ActiveCell.Offset(0, 5))
.Bookmarks("SpalteG").Range.Text = (ActiveCell.Offset(0, 6))
.Bookmarks("SpalteH").Range.Text = (ActiveCell.Offset(0, 7))
.Bookmarks("SpalteI").Range.Text = (ActiveCell.Offset(0, 8))
.Bookmarks("SpalteJ").Range.Text = (ActiveCell.Offset(0, 9))
.Bookmarks("SpalteK").Range.Text = (ActiveCell.Offset(0, 10))
.Bookmarks("SpalteL").Range.Text = (ActiveCell.Offset(0, 11))
.Bookmarks("SpalteM").Range.Text = (ActiveCell.Offset(0, 12))
.Bookmarks("SpalteN").Range.Text = (ActiveCell.Offset(0, 13))
.Bookmarks("SpalteO").Range.Text = (ActiveCell.Offset(0, 14))
.Bookmarks("SpalteP").Range.Text = (ActiveCell.Offset(0, 15))
.Bookmarks("SpalteQ").Range.Text = (ActiveCell.Offset(0, 16))
.Bookmarks("SpalteR").Range.Text = (ActiveCell.Offset(0, 17))
.Bookmarks("SpalteS").Range.Text = (ActiveCell.Offset(0, 18))
.Bookmarks("SpalteT").Range.Text = (ActiveCell.Offset(0, 19))
.Bookmarks("SpalteU").Range.Text = (ActiveCell.Offset(0, 20))
.Bookmarks("SpalteV").Range.Text = (ActiveCell.Offset(0, 21))
.Bookmarks("SpalteW").Range.Text = (ActiveCell.Offset(0, 22))
.Bookmarks("SpalteX").Range.Text = (ActiveCell.Offset(0, 23))
.Bookmarks("SpalteY").Range.Text = (ActiveCell.Offset(0, 24))
.Bookmarks("SpalteZ").Range.Text = (ActiveCell.Offset(0, 25))
.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
Nun habe ich SpalteP auch Dateinamen der zugehörigen Bilder gespeichert. Und möchte diese ebenfalls wie Texte ins PDF übertragen und als Bild anzeigen lassen nicht als Link.
Dazu hatte ich im Worddokukment folgende Feldfunktion gestellt - {INCLUDEPICTURE { REF Textmarke } } - funktioniert nur leider nicht.
Habt ihr eine Idee wie ich das nun realisert bekomme, dass das Bild im PDF angezeigt wird?
Würde mich echt freuen das Problem gelöst zu bekommen. Freue mich auf Anregungen von den Experten hier. :)
Grüße Nascituruz
|