次の方法で共有


Application.DocumentOpen イベント (Word)

文書が開いたときに発生します。

構文

DocumentOpen (ドキュメントとしてのドキュメント**)

クラス モジュール内のイベントで宣言された 'Application' オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
Doc 必須 Document 開かれる文書です。

注釈

Application オブジェクトでイベントを使用する方法の詳細については、「 Application オブジェクト でのイベントの使用」を参照してください。

次の使用例は、ドキュメントを開くときに、開いている他のすべてのドキュメントを保存するかどうかをユーザーに求めます。 このコードはクラス モジュールに配置する必要があり、この例の動作を確認するには、 クラスのインスタンスを正しく初期化する必要があります。これを行う方法については、「 Application オブジェクトでのイベントの使用」を参照してください。

Public WithEvents appWord as Word.Application 
 
Private Sub appWord_DocumentOpen(ByVal Doc As Document) 
 Dim intResponse As Integer 
 Dim strName As String 
 Dim docLoop As Document 
 
 intResponse = MsgBox("Save all other documents?", vbYesNo) 
 
 If intResponse = vbYes Then 
 strName = ActiveDocument.Name 
 For Each docLoop In Documents 
 With docLoop 
 If .Name <> strName Then 
 .Save 
 End If 
 End With 
 Next docLoop 
 End If 
End Sub

関連項目

Application オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。