Application.NewDocument イベント (Word)

新しい文書が作成されるときに発生します。

注:

別の文書に埋め込まれている文書を操作している場合、このイベントは発生しません。

構文

プライベートサブアプリケーション _NewDocument(ByVal doc as document)

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

パラメーター

名前 必須 / オプション データ型 説明
Doc 必須 Document 新規文書を指定します。

注釈

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

例

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

Public WithEvents appWord as Word.Application 
 
Private Sub appWord_NewDocument(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

関連項目

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

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

  • Last updated on