Office: Word Dokument Via Makro als PDF Speichern

Hallo

Ich habe ein Makro, mit dem ich das Dokument automatisch speichern kann.
Es gibt mir auch den Namen aus den Bausteinen.
Nun möchte ich gerne das es mir die Datei nicht als Word Dokument Speichern, sondern als PDF. Wenn das nicht möglich ist, wäre es auch gut, wenn es zusätzlich die Datei als PDF speichert.
Kann mir da jemand einen Typ geben, wie ich mein Makro anpassen muss.


Sub FileSave()
Dim dateiname As String, teil1 As String, teil2 As String, teil3 As String
Dim cc As Word.ContentControl
For Each cc In ActiveDocument.ContentControls
If cc.Title = "Name" Then teil1 = cc.Range.Text
If cc.Title = "Vorname" Then teil2 = cc.Range.Text
If cc.Title = "Geb" Then teil3 = cc.Range.Text
Next
dateiname = teil1 & "-" & teil2 & "-" & teil3
With Dialogs(wdDialogFileSaveAs)
.Name = "Q:Pfad" & dateiname
.Show
End With

End Sub

Merci

:)

 

Hallo Gutschi,

da du alle Dateinamensteile vorgibst, kommst du doch ohne Dialogfeld aus. Dann kannst du es so machen:

Code:

 

Hallo Gerhard

Ich habe das gemacht, damit ich noch den definitiven Ordner auswählen kann, den ich speichere, die Dokumente nach Jahr ab bei meiner Version kann ich dann immer noch den entsprechenden Ordner auswählen.
Sonnst müsste ich alle Jahre alle Makros und Vorlagen umprogrammieren.
Aber Deine Version ist funktioniert super.
Oder kann bei deiner Version noch angefügt werden dass er im angegeben Pfad immer den Ordner des aktuellen Jahres nimmt?

Merci

Gruss Gutschi

 

Hallo Gutschi,

angenommen der Hauptordner ist C:temp und darin gibt es Unterordner wie 2018, 2019 usw,

dann lautet der Code-Schnipsel zum Speichern in den jeweils aktuellen Ordner so :
Code:

Da der Jahresorder aus dem aktuellen Datum ermittelt wird, passt er sich jährlich automatisch an.

 

Super Gerhard

Danke für das super Makro.
Mir ist, da noch eine Optimierung Eigefallen da ich die Dokumente alle ausdrücken muss, könnte man das auch so machen das es sobald ich den schnell Druck oder Drucken Drücke dann auch das Makro ausgeführt wird.

Gruss Gutschi

 

Hallo Gutschi,

dann muss das Before_Print-Ereignis verwendet werden. Beachte, dass das Makro dann nur noch startet, wenn ein Druck ausgelöst wird. Hier die neuen Makros (altes Makro löschen und die neuen alle in das Modul ThisDocument kopieren):
Code:

Es wäre vielleicht ratsam, die Makros auf das aktuelle Dokument einzuschränken, damit nicht auch andere Dokumente, die grad geöffnet sind, von diesem Verbiegen des Druckbefehls betroffen sind. Wie genau das geht, hängt davon ab, ob du mit einer eigenen Dokumentvorlage arbeitest oder mit einem normalen Dokument. Sag ggf. noch Bescheid

 

Hallo Gerhard

Ja es sind eigene Dokumente Vorlagen, die von verschiedenen Personen benutzt werden. Ja es kann sein, dass Mehrer Dokumente geöffneter sind. Ist es nicht sodass wenn das Makro in dieser Datei ist es nur in dieser Datei funktioniert. Ich gebe zu, in Word Makros bin ich noch nicht so sattelfest.

Gruss Gutschi

 

Hallo Gutschi,

zu deiner Frage: "Ist es nicht so dass wenn das Makro in dieser Datei ist es nur in dieser Datei funktioniert"

Nicht unbedingt: Wenn ihr mit eigenen Dokumentvorlagen arbeitet, kommen die Makros in das Modul ThisDocument der Dokumentvorlage. Diese hat dann das Dateiformat *.dotm. Die dortigen Makros können von allen Dokumenten abgerufen werden, die aus dieser Dokumentvorlage entstanden sind, auch wenn sie selber ganz normale *.docx-Dateien ohne Makro sind.

Ich hab noch ein paar Fehler aus den letzten Makros ausgerottet und die Beschränkung auf Dokumente der Vorlage eingebaut. Deshalb nochmal alles zusammen:
Code:

 

Hallo Gerhard

Sorry das es solange gedauert hat biss ich mich melden. Ich hatte noch Ferien. Aber Ich habe es getestet und es funktioniert einwandfrei Meric.
Wünsche dir schon mal ein gute neues Jahr.

Gruss Gutschi

 

Hallo Gerhard

Ich habe noch ein Problem mit dem Speichern. Mit dem letzten Makro wird leider nicht im Ordner mit der entsprechenden Pfad gespeichert. Wenn der Pfad P:Test"und da wären Ordner mit Jahres zahlen.
Leider wird die Datei im Haupt Verzeichnis (P: ) als Dateiname :Test 2018d-d-s.pdf gespeichert.
d-d-s sind die Wörter der 3 Teile des Dateinamens.

Was mache ich Falsch?

Gruss Gutschi

 

Hallo Gutschi,

Ferndiagnose: da fehlen Backslashes in der Pfadangabe. Mindestens der nach dem Jahreszah-Ordner, vielleicht auch mehr. Das kann ich wegen der backslashfressenden Forumssoftware nicht sehen.

Im Zweifelsfall mal das Makro hochladen (am liebsten im Dokument, damit man alle Backslashe zuverlässig sieht).

 

Hallo Gerhard

Im Anhang eine Musterdatei.

Mit Makro.

Gruss Gutschi

 

Hallo Gutschi,

wie vermutet: der letzte Backslash fehlt. Verursacht vermutlich durch Rauskopieren von Code, der durch den Bug dieser Forensoftware verunstaltet wurde.

aktOrdner = "P:Test2018 " & Format(Date, "yyyy") & "\"