Hello,

Fehler:
ThisDocument.Saved=True
End Sub
vermute ich mal.

K.