保存時にUserFormを呼び出す

Question

MS Wordで[保存]ボタンをクリックしたときにVBAでユーザーフォームを呼び出す方法を教えてください。

Answer 1

Intercepting events like Save and Printを参考にしてください。

Answer 2

あなたはそれを行うには、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 

第二のオプションにより実現することができます

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 

：VBAエディタで> ThisDocumentの - 次のコードを配置し 下のMicrosoft Wordがオブジェクト