After searching I got this solution, hope this will help you.
Public Sub accessTable()
Set appWD = CreateObject("Word.Application")
appWD.Documents.Open Filename:="C:\WordTableData.doc", _
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False,
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto
x = appWD.ActiveDocument.Tables(1).Rows(1).Cells(1)
MsgBox (x)
appWD.Quit
End Sub
Reference from-
http://www.ehow.com/how_6873235_extract-tables-using-excel-vba.html