VFP如何调用个人课表模板文件，一页纸上生成两张个人课表？
下列代码一页纸上只能生成一张个人课表，如何修改下列代码实现一页纸上生成两张个人课表？请高手赐教，万分感谢！！！


  SET TALK OFF
  SET SAFETY OFF
  CLOSE ALL
  CLEAR

  wjm=SYS(5)+SYS(2003)+"\grkbmb1.doc"
  WordApp=CREATEOBJECT("word.application")
  USE jsmd20180912 ALIAS jsmd20180912 IN 0
  USE jsrkb20190101 ALIAS jsrkb20190101 IN 0
  USE kb20190101 ALIAS kb20190101 IN 0

  SELECT jsmd20180912
  GOTO top
  rkmc=""
  SCAN
      xm=ALLTRIM(姓名)
      rkmc=xm+","
      WordTable=WordApp.Application.Documents.Open(wjm)
      WordApp.Visible =.t.
      SELECT jsrkb20190101
      GOTO top
      SCAN
          FOR i=1 TO fcount()
              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 jsmd20180912
  ENDSCAN
  WORDAPP.quit
  WORDAPP=.NULL.
  CLOSE ALL
  QUIT
   
  PROCEDURE zk
      LPARAMETERS kcm,lnj,lbj
      LOCAL j,zkm,xq,jc,zkkm  
      SELECT kb20190101
     
 GOTO top
      LOCATE FOR ALLTRIM(nj)=ALLTRIM(lnj) AND ALLTRIM(bj)=ALLTRIM(lbj)
      IF NOT EOF() THEN
         FOR j=3 TO FCOUNT()
             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 kb20190101
      RETURN

估计没有人理你，因为你考虑深刻了，一般地讲，弄出来已经不容易的了。。。


你创造程序，自动排出课程表，这样就生动了！

[此贴子已经被作者于2019-5-5 14:42编辑过]

表格是一式两份吗

不是，就是想在一页纸上生成两位不同教师的个人课表（调用模板文件grkbmb1.doc，生成所有教师的个人课表，每页纸上显示两个人课表）

              WordTable.Tables.item(1).Cell(jc+1,xq+2).Range.Text="&scsz"

把模板上的　ABCDEF　换成ABCDEF1　和ABCDEF2　以避免上下二个表的老师姓名，替换为同一个老师。把上句中的item(1) 中的括号里1换成2　，体验一下，可以看到姓名在上半页，课名在下半页。


对老师循环时，要以2名老师为一组，加一个判断，记录号奇数的写到上半页，记录号偶数写到下关页，写完2个（即一小组）后，才保存WORD文档一次。

以上变通思路，供参考。

[此贴子已经被作者于2019-5-5 16:55编辑过]

思路很好！就是不知道上述代码如何修改，方能实现以上功能？还望各位大侠不吝赐教！

  SET TALK OFF
  SET SAFETY OFF
  CLOSE ALL
  CLEAR

  wjm=SYS(5)+SYS(2003)+"\grkbmb1.doc"
  WordApp=CREATEOBJECT("word.application")
  USE jsmd20180912 ALIAS jsmd IN 0
  USE jsrkb20190101 ALIAS jsrk IN 0
  USE kb20190101 ALIAS kb IN 0

  SELECT jsmd
  GOTO top  
  DO while not EOF()
      rkmc=""
      xm=ALLTRIM(姓名)
      rkmc=xm+","
      WordTable=WordApp.Application.Documents.Open(wjm)
      WordApp.Visible =.t.
      SELECT jsrk
      GOTO top
      SCAN
          FOR i=1 TO fcount()
              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('ABCDEF1',.F.,.F.,.F.,.F.,.F.,.F.,.F.,.F.,'&xm',2)
    SELECT jsmd
    SKIP 1
      rkmc=""
      xm=ALLTRIM(姓名)
      rkmc=xm+","
      *WordTable=WordApp.Application.Documents.Open(wjm)
      *WordApp.Visible =.t.
      SELECT jsrk
      GOTO top
      SCAN
          FOR i=1 TO fcount()
              m=FIELD(i)
              xm2= &m.
              IF ALLTRIM(xm2)=ALLTRIM(xm) then
                 rkmc=rkmc+FIELD(i)+nj+bj+','
                 zk2( m,nj,bj)
              ENDIF
         NEXT i
      ENDSCAN
      WORDAPP.ActiveDocument.Content.Find.Execute('ABCDEF2',.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
      SKIP 1
  ENDDO 
  
  WORDAPP.quit
  WORDAPP=.NULL.
  CLOSE ALL
  QUIT
  
   
  PROCEDURE zk
      LPARAMETERS kcm,lnj,lbj
      LOCAL j,zkm,xq,jc,zkkm  
      SELECT kb
      GOTO top
      LOCATE FOR ALLTRIM(nj)=ALLTRIM(lnj) AND ALLTRIM(bj)=ALLTRIM(lbj)
      IF NOT EOF() THEN 
         FOR j=3 TO FCOUNT()
             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 kb
      RETURN
  ENDPROC 
  
     
  PROCEDURE zk2
      LPARAMETERS kcm,lnj,lbj
      LOCAL j,zkm,xq,jc,zkkm  
      SELECT kb
      GOTO top
      LOCATE FOR ALLTRIM(nj)=ALLTRIM(lnj) AND ALLTRIM(bj)=ALLTRIM(lbj)
      IF NOT EOF() THEN 
         FOR j=3 TO FCOUNT()
             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(2).Cell(jc+1,xq+2).Range.Text="&scsz"
             ENDIF
         NEXT j
      ENDIF
      SELECT kb
      RETURN
  ENDPROC     

简单改了下，有一个小问题，你自己处理下

寫一個生成單個教師的過程，調用2次不就好了，自找麻煩幹什麽。本來就不需要在一頁上設計2個相同的表格，直接按記錄循環一個一個表格生成即可，每生成兩個就插入一個分頁符，它自己分頁。對表格來説，優先使用Excel，勝於用Word。

[此贴子已经被作者于2019-5-5 21:03编辑过]

@wengjl 非常感谢！但程序仍有一点问题，一是生成的个人课表课未排全，二是课程有张冠李戴现象，三是程序运行到最后提示已到文件尾（skip 1)。