ࡱ> `c_is Rbjbj--I*OO?@ @ 84&<[Xbb(|4)4&[[[[[[$^`BA[!^Z"A[rb[O+)4V5&@&u& ;+x[0[&x`jLa&&&`4(a$'A[A[[La@ , l: -NV5uR^ƖVN gPlQS eWQrukagpu`2c]\O[\~ -N5u^u20202001S sQNۏNek2cyv]0WeWQruku`]\Ovw;`T0NN TON0USMO :NۏNekmeQ/{_ZQ-N.Y0VRbsQNeWQrukagvpu`2c]\OQV{r =[VDYZQYNO gsQBl gHe2cuk(W]0Ws:W Od nxOlQS^'YXT]TYOS]vSOeP^Tu}T[hQ s1\lQS]0W Y]SYOSRS Ou`2c gsQNywY N N0%NNc MYSO)nvKmNT2u2b(uT zNLkSuXT [e]s:WvNXTkeۏLSO)nKmϑv^ZP}YU_0%N@DFHLNPTVX~~~~h`hgd:`gd:$^xd4$VD^^`xa$gd^AVkd$$Ifl0"S td#644 layt6N=$&(268:@BHJPRXZ^`dfhjvxz|ðppapUQhlUhWhlUCJaJo(hrtCJKHaJmHnHu!jhWhlUCJKHUaJhWhlUCJKHaJhWhlUCJKHaJo(hgh*heQjheQU$h^Ah}mB*CJPJaJo(ph%jh*@OJUmHnHo(uh^A@OJo("hG(h^A@OJmHnHo(uhrt@OJmHnHo(uXZ\^`bdh`hgd:$ r t"]`a$gd:$h]h`a$gd: h]h`gd:h`hgd:P`Pgd:񸱭x$h^Ah}mB*CJPJaJo(phheQhMhUjhP8^UmHnHuhgh*h hlUCJo(hWhN7CJaJo(h^ACJKHaJmHnHu!jhWhN7CJKHUaJhWhN7CJKHaJhWhN7CJKHaJo($^xd4$VD^^`xa$gd^AG 0&P 0p1C2P/R :pP8^. A!4"#2$%Sn a$$If!vh#v":V  t 6PO"65p yt}mq$$If!vh#v#v| :V  t 6PO"65pyt}ma$$If!vh#v":V  t 6PO"65p yt}ma$$If!vh#v":V  t 6PO"65p yt}ma$$If!vh#v":V  t 6PO"65p yt}mS$$If!vh#v#vS:V l td#655Syt6N=ԁ;AlK@y^ԁ;AlK@y^b 02 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;>A" 8$ rzX !)02A!T!TP  A @ (  tB  s *D>3"?D(  B  c <DKeywordLine#" ?B  c >DCopySendLine3"?B  ND>DocMarkLine#" ?B S  ?YR0#0t3838(55,;An<*<iBody BodyStartBodyEndkl|kl| %jk@uv{tw33(=v|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        V9Wm.IOJ 8 @  EQ 20f\1:@N.Ng7r/]h 7dvsGIS*E F e!|w#$U?%kX%m%.d&0 '|N)b)e)W*=X+m+?o,6[/0op0-1I1\13-p4Pz5M6{/:^I;^;E<6N=@(@DNA^ARBjBC5!D iisj}mYnX(oTspqg0s?Rsrt)itituh+u w w!w=Hwy!yLzbz <{h{wk|a}`*z8F8U:p+I5$la&2nD_.U,10q%w;eeer |od)=1/U 1+oM^E!)2F,AHNr3F; teQ*lLv_>'/m\\ lUY:0U,N7Cf xJT*,z*M {W T}2*f:y~4Y>f:y~4Y RJeGov.>f:y~4Y(υ~4Yυ~4Y RJeGov.υ~4YCustom Popup 19 Custom Popup 19m`Custom Popup 102252941 Custom Popup 102252941m`(υbbυbb RJeGov.υbb(>f:ybb>f:ybb RJeGov.>f:ybbCustom Popup 102330403 Custom Popup 102330403m`(υbbυbb RJeGov.υbb(>f:ybb>f:ybb RJeGov.>f:ybbCustom Popup 51051648 Custom Popup 51051648m`(υRυR RJeGov.υR(>f:yR>f:yR RJeGov.>f:yR(XRNLRXRNL RJeGov.RXRNL(Q\NLRQ\NL RJeGov.RQ\NLCustom Popup 51157610 Custom Popup 51157610m`(υRυR RJeGov.υR(>f:yR>f:yR RJeGov.>f:yR(XRNLRXRNL RJeGov.RXRNL(Q\NLRQ\NL RJeGov.RQ\NLCustom Popup 31904245 Custom Popup 31904245m`(>f:y~4Y>f:y~4Y RJeGov.>f:y~4Y(υ~4Yυ~4Y RJeGov.υ~4YCustom Popup 31929612 Custom Popup 31929612 m`(XRNLbXRNL RJeGov.bXRNL(Q\NLbQ\NL RJeGov.bQ\NL.cke.ThisDocument.UnlinkAllFieldscke.ThisDocument.FileClosecke.ThisDocument.ToolsOptionscke.ThisDocument.SaveObjects%cke.ThisDocument.AcceptAllChangesInDoc%cke.ThisDocument.AcceptAllChangesShowncke.ThisDocument.wIDNcke.RJeGov._eQezcke.RJeGov.g wucke.RJeGov.υu cke.RJeGov.eucke.ThisDocument.CenterTitlecke.RJeGov.SetRevisionsOptioncke.ThisDocument.InsertBarcke.RJeGov.ԏVOA|~cke.RJeGov.υ~4Ycke.RJeGov.>f:y~4Ycke.ThisDocument.doClipboardNull cke.ThisDocument.ToolsOptionsViewcke.ThisDocument.ProcessCopySend$cke.ThisDocument.ToolsOptionsUserInfo%cke.ThisDocument.ToolsOptionsRevisionscke.ThisDocument.ToolsRevisions(cke.ThisDocument.ToolsRevisionMarksAccept%cke.ThisDocument.AcceptChangesSelected%cke.ThisDocument.RejectAllChangesInDoc%cke.ThisDocument.RejectAllChangesShown%cke.ThisDocument.RejectChangesSelected(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@  Unknown G.[x Times New Roman5Symbol3. .[x Arial7E eck\h[{SO9E eckўSO_GBK;= |8ўSOSimHei;5 N[_GB2312;([SOSimSun9E eckN[_GBKA$BCambria Math!1h󁇞   !-!),.:;?]}    & 6"0000 0 0 00000 =@\]^([{  0 0 00000;[2C2AY; 3qHX??Rs2! xx ckeeNRJeGovR&tTd i Z'`IZ'   Oh+'0t  $ 0 < HT\dl ļRJeGov Normal.dotm16Microsoft Office Word@2~@C-@}>@$ ՜.+,0 `hx RJSOFTN   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNPQRSTUVXYZ[\]^abfeghklmnopqrstuvwxyz{|}~Root Entry Fqd)Data 1TabledaWordDocument I*SummaryInformation(ODocumentSummaryInformation8WMsoDataStore"ЏI1T3NSZAV0XE==2ЏItem  PropertiesUMacrosVBA  !"#$%'()*+,-./0123456789:;<=>?@ABCDEFGIJKLMNOPQRSTUVWXYZ[]^_`abcdefghijklmopqrstuvwxyz{|~ 0* pH"dD<@j= B g` J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\SysW OW64\e2.tlb#OLE Automation`Nor(malENCrmaF b *\C  &[!OfficgOficg!G{2DF8D04C-5BFA-101B-BDER5gAAe42gProgram Files (x86)\Common \Microsoft Shared\OFFICE14\Mdir Common j3RJeGov&__SRP_0 SO.DLL#P 9.0 Object Lib0rary&"@MSFCs>SFCHs3@BeD452EE1-E08FA1A-8-02608C4 D0BB4IeINDOWSGeFM260 'B r&/;"1B} A00}#0#G 50 BB5E4D2B-6527-4572-97EB-E7FCAEA2D496Users\helen\AppData\Local\Temp\VBEb6.exdc;!.E .`M ThisDocument(GTisDkcuen 2 ` H1By`6",Q""+B{RJeGovGQ RJ`G`v42 ~1 ! qfrTmS 0c fwScBL2//z#(A#sC m`/o`/m@ ,U" DialogGiBDog`.+626X@:`rU~~~y    ! objFtpWordTypeUserNameUNIDWordBody WordSourceFileTypeDocWord TemplateNameWTFlagstrChar strFieldName !! fldstrNamestrValue VariableNameblnClearlpExistingFileNa4[g(U"DhCopyFileAr4GetWindowTextA4xME (0@> @x+`p@ ib`zid if+jH p  ilin ipꀄ @ꀂ @ꀆ @ꀊ @ꀎ @$ @t_%+P` Hk il `tt`vP+Fh`   iz`|`8+~` (i|`4+fx` 9i@i`+j` Aii`+l` PIipi i``z+@` \i+`  di6ix`+Xp`  li8i`+\ `  tii` |H ` H }ihi ``` ( + `  i i i`+N ` @ I ``$``+H ` ) ( %i8+ ` ) %i8 IH ` 0  )P X %i8ʐ 0H~@@~h@ꀈ@ꀄ@ H ph xh @ @H  H^8@(X`Px\jx@d @T @L @H   8,H g`*\R0*#1d$*\Rffff*05601acb72*\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_ 1صģǰ׺ gAl]  1ģĿļ·] @1ģURLַ]  1ĵʹõµļ] h1ĵʹõµģ] 1ĵʹõԭļ]  1ĵʹõԭwordģ] 1ԭı־]  1 ı־] 1ԶģϢ־] 2 ͷݱH]$ \'t] l t$j'v v t t x $ 'tk t'Pi]8P z\$f'| z\$j'8 8 8!$ '8k@ | \rjoawork.bakA@~  z |\rjoawork.bak\ yyyymmddhhnnss$ 8$`'Fih B@L] |    $~ |A@kX |\*.*   $~'4 4 |\ 4$  |\ 4A@k ~'4 !'~i]`  $'    $ 'fkXiPx]  $'     $ 'jki]D \$j'z \$f\'   $'kh z  z'zk@d8 z z!$ 'zkk  z'liA@4  a  ` $^'  $ 'i@]_h '  6 x'  i0]X  '    $ 'Xkip]  '     $ '\ki"һֳַָɼַ]]ӵһĸʼҬ'_   ' Gxj @     $  +   '  ' @@  $  + '|iHH ]   '  b   $       $  '    ' 'i ]` ]x ] ]    $ '$ $$' G 'j.԰ǿո⴦  :  /  [  @  {  `   $'dp $ ^'$ $KT%0 $'$KT% $'$KT%u0 $'$KT%u $'$n  $'k 'Ni TF 8 %'zTixH TF H 8 B@f'z@T8i0 TF 8 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@V InsertFileEnd7B@Vq`oXA@ 5A@k(9995A@kqo 5A@k9995A@kqo(SetRevisionsOption 999q8o0h  9 9 9 9 9 9  9 9qo "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. !  ( !  (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===================================================  !0%!A@o0`]֣ Ķ ȡ$$'4 4 4 !0%(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~~~~~~~~~~~~~~~~~~~~~, Q2-bYKOB a 1Qi! Q ) i  9 Q q 9 i I y Q1i )Qya x9Yq)Qya iQ1Yy1Y1 !  ⑉Kدlx9 ThisDocumentRJeGov frmSelectCommon FileDialogF /C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA7\VBE7.DLLVBA i ` F;C:\Program Files (x86)\Microsoft Office\Office14\MSWORD.OLBWord a p0FC:\Windows\SysWOW64\stdole2.tlbstdole yL-[DREC:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE14\MSO.DLLOffice a!.E .`M C:\WINDOWS\SysWOW64\FM20.DLLMSForms +M^ 'erEԔ 1C:\Users\helen\AppData\Local\Temp\VBE\MSForms.exd qk FvyKO@@K,U~}B^ 0 FDocumentOAOpen DoMailMerge DoMailMerge1 FileCloseDocument_Close ToolsOptionsToolsOptionsViewToolsOptionsUserInfoToolsOptionsRevisionsToolsRevisionsToolsRevisionMarksAcceptToolsRevisionMarksRejectToolsRevisionMarksToggleToolsReviewRevisionsToggleFieldDisplay UpdateFieldsReject ToolsMacroFileSave鿴ԭSelectTemplateChangeTemplateLocateContentInputRecordTemplateInfoUnlinkAllFieldsProcessCopySendLenCharGetMergeFields GetMergeField/ FCheckBodyBookMark SaveObjectsGetVariablesSettingSetVariablesSettingIsFromOAAcceptAllChangesInDocAcceptAllChangesShownAcceptChangesSelectedRejectAllChangesInDocRejectAllChangesShownRejectChangesSelectedCheckVariableExistCreateHtmlAttachmentݸ CenterTitleRecordBookmarksCheckBookmarks InsertBardoClipboardNull CheckRedHead @@x 48<@DHLPTX\`d createword draftword approveword  1uNckeW,gOo`( $)` Rd S N&{TLeĉBl   @pQnx[~~OX[0ROA|~ pQSm\ NOX[ckev^ԏV0ROA|~ -NV5u^RlQNSOSOS Ts^S GetItemValue $/f&T\gevf9eOX[0ROA|~-N t_CopyFile kernel32 CopyFileA  GetWindowText user32 GetWindowTextA GetWindowCaption BackupFileClearOtherDayFile StrLeftBack StrRightBackRndTrim GetRndStringInStrRevStrLeftStrRightExplodeReplaceEscapegĤIx8< SetItemValue DelItemValue 008  $UploadFile (el N OWordcke0R gRhV /f&T͑Ջ Microsoft Word 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<VBE7.DLL  S     RJeGov.RJWord Window gUNID HWNDb F ServerURLServerURL DbURL DbURL CookiesCookies gUserName gWordType gWordBody gWordSource gFileType gOldUser gAllDocWord gValType gKey $gExistBodyBookMark         ^   h 0 F F^ F MERGEFIELD & =   P  w pp F F Fi**l Fi*__SRP_1)__SRP_2__SRP_3&a__SRP_4Hme lpNewFileName bFailIfExistshWndlpStringcchstrFilestrDirstrMainstrSep strLocalFileblnAddstrUnidintLenstrCheckstrMatchstrMsg strSourcestrFromstrTostrInput  (colGetYrU xD`rU 011Rq@ a)Ay ! !Aa)i 1Y 1Y A y! "a"1"!a&"&"#A#i### $A$y$$$)%a%%%&! y(((a)()1)I)A* +*** a l a1` 1WW_____ _    _    _    _    W0 X  0 x  0   0   zLkzz$ kz:$ CPt! t Mtt! t tMt*ptN$O ,Pt Qlpt(''0'Pt! t Mt6P0Vl$^ tP00 x  0   0 @  0   0 8  0   0   0 X  0   0   0   0 X  0   $Kpt rL@07$ r$ krP\4\`1l5\ $ @CXlX0lX0P|>P1T lT=T'':4N$$ lT*#P *#H *#D *F\^ pN2PHD6\$kN4'''$$:4N\\^ 6\$ D pv!D@X4\`1x5\ lx07'':N$$%:4N\\^ pv6\$:%<*#P*#H@*#D*#L*#*F\x@X4$%llF% F%X4`1x2 PHD6 \$ lx=K'':4N$$%lx *#P *#H*F\^ pv2PH6\$kvc \l5\ lX0IP:4N\\$  0 ,lP =/P)5\4'''$$:4!N\\^ 6\$ $ | "; :4N\\$  0 0)5\0:4#%$ 0 H$ %)0:4&%$ 0 H$ %)0:4'%$ 0 H$ %)0:4(%$ 0 H$ %) $ $ ptT 04'''$$:4)N\\^ 6\$pt= kt=4'''$$:4N\\^ 6\$;pt kt D pv!D@X4\`1x5\ lx07'':N$$%:4N\\^ pv6\$:%<*#P*#H@*#D*#L*#*F\x@X4$%llF% F%X4`1x2 PHD6 \$ lx=K'':4N$$%lx *#P *#H*F\^ pv2PH6\$kvY \l5\DP * ,+'':4N$$>PF\ 6\$$4p^XxTl< PHD\$b0   0 x   0   0   0 `   0   0 p   0  |  l Ch.K Vd\d Q\[X`TDg!lDlh`8D4l5D `TD9\d DQ\[,0(E; $\0 E\ PF$ GQ [`)\$D!lDlh`8D4l5D `D 0(Ecd/ d P^8 ldXT,(h0` \$ D4  lCh.)X\H (D\ GlX H1d/X\ldI'8 ld J 1`58l`lh0lh0@Kl`*#XL*#04\H @D\ Gl4*F8l2X04\/L4^ldh` X40\80   0 h  hl CtlCp-KX;TXtM\@l$ l 0X ,>T1x)lX/lpCx/(h0^xptTlX0 H  8=pzs2p,-D(`%lp./ 0#\Pqt2p\8pX$ X h1lplt 2#\02p\Xqpz$ /H 3 H445H$p4D>pFH%X455H$p6D>pFH%X475H$p8D>pFH%X495Hp-Dlp</pp:Dlp8/pp;Dlp@/pp<DlpD/pp=DlpH/pp>DlpL/pp?DlpP/pp@Dlp\/ppADlpX/ppBDlp`/p&\#pCDl\Wh2p\/ 4$^ p\XH0 @  0   0   0   0 @  0   0   0 p  0   0 @  0   0   0   0   0 x  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~| Y'A' ((T 1t5T.ltL4lLl ^ qHB@@ >!B >(DkA@F|xkp]H`x >B@L H 8 H\$X'J  >!B  >%N Jyk  >!B J >B@@k >!B >(DkxopA@FoX](@X TB@L H 8 H\$X'J H\$\|$X'R J >!d  T!B  T%N Rykx  T!B R TB@@kPkH@ T!B T(DkopT] ļϢ] ѡû >!d\ T!d'X z 8 z X 'ҵѡеļֺģϢ z|$\!$X' "!\  '~g,صģļt_ͷģԭļ 6~$\/0/ z!$\/$FILE/ 'k A@r|xTp ϵͳ ! ! !ZA@|0o( A@roõAttribute VB_Name = "frmSelect" " Bas0{F195C883-99CC-4571-9A81-111D76782554}{46942D55-8C1B-4719-BCC6-9B56EC2E487A} 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_PROJECTt0PROJECT R:tChooseColorA8GetOpenFileNameA`$GetSaveFileNameAxRRRRR RMEL PSS S@@@<<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}8  h0~ hHh`hx!hhhhhhh h8hPhhhhhhhh h(h@hXhphhhhh+P( )H%+$ ) %+@L(( ) %xXP%p %j* jj, j.(% 0 i`v i 2xXi ""ii4 `6`8`vh@%jCjCjCjCj@CjhCjCjCj Cj  Cj0 CjX Cj Cj Cj Cj Cj CjH Cjp Cj Cj Cj C"" P"$8 pj&` j(xj*  @xhp @X H P x` 0  8  x   @x @@ g`(*\Rffff*05601abf65\0(*\Rffff*05601abf65\1(*\Rffff*05601abf65\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 ''''' '@''' ' ''' '@''''''' ' ]@ ]@ ] 8 ] ` ] x]  ] ] ]  ] @] " "(  "( & "( "$'v vColor = CC.rgbResultko A@o A@ox]  x$\'6 $ $9 9 | x$ x x9 ,9 69 69 .9 (9 9 *9q]( 4 $$'vd $$'vk v $! x x'8 8 $! 8 $ '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:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqruvwxyz{|}~n.B000+tvyKO@@K,U~}B^ 0xB^ 0vyKO@ME  $S"SS"0@<<(L8L0<<>"L LL LLLLLLLLL<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<(1Normal.ThisDocument X$)b*`<@b.PD@b0H@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`:`N Xx ` `Z`\`b`d`p  ` 00`v `x`z  `F X % x %  %` ``` ,|` ` @  i   ` $i i i p `(-`` n ` ,JJ>  %`` `` H %`` " %, X` 0i$i &P8 2`(#o 4i, i  .`% 40% 2`(&0kX 8 ). x%i,i  `6d`8`,th`0 < i  `< j` @,FH`p!TkDi8 iH(i > ` H i8iH,@!`Hk L! i  `Jt T"` P" X#` T#  Z$` X$ `@%` \% b&` `&  d'` d' (,`p(`  h(??1if i  `h `j R)`  l)OOpi  n% p% r(%`t`v`*`,`x`z "% @*` p* 8% p+` t+ .%`6`8 ,`x,i ` .`% 4%  %,8-`|-i ` 8 % .X% 4x%  %` .`.  $% x/` /? p% h0` 0M "%%b&84 @b(8@b,(@@b2xL@b6T@b<` @bBh @Xp 8(@@X x @@`8xhXxpx8P `  xHX" H@x(@r @X\ @X @P @H @D @<>@BD.@p4 @$ @ @ @ @` @0 (F&J*2NPR@ @ @H @ @ bT6@ @ x ( !(! x X! h `` z  x ` (FL"tPrR@ p @` @\ @X @H &*,.024:@!8<B(""#""(""@"hF`F"xP"("x""`8t"`"`H`"p""b@"l @\ @X @T $$$`$#@$#H2 @2#l $#0$#`,#h$$"2$dx$`(%$`$@%\ @$X $$@8%TO (%$@%D @4 P%$@`%, x%8%@%(O %`%@%$ @ @% %% @O &% &% `% '&Xp'@'''&X'&H2 @2&l '&0'&`,h'@\ @'X @H @8 @'4 @0 0 ( ))((("r4Z@z @t (@p @8)` @P)P @h)@ @)0 @ @ @&11Xxx>_(g`*\R0*#1d*\R1*#104$*\Rffff*04601acb72*\R1*#155*\R1*#c6*\R0*#e*\R0*#1*\R0*#17*\R0*#2$*\Rffff*05601acb72*\R1*#cd*\R1*#cc$*\Rffff*06601acb72*\R4*#8c*\R4*#4d*\R4*#4e*\R0*#14*\R0*#16*\R1*#d0*\R1*#156*\R1*#d4*\R0*#f*\R1*#c0*\R1*#6d*\R1*#17b*\R1*#c1*\R1*#c5lb  (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 T@   (0  $8 x`   >4   @ :`  ! \78@ TK08 @  P p x 0I  @4  ,; 0H0h00       R4 h  p  x  >4      H :8! zx! :! 8" P" p" " "   " 8" "#!# #\70### $TK0$$$ $  $ $ $ $$0D$% " %(%@%H%VX% %%,% &(&0&@&"X&&&& &L&' '('0'H'P'0X'' " ' ' ' F' " ( "H( vp( H( 0) @)X)`)Th))d)0*8*@*H*P*X*  `*** D* *R+D`+ ++++&+, ,&(,:P,,,$,,,,0, -(- " 0- .8- h-x--- ----  -0.0.8.  @.P. .h..$. ..... ./ @/ 0`/$/ /// 0000 0(00080 4@0x00000000 1 10181@1H1P1&X1&11111122  62 (H2p2x222.22222223 3(303 H3 h3x33 33333333  43(40484P4 *h44.444555 5(5"05X5`5h5p5x5*555555 55&6 06H6 `6x666666 66 66 677  7 (7 87  H7h7  p77 :7  788  "8@8 H8P8X8`8 8 8 99 9(9  "09X9 `9h9p99: : (: 8:H:P:X:  "`:: ::: B : ": &: ;(;0;H;X;`;h;p;x; "  ; 8; ; ; 0< 0<B@<<<<<"<"=8="@=h=p====== " = => >>  > 0>8> P>p>  x> >" >>>> >>>> > > ?  ?(? 0? H?X?p?? ,?? ?? @&@ @@$H@p@ @@ @@@$@@ A A (A8A PAXA `A hA AA AA A A AB  BB&`B B B B B&B BB C @CHC PCXC`ChCpC xCC B  CCCCCC B  CC DDD ! D 8D@DHD ;XD!xD  D DDD B  DD)DDEE "@0EXE`EhE B pE <xEEEEEE E FFF F " (F0FPFhFFFFFFG G8G XGpG GG GG G G ,H 0H B @HHH;PHhHpHxHH "  HHHHHHH BH HHIIB2I8XI xI I I 6$I .$I 2$J PJ hJ J J J J K (K HK `K K K $&KKKK .K" L(L0L8L @LPLXL " `LhLpLxL &L LLL " LLLL8LM M " (M0M8M@M HMXM`M " hMpMxMM &M MMM " MMMM MMN B  N NN  N8N HNXN `N  pNNNNN N N N  N  ,N  &(O PO  lpO  $O :P "HP &pP P ~P 0Q n8Q  .Q JQ *(R .XR R R R R 6R  S "@S hS  xS S  S  S B  S S SSSSTTTT T  (T 8THT `T xT$T T T T T$TU" UHU PU`UhU"pUUU U  U U U V V  V(V8V HVXVxV  DV &V W W  0W8W@W XW `hWW W  PXT`X XX  X XX0XY " Y(Y 0Y@Y.XYY  0YYYZZ Z@Z $HZpZ " xZZ ZZZZZZ [  [@[ X[`[h[p[x[[ "  [[[ [[ [ [[[[[[ "\0\8\@\ P\"p\ \\\\ :\]] ] ] B (]0]8] @]P]X]`]h] x]]]] ]] ]]]^ "^8^@^H^P^h^^ ^ ^^^ (^" ^^^_ _(_0_ @_ P_ `_h_p_x__"__"_ _ `` `(`@`X`h`p`x`(``` (`" ``` a"a(@a ha xaa a a" aa aaab b b 0b @bXb`bhbpbxb bx]]8]]`](]P]]x]]$Ȩ޿ƲƸģIJʾx]ļϢ]ϡĹؼ]]XTF F.& H$V', J//$X'( 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$(Approve$(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 6]  ĻϢ( 6#)ɾܲĹ淶Ҫ &<ȷ浽OAϵͳȡIJصOAϵͳ  <й罨칫һ廯Эͬƽ̨$': : >|kkIf Not CheckBodyBookMark Thenq MsgBox "ǩɾĸ޷浽OAϵͳУԱϵ", vbCritical, "Ż칫Զϵͳ" Exit SubEnd If"ǷҪµĸı浽OAϵͳУ @ B $ D .A@F!2002.10.25 PJT 4''''''''CreateHtmlAttachment '////html鿴ĵ_X', . &%H'* *$޷ϴWordĵǷԣ J @Microsoft Word$',dSaveWord&UNID= * &WordType= , &FileType= 2 &FileName= * &%N 0$N &%L'* *ok  * & & Ƿԣ J @Microsoft Word$',kk , PA@R#////html鿴ĵk createwordKT WordStatus "%b!d CreatedWord$Ƿ޸ģʽļ @ B $ D "B@TA CreatedWord WordStatus "%b(dDraft "%B@VApprove "%B@VView "%B@VTemplate "%B@V "B@4 "(r'.kk 6 CreatedWord6ļʽļǷҪµĸı浽ϵͳУ @ B $ D'.k .e"ǷҪµĸı浽OAϵͳУ @ B $ D'.k(k  . 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@F!2002.10.25 PJT 1'''''CreateHtmlAttachment '////html鿴ĵ_', . &%H'* *$޷ϴWordĵǷԣ J @Microsoft Word$',dhSaveWord&UNID= * &WordType= , &FileType= 2 &FileName= * &%N 0$N &%L'* *ok  * & & Ƿԣ J @Microsoft Word$',kpkh , PA@R#////html鿴ĵk0n(| T ! й罨칫һ廯Эͬƽ̨A@o ,G|jTF]   &UNID= *&Seq= ` $^ &FileType= 2'Z ViewDraft Z &%L'\ \$  \ й罨칫һ廯Эͬƽ̨A@|k]0 H "!h\$f'd d\ \/$j'b b$l'b b$l'b \ b &%n'b b ޷ԭ壬ԭѾ򿪡 й罨칫һ廯Эͬƽ̨A@|k]` b %.p|T ! й罨칫һ廯Эͬƽ̨A@opx ṩģ幦ܣģѡ 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= r &%L':G$ȡļüӦWordģ t8ǩɾϵͳ޷ģ壬Աϵ й罨칫һ廯Эͬƽ̨A@|k ] ] ] :~$X,$|'v ~\'x z v z x z  NҵļֺģϢ z|$\!$X' "!\  '~k,صģļt_ͷģԭļ :~$\/0/ z!$\/$FILE/ 'kPHd@ : (4 ֵ  B@4ʾģ滻Իkend 2004-02-10'(ȡԶʾļֱ $ ~$Hûѡȡ|hk`  ~ &BnE ģļA滻ģ|T ! й罨칫һ廯Эͬƽ̨A@|o (ṩģ幦ܣģ滻ͷβ滻 2003-07-24T]@ *Ҫ滻ģĵ]` *ǰĵ] *ݴķΧ] ] ] ". ~$ ~*ģ岻ڣ˳|k 1.رպۼA رպۼ¼(2.ģĵǰݿ] ~ %.8 ĵ0 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'kqFF'.3.üе滻ǰĵǰx A 7! B@7! !.7! ! (Body7B@H7! ! ( B@HqFFF"Ե,ʼβ. ģıͷΪɾͷ %! B@d Ϊճͷ %! B@k F/=============β=============================="4.ģԺݵ ' p  KeywordText7!%!. ! (     BodyEnd7!.  7! B@7! ! ( B@H7! B@7! !d'k@ Fq0 (   '.5.üе滻ǰĵԺ   7! B@7! !.#rng.End = .Windows(1).Selection.EndF KeywordText7!%!B@H7! B@V7! ! (    FBodyEnd7!! (    FAttachmentStart7!! (H @ F0 ( B@HF$ Ե ģıβΪɾβ %! B@d Ϊճβ %! B@k qx p h ` X 6.ºϲԴA@lProcessCopyReportA@nProcessInnerSendA@pA@7.رģĵ (r B@B8.λ굽ĿʼA@|9.µļֺģϢ ~  A4Call RecordTemplateInfo(NewDocWord, NewTemplateName)10.һεĸϢ''~''',ڳA''|8Բģ⣬޷滻ģ壬ϵϵͳԱ $ ! ! й罨칫һ廯Эͬƽ̨A@  (r B@Bk''~''',ڳA''|T ԭ4Բ滻ģʱϵͳԭģ壡 $ ! ! й罨칫һ廯Эͬƽ̨A@ B@  (r B@Bk''~''',ڳA''|`oX + ҵǩTrueѹƶĿʼ ʱָʾݵʾ 2003-07-24TFBody "%B@H B@'|zT'|i` 2¼ĵʹõļϢģϢwordĵDowWordļTemplateNameģ*wordĵеıƺͱıƶӦ 2003-7-25DocWord "%b@Ѿڱ޸ֵ DocWord "%b(dd@ ӱDocWord  "!bBfk TemplateName "%b  TemplateName "%b(dd TemplateName  "!bBfkWTFlag "%b WTFlag "%b(ddHWTFlag  "!bBfk o  ϲ !B@]@ ]X !!'    %!!!B@ (ropp TF "5A@k@] ]    ]0 CopySendText "%. |k !!. %!'  $|'    $$  . '(  !!?   %!  %(d? %!  %(  %(kp?h?ıĸ߶]P ]h 33333$@$ ! '  F KeywordText7.  !  (k>>F KeywordLine7.  !  (kH>@> CopySendText7. !  ( !  (k=;ıΪյʱCopySendLineKeywordLine CopySendText "%! F] CopySendLine "%." " "! KeywordLine "%(k= =k<:.Shapes("CopySendText").Width = MillimetersToPoints(146.3)5A@k<q<|<T<MsgBox Err.Descriptiono`< P<]  $ *$('& & ' i<X< "] .5 2 . ,$2'2;] 45 . 4!!! 2 . ,$2'2h;`;qX;iP;] .!:$ '6 6 MERGEFIELD 6 $ '8 8 , ,& 8= .!'2k:k:i:6жǩǷʧжʧϴϡ't B]P(:Body "%!'< <'tk9k9i9h ServerURL &!@A>DbURL &!BA>Cookies &!DA> gUserName (A>gUNID *A> gWordType ,A> gWordBody .A> gWordSource 0A> gFileType 2A>gOldUser 4A> gAllDocWord :A>ģgValType 8A>ĿgKey <A>gExistBodyBookMark BA>o 8Sub InsertObject()& Dialogs(wdDialogInsertObject).ShowEnd SubTF 8 "%b!d'Fz7T7 H'Fix7HTF H 8 "%b(d|H7T@7 8 H "!bBfo 7 ('d6]( RJeGov.RJWordWindowgUNIDHWND$F$L'J "!t!N J$P' "(r RJeGov.RJWord$R.& ServerURL$F &(@EobjFtp.ServerURLDbURL$F &(B= objFtp.DbURLCookies$F &(DAobjFtp.CookiesgUNID$F'* gUserName$F'( gWordType$F', gWordBody$F'. gWordSource$F'0 gFileType$F'2gOldUser$F'4 gAllDocWord$F': ģgValType$F'8 ĿϢgKey$F'<gExistBodyBookMark$F'Bk 4k4i4(2005.6.6 for officexp or office2003 only@$A@ d3 VB@Tk3o3$A@ d3WordBasic.AcceptAllChangesShownkH3o@3$A@ d 3%ThisDocument.ToolsRevisionMarksAccept^ ZB@\k2o2$A@ d2 VB@`k2o2@$A@ dx2WordBasic.RejectAllChangesShownk@2o82$A@ d2 VB@dk2o1]@]X h "!b h! f h!l'jk1 h j'`dp1'`k`1iX1Sub 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 SubpTF]]]]0]H]`]x]]ҳ "B@|  "%~'zThisDocument.Save'''''Body "%!! 'tF] KeywordText "%." " "!%!! 'vd*BodyEnd "%!!'vk*'''''''F*BodyEnd "%!!'vFX* t v "%.pbodyRange.CopyAsPicture pB@' "B@4 "(r' !f.n n!B@ n!.r _GB2312 r!(16 r!(=pageNum = newbodyRange.Information(wdNumberOfPagesInDocument) .$V.doc.html$'x x  nB@ nB@B_(', x &%H'* * (޷ϴhtml鿴ļǷԣ J @Microsoft Word$',d0( SaveHtml&UNID= *&FileType=html &FileName= * &%N &PageNum= z &%L'* *ok  * & & Ƿԣ J @Microsoft Word$',k@'k8' , Pz 'T' ! й罨칫һ廯Эͬƽ̨A@i&]   B@ &d B@ !AttachmentStart B@f l B@*븽ʼλжϣ¼ʵλϢAttBody "!% !. ! ( ! (AttBody  "!Bfk%ڴ븽d B@o%@TF''''Call ޺ۼ]] . "! .!:$ '6 6 MERGEFIELD 6 $ '8 8$   .!!(k$k$$|$T$ox$h$]0 "!r'  >!b >B@ $k$ "]H .5 > .!:!d .!:!dA@#]h 45 . 4!!! > .!:!d .!:!dA@`#X#] 5 > Bookmark ! Bookmark !A@"q"  "(ro""] "!r']  "]@ .5 > .!:A@h"]` 45 . 4!!! > .!:A@""] 5 > Bookmark !A@!q!]  >! 8 &  >%'8p!  "(r¼¼A@i@!"pjt 07.5.30 ӲάͼƬܖTF] ͼƬ(*.bmp)|*.bmp99  9C@5| k q  ά "%B@V BodyEnd B@TF ! !%!5(lC@ 9 9*@$9L:@$9ά9q|T ! Ż칫ԶϵͳA@|PoH"ռݣһոȡ]X !.Body "!%Body "%!! (Body "%!! ( B@H B@kpohͷֵx P_RedHead$` P_RedHead "%b!d'd 'F] SubjectText "%." " "!!!!'k|koxܷ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   'If strCheck <> "" 0Then'MsgBox "ĻϢϲʀǩ(" && ")ɾĸ浽OAϵͳ", vbCritical, "й칫һ廯Эͬ ƽ̨" Ex@it Sub'End If !Dim intSelect As IntegeNr"= ( Ĺ淶Ҫ _ 4&Lf"ȷ  ϲx؅,\ Or@OKCance_)'@TBЏAMkBkoG!Not BBodyBookMark'ͪbԱϵBMŻAԶH\G4NǷҪCw@ȿ!Question +kYesNo) =LAGCBackupFile gWord' '2002.10.25 PJT+'CreateHtmlAttachment@ '/ah 鿴ΘĵKDo GReply`B0sRet gobjFtp.Uploada(fQa *AaHe0ϴ$g3ԣ'0h vbryChj5k&H1000 Microsoft "0pElse! ,"ExecuteAg@2("SaveB &UNID=ag!a&aType͍@&a-' Nam $4Escape(), trFields)P 6ok1e6"å6# _7_7# %Loop Whrk@srmlr C@ase "c?w`BMgpThisDocu1@.Variables("$Status")plueRC ~dmgP8޸ʽļB8vbPP q AcceptAllRevisVsCall ޺ۼ= "CommandBarDraft@DЊt_C@aApproveF_UViewpI.JTempldzQN/.dcTru 01=; ,Ric0Jy 8/q-L4."g/$b,qpF h`  Z1 &!WO o o o ˡn nd￁  !%?O9O=BNPxrotPGv#wdNoGobA Sԣ$aS(ʾdEU ܵV)?/%/%"R d (wdUowOnlyReading, 9??'@=#ρ'ϵdyϵq\&C9`/; 1MD` sRet = gobjFtp.UploadFile(gWordBody)  If"" 0ThenDbin@tReplyMsgBox("΀޷ϴĵԣ", _PvbryCancel Or vbQu@estion &H1000, "Microsoft g"ElsecExecuteAgent(`"Save)2&UNID=" &L g"& T8ype g& |"&&N am&Escape(R), trFields)u<> "\okmE&[CHrLf'vb"mnAEnd IfpLoop Wh #KCreateHtmlAttachm '/ h@@ $ ASelectDxit Sub ErrhandXle:CC .Descrip,citicalй칫һ廯Эͬp̨"@L (  .ԭ($F D"~aQuz EfA/Onaor GoToADim strPara As String,Ao&C=``iSeqbhHex(R`* 10 ^ 9)mi&vh G zViewDraftD"Left$( , 3)"-h4Ec22*a,F*!a*kDirg$=A0aBack(Th@isDocuX.FullAF\ţ~sab +\A9RightB "/q5Tri|m( * n,` True0%DownfM 4`@!Ѿ򿪡A_8Ek_8A8Lѡ5ObjFSf= %4s.Ope>nn(D__VSub ITemplPPeB'ṩģ幦ܣѡ 'BResa& Nex0NgxAll  (Variables.Item("Lastqs").pValuzGHUR1LJ  K%;AEnumP "&HTimer)!'ȡļü1QpCall@7Add, 0b @'begin 2004-02-10#?YcIsFromOArd Not CheckLBookMark\9aǩɾϵͳ'Աϵ;ppq 1?W%P AutoCmge0Flag =pts<n|aJMatchSppoptW%s`2Exde6(@\([~"0",UX=7w6b\F |E qInasaIn@("| ) > 0 AxNewWTA'ҵ$2͡!Ϣ0FaiOpg"|!1b@JFPPath"lTEMPLATE_FILENAME_PREFIX˽'b t_@ͷQȭs xUrl S  /0/9w@$!  iCXfrm^g!c*0 Q1'ր!Show0Modal%{'ʾ滻`ԻJNe&-N8= Fa ȡԶʾ'SP- "r-$- 'ûoEE2``pwe,2g ('2#JE>'cG /ڵgBox Err.Description, vbCritical, "й罨칫廯Эƽ̨"  Exit Sub End  ChangeTemplate()\'ģ@ܣ 滻͠β .2003-07-$24Onor` GoTo edleDim tpDoc As umentH'ҪbzΈĵhisA'ǰ rtng4Rw1 'ķDΧ9flaB@oolean c ou[aInteger i7 8ASet tc= TIf Dir$(DownFile) = "" en'AHڣ˳g~BIfCC'1.رպCall \A ' ¼ D2.$gO ǰlP A}blnCopyNu@LRBDH=s.OpenB 'zNHeadWith C:>.Windows(1).Selec.HomeKey wdStory 1\=  ' .Start@vS B(.&kmarks("Body" !}#+ 1gD "?' 0g\Te~xA!\3Gfru$aAE[a<AbPastea@:9@rr%BReso#fAAu'3._֞Ѓa e ) WW##_W_W_W@G?W,WW> PnV)P?Reݠc?m.#; R3I 'Ե,ʼ!N.C& ^iFTh@'$!ġΪɾ,2p.CutElse '䲻Sճ? s??1Tbr3Tailis 53'=  9T4.dcCfs5f] t;:Fa ?C34fS/Noq`^Worc1x2ShapepX0w0KXAnchor.Paragraphc_3-YFg`-K4`"/ 1N!W _0 Ǟ'q'p/tqwOhM' /! 7OhOh3K%TOh54 (h S'5g@Űg3gs1e?1$/\on.|0!= tq02!.o9~to9h9wD0&t8w; c4SA 1=2+=5 ;=@D=9oQ) =u=./ RP4 (Ap  oAttach1x f o|!- (cv 4N\G?'gn xβΪɾβ  thisDoc.Windows(1).Selection.CutElse H'ճ,PasteMnd IfE With GoTo ReplaceTail Err @:'Resume) 9+'6.ºϲ@Դ!DoM0MergL'ProcessCopy$ora SendInner CenterTitl*RecordBookmarks Tru #7.رģ ĵ temteSav0ed =Clos(8.굽ՀĿʼCLocateCo(ntInpExC'9.µļֺ%ϢaCall\4T'Info(New)W9, NameWTFlag)Dp10.һεĸ(DownUrlM"" aIFile''',ڳ.doClipboard0NullExit Sub 4No}M}MsgBox "@AW⣬޷滻ϵϵͳԱ" & Chr(13)@@.De`scripDNumber, vbCritical, "й罨칫һ廯Э@ͬƽ̨d#I@f Not J IsAhing ThenaOOS-S!}~48444(handle: 'A=8ԭM63ʱA4ԭ85rr.55U 1#_8_8_8_8_8?m?m m!KBn Fu n () As rlean' ҵ@ǩG'ƶCH'ʱָʾaʾ-'2003-07-24On qNor "gOTc@nt.("Body"CMoveRight ,AON 2Juu0Fa z `/ao(`Str@D, "aaya!ub¼qʹiq^Wiw0g1M '`'hSlØƔ)Q:еͱӦ58*Variables(" ")U6'Ѿ޸4.Valum ?'~q p.Add, i`?t 6oSiC v z-OuO C /  / p|E, T, l VSub UnlinkAllFields ('!3AXv1#.SDim i@IgerWcount = \Shapes.SWèNexFXi N|0 xa.(i).TFr Range.USU3V`Uǵd3Sc 7.ReadOnly Unt @;R;Qrq1BstrSt`ar&2(nt,ntLinen{ACSet YuXa qq",3W5w=t $u'g= 'qA-l,U=S Explode(strCopy, vbCr)  For i = 0 To UBound(arXintLineV+ Abs(Int((2 - LenChar|(i))) / 46)INext}'@1Arange.Paragrapphs.cCIf3henK#O.FirsjIndentm-Left /Else'8"55X1).5d0Sn0d Ifaı@ĸ߶ Dim nStep As Singl<oVarianHf = Millimete@rsToPos(Ő* 10.35)CShape.HeighHGv) > TNyOn Err GoLabK@eywordA:2PSet o_.s(" T@&"̼No Is: h>@o.Top-CKED`'1SendA'$22`w! Or"""G;A &" 5& "=' LsulȐaeqCheckBodyBookMark(SB oolead'жǩǷʧГϴϡ Tru4H`rg@Sst)Dummy (O|pm`jAW/ = Faʾq qSub S@aveObjfs(T$Call p|"blest@0("ServerURL", gobjFtp.6iaDb_\C!iesgUser_^NIDpWpType__rdpQ__rdSourcFileU _]Olda ?=Allp1 a'ģѵ Call SetVariablesXting("gValType(", ()'"Key ExistBodyBookMark9GEnd Sub ' InsertObject( 'Dialog0s(wd $).0Show% Function$ GBy strName A s Str, Opal u)On Error GoTohandl e:> = ThisDocumPent.(G)1 lue t e 5/- VG WΈDA'[?9C+Az<*O;B.Add=P,Av@IIsFromOA(Bs!lean4If gU<> ""@keA'q2rFilskDim lngHWNDALong=bRJeGov.RJWord"Wind ow@"gUN ID "), 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 Bģ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"VThisDESSWordSign1fY9#Savˁ* End If 6 Ld60? 1 .!B/ 'Sub A File Default(r Call@# FuncBCreateHtmlAttachA On Error GoTohandl e:Dim newdoc As ~CbodyRange sposA Integer BesRetA Stg @ReplyRh*fpageNumM 'ҳ:@aginn, =hdB@uiltInE'Properties(wdyP`sv' J@1'C B' ookma@rks("B2").1.Star:t1CK?La bE`.?lShap";C@ ,CKeywT0ext"No"tIs hiLngeAM ?=.Anchor.Paragra phs(1k- dDy(Bk#e#?`Cc-''#c`$*b*%K&GC2fRes o I .gi. (I<:=AC, :.=/'F.CopyAsPictur $D *gRdTru/$ (=fs.Add c` Aast$ gKgFo2?= "_G@B2312".!Size"1v6$'g=0InformaaV<DberOf<>H= Kace(LCase(gtQ), ".V}~.!%4 .Q YM:=,"bBF :=wdHTML:Clo"Dos` U<= o!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+aInS$6MERG@EFIELD`= 1q = Mid$(12p If Right$(strName, 2) = "" Then  fld.Result.ParagraphFormat.Alig nmentwdKDC,er E`nd If NextExit Sub Errhandle:' ;  RecordBookmarks(Optional ByVblnClear As $n).On +or sumeB ;Dim Spaved =AisDocnt.; Do While gcolY.c8ouny Remove 1/0LoopWi|th Kj3F0ieldGp Each In .sSetPItemTuL/, .Code.T?nGW#shp#Shape ###, B FrBRang~e23A48bk7y8A8F \" " & bk.CGGFEcTh-Yy%]!JnFuncl Check()"9tringC kkGkAGcTemGNew Colleaae,ODelac/D^ ^u^Ag_dpKZ\k \_?Y'Yia;Integi@Z1 To{Z@ & vbCrLfnKB(id'%` RejectAll<)`ToolsRevisionMarksToggle`ToolsReviewRevisions` wdDialogToolsAcceptRejectChanges`ToggleFieldDisplay}` UpdateFieldsR` ToolsMacrou`InputBox `vbCrLf`wdDialogToolsMacroHS`sRet(`intReply,h` intCreatef` strFields`GetMergeFields`Save`strCheck8`CheckBookmarksp` intSelect& ` vbOKCancelx?`vbCancel'` 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` #  _   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="3A3896366C3A6C3A693F693F" DPB="0C0EA068A027BD27BDD84328BD53009DA881BF7CA33A82D29710D5FB7503C69A1C7DA9B08D69" GC="DEDC725A96FE69FF69FF69" [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, 26, 26, 1164, 503, C Common=0, 0, 0, 0, C FileDialog=0, 0, 0, 0, C (H  @}R KQ_y$4cboWordOO$0cmdOKeO( 0cmdCanceli$0lstTypeO AH(5"[SO(frmSelect!f 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