|
编号：PRG0067
名称：利用WORD模板文件批量生成事业单位工作人员年度考核登记表
代码：
CLOSE DATABASES
CLEAR ALL
cPath=ADDBS(JUSTPATH(SYS(16)))
SET DEFAULT TO (cPath)
cFileName1=cPath "\事业单位工作人员年度考核登记表"
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 "》,请稍候..."
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(岗位等级)
.Cell(3,6).RANGE.InsertAfter(岗位名称)
.Cell(4,1).RANGE.InsertAfter(本人总结)
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） 岗位等级 C（8）
出生年月 C（10） 岗位名称 C（8）
民族 C（6） 本人总结 M
政治面貌 C（8）
2、 事业单位工作人员年度考核登记表.doc（模板文件）   |
