Versuch mal diesen Befehl, ob es dann ohne "Finish" geht:
ActiveDocument.Export "C:\Users\xxxx\Desktop\jpg-Arbeitsspeicher\" & filename & ".gif", cdrGIF
oder anstatt set doc = Document(i):
set doc = ActiveDocument
...
doc.Export "C:\Users\xxxx\Desktop\jpg-Arbeitsspeicher\" & filename & ".gif", cdrGIF
__________________
Der Klügere gibt nach... deshalb regieren die Dummen die Welt 
|