Kompletten Ordner (Word Dokumente) als PDF´s speichern

[Tobli]

Hallo zusammen,

ich bin gerade dabei eine Anweisung zu schreiben. Hier sollen alle Word-Dokumente unter einem bestimmten Ordner geöffnet werden und unter gleichen Namen als gespeichert werden.

Leider Scheitere ich momentan daran. Kann mir hierbei jemand helfen?

Viele Grüße

Tobli

[Tobli]

habe damit angefangen, dass Dokument aufzurufen/öffnen und anschließend als PSF zu speichern.

Leider bekommen ich anschließend immer ein leeres PDF dokument

[RPP63]

Moin!
Zeige doch einmal Deinen bisherigen Code.
(prinzipiell ist Deine Anfrage natürlich in einem Word-Forum besser aufgehoben)

Gruß Ralf

[Tobli]

Sub Schaltfläche1_Klicken()

Dim objWD As Object, objWDDoc As Object
Dim strName As String

strName = "C:\Users\yf0p3tp\Desktop\Test.pdf"

Set objWD = CreateObject("Word.Application")
With objWD
    .Documents.Open Filename:="C:\Users\yf0p3tp\Desktop\test.docx"
    .Visible = True
End With

Set objWDDoc = objWD.Documents.Add

With objWDDoc
    .ExportAsFixedFormat OutputFileName:=strName, ExportFormat:=17, OpenAfterExport:=False
    .Close False
End With

Set objWDDoc = Nothing
Set objWD = Nothing
End Sub

[Tobli]

ich hätte auch nichts dagegen, wenn ich als Lösung eine Routine über Word bekomme. Allerdings habe ich über Word sowas noch nicht gemacht.

[schauan]

Hallöchen,

Dein Code macht, was er soll. Lasse ihn mal schrittweise durchlaufen und Du siehst genau, wo er nicht mit Deinen Wünschen übereinstimmt:

Code:

Set objWDDoc = objWD.Documents.Add
With objWDDoc
  .ExportAsFixedFormat OutputFileName:=strName, ExportFormat:=17, OpenAfterExport:=False
  .Close False
End With

Du erzeugst in diesem Abschnitt eine neue Datei. Die bzw. deren eine Seite ist natürlich erst mal leer. Dann gibst Du die als pdf aus.

Jetzt wäre die Frage, wozu die neue Datei gut sein soll ?

[schauan]

Hallöchen,

übrigens, einfach nur die Zeile rauszunehmen reicht nicht. In der Zeile weist Du ja einer Variablen das Dokument zu. Später wird die Variable noch genutzt. Du müsstest zumindest der Variable einen anderen Wert bzw. ein anderes Dokument zuweisen

Set ... = ActiveDocument