如何用jsrkb20190101中的”班会”替换word文档中的”ABCDEF”
下列程序中，如何添加代码，用jsrkb20190101中的”班会”替换word文档中的”ABCDEF”，请高手赐教，谢谢！模板文件：
如何用jsrkb20190101中的“班会”替换ABCDEF
程序代码：
CLOSE DATABASES
CLEAR ALL
SET SAFETY OFF
* cPath=ADDBS(JUSTPATH(SYS(16)))
cPath="F:\temp19\班级课表"
SET DEFAULT TO (cPath)
wjm="F:\temp19\bjkbmb.doc"
PUBLIC cnj,cbj,cxkmc,i,j
wordApp=CREATEOBJECT("word.Application")
wordApp.Visible=.t.
USE F:\temp19\jsrkb20190101.dbf ALIAS jsrkb IN 0
SCAN for RECNO()<5
cnj=jsrkb.nj
cbj=jsrkb.bj
cxm=jsrkb.班会
WAIT WINDOW '正在生成" '+cnj+cbj+' "的日课表...' nowait
SELECT * FROM F:\temp19\rkzb20190101 WHERE nj=cnj AND bj=cbj INTO CURSOR bjkb
SELECT bjkb
wordTable=wordApp.Application.Documents.Open(wjm)
wordApp.Selection
wordApp.Selection.InsertAfter(ALLTRIM("&cnj&cbj"))
SELECT bjkb
FOR i=1 to 5
FOR j=1 to 6
cxkmc=ALLTRIM(EVALUATE("bjkb."+"zhou"+TRANSFORM(i)+TRANSFORM(j)))
wordTable.Tables.Item(1).Cell(j*2,i+2).range.Text=cxkmc
SELECT jsrkb
FOR k=1 to FCOUNT()
IF FIELD(k)=cxkmc
wordTable.Tables.Item(1).Cell(j*2+1,i+2).range.Text=EVALUATE(FIELD(k))
ENDIF
ENDFOR
ENDFOR
ENDFOR
SELECT bjkb
USE
SELECT jsrkb
WAIT clear
cFileName=cPath+"\"+cnj+cbj+"课程表.doc"
* wordApp.ActiveDocument.PrintOut
wordApp.Documents(1).SaveAs(cFileName)
wordApp.ActiveDocument.Close
ENDSCAN
wordApp.Application.Quit
MESSAGEBOX("班级日课表的word文档生成完毕！",64,"提示：")
RETURN
[此贴子已经被作者于2025-3-25 10:47编辑过]
