现有下列6个文件：
 1、生成个人任课表的程序文件sckbdy.prg（待完善）
 2、学校日课总表 rkzb201803.dbf
 3、各班教师任课表文件 jsrkb.dbf
 4、教师名单表文件 jsmd .dbf
 5、教师个人任课表模板文件 grkbmb.docx
 6、最终生成的教师个人任课表（样表）文件 grkb.docx

    利用教师名单表文件 jsmd .dbf、各班教师任课表文件 jsrkb.dbf和学校日课总表 rkzb201803.dbf 三个文件自动生成个人任课表，

由于本人是新手，编写的sckbdy.prg程序出现点问题，但不知问题出自哪里?请各位高手指点迷津，帮忙修改一下，急用！万分感谢！！！

（如能提供完整代码则更好 ！）

没有工夫看哪　很对不起了。

源码：https://bbs.bccn.net/thread-485653-2-1.html
我将楼上的代码添加了写入word的语句，就成为下面的程序，思路、源码均为楼上朋友的哈。

*|* test.prg

 SET TALK OFF
 SET SAFETY OFF
 CLOSE ALL
 CLEAR

 wjm=SYS(5)+SYS(2003)+"\grkbmb.doc"
 WordApp=CREATEOBJECT("Word.application")

 USE jsmd ALIAS jsmd IN 0
 USE jsrkb ALIAS jsrkb IN 0
 USE rkzb201803 ALIAS rkzb201803 IN 0

 SELECT jsmd
 GOTO top
 rkmc=""
 SCAN
     xm=ALLTRIM(姓名)
     rkmc=xm+","
     WordTable=WordApp.Application.Documents.Open(wjm)
     WordApp.Visible =.t.
     SELECT jsrkb
     GOTO top
     SCAN
         FOR i=1 TO 18
             m=FIELD(i)
             xm2= &m.
             IF ALLTRIM(xm2)=ALLTRIM(xm) then
                rkmc=rkmc+FIELD(i)+nj+bj+','
                zk( m,nj,bj)
             ENDIF
        NEXT i
     ENDSCAN
     WORDAPP.ActiveDocument.Content.Find.Execute('ABCDEF',.F.,.F.,.F.,.F.,.F.,.F.,.F.,.F.,'&xm',2)
     oFile=SYS(5)+SYS(2003)+"\"+ALLTRIM(xm)+"_课程表.doc"
     WordApp.Documents(1).SaveAs(oFile)
     WordApp.ActiveDocument.Close      
     SELECT jsmd
 ENDSCAN
 WORDAPP.quit
 WORDAPP=.NULL.
 CLOSE ALL
 QUIT
  
 PROCEDURE zk
     LPARAMETERS kcm,lnj,lbj
     LOCAL j,zkm,xq,jc,zkkm
      
     SELECT rkzb201803
     GOTO top
     LOCATE FOR ALLTRIM(nj)=ALLTRIM(lnj) AND ALLTRIM(bj)=ALLTRIM(lbj)
     IF NOT EOF() THEN
        FOR j=3 TO 32
            zkm=FIELD(j)
            zkkm= &zkm.
            IF ALLTRIM(zkkm)=ALLTRIM(kcm) then
               xq=VAL(SUBSTR(zkm,5,1))
               jc=VAL(SUBSTR(zkm,6,1))
               scsz=ALLTRIM(nj)+ALLTRIM(bj)+ALLTRIM(kcm)
               WordTable.Tables.item(1).Cell(jc+1,xq+2).Range.Text="&scsz"
            ENDIF
        NEXT j
     ENDIF
     SELECT jsrkb
     RETURN
 ======================================
模板改了一下：

@schtg 能将test.prg程序修改成不含过程文件的代码吗？我想将以上代码放到表单的click事件中，还望不吝赐教。

。…。…。…。…。…。…。…。………

[此贴子已经被作者于2018-12-8 17:24编辑过]