ࡱ> vyu}'` R9bjbjx^rr/$(5(5(5Px5L54S66R666:8J:f:KRRRRRR$Uh|WR-`;9|:`;`;R66R FFF`;66IF`;KFFF66 5s8(5BFG,R<4SFXEXFXFDv::F: :v:v:v:RRFdv:v:v:4S`;`;`;`;d`$` D1.Ym_lwߘTWݏlL:N>NbVYR[ybh 2.Ym_lwߘTWݏlL:N>NbVYRwfN 3.Ym_lwߘTWݏlL:N>NbVYRwfNVgb 4.Ym_lwߘTWݏlL:N>NbVYRVYёS>eh D1 Ym_lwߘTWݏlL:N>NbVYR[ybh USMO S Hh 1uYZQ[fNeS $RQfNS L?eYZbRN$RQ ~gbVYRёCQ VYRt1uSOnc RHhNXT~{ T  t^ g e L?egbl:gsQ "R蕡[8h #N~{ T  t^ g e L?egbl:gsQ [[yba #N~{ T  t^ g eUSMOlQz ߘT[hQYXTORlQ[[yba #N~{ T  t^ g eUSMOlQz "?ea 1NCQN N  t^ g eUSMOlQz Y l1. bybe D>NbU_TYZQ[fN YpSNv^vz 2. ,ghN_3N ߘT[hQYXTORlQ[0"?e0gbl:gsQTYuNN0 D2 Ym_lwߘTWݏlL:N>NbVYRwfN S  9hnc 0Ym_lw>NbߘTWݏlL:N>NbVYRRl 0v gsQĉ[ ~xvz Q[[`O>Nb HhNVYRNl^ CQ0`ON t^ g eMRc,gwT,gN gHeN0R ߘT[hQYXTORlQ[0W@W SVYёYXbNNNv NN_{&^,gwfN0YXbfNSSe gHeN0R N0WpS0c0R,gwfNT3*NgQ NSv Ɖ:N>e_0 yrdkw0 VYUSMOlQz t^ g e D3 Ym_lwߘTWݏlL:N>NbVYRwfN  V gb  SN @Bvxz|N r ֫֓xj\N<#hv= h'ACJ$OJPJQJaJ$o(hv= h'ACJ OJPJo(hv= hv= CJ OJPJo(hv= h}CJ OJPJo(h5sh'ACJ PJh5sh'ACJ OJPJaJ o(/hf-h'A@CJ KHOJPJQJ^JaJ o(/hv= h'A@CJ KHOJPJQJ^JaJ o(%hh CJ KHOJPJQJ^JaJ o(%h}CJ KHOJPJQJ^JaJ o(+h5sh'ACJ KHOJPJQJ^JaJ o(.hN t d\$Ifgdv= l0$d\$Ifa$gdv= l0$a$gd'Agd'A$d1$G$H$a$gdh $d1$G$H$a$gdf-!$d1$G$H$WD`a$gdlWoKd&WD` ^89r t   * , @ B " $ * , . 2 4 ǼǴr^&h5sh'A5CJ$OJPJQJaJ$o(#hv= h'ACJ$OJPJQJaJ$o(hv= h'ACJ OJPJo(hv= CJ OJPJo(hv= h}CJ OJPJo(h}CJ PJo(hA.CJ PJh WOJPJaJo(h5sh'AOJPJaJo(h5sh'ACJOJPJaJo(h5sh'ACJ PJo(hv= h'ACJ OJPJo( kkUd\$Ifgdv= l0$d\$Ifa$gdv= l0zkd$$Ifl0p n t0J!644 la   iSd\$Ifgdv= l$d\$Ifa$gdv= l|kde$$Ifl0p n t0J!644 la  ( * iSd\$Ifgdv= l$d\$Ifa$gdv= l|kd$$Ifl0p n t0J!644 la* , < > @ B iSSSSd\$Ifgdv= l$d\$Ifa$gdv= l|kd7$$Ifl0p n t0J!644 la @ iiSSSd\$Ifgdv= l$d\$Ifa$gdv= l|kd$$Ifl0p n t0J!644 la@ B P ^ ` b iiSSSd\$Ifgdv= l$d\$Ifa$gdv= l|kd $$Ifl0p n t0J!644 la " iSSSd\$Ifgdv= l$d\$Ifa$gdv= l|kdr$$Ifl0p n t0J!644 la" $ 2 B D F iiSSSd\$Ifgdv= l$d\$Ifa$gdv= l|kd$$Ifl;0p n t0J!644 la * . ,qVQQIII$a$gd'Agd'AVd\WD^V`gdv= l0d\gdv= l0|kdD$$IflM0p n t0J!644 la $(,.2~ 0L*ȴtttttttf[Mh5shh CJ OJPJo(h'ACJ OJPJo(h Wh'ACJ OJPJo(h5sh'A>*CJ OJPJo(h5sh'ACJ OJPJo(h5sh'ACJ PJo(+jh5sh'ACJ PJUmHnHo(u&h5sh'A5CJ$OJPJQJaJ$o(#h5sh'ACJOJPJQJaJo(&h5sh'A5CJ$OJPJQJaJ$o("h5sh'A5OJPJQJaJo(,0,8:<>@Nxz 2z22b3364$d7$8$H$a$gdv= $d7$8$H$a$gdv= 7$8$H$gd'Av`vgd'Agd'ANxz|~zeZP>#h5sh'ACJKHOJPJaJo(h5sh'AKHo(h5sh'ACJKH(jh5sh'ACJKHUmHnHuh5sh'A5CJKHaJh5sh'A5CJ$KHh5sh'A5CJ$KHo(h5sh'A5CJKH#hv= h'ACJ$KHOJPJaJ$o(&hv= h'A5CJKHOJPJaJo(#hv= h'ACJKHOJPJaJo(hv= CJ OJPJo(hv= h}CJ OJPJo( eNS e_ 0Wp N~{ T  eg t^ g e e R lQ z t^ g e  6eNN~{ T  6eNeg t^ g e e R  D4 Ym_lwߘTWݏlL:N>NbVYRVYёS>eh USMO Hh1uSYZQ[fNeS$RQfNS VYR[ybhSVYRё'YQCQ VYёS>e~RN 2N ~{ T t^ g e t^ g e>NbN Y Tb Ty  gHeN blQS 0W @WT|5u݋>NbN YXbN ~{6e t^ g eY l  ;N͋ߘT VYR Rl w bVRbߘT[hQR w?e^RlQS0 Ym_lw"?eSRlQ[ 2011t^10g24epSS      HYPERLINK "http://www.foodmate.net" http://www.foodmate.net ߘTO4OQtet NOS PAGE   PAGE 1  PAGE    PAGE 6  22 22x2222`3r333334444$4(4246484444444(5*545L5N5\5`5n5r5~555555ʻuh5sh'AKHo(h5sh'A>*KHOJPJo(2jh5sh'A>*KHOJPJUmHnHo(u#h5shv= CJKHOJPJaJo(h'ACJKHOJPJaJo(#h5sh'ACJKHOJPJaJo(h5sh'AKHOJPJo(U&h5sh'A>*CJKHOJPJaJo(-6484J4444*55556*626T6V6$Ifgdcl0$$Ifa$gdcl0$a$gd'Agd'A$dZ7$8$H$YDda$gdv= $pd7$8$H$`pa$gdv= $d7$8$H$a$gdv= 555555556*66666r77777̾ԓ}gRg}g<}1hwCJOJPJo(+h5sh'ACJKHOJPJQJ^JaJo((h5sh'ACJKHOJPJQJ^JaJ+h5sh'ACJKHOJPJQJ^JaJo(+h5sh'ACJ KHOJPJQJ^JaJ o(#hv= h'ACJ$OJPJQJaJ$o(hv= h'ACJ OJPJo(hv= CJ OJPJo(hv= h}CJ OJPJo(hA.CJ PJh5sh'ACJ PJo(h5sh'ACJKH(jh5sh'ACJKHUmHnHuV6X6h6j6n[$Ifgdcl0$$Ifa$gdcl0zkd$$Ifl0 t"  t0"644 laj6l666nW$$1$Ifa$gdcl$$Ifa$gdclzkd$$Ifl0 t"  t0"644 la6666666yccPPP$Ifgdcl$$Ifa$gdclkdw$$Ifl0 t"  t0"644 lap666660kd$$IflF t"   t0"6    44 lap$$IfVDWDd^`$gd'Al$$1$Ifa$gdcl666666 77[zkd$$Ifl0 t"  t0"644 la$Ifgdcl$$Ifa$gdcl7777n[$Ifgdcl$$Ifa$gdclzkd$$Ifl0 t"  t0"644 la7 7*7,7n[$Ifgdcl$$Ifa$gdclzkdO$$Ifl0 t"  t0"644 la,7.767F7H7J77hR???$Ifgdcl$$Ifa$gdcl$$IfWD2`a$gd'Alzkd$$Ifl0 t"  t0"644 la77777n[[$Ifgdcl$$Ifa$gdclzkd$$Ifl0 t"  t0"644 la7777777777777777zkd~$$Ifl0 t"  t0"644 la77777778^8b8d8h8j8n8p8t8v8x8z899 &dPgdh $&d(dPRgdh $$d&dNP$777777777777888B8F8J8L8P8R8V8\8^8`8d8ۿvfYYNFBh-jh-UhwCJ OJPJo(hf-CJ OJPJaJ o(hv= h%CJ OJPJaJ o(hv= hwCJ OJPJaJ hv= h'ACJ OJPJaJ o(hCJ OJPJaJ o(hfCJ OJPJaJ o(hv= hwCJ OJPJaJ o(hv= hwCJ OJPJo(hv= h WCJ OJPJo(hv= h'ACJ OJPJo(hwCJ OJPJo(hv= CJOJPJo(d8f8j8l8p8r8v8x8z8|888888889999&9(9*9.92949@9B9ֿʩjWj$hv= h=0JCJOJPJQJaJ-jhv= h=0JCJOJPJQJUaJ'hv= h=0JCJOJPJQJaJo( h=0Jjh=0JUh= h=o( HhKh hlW0Jo(jhlWUHhKhlWo(HhKhlWjHhKhlWUhlWh-jh-U9*9,9.9L9N9P9R9T9V9X9j9l9n999999$&d(dPRgdh hh]h`h&`#$ hh]h`hgdv= &`#$gdv= B9D9F9L9P9R9T9V9X9Z9f9h9j9n9r9t999999999ӿynhwCJ OJPJo(hlW0JCJmHnHuh=0JCJjh=0JCJUh=0JCJo( h=0Jjh=0JUh-hlWh='hv= h=0JCJOJPJQJaJo(-jhv= h=0JCJOJPJQJUaJ)hlW0JCJOJPJQJaJmHnHu6182P:pc. A!4"#2$%S >&P 0pu1Z2P/R . A!l"#$4%S c$$If!vh55n#v#vn:Vl tJ!6,55ng$$If!vh55n#v#vn:Vl tJ!6,55ng$$If!vh55n#v#vn:Vl tJ!6,55ng$$If!vh55n#v#vn:Vl tJ!6,55ng$$If!vh55n#v#vn:Vl tJ!6,55ng$$If!vh55n#v#vn:Vl tJ!6,55ng$$If!vh55n#v#vn:Vl tJ!6,55ng$$If!vh55n#v#vn:Vl; tJ!6,55ng$$If!vh55n#v#vn:VlM tJ!6,55nc$$If!vh5 5#v #v:Vl t"6,5 5c$$If!vh5 5#v #v:Vl t"6,5 5$$If!vh5 5#v #v:Vl t"6,5 5/ p$$If!vh5 5 5 #v #v :Vl t"6,5 5 pc$$If!vh5 5#v #v:Vl t"6,5 5c$$If!vh5 5#v #v:Vl t"6,5 5c$$If!vh5 5#v #v:Vl t"6,5 5c$$If!vh5 5#v #v:Vl t"6,5 5c$$If!vh5 5#v #v:Vl t"6,5 5c$$If!vh5 5#v #v:Vl t"6,5 5DyK http://www.foodmate.netyK 2http://www.foodmate.net/N@N cke $1$a$$CJKHPJ_HaJmH nHsH tH$A@$ ؞k=W[SOFi@F nfh*B*phv^8^  UVHIK00v00`  HK0Lv00`  HI0000`  H K000`  H K0  0&00`  HI0 [00`  H I00z00`  H K00z@K00Lz0fT4Utuv    !UV]def!"#HIi Eno=w%]^`*+,456@ABJQRSabcklpxyz /147:=0000000000 0 0 00 0 0 0 0 0 0 0 0 0 0000 0 00 000 0 00 000 0 0 000 0 00 000 0 00000000000000000000000000000000000000000 0 0 0 0 0 0 0 0 00 000 00 0 00 0 0 00 0 0 0 0 0 0 0 0 0 000 0 0 00 0 0000000000000000000000@0@0@0@000X}@0@0 @0!@0@0@0@0@0@0@0@0@0@0@0 004Utuv    !UV]def!"#HIi Eno=w%]^`*+,456@ABJQRSabcklpxyz /124578:;=@0@0@0@0000000 0 0 00 0 0 0 0 0 0 0 0 0 0000 0 00 000 0 00 000 0 0 000 0 00 000 0 00000000000000000000000000000000000000000 0 0 0 0 0 0 0 0 00 000 00 0 00 0 0 00 0 0 0 0 0 0 0 0 0 000 0 0 00 0 000000000000000000000I00@0ȑ00@0ȑ00@0ȑ00@0ȑ0000 聹@0@0@0@0@0@0@0@0@0@0@0@0@0@08ȑ00 ]hy{}}}r 57d8B99 +,.  * @ " ,64V6j666677,777799  !"#$%&'()*-9 5M]djqs}X!!!!@  @H 0(  (  \B  S DjJ"\B  S DjJ"\B  S DjJ"HB  C DB S  ?^!tt"t!t!tzhuticicsmb yinfadanwei .M$3LU!,;*urn:schemas-microsoft-com:office:smarttagschsdate zu 10201124DayFalse IsLunarDate IsROCDateMonthYear!3>T_svwxy !*67:;?@V\]cfn|}  89<=@GIJLNQhtxy?RYbgmnstw<Ddehilmopqr =Bw|  "$OPUV[\`h),36?BILPYZ\]_`cdfgijlopwz~  %&()+.//11224578:;~3<T]sv !TV\]cf 8GIhq<Ddmo<=vw$O\`),36?BIJPY`cjlopwz~//11224578:;e//11224578://11224578:;~KJh7|v= }(T_nph qg!&S#Mt$59-f-A.b01SO1d:jN<'A}PKSVVP{dSi m?w6y!fE+"2+Ykd.VlW8sBG$-Gc%s9A}jb/wN=C7hT3i}]}oL Wf@u_   UVd!HI*+,456@ABQaklxyz/147:  BookNamesd CurUserName DeleteMarcesDocNamehahaNewInfoOldInfo$ SplitTool,TitleStr< TrackMarkpyear1_2;filetype1_2H_܏False&F5C8AF26CC66677648257924000728F5_1.doc100020110290&;&Ym">y FalseYm_lw"?eS;eN;Ym_lwߘT[hQYXTORlQ[1 Vxx^Vxx^Vxx^Vxx^Vxx^Vxx^Vxx^Vxx^Vxx^V xx^ 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@͘ @{(PPP2Unknowngr04Gz Times New Roman5Symbol3& z Arial;5 N[_GB2312;[SOSimSun9Rz{h[ўSO;ўSOSimHei;" Helvetica 1h;&K/F88!-!),.:;?]}    & 6"0000 0 0 00000 =@\]^([{  0 0 00000;[42d++?2 2qHX?20 Ğefgr04Oh+'0  0< \ h t 4 Normalgr043Microsoft Office Word@^в@!ђ@@"X88՜.+,D՜.+, X`t|  񺼰+'  8@ _PID_HLINKSAlE_http://www.foodmate.net/  !"#$%&'()*+,-./12345679:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdfghijklnopqrstwx{|Root Entry Ft8zIData 01Table8XWordDocumentx^SummaryInformation(eDocumentSummaryInformation8mMacros, s85s8VBAs85s8dirR__SRP_0 ~%__SRP_1__SRP_2   !"#$%&'()*+,./023456789:;<=>?ABCDFGHIJKLMNOQRTUVWXYZ[\]^_`bcdeghijklmnopqrstuvwxz|~N0* pHdProjectQ(@= l jeGP J< rstdole>stdoleP h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\system32\e2.tlb#OLE Automation`ENormalENCrmaQF  *\C m! OfficgOficg!G{2DF8D04C-5BFA-101B-BHDE5gAAe4 2ggram Files\C ommonMicrosoft Shared\OFFICE11\MSO.DLL#M 9.0 Ob Libra,ry@%BxMSBFAs>MSFDBs3 @cD452EE1-E08F/A-8-02608C4D0BB4cFM20 'B p&/;"~1{B~ 00}#0# ў50 ACBE2AC5C-4099-4FA4-8;-D77DF34FC76fDOCUME~1\ADMINILOCALSTemp\VBE@b7.exdHcLFF) 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[)`jtvF@ @( @ @ (@ @d @P X@hp @@lX @n @p @ @x (! P@h P @f @T 0@P P!x@@ @0 jeGP$*\Rffff*0F5047656b"*\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*0C5047656b*\R1*#cb*\R0*#f*\R1*#cc*\R1*#cd*\R1*#c6$*\Rffff*065047656a*\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<<<@ %% 0``h tk .`Pki< i> +@X`P8o   i< `B h v` |k t`@ |k!8@X` 6X` X` X` X` X` X` X` X` X` X` X` X` X` X` X` X` X` X` X` X` X` X` X` X` (@@h@x @h @d @T @P P @@X(`@z  D@T@pd @T @P @L @< p@8 8@ x @t  h  ( @   8 `  ( jeGP$*\Rffff*0D5047656b$*\Rffff*0C5047656b*\R1*#c1*\R1*#17b*\R0*#19*\R0*#13*\R1*#cc*\R1*#cd*\R1*#c6$*\Rffff*065047656a&"& 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 (Doh ڲغۼ (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 mP7HxME( I ¶ &1254%`(Q`*t ,`,b`.ġ`0' 2` %`4 *`  .`  2`h@T%Ph@ph@h@h@0h@ph@h@h@0 h@p h@ h@ h@0 h@p h@ h@ h@0 h@p h@ h@ h@0 h@p h@ h@ h@0 x p jeGP B$ 0 @ HPXx      8H "P X ` D `60hpx   $" H"Px $, ,0`hp&x ,08$@h,  " HP X4 (   8@HPp**08&@ h    > 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%r(celD lastColumn >!b%retent, D BeginTable >!b%re Dkx ZX BeginTable B@:  %rang"ǩλô·ãA@  |d %!'tIf t"ǩλô·ãA@  N|kk ZX totalAcount B@  B@  %r B@Dim Mi %!'t d"ĩǩλô·ãA@  |k ZX lastColumn B@To r  % If %B@HxL T  %'vays(l)dH"ĩǩλô·ãA@ t.Bo|k$V'4  >!!,뽫棡A@  |k  >%%!Z!xx  >%%!Z! >%Z!dec*ڶ׸ԪΪգ뵥λƣA@ wdBo|k $.]]]DocName %6!f' $Fth = w ޷ȡĵϵԱA@ .Color|@k8TempPath %6!f' $F Wi ޷ȡñ·ϵԱA@  |k  .doc $'ļĴ· A@//add by kk testck7Selection.GoTo What:=wdGoToBookmark, Name:="BeginTable"ls>MsgBox CInt(Selection.Information(wdStartOfRangeColumnNumber)) EnExit SubEn//end ڲָλĵ. //ȷλ"ͷ] ZX BeginTable B@  %X'@//ʼеĿ]0'  t    >%%!Z!xx    >%%!Z! >%Z. !d$  !d$  !d$F !d$F (d k  ' >B@R)/////////////////////////////////////////'  t >    >%%!Z!xx    >%%!Z! >%Z. !d'| !d'z MsgBox currentDanWeiName B@ B@hո l!~.   z.docpC@nqh B@r $  >B@R ]HnoSet']`'' |  '!      >%%!Z!xx      >%%!Z! >%Z. !d'~ ~ ~$ $ ~$  noSet '6 λset' k  '>!      >%%!Z!xx      >%%!Z! >%Z. 7 !d'~9 set 7   'k t    vA >B@R9''''''''''''ϴ7 >B@B9'''''''''''''''''''ɾ  &ӵλĵ     t v AxkknoSet'''   '½ĵ һλ]x .doc']' l!~.  pC@nq@ $B@'  t     >%%!Z!xx    >%%!Z! >%Z. !d'z' z  '!      >%%!Z!xx      >%%!Z! >%Z. !d'~ ~ ~$   '!      >%%!Z!xx      >%%!Z! >%Z. !d'~ t   vA $B@ B@rk   '  t l B@ҳ  '''''''''''''''''''''''''''''''''''''''''''''''''' Set currentPageNum = Dialogs(wdDialogDocumentStatistics) 'ǰҳţںţ4''''''''''''''''''''''''' ɾǰҳĴ  !!( , B@ ! B@  !!(k $B@ ½ĵ λ $B@'  t     >%%!Z!xx    >%%!Z! >%Z. !d'z' z$  ~$  z$F  '!      >%%!Z!xx      >%%!Z! >%Z. !d'~ ~  '!      >%%!Z!xx      >%%!Z! >%Z. !d'~H t   vA $B@ B@rk   'd   'k  t   l B@ ҳ  'z'''''''''''''''''''''''''''''''''''''''''' Set currentPageNum = Dialogs(wdDialogDocumentStatistics) 'ǰҳţںţ 2''''''''''''''''''''''''' ɾǰҳĴ  !!( , B@ ! B@  !!(kH $B@0 $B@ $B@ $lB@R''''''''''''''''''''''ϴ B@B!'''''''''''''''''''''''''''''ɾ|Dִ󣬲ҵǩA@ `h|`oX tablePageNum# 2003-6-7 칫շԱ ¼ B@ B@h  lB@~ B@r !(FSelection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=tablePageNum ZX yinfadanwei B@ ^ B@ !B@ !9d5(d9 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 ^  , fd B@ !B@k] ɾ浥λ   t   'd t    'kx  !     >%%!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_PROJECT #NewTitleModuleUEventClassModule"     !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIKLMNOPQTWUVXYZ\[ |z7Q<wxB%],[_AD'fx HvXA ֯ xHvXA ֯ wxB%],MEH@S"SS">" *L "LLLL FHH`h@h`@@'@ @  @ ` 8@jeGP$*\Rffff*065047656a$*\Rffff*0G5047656b"*\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*0F5047656b$*\Rffff*0E5047656b*\R1*#cc*\R1*#c0*\R1*#cd*\R1*#c6$*\Rffff*0C5047656b*\R0*#144["  "08@ $H p  %" "T "I(PX`hx     &S   ( 08 @ "  H "Px $     0 @"H "p    &  (  0" 8@P `***********Ĵݺd\O]`]x]Scripting.Dictionary$$. ce . Obj]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:\WINDOWS\system32\stdole2.tlb#OLE Automation*\CNormal*\CNormaljeGP&*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE11\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{CBE2AC5C-4099-4FA4-8452-D77DF34FC762}#2.0#0#C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M   jeGP7ThisDocument065047656aThisDocumentQxH0WriteMark0F5047656bPWriteMarkUxlNewTitleModule0G5047656bNewTitleModuleS(0DfrmTools0E5047656b9frmTools\xH frmSplit0=5047656aMfrmSplit+`%ToolModule0C5047656b6ToolModule\xi EventClassModule0D5047656b; EventClassModuleY SplitModule0B5047656aTSplitModuleHsP0x`feO@Q[:J:rK|]H: Mܫ۫ڋkDL`rT]ZE[u$ƋAB겐OHʓnJ'-)K[N?dPHj@*so889U 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@  D7S(xME(LZ6 *LLLLL*L*LL*LLLL*LLLLL"<<<<<<<<<<<<<<<<<<<<<<<<<<<<`0 H``k`l `j`dx`X `` As m ro%```p Thi`"Tit`89 %P  @8xH00j>F@`` @P @@ @@< (@8 @( @ @"X @ @ p@P (@ @ @h @H @ #@h_ #@ @ @0p @H` @`P @x@ @0 (@ @ 4@ B@ BDh@  @ `\%hI`H%J`H%O@`H%`T0pX`H%@Y`H%p^`H%cP`8%8m( l%%pP  `0Xp@ @ _  w(`pXjeGP$*\Rffff*0G5047656b*\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*065047656aߙ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) = ";" Then%r4 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`   7YD˶_3EK6)XV*=h8+3qPGOWnɸgFxPGOWnɸgF˶_3EK6)XVME0 SS Sa0N6"LLP<4<8<<<2N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} %*W8@ J`88kp( )M x%i %0 %0000%%%%%%% Mx% Mx% Mx 00 MxpP MxH%000000 Mxx Mx% Mx Mx% Mx0%00%% MxP00 Mx00% % Mx0 Mx Mx  Mx0(X000 Mxh0`HD8 @t @p LLL@l @\ @xL @< @8 @00H,jeGP*\R1*#17c*\R1*#17e$*\Rffff*0D5047656b$*\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@=  APROJECT&frmSplit#5s85s8fo"$    !"#$&ID="{0E86DE9F-C78F-4A8A-AFB9-37E73D559C4C}" Document=ThisDocument/&H00000000 Module=NewTitleModule BaseClass=frmSplit BaseClass=frmTools Module=ToolModule Module=WriteMark Class=EventClassModule Module=SplitModule Name="Project" HelpContextID="0" VersionCompatible32="393222000" CMG="57556EE0B2202424242424242424" DPB="C5C7FC6E04DD05DD05DD" GC="33310A047905790586" [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"[SO Microsoft Forms 2.0 Embedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmSpCompObj% aVBFramefrmTools!+(5s85s8flit Caption = "WORD" ClientHeight = 450 ClientLeft = 11040 ClientTop = 1425 ClientWidth = 3990 TypeInfoVer = 17 End (H  @ } R KQ_\( 8ShowMarkCB?z( 8NonMarkCBB?z o')pCompObj*aVBFramePROJECTwm ",>f:yS?zu"[SO,>f:yn?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 = 1965 TypeInfoVer = 12 End ThisDocumentThisDocumentNewTitleModuleNewTitleModulefrmSplitfrmSplitfrmToolsfrmToolsToolModuleToolModuleWriteMarkWriteMarkEventClassModuleEventClassModuleSplitModuleSplitModule  FMicrosoft Office Word ĵ MSWordDocWord.Document.89qCompObj%m