ࡱ> jmiq'` RBVbjbj"9"9@X@S@S4VVVVVVVj8 " j::!:!"\!\!\!"""-2W999999$;h)>9-V"""""9VV\!\!49'''"V\!V\!i0'"-2'')VVE*\!.! x$**90:*,>^&>E*>VE*p""'"""""99"'""":""""jjjdjjjjjjVVVVVV DN ,{ Ne:ggSN{~HeċN]\O3uh S! :gg Ty0W @W?exlNNhlQD,gzeg%NgbgqSx T | NgbNSx T|5u݋102030:gg{|+R1.NNUSMO .O^NR@b .DNċ0O:gg 4.>yOT:gg 5.vQN~~W ,g ` Q lNNh ~{W[ t^ g ew"?eS a vz t^ g e-N0ؚ~NNb/gLybgbND*CJ OJPJo(hqCJ OJPJo("h4hq5CJ,OJQJaJ,o(3h#h#5B*CJ$KHOJQJ^JaJ$o(phh{CJ OJPJaJ o(h{h{CJ OJPJaJ o(  0\fhjxzYvkd$$Ifl40"064 lalf4 d$Ifgdq $d$Ifa$ EWD`EgdT4$a$gd{gd{  @VfZQZQ d$If $d$Ifa$kd$$Ifl\,P"p$ 7 064 lalcWNWN d$If $d$Ifa$kdf$$Ifl4\,P"p$ 7 064 lalf4cWNWN d$If $d$Ifa$kd2$$Ifl4\,P"p$ 7 064 lalf4 cWNBN d$IfgdR d$If $d$Ifa$kd$$Ifl4\,P"p$ 7 064 lalf4   b cWK d$Ifgd) $d$Ifa$kd$$Ifl4\,P"p$ 7 064 lalf4` b d r      . 6 < D p r ޺ެrg\gQ\Ihho(hRCJOJPJo(hqCJOJPJo(hACJOJPJo(hA@CJ OJPJo("hRhq5CJ$OJPJaJ$o("h4hA5CJ$OJQJaJ$o(hROJPJo(hRhRCJOJPJo(hRhqCJOJPJo(hRCJOJPJo(hRCJ OJPJo(hqCJOJPJo(hACJOJPJo(hACJ OJPJo(b d h l p t v x z | }}}}qqqq}}} $d$Ifa$ $d$Ifa$vkd$$Ifl40"064 lalf4     p xxiZI$d$4$Ifa$gdq$d$Ifa$gdq$d$Ifa$gdR$d$Ifa$gdRxkd<$$Ifl4Y0"064 lalf4p r ssssss $d$Ifa$$da$xkd$$Ifl40"064 lalf4 @77777 d$Ifkd$$Iflֈ5 w{t"5c064 lal 7kdt$$Iflֈ5 w{t"5c064 lal d$If 7kdJ$$Iflֈ5 w{t"5c064 lal d$If 7kd $$Iflֈ5 w{t"5c064 lal d$If    7kd $$Iflֈ5 w{t"5c064 lal d$If     7kd $$Iflֈ5 w{t"5c064 lal d$If       d$If " $ & ( * @77777 d$Ifkd $$Iflֈ5 w{t"5c064 lal* , . 0 2 4 6 7kdx $$Iflֈ5 w{t"5c064 lal d$If6 8 : < > @ B 7kdN $$Iflֈ5 w{t"5c064 lal d$IfB D F H J L N 7kd$$$Iflֈ5 w{t"5c064 lal d$IfN P R T V X Z 7kd$$Iflֈ5 w{t"5c064 lal d$IfZ \ ^ ` b d f 7kd$$Iflֈ5 w{t"5c064 lal d$Iff h j l n p r d$Ifr t v x z | ~ @77777 d$Ifkd$$Iflֈ5 w{t"5c064 lal~ 7kd|$$Iflֈ5 w{t"5c064 lal d$If 7kdR$$Iflֈ5 w{t"5c064 lal d$If 7kd($$Iflֈ5 w{t"5c064 lal d$If 7kd$$Iflֈ5 w{t"5c064 lal d$If 7kd$$Iflֈ5 w{t"5c064 lal d$If d$If @77777 d$Ifkd$$Iflֈ5 w{t"5c064 lal 7200gdIkd$$Iflֈ5 w{t"5c064 lal d$If VVVV2V4V6V8V:V>V@VBVhho(hIhImHnHsHuh)jh)UhAU hA0JjhA0JUhO{jhO{U VVV:VV@VBVgdI$a$ hh]h`h&`#$ PAGE \* MERGEFORMAT3 >&P 0pu1Z2P/R . A!l"#$4%S $$Ifl!vh55#v#v:V l406554alf4$$Ifl!vh55p5$ 57 #v#vp#v$ #v7 :V l0655p5$ 57 4al$$Ifl!vh55p5$ 57 #v#vp#v$ #v7 :V l40655p5$ 57 4alf4$$Ifl!vh55p5$ 57 #v#vp#v$ #v7 :V l40655p5$ 57 4alf4$$Ifl!vh55p5$ 57 #v#vp#v$ #v7 :V l40655p5$ 57 4alf4$$Ifl!vh55p5$ 57 #v#vp#v$ #v7 :V l40655p5$ 57 4alf4$$Ifl!vh55#v#v:V l406,554alf4$$Ifl!vh55#v#v:V l4Y06,554alf4$$Ifl!vh55#v#v:V l406,55/ 4alf4$$Ifl!vh555555c5#v5#v#vc#v:V l065555c54al$$Ifl!vh555555c5#v5#v#vc#v:V l065555c54al$$Ifl!vh555555c5#v5#v#vc#v:V l065555c54al$$Ifl!vh555555c5#v5#v#vc#v:V l065555c54al$$Ifl!vh555555c5#v5#v#vc#v:V l065555c54al$$Ifl!vh555555c5#v5#v#vc#v:V l065555c54al$$Ifl!vh555555c5#v5#v#vc#v:V l065555c54al$$Ifl!vh555555c5#v5#v#vc#v:V l065555c54al$$Ifl!vh555555c5#v5#v#vc#v:V l065555c54al$$Ifl!vh555555c5#v5#v#vc#v:V l065555c54al$$Ifl!vh555555c5#v5#v#vc#v:V l065555c54al$$Ifl!vh555555c5#v5#v#vc#v:V l065555c54al$$Ifl!vh555555c5#v5#v#vc#v:V l065555c54al$$Ifl!vh555555c5#v5#v#vc#v:V l065555c54al$$Ifl!vh555555c5#v5#v#vc#v:V l065555c54al$$Ifl!vh555555c5#v5#v#vc#v:V l065555c54al$$Ifl!vh555555c5#v5#v#vc#v:V l065555c54al$$Ifl!vh555555c5#v5#v#vc#v:V l065555c54al$$Ifl!vh555555c5#v5#v#vc#v:V l065555c54al$$Ifl!vh555555c5#v5#v#vc#v:V l065555c54al0J@J cke $1$a$ CJKH_HaJmH nHsH tH$A@$ ؞k=W[SOFi@F nfhO> )0 Char Char1CJPJaJh!X.345<=BCDIJOPQVW`abhiqrsx{~   89NORW\_befghijklmnopqrstuvwxyz{|}~"ȑ0ȑ0ȑ0ȑ0ȑ0ȑ0ȑ0"ȑ0"ȑ0ȑ0 ȑ0 ȑ0 ȑ0  ڸ ڸ ڸ ڸ ȑ0  ڸ ڸ ڸ ڸ  ȑ0 ȑ0  ܸ X? t? ? ȑ0  ܸ X? t? ?  ȑ0ȑ0ȑ0ȑ0ȑ0ȑ0_ 3ȑ0ȑ0ȑ0ȑ0ȑ0ȑ0ȑ0ȑ0ȑ0ȑ0ȑ0gȑ0ȑ0ȑ0ȑ0ȑ0 $000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0ȑ00ȑ00ȑ00ȑ0000 @0@0ȑ00  3336` BV) b p    * 6 B N Z f r ~ BV  !"#$%&'(*@V -/6!!@  @H 0(  0(  B S  ?56:;=ADHJNQUW_bcdefgipsw"./2367OQRVW[\^_abd"$-.25;=ADHJNQUW_bgipswxz{}~79MOQRVW[\^_abd"$35    9O""xm%0cek^`ko(.H\H^H`\)\^`\.\^`\.4\4^4`\) \ ^ `\.| \| ^| `\. \ ^ `\)\^`\.xm%|l        #{q! T4I LQRWWr])|!(A4'VO{V.345<=BCDIJOPQVW`abhiqrsx{~ 89NORW\_befghijklmnopqrstuvwxyz{|}~"a2  BookNameslR CurUserNameR DeleteMarcesR DocNameR hahaS NewInfoS OldInfo SplitTool8S TitleStrHS TrackMark year1_2;filetype1_2P\nfFalse&AD699827083F30DE482570E3000E0F0C_1.doc1000200506&;&Ym"~HeW[ False Ym_lw"?eS;eN;1 V@Z@XV@Z@XV@Z@XV@Z@XV @Z@XV@Z@XV@Z@XV@Z@XV@Z@XV @Z@XV @Z@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.InstBokMarkTotalAcountProject.ThisDocument.ChangeView PROJECT.TOOLMODULE.HIDEMARKPROJECT.TOOLMODULE.SHOWMARKPROJECT.SPLITMODULE.SPLITDOCPROJECT.NEWTITLEMODULE.NEWTITLEPROJECT.THISDOCUMENT.CHANGEVIEWPROJECT.WRITEMARK.WRITEBOOKMARK PROJECT.THISDOCUMENT.SHOWTOOLBAR)PROJECT.SPLITMODULE.INSTBOKMARKBEGINTABLE)PROJECT.SPLITMODULE.INSTBOKMARKLASTCOLUMN )PROJECT.TOOLMODULE.REGISTER_EVENT_HANDLER *PROJECT.SPLITMODULE.INSTBOKMARKTOTALACOUNT@t@{(!@@ @VUnknownGz Times New Roman5Symbol3& z Arial;5 N[_GB2312;[SOSimSun;ўSOSimHei;" Helvetica 1hZ$&GZ$II!-!),.:;?]}    & 6"0000 0 0 00000 =@\]^([{  0 0 00000;[lӸk'2qHX?A20 ĞefUser Oh+'0 , L X d p|4  Normal.dotUser4Microsoft Office Word@^в@5U@V35U@TxI՜.+,0 X`t|  񺼰'   !"#$%&'()*+,./012345678:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXZ[\]^_`bcdefghklopstuvwxyz{|}~Root Entry F|+xnYData -V1Table9>WordDocument@XSummaryInformation(YDocumentSummaryInformation8aMacros, xxVBAxxdir0__SRP_0 r"__SRP_1__SRP_2 "  !#$%&'()*+,-./01234689:;<=>?@ABCDFGHIKLMNOPQRSTUVWXYZ[\]^`abdfghijklmnopqrsuvwxz{}~,0* pHdProjectQ(@= l 9w&E J< rstdole>stdoleP f%\*\G{00020430-C 0046}#2.0#0#C:\WINNT\System32\c2.tlb#OLE Automation^D@NormalDNABrmaE  *\C GA!OfficfOA`ficf!G{2DF8D04C-5BFA-101B-BDE5fAAd42fgram Files\Microsoft 6\MSO@9.DLL#  @9.0 Ob LibraryCEMSF>s>MS"F>s3@@_D452EE1 -E08FA,A-8-02608C4D0BB4_FM20& lL&/;!1}Bwy }00}#:0}# 50 b00BAB946EC-44A1-82A4-36112B23B2696DOCUME~1\fuxiaopu\L OCALS@Temp\VBE\T.exdb<".E .`M E7ThisDocumentGDTh@sDDmculeTn@ 2 Q` H1bv",(Q""+AaWriteMa rkGW*rt^Mhrhk2/DR-U!b%VNewTitleModuleG! NwTB!M#d#a]&2sD/$S(frmToolsG$m o ls#Mi2ro5 o\3( %$ 0Spli`F'SpibEi)g/d /+1@{4G K32=`eoNoH+2! Evh`ClassEEvFgC #a`3sq2"}o[Y' %HeGa+L25A<rU~~~~~~~~~~~~~~~~~~~~~U    strNamenewValue rowsCount currentRowNumnewDocRowCount columnCounttabsNumSubDocRowsCount CommonName  oObj  qFGNK*m  *\CNormalrU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~| \XmjN  a q Q5 ) Q a   a  )a  1aQqa a i )I ƈZ @񓏙qProject ThisDocument WriteMarkNewTitleModulefrmToolsfrmSplit ToolModuleEventClassModule SplitModuleF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  )` F4C:\Program Files\Microsoft Office\Office\MSWORD9.OLBWord !p0FC:\WINNT\System32\stdole2.tlbstdole 1yL-[DR 1C:\Program Files\Microsoft Office\Office\MSO9.DLLOffice .E .`M C:\WINNT\System32\FM20.DLLMSForms Y`2p?F)OX 2C:\DOCUME~1\db2admin\LOCALS~1\Temp\VBE\MSForms.exd YRegister_Event_HandlerAddVarExistVarShowMarkHideMark ģ1 getTableNoSplitDocattachTemplate delMultRowscreateNewSubDocInstBokMarkBeginTableInstBokMarkLastColumnInstBokMarkTotalAcount k FEO7:MM]{ E?܆=[D7BB%J;Iv FDocumentInitWord InitWordsplit ShowToolBar @ (Scripting.DictionaryappKeys Count CurUserNamee Ff Fp F TrackMark 0*GN%HuRT<1Jxn)7OC آLS,h8|r _BK<>ȏ[qJ eUserFormwBdtB[OV F3Dynamic a{lFWJO ShowMarkCB!-6S` IY NonMarkCBNonMarkCB_ClickShowMarkCb_Click SplitCB_ClickUserForm_ClickUserForm_QueryClose H WriteBookmark F F)Q TitleStrNewTitleVBE6.DLL  P)p  +=h8+3q!NQ/jz$bO&R(BϖI*liǮHe5 I9oEJYa 1؛$wFLaMeWtMn֡ wenjiantou h Fu FM FQ F^ F  < F; F FK FO FJ FS FR F [SO e4YQ:6)M6p@4LH k  i  ` 8 h X j x S RLUIiB}ӎ@|v_\5J(/H >KmyqHѼKCZ1;˯N.ꗾybNbI;/cdBottom `ԳVDVo3UF),+9$H>H&Akɷ[O>YUNqLJ{/ɓ GI +*@\@EOy X@@W 1pJm7͍{ /PDeF&2R)Jȅ=ͿZ %8bT7L*Cst8OJD_SPۼHvR'g'$FBrzU\YvSHt1LxxHcn)*%F4%Q L^V4@tžm ضI>P]FEzɢ]PkjB9= ( X]oE^(aFJ)m^aDDF+y|ěY)EFW>XGwq~#Z!w;JPWQ(>iF'F\<HgffZFoCw2[&I86shyO# Їp * t/JF'skI?KN Э_9EB#/EJ^P*fvB~ek!H?JDH,u;6cdSplit cbTopLeft cbTopRight\CE3x ,x cbHideMark_ClickcbShowMark_ClickcbTopLeft_ClickcbTopRight_ClickcdBottom_Click cdSplit_Click P3/H 1{Pأ- ~B?l9uKL P@0w)wIȻ{BQO"t6$SrD4WÓnɕ/G-ᇌ޶ jIAΥ*+BNL; .H b6;K&J`#|ڥO=H,|CaC,PPRCI!f0Jv,M*:_bBзJˌjrlcS, AfʼOjK6LN \X m 0 &@ABc#Gf@%nՇ|9DВ[e|OE'K`P M Ą[{H-;RIe"0HM0X/`UK)3 [dF]FG i2 Se7BUExKMa<(IïVW`sB3[VDL;GUi3xr4$aKKcZFO$vO&bMNz|MOGȠآS_L#L4b&nC\HHEPĢڪ 4P loJt>: K PV ChangeViewb F F` FqȰEIMYMJH}*$葵dCiP%L#NPC~#:0e4"Hp"ז#FҕIm&hhH6_5d;mO=*Vh0SMkwl:)Acڼ`C-rh8@K&1 y78D5GN̔ :3 6Dfwv͎7OS(.gY6d(JA/ɵܷND |u*MK< NX?iGb]5NGd=vg^j)L@uu)zD_~O~sLI5]CKOG¾ 9g&XNC j|rj-B6fq1 FB<]4@{}co/ AB xЯ#YDZB,I61-+ȑ{Gy|lhGbh+l?FUjP\xn!Hp5C+m0e.0EKF) 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@l5Ipj kj-9 <` $ 4` 8< Hk)`<s CxpCd?MP@<` $ 4` 8< @ L)`< (P[<` $ <` T< 0  hQ[)`LF7UxME,6  LLLL"L<0<4<8<<<0 <`0k))`Rl `T@\ `VL x`X< `Z, `\*`^$ Pp%Ph8hx>jtvF@@ @  @ (@ @ @d X@H @@hp @lX @n @p @ @x @h (@f !!@T (@P H@@ @0 PH9w&E$*\Rffff*14468cb2b2"*\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*11468cb2b2*\R1*#cb*\R0*#f*\R1*#cc*\R1*#cd*\R1*#c6$*\Rffff*06468cb2b1*\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 LLL"LL<,<0<4<8<<<%% 0``(tk .`xPki4 @̬i6 |+8X`8o   i4 `: h v`|k t`|k!0@X` .X` 0H8@t@`x @xh @d @T @P `8z <@@d @T @P @L @< @8 0@x @t hh ( P9w&E$*\Rffff*12468cb2b2$*\Rffff*11468cb2b2*\R1*#cc*\R1*#cd*\R1*#c6$*\Rffff*06468cb2b1*\R0*#13*\R0*#19*\R1*#17b*\R1*#c1&"& 8 " @ H `?p(B    ?$ (08@H P"h p  "   ]  !2 0/VFPo@` ӸֱGo 4$8 a 6 4 %6(fdp 4 6 !6B@~kPoHжϱǷ]@ <B@>F 4 %6!f': <!@'8d'8ki ʾۼX (B  (Doh ڲغۼH (B (Do 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   N7HxME( D  0 @  "P  x  $       ~ R       00 ` h ~x    (   ( 8 H P p  x           x * 0   (      0  H X  &x $    " 8 @`hp ~ HX `p *  P `     0@ HXh   :(h  "(0~@  H 0        8 P` p 8(@`x      (8@"Hpx "   *    ( L8&    (08@HPp (t ( @ P `p " x, $   ~   (    8 @`h x   (  @ P  X  x  ! &!@! H!" P!X!`!h!p!x!!!! !$!!   ! ! ""    " """ " # # #   (# @#`# p# # $ ($8$H$ $ 0#  \$  nP% %  % (% & ,(&X&  `&p& x& "& & "& & & &$'0'8'@'P'"X' `' "h' ' ' '$'''(( "( ( " ( H( h( p(&((((( ( PN BeginTable B@ >!b, 99q" , B@X T, B@R X \Z B@V B@^ocf b!~.` `.docfC@dqH" B@h'L >B@H >!!, 'L >B@Bendtoti!@ appendtotext Macro ¶> 2003-4-8 ͻ ¼ ¶ο 88479329 12549346talA]QҪǩtotalAcount ,λڡϼơУҪbeginTableλеġСء]'ҪǩlastColumn λһС]]]]]](]@]X]x]] On Error GoTo errorhandle  !(l totalAcount >!b%rb%<( lastColumn >!b%re!b%< BeginTable >!b%re Begi<k PN BeginTable B@(  %¶"ǩλô·ãA@!|Hd@ %!'j j"ǩλô·ãA@ |kk PN totalAcount B@  B@  %! B@ %!'jdH"ĩǩλô·ãA@last|k PN lastColumn B@  % %B@H  %'lôd"ĩǩλô·ãA@|XkP$L'z z >!!,뽫棡A@|k z >%%!Z!xx z >%%!Z! >%Z!d*ڶ׸ԪΪգ뵥λƣA@.|(k  $.]]]DocName %6!f' $Fϵ ޷ȡĵϵԱA@th |kTempPath %6!f' $Fϵ ޷ȡñ·ϵԱA@|k  .doc $'ļĴ· A@ĵ//add by kk test7Selection.GoTo What:=wdGoToBookmark, Name:="BeginTable">MsgBox CInt(Selection.Information(wdStartOfRangeColumnNumber))Exit Sub//endڲָλĵ.ò //ȷλ v] PN BeginTable B@x  %X'0 //ʼеĿ]0': : j  : 0 z >%%!Z!xx : 0 z >%%!Z! >%Z.'' !d$  !d$  !d$F !d$F (dk@ : ':( >B@H)/////////////////////////////////////////'v v j x v 0 z >%%!Z!xx v 0 z >%%!Z! >%Z.> !d'r( !d'p B@ B@^ b!~.~ ~  p.docfC@dq B@h >B@H]HnoSet']`''x r x 'xx! v x  0 z >%%!Z!xx v x  0 z >%%!Z! >%Z.''' !d't t t$  t$  noSet x'6 λset'k  x 'x! v x  0 z >%%!Z!xx v x  0 z >%%!Z! >%Z..d !d'th set x  'k8 j v x z lA >B@HB@''''''''''''ϴ >B@B v'''''''''''''''''''ɾ!  &ӵλĵ  v  z j l Akhk`noSet''' x v 'v(½ĵ һλ!Z]x .doc']' b!~.|> | fC@dq $B@'v v j  v 0 z >%%!Z!xx v 0 z >%%!Z! >%Z. !d'p 'x p x 'x>! v x  0 z >%%!Z!xx v x  0 z >%%!Z! >%Z.ҳ'' !d't'' t t$ '''''' x 'xrr! v x  0 z >%%!Z!xx v x  0 z >%%!Z! >%Z. !d't0 j v x lA $B@ B@hk v x 'v v j l B@ҳ  '''''''''''''''''''''''''''''''''''''''''''''''''' Set currentPageNum = Dialogs(wdDialogDocumentStatistics) 'ǰҳţںţ4''''''''''''''''''''''''' ɾǰҳĴ  !!(Left , B@2) = " ! B@x  !!(k` $B@H½ĵ λ >% $B@'v v j . v 0 z >%%!Z!xx v 0 z >%%!Z! >%Z.x !d'p 'x p$  t$  p$F x 'xl! v x  0 z >%%!Z!xx v x  0 z >%%!Z! >%Z. !d'tB@ t x 'x! v x  0 z >%%!Z!xx v x  0 z >%%!Z! >%Z. 0 !d't'''' j v x lA $B@ B@hk` x v 'vB@d8 v x 'vk v j x  l B@ ҳ  'z'''''''''''''''''''''''''''''''''''''''''' Set currentPageNum = Dialogs(wdDialogDocumentStatistics) 'ǰҳţںţ 2''''''''''''''''''''''''' ɾǰҳĴ  !!(2003 , B@ ! B@B@~  !!(k $B@ $B@ $B@ $bB@H''''''''''''''''''''''ϴ B@Bum !'''''''''''''''''''''''''''''ɾ|<ִ󣬲ҵǩA@`|o tablePageNum9# 2003-6-7 칫շԱ ¼ B@B@V B@^  bB@~Z B@hx !(FSelection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=tablePageNum PN yinfadanwei B@ T B@ڴ !B@> !9d5(d9 99999999q X \Z B@V , B@'  j v x lAx !+ ʱ.docf  >B@d Ƶڴ B@, B@^B@ B@B oh]Hɾǰ浥λnewDocRowCount]` PN BeginTable B@ '  %X'2 v '   ]x 2 z >%%!Z!xx 2 z >%%!Z! >%Z.  B@H T  , \Z B@ !B@kH] ɾ浥λ x  j v x '!Zd j v x  ' >%k   ! x  2 z >%%!Z!xx x  2 z >%%!Z! >%Z.  B@H T  , \Z B@ !B@.k x % кϼƽ! x  l z >%%!Z!xx x  l z >%%!Z! >%Z. B@Hto d =SUM(ABOVE) B@ko]]]]]]0]H']h PN BeginTable B@to d  %X'4   ! v   4 z >%%!Z!xx v   4 z >%%!Z! >%Z.$ $!d'$ $!d$F' " B@ B@^$ b!~.   .docfC@d' q0 B@hλ >B@HDocRow'xstart to del the rows   '!# v    4 z >%%!Z!xx v    4 z >%%!Z! >%Z.$ow $!d'"ocRo "m,  '# v    4 z >%%!Z!xx v    4 z >%%!Z! >%Z.$ab $!d'" V''''''''''''''''''''''''''''''''' MsgBox "ǰӵλ" & newSubDocRowCount & ""2003 g' Call delRows(rowsCount, currentRowNum + subDocCurrentRowNum, newSubDocRowCount, tabsNum, columnCount) j v   z lA >B@Hle Mac !'''''''''''''''''''''''''''''ϴ >B@B  %'''''''''''''''''''''''''''''ɾk   'o@" 2003-6-4 qy ¼& InstBokMarkBeginTable Macro >!b !ZZ BeginTableC@~ 99q&oX' InstBokMarkBeginTable Macro 2003-6-4 qy ¼ >!b !ZZ LastColumnC@~ 99q&o& InstBokMarkBeginTable Macro 2003-6-4 qy ¼ >!b !ZZ TotalAcountC@~ 99q%o%%MsgBox currentDanWeiName(6Attribute 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_PROJECT$NewTitleModuleTEventClassModule"      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEHIJKLMORPQSTUWVn  7Q<q1 FB<]4@{}co/ AB xЯx/ AB xЯq1 FB<MEH@S"SS">" *L "LLLL FH `@@ @ @ ``'@@@9w&E$*\Rffff*06468cb2b1$*\Rffff*15468cb2b2"*\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*14468cb2b2$*\Rffff*13468cb2b2*\R1*#cc*\R1*#c0*\R1*#cd*\R1*#c6$*\Rffff*11468cb2b2*\R0*#144b" `4h7*"  "08@ $H p  %" "T "I(PX`hx     &S ( 0 8 @H P "   " (0 $8 ` p    " " @H PX`p x &   "  ***********Ĵݺ6$]`]x]Scripting.Dictionary$$.  . p]D ` !('P * !, 0 *$'& & &$ A@.2( *A@0 CurUserName %6 2(4 TrackMark %60'"d'" 8B@:kpA@<úۼ$ >9@9B9Dq(TitleStr %6$F ***********Ĵݺ] ]8]PScripting.Dictionary$$.  . ]Dh !(' * !, *$'& & &$ A@. *A@0 CurUserName %6 2(4 TrackMark %60'"d'"k LB@:A@< > "9@ "9B "9Dq`TitleStr %6$F A@Hk(o  8B@:oA@Hk úۼ > "9@ "9B "9Dqo !!| ~  !!(ld   !(lkoAttribute VB_Name = "ThisDocument" Bas1Normal.VGlobal!SpaclFalse CreatablPre declaIdTru BExposeTemplateDeriv$Custom izC1Sub ChangeView() If Act#Window. .SplitSpecialOwdPaneNone Th|envT yp|rintq' E4npd IfW , Prv ^InitWord(ByRef oOb j As ecBtg '*Ĵݺ @ Dim aoDicCTrac kmarkBoolea9 Set A @te("Scripting.tionary"@ A&Cstr S`ng aA.Keys For i0 ToB.Count - 1 `= a(iA@ddVar , (@Next i Register_Ev_Handler@npvca,`.Userɼ.@iAs("CurE 7 BQM@Q")3"0"0 GY= D̓!EfrmTes.Show 0ÆWrite@lBo='úۼ#(pWith\G+.ARevis9s@.OntE`XA'Len(TrimB((itle@E"))) > B"naNewT!G 'v2! fSubaQwswxw dxEai#fjyacHtza^Az nj{{A|` |t}A}a;~!Ax! ƿg4&߫ j! @տF|A1 1t!/2 H@O +A2wA@A[9?AA5B99Pub8lic2ua=UBa>raWxAam *\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.1#0#C:\Program Files\Microsoft Office\Office\MSWORD9.OLB#Microsoft Word 9.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation*\CNormal*\CNormalG *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.1#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:\WINNT\System32\FM20.DLL#Microsoft Forms 2.0 Object Library *\G{200BAB94-E0EC-44A1-82A4-36112B23B269}#2.0#0#C:\DOCUME~1\fuxiaopu\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M   9w&E7ThisDocument06468cb2b1ThisDocumentQxH0WriteMark14468cb2b2PWriteMarkUxDNewTitleModule15468cb2b2NewTitleModuleS(0sDfrmTools13468cb2b29frmTools\xH5 frmSplit0;468cb2b1MfrmSplit+` SplitModule0<468cb2b1JSplitModuleHN EventClassModule12468cb2b23 EventClassModuleY ToolModule11468cb2b2.ToolModule<xAHx`0W$,|Do/SA6vn(fO#4F`G(VH<|I"EyO#U0~2bIvP'ϵarHFz'38?@W 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`TitleStr`Right `booknamea`flag`MaxL.`MinLX`lc` SelectionZ`Deletex`Unit` wdCharacter`Tables`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 `Cells`Mergeq_`VerticalAlignmentʡ`wdCellAlignVerticalCenterf`ParagraphFormat` AlignmentI`wdAlignParagraphDistribute@m`DefaultSortingz` wdSortByName\` ShowHiddenqs`FontSize`FontU`Size`Bold` wdColorRedo(`iCountl`ocellK`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`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+`rang1 `SubDocRowsCount,` ActiveWindow+`ViewI` wdPrintView(` Information` wdWithInTableT`RowIndex6d`Collapseu` Direction&`wdCollapseStart|` selectCellU`wdStartOfRangeColumnNumber7`Cell`Row`Columni`pagenum`Dialogs`wdDialogDocumentStatisticsi` thisDocNameT` CommonName`temppath`ChangeFileOpenDirectory=` 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``rang2 `MoveDown̝`nextRowI` InsertFormulaF`FormulaqY` NumberFormatR`subDoc,`subDocCurrentRowNum`newSubDocRowCount`` subDocCurrentRowFirstCellContent;`subDocCurrentDanWeiName*+`subDocNextRowFirstCellContentpl` subDocRang1]`Class`DocumentBeforeClose/`ģ1c` tmp_range?`range1f` col_start` col_start1 o` col_start2 o` cellcontent`ChrK~` currentRowSm`OldStr'`errdoneR` messageboxO`_B_var_i `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_Error)`_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#(` ClearMarcs {`cdSplitZ` cbTopLeftZ` cbTopRight`cdBottomjb` ChangeViewP` SplitSpecial` wdPaneNone= `K9/3 MQP@  mD7S(xME(LZ6 *LLLLL*L*LL*LLLL*LLLLL"<<<<<<<<<<<<<<<<<<<<<<<<<<<<` H``k`l `j`<dx`X ` `0 %`6  8``p``xox%xH `@8xH00j>F8@`` @P @@@ (@< @8 @( @ @"X @ p@ (@P @ @ @h @H @ #@h_ #@ @ @0p @H` @`P @x@ (@0 @ @ 4@ B@ hBDP@  @ `\%hI`H%J`H%O@`0H%`TpX`H%@Y`H%p^`H%c`08%8m(H0`l%`@p H@_ pxp8$`%X9w&E$*\Rffff*15468cb2b2*\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*06468cb2b1ߙ6  8 P  $p > @ * : P (`     X x   $   & &( $P 8 P Bx ` & x     0  @ 6 X :x   8 6X `  < @ ( H ` &   h p @   `  $  B   0 : H &0 2X 8 8 0  28 8p 8 0  0 80 8h 0  4 8 80 0H h 8 8 8 0x 0 6P 8 8 0  P Nh .   : 8 0H   $x H 08 L P8 8h  < ( ( P ( ( N( ,X >x 0 &  & $  . *H ,x 0 @  @ < &0 X x "( .P * ,     *  "H    E( EH#h&3     "9(Php  ?  [) 8 N(x  @R    (0 @  P`h  p ) (B  ? 282mX8 &  &  & ( 0 &8HPX ` &hx  &  1 1        ( 0  8 /H .X Ah ,O 7   7  ! *! / !0!<8!/P! $`! :p! !  !!! !/!-!-!/!  " [" 40" P" `"p" x""" """"" ;"" " Dim rows As Integer$ If Right(TitleStr, 1) = ";" Then' End If! arrays = Split(TitleStr, ";") rows = UBound(arrays) If rows < 1 Then Exit Sub End If 'úۼ With ActiveDocument End With9 flag = 0 flag = 1 End IfIf flag = 0 Then Exit SubEnd Ifflag = 0 iCount = 10 cellcontent = Trim(ocell.range.Text) Loop 'ȥո0 Do While InStr(cellcontent, " ") > 0 Loop5 If cellcontent <> arrays(iCount - 1) Then8: ocell.range.InsertAfter arrays(iCount - 1) flag = 1 End IfIf flag = 1 Then Dim MaxL As Integer Dim MinL As Integer For l = 0 To rows Next* ActiveDocument.Bookmarks(bookname).Select With Selection.Tables(1)(+ With .Borders(wdBorderLeft)2 .LineStyle = wdLineStyleSingle End With) .Color = wdColorWhite) .Color = wdColorWhite) .Color = wdColorWhite) .Color = wdColorWhite) .Color = wdColorWhite' .Borders.Shadow = False End With End With * Selection.Columns.PreferredWidth = 1002 Selection.MoveLeft Unit:=wdCharacter, Count:=1 If rows > 1 Then 6 Selection.MoveRight Unit:=wdCell, Count:=1! Selection.Cells.Merge End If & With ActiveDocument.Bookmarks(* .DefaultSorting = wdSortByName' Selection.Font.Size = FontSizeio* Selection.Font.Color = wdColorRed iCount = 1 iCount = iCount + 1 Next ocell|vi 'úۼ & .ShowRevisions = TrackmarkEnd IfEnd Sub ļͷ]@]X]p`Sub NewTitle() 'ļͷ Dim arrays As Variant On Error GoTo errorhandle7 TitleStr = ThisDocument.Variables("TitleStr").Value9 Trackmark = ThisDocument.Variables("TrackMark").Value4 TitleStr = Left(TitleStr, Len(TitleStr) - 1) Dim books As Variant Dim bookname As String Dim flag As Integer Dim rang1 As range Dim cellcontent As String .TrackRevisions = False .PrintRevisions = False .ShowRevisions = True<If ActiveDocument.Bookmarks.Exists("wenjiantou") = True Then bookname = "wenjiantou")ActiveDocument.Bookmarks(bookname).Select9 For Each ocell In Selection.Tables(1).range.Cells 'ȥз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) cellcontent = Left$(cellcontent, InStr(cellcontent, " ") - 1) + Right$(cellcontent, Len(cellcontent) - InStr(cellcontent, " ")) iCount = iCount + 1 Next ocell'ȡ̵ Dim l As Integer MaxL = 8 MinL = Len(arrays(1)) + 1; If Len(arrays(l)) > MaxL Then MaxL = Len(arrays(l))4 Selection.Delete Unit:=wdCharacter, Count:=1 ActiveDocument.Tables.Add range:=Selection.range, NumRows:=rows, NumColumns:=2, DefaultTableBehavior:=wdWord9TableBehavior1 .LineWidth = wdLineWidth050pt) .Color = wdColorWhite, With .Borders(wdBorderRight)2 .LineStyle = wdLineStyleSingle1 .LineWidth = wdLineWidth050pt End With* With .Borders(wdBorderTop)2 .LineStyle = wdLineStyleSingle1 .LineWidth = wdLineWidth050pt End With- With .Borders(wdBorderBottom)2 .LineStyle = wdLineStyleSingle1 .LineWidth = wdLineWidth050pt End With1 With .Borders(wdBorderHorizontal)2 .LineStyle = wdLineStyleSingle1 .LineWidth = wdLineWidth050pt End With/ With .Borders(wdBorderVertical)2 .LineStyle = wdLineStyleSingle1 .LineWidth = wdLineWidth050pt End WithJ .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNoneH .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone With Options3 .DefaultBorderLineStyle = wdLineStyleSingle2 .DefaultBorderLineWidth = wdLineWidth050pt* .DefaultBorderColor = wdColorWhite Selection.SelectColumnB Selection.Columns.PreferredWidthType = wdPreferredWidthPercentE Selection.Columns(1).PreferredWidthType = wdPreferredWidthPercentJ Selection.Columns(1).PreferredWidth = CInt(100 * MaxL / (MaxL + MinL))" Selection.SelectColumnI Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter" Selection.Tables(1).SelectH Selection.ParagraphFormat.Alignment = wdAlignParagraphDistribute8 .Add range:=Selection.range, Name:=bookname .ShowHidden = False End With Dim FontSize As Integer FontSize = 320 \ MaxL# Selection.Font.Bold = True% Selection.Font.Name = ""9 For Each ocell In Selection.Tables(1).range.Cells6 ocell.range.InsertAfter arrays(iCount - 1) With ActiveDocument' .TrackRevisions = Trackmark# .PrintRevisions = False End With Exit Sub errorhandle:$ MsgBox ("ͷ༭:" + Error)TitleStr %6!f' TrackMark %6!f'" $;   $'k ;$j' '  |$ļͷֺk ]]]]] wenjiantou >!b%r wenjiantou'd |$IJļͷǩk''<  >%bB@H'  %!Z! !Z!d$F'6 ȥз 6 $8 b 6 6 $8 $  6 6 6 $8  $  '6ȥո 6 b 6 6  $  6 6 6 $  '6 < 6'<dp <; 6 '<kP  '   <'k ȡ̵]H]`]x'$ '   $  G $'j`  >%bB@H , B@ !ZZ   >!B@~ % 7 9 9 9q 7 9 9 9qx 7 9 9 9qH 7 9 9 9q 7 9 9 9q 7 9 9 9q  7(  7(5(qp  9 9 9qH B@  !(d !(  %(d    X %( , B@  , B@ B@ !B@  !(kH %B@H  !( >!b !ZZ C@~ 99q]@ '  !( !( !(  !('  %!Z!  $ !ZB@|  ' k úۼ > "9@9B "9Dq|` ͷ༭: 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`       !"#$%&'()*+,-./012346789:;<=>?@BCDEGHIKMNOPRSTVXZ[\^_`acSS S0F a6"LLP<4<8<<<2N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}x%*W8@ B`8kp( )E x %i %0 %(0 HP0Hp00000 % % % % % % % Ex  % Ex % Ex 00 Ex Ex %000 Ex0 Ex00 Ex Ex@p Ex@X<@@t @p xp@(l @\ @L p@< @8 (< 8 00H,@9w&E*\R1*#17e*\R1*#17c$*\Rffff*12468cb2b2$*\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ĵرǰĸֲ> DB@Hh|> <X 5825 X 582526|@k8o0@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="{33BB8C7C-3702-4FEE-A8F9-9C5BA3DAA0AD}" Document=ThisDocument/&H00000000 Module=NewTitleModule BaseClass=frmSplit BaseClass=frmTools Module=WriteMark Class=EventClassModule Module=SPROJECT&5frmSplit#xxfAo"$FplitModule Module=ToolModule Name="Project" HelpContextID="0" VersionCompatible32="393222000" CMG="8D8FB8E1F802FC02FC02FC02FC" DPB="B2B087C0ADC1ADC1AD" GC="D7D5E22F227146724672B9" [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, 522, C frmTools=0, 0, 0, 0, C, 22, 29, 858, 493, C WriteMark=0, 0, 0, 0, C EventClassModule=0, 0, 0, 0, C SplitModule=0, 0, 0, 0, C ToolModule=0, 0, 0, 0, C (H  @}~R KQ_$8cdSplit( 8cbTopLefth( 4cbTopRight$8cdBottom ,bReNu"[SO,Lhu"[SO(+gRhqu"[SO,+gLhu"[SO 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 CompObj%JaVBFrameLfrmTools!+(xxfQ (H  @ } R KQ_\( 8ShowMarkCB?z( 8NonMarkCBB?z ,>f:yS?zu"[SO,>f:yn?zu"[SO Microsoft Forms 2.0 Embo')UpCompObj*WaVBFrameYPROJECTwm]"edded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmTools Caption = "WORD" ClientHeight = 420 ClientLeft = 11040 ClientTop = 1440 ClientWidth = 1965 TypeInfoVer = 12 End ThisDocumentThisDocumentNewTitleModuleNewTitleModulefrmSplitfrmSplitfrmToolsfrmToolsWriteMarkWriteMarkEventClassModuleEventClassModuleSplitModuleSplitModuleToolModuleToolModule  FMicrosoft Office Word ĵ MSWordDoc WPS.Doc.69qCompObjbg