邢唷>? `c?_u欹#` 餜4"bjbjmB$-hhhhDDDX8<X<X*c" '侞焍焍焍焍焍焍$篸h"g@胋!D@胋hh鋌rhVD?T'V;#@D# 国室~{# ?鷅0*c?xbgbg##&bgD%$胋胋*cXX$|$dXX|XXXhhhhhh  sQ嶯蛜tQ^1f踲S艌 gP杔Q鳶烻 N^^輸NS艌 gPlQ鳶 t^5000闟鰐講俶艌y橆v銁錧痵軴寶6ea翂^啹s鷁寶0201703鱏鑞 y橆vT饄t^5000闟鰐講俶艌y橆v鷁緥USMO蛜tQ^1f踲S艌 gP杔Q鳶烻 N^^輸NS艌 gP杔Q鳶 鷁緥0W筽蛜tQ鑞wm癳蜽_l鑞:SwmG昺o笅Qg誰篘鉔h鯯j_T€鹼5u輯13606572222y橆v'`(;N亯匭筟€b9et^5000N闟鰐講俶艌罷^啹s0201606鱏鑞 寶6ea翂蟸皊:W纇錱寶6e 鍕y橆v騗 c痵膵JT蔛ybY亯Bl=劄[哊鴙擽剉痵軴猚絜 烻R Ta惽忓媦橆v銁錧痵軴寶6e0 T鰁{樭NekZP}Y俌 N錧\O10%Ne20燫:_焇lal觛2柣l錧\O 螿\焇l鵞hT鬡痵僗剉q_蚑30燫:_鶹焇t (?枌N!kal觛0錘 N亯Bl1u鷁緥USMO%N D J N V X f h ~ 疴疴疴疴疴鹨鹨怵怵饪疴疴疴疴鹨疴翰灓灄摛灓垽h0JmHnHuhhCJo( h0Jjh0JUh.jh.U hpo($h5qh5qB*CJOJaJo(phh5qB*CJOJaJo(phhB*CJOJaJphhB*CJOJaJo(ph5" , L mmmm$dH$Ifa$gd@lykd$$If擳??X?€€?C#44 laytL N X ^ h € `GGGG$dH$Ifa$gd@lkdu$$If敒謀?X?€€> €'€?C#44 layt€ `GGGG$dH$Ifa$gd@lkd$$If攋謀?X?€€> €'€?C#44 layt f  2 ~ € pTTTTTT?dH$IfWD`?gd@ldH$Ifgd@lykd$$If敤??X?€€?C#44 layt€ }ussssssssj匄&`#$dgdkAfkd,$$If敐??C#?C#44 layt?dH$IfWD`?gd@l "" """$"&"("*","."0"2"4"dgdkAgd躽v$a$gd躽v$刪]刪a$匄&`#$刪]刪 ""0"2"4"鲰殄殂砷爬 hpo(h'3h猦h5丅*CJhOJPJQJRHBaJho(ph3Uh.hhCJaJo(hCJKHaJ 蛜tQ^ N^咜S痵僗軴@\噀鯪@ 0 0&P 1怌2P:p*@皞. 捌A!胞"胞#惸$恇%癝皀 惄s$$If枟!vh55#v#v:V擳C#,55/ ayt$$If枟!vh55> 5'5#v#v> #v'#v:V敒C#,55> 5'5/ ayt$$If枟!vh55> 5'5#v#v> #v'#v:V攋C#,55> 5'5/ ayts$$If枟!vh55#v#v:V敤C#,55/ aytW$$If枟!vh5C##vC#:V敐C#5C#/ aytN@?N ck噀 $1$a$$CJ KHPJ_HaJmH nHsH tH$A@?$ 貫祂=刉[SOFi@?F nf恏圏h :V 44 la k@? 鄀Rh N@N u w'$9r &dG$Pa$CJaJ< @< u$9r G$a$CJaJ)@ ux,L@, 錯g CJ OJPJ.2. yb鑜Fh噀,gCJaJf欯Cf QS]^bcprvw23lm45MN]^bcprvw23lmMNNVWXY^224455EEMN?B?HmMB?qBO磰Ht刪剺h^刪`剺(€ 凥刓H^凥`刓h圚) 勳刓^勳`刓h圚.€ 剱刓^剱`刓h圚.€ ?刓4^?`刓h圚) 勜 刓 ^勜 `刓h圚.€ 剕 刓| ^剕 `刓h圚.€  刓 ^ `刓h圚) 勀刓^勀`刓h圚.刪剺h^刪`剺( 凥刓H^凥`刓h圚) 勳刓^勳`刓h圚.€ 剱刓^剱`刓h圚.€ ?刓4^?`刓h圚) 勜 刓 ^勜 `刓h圚.€ 剕 刓| ^剕 `刓h圚.€  刓 ^ `刓h圚) 勀刓^勀`刓h圚.剋剦w^剋`剦(€ 凥刓H^凥`刓h圚) 勳刓^勳`刓h圚.€ 剱刓^剱`刓h圚.€ ?刓4^?`刓h圚) 勜 刓 ^勜 `刓h圚.€ 剕 刓| ^剕 `刓h圚.€  刓 ^ `刓h圚) 勀刓^勀`刓h圚.?HmMqBO                敘`9        ??錎Otnm?n't 絘 襈9?u?N+4 .鍴/銵2\Q9GF=砎>yv>@V$A aAkAQzF耡IkJh#N:PfsQS Vb]?]_}D_盕_uN_?`縗ah\:ip贖pq妕r眫s躽v~6xRjx鱈}!c}€鰖€A-鮮 3G)$''*@(y53琇侽.uX ?IL^?憉Sm5q?筬襧?ds f桱F`q!53?'7?絟\擪Q4?M^cqrwY_{DocWordm TemplateNamem^啹s鷁寶^啹s鷁寶.doc%V+B$B$V-B$B$VB$B$V B$B$V,B$B$V'B$B$VB$B$V B$B$V.B$B$V /B$B$V B$B$V B$B$V B$B$V B$B$V*B$B$V$B$B$V%B$B$VB$B$VB$B$V B$B$VB$B$V&B$B$VB$B$VB$B$VB$B$VB$B$V#B$B$VB$B$VB$B$VB$B$VB$B$VB$B$V B$B$V!B$B$V" B$B$V#!B$B$V$"B$B$ DraftDraftKewE#KewE#KewE#KewE#KewE#0( _eQ噀鄗_eQ噀鄗 RJeGov._eQ噀鄗?(钟种又钟种又钟种又钟种又钟种又钟种又钟种又钟种又钟种又钟种又钟倓倓魄破瞧倓倓钟种又钟倓倓魄破瞧倓倓钟种又钟倓倓魄破瞧倓倓钟种又钟倓倓倓倓钟种又钟倓倓倓倓倓倓倓倓倓倓倓钟种又钟倓倓倓倓钟种又钟倓倓钟种又钟倓倓钟种又钟倓倓钟种又钟倓钟种又钟种又钟种又倓钟?钟种又钟种又钟种又钟种又钟种又钟种又钟种又钟种又钟种又钟?钟种又钟种又钟种又钟种又钟种又钟种又钟种又钟謕( (@刡Custom Popup 17 (@刡Custom Popup 16800838 (@4YCustom Popup 18j: 詮轛濺lQ鹼邁?(肿种字???肿种字肿种字肿种字肿种字肿种字肿种字?渆肿种字??渆渆渆肿种字肿种字sus?肿种字?渆渆蝒e1e1渆渆肿种字Z]Z?肿諦AB??渆e1蝒e1e1e1e1e1渆肿諾]Ze1??渆e1蝒肿种字?e1e1e1e1渆Z]Z剢?e1?渆蝒e1肿种字肿种字?e1e1e1渆susc?e1?渆e1蝒肿种字肿种字肿种字肿种字肿謘us挡礳?e1渆e1蝒蝒蝒蝒蝒蝒蝒蝒蝒蝒肿謘us挡?ece1e1e1e1e1螝螝蝒肿治0剢劀?e1e1蝒肿种字肿种字?c蝒肿种字?剢劀e1蝒蝒肿种字?螝?c蝒肿种字肿治0?剢勂闷蝒蝒??蝒c蝒肿种字肿种字?蝒歝魉ノe蝒螝螝蝒肿种字肿种字肿种字蝒蝒e1e1e1e1螝蝒肿种字e1肿种字肿种字肿种字蝒蝒蝒蝒蝒蝒肿种字肿治e肿种字肿种字肿种字肿种字肿种字肿治e蝒蝒蝒肿謕(ApproveApprove?>h?>h?>h?>h?>h0 (@刡Custom Popup 17 (@刡Custom Popup 16713412 (@4YCustom Popup 18( 錱 w誹鶑錱 w誹鶑 RJeGov.錱 w誹鶑樿(€€€€€€€€€€€览览D@@D@D@D@D10033p(????餑繜??_?_?忂儫??( 悥蠀誹鶑悥蠀誹鶑 RJeGov.悥蠀誹鶑樿(€€€€€€€€€€€€览览p(醴象魁?喵鮛j: 詮轛濺lQ鹼邁?(肿种字???肿种字肿种字肿种字肿种字肿种字肿种字?渆肿种字??渆渆渆肿种字肿种字sus?肿种字?渆渆蝒e1e1渆渆肿种字Z]Z?肿諦AB??渆e1蝒e1e1e1e1e1渆肿諾]Ze1??渆e1蝒肿种字?e1e1e1e1渆Z]Z剢?e1?渆蝒e1肿种字肿种字?e1e1e1渆susc?e1?渆e1蝒肿种字肿种字肿种字肿种字肿謘us挡礳?e1渆e1蝒蝒蝒蝒蝒蝒蝒蝒蝒蝒肿謘us挡?ece1e1e1e1e1螝螝蝒肿治0剢劀?e1e1蝒肿种字肿种字?c蝒肿种字?剢劀e1蝒蝒肿种字?螝?c蝒肿种字肿治0?剢勂闷蝒蝒??蝒c蝒肿种字肿种字?蝒歝魉ノe蝒螝螝蝒肿种字肿种字肿种字蝒蝒e1e1e1e1螝蝒肿种字e1肿种字肿种字肿种字蝒蝒蝒蝒蝒蝒肿种字肿治e肿种字肿种字肿种字肿种字肿种字肿治e蝒蝒蝒肿謕(+Custom Popup 17 Custom Popup 170(>f:y刡>f:y刡 RJeGov.>f:y刡惥(悥蠀刡悥蠀刡 RJeGov.悥蠀刡惥(瀀燫NL刡悶X燫NLRJeGov.刡悶X燫NL惥(螿\NL刡愊Q\NLRJeGov.刡愊Q\NL惥Custom Popup 18 Custom Popup 180(>f:y4Y>f:y4Y RJeGov.>f:y4Y惥(悥蠀4Y悥蠀4Y RJeGov.悥蠀4Y惥ViewViewE?.e﨓?.e﨓?.e﨓?.e﨓?.e0 (@4YCustom Popup 18( 錱 w誹鶑錱 w誹鶑 RJeGov.錱 w誹鶑樿(€€€€€€€€€€€览览D@@D@D@D@D10033p(????餑繜??_?_?忂儫??( 悥蠀誹鶑悥蠀誹鶑 RJeGov.悥蠀誹鶑樿(€€€€€€€€€€€€览览p(醴象魁?喵鮛j: 詮轛濺lQ鹼邁?(肿种字???肿种字肿种字肿种字肿种字肿种字肿种字?渆肿种字??渆渆渆肿种字肿种字sus?肿种字?渆渆蝒e1e1渆渆肿种字Z]Z?肿諦AB??渆e1蝒e1e1e1e1e1渆肿諾]Ze1??渆e1蝒肿种字?e1e1e1e1渆Z]Z剢?e1?渆蝒e1肿种字肿种字?e1e1e1渆susc?e1?渆e1蝒肿种字肿种字肿种字肿种字肿謘us挡礳?e1渆e1蝒蝒蝒蝒蝒蝒蝒蝒蝒蝒肿謘us挡?ece1e1e1e1e1螝螝蝒肿治0剢劀?e1e1蝒肿种字肿种字?c蝒肿种字?剢劀e1蝒蝒肿种字?螝?c蝒肿种字肿治0?剢勂闷蝒蝒??蝒c蝒肿种字肿种字?蝒歝魉ノe蝒螝螝蝒肿种字肿种字肿种字蝒蝒e1e1e1e1螝蝒肿种字e1肿种字肿种字肿种字蝒蝒蝒蝒蝒蝒肿种字肿治e肿种字肿种字肿种字肿种字肿种字肿治e蝒蝒蝒肿謕(Custom Popup 19 Custom Popup 190TemplateTemplateK3eLK3eLK3eLK3eLK3eL0( 鬴bc!jgSelect TemplateThisDocument.SelectTemplateCustom Popup 102252941 Custom Popup 1022529410(悥蠀刡悥蠀刡 RJeGov.悥蠀刡惥(>f:y刡>f:y刡 RJeGov.>f:y刡惥Custom Popup 102330403 Custom Popup 102330403 0(悥蠀刡悥蠀刡 RJeGov.悥蠀刡惥(>f:y刡>f:y刡 RJeGov.>f:y刡惥Custom Popup 51051648 Custom Popup 51051648 0(悥蠀R悥蠀R RJeGov.悥蠀R惥(>f:yR>f:yR RJeGov.>f:yR惥(瀀燫NLR悶X燫NLRJeGov.R悶X燫NL惥(螿\NLR愊Q\NLRJeGov.R愊Q\NL惥Custom Popup 51157610 Custom Popup 51157610 0(悥蠀R悥蠀R RJeGov.悥蠀R惥(>f:yR>f:yR RJeGov.>f:yR惥(瀀燫NLR悶X燫NLRJeGov.R悶X燫NL惥(螿\NLR愊Q\NLRJeGov.R愊Q\NL惥Custom Popup 16713412 Custom Popup 16713412 0(悥蠀刡悥蠀刡 RJeGov.悥蠀刡惥(>f:y刡>f:y刡 RJeGov.>f:y刡惥(瀀燫NL刡瀀燫NLRJeGov.刡瀀燫NL惥(螿\NL刡螿\NLRJeGov.刡螿\NL惥Custom Popup 16800838 Custom Popup 168008380(悥蠀刡悥蠀刡 RJeGov.悥蠀刡惥(>f:y刡>f:y刡 RJeGov.>f:y刡惥(瀀燫NL刡瀀燫NLRJeGov.刡瀀燫NL惥(螿\NL刡螿\NLRJeGov.刡螿\NL惥 0"ck噀.ThisDocument.ToggleFieldDisplayck噀.ThisDocument.SelectTemplateck噀.ThisDocument.UpdateFieldsck噀.ThisDocument.Rejectck噀.ThisDocument.ChangeTemplate"ck噀.ThisDocument.LocateContentInputck噀.ThisDocument.UnlinkAllFieldsck噀.RJeGov.悥蠀刡ck噀.RJeGov.>f:y刡ck噀.RJeGov.悥蠀刡ck噀.RJeGov.>f:y刡ck噀.ThisDocument.FileSaveck噀.RJeGov.刡悶X燫NLck噀.ThisDocument.ToolsMacrock噀.RJeGov.刡瀀燫NLck噀.RJeGov.刡愊Q\NLck噀.RJeGov.刡螿\NLck噀.ThisDocument.ub鄀誹鶑噀鯪ck噀.ThisDocument.ToolsOptions%ck噀.ThisDocument.ToolsOptionsRevisions$ck噀.ThisDocument.ToolsOptionsUserInfo ck噀.ThisDocument.ToolsOptionsView$ck噀.ThisDocument.ToolsReviewRevisions(ck噀.ThisDocument.ToolsRevisionMarksAccept(ck噀.ThisDocument.ToolsRevisionMarksReject(ck噀.ThisDocument.ToolsRevisionMarksToggleck噀.ThisDocument.ToolsRevisionsck噀.RJeGov.GetItsNameck噀.RJeGov.SetItsNameck噀.RJeGov.SetRevisionsOptionck噀.RJeGov.錱 w誹鶑ck噀.RJeGov.詮轛OA鹼邁ck噀.RJeGov.鄀誹鶑ck噀.RJeGov.>f:y4Yck噀.RJeGov._eQ噀鄗ck噀.RJeGov.悥蠀誹鶑ck噀.RJeGov.悥蠀4Y%ck噀.RJEGOV.鄀誹鶑ck噀.RJEGOV._eQ噀鄗ck噀.RJEGOV.>f:y刡ck噀.RJEGOV.>f:y刡ck噀.RJEGOV.>f:y4Yck噀.RJEGOV.錱 w誹鶑ck噀.RJEGOV.悥蠀刡ck噀.RJEGOV.悥蠀刡ck噀.RJEGOV.悥蠀誹鶑 ck噀.RJEGOV.悥蠀4Y ck噀.RJEGOV.刡螿\NL ck噀.RJEGOV.刡瀀燫NL ck噀.RJEGOV.刡愊Q\NLck噀.RJEGOV.刡悶X燫NLck噀.RJEGOV.詮轛OA鹼邁ck噀.RJEGOV.GETITSNAMEck噀.RJEGOV.SETITSNAMEck噀.THISDOCUMENT.REJECTck噀.THISDOCUMENT.ub鄀誹鶑噀鯪ck噀.THISDOCUMENT.FILESAVEck噀.THISDOCUMENT.TOOLSMACROck噀.RJEGOV.SETREVISIONSOPTIONck噀.THISDOCUMENT.TOOLSOPTIONSck噀.THISDOCUMENT.UPDATEFIELDSck噀.THISDOCUMENT.CHANGETEMPLATEck噀.THISDOCUMENT.SELECTTEMPLATEck噀.THISDOCUMENT.TOOLSREVISIONSck噀.THISDOCUMENT.UNLINKALLFIELDS ck噀.THISDOCUMENT.TOOLSOPTIONSVIEW"ck噀.THISDOCUMENT.LOCATECONTENTINPUT"ck噀.THISDOCUMENT.TOGGLEFIELDDISPLAY$ck噀.THISDOCUMENT.TOOLSOPTIONSUSERINFO $ck噀.THISDOCUMENT.TOOLSREVIEWREVISIONS!%ck噀.THISDOCUMENT.TOOLSOPTIONSREVISIONS"(ck噀.THISDOCUMENT.TOOLSREVISIONMARKSACCEPT#(ck噀.THISDOCUMENT.TOOLSREVISIONMARKSREJECT$(ck噀.THISDOCUMENT.TOOLSREVISIONMARKSTOGGLE@€H*X?pp"UnknownG噝 €Times New Roman5€Symbol3& 噝 €Arial;媅SOSimSun;5 N媅_GB2312/5 癳媅SO1NS噀-N媅 1h]BJ嵌ZU??'-DD!-!),.:;?]}    & 6"0000 0 000000  =@\]^?([{  0 0 00000;[??iC亐dk2僸哌HP??M'2ck噀噀鯪RJeGovX   ?鄥燆鵒h珣+'迟0€  0 < HT`hpx 正文文件RJeGovNormalX25Microsoft Office Word@NSI@x?@VwX!@室D?胀諟.摋+,0 X`px€ RJSOFT'  ?? !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMN?PQRSTUV?XYZ[\]^??ab?eghijklmnopqrst??wxyz{|}~€Root Entry F=室d Data 1TablezgWordDocumentB$SummaryInformation(ODocumentSummaryInformation8WMacros 国室 国室VBA 国室 国室diruCommon fRJeGovv?frmSelect  ??? ?"?$%&'?)?+?q硛0* pH"dD正埼<@j= B r鮖X J< r€stdole>stdo€leh%^*\G{00€020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\e2.tlb#OLE Automation`婲or(mal僂N€Cr坢a€F €b €*\C U W蠽?Of坒ic刧Of€╥c俫潃搨!G{2DF8D04C-5BFA-101B-BDER5€gAA€e4€2坓Program Files\C ommonMicrosoft Shared\OFFICE11\MSO.DLL#僊 9.0 Object Li`brary€J€D@MSF€As>SF慏Bs3@耤D452EE1-E08F?A-8-02608C@4D0BB4賑F豈20 'B €p??;"1偮{B~ ?0}#0? €0吚8D61C9EA-D6B1-4398-8F1A-6F383@DBA5C9I^DOCUME~1\@ADMINIL OCALSTe續p\VBEZ??exd[??€?E忇?`孧 碋佫傎臫hisDocumentGT€苅sDD€ccu〆Tn€ 2 QHB1倀櫚A",ǖ?"+倂€RJeGovG(RJ繹G`v2>$购!!mfrm圫elVG€磃!sS!卌BM2/-/搝?(仌#oC m`/o`/摡1U"bID="{00000000-0000-0000-0000-000000000000}" Document=ThisDocument/&H00000000 Module=RJeGov Package={AC9F2F90-E877-11CE-9F68-0  +澈U" CopyFileAxME`+`@ i`i€iHLh?h?h刅h刓h刞h刦h則 +  i``+"h0 i`勜+i?i?`?+ @i?`i?`?+80i傶i傸`凗+Xpi?i?`?+^` i?(i?`?  i傽i?€ 凚`凞`凢`?` € +H i僇i僉 i僋`? o€€ H€ € €$€(8€ `€"€€(€$€*€"(€ B P€Xh€T@€ B HP X€h"p " & (08@X€ B `€hp€ B €€ B € (08 P`€ B h€px€ B €€ € (B 8€@€H€ `x€"(@H€ B P€X` xD€ € x]$t_1下载的模板的前缀] 1下载模板的目标文件名和路径] 1下载模板的URL地址] 1文档使用的新的文件字$^] 1文档可能使用的新的模板名称] 1文档使用的原来的文件字] 01文档使用的原来的word模板名称] H1自动更改模板信息标志`] \$' \$ '   !$ 'k8 \rjoawork.bakA@"   \rjoawork.bak\ $yyyymmddhhnnss$ $'i xB@]P  & ( * $~ A@,kP \*.* ( * $~'  \ $. $ \ A@0k ~' x!N'"ih] 2 4$8'6 6 2 6 $ 'kPiH]€ 2 4$8'6 6 2 6 4 $ ' ki]_ >'8 > : <'> > i0] 2 4'6 6 2 6 $ 'XkPiH]H 2 4'6 6 2 6 4 $ '^ki"将一个字符串按分隔符分成几个字符串`]]0H从第一个字母开始找'F_x F @ 4'6 6Gxj D酅Bx @ F 6 F $  D+B 6 4 'F D 'D D酅B @ F$  D+B B'i]@ J L'6 6 b J 6 $ N J J 6 L  $ Z 'J 6 N J L'6 J'Hi捕Attribute VB_Name = "Common" Option Explicit Declare FuncpCopyFile Lib "kernel32" Alias 32 Th "7€?D 燭ime "!/) < `3 - 1!餕illcAIend#8€$(!0Num衎er 0@@穱兺郞MainIsSepbBC縞A!=intPo傂I纍tegerC= In Rev' 鈤 `!?D r€A#$??襘aF勥飋{osooooy p臜j+誏Qz?fC0heckO tc巋l喿lngD齲oRD 嫟(+ 13B Ma@Loop 3:> 0 n3橮#-骵 Rin a? 昺?q?铵瞣 ,タF? 军军B$廃2~ ?€C? 羦]'将一鲎址捶指舴 殖杉窾 u?b籵des矎.qarrMsg(齆$CouLnt??, Star?'从第 母开颊意= 1f4a%&?sw奥 42 鄩#0Crh it DRe! Preser鴙e d€"}擤q-F65D"?!癅Q?o 镅#? ?9 ?轄! s緿V$Re邢cX$Sourc唀逥From鶂Tog_t斜 ?9_ts` ?3Rb PRR#8 搜嘾 =纁ft1X € xh ]@Xpx N!x!z'r N!|!~'v N!|!'t N!InsertFileStart58B@ €$B@ N!InsertFileEnd58B@]InsertFileStart78!<InsertFileEnd78!7. t !|( v !|(~ r !x(zInsertFileStart78B@InsertFileEnd78B@q`oXA@ 999q o 999qo(SetRevisionsOption 999qoh  9 9 9 9 9 9 9 9q8o0 B@BoC///////////////////////////////////////////////////////////////////* 以下是红头相关的操作C///////////////////////////////////////////////////////////////////0SubjectText是“文件标题”框DocMarkLine是“文号”下面的红线](   SubjectText7Z!\!^!|(  DocMarkLine7Z(qxop@`   SubjectText7Z!\!^!|(  DocMarkLine7Z(qo€KeywordText是“主题词”框!KeywordLine是“主题词”下面的线条CopySendText是“抄送”框CopyReportText是“抄报”框"CopyReportLine是“抄报”下的下划线]] $'  KeywordText7Z. !  ( KeywordLine7Z. !  (CopyReportText7Z. !  ( CopySendText7Z. !  ( !  (qo]0]H $'  KeywordText7Z. !  ( KeywordLine7Z. !  (CopyReportText7Z. !  ( !  (qo`]] $' CopyReportText7Z. !  ( KeywordText7Z. !  ( KeywordLine7Z. !  ( CopySendText7Z. !  ( !  (qo]]( $'  KeywordText7Z. !  ( KeywordLine7Z. !  (CopyReportText7Z. !  ( !  (qo@]€] $'  CopyReportText7Z!\!^!|( CopyReportText7Z( KeywordText7Z. !  ( KeywordLine7Z. !  (qo]] $'   CopySendText7Z!\!^!|(  CopySendText7Z(CopyReportText7Z. !  ( KeywordText7Z. !  ( KeywordLine7Z. !  (qxop `]`]x $'  KeywordText7Z. !  ( KeywordLine7Z. !  ( CopyReportText7Z!\!^!|( CopyReportText7Z(qpohX]] $'  KeywordText7Z. !  ( KeywordLine7Z. !  (CopyReportText7Z. !  (  CopySendText7Z!\!^!|(  CopySendText7Z(q0o(3=================================================== N!%!A@jo@]€请输入对象的名字: 公文对象命名 请取个名字$'   N!%(k0o( vAttribute VB_Name = "RJeGov" Option Explicit Sub 引胛恼?) ODrro@r Resu凬 exV2With ActiveD4oc6n08Dim oldIndent As Single, s纓rFontg, int!Size-In鄑egerOK@= Selevon.ParagraphFormat.FirstL鴌new / ?~.: P[.Bookmarks.Add Ra`nge:=O, :="InsertFileSptartlDialogs(wd).Sho"w?Endm s&2ed崮nLeftB鑟rd壭. G €&o6;返回@OA系统%:This沛.Clog!s膭'/= '盫?以下是红头相关的操作4凲B椎???j纜,是“文件标题”框=#'@!1号”下面的p红线S鈫眑V餫ria厛R3puapes("").qFr爳_3jQ厁26W鋒iaSh V ]bla梞so縆?€ 显蕕綼蠗罈c>t1眾@@Re鷇o"gg 1o抄送增糮右恍锌'pKeyw? !粥魈獯?!%!CC!线条 '€CopySen襅ahRepo鎟"报抄下的禄'nSte~p(儺o)= MillimetersToPo嵝zs(10T捒+飧s`b o`(6,"罤杘.Topps? r o?ho埤 oQ懈tk鳠r to.Heig靐t+*南筢* E小燊蚾譎onto绶aoxt??!.oooo煍?t 嚴鎜E`E减少oE? 陌o蝐藉-o:?";烔?rrM/圆 nStep  Set o = .Shapes("KeywordLine")渙.Top-孋opySe@ndText(巓€.Heighti + lEnd W ith  Su b  跎僖恍?窸n Error Re纒ume NiDim? As @Single o Variant 殌I-MillimetersToPoints( 107並 Thi餾Doc7伌,徺諶eport?k 鉱隐藏羖?js j蒵喡涟IE?GFrameBRange.Font.Color Index墂dpWhit膿V@isiblem纒oFalsH繉5 繉 vnc8送8m8m僽N.鐞?8?8葰.7(I煫ru_絖娇痷b 鹣允究y!3?A2A'''i'蜶僟婸婤lack鬨 JSTru$媣y军縮縮祍s痵 L姀?弾弾弾頣_=1_=*%Za/JOfLf ?  矡 p?=鯒GetItsN纐誤MsgBoxlectionSsIte鄊(1).疁0儸?sTemp鈿tr?C= Input("胧淙攵韵蟮拿郑?, "公蜝?命名莁肴「鲴农If <> ""賎渆nY? .9 |'#Ifz`Lg'澈摖xME(S<S<S<S<0{41D63F9B-83B8-49C3-A463-B7B61E220858}{5FC5D029-3BA9-4F89-AD86-48691AE8FC43}`勞`勡 `勣,!i凗 % Ai冟 @勷  `勻`刅  p@勷 `勻`匉`刅 ` `  €?PH %侢xP %xH P_€ €€ €&€"0€X€ Bpx€€ "  € "T@P `px€€ €    (0 @PX` p€€ "€ "€  ( 8Xpx €   € "€ € 8X2h  R D`h p€€2€ " € x]@ EnumWord代理的返回字符串]@ 文件字配置信息字符串]@0 数据库urlH 'mx ' ~$^'! ~$X,$'A@m  tH如果是打开word时提示的自动更改word模板的的确认,则列表中只显示新的文件字  V B@ ! (78kA@|xkp]H`xX B@   \$X'  V !  V % yk V !  B@k ! (kxopA@oX](@X B@   \$X' \$^|$X'  !d V ! V % yk€x V !  B@kPkH@ ! (kop<] 所有文件字配置信息] 选择的用户 !d\ !d'     '找到选中的文件字和模板信息 |$^!$X'\ !\  \'&g,下载的模板文件名以t_打头加上模板原来的文件名 ~$^/0/ !$^/$FILE/ \'$k A@r|x<p 系统错误: x!z x!N x!A@j|0o( A@ro镜Attribute VB_Name = "frmSelect"" €Bas€0{41D63F9B-83B8-49C3-A463-B7B61E220858}{5FC5D029-3BA9-4F89-AD86-48691AE8FC43}dGlob刟l婼paco False 奀r@eatablP€redeclaDId訲ruBE`xpose0TemplateDerivCus tomiz婦 €Option 1licit P€#€' str!As S縩g 'EnumWord代理姆祷刈址HvaV@ariant募峙渲`眯畔€8Url 7€'数€据库url?ub? Property Get& *)()G I€X6 EndLByVLal丗€ue)緾 F?=AR@Right( , "~"GN=eode(€5Lef  €,Fillq乨Lis纏N5DtS(ub I (If AutoChangeFlag Then '绻谴蚩獁纚时提镜淖远牧模板的的确认,则列表中只显示p新的|傽乥cbo?.AddItem NewD|oc€# ?C膐u@廅 0兩 Index?f0G!IfTypexit `##i#Dim ?€e,A?'?, iInteger#CleaDFor Ea腸h% InACS€B 釪〓&".\? i T膐 ?- 1 駥*(i)€例=AE? +m*Nex@Na i >?0o eAI ,誄i"LC 狺?椑e_C缹kedKG4紾ARJ鑜st.JJJ沐'OStr#?缼緗 Q?@刅?T€B衭奦e乹?嶸$J)?BO%!1?0_IAqK,`?_ ?u? ?a$ ._O9. qo*乹N cmdOK?扥0€rr0JGo餌萫rr癭dl悎?,opt!*葇0bp所有k}3Ase遼a'选择赖挠没GC?& O & eA1$俆 OTiIn?( [el) 找 窖≈绣i和al売A1纈諘$н@BYp?"1`1?i1own燗!!燭hisoument.PathsTEMPLATE_FILENAME_PREFIX}'下0载的q 名以t_打头加上Q原莉大名[Y /夡C囆 壉 /0/"p $ < '?.Unload M&漾Sub ?:#MsgBox "系统@错误:Err.Descri螳& Number€ Sourc11Can8cel[1X ThisDocument臷_VBA_PROJECTfPROJECTifrmSelect 国室 国室  揂澈岛xME PS"SS"<.<<<<(1Normal.ThisDocumentH ` om`Mi`ar` 1\`?cr`?`?`?`? ,,i? 8€i?X€ps鍂i?x€i?€i?€i?€痨 i傶€ B8* x `劒`劕 @ `劒 `劒`劺`劼`勀 8`劒弹出 `劒统A@`勔 X`勗 @(`勚   X    X   `劒 ``` @( v *X^ ? % ? % ?8%`?  T h i僐€i僒€  `刅`刋 `刞`刲` €?8  %    €€ €€€€ €(€0€8€@€ H€ "hx €€   €   (H<`(46@€ dHd:(h   (@H€P<X€ "  &  0 HX` x€€ ,$Hpx, 8P Xh€p>x€ "   € "€ €( 0@X hx €  € "€        € "( €0 €8 P X ` h p           € " €      € "( €0 €8 P X ` h p           € "       € "(  0 @ H P h p € "x  €      € "       € "   € "( 0 8 € "@ JH  € " € ~ 0P`*h€ "  4>H €   \PhXT(0 8HPX€`(h€ "€ $ T `€&&:8@$Hp€(€ "€ .€ € €@€ X€0x€  0€ € ( HPhp€   € <($h( 8H P`€ € Fh   € B ( 8 H€ Xp€ x  € € € (08€@|H   €0HP€Xxp   (08@H"P€ "X€ &€€ " € 8€ 0€ P€ 0p€ B0P"X"€""€ € €€€  € 08 Pp€  x€ "€ "€   8\H.THP Xh€p(x€ € x]]]0]H]`]x]]]所有文件字配置信息8<F .. 0$>'  2' 4' 6'" 8'$ :'& @!2'(  @(2A@B (D F!H(J F!H(L RPBody NB@AT 指示输入位置 & & $Z|$X'VH本次传入的文件字 &|$^'\H本次传入的模板0DocWord %b!d'`H原有使用的文件字 TemplateName %b!d'fH原有使用的模板< ` fHF如果原有使用的模板和文件字为空,说明第一次起草,要记录这些信息到文档中 V \Ah ` V `e>F如果原有文件字和新文件字不相等,那么要提示用户是否改变文件字对应的模板 $>viewwordG|j8如果是查看正文则跳过 系统监测到您在发文中把文件字从“ ` ”改为了“ V&”,是否要修改新文件字对应的模板格式? l n p 榕基办公自动化系统$j r't|k'tAv$ 弹出选择框k|<文档打开错误: x!z |榕基办公自动化系统A@j|`oX<F @(~A€  5( $5B@5( 5(  draftword5B@k  createwordA@kxqp Mail Merge$(  draftwordKTView$(Draft$(Approve$(Template$(4更换模板工具栏 approvewordK createwordKTAView$(Draft$(Approve$(Template$(4更换模板工具栏viewwordKTADraft$(Approve$(View$(n @(~|<无法合并数据源: x!z |榕基办公自动化系统A@jo@8 A@A ( @(2  @(kox]] @!2' $!'   @(2A@ F!H9J 9qXkPoH]( $!'  F!H9J 9qko@]€] @52'5'5' $!'   92 9 9k8q0o(]  $!' A@ko8]x] 5'5'5' $!'   9 9 9k8q0o( A@d N!!B@ko A@d N!!B@koX A@d` ! (k@o8 A@d $B@koA@oA@oX*在当前的宏安全设置情况下,无法使用此功能! |Microsoft WordA@jo`](“宏”选项只能用于开发人员进行系统完善。  请输入密码:(提示:宏的工程口令)请输入管理员密码$' hacker;rjegov $B@d 口令错误! |Microsoft WordA@jk`oX<F  createword (Dk !DG|j B@  draftwordK approvewordK createwordKT"是否要将最新的更改保存到OA系统中? n l $j  "A@!2002.10.25 PJT]0H_@'  " % ' $无法上传Word正文到服务器,是否重试?  nMicrosoft Word$j' d SaveWord&UNID=  &FileType= & &FileName=  % %' ok     是否重试?  nMicrosoft Word$j' kk  kn|< x!z |榕基办公自动化系统A@joh`提供换模板功能:模板选择8 LastWords !b%!d'*<F *EnumWord&Seq=  %'*K$读取文件字配置及其对应的Word模板配置 LastWords * !bBkx * () 赋值给表单  B@(显示模板替换对话框't(取消自动提示更改文件字标记 $$" &$"G没有选择或者取消|k $ & B(E 下载模板文件A*替换模板|p<h x!z |榕基办公自动化系统A@j|8o0(提供换模板功能:模板替换(表头表尾替换) 2003-07-24< ]*要替换的模板文档]*当前文档] *正文内容代表的范围]@*"标志是否有正常拷贝正文内容到剪贴板 .0 &$ ~*如果新模板不存在,则退出| k  1.关闭痕迹A€ 关闭痕迹纪录"2.把当前文档的正文内容拷贝到剪贴板6 Body 0%8B@H< N!.2 NB@: N!< 2(<6X BodyEnd 0%8B@H<0  NB@> N! 2( 2B@H'4@ NB@B< 63.把当前文档的正文内容从剪贴板粘贴到新模板文档的正文区 & D%.,8 打开新文档6h Body ,%8B@H<H N!.2 NB@: N!< 2(<6 BodyEnd ,%8B@H<  NB@> N! 2( 2B@H 4 NB@Fk @4.全选整个新模板文档(包含正文和表头表尾等)并把内容拷贝到剪贴板 ,B@H NB@J NB@B<5.把新模板文档(包含正文和表头表尾等)的内容粘贴到当前文档中 0B@H NB@J NB@F6.重新合并数据源A@B7.关闭新模板文档 ,(D ,B@B8.定位光标到正文开始A@T9.保存新的文件字和模板信息 V \Ah10.清空上一次的更换信息'$'&|68对不起,模板配置有问题,无法替换模板,请联系系统管理员!$L x!z x!N |榕基办公自动化系统A@j , ,(D ,B@Bk'$'&|@ &没有文本选中时进行剪贴板拷贝导致的错误'4< 出错则还原4对不起,替换模板时发生错误,系统将继续采用原有模板!$L x!z x!N |榕基办公自动化系统A@j 0B@P , ,(D ,B@Bk'$'&|oX把光标移动到正文输入区的开始 用于起草时指示输入正文内容的提示 2003-07-24@Body %8B@H NB@:o2记录文档使用的文件字信息和模板信息到word文档变量中DowWord:文件字名称TemplateName:模板名称*word文档中的变量名称和本函数的变量名称对应 2003-7-25DocWord %b@如果已经存在变量对象则修改其值 RDocWord %b(dd@ 否则增加变量DocWord R !bBk TemplateName %b T TemplateName %b(ddP TemplateName T !bBk o  合并所有域 !B@]X ]p !Z!X'X V X V %Z!\!^!B@ (Dop <`] B@b c:\oawork\ .doc'` `f jh B@d]  _'  ` % 'l l$无法上传Word正文到服务器,是否重试?  nMicrosoft Word$j' dP SaveWordTest&UNID=  %'l lok  l   是否重试?  nMicrosoft Word$j' kk  |< x!z |榕基办公自动化系统A@joXP<Attribute VB_Name = "ThisDocument" 孊as?Normal.VGlobal!猄paclFalse reatablPre declaId濼ruBExposeTemplateDeriv$Custom iz凜?Option €.licit Dim gobjFtp As Obje哻  User? S玭gUN ID WordType Bod聐 Sour€0File&OldK?All€饋A '所有募峙渲 眯畔>Sub OAOpen??, ?, OC兝 B, _ OK<;, ?)O€irror GoTo err€handle:C萐etFm= ?CBg?= LC蓝(g?=?倁顯52=侱H邉3D?=F8C兡Eq= App愧鷄隶.E& Q@似/C CDoMailpMerg@?0﹛.孲a蒬Act@gWindow.View.ShowFieldCod\es ${T羓G纑idlin&7Res NexcjSel€k p.侜What:=wdBookmark, n:="A-@暳Call Loc@~Cont`業nput '指示输入位置 New = 爏Left(Right(g1e2, L`^) - 1), "|") '本磤未氲模fF 廱傗 N B 酘 模板 ?燚C*:VariA0s("$").ValueN原有鹗褂毛@   'G B<鎣CIf *"" 8AndaLTh enM'如和?为眨得鞯谝淮纹鸩荩锹 颊庑牭嚼文档中 1侺Rec伕渌In榝o('J@Sew)奅 郖<>€^Q?d%9€和新#不相龋敲匆崾居没欠窀谋鋍对应的_/c濾P)忺"Jv>w€" EPxit 醎 遣榭凑€脑蛱?MsgBox("系统监獾侥诜€⑽闹邪褤€从“" &I& "”改?顺?,佈 要修改U格式?", vbYesNo +Ques鈡DefaultButton2消榕基办箑远 }唿=`QWAutoCegeF鴏ag跱1e駿P*If^S"%3Oe# '弹出选择框燇}o "?打开错误:Err.D`escri2帯C€ritical坷碪@!Pp曶繴2"榚(/K+>ikScreenU4pd餸nl无痕迹Wit辢*棯c!.謒n?扆 wd駽穰lo袡廅D膠鉫?F嫳!餰firm`veDrs恓s:=俻, ReadOnl鴜:=[乼 蟭 ge Not~A聕09琵褒dpraft讫 .s.Unpzk?qM`_ вoa!!Comm饹Ba6rk! 馾is^iC? A ?A?S?b D朦? P.rove@1 '槐\工具 栏C"app?忺捯藏?@` 8峡锠= €,懦唋'  @俭c O&袟?A0S, 凭綫hz _醲餩薹合并数据源`^scription, vbCritical, "榕基办公自动化系统" End Sub €Private8 Document_Close() If gUserName <> "" 0Then8@Fi@leSaveCall 生成无痕迹文劶Appl?W= gOld(WindowSt? wdMinimiz3?mIf q€t T爋olsO恠lDim ret As Integ|er傹 F倅€S`tring = 慺-= Dialogs(wd D).Show鐑€-1 瘮C 乥SetRevis纴D;With Active酑O.VieD$FieldCodes = FalsHv Sha繢€wd W绬Selected乪 C i?j_X逜cYG丗.G@鏑湴蔍nfo〔U哊!\#X, UI嗀C3 Gtal= &vI`@I.n缼郋hAeAd郿ressG? 8@e(-1) A?gWordxTyp髶aU轓feIAYa?z[t`箛TrackChange緎\!祪S寐OcéTR罥Bー璭a裀Sc(b拝蠂+ N擀€ 雷nG灖`莲PXO烴烴f.k?TRG!2.浑 P-jSO7A ?ubkMarksAcce ?q brDi鄐play  xUpdp茮  !MsgBox "在当暗暮臧踩柚们榭鱿拢薹ㄊ褂么斯@δ埽?斐Microsoft 鉁Ma@35XtW?GInput ("“宏”选项只能用于开发人员进行q和晟@啤? &絃 f€_"请淙朊苈耄?提示:宏的工程`口令)P 4範芾碓睉"缂 "h餭er;r鄇egovM?橯隌1错威箫? Fd艆On Error GoTo err爋dle:3ZL= "cre0#wp仢This7q薲PUh P蚬 Exit  ^cSH Ca8se FV2"d0raftR 摆ap鄍rove( # c("是否要将最新的更改保@存到OA?校恳,Ques 林 +€$YesN鋙)vb溒2B@!up Body '2002.10.25 P淛T/sRs/, iAyply镝€赫BoK1F8= 0"`鈕bjFtp.Upl黲a€Yq .5n雐慉上传q?正牡椒衿鳎琿重试O$9vbryCancel Orv&H1?00  1 +6yp.ExecuteAgent("SaveWord", "&UNI€D=" & g$ _ &RFileType'Zr"&Na俶4objFtscape(sRet))VIf  <> "ok? Then)intReply = MsgBox[€vbCrLf "是否粥厥裕j?vbOryCancel Or vbQuestion&H1000€揗icrosoft 倻攇End If廯 Loo衟 Wh l凣! SelectExit Sub errh繿ndle: 儚 Err.DesPcripA4,@7C€ritical?榕基办公自动化系`统"  @ Temp late(谬'峁┗荒0€骞δ埽篈愌≡馛OnAor Resum e NexD,gA`llDoc罰@qThis@€nt.Variables.Item("Last s")lueGoT躱 听攱"晪唃弄 菶num萐eqB糡imer)翆'读∥募峙渲眉捌涠嘣应的 ABA肅+ Call@稈:華ddI:, ?腪#d艛frmd.OtString@RI5'赋值给0表单!GShow`@Modal傾g'显示a替换对话框AutoCA`KgeFlaAFalse取H提示更劯膬#标记A?Trim(錒D€ownUrl) }4A爁A婁 '没有AL或哚# 莁hp嘊/e<load! 9-, Ic '哮略亓"!#b #"骵! '!'Assms ,uK:u!(表头表尾'2003-07-24Fy薽Dim 嘸uB冟x As 舮#B"'要A 的y?档€'@当前文r ^ Rang霵 '正文 谌荽鸂`姆段copyBY`Boolean'标志扔姓?奖 到剪0贴板 Se鑤 t= }€_0Dir$JN#L= 膿'如果耡$不存在,则退出AG?鑌'1.关闭痕迹s俆无a2'!%纪录c'2?把的Uk nobook癿arkc.Rs("Body€[覬S?kA觚g饂.QoAMoveRigh`t , 1p.郤tart郉 c ? 7u`m? h  Le悅 喧 H}??r_oQonote{uC€-8r'3??訐-粘?絻(q7S!区?膧?=?s i enO.?打开|新G<%.{ % C?%%%  teO%dO%O%l膸鱋%Q/O%d 0H鱲%K?P梩q5'4.全选整个?(癏琎C和誨祤龋┎厌WD豣.Activ'@wWh@YSt榦ry.'5@,鶑文0g?#-eN<中cEKop on.o#'6.匦潞喜⑹ 菰闯DoMailMerg'7Z 4?Qd'TF?Clos8.定位@光标到緿鬨LocCont€轎npud?9.保存H新丹櫤蛠f畔騜RecP酔岻nfo(N琫wP,q?P紈鞭ダ10.清丈弦淮蔚嗄更换w燒"0漆h裵wn噁{?对不穑琎 讯有侍猓薹唓,请祦凸芾 员!"@釩h鄏(13)€7檠Number恳g恳q ?No€ 鐸s h懝? /怿?//wn) Exit Sub notext: '没有文本选中时进行剪贴板拷贝导致的错误 ZcopyFlag = False*Resume N err@handle?出错则还原RMsgBox "对不穑婊荒0迨狈⑸g,系统将继续采@用原有!? & Chr(13) Err.DescriptionNumber, vbCritical, "榕基办公自动化/"僃thisDoc.Undo 1 If Not templat"e Is hi€ng Then亞.Saved1婽ru剨Clo楨nd If$T?wnUrl!"O File%傞 Loc€YContentInput()?'把光标移动到正文输入区@的开始糜谄鸩菔`敝甘 谌莸奶崾緞 2003-07-24On cor 妬A?T肳绬nt.Bookmarks("Body").Seplectr.MoveRight ,羋?Record臙Info (hW As HStr纇, NaテB记录文档使用的文件字佬畔⒑蛠橝到w@变恐蠧('Dow A: 名称sD :械牧和 竞鼼对苡耊€W5蔙Variablfe繰?")崺`'如果已经存在对笤蛐薷钠8渲 .5 .V竌lu!PCE@€/'否则0增加'Ca "ok薩) = d r&b朙f (駯"锆b?1:臺q @掄op Wh旽!鬣>V捕<: 翈櫑夕夕aS伔 蘟y *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020905-0000-0000-C000-000000000046}#8.3#0#C:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLB#Microsoft Word 11.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation*\CNormal*\CNormalUW蠽&*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL#Microsoft Office 9.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library *\G{8D61C9EA-D6B1-4398-8F1A-6F383DBA5C92}#2.0#0#C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library?E忇?`孧   r鮖X澈ThisDocument01585af572ThisDocument岛橝 RJeGov02585af572n RJeGov购>$frmSelect03585af572frmSelect摖0- Common04585af572  CommonU"H1hH0?佽;黺C樴╉s媝)? 汖K盡紻鸊PP漜鋒鬒?/d眇埒&h?O璡?痓飦€'(窻Word祂`VBA麾`Win16羱`Win32`Mac巢`VBA6?`正文?`stdole揱`€Normal哓`€Officeu`€MSFormsC` ThisDocument<瀈 €_Evaluate賎gobjFtp忊` gUserNameZ礰gUNID?` gWordType栶` gWordBody艰` gWordSourceV玚 gFileType=恅gOldUser鄃` gAllDocWordD`OAOpen_碻objFtp?`WordTypeY!`UserName\鎌UNIDq焋WordBody` WordSourceE輅FileType佬` errhandle玓`LCase:閌 Application?` DoMailMergeFSavedd蒨 ActiveWindow?`View蠭`ShowFieldCodes?`TableGridlinesZl` SelectionZ甡What酑`wdGoToBookmark`LocateContentInput"` NewDocWordN骮StrLeft鋊Right`NewTemplateName<鱜StrRightt朻 OldDocWords` Variablesn`Value銴`OldTemplateName 3`RecordTemplateInfo皜`MsgBox桼`vbYesNo漙 vbQuestion室`vbDefaultButton2戳`vbNo?`AutoChangeFlagA`SelectTemplated `Erro奰 Description ` vbCritical+}`ScreenUpdating! `无痕迹r訿 MailMergeげ`MainDocumentType羝` wdCatalog衊OpenDataSourceK俙ConfirmConversions碻ReadOnly4<`ViewMailMergeFieldCodes込`wdNotAMergeDocument?`Fields7ーUnlink0`UnlinkAllFields鰹` CommandBars `Visible队`隐藏痕迹啔`Document_Close7\`FileSave 生成无痕迹文件氖` WindowState|頯wdWindowStateMinimize4a` ToolsOptionsT]`ret蝋 OldUserName} `Dialogs娛`wdDialogToolsOptions鬼`Show鮜SetRevisionsOption7]` FieldShading `wdFieldShadingWhenSelected烆`ToolsOptionsViewP鱜wdDialogToolsOptionsView,焋ToolsOptionsUserInfo仪`UNl_`UIg_`UA__` UserInitialsM觍 UserAddressF郹wdDialogToolsOptionsUserInfo糮ToolsOptionsRevisions]{` wdDialogToolsOptionsTrackChanges6`ToolsRevisions玜`TRK_`PR穅`SR&_`ActiveDocument覾`TrackRevisions熍`PrintRevisionsShowRevisions`wdDialogToolsRevisions?`ToolsRevisionMarksAccept`Reject?`Range ` Revisions輁` AcceptAll?`ToolsRevisionMarksReject匎` RejectAll<)`ToolsRevisionMarksToggle赻ToolsReviewRevisions` wdDialogToolsAcceptRejectChanges`ToggleFieldDisplay}恅 UpdateFieldsR赻 ToolsMacrou骮InputBox`vbCrLf`wdDialogToolsMacroHS`Save捫`vbYesa?` BackupFile`sRet?`intReply,h` UploadFileE蝋vbRetryCancel` ExecuteAgent瀷`Escape(乣vbRetryg韅Item讂`Timer峏`Add鱮` frmSelect竊 OptionString听`vbModalt`Trim@颼TemplateDownUrl`TemplateDownFileD` DownloadFile1e`ChangeTemplate斈` templateDoc枧`Documentj觍thisDoc N`rngU蟕copyFlagr礰 nobookmark櫌` Bookmarks?n` MoveRight惕`Start`MoveLeftv揱notext?`Copy瓶` Documents`Paste`Activate梶` WholeStory渗`ChrK~`Number?`Undo脼`DocWord?` TemplateName阍`i``Count0v`Shapes?` TextFrame闵` TextRange竽` newfilename惾`AcceptAllRevisionse癭SaveAsf;`FileNamej胉 FileFormat熤`wdFormatDocument劯`newret╓`RJeGov+2`引入文章P,` oldIndent猭` strFontName鰩` intFontSizew`ParagraphFormat`FirstLineIndent`FontU`Size铥`wdDialogInsertFilej齚myRange?`Delete竫`查看痕迹qm`Options`InsertedTextMarkn`wdInsertedTextMarkUnderline燻InsertedTextColorn8` wdByAuthor*``DeletedTextMark嬏`wdDeletedTextMarkStrikeThrough撵`DeletedTextColor `RevisedPropertiesMark` wdRevisedPropertiesMarkUnderline騄`RevisedPropertiesColor瓓`RevisedLinesMark缝`wdRevisedLinesMarkLeftBorderP奰RevisedLinesColorし`wdAutoKV` 返回OA系统躟隐藏红头螴`of` ColorIndex鱼`wdWhite蕏`msoFalseF.`显示红头鵿`wdRed潞`msoTrue` 抄送增加一行`nStepR薫MillimetersToPoints涭`Top5赻Height|媊 抄报增加一行膂` 抄送减少一行侉` 抄报减少一行W抈隐藏抄报MU`隐藏抄送RE`显示抄报w坄wdBlack:黗显示抄送|x` GetItsName\|` ShapeRange樚` SetItsName`sTempe` strOptionbc` varOption`strUrl颬`strValueK蚡Explode鉦 FillWordListh揱cboWord.檂AddItem ` ListCount6` ListIndex鱍` FillTypeListu`varFile巂`strWord镉`Clear阃`List*揱cboWord_Click狾`strTypeAh`lstType窬` cmdOK_Click笣`opt】`self觍Path2`TEMPLATE_FILENAME_PREFIX`SourceG禶cmdCancel_Click\誤Common`CopyFile`lpExistingFileName稛`lpNewFileName亜`bFailIfExists腵kernel32_strFile X`strDir`strName隯` StrLeftBack?` StrRightBack=`ClearOtherDayFileN`Now%篳 vbDirectoryg赻vbSystem楒`vbHiddenT;`MkDir穈 FileDateTime`Kill佁`strMain聰`strSep`D`intPos譺`InStrRev膱`strCheck?`strMatchB訿lngPos6璥strMsgG&`arrMsgj`intCountP痐intStart?`Replacef` strSource`strFrom笀`strTo靉`o  H0AA00574A4F} BaseClass=frmSelect Module=Common HelpFile="" Name="正文" HelpContextID="0" VersionCompatible32="393222000" CMG="1113BDBBC1BBC1BEC6BEC6" DPB="22208EDD82FA82FA7D0683FACD8207C4F740C44297BE5F049FC860D07ACE8BDE103184EA0E" GC="33319FCCB1CDB1CDB1" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDocument=0, 0, 0, 0, C RJeGov=0, 0, 0, 0, C frmSelect=0, 0, 0, 0, C, 22, 29, 1252, 600, C Common=0, 0, 0, 0, C foCompObj!aVBFrame#'(H  @}R 憦濄K窺恄宋体$€4cboWordOO$€0cmdOKrdO( €0cmdCanceli$€0lstTypeO A€H€(5?媅SO(nx歔{u?媅SO(諷坢{u?媅SO`€ 5?媅SO? Microsoft Forms 2.0 窗体Embedded Object?瞦VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmSelect Caption = "请选择Word模板" ClientHeight = 2565 ClientLeft = 45 ClientTop = 330 ClientWidth = 3495 StartUpPosition = 1 '所有者中心 TypeInfoVer = 8 End PROJECTwm(qCompObj*mThisDocumentThisDocumentRJeGovRJeGovfrmSelectfrmSelectCommonCommon?  FMicrosoft Office Word 文档 MSWordDocWord.Document.8?瞦