Word命令按钮关闭文档

Question

我有一个脚本将完成的表单通过电子邮件发送给我，但我需要它在用户单击提交按钮后关闭表单。

以下是我对电子邮件部分的脚本，但是如果我提交一次，请更改它以关闭它？

Private Sub CommandButton1_Click() 
Dim OL    As Object 
Dim EmailItem  As Object 
Dim Doc    As Document 

Application.ScreenUpdating = False 
Set OL = CreateObject("Outlook.Application") 
Set EmailItem = OL.CreateItem(olMailItem) 
Set Doc = ActiveDocument 
Doc.Save 

With EmailItem 
    .Subject = "Privacy Information Questionaire" 
    .Body = "Privacy Information Questionaire" & vbCrLf & _ 
    "Body Line 2" & vbCrLf & _ 
    "Body Line 3" 
    .To = "email@example.com" 
    .Importance = olImportanceNormal 'Or olImprotanceHigh Or olImprotanceLow 
    .Attachments.Add Doc.FullName 
    .Send 
End With 

Application.ScreenUpdating = True 

Set Doc = Nothing 
Set OL = Nothing 
Set EmailItem = Nothing 

End Sub 

Answer 1

要关闭当前文档，你可以在你的代码的末尾插入这样的：

Application.ActiveDocument.Close 

为了确保所有的Word窗口关闭，你可以使用

Application.Quit 

但是，请注意，这将关闭其他非相关文档，并且（取决于您的其他代码和设置）可能不会提示用户保存更改。