现有多份（WORD格式）干部信息登记表，我想通过表文件jsxx.dbf将信息汇总到 干部信息汇总表上，盼高手赐教，万分感谢！！！

这个操作与Excel一样的嘛，仿照excel的操作就可以啦。

USE 干部信息汇总表
USE jsxx IN 0
owdapp=crea("word.application")
FOR i=1 TO ADIR(awddoc,'*.doc')
    owddoc=owdapp.Documents.Open(SYS(5)+CURDIR()+awddoc(i,1))
    SELECT 干部信息汇总表
    aPPEND blank
    SELECT jsxx
    SCAN
        nrow=VAL(GETWORDNUM(jsxx.位置,1,','))
        ncol=VAL(GETWORDNUM(jsxx.位置,2,','))
        ctext=[]
        cfld=jsxx.字段内容
        WITH owddoc.Tables(1).Cell(nrow,ncol).Range
            FOR j=1 TO .Paragraphs.Count
                ctext=m.ctext+.Paragraphs(j).range.text+CHR(13)+CHR(10)
            ENDFOR
        endwith
        replace &cfld WITH IIF(jsxx.类型='D',CTOD(ctext),ctext)  IN 干部信息汇总表
    ENDSCAN
    owddoc.close
endfor    
    RELEASE owdapp

从word读内容太复杂，各种格式转换，从来没这么用过，现学现卖，给你起个草稿参考吧

@瓜瓜1990 非常感谢指点！人在外面有事，电脑不在身边，过几天再验证。