Seiten X-Y einzeln als PDF exportieren - VBA?

[mooo93]

Hallo zusammen,

ich hab folgendes Problem. Ich habe ein Word-Dokument von dem ich bestimmte Seiten X-Y als einzelne PDFs exportieren möchte. (Bei den Einzelseiten handelt sich um nummerierte Trennblätter für einen Ordner.)
Ich bin leider nicht ganz vertraut mit der Programmierung mit VBA, denke aber dass diese Aufgabe damit sicher realisierbar ist.

Wichtiges Thema wäre in diesem Fall noch die Benennung der exportierten Einzelseiten. Auf den einzelnen Seiten steht inhaltlich je nur eine Nummerierung wie bspw. "12.2.1". Die Nummerierung entsteht automatisch aus einem Inhaltsverzeichnis. Diese Nummerierung sollte wenn irgendwie möglich in den Dateinamen geschrieben werden.

Hat irgendjemand sowas in dieser Art schon mal realisiert, ggf. auch nur das exportieren unabhängig vom Dateinamen? Makros anzupassen bin ich durchaus in der Lage.

Wäre dankbar wenn mir jemand helfen könnte.


Viele Grüße,
Moo

[theoS]

Du kannst die Seiten ja in ein pdf drucken. Schon mal probiert?

[Hilfloser Bastler]

Hallo mooo,

zeichne mal ein Makro auf, mit dem Du eine einzelne Seite in ein PDF exportierst. Du findest darin dann unter einem Dialogpunkt Deine Seitenauswahl. Ersetze diesen Wert durch eine Variable intSeite und frage diese über eine Userform vor dem Export ab.

Kopiere dieses modifizierte Makro dann in ein allgemeines Modul (auch NewMakros funktioniert). Die Variable definierst Du mit

Code: Alles auswählen

Public intSeite as Integer

vor der ersten Zeile der Sub bzw. UserForm. Den Wert Deiner Textbox holst Du mit

Code: Alles auswählen

intSeite = Userform1.textbox1.text

in die zweite Zeile Deiner Sub.

Die Userform benötigt nicht mehr als eine TextBox (Deine Seitenangabe) und einen CommandButton, der dann Deine Sub PDF_Export_Einzelblatt() aufruft.

Viel Erfolg! wünscht

d`r Bastler