ࡱ> jmipa R bjbjZZA p0ip0i" 84sT11GGG{{{V SbsbsbsbsbsbsvxDbs!{{{{{bsGG4s{TGGV {V V@GШO"F B s0s yyyh{{{{{{{bsbs{{{s{{{{y{{{{{{{{{ a [: DN2 y^wOyZSXT/ecNy3ub`QGl;`h kXbUSMOvz  kXbe ^ScPUSMOY T'`+RQu t^gZSXkNb!h /yx:ggZSXTxvzWZSXTT\O[^Y TZSXTT\O[^NMb{|WzUSMO/bۏzUSMOۏze/bۏzezpybbg!.s;NN~S!.s YShe0yxyvTVYy0N)RThQ0SR'Y[VY`QI{ W[pe(W500W[NQ YlybbglylS NCQ z6e!.s NCQ l`$Qut^g @ B D F H J L N P b l v CJOJQJ^JaJo(+B*CJKHOJQJ\^J_HaJo(ph#5B*CJOJQJ^JaJo(ph+5B*CJKHOJQJ^J_HaJo(phCJ,OJPJQJ^JaJ,o(KHOJPJQJ^JaJ KHOJPJQJ^JaJ o(70  " ( . 4 : H T d x 2 8 : < Ff$d$1$9DIfa$ $d1$9Da$$d-D1$M a$d-D1$M < > @ B D F H J L N P b l v Ffc$d$1$9DIfa$    x Ӳh/Ljh/LUh@)ICJOJQJ^JaJo(#5B*CJOJQJ^JaJo(phCJOJQJ^JaJo(CJOJQJ\^JaJo(#B*CJOJQJ\^JaJo(phA $d$1$9DIfa$Ff $d$1$Ifa$$ d$Ifa$ Ff $d$1$Ifa$$d$1$9DIfa$Ffl     x &dP$ dWD`da$Ffr $d$1$Ifa$$d$1$9DIfa$  ִ媨h@)ICJOJQJ^JaJo(hf1nUo(0JOJPJQJo((0JCJOJPJQJaJmHnHsHtH0JCJOJPJQJaJjCJOJPJQJUaJ0JCJOJPJQJaJo(h/Ljh/LU  $ dWD`da$ hh]h`h@&`#$VDd^@ ?0pI1T2P0:pDA .!3"2#4$%SQ $$If!vh#vB#v#v#v#v#vI#v#v#v M#v #v #v ;#v #v n:V 4++++++++++ + + + ,5B55555I555 M5 5 5 ;5 5 n/ / / / /  4aSkd$$If4836 K"15BIM;n88884a$$If!vh#vB#v#v#v#v#vI#v#v#v M#v #v #v #v #vn:V 4++++++++++ + + +,5B55555I555 M5 5 5 5 5n/ / / / / 4aykd$$If4N36 K"15BIMn<<<<4a $$If!vh#vB#v#v#v#v#vI#v#v#v M#v #v #v #v #vn:V ,5B55555I555 M5 5 5 5 5n/ 4avkd$$IfN36 K"15BIMn<<<<4a $$If!vh#vB#v#v#v#v#vI#v#v#v M#v #v #v #v #vn:V p,5B55555I555 M5 5 5 5 5n/ 4avkda $$IfpN36 K"15BIMn<<<<4a $$If!vh#vB#v#v#v#v#vI#v#v#v M#v #v #v #v #vn:V ,5B55555I555 M5 5 5 5 5n/ 4avkd$$IfN36 K"15BIMn<<<<4a $$If!vh#vB#v#v#v#v#vI#v#v#v M#v #v #v #v #vn:V ,5B55555I555 M5 5 5 5 5n/ 4avkdg$$IfN36 K"15BIMn<<<<4ax66666668 0@P`p6888 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p8XV~ 0@ 0@ 0@ 0@ 0@ 0@ 0@ 0@ 0@ 0@ 0@ 0@ 0@ 0@66666PJ_HmH nHsH tHN`N cke $1$a$$CJ KHPJ_HaJmH nHsH tHNN h 1dBTJ$$@&CJ,aJ,5KH,\$A $ ؞k=W[SONi@N nfh*B*phD rD 0O$CJ KHPJ_HaJmH nHsH tH^^ Table Paragraph$OJPJQJ^JmH nHsH tH_HPK![Content_Types].xmlN0EH-J@%ǎǢ|ș$زULTB l,3;rØJB+$G]7O٭VhogfgfgozSsAXR7  HO'$JDY Dk21@>kGRזD8H%AoLJBy)F$Šv'=?OhR(B-(o%b,6)];=~AK7Z&DYCn[er@0(=y7-4KՕb_5IS.jP-eX~uU6п<ǹX+7J+~ J ۵֪נ:(e A)<_inTJM A%`]T C8rPSDC]j>KX!P@$I<9>A07HA QJ"DJFDܒ'CYV߀~}ɓ_O>=ysVe$4?/{ݻg_[ⅉT'Zo^<}9op5ccဎ p_L!bJl$@ R87edƈ"m;>i\ۣCp;#IFe6wZ0sgCȵ&J,/7GCHĥr3B`cbu8/k 4Ith 2v[}5uz H7u`j6ITvPLM\$c3qM!!kX>N 9ݾKDZ \:[1.l$T Dw ;D]P}v6֤4 ˈ;|y3+~cGؕj6xl NVh0{?u0he);d ;ȎUu`=Vȶq$1Jbi6ov9܌s!^FZ"d0u-:s}yh8} 22Mڦ4`:x-WSU\)׷oک9z$g5@] /1x5[.,%;3"lSx@>f  ed>a]4-oi׍̢v㺑nd425HFU9…i3Q;BC}$PxC&`f]N=\*U 9]/)]1LJy*lC=fP!alfXvL fWâ`QU'3P˽<EFyz]̫"cZs$0=]S\O. sx"MB[F7x",:yh\׵K-zz?)J},.k 413M_^^aC KOLfr!R뤓'&sn![ %WN>IƊtz >_J(8t!JQ0 ^Sk^l3)K(C:eL)\דm`\eg& a7T4UMҕrXXuR3fZYEUMwv[^&&fV4uϦ$ y\7M7)iXlծA   !!!$  <  $!@ @ 0(  B S  ?H0(  !(06:(6,7,7EzEz``%o( %o( %o(0,7Ez` }fx>\ R%w3 @/Lc);S^T fU#h#j!$=&d'p')S,2..1.v/;0n5S7 8C909v@;[<h<@ye@yC2EThE6F@)IvIC$JF`JK*tKM7M!}M/NAN/Pv`TeV5VyW|[m\d]+,_Dbc<=ef f_g3igjf1nc2pSpmw x;xO}9_}.c" 2+_d-!\j8KiWDu kh 4uII"6Dj zX3~R):q@:=YiZ~&8rG ,NN~&]A A V&!A A V'$A A V( A A V)#A A V*%A A V+0A A V,<A A V-=A A V.7A A V/(A A V0*A A V12A A V2&A A V31A A V46A A V58A A V6A A V7A A V8A A V9,A A V:-A A V;.A A V<5A A V=9A A V>:A A V?;A A   DraftDraft( _eQez_eQez RJeGov._eQez((p( (@bCustom Popup 17 (@~4YCustom Popup 18j: ԏVRlQ|~((0000e֜00eeesus00eeee1e1eeZ]Z0BAB00ee1ee1e1e1e1e1eZ]Ze100ee1e0e1e1e1e1eZ]Ze10eee10e1e1e1esusce10ee1esusce1ee1eeeeeeeeeesusece1e1e1e1e1ΚΚe0e1e1e0ce֜0e1ee0Κce00ee00ece0ec˥eeΚΚeeee1e1e1e1Κee1eeeeeeeeeeep(ApproveApprove~H~H~H~H~H~H~H~H~H~H (@bCustom Popup 17 (@~4YCustom Popup 18( g wug wu RJeGov.g wu(D@@D@D@D@D10033p(G__?( υuυu RJeGov.υu(p( ?_j: ԏVRlQ|~((0000e֜00eeesus00eeee1e1eeZ]Z0BAB00ee1ee1e1e1e1e1eZ]Ze100ee1e0e1e1e1e1eZ]Ze10eee10e1e1e1esusce10ee1esusce1ee1eeeeeeeeeesusece1e1e1e1e1ΚΚe0e1e1e0ce֜0e1ee0Κce00ee00ece0ec˥eeΚΚeeee1e1e1e1Κee1eeeeeeeeeeep(+Custom Popup 17 Custom Popup 17(XRNLbXRNL RJeGov.bXRNL(Q\NLbQ\NL RJeGov.bQ\NLCustom Popup 18 Custom Popup 18(>f:y~4Y>f:y~4Y RJeGov.>f:y~4Y(υ~4Yυ~4Y RJeGov.υ~4YViewViewAAAAAAAAAA (@~4YCustom Popup 18( g wug wu RJeGov.g wu(D@@D@D@D@D10033p(G__?( υuυu RJeGov.υu(p( ?_j: ԏVRlQ|~((0000e֜00eeesus00eeee1e1eeZ]Z0BAB00ee1ee1e1e1e1e1eZ]Ze100ee1e0e1e1e1e1eZ]Ze10eee10e1e1e1esusce10ee1esusce1ee1eeeeeeeeeesusece1e1e1e1e1ΚΚe0e1e1e0ce֜0e1ee0Κce00ee00ece0ec˥eeΚΚeeee1e1e1e1Κee1eeeeeeeeeeep(Custom Popup 19 Custom Popup 19TemplateTemplatexxxxxxxxxx( fbc!jgSelect TemplateThisDocument.SelectTemplateCustom Popup 24919272 Custom Popup 24919272 (hQchQcThisDocument.hQc( cHrcHrȉThisDocument.cHrȉ(HrbcHrHrbcHrThisDocument.HrbcHr(hQ҉RbchQ҉RbcThisDocument.hQ҉Rbc(peW[lJS҉peW[lJS҉ThisDocument.peW[lJS҉(W[klJS҉W[klJS҉ThisDocument.W[klJS҉( ndzzf:ypS>f:ypSThisDocument.>f:ypS(υpSυpSThisDocument.υpSCustom Popup 24924529 Custom Popup 24924529 (hQchQcThisDocument.hQc( cHrcHrȉThisDocument.cHrȉ(HrbcHrHrbcHrThisDocument.HrbcHr(hQ҉RbchQ҉RbcThisDocument.hQ҉Rbc(peW[lJS҉peW[lJS҉ThisDocument.peW[lJS҉(W[klJS҉W[klJS҉ThisDocument.W[klJS҉( ndzzf:ypS>f:ypSThisDocument.>f:ypS(υpSυpSThisDocument.υpS@cke.Common.BackupFilecke.Common.ClearOtherDayFilecke.Common.CopyFilecke.Common.DelItemValuecke.Common.Escapecke.Common.Explodecke.Common.GetItemValuecke.Common.InStrRevcke.Common.Replacecke.Common.SetItemValuecke.Common.StrLeftcke.Common.StrLeftBackcke.Common.StrRightcke.Common.StrRightBackcke.RJeGov.GetItsNamecke.RJeGov.ProtectDocumentcke.RJeGov.SetItsNamecke.RJeGov.SetRevisionsOptioncke.RJeGov.UnProtectDocumentcke.RJeGov._eQezcke.RJeGov.bQ\NLcke.RJeGov.bXRNL cke.RJeGov.eucke.RJeGov.>f:y~4Ycke.RJeGov.g wucke.RJeGov.ԏVOA|~cke.RJeGov.υucke.RJeGov.υ~4Y%cke.ThisDocument.AcceptAllChangesInDoc%cke.ThisDocument.AcceptAllChangesShown%cke.ThisDocument.AcceptChangesSelectedcke.ThisDocument.CenterTitlecke.ThisDocument.ChangeTemplatecke.ThisDocument.DeleteObjectscke.ThisDocument.FileSavecke.ThisDocument.FileSaveFormalcke.ThisDocument.GetMergeFieldcke.ThisDocument.GetMergeFields#cke.ThisDocument.GetVariablesSettingcke.ThisDocument.IsFromOA"cke.ThisDocument.LocateContentInputcke.ThisDocument.OAOpen"cke.ThisDocument.RecordTemplateInfocke.ThisDocument.Reject%cke.ThisDocument.RejectAllChangesInDoc%cke.ThisDocument.RejectAllChangesShown%cke.ThisDocument.RejectChangesSelectedcke.ThisDocument.SaveObjectscke.ThisDocument.SelectTemplate#cke.ThisDocument.SetVariablesSetting"cke.ThisDocument.ToggleFieldDisplaycke.ThisDocument.ToolsMacrocke.ThisDocument.ToolsOptions%cke.ThisDocument.ToolsOptionsRevisions$cke.ThisDocument.ToolsOptionsUserInfo cke.ThisDocument.ToolsOptionsView$cke.ThisDocument.ToolsReviewRevisions(cke.ThisDocument.ToolsRevisionMarksAccept(cke.ThisDocument.ToolsRevisionMarksReject(cke.ThisDocument.ToolsRevisionMarksTogglecke.ThisDocument.ToolsRevisionscke.ThisDocument.UnlinkAllFieldscke.ThisDocument.UpdateFieldscke.ThisDocument.hideCopySend@ cke.RJEGOV.eucke.RJEGOV._eQezcke.RJEGOV.>f:y~4Ycke.RJEGOV.g wucke.RJEGOV.υucke.RJEGOV.υ~4Ycke.COMMON.ESCAPEcke.RJEGOV.bQ\NLcke.RJEGOV.bXRNL cke.RJEGOV.ԏVOA|~ cke.COMMON.EXPLODE cke.COMMON.REPLACE cke.COMMON.STRLEFT cke.COMMON.COPYFILEcke.COMMON.INSTRREVcke.COMMON.STRRIGHTcke.COMMON.BACKUPFILEcke.RJEGOV.GETITSNAMEcke.RJEGOV.SETITSNAMEcke.COMMON.STRLEFTBACKcke.COMMON.DELITEMVALUEcke.COMMON.GETITEMVALUEcke.COMMON.SETITEMVALUEcke.COMMON.STRRIGHTBACKcke.THISDOCUMENT.OAOPENcke.THISDOCUMENT.REJECTcke.THISDOCUMENT.FILESAVEcke.THISDOCUMENT.ISFROMOAcke.RJEGOV.PROTECTDOCUMENTcke.THISDOCUMENT.TOOLSMACROcke.COMMON.CLEAROTHERDAYFILEcke.RJEGOV.UNPROTECTDOCUMENT cke.THISDOCUMENT.CENTERTITLE!cke.THISDOCUMENT.SAVEOBJECTS"cke.RJEGOV.SETREVISIONSOPTION#cke.THISDOCUMENT.HIDECOPYSEND$cke.THISDOCUMENT.TOOLSOPTIONS%cke.THISDOCUMENT.UPDATEFIELDS&cke.THISDOCUMENT.DELETEOBJECTS'cke.THISDOCUMENT.GETMERGEFIELD(cke.THISDOCUMENT.CHANGETEMPLATE)cke.THISDOCUMENT.FILESAVEFORMAL*cke.THISDOCUMENT.GETMERGEFIELDS+cke.THISDOCUMENT.SELECTTEMPLATE,cke.THISDOCUMENT.TOOLSREVISIONS-cke.THISDOCUMENT.UNLINKALLFIELDS. cke.THISDOCUMENT.TOOLSOPTIONSVIEW/"cke.THISDOCUMENT.LOCATECONTENTINPUT0"cke.THISDOCUMENT.RECORDTEMPLATEINFO1"cke.THISDOCUMENT.TOGGLEFIELDDISPLAY2#cke.THISDOCUMENT.GETVARIABLESSETTING3#cke.THISDOCUMENT.SETVARIABLESSETTING4$cke.THISDOCUMENT.TOOLSOPTIONSUSERINFO5$cke.THISDOCUMENT.TOOLSREVIEWREVISIONS6%cke.THISDOCUMENT.ACCEPTALLCHANGESINDOC7%cke.THISDOCUMENT.ACCEPTALLCHANGESSHOWN8%cke.THISDOCUMENT.ACCEPTCHANGESSELECTED9%cke.THISDOCUMENT.REJECTALLCHANGESINDOC:%cke.THISDOCUMENT.REJECTALLCHANGESSHOWN;%cke.THISDOCUMENT.REJECTCHANGESSELECTED<%cke.THISDOCUMENT.TOOLSOPTIONSREVISIONS=(cke.THISDOCUMENT.TOOLSREVISIONMARKSACCEPT>(cke.THISDOCUMENT.TOOLSREVISIONMARKSREJECT?(cke.THISDOCUMENT.TOOLSREVISIONMARKSTOGGLE@Unknown G.[x Times New Roman5Symbol3. .[x Arial;= |8ўSOSimHei;5 N[_GB2312;([SOSimSun-= |8N[9,|8I{~ Light?|8I{~DengXianA$BCambria Math Qh!ƧRGGG!34*r, KqP ?f1n:! xx֥. ckeeNRJeGovsvQp   Oh+'0  4 @ L Xdlt| ļRJeGovNormal8Microsoft Office Word@ԭ@|V@84@"G ՜.+,D՜.+, `hx RJSOFT d ?GKSOProductBuildVer2052-11.8.2.10251  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXZ[\]^_`bcdefghklorstuvwxyz{|}~Root Entry FV"nData 1Table/yWordDocumentA SummaryInformation(YDocumentSummaryInformation8aMacros M"ШO"VBA M"ШO"dirCommon q)RJeGovI%__SRP_0 _  !"#$%&'()*+,-./012456789:;<=>?@BCDEFGHIJKLMNPQRSTUVWXY[\]^`abdfghikln0* pH"dD<@j= B b J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\SysW OW64\e2.tlb#OLE Automation`Nor(malENCrmaF b *\C  b!OfficgOficg!G{2DF8D04C-5BFA-101B-BDER5gAAe42g2gDgPS ,\11.8.2.9022\o56\ksoapi.dll#Mic@rosoft 16.0 Object LibraryAMSFzs>BSF=s$3@B_D452EE1-E0D8FA+A-8-02608C4D0BB4Y_FM2`0.DLLH'B l&/;"1}Bwy }00}t#0}# 50L b68`970-5684-4346-BCF1-FFF724@74FF816Users\ch\AppData\Local\Temp\VBE\Sp.exd ;!.E .`M A"BThisDocumentG T@is"Djcuen@ 2 ` (H1uq}X",T""+wR@JeGovG RJ ]G`vM2  ! nfrmSDelYGftScB&2// #(CommTonC m`/o`/g@),U" FileDialogHGiDcaog`.+26P@7`rU~~~y +A -a U" zCopyFileAoC$xME(06 < <x +rp@ it`ivix2P @` @dx @| @. @t_ % + `   i``+`` i`>+0` +ii`+` p3ii`+`` ;i(i`+B` Cii`+b` 8 KiXi` F`  Tii @(```  +`  fi0iPi`+H `  pI ````F+ `  )%i+x `  )0 8 %iX I  ` ) %iʐj( hH4@\@j@~@@Hx  @` P 0x ( ppp x @` (% b*\R0*#1c$*\Rffff*1:62ce9fbd H  $(8 `"($*(H"h B  T( B   " " &( Phpx B   B   (HP B  X`hpx  B   B   @H (PB  x "0@PXh B   D08@ B  HPX`hp2f P` h x      B  ( 0 H P X B  ` h p     B         x]$t_ 1صģǰ׺] ( 1ģĿļ·] 1ģURLַ] P 1ĵʹõµļ] 1ĵʹõµģ] 1ĵʹõԭļ] x 1ĵʹõԭwordģ] 1ԭı־]  1 ı־] @1ԶģϢ־] \$' \$'  !$ 'k  \rjoawork.bakA@   \rjoawork.bak\ yyyymmddhhnnss$ $r'ix h tB@X]     $~ A@k \*.*   $~'> > \ >$  \ >A@k ~'> t!'i`]  $'    $ 'ki0]  $'     $ 'ki]H_ '   '  iX`]  '    $ 'Bki]x  '     $ 'bki"һֳַָɼַ]]H`xӵһĸʼҬ'_8   ' Gxj @     $  +   '  ' @  $  + 'Fip]p  '  b   $       $ ^ '    ' 'i]]]]0 F   F$ ' $' G 'j.԰ǿո⴦  :  /  [  @  {  `   'd $ ' KT%0 'KT% 'KT%u0 'KT%u 'n  'k 'iH>F  %"'z>i>F   B@&'zh>`iXx >F  B@'z(> iAttribute VB_Name = "Common" Option Explicit Declare FuncpCopyFile Lib "kernel32" Alias=rLeft( , "8\")Righ6If Lena) > 32 Then !C Mid$E, 33 End IfC@'rOtherDaB&rjoa@k.bak G&`~%a C\" _ & Format(Now ymmddhhnn@ss") &E), False@E6!7n838O@rror Resu@Nex`Err. =!h?=0` , vbectory +SystemBHidden)A",5Mk/ I3s=  #"\*.*"O CWhaȃ<> "74BD`Time "C!/) < `3 - 4!KillcAIend#8$(!0Number 0@ǦjO0MainIsSe>pbBc!=intPoIntegerC= In Rev' ~ `! 9@e R9- 1Tqo/@1&Boo0osooooy pHj+LQƑz?fCheckO 8tchl1lngDxoRD /(+ 1B Ma@ `Loop 3:> 0 nSP#M ---ro- m-q-o@+,4 $) 47)) Or _P 9164123 96 2ߊMp&vE ElseMAepHex$6HR@3Select Ca|seEn 1@u"%0"n & 23u^ 4] K'JgKIfdNe|xtDy4& xG@etItem u`e(col!tCLol8 , NxameM O n ErrwGov@handle: `C .arA $DExit}6Sb BooleaMAddgB²iTrujODel5A5et.Removee)>5eT]xME(<<< < `(``x %  ( |h     @`  "`$` ,&&`$` .x% 0%    8` <`>`( @h`b " 8HX.h,F(8H Xx "   " ( 08@HPX `hpx "  " ( "0 8H JP 0 J" ( "0 &X *  " (08 @H*P  "  (  @H Php x0H PX`h "px  $  $ 0HP X`h (  0 8 @  (H &p     &     "   0 "8 @  H X :` "   "  >  0 P X ` h x    xh ]@Xpth T!!' T!!' T!!' T!InsertFileStart5TB@& $B@ T! InsertFileEnd5TB@&]InsertFileStart7T!V InsertFileEnd7T!7.  !(  !(  !(InsertFileStart7TB@ InsertFileEnd7TB@q`oXA@ 5A@k(9995A@kqo 5A@k9995A@kqo(SetRevisionsOption 999q8o0h  9 9 9 9 9 9  9  9qo B@BoC///////////////////////////////////////////////////////////////////* ǺͷصIJC///////////////////////////////////////////////////////////////////SubjectTextǡļ⡱DocMarkLineǡĺšĺ]( 5A@kX  SubjectText7!!!(  DocMarkLine7(5A@kqo@ 5A@k  SubjectText7!!!(  DocMarkLine7(5A@kHq@o8(KeywordTextǡʡ!KeywordLineǡʡCopySendTextǡ͡]]33333$@$&'$ 5A@kx KeywordText7. !( $ (( KeywordLine7. !( $ (( CopySendText7. !( $ (( !* $ (*5A@kqo]0]HΪСʱС]` CopySendText %.. .G|j .!* G|j''''''''''''''''''''''''''''''33333$@$&'$ 5A@k KeywordText7. !( $ (( KeywordLine7. !( $ (( CopySendText7. !( $ (( !* $ (*5A@kq"ıΪյʱ߶ CopySendText %!* ] CopySendLine %.0 0 0!( KeywordLine %((kko 4 B@2o B@6o3===================================================  T!:%"!A@ro0`]֣ Ķ ȡ$'> > > T!:%"(ko Sub test()MsgBox Application.VersionEnd SubHAttribute 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 n^5agq5nStep5cs7= MillimetersToPops(10.35IJaНwP#0u\ o6"Xo0.Topps- ?B  oo= otR Height += OJ*)*** $$$As'1)ΪСʱ@С Dim tshape As S@Set`= ThisDocument.s("CopySendT ext")jIfhIs Nothingzen Exit Sub N.Height < 1''LnStep = -MillimetersToPoints(10.35Withkh_.ReadOnlyG UnProtectEnd I6foFKe0ywor )o.ToZ- b#Line1#ok= +,QPSiCBC'ıΪյʱD ͞Al wDi D  0CDWB L1(dOurror Res@~ N|  wdAllowafFormFields, True !.hcjUnp#p* '&=- #GetItsNameEMsgBox<"l }ionCxRange.Item(1).BL AHsTempHtr)= Input ("֣", "!apȡ( <> ""Se|? 56' '6test#'d#Applicat#V @&+K*m *\CNormalrU~~~~~~~~~ ~~~~~~E gw͕|G!&ܒC a  &)Aa Q y 9 q  ! I q 1 ! Q q )a !a  I)Iy1IaAY  ^V@At  ThisDocumentRJeGov frmSelectCommon FileDialogF /C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA y  ` 0Kw 6 ,D:\WPS Office\11.8.2.9022\office6\wpsapi.dllWord qp0FC:\Windows\SysWOW64\stdole2.tlbstdole qL-[DR ,D:\WPS Office\11.8.2.9022\office6\ksoapi.dllOffice ac.E .`M C:\Windows\SysWOW64\FM20.DLLMSForms aaphVFC$t .C:\Users\ch\AppData\Local\Temp\VBE\MSForms.exd Aaik FDSYJrیz&^{DwNeXI0PU8oAJ< FDocumentOAOpen DoMailMergeDocument_Close ToolsOptionsToolsOptionsViewToolsOptionsUserInfoToolsOptionsRevisionsToolsRevisionsToolsRevisionMarksAcceptToolsRevisionMarksRejectToolsRevisionMarksToggleToolsReviewRevisionsToggleFieldDisplay UpdateFieldsReject ToolsMacroFileSaveFileSaveFormalSelectTemplateChangeTemplateLocateContentInputRecordTemplateInfoGetMergeFields GetMergeField/ FUnlinkAllFields DeleteObjects SaveObjectsGetVariablesSettingSetVariablesSettingIsFromOA CenterTitle hideCopySendAcceptAllChangesInDocAcceptAllChangesShownAcceptChangesSelectedRejectAllChangesInDocRejectAllChangesShownRejectChangesSelected 00h 48<@DHLPT createword draftword approveword approvedraft sealword $/f&T\gevf9eOX[0ROA|~-N t_CopyFile kernel32 CopyFileA q BackupFileClearOtherDayFile StrLeftBack StrRightBackInStrRevStrLeftStrRightExplodeReplaceEscape GetItemValuegĤIx8< SetItemValue DelItemValue ,,( UploadFile (el N OWordcke0R gRhV /f&T͑Ջ Microsoft Word SaveDraft &UNID= &FileType= &FileName= EscapeExecuteAgent SaveWordFormal SaveWord &WordType= ok   /f&T͑ՋfĤIx8< iWRlQꁨRS|~VBE6.DLL iS 8 i X WordType gUserName RJeGov.RJWord ServerURLServerURL DbURL DbURL CookiesCookies DataServerDataServer DataDbName =DataDbName ExecuteAgentPath  ExecuteAgentPath gUNID gWordType gWordBody gWordSource gFileType gOldUser gAllDocWord i xe Ff F F F^ F MERGEFIELD & i  iw c__SRP_1z__SRP_2 X__SRP_3__SRP_4 3t   objFtpWordTypeUserNameUNIDWordBody WordSourceFileTypeDocWord TemplateName strFieldName Y fldstrNamestrValuelpExistingFileName lpNewFileName bFailIfExistsstrFilestrDirstrMainstrSepstrCheckstrMatchstrMsg strSourcestrFromstrTostrInput (colGetrU hD`1;000000$A`$`$`$`$A`$`$`$` rU 0&&B@ )q Ii!qYI 1iq!Y)i AI1 Y 1Y y Qy ) \a `&WW_____ _    _ W0  0   0 P  0   0   0 X  0   0 P  0   0 0  0 p  0   0   0 0  0 p  0   4K z\"z$ kz@=6d@d`1t5d $ @C`9l`0l`0l`0l`0l`0|4'''0$:P Ndd^ 6d0z D p!D@X4d `15d l 0R7'':@N00%:PNdd^ p6d0K@0m:@%<*#*#L*#*Fd@X40%X4`126d0@0Tm:@%<*#*#L*#*Fd@X40%X4`126d0:%<*#*#L*#*Fd@X40:@@F %ltF% F%X4l`126d0l l=IK'':PN00%l*#*#*Fd^ p26d0k@0Xz,D hh ,'':PN00>Fd h6d00h`t8 hd0l 0   0   0 @  0 @   0  |  l Ch.K Vd\d Q\[X`T9g!lDlh`DD4l5D `T99\d DQ\[,0(:; $\0 :\ P;$ <Q [`)\$9!lDlh`DD4l5D `9 0(:cd/ d P8 ldXT,(h0` \$ D4  lCh.)X\H (9\ <lX =1d/X\ld>'8 ld ? 1`58l`lh0lh 0@@l`*#XA*#04\H @9\ <l4*F8l2X04\/L4ldh` X40\80   0    0 H   hl CtlCp-KX;TXtM\@l$ l 07X ,8>T1x)lX/lpCx/(h0xptTlX0 (  K8 =!pztp  T>p1t lt=Upz/ p !Tlp8/p8 0pz/ rpz$ !"` # `445`$p $T>pF`%X4%5`$p &T>pF`%X4'5`$p (T>pF`%X4)5`$p *T>pF`%X4+5`$p ,T>pF`%X4-5`$p .T>pF`%X4/5`p 0Tlp</pp 1Tlp@/pp 2TlpD/pp 3TlpH/pp 4TlpL/pp 5TlpP/pp 6TlpT/pL/ <'''<p LL ,>pF` L6`</ / (t$pL`<0   0   0 (  0 h  0   0   0 (  0 h  \      !"#$%/$A ` $ `$ `$  `$I `$`!$`%$ `)$I`-$`1$`5$ `9,I`=Qi00,`A/8` E=/$ `I$I`M$`Q0` U0, `Y(I`]#$`a$`e$  `i$I !`m$ "`q$ #`u$ $`y$I %`} nrU~|  0   0   0   0 0  0   0 `  0   0   0   0   0 H  0   0 x       /rU (0p !Qy(`(`,`,`,!`!,I`,q`__SRP_5ApfrmSelectFileDialog"ThisDocument,`A00` Yy( `4 `=89 ` =4a `= nID="{00000000-0000-0000-0000-000000000000}" Document=ThisDocumeLxME(SPSSS0{F0FA2A16-C077-4584-8E68-45BBA8F576E2}{6BEF6F68-79D8-44BA-8AA8-7586113C5C05}(bD`D,!*i A*i H@T `V`F \ Rp@T `V`^`F b`d `f nPH %xP %b@bB pHH Pb`  &"0X Bpx "   "T@P `px     (0 @PX` p " "  ( 8Xpx     "   8X2h  R D`h p2 "  x]@ EnumWordķַ]@ ļϢַ']@ ݿurlH @'*mx '@ @~$b'D @~$B,$F'BA@Hm  .HǴwordʱʾԶwordģĵȷϣбֻʾµļ \ JB@L J!N J(PkA@R|xkp]H`x JB@X T B T\$B'V F J!N F J%Z Vyk F J!N V JB@Lk J!N J(PkxopA@RoX](@X `B@X T B T\$B'V T\$b|$B'^ V J!d F `!N F `%Z ^ykx F `!N ^ `B@LkPkH@ `!N `(Pkop>] ļϢ] ѡû J!d\ `!d'f d B d f 'ҵѡеļֺģϢ d|$b!$B'` !h\ j `'4g,صģļt_ͷģԭļ @~$b/0/ d!$b/$FILE/ `'2k A@r|x>p ϵͳ t!v t! t!lA@r|0o( A@roAttribute VB_Name = "frmSelect" " Bas0{F0FA2A16-C077-4584-8E68BBA8F576E2}{6BEFD6F,79D64BA-8AA8-7586113C 5C05} 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 SouX j@xjD*   8x`h @P @ Px pX (  0  x (  @x @@ b(*\Rffff*1862ce9fb7\0(*\Rffff*1862ce9fb7\1(*\Rffff*1862ce9fb7\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 ''''' '@'''' '"'$'& '(@'*','.'0'2'4'6 '8]@ ]@ ] 0 ] X ] x]  ] ] ]  ] @] : :(  :( > :( :$'N NColor = CC.rgbResultko A@o A@ox] D X$\'V < <9 9 F| X$ X X9 H9 V9 V9 J9 @9 9 B9q]( T <$ 'Nd <$'Nk N <! X X'Z Z <! Z $ 'Ddx <!'Dk`dX'DkHo@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?       !"#$%&'()*C-./0123456789:;<=>?@BDFE!]#k#k}!dDSYJrیz&^{DwNeXI0PU8oAJ<xPU8oAJ"L LLLLL % @%`B `D`F`H Z `8  ~ ` <i i  `o@ @i ` i  ` % 0 %  `0k D #) ( %iH i  `d``  `H.`F`D H `L@  ` PS,( `Tk Tfi  i i  ` h Xni i, `k \66vi  `t H` ` x%`` l(` d %` h ` h  !` l! "` p" (#` t# h$` x$ %` |%%b4 @b8@b (@@b&xL@b*T@(p( 0x  @Ph (P@ 0 H pXh(( PPx  %%`Hx(0J @z @Xd @`  r"&@@P @p@ @0 @ @ @H @ @ @ @ @ ,tx@` @x @ @ @| @l @h X(@h `z J @p @p` @P "$&(*tr@L @< @, @ @ @ @X(h`x`t`pf@pl @\ @X @T  pXpH @@l X@`Xh d`%8@\ @HX ` @TO H@D @4 H@, @0(O H@$ @ @X p0 @O X X  h X XpH @@l X@`h@\ 0@0X @H @8 @H4 @0 && hh.Ib*\R1*#1b2$*\Rffff*1962ce9fbd*\R1*#1a2*\R1*#173*\R0*#1*\R0*#14*\R0*#2$*\Rffff*1:62ce9fbd*\R0*#e*\R0*#13*\R0*#19*\R1*#242*\R1*#243*\R1*#1ac*\R1*#176*\R0*#f\   (08@ Hh " p     8Phpx @(0X4`6   Bp  XH  (   $ 6 @ PX`h<x "   & 8 HX p . "   8P,h6 ( @ X h p      >   "     (  8 H  P  X `  h  x     "             ( 0 8 @ " H P X p         "          0  8  @ H P X " ` h p     "          (  0  8 @ H P " X ` h p x   "       "    ( " 08@HP`h " px "  " J " ~* "  &%  H h  x  T9>4  ( H X`!h \7&bm fm   LK   &(PX`h(Dp "     ( 0@  ` p  V |  L    ((P " X `$ T @H&h&:$0HP(X "  .  8@H  P0`   .$(08P$h   4PX`h   &(&Px  6 (@HPX`    (08  4@x"  * @ H P X `  h x &      !!! !(!0! 8!P! X!p!  x! ! !  !!  !!  "("0"8"@"|H" " " ""####x0## # # #### $$ " $ "$ &@$ h$x$$$$ "  $ 8$ $ % 00% `%Bp%%%%&"&"@&h&"p&&& B  && &&& !& &&' ;'!0'  H' P'X'`' B  h'p')'''' "@'(( ( " (( 0(@( P(X( `( p(x( ((  ( ( " ((() )@)`)$))))* (*H*h* * 4** " **+(+H+h+"+++++,0,H,`,  H,, B ,,;,,--- "  - -(-@-H-P-h- Bp-x-  ----- 4- . .  .(.  0. fP. T. / 0/ @/ H/ P/  X/ `/ !p/ 6$/ .$/ 2$/ $00 $P0 &$p0 0  0 0 0 1 01 P1 Hp11 1 1 11<111 " 2222(2@2 6X2 .2 62 T2 P3 h323 3333333 " 44 44  4@4 0X44 444 445555 5 .(5" X5`5h5 " p5x55 " 555 " 555 " 555 " 555 5x]]]](](]P]P]x]xļϢ]>F 0. 2 %@'  4//$B' 6' 8'" :'$ <'&', D!4'(  D(42 SaveObjects '**********************ӡ¿ؼ  createwordA@FkA@H (J L!N(P L!N(RH XVBody TB@AZ ָʾλ & & %^|$B'\Lδļ &|$b'`HδģDocWord %f!h'dHԭʹõļ TemplateName %f!h'jHԭʹõģ>( If OldDocWord = "" And OldTemplateName = "" Then 'ԭʹõģļΪգ˵һݣҪ¼ЩϢĵ< Call RecordTemplateInfo(NewDocWord, NewTemplateName) ElseIf OldDocWord <> NewDocWord And OldDocWord <> "" Then 'ԭļֺļֲȣôҪʾûǷıļֶӦģQ If VBA.LCase(gWordType) = "viewword" Then Exit Sub 'Dz鿴 If MsgBox("ϵͳ⵽ڷаļִӡ" & OldDocWord & "Ϊˡ" & NewDocWord & "ǷҪ޸ļֶӦģʽ", vbYesNo + vbQuestion + vbDefaultButton2, "Ż칫Զϵͳ") = vbNo Then" AutoChangeFlag = False Exit Sub End If AutoChangeFlag = True/ Call SelectTemplate 'ѡ End IfA@l|> !n pĵ򿪴 t!v xŻ칫ԶϵͳA@rk@|8o0>F D(zA|  5~( $5~B@5~( 5~(  draftword5B@kx( If gWordType = "createword" Then UnlinkAllFields End Ifq Mail Merge$(Draft$(Approve$(View$(Template$(0ģ幤  draftwordKTDraft$(Template$( approvewordK createwordK approvedraftKTAApprove$(Template$(viewwordKTAView$(np D(z|X>P !n p޷ϲԴ t!v xŻ칫ԶϵͳA@rkoP>F$ ! (Jd',A@k ( D(4  D(kp|h>`oX]] D!4' $!'   D(4A@ L!N9P 9qko]@ $!'  L!N9P 9qXkPoHX]] D54'5'5' $!' $ 94 9 9kqo]8 $!' A@kXoPP]] 5'5'5' $!' $ 9 9 9kqo$A@d T!!B@kho`0$A@d@ T!!B@k op$A@d ! (ko$A@d $B@koA@ox0A@o`p*ڵǰĺ갲ȫ£޷ʹô˹ܣ xMicrosoft WordA@ro](ꡱѡֻڿԱϵͳơ  룺(ʾĹ̿)Ա$'  hacker;rjegov $B@d8 xMicrosoft WordA@rko>A@ !J  createwordG|j]Hкϲ$' B@  draftwordK approvewordK createwordK approvedraftKsealwordKT"ǷҪµĸı浽OAϵͳУ   $r  "A@!2002.10.25 PJT]`x_'  " %'  $޷ϴWordĵǷԣ  Microsoft Word$r' d  approvedraft8ԭ SaveDraft&UNID=  &FileType= & &FileName=  % %'  sealworde8SaveWordFormal&UNID=  &FileType= & &FileName=  % %' dĶSaveWord&UNID=  &FileType= & &FileName=  % &WordType=  $ %' kX ok    Ƿԣ  Microsoft Word$r' k k    createword ,GA@jk n | > t!v xŻ칫ԶϵͳA@ro` P B@A@View$(Draft$(Approve$(Template$(> ־ WordType %f(h B@]_x '  " %'  &޷ϴWordʽĵǷԣ  Microsoft Word$r' d SaveWordFormal&UNID=  &FileType= & &FileName=  % &WordType=  %'  ok    Ƿԣ  Microsoft Word$r' k k  |> t!v xŻ칫ԶϵͳA@roṩģ幦ܣģѡx LastWords !f%"!h'*>F *EnumWord&Seq= $ %'*K$ȡļüӦWordģ LastWords * !fB&k * ((*/ ֵ , (B@(ʾģ滻Ի'.(ȡԶʾļֱ 2$0 4$0Hûѡȡ|k 2 4 B6E ģļA8滻ģ|> t!v xŻ칫ԶϵͳA@r|xop@(ṩģ幦ܣģ滻ͷβ滻 2003-07-24> ]*Ҫ滻ģĵ]*ǰĵ]*ݴķΧ]]] .> 4$ ~*ģ岻ڣ˳|hk` 1.رպۼA| رպۼ¼(2.ģĵǰݿ]( 4 J%.:8 ĵL : R7N!TB@P7N!T!.@Body7T!!V @( @B@H7N!TB@X7N!T!d'HkqZFL\F\'H.3.üе滻ǰĵǰZ^ > R7N!TB@P7N!T!.@7N!T!V @(VBody7TB@H7N!T!V @( @B@Hq`F^`F`bF"Ե,ʼβ. HģıͷΪɾͷ >%N!TB@dd Ϊճͷ >%N!TB@fk8h0b(hF/=============β=============================="4.ģԺݵh'H :jBodyEnd7T!.@ R7N!TB@l7N!T! @( @B@H7N!TB@X7N!T!d'HknFqjpp'H.5.üе滻ǰĵԺn > R7N!TB@l7N!T!.@rFBodyEnd7T!! @(VtrttvFAttachmentStart7T!!V @(xvxFx @B@HzF$ Ե HģıβΪɾβ >%N!TB@dd Ϊճβ >%N!TB@fkq|z||6.ºϲԴA@FProcessCopySendA@H7.رģĵ :(J :B@B8.λ굽ĿʼA@Z9.µļֺģϢ \ `A~10.һεĸϢ'2'4|8Բģ⣬޷滻ģ壬ϵϵͳԱ $ t!v t! xŻ칫ԶϵͳA@r : :(J :B@Bk'2'4|> ԭ4Բ滻ģʱϵͳԭģ壡 $ t!v t! xŻ칫ԶϵͳA@r >B@ : :(J :B@Bk'2'4|o@ ѹƶĿʼ ʱָʾݵʾ 2003-07-24Body %TB@H TB@oP 2¼ĵʹõļϢģϢwordĵDowWordļTemplateNameģ*wordĵеıƺͱıƶӦ 2003-7-25DocWord %f@Ѿڱ޸ֵ DocWord %f(hd@ ӱDocWord  !fB&k TemplateName %f  TemplateName %f(hd TemplateName  !fB&k`oX H ] 5   $'] 5  !!!   $'qi ]h  !$ 0'  MERGEFIELD  $ '   & = !'kki  ϲ !B@] ] !!D'D F D F %!!!B@H (Jo0   ServerURL %fB@DbURL %fB@Cookies %fB@ DataServer %fB@ DataDbName %fB@ExecuteAgentPath %fB@ gUserName %fB@gUNID %fB@ gWordType %fB@ gWordBody %fB@ gWordSource %fB@ gFileType %fB@gOldUser %fB@ gAllDocWord %fB@- ThisDocument.Variables("WordType").DeleteoH ServerURL !ADbURL !ACookies !A DataServer !A DataDbName !AExecuteAgentPath !A gUserName AgUNID A gWordType A gWordBody "A gWordSource $A gFileType &AgOldUser (A gAllDocWord *ABCall SetVariablesSetting("gExistBodyBookMark", gExistBodyBookMark)o0 >F  %f!h'z> 'i( >F   %f(h|>   !fB&o > 'd`]WordType$'.ļܸ,־WordType="createword"  createword'zk Dim lngHWND As Long_ lngHWND = GetSetting("RJeGov.RJWord", "Window", GetVariablesSetting("gUNID", "HWND"), 0)M If ThisDocument.ActiveWindow.Caption = GetWindowCaption(lngHWND) Then gUserName$' 'zd' (J RJeGov.RJWord$. ServerURL$ (EobjFtp.ServerURLDbURL$ (= objFtp.DbURLCookies$ (AobjFtp.Cookies DataServer$ ( DataDbName$ (ExecuteAgentPath$ (gUNID$' gWordType$'  gWordBody$'" gWordSource$'$ gFileType$'&gOldUser$'( gAllDocWord$'* AgExistBodyBookMark = GetVariablesSetting("gExistBodyBookMark", 0)k@k8A@z(>  t!vA@rzi >F]`]  ! !$ 0'0 If InStr(strCode, "MERGEFIELD") = 1 Then' strName = Mid$(strCode, 12)/ If Right$(strName, 2) = "" ThenM fld.Result.ParagraphFormat.Alignment = wdAlignParagraphCenter End If End If  MERGEFIELD    !!(k( | > | o > ]] CopySendText$. !!!d') If InStr(3, strText, "") > 0 Then   (  KeywordLine$(d0  (  KeywordLine$(k | > | o (2005.6.6 for officexp or office2003 only(A@o hA@ox A@o` A@oH (A@o0 hA@o  Attribute VB_Name = "ThisDocument" Bas1Normal.VGlobal!SpaclFalse CreatablPre declaIdTru BExposeTemplateDeriv$Custom izC1Option .licit Dim gobjFtp As Objec  User% SngUN ID WordType Body Sour0File&OldK%AllA 'ļ Ϣ1Is Cl@Y BooleanDSub OAOpen(E, 8, OI H, _ "KBS A, ?)Oorror GoTo Errha ndle:CSetFs= /Cg.= VBA.LC-(g2= AvLeft(& "/",F A9= A8=JH9D;=F>CCEj@Sg= Appa~.#1@n' SaveC_s@ '*ӡ¿ؼ If *<> "cAew a" TheJ!aDoMailMerg`}End IfCerTitl;.GaAct Window.View.ShowFieldCpodes TGridlin#LRes NexSel`.bOWhat:=wdgkmark, :="!? Call Loc Cont@Input 'ָʾλ NewxPURight(gD, Ls@) - 1)@S|")! 'δ ešb N "B ÍH ģ w&`T':Vari0s("$").ValueNԭʹë@   'G #> f “ȣôҪʾû@ı3Ӧijra p'ZF)P="v>cE|it kSDz鿴΀0MsgBox("ϵͳ⵽ڷаӡ" & p_Ϊ˳X1 Ҫ޸ĵw @ʽcvbYesNo + vbQuesDefaultButton2`<Ż칫Զ p=>=`SUAutoC`pgeFlagOJEx(XvS%SP%$2'$ ^3hideCopySendW |A0*=ProtX= wdNoGg  "Q2.Descri,Critical"\ `?{(PP^)n(06 VR{EzSptenUpdatinQB޺ۄ3Withc.6wn;)mntCploP DDsm8FqmfirBm`vers rs:=x, ReadOnly:=$1 | _| ( NotA$DqDdraft .2s.UnkG 1]8BQC1sCommBlarrA alisiJ!O"D " (rove"1"B '_3F !"SO'/ "b"app2#PBb B" p: O= & ase "viewword"  Call ҀغۼXommandBa rs("V").Visible = TrueVEnd SelectApplication.ScreenUpd ng 6xit Sub Errbhhle:@If ThisDocument.ProtaSTypawdNo,en=MsgBox "޷Դ@" & 6.DescripQ, vbCritXl, "Ż칫Զϵͳ9rIfVvZ Privateb T_Close$()EOn7or GoTosrIsFromOA()aReadOnly `SavedElsAIs*N FileC)A? yUserNamAegOld WindowStM= wdMinimiz[AE҉#  ToolsOts_Dim ret As IntegerC%)B-String= 9 = Dialo`gs(wdC ").ShowC @s -1 pQe!CB@SetRevonD;With ActiveUeDFieldCodes FaC.Sha&d`"@wd When}ed1#le45?,,!# # ##d #AhInfo_Ym UN!\#X, UIAC3 '!$= .7!bI`@InEhAeAddressG7 8 @e(-1) >AvF@UNfIDAeXa'-ZsZt` TrackC`ges[! RO S2STR$B`Vean, PS3&Hq&bVunNU^OYBY& &?ya1.k TR  P S5g'ubo% MarksAcce|pt'@4_30R "@ RB 7 castrC(g 'A0= GetMerg+3^uST C 32"draft appro|ve 1!seal c("ǷҪµıOA(IУ", vbQuestion +`YesNo) =P Then BackupFile gWordBody '2002.10.25 PJT bDim sRet As String, in@tReplyI@nteger 4o 4= 0b= gobjFtp.Upload()5IfMp= ""v|=MsgBox("΀޷ϴĵ@Ԃ_9*vbryCancel OrÀ&H1000, "Micr@osoft 3"`Else1m}Type"approvedraftv 'ԭ* VExecuteAgent("S0aveD+&UNID=" & gA"&A` ENamemEscape()P;$A<6sea lw54A[Formal"?6p.$68e<0.ciI"7#: , trFields68nd "ok<3(u&lCrLf`vb"urr cELoop Wh᪨+-acreatecaAsClose oAvC[ )a@SelectExit Sub ErrhandXle:#C .DescripaCriticalŻԶϵͳ" B , (~OnA or Resume Nex@BOBasic.AcceptAllCgesInDocUnli>.Item("Lastqsu>D\p+{-0EnumSeqTimer)A 'ȡӦ|1Q CallkLes.Add, .Y!frm.Obj>SȐY 1@ֵCShowPM0odalU'ʾ 滻@ԻAutociFlageȡrʾa#CTrim($DownUrl`q~Ba` û&0yQf9, 'q! 2#5 'c/:/:/:/:qx:;+ ;; ͷβS 3-07-24{2t ;=`r{"C'$Ҫ!s~'oHrng Aws Range 'ݴ@Χ Dim flag As Boolean0count2Integer2i*Set thisDoc = T umentIf Dir$(TemplateDownFile)-""0enL'ģ岻ڣ0˳DnEx@it SubE`nd If'1.رպCall \' ¼ 2.=ĵǰ0blnCopyNu1?vs.Open '`@2On Error 0GoTo7HeadWith tC8.Windows(1).Selection.HomeKey wdStory +rngcB .^= .kmarks("Body"). .Start + 1K "A9 TextǏ @frueIQCYPasteY: @_\@Res@qbC "'3. ÔÙ滻ǰѠ I&Cq#)C pC?CPOHDM7 M `'5/V/VԵ#$V3!/Tn!q@ukyT&Nou2Q 7 -xVx''F 2 oAttach   f le.tTY/#gTypecNSourc  gxOld   All)&'A5??3/ɜ0BSet.t`("/, gobjFtp@T0WetD/_c60wDW1HFaD2C>3W4@E5_^4p"__rdb5T__rd5tC6pe", gFileType)  Call SetVariables,ting("gOldU8ser(fAllDocWord/lrs'tExistBodyBookMarkGNEnd Sub Function GByVal strName As Stro, O^p u)[On Error GoTohandle:> = Thisument.(G) lue ɀrt e 5/$[ DA'[?9C+?A<*O;.AtddP,Av@IsFromOA(Bslean4Aa&If g<> ""se˄AyrqlssDim( kD=R"""9/'ļ@ܸ,־ ="createw  ! (F~ajLWA@RI6f 'd!#ln gHWND"Lo1_DeletecB>s#SpMsgBox.DescriZzA]C-erTitxle(HύjfldjFieldǓQ@tCodz r8FpEach IncRerim$:(0.q lInStr, "MERGEFIELD")014j&CdBMid$12@iRighFtB1, 2a"ŐQ Result.Paragraphmat.Align wd&3 #F1 ?<AA ) > 0$qw   h  Nextc -@ "ChideCopySend*3S) rShap) &TP 1->SѣS|= 2s("Uu[u= .FrRange;f3+p+KLena*Q) < 8,afVisimsoL KeyLine"B  ! '2005.6.6 fDofficex p 3 only#Accep t^C_gesInDoc () Reject End Sub   AcceptAllChanShown"`eledf~g! 3!3'_VBA_PROJECT,)PROJECTOfrmSelectШO"ШO"fZ am *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020905-0000-4B30-A977-D214852036FF}#3.0#0#D:\WPS Office\11.8.2.9022\office6\wpsapi.dll#Upgrade Kingsoft WPS 3.0 Object Library (Beta)*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation*\CNormal*\CNormalb*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#63.1#0#D:\WPS Office\11.8.2.9022\office6\ksoapi.dll#Microsoft Office 16.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\Windows\SysWOW64\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{68BFA970-5684-4346-BCF1-FFF72474FF81}#2.0#0#C:\Users\ch\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M   bThisDocument1962ce9fbdThisDocumentHq} RJeGov1562ce9fb7 RJeGovfrmSelect1662ce9fb7)frmSelect0 Common1:62ce9fbdp CommonU"Hg FileDialog1862ce9fb7FileDialog7`Px0H`"sM;As<}`g(2BOUܰPLV.M](J3GIEC <WާÒLJH i Wordk` VBA`Win16~`Win32`Mac`VBA6#` ī"`stdole`` Normal` Officeu` MSFormsC` ThisDocument<` _Evaluate`gobjFtp` gUserNameZ`gUNID9` gWordType` gWordBody` gWordSourceV` gFileType=`gOldUserg` gAllDocWordD`IsClose `OAOpen_`objFtp6`WordTypeY!`UserName\`UNIDq`WordBody` WordSourceE`FileType` ErrhandleZ`LCase:`(StrLeft` Application*` DoMailMergeF` CenterTitle`Savedd` ActiveWindow+`ViewI`ShowFieldCodes'`TableGridlinesZl` SelectionZ`WhatC`wdGoToBookmarkJ`LocateContentInput"` (NewDocWordN`Right `(NewTemplateName<`(StrRightt` (OldDocWords` Variablesn`ValueK`(OldTemplateName 3` hideCopySend`ProtectionType`wdNoProtection`MsgBoxR`Erro` Description ` vbCritical+}`ScreenUpdating! `(޺ۼr` MailMerge`MainDocumentType` wdCatalog`OpenDataSourceK`ConfirmConversions`ReadOnly4<`ViewMailMergeFieldCodesz`wdNotAMergeDocument5`Fields7`Unlink0` CommandBars `Visible`(غۼ`Document_Close7\`IsFromOA `FileSave ` WindowState|`wdWindowStateMinimize4a` ToolsOptionsT]`ret` OldUserName} `Dialogs`wdDialogToolsOptions`Show`(SetRevisionsOption7]` FieldShading `wdFieldShadingWhenSelected`ToolsOptionsViewP`wdDialogToolsOptionsView,`ToolsOptionsUserInfo`UNl_`UIg_`UA__` UserInitialsM` UserAddressF`wdDialogToolsOptionsUserInfo `ToolsOptionsRevisions]{` wdDialogToolsOptionsTrackChanges6`ToolsRevisionsa`TRK_`PR^`SR&_`ActiveDocument\`TrackRevisions`PrintRevisions` ShowRevisionsu`wdDialogToolsRevisions+`ToolsRevisionMarksAcceptB`Reject(`Range ` Revisions\` AcceptAll,`ToolsRevisionMarksReject>` RejectAll<)`ToolsRevisionMarksToggle`ToolsReviewRevisions` wdDialogToolsAcceptRejectChanges`ToggleFieldDisplay}` UpdateFieldsR` ToolsMacrou`InputBox `vbCrLf`wdDialogToolsMacroHS` strFields`GetMergeFields`Save` vbQuestion`vbYesNo`vbYesa?` (BackupFile`sRet(`intReply,h` UploadFileE` vbRetryCancel` ExecuteAgent`(Escape(`vbRetryg`FileSaveFormal_` WordBasic`AcceptAllChangesInDocIF`UnlinkAllFields`SelectTemplated `Itemz`TimerX`Addr` frmSelect` OptionString`vbModalt`(AutoChangeFlagA`Trim@`(TemplateDownUrl`(TemplateDownFileD` DownloadFile1e`ChangeTemplate` templateDoc`Documentj`thisDoc N`rngU`flag`count0v`i`` blnCopyNull'` Documents` ErrCopyHeadt-`Windowsd`HomeKey`wdStory&` Bookmarks?n`Start`Copyƿ` PasteHead`ErrCopyHeadResumez` ErrPasteHead-` ReplaceHead`ErrReplaceHeadA`Cut.`Paste`ReplaceTailStartgM` ErrCopyTaile]`EndKey5` PasteTailA`CopyTail-K` ErrNoBody21` FindTailEnd2`ErrNoAttachment ` ReplaceTail` ErrPasteTail]`ReplaceTailEnd`RecordTemplateInfo` NoBookMark`ChrK~`Number-`UndoÞ` MoveRight`DocWord0` TemplateName` strFieldNameV`fld܎`Field3` GetMergeFieldz1`shp`Shape`Shapes<` TextFrame` TextRange`strCode%`strNameZ`Code`Resultur` DeleteObjects%`Deletex` SaveObjects%`SetVariablesSetting` ServerURLx`DbURL`Cookies` DataServer` DataDbName `ExecuteAgentPath `GetVariablesSettingp[`strValueK` strWordType ` CreateObject`ParagraphFormat` AlignmentI`wdAlignParagraphCenterl`objShape.`strText`msoFalseF.`msoTrue `AcceptAllChangesShown?`AcceptChangesSelected6`RejectAllChangesInDoc{g`RejectAllChangesShownq`RejectChangesSelectedh` RJeGov+2`(P,` oldIndentk` strFontName` intFontSizew`FirstLineIndent_`FontU`Size`wdDialogInsertFilej`myRange-`(鿴ۼqm`(UnProtectDocumenth<`(ProtectDocument(a`Options`InsertedTextMarkn`wdInsertedTextMarkUnderline`InsertedTextColorn8` wdByAuthor*``DeletedTextMark`wdDeletedTextMarkStrikeThrough`DeletedTextColor `RevisedPropertiesMark` wdRevisedPropertiesMarkUnderlineJ`RevisedPropertiesColor`RevisedLinesMark`wdRevisedLinesMarkLeftBorderP`RevisedLinesColor`wdAutoKV` (OAϵͳ`(غͷI`of` ColorIndex`wdWhitex`(ʾͷ|`wdRedº` (һЯ`nStepR`MillimetersToPoints`Top5`Height|` (ͼһ٨`tshape`lShapew`Protectf`wdAllowOnlyFormFields!` Unprotect?` (GetItsName\|` ShapeRange` (SetItsName`sTempe` strOptionbc` varOption`strUrlP`(Explode` FillWordListh`cboWord.`AddItem ` ListCount6` ListIndexQ` FillTypeListu`varFile``strWord`Clear`List*` cboWord_ClickO`strTypeAh`lstType` cmdOK_Click`opt`self`Path2`(TEMPLATE_FILENAME_PREFIXr`SourceG`cmdCancel_Click\` Common`(CopyFile`lpExistingFileName` lpNewFileName` bFailIfExists`kernel32_` (OldWTFlag` (NewWTFlag:`strFile X`strDir` (StrLeftBack)` (StrRightBack=`(ClearOtherDayFileN`Now%` vbDirectoryg`vbSystem`vbHiddenT;`MkDir` FileDateTime`Kill`strMain”`strSep`D`intPosr`(InStrRevĈ`strCheck8`strMatchB`lngPos6`strMsgG&`arrMsgj`intCountP`intStart?`(Replacef` strSource`strFrom`strToa`strInput` strOutput9c`strChar$`intAscii&A`AscWG`Hex` (GetItemValue'`colGet` CollectionW` (SetItemValueX` (DelItemValuee`Removeϱ` FileDialog` OPENFILENAME35` lStructSize/r` hwndOwner` hInstance ` lpstrFilter`lpstrCustomFilter`nMaxCustFilter`` nFilterIndexc` lpstrFileV`nMaxFile`lpstrFileTitlep4` nMaxFileTitleym`lpstrInitialDirr` lpstrTitleo`Flagso` 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_FILEMUSTEXISTٽ` OFN_CREATEPROMPT^9` OFN_SHAREAWARE` OFN_NOREADONLYRETURN` OFN_NOTESTFILECREATEDs` OFN_NONETWORKBUTTON` OFN_NOLONGNAMES` OFN_EXPLORERL` OFN_NODEREFERENCELINKSv` OFN_LONGNAMES=U`CC\`OFN)`Color2F` DialogTitle߄` DefaultExty`FileNamej`Filter;` FilterIndex˟`InitDir<` ShowColor `lngRetw`ShowOpen~`ShowSave G`blnSave` sFileName` vbNullCharY`iNull` _B_str_Trim` _B_str_MidX`q) 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="CAC866F9F7FDF7FDF202F202" DPB="5755FB8C05948FB18FB1704F90B1AD2A077239FA93FE76737B3E0375CABAA4E6A3BCA83E55084E" GC="E4E6481F58AD59AD59AD" [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, 78, 78, 1216, 555, C Common=0, 0, 0, 0, C FileDialog=0, 0, 0, 0, C (H  @}R KQ_$4cboWordOO$0cmdOKrdO( 0cmdCanceli$0lstTypeO AH(5"[SO(o_CompObjcaVBFramee'PROJECTwmjnx[{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 = 330 ClientWidth = 3495 StartUpPosition = 1 ' TypeInfoVer = 8 End ThisDocumentThisDocumentRJeGovRJeGovfrmSelectfrmSelectCommonCommonFileDialogFileDialog  FMicrosoft Word 97-2003 ĵ MSWordDocWord.Document.89qCompObjmn