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