Hi,
see, to get you started,

http://www.word.mvps.org/FAQs/MacrosVBA/AppClassEvents.htm

and create an event of kind WindowSelectionChange, like

Private Sub oApp_WindowSelectionChange(ByVal Sel As
Selection)
If Selection.Information(wdWithInTable) Then
  MsgBox "in table"
End If
End Sub

Ask again, if you need assistance on how to continue.

Greetings from Bavaria, Germany
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000