ࡱ> TWSyq` R$bjbjqPqPF@::0(&&&&&&&:8Db|:,"   3&++++++$/h1+!&"+&&  ,.& & g#3&&&  dr!lE,T,22"2&L"++ ,::$^$ d::^:::&&&&&&  q\^"?e@\eNq\^QNQQg@\q\^wm mNnN@\ "Q02019027S  q\^"?e@\ q\^QNQQg@\ q\^wm mNnN@\sQN N2019t^,{Nyb-N.Y"?e QNuNSU\Dёvw ^^\ gsQUSMO0[wm:S"?e@\ 9hnc 0Ym_lw"?eS Ym_lwQNQQgSsQN N2019t^-N.Y"?eQNuNSU\Dёvw 0Ym"Q02019026S 0 0Ym_lwQNQQgS Ym_lw"?eSsQNZP}Y2019t^QNuNSU\I{Dёyv[e]\Ovw 0YmQS02019026S Bl ~xvz,s\2019t^-N.Y"?eQNuNSU\Dё450NCQ N~`ONDN 0 b'}~~yv[e ĉyv{t :_SDёO(uv{Tyv~Hevc EQRS%cDёO(uHev0 ,g!k NvDёR 2130199vQNQN/eQ {yv0 DN2019t^,{Nyb-N.Y"?eQNuNSU\DёRMh q\^"?e@\ q\^QNQQg@\ q\^wm mNnN@\ "$8:LPdhjlӰyiM=/h{BhCDCJ OJaJ o(h{BhCDCJ OJQJaJ o(6jhmhu<CJ OJPJUaJ mHnHo(uhs[hmCJ OJPJaJ o(hCJ OJPJaJ o(hgnkCJ OJPJo(hCDCJ OJPJo('h,hY5B*CJFOJPJo(ph*h,hY5<B*CJFOJPJo(phhqCJ OJPJaJ o(h(hCDCJ OJPJaJ o(hCDCJOJPJaJo(hG*hCD5CJ OJPJo($28:LNDkd$$Ifl40" ~ t0644 lap$ 4$Ifa$gd,7VD ]^7gdA]$  ^`a$gdA]`$$NPdfzgg$ 4$Ifa$gd,kd$$Ifl40"  ~ t0644 lapfhjlzn_RCC$ da$gd{B $ la$gdlU$ 4a$gdA] 4gdgnkkd^$$Ifl40"  ~ t0644 lap   P d   8 > Z  & * Ÿ{{kkk[kh8^chYCJ OJPJaJ o(hUDhYCJ OJPJaJ o(hhYCJ OJPJaJ o(hlhYCJ OJPJaJ o(hYCJ OJPJaJ o(hJe;hCDCJ OJPJaJ o(hT CJ OJPJaJ o(hCDOJPJo(hhCDCJ,OJPJaJ,o(&Hh2yGhc CJ,OJPJaJ,o(hc CJ,OJPJaJ,o( \ ( * pdWD`pgdY $da$gdJe;Q$ dDC$Eƀ2yGa$gd A$ dDa$gd A * , . 0 M? pdWD`pgdYPpdC$Eƀ3yGWD`pgdYadC$Eƀ3yG]`gdc o3yGd&]`* , 0 P ^ b h x z ~ " """$"."0"2"6":"@"ϻϫϻϻkK>hUDhYhc CJ OJPJaJ cHdhdhdh2yGo(8hYhc CJ OJPJaJ cHdhdhdh2yGo(U&Hh3yGhYCJ OJPJaJ o(hYCJ OJPJaJ o(hUDhYCJ OJPJaJ o(&Hh4yGhc CJ OJPJaJ o(&Hh3yGhc CJ OJPJaJ o(8hc hc CJ OJPJaJ cHdhdhdh3yGo(0 z | ~ /[dEƀ3yG]`gdc o3yGd&`RdC$Eƀ3yG]`gdY!d]`gdc o3yGd&$]`a$ ""$":"<">"@"B"D"F"H"N"~""""$ ^$Ifa$gd, $ ^a$gdY $d@&a$gdYdgdY"$8pdWD]8`pa$gdc o4yGd&$]a$!d]`gdc o4yGd&$]`a$ 2019t^8g26e DN 2019t^,{Nyb-N.Y"?eQNuNSU\DёRMh USMONCQ ^SUSMOyv Tyё1q\^wm mNnN@\ q\&^| :SWlQqQTLr^502q\V[܏ mnNW0W^c%cNWS*Ys^ mlQwmSag|T\O.Uyv503[wm:S"?e@\ORyrr;N[NN^nN 0[wm:S?'YߘTQNTy iR]TTSO^yv3050[wm:S?'YߘTQNTy iR]TTSO^yv50T450 b0 q\^"?e@\RlQ[ 2019t^8g26epSS     PAGE    PAGE 1 @"D"H"J"N"T"X"v"z"|"~""""""""4#6#IJo`RDR9RDRDhYCJOJPJo(hahYCJ OJPJo(hahYCJOJPJo(hY@CJOJQJaJo(#h8^chY@CJ$OJPJaJ$o(hY@CJ$OJPJaJ$o(#heAhY@CJ$OJPJaJ$o(hL%hYCJ OJPJQJo(#hL%hYCJ OJPJQJaJ o(<hYhoDCJ OJPJQJaJ cHdhdhdhxGo(8hYhc CJ OJPJaJ cHdhdhdh4yGo(""""""D4$ ^$Ifa$gd,kd $$Ifl\ u"1  t0644 lag4yGh6TT$ ^$Ifa$gd,""""" #4kd$$Ifl\ u"1  t0644 lag4yGh6TT$ ^$Ifa$gd,$ ^$Ifa$gd, #.#4#6#:#H#Dkd$$Ifl\ u"1  t0644 lag4yGh6TT$ ^$Ifa$gd,6#@#F#d######################񳗌~nZF&HhxGhoDCJ OJPJaJ o(&HhxGhCDCJ OJPJaJ o(hJe;hCDCJ OJPJaJ o(hahYCJ OJPJo(hYCJOJPJo(hahYCJOJPJo(hz[hz[CJOJPJo(hahz[CJ OJPJo("Hh7yGhz[CJOJPJo(:hahz[hz[CJOJPJcHdhdhdh7yGo(hahz[CJOJPJo(H######2kd$$IfTl4\ u"1  t0644 laT$ ^$Ifa$gd,$ ^$Ifa$gdz[o7yGd&######4kd^$$IfTl4\ u"1  t0644 lag4yGT$ ^$Ifa$gd,$ ^$Ifa$gd,#####4& pdWD`pgdYkdC$$Ifl\ u"1  t0644 lag4yGh6TT$ ^$Ifa$gd,$ ^$Ifa$gd,##########$$$$^$$$d &d (d N P R gdUcJdC$Eƀ4yGgdJe;dgdJe;#####$$$$ġ]@'0hA]hc OJPJcHdhdhdh4yGo(8hA]hc CJOJPJcHcHdhdhxGdh4yGo(BhJe;hA]hc CJ OJPJaJ cHcHdhdhxGdh4yGo(BhJe;hoDhc CJ OJPJaJ cHcHdhdhxGdh4yGo(EHhxGhoDhc CJ OJPJaJ cHdhdhdh4yGo(&HhxGhc CJ OJPJaJ o(&Hh4yGhc CJ OJPJaJ o(&Hh4yGhoDCJ OJPJaJ o($$$$$$($:$>$D$X$\$^$`$b$f$h$l$n$r$t$x$൥tgG?;?;?;?;hj jhj U>hThA]hc CJOJPJaJcHdhdhdh4yGo(hYCJOJPJaJo(&Hh4yGhc CJOJPJaJo(hThrCJOJPJaJo(hc CJOJPJaJo(hThA]CJOJPJaJo(hA]CJ OJPJo(>h]xhJkhc CJOJPJaJcHdhdhdh4yGo(>h]xhA]hc CJOJPJaJcHdhdhdh4yGo(^$`$d$f$j$l$p$r$v$x$$$$$$$$$ hh]h`h&`#$- ^gdc o4yGd&$ ^$d &d (d N P R x$z$$$$$$$$$$$$$$$뽲hA]CJ OJPJo(hj hP0JCJmHnHuhT0JCJjhT0JCJUhT0JCJo(hT hT0JjhT0JUD&P 0pu1Z2P/R :p{W. A!4"#2$%S $$If!vh5@5$#v@#v$:V l4 t06+,5 5~p$$If!vh5@5$#v@#v$:V l4 t06+5 5~p$$If!vh5@5$#v@#v$:V l4 t06+5 5~p$$If!vh515 55#v1#v #v#v:V l t06515 55g4yGh6T$$If!vh515 55#v1#v #v#v:V l t06,515 55g4yGh6T$$If!vh515 55#v1#v #v#v:V l t06,515 55g4yGh6T$$If!vh515 55#v1#v #v#v:V l4 t06++,,515 55T$$If!vh515 55#v1#v #v#v:V l4 t06++,,515 55g4yGT$$If!vh515 55#v1#v #v#v:V l t06,,515 55g4yGh6TJ@J cke $1$a$ CJKH_HaJmH nHsH tH$A@$ ؞k=W[SOFi@F nfh?AB  -[dkw$&+,?DHJPRV_u ()0022335689;<DISWZ690022335689;<DISWZ3333Fp}?`ou0022335689;<GISUWZ " "./0022335689;<DISZ @@ @G`p n Oe *)#x+grM(T59T :v  7L"%P){,[.!u1;2n334$6|9; ;Je;1=bS?n? A{B`CT4DN~F J#J1IL"NO2R UW/_Z[s[\%7]A]=bUcjeLbf KgjHj"cjJkgnk{ojp-tuuv]xwx23z|[L0#2CD5`!r~AqDO\ /tlUP 8);te c 9'k6; z[~j "oDoYQT<T>7r1KmpMElq*,P_9(!O.z=r{WRXfMi(&'(234?EHKPSTV`orsu/Z).EAcceptRevisionsCY BookNamesCY CurUserName\DYhahahDYNewInfo0YTitleStrtDY TrackMark2YfalseZzhutici;zsbm;csmb;filename;fwzh;jinjicd;miji;yinfadanwei;yfdate;dayinfs;SignDate;qianfarenXoss100&;&^^\ gsQUSMO0[wm:S"?e@\&;&&;&q\^"?e@\ q\^QNQQg@\ q\^wm mNnN@\sQN N2019t^,{Nyb-N.Y"?eQNuNSU\Dёvw&;&"Q02019027S&;&&;&&;&q\^"?e@\RlQ[&;&2019t^8g26e&;&10&;&&;&fVq\^"?e@\;eN;q\^QNQQg@\;q\^wm mNnN@\1 VF@F@VF@F@VF@F@VF@F@VF@F@VF@F@VF@F@VF@F@VF@F@ Project.NewTitleModule.NewTitle Project.ThisDocument.ShowToolBarProject.ToolModule.HideMarkProject.ToolModule.PrintNoTitleProject.ToolModule.PrintTitle)Project.ToolModule.Register_Event_HandlerProject.ToolModule.ShowMarkProject.WriteMark.WriteBookmarkProject.ToolModule.doWithTitle PROJECT.TOOLMODULE.HIDEMARKPROJECT.TOOLMODULE.SHOWMARKPROJECT.TOOLMODULE.PRINTTITLEPROJECT.TOOLMODULE.DOWITHTITLEPROJECT.NEWTITLEMODULE.NEWTITLEPROJECT.TOOLMODULE.PRINTNOTITLEPROJECT.WRITEMARK.WRITEBOOKMARK PROJECT.THISDOCUMENT.SHOWTOOLBAR)PROJECT.TOOLMODULE.REGISTER_EVENT_HANDLER@kYPP"UnknownXoss1g O9NY[sOga Gz Times New Roman5Symbol3& z Arial;ўSOSimHei9eck\h[[SO;5 N[_GB2312MD eck\h[{SO[SO-eck'YW[&{ƖQE  eck\h[_GBK[SO-eck'YW[&{Ɩ;[SOSimSun;" Helvetica 1hyGyGDyGyy!-!),.:;?]}    & 6"0000 0 0 00000 =@\]^([{  0 0 00000;[42//O2qHX ?obS?20 ĞefR[YOh+'0$ 4@ ` l x 4  Normal.dot2Microsoft Office Word@@ l@4Cr@4Cry՜.+,0 X`t|  񺼰/   "#$%&'(*+,-./0123456789:;<=>?@ABDEFGHIJLMNOPQRUVitYZe\]^_`abcdfghjpklmnoqxrsuvw{|}~Root Entry F:drXEData !1Table)2WordDocumentF@SummaryInformation(CDocumentSummaryInformation8KMacros%drdrVBAdrdrdir__SRP_0 [-__SRP_1__SRP_2   !"#$%&'()*+,-./012345679:<=>?@ABCDEFGHIJKLMNPQRSTVWXYZ[\]^_`abcdefhijklmopqrstuvxy{|}~0* pHdProjectQ(@= l Ge_ J< rstdole>stdoleP h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\SysWOW64\e2.tlb#OLE Automation`ENormalENCrmaQF  *\C m! OfficgOficg!G{2DF8D04C-5BFA-101B-BHDE5gAAe4 2ggram Files (x86)\Common \Microsoft Shared\OFFICE14\MSO.DLL#P 9.0 Ob Library&yMSF!Cs>MSFCs3@BeD452EE1-E08FA1A-8-02608C4D0BB4Pesystem32\FM20 'B r&/;"~1B} 00}#0# ў50 A3B6F0D2C-A664CA2-83AB-EDE2AEE96Users\zsds\AppData\Local\Temp\VBEa6.exdb;@!.E .`(M "7BThisDocumentGT isD@kcu@en 2 ` H1"y'"E,Q""+EvClassModuleGhEv+a!C ka sZM`d`~r27 oitm.-c(b%frmToolsGb4fT`!s4i2r/v %?1!mNew`Title%& N wTi7!$s%2k:b&}!*${#e#k+2&5c_AWriteM@arkGW@5#e@Ia`k5M2//r)a[rU~~~~~~~q     aYoObj i  Q (Cancel CloseModestrNamenewValue Q 8 aHapp a) X ahDocCK*y *\CNormalrU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ?ygKaOnX a  a a    1 Y a i1a A@)ay!Ya ihAyQai S[s ?J'r7y ThisDocumentEventClassModulefrmToolsNewTitleModule ToolModule WriteMarkProjectF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  A` F5C:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLBWord Ip0FaHH2S@C:\Windows\SysWOW64\stdole2.tlbstdole  QL-[DREC:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE14\MSO.DLLOffice .E .`M C:\Windows\system32\FM20.DLLMSForms a, o;Lh 0C:\Users\zsds\AppData\Local\Temp\VBE\MSForms.exd ak F 0In2Hj^ZND5rD> FDocumentInitWord ShowToolBar Document_Open @p Fb F Fm/9NopD><@( q<\Vx&&Eow: 'B6ۚ& :WT2@(!># ȏ[qJ eUserForm&}K&BI F3Dynamic  {lFWJO ShowMarkCB!-6S` !=h8+3qClass a NonMarkCB PrinNoTitleCB PrintTitleCBPrinNoTitleCB_ClickPrintTitleCB_ClickNonMarkCB_ClickShowMarkCb_Click SplitCB_ClickUserForm_ClickUserForm_QueryClose PRegister_Event_HandlerAddVarExistVarShowMarkHideMark PrintTitle PrintNoTitle doWithTitle +=h8+3qp!ZA ֿ*=h8+3q$krIѳ7(Pgv3+3o VBInternal  1X FappApp_DocumentBeforeClose H88 (Scripting.DictionaryKeys Count F FName CurUserNamee Ff F SaveMark AcceptRevisions true TrackMark BookNames WriteBookmark  TitleStrNewTitleVBE6.DLL       S fĤIx8<  (Bookmarks NewInfo ; &;&g F rangeText   StartEndCutInsertAfterAdd  H ` h h  j  wenjiantou h Fu FM FQ F^ F< F; F FK FO FJ FS FR F eck\h[ Select e4YQ: k  i  w rU 0#) Q y !IqA@ iQ   i 1 4Ya`[WKHD  D\N \\AD l%(0\AD ( 5Dh0 @lD`1@5D"@@\D@ -5D 0~^  $ 4Q      cpXpV$ Q[rDAD: ]35DT: NDD$  0 ,l!  /)5DAD: ]35D7: NDD$  0Qo5DAD: ]35D_I: NDD$  0 ,l0/)5D]  $ 4 |AD: ]35DpXI: NDD$  0 ,l0/)5DpZpZ( %$AD: ]35D AD: ]35D7pV s kVkXS: NDD$  0Qo p(]t6D  $ 4Q\ kZ\  \  kZ\ c\4!  8  )!   0'`'p''D ! "6 Dp`0T< \0\@l4 Dp`0   X4ptx! x 8t p )xtp(`%$ ,X$ xtp4H__SRP_38__SRP_4 ;__SRP_5OW__SRP_6 UZrU @(`;$A`$`nrU   A 4i  `0`I 8Q y ` <Q a ` @Q  `  DQ  `IaWW0   0 @  0   0   0   0 @  0   @D<844(rU P$`$A`$`$`$`$A`,` &&nrU~|  @ qA d,&x$  Qx[t$ $ td,$ xt l Q?TPdl Mh@x$ x 0d 0/P)xd{(dl x$ x 4)xd ,$ Pxd ddHdK?LPl MT@d$ d 0P ,>LFF) 5E: N $  0 , >F) 53: N l/53: N \/5l5Ii\5Ii8F()`<5@E8<:PN@@`$ ` 0< ,>8F)`<5@#(@  @:P]35@&(@(P"( (3:PN@@(8 l/85@l5Ipj9 <` $ 4` 8< Hk)`<c ChpCd?MP@<` $ 4` 8< @ L)`<[<` $ <` T< 0  hQ[)`<@( q<\Vx&&Eow: 'B6ۚ& :WT2@(!># x& :WT2@(!># D><@( q<\VMEPSPSSS6"<<<0{1ADC78D1-26D5-4526-8611-6F06A288D577}{E03A11A3-20CC-4227-9EB6-8736DB9ADBF9}0 v@`|J z`  ~`   `  @`  `  ` iri0(%X0 %@@%N%@@@@@@@@P@ 0P Ge_$*\Rffff*0A5f65c94748<@D" "  "  ( " 08@ " HPX " `hp " x  "  8 A@xoh@A@|oPA@`o8A@o A@o@ox'rԲ𣬴˹ܹر ϢA@bo( Attribute VB_Name = "frmTools"  Bas|0{1ADC78D1-26D5-4526-8611-6F06A288D577}{E03A11A3-20CC-4227-9EBT736DB9ADBF9} dGlobalSpacoFalse CreatablPredeclaIdTru BExpo se0TemplateDerivCustomizD PA! Sub nNoTitleCB_Click(()  t End vt  +NonMark ;Hide Showb+CplitSDocV Use`rForm Q@ueryClq(Cancel As Integer, Mode'H\D = MsgBox "𣬴ܹر", vbOKOnly, "`Ϣlc 7.Dp!ZA ֿ*=h8+3q$krIѳ7(x$krIѳ7(p!ZA ֿME$ SS Sa0pWriteMarkToolModuleVThisDocument_VBA_PROJECT<(z 7rxME,6  LLLL"L<0<4<8<<<@ R`@k77`Ll `N@\ `jL x`< `, `P* `R$J%phX(h(08`@@ @ @ @ (@ @T @ X@Vp @@XX @Z @\ @ @@x X@h P@@f @T @D @4 @$ @ (@ @ T@-8@ H8Ge_$*\Rffff*0D5f65c947:*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#..\..\..\..\..\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*#f$*\Rffff*0B5f65c947*\R1*#cb*\R0*#f*\R1*#cc*\R1*#cd*\R1*#c6$*\Rffff*065f65c947*\R1*#c1*\R1*#17b8 " (08@ HX EhE33    P0P1X x  8H  @R(h pCx  ! 5+  (0 8 H]@]X]p]]]](8 8.j j!. BookNames %B!'TNewInfo %B!'V T;$'L V&;&$'N L'X0 N'Z !2'P X Z \ X \$L 8!%A@` \$L$!. !d'R ȥз R $ b R R $ $  R R R $ $  'Rȥո R b R R  $  R R R $  'RA@ \$N$T R$T !^ ! B`k8 \$N$T B( \$L  Bkkk(A@|o Attribute 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 ( 7c_xME "h> <0<LLLLL"<4<8<<<( %% 6``ptk 4`Pki0 i2 +4X`8o   i0  `6 h `|k ``|k! |`  ' xX`pJ 4 J` ?`.@X X`,X X`X X`X X`X X`p4 @x @h @d @T @P @(@X`4z  8 8@d @T @P @L @< @8 8. @Px @t  Ph`t ` p ` XGe_$*\Rffff*0C5f65c947$*\Rffff*0B5f65c947*\R1*#c1*\R1*#17b*\R0*#19*\R0*#13*\R1*#cc*\R1*#cd*\R1*#c6$*\Rffff*065f65c947N"& 8 " @ H `?p(B    ?$ (08@H P"h p  "   "  <8@HPX` h p"  :   "   "(Php " ] \l !D ./j42fa72o@` Ӹֱ 0$4 2 0 %B(dp 0 2 !BB@'kPoHжϱǷ]@ 8B@: rows  0 %B!'6 8!<'4d'4ki ʾۼX (< (>oh ڲغۼ (< (>o ӡͷ5 Application.ActiveWindow.View.ShowHiddenText = True 9>q 89@qoӡͷ3Application.ActiveWindow.View.ShowHiddenText = True 9>q  89@qoȡͷX] wenjiantou 8!% wenjiantou'd|$IJļͷǩkh  8%B@H 8(: D2 HF B@B !9*qoAttribute 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 e?ȡa?2j@do/@ Abookn/1w+5.km hs.bts("wenjaou")$E|af `ŨC ~;A tam'IJļͷǩ@A().Selec TrackI|..MoveDown Unit:=wdLine, Coun 2,`tendy!Ex!"_Foa`.M(<  !7Q<aHH2S@In2Hj^ZND5rD>xD5rD>aHH2S@MET@S"SS">"  LL*L "LLLLqh'$'& @ !B @! CurUserNameG CurUserName %B D(Fj @!SaveMarkSaveMark %B'Hk @!AcceptRevisionsAcceptRevisions %BtrueA@J 8B@Lk8k0 @! TrackMark'$ TrackMark %B0'"d'" NB@Pkk @! BookNamesGA@Rj @!TitleStr'&kX @ & $TitleStr %B$T A@Vkk úۼ 8 "9:9< "9>q D!X!Z(\DActiveDocument.ActiveWindow.View.ShowHiddenText = True 'ʾFActiveDocument.PrintPostScriptOverText = False 'ӡ D(^A@`|( A@b|o NB@Po0 D!X!Z(\h NB@PA@`oXPAttribute 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 doa61#bH. All?  o-BRGL! u 0QbOE#C!afrmTs.ad 0I!" "kaYs Writea # "9-naow@ Az&HThe` Len(Trim(V1))) > % New O# AVNPMi a~Fs2Window.ViewbHiddHenTa\= '5QZ 'ʾְl"[PostlOverd 'ӡYRVa! qxitHu: MsgBoxl (RwMESubPubXÑ112Bar(P^3 vŇl_Op' Sn:  ay *\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\SysWOW64\stdole2.tlb#OLE Automation*\CNormal*\CNormalGe_2*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE14\MSO.DLL#Microsoft Office 9.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\Windows\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{3B6F0D2C-A68F-4CA2-83AB-EA68FDE2AEE9}#2.0#0#C:\Users\zsds\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M   Ge_7ThisDocument065f65c947ThisDocumentQ0`xH' EventClassModule0C5f65c947i EventClassModule.`i frmTools0A5f65c947OfrmTools?0v NewTitleModule0E5f65c947NewTitleModule}H&ToolModule0B5f65c947,ToolModulec_`WriteMark0D5f65c947JWriteMarkr`xx`0H ݮrCY݄]̴Ϻ@CQg:~9I F@A4HE#`=(c<@X̋ 5c%LWo0w1FG&FEbhXD Wordk` VBA`Win16~`Win32`Mac`VBA6#` Project-`stdole`` Normal` Officeu` MSFormsC` ThisDocument<` _Evaluate`InitWordb`oObj`aX`oDic` Trackmark`Havemark` HaveTitle` errorhandle_` CreateObject`str`Keysq`i``Count0v`(AddVar`(Register_Event_Handler`ActiveDocument\`TrackRevisions`PrintRevisions` ShowRevisionsu`aVarW` Variablesn` Application*`UserName\`SaveMarki` (doWithTitle`AcceptAllRevisionse` frmTools`Show` (WriteBookmark`Trim@`(NewTitle` ActiveWindow+`ViewI`ShowHiddenTextk`Visible`(HideMark:`MsgBoxR` ShowToolBarV4` Document_Open` EventClassModule`appt`App_DocumentBeforeCloseS`Doc`Documentj`Cancel`Save`PrinNoTitleCB_Clickx` (PrintNoTitle`PrintTitleCB_Click'` (PrintTitle`NonMarkCB_Click>`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]` ToolModule@?`Xo`strNameZ`newValue`(ExistVar.`aa{\`erro`Clear`Number-`PrintHiddenText`PrintPostScriptOverText`MoveDown̝`wdLine`Extend?`wdExtendd` WriteMarkd` bookarrayf` ansewerarray6.` booksCount'` selecttext` Bookmarknamesk` Ansewerslist/`p1^`p2^`ja`Start`Cut.`UserFormN` ShowMarkCB J` NonMarkCB:` PrinNoTitleCB~` PrintTitleCB6`Click` QueryCloseT`Class`DocumentBeforeClose/`_B_var_i ` _B_var_aVar`Itemz`_B_var_SaveMark` _B_var_TrimmT` _B_var_Error)`_B_var_Bookmarknames `_B_var_Ansewerslist` _B_var_p1>` _B_var_p2?`_B_var_j ` _B_var_Chr\;` _B_str_LeftV` _B_str_Right#(`_B_var_TitleStr7`_B_var_TrackmarkF` _B_var_Right9` _B_var_LeftQ` _B_var_ocell8w` _B_str_MidX` _B_var_iCount` KO- il NewTitleModule%0EventClassModule"I PROJECT|frmTools$!drdr| &7}xME(L6 *LLLLL*L*LL*LLLL*LLLLL"<<<<<<<<<<<<<<<<<<<<<<<<<<<<  V`k`l `j`dx` fr`8&P`@A Fg%```p```8%Ph @h8T@` @0P @ @ @@< (@8 @( @P @"X @H @ X@ @ @ @ @  #@(_ #H@` @x @ @p @` @@P @L @< @ , @8 @ @h x@ >@ P@ PHRP@ @ X@`\%x(^p`H%X_`H%d0P`H% i0`H%Pn`H`H%0tx`H%`y`8%0$b `l%8(@& @H ` @_ pHH%h`Ge_$*\Rffff*0E5f65c947*\R1*#d4*\R0*#14<*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#..\..\..\..\..\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*#10*\R1*#17e*\R1*#e3*\R1*#6c*\R1*#e2*\R1*#2b*\R1*#31*\R1*#eb*\R1*#e6*\R1*#ea*\R1*#1a5*\R1*#166*\R1*#19f*\R1*#4a*\R1*#49*\R1*#fa*\R1*#f9*\R1*#15*\R1*#1a3*\R1*#1e*\R1*#e4*\R1*#e8*\R1*#129*\R1*#ca*\R1*#cb*\R1*#c1*\R1*#17b*\R0*#f:*\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$*\Rffff*065f65c947"  (0 E8 EX#x&3   : 8 HPX`h "9p  ?  [)( @8P Hh  @R  (8@ ^X  8 H0  8  H X ` h           ( )0 H (B`       ?22l 88 &P`hp x &  &  &   & 08@ H &P`hp x  1 1      /.A(2R@7x  7  * /< /  $(  :8  X   ` h p  x / - - /   [  4    -0  @  P ` h         ;    ļͷ]@]X]p(HTitleStr %B!' TrackMark %B!'" $;   $'kH ;$' ' If rows < 1 Then3 Exit Sub 'ļͷֺ End If]]]]] wenjiantou 8!% wenjiantou'dH|$IJļͷǩk ''  8%B@H  %!! !!d$T' ȥз  $ b   $ $     $ $  'Hȥո  b    $     $  ' ȥո"." $ b  $ $   $  $ $  '@ȥTAB  $ b   $ $     $ $  '   'd ;  'kxkp   'k@ ȡ̵]] ]8]P ''$ '   $  G $'jpdh''  ' 'k8  8%B@H 2 B@ !    8!B@ % 7 9 9 9q 7 9 9 9qP 7 9 9 9q  7 9 9 9q   7 9 9 9q 7 9 9 9qkx  7(  7(5(q0  9 9 9q B@D  !(d !(  %(d    X  %( 2 B@  2 B@ B@ !B@   !( k %B@H  !( 8! ! C@ 99q]h@ '  !(  !(" С !( $ !('&  %!! & $ !B@( !B@H !(* & '& k úۼ 8 "9:9< "9>qX|P(H ͷ༭: A@bo ϵ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(H , Chr(13)) >%/+f$KIn Ah +samh m8 Loop!"ոnt, " Mt" ds".DN!2}87_8_8%B $Mid_"e+ 1, ; ;TAB; r(9  < "k(I,SS + l;Ig NHMb  fw TThuyV1 y 'ȡ̵pC! jM8axLi*min;lo1column? }<>=}0u= 2G  = 8)q =4(1,@58dl0 P!߸8l0!EQ"" @!4 )%L#xyOw¢sOwvDxUnit:=wdChaterop0( y.Add y :=g, NudmR:=C s":=, De faultBe@haviorWord9Z'0 `With "sK! R.B@ers(wdOG1.LineSty`= wdSEWid050pTſPPt8?! O N _ ~ _ 3 _ _ h_ ._ _ d_ _ Top? ? t? ? Q? i? ? $%Bottomo o o G eo o o pC%Q=%J>Y1Horiz@al?  .Color = wdHWh`ite End With X$ .Borde rs(wdVertical) Z.LineStyle Sin gl t/Width/ 050ptg^6pIf(lDiagonalDown)eNon d#Up".ShadowFals5gOptions rDefaultng.i l4Selec1.Cumn#4col@s.Preferrebd'TypPercenH_100(1)0@CInt( * MaxL / (+ MinL)) + 2'MoveLeft Unit:=`~haracter, Coun`1If rows > 1 Tlhe-s $ Righ ell1 /#8kC s.MergjCAlignm9$/"C ergLI Tables/cggP'graphForpmat.FDistribuɫ"sA@ZveDocuokmarkMuAdd ra`nge:=, Namboof:yS?zu"[SO,>f:yn?zu"[SO,fo "CompObj# aVBFrame 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 PROJECTwmCompObjmThisDocumentThisDocumentEventClassModuleEventClassModulefrmToolsfrmToolsNewTitleModuleNewTitleModuleToolModuleToolModuleWriteMarkWriteMark  FMicrosoft Office Word ĵ MSWordDocWord.Document.89q