保存呼叫用戶窗口

Question

當用戶單擊MS Word中的保存按鈕時，如何在VBA中調用用戶窗體？

Answer 1

請參閱Intercepting events like Save and Print以獲得應該幫助的示例。

Answer 2

你有兩個選擇這樣做：您可以覆蓋內置FileSave和FileSaveAs命令，也可以爲應用程序創建的DocumentBeforeSave事件的事件處理程序（這是一個小更多的工作要做）。

重寫的內置命令可以通過添加以下代碼以一個VBA模塊來實現（調整到相應顯示在用戶表格的類型）：

' override File -> Save 
Public Sub FileSave() 

    CustomSave 
    ' call ActiveDocument.Save to actually save the document 

End Sub 

' override File -> Save As... 
Public Sub FileSaveAs() 

    CustomSave 
    ' call ActiveDocument.SaveAs to actually save the document 

End Sub 

Sub CustomSave() 

    Dim frm As New frmCustomSave 
    frm.Show 

End Sub 

第二個選項可以通過實施下配售Microsoft Word中下面的代碼對象 - >的ThisDocument在VBA編輯：

Option Explicit 

Private WithEvents wdApp As Word.Application 

Private Sub Document_New() 
    Set wdApp = Word.Application 
End Sub 

Private Sub Document_Open() 
    Set wdApp = Word.Application 
End Sub 

Private Sub wdApp_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean) 

    Dim frm As New frmCustomSave 
    frm.Show 

End Sub