ࡱ> DGChq` RZbjbjqPqPP ::' 8*$N ,v" x+x+x+x+x+x+$.h0X+!+4+dddTnd dd@dj vd8+0,dU1v]3dU193$dd4X++^,   dn    n    DN1 QN萳Q[^bkvĉzTĉ'`eN N0^bkvĉz 1Ğ$nwm0Nwm0WSwm:SnNDnXkOb9_6eO(ufLRl1989t^10g27eQN0V[irN@\N,{9SlQ^ 1997t^12g25eQNN,{39S02001t^12g10eQNN,{5S02011t^12g31eQNN2011t^,{4SO 2Q\OiryP[hXT8h{tRl2005t^2g6eQNN,{49SlQ^ 2013t^12g31eQNN2013t^,{5SO N0^bkvĉ'`eN 1. QNsQNpSS 0QQgƖSODNnN8hD@b gCgLu[fLRl 0vw1998t^8g18eQ~S0199806S 2QN0"?esQNpSS 0QQgƖSODNnN8hDDё8h[T"RYt gsQĉ[ 0vw1998t^9g1eQ~S0199807S 3QN0"?esQNpSS 0QQgƖSODN@b gCg{v{tfLRl 0vw1998t^9g1eQ~S0199808S 4QNsQNpSS 0QQgƖSODNnN8hD]\O gsQvĉ[ 0vw1998t^9g4eQ~S0199809S 5QNlQ[sQN=[QW|~V gONNUSMOL]S[^\^QN7bS?eV{ gsQvw2003 *,.<>@B, 2 4 6 8 z ȴȟ~peWGWesh)CJ OJaJ o(hGCJ OJPJQJaJ o(#h>sh)CJ OJPJQJaJ o((h>sh)B*CJ OJQJaJ o(ph&h],hr0*5CJ,OJPJQJaJ,o(&h],h)5CJ,OJPJQJaJ,o( h],5CJ$OJPJQJaJ$o(#h],h],CJ OJPJQJaJ o( ,.>4 > 2 &fvldhG$WD`lgd? dhG$`gdG lWD`lgd) $ a$gd],$a$gd)gd],LXz  $ < >   0 2 v  $&dfhtvƸ|hH9CJ OJaJ o(hWCJ OJaJ o(UhGCJ OJaJ o(heW'CJ OJaJ o(hGhH9CJ OJaJ o(hGhMmCJ OJaJ o(hGh)CJ OJaJ o(hGCJ OJPJaJ o(h>sh)CJ OJPJaJ o(h?hGCJ OJaJ o(,t^8g29eQWS0200302S 6QN0"?e0RRT>yOO0Ye0yb0^ 0sQN~~[eQQgRRRlyW3IQ] zvw 02004t^3g22eQyYeS0200404S 7QNlQJT,{1196SIyhXT8hRl 2009t^4g24elQ^ 8QN^yvbhhg]\Oĉ[2008t^11g19eQS02008026S 9QNsQN 0teVYQoՋ6e9hQ 0vw1990t^9g19e0900Q()W[,{61S 10sQNyP[(ϑv YQ2002t^5g10eQR~Q0200202S 11QN萞RlQSsQNyP[l gsQag>k(uvQ2006t^1g26eQR?eQ0200608S 12.  HYPERLINK \l "yP[04" sQNu܃Ty[[v YQ2001t^3g9eQRQ0200108S     PAGE   PAGE 1 vxz|~  $&(,õÉõ{meaeaeaeaWQWQMhnm hnm0Jjhnm0JUh![jh![Uh?hECJ OJaJ o(h*Dh?CJ OJaJ o(+hEhE0J>*B*CJ OJaJ o(ph*jhEhECJ OJUaJ o(hEhECJ OJaJ o($jhEhECJ OJUaJ o($hEhEB*CJ OJaJ o(phhWCJ OJaJ o(hECJ OJaJ o( (*,FHJLNPRTV $hh]h`ha$ hh]h`h&`#$ dhG$`gdGldhG$WD`lgdE,.0<>@BFJLVXZɻhEhECJ OJaJ o(hsh![hnmheW'0JCJmHnHuhnm0JCJjhnm0JCJUhnm0JCJo( VXZ dhG$`gdGN00 &P 0p1E2PP/R(:pP. A!n"n#$n%S kDyK yP[04t~lȂh~t~lȂh~t~lȂh~t~lȂh~t~lȂh~t~lȂh~t~lȂh~t~lȂh~t~lȂh~t~lȂh~t~lȂh~t~lȂh~t~lȂh~t~lȂh~t~lȂh~t~lȂh~t~lȂh~t~lȂh~t~lȂh~t~lȂh~R@R cke$d1$9DH$a$CJPJ_HmH nHsH tH$A@$ ؞k=W[SOFi@F nfhX@a> :_"5@CJOJPJQJnHtHunB@rn ckee,g2$dz&#$+D/0$9DH$a$B*CJzKHPJ RH2phrr P_.Q*B*ph _b ;}~0000000000000000000@0I00@0I00@0I00@0I00@0@0@0@0@0@08I00l 000000}_b ;}~00000000000000000000|X j0p@pZ0p 00&j0p(q'0} &&&)z v,Z VZ X?WeX !)!!@  @H 0(  0( "  B S  ?z$ z z z$ z z$ z z z z zl zl z, z z, zzz=XlIJ{#g     HcwRT-p ;*urn:schemas-microsoft-com:office:smarttagschsdate ,((1101112181919891990199719982200120022003200420052006200820092011201322242526272933145689DayFalse IsLunarDate IsROCDateMonthYear%#$#"&'%#$#"&'%#$#"&' %#$#"&'%#$#"& '%#$#"&'' & "$#%#' &!"$#%#' &!"$#%#' &!"$#%#' & "$#%#%#$#"&'%#$#"&'%#$#"&'%#$#"&!'%#$#"&' %#$#"&'' &"!$#%#XeUX33&pyD9fqF5l Sa   ) K 5<Lr@4f)(;l .%!![P"%(#<$M$T}$ ''eW'j7(;(*<(r0* "+],D.P_.3T6u6m7E9H919 @9/z;q@>%n?6{B+D,ESEfI\ L3MbgMy9NzN:LQU_Q>RS*UeV-nVWQW[X_Z8oZ![v]Y_maYVf~>g?@ABEFUIJTLMNOPQRSVfWXYg[\]^_`abcdejklmnopqrstuvwxyz{|}~Root Entry F!H&Data 1Table]3WordDocumentP SummaryInformation(3DocumentSummaryInformation8;MacrosVBA dir __SRP_0 K__SRP_1?__SRP_2    !#$%&'()*+,-./0123456789:<=?@ABCDEFHIJKLMNOPQRSTUVWXYZ[]^_`abcdefghijklmnopqrstuvwxyz{|}~0* pHdProjectQ(@= l N 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#kh0A810AB8EC-0794-4ABD-8F17-8C61B0D2B61A6DOCUME~1\Owner\LOCALSTemp\VBE\S.exd`;!.E .`M COffDicDOf@icB 02DF8D04C -5BFAgB-BDE5@IAA@420gram Files\CommongShared\OFFICE115OLp& 8.0p@%0NalNDa  *\C lot*u ltu jG{1CF542E0-D988-B1-B48A@805F98FACE}#6‰D:\LA\Notesh8\n3d e Class,es @"bxThisDocumentGTyi D`c`m6n2` (H1EX",`""+) NewManG NwMa@Hrs&2/D/f!b%Ev!'ModuleGQ>Evd!C@AaU`$soueq2 o`i%%(*a&Usera1c&Uer1d&c&Q@arU~~~~~u      y  ) (App  8 aHDocCancel PropertyNamemyRevQrU 0a ) Q #8y K*y *\CNormalrU~~~~~~~~~~~~~~~~~~E Q"n IĐw a  I q a   ) Y 1 I a y a  1   XK6@qX ?  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 aa JaҶ /C:\DOCUME~1\Owner\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 FA8EA.Չ^6MOizzy^JOۡ_ FDocumentDocument_Close Document_Openformat D4+=h8+3qxedXIF.fV*=h8+3qX8RA ߓ 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 Z`(!# @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>5NewMacrosiXUserForm1G7ThisDocument`(`90$!`$I`$q`$`(`a/$ `$ `$9 `$a `nKblD bfxMEH@<> LLLLLLLL`Z ` a D ` h``" % `##```` %`` ` ,, h% %+`  i  0 ` ""  ` `  ` +" `k `h ```l0 ` P ` `"8 `$P `&  @P0rX% @P0 8X@Xp`&xX 0 @@p @l @p\ @X 0 @V @XD @4 @$ @  h   X0P p h `"zx P 0(F@(z@ d (@ ` @` P @0 @ @p< @ 8 @H ( @x  @0  @ @ @ H @  @ @x @ @H @` @ @ @ p @ ` @ P @ @ @ 0 @8 @P  @h @ @ @ @ @ @ @ @( @@ p @X ` @ P @ @  ,~.&> @* @ @ @ @ @0 @Hp @`` @xP @@ @0 @ @ @ @ @  @8 @P @h @ @ @ @p @` @P @@ @(0 @@ @ @X @ @ @ @ (@ @ @ @ @@  @ p0d@ Xd@ dd@ @o dfh 0hN$*\Rffff*0=4e89931f*\R1*#c5*\R0*#13*\R0*#2*\R0*#1*\R0*#14*\R0*#14*\R1*#91*\R1*#166*\R1*#d0*\R1*#c0*\R0*#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 @ C2TCeO"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"\1 PROJECTOPROJECTwmay *\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{810AB8EC-0794-4ABD-8F17-8C61B0D2B61A}#2.0#0#C:\DOCUME~1\Owner\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*\CNormalN*\G{1CF542E0-D988-11CF-B485-00805F98FACE}#6.0#0#D:\Lotus\Notes8\notes32.tlb#Lotus Notes Automation Classes  NbThisDocument064e89931fThisDocument`0ENewMacros0=4e89931frNewMacrosfD EventClassModule0<4e89931f EventClassModule0UserForm10;4e89931f[UserForm1HQhH0=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 "@ PSS Sa0R6" P(N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}@0 %*-4@ N`xkp()Q %iT $%0 %0`@$ ) Qx%"XPX@hX QxPpF% X800H,0N*\R1*#17c*\R1*#17e$*\Rffff*0<4e89931f$*\Rffff*0=4e89931f*\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="{574E9BE0-3FBA-4740-9D26-E5A022BF0566}" Document=ThisDocument/&H00000000 Module=NewMacros Class=EventClassModule Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=UserForm1 HelpFile="" Name="Project" HelpContextID="0" VersionCompatible32="393222000" CMG="0B09D2625666566656665666" DPB="8B8952E2D3E3D3E3D3" GC="0B09D26253635363AC" [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, 1070, 627, C ThisDocumentThisDocumentNewMacrosNewMacrosEventClassModuleEventClassModuleUserForm1UserForm1 }t  Microsoft Forms 2.0 EmbUserForm1f&oCompObjaedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "UserForm1" ClientHeight = 3120 ClientLeft = 45 ClientTop = 435 ClientWidth = 4710 StartUpPosition = 1 ' End   FMicrosoft Office Word ĵ MSWordDocWord.Document.89qVBFrameCompObjm