ࡱ> ehdk R"bjbjB0358/Ds<m`(o 9&``````ceB`!o`'`#$#$#$V0^#$9#$#$V+@]T,p)M!+ 0=`0m`+xeM"eT,T,\e,#$``#m`e : 0A lQ_ 0VQq\Nw5uRlQSpSO5ulQSeN 0p5u^W[02018001S~{SNbSR [^N'YASNJ\N!kO ,{1702207S^vT{ Y  ,{1702207S^vT{ Y H ^NNh `cQvsQN Nyl\:SlWؚS5ueQ0W v^6e` sT{ YY N HQ [`cQv[5ah:yڋcv"a0`(W^-Nc0RyvSSgv10CSOؚS~eQ0W O5ulQSؚ^͑Ɖ0~s:W=[ 勵kgzz~bЏN1995t^11g bЏeyv\*g^ &{T?e^ĉRBl0vMR 勵k~ЏLrQo}Y [hTsX0LN0f[hQv^eq_T0O5ulQS]ǑS _4f:y&^I{ce v^N%NhN"hp!OJPJ4jhN"hp!B*OJPJUmHnHo(phA uhN"hGyOJPJo(hN"h>OJPJo(hCOJPJo(hN"hGyOJPJo(h>OJPJmHnHuh hWRZOJPJmHnHuhqxzOJPJmHnHo(uhCOJPJmHnHo(uhCOJPJmHnHuhN"hGy@OJPJo(hN"hp!OJPJo(hN"hp!OJPJo(M;$<$IfUDd]<a$gdN"Rkd$$If0p#  t 64aytqxz$<$IfUDd]<a$gd><$IfUDd]<gdN"?kdP$$If:p# t 64aytqxz  " \ NC $d0a$gdqxz?kdb$$Ifp# t 64aytqxz$<$IfUDd]<a$gdN"$d0$Ifa$gdqxz$d$G$H$Ifa$gdqxz?kd$$Ifp# t 64aytqxz  " > Z \ f h j p r 8 ~ ǻҠvgWWGWh9VhqxzOJPJQJ^Jo(h M:hqxzOJPJQJ^Jo(hMhqxzOJPJQJ^JhMhqxzOJPJ^JhMhqxzOJPJQJhMhqxzOJPJQJ^Jo(hqxzOJPJQJ^Jo(h ha@OJPJo(hN"hp!OJPJo(hN"hp!OJPJhqxzCJ,OJPJaJ,hqxzCJ,OJPJ^JaJ,o(#hMhqxzCJ,OJPJ^JaJ,o(\ j 4 f !0!@!!!!!!!!!!]gd%oggdqxz $UD]a$gdqxz $]a$gda]gdqxzxdG$WD`xgdqxz dG$gdqxz 2 4 N @ L P ` d ~ d f z ~ !ɺ׭׭׭➎~shZhh@OJPJo(hC@OJPJo(hp5@@OJPJo(h0hqxzOJPJQJ^Jo(hMhqxzOJPJQJ^Jo(hMhqxzOJPJQJUhqxzOJPJQJaJ o(h`cuhqxzOJPJQJ^Jhs6hqxzOJPJaJ o(hqxzOJPJaJ o(h M:hqxzOJPJQJ^Jo(hqxzOJPJQJ^Jo( ^1u?e^[勵k~eQ0W] zۏL~NrTĉR ReQ͑pbDR O5ulQS\ygMTZP}YvsQ]\O0 Q!kw_a"`[5uRNNvsQ_Tt p`"kΏ`[bNv]\OۏLvcw v^cQ[5a0 VQq\Nw5uRlQSpSO5ulQS 2018t^3g23e0 0 T|USMOVQpSO5ulQS T|5u݋5522038 b ^N'Y8^YONNNhY ^?e^RlQ[      PAGE 2   PAGE 1  b 2018t^3g23epSS VQq\Nw5uRlQSpSO5ulQSRlQ[ !!!,!.!0!!@!Z!h!r!!!!!!!!!!!!!!!!!ʿwswswswso['hh30JCJEHOJQJaJo(h3hjhUhhagno(hqxzOJPJQJh%og@OJPJo(h hot@OJPJo()jh6@OJPJUmHnHo(uhp!@OJPJo(h hp!@OJPJo(hqxzOJPJQJ^Jo(hqxzOJPJQJ^Jh ha@OJPJo(!!!!!!!!!""""" "*"," (d^(gdV(dWD8^(`gdV$ r t"]a$gdW$d&`#$+D7a$gdh]hgdW$d&#$+Da$gdagn &dPgd$!!!!!!!!!!! " """""謠q^qIq3+hh3CJEHKHOJPJQJaJo()h%og0JCJEHOJQJaJmHnHu$hh30JCJEHOJQJaJ-jhh30JCJEHOJQJUaJ'hh30JCJEHOJQJaJo(h3hWh3CJaJo('hh30JCJEHOJQJaJo()h%og0JCJEHOJQJaJmHnHu$hh30JCJEHOJQJaJ-jhh30JCJEHOJQJUaJ"""" "*","."0"6"8":"<">"@"B"D"J"Z"x"""""zl\L@<h?Rsh8TEh3OJPJo(hQJjh3CJOJPJaJo(hh3CJOJPJaJo(h`h3CJPJaJo($hCCJOJPJaJmHnHo(u'h h3CJOJPJaJmHnHu$h%ogCJOJPJaJmHnHo(u!hCCJOJPJaJmHnHuh3B*OJ phh3B*OJ o(ph(hQJjh3B*CJOJPJaJo(phhh3 h3CJo(,"."0"J"L"N"P"R"T"V"X"Z""""""]gd%oggd6 $4$a$gd6 (d^(gdV""hhagno(@&P 0p1N2P:pjg. A!4"#$%S R$$If!vh5p##vp#:V  t 654 ytqxzR$$If!vh5p##vp#:V  t 654 ytqxzR$$If!vh5p##vp#:V  t 654 ytqxzR$$If!vh5p##vp#:V  t 654 ytqxzR$$If!vh5p##vp#:V : t 654 ytqxzh$$If!vh55 #v#v :V  t 65 54 ytqxzR$$If!vh5p##vp#:V  t 654 ytqxzR$$If!vh5p##vp#:V  t 654 ytqxzb 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 nfh3\`?/[G\!-Rk.sԻ..a濭?PK!֧6 _rels/.relsj0 }Q%v/C/}(h"O = C?hv=Ʌ%[xp{۵_Pѣ<1H0ORBdJE4b$q_6LR7`0̞O,En7Lib/SeеPK!kytheme/theme/themeManager.xml M @}w7c(EbˮCAǠҟ7՛K Y, e.|,H,lxɴIsQ}#Ր ֵ+!,^$j=GW)E+& 8PK!mQtheme/theme/theme1.xmlYMoE#F{oc'vGuرhF[x=ޝzvg53NjHHzZ $ʯI)*E_N&IA!>Ǽ3xN>UWL0Č߫߿z}rx{h9T8T/χ?xY'~3S~O_|w)ӈHt=a+d NG1-RlƁ1RJwT蠯M1K"o he˓ێ½PL-|%EhY7'qP.\L=dqķ3Iofi.ñBRb-JP_pG ݢiKtdӌhFio7;7Q2ȾD>a/Q>XW ˔M_uHq)h +:Viw4rBqϫ"r!2laCbU|!8^8>ܠ,AбVt׎~ls14_=,ɬožTV G"ѦbH'.4x޵w-ϷE|F;v`b3"G 'e\fHO '$i_wp >*8i&LY%\,xҕ= r6f 3Tʅ):ªZKLs&C Mܛ0 [˫p@ע`j۽7 YHxHicT5Ar@HZAZC}i' RQ\m,zo,gQu{Y\,Nר/=L _.̇Y7C6-fSh62"5NHT[X65̫4X%Yֳ2fkhi~tCKF#b +w1m|4`!:U!p5a:~{4mmio ήc8mDJpSǹ橠V1?#Si?3E'pS2W`qB]( 08w nA[s)k8= Aa?R dڒɾcUӽ˲d)#Queb}C!&i0>4S7{z F} 4sKvUKoȳh~1jYUVH5U8Vk;֜L9ŰD ?*|FL "A3>g]dm2iVֵ褽mg  4    47  0 !2225 !!""" \ !,"" #*,5!!  ,b$5|Bj%|EZ %F& A @H 0(   b(  B  HDA >DocMarkLineC"?  0 3"`?    03"`?   . `CopySendText`T`T`T`TC"`? bB  C D3"?B  c >DCopySendLine3"?B  c <DKeywordLine#" ?B S  ?pstuvwxb"(p38"38,38"38(u:"u:(!7Y!7h-8!d:,-85d:,BodyEnd  9;gkst'(*?  9:;>AZ_`abcWfkl{ AFWf,2ilW\  33333s333 AWfkms <WWZ]abcekns;Ifgqz 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         }A7/0SV9.Iep+B Ys#_98 @ !\   t2ZZoPNg7vIS F N"@#.d&? '|N)*1*'+m+'.3\/w/-1\13c4Pz5h69E<Sb=)>uv>@p5@B?ADNAjBF,FxFKnGI IQI3J\JfJRK`5N%KQp8S'T90T U$UBUaU9nWAzW&ZYT`Y(ZWRZYZ[@[\G] G`aaa9cCUc@dbdeidudvdH6efgjg%ogY>iQJjPDknOnagnXHp).s7s?Rs)itotuuGxbzqxz <{]d{F|]|wk|&`+;[jA95[44[9-&0L#9J].qAA$a&D_,!?]D$ee|wd)e  Z+oqZ^ ?U ;vgAF;`v>C\;sLv^ mK^\_oY:|C fp!Cf i7>'1fwjW6zBTM}2p]AaDpp{):iub3aG#5$GyN5}'I lHxPVV,b-o? 3.CookiesDbURLWDocWordNgExistBodyBookMarkXOA gFileType@;RgKey+gOldUserUgUNIDR gUserNamepA+gValTypex gWordBodys: gWordSource0X gWordType: ServerURLp* TemplateNameR WordStatus0:WTFlag+ CurrentTheme=default; left0_%u7EFC%u5408%u534F%u8C03=4; left0_systemset=7; left0_%u529E%u516C%u4E8B%u52A1=7; ZNPCQ003-36333100=5b4036e3; IPCZQX03a36c6c0a=fe00e1010a8d0322b35ca501ce4e8bef09d0d35d; PORTAL_NID=cab38580e56b2f65340e1f5f411ef8b4d1613810a2b09e4f; ZNPCQ003-32323400=07e2f94d; ZNPCQ003-38353200=ff7e9aed; LtpaToken=AAECAzUyRTg5NjAyNTJFOTIyQTJDTj0TwO4TwLwvT1U9eXRnZC9PPXNkZGw1Cr1+8tK1dWbNbyExUC5i0gYKBA==; oahost=coa6.sd.sgcc.com.cn; companyCode=YTGD; LastLoginUser=370631196710187024; LastLoginUserPassword=ll667788,http://coa6.sd.sgcc.com.cn/ytgd/dispatch.nsfpSO5ulQSeNFalse&1pSO5ulQSeN|S-VQq\Nw5uRlQSpSO5ulQSeN NLe .doc NLeNgpQ A65F49B4F96383C148257C6D00314407NgpQ1Fc:\oawork\A65F49B4F96383C148257C6D00314407S-VQq\Nw5uRlQSpSO5ulQSeN NLe .doc0c:\oawork\2D96BF3A24EE65FF3996C823348A0939ds.htm createwordhttp://coa6.sd.sgcc.com.cnS-VQq\Nw5uRlQSpSO5ulQSeN NLe .doc CreatedWord NLe.V B&B0VB&B0VB&B0VB&B0V B&B0VB&B0V#B&B0V"B&B0VB&B0V &B&B0V 'B&B0V *B&B0V B&B0V !B&B0V)B&B0V$B&B0VB&B0VB&B0V(B&B0V%B&B0VB&B0VB&B0V B&B0V-B&B0VB&B0V B&B0V,B&B0V+B&B0VB&B0VB&B0VB&B0VB&B0V B&B0V!B&B0V"B&B0V#B&B0V$B&B0V% B&B0V&B&B0V'B&B0V(B&B0V)B&B0V*B&B0V+B&B0V,B&B0V-B&B0  +Custom Popup 17 Custom Popup 170(XRNLbXRNL RJeGov.bXRNL(Q\NLbQ\NL RJeGov.bQ\NLCustom Popup 18 Custom Popup 180(>f:y~4Y>f:y~4Y RJeGov.>f:y~4Y(υ~4Yυ~4Y RJeGov.υ~4YCustom Popup 19 Custom Popup 190Custom Popup 102252941 Custom Popup 1022529410(υbbυbb RJeGov.υbb(>f:ybb>f:ybb RJeGov.>f:ybbCustom Popup 102330403 Custom Popup 1023304030(υbbυbb RJeGov.υbb(>f:ybb>f:ybb RJeGov.>f:ybbCustom Popup 51051648 Custom Popup 510516480(υRυR RJeGov.υR(>f:yR>f:yR RJeGov.>f:yR(XRNLRXRNL RJeGov.RXRNL(Q\NLRQ\NL RJeGov.RQ\NLCustom Popup 51157610 Custom Popup 511576100(υRυR RJeGov.υR(>f:yR>f:yR RJeGov.>f:yR(XRNLRXRNL RJeGov.RXRNL(Q\NLRQ\NL RJeGov.RQ\NLCustom Popup 31904245 Custom Popup 319042450(>f:y~4Y>f:y~4Y RJeGov.>f:y~4Y(υ~4Yυ~4Y RJeGov.υ~4YCustom Popup 31929612 Custom Popup 31929612 0(XRNLbXRNL RJeGov.bXRNL(Q\NLbQ\NL RJeGov.bQ\NL.cke.ThisDocument.ToolsOptionscke.ThisDocument.InsertBarcke.ThisDocument.FileClosecke.ThisDocument.UnlinkAllFieldscke.ThisDocument.ProcessCopySendcke.ThisDocument.SaveObjects%cke.ThisDocument.AcceptAllChangesInDoccke.RJeGov._eQezcke.RJeGov.g wucke.RJeGov.υu cke.RJeGov.eu%cke.ThisDocument.AcceptAllChangesShowncke.RJeGov.SetRevisionsOptioncke.ThisDocument.wIDNcke.RJeGov.ԏVOA|~cke.RJeGov.υ~4Ycke.RJeGov.>f:y~4Ycke.ThisDocument.CenterTitlecke.ThisDocument.doClipboardNull cke.ThisDocument.ToolsOptionsView%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@XX Unknown G* Times New Roman5Symbol3. * Arial9E eckўSO_GBK; |8ўSOSimHei;E eck\h[_GBK9E eckN[_GBK;([SOSimSun7.{ @Calibri;5 N[_GB2312A BCambria Math!hZ$GldGF| ' ))-!),.:;?]}    & 6"0000 0 0 00000 =@\]^([{  0 0 00000;[4'2dP!; 3qHX??Rs2! xxckeeNRJeGovY[]   Oh+'0  4 @ L Xdlt| ļRJeGovNormal9Microsoft Office Word@q@nK@ĉ ^@<)՜.+,0 `hx RJSOFT   "#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSUVWXYZ[]^_`abcfgjmnopqrstuvwxyz{|}~Root Entry F HMi1Data 1Table!eWordDocumentB0SummaryInformation(TDocumentSummaryInformation8\Macros`Mp)MVBA `Mp)MdirCommon l2RJeGov&__SRP_0    !"#$%&'()*+,-./0123456789:;<=>?@ACDEFGHJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~0* pH"dD<@j= B  X U J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\e2.tlb#OLE Automation`Nor(malENCrmaF b *\C  WT!OfficgOficg!G{2DF8D04C-5BFA-101B-BDER5gAAe42gProgram Files\C ommonMicrosoft Shared\OFFICE11\MSO.DLL#M 9.0 Object Li`braryJD@MSFAs>SFDBs3@cD452EE1-E08F/A-8-02608C@4D0BB4cFM20 'B p&/;"1{B~ 00}#0# 50 AF741@3B5D-Fi-409B-9F6E-66D561@BCD80B6DOCUME~1\user\LOCALS@Temp0\VBE@a6.e iZ`b`d+4h ih`j`&+l ij`"+Tx i|@i~`+Xi|i~`+ZPipi i``h+@ i+i*if`+Lpi|8i~`+P i|i~` jH H ihx;i~ ` ` `  ( +z  i i ih>`p>+< @ I `>`>`?`?+H ) ( P?%i&+ ) %i& I6  0 )P X %i&ʐp Ll@rh|x H x ph xh @  @H  H x ,@ X U 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ģ8] 1ԭı־ ]  1 ı־] 1ԶģϢ־] 2 ͷݱH]$ \'b>] Z b$X'd d b b f $ 'bk b'>i]8P h\$T'j h\$X'& & &!$ '&k@ j \rjoawork.bakA@l  h j\rjoawork.bak\ nyyyymmddhhnnss$ &$N'4ih B@:] j p r t $~ jA@vkX j\*.* r t $~'" " j\ "$x n j\ "A@zk ~'" !'li]` | ~$'  |  $ 'TkXiPx] | ~$'  |  ~ $ 'Xki]D \$X'h \$T\'   $'kh h  h'hk@d8 h h!$ 'hkk  h'ZiA@4  a  N $L'  $ 'i@]_h '  * f'  i0]X | ~'  |  $ 'Lkip] | ~'  |  ~ $ 'Pki"һֳַָɼַ]]ӵһĸʼҬ'_   ~' Gxj @     $  +  ~ '  ' @@  $  + 'jiHH ]   '  b   $       $ t '    'L 'zi ]` ]x ] ]    $ ' $' G 'j.԰ǿո⴦x  :  /  [  @  {  `   'dp $ L' KT%0 'KT% 'KT%u0 'KT%u 'n  'k '<i HF & %'zHixH HF 6 & B@Z'z@H8i0 HF & B@'zHiҶ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 !!' !v!x' !v!' !InsertFileStart5B@Z8. $B@ ! InsertFileEnd5B@ZϢ]InsertFileStart7! InsertFileEnd7!7.am  !v(  !v(x  !(InsertFileStart7B@D InsertFileEnd7B@D''q`oXA@ 5A@k(9995A@kqo 5A@k9995A@kqo(SetRevisionsOption 999q8o0h  9 9 9 9 9 9 9 9qo B@BoC///////////////////////////////////////////////////////////////////'l* ǺͷصIJC///////////////////////////////////////////////////////////////////0SubjectTextǡļ⡱DocMarkLineǡĺšĺA]( 5A@kP'''' SubjectText7!!!v!' ''''   SubjectText7!!!v(  DocMarkLine7(5A@kqAo@pA 5A@kH''''  G 'j '''' B.Shapes("SubjectText").TextFrame.TextRange.Font.ColorIndex = wdRed  SubjectText7!!!v(  DocMarkLine7(5A@kXqPAo@0KeywordTextǡʡ!KeywordLineǡʡCopySendTextǡ͡]]33333$@$' 5A@k KeywordText7. !   (  KeywordLine7.  !   (  CopySendText7.Ng !   (  !  (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  *\CNormalrU~~~~~~~~h RVMt a 1Qi! Q ) i  9 Q q 9 i I y Q1i 1Yy !AY)  ioEr=zV)  ThisDocumentRJeGov frmSelectCommon FileDialogF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA y  ` F5C:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLBWord qp0FC:\WINDOWS\system32\stdole2.tlbstdole L-[DR?C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLLOffice a.E .`M C:\WINDOWS\system32\FM20.DLLMSForms ];A@nfa .C:\DOCUME~1\user\LOCALS~1\Temp\VBE\MSForms.exd ak FjJZI k>hw;mO3V-;cyF+IC  CenterTitle FDocumentOAOpen DoMailMerge DoMailMerge1 FileCloseDocument_Close ToolsOptionsToolsOptionsViewToolsOptionsUserInfoToolsOptionsRevisionsToolsRevisionsToolsRevisionMarksAcceptToolsRevisionMarksRejectToolsRevisionMarksToggleToolsReviewRevisionsToggleFieldDisplay UpdateFieldsReject ToolsMacroFileSave鿴ԭSelectTemplateChangeTemplateLocateContentInputRecordTemplateInfoUnlinkAllFieldsProcessCopySendLenCharGetMergeFields GetMergeField/ FCheckBodyBookMark SaveObjectsGetVariablesSettingSetVariablesSettingIsFromOAAcceptAllChangesInDocAcceptAllChangesShownAcceptChangesSelectedRejectAllChangesInDocRejectAllChangesShownRejectChangesSelectedCheckVariableExistCreateHtmlAttachmentݸRecordBookmarksCheckBookmarks InsertBardoClipboardNull CheckRedHead @@x 48<@DHLPTX\`dVrU~~{  ) objFtpWordTypeUserNameUNIDWordBody WordSourceFileTypeDocWord TemplateNameWTFlagstrChar strFieldName )! fldstrNamestrValue __SRP_1B__SRP_2 I__SRP_3afrmSelectVariableNameblnClear-rU 011q Il a1` 1[WW_____ _    _    _    _    W0 X  0 x  0   0   0 8  0 x  0   0 @  0   0 8  0   0   0 X  0   0   0   0 X  0   0   0   0 `   0   0   0 H   0   0 X   0  0 @  0   0   0 P  0   0 0  0   0 (  0 h  0   0   0 (  0 h  0   0 X  0   0 (  0   0   0   0   0 `  l      !"#$%&'()*+,-./0WrU xD`1;000000$A`@$`D$`$`H$A`$`$`$`$A `$ `$ `$  `$I `$`$`$ `$I`$`$`$ `$I`(`#0` Qi000$ `$I`,`&,`/8 `  =/(I`#$`0` 10,  `1(I !`#$ "`$ #` $ $` $I %`$ &`$ '`, (`Q0#(I )`!/$ *`%$ +`)( ,`-y(I -`10$ .`5$ /`9$ 0`=nID="{00000000-0000-0000-0000-000000000000}" Document=ThisDocument/&H00000000 Module=RJeGov Package={AC9F2F90-E877-11CE-9F68-0LxME(SPSSS0{3E7A43DF-535D-49AB-BFFD-D543FF48C31A}{B545BD2A-D8B5-465B-937F-9790FBBE2311}(b(`(,!vi % Avi6 *@6 `8` > 4p@6 `8`@` D`h 1`F 1 JPH %xP %b$b& pHH P X U`  &"0X Bpx "   "T@P `px     (0 @PX` p " "  ( 8Xpx     "   8X2h  R D`h p2 "  x]@ EnumWordķַ]@ ļϢַ]@ ݿurlH $'vmx 6'$ $~$P'( $~$L,$j'&A@*m  HǴwordʱʾԶwordģĵȷϣбֻʾµļ r ,B@. ,!0 ,(2kA@4|xkp]H`x& ,B@: 6 & 6\$L'8  ,!0   ,%< 8yk  ,!0 8 ,B@.k ,!0 ,(20(kxopA@4oX](@X  BB@:) 6 & 6\$L'8 6\$P|$L'@ 8 ,!d  B!0 *  B%< @ykx  B!0 @ BB@.kPkH@ B!0 B(2kopH] ļϢ] ѡû ,!d\ B!d'F h & h F 'ҵѡеļֺģϢ h|$P!$L'v !n\ p v'lg,صģļt_ͷģԭļ $~$P/0/ h!$P/$FILE/ v'r k A@r;|xHp ϵͳ ! ! !HA@0;|0o( A@roõAttribute VB_Name = "frmSelect" " Bas0{3E7A43DF-535D-49AB-BFFD-D543FF48C31A}{B545BD2A-D8B5-465B-937F-9790FBBE2311} dGlobalSpaco False Cr@eatablPredeclaDIdTru BE`xpose0TemplateDerivCus tomizD Option 1licit P#' str!As Sng 'EnumWordķַHvaV@ariantļ`Ϣ 8Url 7'ݿurl'ub* Property Get& *)()G IX6 EndLByVLalFue)C F6=AR@Right( , "~"GN=eode(5Lef  , FillqdLispN5DtS(ub I (If AutoChangeFlag Then 'Ǵw{ʱԶģĵȷбֻʾpµ|@bcbo).AddItem NewD|oc# 3Cou@> 0 Index.f0G!IfTypexit `##i#Dim 2e,A?'?, iInteger#CleaDFor Each% InACSB D>&".\= i To %- 1 *(i) ==AE" +m*Nex@Na i >=0o eA I ,Ci"LC >'e_CkedKG4GARJlst.JJJ'OStr#*| Q1@V.TBuVeq8V$J)+BO%!1+0_IAqK,` ,_ ?u, 3a$ ._O9. qo*qN cmdOK-O0rr0JGoDErr`dl !,opt!*|0bpk}3Ase|a'ѡûS'C2$& `O & A$U Ta0InP,( [0el) eR@ѡejl#A1@jU@Yp#2"11!1&ownC BThisoument.Path0TEMPLATE_FILENAME_PRE8FIX}'`صq At_ Qԭ [ Y sD /0/"p $ < '.Unload M&R;Sub %(:#MsgBox "ϵͳ*.Descris& Number sourc@@r_mdCapncel1X (5FileDialog"ThisDocument _VBA_PROJECTU/PROJECT~J:tChooseColorA`8GetOpenFileNameA`$GetSaveFileNameAxRRRRR RMEL PSS S@@@<<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}8  h0hHh`.hxhhhhhhh h8hPhhhhhhhh h(h@hXhp"hhhhh:+P( )H%+$ ) %+@L(( ) %pXP%p %j jj j(%  i`d i  xXi ""ii" `$`&`dh@%jCjCjCjCj8Cj`CjCjCjCj Cj( CjP Cjx Cj Cj Cj Cj Cj@ Cj h Cj Cj  CjC" P"0 pjX jxj~*   8x`h @P @ Px pX (  0  x (  @x @@ X U(*\Rffff*05550c5809\0(*\Rffff*05550c5809\1(*\Rffff*05550c5809\2%  (08@HPX`hpx  H H H   (08@HPX`hpx         (08@HPX` " hpx    "   "  ( " 0 8@` hx$   08@X ` x^^0^H^`^x^^^^^^^ ^8^P^h^^^^^pH^^(^@^X^p^^^^pP ''''' '@''''''' '@'''H'' >'Z b' 'd ']@ ]@ ] 0 ] X ] x]  ] ] ]  ] @]  (  (  ( $'d dColor = CC.rgbResultko A@o A@ox] ~ f$\'$  9 9 | f$z f f9 9 $9 $9 9 9 9 9q]( " $'dd $'dk d ! f f'& & ! & $ '~dx !'~k`dX'~kHo@80Attribute VB_Name = "FileDialog"D Bas0{FCFB3D2A-A0FA-1068-A738-08002B3@371B5} |G lobalSpacFalse dCreatablPredecdlaIdCE xposeTemplateDerivCustomiz EOption 0licit P"& Type OPENFILEN@AME lStructSize As LonghwndOwner Instanlpstrt0i *anMax GK&nIndex'E 4@; Tity6CK%InitDiBMMFla gs3A;eOffsetIntegeriExtxens.Def@ %[D@ 5fnHookQūKEndCHOOSECOLOR/@rgbResul%aColorP-40l##s .#DC Func1"yCho@A Lib "comdlg32.dll" (p#cA;+) GeptOpebG7P A@lias ",A`lpOFN Ɋ n ` Save?!p)Mub Enum 9dCo"tsN_READONLY`&H1OVERWRITEPRPOMPT2H(IDEJ4gNOCHANGEDI R8GSHOWHELP10Q@BLE bKB2NTEMPLATE4DL8NOVALID10hALLOWMULTIS0ELECD)EXTENSIONDIFFNc4iPATHMUSTEXISͷ`C)k-0 SHAW@ NOBRETURN"NOTESTA":NETWORKBUTTOS2P*LONGQsSщEXPLET#CELINK21BA,9TCC!7JT=8P~0RDPP32hefaTc;X_<{o,;Auu Sub Show (ByVal .)(Dim lngR#taCC.g= Len(CCT==3wf= ?b08\gIfaThen#'"P& If qpA!A\t Q _wV__, Tru ϵ( , ê1Sbln*Boolean Ns&= 6&dv(658, vbNullCharWith 23? (o ` H= Re`ce(0 0, "|"z &X (y2 2I@%-& 9h= 6}B= xC(;sprVE##-i d,;P4u#k478El1 ) 73;Q c Str.x` !ҒIft$s- 1+\- U}"q?       !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTVWXYZ[\]^_`abcdefghijklnpqrb) 7 1tjJZI k>hw;mO3V-;cyF+IC xcyF+IC jJZI k>hME,  $S"SS"04<<<0L<<6"<0<4<8<<<(1Normal.ThisDocument (b@<@b"PD@b$hH@b(P@b,X @b.\ @"3d8 @(%(%@ % 8x`cci: i<i>i@iB8iDXiF `` @@@t ` D)) 8`  x` H ` `` @`  `x ` ``Ϣ``@ 8`  `  `  (`` ` ` 0  `  8 X `  @   `  H  `  P ` X X` \ ` ` `  d`r ` n`` `"!`$`*Name F` ` `H`J`PF`R`^ Ҫ  ` 00`d ~ `fԭ`h | `F ~@ Exit% ` %  ڷ%` ord `DocW`` ", ,pH ` (  i  ange  ` i i  06.i X `-` "pr` b ` JJ>  rdSi%` ` `nt.P` 0 ĵ%``   %,@` i (i 8.FA@  &` ii  Dr Ap% "%  ` @  )`he$%iTei  rdK`$غ`&tedW,bP`  i  te$`*view ^` ,40` i&$i6(i Te , ` p i&xi6005.,(!`  ! i  `8 Bh"` " F#` #  H$` $ N(%` % Ph&` &  R'` ' (,TX(`  (??1iTi  `V ``X @)`  )OOpi  Ϣ \% ^% `%`b`d'`'&`  **`f'0`h % (*` $*  ''% d+` (+ Word%`$ `&Draf ,`,,i tedW` Ca Hadd% "h %  %,,-`0-i $L`  P % @'x% "`% ! %` .`4.  H$% `/` 8/? X˵% \0` <0M  r%%b4 @b8@b (@@b&xL@b*T@b0` @b6h @XX 8(((X ` (h@@8xPXxX`P hH h x0@dSig  11X`xL>_ X U*\R0*#1c*\R1*#104$*\Rffff*09550c5809l`  (08@H2P  "   08@H P  `x      ( @`2h        8@H P hx  <($( P4X64  dp L X 0 P `px ,       *  6P 2     @ ` h " p x     &      ( 0 8  .@ p        ( 0 H ` x            8 @ P X p         8  @ X h       B  " ( 0@H P&`    0H`,x$, P`h, BP " X `px "            ( 0 " 8@H P`x     "     (08@ " HPXpx    " (08 " @HPhpx    "  ( " 08@HPhp " x "  "  "  ( " 0J8 " ~ 8H*P "     >    0 @  $H$p     $ .   P z`    "B8 &     $ x   >   :  HPX p\pT       08  @h  ,  0 H  h  x       R ! ! ! >0!p! x!!  ! H! :! z " :" " " # (# 8#  H# 8h# ### #\#8$@$$T$0%8% @%  P% p% x% %%,%% " %%%%V& X&x&(&&&&&"& '0'@' X'Hh''''''',' ( " (( 0( P( Fp( "( "( v) H) ) )))T*X*``*******  *+ + D0+ x+R+D+ 8,@,H,P,&p,, ,&,:, -(-$0-X-p-x-,--- " - .- -..0. H.h.p.x.  .0...  .. ..(/$0/ X/`/h/p// ./ / 0/$ 0 H0X0p0 00000000 40111 1(1@1X1x1 1 111111&1&282P2h22222  62 (23333. 3P3h3p3x3333333 3 34 4 @4H4P4X4`4h4p4x4  444444 *4(5.05`5x555555"555566*6@6H6P6X6`6 h6x6&6 66 6777 7(707 87P7 X7p7 x777  7 7 7  77  8 8 :88  x888  "88 8888 p9 9 9999  "99 999|:: : : ::::  ":; ; ;(; B 0; "P; &x; ;;;;;;;;< "  < 8< H< h< 0< <B<=0=H=h="p="=="===>8>@>`>h> " p> x>> >> > >> >>  ? ?" ? ?(?0? 8?@?H?P? p? x? ? ?? ? ???@ ,(@X@ `@p@ @&@ @$@@ AA  A@AHA$PAxA A A AA AA A A B B 8B@B HB hB BB  BB&B C C C @C&PC xCC C @CC CCCCC D D B  (D0D8D@DXDpD B  xDDDDD DDDD DE E E(E0E B  8E@EPEhEEE "EEEE B E <F@FHFPFXF`F F FFFF " FFFFG(G@GXGpGGGG GG H(H @H`H hH pH ,H H B  HHHHHII "  II I8I@IHI`I B hI pIIIIBII J J J 68J .pJ 2J J J K 0K PK pK K K K K L  L $8L`LhLpL .xL" LLLL LLL " LLLM &M 0M8M@M " HMPMXM`M8hMMM " MMMM MMM " MMNN &N 8N@NHN " PNXN`NhN pNNN B  N NN NN NN N  NOOO O (O 0O HO  hO  ,O  &O O  lO  $hP :P "P &P  Q ~8Q Q nQ  .0R J`R *R .R S 0S HS `S 6pS S "S S  T T  0T  HT B  XT `T hTpTxTTTTTTT  T TT T U$U 8U @U HU hU$xUU"UU UUU"U V(V 0V  PV pV V V V VVV VVW  DW &`W W W  WWW W `WPX XX  XTX @YHY  PY `YhY,pYY " YY YY.YZ  0(ZXZxZZZZZ $ZZ " [[ [([0[@[X[p[ [ [[ [[[[\\ "  \\ \ (\8\ @\ P\`\h\p\x\\ "\\\\ \"\  ](]0]8] :H]]] ]] B ]]] ]]]]] ^^ ^(^ 8^X^ p^x^^^ "^^^^^^_ _ (_8_@_ (H_" p_x___ ___ _ _ ___``"(`P`"X` ` ````````a(a0a8a (@a" hapaxa a"a(a a bb b  b" 8b@b Xbxbbb b b b bbbbbc cx]]]]@](]P]h]x]]$Ȩ޿ƲƸģIJʾx]ļϢ]ϡĹؼ]]XHF :. <$J'  >//$L' @' B'" D'$ F'& N!>'( ********czc'0 F$ F$$L'& F$$P'0k0 **********ģ !R','''''  N(> WordStatus$T WordStatus %V!X'*d WordStatus DraftWordX !VB@Z DraftWord'*k@''''ͷֵA@\''''''A@^ * CreatedWordG|jCall ʾͷ '///lzt addA@`A@bA@d  approveword (fk h!j(l h!j(n p'6, ָʾλ & & $t|$L'rHδļ &|$P'vHδģ 0'xHδıDocWord %V!X'zHԭʹõļ TemplateName %V!X'|HԭʹõģWTFlag %V!X'~HԭеıH z |HFԭʹõģļΪգ˵һݣҪ¼ЩϢĵ r v xA z r z z r ~ xexFԭļֺļֲȣôҪʾûǷıļֶӦģ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|Hĵ򿪴 ! ҵ칫ԶϵͳA@|oxHF N(A  5( $5B@5( 5(  createword .Fields.UnlinkA@kq'<<<<<<<<<<ťʾ pjt 2005.5.4 Mail Merge$(  draftwordKTDraft$(Approve$(View$(Template$( approvewordKTADraft$(Approve$(View$(Template$( createwordKT Call غۼ * CreatedWordDraft$(Approve$(View$(Template$(kviewwordKTADraft$(Approve$(View$(Template$( viewdraftKTADraft$(Approve$(View$(Template$(nģ ,1Template$(kx>>>>>>>> pjt 2005.5.4 N(|8H0޷ϲԴ ! ҵ칫ԶϵͳA@oHF N(A  5( $5B@5( 5(  createword .Fields.UnlinkA@kq Mail Merge$(  draftwordKTView$(Draft$(Approve$(Template$(4ģ幤 approvewordK createwordKTAView$(Draft$(Approve$(Template$(4ģ幤viewwordKTADraft$(Approve$(View$(Template$(5ģ幤n N(|H޷ϲԴ ! ҵ칫ԶϵͳA@o B@BA@o8$ ! (fdHA@k8 ( N(>  N( ! NB@k k ''o x]] N!>' $!'   N(>A@ h!j9l 9q8 k0 o( ]( $!'  h!j9l 9q k o @]] N5>'5'5' $!' $ 9> 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@dh ! (kH o@ $A@d $B@k o A@o A@o X*ڵǰĺ갲ȫ£޷ʹô˹ܣ Microsoft WordA@op ](ꡱѡֻڿԱϵͳơ  룺(ʾĹ̿)Ա$' sgcc;oa $B@d Microsoft WordA@kxopHF]0H`'"8If ThisDocument.ProtectionType = wdAllowOnlyReading ThenThisDocument.Saved = TrueExit SubEnd IfA@ʽʱû޸Ҳ  createwordG (fj !fG|j]xкϲ$&'$ B@(  draftwordK approvewordKT] ,'*" ǩʼϲ pjt 06.9.18 *ĻϢϲǩ( *')ɾĸ޷浽OAϵͳУ ҵ칫ԶϵͳA@|kIf strCheck <> "" Then Dim intSelect As Integer 0 intSelect = MsgBox("ڱĻϢϲǩ(" & strCheck & ")ɾѾĹ淶Ҫ" ' & vbCrLf & "鰴ȡ˳༭ȡβC\OAWorkĿ¼ȡδݣȷǿбOAϵͳУѡ", ' vbCritical Or vbOKCancel, "Ż칫Զϵͳ") If intSelect = vbCancel Then Exit Sub End IfEnd IfIf Not CheckBodyBookMark Thenq MsgBox "ǩɾĸ޷浽OAϵͳУԱϵ", vbCritical, "Ż칫Զϵͳ" Exit SubEnd If"ǷҪµĸı浽OAϵͳУ . 0 $ 2 "A@4!2002.10.25 PJT 4''''''''CreateHtmlAttachment '////html鿴ĵ_'  " %6' $޷ϴWordĵǷԣ 8 .Microsoft Word$' dSaveWord&UNID=  &WordType=  &FileType= & &FileName=  %< $$< %:' ok     Ƿԣ 8 .Microsoft Word$' k k  >A@@#////html鿴ĵk createwordKT WordStatus %V!X CreatedWord$Ƿ޸ģʽļ . 0 $ 2 B@BA CreatedWord WordStatus %V(XDraft %B@DApprove %B@DView %B@DTemplate %B@D B@( (f'"khk` * CreatedWord6ļʽļǷҪµĸı浽ϵͳУ . 0 $ 2'"k "e"ǷҪµĸı浽OAϵͳУ . 0 $ 2'"kkx " 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@4!2002.10.25 PJT 1'''''CreateHtmlAttachment '////html鿴ĵ_X'  " %6' $޷ϴWordĵǷԣ 8 .Microsoft Word$' dSaveWord&UNID=  &WordType=  &FileType= & &FileName=  %< $$< %:' ok     Ƿԣ 8 .Microsoft Word$' kk  >A@@#////html鿴ĵkn|xHp ! ҵ칫ԶϵͳA@o8 G|jHF]  &UNID= &Seq= N $L &FileType= &'H ViewDraft H %:'J J$  J ҵ칫ԶϵͳA@|8k0] 0 !V\$T'R R\ J/$X'P P$Z'P P$Z'P J P %\'P P ޷ԭ壬ԭѾ򿪡 ҵ칫ԶϵͳA@|Hk@]H P %.^|H ! ҵ칫Զϵͳ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-10HFA@EnumWord&Seq= ` %:'.G$ȡļüӦWordģ b8ǩɾϵͳ޷ģ壬Աϵ ҵ칫ԶϵͳA@|8k0 ] ] ] .~$L,$j'd r\'f h d h f h x NҵļֺģϢ h|$P!$L'v !n\ p v'lk,صģļt_ͷģԭļ .~$P/0/ h!$P/$FILE/ v'rkd . t(v4 ֵ x tB@4ʾģ滻Իk`end 2004-02-10'(ȡԶʾļֱ r$z l$zHûѡȡ|k r l B\E ģļA|滻ģ|H ! ҵ칫ԶϵͳA@|Ho@ (ṩģ幦ܣģ滻ͷβ滻 2003-07-24H]( *Ҫ滻ģĵ]H *ǰĵ]h *ݴķΧ] ] ] . l$ ~*ģ岻ڣ˳|8k0 1.رպۼA رպۼ¼(2.ģĵǰݿ] l %.~8 ĵ ~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'k`qXFHF8'.3.üе滻ǰĵǰ A 7!B@7!!.7!! (Body7B@H7!! ( B@Hq8F(FF"Ե,ʼβ. ģıͷΪɾͷ %!B@d Ϊճͷ %!B@kx p h F/=============β=============================="4.ģԺݵ ' ~  KeywordText7!%!. ! (   x p BodyEnd7!.H @ 7!B@7!! ( B@H7!B@7!!d'k Fq    '.5.üе滻ǰĵԺ@   7!B@7!!.#rng.End = .Windows(1).Selection.EndF KeywordText7!%!B@H7!B@D7!! (` X P H FBodyEnd7!! (    FAttachmentStart7!! (  F  B@HF$ Ե ģıβΪɾβ %!B@d Ϊճβ %!B@kq6.ºϲԴA@`ProcessCopyReportA@bProcessInnerSendA@dA@7.رģĵ ~(f ~B@B8.λ굽ĿʼA@p9.µļֺģϢ r v xA4Call RecordTemplateInfo(NewDocWord, NewTemplateName)10.һεĸϢ'r'l''',ڳA''|8Բģ⣬޷滻ģ壬ϵϵͳԱ $ ! ! ҵ칫ԶϵͳA@ ~ ~(f ~B@BkX'r'l''',ڳA''|H ԭ4Բ滻ģʱϵͳԭģ壡 $ ! ! ҵ칫ԶϵͳA@ B@ ~ ~(f ~B@Bk('r'l''',ڳA''|o + ҵǩTrueѹƶĿʼ ʱָʾݵʾ 2003-07-24HFBody %B@H B@'pzH'piH 2¼ĵʹõļϢģϢwordĵDowWordļTemplateNameģ*wordĵеıƺͱıƶӦ 2003-7-25DocWord %V@Ѿڱ޸ֵ DocWord %V(Xd@ ӱDocWord  !VBZk TemplateName %V  TemplateName %V(Xd8 TemplateName  !VBZkWTFlag %V WTFlag %V(XdWTFlag  !VBZko  ϲ !B@]( ]@ !!'@    %!!!B@ (foX HF 5A@k] ]    ] CopySendText %. |PkH !!. %!'  $j'    $$ . '?  !!   %!  %(d0? %!  %(  %(k>>ıĸ߶]8 ]P 33333$@$ ! '  F KeywordText7.  !   ( k >> F KeywordLine7.  !   ( k= = CopySendText7. !   (  !  (k`=;ıΪյʱCopySendLineKeywordLine CopySendText %! F]h CopySendLine %.  !  KeywordLine %( k<x<kp<:.Shapes("CopySendText").Width = MillimetersToPoints(146.3)5A@k<q<|<H<MsgBox Err.Descriptiono; ;]  $'  'i;@x; ] 5 &  $ '&8;] "5  "!!! &  $ '&::q:i:] !($ z'$ $ MERGEFIELD $ $ '& &  & &= !' k:k:i:6жǩǷʧжʧϴϡ'b 6]89Body %!'* *'bk`9kX9iP9P ServerURL !.A,DbURL !0A,Cookies !2A, gUserName A,gUNID A, gWordType A, gWordBody "A, gWordSource $A, gFileType &A,gOldUser (A, gAllDocWord .A,ģgValType ,A,ĿgKey 0A,gExistBodyBookMark 6A,o7Sub InsertObject()& Dialogs(wdDialogInsertObject).ShowEnd SubHF & %V!X'4z7H7 6'4i60HF 6 & %V(X|6H6 & 6 !VBZo6 'dp6] RJeGov.RJWordWindowgUNIDHWND$4$:'8 !h!< 8$>' (f RJeGov.RJWord$@. ServerURL$4 (.EobjFtp.ServerURLDbURL$4 (0= objFtp.DbURLCookies$4 (2AobjFtp.CookiesgUNID$4' gUserName$4' gWordType$4'  gWordBody$4'" gWordSource$4'$ gFileType$4'&gOldUser$4'( gAllDocWord$4'. ģgValType$4', ĿϢgKey$4'0gExistBodyBookMark$4'6k3k3i3(2005.6.6 for officexp or office2003 only($A@d83 DB@Bk 3o3h$A@d2WordBasic.AcceptAllChangesShownk2o2$A@d2%ThisDocument.ToolsRevisionMarksAcceptL NB@JkX2oP2$A@d02 DB@Nk2o2($A@d1WordBasic.RejectAllChangesShownk1o1h$A@d1 DB@Rkx1op1](]@ V !V V! T V!Z'Xk1 V X'Td0'Tk0i0Sub 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 SubXHF]]]]]0]H]`]x]ҳ B@j n %l'hThisDocument.Save'''''Body %!! 'bpF] KeywordText %.  !%!! 'ddX*BodyEnd %!!'dk(*'''''''rFp*BodyEnd %!!'drFr) b d %.^bodyRange.CopyAsPicture ^B@' B@( (f' !Z.\ \!tB@ \!t.` _GB2312 `!v(16 `!v(x=pageNum = newbodyRange.Information(wdNumberOfPagesInDocument) "$J.doc.html$z'f f~  \B@| \B@B_@('  f %6'  (޷ϴhtml鿴ļǷԣ 8 .Microsoft Word$' d' SaveHtml&UNID= &FileType=html &FileName=  %< &PageNum= h %:' ok     Ƿԣ 8 .Microsoft Word$' k&k&  >z&H& ! ҵ칫ԶϵͳA@iX&]  B@ d B@ !AttachmentStart B@Z l B@*븽ʼλжϣ¼ʵλϢAttBody !% !. ! ( ! (AttBody  !BZk0%ڴ븽d B@o%(HF''''Call ޺ۼ]h]  ! !($ z'$ $ MERGEFIELD $ $ '& &$ t  !!(k$k$$|$H#o##] !f'  2!b 2B@#k# ]0 5 2 !(!d !(!dA@@#]P "5  "!!! 2 !(!d !(!dA@""]p 5 2 Bookmark ! Bookmark !A@p"qh"  (foP"@"] !f'] ]( 5 2 !(A@!]H "5  "!!! 2 !(A@!!]h 5 2 Bookmark !A@8!q0!]  2! ,   2%',  (f¼¼A@i "pjt 07.5.30 ӲάͼƬܖHF] ͼƬ(*.bmp)|*.bmp99~  9C@5~| k q ά %B@D BodyEnd B@HF !~ !%!5(lC@ 9 9*@$9L:@$9 ά9q|H ! Ż칫ԶϵͳA@|o"ռݣһոȡ]@ !.Body !%Body %!! (Body %!! ( B@H B@koͷֵ` P_RedHead$T P_RedHead %V!X'd 'pF] SubjectText %.  !!!v!'kp|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, "칫Զϵ8ͳ"nw !vate DoMailMerge()3On8or GoToa SAppl<D.ScreenUp@datingFalsCall ޺ۼ+With  .AnType*wdCatalogOpenDSource Name:=gWord, _Confirm!verss:=Y, ReadOnly:=Tru0&ViewF*FieldCod es=3NotAǂ\E:G(If />V"@Xjw3"Oe&nG '.!s.Unlink AllIAfCC'<ʾ pjt 2005.5.4C Comm@Bars("G 6").Visiblpȅ Select Case;"draft=CA;JD m rove$!=dcTem "Cre`)dx1^|@L##w#N]$$)pCv`ߟCn `C`n$[N8IB{`"} HN?_M/S'Āc/Val^/1-/j Ն't>[ P||޷ϲԴ???4ё_T1oo oooA*1ozo oo ooo`woop o [o oQ0/q ,'12sI /B#j JS&J=~_x[\a 'UFI9èx X R?gR= QQv? hvhrȺ` v 4i/`/`/`/`/`ooo 2 #` FileClos_4?x ccdLIsFromOA(-) Then  IfisDocument.ReadOnly T Saved = True1ElshFi leVFnd IfApplication.Us@erNameXgOld(WindowStat+wdMinimizB' |zs.count:1{NQuit NEc- ''   Sub   ToolsDOpzs()*Dim ret As Integer String = -= Dialogs(wdC ").ShowC G -DQN!CASetRevisvD;With @ActiveCo.xVieD$FieldCodeRsFa.ShadDwd WSelectedc CA@gi&j_XAcY/GPG#suInfo_Ym UN!\#X, UIA?C3 Ga= &I`@Ini*t]shAeAddresH7 8 @e(-1) AsFromOeW#= 60#Y'JProtPNTypyDowہ'O[K'Exit S!'5UY 'ʽû޸Ҳbf g1, "cBwQ- @?fO  trS;w 'ϲSs= GetMerge>NS#^ CaseG "dra ft=apprxoveA Check S = rkmQtǩ@ʼs pjt 06.9.18GQ If strCheck <> "" Then MsgBox "ĻϢϲǩ(" && ")ɾĸ޷浽OAͳУ", vbCritical, "ҵ칫Զ )" Exit SubEndX If ''rDim intSelect As IntegeNr#= ()Ĺ淶Ҫ _:&Lf"鰴ȡ˳༭βC\OAWorkĿ¼πȡδݣ!Heѡg#k Or&OKCanceAoŻLn) 3cIQeA\z{' CH@Not ·BodyBookMark"KԱϵ ELE9S44ǷҪ.x׿!Question +jYesNo) = g!/BackupFile g Id' '2002.10.25P PJT+'CreateHtmlAttachment@ '/ah 鿴̵KDoAGReply`0!sRet gobjFtp.Uploada(fR a*He0aAϴ$Aƀp3ԣ0Hh vbrygi5@k&H1000Microso(ft "0Else!a ,"Exe@cuteAg@2(`"SaveB &UNID=g!&aTypeߥ A e&a-'ǥ Nam $4Escape(), trFields)P 6!okqe6"ȪA6# _7_7# 'i} Loop Whrk@rml_9w SCase "c?wordzpThisDocu1@.Varia@bles("$Status")plueC dmg1 P8޸ģ ʽļB8vbP?P31 AcceptAllRPevisVsCall ޺<= "CommandBarDraft@Dt_C@aApproveP_UViewpI.JTempldzQN/.dрcTru 701=; ,Ric0Jy8/q-%4.K/1жb̿qQ2h`  Z1 a O Ho o ?= o " An nd = !%?O9O=BNPxrotPGv#wdNoGobA Sԣ$aS(ʾ$EUܵV)?/%/%"R# d (wdUowOnlyReading, 9??'@=#OKBϵdyϵq#H`/X intReply = 0 !sRetdgobjFtp.UploadFile(gWordBody)jIf p"" ThenDzMsgBox("޷\ĵǷʀԣ", _PvbryCancel Or vbQuestion &H1000, "Microsoft 3"`0Else1ExecuteAgent("Save)2&UNID=`" & g"& Type g& "&c&Nam&E@scape(R), trFieplds)uAbl<> "oklmEB&[CrLf'vb"mnAEnd IfpLoop Wh #KCreateHtmlAttachm '/h@鿴@ $ ASelectDxit Sub Errhandle:CC .Descrip,citical칫Զϵ8ͳ" %   ԭ(EC}PdzL E.Onor GoToA*Dim strPara As String,A7&=_hSeqgHex(R`* 10 ^ 9:)h&g = śyViewDr8aftD"Le0ft$( , 3)"g3EAc2!*ak,E"*!aj*kDirg=/Back(Th@isDocuW.FullAE\Ţ~s@ab @+\A9RightB E"/q@5Tri|m( ) n,` True0E6DownfM D4؁_@!Ѿ򿪡A7Aj77@K!5Obj}S`f= 3s.Open'GD߂߂oADAH`TemplPOA'ṩģ幦ܣѡ '#AVARes & N ex0MgAll qj(Variables.Item("Lastqs").Valuy5GHUQqKJ K@A}Enum"&G@Timer)!'ȡļüӦ1QCall@X7Add<, @0b I@'begin 2004-02-1XbIsFromOAcAP0~  Not@ CheckKBookMark\!9aǩɾ0qk'Ա:oo1 1VA AutoClg`eFlag 0 AwNewWTA'ҵ$ă2a!Ϣ0UFhOpf"|!1aa@ FPPath ,"2lTEMPLATE_FILENAME_PREFIX˽'b t_@ͷQȭs xUrl S  /0/yv@$!  )CSX{frmc^fb`0 Q1'ր!ShowModal%{'ʾ滻`Ի Ne&M8= Fa!ȡa ʾ'|SP- "r-$-'ûnEE_ ﰏve,f ('2#JE'c@ صt Sub Errhandle: MsgBox .Description, vbCritical, "ҵ칫Զϵͳ"HExind  CgeTemplate().'ṩģ幦ܣ 滻ͷβ .2003-07-24Onor GoTo Dim tpDoc As ument#'Ҫ1!=ĵhis'ǰ rng4Ran ge1 'ݴķΧ9flaBoolean cou[aInteger= i7 8Set tc= TIf Dir$(fDownFile) = "" en'AHڣ˳~B IfCC'1.رպۼCall  A '¼ D2.gOǰlP` A}blnCopyNu_@LRBDH=s .OpenB 'zCNHeadWith C:>.Windows(1).Selec.HomeKey wdStory 1=   ' .Start@vS (.&kmarks("`Body" Eǀ=#+ 1gD "' 0g\TexA!\3GfrueAE[a<bPastea@@%BReso#fy'3.y_Ѓa e ) WW##_W_W_W`G?W,WW PnV)P?tRec?m.#; R3I ',ʼ:!.C& ^WTh@'!ġΪɾ|wtb20.CutElse 'Sճ? s?1Tbr3Tail3is 53'=  T4.dcCf|s5f] tBFa C34fS/No`^Worc1x2ShapepX0w0KXAnchor.Paragraphc_3-YFg`-4`"/ 1N!W _0 Ǟ'q'p/tqwOhM' /! 7OhOh3K%TOh54 (U  S'5g@Űg3g s1e1$/\on.|0!|= tq02!.o9to9h9wD0&t8w; c4SA 1=2+=5 ;=@D=9oQ) =u=./ N4 (Ap  oAttach1x f o|!- (cv 4N\G?gyll Then 'ģıβΪɾh thisDoc.Windows(1).Selection.CutZEls e 'ճA,PasteMnPd IfE With GoTo ReplaceTail E,rr@:'Repsume)'6.ºԴ!DoM0MergL'Proce@ssCopy$or SendAInner CenterTitl*RecordBookmark`s Tru #7.رĵ tem teSaved =Clos(8.λ굽@ĿʼCLocateCo(`ntInpExC'9.ļք%Ϣ,Ca@4T'In@fo(New)W9, NameWTFlag)Dp10.һεĸ(DownUr2lM"" IFi le''',ڳ.doClipboardNullExit Sub No}M}MsgBox "ԲAW⣬޷滻ϵͳԱ" & Chr(13)@@.Descr ipDNumber, vbCritical, "ҵ칫Զ "If Not hJ IsAhing OR-HS|%~_47_4_4^4`(hand@le: '<ԭ5E3ʱ(Ђ7_5rr._5M5U 177777?l?l lJBm (Fun () As qlean' ҵǩG'ƶCH'ʱָaʾ-'2003@-07-24On Mor "NT@nt.("Body"CMoveRight ,APN Iuru/yFa`z `wm `t`StrD, `ySaa¼pʹÕh]hwf1h '`'1hºkƔ):ͱӦ;58*Variables(2"")]U6'Ѿ ޸ִ.Valu1m b?'q "p!.Add, )`?t 6oSiC v z-OuO C /  / 0|bEs, T, l VSub UnlinkAllFiel(ds('P3AXvw#.SDPim i@IgerWcount'= \Shapes.SW4NexFXi N0 @xa.A(i).TFrRange.pUS4U3V`U\ǵd?Sc 7.ReadOnly LenUnt@;R;Qr?q1BstrSt`ar&2(nt,ntLinenACSet YuXa q",߯3׽5w=t $'g= ' A-l,R arrCopy = Expl@ode(st, vbCr)  For i0 To UBopund(zJRintLineV+ Abs(Int((2 - L@enChar|(i))) / 46)INext}' 1range.Paragraphs.c3CIf3he>n% #O.FirsjIndentm-Left /Else'8LJ"551).5d0)nd Ifaıĸ߶ Dim nStep As Singl<oVarianHf = MillimetersToPos(Ő* 1 0.35)CShape.Hei TNyOn HErrGoLabKeywordA:2PSet o_.s("5 T@"̼Noс Is h>@o.Top-CKED`'1SendA'$2azgp2. ,i' oC,cD +,e,,!V & t shq ;  cg e._FrR_O Q 0| ={ s d a g1/!on, o!*/!+d(# [$RpPrim$.Cg-@@Ilrӯde, "MERGEFIELD") Z'rAd$w12`w! Ors"""G;A&" 5& "=' LsulȐaeqCheckBodyBoo@kMark(SBoolead'ǩǷʧϴ΀ϡc Tru4H`g9@Sst)Dummy (O|pm`jAW/ = Faʾq qSub Sa veObjfs(T$Call p|"Pblest@0("ServerURL", gob`jFtp.6iaDb_\C!iesgUserǵ_^NIDp WpType__rdpQ__rdSoxurcFxileU _]O|lda ?=A|llp1 aϵ'ģ Call SetVar@iables,ting("gValType", ()f"Key@tExistBodyBookM8ark9GEnd Sub ' InsertObject( 'Dialo`gs(wd )`.Show% FunctioHn GBy strName @As Str, Opal 5u)On Error GoTohandle:> = ThisDocument.(Gb) lue t e 5/- VG WΈDA'[?9C+Az<*O;B.AdzdP,Av@IIsFromOA(CBslean4I0f gU<> ""@keA'eqrFilskDim lngHWNDALong;=bRJeGov.RJWord"Window@"gUNIDa "),| 0  a@j$A`ve .Ca"\ cD($) ?B &a SavedFaJ" gobjFtpCreate=|".ServerURL"A#") 'ϣ 0 Dbx  bs Cies5 , a<@"m%WL}@G[clOA!SourceC2FileOld'rAll#G1 TbUZ  W~Ϣ?l} ăO g`Z} KQ{If# qk}2005.6.6 fvoffic0exp 3 onlySnAcc(ept@CsgesInф R8`Th ^ReqJLBasic.o Blnn!ict`l3a elPed  A0Applica.Run@ Macrou:="bTools`Revis!s"q!q ? 0" ' Ӵ }E(0= lM CheckEi}rA( qaARnt1numqInteXgerSF BEach Inyes!p. = =.Indexw6QNextBS0@"Success"V ESSWordSign1fLJY9#Savˁ* End |If  Ld60 1 .!B/  'Sub  File Default(r Call@# FuncBCreateHtmlAtt8achA On Error GoTohandle:Dim newdoc 8As ECbodyRange sposA Integer esRetA 4Stg }Reply h*fpageNumM '8:@agin, =hBuiltInE'Properti es(wdyPu`sv' J@1'C B' ookmarks("B2").1.Statrt1CK?LabE`.?lShap";C@ ,Keyw`Text"NDotIs hingeAM ?=.Anchor.Paragr@aphs(1k- dDy(Bk#e#`Cc-''#c`$*b*%K&C2fRes o I .gi. (<:=AC, \:=/'F.CopyAsPictur $/D *gRdTr^u$ (=fs.Add c` Aast$π Kf7 Fo2?= "_GB2312"B.Size"16$'g=0InformaaV<DberOf<'>H= Kace(LCase(gtQ), ".V~.!%4 N.Q YM:=,"bF :=wdHTML:Clog"Dos` yU= o!0X= EUpload}(Y1@4"q4X޷ ϴїԚ_ vbpbryCancel Or&H1000`Microsoft x E" \AvQS& g & "&qType" %*scW()R%&Bd)` <> "ok Y&CrLfvb"sQLXSLoop Wh) #S Exit u pʎC `.De`scrip=QCriticalҵ칫ԶϵͳB  1ݰ D+'b8 Co` 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`Mu Z@0BP@ R"$0Bb0AA00574A4F} BaseClass=frmSelect Module=Common Class=FileDialog HelpFile="" Name="" HelpContextID="0" VersionCompatible32="393222000" CMG="4042ECEAF0EAF0EFF5EFF5" DPB="80822C33493349CCB73449478C6114DD2B90370E2E86435CA137A1C73A5E88B13DE4719D" GC="C0C26C6F6D6F6D6F" [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, 1114, 493, C Common=0, 0, 0, 0, C FileDialog=0, 0, 0, 0, C (H  @}R KQ_$4cboWord OO$0cmdOK O( 0cmdCanceli$0lstType O AH(5"[SO(nx[{u"[SO(Sm{frmSelectp)Mp)Mf oCompObjau"[SO` 5"[SO Microsoft Forms 2.0 Embedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmSelect Caption = "ѡWordģ" ClientHeight = 2565 ClientLeft = 45 ClientTop = 330 ClientWidth = 3495 StartUpPosition = 1 'VBFrame'PROJECTwmCompObju TypeInfoVer = 8 End ThisDocumentThisDocumentRJeGovRJeGovfrmSelectfrmSelectCommonCommonFileDialogFileDialog  F#Microsoft Office Word 97-2003 ĵ MSWordDocWord.Document.89q