各位大佬，现有一数据是WORD格式，想把它弄到DBF里来。不知道该如何下手。麻烦大佬们帮帮，谢了。

IF NOT USED('Book1')
    USE Book1 IN 0
ENDIF
*01．哲学
SELECT Book1
LOCATE FOR AT(' ',ALLTRIM(fi1))=0
IF FOUND()
    M_xkml=ALLTRIM(fi1)
    SKIP
ENDIF
*'李建华    55  伦理学、政治哲学    中南大学'
DO whil NOT EOF()
    M_fi1=ALLTRIM(fi1)
    M_xm=LEFT(M_fi1,AT(' ',M_fi1))
    M_fi1=ALLTRIM(SUBSTR(M_fi1,AT(' ',M_fi1)))
    M_nl=LEFT(M_fi1,AT(' ',M_fi1))
    M_fi1=ALLTRIM(SUBSTR(M_fi1,AT(' ',M_fi1)))
    M_xkzc=LEFT(M_fi1,AT(' ',M_fi1))
    M_fi1=ALLTRIM(SUBSTR(M_fi1,AT(' ',M_fi1)))
    M_DWMC=M_fi1
    REPLACE xkml WITH M_xkml,XM WITH M_xm,nl WITH M_nl,xkzc WITH M_xkzc,DWMC WITH M_DWMC
    SKIP
    IF NOT EOF() AND AT(' ',ALLTRIM(fi1))=0
        M_xkml=ALLTRIM(fi1)
        SKIP
    ENDIF
ENDDO
USE IN Book1

我想到的有两种办法，这会儿没有电脑，无法实作：
第一、记录数少时，手工转存：word文档转为表格 → 复制 → excel文档中粘贴 → 转存dbf。
第二、编程处理：将第1列以空格作为分界符存入数组 → 将数组中的值，写入dbf中的字段下。
  以上意见，仅供参考！

感谢。

VFP9代码更简单
aa = "李建华    55  伦理学、政治哲学    中南大学"
?GETWORDNUM(aa,1," ")
?GETWORDNUM(aa,2," ")
?GETWORDNUM(aa,3," ")
?GETWORDNUM(aa,4," ")
结果

把表扫描一遍，所有问题都解决了