cls

Option Explicit
Private WithEvents m_oThisApp As Application

Private Sub Class_Initialize()
  Set m_oThisApp = Word.Application
  cls_Initialize_Reset
lbl_Exit:
  Exit Sub
End Sub

Private Sub m_oThisApp_DocumentOpen(ByVal doc As Document)
  cls_Initialize_Reset
lblbl_Exit:
  Exit Sub
End Sub

Private Sub m_oThisApp_DocumentChange()
  cls_Initialize_Reset
lbl_Exit:
  Exit Sub
End Sub

Private Sub m_oThisApp_WindowSelectionChange(ByVal Sel As Selection)
  cls_Initialize_Reset
lbl_Exit:
  Exit Sub
End Sub

Private Sub cls_Initialize_Reset()
Dim lngCur As Long
  On Error GoTo lbl_Exit
  lngCur = System.Cursor
  System.Cursor = wdCursorNormal
  Module1.RemoveContentMenuItem
  Module1.BuildControls
  On Error GoTo 0
  System.Cursor = lngCur
lbl_Exit:
  Exit Sub
End Sub