Vba Word在通过宏关闭一个文档时消失

我希望这里有一个简单的解决方案，但作为一个程序员，我不知道应该是什么解决方案

在MS Word中，我有一个VBA用户表单，可以提交、跳过或丢弃。当前问题与“放弃”按钮有关。其目的是使用“ThisDocument.Close”完全退出表格，以便不会错误地提交任何内容供审查；但是，当用户单击此按钮放弃userform时，它似乎隐藏了所有其他可能打开的Word文档。Word将从任务栏中消失。文档不会关闭，我知道这一点，因为当我重新打开Word时，它们仍然在“视图”>“切换窗口”的功能区下打开

以下是我的代码：

Private Sub CancelBtn_Click()

Dim SureCancel As Integer

SureCancel = MsgBox("Are you sure you want to abandon this sheet? _
Changes will not be saved!", vbYesNo)

If SureCancel = vbYes Then
    ThisDocument.Close wdDoNotSaveChanges
End If

End Sub

我还尝试在

结束If

之后使用

Application.Visible=True

，但没有效果

---

非常感谢任何帮助/想法。

我对代码做了一些小的补充，现在它正是我想要的

Private Sub CancelBtn_Click()

Dim SureCancel As Integer

SureCancel = MsgBox("Are you sure you want to abandon this sheet? _
Changes will not be saved!", vbYesNo)

If SureCancel = vbYes Then
        If Documents.Count > 1 Then
            Application.Visible = True
        End If
    ThisDocument.Close wdDoNotSaveChanges
End If

End Sub

---

If Documents.Count>1

子句检查Word中是否打开了任何其他内容，只有当该内容为真时，应用程序才会再次出现，否则它将退出。

您正在关闭包含表单的文档，而表单仍处于打开状态。请在关闭文档之前尝试隐藏表单。谢谢您的建议。不幸的是，它没有起作用。不过我确实找到了解决方法……在关闭文档之前，我将

应用程序.Visible=True

放在

If

中。现在我所需要做的就是找出只有在有其他事情打开时才可以做的事情。一旦我解决了这个问题，我会用一个答案来更新它。