oDocapp = CREATEOBJECT("Word.application")
oDoc = oDocapp.Documents.Open('c:\五(1)班成绩.doc')
tab1 = oDoc.Tables(1)
r1c6 = ALLTRIM(tab1.Cell(1, 1).Range.Text)
r2c6 = ALLTRIM(tab1.Cell(2, 6).Range.Text)
?SUBSTR(r1c6,1,LEN(r1c6)-2),LEN(r1c6)
?r2c6=CHR(13)
oDoc.close()
oDocapp.quit()