ࡱ> ilhr}g R)bjbjVVB6r<r< /&FF8*,V<a(D $D9&y`y`y`y`y`y`$cFfD`!XXX`FFL`!!!X~Fl'/^ !X9!!V=)@,*w}) /`0a)xff**&f'*XX!XXXXX``^ rXXXaXXXXfXXXXXXXXX, : 0 -NV5u^ƖV^ gPlQS蕇eN ZQ0201803SlQS2018t^,{Nc[^ebSp lQS@b^\TUSMO0,gT cgqNlQSZQY2018t^,{Nc[^͑p]\O[c V~lQSuN~%09eiSU\SZQ^͑p]\O ~TƖVb~Qz_O[ ObSBl lQSZQY6R[N2018t^,{Nc[^[ O]\Op,sNNpSS w/{_=[0 1.c~b}YmeQf[`N/{_`Nяs^eeN-NVyrr>yO;NIN``TZQvAS]N'Y|^yv[ ObS0 'YR[ OTlQS/{_=[ZQvAS]N'Y|^yve\O:Ne>Nc meQ[ ObShQlQST~ZQ~~T^'YZQXT m;RO0Qnxbc0ZWQL`Nяs^eeN-NVyrr>yO;NIN`` V~lQS-N_]\OT9eiSU\ZQ^]\O[E _U\vwQSO]\O0Suv͑SS0S_v͑'YbgV~f[`N/{_`Nяs^eeN-NVyrr>yO;NIN``TZQvAS]N'Y|^y RNcQNyb gNNc0eNR (W'YRcۏTUSMOvNOSte0b/g{tReI{ [sON(ϑHevSU\v gHec"}0Re`0yf[>NcT0N[bg0 R{vhQbmS9ei0 NeReSU\v _[TRXT^'YL]t/ec9ei0ygb9ei ~N`` QZqQƋ0 3.meQ_U\~_9ei_>e40hTt^flQSmS9ei[ O0 cgqVDY~N[c,ygZP}Y^]y9ei_>e40hTt^͑'Y;mRf[`N[ O]\O meQ;`~0EQR[ OU\:ylQS(W9ei_>eSSۏ z-NS_v>fWb1\T[5~ yr+R/fZQvASkQ'YNegvSS'`b1\SS'`Si 'YR[ OlQSwQ g9ei_>eh_'`aINvxQWN~0xQWNN0xQWNir~T[E_U\Ty gRa0 gaINv[ O;mR Z&qlQS(Wbeu͑~0^:WS~%:g6R9ei0mT@b g6R9eiTO~O~g'`9eiI{ebv>Nc [ OU\:ylQSoS;mR0ZP:_ZPOZP'YV gD,gveۏU\e\O:N0 4.c~R:_cRlQS[sfؚ(ϑSU\v[ ObS0 [ OTUSMON`Nяs^eeN-NVyrr>yO;NIN``:Nc[ ZWc3z-NBlۏ]\O;`W ygLeSU\t_ w/{_ؚ(ϑSU\Bl c~cRONlWGS~0c(XHe 2STyΘi nxO[sONt^^KYevhvۏU\T[He[ OlQSyg^[ YBg%N\v~%b_RT̍[wOv^:WsX bS_ g:N0wb[r^ ~%N~TSU\ROc3z-N gۏvN~bg[ OlQSnpfvSU\_Tbeu SOslQS/{_=[eSU\t_ zQ8h_NR bT$N*N^:W 'YRcRO~O~g'`9ei R_~gle_ R_hQtSSU\ NebU\SU\zz0X:_SU\Rv~ZPl0 5.'YRR:_HQۏ!jNir0HQۏƖSOv[ ObS0 b}Y NN 0 NV T  468:<RTVXZ\~§㏅t`RG7hsdhwu4@OJmHnHuhp!@OJPJo(hc)hp!@OJPJo('hsdhwu4CJ,OJPJQJmHnHu!jhoSOJUmHnHo(uhChp!OJo(hsdhwu4OJmHnHuhS hp!OJo(4h2fhoS@B*CJHOJPJQJRHMaJHo(phh8PhH]OJPJo(h whH]OJPJo(hH]OJPJo(h8Php!OJPJo(hsdhwu4OJPJmHnHu  46uh_ $Ifgdp! $IfgdoS?kdL$$If" t64aytd31?kd$$If" t64aytd31 d$Ifgd_68:<Txf$<$IfUDd]<a$gdoS?kd$$If" t64ayt : $Ifgdp!?kd$$If" t64aytoSTVZ\o`NB d]gdW`dWD]``gdfWbHeI{Q[v[ ObS $\vQBlVGrv:Wof&{TONQXb_Tefe]ĉ v^EQn;mR wQ ge'`0agRTƉɉQQRvVGr0 8.;NRZP}Y_[ NeReZSO[ ObS0 sQl-N.Y;NAmZSObS S_l}[ O-N.Y0V['Y?eevsQbS O CgZX :NTlQSZQ^[ ObS]\O[bT :_S_[Rϑu_NTQ Odĉ_ ^yRS0xGrS0Em0_ Odv Odyrp EQR)R(u_OI{eZSOs^S OdQ[^N|Qw\0;m g0ag'`:_vOo`:N;N UNN\҉^ReQ'Y;N N\Nirb\'YNyOlQOhQbU\:yONvo}YSxTTLrb_a0  ZQY]\O 2018t^4g20e       PAGE 4   PAGE 5  -NV5u^lQSZQY]\O b 2018t^4g20epSS ((((((((((())) ) ))))))()*)ʼmVCV$h~$hagn0JCJEHOJQJaJ-jh~$hagn0JCJEHOJQJUaJ'h~$hagn0JCJEHOJQJaJo(hMjhMUhc)hvOJo(!jhXUOJUmHnHo(uh hu6OJo(h h=CWOJo(hsdhwu4OJmHnHuhwu4h=CWOJo(hhD4@OJPJhhD4@OJo($hwu4heDB*OJQJ aJ o(ph(((((())) ))))){yyyyyyyygdyH$d@&UD]a$gdwu4@&WD]`gdW]gdp!Tkd$$Ifl0" t644 layt R *),).)4)6)8)<)>)J)L)N)P)T)V)X)Z)\)l)v)ӿwdPIE>3hWaJ nHo(tH hpaJ o(hM hagnCJo('hlhagnCJKHOJPJQJaJo(%hVt0JCJOJQJaJmHnHu h2(chagn0JCJOJQJaJ)jh2(chagn0JCJOJQJUaJ#h2(chagn0JCJOJQJaJo(hagnhWhagnCJaJo('h~$hagn0JCJEHOJQJaJo(-jh~$hagn0JCJEHOJQJUaJ)hVt0JCJEHOJQJaJmHnHu)4)6)8)V)X)Z)\)x)z)))))))) $4$a$gdXU (d^(gdW(dWD8^(`gdWgdXU$ r t"]a$gdW$d&`#$+Da$gd>h]hgdW$d&#$+Da$gd[iv)x)z))))))))))))Ź띏}shc)hvOJo(hMh`hXUCJPJaJo(hwhXUCJOJaJo(#hsdhwu4CJOJaJmHnHuhXUB*OJphhXUB*OJo(ph$h`hXUB*CJPJaJo(ph$hwhXUB*CJOJaJo(phhagnh8TEhXUOJPJnHo(tH ))gdyH@&P 0p1?2P:pv. A!4"#2$%S J$$If!vh#v":V  t654 ytd31J$$If!vh#v":V  t654 ytd31J$$If!vh#v":V  t654 ytoSJ$$If!vh#v":V  t654 yt :J$$If!vh#v":V  t654 yt :J$$If!vh#v":V  t654 yt :N$$If!vh#v#vT:V l t655yt Rb 2 0@P`p2( 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p8XV~PJ_HmH nHsH tHN`N cke $1$a$$CJ KHPJ_HaJmH nHsH tH$A`$ ؞k=W[SOFi@F nfhxjm)ʬuWLfdݮ+5_4csj-V?k3rm}gz gs嚋7xwsȈR W*)|jȫKXͫ dXIBF؇bnh ( *'vɗ3KZjz'c*_=}<9ݻw~]8^~_o?xYýg~^G}J0Emh=Ԅ Ξa>s$-, Oɠ=Hp Ua/ UO d*:(.fTU/!9$V[|hrvs-iUt. 6ڪ4Cebs)bMjBekp um,fd$͑{6GUVf~b#Vb@qTTW.ޛd)i@vdq9Y^X7{2%uHx+af6]>f#sm*qqDHehK)@?71oggo`:fղekp£2֌Nj8ǰD CB?81e>nEeU}H]dm1iQ6褣֧ %9 %(9 6 ...1(*)v)) 6T())) &(1!!P    A @H 0(   8(    . `CopySendText`T`T`T`TC"`? B  c <DKeywordLine#" ?  63"`? B  c >DCopySendLine3"?bB  C D3"?  63"`? bB   c $ !Ԕ"?B S  ?+ 9  ,",t 38"38(-86+:,7"7h-8!+:, u:"u:(38"38,Body BodyStart_GoBackBodyEndNN : NN : NO\6BV[mt0:<HS]_'->BW6d     ! $ 7 : fh    d m   7 : 333sss33333.     ! ' ) 5 7 : ))+,..??AAN      ! ! $ $ ( ( ) ) 3 3 6 6 : 5BzHmMBqBOHthh^h`o( H\H^H`\hH) \^`\hH. \^`\hH. 4\4^4`\hH)  \ ^ `\hH. | \| ^| `\hH.  \ ^ `\hH) \^`\hH.hh^h`o( H\H^H`\hH) \^`\hH. \^`\hH. 4\4^4`\hH)  \ ^ `\hH. | \| ^| `\hH.  \ ^ `\hH) \^`\hH.ww^w`o( H\H^H`\hH) \^`\hH. \^`\hH. 4\4^4`\hH)  \ ^ `\hH. | \| ^| `\hH.  \ ^ `\hH) \^`\hH.5HmMqBO                `9        V549.I9o~'/,`)9e 8 @ !\  p 6 Z2Zp'yw4;P8ZN/g7Vtv/+*vIS-C F /"R+#c$~$ %.d&r&'n\'R}(|N)9|* +k+m+\7/>0~0-1d31\1O2D4wu4 5Pz5yK6e7k:E<h=@dT@DNAjBHODeDEKnG.ZHI Ij>IVJ\JRKj/MSM>UNQO8P%KQ RoS'Te:T U$UBUXUaU=CW9nW},Y[![@[3\ ]H]Q];_q_ G`aaa9Ec)d@dbdeidudvdfsfiWjPDkn*nOnagn/pXHpmqjpq).s?Rs)ituvkw.x'z6z};zbz { <{]|wk|F}3K;y2/_Tt`+/ZA`95@MUa$yHEMmS .qAa& xD_(, 5=!??cs>0C :gSXWee|wd)e * XA+oqZp$^Wm ;AnF;\#Lvr-m\yu6Y:|Cdlm fMp!6{I~/7CfiB{ :y7W"@v3> zBT}2SDpp{M?iokub[i3c)Gr#E$=#1$ Np7#|I lHaeV,/EkxQnsm?zw9 CookiesDbURLDocWordgExistBodyBookMark gFileTypegOldUsergUNID gUserNamegValType gWordBody gWordSource gWordType ServerURL TemplateName WordStatusR__guid=65393840.2037540883082143500.1501485299795.9653; Hm_lvt_6adbf1223866fb4a54da0a811720a690=1520482405; iTrusSsoTGT=eyJUR1QiOiJleUprWVhSaElqcDdJbUYxZEdoT1lXMWxJam9pNVkrajVMdWs2SzZrNksrQklpd2lZWFYwYUZSNWNHVWlPaUp3WVhOemQyOXlaQ0lzSW1GMWRHaE1aWFpsYkNJNklqSWlMQ0pzYjJkcGJrNWhiV1VpT2lKc2FXWjVJbjBzSW1OdmJtUnBkR2x2YmlJNmV5SmlaV2RwYmxScGJXVWlPakUxTWpJek1EVTBNelF4T0Rrc0ltWnBibUZzVkdsdFpTSTZNVFV5TWpNd09UQXpOREU0T1N3aWNtVnRiM1JsU0c5emRDSTZJakV3TGpFdU1qTXdMakV3TWlKOWZRPT0iLCJTSUdOIjoiUHRtd0twUWdXMnZSSmY3NkRBK1pGNWlXMm9NPSJ9; IWASessId=BD5B80A7FAB3747D2E9E365567782EEA; LastLoginUserPassword=aaaa1111; LastLoginUser=%u674E%u67AB%u53F6; LtpaToken=AAECAzVBREU3NkUwNUFERjAzODBDTj0TwO4Tt+MT0rYvTz1UTEdTgcCOpTXk3ZlQlh+H5ERe5WGs97U=; oahost=oa.tl.powerchina.cn; companyCode=TLGS; ispage=0; CurrentTheme=default; docOpened=opened9D0B5A08ADC49BEC4825827400118359.http://oa.tl.powerchina.cn/tlgsoa/dispatch.nsflQSSeFalse1lQSSe|Se NLe.docNggS 024180588C925D6348258275002F5257NggS15c:\oawork\024180588C925D6348258275002F5257Se NLe.doc0c:\oawork\335158E21DFD33BE2FAE8EBE374091E0ds.htm createwordhttp://oa.tl.powerchina.cn Se NLe.doc CreatedWord.V B<B6VB<B6VB<B6VB<B6V B<B6VB<B6V#B<B6V"B<B6VB<B6V &B<B6V 'B<B6V *B<B6V B<B6V !B<B6V)B<B6V$B<B6V B<B6VB<B6V(B<B6V%B<B6VB<B6VB<B6V B<B6V-B<B6VB<B6V B<B6V,B<B6V+B<B6VB<B6V B<B6VB<B6VB<B6V B<B6V!B<B6V"B<B6V#B<B6V$B<B6V%B<B6V&B<B6V'B<B6V(B<B6V)B<B6V*B<B6V+B<B6V,B<B6V-B<B6  +Custom Popup 17 Custom Popup 171(XRNLbXRNL RJeGov.bXRNL(Q\NLbQ\NL RJeGov.bQ\NLCustom Popup 18 Custom Popup 181(>f:y~4Y>f:y~4Y RJeGov.>f:y~4Y(υ~4Yυ~4Y RJeGov.υ~4YCustom Popup 19 Custom Popup 191Custom Popup 102252941 Custom Popup 1022529411(υbbυbb RJeGov.υbb(>f:ybb>f:ybb RJeGov.>f:ybbCustom Popup 102330403 Custom Popup 1023304031(υbbυbb RJeGov.υbb(>f:ybb>f:ybb RJeGov.>f:ybbCustom Popup 51051648 Custom Popup 510516481(υRυR RJeGov.υR(>f:yR>f:yR RJeGov.>f:yR(XRNLRXRNL RJeGov.RXRNL(Q\NLRQ\NL RJeGov.RQ\NLCustom Popup 51157610 Custom Popup 511576101(υRυR RJeGov.υR(>f:yR>f:yR RJeGov.>f:yR(XRNLRXRNL RJeGov.RXRNL(Q\NLRQ\NL RJeGov.RQ\NLCustom Popup 31904245 Custom Popup 319042451(>f:y~4Y>f:y~4Y RJeGov.>f:y~4Y(υ~4Yυ~4Y RJeGov.υ~4YCustom Popup 31929612 Custom Popup 31929612 1(XRNLbXRNL RJeGov.bXRNL(Q\NLbQ\NL RJeGov.bQ\NL.cke.ThisDocument.SaveObjectscke.ThisDocument.ToolsOptionscke.ThisDocument.UnlinkAllFields%cke.ThisDocument.AcceptAllChangesInDoccke.ThisDocument.wIDNcke.ThisDocument.CenterTitlecke.ThisDocument.InsertBarcke.RJeGov._eQezcke.RJeGov.g wucke.RJeGov.υu cke.RJeGov.eucke.ThisDocument.doClipboardNullcke.RJeGov.SetRevisionsOptioncke.ThisDocument.FileClosecke.RJeGov.ԏVOA|~cke.RJeGov.υ~4Ycke.RJeGov.>f:y~4Y cke.ThisDocument.ToolsOptionsViewcke.ThisDocument.ProcessCopySend%cke.ThisDocument.AcceptAllChangesShown%cke.ThisDocument.AcceptChangesSelected%cke.ThisDocument.RejectAllChangesInDoc%cke.ThisDocument.RejectAllChangesShown%cke.ThisDocument.RejectChangesSelected$cke.ThisDocument.ToolsOptionsUserInfo%cke.ThisDocument.ToolsOptionsRevisionscke.ThisDocument.ToolsRevisions(cke.ThisDocument.ToolsRevisionMarksAccept(cke.ThisDocument.ToolsRevisionMarksReject(cke.ThisDocument.ToolsRevisionMarksToggle$cke.ThisDocument.ToolsReviewRevisions"cke.ThisDocument.ToggleFieldDisplaycke.ThisDocument.UpdateFieldscke.ThisDocument.Rejectcke.RJeGov.bXRNLcke.RJeGov.bQ\NLcke.RJeGov.ProtectDocumentcke.RJeGov.UnProtectDocumentcke.RJeGov.GetItsNamecke.RJeGov.SetItsNamecke.ThisDocument.ToolsMacrocke.ThisDocument.FileSavecke.ThisDocument.g wS?zcke.ThisDocument.SelectTemplatecke.ThisDocument.ChangeTemplatecke.ThisDocument.CheckRedHead. cke.RJEGOV.eucke.RJEGOV._eQezcke.RJEGOV.>f:y~4Ycke.RJEGOV.g wucke.RJEGOV.υucke.RJEGOV.υ~4Ycke.RJEGOV.bQ\NLcke.RJEGOV.bXRNLcke.RJEGOV.ԏVOA|~ cke.RJEGOV.GETITSNAME cke.RJEGOV.SETITSNAME cke.THISDOCUMENT.g wS?z cke.THISDOCUMENT.wIDN cke.THISDOCUMENT.REJECTcke.THISDOCUMENT.FILESAVEcke.RJEGOV.PROTECTDOCUMENTcke.THISDOCUMENT.FILECLOSEcke.THISDOCUMENT.INSERTBARcke.THISDOCUMENT.TOOLSMACROcke.RJEGOV.UNPROTECTDOCUMENTcke.THISDOCUMENT.CENTERTITLEcke.THISDOCUMENT.SAVEOBJECTScke.RJEGOV.SETREVISIONSOPTIONcke.THISDOCUMENT.CHECKREDHEADcke.THISDOCUMENT.TOOLSOPTIONScke.THISDOCUMENT.UPDATEFIELDScke.THISDOCUMENT.CHANGETEMPLATEcke.THISDOCUMENT.SELECTTEMPLATEcke.THISDOCUMENT.TOOLSREVISIONScke.THISDOCUMENT.DOCLIPBOARDNULLcke.THISDOCUMENT.PROCESSCOPYSENDcke.THISDOCUMENT.UNLINKALLFIELDS cke.THISDOCUMENT.TOOLSOPTIONSVIEW!"cke.THISDOCUMENT.TOGGLEFIELDDISPLAY"$cke.THISDOCUMENT.TOOLSOPTIONSUSERINFO#$cke.THISDOCUMENT.TOOLSREVIEWREVISIONS$%cke.THISDOCUMENT.ACCEPTALLCHANGESINDOC%%cke.THISDOCUMENT.ACCEPTALLCHANGESSHOWN&%cke.THISDOCUMENT.ACCEPTCHANGESSELECTED'%cke.THISDOCUMENT.REJECTALLCHANGESINDOC(%cke.THISDOCUMENT.REJECTALLCHANGESSHOWN)%cke.THISDOCUMENT.REJECTCHANGESSELECTED*%cke.THISDOCUMENT.TOOLSOPTIONSREVISIONS+(cke.THISDOCUMENT.TOOLSREVISIONMARKSACCEPT,(cke.THISDOCUMENT.TOOLSREVISIONMARKSREJECT-(cke.THISDOCUMENT.TOOLSREVISIONMARKSTOGGLE@ BB d9 hh Unknown G*Ax Times New Roman5Symbol3. *Cx Arial;= |8ўSOSimHei9E eckўSO_GBK7E eck\h[{SO;([SOSimSun;5 N[_GB2312CE  eckN[_GBK_oŖў-= |8N[A$BCambria Math!qhw dGI g1b99!-!),.:;?]}    & 6"0000 0 0 00000 =@\]^([{  0 0 00000;[42?2 <| ; 3qHX??Rs2! xx ckeeNRJeGovNggS   Oh+'0p   , 8 DPX`h ļRJeGovNormalҶ49Microsoft Office Word@ @h@@~w՜.+,0 `hx RJSOFT<9    !"#%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWYZ[\]^_abcdefgjkonpqtuvwxyz{|}~Root Entry Fpwm)Data 1Table$fWordDocument B6SummaryInformation(XDocumentSummaryInformation8`MsoDataStore"`wЗwUYKWOESDNUEFN==2`wЗwItem  PropertiesUMacrosЗwwVBAЗww  !"#$%'()*+,-./0123456789:;<=>?@ABCDEFGIJKLMNOPQRSTUVWXYZ[]^_`abcdefghijklmopqrstuvwxyz{|~ 0* pH"dD<@j= B  1Z J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\SysW OW64\e2.tlb#OLE Automation`Nor(malENCrmaF b *\C  ?U!OfficgOficg!G{2DF8D04C-5BFA-101B-BDER5gAAe42gProgram Files (x86)\Common \Microsoft Shared\OFFICE14\Mdir Common s3RJeGov&__SRP_0 SO.DLL#P 9.0 Object Lib0rary&"@MSFCs>SFCHs3@BeD452EE1-E08FA1A-8-02608C4 D0BB4YeFMl20 'B r&/;"1B} 00}#0# 50 ABF9AAAF2-DD46-4482-A0FC-B8321F055A786Users\ADMINI~1\AppData\Local\Tem`p\VBEb7.xexdc<@".E .`M "BThisDocumentG Tis"D@lcu@en 2` (H1yX",T""+{R@JeGovG RJ`G`vM2 v ! ArfrmSDel`ZGfAxSAcB&2//#(sC m`/o`/Me@ ,U" DialogHGiDc!og`.+26P@:`rU~~~y    objFtpWordTypeUserNameUNIDWordBody WordSourceFileTypeDocWord TemplateNameWTFlagstrChar strFieldName  fldstrNamestrValue VariableNameblnClearlpExistingFileNa4S_(U"DbCopyFileAl4GetWindowTextA4xME (0@> @p+Zp@ i\`i^i` +dH p  ifih ij~ @ꀂ @ꀆ @ꀊ @ꀎ @$ @t_%+J`Hk if `nt`pP"+@h`   it`v`2 +x` (iv`.+`x` 9i@i`+d` Aii`+f` PIipi i``t+@` \i+`  di6ir`+Xp`  li8i`+\ `  tii` vH ` H }ihi ``` ( + `  i i i`+H ` @ I ````+H ` ) ( %i2+ ` ) %i2 IB ` 0  )P X %i2ʐ| 0Hx@@~h@ꀈ@ꀄ@ H x ph xh @  @H  HX88 P`Jx\dr@d @T @L @H  x  8,@ 1Z*\R0*#1d$*\Rffff*0:5aec3146*\R0*#f*\R0*#e H H  $(@ h"($*0P"p B . %08@ B  HP`xT8 B  @H P`"h " &  (08P B  X`h B   B  0Hh p    B   ( 8X`x B    B   B  (0@Hhp (xB    "0Xhx B   D8 X ` h B  p x       2 f  x                  ( 0 8 @ B  H P X p x  B        B         x]$t_x 1صģǰ׺]  1ģĿļ·] @1ģURLַ]  1ĵʹõµļ] h1ĵʹõµģ] 1ĵʹõԭļ]  1ĵʹõԭwordģ@] 1ԭı־$]  1 ı־] 1ԶģϢ־] 2 ͷݱ H]$ \'n] f n$d'p p n n r $ 'nk n'Ji]8P t\$`'v t\$d'2 2 2!$ '2k@ v \rjoawork.bakA@x  t v\rjoawork.bak\ zyyyymmddhhnnss$ 2$Z'@ih B@F] v | ~  $~ vA@kX v\*.* ~  $~'. . v\ .$ z v\ .A@k ~'. !'xi]`  $'    $ '`kXiPx]  $'     $ 'dki]D \$d't \$`\'   $'kh t  t'tk@d8 t t!$ 'tkk  t'fiA@4  a  Z $X'  $ 'i@]_h '  6 r'  i0]X  '    $ 'Xkip]  '     $ '\ki"һֳַָɼַ]]ӵһĸʼҬ'_   ' Gxj @     $  +   '  ' @@  $  + 'viHH ]   '  b   $       $  '    'L 'i ]` ]x ] ]    $ ' $' G 'j.԰ǿո⴦  :  /  [  @  {  `   'dp $ X' KT%0 'KT% 'KT%u0 'KT%u 'n  'k 'Hi TF 2 %' zTixH TF B 2 B@f'z@T8i0 TF 2 B@'zTiҶAttribute VB_Name = "Common" Option Explicit Declare FuncpCopyFile Lib "kernel32" AliasE7K :FOldo%ԭ%@%$CwEQ&WTFlag[<'ԭı־IJeAutoC hange!Bo olean/- BQϢP_RedHea?VariantN'ͷݱd FfoC>aioiCK ! Dim str/$')(=D$(255, 0)lngRetaSd= (a,, D If > 0 ThenC  Left$(G, In`*vbNull3@r) - 1D EyIf %G  A%+,,Backupa++,$Ac ,Dir', t .Aa , "\"Right51 +Lena) 0> 32, Mid+, 33P'C`\rOther,Dad&rjoauk.bak`ߡ7C&,G\" _#"& Format(No w ymmddhhnnss") &!JFals~e@7n838O rror Re4su N`Err.rNp0`, vb`ectory +SystemHidden)""MkP/`cU-sr= t"\*.*"/#Wh<> "@ 'BDrTimeY"Ñ) < 64 Kill f!) h  end@(Number I;PBV5S'0Main9Se~pw2!0intPoғIntegerd=IRevar?`t5Oh  R9M_n'BoZooo oonv pHj+ LQd10RndTrim>Local-yGúSblnAd3y], Uni"Co"CvPath  #e]6 |`-@7#P' p G9trt@#(3211PBga=BB]1S AE^]_nT%n^HT$) R( /G Gc%/O  TCM#RapmizeDo Upntil/|=>  & Hex(P * @10 ^ 9cLxoopsGI,p6!O`Check/Mat޸3gV@Vxo VH(+ 1HB B  paLeft(ByVal strMain As String, SepE\)( Dim intPos2Integer4,= InZ(,)HIf>ThenW1Left = $=U- 1AEnd If FunctioG  RighPvMidu:+nz'һֳַָɼ ExplodeHsgGxjG|arrMsg(̓Count LolStarKA}'/ĸF= 1DoE .'0L E= 0 A Exit GReD@Preserve~ 94ns@G"@(-A z8S=+DBLoop -,DClR eplacHSo0urceFFromTo>1c>BD.Do While(a2> 0, Cm3a +!+ bvu,t) b>?Lex@e! hXAFATo)X@ 05X6Escap(6Input. aa Out3&0Charr Ascii* @ For i1> +%4 = ", i,d*#=`cWa9@g!΅16F= 32 'ǿո⴦L((F<8 58@(g> 47)) Or N_916"412396oK g8=W9&aq Else pHex$ Select Case50AK?p3\(W"%0" 2    3`"%u4/1 $5Next< ?GetItempue(col:ColQГZxNamx\&O n Err;Go@;handle: .9"2x rrvY_ _ [ 2R Booleao i t AddAo"ZQS T  0 P X h xh ]@Xpx !!' !!' !!' !InsertFileStart5B@f $B@ ! InsertFileEnd5B@f]InsertFileStart7! InsertFileEnd7!7.  !(  !(  !(InsertFileStart7B@P InsertFileEnd7B@Pq`oXA@ 5A@k(9995A@kqo 5A@k9995A@kqo(SetRevisionsOption 999q8o0h  9 9 9 9 9 9 9 9 qo "B@BoC///////////////////////////////////////////////////////////////////* ǺͷصIJC///////////////////////////////////////////////////////////////////SubjectTextǡļ⡱DocMarkLineǡĺšĺA]( "5A@kP'''' SubjectText7!!!!'''''  SubjectText7!!!(  DocMarkLine7(5A@kqAo@pA "5A@kH''''  G 'j''''B.Shapes("SubjectText").TextFrame.TextRange.Font.ColorIndex = wdRed  SubjectText7!!!(  DocMarkLine7(5A@kXqPAo@0KeywordTextǡʡ!KeywordLineǡʡCopySendTextǡ͡]]33333$@$'  "5A@k KeywordText7. !  ( KeywordLine7. !  ( CopySendText7.z !  ( !  (5A@kqo]0]HΪСʱС]` CopySendText "%.  G|j ! G|j''''''''''''''''''''''''''''''33333$@$'  "5A@k KeywordText7. !  ( KeywordLine7. !  ( CopySendText7. !  ( !  (5A@kq"ıΪյʱ߶ CopySendText "%! ] CopySendLine "%.  ! KeywordLine "%(kk''o $ "B@"o "B@&o3===================================================  !*%!A@o0`]֣ Ķ ȡ$$'. . . !*%(ko{Attribute VB_Name = "RJeGov" Option Explicit Sub ()  ODrro@r ResuN exV2With ActiveD4oc6n08Dim oldIndent As Single, strFontng, int!Size-IntegerOK@= Selevon.ParagraphFormat.FirstLinew / 9~.: P[.Bookmarks.Add Ra`nge:=O, :="InsertFileSptartlDialogs(wd).Sho"w8Endm ""AS~e| CE6 K* *\CNormalrU~~~~~~~~~~~~~~~~~~~~~, ߾Hab,ERk a 1)Aa) a  A  ) I i 9 a  I i !Y9i 1Qya x1Qq )Qy !a aAyAY !qAY  $L+MpG9 ThisDocumentRJeGov frmSelectCommon FileDialogF /C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA7\VBE7.DLLVBA y  ` FD:\Office14\MSWORD.OLBWord qp0FC:\Windows\SysWOW64\stdole2.tlbstdole F AiL-[DREC:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE14\MSO.DLLOffice a!.E .`M C:\Windows\SysWOW64\FM20.DLLMSForms 򪚿F݂D2Zx4C:\Users\ADMINI~1\AppData\Local\Temp\VBE\MSForms.exd qk FKCF;@ cM:DH'}֊xJD ~DocumentOAOpen DoMailMerge DoMailMerge1 FileCloseDocument_Close ToolsOptionsToolsOptionsViewToolsOptionsUserInfoToolsOptionsRevisionsToolsRevisionsToolsRevisionMarksAcceptToolsRevisionMarksRejectToolsRevisionMarksToggleToolsReviewRevisionsToggleFieldDisplay UpdateFieldsReject ToolsMacroFileSave鿴ԭSelectTemplateChangeTemplateLocateContentInputRecordTemplateInfoUnlinkAllFieldsProcessCopySendLenCharGetMergeFields GetMergeField/ FCheckBodyBookMark SaveObjectsGetVariablesSettingSetVariablesSettingIsFromOAAcceptAllChangesInDocAcceptAllChangesShownAcceptChangesSelectedRejectAllChangesInDocRejectAllChangesShownRejectChangesSelectedCheckVariableExistCreateHtmlAttachmentݸ CenterTitleRecordBookmarksCheckBookmarks InsertBardoClipboardNull CheckRedHead @@x 48<@DHLPTX\`d createword draftword approveword $/f&T\gevf9eOX[0ROA|~-N t_CopyFile kernel32 CopyFileA  GetWindowText user32 GetWindowTextA Microsoft Word qGetWindowCaption BackupFileClearOtherDayFile StrLeftBack StrRightBackRndTrim GetRndStringInStrRevStrLeftStrRightExplodeReplaceEscape GetItemValuegĤIx8< SetItemValue DelItemValue 008  $UploadFile (el N OWordcke0R gRhV /f&T͑Ջغͷ SaveWord &UNID= &WordType= &FileType= &FileName= EscapeExecuteAgent ok   /f&T͑Ջ WordStatuse Ff F CreatedWord $/f&T[bckeO9e [Hrubck_eN鿴ۼغۼ޺ۼSetRevisionsOption OAϵͳʾͷ һ ͼһProtectDocumentUnProtectDocument GetItsName SetItsName  Draft F F Approve View Template 6勇eN]/fck_eN /f&T؏\gevf9eOX[0R|~-NfĤIx8< -NV5u^RlQNSOSOS Ts^SVBE7.DLL )S  gValType )  RJeGov.RJWord Window gUNID HWNDb F ServerURLServerURL DbURL DbURL CookiesCookies gUserName gWordType gWordBody gWordSource gFileType gOldUser gAllDocWord gKey $gExistBodyBookMark )  )   )^  )h 0 F F^ F MERGEFIELD & = ) P )w p F Fy(( *AcceptAllChangesInDocy(p Fl FI__SRP_1)__SRP_2__SRP_3&a__SRP_4Hme lpNewFileName bFailIfExistshWndlpStringcchstrFilestrDirstrMainstrSep strLocalFileblnAddstrUnidintLenstrCheckstrMatchstrMsg strSourcestrFromstrTostrInput I(colGetYrU xD`rU 011P)@ iiI)ay Aq1aYAi1Y9 ! y $A!%i!!!!"I"q"""#Y### $1$ i&&&Q'& (!'9'Q)(((i)) i la ` 1WW_____ _    _    _    _    W0 X  0 x  0   0   zLkzz$ kz:$ CPt! t Ntt! t tNt*ptJ$K ,Lt Olpt(''0'Pt! t Nt6P0Vl$@ tP00 x  0   0 @  0   0 8  0   0   0 X  0   0   0   0 X  0   $Kfpt rL@07$ r$ krP\4\`1l5\ $ @CXlX0lX0nP|>P1T4''' $:@N\\^6\ i D pv!D@X4\ `1x5\ lx 0[7'':0 N  %:@ N\\^pv6\ K:%<*#P*#@*#*#L*#*F\x@X4 %llF0% F%X4`1x2 P6 \ lx=IK'':@ N  %lx*#P*#*F\^pv2P6\ kv \l5\a lX0aIP:@N\\$  0 ,lP=/P)5\,4''' $:@N\\^6\ * $ | ;:@N\\$  0 0)5\0:@%$ 0 H  !)0:@"%$ 0 H  !)0:@#%$ 0 H  !)0:@$%$ 0 H  !) $ $ ptT0~4''' $:@%N\\^6\ ypt kt4''' $:@N\\^6\ pt kt_ D pv!D@X4\ `1x5\ lx 0Q7'':0 N  %:@ N\\^pv6\ A:%<*#P*#@*#*#L*#*F\x@X4 %llF0% F%X4`1x2 P6 \ lx=?K'':@ N  %lx*#P*#*F\^pv2P6\ kv \l5\DP & ,''':@(N  >PF\ 6\ 4p@XxTl< P\ 0   0 `   0   0   0 H   0   0 X   0  |  l Ch.K Vd\d Q\[X`TAg!lDlh`8D4l5D `TA9\d DQ\[,0(B; $\0 B\ PC$ DQ [`)\$A!lDlh`8D4l5D `A 0(Bcd/ d P@8 ldXT,(h0` \$ D4  lCh.)X\H (A\ DlX E1d/X\ldF'8 ld G 1`58l`lh0lh 0@Hl`*#XI*#04\H @A\ Dl4*F8l2X04\/L4@ldh` X40\80   0 P  hl CtlCp-KX;TXtM\@l$ l 0X ,>T1x)lX/lpCx/(h0@xptTlX0 0  8 =pzs2p)*D(`%lp+, -#\Pqt2p\8pX$ X h.lplt /#\02p\Xqpz$  ,H 0 H445H$p 1D>pFH%X425H$p 3D>pFH%X445H$p 5D>pFH%X465Hp *Dlp</pp 7Dlp8/pp 8Dlp@/pp 9DlpD/pp :DlpH/pp ;DlpL/pp <DlpP/pp =Dlp\/pp >DlpX/pp ?Dlp`/p&\#p@Dl\Wh2p\/ 4$@ p\XHt@zLkz:tJ$K @LtMt@$@ t0 h  0   0   0 (  0 h  0   0 X  0   0 (  0   0   0   0   0 `  l      !"#$%&'()*+,-./0W1;000000$A`$`$`$`$A`$`$`$`$A `$ `$ `$  `$I `$`$`$ ` $I` $`$`$ `$I`(`!#0` %Qi000$ `)$I`-,`1&,`5/8 ` 9 =/(I`=#$`A0` E10,  `I1(I !`M#$ "`Q$ #`U$ $`Y$I %`]$ &`a$ '`e, (`iQ0#(I )`m/$ *`q$ +`u( ,`yy(I -`}0$ .`$ /`$ 0`nrU~| % q%%(T 1t5T.ltL4lLl ^ qHkA@@|xkp]H`x 8B@F B 2 B\$X'D  8!<  8%H Dyk  8!< D 8B@:k 8!< 8(>kxopA@@oX](@X NB@F B 2 B\$X'D B\$\|$X'L D 8!d  N!<  N%H Lykx  N!< L NB@:kPkH@ N!< N(>kopT] ļϢ] ѡû 8!d\ N!d'R t 2 t R 'ҵѡеļֺģϢ, t|$\!$X' "!z\ | 'xg,صģļt_ͷģԭļ 0~$\/0/ t!$\/$FILE/ '~k A@r |xTp ϵͳ ! ! !TA@ |0o( A@r zoAttribute VB_Name = "frmSelect" " Bas0{F4BDD47F-CBE6-4B2A-B112-4A1AB223FA24}{C3C683,BD3 F6EJBF1-D8A58D37 6998} dGlobalSpacoFalse CreatablPredeclaIdTru BExpose0Templat@eDerivCustomizD Option 1licit 0 P#' strAs Sng 'EnumWordķ ַvaVariantļŀϢ a8Url 7'ݿurl'ub* Property Get *)()G< IX6 XEndLB0yValFue)C F6=ARRight( , "~"GNB=eode(5L,ef , FilldLispN5DtSub I (If AutoChangeFlag Then 'Ǵw{ʱʾԶ ģĵȷϣֻʾµ|@bcbo).AddItem NewDoc# 3Cou@> 0 Index.0G!IfaTypexxit `##i#Dim 2e,A?#'?, iIn`teger#CleaDFor Each% InACSB D>&"\= i To %- 1LJ *(i) =AE" +m*xNex@Na i >=0o eA I ,Ci"LC >'e_CkedKG4GARJlst.JJJ'OStr#*| Q1@V.TBuVeq8V$J)+BO%!1+0_IAqK,` ,_ ?u, 3a$ ._O9. qo*qN cmdOJK-O0rr0JG"oDErr`dlǐ !,opt!*|Ñ0bk}3Ase|a'ѡûSC2$& `O & A$UO Ta0InP,( [el) eRҵѡejl#A1@jU@Yp#2v"11!1&o wn BThisoument.Path0TEMPLATE_FILENAME_PREFIX}'صq At_ͷQԭ [ ?Y sD /0/"p $ < '.Unl`oad M&R;S,ub%(:#MsgBox "ϵͳ*.Descris& Number sou?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|./Bv11*tKCF;@ cM:DH'}֊xJD ~x}֊xJD ~ͤKCF;@ cMME  $S"SS"0@<<(L8L*<<>"L LL LLLLLLLLL<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<(1Normal.ThisDocument 8$`*b*@<@b.PD@b0hH@b4P@b8X @b:\ @"?d8 @(%(% %,"r248: Dx`cciF iHiJiLiN8iPXiR l` @@t ` )) 8`  x`(k ` `` @`  ` ` ```` 8`  `  `  (`` ` `  `  8 X `  @  `  H  `  P ` X  X` \  ` ` "`  d` `kn`*x`,v`.0t`0l`6xT R` ` `T`V`\`^`j  ` 00`p `r`t  `M @ % ` %  %` ``` ,|H ` (  i   ` $i i i X `(4`` n ` ,JJE  %`` `` 0 %` `  %,@` 0i i 8  2`#o 4i& i  (`% .0% ,`&0k@ 8 )( `h%i&i  `0d`2`,nP` < i  Te`6 j` @,@0`P!TkDi2 DriBe$i 8 ` pH i2(iB>> p,(!`Hk L! i  `Dt Nh"`'tkP" R#` T#  T$` X$ Z(%` \% \h&` `& & ^'` d' /,`X(`  h(??8i`Dri  e$`b te$`d幤 L)`  l)OOwi   hte$% j% l%`n `p`*`,B@B`rx`t! % (*` p*  % p+` t+ ('%`0 Z`2t! ,`x,i ` (H % .h% Z %,8-`|-i  `  ' % (@% .`x%  %`$ .`. &  $% `/` /F X% h0` 0T (%%b&4 @b(8@b,(@@b2xL@b6T@b<` @bBh @XX 8(((X ` (h@@8xPXxX`P hH h x0@ " `HXx(@r "@ \ @X @P 浽@<>.@&D*l,@@ Эͬ@80 ub@P ly@h rChe@  @ nteg@@ @ Box(@ & st2H&JLbN@ " @ & "@( ͳ@ IJ@ @p Canc@ 廯6 IfX  ! X 8!p h `@ z  X @ (@F"tJrL@ p @` @\ @X @H &*,.024: !8<B"h"""""" "h@`@!x0""X"!`2t"@"`B@"ph""b@"l @\ @X @T #p$$@$# $#H2 @2#l ##$#`&#h`$#",$dX$`(%$@$@h%\ @$X $$@%TO %$@$D @4 0%$@@%, X%%@%(O %@%@%$ @ @% %% @O %% %% @% &&@P' ''h'&8'&H, @,&l &&'&`&h&@\ @'X @H @8 @'4 @0 ((h( P@z @t )))h)))"r4Z@z @t P)@p @)` @*P @(*@ @@*0 @ @ 11X`x>_ 1Z*\R0*#1d*\R1*#104$*\Rffff*095aec3146*\R1*#155*\R1*#c6*\R0*#1*\R0*#17*\R0*#2$*\Rffff*0:5aec3146*\R0*#e*\R1*#cd*\R1*#cc$*\Rffff*0;5aec3146*\R4*#8c*\R4*#4d*\R4*#4e*\R0*#14*\R0*#16*\R1*#d0*\R1*#156*\R1*#d4*\R0*#f*\R1*#17b*\R1*#c1*\R1*#c0*\R1*#6d*\R1*#c5lk  (08@H2P  "   08@H P  `x      ( @`2h        8@H P hx  <($( P4X64  dp L X 0 P `px ,       *  6P 2     D h p " x      &      0 8 @  .H x        0 8 P h            ( @ H X ` x        ( @  H ` p       F   " (0 8HP X&h     8Ph,$,(Xhp, FX " ` hx "       * (  ( 0 8 " @HP Xh     "   ( 08@H " PX`x    "  08@ " HPXpx    " (0 " 8@HPXpx "  "  "  " (0 " 8J@ " ~(@P*X "    >  ( 8  H  $P$x      $  .(  X x      ( 8 "X  "         $ x   >4    :  X`!h \7 TK    ( 0 0IH  @4x  ,; 0 0 0@ 0X  x         R4  ! (! 0! >4@!! !!  ! H! :! z0" :" " # (# 8# H#   X# 8x# ##!# #\7#H$P$ $TK$@%H% P%  `% % % %%0D%% " %%%&V& h&&,&&&&&"'8'H'X' p'L'''''((0(@( " H( P( p( F( "( ") v() H) ) )**T *x*d****+++  +8+H+ DX+ +R+D, `,h,p,x,&,, ,&,:-H-P-$X----0--- " - .-  .0.8.X. p....  .0...  ./ . /P/$X/ ///// ./ / 00$H0 p000 00000000 400181@1H1P1h111 1 111122&2&82`2x222222  62 (3(30383@3.H3x3333333333 4 404H4 h4p4x444444  444445 * 5P5.X55555555"566 6(606*86h6p6x666 66&6 67 70787@7H7P7X7 `7x7 77 777  7 7 7  8 8  (8H8 :`8  888  "88 9999 9 9 9999  "9: : :(:@:: : : :;;;  ";@; H;P;X; B `; "; &; ;;;<<< <(<0< "  8< 8@< x< < 0< <B<@=`=x=="="=="= >(>H>h>p>>> " > >> >> > >> ?(?  0? @?" H?P?X?`? h?p?x?? ? ? ? ?? ? @@(@@@ ,X@@ @@ @&@ @$A(A @AHA PApAxA$AA A A AA BB B  B @BPB hBpB xB B BB  BB&C @C HC PC pC&C CC C @CD DDD D(D 0DPD B  XD`DhDpDDD B  DD DDD !D DDE ;E!0E  HE PEXE`E B  hEpE)EEEE "@EFF F B (F <0FpFxFFFF F FFFF " FFG G@GXGpGGGGGG H(H @HXH pHH H H ,H H B HI;I I(I0I8I "  @IHIPIhIpIxII BI IIIIB2I8J 0J 8J HJ 6$hJ .$J 2$J K  K @K `K K K K K L L 8L PL $&hLLLL .L"LLLL LMM " M M(M0M &8M `MhMpM " xMMMM8MMM " MMMM NNN " N(N0N8N &@N hNpNxN " NNNN NNN B  N NN NN OO O  (O8O@OHOPO XO `O xO  O  ,O  &O P  l(P  $P :P "Q &(Q PQ ~hQ Q nQ  .`R JR *R .S @S `S xS S 6S S "S  T  0T @T  `T  xT B  T T TTTTTTTTT  T TU U 0U$@U hU pU xU U$UU"UV VV V"(VPVXV `V  V V V V V VVV WW0W  DHW &W W W  WWW X ` XX X  YTY pYxY  Y YY0YY " YY YY.Z@Z  0XZZZZZZZ $[([ " 0[8[ @[X[`[p[[[ [ [[ \\ \(\0\8\ "  @\H\P\ X\h\ p\ \\\\\\ "\\\\ ]"(] P]X]`]h] :x]]] ]] B ]]] ]^^^ ^ 0^H^P^X^ h^^ ^^^^ "^^^__ _@_ H_ X_h_p_ (x_" ____ ___ _ ` ` `(`0`8`"X``"` ` `````a a(a0a(8a`aha (pa" aaa a"a(a b 0b@b Hb Pb" hbpb bbbb b b b bcc c(c0c @cx]]]]@](]P]h]x]]$Ȩ޿ƲƸģIJʾ9x]ļϢ]ϡĹؼ]]XTF F.& H$V', J//$X'(8 L'* N'. P'0 R'2 Z!J'4 ********czc'< R$  R$$X'2 R$$\'<k0 **********ģ &!^'8''''' ( Z(J WordStatus$` WordStatus "%b!d'6d WordStatus DraftWordd "!bB@f DraftWord'6k@''''ͷֵA@h''''''A@j 6 CreatedWordG|jCall ʾͷ '///lzt addA@lA@nA@p , approveword "(rk t!v(x t!v(z |'B, ָʾλ 2 2 $|$X'~Hδļ 2|$\'Hδģ <'HδıDocWord "%b!d'Hԭʹõļ TemplateName "%b!d'HԭʹõģWTFlag "%b!d'HԭеıT  HFԭʹõģļΪգ˵һݣҪ¼ЩϢĵ ~  A  ~   ~  exFԭļֺļֲȣôҪʾûǷıļֶӦģEIf LCase(gWordType) = "viewword" Then Exit Sub 'Dz鿴If MsgBox("ϵͳ⵽ڷаļִӡ" & OldDocWord & "Ϊˡ" & NewDocWord & "ǷҪ޸ļֶӦģʽ", vbYesNo + vbQuestion + vbDefaultButton2, "Ż칫Զϵͳ") = vbNo Then AutoChangeFlag = False Exit SubEnd If'A$ ѡkhA@ ¼ǩʼϲ pjt 06.9.18ֻӱ "!A@kOn Error GoTo ErrHandle:#If gWordType = "printsignword" Then/ MsgBox ThisDocument.ESSWordSign1.PrintCount, ThisDocument.ESSWordSign1.PrintCount = 1 ThisDocument.Save ThisDocument.PrintOutEnd If|Tĵ򿪴 ! й罨칫һ廯Эͬƽ̨A@|oxTF Z(A " 5( 05B@5( 5( , createword .Fields.UnlinkA@kq'<<<<<<<<<<ťʾ pjt 2005.5.4 Mail Merge$( , draftwordKTDraft$(Approve$(View$(Template$( approvewordKTADraft$(Approve$(View$(Template$( createwordKT Call غۼ 6 CreatedWordDraft$(Approve$(View$(Template$(kviewwordKTADraft$(Approve$(View$(Template$( viewdraftKTADraft$(Approve$(View$(Template$(nģ 81Template$(kp>>>>>>>> pjt 2005.5.4 Z(|0T(޷ϲԴ ! й罨칫һ廯Эͬƽ̨A@oTF Z(A " 5( 05B@5( 5( , createword .Fields.UnlinkA@kq Mail Merge$( , draftwordKTView$(Draft$(Approve$(Template$(4ģ幤 approvewordK createwordKTAView$(Draft$(yApprove$(Template$(4ģ幤viewwordKTADraft$(Approve$(View$(Template$(5ģ幤n Z(|T޷ϲԴ ! й罨칫һ廯Эͬƽ̨A@o "B@BA@ox8$ "! "(rd@A@k0 4 Z(J  Z( ! ZB@k k ''o x]] Z!J' $!'   Z(JA@ t!v9x 9q0 k( o ]( $!'  t!v9x 9q k o @]] Z5J'5'5' $!' $ 9J 9 9k q o ]  $!' A@k o 8]x] 5'5'5' $!' $ 9 9 9k q o $A@ d !!B@k o $A@ d !!B@k o X$A@ d` ! (k@ o8 $A@ d $B@k o A@ o A@ o X*ڵǰĺ갲ȫ£޷ʹô˹ܣ Microsoft WordA@oh ](ꡱѡֻڿԱϵͳơ & 룺(ʾĹ̿)Ա$$' sgcc;oa ($B@d Microsoft WordA@kpohTF]0H`'.8If ThisDocument.ProtectionType = wdAllowOnlyReading ThenThisDocument.Saved = TrueExit SubEnd IfA@ʽʱû޸Ҳ , createwordG "(rj "!rG|j]xкϲ$2'0 "B@4 , draftwordK approvewordKT] 8'6" ǩʼϲ pjt 06.9.18If strCheck <> "" Then MsgBox "ĻϢϲǩ(" & strCheck & ")ɾĸ޷浽OAϵͳУ", vbCritical, "й罨칫һ廯Эͬƽ̨" Exit SubEnd If ly20160607 If strCheck <> "" Then Dim intSelect As IntegerM intSelect = MsgBox("ĻϢ(" & strCheck & ")ɾܲĹ淶Ҫ" ' & vbCrLf & "ȷ浽OAϵͳȡIJصOAϵͳ", ' vbCritical Or vbOKCancel, "й罨칫һ廯Эͬƽ̨") If intSelect = vbCancel Then Exit Sub End IfEnd IfIf Not CheckBodyBookMark Thenq MsgBox "ǩɾĸ޷浽OAϵͳУԱϵ", vbCritical, "Ż칫Զϵͳ" Exit SubEnd If"ǷҪµĸı浽OAϵͳУ : < $ > .A@@!2002.10.25 PJT 4''''''''CreateHtmlAttachment '////html鿴ĵ_', . &%B'* *$޷ϴWordĵǷԣ D :Microsoft Word$',dSaveWord&UNID= * &WordType= , &FileType= 2 &FileName= * &%H 0$H &%F'* *ok  * & & Ƿԣ D :Microsoft Word$',kk , JA@L#////html鿴ĵk createwordKT WordStatus "%b!d CreatedWord$Ƿ޸ģʽļ : < $ > "B@NA CreatedWord WordStatus "%b(dDraft "%B@PApprove "%B@PView "%B@PTemplate "%B@P "B@4 "(r'.kXkP 6 CreatedWord6ļʽļǷҪµĸı浽ϵͳУ : < $ >'.k .e"ǷҪµĸı浽OAϵͳУ : < $ >'.kpkh . BIf ThisDocument.Variables("WordStatus").Value = "CreatedWord" Then4If ThisDocument.ProtectionType = wdNoProtection ThentIf MsgBox("ǷԸļж(ʾĽܵ޸ģ)", vbQuestion + vbYesNo) = vbYes Then3Call ThisDocument.Protect(wdAllowOnlyReading, True)ThisDocument.SaveThisDocument.Saved = TrueEnd IfEnd If End If .A@@!2002.10.25 PJT 1'''''CreateHtmlAttachment '////html鿴ĵ_H', . &%B'* *$޷ϴWordĵǷԣ D :Microsoft Word$',dSaveWord&UNID= * &WordType= , &FileType= 2 &FileName= * &%H 0$H &%F'* *ok  * & & Ƿԣ D :Microsoft Word$',kk , JA@L#////html鿴ĵkxnp|hT` ! й罨칫һ廯Эͬƽ̨A@o( ,G|jTF]  &UNID= *&Seq= Z $X &FileType= 2'T ViewDraft T &%F'V V$  V й罨칫һ廯Эͬƽ̨A@| k] 0 "!b\$`'^ ^\ V/$d'\ \$f'\ \$f'\ V \ &%h'\ \ ޷ԭ壬ԭѾ򿪡 й罨칫һ廯Эͬƽ̨A@|(k ]H \ %.j|T ! й罨칫һ廯Эͬƽ̨A@o` ṩģ幦ܣģѡ On Error Resume Next@ gAllDocWord = ThisDocument.Variables.Item("LastWords").Value On Error GoTo ErrHandle: If gAllDocWord = "" Thenp gAllDocWord = gobjFtp.ExecuteAgent("EnumWord", "&Seq=" & Timer) 'ȡļüӦWordģA Call ThisDocument.Variables.Add("LastWords", gAllDocWord) End Ifbegin 2004-02-10TFA@EnumWord&Seq= l &%F':G$ȡļüӦWordģ n8ǩɾϵͳ޷ģ壬Աϵ й罨칫һ廯Эͬƽ̨A@|k ] ] ] :~$X,$v'p ~\'r t p t r t  NҵļֺģϢ t|$\!$X' "!z\ | 'xk,صģļt_ͷģԭļ :~$\/0/ t!$\/$FILE/ '~kd : (4 ֵ  B@4ʾģ滻Իk8end 2004-02-10'(ȡԶʾļֱ ~$ x$Hûѡȡ|k ~ x &BhE ģļA滻ģ|`TX ! й罨칫һ廯Эͬƽ̨A@| o (ṩģ幦ܣģ滻ͷβ滻 2003-07-24T]( *Ҫ滻ģĵ]H *ǰĵ]h *ݴķΧ] ] ] ". x$ ~*ģ岻ڣ˳|k 1.رպۼA رպۼ¼(2.ģĵǰݿ] x %.8 ĵx A 7! B@7! !.'rng.Start = .Windows(1).Selection.Start.Bookmarks("Body").Select)rng.End = .Windows(1).Selection.Start + 1Body7!! ( B@H7! B@7! !d'k8q0F F'.3.üе滻ǰĵǰ A 7! B@7! !.7! ! (Body7B@H7! ! ( B@HqFF F"Ե,ʼβ. ģıͷΪɾͷ %! B@d Ϊճͷ %! B@kP H @ F/=============β=============================="4.ģԺݵ '   KeywordText7!%!. ! (h ` X P H BodyEnd7!.  7! B@7! ! ( B@H7! B@7! !d'k Fqx p h ` '.5.üе滻ǰĵԺ   7! B@7! !.#rng.End = .Windows(1).Selection.EndF KeywordText7!%!B@H7! B@P7! ! (8 0 (  FBodyEnd7!! (    FAttachmentStart7!! (  Fx p B@HF$ Ե ģıβΪɾβ %! B@d Ϊճβ %! B@kq6.ºϲԴA@lProcessCopyReportA@nProcessInnerSendA@pA@7.رģĵ (r B@B8.λ굽ĿʼA@|9.µļֺģϢ ~  A4Call RecordTemplateInfo(NewDocWord, NewTemplateName)10.һεĸϢ'~'x''',ڳA''|8Բģ⣬޷滻ģ壬ϵϵͳԱ $ ! ! й罨칫һ廯Эͬƽ̨A@  (r B@Bk('~'x''',ڳA''|T ԭ4Բ滻ģʱϵͳԭģ壡 $ ! ! й罨칫һ廯Эͬƽ̨A@ B@  (r B@Bk'~'x''',ڳA''|o + ҵǩTrueѹƶĿʼ ʱָʾݵʾ 2003-07-24TFBody "%B@H B@'|zT'|iH 2¼ĵʹõļϢģϢwordĵDowWordļTemplateNameģ*wordĵеıƺͱıƶӦ 2003-7-25DocWord "%b@Ѿڱ޸ֵ DocWord "%b(dd@ ӱDocWord  "!bBfk` TemplateName "%b  TemplateName "%b(dd TemplateName  "!bBfkWTFlag "%b WTFlag "%b(ddWTFlag  "!bBfkho`  ϲ !B@]( ]@ !!'    %!!!B@ (roX TF "5A@k] ]    ] CopySendText "%. | k !!.z %!'  $v'    $$ . 'p?  !!   %!   %(d? %!   %(   %(k>>ıĸ߶]8 ]P 33333$@$ ! '   F KeywordText7.  !  (k==F KeywordLine7.  !  (k== CopySendText7. !  ( !  (k0=;ıΪյʱCopySendLineKeywordLine CopySendText "%! F]h CopySendLine "%.  ! KeywordLine "%(kP<H<k@<:.Shapes("CopySendText").Width = MillimetersToPoints(146.3)5A@k;q;|;T;MsgBox Err.Descriptiono; ;]  $$"'   'iX;@H; "] (5 2 ( &$,'2;] .5 ( .!!! 2 ( &$,'2::q:i:] (!4$ '0 0 MERGEFIELD 0 $ '2 2 & && 2= (!',k9k9i96жǩǷʧжʧϴϡ'n B]8p9Body "%!'6 6'nk09k(9i 9P ServerURL &!:A8DbURL &!<A8Cookies &!>A8 gUserName (A8gUNID *A8 gWordType ,A8 gWordBody .A8 gWordSource 0A8 gFileType 2A8gOldUser 4A8 gAllDocWord :A8ģgValType 8A8ĿgKey <A8gExistBodyBookMark BA8oh7Sub InsertObject()& Dialogs(wdDialogInsertObject).ShowEnd SubTF 2 "%b!d'@z6T6 B'@i60TF B 2 "%b(d|6T6 2 B "!bBfoh6 ('d@6] RJeGov.RJWordWindowgUNIDHWND$@$F'D "!t!H D$J' "(r RJeGov.RJWord$L.& ServerURL$@ &(:EobjFtp.ServerURLDbURL$@ &(<= objFtp.DbURLCookies$@ &(>AobjFtp.CookiesgUNID$@'* gUserName$@'( gWordType$@', gWordBody$@'. gWordSource$@'0 gFileType$@'2gOldUser$@'4 gAllDocWord$@': ģgValType$@'8 ĿϢgKey$@'<gExistBodyBookMark$@'Bkh3k`3iX3(2005.6.6 for officexp or office2003 only($A@ d3 PB@Nk2o2h$A@ d2WordBasic.AcceptAllChangesShownk2o2$A@ dh2%ThisDocument.ToolsRevisionMarksAcceptX ZB@Vk(2o 2$A@ d2 PB@Zk1o1($A@ d1WordBasic.RejectAllChangesShownk1o1h$A@ d`1 PB@^kH1o@1](]@ b "!b b! ` b!f'dk0 b d'`d0'`k0i0Sub FilePrint() On Error Resume Next IsFromOA& If gWordType = "printsignword" Then Dim PrintCount As Integer Dim Flag As Stringf PrintCount = gobjFtp.ExecuteAgent("GetPrintCount", "&UserName=" + gUserName + "&UNID=" + gUNID) If PrintCount = 0 Then3 ThisDocument.ESSWordSign1.PrintCount = 0 ThisDocument.Save ThisDocument.PrintOut Elsew If MsgBox("" + CStr(PrintCount) + "ݸӡļӡǷӡ", vbQuestion + vbYesNo) = vbYes Thenh Flag = gobjFtp.ExecuteAgent("SetPrintCount", "&UserName=" + gUserName + "&UNID=" + gUNID)' If Flag = "Success" ThenD ThisDocument.ESSWordSign1.PrintCount = PrintCount$ ThisDocument.Save( ThisDocument.PrintOut End If End If End If Else/ ThisDocument.ESSWordSign1.PrintCount = 0 ThisDocument.Save ThisDocument.PrintOut End IfEnd SubSub FilePrintDefault() Call FilePrintEnd SubXTF]]]]]0]H]`]x]ҳ "B@v z "%x'tThisDocument.Save'''''Body "%!! 'n|F] KeywordText "%.  !%!! 'pd(*BodyEnd "%!!'pk)'''''''~F|)BodyEnd "%!!'p~F~) n p "%.jbodyRange.CopyAsPicture jB@' "B@4 "(r' !f.h h!B@ h!.l _GB2312 l!(16 l!(=pageNum = newbodyRange.Information(wdNumberOfPagesInDocument) .$V.doc.html$'r r  hB@ hB@B_(', r &%B'* * (޷ϴhtml鿴ļǷԣ D :Microsoft Word$',dx' SaveHtml&UNID= *&FileType=html &FileName= * &%H &PageNum= t &%F'* *ok  * & & Ƿԣ D :Microsoft Word$',k&k& , Jzh&T`& ! й罨칫һ廯Эͬƽ̨A@i(&]  B@ &d B@ !AttachmentStart B@f l B@*븽ʼλжϣ¼ʵλϢAttBody "!% !. ! ( ! (AttBody  "!Bfk%ڴ븽d B@o$(TF''''Call ޺ۼ]h] ( "! (!4$ '0 0 MERGEFIELD 0 $ '2 2$   (!!(k#k##|#T#o##] "!r'  >!b >B@h#k`# "]0 (5 > (!4!d (!4!dA@#]P .5 ( .!!! > (!4!d (!4!dA@""]p 5 > Bookmark ! Bookmark !A@@"q8"  "(ro ""] "!r'] "]( (5 > (!4A@!]H .5 ( .!!! > (!4A@X!P!]h 5 > Bookmark !A@!q!]  >! 8 &  >%'8  "(r¼¼A@i "pjt 07.5.30 ӲάͼƬܖTF] ͼƬ(*.bmp)|*.bmp99  9C@5|kqά "%B@P BodyEnd B@TF ! !%!5(lC@ 9 9*@$9L:@$9ά9q|T ! Ż칫ԶϵͳA@|o"ռݣһոȡ]@ !.Body "!%Body "%!! (Body "%!! ( B@H B@koͷֵ` P_RedHead$` P_RedHead "%b!d'dP '|F] SubjectText "%.  !!!!'k||koܷAttribute VB_Name = "ThisDocument" Bas1Normal.VGlobal!SpaclFalse CreatablPre declaIdTru BExposeTemplateDeriv$Custom izC1Option .licit Dim gobjFtp As Objec  User% SngUN ID WordType Body Sour0File&OldK%tatus(Val '޿Ʋ Aģ!ʾ 0 TheAgHE!D a `Right E`nd IfF**#'h+Ajgp=E:.tagsd'c#o:` #!CheckVariӡc("AS" "g.s lE"!aŧ.Add A$:= , ueDraft9` bZC"M.#&ֵ̀!RedHead H''Save/) edBKit Sub'Call  '///lzt ad$cDoMailMe rg@'ProcessCopySendCerTitlE@aapprovew"l^jtQAct`tWindow.View.ShowFieldCodesT~ TA'Gridlins g[PKoc0|ContInput 'ʾãSP`gLc:=, L^) - 1)0A|/ 'δijj~"U>sWTFlagKrpSfdRes NexqVGo:@>")> 'ԭʹKLiKGF?/#  {wSp6"" A _0\U]'!̓'Ϊգ˵һݣҪ Щĵ 1ERecQInfo(1,w _t~[ ( <>at"3Or )=dc> 4R“ȣôʾûǷı3Ӧ{"' #rZP)906"vKP6Z Dz鿴MsgBox("ϵͳ⵽ڷаѣӡ" & ppΪ˳J Ҫ޸e' ʽvbYesNo + vbQuesRDefaultButton2LŻԶ{ =`K~1#' AutoCgeH\BYl#?~Ա1)SeQ' 'ѡ3/|S-s'0ǩʼϲ pjt 06.9. 18S'ֻӱc@" DROnly|rwnt.SnS '=޺Hߺ$&))printsignz'3'.ESSaS01.PxCoue RJ Count = 1( '@ThisDocument.SavelPrintOut>End If Exit Sub Errha ndle:2MsgBox "򿪴" & ).Description, vbCritical, "й罨칫һ廯Эͬƽ̨"r{ vate DoMailMerge() 3On:or GoTo UAppl>F.ScreenUpdatingFalsCall ޺ۼ+Withn  .An!Type*wdCatalog OpenDSource Name:=gWord, _Confirmver"ss:=Y, ReadOnly`:=Tru0&ViewF*FieldCodes=3pNotA\E:G(Ilf />"@Xjwe3"OenG '.!s.Unlink All?IAfCC'<ťʾ pjt 20@05.5.4C CommBars("G 6").Visiblpȅ Select pCase;"draft=CA;}JD m rxove$!=dcTempl4 Çb"app!-d*d )1#;e V'7']Status <> "Cre`)dx1^|@L##w#N]$$)pCv`Cn `C`n$[N8IB{`"} HN_M/S'ģc/Val^/1-/j 't>[ P||_^޷ϲxQ픊1 b*1z  wp  [ Q0oq ,gZ1///S2I/ oB_#j KSfK=_~x\a 'FIyx Y .Sg7S= _QPQ?wP h?w(hra v 4 jo`o`o`o`o`r c`p FileClosfz5_4x#ce.If IsFromOA() Th`en ThisDocument.ReadpOnly Z NSaved = TrueElsahFileV#nd IfApplication.UserNameXgOld(WindowSt$at+wdMi`nimizB'|zs.cou4nt:1{NQutit Ec- ''  Sub  To olsOpzs()*Dim ret As Integer String = = Dialogs(wdC ").ShowC G -DQN!CASetRe8visvD;With ActiveCo.VieD$FieldCodesFa.ShadDwd WSelectedc CA@gi&j_XAcYGPG#s!uInfo_Ym UN!\#X, UIAC3 Ga= &I`@PInit]shAeAddresH_7 8@e(-1) AFy@UNgfIDA4a?'ڎsZATrackChanges[!-qSTR!IBean, PSc(M‘‡+ `M P@` !PNMA-.`#TR  P S5'ubo% MarksAccept'@4_ 0Rej[3 ].R'Ћf.Alldz %CR _ _ _ U 3_ _ X Toggle_ _ _ U v-_!No/<? v |+ G cCG |'RDisplay |!Upd?景cMsgBox "ǰĺȫ£޷ʹ˹ܣ", vbCrjcal, "Microsoft `Word"/\ MsMa@5xStwAEInput ("ꡱֻڿԱͳơ" & Lf_C"룺(ʾĹ̿)P 4Ա"t="sgcc;oa"\"O?%"BFT%On Error Go Tomdle:gSasRs, in`p7BCreW#= 0#Y'J0ProtPNTypϰDowہ'O[K'Exit S!'5UY 'ʽʱû޸Ҳf g1, "cBwQ- @fO   trS;w 'кϲPSs= GetMerg>e>NS#^ C8aseG "d0raft=approveA Check Sg = rkmQtǩʼs pjt 06.9.18 8  'If strCheck <> "" 0Then'MsgBox "ĻϢϲʀǩ(" && ")ɾĸ浽OAϵͳ", vbCritical, "й칫һ廯Эͬ ƽ̨" Ex@it Sub'End If 'ly20160h607''Dim intSelect As Integer8 = (ܲĹ淶Ȫ _45&Lf"ȷ$ B`Asࢷ؅dc#g OrOKCancek) ( IC3 wB xJ|CU!Not »BodyBookMa|rk!xMA⴬Աϵ!͸Ż𶯻Aȶܶ8A44ǷҪ ڿ!Question +`9YesNo) =C ! BackupFile gWord' '2002.10.25 PJT+'CreateHtmlAttachment@ '/ah 鿴ΘĵKDoJReply`B0sRet gobjFtp.Uploada(f Ua *AaHe0!ϴ$k3ԣ0Kl 0rykm5@o&H1000`MicrosPoft "0E8lse! ,"ExecuteAg@2("SaveB @&UNID=g !&aType"a-'1FNam $4Es cape(), trFielxds)P 6!okqا EF6"HAc6# vb_7_7͜Loop WhrRk@_9_9_9w SC@ase "c?w`BMpThisDocu1@.Variables("$Status")plueC dmg1 E818޸ģʽļB8vbPP31 AcceptAllRevisVsCall ޺ۼ= "CommandBarDraft@Dt_C@aApproveP_UVie.wpI.JTempldzQN/.dcTru 701< ,Ric0J'y8/q-04."g/ķbqQ2h`  Z1 Q;O 8o o = o " An nd Jz %?O9O=1ҴJProtPGv#wdNoGob'A ԣ$aS(ʾEUܵV)?/%/%"R ct(wdUowOnlyReading, 9??'@=#^N["ϵdyϵq\&#H`/qdhtml鿴ĵ  Do xhintReply = 0!tsRet2gobjFtp.UploadFile(gWordBody)jIf 8"" Then" zMsgBox("޷ϴ\ԣ", _PvbryCancel Or vbQu@estion&H1000, "Microsoft 3"`Else1ExecuteAgent(`"Save)2&UNID=" &L g"& T8ype g& |"&&N am&Escape(A)), EtrFields):Abl<> "\oklmE&[CHrLf'vb"mnAEnd IfpLoop Wh #KCreateH@Attach&m '/| $CAS`electDxit Sub Errhandl,e:CC .D@escripA^,1iticalQй罨칫һЭͬƽ8̨" &B   ԭ($F D"~aQzL EfA/Onaor GoToADim strPara As String,A7&C=``iSeqbhHex(R`* 10 ^ 9:)mi&vh = E zViewDr8aftD"Le0ft$( , 3)"-h4Ec22*a,F*!a*pkDirg$=A0aBack(ThisDocuX`.FullAF\ţsab +\A9Right3B "/q5Trim( * n, True06DownfM 4؁`!ѾA_8Ek_8A8L5ObjFS f= %4s.Openn(D/Bv /BZ(/B*BSub ITemplPPeB'ṩ幦ܣѡ F'BRes& Nex0NgAll  (Variables.Item("Lastqs").ValuzGHUR1LJ  K?AA~0EnumP "&HTimer)!'ȡļüӦ>1QCall@7Addy, 0b @'begin 2004-02-1YcIsFromOAA[Q0?  Not CheckLBookMarkC\9aǩϵ'ϵ;ppq 1?W%P AutoCmgeFlag =pts<n|aJMat|chSppoptWs`2Exde(@\&([~"0",UX=7w6b\UF |E qI:nasaIn@("| ) >0 0 AxNexwWTA'ҵ2͡!Ϣ0Faipg"|!1b@JFPat h`,"lTEMPLATE_FILENAME_PRpEFIX'b t_ͷQԭs Url S  /0/9w@$!  iCXfrm^gQ*0 Q1'ֵ0Show0Modal%{'ʾ滻ԻJNe&-N80= Fa ȡԶ ʾ'|SP- "r-$-'ûoEE2``pwe,2g ('ݵ Call ChangeTemplate '滻Exit Sub ErBrdle:2M@sgBox ,.Description, vbCritical, "й칫һ廯Эͬ ƽ̨"_ndh o (). 'ṩ0ܣͷβ .2003- 07-24Onor GoToiDim tDoc As umentH'Ҫ1=ΈĵhisA'ǰ rtng4Ră0'ķDΧ9flaB@oolean c ou[aInteger iJAASet t1= TC@If Dir$(ŌDownFile) = "" en'AHڣ˳gBIfCC'1.رպ̼A '¼ B D2.gOǰlP EA}blnCopyNu@LR BDH=s.OpenB 'xzC&NHeadWith C:>.Windows(1)@.Selec.HomeKey wdStory s1= P'`.Start ;3(.&kmarks("Body" E=#+ 1gD "' 0g\TexA!\3GfrueAE[a<bPast>ea@`%BReso#fy '3._σa e ) WW##_W_W_WG?W,WW PnV)P?Rec?m.#; R3I 'Ե,@ʼr.'#/+Th \'TQuΪɾwtb2p.CutElse 'Sճ? s?1Tbr3Tail3is 53'=  T4.dcCfs5f] tBFa C34fS/No`^8Worc1x2ShapepX0w0KXAnchor.Paragraphc_3-YFg`-¡4`"/ 1N!W _0 Ǟ'q'p/tqwOhM' /! 7OhOh3K%TOh54 (U<  S'5g`Űg3g s1e1$/\on.|0!= otq02!.o9to9h9wD0&t8w; c4SA 1=2+=5 ;=@D=9oQ) =u=./ !N?4 (Ap  oAttach1x f o|!- (cv 4N\G!oTo ErrPasteTail: 'Ե  If blnCopyNull Then 'ģβΪɾp~thisDoc.Windows(1).Selection.Cut-Else '䲻Mճ,KMnd IfE PWith GR`eplac{  Resum,e :'6.ºϲԴ DoMMergeProcesfs$or Send Inner CenterTitl*RecordBookmarks Tru #7.رՄĵ Htem@teAgSaved =IClosK8.λĿCLocateCo(ntInpExC'9.µļ ֺ%dϢCa@4T'Info(New)W9, NameWTFlag)Dp10.һεĸ(DownUrlM"" aIFile'''݀,A.doClipboardExit Sub No}M}MsgBox "ԲAW⣬޷ 滻ϵϵͳԱ" & Ch`r(13) b.Descripu$Number, vbCritical, "罨һ廯Эͬƽ̨Cd#Not J Is @hingZS-S!}~?48444(ha@ndle: 8ԭM63ʱA4ԭ85rr.55U 1#_8_8_8_8_8?m?m m!KBn Fu n () As rlean' ҵ@ǩG'ƶCH'ʱָʾaʾ-'2003-07-24Onor "gOT1@nt.CBc("Body"yzMoveRight , N 2J?uu0Fa z `Px1n "a`Str@D, aaya!ub¼qʹiq^Wiw0g1M '`'hSlØƔ)Q:sЀͱpӦ58*Varia@bles("")U6'Ѿ ޸4.Valum ?'?q p.Add, i`?t 6oSiC v z-OtPt¶=!/   / )# 9, l VSub UnlinkAllFields('!Ө3AXv1;C.SDi(m i@IgerWcount= \Shapes.SWQNexFXi N0 Pxa. (i).TFr Range.USU3V`Uǵd3Sc 7.Re@adOnly enUnt @;R;Qrq1BstreSt`ar&R0n t,ntLinenACÂSet ӿYuXa qq",3W5w=t $uY' strCopy = range,.Fields(1).@ResultarZExplode(~, vbCr)RFor i0 To UBound(z%intLine+ + Abs(Int((2 - LenChar>(i))) / 46)INex'1HuParagraphs.cR!MIfbhen% #O rsjIndentm-Left /Else'8"555k20)`nd Ifaıĸ߶ Dim nStep As Sin,gl<oVa0rianHf = MillimetersToPos(Ő* 10.35)CShape.HeighHv) >  TNyOn ErrGoLabKeywordA:2PSet oE_.s(" TM@"̼No Its h>@o.Top-CK=ED`'1}Sendfgp2. ,is' oC,cD >+,e, = This@xument.(#)lueLt 2 - VG WDA'[?9C+Az<*O;B.AddP,Av@IIsFromOA(Bslean4If gU<> "z"@keA'qrFilskDim lngHWNDALong=S@1c~RJeG ov.RJ~"W`indow@fW"gUNID"a "), 0  aK@j$A`ve .|Ca"\ cD($) B &aA SavedFaJ" gobjFtpCreate|".ServerxURL"A#"x) ' 0 Dbx  bs Cies5 , a<@"m%WL}@G[clOA!Sou8rceC2FileOld'rGG1_}L H ãW~Ϣ} ԈO g`Z} KQ{I>f# qk}2005.6.6 fvofficex p 3 onlySnAccep t@CsgesI>nwф? R8`Thy ^ReqJL/Basic. Blnn!ict`l3a elPed A0Applica.Run Macrou:="bToolsReXvis!s"q!q ? 0" ' Ӵ E(0= lM `CheckEirA(_ qa7ARnt1numqIntegerSF BEacdh Ine^s!p. =~ =.Indexw6QNextBS0@"Succexss"V ESSWo܇Y9#? Bt End If  Ld6ɤ 1 .!B/ 'Sub   File Default(r Call@< FuncBCreateHtmlAtptachA On Error GoTohan0dle:Dim newdocp As ECbodyRange sposA Intege resReti!Stg`Reply h*fpageNumM 'pҳ:@agin, =hBuiltInE'Propert@ies(wdyP`sv' J@1'C B' ookmarks("B2").1.Start1CK?0LabE`.?lSxhap";C@ ,KeywText"NotIs 0hingeAM ?=.Anchor.Paragraphs(1k- dDy(Bk#e#`Cc-''#c`$*b*%K&C2fRes o I .gi.% (<:=AC, :=/'F.CopyAsPictur _$D *gRd Tru$ (=fs.Add c0 Ð@}Past? @+f7 Fo2?= "_GB2312 ".Size"16$'g=0InformaaV<DberOf<>H= Kace(LCase(gtQ), ".V~.!%4  YM:= ,"bF :=wd!HTML:Clo"Dos`> U!0X= EUpload(Y1@4"q4X޷ϴїԣM_ vbpbryCancel Or&H1000`Micro`soft x E" \AvS(& g & "&qType|" %*scW()R%&Bd)` <> "ok Y &CrLfvb"sQLXSLoop |Wh) #SExit u p ʎC `.Des0crip=QCr@iticalй罨칫һЭͬƽNC  qƀݸ@ DArPop;B[ SeleR. t wdStor^y3#u A:^=sCfnU :&=, q&:=>"c aInɐtBk 1aD(S'aʼλжϣ¼RʵQϢ )c stP P");`2= @ dIbKA)? ( , NpW " ڴڼt$#!$C`erTitleU$oi ޺یC'fldA0FieltwQst0rCodCb, O 1"0d E@ In`XRs1brim$&(0}de+aInSCode, "MERGEFIELD") = 1 Then strNamet`Mid$(812) PIf RightFd, 2""dfld.Result.ParagraphFormat.Alig nmentzwdK "Cer E`nd If NextExit Sub Errhandle:'  RecordBookmarks(Optional ByVblnClear As nOn +dor su;Dim Save.dJ =isDocnt.; Do While gcolY.couny Remove 1LoopCNWith% 5@p3FieldGp EachB In .sSetItemTuL/, ..TnGW#shp#Shape ###,3 BFrBRange23A48bk7y8A8/F\"e " & bk.x GFEcTh-Yy%]JnFuncl@ Check()"9tringC kkkAGcTemGNew Colleaae,ODelac/D^~ ^u^Ag_d?pKZ\k \?Y'Yia;Integi@Zo{Z@ & vbCrLfnKB(id'%` RejectAll<)`ToolsRevisionMarksToggle`ToolsReviewRevisions` wdDialogToolsAcceptRejectChanges`ToggleFieldDisplay}` UpdateFieldsR` ToolsMacrou`InputBox `vbCrLf`wdDialogToolsMacroHS`sRet(`intReply,h` intCreatef` strFields`GetMergeFields`Save`strCheck8`CheckBookmarksp` vbQuestion`vbYesNo`vbYesa?` (BackupFile` UploadFileE` vbRetryCancel` ExecuteAgent`(Escape(`vbRetryg`CreateHtmlAttachmentp`AcceptAllRevisionse`Deletex`鿴ԭ`strPara`strRet ?`Hex`RndR` sWordBody-C`sWorkDir=` (StrLeftBack)`FullNameО` (StrRightBack=`(RndTrim` DownloadFile1e`objDraftY`TimerX`CheckBodyBookMark2`opts `strMatchB`opt`(Explode`(TemplateDownFileD`Path2`(TEMPLATE_FILENAME_PREFIXr`(TemplateDownUrl` frmSelect` OptionString`vbModalt`Trim@`ChangeTemplate` templateDoc`Documentj`thisDoc N`rngU`flag`i`` blnCopyNull'` ErrCopyHeadt-`Windowsd`HomeKey`wdStory&` Bookmarks?n`Start`Copyƿ` PasteHead`ErrCopyHeadResumez` ErrPasteHead-` ReplaceHead`ErrReplaceHeadA`Cut.`Paste`ReplaceTailStartgM` ErrNoKeyWordE`Shapes<`Anchor#r` Paragraphsf` FindTailEndN`BodyEnd\G` ErrCopyTaile]`EndKey5` PasteTailA`CopyTail-K` ErrNoKeyWord2a` FindTailEnd2`BodyEnd2` ErrNoBody21`ErrNoAttachment ` ReplaceTail` ErrPasteTail]`ReplaceTailEnd`doClipboardNull` NoBookMark`ChrK~`Number-`UndoÞ` MoveRight`DocWord0` TemplateName`WTFlagQ`Fields7`Unlink0` TextFrame` TextRange`(UnProtectDocumenth<` rangeCopy`strCopy'`arrCopyh`intLine (`CShape0`Shape`Resultur`vbCr$`LenCharͭ`FirstLineIndent_` LeftIndenti`nStepR`of`MillimetersToPoints`Height|`LabKeywordLinek`Top5`LabCopySendText]`LabOutwc`lShapew`strChar$`varChar`StrConvx'` vbFromUnicode0` strFieldNameV`fld܎`Field3` GetMergeFieldz1`shp`strCode%`strNameZ`Code`strDummyl`SetVariablesSetting` ServerURLx`DbURL`Cookies`GetVariablesSettingp[`strValueK`lngHWND` GetSetting`Captionx`(GetWindowCaptiong` CreateObject`AcceptAllChangesInDocIF` WordBasic`AcceptAllChangesShown?`AcceptChangesSelected6`Run_` MacroName y`RejectAllChangesInDoc{g`RejectAllChangesShownq`RejectChangesSelectedh` VariableName"`aVarW`num`Index`newdoc+` bodyRange"_` newbodyRange `spos`epos4P` htmlFileName|`pageNum` Repaginate$\`BuiltInDocumentProperties_`wdPropertyPages`LabEpos4` LabBodyRange`Contentl`FontU`Size`(Replacef`SaveAsf;`FileNamej` FileFormat` wdFormatHTMLw`ݸ@`ArngC`TypeText` InsertBreakѺ` wdPageBreak 7`Exists]`ParagraphFormat` AlignmentI`wdAlignParagraphCenterl`blnClear `blnSaved`Removeϱ` (SetItemValueX`bk\`BookmarkC`gcolTempQ>` (DelItemValuee`Itemz` InsertBarh`cdlFile"` FileDialog`Filter;`Flagso` OFN_FILEMUSTEXISTٽ` OFN_EXPLORERL`ShowOpen~`WhatC`wdGoToBookmarkJ` InlineShapesٚ` AddPicture`ConvertToShape(z` WrapFormat`ZOrder`RelativeHorizontalPosition;F` wdRelativeHorizontalPositionPage+`RelativeVerticalPositionR`wdRelativeVerticalPositionPage`CentimetersToPoints` (P_RedHeads`wdRedº` ColorIndex` RJeGov+2`(P,` oldIndentk` strFontName` intFontSizew`wdDialogInsertFilej`myRange-`(鿴ۼqm`Options`InsertedTextMarkn`wdInsertedTextMarkUnderline`InsertedTextColorn8` wdByAuthor*``DeletedTextMark`wdDeletedTextMarkStrikeThrough`DeletedTextColor `RevisedPropertiesMark` wdRevisedPropertiesMarkUnderlineJ`RevisedPropertiesColor`RevisedLinesMark`wdRevisedLinesMarkLeftBorderP`RevisedLinesColor`wdAutoKV` (OAϵͳ`(غͷI`wdWhitex`msoFalseF.`(ʾͷ|`msoTrue ` (һЯ` (ͼһ٨`tshape`Protectf`wdAllowOnlyFormFields!` Unprotect?` (GetItsName\|` ShapeRange` (SetItsName`sTempe` strOptionbc` varOption`strUrlP` FillWordListh`cboWord.`AddItem ` ListCount6` ListIndexQ` FillTypeListu`varFile``strWord`Clear`List*` cboWord_ClickO`strTypeAh`lstType` cmdOK_Click`self`sourceG`cmdCancel_Click\` Common`(CopyFile`lpExistingFileName` lpNewFileName` bFailIfExists`kernel32_` (GetWindowText(`hWnd/`lpStringz`cch}`user32*` strCaption`lngRetw` vbNullCharY`strFile X`strDir`(ClearOtherDayFileN`Now%` vbDirectoryg`vbSystem`vbHiddenT;`MkDir` FileDateTime`Kill`strMain”`strSep`D`intPosr`(InStrRevĈ` strLocalFile`blnAddq`strUnidl`strPathl` (GetRndString`intLen[`lngPos6`strMsgG&`arrMsgj`intCountP`intStart?` strSource`strFrom`strToa`strInput` strOutput9c`intAscii&A`AscWG` (GetItemValue'`colGet` OPENFILENAME35` lStructSize/r` hwndOwner` hInstance ` lpstrFilter`lpstrCustomFilter`nMaxCustFilter`` nFilterIndexc` lpstrFileV`nMaxFile`lpstrFileTitlep4` nMaxFileTitleym`lpstrInitialDirr` lpstrTitleo` nFileOffsetI`nFileExtension9` lpstrDefExt_` lCustData'5`lpfnHook`lpTemplateNamet` CHOOSECOLORP` rgbResult` lpCustColors` ChooseColorAti` pChoosecolorV` comdlg32.dll?`GetOpenFileName]?`lpOFN;`GetSaveFileNameW` (FlagConstantsR` OFN_READONLY!` OFN_OVERWRITEPROMPT` OFN_HIDEREADONLY` OFN_NOCHANGEDIR͙` OFN_SHOWHELP` OFN_ENABLEHOOK` OFN_ENABLETEMPLATEO` OFN_ENABLETEMPLATEHANDLE.` OFN_NOVALIDATE` OFN_ALLOWMULTISELECT` OFN_EXTENSIONDIFFERENT` OFN_PATHMUSTEXIST` OFN_CREATEPROMPT^9` OFN_SHAREAWARE` OFN_NOREADONLYRETURN` OFN_NOTESTFILECREATEDs` OFN_NONETWORKBUTTON` OFN_NOLONGNAMES` OFN_NODEREFERENCELINKSv` OFN_LONGNAMES=U`CC\`OFN)`Color2F` DialogTitle߄` DefaultExty` FilterIndex˟`InitDir<` ShowColor `ShowSave G`blnSave` sFileName`iNull` _B_str_String` _B_str_LeftV` _B_str_Trim` _B_str_MidX`  #Y    Z@0BP@ R"$0Bbnt/&H00000000 Module=RJeGov Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=frmSelect Module=Common Class=FileDialog HelpFile="" Name="" HelpContextID="0" VersionCompatible32="393222000" CMG="C8CA6472687268776D776D" DPB="90923C23592359DCA7245957FC91A48DBB60A75E9EF6B3CC314711B7AA4E38C18DF4A1AD" GC="585AF407F507F507" [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, 25, 25, 804, 486, C Common=0, 0, 0, 0, C FileDialog=0, 0, 0, 0, C (H  @}R KQ_O$4cboWordOO$0cmdOKrdO( 0cmdCanceli$0lstTypeO AH(5"[SO(frmSelect!wwf oCompObj anx[{u"[SO(Sm{u"[SO` 5"[SO Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmSelect Caption = "ѡWordģ" ClientHeight = 2565 ClientLeft = 45 ClientTop = 3VBFrame'PROJECTwmCompObjn30 ClientWidth = 3495 StartUpPosition = 1 ' TypeInfoVer = 8 End ThisDocumentThisDocumentRJeGovRJeGovfrmSelectfrmSelectCommonCommonFileDialogFileDialog  FMicrosoft Word 97-2003 ĵ MSWordDocWord.Document.89q