ࡱ> ` R6LbjbjFf+ FFF82G\G_HH"HHHIIIW^^^^^^$ahd^!IIIII^HH4^NNNIHHUNIWNNNHzH 0+iwFfJNQ\^0_Nd$NLdNNd$O`IINIIIII^^pNIII_IIII$,,,T6 DN Ym _l w " ?e S Ym _l w " ?e f[ O bhyvzy3ubh yv Ty 3uUSMO yv#N bhUSMO kXheg t^ g e Ym_lw"?eS Ym_lw"?ef[O kX h f cgqhQhvT gsQĉ[wY[kXQ @bkXhv NY(ueSRDu0 N0W,g`Q yv Ty3uUSMOyv#N'`+RleQuegt^ g eL?eLRNNLyxvzNgTf[SgTf[MObN[^%ZS[ %Ux[]\OUSMOT|5u݋RKb:gE-mail0W@W?ex;N S R Y T'`+RQut^gNNLybLRxvzNf[STf[MO]\OUSMO~ ;`Npe NvQ-Nؚ~LyNpe NvQ-N-N~LyNpe NvQ-N ZSXpe Ngbgb__R[bet^ ggbgW[peN0yv~kXQ SNDu 1000W[]S 1. aINSgvh300W[ 2.,gyvxvzvW,gQ[0;N‰p0͑pSp0z4xpRg500-600W[]S 3.xvzRS^eۏ^100 200W[   N0[byvxvzvagNTO    &(*,.02468:<@X^bʸwgU#h1Ah1ACJ OJQJ^JaJ o(h1Ah1AOJQJ^JaJo(.h<h1A@<CJ4OJPJQJ\^JaJ4o($h<CJ4OJPJQJ\^JaJ4o(*h<h1ACJ4OJPJQJ\^JaJ4o(#h1Ah<CJ,OJQJ^JaJ,o(h1ACJ,OJQJ^JaJ,o(#h1Ah1ACJ,OJQJ^JaJ,o('h<h1ACJ OJPJQJ^JaJ o(  $@X\b Z $a$gdn ^dG$gdS dDWD`gd< dDWD1`gdngdn$Td,G$VD^Ta$gd<$a$gd1Agd1AK4Lbj    & D T X Z b j ԽԽԨԽԽԨԽԽԨkT,h<h1A5>*CJOJQJ\^JaJo('h<h1A@<CJOJQJ^JaJo(,h<h1A5>*CJ OJQJ\^JaJ o(#h<h1ACJOJQJ^JaJo()h<h1A5CJOJQJ\^JaJo(,h<hn5>*CJOJQJ\^JaJo(,h<h1A5>*CJOJQJ\^JaJo('h<h1A@<CJOJQJ^JaJo(j n p r t z ~   ҾҾҾxdR?$h`jCJOJPJQJ\^JaJo(#hnhnCJOJQJ^JaJo('h<hnCJ,OJPJQJ^JaJ,o(%hTQ@<CJ$OJPJQJ\^JaJ$.h<hn@<CJ$OJPJQJ\^JaJ$o(h1ACJ OJ PJ o(h<h1AOJQJ^JaJo('h<h1A@<CJOJQJ^JaJo(,h<h1A5>*CJOJQJ\^JaJo(,h<hn5>*CJOJQJ\^JaJo(  " , . 0 : < qTkd$$Ifl40# ! 6#44 laf4$;$If];a$gdn $$Ifa$gdn $da$gdn HWD`Hgdn$a$gdn " * , . 0 8 < > H J L P T X \ d f x z | ijĢn]K]K]K]K]K]K]K]K#hnhnOJ PJ QJ^JaJo( hnhnOJ PJ QJ^JaJ$hnhn@OJ PJ QJ^JaJ'hnhn@OJ PJ QJ^JaJo(hnhnCJKHaJ hnhnCJOJ PJ QJ^J hnhnCJOJ PJ QJ^J#hnhnCJOJ PJ QJ^Jo('h<hnCJOJPJQJ\^JaJ*h<hnCJOJPJQJ\^JaJo(< > J L R T Z \ f z d$IfWD`gdn$d$Ifa$gdnTkd$$Ifl40# ! 6#44 laf4 z | 9***$d$Ifa$gdnkd*$$Ifl4ִ.# !6#    44 laf4 PkdC$$Ifl4ֈ.# !l6#44 laf4$d$Ifa$gdn      & * , V X Z ^ ` d f n p ~ יִhnh` OJ PJ QJaJhnhnOJ PJ QJaJo(hnhnCJKHaJ'hnhnCJOJ PJ QJ^JaJo(#hnhnOJ PJ QJ^JaJo( hnhnOJ PJ QJ^JaJ> Pkd0$$Ifl4ֈ.# !l6#44 laf4$d$Ifa$gdn  d$Ifgdn$d$Ifa$gdnTkd$$Ifl40.!6#44 laf4    ( * vvvv$d$Ifa$gdnzkd$$Ifl4\. ! . 6#44 laf4* , X Z s2Akd4$$Ifl4r!6#6#44 laf4$d$G$H$Ifa$gdnzkds$$Ifl4\.!. 6#44 laf4Z ` f p $d$Ifa$gdn L=====$d$Ifa$gdnkd$$Ifl4֞. ;t'!5C96#44 laf4 =kd$$Ifl4֞. ;t'!5C96#44 laf4$d$Ifa$gdn =kd$$Ifl4֞. ;t'!5C96#44 laf4$d$Ifa$gdn $d$Ifa$gdn L==,$$9DG$H$Ifa$gdn$$G$H$Ifa$gdnkd $$Ifl4֞. ;t'!5C96#44 laf4  * 0 8 D $$9DG$H$Ifa$gdn   ( * . 0 6 8 B D F R T V X d f v x öq_Nq hnhnOJ PJ QJ^JaJ#hnhnOJ PJ QJ^JaJo( hnhn@OJQJ^JaJ$hnhn@OJ PJ QJ^JaJ'hnhn@OJ PJ QJ^JaJo(hnhnCJKHaJhnh` OJQJaJhnhnOJQJaJo(hnhnOJ PJ QJaJhnh` OJ PJ QJaJhnhnOJ PJ QJaJo(D F T 9*$d$Ifa$gdnkd $$Ifl4^ִ.8 I! bN9:6#    44 laf4T V X f x $d$Ifa$gdnTkd $$Ifl40!L6#44 laf4$d$IfWDX`a$gdn < > @ B D F H zhh\\\\\\ dh$Ifgdndp$IfWD`gdn  WD` gd`jzkd $$Ifl4\!L$6#44 laf4 < F J L N x z | ~ سttdTdGTthnCJOJQJ^Jo(hnh<CJOJQJ^Jo(hnhnCJOJQJ^Jo(hnhnCJKHaJ hnhnCJOJ PJ QJ^JhnCJOJ PJ QJ^Jo(#hnhnCJOJ PJ QJ^Jo()hnhn5CJOJQJ\^JaJo(hnhnCJOJQJ^Jo(#hnhnCJOJQJ^JaJo(*h<hnCJOJPJQJ\^JaJo(H J L N z | ~ cUUU dh$G$Ifgd<9kd $$IflOt"##44 ladh$IfWDd`gdn9kd $$IflFt"##44 la dF$Ifgdn dh$Ifgdn HHHHHHHHHHH$G$If]Ga$gdn$JJdp$If]J^J`a$gdn $ WD` a$gd`j9kd6$$Ifl$t"##44 la dh$Ifgdn#Nяt^eg] gN,gvsQvxvzbg >yOċN_(u0l}0VYSǑ~`Q :N,gxvz]\OvMRgQY]\O]6eƖvpenc ۏLvgxvz [bvMRgxvzbgI{ [b,gxvzveOSDeYI{yxagN0 V0~9{ USMONCQ y vё x9\WO9De9bgpS6R9NXT9vQNT N0yv3uUSMOa USMO#N~{z USMOlQz t^ g e mQ0Ym_lw"?eS0Ym_lw"?ef[Oa ~{z ~{z t^ g e      PAGE    PAGE 5  HHHHHHHHHHHHHIXIŶxkUA,)hnhn5CJOJQJ\^JaJo('h`jhnCJOJPJQJ\^JaJ*h`jhnCJOJPJQJ\^JaJo(hnhnCJKHaJhnhnOJQJ^JaJhnOJQJ^JaJo(hnhnOJQJ^JaJo(#hnhnCJOJQJ^JaJo(hnCJOJQJ^JaJo( hnhnOJ PJ QJ^JaJ#hnhnOJ PJ QJ^JaJo(U*h<hnCJOJPJQJ\^JaJo(HHIjItI~IIISAdp$IfWD`gdnQkd$$Ifl0[!"44 la $$Ifa$gdn "WD`"gdn  WD` gd`j9kd$$Iflft"##44 laXIrItI|I~IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII"J>JLJ|Jܾܾܾܾܾܾܾϫtt#hnhnCJOJ PJ QJ^Jo(hnCJOJ PJ QJ^Jo(*h`jhnCJOJPJQJ\^JaJo($h`jCJOJPJQJ\^JaJo( hnhnCJOJQJ^JaJhnhnCJKHaJ hnhnCJOJ PJ QJ^J#hnhnCJOJ PJ QJ^Jo((IIIIIIII?Qkd$$Ifl0[!"44 ladp$IfWD`gdnQkds$$Ifl0[!"44 la dp$IfgdnIIIIIII?Qkd $$Ifl0[!"44 la dp$Ifgdndp$IfWD`gdnQkd$$Ifl0[!"44 laIIIIIII?Qkd>$$Ifl0[!"44 la dp$Ifgdndp$IfWD`gdnQkd$$Ifl0[!"44 laIIIIILJJu$4$If]gdn$4$IfWD]`gdndh$If`gdngdnQkd$$Ifl0[!"44 la|JJJJJJJJJJKBKKKKKKKK̽vdUdUdD?7h:h:o( h1Ao( hnhYCJOJ PJ QJ^JhYCJOJ PJ QJ^Jo(#hnhYCJOJ PJ QJ^Jo(hnCJOJ PJ QJ^Jo(*h`jhnCJOJPJQJ\^JaJo()hnhn5CJOJQJ\^JaJo(hnhnCJKHaJhnhnOJQJ^JaJ#hnhnCJOJ PJ QJ^Jo(#hnhnCJOJ PJ QJ^Jo(hnCJOJ PJ QJ^Jo(JJJJJJ^KK{r $IfgdYDdh$IfWD`DgdY $Ifgdntdh$IfWD2`tgdY  WD` gd`j "dWD`"gdn>kd\$$Ifl!1#1#44 laKKKKKKKKKKKKKK LL hh]h`h&`#$ &dPgd(  ^dG$gdTQ ^dG$gdYAkd$$Ifl4!4#4#44 laf4KKKKKKKKKKKL L LLLL"L$L&L(L.L2L4L6Lʵh:h:o(hTQ0JCJmHnHuh30JCJjh30JCJUh30JCJo( h30Jjh30JUh3hjhULL.L0L2L4L6L ^dG$gdTQ hh]h`hV&`#$WDd`gdSD&P 0pu1Z2P/R :pj. A!4"#2$%S4 $$If!vh5 5#v #v:V l46#,5 5/ /  / af4$$If!vh5 5#v #v:V l46#,5 5/ /  / af4$$If!vh55555555#v#v#v#v#v#v#v#v:V l46#,55555555/ /  / af4$$If!vh555l555#v#v#vl#v#v#v:V l46#,555l555/ /  / af4$$If!vh555l555#v#v#vl#v#v#v:V l46#,555l555/ /  / af4$$If!vh55#v#v:V l46#,55/ /  / af4$$If!vh555 5. #v#v#v #v. :V l46#,555 5. / /  / af4$$If!vh5555. #v#v#v#v. :V l46#,5555. / /  / af4a$$If!vh56##v6#:V l4r6#,56#/ af4$$If!vh55555C5955#v#v#v5#vC#v9#v#v:V l46#,55555C5955/ /  / af4$$If!vh55555C5955#v#v#v5#vC#v9#v#v:V l46#,55555C5955/ /  / af4$$If!vh55555C5955#v#v#v5#vC#v9#v#v:V l46#,55555C5955/ /  / af4$$If!vh55555C5955#v#v#v5#vC#v9#v#v:V l46#,55555C5955/ /  / af4]$$If!vh55 5b5N5595:5#v#v #vb#vN#v#v9#v:#v:V l4^6#,55 5b5N5595:5/ / / / /  / / / af4$$If!vh5L5#vL#v:V l46#,5L5/ /  / af4$$If!vh5L555$#vL#v#v#v$:V l46#,5L555$/ /  /  / / / af4U$$If!vh5##v#:V lF#5#/ a[$$If!vh5##v#:V lO#,5#/ aU$$If!vh5##v#:V l$#5#/ aU$$If!vh5##v#:V lf#5#/ a$$If!vh55#v#v:V l",55/ /  / a$$If!vh55#v#v:V l",55/ /  / a$$If!vh55#v#v:V l",55/ /  / a$$If!vh55#v#v:V l",55/ /  / a$$If!vh55#v#v:V l",55/ /  / a$$If!vh55#v#v:V l",55/ /  / a$$If!vh55#v#v:V l",55/ /  / a$$If!vh55#v#v:V l",55/ /  / aU$$If!vh51##v1#:V l1#51#/ aa$$If!vh54##v4#:V l44#,54#/ af4J@J cke $1$a$ CJKH_HaJmH nHsH tH$A@$ ؞k=W[SOFi@F nfh*OJQJ^Jo(ph2Z@R2 1A~e,gOJQJ^JaJBB@bB nckee,g$9DH$a$OJQJ^JaJ.@r. 2yblFhe,gCJaJ8O8 2 Char Char CJKHaJf!"& "& "& "& "&E ,.1Om%&)*-.3=>CDIJOPQVW\]blmrsty|"#*+,3<CDEbtABCDEFGHIJKLS568KLN"<"<"<"*"*"*"<"<"T"T"T"T"T"m"m"m"<"<"<"x "< <<< <<<HHHH/HHHHHHHHHHHHHHHHHHHHHHHH HVHHHHHVHH^"$ƕHH]HkHaHHHHHH]HkHaHHHHHH]HkHaHHHHHH]HkHaHHHH2vabb*tHHHtHHHLHH"<#0#0#ٿ#ٿ#ٿ#ٿ#ٿ#ٿ#ٿ#<J#ٿؿ####ٿ#ٿ"<#0#<#<#<#<#<#<#<#<#<#<E"<"<<<<00000000000000"<Y"ٿY"ٿY"<Y"<)*"PS"<\"ٿ\"<\"ٿ\"<)*"m"m"jV"j{0. ,.1Om%&)*-.3=>CDIJOPQVW\]blmrsty|"#*+,3<CDEbtABCDEFGHIJKLS568KLN00000000000000 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 00000000 0  0 00000 0 00000000000 0 0 0 0  0 0  0 0  0 0  0 0  0 0  0 0  0 0 0000 0 00 0 00000000000@0@0@0@0@0@00 ,.1Om%&)*-.3=>CDIJOPQVW\]blmrsty|"#*+,3<CDEbtABCDEFGHIJKLS568KLN00000000000000000 @0 @00 @0 @0 @0 @0 @0 @0 @ @00 @0 @0 @0 @0 @0 @00 @0 @0 @0 @0 @0 @00 @0 @00 @0 @0 @0 @00 @0 @0 @0 @00 @00 @0 @0 @0 @0 @0 @0 @00 @0 @0 @0 @0 @0 @0 @00 @0 @0 @0 @0 @0 @0 @00 @0 @0 @0 @0 @0 @0 @00@0 @0 @0 @0 @0 @0 @0@0 @0 @00 @ @00 @0 @0 @ @0000000000000000000000000000000000000000000000000000000{00J@0y00J@0y00J@0y00J@0y00J@0@0@0@0@0@0@0@0|X  ***-bj  XI|JK6L !').1 < z  * Z D T H HIIIIJKL6L  "#(*+,-/024L "$-!!@  @ 0(  B S  ?H0(   +1NOlm$&(*,.23<>BDHJNQUW[]abkmqtxy{| "#),23;<BEabst@LR+48JNE+8 @/c \H%FfftO-`6oiKpUH~^'P4Ya.c8 D ( N ` (W@|hre&S# %!2&%*?|,V15Q56<7B7a7nN8+9`9=p@1A,D'F7G&JGLrMlPTQ]VtVd3X^^`ay5fgVf:dfnci`jkpf`p;bq tvmwUyI2yb#z?z|^P}S2HSAb0NZv^\~e${PB- ec.p-d,NcyGoG2S-W3n%(2I8Z>s[+o_\;qb//iypwN:E6| Q];j<(1[jr\Qu{d>8b:E]t][ZRSYZ%&)*-.3=>CDIJOPQVW\]blmrsty|"#*+,3<CDEbKLS568K   BookNames  CurUserNameT  DeleteMarcesU DocNameT hahaU NewInfo OldInfo$U  SplitTool TitleStr  TrackMark year1_2;filetype1_2;fwzhfeZFalse$EE24E86636F9FF2C48257E210022087E.doc10002015030&;&Ym"RS&;&Ym"RS02015030 False Ym_lw"?eSRlQ[;eN;1 VF~FfVF~FfVF~FfVF~FfVF~FfVF~FfVF~FfVF~FfVF~FfV F~Ff 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@L@ PPHUnknown Gz Times New Roman5Symbol3& z Arial;ўSOSimHei;[SOSimSun7&{ @Calibri=eck\h[{SO[SO/5 e[SO?5 z Courier New;5 N[_GB2312;& z Helvetica 1h44|4g  !-!),.:;?]}    & 6"0000 0 0 00000 =@\]^([{  0 0 00000;[42d 2qHX?20 Ğef_o(u7bOh+'0$ 8D d p | 4  Normal.dot ΢û2Microsoft Office Word@Ik@ISw@`Yw@`Yw ՜.+,0 X`t|  񺼰   !"#$%&'()*+,-./012356789:;<=>@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqstuvwxy{|}~efRoot Entry FywnData 41Table?dWordDocumentFfSummaryInformation(rDocumentSummaryInformation8zMacros0$@_w0+iwVBA@aw0+iwdirP__SRP_0 !__SRP_1__SRP_2 #  !"$%&'()*+,-./012345689:;<>?@ABCDFGIJKLMNOPQRSTVWXY[\]^_`abcdefghijklmnopqrstuvwxyz{|}~L0* pHdProjectQ(@= l aV 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 AC62C329E-74C0-4536-BA58-814CFC192CCC6Users\ADMINI~1\AppData\Local\Temp\V BEb7.exdc<@".E .`PM D7ThisDocum@entGTA@isD@lcDuen@ 2 ` H1x",Q""+cWriteMarkGWrieM@jrk2/g/8U!b%aWNewTitleMo@duleG! N qwTBM#d#a"^2IKDS(frmToolsGTms#i2ro5 o\3(*$ 0Spli`F'Sp A5i)g/@C+1@ 32+L25F!&\k1aEv@gClass!EvEfC`"aisWjo`ue`4q27}ocf-'Y1' %77k'2? 2LHrU~~~~~~~~~~~~~~~~~~~~~U      strNamenewValuesourceflag  oObj a  ) (Cancel CloseMoK*y  *\CNormalrU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~_ ֦4ǤF D  a I   ) a Y 1 a Y )a y!IQ y'q&&&&)'Q'qa 8  AYya  Y '''# (1(i(( .bH (I]Project ThisDocument WriteMarkNewTitleModulefrmToolsfrmSplit ToolModuleEventClassModule SplitModuleF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  )` F5E:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLBWord !p0FC:\WINDOWS\system32\stdole2.tlbstdole 1yL-[DR?C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLLOffice .E .`M C:\WINDOWS\system32\FM20.DLLMSForms  1yz?E_L1 2C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\VBE\MSForms.exd  y 0Register_Event_HandlerAddVarExistVarShowMarkHideMarkdelstr k Fw FU3,_`y@sETbc>%dBd(e FDocumentInitWord InitWordsplit ShowToolBar @ (Scripting.DictionaryKeys Count CurUserNamee Ff Fp F TrackMarkw`GgvJL>z$ZZCQꄓ 1jGrZhO}F,f 8/[BF!գVz /J9@MrObAr]fdZ(Kn:0}"REK]}ڝ$[Gq@GK<vO~7'MM\# Eusɝm<66II^B`t|˿̬CSxW`8NC  YvcɻsDEjx !A JK)4A\&66J~ma~q^UbDD/^=z"Ta}APpa;!LBߖd.,dz@dC =I )b AE?i guE %,Ou-}eOH4 <O>=( delMultRows #A ɌH9@S.렟YwLYoѪC~YjA_M2ھcKYݺNGU˘iJsLڒQF!?@6Cbw4cdSplit cbTopLeft cbTopRightcdBottomwP*qctKPl %A xcbHideMark_ClickcbShowMark_ClickcbTopLeft_ClickcbTopRight_ClickcdBottom_Click cdSplit_Click P getTableNoSplitDocattachTemplatecreateNewSubDocInstBokMarkBeginTableInstBokMarkLastColumnInstBokMarkTotalAcount0,j0eGH9,|^0l[eF5#ZGVv6˪oT K@qbe:GdN2,bebO;k eGPHF=^w4"RJGV'h;vhM1YT`M7W~ PR:JNv iXv 9/A kE_BWx.6.D*V.chGN,=4aAtA M}:u, AG7[̍ ڣ}iLJO^ţMGTsBu[EAAMFlK 0A Vd; CȏLiZE&dMU~OfԴiQ^ %@Rx:~}Dn58XEKu\/mM1\=СL!`MG4R[\ i2A ` Ma_wK!S55~*H'4BIB$[B&SLzfL@VvŬ%Ldp`k,1jI @Rz-2!  By4t?F 3En  }c?avHJd 14A 0 Г{Nߐp$fsPaXNHg-B boh髜O'f 3q4ʦCMc*X9z$|H6Y-R-@H(#Y~~0NK|Hx& KfTOib 5A p)gJ_ɥtyLfדa] EibuۦiB}w[@')K:F\sB; ^G։MPaAO^yND@ 7A oX\L5w"'. nCSgi8kgC2ޗ e 3KJ7)`N_IėD52wOOpF&z CG~A-WgCG8ܨc !9A Lde 8 iHapp  X hDoc  x !  $  &  rowsCount currentRowNumnewDocRowCount columnCounttabsNumSubDocRowsCount CommonName A*  ,  -  a/  0  2  Y4  5 ( 7 8 I9 HgrU~|  Q y 1 a  18Yd,&x$  Qx[t$ $ t,$ xt l Q?TPdl Mh@x$ x 0d 0/P)xd{(dl x$ x 4)xd ,$ Pxd ddHdK?LPl MT@d$ d 0P ,>LF8F()`<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[)`F)5 E: N  $  0 , >F)5 3: N   l/5 3: N   \/5 l5Ii\5Ii?@ABDEFHIJKLMNOPQRSTUVWXYZ\]^_`abcdefghijklmnopqrstuvwxyz{|}~L e 3KJ7)`N_IėD52wOOpF&z CG~A-Wxz CG~A-W e 3KJ7)MEPSPSSS6"<<<0{4EE51C60-FE5F-49E5-A5C4-9714449E3532}{F84FBE77-DD87-4FDD-AFFA-C07046268006}8 "@` $` &` `( 0`  4X` 8`% %@X@X@X(@XX@X%L8%(@X@XH@Xx@X@XXP aV$*\Rffff*0H56ee61f648<@D+ " " ( "084@ x, "4  ,(X ` "h4p , "4 @P :X A@voh@A@|oP]Ƿȷб * WORD Ϣ$'( ( ,xA@. бdzɹ  WORD ϢA@k8o0Ƿȷĩб * WORD Ϣ$'( ( ,A@2 ĩбdzɹ  WORD ϢA@koǷȷĩб * WORD Ϣ$'( ( ,A@6 ĩбdzɹ  WORD ϢA@koXǷȷļ * WORD Ϣ$'( ( ,A@4 MsgBox "ļɹ", vbOKOnly, "WORD Ϣ"k`oXP9Attribute VB_Name = "frmSplit"  Bas|0{4EE51C60-FE5F-49E5-A5C4-971443532}{F84FBE77-DD87-4FDD-AFFA-C07046268006} 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 3/ 7\D}w[@')K:F\sB; ^G։MPaAO^xaAO^}w[@')MEPSPSSS6" <<0{4BE8B51A-04AF-463A-A4C0-5CF193E673B2}{A48F3B42-5E0A-479B-9FD6-89AB884D50B4} @`|k `  `   `  ` @i`i% %@@H%8x%x@`@@@@@@@v 8P HaV$*\Rffff*0E56ee61c1$*\Rffff*0C56ee61c148< " "  ( " 08@ " H P "  X`8h A@voh@A@|oPA@o8o('Բ𣬴˹ܹر ϢA@oXPAttribute VB_Name = "frmTools"  Bas|0{4BE8B51A-04AF-463A-A4C0-5CF193E673B2}{A48F3B42-5E0A-479B-9FD6-89AB884D50B4} dGlobaBlSpacoFalse Cre atablPr@edeclaI"dTru BEx0pose0TemplateDerivCustomizD P Sub NonMarkCB_Click() Hide ` EndShowb Pplit 3SDocUserForm QueryClO(Cancel As Integer, ModeH< D = bMsgBox "Բ𣬴˹ر", vbOKOnly, "ϢMrU @(`;(A`;$`nrU  i __SRP_11GWriteMarkToolModuleSplitModule!Aj  Q y ` a yyI6q66 4  [W\H  H\N \\AHl%(4\AH($5Hh4 @lH`1D5H"D@\HD -5H 4~Y T:$NHH$  0  , l!  /)5HI:$ NHH$  0  , l0/)5HMpZlpZ($%$$ 4Q       c S:$NHH$  0 Qo (]t6H $ 4Q kZ  kZ  kZ  c\D,4\Dl4 H0   0   HOi] 7YDoX\L5w"'.*=h8+3q nCSgix nCSgioX\L5w"'.ME( $( a7UxME86 LLL LLLL"L<<<p D`8k;;`Rl `T@\ `VL x`X< `Z, `\*`^$`` P@%00@Xp`x<lvzx|~@ @ @H @P (@ @f @ X@jp @@nX @p @r @ @t `@d `@b (@P @@ (F0(3@< @8 0aV$*\Rffff*0F56ee61c1*\R1*#e3*\R1*#129*\R1*#ca:*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#..\..\..\..\..\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*#f$*\Rffff*0C56ee61c1*\R1*#cb*\R0*#f*\R1*#cc*\R1*#cd*\R1*#c6$*\Rffff*0656ee61c1*\R1*#c1*\R1*#17b< " (08@ H P` EpE33     P8X1` $"  ""  &Q(PXh$ ! 5+  E(-@`h px  ]@]X]p]]]]]b0 <.Vctiona V!d.Xo BookNames %6!h'fNewInfo %6!h'j  f;$l'R$ j&;&$l'TA@ R'n* T'p X!,'\ n p r n r$R <!d%tA@v r$R$X!Z.Z Z!d'^ ^ $zAx; ȥз ^ Ax;ȥո ^ $zAx=ȥTABA@| r$Rjinjicd r$T $~ r+Tk r$T'` ` Ax5ȥո ` ^$F Z! Z! ZBk0 r$T$F ZB r$R Z XBk r$Rfwzhfwzh <%dB@H _GB2312 !(kkkbxA@||ho`XYAttribute VB_Name = "WriteMark" Sub D BookmT() Dim b&array As Variant:ansewder@pp8VsArange3CountIntegersel@ecttexSngtmD On Error GoTo ehandle Set aa= ActiveDopcumed=.snBsThis .bles("s") lu=AslistNewInfoށL= Split( $, ";~"z rE &$;& p1%UB@dd(Fp2W st=šs.BCP%If ThenJFoj@0 pp>1P pGk.E xXs0(j))True  Hid 7.d= .T@ Call delstr(G, C hr(13 'ȥ " ")" ո; Q9! TAB ShowM?7DY@@"jinjicd" Trim5hK)_# WStart Y{lBOCuІ ' I(rtA`fter(,6)hM F .Ad} 2,}x:VfhwzhU mP(").Su3ion.Font._GB2312 ߹NO5h{: y>]t Sub($@7\xME,">> LLLLL"<0<4<8<<<H0 %x`unt:% 0``Xtk .`Pki@ eleciB  +DX`8o   i@ ngle`F h |`h |k v`0|k! x`k)IN 8 I  Se<@`XX Widt: `XX `XX `XX `XX `XX `XX `XX `XX `XX H`0Dh @xx @@h @d @@T @P @`@``Dz HT @d @T @P @L @< @8 <t P (0@x @t 80 @ l @ \ @ L @ < @` ,  @H  @  @x  @ @ @ @ @8 @ @  @  @ @  >   XX `aV$*\Rffff*0D56ee61c1$*\Rffff*0C56ee61c1:*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#..\..\..\..\..\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*#f*\R1*#c1*\R1*#17b*\R0*#19*\R0*#13*\R1*#cc*\R1*#cd*\R1*#c6$*\Rffff*0656ee61c1."& 8 " @ H `?p(B    ?$ (08@H P"h p  "   (  " 0*8<P]X  !2 </Vo@` Ӹֱ @$D B @ %6(hdp @ B !6B@ kPoHжϱǷ]@ HB@J @ %6!h'F w H!L'Dd'Dki ʾۼ X (@ wdCol (B oh ڲغۼ-  (@ .Bord (BerBotto "Դַȥָһַ flag ַsource Դַ  N  b050pt N N  $  N N N  $  'N ho`XAttribute 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?ַȥָA flag source E Ldel@2(, "rDo While In M >2Aa = Left$&- 1) + Righ(Lebn) - Loop(d     l !"#$%&')*+,-./0123456789;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdghijkmonprqst, \ L7HxME ( D  0 @  "P  x  $       ~ R       00 ` h ~x      8  H X h p             * 0  08H      @ P  h x  & $  (  "0 X ` ~ hx  0*@ p    ( @ P` hx   :H  "8HP~`  H@P         08X p  8H`      (0X`"h "   *     8H LX&    (08@HPX`hp (t H ` p  " , $ ( 8 ~@  (  0 @X `  (  (8  ` p  x   (! &8!`! h!" p!x!!!!!!!! !$!!   " " ""    " """ #  # (# 8#   H# P#p# # # ($ 8$H$X$ $ %  \%  nh% %  % (& 0& ,@&p&  x&& & "& & "& & & &$'0'8'@'H'"P' X' "`' ' ' '$''''( "( ( "( @( `( h(&x((((( ( `^ BeginTable B@ <!dĵ 99q( , B@ d, B@b h lj B@f B@n( r!.p p.docvC@tq B@x <B@X <!!, '\ <B@BFi@ appendtotext Macro> 2003-4-8 ͻ ¼ ¶ο 88479329 12549346]QҪǩtotalAcount ,λڡϼơУҪbeginTableλеġСء]'ҪǩlastColumn λһС]]]]]](]@]X]x]] On Error GoTo errorhandle  !(l totalAcount <!d%tH lastColumn <!d%teH BeginTable <!d%teHkx `^ BeginTable B@  %"ǩλô·ãA@|d %!'z z"ǩλô·ãA@|kk `^ totalAcount B@  B@  % B@ %!'zd"ĩǩλô·ãA@|k `^ lastColumn B@  % %B@H  %'|dH"ĩǩλô·ãA@|k$\'  <!!,뽫棡A@|k  <%%!Z!  <%%!Z! <%Z!d*ڶ׸ԪΪգ뵥λƣA@|k $.]]]DocName %6!h' $F ޷ȡĵϵԱA@|@k8TempPath %6!h' $F ޷ȡñ·ϵԱA@|k  .doc $'ļĴ· A@//add by kk test7Selection.GoTo What:=wdGoToBookmark, Name:="BeginTable">MsgBox CInt(Selection.Information(wdStartOfRangeColumnNumber))Exit Sub//endڲָλĵ. //ȷλ] `^ BeginTable B@  %X'//ʼеĿ]0'  z    <%%!Z!    <%%!Z! <%Z. !d$  !d$  !d$F !d$F (dk  ' <B@X)/////////////////////////////////////////'  z     <%%!Z!    <%%!Z! <%Z. !d' !d'MsgBox currentDanWeiName B@ B@n r!.   .docvC@tqh B@x <B@X]HnoSet']`''   '!      <%%!Z!      <%%!Z! <%Z. !d'  $  $  noSet '6 λset'k  '!      <%%!Z!      <%%!Z! <%Z. !d' set   'k z    |A <B@X''''''''''''ϴ <B@B'''''''''''''''''''ɾ  &ӵλĵ     z | AkknoSet'''   '½ĵ һλ]x .doc']' r!.  vC@tq@ $B@'  z     <%%!Z!    <%%!Z! <%Z. !d''   '!      <%%!Z!      <%%!Z! <%Z. !d'  $   '!      <%%!Z!      <%%!Z! <%Z. !d' z   |A $B@ B@xk   '  z l B@ҳ  '''''''''''''''''''''''''''''''''''''''''''''''''' Set currentPageNum = Dialogs(wdDialogDocumentStatistics) 'ǰҳţںţ4''''''''''''''''''''''''' ɾǰҳĴ  !!( , B@ ! B@  !!(k $B@ ½ĵ λ $B@'  z     <%%!Z!    <%%!Z! <%Z. !d'' $  $  $F  '!      <%%!Z!      <%%!Z! <%Z. !d'   '!      <%%!Z!      <%%!Z! <%Z. !d'H z   |A $B@ B@xk   'd   'k  z   l B@ ҳ  'z'''''''''''''''''''''''''''''''''''''''''' Set currentPageNum = Dialogs(wdDialogDocumentStatistics) 'ǰҳţںţ 2''''''''''''''''''''''''' ɾǰҳĴ  !!( , B@ ! B@  !!(kH $B@0 $B@ $B@ $rB@X''''''''''''''''''''''ϴ B@B!'''''''''''''''''''''''''''''ɾ|Hִ󣬲ҵǩA@bh|`oX tablePageNum# 2003-6-7 칫շԱ ¼ B@ B@n  rB@ B@x !(FSelection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=tablePageNum `^ yinfadanwei B@ d B@ !B@ !9d5(d9 99999999q h lj B@f , B@ z   |A !+ ʱ.docv    <B@t Ƶڴ B@ B@n B@Bohh]Hɾǰ浥λnewDocRowCount]` `^ BeginTable B@  %X'  '  ]x   <%%!Z!   <%%!Z! <%Z.  B@H d  , lj B@" !B@k] ɾ浥λ   z   '$d z    '$kx $ !     <%%!Z!     <%%!Z! <%Z.  B@H d $ , lj B@" !B@k  % кϼƽ!   |  <%%!Z!   |  <%%!Z! <%Z. B@H =SUM(ABOVE)(* B@&ko]]]]]]0]H'.]h `^ BeginTable B@  %X': .  !  .  :  <%%!Z!  .  :  <%%!Z! <%Z.8 8!d'2 8!d$F'4 B@ B@n r!., ,  4.docvC@tq B@x <B@X'0start to del the rows 2 0 '0#  . 0  :  <%%!Z!  . 0  :  <%%!Z! <%Z.8 8!d'6 6 0 '0#  . 0  :  <%%!Z!  . 0  :  <%%!Z! <%Z.8 8!d'6 V''''''''''''''''''''''''''''''''' MsgBox "ǰӵλ" & newSubDocRowCount & "" g' Call delRows(rowsCount, currentRowNum + subDocCurrentRowNum, newSubDocRowCount, tabsNum, columnCount) z  . 0  |A <B@X !'''''''''''''''''''''''''''''ϴ <B@B %'''''''''''''''''''''''''''''ɾk 0 . '.poh InstBokMarkBeginTable Macro 2003-6-4 qy ¼ <!d !ZZ BeginTableC@ 99qo InstBokMarkBeginTable Macro 2003-6-4 qy ¼ <!d !ZZ LastColumnC@ 99qo InstBokMarkBeginTable Macro 2003-6-4 qy ¼ <!d !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""?"041ThisDocumenta_VBA_PROJECT "(#NewTitleModule#:TEventClassModule"[h   7Q<p)gJ_ɥtyLfדa] Eibxa] Eibp)gJ_ɥMEH@S"SS">"  *L"LLLL 9@9Bq@A@DTitleStr %6$F A@Hk úۼ < "9> "9@ "9Bqo***********Ĵݺ] ]8]PScripting.Dictionary$$.  . ]Dh !(' * !, *$'& & &$ A@. *A@0 CurUserName %6 2(4 TrackMark %60'"dX'"kH LB@:A@D < "9> "9@ "9BqTitleStr %6$F A@Hko 8B@:oAttribute VB_Name = "ThisDocument" Bas1Normal.VGlobal!SpaclFalse CreatablPre declaIdTru BExposeTemplateDeriv$Custom izC1Public Sub InitWord(ByRef oO@bj As ect) '*ݺ Dim BaoDicTrackmark%Boolean%Set ve3("Scri@pting.!tionary">L.str ,Sng a'*.Keys For i 0 ToB.Count - 1 = a(iAddVar 5, (@Next i.Register_Ev_HandleRr@|ppRa,.UserI.@i_s("CurE 7 If %BQM@Q")3"0Z"@ eQ0 GY=z ğEB~EfrmTes.Show 0 End If{úۼLWithp Act@EGR.A!Revisms@*".Prin~t!*%A WritedOLen(Trim(QitleE"))) > Bh(NewT! K Ob!_#O O$gccSubapws@Ptxxx4xEiFyachtz^A{ n{ |A|` }}A~a!A3! ߀rkԀg4Fˁ l! `SJfoa#cA>dC 8e'A9?AA5B899 UBar(fWWrAay *\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#E:\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*\CNormalaV&*\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{C62C329E-74C0-4536-BA58-814CFC192CCC}#2.0#0#C:\Users\ADMINI~1\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M   aV7ThisDocument0656ee61c1ThisDocumentQxH0WriteMark0F56ee61c1PWriteMarkUxgNewTitleModule0G56ee61c1NewTitleModuleS(0KDfrmTools0E56ee61c19frmTools\xH5 frmSplit0H56ee61f6MfrmSplit+` ToolModule0C56ee61c1:ToolModule\xF EventClassModule0D56ee61c1? EventClassModuleYc SplitModule0I56ee61f6ZSplitModuleHL0`Hx39D-O'`c(rB}ֵBS]Hz\nUą΅@'R\ OFN'C{"K6R{cy,JAB8ZRްMD{&`8;<TV 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`ActiveDocument\`TrackRevisions`PrintRevisions` ShowRevisionsu` (WriteBookmark`Trim@`(NewTitle` InitWordsplit` frmSplit` ShowToolBarV4` WriteMarkd` bookarrayf` ansewerarray6.`appt`books`range ` booksCount'` selecttext`tmp` errorhandle_` Bookmarks?n` Bookmarknamesk`ValueK` Ansewerslist/`Split)`p1^`p2^`ja`Exists]`(HideMark:`(delstr`ChrK~`(ShowMark`Replacef`Start`Cut.` InsertAfterq5`Addr` SelectionZ`FontU` NewTitleModuleg`arraysH*`rowsU`OldStr'`TitleStr`Right `booknamea`flag`rang1 ` cellcontent`iCountl`ocellK`Tables`Cells`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`Size` 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-`sourceG`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`Class`DocumentBeforeClose/`_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_Chr\;`_B_var_TitleStr7`_B_var_TrackmarkF` _B_var_Right9` _B_var_LeftQ` _B_var_iCount` _B_var_ocell8w` _B_str_LeftV` _B_str_Right#(` _B_var_Error)` ClearMarcs {`cdSplitZ` cbTopLeftZ` cbTopRight`cdBottomjb`;?[9 MQ P@ , iED7S(xME(LZ6 *LLLLL*L*LL*LLLL*LLLLL"<<<<<<<<<<<<<<<<<<<<<<<<<<<< H`k`l `j`dx`X 7 `Pumen`r"). %``$ `p 1) `4 `8t(Ti%P @ H(l<Fz@` @`P @8@ @@< (@ 8 @( @h @"X @x @ p@ (@ @ @ @ @8 P#@_ 88#@ @ @p @` @P @@ @0 (@ @ `84@p HB@ pBpDh@  @ P(`\%HIX@`H%x(Jp`H%XO`H%T0`H% Y0`H%P^`H`H%0cx`8%`m0 `l%@ @`_ 0%0H`@`haV$*\Rffff*0G56ee61c1*\R1*#d4*\R0*#14<*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#..\..\..\..\..\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*#10*\R1*#17e*\R1*#e3*\R1*#6c*\R1*#e2*\R1*#2b*\R1*#31*\R1*#eb*\R1*#e6*\R1*#ea*\R1*#1a5*\R1*#166*\R1*#19f*\R1*#4a*\R1*#49*\R1*#fa*\R1*#f9*\R1*#15*\R1*#1a3*\R1*#1e*\R1*#e4*\R1*#e8*\R1*#129*\R1*#ca*\R1*#cb*\R1*#c1*\R1*#17b*\R0*#f:*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#..\..\..\..\..\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*#f*\R1*#cc*\R1*#cd*\R1*#c6$*\Rffff*0656ee61c1ߙ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"" """ """"" ;"" #Sub NewTitle() 'ļͷ Dim arrays As Variant Dim rows As Integer On Error GoTo errorhandleNewI7 TitleStr = ThisDocument.Variables("TitleStr").Valuel9 Trackmark = ThisDocument.Variables("TrackMark").Value$ If Right(TitleStr, 1) = ";" Then <!4 TitleStr = Left(TitleStr, Len(TitleStr) - 1)Z!d 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]pbTitleStr %6!h' TrackMark %6!h'" $;   $'kh ;$l' '  |$ļͷֺk]]]]] wenjiantou <!d%t wenjiantou'd|$IJļͷǩkx''  <%dB@H'  %!Z! !Z!d$F' ȥз  $z b   $z $     $z  $  'ȥո  b    $     $  '   'd ;  'k  '   'k ȡ̵]] ]8'$ '   $  G $'j  <%dB@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  !( <!d !ZZ C@ 99qh]P@ '  !(  Selection.Font.Bold = TrueСμ !(  !('  %!Z!  $ !ZB@  ' kx úۼ < "9>9@ "9Bq8|0b( ͷ༭: 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.LineStyPSingle  .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=v' Bold Tru(!< 0"Сμ"n.@(iRed i11 Each oc0&h {#.*.R.InsqAf`8 arrays(q- 1|+ 8 Next-'ú' O.TAkRevis1c)Q qNintI\#jo~wO-C axit Sub Zorhandle:MsgBox ("ͷ༭:" + Error` SS S a0T6"<0<<< <$P<4<8<<<2N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} %*W8@ P`8Jp( )S %i %0 %0000000% Sx%00 Sx h0 h Sx`%@@$@@(t @p x(l @\ @L 8@< nt8 in(00H,aV*\R1*#17c*\R1*#17e$*\Rffff*0D56ee61c1*\R1*#c04<   $("  P Xx $Q  ¼Ķ] ¼ڴ򿪵ĵر֮ǰ0ĵرǰĸֲV RB@Xp|hV` HX 5825 X 5825|0k(o Attribute VB_Name = "EventClassModule"  Bas0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobalSpacAIFalse dCreatablPredeclaIdCExposeTemplateDerivCustomiz E'¼Ķ Public Withs app As Wor d.AppatXion u.VarHelpIDe-1 '/ڴ򿪵ĵر֮ǰ6Z^ Sub -_DocumBeforeCl|(ByVal B, Cancel Boo`lean)Eĸֲ@ On Error GoTo err8don@k.SavDExit#  : If@ CStr(@)6"5825" OrCTheGABnd Ibf# E@=  AID="{2492729A-129D-4217-AD0F-52A40FC52EBF}" Document=ThisDocument/&H00000000 Module=NewTitleModule BaseClass=frmSplit BaseClass=frmTools Module=ToolModule Module=WriteMark Class=EventClassModule Module=SplitModule Name="Project" HelpContextID="0" VersionCompatible32="393222000" CMG="A3A171D010D410D410D410D4" DPB="464494B594FB36FC36FC36" GC="E9EB3BBC3CBC3C43" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005APROJECT*frmSplit'0+iw0+iwfo&(};VBE;&H00000000 [Workspace] ThisDocument=0, 0, 0, 0, C NewTitleModule=0, 0, 0, 0, C frmSplit=0, 0, 0, 0, C, 50, 50, 1010, 692, C frmTools=0, 0, 0, 0, C, 25, 25, 985, 667, 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_O$8cdSplit( 8cbTopLefth( 4cbTopRight$8cdBottom ,bReNu"[SO,Lhu"[SO(+gRhqu"[SO,+gLhu"[SO Microsoft Forms 2.0 Embedded Object9qCompObj)aVBFramefrmTools%/,0+iw0+iwfVERSION 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 = 420 ClientLeft = 11040 ClientTop = 1440o+-pCompObj.aVBFramePROJECTwm" ClientWidth = 1965 TypeInfoVer = 12 End ThisDocumentThisDocumentNewTitleModuleNewTitleModulefrmSplitfrmSplitfrmToolsfrmToolsToolModuleToolModuleWriteMarkWriteMarkEventClassModuleEventClassModuleSplitModuleSplitModule  FMicrosoft Office Word ĵ MSWordDocWord.Document.89qCompObjm