Hallo!
ich habe folgende VBA um ein Word-Dokument als pdf-Datei im gleichen Ordner mit dem gleichen Namen zu speichern. Dies funktioniert auch soweit einwandfrei, allerdings nur, solange die Datei auf der Festplatte oder auf unseren Server liegt!
Befindet sich das Dokument in der Cloud oder auf Sharepoint funktioniert es nicht mehr und der Debugger kommt!
Diese VBA habe ich:
Sub ExportToPDF()
Dim CurrentFolder As String
Dim FileName As String
Dim myPath As String
Dim UniqueName As Boolean
UniqueName = False
'Store Information About Word File
myPath = ActiveDocument.FullName
CurrentFolder = ActiveDocument.Path & "\"
FileName = Mid(myPath, InStrRev(myPath, "\") + 1, _
InStrRev(myPath, ".") - InStrRev(myPath, "\") - 1)
'Save As PDF Document
ActiveDocument.ExportAsFixedFormat _
OutputFileName:=CurrentFolder & FileName & ".pdf", _
ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, Item:= _
wdExportDocumentContent, IncludeDocProps:=False, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
End Sub
Der blaue Bereich wird vom Debugger markiert mit der Meldung: Laufzeitfehler '-2147467259 (80004005)': Unerwarteter Fehler beim Exportieren.
Wie gesagt, auf der Festplatte oder dem Server läuft es perfekt!
Ich hoffe ihr könnt helfen.
Viele Grüße
Jens
|