Coreldraw 运行VBA提示错误80004005

CorelDraw 文档中VBA代码如下：
Private Sub Document_Open()
UserForm1.Show
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ThisDocument.Activate
ThisDocument.Close
End Sub

打开文档会加载UserForm1，
但是执行关闭UserForm，执行到ThisDocument.Close时会报错，提示80004005，无法从文档事件图柄关闭文档；
如果先打开文档，再加载VBA，运行此命令则不会出现错误

想问下打开文档加载UserForm1，关闭UserForm1则关闭文档的方法