The only alternative is using a macro. But the macro needs to be passed the row and column of the cell. There is no click event that can be used. None. So, that's probably just as much work. See here for some examples.
Of course you could just copy all the table data and delete what you don't need from the document where you paste it.
edit: an example
msgbox ActiveDocument.GetSheetObject( "CH01" ).GetCell(2,3).text