Ist das da nicht irgendetwas mit SaveAs und Finish?
Also anstatt:
doc.Export "C:\Users\xxxx\Desktop\jpg-Arbeitsspeicher\" & filename & ".gif", cdrGIF
dieses:
doc.SaveAs(FileName:="C:\Users\xxxx\Desktop\jpg-Arbeitsspeicher\" & filename & ".gif", Filter:=cdrGIF).finish
Alles ohne Gewähr... kenne mich da nicht wirklich aus...
Edit: Lies mal hier (insbesondere ab "Automatic Cropping"). Da öffnet er eine Reihe von Bildern, bearbeitet sie, speichert sie ab und schließt sie wieder...
http://corel-vba.awardspace.com/PhotoPaint.htm