ࡱ> |{#` Rb&bjbjmmZ E$ vKvKvKPK$KGcLL@LLL?N?N?Ne[Wbbbbbb$+ehgb!?NN"?N?N?NbLL+cVVV?NLLYV?Ne[VVVLL y,JvK?UpVVc0GcV+hU+hV+hVP?N?NV?N?N?N?N?NbbsV?N?N?NGc?N?N?N?N$d/d/^T  DN1: 3ubؚ~O^DyOO~N6R[ 3ubؚ~O^vNXTSTUSMONNbS_0WNN蕆SbNYm_lNN6RQwww.zjrs.gov.cn N}0 4._-N~NNb/gDe(WNMbNAm-N_v 1uNMbNAm-N_QwQf0-N~NNb/gD*@CJ OJPJQJo(#hh{uh8@CJ OJPJQJo(Uh8CJ OJPJQJhaCJ OJPJQJo(h.h8CJ OJPJQJo(h.h8CJ,OJPJQJo(h8CJ,OJPJQJo(h8CJ OJPJQJo(h8CJ OJPJo(& ( p 0  l ppdWD^`pgdh{u vd`vgdh{u Xd`Xgdh{u $dla$gdh{udlgdh{ud %`&^D*CJ OJPJo(hh{uh8>*CJ OJPJo(h8CJ OJPJo(h.h8@CJ,OJPJo(H "  " ( * 4 N d$If$a$WD`X`XWDX`WD`I`IN P Z \ f h v F===== d$Ifkd$$Iflֈ& wt#HJ0#4 lav x z :.. $d$Ifa$kd$$Ifl4ֈ& 9t#HJ0#4 laf4 d$If [RRR d$Ifkd$$Ifl4\'9t#`` 0#4 laf4 $d$Ifa$ !!g^^ d$Ifkd$$Ifl4\'9t#  0#4 laf4!!!!!! $d$Ifa$okdv$$Ifl40t#70#4 laf4!!!!.!0!!!:"F"H"v"""""""""n#p# $$>$`$b$~$$$$$$$$6%8%%%%%%%%%%%%%%%&&øฮ੡ hb0Jjhb0JUhbjhbU h8o(h8CJOJPJh8CJOJPJo(h.h8CJ,OJQJ\o(h8CJ,OJPJ\o(h8CJ OJPJo(h8CJOJPJo(h8CJOJPJ4!!,!.! $d$Ifa$nkd$$IflK0nt#!0#4 la.!0!>!@!B!D!F!H!l!z!|!~!!!!! $d$Ifa$nkd$$Ifl 0nt#!0#4 la!!!!!!!:"lcccccc d$IfkdF$$Ifl\nlt#g0#4 la:"<"F"H"v""""""" $dp$Ifa$$a$$da$\kd$$Ifl4t##0#4 laf4 """"""F=/== $dp$1$Ifa$ dp$Ifkd$$Iflֈ t"z04 la""""""""""""ckdp$$Ifl\"t"m 04 la dp$If """"""###n# dp$IfYkd.$$Iflt""04 la n#p######## $ dp$IfYkd$$Iflt""04 la $ $$$>$H$J$P$R$^$`$ $dp$Ifa$$a$Ykd& $$Iflt""04 la `$b$r$~$$$F==/= $dp$1$Ifa$ dp$Ifkd $$Iflֈ !z<04 la$$$$$$$$$$$$ckd $$Ifl\"!m <04 la dp$If $$$$$$$$$6% dp$IfYkdJ $$Ifl!,"04 la 6%8%\%^%`%b%d%f%h%% dp$If[kd $$Ifl !,"04 la %%%%%%%%%%%&&&"&$& hh]h`h &`#$gdggd[kdF $$Ifl, !,"04 la&& &&&&&"&&&(&4&6&8&<&@&B&N&P&R&T&Z&`&b&Ѽ h8o( hb0Jjhb0JUhbh0JCJmHnHuhb0JCJjhb0JCJUhb0JCJo($&&&8&:&<&Z&\&^&`&b&gd hh]h`h&`#$ >&P 0pu1Z2P/R . A!l"#$4%S >&P 0pu1Z2P/R . A!l"#$4%S $$If!vh5H5J5555#vH#vJ#v#v#v#v:V l0#5H5J55554$$If!vh5H5J5555#vH#vJ#v#v#v#v:V l40#5H5J55554f4$$If!vh55 55#v#v #v#v:V l40#++55 554f4$$If!vh55 55#v#v #v#v:V l40#++5554f4$$If!vh575#v7#v:V l40#5754f4$$If!vh55!#v#v!:V lK0#,55!4$$If!vh55!#v#v!:V l 0#,55!4$$If!vh555g5#v#v#vg#v:V l0#555g54$$If!vh5##v#:V l40#5#4f4$$If!vh5555z55#v#v#v#vz#v#v:V l05555z554$$If!vh55m 55#v#vm #v#v:V l055m 554z$$If!vh5"#v":V l05"4z$$If!vh5"#v":V l05"4z$$If!vh5"#v":V l05"4$$If!vh5555z55<#v#v#v#vz#v#v<:V l05555z55<4$$If!vh55m 55<#v#vm #v#v<:V l055m 55<4z$$If!vh5,"#v,":V l05,"4~$$If!vh5,"#v,":V l 05,"4~$$If!vh5,"#v,":V l, 05,"4N@N cke $1$a$$CJKHPJ_HaJmH nHsH tH$A@$ ؞k=W[SOFi@F nfhG!!!!8@(  HB  C DB S  ?" 4(#4tmqs "&8:<=?BCDjlak  -/79BFOPRs-.67hl{~;<Cdj %(1bcjkstuxy|}       # ) , 2 9 < @ A D E H I J P W Z ^ _ b c f g i s  ; < @ A E J L ]  $ % ) . 0 A m n r s w | ~ ~  %b  %  i m ~    Y0 a.h{urb8T~0}g     ! " # * + , 3 J Q h i K L / 0 } ~    BookNames5 CurUserName5 DeleteMarcesē5DocNameԓ5haha$5NewInfoԢ5OldInfoT5 SplitTool\5TitleStr5 TrackMark05year1_2;filetype1_2 __NSFalse$416381A67D78E14F482574F200291FED.doc100020080120&;&Ym"OW[ FalseYm_lw"?eS;eN;Ym_lwNNS1 VpZVpZVpZVpZV pZVpZVpZVpZVpZV pZV pZ 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@5 @@UnknownGz Times New Roman5Symbol3& z Arial;5 N[_GB2312;[SOSimSun=Rz{h[eckYSO;ўSOSimHei;" Helvetica 1hѢˆϢˆcf  !-!),.:;?]}    & 6"0000 0 0 00000 =@\]^([{  0 0 00000;[l~dz z t( 3qHX)?h{u20 Ğef_o(u7bOh+'0$ 8D d p | 4  Normal.dot ΢û4Microsoft Office Word@^в@@xD@sJ@ ,J ՜.+,0 X`t|  񺼰z '   !"#$%&'()*+,-/012345789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijlmnopqrtuvwxyz}~Root Entry F̀,J@\Data .1Table6+hWordDocumentZSummaryInformation(kDocumentSummaryInformation8sMacros, t,Jy,JVBAt,Jy,Jdir=__SRP_0 ?__SRP_1__SRP_2 D  !"#$%&'()*+,-/013456789:;<=>?@BCDEGHIJKLMNOPRSUVWXYZ[\]^_`acdefhijklmnopqrstuvwxy{}CI90* pHdProjectQ(@= l {ߨJ J< rstdole>stdoleP f%\*\G{00020430-C 0046}#2.0#0#C:\WINNT\System32\c2.tlb#OLE Automation^D@NormalDNABrmaE  *\C JA!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_@DOWS\sE`FM20 'B l&/;"1~wBz ~00}#0~# 50 AE7DA@0FC6-4c4B8C-A9FE975DFF09256DOCUME~1\ADMINI~1.ZHA\LOCALS@Temp\VBE\U.exdHd=".E .`(M "7BThisDocume ntGT"hsDlcuen 2 ` H1"w`"E,Q""+ bWriteMarkGQWrt_MAhrk2/7-U!b%WNewTitleModul(eG! NwTBM#d#a6b^2JA)/$S(frmToolsGV$m o lls#i2roSm#\3( %$ Spli`F'SpibEi')g/ +1 4K32 eoCJoH+2! EvhClasscEaEvFgCe #a`3sq27}o€.-8Y'-HesG+25  rU~~~~~~~q    oObjstrNamenewValue a  ) (Cancel CloseMode i8 Happ  X hDocCK*y *\CNormalrU~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 9j F(^ a Q  1 a X a p)a y!IQqa qa   Q i  GN#,BPeyProject ThisDocument WriteMarkNewTitleModulefrmToolsfrmSplit SplitModuleEventClassModule ToolModuleF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  )` F5C:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLBWord !p0FC:\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 F*S#_NdIfi \~FЮ! FDocument ChangeViewInitWord InitWordsplit ShowToolBar @ (Scripting.DictionaryKeys CountRegister_Event_HandlerAddVarExistVarShowMarkHideMark  CurUserNamee Ff Fp F TrackMark 0appSsEőD}84c\M7ELFF) 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[)`X B% %@XX {ߨJ+ " " ( "084@ x, "4  ,(X ` "h4p , "4 @P :X A@oh@A@oP]Ƿȷб 4 WORD Ϣ$'2 2 6xA@8 бdzɹ * WORD ϢA@k8o0Ƿȷĩб 4 WORD Ϣ$'2x 2 6A@< ĩбdzɹ * WORD ϢA@koǷȷĩб 4 WORD Ϣ$'2 2 6A@@ ĩбdzɹ * WORD ϢA@H{koXǷȷļ 4 WORD Ϣ$'2 2 6A@ 4 MsgBox "ļɹ", vbOKOnly, "WORD Ϣ"k`oXP9Attribute VB_Name = "frmSplit"  Bas|0{E740B8F0-7E4B-4447-B03B-9F7647D53A69}{AFAD2F94-82 B8-42TA19B-F693C96B3130} dGlobalSpacoFalse CreatablPredeclaIdTru BExpo se0TemplateDerivCustomizD P Sub cbHideMark_Click()  End Show TopLeft4Dim ret As Int@eger = MsgBox("Ƿȷб", vbOKCancel, "WORD Ϣ".IfB= Th en In stBok,BepginTE B"ɹOnlyNC8If[:0Righ:5ĩ55LastColumD<556dBotGp5kEkTotalA count5ĩo X5d≝ļ_PTP Doc '?!R3 3frmTools WriteMarkToolModuleSplitModuleg07\D4c\M7E?@ACDEFGHIJKLMOPQRTUVXZ[\]_`aceghiklmnp6 L"LLLL <,<0<4<8<<< J` 0k))``l `b@\ `dL x`f< `h, `j*`l$^%Px8HLxT@  @h @ @ @ @r @` @vp @zX @| @~ @ @ x 8@h  @f @T @P @@ @0 !({ߨJ$*\Rffff*0@4aa8df7c*\R1*#17b*\R1*#c1$*\Rffff*0<4aa8df7b*\R1*#c6*\R1*#cd*\R1*#cc*\R0*#f*\R1*#cb$*\Rffff*0=4aa8df7c* " (08@ HX EhE33    P0P1X xC ! 5+  (08@H P `]@]X]p]]]]n8 L.d( d!p.f BookNames %D!t'rNewInfo %D!t'v r;$x'`iona v&;&$x'b. `'z b'|!6 f!:'j z | ~ z'4 ~$` L!p%A@ ~$`$f!h.h%D h!d'lA@ ~$b$T l$T h! h!0 hBHk ~$b$T hB ~$` h fBkkknA@|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<<<P%8 % >``tk <`PPki0 nei2 H+4X`8o   i0 e.In`6 h unt `|k `|k!.@X` ,h 4@8x @Ph @d @T @P @`x H`4z @d @T @P @L @< @8 .@x @t x0 ( {ߨJ$*\Rffff*0>4aa8df7c$*\Rffff*0=4aa8df7c$*\Rffff*0<4aa8df7b*\R1*#c6*\R1*#cd*\R1*#cc*\R0*#13*\R0*#19*\R1*#17b*\R1*#c1&"& 8 " @ H `?p(B    ?$ (08@H P"h p  "   ]  !@ ./dڴo@` Ӹֱ 0$4ֲ 2 0 %D(tdp 0 2 !DB@kPoHжϱǷ]@ B@8B@  0 %D!t'6 !:'4d'4ki ʾۼX (P (Roh ڲغۼ (P (Ro 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   =J7HxME( %`llco`'`!:``onte `%`"% 8  <  @h@$T @{ߨJ 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((((( ( JH BeginTable B@ L!p 99 q( : B@ N: B@L R VT B@P B@X2 \!.Z Z.doc`C@^q B@bMinL)) LB@dSelect L!!: 'Fha LB@Bunt:=1i@ appendtotext MacroSelect> 2003-4-8 ͻ ¼ ¶ο 88479329 12549346Sele]QҪǩtotalAcount ,λڡϼơУҪbeginTableλеġСء]'ҪǩlastColumn λһС ]]]]]](]@]X]x]] On Error GoTo errorhandle & !(l totalAcount L!p%  lastColumn L!p%ename BeginTable L!p%eByNamekx JH BeginTable B@ E  % D"ǩλô·ãA@ize |d %!'f f"ǩλô·ãA@g = |kk JH totalAcount B@Ac  B@arks(b  % i B@ %!'f od"ĩǩλô·ãA@ |k JH lastColumn B@  %4  %B@HnStr  %'h13)) >dH"ĩǩλô·ãA@llco|k$F'vChr(13 v L!!:뽫棡A@lconte|k v L%%!h! v L%%!h! L%h!d *ڶ׸ԪΪգ뵥λƣA@tent|k $.]]]DocName %D!t' $T5 ޷ȡĵϵԱA@- 1) T|@k8TempPath %D!t'rt $Tt - 1) ޷ȡñ·ϵԱA@ |k  .doc $'ļĴ· A@//add by kk test7Selection.GoTo What:=wdGoToBookmark, Name:="BeginTable">MsgBox CInt(Selection.Information(wdStartOfRangeColumnNumber)) Exit Sub//endnL =ڲָλĵ.For l  //ȷλ; ] JH BeginTable B@en(a  %X' //ʼеĿ]0'  fme   v L%%!h!   v L%%!h! L%h.on !d$  !d$  !d$T !d$T (dabk  '  LB@ds(wdBo)/////////////////////////////////////////'r r f le r  v L%%!h! r  v L%%!h! L%h.En !d'n, !d'l WiMsgBox currentDanWeiName B@ B@X.LineS \!.|ty |  l.doc`C@^eWqh B@b050pt LB@d ]HnoSet'ol]`''t n t 't ! r t   v L%%!h! r t   v L%%!h! L%h.050pt !d'p p p$  p$  noSet t'6 λset' k t 't w! r t   v L%%!h! r t   v L%%!h! L%h. En !d'p1  sets(wdBo t  '~)k f r t v hAle = w LB@dSingle''''''''''''ϴ LB@Bth = w'''''''''''''''''''ɾ ~ &ӵλĵ ~ r  v f h AkknoSet'''~ t r 'r½ĵ һλ]x .doc']' \!.x x `C@^q@ $B@'r r f  r  v L%%!h! r  v L%%!h! L%h. !d'l't l t 't! r t   v L%%!h! r t   v L%%!h! L%h. !d'p p p$  t 't! r t   v L%%!h! r t   v L%%!h! L%h. !d'p f r t hA $B@ B@bk r t 'r r f l B@ҳ  '''''''''''''''''''''''''''''''''''''''''''''''''' Set currentPageNum = Dialogs(wdDialogDocumentStatistics) 'ǰҳţںţ4''''''''''''''''''''''''' ɾǰҳĴ  !$!( : B@ ! B@  !$!(k $B@ ½ĵ λ $B@'r r f  r  v L%%!h! r  v L%%!h! L%h. !d'l't l$  p$  l$T t 't! r t   v L%%!h! r t   v L%%!h! L%h. !d'p p t 't! r t   v L%%!h! r t   v L%%!h! L%h. !d'pH f r t hA $B@ B@bk t r 'rd r t 'rk r f t  l B@ ҳ  'z'''''''''''''''''''''''''''''''''''''''''' Set currentPageNum = Dialogs(wdDialogDocumentStatistics) 'ǰҳţںţ 2''''''''''''''''''''''''' ɾǰҳĴ  !$!( : B@ ! B@  !$!(kH $B@0 $B@ $B@ $\B@d''''''''''''''''''''''ϴ B@B!'''''''''''''''''''''''''''''ɾ|ִ󣬲ҵǩA@nh|`oX tablePageNum# 2003-6-7 칫շԱ ¼ B@ B@X  \B@ B@b !$(FSelection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=tablePageNum JH yinfadanwei B@ N B@ !B@ !9d5(d9 99999999q R VT B@P : B@ f r t hA !+ ʱ.doc`  LB@^ Ƶڴ B@ B@X B@Bohh]Hɾǰ浥λnewDocRowCount]` JH BeginTable B@  %X' r '  ]x  v L%%!h!  v L%%!h! L%h. B@H N  : VT B@  !B@k] ɾ浥λ t  f r t ' d f r t  ' kx  ! t   v L%%!h! t   v L%%!h! L%h. B@H N  : VT B@  !B@k t % кϼƽ! t  h v L%%!h! t  h v L%%!h! L%h. B@H =SUM(ABOVE) B@ko]]]]]]0]H']h JH BeginTable B@  %X'"  ~ ! r   " v L%%!h! r   " v L%%!h! L%h.  !d' !d$T' B@ B@X \!.   .doc`C@^q B@b LB@d'start to del the rows   '# r    " v L%%!h! r    " v L%%!h! L%h.  !d'   '# r    " v L%%!h! r    " v L%%!h! L%h.  !d' V''''''''''''''''''''''''''''''''' MsgBox "ǰӵλ" & newSubDocRowCount & "" g' Call delRows(rowsCount, currentRowNum + subDocCurrentRowNum, newSubDocRowCount, tabsNum, columnCount) f r   v hA LB@d !'''''''''''''''''''''''''''''ϴ LB@B %'''''''''''''''''''''''''''''ɾk   'poh InstBokMarkBeginTable Macro 2003-6-4 qy ¼ L!p !hh BeginTableC@ 99 qo InstBokMarkBeginTable Macro 2003-6-4 qy ¼ L!p !hh LastColumnC@ 99 qo InstBokMarkBeginTable Macro 2003-6-4 qy ¼ L!p !hh TotalAcountC@ 99 qHo@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""?"041ThisDocumentt_VBA_PROJECTT#NewTitleModuleQEventClassModule"       !"#$%&'()*+,-./0123456789:;<=>?@ABDEFGHJLKMONPQR.  Z7Q<*S#_NdIfi \~FЮ!x \~FЮ!*S#_NMEH@S"SS">" LLLL" L* D@FJ0@H 00@84 2.@$ NT@  st@ OL@ on@  8 @ `  @  @ @ @ @ PLTVh`<%@8 @P @ `<%h'`P@0{ߨJ$*\Rffff*0<4aa8df7b*\R0*#14$*\Rffff*0=4aa8df7c*\R1*#c6*\R1*#cd*\R1*#c0*\R1*#cc$*\Rffff*0?4aa8df7c$*\Rffff*0@4aa8df7c*\R1*#17b*\R1*#c1*\R1*#17e*\R0*#f$*\Rffff*0A4aa8df7c4b"  8@PX" ` "h $   % "0 H X"T` "I      &S(PX `x     "   " $  ( 8H hx  " "  ( 08@HP &X   "   !!  " & !$!(ld@ & !(lk(o @***********Ĵݺ]]]Scripting.Dictionary$2.. *..SO[]D ula .!6', 8 .!: 8$,'4 4 4$.A@< 8A@> CurUserName %D @(B TrackMark %D0'0d@'0 FB@Hk A@Júۼ L9N9P9RqTitleStr %D$T A@Vk úۼ L 09N 09P 09Rq`oX***********Ĵݺ]`]x]Scripting.Dictionary$2.. *..]D .!6', 8 .!: 8$,'4 4 4$.A@< 8A@> CurUserName %D @(B TrackMark %D0'0d'0k ZB@HA@J L 09N 09P 09RqTitleStr %D$T A@Vkpoh FB@HoH@Attribute 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>raWxAay *\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*\CNormalJ *\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   {ߨJ7ThisDocument0<4aa8df7bThisDocumentQH0`WriteMark0@4aa8df7c^WriteMarkU7 NewTitleModule0A4aa8df7cNewTitleModuleS(0JAfrmTools0?4aa8df7cGfrmTools\HfrmSplit054aa8df7b[frmSplit+` SplitModule064aa8df7bDSplitModuleHxCJ EventClassModule0>4aa8df7c% EventClassModuleYToolModule0=4aa8df7c,ToolModule xH0`Uu; Lؔ10'B_~U69 FL@2NDCL|K<(I\OWr`_A1Ob-YtOms9`867U Wordk` VBA`Win16~`Win32`Mac`VBA6#` Project-`stdole`` Normal` Officeu` MSFormsC` ThisDocument<` _Evaluate` ChangeViewP` ActiveWindow+`ViewI` SplitSpecial` wdPaneNone= ` ActivePane_` wdPrintView(`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`` SplitModuleu` (getTableNoM`WhatC`wdGoToBookmarkJ`MoveUp`wdLine`HomeKey`wdStory&`Extend?`wdExtendd`Copyƿ`tmpdoc` Documents`SaveAsf;`FileNamej`Paste`Save` rowsCount` columnCount$` preDanWeiName_`currentDanWeiNamemJ`currentRowFirstCellContentB`nextRowFirstCellContent >` currentRowNum\`newDocRowCount?c`tabsNumh` attachDoc'F`Documentj`mainDoc+`SubDocRowsCount,`erro` 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`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` EventClassModule`App_DocumentBeforeCloseS`Doc`errdoneR` ToolModule@?`Xo`strNameZ`newValue`(ExistVar.`aa{\`Clear`Number-`_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)`-[_%G EP@  DA7S(xME(Lh6 "LLLL*LLLL*LL*L*LLLLLL*<<<<<<<<<<<<<<<<<<<<<<<<<<<<<  V`k`l `j`dx`f `` As m ro%`` `p Thi`"Tit`89 %P` @xXp0p@xLT@` @P @@ @H< @8 @( @ @0X @( @ @ @ @ @ @ @ #@_ #@@ @X P@pp %@` @P @@ @0 @ @ 4@  8B@ H B D@ @  @ `4%I`H%(J8 `H%XOP`H%8TX`H%Y  `H%^`H%0cX(`X%xm8h p`$%X@ @_ #`%ph{ߨJ$*\Rffff*0A4aa8df7c*\R1*#d4$*\Rffff*0<4aa8df7b*\R1*#c6*\R1*#cd*\R1*#cc*\R0*#f*\R1*#17b*\R1*#c1*\R1*#cb*\R1*#ca*\R1*#129*\R1*#e8*\R1*#e4*\R1*#1e*\R1*#1a3*\R1*#15*\R1*#f9*\R1*#fa*\R1*#49*\R1*#4a*\R1*#19f*\R1*#166*\R1*#1a5*\R1*#ea*\R1*#e6*\R1*#eb*\R1*#31*\R1*#2b*\R1*#e2*\R1*#6c*\R1*#e3*\R1*#17e*\R0*#10*\R0*#14ߙ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 errorhandle 7 TitleStr = ThisDocument.Variables("TitleStr").Value.9 Trackmark = ThisDocument.Variables("TrackMark").Value$ If Right(TitleStr, 1) = ";" Then%4 TitleStr = Left(TitleStr, Len(TitleStr) - 1)l 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]pnTitleStr %D!t' TrackMark %D!t'0 $;   $'kh ;$x' '  |$ļͷֺk]]]]] wenjiantou L!p% wenjiantou'd|$IJļͷǩkx''  L%pB@H'  %!h! !h!d$T' ȥз  $ b   $ $     $  $  'ȥո  b    $     $  '   'd ;  'k  '   'k ȡ̵]] ]8'$ '   $  G $'j  L%pB@H : B@ !hh   L!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  !( L!p !hh C@ 99 qh]P@ '  !( !( !(  !('  %!h!  $ !hB@  ' k úۼ L 09N9P 09RqX|PnH ͷ༭: 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` jZ,:RIQs*xjZ,:RIQs*㗮Ql. 3C%uozME0 SS Sa0z6"PLL<4<8<<<@N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} %*e4@ &`08kp( )) %i& %0 %Hx`0 )x%@t @p @l ,{1@\ @L @< @8 00H,{ߨJ*\R1*#17c*\R1*#17e$*\Rffff*0>4aa8df7c*\R1*#c0*\R1*#c6*\R0*#13*\R0*#1a*\R0*#19*\R0*#108<   $("  P Xx $Q  ¼Ķ] ¼ڴ򿪵ĵر֮ǰ0ĵرǰĸֲз* (B@d|h*` X 5825 X 58257|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="{7D7C9E01-1AD7-4C62-83D1-DDBBDC3666A3}" Document=ThisDocument/&H00000000 Module=NewTitleModule BaseClass=frmSplit BaseClass=frmTools Module=WriteMark Class=EventClassModule Module=SplitModule Module=ToolModule Name="Project" HelpContextID="0" VersionCompatible32="393222000" CMG="B4B6BC8DDCC4E0C4E0C4E0C4E0" DPB="E7E5EFDE11224523452345" GC="1A18121344144414BB" [HPROJECT&BfrmSplit#y,Jy,JfNo"$Sost 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 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 EmbCompObj%WaVBFrameYfrmTools!+(y,Jy,Jf^edded 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} frmTools Caption = "WORD" ClientHeight = o')bpCompObj*daVBFramefPROJECTwmj" 420 ClientLeft = 11040 ClientTop = 1440 ClientWidth = 1965 TypeInfoVer = 12 End ThisDocumentThisDocumentNewTitleModuleNewTitleModulefrmSplitfrmSplitfrmToolsfrmToolsWriteMarkWriteMarkEventClassModuleEventClassModuleSplitModuleSplitModuleToolModuleToolModule  FMicrosoft Office Word ĵ MCompObjomSWordDocWord.Document.89q