WordグローバルテンプレートVBA：Startupフォルダに配置するとContentControlOnExitイベントが発生しない

Question

以下のコードは、.dotmテンプレートファイルのThisDocumentワードオブジェクトに配置されています。ファイルを直接開くと、アクティブなドキュメントのコンテンツコントロールが終了するたびに、以下のイベントが発生します。ただし、テンプレートがスタートアップフォルダに配置され、自動的に開くと、イベントは発生しません。

Startupフォルダから意図したとおりに動作するように修正する方法はありますか？

Private Sub Document_ContentControlOnExit(ByVal ContentControl As _ 
ContentControl, Cancel As Boolean) 
    MsgBox ("Fired") 
End Sub 

Answer 1

私は既にこの問題に直面しています。 このように動作させることはありません。ロードされた "* .dotm"ファイルのContentControlOnExitイベントのイベントだけを起動します。

マクロドキュメントの外で発生した変更に対応するには、かなり複雑な構文を使用する必要があります。これについて簡単に説明します。

変数Public WithEvents p_Document as Word.Documentを持つクラスclsDocumentを作成する必要があります。あなたのクラスの内部では、あなたは、あなたのp_DocumentのイベントContentControlOnExitに耳を傾け、あなたのケースで（そこにMsgBox ("Fired")をあなたのコードを置く。

次に、あなたにも、一般的なイベント「のAutoExec」と「AutoOpenプロパティ」に耳を傾ける必要がありこれらのすべてのイベントでは、グローバル変数p_Documentを、イベントに渡されたドキュメントまたは（イベントハンドラに渡されたドキュメントがない場合）アクティブなドキュメントのいずれかの値に設定します。 これらのイベント反応は多かれ少なかれ同じことを行い、そのようなマクロのモジュールに新しいプロシージャを作成します：

次に、マクロファイルのThisDocumentに次の手順を作成します。

Option Explicit 

Private g_clsWordApplication   As clsApplication 


Public Sub AutoExec() 

Set g_clsWordApplication = New clsApplication 
Set g_clsWordApplication.WordApplication = Word.Application 

Call modYourModule.SetUpDocumentEvents 

End Sub 

Private Sub Document_New() 
    Call modYourModule.SetUpDocumentEvents 
End Sub 

Private Sub Document_Open() 
    Call modYourModule.SetUpDocumentEvents 
End Sub 

Public Sub AutoOpen() 
    Call modYourModule.SetUpDocumentEvents 
End Sub 

このように、ドキュメントイベントを捕捉できます。 AutoExecの機能に見られるように、アプリケーションオブジェクトでは同じですが、新しいclsAplicationをWithEvents WordApplication as Word.Applicationで作成し、イベントに反応することができます。このコードはすべてあなたのドットファイルに入っているので、グローバルなテンプレートファイルです。

このようにして、あなたが望むイベントに反応することができます。 私はこの問題を解決するための別の方法は見つけられませんでしたが、まだ実装する方法に満足していません。あなたの問題を解決するための別の選択肢がある場合は、別の方法で試してみることを強くお勧めします。