怎样利用表文件将（WORD格式）干部信息登记表上信息读到DBF汇总表中 - 编程论坛

#2

schtg2021-04-20 15:37

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

#3

瓜瓜19902021-04-20 17:23

程序代码：

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读内容太复杂，各种格式转换，从来没这么用过，现学现卖，给你起个草稿参考吧

#4

王咸美2021-04-20 20:10

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