Hallo Zusammen,
ich hab wieder einmal eine Frage bei der ich nicht weiter komm...
Kann man die Export Fktion nicht zweimal nacheinander verwenden?
Übersehe ich etwas?
Dim objWord2 As Object
Set objWord2 = CreateObject("Word.Application")
objWord2.Visible = True
objWord2.Documents.Open "T:\Austausch\01 von\vonHeu\" & dateiNameRechnung
objWord2.Activate
'PDF von Rechnung erzeugen und abspeichern
dateiName = "S:\01 Forderungen vonUns\10 Rechnung Ausgang\" & Left(dateiNameRechnung, InStr(dateiNameRechnung, ".docx") - 1) & " R" & ".pdf"
objWord2.ActiveDocument.ExportAsFixedFormat OutputFileName:=dateiName, _
OpenAfterExport:=False, _
OptimizeFor:=0, _
Range:=2, _
Item:=0, _
IncludeDocProps:=True, _
KeepIRM:=True, _
CreateBookmarks:=0, _
DocStructureTags:=True, _
BitmapMissingFonts:=True, _
UseISO19005_1:=False
'PDF von Rechnung und Anschreiben erzeugen und abspeichern''KLAPPT NICHT - wirft aber auch keinen Fehler''
dateiNameRuA = "U:\scanner von_PC14\geschrieben zu\" & "zu " & nummer & dateiNameRechnung & " + Anschreiben" & ".pdf"
objWord2.ActiveDocument.ExportAsFixedFormat OutputFileName:=dateiNameRuA, _
OpenAfterExport:=False, _
OptimizeFor:=0, _
Range:=0, _
Item:=0, _
IncludeDocProps:=True, _
KeepIRM:=True, _
CreateBookmarks:=0, _
DocStructureTags:=True, _
BitmapMissingFonts:=True, _
UseISO19005_1:=False
' Dokument schließen und nicht speichern
objWord2.Documents.Close SaveChanges:=False
' Wird beendet
objWord2.Quit
' Objekt zerstören
Set objWord2 = Nothing
|