ࡱ> =@<aq` RbjbjqPqPP::' 8$, "`LL"nnn !!!!!!$m$h&Z!!!nn4!nn^n@n@ dA pj:$!0 "/'v/'/'!!P^ "D, ,   :NcRbVsNTm9TvYNSU\ cؚR\t^%{QeP^4ls^ 2000t^ 1uQN0SV[SU\RYXTO0Ye0"?e0SkSu0SV[(ϑb/gvcw@\TSV[{]N@\I{7Y@\TT/TR[eNV[ f[un(uvYR 013t^eg Ǐ:_S[ O_[0R:_vcw{tTcGSvYn(ϑ[hQ4ls^I{N|Rce f[un(uvYNe0R g0NW^0RaNG c^V Neib'Y0vMR es^GWO^f[un(uvY1800NNN N R^f[un(uvYvYn:yW0W165[0 f[un(uvYR vz)R_U\ [9eUTcؚ-N\f[u%{QeP^4ls^0OۏbVsNTm9TvYNSU\w0RNyg\O(u0 vMR [e f[un(uvYR vb_RSuNevSS _{teTRevQ]\Oe_el0N/fbVckekeQ^sNvYNe6k [rvYt^Nϑ0R3744N(T sNTm9c~X0N/f2011t^VRb/TRNQQgINRYef[u%{Q9eUR ]fnx\[rvY\O:Nf[u%{Q9eUvߘTKNN f[u%{Q9eU]\O]~_0RT~?e^ThQ>yOvؚ^͑ƉTsQl0 N/fߘT[hQ0sNTv{I{ebvl_lĉeePhQ bVߘT[hQO4ls^>fWcؚ0V/f-N.Y[lS?e^LcQNeBl0St^9gNSmNf[un(uvYuNONDbd>@prt<NP^dٌٰٞwwwgZgZgZJZJZh~Nh CJ OJQJaJ o(h CJ OJQJaJ o(h@h CJ OJQJaJ o((hhWHB*CJ OJ^JaJ o(ph"hWHB*CJ OJ^JaJ o(ph"hJ`B*CJ OJ^JaJ o(ph"hB*CJ OJ^JaJ o(ph(haK\hWHB*CJ OJ^JaJ o(phU(h@hWHB*CJ OJ^JaJ o(ph"h$B*CJ OJ^JaJ o(ph:NۏNeklS?e^L EQR)R(u^:W:g6RTO`>yORϑ ~xvz [ f[un(uvYR ]\OcQY Na0 N0\ f[un(uvYR c^]\OteSOyN~-NVvYNOSO0-NVvYNOSO^ cgqߘT[hQ0vYN{tI{vsQl_lĉBl 6R[vsQc^T{tRl ~~cۏ f[un(uvYR v[e0 N0df[un(uvYREOS\~SvQRlQ[ S g[e f[un(uvYR v gsQĉz6R^ꁨR^bk0 N0f[un(uvY\O:NN,sN6RT ~N~eQvsQL蕄vuNT(ϑv{ nxOf[un(uvYNTv(ϑ[hQ0 T0WT~ f[un(uvYR ;N{ ^ cgqN NaBl ~T,g0W[E w/{_=[06R[vsQ?eV{ ǑSS_ce ZP}Y f[un(uvYR ]\OtegvTy]\O MQ[f[u%{Q9eU]\OTONuN~%I{Nu Noq_T0R[R:_[f[un(uvYvuN0R]0.U0n(uI{sQ.svvcwv{ \g~Qsv{wzz0[vMRck(W_U\v f[un(uvYR gsQ]\O ^ cgqBl[b v^ZP}YvsQTc]\O O f[un(uvYR ]\O3zY g^_U\0     PAGE   PAGE 1 d.0RVtxz|ȶ~x~xtkhBQ0JCJo(hBQ hBQ0JjhBQ0JUht8jht8Uh@H4h@H4CJOJQJaJo("h B*CJ OJ^JaJ o(ph"h*B*CJ OJ^JaJ o(phhCJ OJQJaJ o(hCJ OJQJaJ o(h CJ OJQJaJ o(h~Nh CJ OJQJaJ o(& DdlWD`Dgd* $hh]h`ha$ hh]h`h &`#$gdWHɹh@H4h@H4CJOJQJaJo(hsht8hBQhBQ0JCJo(h"0JCJmHnHuhBQ0JCJjhBQ0JCJU N00 &P 0p1E2PP/R(:pMA. A!"#$%S R@R cke$d1$9DH$a$CJPJ_HmH nHsH tH$A@$ ؞k=W[SOFiF nfhXa> :_"5@CJOJPJQJnHtHunBrn ckee,g2$dz&#$+D/0$9DH$a$B*CJzKHPJRH2phrr P_.Q%n?MA6{BGCSEWHfIj0K\ L3MbgMy9N=PBQ:LQU_Q>RS*U-nVQW_Zv]Y_maXbYVf~>gj(+msp"l ,^c!Ny`A*uP *66Hht8]bPAs UyI?&$NSnx3=B^7Xuj |*o$NJ`YNRvz(?NBCMEFGHIJKLO_PQR`TUVWXYZ[\]^cdefghijklmnopqrstuvwxyz{|}~Root Entry FdAA'Data 1Table/'WordDocumentPSummaryInformation(,DocumentSummaryInformation84MacrosdAdAVBA dAdAdir __SRP_0 D__SRP_1?__SRP_2    !#$%&'()*+,-./0123456789:<=?@ABCDEFHIJKLMNOPQRSTUVWXYZ[\^_`abcdefghijklmnopqrstuvwxyz{|}~0* pHdProjectQ(@= l pHS J< rstdole>stdoleP h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\system32\e2.tlb#OLE Automation`nMSFor ms> MSFFrmHs3ED452EE1-E08F-101A-8-02608C4D0BB4EFM20.DLL#MicrosPoft : ^ Ob Libr@ary/;D1?u00}#0#kh0AFFCB49B3-7795-409A-917B-286F81259E0A6DOCUME~1\hgx\LOCALSTemp\VBE\DS.exd: .E .`M ÉOfficĉOf@ic5‰ A02DF8D04C-5BFAgB-BDE5HAA42H0@gram Files\Co0mmonGgShared\OFFICE115Oo& 8.0 p@%0NalNĕa  8*\C lotu ltu" @jG{1CF542E0-D988-1-B48A@805F98FACE}#6BD:\LA\Notes8\n3d e Classes @BbxThisDocumentGT`yi D`c`m6n*2` H1e",`"%"+)NewMamGNwMa@Hrs2/-f!be%Ev!'M@oduleG>ETvd!C@Aa`$soueqN2 ob%%(*a&Use*r!1c&Uerf1d&c&fm&arU~~~~~u      y  ) (App  8 aHDocCancel PropertyNamemyRevQrU 0a ) Q #8y K*y *\CNormalrU~~~~~~~~~~~~~~~~~~E QX#|D@y a  I q a   ) Y 1 I a y a  1   X֤M/g  ThisDocument NewMacrosEventClassModule UserForm1ProjectF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA i  F5C:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLBWord a0FC:\WINDOWS\system32\stdole2.tlbstdoleApp q.E .`M C:\WINDOWS\system32\FM20.DLLMSForms aaIw@{(o% -C:\DOCUME~1\hgx\LOCALS~1\Temp\VBE\MSForms.exd AaiL-[DR?C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLLOffice )QB_D:\Lotus\Notes8\notes32.tlblotus H44 Iqk F>FܛLbΜrne uKƑlB0pI7HĿ FDocumentDocument_Close Document_Openformat D4+=h8+3q NqR*=h8+3qJ OC)'!, F!=h8+3qClassPgv3+3o VBInternal  p FApp_DocumentBeforeClose r`CloseDocTDFilePrintPreview ClosePreviewGetCustomDocumentProperties ViewFinal ShowRevisions HideRevisionsshowisRevOKhideDRXGDocClose queryclose  >f:yO HideRevisions F Fa AFWordEnve Ff F ViewCaoGao autosofta( Count itemName Value Fb F F Temp over CreateCaoGao EditCaoGao EditTemplate UPDATEDOC fldQxxxFileName temp \ $notes.notessession 4elR^Notes[a,[ňNOTES[7bzoN! /f&TOX[[eNvO9e OAK For Notes fldQXXXserver fldQXXXDBPath fldQXXXDBNameGETDATABASE elSb_hQo`Oo`penc^[ ],NOAK{tXTT|! fldQXXXID "GETDOCUMENTBYUNID vwQXXXByUNIDGETVIEW 8]vƉVvwQXXXByUNID,NOAK{tXTT|!  GETDOCUMENTBYKEY ,elSb_hQo`Oo`ech,NOAK{tXTT|! fldQxxxItemNameGETFIRSTITEM $CREATERICHTEXTITEMEMBEDDEDOBJECTS RemoveEMBEDOBJECT flditemNameflag 1  REPLACEITEMVALUESavel FVBE6.DLL   8   X  r x  S   . U`@<  EyX$ l x  $(x 4 8ArU H4__SRP_3__SRP_4 "$__SRP_5;__SRP_6 S`(!# @4nrU `  a  Q 9a a8 a) `` I[W0   L"Cxx #t02xt'''''0'P'p''''''0'P'p''''''0'P'p''''''0'Pp! p p6>P0pP0pP0pP0'p$ Qp[4$ $ 'xp! p lx /xp2 x:` NPPp$ 4p  0  ,>x1)p5P l0?'':`NPPc0p$ 4p Hp6P0E*p$ 4p <lp&):`NPPp$ 4p p5Pp$ 4p pL($xtpP0pP0pP0pP0 x$ Qxtt t 0t t 8t t t (t @t Dt <ct*px! x p p)xp (txp88HrU D$`$A` $`nrU $`$`$rU~|  ?a )Aa9)A ai9q ayI   !i1i) y a Yq0  0 @  0  T 1lp$ 4p 0lW\Upv)pl5\ kvICxZkvcVMZ@lp$ 4p 0l\A$ F4]3)pl6\$EZ@lp$ 4p 0l\A$`1x)pl6\$ ZdV[Cxh (x pl\$0 P  0   0   0   0   0   0 0  0   |XKj8<:P N@@`d$ 4d ` 0 < , >8F( : ]3)d`<6@(d$ 4d d7'('@`d$ d 8` )d`6@(pzd$ d d*d$ 4d <ldA):PN@@d$ 4d d5@8<:PN@@`d$ 4d ` 0 < , >81)d`<5@ l0#l0l0l0 l0N8<:PN@@`d$ 4d ` 0 < , >81)d`<5@h:PN@@ #8*#l*F( d$ 4d >F]@28d6@((N8<:P N@@`d$ 4d ` 0 < , >81)d`<5@H <:P N@@`d$ 4d ` 0 < 0 )d`<5@d$ 4d dHl<:P N@@`d$ 4d ` 0 < 0 )d`<5@:PN@@ 1'@'`'''''' '@'`''''>#8*#l*F(d$ 4d 28d6 @(`@ `@/:N((:PN@@  hN6@(hqc+'''(:PN@@ 6@(;'': N((:P!N@@^i6@(P]3+P]3)pzd$ 4d d""C88 ##$028:'' '@'`'''''' '@'`'''@'`'''''' '@'`'''''('@%d$ d d6>@(`@ `@`@ `@ /:N((:PN@@  hN6@(c8<:P&N@@`d$ 4d ` 0 < , >8F%:'N(($ 4  0  , l:(N$ 4  0  , l*F%hB)N2)d`<6 @(qc'''*8<:P'N@@`d$ 4d ` 0 < , l8*#:(N(($ 4  0  , l*#+*F 28) d`<6 @(V8<:PN@@`d$ 4d ` 0 < , l80/8)d`<5@c8<:P,N@@`d$ 4d ` 0 < , >8F(%B- N)d`<6@(z :P.%B@/0N0qc '''*8<:P'N@@`d$ 4d ` 0 < , l8*#:(N(($ 4  0  , l*#0*F 28) d`<6 @(g8<:P,N@@`d$ 4d ` 0 < , >8F(%c%0B1 N)d`<6@( qcx +'''(:P2N@@ 6@(c8<:P3N@@`d$ 4d ` 0 < , >8F(% B4N)d`<6@(qcP c8<:P3N@@`d$ 4d ` 0 < , >8F(% B5N)d`<6@( gPA@6 7 A@6 8  *d$ 4d <ld ):PN@@d$ 4d d5@G8d$ 4d l8l*#28d` H <:P N@@`d$ 4d ` 0 < 0 )d`<5@H<:PN@@`d$ 4d ` 0 < 0 )d`<5@d$ 4d dd$ 4d dK(P%:%8d$ 4d >8F@%@B(9Nd5@H <:P N@@`d$ 4d ` 0 < 0 )d`<5@H<:PN@@`d$ 4d ` 0 < 0 )d`<5@d$ 4d dd$ 4d dU(%:%:PN@@ #8*#l*F(%@B9N286@(d8<:P:N@@`d$ 4d ` 0 < , >8F(%:;% <)d`<6@(cP%f% =H<:PN@@`d$ 4d ` 0 < 0 )d`<5@H <:P N@@`d$ 4d ` 0 < 0 )d`<5@d$ 4d d9`d$ d ,` >l)d`-''('@d$ d d6@(Q7'('@`d$ d 8` )d`6@(Xd L 0h,8d`<@(`@ `@`@ `@      /__SRP_7>5NewMacrosb\UserForm1GwThisDocument`(`90$!`$I`$q`$`(`a/$ `$ `$9 `$a `n07bH bfxMEH@<> LLLLLLLL`Z ` a D ` h``" % `##```` %`` ` ,, h% %+`  i  0 ` ""  ` `  ` +" ` k `h ```l0 ` P ` `"8 `$ `&  @P0rX% @P0 @P0 @P0 @P0 @P0 8 0 `&x H 0 @@ p @l @ \ @X X p 0  @V X @ D @4 @ $ @ X hX X (  X  `"z( 0(F@(z@ d (@@ ` @ P @p @ @< @ 8 @ ( @  @p  @@ @ @  @(  @p @ @ @ @ @ @ @ p @ ` @0 P @H @ @` 0 @x @  @ @ @ @ @ @  @8 @P @h @p @` (@P @@  ,~.&>@* @ @( @@ @X @p @p @` @P @@ @0 @ @ @0 @H @` @x @ @ @ @ @ @p @ ` @8P @P@ p@h0 @ @@ @ @ @ @ @ `h@0 @H @ @ `@@  @ d@ do@0 Hd`@ p0d@o XdXf 0pHS$*\Rffff*0=53df4870*\R1*#c5*\R0*#13*\R0*#2*\R0*#1*\R0*#146*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#..\..\..\..\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*#14*\R1*#91*\R1*#166*\R1*#d0*\R1*#c04*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#..\..\..\..\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*#f*\R1*#cc*\R1*#cd*\R1*#c6*\R1*#c1*\R1*#17b " "   F( Rp  20 @X ` "p$ " ( 8X` hx    "    D R *p     $  $Hp       B  (10 @PX`h ME     "    " (08@H,P"    0 (@ h"x("   @HPX`hp,x  "  (  0  FP "        (    ( 0 @ H P " X ` h p x                (  8  H P  X $h                8 @ H P  p x   B          "     (  8 H P X  p           (8HX `hp " *   " (0 B8@ H(jP  x7   " *)N 8 H` h6&x &N.h H NP Hp  H 2 (&/0 X 2+h  :;     ( 8 @PX` "h  &/  r X h   0V ,cHx  H P .gX 2+ 2c   2c0h p x    *)G H8 *HX   $K H *H ( 8 8UH2d  HH 09@ -Xh7p A"oh@xX@ڹڷⷢʽļ"ӡԤ"ʱŵǷӡͷKIf ActiveDocument.CustomDocumentProperties("״̬").Value <> "ʽļ" Then%2 GoTo EverythingOKrosEnd Ifar Ƿӡͷ? | WebOffice:$z ~icr 0!> @autosoft 0B@Bk j!l(iλͷļڵǩ  fldWenTou B@Selection.Font.Hidden = True$@ !( j!l( F( 0!> @ <autosoft 0B@6kd F(kxxp !A@z|XP'o@x0>ƹڷⷢʽļ"ӡԤ"ʱŵǷӡͷKIf ActiveDocument.CustomDocumentProperties("״̬").Value <> "ʽļ" Then# ActiveDocument.ClosePrintPreview GoTo EverythingOKEnd If 0!> @autosoft 0B@Bk 0B@Wx j!l(  fldWenTou B@Selection.Font.Hidden = False$@ !( j!l( F( 0!> @ <autosoft 0B@6kx !A@z|o]  0!!' '&d]8    0!%!   0!%!4'&z8k0('&kiP j!l9 9qox]]]״̬ 0%!4ʾ޶G|j 0!> @autosoft 0B@BkPautosoft8 l 0B@6 (!' 0(D   B@A 0(D 0(! ActiveWindow.view.ShowAll = True  ((ʾ޶״̬ 0%(4autosoft 0B@Bautosoft8: <l 0B@6x !A@z|o  On Error Resume Next]`]x]]]]]״̬ 0%!4ʾ޶G|j 0!> @autosoft 0B@Bk(A 0(D 0(޶״̬ 0%(4 AFWordEnv 0%2!4 EditCaoGaoK EditGaoZhiK CreateFaWenK CreateGaoZhiKTautosoft8 l 0B@6 (!.X AkSautosoft8: <l 0B@6n !A@z|o']P]pb  .kX !.  ' x k autosoftxk $ B@ B@k !' autosoft !  ! ! !.0k(k  !l B@autosoft ((   B@kk ,  ѭxkxop`' !k@z80'i '   B@b  ' !. xk $ B@ B@hk` !' autosoft $ $ !!B@kd !l !B@H  !( !(  !(kk ,  ѭxhk`XoP0]p޸? (!$ '   ((koA"ox]Temp 0%2!4$over 0( (!jB@B'"zXkP F( ҳãҳüҳ 0!> @autosoft 0B@Bk AFWordEnv 0%2!4鿴ĵ ViewCaoGaoKTĵ CreateCaoGaoK EditCaoGaoK EditTemplateKT H UPDATEDOCKTĵ ] fldQxxxFileName 0%2!4'temp$ \ $ 0!]8Temp 0%2!4'overTemp 0%2(4 0B@ Temp 0%2(4temp$ \   0B@k]P]h]]]]notes.notessession$(. (޷Notes,밲װNOTESͻ!A@zX kP Ƿ񱣴ļ޸ģ , OAK For Notes$z'* * ~queryclose = 0 d * .'" 0B@z k k ״̬$&ʾ޶ HideRevisions (B@*notes.notessession$(.k( .& fldQXXXserver 0%2!4 fldQXXXDBPath 0%2!4 fldQXXXDBName 0%2!4 %0.& &޷ȫϢϢݿ[ fldQXXXDBPath 0%2!4 fldQXXXDBName 0%2!4],OAKԱϵ!A@z k ȫϢϢݿ AFWordEnv 0%2!4 EditTemplate fldQXXXID 0%2!4 &%2. d vwQXXXByUNID &%4.l l޷ȫϢϢݿ[ fldQXXXDBPath 0%2!4 fldQXXXDBName 0%2!4&]ͼvwQXXXByUNID,OAKԱϵ!A@z k fldQXXXID 0%2!4 l%6.  '޷ȫϢϢĵ,OAKԱϵ!A@z( k k fldQxxxItemName 0%2!4 %8. fldQxxxItemName 0%2!4 %:.k '" !<'" ɾļ "$> @ !< @BB @k 0!> @autosoft 0B@Bk 0!\  overTemp 0%2(4 ViewCaoGao AFWordEnv 0%2(4 0(D 0B@ 0!  %F.@d(overTemp 0%2(4 ViewCaoGao AFWordEnv 0%2(4 0(D 0B@temp$ \   %F.@kxflditemNameflag 0%2!41 BH Bn( x AFWordEnv 0%2(4overTemp 0%2(4 0( (!J! (B@Ld (!jB@BkxiphAttribute VB_Name = "NewMacros" Sub CloseDoc() Call querycX End JTTDFilePrintPrevi ewhl On Error GoToHan0dlerf 'ڹڷⷢʽļ"ӡԤ"ʱŵǷ f'If Activument.Cu0stomProperties("״̬").Value <> "7" Th\en(NYv{thingOK ~ Ifa=MsgBox("N?", vbYesNo, "WebOffice:")vbNoO6`YtejonTypTwdNo "Unpro! ("autosoft"t 2 7AWindow.t@.ShowA= TrueG 'λAcAlڵǩ ؇ Se l2.BUWhat:=wdBookmark, :="fldWenTou@&'FowHiddenRK#L Col= RGB(2585, A:Fals:Options.ºDrawAbj6s@" t<= s~ @bowOnlyFormFields,fFzG_ zE_F+7%c b8E*crr{:b~.De0scri'cExitC D[Qي?!{6v݇0, 0D( [k?5|QeB _& }>>aR>tt>?n Funn Get{{0 |ByAs Sng) sDim iAInteg{Q&iD<.Count40wo Vp"kVq j~ \ jp1 iq1<o d item(j).= 獅qo i o`.u"N Ar )CNext  +3cVЩ FinalrWithtGBR saAndComs~ .f!`wdBA a/@m~  ϳl-  1strAuthP 1my'e%%%Pπʾ޶s > o(߬߬!,'fU Ϳ Password@VpF sUser3ApplicaM.eQ< ]eHomeKey UniStory,@ten `wdMovsжo(hF x '.BOa Ϗy#_._>/tNoReseh1On /nޯFm)=sGe= ` O:kQ@>Q3dt=DatD1`lwInteger  Dim myRev As A0isionhautosoftString< notes0Va riant2If ActiveDocument.@CustomProperties("״̬").Value <> "ʾ޶" Then Exit SubYKtel onTypAwd|NoE< Unpract ("u")End IfCall` hide!Shows = 0FalsPrint!$= "؂ L pOrrors NexSelM Case krble@gAFWordEnvhB"EditCaoGao", BZhiACreateFaWen !p Passw@!$:=h, A{:=wdAllowOlnl®sC@(Applicat.Ver) > 9 G@F|ViewFinal Ȇ RE~F΁C5NoReset:=True9FormField9A$tGoTo EverythOK Err_Han dler:Ms gBox .DescripA#!?Gn)b Aqq sU^(Dei^0A v B1!%ao While WC '`7i04Set1B Fav F #@a i + 1 Is No)F"&DostrAuth`rwf E#sOK( )`M%Move0RighLeflIn@#B.c'*!G!ARangߣB1p'51.Index"# !j #I'!3D`"BM5n7 &.3 26" UserName gb_ 0AT ""/+ "? !2E > 30( 'ѭ37w Loop`K Funق~ iI/؇)ڍvperrhPSdt- ":) (ϣB FWRqaTQoT HomeKey UniPawdS tory,ptendp1=S DOT_M?Q?Q* O=! OJ8.\H _JF92I Ig4_: Trim(eLStr)IChr(13)_RN.hsj`7 #` ߆ c,Fw?CFo!olor%Vwd`Black.ikeThrough7ֲ;,BU]rlinMwdNoncXJ2JJJo~sJSub D(RXG=Dxg]= InputИ$("޸@?`,O^@^1Jara q A ocCloseB b4quPc1XPub L g(kX+XD  5L8Temp"0rl[S<Saved ('9Window.2Cc,`q Os.Vpirusrҳ ãҳ$1G 5?_T  ActiveDocument.Unprotect ("autosoft")  End I"f,SelCase Variables("AFWordEnv").Valuex'鿴ĵD"ViewCaoGao"qGoTo EverythingOK' ?CreateA, "Edit `Templ#_ `Upd .GUPDATEDOnC;:V Dim filenamex Asp StrZ=fldQxxx:F$N$ 3If@ Trim(iron$("tl") & "\"C3) <>4Full+ ThenM0str/0AZ-Ȋ = "o}^SavW?E1? '@qb:=\, FILEFORMAT:=wdFormat(IAv,|ntG%@i 3vVcurdbVq PSet n`s4GetObj (""`n.sessiEmpty! .EMBEDDBJECTS'ɾ~хG`p( v)OC†Each obj In oiCallp.Rem'NextW- O|yTypewdNoW L_Wo]$> 0uV(erǩ#~Q` 0TrackƍFazQ,W/!=x!O'(14540\lName, filenx) ElsehPActiveDocument.Variables("Temp")"lue = @"over"%xAFWordEnv AViewCaoGaoGTrackRevisio$ns{FaSav Set objitem.EMBEDOBJECT(1454, "", Pir`on$("v & "\" nd IfCall Qxxx.REPLACEITEMVALUE(fldN0flagN1" /u(Tru EISelectKGoTo ElythingOK ErrHandler: *tr ֐ 4dj5)If Appli(cat.s. Count 1 0Then4I Qui?ICWindow.CloGANsFuno @ C2TCeOFܛLbΜrne uKƑlB0pI7HĿx0pI7HĿ>FܛLbΜrnME\ @S"SS"">"LL*LLLLLL <` @autosoft 0B@Bk 0(Dno F J9H N9L R9P N9T X9V N9Z ^9\ b9` N9d h9fq0 p j!l(no|Attribute VB_Name = "ThisDocument" Bas1Normal.VGlobal!SpaclFalse CreatablPre declaIdTru BExposeTemplateDeriv$Custom izC1 Dim X As @New EvClassModulBP)- SuDb _ClF() Call queryc End Open If GetK-Properties("״̬")޶" Then;[Application.Run ("HideRevis9 s"NGIf Set X.WordC %CInt( VerA) > 10! AftSelectLActj=.VariAf=AF&Env")l@ "ViewCaoGao_L@QtAPrw::="autosoft", NoReset:=, Type:=wdAllowOnlyF1@Fields-CEGIS@_ <> wdNo"@M Unpro/(,rDtÄ ShowF=?r0*V \8TWith OpaLd!A.Ins`TedTextMark wdUnderlin`hColor"ByAuthorD Et lSkeThro8ughSZ #ed3n&2No*n edL!s POuts xBUe_i!D  @&oC4omasQsBoonntOri`∣1s`>>v9HC#OWi@ndow.v t.b! wdMixxedNe_VBA_PROJECTEventClassModule"] PROJECTUPROJECTwmay *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020905-0000-0000-C000-000000000046}#8.3#0#C:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLB#Microsoft Word 11.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{FFCB49B3-7795-409A-917B-286F81259E0A}#2.0#0#C:\DOCUME~1\hgx\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M &*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL#Microsoft Office 8.0 Object Library*\CNormal*\CNormalpHS*\G{1CF542E0-D988-11CF-B485-00805F98FACE}#6.0#0#D:\Lotus\Notes8\notes32.tlb#Lotus Notes Automation Classes  pHSbThisDocument0653df4870ThisDocument`0eNewMacros0=53df4870rNewMacrosfH EventClassModule0<53df4870 EventClassModule0bUserForm10;53df4870[UserForm1HhH0=EF.>Ld0D W烏n/&JϚg wIC&t@Uformat Wordk` VBA`Win16~`Win32`Mac`VBA6#` Project-`stdole``MSFormsC`Officeu` Normal` lotus` ThisDocument<` _Evaluate`Xo` EventClassModule`Document_Close7\` (querycloseT` Document_Open`(GetCustomDocumentProperties~` Application*`Run_`Appt`Version`ActiveDocument\` Variablesn`ValueK`Protectf`Password`NoResetg`wdAllowOnlyFormFields!`ProtectionType`wdNoProtection` Unprotect?` (ShowRevisionsu`Options`InsertedTextMarkn`wdInsertedTextMarkUnderline`InsertedTextColorn8` wdByAuthor*``DeletedTextMark`wdDeletedTextMarkStrikeThrough`DeletedTextColor `RevisedPropertiesMark`wdRevisedPropertiesMarkNone`RevisedPropertiesColor`RevisedLinesMark`wdRevisedLinesMarkOutsideBorder|`RevisedLinesColor`wdAutoKV` CommentsColorP` RevisionsBalloonPrintOrientation.`!wdBalloonPrintOrientationPreserve` ActiveWindow+`viewI` RevisionsMode`wdMixedRevisions` NewMacrosj`(CloseDoc `(TDFilePrintPreview` ErrHandler }`MsgBoxR`vbYesNo`vbNo%`ShowAllI` SelectionZ`WhatC`wdGoToBookmarkJ`FontU`Color2F`PrintDrawingObjects` EverythingOK3`Erro` Description ` PrintPreview` (ClosePreviewaw`ClosePrintPreview#` PropertyName`i``CustomDocumentPropertiesޖ`Count0v`ja`itemz` (ViewFinalZ`ShowRevisionsAndCommentsL` RevisionsView`wdRevisionsViewFinal3]` strAuthor`myRev`Revision`wdAllowOnlyRevisionsW2` strUserName͈`UserName\`HomeKey`Unit`wdStory&`Extend?`wdMovez`(show`PrintRevisions` (HideRevisionsi`dt\` intRevCount` autosoftStr`notes`(hide9z` Err_Handlerl`myRev1` NextRevision$`(isRevOKS` MoveRight`MoveLeftv`next1"`Author`Range `Index`TypeText` errhandleZ`next2#`Trim@`ChrK~` Revisions\` RejectAll<)` ColorIndex`wdBlack:` StrikeThrough"` Underline`wdUnderlineNoneP`(DRXG`xgrs`InputBox `(DocClose=`Savedd`VirusProtectionoD` UpdateDoc` filenamex`Environ,`FullNameО`tempstrxL`Save`SaveAsf;`FileNamej` FILEFORMAT` wdFormatDoc`QxxxDocj`vm`curdb`qxxxdb'` GetObjectz`response` vbYesNoCancelq`vbCancel'` GETDATABASE`GETDOCUMENTBYUNID`GETVIEW`GETDOCUMENTBYKEY` GETFIRSTITEMT`CREATERICHTEXTITEMy`EMBEDDEDOBJECTS `IsEmpty `obj`Removeϱ`TrackRevisions` EMBEDOBJECTf`REPLACEITEMVALUEJ` Documents`Quit9`App_DocumentBeforeCloseS`Doc`Documentj`Cancel`Class`DocumentBeforeClose/` UserForm1)`UserFormN` _B_var_TrimmT`_B_str_Environ`_B_var_wdFormatDoc`_B_var_response ` _B_var_objz`s[ H "@OC)'!, NqRME PSS Sa0R6" P(N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}p %*-4@ N`0xkp()Q %iT $%0 %0000%%%% Qx% QxX Qx0 QxxX QxPpF% p2588@X$ Qx"(00H,pHS*\R1*#17c*\R1*#17e$*\Rffff*0<53df4870$*\Rffff*0=53df4870*\R1*#c08<  "   (08 H] "0 "X'TkHo@8sAttribute VB_Name = "EventClassModule"  Bas0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobalSpacAIFalse dCreatablPredeclaIdCExposeTemplateDerivCustomiz EPubli@c Withs App As `Word.ationj .VarHelpIBDZ-1 PCAE Sub$_ DocumBe@foreClc(ByVal 3, Cancel Boolean) If q`ueryc31P TheE = TruEnd If #ID="{B0520F48-EE74-4CE5-8BD7-627681DC13D4}" Document=ThisDocument/&H00000000 Module=NewMacros Class=EventClassModule Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=UserForm1 HelpFile="" Name="Project" HelpContextID="0" VersionCompatible32="393222000" CMG="FEFC1D21E5E1E7E5E7E5E7E5E7E5" DPB="FCFE1F1FE31CE41CE41C" GC="FAF8192516261626E9" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDocument=0, 0, 0, 0, C NewMacros=0, 0, 0, 0, C EventClassModule=0, 0, 0, 0, C UserForm1=0, 0, 0, 0, C, 22, 29, 1114, 497, C ThisDocumentThisDocumentNewMacrosNewMacrosEventClassModuleEventClassModuleUserForm1UserForm1 }t  Microsoft Forms 2.0 Embedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "UserForm1" ClientHeight = 3120 ClientLeft = 45 ClientTop = 435 UserForm1dAdAf&oCompObjaVBFrameCompObjm ClientWidth = 4710 StartUpPosition = 1 ' End   FMicrosoft Office Word ĵ MSWordDocWord.Document.89q