Word で差し込み印刷が設定された文書のウィンドウをアクティブにすると WindowSelectionChange イベントが発生する

問題の再現手順

1. 新規 Word 文書に以下の VBA コードを記述し、任意の名前をつけて保存します。ここでは test.doc とします。
   
   標準モジュール

   Dim X As New Class1
   
   Sub Init()
       Set X.appWord = Application
   End Sub
   

   Class モジュール

   Public WithEvents appWord As Word.Application
   
   Private Sub appWord_WindowSelectionChange(ByVal Sel As Selection)
       MsgBox Sel.Document.Name
   End Sub
   

2. test.doc の Init() を実行します。

3. 差し込み印刷が設定された文書を作成し、開きます。

4. test.doc と差し込み印刷が設定された文書のウィンドウを並べ、交互にアクティブにします。

結果

差し込み印刷が設定された文書のウィンドウをアクティブにするだけでイベントが発生します。test.doc の場合、ウィンドウをアクティブにした後に範囲選択をすることでイベントが発生します。