Question

我想根据这个条件保存Word文档：

IF 'check something' Then:
    Dim myDialog As Object
    Set myDialog = Dialogs(wdDialogFileSaveAs)
    myDialog.Display
    myDialog.Execute
End if

Continue doing all the rest...

如果“另存为”窗口打开，用户通过单击上角的（X）而不保存而关闭它，则子程序将继续运行，就像用户决定保存文件一样。

如果用户关闭“另存为”窗口，如何退出sub？

Answer 1

试试这个。我使用过Excel VBA，但您可以轻松地将其更改为Word。

Sub Test()
    myDialog = False
    myDialog = Application.Dialogs(xlDialogSaveAs).Show
    If myDialog = False Then
        MsgBox "Don't Execute"
        Exit Sub
    Else
        MsgBox "Execute Stuff"
    End If

    MsgBox "After If Condition"
End Sub

关闭“另存为”窗口而不保存

1 个答案: