Question

我希望这里有一个简单的解决方案，但不是编码器我不知道解决方案应该是什么。

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

以下是我的代码：

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

我还尝试在Application.Visible = True之后使用End If无效。

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

Answer 1

我对我的代码做了一些小的补充，它现在完全符合我的要求。

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中是否有其他任何内容打开，并且仅当该值为真时，应用程序才会再次出现，否则它将退出。

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

1 个答案: