ࡱ> ]`\}[ RDbjbj;Vΐΐ4' #####7778o479''"IIIG2999999$E<><9-#<9##IIli9[&[&[&#I#I0[&G2[&[&'h(I d7U#'0909 (}?$|}? ((N}?#k*[&<9<9}$9}?  : )n]^OO?blQyё{t-N_ 2018t^蕄{ N0)n]^OO?blQyё{t-N_iQ )n]^OO?blQyё{t-N_/f)n]^Nl?e^v^\v{tЏ\OhQ^OO?blQyё]\OvckY~NNUSMO #[ehQ^OO?blQyёv~N{t0~N6R^T~N8h{0QRlQ[0NNY0NR{tY0R"RY0Oo`{tY5*NLY[0 NW0~n0twm3*N{t萌T^t[0PNn08l V0͂WS0s^30eb0lz0m4Y8*NR-N_ \O:N)n]^OO?blQyё{t-N_v>mQ:gg Ogq)n]^OO?blQyё{t-N_vcCg bb,g:SQOO?blQyё{t]\O0 N ;NL 10#6RhQ^OO?blQyёvR_Ɩ0O(uR 20#hQ^OO?blQyёv4X[0cS0O(uI{]\O 30#hQ^OO?blQyёv8h{0Ok6eeQ0?e^'`Wё{b>k6eeQ/eQSb>yOOT1\N/eQ0;SukSuNRu/eQ0WaN>y:S/eQ0OO?bO/eQ0)n]^OO?blQyё{t-N_2018t^6e/e;`{2012.98NCQ0 N sQN)n]^OO?blQyё{t-N_2018t^6eeQ{`Qf )n]^OO?blQyё{t-N_2018t^6eeQ{2012.98NCQ vQ-NN,lQqQ{b>k6eeQ1922.98NCQ `S95.53%?e^'`Wё{b>k6eeQ90NCQ `S4.47%0  N sQN)n]^OO?blQyё{t-N_2018t^/eQ{`Qf 00)n]^OO?blQyё{t-N_2018t^/eQ{2012.98NCQ0 1. c/eQRR{| Sb>yOOT1\N/eQ132.57NCQ;SukSuNRu/eQ55.94NCQWaN>y:S/eQ90NCQOO?bO/eQ1734.47NCQ0 2. c/eQ(uR{| SbNXT/eQ1079.92NCQ lQ(u/eQ 200.65NCQ yv/eQ732.41NCQ0 V sQN)n]^OO?blQyё{t-N_2018t^"?eb>k6e/e{`Qv;`SOf )n]^OO?blQyё{t-N_2018t^"?eb>k6e/e;`{ 2012.98NCQ0SbN,lQqQ{b>k6eeQ1922.98NCQ ?e^'`Wё{b>k6eeQ90NCQ/eQSb>yOOT1\N/eQ132.57NCQ ;SukSuNRu/eQ55.94NCQ WaN>y:S/eQ90NCQ OO?bO/eQ1734.47NCQ0 sQN)n]^OO?blQyё{t-N_2018t^N,lQqQ{S_t^b>k`Qf 1.N,lQqQ{S_t^b>kĉ!jSS`Q )n]^OO?blQyё{t-N_2018t^N,lQqQ{S_t^b>k 1922.98NCQ k2017t^gbLpeXR198.69NCQ ;N/fNXT~9XR247.13NCQ lQ(u~9Q\39.38NCQ yv~9XR80.94NCQ0 2.N,lQqQ{S_t^b>k~g`Q >yOOT1\N/eQ{| 132.57NCQ `S6.89%;SukSuNRu/eQ{| 55.94NCQ `S2.91 %OO?bO/eQ{| 1734.47NCQ `S90.20 %0 3.N,lQqQ{S_t^b>kwQSOO(u`Q 1 >yOOT1\N/eQ{| L?eNNUSMOyO>k :gsQNNUSMOW,g{QOi49/eQy NR94.70NCQ ;N(uNNXT{QOi9/eQ0 2 >yOOT1\N/eQ{| L?eNNUSMOyO>k :gsQNNUSMOLNt^ё49/eQy 37.87NCQ ;N(uNNXTLNt^ё49/eQ0 3 ;SukSuNRu/eQ{| L?eNNUSMO;Su>k L?eUSMO;Suy NR55.94NCQ ;N(uNNXTW,g;SuOv/eQ0 4 OO?bO/eQ{| OO?b9ei/eQ>k OO?blQyёy NR74.76NCQ ;N(uN cV[ĉ[:NL]4~vOO?blQyё/eQ0 5 OO?bO/eQ{| OO?b9ei/eQ>k -?be4y NR6.73NCQ ;N(uN cV[ĉ[:NeL]4~vOO?blQyёe4/eQ0 6 OO?bO/eQ{| WaN>y:SOO[>k OO?blQyё{ty NR1652.98NCQ ;N(uNUSMONXT~9/eQ0lQ(u~9/eQNSL?eЏL@byv~9/eQI{0 mQ sQN)n]^OO?blQyё{t-N_2018t^N,lQqQ{W,g/eQ`Qf )n]^OO?blQyё{t-N_2018t^N,lQqQ{W,g/eQ 1280.57NCQ vQ-N NXT~91079.92NCQ ;NSbW,g]D0%m4e40VYё0>yOO490vQN]Dy)R/eQ0;Su90OO?blQyё0-?be40vQN[*NNT[^veR/eQ lQ(u~9200.65NCQ ;NSbRlQ90pS7R90Kb~905u90]e90VlQQVX 9(u0~Ob 90O90W90lQRc_90RR90]O~90y)R90vQNN9(u0vQNFUTT gR/eQ0 N sQN)n]^OO?blQyё{t-N_2018t^?e^'`Wё{/eQ`Qf 1.?e^'`Wё{S_t^b>kĉ!jSS`Q )n]^OO?blQyё{t-N_2018t^?e^'`Wё{S_t^b>k90NCQ k2017t^gbLpeXR30.78NCQ ;N/fNO6eeQ[^OO?blQyё7>k4o`0 2.?e^'`Wё{S_t^b>k~g`Q WaN>y:S/eQ{| 90NCQ `S100 %0 3.?e^'`Wё{S_t^b>kwQSOO(u`Q  ",.0:LR   ѳyi\i\iL@L3hyCJ OJPJaJ o(hCJ\CJ OJPJaJ hyh!CJ OJPJaJ o(hp6CJ OJPJaJ o(h_hh_hCJ OJPJaJ o()hy0J5B*CJ OJPJaJ o(ph)h!0J5B*CJ OJPJaJ o(phh!0JB*CJaJo(phh!0JCJ,OJPJaJ,o(h kC@CJ,OJ\aJ,o( h!@CJ,OJPJ\aJ,o(hy@CJ,OJ\aJ,o(h!@CJ,OJ\aJ,o(.0R `  l  L d`gdMD)dgdMD)$ & FsdWD`sa$gdMD) ~dVD0^~gdMD) dWD`gdCJ\ dWD`gdMD) sdWD`sgdMD) Nd,WD`Ngd! $d,a$gd!  & , > D F J h l ²¢¢xcxUC"h!B*CJOJPJaJo(phh!B*CJ aJ o(ph)h kC0J5B*CJ OJPJaJ o(ph)h!0J5B*CJ OJPJaJ o(ph)hdH0J5B*CJ OJPJaJ o(phhyhdHCJ OJPJaJ o(hyhyCJ OJPJaJ o(hyh!CJ OJPJaJ o(hyCJ OJPJaJ o(hyhyCJ OJPJaJ o(hyhvYCJ OJPJaJ o(  ` x z ѹp^L:^L:L:^p^"hL*mB*CJ OJPJaJ o(ph"hK^B*CJ OJPJaJ o(ph"h~B*CJ OJPJaJ o(phh<CJ OJPJ\aJ o(h~CJ OJPJ\aJ o(%h~B*CJ OJPJ\aJ o(ph.h kC0JB*CJ OJPJQJ^JaJ o(ph.h~0JB*CJ OJPJQJ^JaJ o(ph-hdH5B*CJ OJPJQJ^JaJ o(ph-h~5B*CJ OJPJQJ^JaJ o(ph   0 6 8 L d j l v  "4:RXܳvdddMv-h 5B*CJ OJPJQJ^JaJ o(ph"h B*CJ OJPJaJ o(phh<CJ OJPJ\aJ o(-hK^5B*CJ OJPJQJ^JaJ o(ph-h<5B*CJ OJPJQJ^JaJ o(ph-h~5B*CJ OJPJQJ^JaJ o(ph"hK^B*CJ OJPJaJ o(ph"h~B*CJ OJPJaJ o(ph"h kCB*CJ OJPJaJ o(phL z<b6X4JH$d`a$gdMD) d`gd9dgdMD) d`gdMD) & Fd`gdMD) d`gdMD) vdWD`vgdMD) vd`vgdMD)$d`a$gdMD)XZdr 4BXdr~ʸʸʸʸܦܦܦ܏xaRh{ 4CJ OJPJ\aJ o(-hM5B*CJ OJPJQJ^JaJ o(ph-h{ 45B*CJ OJPJQJ^JaJ o(ph-h~5B*CJ OJPJQJ^JaJ o(ph"hMB*CJ OJPJaJ o(ph"hQ]B*CJ OJPJaJ o(ph"h(9B*CJ OJPJaJ o(ph"h~B*CJ OJPJaJ o(ph"h B*CJ OJPJaJ o(ph 8FJjvbzܳvdRR"h`OB*CJ OJPJaJ o(ph"h9WB*CJ OJPJaJ o(phhDkCJ OJPJ\aJ o(-h 5B*CJ OJPJQJ^JaJ o(ph-hDk5B*CJ OJPJQJ^JaJ o(ph-h~5B*CJ OJPJQJ^JaJ o(ph"hDkB*CJ OJPJaJ o(ph"h~B*CJ OJPJaJ o(ph"h B*CJ OJPJaJ o(ph $.26X`ʸܸܸܸʏ}k}YGkYkG"h'B*CJ OJPJaJ o(ph"h?B*CJ OJPJaJ o(ph"hB*CJ OJPJaJ o(ph"hnB*CJ OJPJaJ o(ph-h~5B*CJ OJPJQJ^JaJ o(ph"hjNB*CJ OJPJaJ o(ph"h!(gB*CJ OJPJaJ o(ph"h~B*CJ OJPJaJ o(ph"h`OB*CJ OJPJaJ o(ph"hh4B*CJ OJPJaJ o(ph4:HJLNPfl|ʳ}hʏVVVD"hP8B*CJ OJPJaJ o(ph"hPB*CJ OJPJaJ o(ph(hh4hh4B*CJ OJPJaJ o(ph"h9B*CJ OJPJaJ o(ph"hh4B*CJ OJPJaJ o(ph"h'B*CJ OJPJaJ o(ph-h~5B*CJ OJPJQJ^JaJ o(ph"h~B*CJ OJPJaJ o(ph"h'B*CJ OJPJaJ o(ph"hB*CJ OJPJaJ o(ph DHJLNz &`bfܸܸܸܣܸܸܸʸʸo"h RB*CJ OJPJaJ o(ph"hEB*CJ OJPJaJ o(phho+ho+CJ OJPJaJ o((ho+h~B*CJ OJPJaJ o(ph"hPB*CJ OJPJaJ o(ph"hP8B*CJ OJPJaJ o(ph"h~B*CJ OJPJaJ o(ph"ho+B*CJ OJPJaJ o(ph$Hfrp667:888 dWD`gdMD) vdWD`vgdMD)$d`a$gdEW,dgdEW, d`gdEW, d`gdMD)dgdMD)$d`a$gdMD)fx$r|諙uuu^GG-hEW,5B*CJ OJPJQJ^JaJ o(ph-hIH5B*CJ OJPJQJ^JaJ o(ph"hEW,B*CJ OJPJaJ o(ph"hP8B*CJ OJPJaJ o(ph"h~B*CJ OJPJaJ o(phhsCJ OJPJ\aJ o(-hP85B*CJ OJPJQJ^JaJ o(ph-hs5B*CJ OJPJQJ^JaJ o(ph-h~5B*CJ OJPJQJ^JaJ o(ph,.:DPlp6 66B6H6T6^6b6p66666666ܱܳܳܚl-hpO+5B*CJ OJPJQJ^JaJ o(ph-hIH5B*CJ OJPJQJ^JaJ o(ph-h~5B*CJ OJPJQJ^JaJ o(phU-hEW,5B*CJ OJPJQJ^JaJ o(ph"hpO+B*CJ OJPJaJ o(ph"hEW,B*CJ OJPJaJ o(ph"hJB*CJ OJPJaJ o(ph(WaN>y:S/eQ{| V gW0WO(uCgQ6eeQS[^Ny:PR6eeQ[c/eQ>k ^yOO?b/eQy NR90NCQ ;N(uNNO6eeQ[^OO?blQyё7>k4o`/eQ0 kQ sQN)n]^OO?blQyё{t-N_2018t^  NlQ ~9{`Qf 1.VlQQVX 9(u9hnc 0)n]^"?e@\sQNfnxVlQQVX ~9[ybavw 0)n"Y[2018]17S eN|^y 2018t^VlQQVX ~9[LR_S{t 1u^"?e~y{[c NQUSr[c{ۏLlQ_0 2.lQRc_92018t^[clQRc_9N,lQqQ{3.5NCQ k Nt^{peX0%0;N(uNc_w0^OO?blQyёvsQUSMOlQR;mRI{/eQ0 3.lQR(uf-nSЏL~b92018t^[clQR(uf-nSЏL~b9N,lQqQ{0NCQ k Nt^{peX0%0 ]N vQN͑Nyv`Qf 1.:gsQЏL~9 2018t^)n]^OO?blQyё{t-N_,g~S3*N{tI{4[SlQNNUSMOv:gsQЏL~9"?eb>k{200.65NCQ0 2.~Hevhn`Q 2018t^)n]^OO?blQyё{t-N_/eQ{yv~9GW[s~Hevh{t mSS_t^N,lQqQ{/eQ642.41NCQ0 3.2018t^)n]^OO?blQyё{t-N_?e^Ǒ-{;`262.76NCQ vQ-N?e^Ǒ-'ir{20.66NCQ ?e^Ǒ-] z{0NCQ ?e^Ǒ- gR{242.10NCQ0 N0 T͋ʑ 1."?eb>k6eeQ,g~"?eS_t^bNv"?e{Dё SbN,lQqQ{"?eb>kT?e^'`Wё{"?eb>k0 2.N7bDё:\O:N,g蕄vNN6eeQ ~eQ"?eN7b{tvDё0 3.USMO~YO/fc Nt^^{*gO(u[k~~~eQ,gt^^{vDёSbN,lQqQ{0?e^'`Wё{TN7bDё{ 0 4.NN6eeQNNUSMO_U\NNNR;mRSR;mR@bS_v6eeQ N+TN7bDё6eeQ0 5.NNUSMO~%6eeQNNUSMO(WNNNR;mRSR;mRKNY_U\^rz8h{~%;mRS_v6eeQ0 6.vQN6eeQ{USMO(W "?eb>k0NN6eeQ0~%6eeQ I{KNYS_vTy6eeQ+T N~eR6eeQTD^\USMO4>kI{6eeQ 0 7.(uNNWё%_e6e/e]cNNUSMO(W(uS_t^v "?eb>k6eeQ 0 N7bDё 0 NN6eeQ 0 NNUSMO~%6eeQ 0 vQN6eeQ 0 Nt^~l I{ NN[cS_t^/eQv`Q N O(uNMRt^^y/}vNNWё%_e,gt^6e/e:SvDё0 8. Nt^~lcNMRt^^\*g[b0~l0R,gt^N cSĉ[(u~~O(uvDё0 9.W,g/eQ/f{USMO:NOvQck8^Џl [be8^]\ONR@bSuv/eQ SbNXT/eQTe8^lQ(u/eQ0 10.yv/eQ/f{USMO:N[bvQyr[vL?e]\ONRbNNSU\vh@bSuv/eQ0 11. >yOOT1\N/eQ{| L?eNNUSMOyO>k :gsQNNUSMOW,g{QOi49/eQy S f:gsQNNUSMO[e{QOi6R^1uUSMO4~vW,g{QOi9/eQ0 12. >yOOT1\N/eQ{| L?eNNUSMOyO>k :gsQNNUSMOLNt^ё49/eQy S f:gsQNNUSMO[e{QOi6R^1uUSMO[E4~vLNt^ё/eQ0 13. ;SukSuNRu/eQ{| L?eNNUSMO;Su>k L?eUSMO;Suy S f"?eƖ-N[cvL?eUSMOW,g;SuOi49~9 cV[ĉ[NSyONXT0~QbX_GNXTv;Su~90 14. OO?bO/eQ{| OO?b9ei/eQ>k OO?blQyёy S fL?eNNUSMO cNRDnT>yOO0"?eĉ[vW,g]DT%m4e4NSĉ[kO:NL]4~vOO?blQyё0 15. OO?bO/eQ{| OO?b9ei/eQ>k -?be4y S f c?b9e?eV{ĉ[ L?eNNUSMOT&{TagNL]+TyONXT 0Q+Tfkf Tly_ YXTyONXTS>ev(uN-pNOO?bve40 16.OO?bO/eQ{| WaN>y:SOO[>k OO?blQyё{ty S f~"?eybQ(uNOO?blQyё{t:ggv{t9(u/eQ0 17.VlQQVX 9USMO]\ONXTlQRQVX vVEe90VYW^N90OO[90Oߘ90W90lQBg9I{/eQ0 18.lQRc_9USMO cĉ[_/evT{|lQRc_+TY[c_ 9(u0 19.lQR(uf-n9USMOlQR(uff-n/eQ+Tf-nz 0 0020.lQR(ufЏL~b9USMO cĉ[OYuvlQR(ufvy(u90qe90~O90ǏǏeh90Oi90[hQVYR9(uI{/eQ0lQR(uf c(uNe\LlQRv:gRf SbN,lQR(uf0gblgbR(uf0yryNNb/g(ufTvQN(uf0     PAGE  PAGE 6 667777777777788,80888:8^8`8~888888888888888µ¨›¨¨¨µŽ›Ž~k~^h<CJ OJPJaJ o($h~5CJ OJPJQJ^JaJ o(h~5CJ OJPJ\aJ o(hc9CJ OJPJaJ o(h+CJ OJPJaJ o(hACJ OJPJaJ o(hr[CJ OJPJaJ o(h~CJ OJPJaJ o(hjCJ OJPJaJ o(hjhjCJ OJPJaJ o(&h~B*CJ KHOJPJaJ o(ph#88L9j99:::<;;<b<<=>$XdWD`Xa$gdMD) dWD`gdMD) XdWD`XgdMD) dVD^gdMD) vdWD`vgd: d`gdQdgdMD) dWD`gdMD) Xd`XgdMD)889 99989D9J9L9j9p9r9t999999999߻߮rcrrQAQh:5CJ OJPJ\aJ o("h<hQ5CJ OJPJaJ o(hczaCJ OJPJ\aJ o(hhCJ OJPJaJ o(h<CJ OJPJaJ o(hhCJ OJPJaJ h~5CJ OJPJ\aJ o(h~CJ OJPJaJ o("h<B*CJ OJPJaJ o(ph"hQ(B*CJ OJPJaJ o(ph"h~B*CJ OJPJaJ o(phhQ(CJ OJPJ\aJ o(99::::D:r:~::::: ;:;;;;<<b<p<<======>>>>h?j??jXjX"haB*CJ OJPJaJ o(ph(hahaB*CJ OJPJaJ o(phhaCJ OJPJQJo(h!CJ PJaJ o(h!CJ PJaJ h!CJ OJPJQJo(%h!B*CJOJPJ\aJo(phh!0JCJ OJPJaJ o(h<45CJ OJPJaJ o("h<hQ5CJ OJPJaJ o(h:5CJ OJPJaJ o(">n>>b??@bABBCRCCnDpDtDvDzD|DDDDDD &`#$gdzMjdgdMD) d`gdMD) dWD`gdMD)$dWD`a$gdMD)??@@@J@L@@@@@@@@^A`AdAfAhAABBB BZB\BBBBBCCPCRCTCVCXCCCߵߨ¨¨qaqhp,hMD)CJ OJPJaJ o(hMD)hMD)CJ OJPJaJ o(h+sCJ OJPJaJ o(hRCJ OJPJaJ o(h~MCJ OJPJaJ o(hP63CJ OJPJaJ o(hs#CJ OJPJaJ o(hp,hp,CJ OJPJaJ o(haCJ OJPJaJ o(hp,h!CJ OJPJaJ o(hahaCJ OJPJQJo(&CCnDpDrDvDxD|D~DDDDDDDDDDDDDDDDDDhr[0JmHnHuhL% hL%0JjhL%0JUhAjhAU*hMD)hMD)@CJ OJPJQJ\aJ o(hMD)hMD)CJ OJPJaJ o(hp,hMD)CJ OJPJaJ o(DDDDDDDDDD d`gdMD)#$d%d&d'dNOPQ &`#$gdzMj 9 01Z/R :p7E. A!"4#$2%4 b' 666666666vvvvvvvvv6666>66666666666666666666666666666666666666666666hH666664666666666646666666666666666666666666666666666666666666666662 0@P`p2( 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p8XV~PJ_HmH nHsH tHF`F cke $1$a$CJKH_HmH nHsH tH(A`( ؞k=W[SOaJNiN 0nfh3\`?/[G\!-Rk.sԻ..a濭?PK!֧6 _rels/.relsj0 }Q%v/C/}(h"O = C?hv=Ʌ%[xp{۵_Pѣ<1H0ORBdJE4b$q_6LR7`0̞O,En7Lib/SeеPK!kytheme/theme/themeManager.xml M @}w7c(EbˮCAǠҟ7՛K Y, e.|,H,lxɴIsQ}#Ր ֵ+!,^$j=GW)E+& 8PK!mQtheme/theme/theme1.xmlYMoE#F{oc'vGuرhF[x=ޝzvg53NjHHzZ $ʯI)*E_N&IA!>Ǽ3xN>UWL0Č߫߿z}rx{h9T8T/χ?xY'~3S~O_|w)ӈHt=a+d NG1-RlƁ1RJwT蠯M1K"o he˓ێ½PL-|%EhY7'qP.\L=dqķ3Iofi.ñBRb-JP_pG ݢiKtdӌhFio7;7Q2ȾD>a/Q>XW ˔M_uHq)h +:Viw4rBqϫ"r!2laCbU|!8^8>ܠ,AбVt׎~ls14_=,ɬožTV G"ѦbH'.4x޵w-ϷE|F;v`b3"G 'e\fHO '$i_wp >*8i&LY%\,xҕ= r6f 3Tʅ):ªZKLs&C Mܛ0 [˫p@ע`j۽7 YHxHicT5Ar@HZAZC}i' RQ\m,zo,gQu{Y\,Nר/=L _.̇Y7C6-fSh62"5NHT[X65̫4X%Yֳ2fkhi~tCKF#b +w1m|4`!:U!p5a:~{4mmio ήc8mDJpSǹ橠V1?#Si?3E'pS2W`qB]( 08w nA[s)k8= Aa?R dڒɾcUӽ˲d)#Queb}C!&i0>4S7{z F} 4sKvUKoȳh~1jYUVH5U8Vk;֜L9ŰD ?*|FL "A3>g]dm2iVֵ褽mg \ V $&&) Xf689?CD #%&()L H8>DD$'*  )!!   <Zs>@H 0(  0(  6 3 ?)v|-29<?IXZkmvx #%35JL]`hjxz|~ 02:;BDKLXZ_aijqsz|  (36>AGJLQXhnqwz 8<L[\hlw8:>N\_pqt   ' + - 4 G K [ \ l v  ( , A m n ~    ) * 5 ; > ? E , / g j  2 6 [ ` 4466779:<=?@Z]  P T W 4466779:<=?@Z]ss3333  P ? F 4466779:<=?@Z]  & + - 4 D F F Z [ v + , ; ? l m    5 ; ? ? [ YZ  HI34466779:<=?@Z]d0Vd0VdXdX/X/XXXXX%0..%0% dXd0VXX/X"]P-*l8=i UFl >"n /)E'C-n /`T3R 9K9O:o@@BXuC3ER!MPRuQ_bW%/Y #Zhf} E[h~]uQ_XuCs+d^TfwfAyMzPhf}PR@# ,GGyF"}PQq/ ; N w s#Rru]' K +)NP ?QAsKRleUe(t.h!R!3!E"4!%N%h%7B&Q(l()MD)O)8*Kl*pO+EW,.#!.M31&3P63{ 4]!4 5R7(727"z7P8^H8N(9(9c9h3:kZ:Mr:_N;z;~<N8<L<0=N=2V=o=Pz=#>_6@AAOB kCxD@DSEkE F.GpmG}rGIH MqMt.MhM~M<NjN@\QfQ R(RaR1SQS9WyjWpWOXVhYCZZYZ(Zr+ZWZd[r[CJ\16]K^cza! b#bMbd^e4of.g!(g[=gahmijzMj[jgsjik/k7l5&l'l]l}olL*mJm4n*9nfo%pO8r+s4;sF tzvRwE_wmxFz}[}J~k~O *>}z|-8`Fs;o1EoR].7@ip67/+=7wy<~Jh\$ZO_h0\9n`OU(h4Qt2G%y<AMRN!AGgS`[T<dH/ 2Q]'c8R,xec)BNV[:&vvbL%t<4'k:aanYk+sDR %rdiap>T]D%N#@^Dk )bPS'.o|uT,S,Cb0|u$[<@~;e61s4K!(pdvYJp,N]!1o+)jUD\\Ton\P=1c7E_ !mw?wxGO?t X]?!'[gymvzt)Yu] t+=,tC0@0)21355O:9_xAr'F`3G;YGYIH@[IUJ+J>gV@Qp46  BookNames CurUserName( DeleteMarces ODocNameP( hahaNewInfo@' OldInfo̤ SplitToolOTitleStr\̤ TrackMarkΤyear1_2;filetype1_2R'YFalse$1084566E9BF0CA1948257A3E000778D5.doc10002012050&;&Ym"ё False 1 V ;V;VV;V;VV;V;VV;V;VV;V;VV ;V;VV;V;VV;V;VV ;V;VV ;V;VProject.NewTitleModule.NewTitle)Project.SplitModule.InstBokMarkBeginTable)Project.SplitModule.InstBokMarkLastColumn*Project.SplitModule.InstBokMarkTotalAcountProject.SplitModule.SplitDoc Project.ThisDocument.ShowToolBarProject.ToolModule.HideMark)Project.ToolModule.Register_Event_HandlerProject.ToolModule.ShowMarkProject.WriteMark.WriteBookmark 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@? ? ? ? (\`` `6Unknown G* Times New Roman5Symbol3. * Arial9Rz{h[ўSO;ўSOSimHei;5 N[_GB2312;5 wiSO_GB2312;[SOSimSun7.  Verdana;" HelveticaA BCambria Math  Qh"U$BeG/Tczk k ! Z&!),.:;?]}    & 6"0000 0 0 00000 =@\]^([{  0 0 00000;[4d,,S2Q  ?'*2! xx0 Ğefg{4Z      Oh+'0$ 4@ ` l x 4  Normal.dotmЦ99Microsoft Office Word@\X@8@~@cdk ՜.+,D՜.+,@   (08 񺼰, d ?GKSOProductBuildVer2052-10.8.0.5603  !"#$%&'()*+-./0123456789:;<=>?@ABCDEFGHIJKMNOPQRSUVWXYZ[^_epbcdf|ghijklmnoqrstuvwxyz{Root Entry FdaD1Table,?WordDocument ;VSummaryInformation(LDocumentSummaryInformation8TMsoDataStore"`nd dDOJNEH1OJGQ==2`nd dItem PropertiesUMacros d dVBA d ddir [  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLNOPQRSTUVWXYZ[\]^_`abcdefghijklmnoqrstuvwxyz{|}~ W0* pHdProjectQ(@= l Z J< rstdole>stdoleP h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\system32\e2.tlb#OLE Automation`ENormalENCrmaQF  * \C ChZMSF"s>MSDF$s3gD452EE1-E08F-1 01A-8-02608C4D0BB4gFM20.DLL#Microsoft :" Ob Library/;D1AQ00}#0Q# 0@9687C698-CC6F-465D-AC13-D42EF3B 3438CH.DOCUME~1\xc\LOCALSTemp\Wo@rd8.0\K.8exd`3@!.E .`M Cp OfficDOf@icB 12DF8D04C-5BFA_B-BDE5@AAA@421gram Files\Common_Shared\OFFICE115OBhKingh& 1.0Lh%7BThisDocument(G TisDcu@en 2 HB1"t`[ ",QQ""+^WriteM@arkGWrieMAerk2/ -U!b%jNewTitleModul(eG! N.Vpting. V!b.X BookNames %6!f'dNewInfo %6!f'h d;$j'R h&;&$j'T R'lRe T'nўSO X!,'\ l n%6 p l Trac p$R >!b%rA@t p$R$X!Z.Z: Z!d'^A@v p$T$F ^$F Z!x Z!8 ZBztr k 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 +@X  i<`B v t  &" 8 " @ H `pB     (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 07YxME PSplitModule~rgThisDocument_VBA_PROJECT NewTitleModuleE  J7HxME( D  0 @  "P  x  $       ~ R       00 ` h ~x      8  H X h p             * 0  08H      @ P  h x  & $  (  "0 X ` ~ hx  0*@ p    ( @ P` hx   :H  "8HP~`  H@P         08X p  8H`      (0X`"h "   *     8H LX&    (08@HPX`hp (t H ` p  " , $ ( 8 ~@  (  0 @X `  (  (8  ` p  x   (! &8!`! h!" p!x!!!!!!!! !$!!   " " ""    " """ #  # (# 8#   H# P#p# # # ($ 8$H$X$ $ %  \%  nh% %  % (& 0& ,@&p&  x&& & "& & "& & & &$'0'8'@'H'"P' X' "`' ' ' '$''''( "( ( "( @( `( h(&x((((( ( ZX BeginTable B@ >!bĵ 99q( , B@ ^, B@\ b fd B@` B@h> l!~.j j.docpC@nq B@r >B@R >!!, 'V >B@Bi@ appendtotext Macro> 2003-4-8 ͻ ¼ ¶ο 88479329 12549346]QҪǩtotalAcount ,λڡϼơУҪbeginTableλеġСء]'ҪǩlastColumn λһС]]]]]](]@]X]x]] On Error GoTo errorhandle  !(l totalAcount >!b%rD lastColumn >!b%reD BeginTable >!b%reDkx ZX BeginTable B@  %"ǩλô·ãA@ |d %!'t t"ǩλô·ãA@ |kk ZX totalAcount B@  B@  % B@ %!'td"ĩǩλô·ãA@ |k ZX lastColumn B@  % %B@H  %'vdH"ĩǩλô·ãA@ |k$V'  >!!,뽫棡A@ |k  >%%!Z!xx  >%%!Z! >%Z!d*ڶ׸ԪΪգ뵥λƣA@ |k $.]]]DocName %6!f' $F ޷ȡĵϵԱA@ |@k8TempPath %6!f' $F ޷ȡñ·ϵԱA@ |k  .doc $'ļĴ· A@//add by kk test7Selection.GoTo What:=wdGoToBookmark, Name:="BeginTable">MsgBox CInt(Selection.Information(wdStartOfRangeColumnNumber))Exit Sub//endڲָλĵ. //ȷλ] ZX BeginTable B@  %X'//ʼеĿ]0'  t    >%%!Z!xx    >%%!Z! >%Z. !d$  !d$  !d$F !d$F (dk  ' >B@R)/////////////////////////////////////////'  t     >%%!Z!xx    >%%!Z! >%Z. !d'| !d'zMsgBox 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. !d'~ set   'k t    vA >B@R''''''''''''ϴ >B@B'''''''''''''''''''ɾ  &ӵλĵ     t v AkknoSet'''   '½ĵ һλys As ]x .doc']' l!~.ha  pC@neSq@ $B@'  t     >%%!Z!xx    >%%!Z! >%Z.Ti !d'zt(Ti' z  ' !      >%%!Z!xx      >%%!Z! >%Z. !d'~ ~ ~$ Dim bo  'ng!      >%%!Z!xx      >%%!Z! >%Z. !d'~eDoc t   vAvi $B@ B@r .Pk   '  t.S l B@eҳWi  ' f''''''''''''''''''''''''''''''''''''''''''''''''' Set currentPageNum = Dialogs(wdDialogDocumentStatistics) 'ǰҳţںţ4''''''''''''''''''''''''' ɾǰҳĴit Sub  !!(fl , B@nt.Boo ! B@ect  !!(k $B@ ½ĵ λ0 $B@'  t ge    >%%!Z!xx    >%%!Z! >%Z.ce !d'zLeft' z$  ~$  z$F  '(c!      >%%!Z!xx      >%%!Z! >%Z. > 0 !d'~ ~en  'co!      >%%!Z!xx      >%%!Z! >%Z. !d'~tentH t   vA $B@ B@rl.rangk Co  ' d   'k  t   l B@ iCoun ҳ  'elz'''''''''''''''''''''''''''''''''''''''''' Set currentPageNum = Dialogs(wdDialogDocumentStatistics) 'ǰҳţںţ 2''''''''''''''''''''''''' ɾǰҳĴ  !!(nL = , B@ ! B@  !!((arrkH $B@0 $B@ $B@ $lB@R''''''''''''''''''''''ϴ B@B4 !'''''''''''''''''''''''''''''ɾ|Dִ󣬲ҵǩA@ s.Add `h|`oX tablePageNum=2, De# 2003-6-7 칫շԱ ¼ B@on.Tab B@h+  lB@~ .Bord B@rerLeft !(FSelection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=tablePageNumineW ZX yinfadanwei B@ ^ B@ wdCol !B@  ! En9d5(d 9 99999999q b fd B@` , B@ineWid t   vA  !+ ʱ.docp    >B@n Ƶڴ B@Single B@h B@B.LineWohh]Hɾǰ浥λnewDocRowCountdCol]` ZX BeginTable B@-  %X'Bord  'tt   ]x   >%%!Z!xx   >%%!Z! >%Z.or B@HWhite ^  , fd B@ !B@Wik] ɾ浥λ   t   'eStyd t    '.LineWkx  t!     >%%!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""?"041^eU 7QxME (S"SS"<(1Normal.ThisDocument @/i @ @  `" `& J'i @ @  `" `& N%["  "08@ $H p   " "(PX`hx  &  (08 @ " H "Px $     0 @"H "p    &  (  0"8@P `***********Ĵݺ]`]x]Scripting.Dictionary$$.  . ]D _]\O !('c * !,  *$'& & &$ A@.Re *[SOA@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*\CNormalChZ*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{9687C698-CC6F-465D-AC13-D42EF3B3438C}#2.0#0#C:\DOCUME~1\xc\LOCALS~1\Temp\Word8.0\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M $*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL#Kingsoft Office 1.0 Object Library  Z7ThisDocument015acf7fe2ThisDocumentQ[ WriteMark025acf7fe2PWriteMarkUNewTitleModule035acf7fe2NewTitleModuleS(0j5frmTools045acf7fe29frmTools\HfrmSplit055acf7fe2MfrmSplit+` ToolModule065acf7fe26ToolModule\x& EventClassModule075acf7fe2; EventClassModuleYSplitModule085acf7fe2TSplitModuleH JxH0`kBp|zOT">4M_ "D8WME+'$հJ;E:RѼ8GOyr,XzkO/5x?(oDn;.@h5E}b@#&718QWordk`VBA`Win16~`Win32`Mac`VBA6#`Project-`stdole``Normal`MSFormsC`Officeu` 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`;U97 MQd57S(xME( @ * :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  *  "   8Xp    "@X`     Nh p @      0  @PX  ` p ( (2H        (8@H P Xhpx                ( 8 H X ,p       ! ! !(!@! P! `! ! !!!!!!!!! "  " @" P"`" h"""""""" "" "Sub NewTitle() 'ļͷ Dim arrays As Variant Dim rows As Integer On Error GoTo errorhandle 7 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`TruEXDim FiSize As (eg= 320 \b*G .b=n.rBold  0""'Red=i0000 Each ocP% g".2)1-ER.InspAf7 arrays(- 1~ + 8 Next,'ۼ'&O.T@kRevisQb(Q MintILhiowO-C axit Sub Zorhandle:MsgBox ("ͷ༭:" + Eprror` EventClassModule"PROJECT )frmSplit d dfSS S<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  ҋB `ThisDocumentThisDocumentNewTitleModuleNewTitleModulefrmSplitfrmSplitfrmToolsfrmToolsToolModuleToolModuleWriteMarkWriteMarkEventClassModuleEventClassModuleSplitModuleSplitModulePROJECTlk! PROJECTwm "CompObju  F#Microsoft Office Word 97-2003 ĵ MSWordDocWord.Document.89q