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