Something like this should work:
*---------------------------------------

create table word2fox (lcrec m)

oWord = CREATEOBJECT("word.application")
oWord.Documents.add("WordSource.doc")

WITH oWord.ActiveDocument

if .Tables.Count=1
for iR=1 to .Tables(1).Rows.Count
lcRowString=""
for iC=1 to .Tables(1).Columns.Count
*Collect Text to insert into FoxPro table
* there are Word hidden chr(13),chr(7) characters you should care about
lcRowString=lcRowString+iif(iC=1,"",",")+;
alltr(.Tables(1).Cell(iR,iC).Range.Text)
endfor
insert into word2fox values (lcRowString)
endfor
endif

ENDWIth

oWord.Quit

Return
*----------------------