Public Sub OnCommand( _
   ByVal nCmdID As Long, _
   ByVal Context As Long, _
   ByVal ActiveDocumentType As Long, _
   ByVal pActiveDocument As Object, _
   ByVal pActiveWindow As Object, _
   ByVal pActiveSelectSet As Object _
)