ࡱ> tws{q` R>bjbjqPqP@X::,)RT :::8:$:RR;;"<<<<<<eKRRRRRR$ThcWBR!<<<<<BR<<cRWEWEWE<<<IWE<eKWEWEWE<; `J:ApWEEyR0RWEWE@WWEWWE<<WE<<<<<BRBRGE<<<R<<<<$$$4,"N  ?e^Ǒ-Nt:ggDBDlrtƳubO> h8CJKHaJo(v $h8@CJKHaJo(v $h8@CJKHaJo(v $h8@CJKHaJo(v h8CJaJo( h8@CJKHo(v  h8@CJKHo(v $h8@CJKHaJo(v  h4o( h8o( h8CJo(h4h8CJ0OJPJaJ0o(h8CJ4OJPJaJ4o(h4CJOJPJo($&(*,.024l  h  WD` $YDa$YD$a$ $da$gd4dgd4`>>  f h 8 : d f   L N v x   <*<,<̿̆wwwwwwwwwwwwwwuwUh85CJOJQJaJo(h8CJOJQJaJo(h8h8CJOJPJh8CJOJPJo(h85@(CJ$PJ\o( hko(h8CJ$OJPJaJ$o( h8o(h8CJaJo($h8@CJKHaJo(v $h8@CJKHaJo(v . : z $d$&`#$/Ifa$ WD`  V b d VC3CCd$&`#$/If$d$&`#$/Ifa$kd$$Ifl\x! t 6`0:"44 lad f r t ~ VCCCCCC$d$&`#$/Ifa$kd$$Ifl\x! t 6`0:"44 la -$d$&`#$/Ifa$kd$$Ifl4^ֈ xx!) t 6`0:"44 laf4 $d$&`#$/Ifa$ -$d$&`#$/Ifa$kd$$Ifl4rֈ xx!) t 6`0:"44 laf4    @ J L cP:PPd$&`#$/IfWD`$d$&`#$/Ifa$kd$$Ifl40!# t 6`0:"44 laf4d$&`#$/IfWDU`L N R V Z ^ h j S@@@@@@$d$&`#$/Ifa$kd{$$Ifl4\! t 6`0:"44 laf4j t v x z -kdZ$$Ifl4r@ x!88V t 6`0:"44 laf4$d$&`#$/Ifa$ $d$&`#$/Ifa$$d$&`#$/Ifa$ kdA$$Ifl4L֞@ xP!88b v~ t 6`0:"44 laf4 SCd$&`#$/IfkdT$$Ifl4oF! t 6`0:"    44 laf4$d$&`#$/Ifa$  fSS$d$&`#$/Ifa$kd$$Ifl4oF! t 6`0:"    44 laf4   |ii$d$&`#$/Ifa$kd$$Ifl^0!t t 6`0:"44 la  , 0 < H T ^ h r ~ |iiYYYYYYYd$&`#$/If$d$&`#$/Ifa$kd $$Ifl0!t t 6`0:"44 la ~ kd6 $$Ifl4ֈ c!t&) t 6`0:"44 laf4d$&`#$/If d$&`#$/IfWD`d$&`#$/IfWDS`Xd$&`#$/IfWD`X$d$&`#$/Ifa$ -$d$&`#$/Ifa$kdF $$Ifl4|ֈ c!t&) t 6`0:"44 laf4 *<,<><F3$d$&`#$/Ifa$kdV $$Ifla\Mcx!  : t 6`0:"44 lad$&`#$/If:P;` NCQ/f&TOl4~z6e/f&TOl4~>yOOWёя Nt^Q ge͑'YݏlU_я Nt^ gebɋbzU_?e^Ǒ- Nt:gg D<@<B<\<^<ikd* $$IflI0 !p  t 6`0:"44 la$d$&`#$/Ifa$,<@<B<Z<^<`<z<|<~<<<<<<<<<<<:=<=>=F=H=h=>^>`>b>f>h>l>n>r>t>x>z>>>>>>>>˨woh"0JCJjh"0JCJUh"0JCJo( h"0Jjh"0JUh"jh"U h Ao(#h4h8CJ$OJPJQJaJ$o(h8CJOJQJaJh8CJaJo(h85CJOJQJaJo(h85CJOJQJaJo(h8CJOJQJaJo(+^<`<z<|<|ii$d$&`#$/Ifa$kd $$IflN0 !p  t 6`0:"44 la|<~<<<|ii$d$&`#$/Ifa$kdz$$Ifl0 !p  t 6`0:"44 la<<<<<<<<|lllYYY$d$&`#$/Ifa$d$&`#$/Ifkd"$$Ifl0 !p  t 6`0:"44 la<<<<<<S@@@@$d$&`#$/Ifa$kd$$Ifl4\ ;\ !u2!V t 6`0:"44 laf4<<<<<=0kd$$Ifl4N\ ;\ !u2!V t 6`0:"44 laf4$d$&`#$/Ifa$d$&`#$/If= ==$=.=:=$d$&`#$/Ifa$:=<=>=@=B=D=@----$d$&`#$/Ifa$kd$$Ifl4r  !u t 6`0:"44 laf4D=F=H=h=-($a$kd}$$Ifl4r  !u t 6`0:"44 laf4$d$&`#$/Ifa$h===>^>`>d>f>j>l>p>r>v>x>>>>>>>>> hh]h`h&`#$gd YdWD^`Ygd4dgd4>>>>>>> h Ao(h"h"0JCJo(h0JCJmHnHujh"0JCJU>&P 0pu1Z2P/R . A!l"#$4%S $$If!vh5555#v#v#v#v:V l t 6`0:",5555$$If!vh5555#v#v#v#v:V l t 6`0:",5555$$If!vh555555)#v#v#v#v#v#v):V l4^ t 6`0:"++,555555)f4$$If!vh555555)#v#v#v#v#v#v):V l4r t 6`0:"++,555555)f4$$If!vh55##v#v#:V l4 t 6`0:"+,55#f4$$If!vh5555#v#v#v#v:V l4 t 6`0:"+,5555f4$$If!vh5558585V#v#v#v8#vV:V l4 t 6`0:"+,55585Vf4$$If!vh5558585b 5v5~#v#v#v8#vb #vv#v~:V l4L t 6`0:"+,55585b 5v5~f4$$If!vh555#v#v#v:V l4o t 6`0:"+,555f4$$If!vh555#v#v#v:V l4o t 6`0:"+,555f4$$If!vh5t5#vt#v:V l^ t 6`0:",5t5$$If!vh5t5#vt#v:V l t 6`0:",5t5$$If!vh5t5555&5)#vt#v#v#v#v&#v):V l4 t 6`0:"++,5t5555&5)f4$$If!vh5t5555&5)#vt#v#v#v#v&#v):V l4| t 6`0:"++,5t5555&5)f4$$If!vh55 5 5: #v#v #v #v: :V la t 6`0:",55 5 5: $$If!vh5p 5#vp #v:V lI t 6`0:",5p 5$$If!vh5p 5#vp #v:V lN t 6`0:",5p 5$$If!vh5p 5#vp #v:V l t 6`0:",5p 5$$If!vh5p 5#vp #v:V l t 6`0:",5p 5$$If!vh5u525!5V#vu#v2#v!#vV:V l4 t 6`0:"+,5u525!5Vf4$$If!vh5u525!5V#vu#v2#v!#vV:V l4N t 6`0:"+,5u525!5Vf4$$If!vh5u5555#vu#v#v#v#v:V l4 t 6`0:"+,5u5555f4$$If!vh5u5555#vu#v#v#v#v:V l4 t 6`0:"+,5u5555f4N@N cke $1$a$$CJKHPJ_HaJmH nHsH tH$A@$ ؞k=W[SOFi@F nfh =b k 0 y<  ZI~<ZZII~~z2>>7"PS"PS"PS"<"jW6Ng|}~=hjopwxy~    %&')+-/45:;<=BEJKPQRS\fghq{|*+,9:;HIJOTY^chijostuvwx} +,./124578ABCRSTW0000000000000000000000000000000000000 0 00000000 0000000000000 00000000 0000 000000000000000000000 0 00000000000000000000000000 000000000000000 00000000@@00000000000@0@00@0@006Ng|}~=hjopwxy~    %&')+-/45:;<=BEJKPQRS\fghq{|*+,9:;HIJOTY^chijostuvwx} +,./124578ABCRSTW000000000000000000000000000000000000000000000 0 0000004000 0000040000000004 00000000 0000 000000000000000000000 0 000000000000000000000000000000 000000000000000 00000000@0@000000000000@0@00@0@0|X  (((+,<>> !+ d L j  ~ ><^<|<<<<=:=D=h=>  "#$%&'()*>  "+!!8@0(  B S  ?V!"#6;NTglpquvz{jnpvy}~  $'()*+,-./359=ABDEIKOS[]ehprz|),8;GJNOSTXY]^bcgjmorx|} ++,8@EOTW6MNfg{<=gpvy}~  $'359=ABDEIKOS[\ehpqz|),8;GJNOSTXY]^bcgjnorx|} ,CEOQW6,CEORW,Wa"]Td34_8 A:4OY:P?T~^Ysd[jgvmz4pNkac18vOjopwxy~    %&'/45:;<=BEJKPQRS\fghq{|*+,9:;HIJY^chijsuwx,.147TW  BookNamesH CurUserNameLH DeleteMarcesHDocNameHhaha HNewInfoHOldInfoLH SplitTool@HTitleStrPH TrackMarklHyear1_2;filetype1_2 __NSFalse$3EC32256E236E66A4825756D00250788.doc10002009012&;&Ym"ǑvW[ False Ym_lw"?eS;eN;1 V@h@XV@h@XV@h@XV@h@XV@h@XV@h@XV@h@XV@h@XV@h@XV @h@X Project.NewTitleModule.NewTitleProject.ToolModule.HideMark)Project.ToolModule.Register_Event_HandlerProject.ToolModule.ShowMark Project.ThisDocument.ShowToolBarProject.WriteMark.WriteBookmarkProject.SplitModule.SplitDoc)Project.SplitModule.InstBokMarkBeginTable)Project.SplitModule.InstBokMarkLastColumn*Project.SplitModule.InstBokMarkTotalAcount PROJECT.TOOLMODULE.HIDEMARKPROJECT.TOOLMODULE.SHOWMARKPROJECT.SPLITMODULE.SPLITDOCPROJECT.NEWTITLEMODULE.NEWTITLEPROJECT.WRITEMARK.WRITEBOOKMARK PROJECT.THISDOCUMENT.SHOWTOOLBAR)PROJECT.SPLITMODULE.INSTBOKMARKBEGINTABLE)PROJECT.SPLITMODULE.INSTBOKMARKLASTCOLUMN)PROJECT.TOOLMODULE.REGISTER_EVENT_HANDLER *PROJECT.SPLITMODULE.INSTBOKMARKTOTALACOUNT@HV@@<Unknown Gz Times New Roman5Symbol3& z Arial;5 N[_GB2312;ўSOSimHei1eckYSO;5 wiSO_GB2312;[SOSimSun=Rz{h[eckSO;" Helvetica 1hwfwf&!-!),.:;?]}    & 6"0000 0 0 00000 =@\]^([{  0 0 00000;[l~d**ITY 3qHP(?820 Ğef_o(u7bOh+'0$ 8D d p | 4  Normal.dot ΢û2Microsoft Office Word@G@~@@՜.+,0 X`t|  񺼰*   !"#$%&'()*+,./012345689:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abdefghijlmnopqruvyz}~Root Entry F@1xRData -r1Table7WWordDocument@XSummaryInformation(cDocumentSummaryInformation8kMacros, p`JVBAp`Jdir:__SRP_0 |__SRP_1__SRP_2   !"#$%&'()*+-./123456789:;<=>@ABCEFGHIJKLMNPQSTUVWXYZ[\]^_abcdfghijklmnopqrstuvwy{}~60* pHdProjectQ(@= l RK J< rstdole>stdoleP f%\*\G{00020430-C 0046}#2.0#0#C:\WINNT\System32\c2.tlb#OLE Automation^D@NormalDNABrmaE  *\C' l!Of(ficfO`ficf!G{2DF8D04C-5BFA-101B-BDER5fAAd42fgram Files\Microsoft 6\MSO9.DLL#  9.0 Ob LibraryCMSF>s>AMSF>s$3@_D452EE1-E0D8FA,A-8-02608C4D0BB4_DOWSG`FM20 'BF l&/;"1?~wBz ~00}#0~# 5h0 AE7DA0FC6-4c4B8C-A9FE975D@FF09256DOCUME~1\ADMINI~1.ZHA\LOCALS@Temp \VBE\U.eibEi)g/ /+1@ 3zT!2+265aU\k1aEv@gClassEvEfC`"a2s+]q2"}of0'Y1'7@'ׇ2K2`ລ<o3LHrU~~~~~~~q    oObjstrNamenewValue   q (Cancel CloseMode A8 !Happ a X hDocCABIK*y *\CNormalrU~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Ɉ E%xI a 1  a Xqa pia Qy!)Ia   1 I i ia I q^M4fQdәy ThisDocument WriteMarkNewTitleModulefrmToolsfrmSplit ToolModuleEventClassModule SplitModuleProjectF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  ` F5C:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLBWord papp0FC:\WINNT\System32\stdole2.tlbstdole 1yL-[DR 1C:\Program Files\Microsoft Office\Office\MSO9.DLLOffice .E .`M C:\WINDOWS\System32\FM20.DLLMSForms aKKN] %6C:\DOCUME~1\ADMINI~1.ZHA\LOCALS~1\Temp\VBE\MSForms.exd ak Fy`]Fxc*WKtSȊqI@CKvBOM FDocumentInitWord InitWordsplit ShowToolBar @ (Scripting.DictionaryKeys CountRegister_Event_HandlerAddVarExistVarShowMarkHideMark  CurUserNamee Ff Fp F TrackMark 0L*K.OSpKw>;:)@T{\cIiI GSʄEDve{lFWJO NonMarkCB!-6S` a8ȏ[qJ eUserForm62Z#e(M Y F3Dynamic  H ShowMarkCBNonMarkCB_ClickShowMarkCb_Click SplitCB_ClickUserForm_ClickUserForm_QueryClose H WriteBookmark  F F TitleStrNewTitleVBE6.DLL    +=h8+3q7(T%@̳uM*=h8+3qpE GvD׀!=h8+3qClassPgv3+3o VBInternal   FApp_DocumentBeforeClose H88fĤIx8<< F  Bookmarks BookNames NewInfo ; &;&g F rangeText StartEndCutInsertAfterAdd   wenjiantou h Fu FM FQ F^ F  ; F FK FO FJ FS FR F [SO e4YQ: k ( i H ` h h  j     S  5825^rU 0Q   @  9 a    11  1Y 4a[W\H  H\N \\AHl%(4\AH($5Hh4 @lH`1D5H"D@\HD -5H 4~Y T:$NHH$  0  , l!  /)5HI:$ NHH$  0  , l0/)5HMpZlpZ($%$ $ 4Q       cS:$NHH$  0 Qo (]t6H $ 4Q kZ  kZ  kZ  c\D,4\Dl4 H0   0   HrU @(`;(A`;$`n__SRP_3,__SRP_4 0__SRP_5?__SRP_6 DrU~|  @  9   d,&x$  Qx[t$ $ t,$ 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\5Ii+5Fea2B[*wxMErU~|  *1@  9 qQ IAiq1Q1 1Y!A y\ KR E8<:PN@@`$ ` 0< ,>8F()`<5@E8<:PN@@`$ ` 0< ,>8F)`<5@#(@  @:P]35@&(@(P"( (3:PN@@(8 l/85@l5Ipj kj-9 <` $ 4` 8< Hk)`<s CxpCd?MP@<` $ 4` 8< @ L)`< (P[<` $ <` T< 0  hQ[)`;:)@T{\cIiI GSʄEDvexSfrmTools WriteMark&ToolModulewSplitModuleiʄEDveOSpKw>MEPSPSSS6" <<0{DD3A3BD7-1229-407F-9C0F-E0547B97F05C}{A163AC14-EDB4-49B3-9A69-49B520F147C2}xh  @`|k `  `   `  ` @i` i % %@(%8X%@@@h@@@@@t8`0H@RK$*\Rffff*0E4b52d4b6$*\Rffff*0C4b52d4b648< " "  ( " 08@ " H P "  X`8h A@toh@A@voPA@o8o('Բ𣬴˹ܹر ϢA@ oXPAttribute VB_Name = "frmTools"  Bas|0{DD3A3BD7-1229-407F-9C0F-E0547B97F05C}{A163AC14-EDB4-49B3-9A6^9B520F147C2} dGlobalSpacoFalse CreatablPredeclaIdTru BExpo se0TemplateDerivCustomizD P Sub NonMarkCB_Click() Hide EndSho:wb plit 3SDocUserForm QueryClO(Cancel As Integer, pModeHjtvFP@X @ @ @ (@ @d @ X@hp @@lX @n @p @ @Xx p0@h X@@f (@T @P (X!"c@@ Effe@0 PRK$*\Rffff*0F4b52d4b6"*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*#f$*\Rffff*0C4b52d4b6*\R1*#cb*\R0*#f*\R1*#cc*\R1*#cd*\R1*#c6$*\Rffff*064b52d4b5*\R1*#c1*\R1*#17b* " (08@ HX EhE33    P0P1X xC ! 5+  (08@H P `]@]X]p]]]]`8 >.Vpting. V!b.X BookNames %6!f'dNewInfo %6!f'h d;$j'R h&;&$j'T R'l T'n X!,'\ l n p l p$R >!b%rA@t p$R$X!Z.Z Z!d'^A@v p$T$F ^$F Z!x Z! ZBzk p$T$F ZB| p$R Z XB~kkk`A@v|onAttribute 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 g)  Start cEnd" CallCu$# IfA IhrtAfte|r(Q cT.Ad\@&,cy]sN;e:!S LLLLL"<,<0<4<8<<<%P8% 0``tk .`hPki< i> +@X`8o   i< `B h v`|k t`@|k!8@X` 6X` X` X` X` X` X` X`  8@@h@Px @hh @d @T @P 8@x8``@z  D@T@d @T @P @L @< @8 8@8x @t h PhX ( @RK$*\Rffff*0D4b52d4b6$*\Rffff*0C4b52d4b6*\R1*#c1*\R1*#17b*\R0*#19*\R0*#13*\R1*#cc*\R1*#cd*\R1*#c6$*\Rffff*064b52d4b5&"& 8 " @ H `?p(B    ?$ (08@H P"h p  "   ]  !2 8/Vo@` Ӹֱ <$@ > < %6(fdp < > !6B@~ kPoHжϱǷ]@ DB@F < %6!f'B D!H'@d'@ki ʾۼX (Bĩз (D WORDoh ڲغۼ$ ( (B ĩз (D o Attribute 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   -L7HxME( D  0 @  "P  x  $       ~ R       00 ` h ~x      8  H X h p             * 0  08H      @ P  h x  & $  (  "0 X ` ~ hx  0*@ p    ( @ P` hx   :H  "8HP~`  H@P         08X p  8H`      (0X`"h "   *     8H LX&    (08@HPX`hp (t H ` p  " , $ ( 8 ~@  (  0 @X `  (  (8  ` p  x   (! &8!`! h!" p!x!!!!!!!! !$!!   " " ""    " """ #  # (# 8#   H# P#p# # # ($ 8$H$X$ $ %  \%  nh% %  % (& 0& ,@&p&  x&& & "& & "& & & &$'0'8'@'H'"P' X' "`' ' ' '$''''( "( ( "( @( `( h(&x((((( ( ZX BeginTable B@ >!bĵ 99q( , B@ ^, B@\ b fd B@` B@h$ l!~.j j.docpC@nq B@r >B@R >!!, 'V >B@Bi@ appendtotext Macro> 2003-4-8 ͻ ¼ ¶ο 88479329 12549346]QҪǩtotalAcount ,λڡϼơУҪbeginTableλеġСء]'ҪǩlastColumn λһС]]]]]](]@]X]x]] On Error GoTo errorhandle  !(l totalAcount >!b%rD lastColumn >!b%reD BeginTable >!b%reDkx ZX BeginTable B@  %"ǩλô·ãA@ |d %!'t t"ǩλô·ãA@ g = |kk ZX totalAcount B@Ac  B@arks(b  % i B@ %!'t od"ĩǩλô·ãA@  |k ZX lastColumn B@  %4  %B@HnStr  %'v13)) >dH"ĩǩλô·ãA@ llco|k$V'Chr(13  >!!,뽫棡A@ lconte|k  >%%!Z!xx  >%%!Z! >%Z!d *ڶ׸ԪΪգ뵥λƣA@ tent|k $.]]]DocName %6!f' $F5 ޷ȡĵϵԱA@ - 1) T|@k8TempPath %6!f'rt $Ft - 1) ޷ȡñ·ϵԱA@  |k  .doc $'ļĴ· A@//add by kk test7Selection.GoTo What:=wdGoToBookmark, Name:="BeginTable">MsgBox CInt(Selection.Information(wdStartOfRangeColumnNumber)) Exit Sub//endnL =ڲָλĵ.For l  //ȷλ; ] ZX BeginTable B@en(a  %X' //ʼеĿ]0'  tme    >%%!Z!xx    >%%!Z! >%Z.on !d$  !d$  !d$F !d$F (dabk  '  >B@Rs(wdBo)/////////////////////////////////////////'  t le    >%%!Z!xx    >%%!Z! >%Z.En !d'|, !d'z WiMsgBox currentDanWeiName B@ B@h.LineS l!~.ty   z.docpC@neWqh B@r050pt >B@R ]HnoSet'ol]`'' |  ' !      >%%!Z!xx      >%%!Z! >%Z.050pt !d'~ ~ ~$  ~$  noSet '6 λset' k  ' w!      >%%!Z!xx      >%%!Z! >%Z. En !d'~1  sets(wdBo   ')k t    vAle = w >B@RSingle''''''''''''ϴ >B@Bth = w'''''''''''''''''''ɾ  &ӵλĵ     t v A kknoSet'''   ' ½ĵ һλ ]x .doc']' l!~.or  pC@n q@ $B@'  t .B    >%%!Z!xx    >%%!Z! >%Z.ty !d'z' ' z  '!      >%%!Z!xx      >%%!Z! >%Z.erLine !d'~neWi ~ ~$ = wdCo  ' !      >%%!Z!xx      >%%!Z! >%Z.Select !d'~Pref t   vAct $B@ B@rdthTypk   'rc  t l B@s(1).Pҳ=  'L ''''''''''''''''''''''''''''''''''''''''''''''''' Set currentPageNum = Dialogs(wdDialogDocumentStatistics) 'ǰҳţںţ4''''''''''''''''''''''''' ɾǰҳĴn.Sele  !!( , B@I ! B@Cell  !!(= wdk $B@ ½ĵ λction. $B@'  t n.    >%%!Z!xx    >%%!Z! >%Z.d !d'ztion' z$  ~$  z$F  'wH!      >%%!Z!xx      >%%!Z! >%Z.ection !d'~ Fon ~  'on!      >%%!Z!xx      >%%!Z! >%Z. iC !d'~9 H t   vAio $B@ B@r6 k In  'ysd   ' k  t   l B@ ҳ'  'z'''''''''''''''''''''''''''''''''''''''''' Set currentPageNum = Dialogs(wdDialogDocumentStatistics) 'ǰҳţںţ 2''''''''''''''''''''''''' ɾǰҳĴ  !!(th , B@ E ! B@andl  !!(gBoxkH $B@0 $B@ $B@ $lB@R''''''''''''''''''''''ϴ B@B6!!'''''''''''''''''''''''''''''ɾ|Dִ󣬲ҵǩA@ `h|`oX tablePageNum# 2003-6-7 칫շԱ ¼ B@ B@h wenj  lB@~ B@r wenj !(FSelection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=tablePageNumB@ ZX yinfadanwei B@! ^ B@d$F !B@ȥ ! 9d5(d 9 99999999q b fd B@` , B@ $ t   vA $  !+ ʱ.docp    >B@n Ƶڴ B@ B@h B@Bohh]Hɾǰ浥λnewDocRowCount]` ZX BeginTable B@  %X' >  '  ,]x   >%%!Z!xx   >%%!Z! >%Z. B@H 7 ^  , fd B@ !B@k] ɾ浥λ7   t   'd t    '9kx  !     >%%!Z!xx     >%%!Z! >%Z. B@H ^  , fd B@ !B@k  % кϼƽ!   v  >%%!Z!xx   v  >%%!Z! >%Z. B@H =SUM(ABOVE)"$ B@ ko]]]]]]0]H'(]h ZX BeginTable B@  %X'4 (  !  (  4  >%%!Z!xx  (  4  >%%!Z! >%Z.2 2!d', 2!d$F'. B@ B@h l!~.& &  ..docpC@nq B@r >B@R'*start to del the rows , * '*#  ( *  4  >%%!Z!xx  ( *  4  >%%!Z! >%Z.2 2!d'0 0 * '*#  ( *  4  >%%!Z!xx  ( *  4  >%%!Z! >%Z.2 2!d'0 V''''''''''''''''''''''''''''''''' MsgBox "ǰӵλ" & newSubDocRowCount & "" g' Call delRows(rowsCount, currentRowNum + subDocCurrentRowNum, newSubDocRowCount, tabsNum, columnCount) t  ( *  vA >B@R !'''''''''''''''''''''''''''''ϴ >B@B %'''''''''''''''''''''''''''''ɾk * ( '(poh InstBokMarkBeginTable Macro 2003-6-4 qy ¼ >!b !ZZ BeginTableC@~ 99qo InstBokMarkBeginTable Macro 2003-6-4 qy ¼ >!b !ZZ LastColumnC@~ 99qo InstBokMarkBeginTable Macro 2003-6-4 qy ¼ >!b !ZZ TotalAcountC@~ 99qHo@86Attribute VB_Name = "SplitModule" Function getTableNo() As Integer !SeleL.GoTo What:=wdBookmark, :="Begin`<With ABveDoc@ument.9sc*.DefaultSortingwd By` +ShowHidden'False End ;cMoveLef t UnieCharacter, Coun 2UpLine1HomeKeyStory, ExtendCCopy Set tmpdocrs.Add T.SavetFiw@h.@h KJPastToC'L s.T + H Clon ţPublic Sub A@>() ' appPtotext MacroA 2003-4-8 ͻ ¼ ο 88479329 125493463Dim rows-NLo 'Ҫǩ@alAc ,λڡϼơ(У b£еġСءcolumn laC һGpreDanWeiAS ng urr@oRowFirstCellContQ n0_ a*cNuma *new < ptabsA attach C"Gmainrang1d]a N`A' On Error eAhandlc]Window.View.TypawdPrintA" If.Existsd("O")`n Thenc~E#E ? ("L "? C?IfbЉЀInformah(wd!I#UMsgBox "xλô aIxit%#3Nj= Ams(1).NIndexNot ( 1)l>o hi i ])*S hollapse@ArcpMRStart#OOleATruesҋcՍF.UĩТ` _\_ 90g'CiG*;4BOfRTecjZberz/4 RAa=J" b3'4S? ڡw߿>cBE(lf(R:=/ lesR($ ).A)(A:=2:=@B2.2, _??w?nge. - T}e"`e%ڶP0׸ԪΪAQ뵀λPt page nЁ=AalogsZDixR}t0eics% Q{thismmmontemppats S)=PFA.Vari"D")@lu$'`Trim((J""J޷ĵqϵԱ_U !rv TP  & ·~ S1)p Co= !ٹ,`!(1, , 2") A*/'ļ`Ĵ T! +P-FO@DiAgP ut'//add by kksCh'WR_og'C(%StSr)- ' σR'ڲָ8λhĵ.  @'//ȷλDim col_start As IntegerpSelection.GoTo What:=wdBookmark, Name:="BeginTable"v= CT(LInformaX(wdSyOfRangeColumnNumber))GеĿurr@entRow c= 1$While ( <= rowsCount8 Set rI1 = AveDocum%4. e([:= s(tabsb).Cell(M:=9, s )*.*, _cUCEndM2 - 1;If ((Left(?.Text, @A" " Or 2) ") And TrimThen6M A+If)n= +ExendB gSave/# @u+2B<S?Av(\DanWei'MsgBoxE>GWhole Story CopEt mainz zs.AdGpWithbB.aGFCCom(mon& & ".doca$ lPastRUAA1String= "noL M/šɺ = 0# new!cNot;"}( ex.fǟ0Y + i@:"4!Gn`@4\k.dJ(%91]_ob, ^c@/dc( -))~ oc7,{<$'a aset3qgl=$%r,G,n0{?? @_-/bNOO?[-""c ~W~!'J$ub3N#R-Q3#q 1!Call @delMul1s(֤,Ea:,GTpb5Oab' ϴ $Closɾ2S> 0S 'sS7ǡ createNew=s(<4}>, fTyJka#9u7"vq @*t1/B! ,'½ pһ!5~totalAtta|ch-m؉""d Pag~eq E ga= @ 7 B6o 攰nd (this).3&u#0)q> [5 [[+OCt)1ZZZȴw:=currentRowNum, Columnol_start).range.End - 10) DanWeiName = N1.TextFnewDocCount@0 2If Not ("") Then)kG + 1,SetoActiveum(S:= Table@s(tabs).Cell(]8 + >4, ~_Mfa>փxAFirstnCxontImA While ((n@sAP iOr (Left , 2)" ")p=UZu ?v?vAJe.v(??x̦kyendEr!Call attachTemplate(rowsw, uA ),ac"b`=^Wind(to0talA @r)."p@ 'Sele@von.Paste!YIfc*Lmt`# <@mGInsertBreak Type:=w,dSN dPag'ҳ`''J', c g Dialogps(wd#Wtistics) 'ǰҳţ!-ɾĴC?=ePane.View.Seek`!)ekCFooter '1D Dte Unit0Charac`e`:=*GI6 (p5num.s(_`FMain)RU`# f^his  ^Wo'½ ĵλ#_ ; t2$cd< &{t1$RB5sXussBsT OrzzsowRMp(wo~Io rwA! Trim) <> Ot+1aeR1M24Ot.nts^Os4 OE`__88rP\:(3 5ǟ_Xŀ  6Zɯivtiw#0G$=<`@ElsO8S ϔe L@> 0)o5zoo' . Qߍm@Tch 0__A?'__Q er Selection.DHte Unit:=wdCharacter, PCounL1TypeText (pagenumR.s)VAveWindow.Pane.View.Seek = wd MainDocumentCEnd If  Gs(this'Name")Uate"en>d z2otalAttach?. , K%Sa v>'ϴCF Clos  ɾExit Sub@ err:)MsgBox "ִҵǩ"orhandleXB  a?TemplAT(rows, curreRowNum, new@D@olumn'tableP 7 2003-6-7 칫շԱ ¼@ 4Whole StoryMCope.Add ENewBlankPasfCerticalPerc?Scrolled 3,+GoTo WhawdA?,@ich"N, :=KHBookmark"yinfadanweixGtKeyL,in>F^.ClearForm>ingcWith  .}= ".Re9Ecev wabra&TruB^A .Wrap ContinC1 FalceMatchCaseubGWoBy =  Wild*cs S`dsLikAll?n!,C*,Ho me6^, Ex~t H##Call delM(ultvs_{owD{1{a0 dk.!As File\"ʱ.doc","c::= _c wd% , L@ockComAJs$:="8, usw1`::=" ~ToRer!I ;o(ritsReadOnly  ded Embed!FQ NativePictureeAsData %AOCELetd"'ƵڴE? c3Dd́O^ [~^e^Ks2`c^!Dim pre@&I Int@eger 'Ql浥λd0_start1?#UWRBepginTAitKx= C@ (Inf"Q(OfR`angeCber)c E=r - 2GIf> 0) Thenr2SSet N=D8(S :N=9Ћab)@.Cell(P:L=2Q{:=g)..,511o$O!OwO1 1Eq)- 1CPA+MoveDownnV%T/A' w Q*n}/`/'A / > `xZIh%ʘ4s EZs1 <= - +  t ?-?+?+r?+le$$0 [O,t%O,R @ O,O,2_ү33_-2_-_-_-6o-"7o-?*oc-7* 'кϼƽ7Q1 +RIc??&sXJVJE tt.OQFQmQ1wIns ula t=SUM(ABOVE)3gٷ#}@ cre6(cRowsCount, currentRowNum, tabs@ro olumnCommonName) Dim subDoc As um 6C PInteger'newSFk%iMFirstCellCo Pnt4StringDanWeiNex-Rang1're`_E=s.AddgWith!#.SaveF`P#_ &dd?H& ".docCc !0'PastzR da'' f' to del the aGIf NotooC"") Th= ?  O\1\W^\llOmL^#OU]q =?!t.  A .*t2?! /#!WenU' MsgBox "ǰӵλ"U3!UtU CallLs(٤{,(k MulQ:_e%ï_ ݌aϴClosh#7IIf'?.m`|o O@c(  ` InstBo,kM( ' 'ѭ Macro 2003-6-4 qy ưQIu.s#1 K:=WߵԵq .Defa&SortpByShowHidden0FalUwSv\LM_rk7__0a *_ _q[ @__r_#_"TotalAc"" t.ߏڋ t""?"041ThisDocument_VBA_PROJECTr#NewTitleModuleSTEventClassModule"k       !"#$%&'()*+,-./0123456789:;<=>?@CDEFGHJLKMONPQR T b R7Q<y`]Fxc*WKtSȊqI@CKvBOMxvBOMy`]Fxc*WMEH@S"SS">" *L "LLLL FHx`8% XX@ x@ @ `%'8@RK$*\Rffff*064b52d4b5$*\Rffff*0G4b52d4b6"*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*#f*\R1*#17e*\R1*#c1*\R1*#17b$*\Rffff*0F4b52d4b6$*\Rffff*0E4b52d4b6*\R1*#cc*\R1*#c0*\R1*#cd*\R1*#c6$*\Rffff*0C4b52d4b6*\R0*#144["  "08@ $H p  %" "T "I(PX`hx     &S   ( 08 @ "  H "Px $     0 @"H "p    &  (  0" 8@P `***********Ĵݺ]`]x]Scripting.Dictionary$$.  . ]D !(' * !, *$'& & &$ A@. *A@0 CurUserName %6 2(4 TrackMark %60'"d'" 8B@:kA@<úۼ >9@9B9Dq8TitleStr %6$F A@Hk úۼ > "9@ "9B "9Dqo***********Ĵݺ] ]8]PScripting.Dictionary$$.  . ]Dh !(' * !, *$'& & &$ A@. *A@0 CurUserName %6 2(4 TrackMark %60'"dX'"kH LB@:A@< > "9@ "9B "9DqTitleStr %6$F A@Hko 8B@:oAttribute VB_Name = "ThisDocument" Bas1Normal.VGlobal!SpaclFalse CreatablPre declaIdTru BExposeTemplateDeriv$CustomlizC1P Sub InitWord(ByRef oObj As ect)@ '*Ĵݺ @ Dim aoDicTrac kmark%Bo olean%Se\t ve3("Scripting.!tionary">L.Pstr ,Sn0g a'*.Keys For i 0 ToB.Count -` 1 =0 a(iAddVar , (@Next i.Regist er_Ev@_H@andler|p plica,.UXserĚ.@i`s("CurE 7 If BQM@Q")3"0"-@ eQ0 GY= =EC~EfrmTes.Show 0 End If Write@lBo='úۼCPWith ActӇV.%Revisr.s.'.ntA%/)A&OLen(TrimB(VQitle@E"@))) > Bha(NewT!G 'v^! fSubaQws Ptwxw2dxEai#fjyacHtza^Az nj{{A|` |t}A}a~!Ax! rkg4& j! @SJFa#cA^d΁C Xe炡@A[9?AA5B99Pub`2u UBar(eWWrAay *\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:\WINNT\System32\stdole2.tlb#OLE Automation*\CNormal*\CNormalRK *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\Program Files\Microsoft Office\Office\MSO9.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{E7DA0FC6-4BFA-4B8C-A9F6-4E975DFF0925}#2.0#0#C:\DOCUME~1\ADMINI~1.ZHA\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M   RK7ThisDocument064b52d4b5ThisDocumentQxH0XWriteMark0F4b52d4b6PWriteMarkUx NewTitleModule0G4b52d4b6NewTitleModuleS(0CfrmTools0E4b52d4b69frmTools\xH frmSplit0=4b52d4b5MfrmSplit+` ToolModule0C4b52d4b66ToolModule\xa EventClassModule0D4b52d4b6; EventClassModuleYf SplitModule0B4b52d4b5TSplitModuleH3L`xH0I98=G}0SvgIz]vώIDKjwB_uAՃajsA=gBB f^I O'iN5v13EN$a&ߊ&#MpX"/889U Wordk` VBA`Win16~`Win32`Mac`VBA6#` Project-`stdole`` Normal` Officeu` MSFormsC` ThisDocument<` _Evaluate`InitWordb`oObj`aX`oDic` Trackmark` CreateObject`str`Keysq`i``Count0v`(AddVar`(Register_Event_Handler` Application*`UserName\` Variablesn` frmTools`Show` (WriteBookmark`ActiveDocument\`TrackRevisions`PrintRevisions` ShowRevisionsu`Trim@`(NewTitle` InitWordsplit` frmSplit` ShowToolBarV4` WriteMarkd` bookarrayf` ansewerarray6.`appt`books`range ` booksCount'` selecttext` errorhandle_` Bookmarks?n` Bookmarknamesk`ValueK` Ansewerslist/`Split)`p1^`p2^`ja`Exists]`(HideMark:`(ShowMark`Start`Cut.` InsertAfterq5`Addr` NewTitleModuleg`arraysH*`rowsU`OldStr'`TitleStr`Right `booknamea`flag`rang1 ` cellcontent`iCountl`ocellK` SelectionZ`Tables`Cells`ChrK~`MaxL.`MinLX`lc`Deletex`Unit` wdCharacter`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`Columnsp9`PreferredWidthType`wdPreferredWidthPercent/`PreferredWidth'`MoveLeftv` MoveRight`wdCell `Mergeq_`VerticalAlignmentʡ`wdCellAlignVerticalCenterf`ParagraphFormat` AlignmentI`wdAlignParagraphDistribute@m`DefaultSortingz` wdSortByName\` ShowHiddenqs`FontSize`FontU`Size`Bold` wdColorRedo(`MsgBoxR`NonMarkCB_Click>`ShowMarkCb_Click?` SplitCB_Click`(SplitDoca]`UserForm_Click`UserForm_QueryClose`Cancel` CloseMode؟`vbOKOnly`cbHideMark_Click`cbShowMark_Click9`cbTopLeft_Click5`ret` vbOKCancelx?`vbOK%`(InstBokMarkBeginTable`cbTopRight_Clickڳ`(InstBokMarkLastColumnc`cdBottom_Clickt`(InstBokMarkTotalAcountF` cdSplit_Click`` ToolModule@?`Xo` EventClassModule`strNameZ`newValue`(ExistVar.`aa{\`erro`Clear`Number-`App_DocumentBeforeCloseS`Doc`Documentj`errdoneR`Save` SplitModuleu` (getTableNoM`WhatC`wdGoToBookmarkJ`MoveUp`wdLine`HomeKey`wdStory&`Extend?`wdExtendd`Copyƿ`tmpdoc` Documents`SaveAsf;`FileNamej`Paste` rowsCount` columnCount$` preDanWeiName_`currentDanWeiNamemJ`currentRowFirstCellContentB`nextRowFirstCellContent >` currentRowNum\`newDocRowCount?c`tabsNumh` attachDoc'F`mainDoc+`SubDocRowsCount,` ActiveWindow+`ViewI` wdPrintView(` Information` wdWithInTableT`RowIndex6d`Collapseu` Direction&`wdCollapseStart|` selectCellU`wdStartOfRangeColumnNumber7`Cell`Row`Columni`pagenum`Dialogs`wdDialogDocumentStatisticsi` thisDocNameT` CommonName`temppath`ChangeFileOpenDirectory=` col_start` currentRowSm` WholeStory`mark1:I`MainDocRowCountw`MainDocRowsCount2` (delMultRows]`(createNewSubDocg`totalAttachDoc`currentPageNum@`Windowsd`Activate|`(attachTemplate` InsertBreakѺ`wdSectionBreakNextPagex` ActivePane_`SeekView$`wdSeekCurrentPageFooterO`TypeText`pages`wdSeekMainDocument` DocumentType`wdNewBlankDocumenta`VerticalPercentScrolledz`EndKey5`Findn`ClearFormatting)` Replacement`Forward`WrapWy`wdFindContinueBP` MatchCase`MatchWholeWordX` MatchBytes`MatchWildcards`MatchSoundsLike0`MatchAllWordForms` FileFormat`wdFormatDocument` LockComments'`Password`AddToRecentFilesV` WritePasswordOW`ReadOnlyRecommended`EmbedTrueTypeFontsUS`SaveNativePictureFormat` SaveFormsDatac`SaveAsAOCELetter`preRowI`` col_start1 o`rang2 `MoveDown̝`nextRowI` InsertFormulaF`FormulaqY` NumberFormatR`subDoc,`subDocCurrentRowNum`newSubDocRowCount`` subDocCurrentRowFirstCellContent;`subDocCurrentDanWeiName*+`subDocNextRowFirstCellContentpl` subDocRang1]` col_start2 o`_B_var_i `Class`DocumentBeforeClose/`Itemz`UserFormN` ShowMarkCB J` NonMarkCB:`Click` QueryCloseT` _B_var_TrimmT`_B_var_Bookmarknames `_B_var_Ansewerslist` _B_var_p1>` _B_var_p2?`_B_var_j `_B_var_TitleStr7`_B_var_TrackmarkF` _B_var_Right9` _B_var_LeftQ` _B_var_iCount` _B_var_ocell8w` _B_var_Chr\;` _B_str_LeftV` _B_str_Right#(` _B_var_Error)` ClearMarcs {`cdSplitZ` cbTopLeftZ` cbTopRight`cdBottomjb`;U97 MQP@  C7S(xME(LZ6 *LLLLL*L*LL*LLLL*LLLLL"<<<<<<<<<<<<<<<<<<<<<<<<<<<<p H`k`l `j`dx`X `8` As m ro%```p Thi`"Tit`89 %P @h0xj>F@` @HP @ @ @@< (@8 @( @P @"X @` @ p@ (@ @ @ @ @  8#@_   #@x @ @p @` @P @@ @0 (@ @ H 4@X p0B@ XBXDhx@  @ `\%0I@(`H%`JpX`H%@O`H%pT0`H%Y`H%8^H0`H%hc``8%Hm0 `l%@ @P_  %8P `0pRK$*\Rffff*0G4b52d4b6*\R1*#d4*\R0*#14$*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\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#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*#f*\R1*#cc*\R1*#cd*\R1*#c6$*\Rffff*064b52d4b5ߙ6   0 P $p > @ * :H  (     ( 0 P p  $   & &@ $h   B  & @ P h x  0  @ 6  X :x  ` x 6  h < @    8 &@ h       ( $@ h B   0 : X & 2 8@ 8x 0  2 88 8p 0  0 8( 8` 0  4 8  8X 0  8 8 8P 0  6 8 8H 0  P N  .p   : 8 0H x $ H 0 L0 P 8  <( (h ( P  (  NH , > 0 &8 ` &x $ . * ,( 0X   @ < &( P p " . * , H ` p  *  "  E E8#X&p3    "9@X`  ?  [) 8 Nh p @R      0  @PX  ` p) (B  ?2(2mH8 &  &  &   &(8@H P &Xhpx  &  1 1           ( /8 .H AX ,Op 7   7    *! /! !<(!/@! $P! :`! !  !!! !/!-!-!/!  ! [" 4 " @" P"`" h""" """"" ;"" "Sub NewTitle() 'ļͷ Dim arrays As Variant Dim rows As Integer On Error GoTo errorhandle7 TitleStr = ThisDocument.Variables("TitleStr").Value9 Trackmark = ThisDocument.Variables("TrackMark").Value$ If Right(TitleStr, 1) = ";" Then4 TitleStr = Left(TitleStr, Len(TitleStr) - 1) End If! arrays = Split(TitleStr, ";") rows = UBound(arrays) If rows < 1 Then Exit Sub End If Dim books As Variant Dim bookname As String Dim flag As Integer Dim rang1 As range Dim cellcontent As String 'úۼ With ActiveDocument .TrackRevisions = False .PrintRevisions = False .ShowRevisions = True End With flag = 0<If ActiveDocument.Bookmarks.Exists("wenjiantou") = True Then flag = 1 bookname = "wenjiantou"End IfIf flag = 0 Then Exit SubEnd Ifflag = 0)ActiveDocument.Bookmarks(bookname).Select iCount = 19 For Each ocell In Selection.Tables(1).range.Cells0 cellcontent = Trim(ocell.range.Text) 'ȥз4 Do While InStr(cellcontent, Chr(13)) > 0 cellcontent = Left$(cellcontent, InStr(cellcontent, Chr(13)) - 1) + Right$(cellcontent, Len(cellcontent) - InStr(cellcontent, Chr(13)) - 1) Loop 'ȥո0 Do While InStr(cellcontent, " ") > 0 cellcontent = Left$(cellcontent, InStr(cellcontent, " ") - 1) + Right$(cellcontent, Len(cellcontent) - InStr(cellcontent, " ")) Loop5 If cellcontent <> arrays(iCount - 1) Then: ocell.range.InsertAfter arrays(iCount - 1) flag = 1 End If iCount = iCount + 1 Next ocellIf flag = 1 Then'ȡ̵ Dim MaxL As Integer Dim MinL As Integer Dim l As Integer MaxL = 8 MinL = Len(arrays(1)) + 1 For l = 0 To rows; If Len(arrays(l)) > MaxL Then MaxL = Len(arrays(l)) Next* ActiveDocument.Bookmarks(bookname).Select4 Selection.Delete Unit:=wdCharacter, Count:=1 ActiveDocument.Tables.Add range:=Selection.range, NumRows:=rows, NumColumns:=2, DefaultTableBehavior:=wdWord9TableBehavior With Selection.Tables(1)+ With .Borders(wdBorderLeft)2 .LineStyle = wdLineStyleSingle1 .LineWidth = wdLineWidth050pt) .Color = wdColorWhite End With, With .Borders(wdBorderRight)2 .LineStyle = wdLineStyleSingle1 .LineWidth = wdLineWidth050pt) .Color = wdColorWhite End With* With .Borders(wdBorderTop)2 .LineStyle = wdLineStyleSingle1 .LineWidth = wdLineWidth050pt) .Color = wdColorWhite End With- With .Borders(wdBorderBottom)2 .LineStyle = wdLineStyleSingle1 .LineWidth = wdLineWidth050pt) .Color = wdColorWhite End With1 With .Borders(wdBorderHorizontal)2 .LineStyle = wdLineStyleSingle1 .LineWidth = wdLineWidth050pt) .Color = wdColorWhite End With/ With .Borders(wdBorderVertical)2 .LineStyle = wdLineStyleSingle1 .LineWidth = wdLineWidth050pt) .Color = wdColorWhite End WithJ .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNoneH .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone' .Borders.Shadow = False End With With Options3 .DefaultBorderLineStyle = wdLineStyleSingle2 .DefaultBorderLineWidth = wdLineWidth050pt* .DefaultBorderColor = wdColorWhite End With Selection.SelectColumnB Selection.Columns.PreferredWidthType = wdPreferredWidthPercent* Selection.Columns.PreferredWidth = 100E Selection.Columns(1).PreferredWidthType = wdPreferredWidthPercentJ Selection.Columns(1).PreferredWidth = CInt(100 * MaxL / (MaxL + MinL))2 Selection.MoveLeft Unit:=wdCharacter, Count:=1 If rows > 1 Then6 Selection.MoveRight Unit:=wdCell, Count:=1" Selection.SelectColumn! Selection.Cells.MergeI Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter End If" Selection.Tables(1).SelectH Selection.ParagraphFormat.Alignment = wdAlignParagraphDistribute& With ActiveDocument.Bookmarks8 .Add range:=Selection.range, Name:=bookname* .DefaultSorting = wdSortByName .ShowHidden = False End With Dim FontSize As Integer FontSize = 320 \ MaxL' Selection.Font.Size = FontSize# Selection.Font.Bold = True% Selection.Font.Name = ""* Selection.Font.Color = wdColorRed iCount = 19 For Each ocell In Selection.Tables(1).range.Cells6 ocell.range.InsertAfter arrays(iCount - 1) iCount = iCount + 1 Next ocell 'úۼ With ActiveDocument' .TrackRevisions = Trackmark# .PrintRevisions = False& .ShowRevisions = Trackmark End WithEnd If Exit Sub errorhandle:$ MsgBox ("ͷ༭:" + Error)End Sub ļͷ]@]X]p`TitleStr %6!f' TrackMark %6!f'" $;   $'kh ;$j' '  |$ļͷֺk]]]]] wenjiantou >!b%r wenjiantou'd|$IJļͷǩkx''  >%bB@H'  %!Z! !Z!d$F' ȥз  $ b   $ $     $  $  'ȥո  b    $     $  '   'd ;  'k  '   'k ȡ̵]] ]8'$ '   $  G $'j  >%bB@H , B@ !ZZ   >!B@~ % 7 9 9 9q8 7 9 9 9q 7 9 9 9q 7 9 9 9q 7 9 9 9qx 7 9 9 9qH  7(  7(5(q  9 9 9q B@  !(d !(  %(d    X %( , B@  , B@ B@ !B@  !(k %B@H  !( >!b !ZZ C@~ 99qh]P@ '  !( !( !(  !('  %!Z!  $ !ZB@|  ' k úۼ > "9@9B "9DqX|P`H ͷ༭: A@ o ҵAttribute VB_Name = "NewTitleModule" 'SHub T()@ 'ͷ"Dim arrays As VariaDnt6row2I@nteger2 On Error GoTo e handle StrThisDocument.`bles("I"")lu9rackmark: MIf R ight(-, 1)#";" Txhen^LDefLen) - End If= Sp
  • B5 eu$InW w +Â}h a}= 0LoopL" ̸" M= nt, z;@[3<>(DRl;IInsertAfter0)De? ^FiL&d+ *NYd@'vƳ'ȡ̵@0MaxL!oMin4l= 8$ b!?n(12 A>l?0 pxetQ @ 1.g(l6 HysH 'A1wFD JUnit:=wdCha_0@?K:=YA3J.Add BJ:=w, Num2R:=Columns:=2, DefaultrBehaviorQWord9Z kbs@( pdrde@rs(wdBperA:3.LineStypP= wzdS`zJWidPuE050p>p_Wt9v2a   pB h G.  6aTop 3  e\ i 0  Bottom c  M 1  Horizal???F??M??1??1VPrice&J/8/8FSDiagonalDown)# NonL UpDX .Shadowu- \ OptͨT.ha_`Q_ɶeWidth050pt ' .DefaultBorderColor = wdA$WhiteEnd WithvSelection.fumn@8,s.Pref erredTy pei PercenD@100qq(1)Bt#;CInt(> * MaxL / (+ MinL))JMoveLeft Unit:=haracter, Coun 1If rows > 1 The +Righ,ell)C mOCs.MergVerticalAlignmpI/9BC@er3:IfG(Tapbles_ P@QgraphFormat.BDistribu'F3 A@veDocu..Bookmarks .Add ra`nge:=G*,P Nambn'@SoJng3GBy ShowHiddena Fals_P Dim FontSize As egZ= 320 \BW)'! .B =8BoldTru "" cRRedif )f? Each ocNd'I"5.Z A;.HInsYAfs arrays(d- 1e{A+  Nextc'úۼ'pQ!.TkRevis@s U-Print)H .!M MAu Exit Suborhandle:MsgBox ("ͷ༭:" + Eprror)A   &wTitl e(`!'ļͷ  !]2\Var|iaAE `O`ldStrai$ng On# GoTo (=is愂"E").Valo`35h4!:MK@(% ,`O";"D %GALen)> +U= Split$!"= UBjd(j1>gaCcTk#2"`/b#b.sts("wenj(ou")P = =#EB^U `'ijsǩDp9S= 0P`X ( )D&ONW_Wl>l`ua1Y5rim(o1XTS&'ȥ0зADo le0_@(`hr(13))1hq3$In4 L9l!7Q7 Ca LoopXո'l4+,h " p'>5tnt,_??_S @5(2 24+ AR+  )F?!,{{ uX <>61 ,'ȡ@% BlL.Nl= 8WB= !])-==l#0 r߱`l6rQ_HH'FDte/A.cJGbumR0:=!s:=2 , rBehaPviorqW9Z ➯RH3 R !s(wdK.LineStyP۳Single  .LineWidth = wd4050pt`ColorTWhit End 0With x" .Borders(wd Right)fStyle Topa@Bottom1 ?9Horizopntal22Vertic?2d2{DiagonalDown)czNonLUpb.Shadow FalsH /'Options.Default#? OSehlec.#umnG#s.Preferred1TypPeprcen(/100(1)__O CInt(@ * MaxL / (+ M0inL)GMoveLeft Unit:=wdCharacter@, Coun`1GIf rows > 1 The,8 " ell_1 # 8kC s.Merglj#EAlignm_  Cefr7&IfgTables3?n.PgraphFormat.&DistrXibuGR9A,v`eDocua P>o kmarkm:Add range:=G , Nam`bookn 6SoWngRByAShowHidden`ElDim FiSize As (eg= 320 \r*W .b=n.rBold Tru! 0"<"'Red i1P1` Each ovc% "B./b)a-R.InsqAf7 ar rays(- N1~+ 8 N8ext-'úۼ8/'HO.T@kRevisb?(Q PMintI"jowO0-C axit Sub @Zorhandle:MsgBox ("ͷ:" + Error`       !"#$%&()*+-./1345689:<>@ABDEFGI GvD׀7(T%@̳uMME0 SS Sa0N6"LLP<4<8<<<2N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}X %*W8@ J`P8kp( )M x%i %0 %00000%%%% Mx% Mx Mx 00 MxP MxH%x@`( Mxx DL @t @p @l @\ @L @< @8 P00H,RK*\R1*#17c*\R1*#17e$*\Rffff*0D4b52d4b6$*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*#10*\R0*#19*\R0*#1a*\R0*#13*\R1*#c6*\R1*#c04<   $("  P Xx $Q  ¼Ķ] ¼ڴ򿪵ĵر֮ǰ0ĵرǰĸֲP LB@Rp|hP` DX 5825 X 5825|0k(o 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ĸֲ@ On Error GoTo err8don@k.SavDExit#  : If@ CStr(@)6"5825" OrCTheGABnd Ibf# E@=  AID="{230BB21F-C324-49E5-9150-851697AFB79D}" Document=ThisDocument/&H00000000 Module=NewTitleModule BaseClass=frmSplit BaseClass=frmTools Module=ToolModule Module=WriteMark Class=EventClassModule Module=SplitModule Name="Project" HelpContextID="0" VersionCompatible32="393222000" CMG="B3B172F9F9FDF9FDF9FDF9FDPROJECT&frmSplit#`J`Jf'o"$," DPB="3E3CFF76018A8D8B8D8B8D" GC="C9CB088D098D0972" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDocument=0, 0, 0, 0, C NewTitleModule=0, 0, 0, 0, C frmSplit=0, 0, 0, 0, C, 44, 58, 880, 526, C frmTools=0, 0, 0, 0, C, 22, 29, 858, 497, C ToolModule=0, 0, 0, 0, C WriteMark=0, 0, 0, 0, C EventClassModule=0, 0, 0, 0, C SplitModule=0, 0, 0, 0, C (H  @}~R KQ_ $8cdSplit( 8cbTopLefth( 4cbTopRight$8cdBottom ,bReNu"[SO,Lhu"[SO(+gRhqu"[SO,+gLhu"[SOCompObj%0aVBFrame2frmTools!+(`J`Jf7 Microsoft Forms 2.0 Embedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmSplit Caption = "WORD" ClientHeight = 450 ClientLeft = 11040 ClientTop = 1425 ClientWidth = 3990 TypeInfoVer = 17 End (H  @ } R KQ_\( 8ShowMarkCB?z( 8NonMarkCBB?z ,>f:yS?zu"[SO,>f:yn?zu"[SO Microsoft Forms 2.0 Embedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmToo');pCompObj*=aVBFrame?PROJECTwmC"ols Caption = "WORD" ClientHeight = 420 ClientLeft = 11040 ClientTop = 1440 ClientWidth = 1965 TypeInfoVer = 12 End ThisDocumentThisDocumentNewTitleModuleNewTitleModulefrmSplitfrmSplitfrmToolsfrmToolsToolModuleToolModuleWriteMarkWriteMarkEventClassModuleEventClassModuleSplitModuleSplitModuleCompObjHm  FMicrosoft Office Word ĵ MSWordDocWord.Document.89q