现有 “股票信息统计表模板.doc”文件和表文件“全部股票.dbf”,我想利用模板文件自动生成多页的“股票信息统计表.doc”，下列程序不知如何修改，请高手赐教，万分感谢！！！


程序代码：
SET TALK OFF
SET SAFETY OFF
SET DATE TO YMD
SET MARK TO "-"
SET CENTURY ON
SET COMPATIBLE OFF
wjm="F:\temp2\股票信息统计表.doc"
WordApp=CREATEOBJECT("Word.application")
WordApp.Visible =.t.
WordTable=WordApp.Application.Documents.Open[wjm] && 关键
SET PATH TO F:\temp2
use 全部股票.dbf
FOR i=1 TO FCOUNT()
FOR k=3 TO RECCOUNT()+2  && word模板表头有2行
GO k-2
WordCellText=EVALUATE(FIELD(i))
DO CASE
CASE ISNULL(WordCellText)
WordCellText=""
CASE TYPE("WordCellText")="N"
CASE TYPE("WordCellText")="D"
WordCellText=DTOC(WordCellText)
CASE TYPE("WordCellText")="T"
WordCellText=TTOC(WordCellText)
CASE TYPE("WordCellText")="M"
WordCellText=TRIM(WordCellText)
WordCellText=STRTRAN(WordCellText,CHR(13),' ')
CASE TYPE("WordCellText")="L"
WordCellText=IIF(WordCellText,".T.",".F.")
CASE EMPTY(WordCellText)
WordCellText=" "
OTHERWISE
* WordCellText=""
ENDCASE
IF EMPTY(WordCellText) OR ISNULL(WordCellText)
WordCellText=" "
ENDIF
WordTable.Tables.Item(1).Cell(k,i).Range.Text=WordCellText
WordTable.Tables.Item(1).Cell(k,i).Range.Font.Size=9
ENDFOR
endfor
WordApp.Documents(1).SaveAs("F:\temp2\股票信息统计表.doc") &&自动保存文件
RELEASE WordApp
WAIT CLEAR
MessageBox( "生成Word文件完毕，文件位置 F:\temp2\股票信息统计表.doc！",64,"完毕")
RETURN

wjm="F:\temp2\股票信息统计表.doc"
改为：
wjm="F:\temp2\股票信息统计表模板.doc"

@xuminxz 非常感谢指点！