We are seeing a problem at our customer sites, where the
WindowSelectionChange event fails to fire, which is interfering with the
proper functioning of one of our applications.  In order to trace this, we
have written a macro which simply declares an object as  WithEvents
Word.Application, and pops up a message box, when the event fires (see
below).  Testing at various sites, we have found that the macro fails at a
small percentatge of client sites.  We know that at least one site is
running Word 2003, but we're not sure about the others.

The problem always goes away (i.e. the event is always raised) if we keep
any custom .DOT's from loading.  In one case, we isolated a single .DOT from
another vendor, and that vendor was able to figure out that the problem was
due to code in the following form:

On Error Resume Next
   Application.Run "macroname"
On Error GoTo 0

where "macroname" was invalid, and where the code was excuted through an
AutoOpen.  That vendor removed the line of code, and the site is now up &
running.  However, we have found two other sites where the event fails to
occur, and where we could isolate a single .DOT which controlled it.  In
these cases there were two different .DOTs triggering the problem, both of
which include AutoOpen processing.  However, as far as we can tell (one of
those being from another product of ours) neither .DOT contains code in the
above format.

If you have any idea why this might happen, I would very much appreciate it
if you could cc: any reply directly to me, as well as to the group.

The test macro is as follows:

---- .bas module ------

Attribute VB_Name = "Test"
Option Explicit

Private moTest      As CTest

Sub TestWSC()

   If moTest Is Nothing Then
       MsgBox "Starting Test WSC"
       Set moTest = New CTest
   Else
       MsgBox "Stopping Test WSC"
       Set moTest = Nothing
   End If

End Sub

---- .cls module --------

VERSION 1.0 CLASS
BEGIN
 MultiUse = -1  'True
END
Attribute VB_Name = "CTest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private WithEvents moWordApp        As Word.Application
Attribute moWordApp.VB_VarHelpID = -1

Private Sub Class_Initialize()
   Set moWordApp = Application
End Sub

Private Sub moWordApp_WindowSelectionChange(ByVal Sel As Selection)
   MsgBox "In WindowSelectionChange: Select text: " & vbCr & Sel.Text
End Sub

Public Property Get WordApp() As Word.Application
   Set WordApp = moWordApp
End Property