ࡱ> UXT{ R-bjbj_B}} )+++8cl$+9,"~yL(O&`+`+`+`+`+`+$.1+!{^{{++4"""{#|"{O&"""x7Ԋ+ !"#+`9,"%2!%2""%2"0""?[ ++)"X9,{{{{%2 :  %`N Vn]^"?e@\eN Vn"gb020180300S Vn"gb  Vn]^"?e@\sQNۏNekR:_^~{USMO lQRaS{tvw ^~T{USMO ^~V^Ɩ-N/eNTNtL hQb[LlQRaS6R^ /fZQ-N.Y0VRb:N%N"~~_0Nn4Y N2TltP% ǑSvNy͑ce [NmST[UV^Ɩ-N/eN6R^9ei ĉ"?e"R{t cؚlQR/eQf^ R:_ZQΘ^?e^I{wQ g͑aIN0яt^eg ^~蕌TUSMOygcۏlQRaS6R^ [elQRaS~{vUSMOTDёV Neib'Y lQRaSSaSϑ0lQRm97RaSst^cGS lQRaS~{fNsё/eN0ĉlQR/eQv?eV{He^ Ne>fs0FORUSMO(WlQRaSO(uT{tǏ z-N _N؏X[(W:_6R~{vU_gbL N%N0SaSb N^0eaSS(u0 gaS N(uSsё/eQϑ'YI{ q_TNlQRaS6R^9eivteSOHeg09hnc^Y0^?e^sQN%NkNR0 N0ĉlQRaSe8^{t ^~{USMO*NNlQRaSN_Ǒ(uS:N 628 _4Yv^wQ g Ym_llQRaS hvThQO(uaS SaSL^S_:N,gUSMOYO&7b_7bL0{USMO"R蕁yg~~,gUSMOl glQRaSv(WLNXT3uRlQRaS v^NSaSL~{ gROS]~{OSvdY fnxSevCg)RNINR0{USMO(WLNXTXQSSe ^Se~~RtlQRaSv3ublKb~ v^~b0RlQRaSoN|~0TNtL cgqN{USMO@b~{v gROS wZP}YlQRaSSaS0(uaS06eUS0؏>k0aS0~I{ gR]\O MT{USMOR[R:_lQRaSOo`[hQ{t0(uaSWTc[]\O gHe2TQ\lQRaSΘiNNSu,SeQnx0WTcaSNT{USMOcO@bvlQRaSm9Oo`0 N0%NkgPQ ǏUSMOYO&7bO(ucCg/eNe_l&RtlQRaS؏>kKb~0[Vel7RaSI{yrk`Q_{Nsё/eNvlQRm9>ky USMO"R蕡[8hT _N^\b>kyReQlQRaS NQO(usё~{0[ݏSlQRaS{tĉ[ gaS N(ub NcOelO(ulQRaS~{fPgev USMO"RS NNb[ N?aRtlQRaSv(WLNXT "&BDLNͫeNe1$h`CJ OJPJQJo(8hhf0CJ OJPJQJcHdhdhdhko(,Hhkhf0hf0CJ OJPJQJo(8h`hf0CJ OJPJQJcHdhdhdhko(h`OJPJo(?hf0h5B*CJFOJPJo(phk*5OJPJBhf0h5<B*CJFOJPJo(phk*5OJPJh`CJ OJPJo(4h' h9CJ OJPJcHdhdhdhPl'o(h`5CJ OJPJo(   "NRVXljje_ee "$a$nkd$$Ifl"( t0644 lap ytB $$Ifa$gdB $VDY^a$ $^`a$ NPRTX~ҽcL14hf0hCJOJPJaJo(k*CJ aJ ,hf0h`OJPJo(k*CJ aJ Bhf0h`5CJ$OJQJaJ$o(k*5CJ,OJPJaJ,*Hhkhf0CJ,OJPJQJaJ,o(Bhf0h5CJ$OJQJaJ$o(k*5CJ,OJPJaJ,)Hhkhf05CJ$OJQJaJ$o(h`5CJ$OJQJaJ$o(h`OJPJo()jh`<CJOJPJUmHnHu X2 N LdX"v"$$ ','((,+pdWD`pgdf0okd&dHdWD`Hgdf0okd&pd`p$a$gdf0okd&dgdf0okd&d$a$2 N 彩fR74Hhgkghf0hxCJ KHOJPJQJaJ o('h9hCJ KHOJPJQJaJ o(4HhRkgh9hl>CJ KHOJPJQJaJ o('h' hCJ KHOJPJQJaJ o('h' hCJ KHOJPJQJaJ o('hzxhCJ KHOJPJQJaJ o(Ohf0h`hV<CJOJPJcHdhdhdhko(k*CJ aJ 4hf0h`CJOJPJaJo(k*CJ aJ    ( F LիiNiN$NShf0hhxCJ KHOJPJQJaJ cHdhdhdhhkgo(k*4hf0hCJ KHOJPJQJaJ o(k*AHhhkghf0hxCJ KHOJPJQJaJ o(k*AHhgkghf0hxCJ KHOJPJQJaJ o(k*Shf0hhxCJ KHOJPJQJaJ cHdhdhdhgkgo(k*Shf0hhl>CJ KHOJPJQJaJ cHdhdhdhSkgo(k* Ld"V"X"ʠkWCACIhf0hB*CJ KHOJPJQJ^JaJ o(phk*OJPJU'h' hCJ KHOJPJQJaJ o('hzxhCJ KHOJPJQJaJ o(@hf0hCJ KHOJPJQJaJ o(k*OJPJQJ'hzxhCJ KHOJPJQJaJ o(Rhf0hB*CJ KHOJPJQJ^JaJ o(phk*B*QJ^Jph4hf0hCJ KHOJPJQJaJ o(k*4hf0hCJ KHOJPJQJaJ o(k* SR N N_bblQR/eQNy USMO"R N_bvQ^\NlQRaS:_6R~{vU_vlQRm90 V0ۏNek9eUlQRaSO(usX NtLۏNekOSlQRaS gRe_0StsX 'YRR:_,g0WvU_FU7bc^R^TPOS:gwQv^R^0yg_U\N,{ Ne/eNs^Sv[c]\O ۏNekbU\T[UlQRaS kbx/eN R ib'YQ N/eNvNTQ5uFUvV :N{USMOTlQRaScaSNcOOwc0[hQ0ؚHev(uaSsX0^z[UlQRaSO(uoR:g6R ǑS gHev%ce OSlQRaSRtNO(uvvsQ gR cؚ{USMO(WLNXTRaSN(uaSvyg'`0lQRaScaSN^S_EQR)R(u}YNTQ/eNvOR ;NRZP}YlQRaSN,{ Ne/eNs^Sv~[]\O ygǑ(u,{ Ne/eNۏLlQRaSm9 NecؚlQRaSO(us0 N0R[R:_sё/eQ{t {USMO^%Nk yrk`QnxP>kv ^~USMO[ybQ TaT \P>kDёReQ*NNlQRaS&7b N_Nsё/eN0T{USMO^S_%NkzN'`X[>ee ReQ gR4ls^ ċRchP[yNNcbR `Q%N͑vvSmvQV^Ɩ-N/eNNRNtD3\`?/[G\!-Rk.sԻ..a濭?PK!֧6 _rels/.relsj0 }Q%v/C/}(h"O = C?hv=Ʌ%[xp{۵_Pѣ<1H0ORBdJE4b$q_6LR7`0̞O,En7Lib/SeеPK!kytheme/theme/themeManager.xml M @}w7c(EbˮCAǠҟ7՛K Y, e.|,H,lxɴIsQ}#Ր ֵ+!,^$j=GW)E+& 8PK!mQtheme/theme/theme1.xmlYMoE#F{oc'vGuرhF[x=ޝzvg53NjHHzZ $ʯI)*E_N&IA!>Ǽ3xN>UWL0Č߫߿z}rx{h9T8T/χ?xY'~3S~O_|w)ӈHt=a+d NG1-RlƁ1RJwT蠯M1K"o he˓ێ½PL-|%EhY7'qP.\L=dqķ3Iofi.ñBRb-JP_pG ݢiKtdӌhFio7;7Q2ȾD>a/Q>XW ˔M_uHq)h +:Viw4rBqϫ"r!2laCbU|!8^8>ܠ,AбVt׎~ls14_=,ɬožTV G"ѦbH'.4x޵w-ϷE|F;v`b3"G 'e\fHO '$i_wp >*8i&LY%\,xҕ= r6f 3Tʅ):ªZKLs&C Mܛ0 [˫p@ע`j۽7 YHxHicT5Ar@HZAZC}i' RQ\m,zo,gQu{Y\,Nר/=L _.̇Y7C6-fSh62"5NHT[X65̫4X%Yֳ2fkhi~tCKF#b +w1m|4`!:U!p5a:~{4mmio ήc8mDJpSǹ橠V1?#Si?3E'pS2W`qB]( 08w nA[s)k8= Aa?R dڒɾcUӽ˲d)#Queb}C!&i0>4S7{z F} 4sKvUKoȳh~1jYUVH5U8Vk;֜L9ŰD ?*|FL "A3>g]dm2iVֵ褽mg B (((+N LX"%+, -&-@--- X,+--   "+!!   p0e0e     g  8c8c     ?1 d0u0@Ty2 NP'p<'pA)BCD|E||S"@H 0(  H(  bB  c $Do"?z  6g ?#" ?z  6g ?#" ?B S  ?/@'p r .".t@-!-tv!vt mijijinjicd wenjiantoufwzhfilenamezsbmcsmbzbcsyfdate*J~ H_~ sss< b  m ;*urn:schemas-microsoft-com:office:smarttagschsdate X> 111215201829DayFalse IsLunarDate IsROCDateMonthYear       !,?@HJ_b&1HIE_aco!"'>PU<@cdEGJOru\ ] _ c f g i j n o  Y\  v y 3333s33*@J   @@ @A@R#Lxb^J2%~*y-&0f0549v5W8l>_2CkGQKP@T]{]C`Xl`7ccirqu}wzxl~x%V<A' [B]6Xy`M;=e9:+^Pt0|t9eh 9Br &Z_&`  BookNamesH# CurUserNamep:hahaŕNewInfoTitleStr, TrackMark(gzhutici;zsbm;csmb;filename;year1_2;jinjicd;miji;yinfadanwei;yfdate;dayinfs;SignDate;qianfaren;gkxs;zbcs=N100}&;&^~T{USMO ^~V^Ɩ-N/eNTNtL&;&&;&Vn]^"?e@\sQNۏNekR:_^~{USMOlQRaS{tvw&;&Vn"gb020180300S&;&%`N&;&&;&Vn]^"?e@\RlQ[&;&&;&10&;&&;&Y[)PY&;&O3ulQ_&;&V^YVn]^"?e@\eN1V_B _BV_B _BV_B _BV_B _BV_B _BV _B _BV_B _BV_B _B Project.NewTitleModule.NewTitleProject.ToolModule.HideMarkProject.ToolModule.PrintNoTitleProject.ToolModule.PrintTitle)Project.ToolModule.Register_Event_HandlerProject.ToolModule.ShowMark Project.ThisDocument.ShowToolBarProject.WriteMark.WriteBookmarkPROJECT.TOOLMODULE.HIDEMARKPROJECT.TOOLMODULE.SHOWMARKPROJECT.TOOLMODULE.PRINTTITLEPROJECT.NEWTITLEMODULE.NEWTITLEPROJECT.TOOLMODULE.PRINTNOTITLEPROJECT.WRITEMARK.WRITEBOOKMARK PROJECT.THISDOCUMENT.SHOWTOOLBAR)PROJECT.TOOLMODULE.REGISTER_EVENT_HANDLER@ ``"Unknown*Pp X1ghfgfXoce G*Ax Times New Roman5Symbol3. *Cx ArialA4  N[_GB2312N[G_o{h[eckpQN~ў{SO9eck\h[[SO;([SOSimSun;= |8ўSOSimHei;" Helvetica5. .[`)TahomaA BCambria Math 5hTl'l'  !-!),.:;?]}    & 6"0000 0 0 00000 =@\]^([{  0 0 00000;[422 0 $3qHP?`2! xx0 Ğef Sky123.OrgOh+'0$ 8D d p | 4  Normal.dotm Sky123.Org4Microsoft Office Word@0@ 9@`IO@(Ԋ ՜.+,0 X`t|  񺼰    !#$%&'()+,-./0123456789:;<=>?@ABCEFGHIJKMNOPQRSVWdkZ[\]^_`abcejfghilszmnopqrtuvwxy|}~Root Entry FCԊYYData "1Table*%2WordDocument_BSummaryInformation(DDocumentSummaryInformation8LMacros!Q7Ԋx7ԊVBAQ7Ԋx7Ԋdir__SRP_0  __SRP_1B__SRP_2 I\  !"#$%&'()*+,-./0123456789:;<=>?@ACDEFGHJKLMNOPQRTUWXYZ[\]^_`abcdefghiklmnoqrstuvwxz{|}~0* pHdProjectQ(@= l ] J< rstdole>stdoleP h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\SysWOW64\e2.tlb#OLE Automation`ENormalENCrmaQF  * \C D]!OfficgOficg!G{2DF8D04C-5BFA-101@B-BDE5gAjAe42ggram Files (x86)\@Common \Microsoft Shared\OFFICE12\MSO.DLLL#P 1 Ob LibrXary'zMSF@Cs> MSFDs3@eD452EE1-E08"F1A-8-02608C4D0BB4eFM20L'B &/;"~1ă} Ã00}#0ƒ# ў50 AA0006D-59D7-4AB5-98D5-7B1A5693F76D6Users\ADMINI~1\AppData\Local\Temp\VBEc7.exdd<@".E .`M 7ThisDocumenPtGTisD@lcuQen 2E` H1y",C""+HEvClassModuleGBiEv@b!Cka sM`d`r2 o,mF,c(b%frm@ToolsGbfT`si2r/J- 1mNewTitle%& N wTi7!$%92k:F1o:=!*$WriteMarkG@W@$e@8a`k$2/5$f+ {4#3"+2656a[K* *\CNormalrU~~~~~~~~~~~~~~S GEi9KQg b a 1  a ! a  ) Q 9Ya @!Yqayi j"ǭECiyProject ThisDocumentEventClassModulefrmToolsNewTitleModule WriteMark ToolModuleF /C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  Q` F;C:\Program Files (x86)\Microsoft Office\Office12\MSWORD.OLBWord ap0FappC:\Windows\SysWOW64\stdole2.tlbstdole  QL-[DREC:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE12\MSO.DLLOffice .E .`M C:\Windows\SysWOW64\FM20.DLLMSForms am`YJ{Vm4C:\Users\ADMINI~1\AppData\Local\Temp\VBE\MSForms.exd ak FF e;Il]擅Բ@A2:6%06@{  FDocumentInitWord ShowToolBar Document_Open @p Fb F F8Mz@@SqTIXC~ڂnYF xtomXRE@m,Wق[EF M ϫ{lFWJO PrintTitleCB!-6S` aȏ[qJ eUserForm$C4V F3Dynamic   ShowMarkCB NonMarkCB PrinNoTitleCBPrinNoTitleCB_ClickPrintTitleCB_ClickNonMarkCB_ClickShowMarkCb_Click SplitCB_ClickUserForm_ClickUserForm_QueryClose PRegister_Event_HandlerAddVarExistVarShowMarkHideMark PrintTitle PrintNoTitle +=h8+3q%VްxH5>0FL*=h8+3q!?AjnB F!=h8+3qClassPgv3+3o VBInternal I qXApp_DocumentBeforeClose H44VrU~~~~~~~q    yoObj  a (Cancel CloseModestrNamenewValue y8  Happ yQ X yhDocCrU 0Q y ! 1Y  4a`W0   0   X4ptx! x 8t p )xtp(`%$ ,X$2 xtp4HrU @(`;$A`$`nrU   A i  4 __SRP_3S__SRP_4 V__SRP_5jW__SRP_6 p8 `I8a  `0`I < a ` @  ` D  ` aWW0   0 @  0   0   0   0 @  0   D4@<88(rU P$`$A`$`$`$`$A`,` &&nrU~| @ 0  0 `  0   0 X  T$$ $ $$2 0   0   MrU $`,`)0/(`0$`$!`$I`$q`nrU __SRP_7yb__SRP_8__SRP_9frmTools3 iA$8I`@< i1 Ey0 0  4 8ArU H4`(# @4n6tD 7LTIXC~ڂnYF xtomXRE@m,Wق[EF M ϫx[EF M ϫTIXC~ڂnMEPSPSSS6"<<<0{00243ACC-DD15-456F-A558-20A435E0155E}{8AEF03F7-DD7D-44B4-AAB1-14244E7A7D36} t@`  x`   |`  ~`  @`  `  ` ipn>in>0(%X0 %@@%L%0P `] $*\Rffff*0=5de3d1e848<@D# "  "  ( " 08@ " HPX " `hp " x  "  8 A@voh@A@zoPA@do8A@o A@o@ox'pԲ𣬴˹ܹر ϢA@^o( Attribute VB_Name = "frmTools"  Bas|0{00243ACC-DD15-456F-A558-20A435E0155E}{8AE F03F7J7D-44B4-AAB1-14244E7A7D36} dGlobalSpacoFalse CreatablPredeclaIdTru BExpo se0TemplateDerivCustomizD PA" Sub nNoTitleCB_Click(()  t End vt  +NonMark ;HideShowb+CplitSDocV Use`rForm Q@ueryCl@r(Cancel As Integer, Mode'H\D = MsgBox "𣬴ܹر", vbOKOnly, "`Ϣl / 7fWriteMark@ ToolModulejThisDocument_VBA_PROJECTxME P55`, 9t`. `h x` ` `0`2] 6 " (08@ HX h    0PX x  H  @(h px !  (0 8 H]@]X]p]]]](8 8.h9t h!. BookNames %B!'4NewInfo %B!'6' 4;$', 6&;&$'. ,'8 .':Then !2'0 8 : < 8ֺ <$, 8!%A@d <$,$!. wenj !d'2% ȥз 2 $ b 2 2 $ $  2 2 2 $ $  '2ȥո 2 b 2 2  $  2 2 2 $  '2A@ <$.$R 2$R !> ! B@k8 <$.$R B& <$,  Bkkk(A@|oAttribute VB_Name = "WriteMark" Sub D BookmT() Dim b&array As Variant:ansewder@pp8VsArange3CountIntegersel@ecttexS ngOn Error GoTo ehandleSet aR= ActiveDocumerU=.snsThi s .bles("s") lu=AslistNewIn 08B#Lef t$J - 1) + RighLen) -xHLLoopvB(ո'`" ") {'&tr )b _&CS&A%%7!ShowMƃ7`rTrim(ibo<> !)q "? gStart End !GCall$pCuϤ܆  If I@rtAfter(2"Y B B.Adh),c NH5s:Vt Sub      !"#$%'()*+,-./0123456789:;<=>?@ABCDEFHIJKLMNOPRSTUWXY[]^_abcek 76xME("f6 "L%% 6``  4` iFiH +JX`   iF8!`L `  d`|k! z`  ' v`  4D@`X XB` XX ] $*\Rffff*0?5de3d1e8$*\Rffff*0>5de3d1e8$*\Rffff*0<5de3d1e8*\R1*#c6?"  8 "  @ H `pB     (08@H P" h p  "   "  <8@HPX` h p"  : ]X  !D D/ho@` Ӹֱ. F$J H F %B(dp F H !BB@kPoHжϱǷ]@ NB@P F %B!'Lr N!R'Jd'Jki ʾۼƒX (<rr (>]`Zoh ڲغۼ]`Z (<r (>4o ӡͷ 5 Application.ActiveWindow.View.ShowHiddenText = True 9Tq 89Vqoӡͷ3Application.ActiveWindow.View.ShowHiddenText = True 9Tq  89VqoAttribute VB_Name = "ToolModule" Dim X As New EventClass| ' Public Sub Register_b_Handler()  d Set X.appWor d.App9ation End C QAddVar(strSng, newValue"iantg'@ӸI0f ExC) The7HThi@sDocumo."bles6) 0=5Rlsefu.X VQnIfqFuncSku)Bea['жnǷ2ڃaaanterr.Clear On Errorsu6x@ =B @ QNumber@o0PWTruGEHFaByA$GoTo 0EB 'ۼʃShowMa rkŔJaPrin@tRevis@s$Nz 'ڄRHideg<F?`ͷ>7TitleC?' H.AveWindow.Vie w.9,denTextCWithh OpAOsY.B T#C%hPostScriptOverN HcW'7 Nof '8 œ)  A d? @Tn&7F,D%VްxH5>0FL*=h8+3q>b 7C<F e;Il]擅Բ@A2:6%06@{ x06@{ F e;Il]擅ME,S"SS"6"LLLL" <0<4<8<<<(1Normal.ThisDocument P ` @[[i ?Ct@ <2@  `" `$ `& `,8 `0` ^ b`Pk bp%0& % %DLdrz1@x y@t @p p@0` ll@P 6p0p@] $*\Rffff*0<5de3d1e8*\R1*#c6*\R1*#c0*\R1*#d0*\R1*#158$*\Rffff*0=5de3d1e8$*\Rffff*0>5de3d1e84l   "  8 "@hpx $   ( @ P Xpx B 0P  X *x     "   (  0@H $P  x   &    (08 @ JX L   (0 " 8@P "X4`x  Dim SaveMark As StringyISaveMark = "0"***********Ĵݺdll]`]x]]D](`Scripting.Dictionary$*.  . ]D !.' 0 !2 0$', , ,$ A@4 0A@6úۼ 89:9<9>qh'$'& @ !B @! CurUserNameG CurUserName %B D(Fj @!SaveMarkSaveMark %B'Hk @!AcceptRevisionsAcceptRevisions %Btrue 8B@Jk@k8 @! TrackMark'$ TrackMark %B0'"d'" LB@Nkk @! BookNamesGA@Pj @!TitleStr'&k` @ & $TitleStr %B$R A@Tkk úۼ 8 "9:9< "9>q D!V!X(ZDActiveDocument.ActiveWindow.View.ShowHiddenText = True 'ʾFActiveDocument.PrintPostScriptOverText = False 'ӡ D(\|( A@^|o LB@No0 D!V!X(Z LB@NA@doh`Attribute VB_Name = "ThisDocument" Bas1Normal.VGlobal!SpaclFalse CreatablPre declaIdTru BExposeTemplateDeriv$Custom izC1'Dim SaveMar@k As Sng ' 0 P.2 Sub InitWord(ByRef` oObject) *Ĵݺ ;aoDicTrackmDBoolean= HP 2 Tit^ On Error GoTo ehandl@USet Yee,("Scripting.$tionary"2 9$str "KaA.Keys Fi 0 Count - 1 = a(iAddVar 5,B((@Next iTRegister_Ev)_HB4r[úۼWith Act.[Revis:Ns*' .{ntShowCaEnd A&}Fq|= ACoNE ach aCIn .iXIf .CurPUser"en Applic:a9.E (" 2c&- c *hf  A%If- Accep1 d M) "t KE.Allf<A  /OCGI 5 b0bLbEb#!afrmTs.!a 0I!" "k!Vs Writea # g-Ik!lAt@ AG`w&The  Len(Tr8im(V1))p) > @% New##˙VϘ8 ژ+Lh 5L|hDs2Window .ViewbHi ddenTZ= ='5X 'ʾpְlYPostkOverdRU'ӡPVp_ pExit} r: MsgBox< (uPK!Sub!ЁubV01Bar(dN2 vuj_Op&i /P9 > P1 a (*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020905-0000-0000-C000-000000000046}#8.4#0#C:\Program Files (x86)\Microsoft Office\Office12\MSWORD.OLB#Microsoft Word 12.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation*\CNormal*\CNormalD]4*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.4#0#C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE12\MSO.DLL#Microsoft Office 12.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\Windows\SysWOW64\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{A260006D-59D7-4AB5-98D5-7B1A5693F76D}#2.0#0#C:\Users\ADMINI~1\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M   ] 7ThisDocument0<5de3d1e8ThisDocumentC0x EventClassModule0?5de3d1e8g EventClassModuleF,,frmTools0=5de3d1e8MfrmTools0J NewTitleModule095de3d1e8NewTitleModule=HFWriteMark0:5de3d1e8*WriteMarkf`5 ToolModule0>5de3d1e8BToolModule6x `x0H_z=I`ShowMarkCb_Click?`(ShowMark` SplitCB_Click`SplitDoca]`UserForm_Click`UserForm_QueryClose` CloseMode؟`vbOKOnly` NewTitleModuleg`arraysH*`rowsU`OldStr'`TitleStr`ValueK`Right `Split)`books`booknamea`flag`rang1 `range ` cellcontent` Bookmarks?n`Exists]`ocellK` SelectionZ`Tables`Cells`ChrK~`MaxL.`MinLX`lc`columnsp9`Deletex`Unit` wdCharacter`Addr`NumRows` NumColumns}`DefaultTableBehavior`wdWord9TableBehavior`BordersC"` wdBorderLeft ` LineStylew`wdLineStyleSingle` LineWidth/U`wdLineWidth050pt `Color2F` wdColorWhite` wdBorderRight` wdBorderTopm`wdBorderBottom`wdBorderHorizontal`wdBorderVertical:`wdBorderDiagonalDown^`wdLineStyleNone`wdBorderDiagonalUpj`Shadow`Options`DefaultBorderLineStyle`DefaultBorderLineWidtho`DefaultBorderColor` SelectColumnR`PreferredWidthType`wdPreferredWidthPercent/`PreferredWidth'`MoveLeftv` MoveRight`wdCell `Mergeq_`VerticalAlignmentʡ`wdCellAlignVerticalCenterf`ParagraphFormat` AlignmentI`wdAlignParagraphDistribute@m`DefaultSortingz` wdSortByName\` ShowHiddenqs`FontSize`FontU`Size`Bold` wdColorRedo(`iCountl` InsertAfterq5`Hidden]` WriteMarkd` bookarrayf` ansewerarray6.` booksCount'` selecttext` Bookmarknamesk` Ansewerslist/`p1^`p2^`ja`Start`Cut.` ToolModule@?`Xo`strNameZ`newValue`(ExistVar.`aa{\`erro`Clear`Number-`PrintHiddenText`PrintPostScriptOverText`UserFormN` ShowMarkCB J` NonMarkCB:` PrinNoTitleCB~` PrintTitleCB6`Click` QueryCloseT`Class`DocumentBeforeClose/`C M+gl NewTitleModuleEventClassModule"& PROJECTGvfrmTools x7Ԋx7Ԋ@7=xME(<<< < T` 9t`H`x` `` %``` `r``Z`p] "  (0 8 Xx  : 8 HPX`h "p    ( @P Nh  @(  0  @ P X `x            ( @ (X      2 0 HX`h p x       (08 @ HX`h p x         28p       0 P X`hp      (  8  H X ` x           ļͷ]@]X]p(HTitleStr %B!' TrackMark %B!'" $;   $'kH ;$' ' If rows < 1 Then3 Exit Sub 'ļͷֺ <P End Ifg]]]]] wenjiantou 8!%s> wenjiantou'<GrdH|$IJļͷǩidk ''  8%B@H  %!! !!d$R' ȥз  $ b   $ $     $  $  '@ȥո  b    $     $  '   'd ;  'kkx   'kH ȡ̵]] ]8]P ''$ '   $  G $'jxdp''  ' 'k@  8%B@H 2 B@ !    8!B@ % 7 9 9 9q 7 9 9 9qX 7 9 9 9q( 7 9 9 9q   7 9 9 9q 7 9 9 9qk  7(  7(5(q8  9 9 9q B@  !(d !(  %(d    X  %( 2 B@  2 B@ B@ !B@  !( k %B@H  !( 8! ! C@ 99q]h@ '  !( !(  С !( " !('$  %!! $ $ !B@& !B@H !(( $ '$ k úۼ 8 "9:9< "9>q`|X(P ͷ༭: A@^o( Attribute VB_Name = "NewTitleModule" Sub P() 'ͷ Dim arrays As VariaDnt4row0I@nteger0O`ldStr3ingOn Error GoTo e handle<= ThisDocument.|bleHs(""")lu>TrackmarkM If Right(,, 1);"BenLLef Len1) - En0d If= Spli ";"= UBound( ' # < 1K KExit S'Ctଷֺ# I&'{bookS{A>nhuA fl ag{Nrang1ADj cellcontA!cActiveMFB@%vs.@:sBtwenjAou"jTruej+H ElsD#AKOORǩvCCBC= 0C@! A6(E,).SeXlecCFE ach oAN In ion.T"a1).Y.C=`+s I-jri m(TextO'ȥ зGDo While 5(( , Chr(13)) >a e$KIn !h +rAmh m= GLoop0ոGy" Mt" edt?h7g i0<> "IULi9?  j $+ O@: NT^ `Ʊ3 Th嵤p1 #  'ȡ̵A!pMaxLAJi nlcolu=Ⱦ`= 2b  = 8)q =& 33e(1;+ S !Flm0~ y!Al?!EQ"" y  )%L# x[XBsX"WD`ZpUnit:=wdChaterPQ{0( C[.Add R[ :=g, NudmR:=C s":=, De faultBe@haviorWord9Z'0 `With "sK! R.B@ers(wd!]G1.LineStyb= wdS ŞWid050pԦPpit|?! O N _ ~ _ 3 _ _ h_ ._ _ d_ _ Top? ? t? ? Q? i? ? $%Bottomo o o G eo o o pC%Q=%J>Y1Horizal w_RVertic @e' R @QE٢@ADiagonalDow n) eNonGtUp__U.Shadow9`yFa+)eBX With Options  .DefaultBorderLineStyl@e = wd4S inglepWidp050ptnColorl! WhitgEndASelec. 5umncols.PreferredHTypm PerxcenT3#Y100;(1)E=%A>CInt(A * MaxL / (+ MinL)) + 2OMoveLeft Unit:=wdCharacter, Coun1 If rows > 1 T0FLME PSS Sa0n6"<<DN0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}0 %*i4@ j` p( )m%ip  %0 %00H,] *\R1*#17c*\R1*#17e$*\Rffff*0?5de3d1e88<   $("  P X  x  ¼Ķ] Sa¼ڴ򿪵ĵر֮ǰ****0ĵرǰĸֲx If SaveMark = "1" ThenAd lB@rpting. End Ifo80ܱAttribute VB_Name = "EventClassModule"  Bas0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobalSpacAIFalse dCreatablPredeclaIdCExposeTemplateDerivCustomiz E'¼Ķ Public Withs app As Wor d.AppatXion u.VarHelpIDe-1 '/ڴ򿪵ĵر֮ǰ6Z^ Sub -_DocumBeforeCl|(ByVal B, Cancel Boo`lean)Eĸֲ  ' If SaveMark("1" The@2 ll xHid.AB' End . ID="{3FA31478-ACFA-43FD-9A5B-C8D068E70F49}" Document=ThisDocument/&H00000000 Class=EventClassModule BaseClass=frmTools Module=NewTitleModule Module=ToolModule Module=WriteMark Name="Project" HelpContextID="0" VersionCompatible32="393222000" CMG="CECCD861D8675F6B5F6B5F6B5F6B" DPB="5153476848684868" GC="D4D6C26FC6F3C7F3C70C" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDocument=0, 0, 0, 0, C EventClassModule=0, 0, 0, 0, C frmTools=0, 0, 0, 0, C, 25, 25, 1355, 593, C NewTitleModule=0, 0, 0, 0, C ToolModule=0, 0, 0, 0, C WriteMark=0, 0, 0, 0, C (H  @}R KQ_O( 8ShowMarkCB( 8NonMarkCBB, 4PrinNoTitleCB; ( 8PrintTitleCB ,>f:yS?zu"[SO,>f:yn?zu"[SO,fQoVCompObjZaVBFrame\WYSbu"[SO, NWYSb?zu"[SO Microsoft Forms 2.0 Embedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmTools Caption = "WORD" ClientHeight = 420 ClientLeft = 11040 ClientTop = 1440 ClientWidth = 4080 TypeInfoVer = 23 End PROJECTwm`CompObjduThisDocumentThisDocumentEventClassModuleEventClassModulefrmToolsfrmToolsNewTitleModuleNewTitleModuleToolModuleToolModuleWriteMarkWriteMark  F#Microsoft Office Word 97-2003 ĵ MSWordDocWord.Document.89q