編號(hào)：PRG0067
名稱：利用WORD模板文件批量生成事業(yè)單位工作人員年度考核登記表
代碼：
CLOSE  DATABASES
CLEAR  ALL
cPath=ADDBS(JUSTPATH(SYS(16)))
SET  DEFAULT  TO  (cPath)
cFileName1=cPath "\事業(yè)單位工作人員年度考核登記表"
nYear=SUBSTR(DTOS(DATE()),1,4)
nMonth=SUBSTR(DTOS(DATE()),5,2)
nDay=SUBSTR(DTOS(DATE()),7,2)
USE  ndkh  IN  0  ALIAS  ndkh
SCAN
xm=ALLTRIM(姓名)
dw=ALLTRIM(單位)
cFileName=cPath   "\" ALLTRIM(姓名)   "年度考核登記表.doc"
cWaitMesg="正在生成《" cFileName "》,請(qǐng)稍候..."
WAIT  WINDOW  cWaitMesg  NOWAIT  AT  SROWS()/2,(SCOLS()-LEN(cWaitMesg))/2
oWord=CREATEOBJECT("word.application")
oDoc=oWord.Documents.OPEN(cFileName1)
oTable=oWord.ActiveDocument.TABLES(1)
oWord.VISIBLE=.F.
WITH  oTable
.Cell(1,2).RANGE.InsertAfter(姓名)
.Cell(1,4).RANGE.InsertAfter(性別)
.Cell(1,6).RANGE.InsertAfter(出生年月)
.Cell(2,2).RANGE.InsertAfter(民族)
.Cell(2,4).RANGE.InsertAfter(政治面貌)
.Cell(2,6).RANGE.InsertAfter(文化程度)
.Cell(3,2).RANGE.InsertAfter(崗位類別)
.Cell(3,4).RANGE.InsertAfter(崗位等級(jí))
.Cell(3,6).RANGE.InsertAfter(崗位名稱)
.Cell(4,1).RANGE.InsertAfter(本人總結(jié))
ENDWITH
oWord.ActiveDocument.Content.Find.Execute('ABCDEF',.F.,.F.,.F.,.F.,.F.,.F.,.F.,.F.,'&xm',2)
oWord.ActiveDocument.Content.Find.Execute('GHIJ',.F.,.F.,.F.,.F.,.F.,.F.,.F.,.F.,'&nYear',1)
oWord.ActiveDocument.Content.Find.Execute('KL',.F.,.F.,.F.,.F.,.F.,.F.,.F.,.F.,'&nMonth',1)
oWord.ActiveDocument.Content.Find.Execute('MN',.F.,.F.,.F.,.F.,.F.,.F.,.F.,.F.,'&nDay',1)
oWord.ActiveDocument.Content.Find.Execute('OPQRSTUVWXYZ12345678',.F.,.F.,.F.,.F.,.F.,.F.,.F.,.F.,;
'&dw',2)
oWord.ActiveDocument.SAVEAS(cFileName)
oWord.QUIT
RELEASE  oWord
ENDSCAN
WAIT  CLEAR
附件：
1、  ndkh.dbf(年度考核表文件)
單位     C（20）             文化程度  C（8）
姓名     C（8）              崗位類別  C（8）
性別     C（4）              崗位等級(jí)  C（8）
出生年月 C（10）          崗位名稱  C（8）
民族     C（6）              本人總結(jié)  M
政治面貌 C（8）
2、  事業(yè)單位工作人員年度考核登記表.doc（模板文件）