Word2007, Teile als PDFspeichern

08/08/2009 - 13:47 von Kowalski | Report spam
Hi,

bekanntlich gibt es ja ab Word2007 über ein zusàtzliches Plugin die
Möglichkeit, die Worddatei als PDF-Datei zu speichern. Leider nutzt mir das
nicht viel, da ich immer nur bestimmte Seiten als PDF-Datei speichern möchte.
Bis jetzt helfe ich mir folgendermaßen:
Ich habe einen eigenen Druckdialog per VBA kreiert mit dem sich bequem die
gewünschten Dokumentteile auswàhlen lassen. Ich kann nun auf einen
PDF-Drucker ausdrucken und die erzeugte PDF-Datei weiterverarbeiten. Die
Lösung hat jedoch folgende Nachteile:
- ich muss wissen in welchen Ordner der PDF-Drucker die Datei speichert
- beim PDF-Drucker darf nicht eingestellt sein, dass das Dokument
anschließend mit der Standardanwendung geöffnet werden soll
- der Druck der PDF-Datei làuft im Hintergrund, zur Weiterverarbeitung muss
ich stàndig prüfen, ob im gewünschten Verzeichnis schon eine aktuelle
PDF-Datei vorhanden ist

Ich suche also eine Möglichkeit mit der ich direkt per VBA die Erzeugung der
PDF-Datei steuern kann und auch die Konfiguration (wohin soll gedruckt
werden, Kompression usw.) von VBA aus vornehmen kann.

Gibt es da irgendeine fertige Lösung ?

Gruß und vielen Dank schon mal


Kowalski !
 

Lesen sie die antworten

#1 Christian Freßdorf
10/08/2009 - 12:32 | Warnen spam
Hi,

Ich suche also eine Möglichkeit mit der ich direkt per VBA die Erzeugung
der
PDF-Datei steuern kann und auch die Konfiguration (wohin soll gedruckt
werden, Kompression usw.) von VBA aus vornehmen kann.

Gibt es da irgendeine fertige Lösung ?



nö, nur einen Ansatz:

Sub Aufruf_PrintToPDF()
PrintToPDF ActiveDocument, "C:\Test\Seiten.pdf", 2, 5
End Sub
Function PrintToPDF(oDoc As Document, sName As String, lngStart As Long,
lngEnd As Long)
With oDoc
If lngEnd > .ComputeStatistics(wdStatisticPages) Then lngEnd =
.ComputeStatistics(wdStatisticPages)
If .Saved = False Then .Save
.ExportAsFixedFormat Outputfilename:=sName,
ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False,
Range:=wdExportFromTo, From:=lngStart, To:=lngEnd,
Item:=wdExportDocumentContent
End With
End Function


HTH
Christian

Ähnliche fragen