邢唷> 欹[ 鳵磎bjbj 螑螑"6++99999Da9a9a99T5:a9I:====預xH4琂O偽偽偽偽偽偽$裥撚Pξ]9菿TA預菿菿ξ99==MMM菿p9=9=M菿MM飡l瘆=3粶0a98Lp[}*飤0I厎*阌↙p阌T瘆阌9瘆@菿菿M菿菿菿菿菿ξξM菿菿菿I菿菿菿菿阌菿菿菿菿菿菿菿菿菿+ 7: ICS  FORMTEXT        FORMTEXT        -NNS篘lqQ孴齎齎禰h芉 GB/T  FORMTEXT   FORMTEXT   FORMTEXT        FORMTEXT ;So兎QirAm)n緥絜緥Y寶翄 '`齹nxb/g膲  FORMTEXT performance qualification specification for temperature control facilities of drug cold chain logistics  FORMTEXT 筽鸔dkY鹠燫N齎Eh芉N魜'` z剉h茓  FORMDROPDOWN  FORMTEXT       FORMTEXT   -  FORMTEXT  -  FORMTEXT 裇^  FORMTEXT  -  FORMTEXT  -  FORMTEXT 瀃絜  顅 !k  TOC \f \h \t "MR0_h槝,D朥_h茓,耂噀.s0"}_h槝,鄗h槝,D朥_鄗h槝"  HYPERLINK \l "_Toc306961439" MR  PAGEREF _Toc306961439 \h II  HYPERLINK \l "_Toc306961440" 1 凈V 1  HYPERLINK \l "_Toc306961442" 2 /g韹孴歔IN 1  HYPERLINK \l "_Toc306961444" 3 )n覰揯 1  HYPERLINK \l "_Toc306961444"  3.1匭筟蔛亯Bl 1  HYPERLINK \l "_Toc306961444"  3.2Te剉MOn 3.3.2 擽貇6RKm筽R^:ya hfTKm筽廭鱏 v^鑜fT廭鱏鵞擽剉Km諎(u)n皨U_闚鱏 3.3.3 >en嶯zz岥|邁)n6R OahVMOn剉寶翄(u)n皨U_闚擽=\颯齹`椦 OahV錘穬梍聣剉penc 3.3.4 _钑Km諎擽nx軴揯钑hQ_ 俌 gY*N揯钑擽NKm諎sS揯匭)nb` Yck8^3z歔T峇蹚L NN揯钑剉Km諎 $R璭/f&T厤)n颯漁nc寶翄(u)n皨U_闚剉麐peb)n裿Km鹼邁剉厤)nf嬓c:y 3.3.5 鵞嶯緥YEe湒b璭5u軴)nKm諎 1u嶯厤)n螛i杻徹 颯遊緥Y\P袕T豐Sg隷Km筽剉)n褟)nP枽^剉鰁俌1u5DdlGS貧髞7Ddl剉鰁 ncdk╟璭厤)n鰁P朶O:N'`齹nx觺済 3.3.6 緥nY*NKm筽剉MOn俌鶴螛鉙0{k覊I{ 擽唹講鴙擽剉:S遅箯Lu孴-N筽俌愇9Y覊剉$N箯孴 -N縹  3.3.7 醤}廗m諎O(u!j遙ir剉艌}徟`礠擽=\蠎褟揯?bO(u鰁X[>e剉'峣r秗`錘穬梍wQ颯詋'`剉揯匭lAmR^秗` 4 )nf弳 (Wf弳彏[E枖^(uag鯪 N遊)nI{鈋歔耂pe/f&T(W膲歔凈V匭 鵞鹼邁蔛緥Y蹚L堻~T膵0O0蛻筽Km諎f彚S匭剉)nR^孴)n OahV剉芉nx0 4.1 匭筟蔛亯Bl 4.1.1 f彚SX[≒zz魰)n剉OP頬0GWS孴鈒≧nx)nR^Km諎 0 4.1.2 )n OahV剉芉nxnx0 4.1.3 Km諎鹼邁(W琎c[0Yc[乬飠)nag鯪 N剉袕L埮`礠0 4.1.4 )n緥絜袕L埪Spe蔛O(u秗礠Km諎 4.1.5 )n裿Km鹼邁M憂剉)n裿Km筽MOnnx 4.1.6 _钑\ON鵞f彚S匭)nR^剉q_蚑 4.1.7 nx歔緥YEe湒bY钀汷5u-N璭剉秗礠 Nf彚S軴)n'`齹蔛豐S媿縍 4.1.8 稱蠀fR!kO(uMRb9e T峇!kO(uMR擽蹚L坺z}徥S醤}'`齹nx 歔g寶翄鰁擽蹚L堘n}'`齹nx0醤}廰g鯪:N艌}弴s貧嶯80% 4.1.9 (W稱蠀f従0R膲歔剉)nv^袕L3z歔T penc gHec韣菓茤鰁魰 N擽\嶯5\鰁b9hncf弳g曅彄忲e魰nx歔 4.1.10 寶翄penc菓茤剉魰敄鰁魰 N擽'Y嶯5R煍0 4.2 Te剉MOn0 4.3.2 擽貇6RKm筽R^:ya hfTKm筽廭鱏 v^鑜fT廭鱏鵞擽剉Km諎(u)n皨U_闚鱏 4.3.3 >en嶯zz岥|邁)n6R OahVMOn剉寶翄(u)n皨U_闚擽=\颯齹`椦 OahV錘穬梍聣剉penc 4.3.4 _钑Km諎  ",.02FHJTVXZ\rt~ 桎勹滂滂湮桎桎其龄涠瑭凌滂錇瑭凌鋷桎冭滂滂jJh蔏CUjh蔏CUmHnHsHtHjh蔏CUh蔏CmHnHo(sHtHjDh蔏CU h蔏Co(jNh蔏CUjh蔏CUjh蔏CUh蔏Cjh蔏CUh蔏COJQJ^J h蔏COJ/0X\tK^kd$$If $$044 lau$刴刕 劥#&#$+D/0$If刴刕 劥#&#$+D/0$]剫勵劎%&#$+Dp.劦/劦0$剒剮勻 &@#$+Dm.劦/劦0$ K&@#$.劥/劥0$2 F 2 v S^kd$$If&&044 laJ$匋劎%&#$+D0$IfA匋劎%&#$+D0$b匋劎%&#$+D0$Z匋劎%&#$+D0$刴刕 劥#&#$+D/0$   B D F H \ ^ ` . 0 2 4 H J L r t v z | 綮珈沆阖煦煦煦挽漓惆煦レ沆銡鞄煦剘q刡h蔏COJmHnHo(sHtHjb h蔏COJU h蔏COJjh蔏COJUh蔏CmHnHsHtHjjh蔏CUjh蔏CUjh蔏CUmHnHsHtHh蔏CmHnHo(sHtHjh蔏CUjh蔏CUh蔏C h蔏Co(jh蔏CUjPh蔏CU& D }m[YWP/ $$ m8t刦&9&#$+Dn.劦/剗0$v劚7劃&#$+D.劦0$y剫7劃&#$+D.劦0$^kd$$If&&044 laq$匋劎%&#$+D0$If          2 4 6 8 : < @ B D F Z \ ^ ` f h j l n p 鲞煨伸黾煨伸矾觫煨伸鰰煨伸鰣煨伸伏j#h蔏COJUj"h蔏COJUj!h蔏COJUjh蔏CU h蔏Co(jv!h蔏COJU h蔏COJo(h蔏COJmHnHo(sHtHj h蔏COJUjh蔏COJU h蔏COJh蔏C4 4 6 8 : r t v x          T V X Z \ ^ h j l n p r t 黧塍骐箅中男纸薪闹闹闹畜须薪溄箧霊胄笮腈綔襟骐囯畜h蔏COJQJaJh蔏COJQJaJo(h蔏C0JmH nHo(sH tH"h蔏COJQJaJmHnHsHtH h蔏C0Jo(h蔏CmHnHsHtH h蔏C0Jjh蔏CUmHnHsHtH h蔏Co(jh蔏CUh蔏Cj#h蔏CU5  p "|,<N^BDFJXN2! $$ + $$ WD`  "$&^`bdtvxz|~$&(*,.0hjln "黩燧椅蝼西煳祺燧悟魑黛戊黛菸蝼西煳祺燧悟魑黛戊黩煲悟魑黛戊黛菸蝼西煳祺燧悟魑黛戊h蔏Ch蔏C0JnHo(tHh蔏C0JmH nHo(sH tH h蔏C0J h蔏Co(jh蔏CUQ"$468:<>@xz|~0246FHJLNPR>@BDVXZ\^`玮阽邡琥阝社廒缵玮阽邡琥邡腌廒缵玮阽邡琥阝玮阽邡琥邡腌廒缵 h蔏C0Jo(h蔏C0JQJo(h蔏C0JQJjh蔏CU h蔏Co(h蔏Ch蔏C0JmH nHo(sH tH h蔏C0JL`b  NPRfxz|~,.08:<>@BDFHJ:鲒铞铤鳅铤喏陬鲱呲鲒铞呲鲒喏陬霄陬谂龊铞诒跒h蔏COJPJQJo(h蔏CQJaJh蔏CQJaJo(h蔏COJQJaJo(h蔏COJQJaJh蔏C0JnHo(tH h蔏Co(h蔏C0JmH nHo(sH tHjh蔏CUh蔏C h蔏C0Jt4HT~F\J8WD`3 & F 3 & F劋`劋 j & FXDYD8LXV n!&"""#####$R$$$$*%%&T&f&&{ & F 3 & F劋`劋3 & F&&4'(v((()R)T)f)))**,+++vL訪e剉'峣r秗`錘穬梍wQ颯詋'`剉f彚S匭lAmR^秗` 5 稱蠀眥b軴)n眥 5.1 匭筟蔛亯Bl 5.1.1 眥匭)nR^yr'`剉Km諎NR恎 R恎眥SO匭)n豐S蔛媿縍 5.1.2 膭稱BRMYO(u剉ag鯪Km諎 5.1.3 )n陙≧裿Km緥Y>enMOnnx 5.1.4 _眥\ON鵞眥匭)nR^蔛豐S剉q_蚑 5.1.5 貧)nbNO)nI{乬飠Y钀痵僗ag鯪 N剉軴)nHe済膵0O 5.1.6 袕搹g曵eP枌毩0 5.2TenMOn擽nx軴緥Y菓茤)n=\颯齹褟o兞T剉)n 5.2.4 nx歔_眥\ON黐魜眥匭)n厤h剉g韜鰁魰 5.2.5 貧)nbNO)nI{乬飠Y钀痵僗ag鯪 N眥匭軴)n鰁P朑W颯醤硩g曅彄忲e魰亯Bl 5.2.6 軴)n鰁P栣n硩g曅彄忲e魰桞l0 5.3 蚫\O亯筽 5.3.1 Y`!j遙'`齹nx 5.3.1.1 9hnc稱蠀眥b軴)n眥剉(u凈V0瀃E栃彄徔~飴 N Tc[倐剉)nyr'`錘蔛乬飠ag鯪鶴皊剉俰噑緥歔Y`!j遙袕搹)n寶翄ag鯪 S靊o兞T袕搹蟸哠6柕k0T6柕k)n蔛c韣鰁魰I{ 5.3.1.2 蟢N蛓稱蠀眥b軴)n眥S艌筫_GW擽 cgqvQ鵞擽剉O(u)nag鯪蹚L圷`!j遙'`齹nx 5.3.1.3 稱蠀眥b軴)n眥匭膭稱BRMY筫_擽%Nen!j遙ir罷 vQ韕筟yr'`擽N鍕S艌眥袕搹o兞T;`蠎剉韕筟yr'`鶺,gN魜 5.3.1.5 稱蠀眥b軴)n眥匭髞\>en5*N)n皨U_闚 R+RMO嶯!j遙o兞T剉 N0 N0鴙粣$N0郠UO-N胈I{MOnd栢QUO-N胈Y )n皨U_闚擽>en嶯Tb-N胈MOn 0瀃E枖^(u鰁>en)n皨U_闚剉MOn擽>enKm諎皨U_闚0寶翄penc菓茤剉魰敄鰁魰 N擽'Y嶯5R煍 5.3.1.6 Y`!j遙'`齹nx鰁P N擽\嶯鍕S艌眥瀃E枖^(u剉g曵e魰0 5.3.1.7 (WKm諎鰁魰剉-N祂_眥諷鶴!j遙ir N钀剉軴)nPg檈孴膭稱BR 皨U_TKm筽剉)n豐S臽礠 5.3.2 ≧`瀃E柨~飴'`齹nx 5.3.2.1 9hnc稱蠀眥b軴)n眥剉(u凈V0瀃E栃彄徔~飴 N Tc[倐剉)nyr'`錘蔛乬飠ag鯪鶴皊剉俰噑 愰b≧`寶翄縹飴 鍕縹飴髞\祄講g曅彄忲e魰bg蹅;R)nag鯪 5.3.2.2 稱蠀眥b軴)n眥匭膭稱BRMY筫_擽%Nen!j遙ir罷 vQ韕筟yr'`擽N鍕S艌眥袕搹o兞T;`蠎剉韕筟yr'`鶺,gN魜 5.3.2.5 稱蠀眥b軴)n眥匭髞\>en5*N)n皨U_闚 R+RMO嶯!j遙o兞T剉 N0 N00-N胈I{MOn0瀃E枖^(u鰁>en)n皨U_闚剉MOn擽>enKm諎皨U_闚0寶翄penc菓茤剉魰敄鰁魰 N擽'Y嶯5R煍0 6 )n裿Km鹼邁 6.1 匭筟蔛亯Bl 6.1.1 )npenc剉菓茤0 O0X[≒錘蔛f嫙R齹&{T鈋歔亯Bl 6.1.2 裿Km緥Y剉Km蠎凈V孴芉nx&{T鈋歔亯Bl 6.1.3 Km筽葉飠塠艌pe蠎蔛MOn&{T鈋歔亯Bl 6.1.4 鹼邁N)n導c緥絜鄀T≧秗`剉nx 6.1.5 鹼邁(W璭5u0梴:gsQ:g秗` N颯軴翄瀃鰁penc裿Km0皨U_0f0 O悷R齹ck8^ &{T鈋歔亯Bl 6.1.6 颯2朾k(u7b頞9e0 Rd0蚐T黐eQpenc0 6.2 Teo兞T剉g貧MOn0≒X[稱蠀0稱籕o兞T覰揯Km筽葉飠剉塠艌pe蠎 擽&{T N饛剉Ty榿塀l vQ塠艌pe蠎 c蟢100s^筫s|b楋y梴0 蟢餝靣藌剉稱蠀0稱籕o兞T袕搹f弳bf彚S 塠艌剉Km筽葉飠pe蠎 N擽\嶯2*N0f彚S筟飝厤菑20藌筫s|剉 蟢瀀燫20藌筫s|髞\瀀燫1*NKm筽葉飠 N硩20藌筫s|剉 c20藌筫s|梴0蟢餝稱蠀眥b軴)n眥擽S_髞\M憂N*NKm筽葉飠0Km筽葉飠擽S_br鶹塠艌(W蟸菑nx剉TtMOn 怣Q≒袕\ON蔛篘XT;m≧鵞裿Km緥Y bq_蚑b_cOW vQ塠艌MOn N擽彇a豐≧0擽S_鵞Km筽葉飠蟢t^髞\蹚LN!k!h芉0 6.2.4 6R鹼邁N裿Km鹼邁R+RO(u靣藌剉 OahV06R;N:g0f媓V孴袕L坥忲N 6.2.5 鹼邁(W璭5u0梴:gsQ:g秗` N颯 N魰璭0W菓茤0皨U_)npencv^颯瀃皊餢IQf媽T韜酧f嫙R齹 6.2.6 鹼邁蚫\OXTNtXT擽鞶 N T芠x{vF桘|邁鄀誰頞9e0 Rd柺S蚐T黐eQpenc0 6.3 蚫\O亯筽 6.3.1 髞\黐鶴 N*N N T鰁魰祂剉)npenc蹚L8h錱nx 6.3.2 f嫙R齹剉nx擽)R(u篘SObvQ僛韕恘9e豐Km筽葉飠剉)n鎵裇f媙x/f&T&{T亯Bl 6.3.3 Ee湒f婯m諎擽篘:N6R 慃|邁Ee湒錘$R璭/f&Tck8^袕L 6.3.4 Km筽葉飠剉芉nxnx擽8h錱u係禰衏汷剉Tf:y)ns^GWy _________________________________     GB/T  PAGE 12 燦躈麼 OVO扥郞PhP擯腜tQ訯PR窻琒鯯XTzTU楿轚DVW&WhW濿{ & F3 & F濿蠾XhX歑琗靂╗`X`綻a$a`a糰黙巄郻LcNcPcRcTcVcXcZc\c^c`c8{ & F3 & F`cbcdcfchcjclcncpcrctcvcxczc|c~cc俢刢哻坈甤芻辌騝 d d"d3 & Ff8WD`8"d$d&d(d*d,d.d0d2d4d6d8d:dd@dBdDdFdHdJdLdNdPdRdTdVdXdZd8WD`8Zd\djdld哾,e8e俥抏趀鑕f$f:fHf^flf唂攆磃耭阥鴉g*g^grg奼瀏糶蘥hJh奾宧歨渉緃纇詇鄅鈎鎕鑘靐頷iii0i2i4ijilini宨甶癷篿耰萯衖阨靑頸jj@jHjJj|j刯唈甹苆襧詊躩鋔鑚戾戾戾戾戾戾戾戾戾戾戾戾戾戾燹煺魑魑魑魑搠无魑搠征西西西无鬓魑搠无髡魑魑 h蔏CH*o(h蔏COJPJo( h蔏CQJo( h蔏CaJo(h蔏COJPJQJo( h蔏Co(h蔏CQZd哾,e8e俥抏趀鑕f$f:fHf^flf唂攆磃耭阥鴉g*g^grg奼瀏糶蘥3 & F 3 & F劋`劋f蘥hHhJhLhNhPhRhThVhXhZh\h^h`hbhdhfhhhjhlhnhphrhthvhxh83 & F 3 & F劋`劋xhzh|h~hh俬刪唄坔奾纇詇騢iRi奿宨豬j(jrj甹癹苆鴍&klk8剝WD&`剝f8WD`8鑚餵kkk>kFkHk刱宬巏瞜趉鋕l$lmmDmFmHmLmNmRmTmXmZm杕榤猰琺癿瞞磎豉眙翡糁手淦艟凭凭凭凭妇钙h蔐K0JmHnHu h蔏C0Jjh蔏CUh蔏Ch蔏CB*QJaJphh蔏CB*QJaJo(phh蔏CQJaJo( h蔏CQJo( h蔏Co( h蔏CH*o(#lk瞜磌秌竗簁糼緆纊耴膋苉萲蔾蘫蝛衚襨詋謐豮趉鋕l$l衛m8 & FWD j$ & FXDYDa$8WD`8mmFmJmLmPmRmVmXm\m^m`mbmdmfmhmjmlmnmpmrmtmvm攎杕甿癿[g$a$), @匋&`#$.劦/劦8癿瞞磎 @匋&`#$.劦/劦=0P182P皞. 捌A!皧"癛#7$恘% 愋DpC000P182P皟. 扒A!皧"皀#悐$恘%皧癝 愋DpC000P182P皟. 扒A!皧"皀#悐$恘%皧癝 愋Dp@00P182P皞. 捌A!皧"皀#7$恘%皧皀 愋DpDICS 筽鸔dkY鹠燫ICS鱏 鲖搹eQcknx剉ICS鱏DWXFLH筽鸔dkY鹠燫-N齎h芉噀.sR{|鱏 鲖搹eQ-N齎h芉噀.sR{|鱏Dd#,?%饉  餈A(8 GBGr 13"b$"滤5XW$脀n瘌"滤5XW$脀塒NG  IHDRs詛革gAMA睅|鸔 pHYsLLXt昪塈DATx谂菹掚蔣p9簠7]vwq光骂.NMg莐7H皌r20o75搪 謹B紒矊宔5'厞p9#躩}戬[曛$鴱洱gb:)/嬊靪玗% 輊復t掋^操ホn溿躰嚺喯鳲捪F誨'AZ蕶漨O鋚婖騹6;q跐£>0{w b餂 9<;阚M铞[パ欂菌duJ蔒睚鵹婖顋/颂e麣:Rf缲画*)陃焫>F!`Q元巙苨*耥狠>Y瀑倚韏~㈢湝|肆  =?v抷s隝,/r,序區搙u&6@=磯<]z8 鰅礇 疀}s靮j_蹱]!汳: 蔧豁:j;r輅L煌m而粕睹鏚逺}Bh{8]轤H咒:R+<迟I=謜=耖轴&M&監px転[蝒飉@!4龐腷w迯曁8|睁7 尺倂峀机4h埤 撮6p5h髉S眚BZR4raOmr錞A涀璪彵称鴝aHr陉?觚S晰UJCv?3.7w#9 P{U蚳蘖r操塧锥秄v洿r鵶穙詼6谂援 廙;反厩#唊駔0劁;饖 譗遣梑椶JL=L鷗3攞;湢趎O璦i凪b苼璮i{s% of儼b紹 哆#<歆'F|3滇Cv聑賷M襄鲰yg*顯鸑;6赢9璤爩錆巘序凸晇孅69臋n毵r喖C跂cO麄5硰])#眕烊uC趏l6=脞塔鲪筀:7朝]繕/㎝谊嗕HY賘>v锉備7怗;Vnf擄8丫釆Uw2-2鼒ⅥV碞 籍袕蜽芹帇陿魺1v暕)Rgs淀闠.偱H5惶H鍛濚鰲畞/谍AH檍閞瓷墆u崿檓k瑙嚚趠秲攞S%N沄区殁j穂妙鋛頚彎癄 鯈鎘駸躰嬌籰畚+T [9鲿蠔5j菪j75RlN<龌 v霒/缝?[^较nB呔7精从 哚臁Yn鹳 b煙K{H摺CM陲謐囀潬伟{fo党职粚^ [懑搆繬夔Si嬸n*瑛斫蜢2c煙I[鋀O鞄孱丐-:誱辗 赢齰餦Zl1圛黺|箲皔q埐藍!Y隧业QvL箂n鬟涗濐/鲭6 ;. 豻T耷幅蛥皾痸g颺碓鏃N冻m愠g湗s泧w磱姥冔|]囲鱜;笣邳)Cv0s/”項鹟蟦话幺瘭足.9泠@!0?%垓L3幌0)緖貫86奾G 君R面澚2l摢+愖鍹i1患面虸D0霍糔衕窟i{昴癬;梪拸鰲[Lkc+5祈KLr赪瞜蚇o`縏a煱gJ偵F涋J賛#l氂茼鬈谤m2挛骫觶v!领{氡s\}俙3躦珁齹菖踥笯鵕粉;mw x桔逗睫N侢Z屚锺*v] 稂鈇;Uc"6=A颹陟緒ヘ瘧=On萀鸎\ 犭KY&G奏啐\ 粍輙龘訛=v鴘j訬o)_呶u蛚儻v陂碎* j虫7具博鐁F*碀黷榍泋)e"饰早鋄^(蓬巅叅潛-<鯴眩]?鐅鱘腡I纍34i=竘霭O盰锨$闢穙]6粄)鰔晔*佨扳沽rx昋n瑮;髻H4=蕲c?/裞媹@嬢"襼{仕褻忕瞱豈-m瓛孻R;眈婵R頹(衦_荰w洀N丑錥輵v锎l<颠鄩釣3=H{L 荟? 勡纒毻~欂檉棬2伏鼖孜6潈.2惏軫!踇忒恮 ;*闽酽趠v y9*L偠zo捼{r偢滷谻摧鍑,w`译6輫 2凯巜l鰶衔?風肀g/G蕕焕钱諼mu火鄞\:杦拼#卪瞎 睕┹轪{鉀碪挥蟅臌灷/K甾莛趽VsYF]:q9M侗皶鳘帛kk窢驙}盹扰/w$-9绕/渧梌6 谵#;焺潻v駱荭恮居my3!箕;B-~旜臧_dF阕i]跺軐煑銌 K[^杣bn┺0韓:"粶oQ6﹨R)椯霭Y須-&l#:氟傀5汤E孛v銤辙3弭鹅%R霯赯mafx鐈麓离睁\遝廩檏6罍艶=RNm 闬薸x豅炬2@筄隐sZ$枚翠昮雐d馛=+60,誷Am4X^'豣ke`?O6:褓朜适mv娲Gl:歘3?ojhǔ烷伧媩籭.7 鳙甒n鯴氡皸涽衰g髀饃;.Vj%狠6滵"%&) 6'W笪螈X6莕高62丛喩q蘁% 磫9纓铲Y(盵諙Pc矽52苲嬒$Ew决+籔闧蓖y辝⑵3臚衅騪W/6[哆頭R朊豼a啼K笉)鰆覺lTnC;蕟哭鴈蓽 ENU`娱顫药y蹟宂d媇芜谓aCn燗昽]ve禃骃嫢熑 >e6-X<宮椭a搕騨愤-`抉r#^nb焋掗藛 p 0O'籬.踈萈睖脐g 頉婉B薕3Xs稘阱詞3:抓=奸鬂劮;>_'[煁=$氻A摭#椓;5螩R谧鶋A妁<)疯雯属(6r谑渽w|O'T婚讧滀j寤 潳‐梟籙m,u襴?%$7糽捋褑銌穋_"!sc%蹄h8Qmuf5)7蝜r敵讝麵鵶接)lk瞎du1MZ噯垧'诼簮^6oTk挩m0唴 蚷*葻黅聕.涯VW郁簼a莢6虂"W垬\t!Ca_x藩]u萋i擁g煞縉'_R蒥8'l赿L瞂$-hgC府1=umW粃詥V5l萭唓嘙%4 眵6溻蝏6涚8鸘賉穇,vI:8欲l謲^梛逩硍秗蠹s繚雚"韔詒G買礉楈鏮存;"蛶歰_L霯窌+諑壛丫厍 侊庘N蝨 鰶狎c鯡>鮒恙搗氝o缲=vm旟刌&m2仄]-鳑 还蠔鵯%驦矯S鐓砀邱五躦!m瓘t 愦篨銮]9楆n斗赢奟垌n飘p煃遻Tmercz 鋧禭涽f粫vln鹳oJ/皳8焕_罺#块蒴R=桻!蜰馟b畛u{脰钱o2驸诤薋宁T徽斲c杴'蹢.臢煘6v>rO街c?玽s鞛躘w貢躀Ns媒恶孮3齄 :墓斚`歧赔鶅i巷祘>ceヴ晕畲se=Io芵2地鶟61祍抴Bvm蟙烗欹竃f旰孡佥6"_)y 惴赺飑3乴d婮貃5镤~;嵄鶘h酧式鲦濘2堸羪3煏瘞锛6A趕魁z=汚[&/獫;祚荋4賡`邹 硐魰_N[鞢1h6緛曙椵6└O芪L.搞鰦譮Sl潚w3y珏喑賙湦M4煂縚Tr飿6;癍6 C}+a锆>[]這m鷚缂ι$u2 n栐,゛>5嘱濳(p(6u螐剿&孱;鐪峄lm#48:彠:5磢笑揦nn涗e,鱔[渥4`揦l<辟娫(擻K汳沒噐窇-N礜|錘媩'~n瑵摆z 弘瀴+v?嗣v锒苦昮 9烃& 垲踳e嵧鐜f湘城me玆铢|:擎r胙蠲禦哔唆-凪郢銤悯v=吻j侑)邚齞,迳 =骤丽烲1r谜o秒1荟鋎6!閡!鞻蓖噟鷠龕=鸌眘趝?w_B6び卙玴3'o黸p埅,繁霏翔Lj撍鑬铰aU峿L查氃鞂I繊 ょ&k 涼=!熩鶊寀B簅Z$7H涓羒w嗇蜉所霓+雎z4眹壿jm@t0狄f葾糬R疮蝐b绮u-V苢詾s浀蓐磺m1>5F;蔺耺眓?筅;烾粍W3Lf^韃㎏Y傋8`韖齶|;柹奸`濈鳭粺孪_=5隧7]7蕽*伴炻譊貶麔wr澈3訂8 质U貇wN澏娍JO襢_gZJ 拕潙浏饗.q-嬐]w 积鴛莖'<茲S鮹箯/qr例嗉7揻{|Q擒鈣欥議鱯蚔鉀唙 锢頤汳靏6{0镝蹯锄夺痟咽=虖F8圹饳胿O襢!霓es<鯟$泦蝡噺朔┫漕殱輌祥1V塾 韋!c$?\偶,t?Y箣%糓}(扡4Ds谩f鲑N+1穨*"餐U祍謫f鉊J礆灸_幅 }腴椴V淼b靼vc{疽*d/S嫦\2=P兠薯向9,j搔;h馆御喃J砶v啲 p韁vcs炼}_.冲-ゑ絒pm鈽(烱!e提杰悶N患赢0贠hI R塮9 洕G垤e?蚠X塜纎轼綱呹劷/仈>|+[妉K郀峍k?癖攋6凚銵/樥伨y炟鸐.Lいvss佶f肊%#L*遛潮造絿_v眑桠牆 謽蜉.{|]絉鞱名fa&屰 槩眶ω産3穇e漍顿鋅5偓醗攸4签]YV攈濴m{铕U漮?嗁瘜zkv 罺H燧澾蜍 m槙#v楌Z鷰\⒒鍰 密5甊3裿?埥m喹94h貣錖坊混a.祚`7N繩籌湣e5ken IN;醋鐡睑│v:钡毥辮鷒$橇/踌U 8﨨輾鄱鄴u-团齾=6 '癞T\V夵7c+8镈 v篡N蜱痿僡 釙兌#哇喻躺鋥潊潳 獘╉揜汁i蠣龁艖W馵'2聨AUx=坟∠=b囄亍c-坟 Gx诈B6 趓嗅 涊嗧Z屜4垹gV;P)膸 撥n!积篙鞐:翭v ;熠o)胻瓴A薃硄'.渧皪6~訬=v鯛漼l乡斐蹏鞕譾譐対鵰缗a篭w?M +姲]D豣蹜vq毆 邡v7满挺裂屿jqIEND瓸`倓DStdNo1XXXXXDStdNo2XXXXDDT ShowHelp4$$If枖!vh5$#v$:V 05$/ aDStdName 筽鸔dkY鹠燫h芉 T饄DStdEnglishName 筽鸔dkY鹠燫h芉駛噀褘 TDYZBS筽鸔dkY鹠燫N齎Eh芉N魜'` z剉h茓DLB噀?zHr!k 愰b錧\O膥▼簨?z 乢Bla翂?z 悺[▼簨?z 悺[?z yb?z $$If枖!vh5&#v&:V 05&/ avDWCRQ$$If枖!vh5&#v&:V 05&/ aDFYXXXX ShowHelp8DFMXX ShowHelp8DFDXX ShowHelp8DSYXXXX ShowHelp9DSMXX ShowHelp9DSDXX ShowHelp9kDd>VN gg饜  餜A(8 GBSendClearGr 63"b饑沼}'v.db罼c#n餥沼}'v.db罼塒NG  IHDRE頭xgAMA睅|鸔 pHYs+霫DATx陧澩n;vY D/D#*o牞狉. 殱猨(-拆"p&S鉣74既.乗乏榮鸒菥?K蓐j諻溽%寺鼺癀v嗫昪邅デ|J|;+=v;鳺z炖w;鸠 郎滬髼暙4卸-7)羺蔹T魂K摦发 齶Df?橴硖x椑哙玘庀G鈨噌4胢嶔頖鶥棜擾躉蠟~餡[s館8胦MИ丌]6宽/ n*' <\旾PwZ覟}Ka鴢 <凛釤D?靅襕锺屩嚐紇bk拉h小起湂_竷擆蟂57L累)NNgT楴靫~鄰艻{躉N攎NS#凎\yp唍-#伀蕃G庩燎&Wxq`覆&侰C妯鲻饢:舾(赖魮 橘u3G}K鄏-4ce=$<8〦PK亸p]:樌Q_毱+鷯纚痠Z励<-繎腑<鴪郠焕Ko:&?抭鸅羀闗譻'羿昜辺p鉴>r聲^囡K5q饢.亙锳躅褠V/!;2?C嬿h盲狎肓齯A臞tF薷`J痣毨迮鄅改鱂 颬彰w嫪 |R偁 讐 绚+莲 ~jE坯x >諽窧W倘h\5矇佔t"榱浽偯紤f迬萹"p塪8 瓑濅莲9 旹de峔5畯o 芟拪厘姊2廁 0>X 0頉yp罳B 记N_#UK#W 迗>:j躰 撡\顙ムC犟禮畠J頟dp| 湌+瘊ろ8始>躱(?蝴鴚擫砹鱻廃肆/N -"觫^ 49 8轅嚕!++Q髓W{抌愯幍筆蹅k'KppB廄b蠀X&*驯M郰9BG熮繵 z 苓O慃1鐛跙#旱>:N棵 -弉箮2E=苾 g牷#8姟 0媥坻ee:L/ゾ┹喚J#pS抓摰転牙少協m 韹丸Us飔呧磑儙}K=_厽1孚 黐o壒O郤<8 y7庼t |芒靅崳匔7`溺!*傆Yg-稱TT0wo徇M呧w=伩紤#8(b嵤仟ct璺w蟻S纎eG.(逊訃痖}T z羀荵*蛁 熇54^O込;Mw笝錦^縤x砹;繇鬭踳u79'ma}$y裐綃 菉*偦砝) 3:死?>c 0祥C龠L嬛綈dgA]*n%躒K#鮻=m利p杸_{|8Bs`d冇摿I呻kW嶡(庒8垒港"x椑k朩 嗌;拈J睵c6)傷荇烜M=~逾5S腳 6抭锩0椗疒e窎喓娻璒嫚69UWx誣洪 懒鑄H2/杹応9痂歩〤/.羔郙p瑼$5I鄑稒:塁蔣xE8(E_梺踗#pA噌\q夶灱聹傠S怘 糟7YSP^kM鄰儿K =@Qsk佱ア;繣蘴l.梹w 6"所whu磢淼J 9Y挤拓^Q 繭}f 搊肆1閑丼*僟sp垎kt羾超o <貐 蕖%;譞P鯯%pm1 磷:痫 pL虵 骪K羇蠳昵9p歴饮-勯c#^*颁\/ r"8*ㄆ 亙qy=トl懚] >, _JL旛畝棑刼崫┢萑W鄀乽}:R ^鄡7 2pL,WC鮌忊L锈5郱5$ f繟跥89}><蕷决h_e饹嶼辑9pцq$鹞凫(? @非雄ν郤韑,*<4\簭s攅; 6燾w懖泼ue樌眦份,@/安 耴89 )干鄇B 亮S婒y發e#8*.怃鞫縨g謰逝煥7={[儞婰!俉[NN/甏懒淆-隬0<藈▔.郶T赆t呋da爖耆~5s 鬏$0荋%嬑壥g亙w誼疒紺Jlj摿oC艾f ?;钟~uTe瘥鯰1{/!犘p-漢[>E#T^彛-鹏r 罣!)怉p_珈oDPc+ 鰢" 代 5ps.DEZ鞖礋 N鵙8 Y淕菵柠(L姪蒊 ''ъ]嵿Z羁ㄜ-)*牱 庘冫t觥*聎筻璐T 屶曶U媪俖Ihp蠢9鍪^=鵂 郤?m湭鼐阿潯!孆哾|g碃+D>鎰箢8袱k鼨繿2 C鄌 -{嬥0艇-馏k憎+纐捭殮ATYQK2+?儅罙梎f*{詊5xm狂YR}u<q{ E鹏樌認p鉺繇1殽綹尬僄嵣勜譽鹕闪As("R=俖餫lR&qM廲鴆<,Ю%涿 痞瘕~cv`N$pE_封龊8~婴r璣-銛 蘑5璮楼C镰拈X悔钭x'P犛*+碳! 鄴 -鋩抗軙2k礼,MN湦ML掦U嗪+4Y鮴謍r_}喟\ 椸lu鶸習_ 噯z|缉郌J饉敥лJp_詇-靬r8N y騧3/4.萹茅腣袃c迯槰V3wo 湇2璴V倗B[G%,'(偦9p锌3{R阙c<|Zn24  Mwo败衱餳閃冣 9=盍&w驦饗k { WD剐级蕳蔆緋9笚/鞱X襦OK狼g鎬 殮瘥⑶A溁绛9#鹞灒;遥橔3pED88C骦饂趄1T0儗壳:- 2该V0e幑B痽忂箛P幪u缌∷J%T敵4孯T"竵辻?刬爟-羲Nx''i鶑nT*n6蚸?儧楢 k"8^V噒圄 =8(B蠭 &n*黒溮 巵鹴窄r樾M$7>浽D噗鸹]7橉8驗;塬`嶹舌扣|鮝罢彅eL趗僣,慫纈y媩RZ鱘俒醭倱御竭銘:姯墥~踹鱆腊貁=>C痆 〩T鈳 摁7_鹫炇&繊gx7.见杙3跟R" 瞂監圄* :伽yu]-ipE/9鹛搚'纼g:J菲閗鍉筩J嚆J餳2xvy蓴暇稡3髝> 秺a鼛}/徠$>*5sz\齉 迏6舛諿僌筻鸮~7娕筲%噈訔Z4皖棢"tv#摣d躮辠5 頮6& 髖3畒/R緧箾5 孂k困.籶]n冟M竍61 ~o辘Q鞺菞,M9X堦"峘~岈a rb殌困xUX \蝨B鍥螩}W鶯鯖+G嵗莤%嶬rU疽H躔pZ&輎?>d:疳Z=P %pZ[浟鹶h髸琡25婯晇隤珗'铲S|釹夐鑟聣w肜M黤簙熇嫏Z燸醐笉鋿k旳d 慟黳猕SU靪.僚鳰墎旷e幚僈+.$-4!撅h1鋤p紆閣/K,D}N)招^清璢4鶸=!8鴓嗌枸殎鱯*W岥yp昧卉<鎮"x忇 欕q艰|摾蟉烔+nX 踪牻~夃i殘 争*雚鼻殗[] 蜤32璌帻j3皱茅I{熼n栜4#崻^尬O喱桥k穋3烂 x椓杯09綑4縆帙讘痶w糓龚睬'q螞9bp 躴pY傜RL}z篦|迒4?j6蓗%x粲媪/X蠼y廏 噍8u`b鍉C1o$;5鶥fp敌鉏7ZpX髛洕9p_.y<J噐皖_ M┾衱'妰<吇驀.I俢--兂晒12\偝餺皎黷3鹇O玥嬰锖/鞳 >f}<.UN2緃奰k兼垓崽媥"偡[伝o{M栆=顰珮榎ma'皹渾,s 4l-;38z港OL鶆 公6;坶k櫼~蔼 驱*5H[啿ǜUHO=N噌0 \HY餮:J&紒獏偘r鄇E:浐l5r鸱9I~沕穾%< +/)$鲟un!nEc&悼躂>c郙~q0$ 楠,|滊駷9尊}(}隠NUS*繫昧E0(利ō<炶灠逧鸾+芍 q捸h痱暟n碽猁G锇.溃?N5偆 r龋幱^D<甯羉oiq8氪KOw 騺蓐9饋h噑^穙 彛辳誕倧怩i v过x狭ra5楞^^炵&xSgY弍潊v骺>糦n 瀬簻,塘鍞/*鎎Nn,5」旲酾 6@&p款0!邦'jx.a n氠<輅 棞m阁妬/窚1 \5u秄憐晝\酸"i嬀5e禘慨2|屏骱峟獙仜殙奆7UD5 |P肊灧舒繧鉔沧[茕飁弋觎@T鷚 糰鑍X彭?A&嫜M辸C肆sVc砾p| 茕铳鴈TC曶LT槱巓4*9 8魍RpV,! v驷粥殐797T佼鴡 鼞烉?n;篍珔{B╮翉诣n 鳤羥7瘘嶀>産圜Z檛炠.e嶂鈨}Z屠S 娄3悺4簁羉Bh紛鄰0~q紌 Aa梈9炌-鎨郜by< k?L/膗 .#竎 緹%钣[>衯~灤呧槀s罨 n杻获ジ嶮庘據鍱TX=o凳"5鈔炲圜$烲'鹂=薓M>违橶傐 覱镒uz僴m麹17rp]f瞤往踭a`%_x%竅 .愉t0cpuc?猤<舚`8豇J餲=n坼嗝U ~紿炩8-嶹+sQ 暸钣:鳷%p軠t脃 <苢>=,洔~郋贴>E@O勼准 肯" J餭Ud╠瓳.梟醣|,绹d9%粒t赳9M 熙8n}dp兪 鹂㈧嬬湰E"Xb蘨辣笉嵔覿?}80 <組J郋x9笁. 侘﹛迥I颢u7澑&zx绐X奓藷+T溜雧^榺旕$鑂U盩{溦篰滮?岊[綅饅J汄饦尅缊'鍞鄋m%8h根铱~=1:p>-7嗳gp9媪渘箤;,郌笂'馄体9*9J謿鄽^斉ME \sp=on籏]亏&,nq閛黔,-W湱利袳p9笇圄 <8彚]O笭 (倧.9甘鄒戍s痿飚pu>蕲Km4O郾 mO+权8汓罣~a^让荝郪醊[豮Q莿v!朽r痂菩 а莛*6澅]uQJ|:4.nfJ囫[温Gz$p柬odpM啾9m<8+衒S瘟韶3Qay-彦С5A踿邅w靴汘8眀NW斈U^RZ偡笡'翓佒5k5"8uT!鉸烃宬昶6烒=硁篱ㄘ耉^鍏壀s櫣uv璟y/ 栺C\鵩48_@緿[p7肜y'鑒鸰辨pnfXD#鞾2EIu 8涢"x簂 籜谐纪p艙墨|.镶a7孖l ~封cj'痻貲檅蘉榴輊.矗8曕漑}珔儹g;胬1勯V伋A)鮠2~n66e妎*@B*RHd`JaJmHnHphsHtH$* $ >\鑜_(uH*6V !6 騗繈顣剉厤>*B* `J ph8/18 裇^@圲CJEHOJPJRHdaJ,)`A, uxCJOJPJQJP/QP w枡:y婳 Char(CJKHOJQJ_HaJmH nHsH tH@/a@ 8祂 CharCJOJ_HmH nHsH tH*bq* D朥_lQ_ CharJJ "}_ 9a$$刡^刡.`.CJOJQJaJH"H 槝鑜XDYDCJOJPJQJ^JaJFF 顅U_ 5a$$WD,,`, $ OJaJ: : "}_ 1a$$ S$ OJaJPP 佽l噀,g! & F a$$G$  CJOJaJ.+. >\鑜噀,g a$$G$JJ "}_ 5a$$^.`.CJOJQJaJJ J "}_ 4a$$凥^凥.`.CJOJQJaJP!P "}_h槝 XDYDa$$OJQJaJ5乗乚<@< 顅U_ 2! $ $ OJaJN@"N p顅U_ 3#" $a$$WDd刦`刦 $ OJaJJJ "}_ 6#a$$勳^勳.`.CJOJQJaJ:: 顅U_ 9$a$$劸^劸CJaJJ J "}_ 2%a$$劋^劋.`.CJOJQJaJJ J "}_ 3&a$$剉^剉.`.CJOJQJaJ8Yr8 噀ch觺刧'-D M JJ "}_ 7(a$$劸^劸.`.CJOJQJaJ> @> u)a$$G$UDd勔]勔CJaJJJ "}_ 8*a$$剱^剱.`.CJOJQJaJN@!N p顅U_ 4#+ $a$$WD勂`勂 $ OJaJ2@2 u w ,a$$G$CJaJFF 顅U_ 7-a$$WD匇`匇 $ OJaJFF 顅U_ 8.a$$WDX刜`刜 $ OJaJJ@J p顅U_ 1 /XDYDa$$ $ OJaJRR D朥_h槝(0 iR$a$$WD` iR$ OJPJJqJ D朥_N鄀1 hXDYD OJPJaJR"R 顅!k0"}_ck噀2$d俐a$CJOJ_HmH nHsH tHdd Nagh槝3 & F@&XD2YD2$CJOJPJ_HaJmH nHsH tH`/B` Ry橍fpeW[鱏4刋8VDWD8^刋`8CJOJ_HmH nHsH tHDD D朥_ Nagh槝5 h & F@& h00 踁agh槝 6 & F@&0r0 \bN魜'` zh茓27^^ 祂%8$ iR$ 劋7$8$WD`劋a$CJOJ_HmH nHsH tHFF 顅U_ 69a$$WD創`創 $ OJaJX/X 鑜ck噀 :$ & Fa$ CJOJ_HaJmH nHsH tHV/V 鑜;$ & F1$7$8$a$ CJOJ_HaJmH nHsH tHb/b 剉佽l#<$凥刓1$VDWD8^凥`刓$CJOJ_HmH nHsH tHDD D朥_擭agh槝= h & F@& hpp D朥_孨agh槝7> & FXD2YD28$7$1$@&9D4$5$ hOJPJaJKHJJ D朥_踁鄀? hXDYD OJPJaJ"﨩" 葉觺縹@>﨩!> \bN魜'` zh茓 AじXDOJPJhh 耂噀.s5BXDとYDa$$1$$$@&-DM OJPJaJKH`/2`  D朥_peW[鱏Ry孨 C & F HCJOJ_HmH nHsH tH<B< h佽l魦f D & F CJOJaJ2R2 \bh芉 T饄2 EきXDvhh D朥_h槝7F & FXD2YD2a$$^` k OJPJaJVqV D朥_Nagh槝.G h & FXD2YD28$@& hJQJ D朥_ N鄀H hXDYD OJPJaJDQD D朥_踁agh槝I h & F@& h>﨩> \bh芉噀?z{|+RJdYDCJRR 噀.sR{|鱏 K1$9D$CJOJPJ_HaJmH nHsH tHJJ D朥_孨鄀L hXDYD OJPJaJX/X 鱏Ry N M & F CJOJ_HmH nHsH tHrr MR0_h槝*N$$$0-D@&M a$ CJ OJPJ_HmH nHsH tH@@ 裇^錯gOCJPJ_HmH nHsH tHX/X h芉fN乢vPpeuP勢^勢 CJOJ_HaJmH nHsH tH@/@ h芉fN wNQ$a$_HmH nHsH tHb/"b peW[鱏Ry孨 R$ & F a$CJOJ_HmH nHsH tHP/2P :y婳匭筟S勅WD`勅 CJOJ_HaJmH nHsH tHl/l ck噀hh槝'T$ & F hXD2YD2a$ CJOJPJ_HmH nHsH tH@1@ 孨agh槝U & F2XD2YD@&NqN h芉fN w_vPpeuV :r a$$ :r OJPJ/ D朥_鄗h槝7W$ & F h884$5$7$9D@&XDdYDda$$CJKHOJPJ_HmH nHsH tHX/X 鑜X$ & F 1$7$8$a$ CJOJ_HaJmH nHsH tHX/X Ry  N Y$ & F 1$a$CJOJ_HmH nHsH tH\\ \bh芉 T饄Z$dX1$9Da$ CJ4OJPJ_HmH nHsH tH^^ h芉fN乢GYpeu[$勂]勂a$ CJOJ_HaJmH nHsH tH.. \bh芉噀?z{|+R2\jj h芉饄]$d1$3$5$7$8$a$*5丂CJ0OJRH\乢HmH nHsH tH.!. \bh芉駛噀 T饄2^(( 鑜ck噀 _rr 耂噀.s0"}_h槝5`XDとYDa$$1$$$@&-DM OJPJaJKH::  N鄀aXDYDOJPJF﨩"F \bh芉駛噀 T饄bdpXD CJOJaJD2D ag噀佽lc  & Fa$$ OJP/2P :y婳d$ & F 1$a$ CJOJ_HaJmH nHsH tH^/R^ \bh芉鱏1e$41$3$5$7$8$9Da$CJ_HmH nHsH tHv﨩v D朥_h茓Df & FXDYDa$$1$$@&-DM hOJPJaJKHff h芉fN w_GYpeug$ :r ぼa$$CJOJPJ_HaJmH nHsH tHNN :y婳h & FXDYD@& CJOJPJaJ*﨩* 瀃絜錯gia$$bb 鄗h槝"j$ & F88@&XDdYDda$ CJOJPJ_HmH nHsH tHhh D朥_hh槝7k & FXD2YD2a$$^`  OJPJaJ0Q0 Nagh槝 l & F@&|﨩| 顅!k0h芉 T饄h槝;md4XD0YDa$$1$$$@&-DM CJ OJPJaJKHJJ D朥_擭鄀n hXDYD OJPJaJbb D朥_hh鱏/o & F da$$@&+^+凘凘 B*`Jph22 \bh芉噀?z憦酧o`2pB﨩B \bh芉噀?z憦酧o`qdLごXDCJ:": 擭鄀rXDYDOJPJl/l ck噀h槝's$ & F hXD2YD2a$ CJOJPJ_HmH nHsH tHRR 裇^钀钑t$a$'5丂CJOJRH_HmH nHsH tH\R\ \bh芉鉔f酧o`u$d棹9a$ CJOJ_HaJmH nHsH tH(﨩b( vQ諲瀃絜錯gvb/b 枡:y婳w & F h`(CJKHOJQJ_HaJmH nHsH tHdd D朥_h鱏1x & Fda$$1$$$@&^刱`刱 B*`Jph(﨩( vQ諲裇^錯gy^^  D朥_lQ_鱏6Rh&{z8$7$1$ iR$ OJaJKHmHnHsHtH:﨩1: N鄀{XDYDOJPJ>/> \b梒k噀|$a$_HmH nHsH tHJQJ 孨鄀"}XDYD^`OJPJHH Ry樒% N ~ & F  OJaJ`/` vQ諲h芉饄$da$,@堌CJ0OJPJQJ_HaJ4mH nHsH tH\\ \bh芉鱏2$d棹a$$CJOJPJ_HaJmH nHsH tH0a0 擭agh槝 & F@&NN  ck噀lQ_鱏6Rh&{" iR$WD` iR$ FF :y婳T噀W[ iR$刪`刪 iR$ CJ\B\ Ry橍f-d俐a$$9DH$VD剱^剱WD88`8 OJaJKHb/Rb W[蚹鱏RyN $ & F Ha$CJOJ_HmH nHsH tHff h芉h譥$d-DM a$#5丆J`RH_HaJ`mH nHsH tH^/r^ Ry樝%孨 $ & F Ha$CJOJ_HmH nHsH tHXX h佽l魦f* iR$凥^凥WD刓刓 iR$ CJaJ88 D朥_lQ_ iR$ iR$ :A: vQ諲裇^钀钑d OJPJ5`/`  D朥_W[蚹鱏RyN  & F GCJOJ_HmH nHsH tH:a: 踁鄀XDYDOJPJ,a, vQ諲h芉h譥RHPK!倞[Content_Types].xml瑧薺0E鲄卸豶(ヘ微Iw},浔-j弰4 蛇w旄P-t#b螜{U畯銧擉T閁^h卍}悒)蛔*1P' 揯鬃W孱0)櫐T闉9<搇#ぼ$yi}佸;纞@囨(顚跄H滖男u* D谞z內/0娗盃瘥 $ X3aZ⒁锣,癉0j~3叨蝏沩~i>赝3縗`?/[G殁\!-跼k.搒曰..椃碼婵?PK!ブх6 _rels/.rels剰蟡0 囷吔冄}Q颐%v/C/(h"脎O 劋秣=畫旂 毆免C?薶醰=偵叅%[xp啠{鄣_糚眩<10堎O糝瓸d焉襃E4b$q_槥6L吁R7`畯ㄉ趁0虨O,錏n7擫i鋌〃/鉙綈╡械根铸PK!kytheme/theme/themeManager.xml 蘉 @醹愘7c(Eb菜CA菭覠圩邈7芜諞K Y, 奺.埛饇,ㄚH,l崆骈x纱逫萻Q}#諓叚递 值+!,較$j=婫W栌)釫+& 8PK!mQtheme/theme/theme1.xml靁MoE#F{oc'vGuh覨盵糟x=逎zvg53Nj廐H垈z饴昛 $石I)*E阓酀欇鮊&IA!裎>秣羌3緓镹男>掤搁U蟇L0斈屵呖z迃rx鳔脅稔h9T8奣/魁煜?鍃Y雒'蟸3S琦棌~蜩鶅O_|w)馉镉圚t=乤+d NG1-Rl苼1諶J鴚T锠疢1Kc柩"o he浪撣幝絇L-憒%绗臙甴Y7'qP.\L姼=岟薲穛炷3I爋fi墸.帽墘BRb-J款P_p蒅 茛▍i㎏鷗郿訉h汧梚櫷o7;7Q嫵2染媱珼>a/銐翾>嶺厌W 藬霱卂膗H剄)薶 胺+:Vi豾4r態裶汐橌"r嫃!帓2l徠a麃C奲此U|嚮!8^顩8>軤仯,A魶壭眲V韙鄨讕厏ls囔14犁_=,涩返o聻TV 跥陲"苎鎎H唼灮'.4熯x薜躻-戏蹺鮸褾;氕衯踯`嘼3"G 'e\昮H柊O 话ㄩ恬愪'$劘i_wp伬 >*靺8魂i&丩Y%\铝,楎謝視=瞩伭壵阱綔 r6f 提3储淭厥厰)橗:陋ZK誏玸ゅ&C 鏜兣軟0 [浪玴@注醏j扣7 媺耏咹唜Hi荤cT5A蕆跑@顢腍驇馴AZC硙i' RQ\m伕,zo,僩Q襲{Y\,Nψ/=溷ら嵿L _.跆嘫7C6韽-fS宄h62密"5咍麥罭H凾[X65太4X%Y龡豚殖2纅鷎h辈绅痠~tCKF#猥b +趙1m鑵4`眹!:U翞!昿5a:倊{4韒笫m蝘o 萎c杽8m泛D矹秔S枪姗豓1铘?#S奿?3E'pS2疳W`る甸q]( ┻08樲w别 n撏A鲺[s枃)k8皓= Aa?R d趻删c楿咏瞬d)#換ueb恾满捷C!ず&i0福>4魫S7鋥z虮 F箎 4sKvUKo瘸椒h垀1砵YU奥V蠬塔5U8錠k;譁潘鮈9堚寂皹D 荀 ?*|FL 迪鳡"A3兇伂>g类dm2iV值殍そ杕謌<殒r8[kv抶熞蠃p鎶sj,潩z伛礭[鑚堨叆Qv11縤u鈨-高0%M2羙J描3u舘%覎PK! 褠煻'theme/theme/_rels/themeManager.xml.rels剰M 0匃倃oo雍&輬协勪5 6?$Q祉 ,.嘺緳i粭澤c21h:闀q毩m胳嶡RN壻;d癭値o7g慘(M&$R(.1榬'J摐袏T鶂8V"&A然蠬鱱}狇|$絙{朠除8塯/]As賲(⑵锑#洩L蔥汉倪PK-!倞[Content_Types].xmlPK-!ブх6 +_rels/.relsPK-!kytheme/theme/themeManager.xmlPK-!mQtheme/theme/theme1.xmlPK-! 褠煻' theme/theme/_rels/themeManager.xml.relsPK] %" ? 剢 蓡 ((5555555555555558 "`Zd鑚磎 ";? Xt&燦濿`c"dZd蘥xhlkm癿磎!#$%789:<=>@AB$*?KPR^cfrx}%9=MP\beqw{:B]`ac0<>]ik=JLkxz -/NZ\{#"F晙F晞F晞F晞F晞F晞F晞F晞SF晞F晞F晞F晞F晞F晞F晞 X%暷暷X暷X暷X暷X暷X暷X暷X暷X暷X暷X暷X暷X暷X暷X暷X暷X暷X暷X暷X暷X暷晞(/28!晙疖/餢b$"滤5XW$脀b$沼}'v.db罼 <Zs溍>@鹛饇(  餳  S $(( DT#" ?餳  S $(( LB#" ?餹  S $(( RQ3"`?饁B  S ,()Line 53"?餻B  S ,()Line 6#" ?0 # ?e;<" 6($t Btst8%8le%etFICSWXFLHStdNo1StdNo2DTStdNameStdEnglishNameYZBSLBWCRQFYFMFDSYSMSD SectionMark1 _Hlt413251465 _Hlt413251466 _Toc253471891 _Toc253471957 _Toc253472873 _Toc253472900 _Toc306961439 SectionMark2 SectionMark4 _Toc253471892 _Toc253471958 _Toc253472901 _Toc306961440 _Toc253472874 _Toc306961442 _Toc253471894 _Toc253471960 _Toc253472876 _Toc253472903 _Toc253471903 _Toc253471904 _Toc253471905 _Toc253471909 _Toc253471962 _Toc253472878 _Toc253472905 _Toc306961444 _Toc253471917 _Toc253471963 _Toc253472879 _Toc253472906 _Toc306961445 _Toc253471929 _Toc253471965 _Toc253472881 _Toc253472908 _Toc306961447 _Toc253471922 _Toc253471964 _Toc253472880 _Toc253472907 _Toc306961446 _Toc253471944 _Toc253471967 _Toc253472883 _Toc253472910 _Toc306961449 _Toc410224643 _Toc253471893 _Toc253471959 _Toc253472902 _Toc306961441 _Toc253472875?Re}>Pe{BB%%%%%%8 !!!!!" # !"$%&'()*+,-./0123456789:<=>?@;ABCDE+Qdy:Ncxaa%+++++^ !!!!!"""""""""""""""""""""""""""""""""""""""""""""""""xg< xg< 間 間 F+ F+ :X:Xccq*q*Y,Y,6s=6s=臘臘_:sK_:sK*|U*|U耛礰耛礰鷃bd鷃bd?}e?}elmlm縨縨^`CJOJQJo(56^`CJOJPJQJo(560^`CJOJPJQJo(56.0^`CJOJPJQJo(56..0^`CJOJPJQJo(56 ...0 ^`CJOJPJQJo(56 ....0 ^`CJOJPJQJo(56 .....0 剚剉^剚`剉鷒(....... 凟刓^凟`刓鵲(........6凘6`凘﨏JOJPJo(56mH sH 鑜勦剫^勦`剫齩()勦剫^勦`剫齩(.勦剫^勦`剫齩(.勦剫^勦`剫齩()勦剫^勦`剫齩(.勦剫^勦`剫齩(.勦剫^勦`剫齩()勦剫^勦`剫齩(.剭^`剭CJOJPJo(:y婳凥刓凥`刓()勳刓勳`刓(.剱刓剱`刓(.4刓4`刓()勜 刓勜 `刓(.剕 刓剕 `刓(. 刓 `刓()勀刓勀`刓(.刱^`刱CJOJPJo(aJ56:y婳刱k^`刱o()刱k^`刱o(.刱k^`刱o(.刱k^`刱o()刱k^`刱o(.刱k^`刱o(.刱k^`刱o()刱k^`刱o(. 凨^ `凨CJOJPJQJo(56H* 刱剷9^刱`剷(刱剷9^刱`剷(.刱剷9^刱`剷(.刱剷9^刱`剷()刱剷9^刱`剷(.刱剷9^刱`剷(.刱剷9^刱`剷()刱剷9^刱`剷(.+凘+`凘﨏JOJPJo(aJ56H*鑜剸剨^剸`剨鼿*o()剸剨^剸`剨鼿*o(.剸剨^剸`剨鼿*o(.剸剨^剸`剨鼿*o()剸剨^剸`剨鼿*o(.剸剨^剸`剨鼿*o(.剸剨^剸`剨鼿*o()剸剨^剸`剨鼿*o(.^`CJOJPJQJo(aJ560T^`CJOJPJQJo(^JaJ56>*7S*4*H*<@EHKH89;XT\].0^`CJOJPJQJo(56..0^`CJOJPJQJo(56...0 ^`CJOJPJQJo(56 ....0 ^`CJOJPJQJo(56 .....0 ^`CJOJPJQJo(56 .....0 剚剉^剚`剉鷒(....... 凟刓^凟`刓鵲(........刼刉刼`刉(劍勆齘劍`勆齩(.0凱勆P^凱`勆齩(..剢<b ^剢`<齩(... 劷 劗s^劷 `劗黲( .... 剛 剴^剛 `剴鹢( ..... 劰^劰`鹢( ...... 勷剉^勷`剉鷒(....... 劥刓^劥`刓鵲(........凙刪凙`刪(  勷刢^勷`刢﨎*`JphOJQJo(佛剮刡^剮`刡﨎*`JphOJQJo(刓勷^刓`勷齩(.剶勷O ^剶`勷齩()勌 勷 ^勌 `勷齩(. 勷 ^ `勷齩(.< 勷 ^< `勷齩()則 勷/^則 `勷齩(.勑剾^勑`剾() 勦^ `勦齩() 勦^ `勦齩(. 勦0^ `勦齩(. 勦L^ `勦齩() 勦h^ `勦齩(. 勦^ `勦齩(. 勦^ `勦齩() 勦^ `勦齩(.凣刔H^凣`刔﨏JOJPJo(aJ56)勲刔^勲`刔()剰刓^剰`刓﨏JOJPJo(aJ56()3刔4^3`刔(.勛 刔 ^勛 `刔()剓 刔| ^剓 `刔(. 刔 ^ `刔(.劽刔^劽`刔()刧刔h^刧`刔(. 刱^`刱CJOJPJQJo(aJ56H*:y婳^`H*o(^`H*o(2.2.勦剫^勦`剫鼿*o(.勦剫^勦`剫鼿*o()勦剫^勦`剫鼿*o(.勦剫^勦`剫鼿*o(.勦剫^勦`剫鼿*o()勦剫^勦`剫鼿*o(.^`CJOJPJQJo(560^`CJOJPJQJo(560^`CJOJPJQJo(56.0^`CJOJPJQJo(56..0^`CJOJPJQJo(56 ...0 ^`CJOJPJQJo(56 ....0 ^`CJOJPJQJo(56 .....0 剚剉^剚`剉鷒(....... 凟刓^凟`刓鵲(........刉^`刉(7勆齘7`勆齩(h.0勧勆^勧`勆齩(..<^`<齩(... 凬劗 ^凬`劗黲( ....  剴^ `剴鹢( ..... 凧 &^凧 `鹢( ...... 剚剉7^剚`剉鷒(....... 凟刓I^凟`刓鵲(........^`CJOJPJQJo(56h0勦勆^勦`勆齩(.剨勆^剨`勆齩(..劺<^劺`<齩(... 匃 劗 ^匃 `劗黲( .... 劶 剴 ^劶 `剴鹢( ..... 勼^勼`鹢( ...... *剉*^*`剉鷒(....... 勵刓^勵`刓鵲(........!^`CJOJPJQJo(56RHd@D0U_0(^`CJOJPJQJo(56hRHd@KH.0^`CJOJPJQJo(56..0^`CJOJPJQJo(56...0 ^`CJOJPJQJo(56 ....0 ^`CJOJPJQJo(56 .....0 ^`CJOJPJQJo(56......0 *剉*^*`剉鷒(....... 勵刓^勵`刓鵲(........凣刔G^凣`刔﨏JOJPJo(56)凣刔H^凣`刔﨏JOJPJo(56)勲刔^勲`刔(.剰刔^剰`刔(.3刔4^3`刔()勛 刔 ^勛 `刔(.剓 刔| ^剓 `刔(. 刔 ^ `刔()劽刔^劽`刔(.勚剷勚`剷﨏JOJPJQJo(56鑜勚剷t^勚`剷()勚剷t^勚`剷(.勚剷t^勚`剷(.勚剷t^勚`剷()勚剷t^勚`剷(.勚剷t^勚`剷(.勚剷t^勚`剷()勚剷t^勚`剷(.6s=c?}e:X縨lmF+ q*臘鷃bdY,間 _:sK耛礰*|Uxg< Jz{塏 CJ> ?!鉋$5):*嘚*皃-蔏C3D銸FSH#WH蔐K%ZS紃Xa8 d kv!n祂sI8{{J`f.fP`Xf\/ D梎x.(:"!HV|BV`Y題D=N7閛$蟅_| |)`C 橤痻y*臙0/: >WRL=^鉓餝S:;鸖奷訸 發 乵y'""sV V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V!! V"" V## V$$ V%% V&& V'' V(( V)) V** V++ V,, V-- V.. V// V00 V11 V22 V33 V44 V55 V66 V77 V88 V99 V:: V;; V<< V== V>> V?? V@@ VAA VBB VCC VDD VEE VFF VGG VHH VII VJJ VKK VLL VMM VNN VOO VPP VQQ VRR VSS VTT VUU VVV VWW VXX VYY VZZ V[[ V\\ V]] V^^ V__ V`` Vaa Vbb Vcc Vdd Vee Vff Vgg Vhh Vii Vjj Vkk Vll Vmm Vnn Voo Vpp Vqq Vrr sTemplateProject.MdlTds.DBTagTemplateProject.MdlTds.GBTagTemplateProject.MdlTds.HBTagTemplateProject.MdlTds.QBTagTemplateProject.MdlTds.ChgNameTemplateProject.MdlTds.PrctTCSTemplateProject.MdlTds.InsertFMTemplateProject.MdlTds.InsertGTTemplateProject.MdlTds.InsertPJTemplateProject.MdlTds.InsertTJ TemplateProject.MdlTds.GetFMType TemplateProject.MdlTds.InsertLx1 TemplateProject.MdlTds.InsertLx2 TemplateProject.MdlTds.InsertLx3 TemplateProject.MdlTds.InsertLx4 TemplateProject.MdlTds.InsertLx5 TemplateProject.MdlTds.InsertLx6 TemplateProject.MdlTds.InsertSy1 TemplateProject.MdlTds.InsertSy2 TemplateProject.MdlTds.InsertSy3 TemplateProject.MdlTds.InsertSy4 TemplateProject.MdlTds.InsertSy5 TemplateProject.MdlTds.InsertSy6 TemplateProject.MdlTds.InsertSy7 TemplateProject.MdlTds.InsertSy8 TemplateProject.MdlTds.InsertSy9 TemplateProject.MdlTds.InsertTab TemplateProject.MdlTds.ShowHelp1 TemplateProject.MdlTds.ShowHelp2 TemplateProject.MdlTds.ShowHelp3 TemplateProject.MdlTds.ShowHelp4 TemplateProject.MdlTds.ShowHelp5 TemplateProject.MdlTds.ShowHelp6 TemplateProject.MdlTds.ShowHelp7 TemplateProject.MdlTds.ShowHelp8 TemplateProject.MdlTds.ShowHelp9 TemplateProject.MdlTds.UnPrctTCS!TemplateProject.MdlTds.InsertFlBs!TemplateProject.MdlTds.InsertLx41!TemplateProject.MdlTds.InsertMenu!TemplateProject.MdlTds.InsertTBJz!TemplateProject.MdlTds.InsertTWJz!TemplateProject.MdlTds.ShowHelp10!TemplateProject.MdlTds.ShowHelp11!TemplateProject.MdlTds.ShowHelp12!TemplateProject.MdlTds.ShowHelp13!TemplateProject.MdlTds.ShowHelp14!TemplateProject.MdlTds.ShowHelp15!TemplateProject.MdlTds.ShowHelp16!TemplateProject.MdlTds.ShowHelp17!TemplateProject.MdlTds.ShowHelp18"TemplateProject.MdlTds.IniDocument"TemplateProject.MdlTds.InsertTable"TemplateProject.MdlTds.ProcessEdit#TemplateProject.MdlTds.InsertFooter#TemplateProject.MdlTds.InsertZTitle#TemplateProject.MdlTds.ProcessPrint$TemplateProject.MdlTds.DelIndexItems$TemplateProject.MdlTds.InsertExample%TemplateProject.MdlTds.DesignIndexTCS%TemplateProject.MdlTds.InsertEquation%TemplateProject.MdlTds.InsertFifTitle%TemplateProject.MdlTds.InsertFigTitle%TemplateProject.MdlTds.InsertFirTitle%TemplateProject.MdlTds.InsertFlBTitle%TemplateProject.MdlTds.InsertFlPTitle%TemplateProject.MdlTds.InsertFlZTitle%TemplateProject.MdlTds.InsertForTitle%TemplateProject.MdlTds.InsertSecTitle%TemplateProject.MdlTds.InsertTblTitle%TemplateProject.MdlTds.InsertTCSIndex%TemplateProject.MdlTds.InsertTextNote%TemplateProject.MdlTds.InsertThiTitle%TemplateProject.MdlTds.MarkIndexItems%TemplateProject.MdlTds.UpdateFieldTCS&TemplateProject.MdlTds.InsertCharacter&TemplateProject.MdlTds.InsertFlTTitle1&TemplateProject.MdlTds.InsertFlTTitle2&TemplateProject.MdlTds.InsertFlTTitle3&TemplateProject.MdlTds.InsertFlTTitle4&TemplateProject.MdlTds.InsertFlTTitle5&TemplateProject.MdlTds.InsertIndexPage&TemplateProject.MdlTds.InsertParagraph&TemplateProject.MdlTds.PrintPreviewTCS&TemplateProject.MdlTds.ProcessFontPage&TemplateProject.MdlTds.ShowfrmDelIndex'TemplateProject.MdlTds.GetIndexTitleAll'TemplateProject.MdlTds.InsertFigTblNote'TemplateProject.MdlTds.InsertFirExample'TemplateProject.MdlTds.InsertMulExample'TemplateProject.MdlTds.InsertReferences'TemplateProject.MdlTds.ShowfrmMarkIndex(TemplateProject.MdlTds.DelBeoforeMarkAll(TemplateProject.MdlTds.InsertEquationNum(TemplateProject.MdlTds.InsertFifthTTitle(TemplateProject.MdlTds.InsertFirstTTitle(TemplateProject.MdlTds.InsertForthTTitle(TemplateProject.MdlTds.InsertTextFirNote(TemplateProject.MdlTds.InsertTextMulNote(TemplateProject.MdlTds.InsertThirdTTitle)TemplateProject.MdlTds.InsertFigTblFooter)TemplateProject.MdlTds.InsertSecondTTitle)TemplateProject.MdlTds.ProcessIndexFormat*TemplateProject.MdlTds.DeleteDuplicateMenu*TemplateProject.MdlTds.GetIndexTitleSignle*TemplateProject.MdlTds.InsertFigTblFirNote*TemplateProject.MdlTds.InsertFigTblMulNote*TemplateProject.MdlTds.InsertFLEquationNum*TemplateProject.MdlTds.ReSortIndexByAscend+TemplateProject.MdlTds.InsertExampleContent+TemplateProject.MdlTds.ProcessOnePageHeader+TemplateProject.MdlTds.ProcessTwoPageHeader+TemplateProject.MdlTds.UpdateEquationNumTCS,TemplateProject.MdlTds.InsertFigTblFirFooter2TemplateProject.MdlTds.GetIndexTitleBasedonUnTitlesTEMPLATEPROJECT.MDLTDS.DBTAGTEMPLATEPROJECT.MDLTDS.GBTAGTEMPLATEPROJECT.MDLTDS.HBTAGTEMPLATEPROJECT.MDLTDS.QBTAGTEMPLATEPROJECT.MDLTDS.CHGNAMETEMPLATEPROJECT.MDLTDS.PRCTTCSTEMPLATEPROJECT.MDLTDS.INSERTFMTEMPLATEPROJECT.MDLTDS.INSERTGTTEMPLATEPROJECT.MDLTDS.INSERTPJ TEMPLATEPROJECT.MDLTDS.INSERTTJ TEMPLATEPROJECT.MDLTDS.GETFMTYPE TEMPLATEPROJECT.MDLTDS.INSERTLX1 TEMPLATEPROJECT.MDLTDS.INSERTLX2 TEMPLATEPROJECT.MDLTDS.INSERTLX3 TEMPLATEPROJECT.MDLTDS.INSERTLX4 TEMPLATEPROJECT.MDLTDS.INSERTLX5 TEMPLATEPROJECT.MDLTDS.INSERTLX6 TEMPLATEPROJECT.MDLTDS.INSERTSY1 TEMPLATEPROJECT.MDLTDS.INSERTSY2 TEMPLATEPROJECT.MDLTDS.INSERTSY3 TEMPLATEPROJECT.MDLTDS.INSERTSY4 TEMPLATEPROJECT.MDLTDS.INSERTSY5 TEMPLATEPROJECT.MDLTDS.INSERTSY6 TEMPLATEPROJECT.MDLTDS.INSERTSY7 TEMPLATEPROJECT.MDLTDS.INSERTSY8 TEMPLATEPROJECT.MDLTDS.INSERTSY9 TEMPLATEPROJECT.MDLTDS.INSERTTAB TEMPLATEPROJECT.MDLTDS.SHOWHELP1 TEMPLATEPROJECT.MDLTDS.SHOWHELP2 TEMPLATEPROJECT.MDLTDS.SHOWHELP3 TEMPLATEPROJECT.MDLTDS.SHOWHELP4 TEMPLATEPROJECT.MDLTDS.SHOWHELP5 TEMPLATEPROJECT.MDLTDS.SHOWHELP6! TEMPLATEPROJECT.MDLTDS.SHOWHELP7" TEMPLATEPROJECT.MDLTDS.SHOWHELP8# TEMPLATEPROJECT.MDLTDS.SHOWHELP9$ TEMPLATEPROJECT.MDLTDS.UNPRCTTCS%!TEMPLATEPROJECT.MDLTDS.INSERTFLBS&!TEMPLATEPROJECT.MDLTDS.INSERTLX41'!TEMPLATEPROJECT.MDLTDS.INSERTMENU(!TEMPLATEPROJECT.MDLTDS.INSERTTBJZ)!TEMPLATEPROJECT.MDLTDS.INSERTTWJZ*!TEMPLATEPROJECT.MDLTDS.SHOWHELP10+!TEMPLATEPROJECT.MDLTDS.SHOWHELP11,!TEMPLATEPROJECT.MDLTDS.SHOWHELP12-!TEMPLATEPROJECT.MDLTDS.SHOWHELP13.!TEMPLATEPROJECT.MDLTDS.SHOWHELP14/!TEMPLATEPROJECT.MDLTDS.SHOWHELP150!TEMPLATEPROJECT.MDLTDS.SHOWHELP161!TEMPLATEPROJECT.MDLTDS.SHOWHELP172!TEMPLATEPROJECT.MDLTDS.SHOWHELP183"TEMPLATEPROJECT.MDLTDS.INIDOCUMENT4"TEMPLATEPROJECT.MDLTDS.INSERTTABLE5"TEMPLATEPROJECT.MDLTDS.PROCESSEDIT6#TEMPLATEPROJECT.MDLTDS.INSERTFOOTER7#TEMPLATEPROJECT.MDLTDS.INSERTZTITLE8#TEMPLATEPROJECT.MDLTDS.PROCESSPRINT9$TEMPLATEPROJECT.MDLTDS.DELINDEXITEMS:$TEMPLATEPROJECT.MDLTDS.INSERTEXAMPLE;%TEMPLATEPROJECT.MDLTDS.DESIGNINDEXTCS<%TEMPLATEPROJECT.MDLTDS.INSERTEQUATION=%TEMPLATEPROJECT.MDLTDS.INSERTFIFTITLE>%TEMPLATEPROJECT.MDLTDS.INSERTFIGTITLE?%TEMPLATEPROJECT.MDLTDS.INSERTFIRTITLE@%TEMPLATEPROJECT.MDLTDS.INSERTFLBTITLEA%TEMPLATEPROJECT.MDLTDS.INSERTFLPTITLEB%TEMPLATEPROJECT.MDLTDS.INSERTFLZTITLEC%TEMPLATEPROJECT.MDLTDS.INSERTFORTITLED%TEMPLATEPROJECT.MDLTDS.INSERTSECTITLEE%TEMPLATEPROJECT.MDLTDS.INSERTTBLTITLEF%TEMPLATEPROJECT.MDLTDS.INSERTTCSINDEXG%TEMPLATEPROJECT.MDLTDS.INSERTTEXTNOTEH%TEMPLATEPROJECT.MDLTDS.INSERTTHITITLEI%TEMPLATEPROJECT.MDLTDS.MARKINDEXITEMSJ%TEMPLATEPROJECT.MDLTDS.UPDATEFIELDTCSK&TEMPLATEPROJECT.MDLTDS.INSERTCHARACTERL&TEMPLATEPROJECT.MDLTDS.INSERTFLTTITLE1M&TEMPLATEPROJECT.MDLTDS.INSERTFLTTITLE2N&TEMPLATEPROJECT.MDLTDS.INSERTFLTTITLE3O&TEMPLATEPROJECT.MDLTDS.INSERTFLTTITLE4P&TEMPLATEPROJECT.MDLTDS.INSERTFLTTITLE5Q&TEMPLATEPROJECT.MDLTDS.INSERTINDEXPAGER&TEMPLATEPROJECT.MDLTDS.INSERTPARAGRAPHS&TEMPLATEPROJECT.MDLTDS.PRINTPREVIEWTCST&TEMPLATEPROJECT.MDLTDS.PROCESSFONTPAGEU&TEMPLATEPROJECT.MDLTDS.SHOWFRMDELINDEXV'TEMPLATEPROJECT.MDLTDS.GETINDEXTITLEALLW'TEMPLATEPROJECT.MDLTDS.INSERTFIGTBLNOTEX'TEMPLATEPROJECT.MDLTDS.INSERTFIREXAMPLEY'TEMPLATEPROJECT.MDLTDS.INSERTMULEXAMPLEZ'TEMPLATEPROJECT.MDLTDS.INSERTREFERENCES['TEMPLATEPROJECT.MDLTDS.SHOWFRMMARKINDEX\(TEMPLATEPROJECT.MDLTDS.DELBEOFOREMARKALL](TEMPLATEPROJECT.MDLTDS.INSERTEQUATIONNUM^(TEMPLATEPROJECT.MDLTDS.INSERTFIFTHTTITLE_(TEMPLATEPROJECT.MDLTDS.INSERTFIRSTTTITLE`(TEMPLATEPROJECT.MDLTDS.INSERTFORTHTTITLEa(TEMPLATEPROJECT.MDLTDS.INSERTTEXTFIRNOTEb(TEMPLATEPROJECT.MDLTDS.INSERTTEXTMULNOTEc(TEMPLATEPROJECT.MDLTDS.INSERTTHIRDTTITLEd)TEMPLATEPROJECT.MDLTDS.INSERTFIGTBLFOOTERe)TEMPLATEPROJECT.MDLTDS.INSERTSECONDTTITLEf)TEMPLATEPROJECT.MDLTDS.PROCESSINDEXFORMATg*TEMPLATEPROJECT.MDLTDS.DELETEDUPLICATEMENUh*TEMPLATEPROJECT.MDLTDS.GETINDEXTITLESIGNLEi*TEMPLATEPROJECT.MDLTDS.INSERTFIGTBLFIRNOTEj*TEMPLATEPROJECT.MDLTDS.INSERTFIGTBLMULNOTEk*TEMPLATEPROJECT.MDLTDS.INSERTFLEQUATIONNUMl*TEMPLATEPROJECT.MDLTDS.RESORTINDEXBYASCENDm+TEMPLATEPROJECT.MDLTDS.INSERTEXAMPLECONTENTn+TEMPLATEPROJECT.MDLTDS.PROCESSONEPAGEHEADERo+TEMPLATEPROJECT.MDLTDS.PROCESSTWOPAGEHEADERp+TEMPLATEPROJECT.MDLTDS.UPDATEEQUATIONNUMTCSq,TEMPLATEPROJECT.MDLTDS.INSERTFIGTBLFIRFOOTERr2TEMPLATEPROJECT.MDLTDS.GETINDEXTITLEBASEDONUNTITLE@葅X"`` `````LUnknownG* Times New Roman5Symbol3. * ArialA犽 BCambria Math;褳SOSimHei7.爗 @Calibri;媅SOSimSun 萉h:<':<'+x>+x>呦闳qZ&!),.:;?]}    & 6"0000 0 0 00000 =@\]^([{  0 0 00000;[7i0""さ2狞)?'**!xxh芉 T饄CNIS Lenovo UserT         鄥燆鵒h珣+'迟0x  4 @ LX`hp 标准名称CNIS Normal.dotm Lenovo User2Microsoft Office Word@寙G@.W灉0@.W灉0+x胀諟.摋+,D胀諟.摋+,|8   (0zle>" ([c _PID_HLINKSKSOProductBuildVerA~7p_Toc3069614417m_Toc3069614477j_Toc3069614447g_Toc3069614447d_Toc3069614447a_Toc3069614477^_Toc3069614447[_Toc3069614447X_Toc3069614447U_Toc3069614467R_Toc3069614447O_Toc3069614447L_Toc3069614447I_Toc3069614457F_Toc3069614447C_Toc3069614447@_Toc3069614447=_Toc3069614447:_Toc30696144277_Toc30696144071_Toc3069614392052-10.1.0.5345  !"#$%&'()*+,-./0123456789:;<=>?@ABCEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdfghijklmnopqrstuvwxyz{|}~Root Entry F性J粶0Data DA1Tablee7WordDocument SummaryInformation(DocumentSummaryInformation8Macros^40粶03粶0VBA0粶03粶0dirvFrmFL  D#frmJz  ClsTds   !"#$%&'()*+,-./0123456789:;<=>@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijlmnopqrstuvwxyz{|}~r祤0* pHdTemplateProjectQH@  = | 醀 J< 9stdole>stdoleP h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\system32\e2.tlb#OLE Automation0僂Offic凟圤fic侲瀫攢丒2DF8D04C-5BFA-101B-怋DE5EAAC42圗榞ram Files\@CommonMicrosoft Shared\OFFICE14\MSO.DLL#僊 11.0 Ob伭 Lib0raryKMSForms>SFms3452EE1-E08"F0A-8-02608C4D0BB4SFM20L'B 繽&/;"1僯IqAHq00}#0Bq# 50 劺A98EA88B4-E55D-470D-B0209809CAB 42@茐Users\libin\AppData\@Local\粱\VBE@b6.exdHc;!.E 忇.``孧 磥谻楴〡galC籒刦a阑( *\咰 醀佷傛B蚑hisDocumentGUT牢i|D@cDuen乐 2` H闸1x",""+MdlTds奊 M`zlThs2  錛! –ls C)s 彛  O T4 ( FrmAddFooU.AmA doob.+25仁 麹丒Cho楪%C@Ao脴m2@嫮0媛x"Contg﨏`QaP%Q"$"+莎M"ip!frm纙eG"4Da3eQ&2oEo涱q癮eleteIndexG UEe燭eI`sdm犔x25忱.5>&p#PEditc,#E=`,i d,2'? 愭? 眳0 FLGB"2FL&2z~0 rsFLBS隮"Bt Y"I)牽$TypP*'ATyp!o? 嵃=!蝢? Jz+鳭z?d3l@pMarkt21lM釥:rk921O3l35 ]m21 1TaTbl1TP bヲ;:2?e;E[t&_t-{[U q]U0!wLq]fs]oE1?!属Q P|Xd0|t~0xMEPSPSSS<<<<0 0{467C659E-F945-4571-A386-A7B5059B1C87}{4EBC29A3-9575-433D-9795-667E96784A41} " @ $ `勣   `). 8@+beg%i2 tion  %侢 %@`@`@`(@`P` "  " ( &0X $` F 4   (  4H @ F $ *0 ` Bx H ( .0 ` :x , 2 2  X x   &   0H &`    4 8@HPX`hpx 0  ( @ ` p    0@ H Xh p   &  &  ( 8  X  p      (   &(  P ,` , .  F  H X x          > @ H "P X p    "    "      A@ro`@]zle,2008-8-27,*1,注销掉错误捕捉> zle,2008-8-27,+1,取消文档保护x@ If Not (ActiveDocument.ProtectionType = wdNoProtection) Thend- ActiveDocument.Unprotect "zhangcheng" End If'J!zle,2008-10-8,+begin,新的附录增加.' Selection.GoTo wdGoToLine, wdGoToLast:' If ActiveDocument.Bookmarks.Exists("BKCKWX") Then@' Selection.GoTo what:=wdGoToBookmark, Name:="BKCKWX"' Selection.HomeKey#' Selection.MoveLeft , 1 ' Else<' If ActiveDocument.Bookmarks.Exists("BKSY") ThenB' Selection.GoTo what:=wdGoToBookmark, Name:="BKSY""' Selection.HomeKey'' Selection.MoveLeft , 1' Else3' If Selection.Style = "终结线" Then&' Selection.HomeKey+' Selection.MoveLeft , 1,' Selection.TypeParagraph' End If' End If' End If' Selection.EndKey ' Selection.TypeParagraphzle,2008-10-8,+endzle,09-06-21,+begin 4!! . %,  StandardName B@ b B@2k`kXzle,09-06-21,+end-zle,2008-10-8,*bgein,注释掉原来增加附录的方式 !B@ !附录标识 4%99 99999999性附录)C@q` !附录标识 !d性附录)在附录中间插入 B@ld 在最后插入   B@BKSY 4!% BKSY B@ B@^ B@lkxBKCKWX 4!% BKCKWX B@ B@^ B@lkk !终结线 B@^ B@4 B@ld B@2 B@4kzle,2008-10-8,*end 附录图标号 4% ( Selection.TypeText "图编号" B@4 附录表标号 4% ( Selection.TypeText "表编号" B@4附录标识 4% ( $ B@  !8 (规范性附录) B@ dX(资料性附录) B@ k0 $ B@ !zle,2008-10-8,*1,注释掉加入的文字  !d B@ zle,2008-10-7,+2,向下延伸出一行 B@4% Selection.MoveLeft wdCharacter, 1& 'zle,2008-10-8,*1,注释掉选中的文字( Selection.HomeKey , Extend:=wdExtend A@r?zle,2008-9-24,+1,运行定时更新域,以便能够及时得更新附录公式编号 4! !DWC@ 99qpA@ DW B@DW 4%B@'J| >'J A@r4不能在编辑封面时添加附录,请将光标移出封面再添加附录A@o  !d$$  ("dx  ("k`oX . A@$ k0o(`  ("  B@ oZAttribute VB_Name = "Frm FL" 郆asp0{467C659E-F945-4571-A386-A7B5059B1C87}{4EBC29@A3-957J33D-9795-667E9678 4A41} 菺lobal嘢pa俢oFalse CreatablPredeclaId蠺ru BExpose0Templat@eDerivCustomiz婦`P Sub cmdCancel_Click() Unload bMLEndOk Dim MoveBK As S輓g''zle,2008-8-27,*1,⑾舸砦 蟛蹲絻On Error G oTo eha8ndl!$ +1,取消文档保护 'A If Not (ActGDocument.ProteonT剏pAfwdNo) ThenUnp "z槔$gc@ g噦AHLIf0CInc8ess唚010-8,+begin,新的附缆荚黾 BQA Sel,.侰wdLine, qast @>L-Bookmarks.Exists("BKCKWX";FQhat:=撁E, A:=HomeKeyA奓eft , 1I EB'J&骭ASY$@ -!`7U徰@Sty聢"终结线"#at/!gParagr鴄ph#a7/g`蘁g !mje nd q09-006-21$nDtf 琫Fo薸elds.Count p> 10$.!3Inf@ation(wd PageNumber)}1,! 'C{mS鈚@燼rd醤&鄠醿 ?搃"q&偟聰*bge罃注释礰粼柕0姆绞D'Find.Clear!)atti吚Wi豻h G.E]2bK标识"j .wJV&W*PwdStopc ?Mat鴆hCc凾wWholeWor揾y By= 髚莲Wildc a S'dsLi苉X+All e_ ^ec亽TDex怺"性Q ̄ヾ# 1S逨" A唄q#-'在a中兰洳迦脬 {谾8CPu 坐詈箫r{opip5 $OpBK榖q咖 9=b蠤.XkW5: } 倎   ` u?,n11.a '0 哜g@O 2U?XSHUC%疦le仱N图标号罭注~[b8"  縪 8W卤bEV頍n.表睙鑱髮I^MChr( 11a@%OptGF.ValueLw "(规穨=R搂 1oa讀柿蟤`R卾O  "毙加入@的文字petxtTitxle.SS:7,+2,向下延伸出一|行S <&2wdCh馂cterC篈 选中忰 ;惥Ext1?Q艙 S8鐄i,2008-9-24,+1,运行定时更新域,以便能够及时得T附脊奖嗪 With ActiveDocument.Bookmar ksDL.Add Range:=Sele`on.A , Nam"DW"0DefaultSorting = wd ByLocation+ShowH idden'Tr剈eEnd  UpdateFieldTCS奊oTo wh繿t:=wdbO晇(乣).Dot凘InProcessKFalsLxit Suberrorhandle:JUnload M!MsgBox "不能诒嗉饷媸碧砑,请将光@标移出 賲 '5 肁I"Priv繦& txtTitle_C'ge()'f Trim(.Text) <> "" The坋CmdOK.Enabled f烣B羻 J@pIf(KeyDown(@ByVal @Code As MSForms.ReturnInt@eger, S餳iftA 8EP= 13L5c@5k繽ClickCD罯!(User _Initializ嚻R>哤SetF勒移ixMEPSPSSS<<<<0 0{83CECE98-3FC1-4473-8B7F-F3EEB1FA433E}{0880B6AF-2C34-4010-890A-C762B427214D}H " @ $ , ). %i2  @ xpH%侢x %@0@ Ca@@Hx  "  (8 "@H P `p " x  "  x'b & !d'b A@ro@@'b & !d'b A@ro . A@$ k`oX \ !!d \!& (dd \!& (dkoAttribute VB_Name = "frm Jz" 郆asp0{83CECE98-3FC1-4473-8B7F-F3EEB1FA433E}{0880B6AF-2C34-4010-890A-C762B427214D} 菮Global嘢pacoFalse 奀reatablPredeHclaId蠺ru BExpose0TemplateDerivCustomiz婦 Option 1lici纓P#' Sub cmdCancel_C亐k() 纆_SYGS TxtJZ.T ex% Unload MiEndS)1OkW/t$z_KeyDown(ByVal @Code As MSForms.ReturnInteger, 郤hiftA D? 5IfF= 13 Then肍AM嚺4>If 訞User!_Ac8tiv_Zg_MarkOrAlnl\M偪.G]Seleon.R衋ngecE偋("剆+L#      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~靝0騬qOm4 N梇$纍‵槸;Lp*窟*=鸂h8+3q珴△鲕JI籧ㄡ編鴘xME$ @SS Sj`|`6k< < <<>@ %*# ( ??@ %*%8 8 @@@ %*'h @(0 AA@ %*) H4` BB@ %*- P@ CC@ %* XL DD@ %*/( `X EE@ %*UX   FF@ %*1 hdP GG@ %*W  HH@ %*3 pp II@ %*Y$ JJ@ %*5Hx|KK@ %*7x@LL@ %*[0pMM@ %*9NN@ %*]<OO@ %*;8PP@ %*_hH0QQ@ %*=`RR@ %*aTSS@ %*?TT@ %*c(`UU@ %*AX VV@ %*elPWW@ %*CXX@ %*g xYY@ %*IZZ@ %*mH8[[@ %*Kx@\\@ %*o@p]]@ %*M^^@ %*qH__@ %*E8``@ %*ih(0aa@ %*G0`bb@ %*kPcc@ %*OXdd@ %*s(`ee@ %*QXh ff@ %*upPgg@ %*Sxhh@ %*ii@%*3jj@ `P )凅px%i凈   `$)凅%i凈  ``()凅%i凈  0`, )凅d%i凈  `p0)凅%i凈  @`4)凅 %i凈  `8)凅%i凈  P`<)凅(0%i凈  `@)凅%i凈  ` `D )凅8@p%i凈    `H )凅%i凈   p `(L )凅HP%i凈   `P )凅%i凈 0  `8T $)凅X`%i凈  `X :)凅%i凈  `H\G)凅hp%i凈  ``L)凅%i凈 % `Xdd)凅x%%i凈  (`h h)凅%i凈 0  `hlq)凅%i凈  "8`py)凅%i凈  $`xt})凅%i凈 ' &H ` x )凅 ( 9%i凈  ( ` |)凅 9%i凈  *X!`! )凅0!8!9p%i凈 9z ,!`!)凅!!%i凈 呺Q .h"` ")凅@"H"r%i凈 j 0"`")凅""9%i凈 F$ 4x#`0#9)凅P#X#(\%i凈  6$`# >)凅##9r%i凈 9| :$`@$K)凅`$h$%8)%i凈  <%`$O)凅$$9b%i凈 9l >% `P% W)凅p%x%@*%i凈 %H @ &!`%! [)凅%&%i凈 9^ F&"``&"e)凅&&9t%i凈 9~ H'#`&#j)凅'' F%i凈  `凧 h(`凩不能`凬8(`凱条文 d($`'$)凅'''%i凈  f(%`X(%)凅x((====%i凈 ==== h()&`(&%)凅)) ==%i凈 zle, j)'`h)'))凅))====%i凈  l8*(`)(1)凅**%i凈 ==== n*)`x*)5)凅**标题%i凈 rn: pH+*`+*=)凅 +(+%i凈 ==== t++`++A)凅++(%i凈 样式 vX,,`,,I)凅0,8,====%i凈 “三 r,-`,-L)凅,,zle,%i凈 ate xh-.` -.T)凅@-H-%i凈  |-/`-/ X)凅--====%i凈 ==== ~x.0`0.0a)凅P.X.rn:%i凈 ted: z/1`.1e)凅..====%i凈 ==== /2`@/2m)凅`/h/样式%i凈 ==== 03`/3 p)凅//“五%i凈  == 04`P04z)凅p0x0ate %i凈 ==== 815`05)凅01%i凈 不能`勨x 16`x16)凅11$==%i凈  `27`27QQ)凅 2(2 ==%i凈 M==`勣==== 28`28)凅22 %i凈 不能 p39`(39 )凅H3P3====%i凈 酶袷 3:`3:)凅33zle,%i凈 ate 4;`84 ;)凅X4`4%i凈 ( 5<`4< )凅44====%i凈 ==== 5=`H5= )凅h5p5rn:%i凈 ted: 6>`5>)凅55====%i凈 ==== 6?`X6?HH)凅x66%i凈 ====`勣==== @7@`6 @])凅7 7:%i凈  7A`7$Aa)凅77====%i凈 ==== P8B`8(Bi)凅(808%H%i凈 9N 8C`8,C n)凅88b%i凈 9l `9D`90Dw)凅89@9%i凈  9E`94E {)凅99$%i凈 r p:F`(:8F)凅H:P:9x%i凈 9 :G`:M`=TM)凅>>9v%i凈 9 >N`h>XN)凅>>9N%i凈 9 8?O`>\O )凅??j%i凈 9t ?P`x?`P)凅??F$%i凈  H@Q`@dQ)凅 @(@08-1%i凈  Err 蠤R`園hR)凅ˊ癅%i凈 处理 XAS`AlS)凅0A8A%i凈 ! 郃T`楢pT)凅窤繟%i凈 %zl hBU` BtU)凅@BHB%i凈  養V`˙xV )凅菳蠦ng %i凈 潮呔 xCW`0C|W)凅PCXC%i凈  DX`窩X")凅谻郈 %i凈 zhan 圖Y`@DY6)凅`DhD取消%i凈  K 菵Z`Z< PE[`E[K)凅(E0E ==%i凈 == 谽\`怑\S)凅癊窫====%i凈 ==== `F]`F]X)凅8F@F不能%i凈 ==== 鐵^`燜^ \)凅繤菷酶袷%i凈  == pG_`(G_e)凅HGPGate %i凈 ==== 鳪``癎`m)凅蠫谿 %i凈 不能 Ha`8Haq)凅XH`H====%i凈 酶袷 Ib`繦by)凅郒鐷zle,%i凈 ate 怚c`HIc})凅hIpI%i凈   Jd`蠭d)凅餓鳬%i凈  燡e`XJe)凅xJJ9p%i凈 9z (Kf`郕f)凅KK%H%i凈 9N 菿g`hKg )凅圞怟9`%i凈 9h`匂 9n hLh`Lh)凅(L0L9%i凈 J`匂 Mi`↙i,,)凅萀蠰9^%i凈 9f`匂 9l 怣j`HMj)凅hMpM@B%i凈 %H  Nk`蠱k)凅餗鳰%i凈 9`  燦l`XNl) xNN9v%i 9  m`D郚m ) O9N%`勡汘` 橚 ` 桛 Z` 慆r  岨O9f %`剎婠9n`劼 [9t` O9z` 9P鐿%x 0ph"5 HP8 怚()p3@/8 xX,$81H /養4278x $8 蠤hL8h ( 1H+`F(Kp:+"N``9h 8? !< %XA菿>% H HxCXP`2燦 怣(谽8鐵00x#hD( xx(pG(鳪@7 8*X 燡 x.MXX!(H8 ( X   H-98(&3:=X &H<(> 郃H h5圖菵Jh'h-;PE(*(xH@?=h)8,6IhhB 8XX6凗XU$%*x 0ph"5 HP8 怚()p3@/8 xX,$81H /養4278x $8 蠤hL8h ( 1H+`F(Kp:+"N``9h 8? !< %XA菿>% H HxCXP`2燦 怣(谽8鐵00x#hD( xx(pG(鳪@7 8*X 燡 x.MXX!(H8 ( X   H-98(&3:=X &H<(> 郃H h5圖菵Jh'h-;PE(*(xH@?=h)8,6IhhB 8XX6@[POhO燨8O蠴 Om@[  x8[%郹@郹0JL$ 郹t 郹  x燵%x 0ph"5 HP8 怚()p3@/8 xX,$81H /養4278x $8 蠤hL8h ( 1H+`F(Kp:+"N``9h 8? !< %XA菿>% H HxCXP`2燦 怣(谽8鐵00x#hD( xx(pG(鳪@7 8*X 燡 x.MXX!(H8 ( X   H-98(&3:=X &H<(> 郃H h5圖菵Jh'h-;PE(*(xH@?=h)8,6IhhB 8XX6  x豟%0h(p @l 爅h @d @` @\ @X @T @P @@ @0 @ `b@ @ @瘙 @@帼 纀@玄 @俐 0h件 @@ 0h滯 @堽 @匎 窯x 0ph"5 HP8 怚()p3@/8 xX,$81H /養4278x $8 蠤hL8h ( 1H+`F(Kp:+"N``9h 8? !< %XA菿>% H HxCXP`2燦 怣(谽8鐵00x#hD( xx(pG(鳪@7 8*X 燡 x.MXX!(H8 ( X   H-98(&3:=X &H<(> 郃H h5圖菵Jh'h-;PE(*(xH@?=h)8,6IhhB 8XX6Xh >豜|c`H  榟 ╤xHh`R Pk&窺`kh @X 8@H $@8 txt@( @ lhhi <@ j椠 @佚 @三 @庚 @ D@橗 @堼 @jx @h 爅@X @H om@8 P[&HT`k4 @0 @, @( @$ @ Hk`xk{O坘 爇~纊 発~(鄈筟ll餶 豮`lHl  0lSO Pl )ll@lupl媅SOlhl`(N榣╨ 纋鄉 衛crosofm0 Formm鴏` V>cnnk鐿燦鐿0U*\R3*#92*\R1*#17c撺  0@ Xh     0 P`     "0 H *X       ( 8 H X x          ( 8 H X h     " 0"P x   ( 8 P ` x     0@ Xh     0 P`     L( x L L N Np N N N`  N N Np N N ` h Jp H  " 48 6p    4 4 8 P `" px" 0 " " 0 PX`hp x" 0 " ( $0" X`p" x0   ` 2p   b ^(    :  .( X p    "  " 0@HPX` "h"  "   2  (08 @ 0X ,   0P Xp x, " 0 (0P`x " 0  & 0@ (Hpx  " 0 @ Xhp x"  0" 0 ( 20 h$x  , $(Ppx  "  " 0 (08 @" P0X "  "  (" (00`hpx  &"  ," 0 PX`hp x ."   ( `( ^  ! (! 8! P! `! ! ,! b! ^ " " " " " " " # 0#" @#H#X# ,`#" #0###### # "$ `8$ ^$ $ % 8% H% `% p% &% d% ^& x& & & & & & &' d0' ^' ' ( 8( H( `( p( ( ( f( ^ ) ) ) ) ) ) * f* ^p* * * +  + @+ P+ fX+ ^+  , @, `, p, , , f, ^- p- - - - - - f- ^`. . . / / 0/ @/ H/ f`/ / / *0 (00 X0 h0 fp0 0 0 *1 (@1 h1 x1 f1 1 2 * 2 (P2 x2 2 f2 2 3 *03 (`3 3 3 3 f3 4 04 *H4 (x4 4 d4 ^5 x5 5 5 5 5 5 " 66 6 ,(6" X60`66666(66 677 7 (7" @7H7X7 `7" 70777777 7" 778 ,8" @80H8x888*8<89 9" 9(989 0@9" p9x909999 69:: ,0: `:h:p: x: $::: ::; ;(;0;8; D@;;;; ;;;; < T <x< << < < < < < < < T=h= x== = = = == ====> >(>@>X> p> T>> >> ? ? (? @? H? X? `? Tx?? ?? @ @ @ @ @ (@@@H@P@h@ p@怈ˊ繞T谸 0A@A HAXA`AxA怉 楢ˋ癆T華  B0B 8BPBXB`BhBpBxB怋  楤 窧 $菳 0養 4 C .XC h圕 餋 bD FxD 繢 (谼 *E 0E *HE *xE H‥ 餎 FF0F@FHF`F xF團 楩窮 蠪郌鳩 G G G0G 8G  XG hG xG 怗 癎 菺 2蠫H (H 8HPHXH`HhHpHxH怘 楬 癏" 繦菻豀 " 郒0鐷I I(I0I8I " @IHIXI " `I0hI業營↖癐窱 " 繧菼豂 " 郔0鐸J J(J0J8J " @JHJXJ " `J0hJ楯燡↗癑窲 繨" 豃郕餔" 鳭0K0K8K@KHKPK XK" hKpKK 圞" 楰0燢蠯豄郖 鐺L L" L(L8L @L" XL0`L怢楲燣↙癓 " 窵繪蠰" 豅0郘MM M(M0M 8M" HMPM`M ,hM 楳" ∕0癕郙鐼餗鳰N0N HN XN`N *hN楴∟ 癗繬 萅 郚" 餘鳱O ,O" @O0HOxOO圤怬極燨 (窸郞 PP (8P `P hP 0pP燩 6≒ 郟P鳳 HQ XQ  8hQ 燪X≦ R R  R(R 0RHR PRhR R怰 癛 繰蠷 郣鳵S 0S@S PS`ShS圫怱$楽 繱 (豐 T T@T  XThTxT 怲燭繲萒蠺 豑 鑄鳷 U U (U8U HUXU`UhU pU 2圲" 繳萓豒 " 郩0鑅V V(V0V8V @V (XV" V0圴竀繴萔蠽豓 " 郪鑆鳹 *W" 0W08WhWpWxWW圵 怶 " ╓癢繵 萕" 豔郬餡 ,鳺" (X00X`XhXpXxXX圶 (燲萖 鑈Y ( Y HY PY 0XY圷 X怸 鑉 鳼Z Z(Z 0ZHZhZ Z怹 ╖萙 豘鑊[[ 8[H[ X[h[p[怺榌$燵 萚 (郲 \ (\H\  `\p\\ 榎╘萛衆豛 郳 餦]](] 0]@]P] X]h]p] x] 怾" 燷╙竇 繻" 衇0豜^^^ ^(^ 0^" @^H^X^ ,`^" 恀0榐萟衈豝郶鑎 館 _" _(_8_ @_" `_0h_榑燺╛癬竉 繽" 衉豞鑏 餩" `0`@`H`P`X``` h`" x``恅 榒" 癭0竊鑐餪鴃aa a" a(a8a @a" Xa0`a恆榓燼╝癮 竌" 萢衋郺 鑑" b0b8b@bHbPbXb `b" pbxb坆 恇" ╞0癰郻鑒餬鴅c c" c0 cPcXc`c  hc c恈榗 燾╟ 癱萩鑓dd d(d" 0d8dHd " Pd0Xd坉恉榙  燿 竏萪衐 豥郿 鑔e e8e@eXe`e " hepee " 坋0恊纄萫衑  豦 餰ff ff  f8fXfpfxf恌榝 " 爁╢竑" 纅0萬鴉gg  g (g8g@g HgPg Xgpg恎╣癵萭術 " 豨鄃餲" 鴊0h0h8h@h  Hh `hphxh h坔 恏╤萮鄅鑘ii" ii(i 0i" PiXi"`i &坕癷衖豬鄆鑙餴鴌j j (j" 0j08jhjpjxjj坖 恓" ╦癹纉 萰" 豭鄇餵 鴍" k0kHkPkXk`khk 0pk" 爇0╧豮鄈鑛餶鴎 " lll " l0(lXl`lhlplxl " l坙榣 " 爈0╨豯鄉鑜餷鴏 " mmm . m Pm" `m0hm榤爉╩癿竚 續" 豰鄊餸 鴐" nn n 0n@nHn Pn`nhn pn xn" 恘0榥萵衝豱鄋鑞鴑 oo o (o 8oPo`ohopo 4xo" 皁0竜鑟餺鴒ppp p0p@p Hp Xpppp坧恜 榩 皃 衟 f鑠 6Pq 坬 榪 0爍 f衠 ^8r 榬 竢 豶 鑢 ,s &8s `s s (恠 竤 豷 鑣 鴖 t (t" 8t0@tptxtt坱恡 榯" 皌竧萾 " 衪 ,豻8u@uHu Pu Xu &xu B爑 鑥 2v 8v "竩 鄓 鴙 w ,w X@w "榳 纖 豾 鑧 " 鴚x *x88xpxxxTx 豿鄕鑨 饃鴛yyy y (y@yHy Py (5Xy ay "爕 皔纘 葃 )衴 鑩 ,z &8z *`z 恴 ,皕I鄗;{0{ )0{@{ BH{恵$爗 8|@|H|P|$0`| 坾恷榺爘0皘 衸貄鄚 鑭}}} }(} ,0}5`} }坿 恾 0皚3鄛  *~ 0~@~H~ .P~ ~$<悀 竳 葉 貇"<鑯 "< H(P +p   D 竴纮 葊;鑰 +皝纴 4葋3  +@2P` h 3垈 ▊ +競葌 袀 饌鴤(8A@X "`p:b垉  葍貎 鄡 饍"  (0(8AXp "x垊:b爠  鄤饎 鴦 " 08@ H VXx垍悈(槄A竻袇 "貐鑵:b  @P X h"x 悊槅爢  V▎葐袉 4貑 *@ HP X` h @(垏 fh葒0 +8HFP h < p .皥 鄨 $饒: (08 @H PpFx 悏槈 爥缐 葔袎 貕鄩鑹饓0i鴫(00i8 h px 悐"要素及排版"按钮] 蚰4封面] 蚰8H] 蚰h4目次] 蚰] 蚰4前言] 蚰] 蚰(4引言] 蚰X] 蚰4附录] 蚰] 蚰4参考文献] 蚰] 蚰H4索引] 蚰xX] 蚰4 标记索引项] 蚰] 蚰4 删除索引项] 蚰8] 蚰h4双面排版] 蚰 %] 蚰4打印预览] 蚰] 蚰(4编写规则] 蚰Xzle,09-06-26,+增加"打印"按钮] 蚰7打印] 蚰$zle,09-07-02,+增加"保护"“取消”按钮] 蚰9保护] 蚰] 蚰H"层次标题样式"按钮] 蚰x4章标题] 蚰] 蚰5条标题] 蚰] 蚰8] 蚰h] 蚰] 蚰5条标题快捷按钮] 蚰] 蚰(] 蚰X] 蚰] 蚰5非标题条] 蚰] 蚰] 蚰H] 蚰xü] 蚰6非标题条] 蚰] 蚰 ] 蚰8 ] 蚰h ] 蚰 7段] 蚰 ] 蚰 7列项] 蚰( ] 蚰X ] 蚰 ] 蚰 7 首字母编号] 蚰 7首字母编号快捷按钮] 蚰 ] 蚰H 7 首数字编号] 蚰x 7首数字编号快捷按钮] 蚰 ] 蚰 7 列项快捷按钮] 蚰 ] 蚰8 ] 蚰h ] 蚰 ] 蚰 "要素内容样式"按钮] 蚰 7示例] 蚰( ] 蚰X 7多示例] 蚰 ] 蚰 7首示例] 蚰 ] 蚰7示例内容] 蚰H7正文注] 蚰x] 蚰7正文注×] 蚰] 蚰7正文首注] 蚰8] 蚰h7图表注] 蚰] 蚰7图表注×] 蚰] 蚰(7图表首注] 蚰X] 蚰7条文脚注] 蚰] 蚰7图标题] 蚰] 蚰H7表标题] 蚰xd] 蚰7插入表格] 蚰 ] 蚰7图表的脚注说明] 蚰8] 蚰h7图的首脚注说明] 蚰9] 蚰7插入公式] 蚰rdName] 蚰(7公式编号] 蚰X ] 蚰7更新公式] 蚰标准名zle,09-06-17,*begin!%EPublic WithEvents CmdFlZTitle As CommandBarButton '附录章标题EPublic WithEvents CmdFlPTitle As CommandBarButton '附录图标题鑕EPublic WithEvents CmdFlBTitle As CommandBarButton '附录表标题====GPublic WithEvents CmdFlTTitle1 As CommandBarButton '附录一级标题GPublic WithEvents CmdFlTTitle2 As CommandBarButton '附录二级标题==GPublic WithEvents CmdFlTTitle3 As CommandBarButton '附录三级标题==GPublic WithEvents CmdFlTTitle4 As CommandBarButton '附录四级标题08GPublic WithEvents CmdFlTTitle5 As CommandBarButton '附录五级标题 '附录非标题being,HPublic WithEvents CmdFlTTitle1F As CommandBarButton '附录一级标题HPublic WithEvents CmdFlTTitle2F As CommandBarButton '附录二级标题HPublic WithEvents CmdFlTTitle3F As CommandBarButton '附录三级标题HHPublic WithEvents CmdFlTTitle4F As CommandBarButton '附录四级标题HHPublic WithEvents CmdFlTTitle5F As CommandBarButton '附录五级标题22CPublic WithEvents CmdFlBs As CommandBarButton '附录标识BPublic WithEvents CmdShowHelp As Office.CommandBarButton '显示帮助'增加附录公式和公式格式按钮StdN-Public WithEvents CmdFlGS As CommandBarButton!/Public WithEvents CmdFlGsGs As CommandBarButton '插入索引-Public WithEvents CmdCRSY As CommandBarButton.Public WithEvents CmdCRSYC As CommandBarButtonzle,09-06-17,*end] 蚰"参考文献 Aop V 4!!$(预览)'VA@>k A@o段  Ao V 4!!$(预览)'VA@>kA@ozle,2008-7-18,增加多个示例0 V 4!!$(预览)'VA@>kA@o多个示例快捷按钮  Aonozle,2008-10-4,+增加标记索引项lect@ Aeao V 4!!$(预览)'VA@>k8A@o(zle,09-06-07,*beginwdSeek 插入索引内容( ZPrivate Sub CmdCRSY_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean), Call CmdCRSYC_Click(Ctrl, CancelDefault)End Sub [Private Sub CmdCRSYC_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)护 0W If g_ZMFirst = 1 And Right(ActiveDocument.ActiveWindow.Caption, 4) <> "(预览)" Then== g_ZMFirst = 0 ProcessEdit姆饷胬 End If3 If ActiveDocument.Bookmarks.Exists("BKSY") Theneated: Else' MsgBox "请先插入“索引”页面!"== Exit Sub== End If ProcessIndexFormat====End Subzle,09-06-17,*endzle,2008-11-2,更新公式按钮P Ao  V 4!!$(预览)'VA@>k A@o zle,09-06-26,+增加"打印"按钮(Z` A oP >@ ,zle,090709,+begin 增加书签,以便回到原来位置e 4! !PRTBKC@ 99q zle,090709,+end V 4!!$(预览)'VA@>k` A@4 处理封面为打印状态,不允许在编辑zhanzle,090709,+4,回到原位B@PRTBK 4!%! PRTBK B@PRTBK 4%B@'<k  6%B@===='V|>x打印机错误,请检查打印机TCSA@o@ zle,窗体保护虐嬉趁p V 4!!$(预览)'VA@>kA@ 要素及排版$! == 0!(取消保护 0!(kox V 4!!$(预览)'VA@>k( !A@ Ctrl.State = msoButtonUpan保护文档 0!( (d" Ctrl.State = msoButtonDownA@取消保护 0!( ( kXoPzle,取消窗体保护on V 4!!$(预览)'VA@>kA@ 要素及排版$!面排版保护文档 0!( ( ko zle,打印预览 El AoP*zle,2008-10-4,+begin, 增加打印预览快捷按钮 V 4!!$(预览)'VA@>k,zle,090709,+begin 增加书签,以便回到原来位置谝唤诳 4! ! PRTVIEWTCSC@ 99qHzle,090709,+endA@4 处理封面为打印状态,不允许在编辑A@ PRTVIEWTCS 4!%  PRTVIEWTCS B@ PRTVIEWTCS 4%B@ k'Voxzle,2008-10-4,+end 删除索引项 A o0 删除索引项 V 4!!$(预览)'VA@>kA@o 增加首示例( V 4!!$(预览)'VA@>k`A@oP A o0 增加示例内容8A@o!zle,2008-8-17,+begin,增加正文公式 V 4!!$(预览)'VA@>kA@roxzle,2008-8-17,+endzle,2008-12-2,+增加公式快捷按钮==H A&==o%zle,2008-8-17,+begin,增加正文公式格式tion V 4!!$(预览)'VA@>kA@ozle,2008-8-17,+end'zle,2008-12-2,+增加公式编号格式快捷按钮==X! A*==o zle,09-06-17,*begin======!zle,2008-8-17,+begin,增加附录公式ZPrivate Sub CmdFlGS_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)W If g_ZMFirst = 1 And Right(ActiveDocument.ActiveWindow.Caption, 4) <> "(预览)" Then g_ZMFirst = 0z ProcessEdit9 End If InsertEquationEnd Sub'zle,2008-8-17,+end9&'zle,2008-8-17,+begin,增加附录公式格式索引\Private Sub CmdFlGsGs_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)W If g_ZMFirst = 1 And Right(ActiveDocument.ActiveWindow.Caption, 4) <> "(预览)" Then除 g_ZMFirst = 09 ProcessEdit End If InsertFlGsGsEnd Sub'zle,2008-8-17,+end z zle,09-06-17,*end插入附录印! A0o%zle,2008-9-26,+begin,增加附录快捷按钮h" V 4!!$(预览)'VA@>k  2B@编ozle,2008-9-26,+endzle,09-06-17,附录标识,*begin msoBuZPrivate Sub CmdFlBs_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)W If g_ZMFirst = 1 And Right(ActiveDocument.ActiveWindow.Caption, 4) <> "(预览)" Then g_ZMFirst = 0z ProcessEdit9 End If InsertFlBsP End Sub单zle,09-06-17,*endzle,09-06-17,附录表标题,*begin^Private Sub CmdFlBTitle_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)z W If g_ZMFirst = 1 And Right(ActiveDocument.ActiveWindow.Caption, 4) <> "(预览)" Then g_ZMFirst = 0pup ProcessEdittion = End If InsertFlBTitleEnd Sub9zle,09-06-17,*endzle,09-06-17,附录图标题,*begin!^Private Sub CmdFlPTitle_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)zW If g_ZMFirst = 1 And Right(ActiveDocument.ActiveWindow.Caption, 4) <> "(预览)" Then级 g_ZMFirst = 09 ProcessEdit5! End If InsertFlPTitleEnd Subzle,09-06-17,*endzle,09-06-17,*begin'条标题 _Private Sub CmdFlTTitle1_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)pW If g_ZMFirst = 1 And Right(ActiveDocument.ActiveWindow.Caption, 4) <> "(预览)" Then g_ZMFirst = 0 ProcessEdit.z End If InsertFlTTitle19End Sub _Private Sub CmdFlTTitle2_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)W If g_ZMFirst = 1 And Right(ActiveDocument.ActiveWindow.Caption, 4) <> "(预览)" Then g_ZMFirst = 09 ProcessEdit/ End If InsertFlTTitle2.zEnd Sub9_Private Sub CmdFlTTitle3_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)soW If g_ZMFirst = 1 And Right(ActiveDocument.ActiveWindow.Caption, 4) <> "(预览)" Then = g_ZMFirst = 0z ProcessEdit89 End If InsertFlTTitle35!End Sub_Private Sub CmdFlTTitle4_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)W If g_ZMFirst = 1 And Right(ActiveDocument.ActiveWindow.Caption, 4) <> "(预览)" Then g_ZMFirst = 0z  ProcessEdit z End If InsertFlTTitle49End Sub _Private Sub CmdFlTTitle5_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)!W If g_ZMFirst = 1 And Right(ActiveDocument.ActiveWindow.Caption, 4) <> "(预览)" Then  g_ZMFirst = 0 ProcessEdit End If InsertFlTTitle5End Sub '附录非条标题z `Private Sub CmdFlTTitle1F_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)  InsertFlTTitle1 z ChgToSong9# 'zle,2008-10-8,+1,修改为无标题 z " Selection.Style = "附录一级无"End Sub`Private Sub CmdFlTTitle2F_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean) InsertFlTTitle2 ChgToSong!# 'zle,2008-10-8,+1,修改为无标题9" Selection.Style = "附录二级无"End Sub`Private Sub CmdFlTTitle3F_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)  InsertFlTTitle3090705 ChgToSong# 'zle,2008-10-8,+1,修改为无标题9" Selection.Style = "附录三级无"End Sub`Private Sub CmdFlTTitle4F_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)! InsertFlTTitle49 ChgToSong四级# 'zle,2008-10-8,+1,修改为无标题5!" Selection.Style = "附录四级无"End Sub条`Private Sub CmdFlTTitle5F_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean) InsertFlTTitle5.z ChgToSong# 'zle,2008-10-8,+1,修改为无标题8" Selection.Style = "附录五级无"End Sub^Private Sub CmdFlZTitle_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)zW If g_ZMFirst = 1 And Right(ActiveDocument.ActiveWindow.Caption, 4) <> "(预览)" Then g_ZMFirst = 0字母 ProcessEdit字母 End If InsertFlZTitleEnd Sub!zle,09-06-17,*end" A6o %zle,2008-9-26,+begin,增加封面快捷按钮*x# V 4!!$(预览)'VA@>kX 4!! z 已经插入封面,不可以再次插入!A@d 8B@ Wikozle,2008-9-26,+end图标题正文、附录 $ A< o图标题正文、附录快捷按钮ti$ V 4!!$(预览)'VA@>k0A@o 规则ClsEve% A@o%zle,2008-9-26,+begin,增加规则快捷按钮% V 4!!$(预览)'VA@>kpTCSGraphicPath$'/. \IEXPLORE.EXE   \TdsHelp.htm DA@Bo 添加条文脚注.z & AHo)zle,2008-9-26,+begin,增加条文脚注快捷按钮&> V 4!!$(预览)'VA@>k80zle,2008-12-25,+,当光标在封面时,不允许增加脚注文 4!!  . %, "请将光标移除封面,再进行脚注的增加A@9|kkzle,2008-12-25,!]0'判断问道是否已经被保护]H'`''J如果封面保护,则解除保护 4!  zhangcheng 4B@'Jd'Jk>zle,2008-12-23,+begin,增加判断是增加脚注内容,还是修改脚注内容>'\]x''P1.光标是在脚注编号的左侧 p f B@n !脚注引用 !!d) p B@l9  !!!l  !!!l R !!!l T8 V !(dp X !(kX %!B@H p B@ZF'\ \B@ z'\ b$$ !(d  !!!l  !!!l R !!!l T9  !(d %B@Bzk`'b'P^Hd@ p B@l5!k d p B@l9k2.光标是在脚注编号的中间 p f B@l !脚注引用 !!d) p B@l.z  !!!l  !!!l R !!!l T V !(d X !(k %!B@H p B@Z9'\ \B@/T'\ b$$ !(d×  !!!l  !!!l R !!!l T  !(d %B@B!k?'b'P^?d? p B@n z k?d? p B@n注×k?3.光标是在脚注编号的右侧 p f B@l !脚注引用 p B@l  !!!l  !!!l R !!!l Tz V !(d> X !(k> %!B@H p B@Z!'\ \B@ 首图'\ b$$ !(d  !!!l  !!!l R !!!l T  !(d= %B@B图表k='b'P^=d= p B@n.zkh=说明是要进行增加脚注9 Pz  Selection.MoveLeft , 1图题) Selection.MoveRight , 3, wdExtend- If Selection.Footnotes.Count > 0 Then9(' 'zle,2008-12-9,注释掉弹出框b' TxtFoot = InputBox("请修改后脚注内容", "修改脚注", Selection.Footnotes(1).Range.Text) frmJz.Show9\ If Trim(g_SYGS) <> "" And Trim(g_SYGS) <> Selection.Footnotes(1).Range.Text Then/t@ Selection.Footnotes(1).Range.Text = Trim(g_SYGS)是 End If" Selection.MoveLeft , 1# Selection.MoveRight , 1 要素 Elsev#' Selection.MoveLeft , 1nt>1时$' Selection.MoveRight , 1vB TxtFoot = InputBox("请输入新脚注内容", "添加脚注", "") \B@ b$$ !!d B@lk9)d B@  要 f B@lB@ ` ((  B@l ! 4!%.b f B@l B@z9 b$$ B@ 9  !(k8'b End Ifk8zle,2008-12-23,+end9^ J 菜保护窗体 4%(不让  4!!!  4%(!08 zhangcheng l 4B@浔昙 要素及排版$!D  0!(取消保护 0!(k7k7'J|7>7请正确选中内容A@oh7zle,2008-9-26,+end列项显示保' Af o 7( V 4!!$(预览)'VA@>k6A@ o6( Aj存o6() V 4!!$(预览)'VA@>kP6A@o@6) An!o 68* V 4!!$(预览)'VA@>k5A@o5* Aro5H+ V 4!!$(预览)'VA@>kP5A@o@5首字母列项快捷按钮+ At==o5X, V 4!!$(预览)'VA@>k4A@o4数字列项d:, Azox4 首数字列项h- V 4!!$(预览)'VA@>k4 InsertLx51o3首数字列项快捷按钮- A|o3数字列项快捷按钮x. V 4!!$(预览)'VA@>kX3A@oH3/ A输o(3/ V 4!!$(预览)'VA@>k2A@o2目次发布日0 Ao2%zle,2008-9-26,+begin,增加目次快捷按钮目次标准备0 V 4!!$(预览)'VA@>k2BKML 4!%] 1本文已有目次,是否更新?  $' |1k1#zle,2008-10-10,+1,目次更新的次数加1行业标 ` '`kP1 B@请输o81zle,2008-9-26,+end前言请输81 Ao0%zle,2008-9-26,+begin,增加前言快捷按钮p1 V 4!!$(预览)'VA@>kp0]H2'JBKQY 4!%"zle,2009-1-9,+begin,判断是不是误删 BKQY B@d:说明确实存在 前言 !前言、引言标题本文已经插入前言,不能重复插入A@'J|/*说明是误删了“前言”,导致 前言的 格式丢失dX/ /判断“引言”存在,则将前言的内容删除到 引言 为止BKYY 4!%BKQY 4%!0 0BKYY 4%!0 4%. B@H( B@TCS 1判断“引言”不存在,则将前言的内容删除到 正文 为止dX.BKQY 4%!0 0 StandardName 4%!0 4%. B@H B@ zhank-k-zle,2009-1-9,+endk- StandardName'BKYY 4!%BKYY'4%   B@2009-5 B@^诙峡 B@4辰帕唇 B@lBKML 4!%e StandardName'tion   B@rPrima B@^Previo B@l B@4面中内d,   B@ $A@Lkh,前言、引言标题 4% (处前d B@  "zle,2008-10-10,+2,空两个汉字的距离  B@  B@言d B@ 肷柚 B@^  B@n  f B@n 4!  !BKQYC@1, 99q(+ B@^ B@2B@BKYY 4!% B@4!%d* B@4ICS B@l B@49"k*'Jo*zle,2008-9-26,+end+zle,2008-7-23,+begin 增加设计表格的触发函数C@,`2 Ao *2 V 4!!$(预览)'VA@>k)A@Po)zle,2008-7-23,+end!zle,2008-9-22,+begin,图表脚注说明p3 V 4!!$(预览)'VA@>k0)A@o )3 A2o)#zle,2008-9-22,+begin,图表首脚注说明2008-94 V 4!!$(预览)'VA@>k(A@op(zle,2008-9-22,+end5 Ao8(引言95 Ao(%zle,2008-9-26,+begin,增加引言快捷按钮 T6 V 4!!$(预览)'VA@>k''J]6BKYY 4!%"zle,2009-1-9,+begin,判断是不是误删 BKYY B@xt说明确实存在 引言 !前言、引言标题%本文已经插入引言,不能重复插入A@'J|&*说明是误删了“引言”,导致 引言的 格式丢失dp&BKYY 4%!0 0 StandardName 4%!0 4%. B@HB@h B@5k%zle,2009-1-9,+endk% StandardName'   B@H5BKQY 4!% B@2b`  B@h Selection.HomeKey B@l B@4B@lBKML 4!%e StandardName'4   B@B@h B@^B@^ B@l B@4f d$   B@tA@Lk`$前言、引言标题 4% (Time引d B@ 3"zle,2008-10-10,+2,空两个汉字的距离  B@  B@言d B@ P3 B@^090708 B@n  f B@n 4! !BKYYC@ 99q # B@^KT B@2标准BKQY 4!% B@ld" B@4标准 B@lk" B@4 封面'Jo"zle,2008-9-26,+end示例GB/T6 Azlo@"示例体@7 V 4!!$(预览)'VA@>k!A@o!索引Time7 Ao!%zle,2008-9-26,+begin,增加索引快捷按钮P8 V 4!!$(预览)'VA@>k !A@o!zle,2008-9-26,+end表标题正文、附录me8 Ao 表标题正文附录快捷按钮`9 V 4!!$(预览)'VA@>kP A@o@ 一级条标题9 Ao 一级条标题快捷按钮p: V 4!!$(预览)'VA@>kA@o 二级条标题: Aoh二级条标题快捷按钮; V 4!!$(预览)'VA@>kA@o 三级条标题< AB@o三级条标题快捷按钮< V 4!!$(预览)'VA@>kXA@oH 四级条标题= Ao四级条标题快捷按钮= V 4!!$(预览)'VA@>kA@o 五级条标题(> Arop五级条标题快捷按钮> V 4!!$(预览)'VA@>kA@o非标题条体8? V 4!!$(预览)'VA@>k zle,090812,+3n !r|hk`A@A@ zle,090702,+5! ! 一级条标题.一级无 (9d 附录一级无 (&ko? AtdoH@ V 4!!$(预览)'VA@>k` zle,090812,+3seIf The|0k(A@A@ zle,090702,+5larT ! 二级条标题at:=""二级无 ( .Wd 附录二级无 ( Sko蠤 AIfoxXA V 4!!$(预览)'VA@>k( zle,090812,+3 .W|kA@A@ zle,090702,+5# ! 三级条标题 3 The三级无 ( d 附录三级无 (rTkho`郃 A o@hB V 4!!$(预览)'VA@>k zle,090812,+3"zl 注释|kA@A@ zle,090702,+5ract ! 四级条标题rue四级无 (06-21,dP 附录四级无 ( k0o(養 AoxC V 4!!$(预览)'VA@>k zle,090812,+3Font "Ti|kA@A@ zle,090702,+5 ! 五级条标题06-26,五级无 (d 附录五级无 (= koD Aaro将非标题条的字体变为宋体nt圖>宋体 %!!r(—zle,2008-10-7,+设置段落前后间距  %!! 99 9q|>保护区域不能设置样式A@XXo注菵 V 4!!$(预览)'VA@>kA@<op 注 的快捷按钮PE A8o8章标题@谽 A o章标题快捷按钮型`F V 4!!$(预览)'VA@>kA@o*zle,09-06-13,+begin,增加正文注,注×,首注鐵 V 4!!$(预览)'VA@>kA@opG A1o鳪 V 4!!$(预览)'VA@>kA@oH A9o`I V 4!!$(预览)'VA@>kA@o怚 Ao(zle,09-06-13,+end,增加正文注,注×,首注2注×zlJ V 4!!$(预览)'VA@>kPA@@o@多注的快捷按钮Styl燡 Aleo 是否显示帮助(K]癒 !  (':d (9 ':ko是否进行双面排版l菿 V 4!!$(预览)'VA@>k ]PL ! A@:  ((  0!(d (zle,2008-11-24+1 0!(A@(ko-zle,2008-10-4,+begin,增加“双面排版”快捷按钮9&hL V 4!!$(预览)'VA@>k]餖 ! A@:  (Acti  0!(d (")zle,2008-11-24+14 0!(A@(kpohzle,2008-10-4,+endzle,09-06-17,*begin.Style'是否显示打印状态_Private Sub CmdPrtStatus_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)/ Call CmdTwoPageC_Click(Ctrl, CancelDefault)BSEnd Sub*'zle,2008-10-4,+begin,增加封面预览快捷按钮`Private Sub CmdPrtStatusC_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)W If g_ZMFirst = 1 And Right(ActiveDocument.ActiveWindow.Caption, 4) <> "(预览)" Then放 g_ZMFirst = 0 ProcessEditB@ End If Dim WIni As Boolean& If Ctrl.State = msoButtonDown ThenD Ctrl.State = msoButtonUpN ProcessEdit%L ElseV" Ctrl.State = msoButtonDown ProcessPrintR \ End IfEnd Sub-9zle,2008-10-4,+endzle,09-06-17,*end首注"封面睎M V 4!!$(预览)'VA@>kx A@Boh 首注的快捷按钮怣 Ao0 N&解决与word文档进行切换时关闭不保存问题5 4! \ 4! "! \ "! | k o Private Sub TdsApp_Quit() Dim cmbNewMenu As CommandBar; Set cmbNewMenu = ActiveDocument.CommandBars("Menu Bar")pDown. '退出删除菜单:="赤, For Each ctlPopup In cmbNewMenu.Controls格y If ctlPopup.Caption = "添加标准要素" Or ctlPopup.Caption = "标准文本样式" Or ctlPopup.Caption = "附录及排版" Then ctlPopup.Delete,+begi End If Next% For Each cmbNewBar In CommandBarsR If cmbNewBar.Name = "标准编写工具" Or cmbNewBar.Name = "标准文本样式" Then cmbNewBar.Delete%L End If%L NextVEnd Sub燦$zle,2008-12-9,+3自己的只能调用自己的%L 4! \ 4! "! \ "! |k 4!$.tcs 4!$.TCS 4!TCS.SYSWCRQd |k J'J]O] O8O]PO' zle,2008-11-13,+2,]hO]圤'   %!2只处理封面情况 !! 4%.  !!'x xzl|8k0 x  % 判断是否无模式窗体打开B@4& If (g_rowNum = 1) Then-06- g_rowNum = 0$$ Unload UserForm14! End If&上次域失去焦点时,如果为空则设为缺省值alSi L5 L$$e L 4%%zl5$$吹姆5*!09k<zle,2008-11-24,+begin,增加对代替和完成日期、备案号的特殊处理ment.S5DT"5$$代替 $ GB/T5$$代替5$$代替 $ DB5$$代替 $ Q/9kk5WCRQ5$$(本稿完成日期:)l9khk`5BAH5$$备案号:9k kzle,2008-11-24,+end !qd' k5' &当前域得到焦点,如果是点击此处则置为空9 5$点击此处9kp标准编号,去掉其中的XXXXX*zle,2008-11-24,+begin,如果是代替则特殊处理5DT5#zle,2009-5-22,+1,判断是否是国家标准  <A@&k'zle,2009-1-8,在判断一次是否是国家标准 Hl代替 $ GB/T 9 He`代替 9n He发布代替 $ DB 9,+begi He谔代替 $ Q/ 9k L$StdNo B@2tkxkpzle,2008-11-24,+endp`>zle,2008-11-27,+begin,如果是发布日期实施日期,则将光标置于末尾ion 5FY5XXXX5FM5XX5FD5XX5SY5XXXX5SM5XX5SD5XXB@49k8zle,2008-11-27,+end5c155c255c355c455c555c655fm5版$ B@2k8~.zle,2008-11-24,+begin,如果是完成日期则特殊处理爫5WCRQ5样式(本稿完成日期:)9====== B@2====== B@lk榼zle,2008-11-24,+end=5BAH5奖嗪备案号:9 B@2 ==k0}zle,2008-11-24,+end==]燨']窸' '  $StdNo0M==]蠴StdNo0 4%5' 5*!' ====   =  $X  $x'J  'k |   08-8  X$T'  9k貃q衶k葅  $StdNo1HStdNo1 4%5' 5*!'    $X  $x2008-1  '分k{ 向前移  &'  X$T'  9k纙q竮 HStdNo1 4%!' kxzkpzkhz  $StdNo2!StdNo2 4%5' 5*!' STYL   \n \t  $X  $xB@n  ' k▂ 2008-1  卸鲜  X$T'  9k`yqXyStdNo2 4%!' k(y.zle,2008-10-14,*1,让光标的位置置于所点击的地方$ Selection.EndKeyB@hk竫q皒d▁' k榵处理标准名称及页眉  L$StdNo2如果是标准编号则处理页眉和页脚  StdNo LStdNo  StdNo LStdNo A@ B@2 k皐 ! B@ seq k恮 LStdName+!如果是标准名称 则修改正文标准名称(zle,2008-11-26,+begin,获得当前光标的位置  B@2 4!B@4BZ !C@9 9q葀d纕  'Xk皏zle,2008-11-26,+end9A@ ! B@ 9,+begkhvk`v标准名称及页眉处理结束删除  'Ld(v  'Lkv'Jkv V 4!!$(预览)|衭k萿 V 4!!$(预览)'VA@>kuoxupu沓Attribute VB_Name = "Cls@Tds" 鐱ast0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobaBl腟pac扚alse dCre atablPr@edeclaIdCExposeTemplateDeriv%Customiz E'"要素芭虐"按钮 Public WithEvents Cm dFm AommandBarB@utton '胺饷 |.VarHelpI褼m-1.C/(C(Mc+目2螌Mch+Mc +Qy+前言商+Qy+Qy+@ Y+引+Y+NY+@ +Fl+溉铰检+Fl 6l+`hlA錷Ck参考文2譴CkdCkmd? $ S|B兴饕SB%">SB帬BJSYX,'标简莂项 9-md _D"CS俌楧'删除>SmdTwoPage'双面A / k 発 ?kqPrt爗0view_ 恞'磤蛴≡だ纜g_ 遯瞱' gGZ? 賫眬嘈垂嬖蚣 |GZ GZ'zle,09-06-26,+增加"婸RINT_ Y !QO O B 2O   7-02 保护"“取消?6橮ROTE﨏O嚈Nrod$ __4鵖4UN_ 妤|   '"层伪晏庋喗!!Ztit广/#'章QCob__ 锔`nTT 1-阳-'条 dT  2_on飻334455卝1""帽<快捷Aw _7_7S7)w oh337  y 4ute CmdTTitle4C.VB_VarHelpID = -1 Public WithEvents5C AommandBarButton Attri歜 51F] '非标蘃馓j1F,24-2-3-3-4-4-55蠝vR庒v悫2F'├ 莠3h l4h 絣5h` //%3??;??54??Lx彏W)??   u >6?? ?0 '"要素内容样式"<獉璖l'on7" '示例珸淪l(o(b(Sl 忒 P-4D_ q笛X '多o dp_ r  a? M S 首 d縫_ /o莔!#))SLCON""b"'" c/$ZWZ*)'勒淖p_/"a???5 0W)t ×裏 Zoof 唾 0俹ZZx  psO#J#醼L图表o#PhEvents CmdZC AommandBarButton Attribute.VB_VarHelpID = -1 Public Wi*t 瀂 '蛝急碜ⅰ d(d"礪C(QF淸[首注[F2-#\F抃笿固鮌文脚嶿JJ"夽 C.GTit宭e賋]晏鈱\? f] !^D 0Ta耣1'表睆0 &1 1 (2Sj1'插入表瘳1$?$庝mdE鏅TBJHZSM}J淼耡锁得鳜md$? $8ac的首醶S_2C 斍GSY2∶翶公2 2GS_DGS9md? % sG s'A编号 _@ . R馟X更新?d _\劻 O剅_'zle,09-06-17,*be4gi '_ 婩lZWd媀'附妈颊聝W' 2\/ 釕鳩lBp礰晄Tr1/'on 幄 一级 蛽2二鶞4Fl3三cle4似臒le5溛鍠@ 非鹷J1餇-?_!杊}2OK单3忒_Q4鱫5{8?橙p4遃B标 识_SShowq柿!Office.C焱 '显蔪景镏鶣 '0增加!C盤和Q格式按毗バ66/m撚==~G繹+敝JQ査饕? CRS? 0 焂#Wend遌s 繲dsApp!`癜轪ti丰O]参考文螧譸riva銼剈bCk_Ck(ByVal pCtrl掕, CancelD@efaultBoolean) " !Cal@mdxCkCtlE鴑d v# n If g_ZMFirst虬\Right(ActiveDPocum圜.Window.Cap, 4) <> "(预览)" The爌/@0ProcessEditCIfInsertReferes Emnd Sub '段 Private CmdD_Click(ByVal Ctrl As Office.CommandBarButton, CancelDe faultRBoolean) b Cal狢 j*E 6C岻f g_ZMFirst = 1 A;Right(ActiveDocument.Window@.Captiv4) <> "(だ)" Th\ensu,0 ProcessEdLit 乽IfInsertParagraph 蝯le,2008-7-18,增加多个愂纠赟lJ ?J?J JMulE@xampleHJ'EE快捷按舿G慠祮]湹Is1 0-4,+乻标记索引项翈,BJSYX縯PB!縬I僇?r ~ M?r?r`}?r#rShowfrmMarkIndex Mr09-06-07,*begi '插入8内 容<,楥RSY8?"'釋E! 8''9}9"999" 皤 噦l 詋m;s.Exists("BKSY")s涔Cls`孊aMsgBox "荋胂柔=“!>币趁妫"餇+a@ tA镈J$釰Forma h4荎1繩end  ⒗11-2,更新公事津淕XGsMM辿&f |濴&??卻 ;卭&_|_|達|_|_|Q J&#Upd擡quaa侼umTC&SCqC26揰"0蛴"O饤PR鳬NT_???:oo悺n}On Error GoTo zeh昆羮Q骕'丼10709,+"W 书签,以便回到原来位置#With ??3?#.Add Range:=SeDle爋n., Nam`"PRxTBK=2劗S@ortingpew俤ByLocHidden駊TruE1#! 麚 e1?1.....0...'c 0nnt2 '处理封嫖獞-状态,不允许涝诒嗉瓝S*4,位0忒靂S鮖$ 7$what:=wd苛_/#( ).D"t糞 App@ .Dialogs(wd!File).!1#S鱟1:Uh!机错误,请检", , "癎+Q#揆3窗 灞;=RO鳷EC颋///逽 _+_+_+_+_+_+囷Y0%PrctY G鞝要素及排版").Visible翆軨lsEvA嵋YC.FaceI鈊=277s TC "取晓麃$E5U[廤廤廤t%f g_ZMFirst = 1 And Right(ActiveDocument.8Window.Caption, 4) <> "(预览)" Then  0,ProcessEdit(BEsIf  If Ctrl.F aceId277 XUnPrct繲CS 'l3 State2msoButtonUpT%ClsEv蔆mdPROT0ECTC蓘";の牡" D25 Els鈋=Dow垍X哤a淔取消丠桭77凢ub仯A'zle,"疤鍋$ Pr,iv悁 俇N僟Click( ByVal_ As Office.CommandBarCT, CancelDefaultA Bool餰an)#纎繑繑黡 仈A[H媮翖4s("要素芭虐").Visible虥嶧幭j耰打印列蝖PrtPre0view?iiCa頻@z懒C 醜l<;hK2008-10-4,+be刧i 佋黾鹰快捷按钮 N爔N邩邩N= 邩僠$090(709$$ $书签,以便回到原来位置CWit h 尞 kkmar宬sC罻.Ad ange:=Se刲e牬on.R , Nam"P繰TVIEWえ.$vSorting 瀢daByLoca凉 ShowHidden鳷ru罎罖#駣end劶 nt!`'处纮矸饷嫖E状态,不允许在编浼%ine^B剂C@w$.Exis6t纘h)蘹%GoTo what:x=wd-[(().)-let(&憏盛 fj((jB)'删除索引勏钗hSCSY邅秄跺@廆e臹堾 恮別i>Oe郈OeOe姉>)2frmDe纋Index丄>资纠S遶遶遶r 1遶湙@Insert鄕ampl`0v.黃l`繃繃繃Bv,;V飈tZ,内容 LCONTC鴒nt┧#a浡@v7鍀a 正文谷絥 GS/ / / / /%????痢!1/%?羷捬#%E靟uTj廠-係7&12-2,+鐏o夢JGSo(o(o(o(k(_(Z() _S格dGsGs@鳱um2ws鉻鸨嗪臦o e  w e,09-06-17,*獾"S窇-P附录cA'F l烝l 某andBarButton, CancelDefault As Boolean) ' If g_ZMFirst = 1 And Right(ActiveDoc@ument.Window.Capti4) <> "(预览)" ThenY ] Z0ProcessEditEvIf InsertEquad#Sub 'zle,2008-8-17,+endbegin,增加附脊礁袷Private ' CmdFlGsGs_Click(ByVa@l Ctrl昈ffice.Co黰m>獌;A漈A罽09-06乊*!僘插入AS Q?PD8Cala齺fCAd滩皢03亞9-26,+K快捷按钮-E~乫覲 訁室"AiaFrmFL.Sho鄔 1 &%;(>!=标识,*)>Bg繎?繎繎繎!繎笐Fl麭s@ K( d蔲"(肀晏猓瑯(郥itleh吆吆哼 *七禾))蔘图)P)吖溽s縍{銯l)('条!=T1)P痲喰R喞)A0唓<)Fls2煒煒煒煒煒煒縞O傾/;煒`摌逷P?#2#3鬅?猟 ?#\3#4T24餺5W5'駛2Yub撌3$1F忒n阎5>`酑hgToSxongP 慇騝傋10-8,+1,修改为无CdQSele`鉶n.Style"A 一级无" 顲42镓??瞍 OL 曞滅二覤D  禓e3 ' ChgToSongx'zle,2008-10-8,+1,修改为无标题擲election.Style = "附录三级无"HEnd SubPrivate CmdFlTTitle4F_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault)Boolean)b蔍ns8ert]J嗨腤p.5趒5裶晤q蝡Z聀pJpf g_ZMFi坮st罃1 A憖Right(AveDocument.Wind@ow.Cap立, 4) <> "(预览)" pThenDH羾0Process0EditDAvIf?厱<莭潦09-06-17,*endMJ巑H腍1Cal戍裮C镣 茾),嗶9-26,+begin,增加封面快澜莅磁% s齭!I;;; al;J;"!;a琂FormFields缽unt > 10腍!aMsgBox "已经插入a(,不可 栽俅蝍!`爜Else !aFrmCho醽汼howGΜ5'图’誤摹!5G遯EMC 進-鯧 LL L坅!aLK:a剣$ig3 <规粼虔8Z焻_釨狻&8Z7'狟 @=}Go瘄瘄s 'o```z`1o疊0gpathiGetSetting("TCS", "Gr燼phicP@峲"餡1She繸& "\IEXPLORE.EXE " & TdsHelp.htm vbMaximizedF +s#餦添加条文脚注.$J/$_昣昣暶,%$﨡/$菢f#fE $?$W$$$$On Error G爋To eh@lDY&&&&&;&1! &x&胤2-25,+,当@光标在qf事睉f允许褅Ap 焞焞渓Pw糏nf纎aq(wd繨PageNu鄊ber)#晜 CD鮬请将 瞥3q再进湫蠶 的 4q餎xit!羢&Q?\]SDiJm!t嗳edH '判断问 朗欠窳z被保护WTxt團oo偰Str =|, 嗦QIFn4Tru}'0如果a,涝蚪獬'>N崼 犛TyBp佊wdNoG)<lUnproH "z,gc甮鐇= [9lFa0A郹(3)是'内葊荩故茿cg_Mar恔OrA0P= 穬!iSideAIntegercS'1.$a编号的蟛嘤+Move" wdCharacter, 1,Ext鈸囑.V氡引用怕Range.餞ext馀柵q Lefts %$堂Pane.View.!心刵t! Or *< _+o4&WebJ eWindow.ActivePane.View.Type = _ wdPrintPrev犩 ThenH禷燬eek╳dFootnotes =Else"OplitSpepcialSSnd If USele髈n.Paragraphs(1).Range.MoveE!)wdChct@er, -1 g_MarkOrA l丱3 frmJ@z.Show0 YRText}Trim(g_SYGS) If 駾tBgOr 鉗Web ?k 桵ainDocument薉鄺Hs(2).鳦lo }崚胇@b""iSidA褋L咷oTo P%$噝翚Left ? 汬I$ $ '2.光标是诮抛⒈嗪诺闹屑> ,Extend PgStyl!"A 引用"瑖h\<> ")翏%樴 CQ洖a 訹wda煭煭 v骯煭Hj$ 煭蒊4煭c+;a 煭煭薃+礋瓱瓊锜K肜缌* 煭 ;p稛K烱烱%蟅蟅u廙'%蟅 $ 飨V臯2K蟅喕&餜igh遃E ) 遃7![_ 4['3溜V挠也3 鮛`2颲 7颲霽Oft烻铫p烻@ヴ0潉S -_S5BI/ $铹 --逺 ,薢, S_Rnen-w逹[$烸/铵5豍oв8h""""/"P刻刻$.逴饰>虩O"O# 堿烴PUNN"?I?I '说明是要进佬性黾1洠 U0E' 1 -K,A.WR, >3塋v4.Count > 'zle,2008-12-9,注释掉隹 '1TxtQ$InputBox("请修改后内容", "H泷貭0_:6 壽 1" AP錷? "" 餞henkRange.Te黿t晠 呇脥 Type9`:=")"廟S, wdExten俤Y Style繷 wdBA]noteReferencO@y&嫄 t = A渧eDoc@ument.s.Add(.俉纓W蛁R82c8D紅1荴J 41Window.View.Seek肙餗ain:K]Qz庙}"uF蒍 'zle,2008-12-23,+w Pt:A `WPr@9cted蘙'保护窗,体4S脛s(1).For@膍s@Trui* i2 ToU .CountH藢CiFa"!bN爍 Pa@ssword鄃z*h爔c}g`哊oReset:=, 酅:= _LwdAllowOnlyFiel dsg,CommandBars("要素及 虐")繢sibl蠇ClsEv醓CmdPROTECTC.Fac萫Id(77Capa灌"取<消:葍 IiIn1"ces8)Exit Sub error$dlDe:Msg` `罢费≈r" bGS9-26$S@牧邢頏Rrivate Lx1_Click(ByVal Ctrl As Office郉)Butto n, Ca@憀D@efault!B@ooleanD綜lmd C A QE @ g_ZMF坕rs嶝1 A囫=廨(l^鋳D:, 4)⑻(预览6)碛) 0"tEdid612Ins8ert Xox2鬅arP2e"筮""s ";爅(槂 窡 2933邿?3鈵3鸴A"x?3 bP?3:潫菬?3Lx344鳠丳4VVk< "(预览)" Then  g_ZMFirst = 0XProcessEdit(End@ If 'nInsertLx51 0Sub  6首数字列项快捷按钮 Pr@ivate # Cmd4C_Click(ByVal Ctrl As Office.CommandBarButtCancelDe fault)Bo@olean)機 D>经插入Q,瞼荒苤馗"GAFals?1o= 了“b 保致r 的 格@式丢失EI 'Q“ 盦,则将的内容删 除到  蝬筴 !*縍綬Y Set te續pRang羈(Star0醁A$.r - 1,羪:=1 2(V V .c 隸D (t<q<不正悟娘 Q??g8??乚 ndard5") 4]l C騟y鬕= " K屣, WBK'D螴oo(臝3n.HomeKeyn.TypeParagraphn.QLef鴗 ,!{a$縚 c 盤 /X鬤o /XA "@W/|3   媯TnF`嶱ag?I&%cLHb[嘾Hction.Typ@eText @:="前" 'zle,20 08-10,+2,空两个汉字的距离PSelec朓nsertSymbol CharacterNumber:=8195, Unicode:=True, Bias:=0WI 哐 rHomeKey MoveRig@ht , 1wdSentenci1, wdExdWith A憊eDocum.Bookm0arks伕.Add Rang巸, Nam `"BKQY`DefaultSorting =<亖ByLoca/ShowHid8den棵En黡 A(CD 咺If5.Exists(@,YY") ThenC-G羐P@奼raphElse 羓8Lef坖?IfCInProcedssGFa!罠Sub G9-2`6,+en纕7-23,+begin 增加杓票砀竦拇シ⒑ Private @ CmdSjTable_Click(ByVa@蛅rl As Office.CommandBarButto爊, Ca罉l剗傾 抣ean)0XCalCC U 燛g_ZMFirst@,1 A/bk(宑Window.CapY, 4) <> "(预览)",J) 膲?$:Edi>t$a>釙0 _!G=c:N= @2D=,图表脚注说明(TBJ鳽SM;;;('((!( (tFigTblFoo嘟H)4"逬_^O^-^ z9首:S?:?v +v?:?:縝鄊縝2骃|irN1蚆進進Cm進諱zt薓'引言(Yy9焀焀w Yy5 z z e 瞔,眂 快捷鸢磁 _Yccs'_Y_Ynt.Ei_Yx~_Y"EEoxCbxW奃im 駗B釱Str鄮*O禃O圛9-1-9]判断是不是误删1 婫oTo what:=wd苛 (b@?Style:@秆浴垄标题璶MsgBox "本文已经插入,瞼荒苤馗槩A帓尽1泃嚤墱 了“”,导致r 的 格式p丢失G霙Set temp $Πb(Sta^r 啢.r - P {:=s("ndard椤")2繟Q 5綎 . Dp牺t埄儠剳$bQq鐈t,= +  &t-&sc$X0烂遨 柦 箒Up芭柡滦'Q邲J毛A怨23 =熇 $ 6! ML>岂蠦_a萫BK_ n.骛?斻[_n.  VFont8PagT+(ection.Style = A鄓eDocument皊("把浴⒁员晏")  SelTypeText :="引"D'zle,2@008-10,+2,空两龊鹤值木嗬 KInsertSymbol CharacterNumber:=8195, Unicode:=True, B纈as:=0WI峯 言刼 9HomeKey MoveRight , "1wdS籩nci1, wdE xtendWith嵭Bookm0arks.Add Rang巸, Nam `"BKYY` DefaultSo鄏ting"繠yLocaA垐ShowHidden 乢End~ A(CD 咺If5.Exist燘KQY") 餞henC-G罻Lef圵Else Q ArP罃grap鎕6If PInProces2sFFaB 罞Sub G9-26 ,+聈示例 Private CmdSl_Click(ByVa@羣rl As Office.CommandBarButton, Ca缹l剄A 唋eancJCalCC@ ` ?g_Z@MFirst &1l A -耫(,懨Window.CapaR, 4) <> "(预览|)"孋) $傾!4Exdit#:a;C廍`xampl燝!藅饕4y444y4"JoJbegin ,增加快澜莅磁クK& 888'888  8DesignIndexTCS 9蒲坧'表嶷正文、铰&TabT餴tle=== >>a< _=烡/;/;脙丣/;鳿/;0+;Tbl1一级填醣1_V_V仿rUVTeZ猇W 醏Oa鵒as Ka遅遅P9衊瞅Y;二2邚r瓔2~W  龔 ot?9?9otzototA糴c烊龔3髲e3W ? aAo歰歭tD99999P9Gt9Thi琐膹4鶑e4W  禼訌R@_r0 琔or锍 '五级条标题 Private Sub CmdTTitle5_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefaultRBoolean) Cal=禖\V ;0En d タ旖輕按钮QC甀f g_ZMFirst = 1 AIRight(ActiveDocument.Window.Capti亞4) <> "(预)" Then儍亝,0 ProcessEdit 僆fIns@ertFif偼 & 挿闾豕1F输縁縁 塅H'zle,090812,+3Mf GetSec(Num@q0蘟Ex|it脵Ae腫r腫AChgToS榦ngE70@5 f Sele坥n.Styl鈋"一炮崅 无"Else嘋 P 附录G 崄3荔謩e遻镎{&N躿2VgVyy酜'5zyV V艃C 儎郵烿烿V&\烿錫乂+峍6C遃_C誚鍺遃3遃遃_衉袏/h/h袵o+VVV羙+rtThio+縑g縑稸三o+ y廦 "o+縑"焌+o+瘮爺3Fo+蠑蠑蠑3藬v'o+t魃敮 4O+ 縑 ?縑dc 縑  蟻O+O+檕 偹腛+A馩+= "O+O+緽+偪Vr84O+0( K+v'O+O+O+O+O+O+O+ O+O+O+O+O+O+dc O+O+\牧_璻俔淇_.傲O+Y B+_*/+/+/+/+;/+燫5U'/+*+ 0俳玌俚淖体变为宋,体6(On Error G爋To ehplD厉=Paragraphs(1).Range.F鈕 *Nam2橇D$2008-10-7,+设謩枚温淝昂蠹渚 With Selection.Paragraphs(1).RangeLForm atnv.LineUnitBefore = 08 After6SpacingRul9wdLeS刲eIEnd  xit Sub errorh@andle:MsgBox ";で虿荒苌柚醚砾式" H9 '注 P@rivate& CmdZ_Click(ByVal Ctrl As Office.Comm5BarButton, CancelDe faultBo@olean)僂If g_ZMFi坮st|1 AcRight(AveDocument.Wind@ow.Cap, 4) <> "(预览)" 餞hen,伜,埛ProcessELdi勑亁IfHnsertFigT郻lNotW艭@C 的快捷癶磁FCFHFC黙lW荹AZ孲繮'k章标题%鄑itle&&=\(''譕 織A熆椷KW逰蒏Chc}玬zle,09-06-13,+begin,黾诱淖ⅲⅰ粒(妆rWrndrrr羱r$~' '0Text瑀颹WZ?q!g&qf,~qm3_擀擀擀 策33Mu恙14_4呷掞-4熠@F郡?4縨罂m縨ti縨縨縨QM1縨縨餿籱14饁鹢4F4蟸OE蟸C"瓐4Zotim';Q榚ndQQ 孅×&7o o o .?媎 ????O?媌l7'鸲嘧澘8/o/o/d/VU/*P是否显示帮助Sho鄔Help9糄im WI "(A/BAL倨膮冑BJ临贐a AFBf|@6n绬\BB荹區@首注 L@Z蘘F_Y_YanS#_?_?N? a,?-$aInsertFigTbl`8Not楃'"的縂d#c_}恒#C}.s| 6TdsApp_舋BeforeClose$? 翄厙K幜"'饩鲇雡ord文档进星谢皇惫乇詹槐4噫问题祤:靨Path + " \"lName♂wThis. *腓Exit O鈁Aa! "' 5"Quit(,be羮cmbNew餗enu 遣  怱et H= s("@" '退出删0说qUFor Each ctlPopup InPantro黮s!p臤~"添加标家" OrI文本p样式O`T铰技芭虐>妤姴1De|盙etFMTyNp碒*,9-1-8,在 一次? 罓 Std!T0{()椖 敮ad" 1w a亦" 2gO軩B d 33 { Q/Q ?sQp "No<Selec tion.PKe~y_,QQ S f 烼烼 {7C諓?发布q愂凳﹒.蚪光标置于0末尾((a枑FY" |@慓"V)Q坔MoXND{ONSX房A)'U 鵑ONop蘡1c2/|lc3/-4/-5/-6/,fm/Q4 +V纒/U∵n'sn/吏h"??\RjWMo剉e丣 , 1(c~(ⅹ#I3Κ?$f  n惁_Dim iCount As In`tegero$= 0"LenqV ii@w羵bg敥, 6{"g0?gPS宼r `ingO 竦 A癷veD`砿ent.FormFields(鉳0")t=%.TextInput.榃id锝  ToA矔(Mid( , iP0X洿" Or Mid(StdStr, i, 1) = "x") Th en iC0ountf+ 1hEnd IfFNext i圛f sLen eplace"X", " ")6亊.Res|ul乹$檓 W8ithtLeft(NewNa`me, 6偼BNo1"榹3 ActiveDocument.FormFields(" {@凘L>-厖卛乣= .TmInput.WiNdQ9 " i@1 To A A(挩X H拑J芺疉鶙[鮌?a砏4Type <> 0\r霠烻)"y]a燣ostF]s@K郌alseEou `vt2t|t2Y撴Bttk!t t?蘫Ыtu5% ??蘣 f1t,g] Wct4齨'7\?7飩 _ 'zle,2008-10-14,*1,霉獗甑奈恢弥糜谒慊鞯牡镭方 'Q=Sele4on.裥KeyU1[ME濩SetFl dNull怑Tr&u圗% '肀曜济萍耙趁~记7曖Olri!257鉊 '如果是1辣嗪旁q篮鸵辰派醼((In }莿S{p[AA欜&= 0)雹?tdNvo0 ?1媔)僌プInser \0oter ??}c/Window.ScrollIntoViewXRang鹟c 阔0!! 则修栏恼腢! 801-26,+begin,获掂玫鼻白0簟3_.]ookmarks/5.Add 瘰`:="BZ鸩b:=r.Sh@owHidd昂= 4.Defa岸Sorting wdByL纎catio"?q?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~珽(翬v錛xME<$04(,8 <>封% 劄p行业%`劉x`劋前是`劍理,`劏死循 `p X`s `v `y `| X` `  `   `  X `   `   `  ` X` ` `  ` X `  ` 勨 !% 劄  %`剘`剼08-9`勡 ` `DDI  `JJ 内容%  `]]`勡来菜` x H 要素$% h 样式%`` `"增 & `884 `勡题样 ( %$% H %` 第` ( `IIl `勡z`* :` `AA `勡9`*z < `  @ `  B `--  ``E  `W   ` ##i   !`!  `"`"  #`#  $`$   %`%  `&`&  '`'  (`(   )`)  `*`*  +`+++.  ,`,Y  -`-j `.`.r /`/z 0`0,,`劼募 81`1## x2`2 3`3 4`4 85`5 x6`6 7`7 8`8 89`9  x:`: ;`;66%`勣9 @<`<dd[`勣功能`勨'''' =`=//  >`> ?`? @@`@ A`ANN"`打印`9 B`B::p 0C`C pD`D E`E  F`F "0G`G $pH`H &I`I (J`J *0K`K ,pL`L .M`M  0N`N  20O`O 4P`P\\,`勡!`< 二级 >Q`Q==`勡三级`< 9 @R`P Ri傿9`勡` z zS`S `剼d Wi 凢 (% |xT`T11 劄pth c % ~U`U22+ 劄级条 % 8V`V11] 劄0级条 % LW`W++`勡 PX`X__ 凾,% r0Y`Y Z`Zdd4`勡 @ [`[`剺`剼t ct`劉`劋`勡  \`\| 劧 %`勡`劸 !]`])) P!^`^ ' ("_`_4`勈 勌!%`勎`勡`勑`勔 #````勈 勌"%`勎`勡`勑`勔 #a`aC`勈 勌p#%`勎`勡`勑`勔 $b`b`勈 勌H$%`勎`勡`勑`勔 %c`cU`勈 勌 %%`勎`勡`勑`勔 `&d`d`勈 勌%%`勎`勡`勑`勔 &e`e>>c &f`f@@  'g`g  'h`h**`勣`勳 8*i`i`勷`勻 ($% 8(%``勡` ` ```````` `"`$`&`( *)0% .)% 劧*%`剎 H+j`jAA 2*% 4*4%`8`>`凘`凚`凞`凢 (,k`k|| 2+% 4+4%`8`>`凘`凚 -l`lOO 2,% 4,4%`8`>`凘`凚 JH-m`m (/n`n77`勣 刋--`刏`刓`刕`刞`刡`刣` `刦`刪`勡`*`刯 `刲`刵 r0o`o* 劧/%`勡`*`剨`剬 剮00%(0 `刏`刓`剱 剴08%`劼`勀`勂 81p`p  1q`q66  1$% 1%`勳 `勣 @2r`r? `勡 2s`sV  03t`t33g `勣`勦 &3% 剎(3 %+u`u 陘:3 @陘< @獉@3h@獉D4 @獉F84@陘H`4@陘J @陘N @陘T(" @陘XP(@陘^4@陘b<@陘hH@` #x&-844`03 3$ X 0P5`81  (4(5@   '40@` @0(/P!3548xXX 8!("@2p0p0p%8*(,xH&83`` XX   `&'H+H-81` 2p3`40P x x#(` #x&-844`03 3$ X 0P5`81  (4(5@   '40@` @0(/P!3548xXX 8!("@2p0p0p%8*(,xH&83`` XX   `&'H+H-81` 2p3`40P x x#x5` #x&-844`03 3$ X 0P5`81  (4(5@   '40@` @0(/P!3548xXX 8!("@2p0p0p%8*(,xH&83`` XX   `&'H+H-81` 2p3`40P x x#8` #x&-844`03 3$ X 0P5`81  (4(5@   '40@` @0(/P!3548xXX 8!("@2p0p0p%8*(,xH&83`` XX   `&'H+H-81` 2p3`40P x x#8<vv03)  L8Jx Ppx . "$8@HP X "` T    0 @ X x  T"  *.H.x  4 @H P ,p    $ (  0Pjh   ( R0   ,..(  X  h"x         ( 8 @ H P ` p  x               ( 0 8 @ P ` h x          8  ( 0 H P X ` p               0 @ H P ` h p x  " *  , $8 6`  * &  ( 0@H *P   "       08@X` h p         0 8@H Xh p          (08 HX ` p x     R @P X p x        0 8 H PX` p     &  (  H 2h  ( (  0 8@H Xh p     "   (08HP X ` Vp  *   (0HPX ` h x        ( 8@X` h p      V P ,p       08 @ H X hp         8@ H P `      V 0 (P x         0 @H`h p x       ( 0 8 H X`          (  0P Xh p           0 8 H P X p x      ! ! ! ! (!@!H! X!h! p! ! ! !!! ! ! !!""" (" 0"@" "H"p"" " " " """ "" " # # #(#0# @#P# X# h# p# x### ## # # # ##$ $ $ ($ 8$ @$ H$X$`$ p$$ $ $ $ $$$ $$ $ % % %(%0% @% X% h% p%%%% % %% %% % % % & &(& 8&H& P& `& h& p&&& && & & & &'' &' @' &X' ' 2' 4' ( ((( P( X( h("x(( ( ( ( ((( ( ) ) )()8)@) H) P) `) p)x))) ) ) ) )))))*** *  * 0* @*H*X*`*h* p* x*  * **** * * * **++ +  +  0+ @+H+X+`+h+ p+ x+ + ++++ + + + ++,, ,  , 0, @,H,X,`,h, p, x, , ,,,, , , , ,,-- - - (- 8-@-P-X-`- h- p- - ---- - - - ---. . .  . 0.8.H.P.X. `. h. x. .... . . . .../ / /  /(/ 0/P/ X/h/ p/ / /// // / / /// /0 0 0 (00080 H0X0 `0 p0 x000 00 0 0 000 00 1 1 1 1(1 81H1 P1 `1 h1p1x1 11 1 1 111 11 1 2 22 2 02@2 H2 X2 `2h2p2 22 2 2 222 22 2 2 333  303 83 H3 P3X3`3 p33 3 3 333 33 3 3 334 4 (4 84 @4P4X4 `4 h4 x4 4444 4 44 4 \485@5H5P5X5p5 555 :5 5 6 &6 @6P6 `6 h6 x686 66 6667 77 7  7(707 87@7H7P7X7`7h7p7x77 77777 7 ,778(8 (08X8 Jp8 888  *8909 H9 X9p9x9 ,9 99 9" 99999: :0: P:`:x:: : : ::: T: $8; `; p; ; ; ; ; T; " (<0<H<" P< X<x<" <<<" < <<" <<=" = =8=" @=.H=x=" ===" ===" ==>" >>8>" @>H>h>" p>x>>" > >>" >>>" ??(?" 0?8?X?" `?h?? T? ? @ @ (@ @@ `@ p@ T園" 郂鐯餈鳣 ,A0AHA`A ,hA楢ˋ4癆 鐰(鳤 B@BHBPBhBB圔燘窧蠦 2養 (C Z@C  燙 繡蠧郈餋鳦D D D*8DhD .D癉菵蠨鐳 *鳧 (E0HExE E怑楨燛‥癊蠩谽 0郋 FF F (F 8F0HFxFF怓楩燜‵"癋谾郌 <鐵 (G0G8G @G PG `G .pGF燝鐶 HH (H 0H 8H @H HHPHXHpH圚燞窰蠬 鐷 I 0I0HI xI I 怚 業 營 ↖ 癐 "窱 &郔 J"(JPJ XJhJ"圝癑 窲豃  鳭 K(K 8KHK`KhKxK 怟燢↘ 繩 蠯郖鳮L(L  0L @LPL hLxL圠怢↙ 癓  萀豅 鳯MM  M 0M8M @M PMXM `M pMxM M 怣楳  燤"癕 豈鐼 N N 8N HN XN pN 圢燦∟  窷萅 郚O O (O 8O PO hOO圤極 癘繭豋  郞0餙 P (P 8P @P HP PP XP `P hP xP楶 燩 癙 繮郟 鑀 鳳"Q0Q 8QHQ PQXQ`Q  hQxQ 怮 癚 繯 蠶郠 鑁鳴 R0R HR XR hR R 楻癛窻萊 郣餜 S S8S PS `S pS 圫 燬窼繱蠸鑃T0T8T@TPTXT`ThTpTxT &T$═蠺 郥 *餞 P U pU (怳 *窾 P鑅 8V (XV *V P癡 W ( W HW`WhW (pW F榃 ,郬 *X &@X .hX 6榅 "蠿 鳻 *Y &0Y .XY ,圷  竃衁 0鑉Z Z0Z8Z@ZHZPZXZ "`Z 圸怹榋 燴 癦  ,繸F餤8[P[ h[x[[圼怺榌燵 ╗繹豙餥\ \ 8\ P\ *h\ 榎0╘豛 郳餦]]] ](]0] 8] X]`]h]&p] 榏  ╙萞  豜 鑍  鴀 B^ 0X^坁恀燸╚癪竈繼萟衈 2豝 __ _ (_"@_ h_ x_ 0坃竉繽豞郷鑏餩鴂`` 6` H`P`X` F``&╜ 衊 郹 H餪(8a `a xa0榓萢 衋郺鑑餫鴄bbb Db `bhbpb xb 坆 燽  ,纀F餬8cPc hcxcc坈恈榗燾 ╟纁豤餭d d 8d  FPd&榙(纃鑔 餯eeee e(e0e"@e&he$恊$竐 鄀 f 6 fXf  $`f坒  J榝*鑖  ,gFHg恎╣ 纆術豨鄃鑗餲鴊 hh0hHh`hxh 恏 @╤0鑘i i0i8i@iHiPiXi`i fhi衖豬 鄆 餴  $j0j @j Pj`j  .xj B╦ 餵 k @kPk  ,`k 恔 B発 鴎"l 0l0@lpl xl坙爈╨發竘纋萳 "衛 鴏mmm 0m0Hmxm m恗╩癿竚續萴衜 豰 鴐nnn0n0Hnxn n恘╪皀竛纍萵衝 豱 鴑oo o 0o *Hoxo"坥 皁 纎 衞鄌 鑟"鴒 p 0p Pp `ppp  :xp竝"萷 餻 q q q (q"8q `q pq 恞 爍皅 竡"萹 餼 r r r  (r 8r Pr prr  榬 皉 @纑 s  s B8s s"恠 竤  .萻0鴖(t 0t@tXt`thtptxtt "坱 皌竧纓萾 鑤0u0u 8uHu`uhupuxuu坲 恥 皍竨纔萿鑥0v0v 8vHv`vhvpvxvv坴 恦 皏竩纕葀 鑦  w w"0w Xw hw xw坵 恮"爓 葁 豾 鴚 xx  : x`x"px 榵 ▁ 竫葂 衳"鄕 y y 8y HyXy `y"py 榶 ▂ 竬葃  衴 鄖 鴜 zz  (z @z @Pz 恴  ▃竮 貁鄗*鑪 &{ ,@{p{"恵竰 "纚 (鑬 | | (| 0| 8| @| H| P| X| `|6p|▅竱纜鄚饇鴟 }} "} 8} X} x}榼 R皚~" ~H~h~Bp~ 竳 衺 p H @  R p 垁 2( ` 2 8 2貍  2皟 鑳 2悇 葎 2h 爡 2@ x   B垎(袉鴨((P`p "悋(竾鄧饑  "  H@X槇▓笀葓 *袌 b &h *悏  缐&貕 > `x悐8槉袏鑺饖 8@X"`垕構爧▼皨笅缷葖袐 鑻    8Xp2x 皩缹 貙 鑼0鴮( "Hpx 槏笉 缻 T葝  @ P ` x 槑 ◣ T缼 "  (8 ` 悘爮  笍&葟饛鴱  (Hh  悙爯 缾 鄲饜  笐 葢貞 鴳 J0 " 6⊕鄴鴴  0( (X 0皳  笓 負钃饟鴵 T( ( 〝 笖 葦 鄶   T(" 垥悤$槙"罆4钑 " H X h x 悥&爾葨袞 貣 &鄸  &0 X h 垪牀罈 貤 鄺饤  (0 8 P ` p  槝&袠貥 鄻 &铇   0 @` x 槞皺 笝葯 鄼 铏 鴻 T( (  笟 葰 鄽   T(" 垱悰 槢笡罌貨饹鴽 & (8@H P h 4x皽 笢罍葴袦鄿  (0 PX x垵悵 槤皾袧 铦 饾 鴿J hnx 铻 鵀r  悷r牊  X <x 笭 D袪  &( PP $牎 取 .小 D .P  悽 牏 涪 丌 稷 2 0 P `x垼悾 T槪 $穑  ( 8 P p  T槫 " 黏  0H PX` h  4惀去 啸廿啷瑗  @H hp 惁槮 牔 唉 圈 瑕  2 @ ` p埀 惂槯牕 Tě & ( 8 H `  惃 Tè "  & $@ h埄 惄 ī扩 :丞 : PX í 泉 嗒  0 8P Xh x ,埆斧孬 0皤 0 DP 0槵 (痊 0瓞  8 P X p 埈 槶 牠0碍喹 0H2P 埉 ó 府挟 禺喈璁甬 T &P x 埊 槸 隘 携 喁 T" PX &h $惏赴 邪璋 P P p 埍牨 ū辣 乇 啾  ,0` 0槻 0炔  ( 0 P h 惓 槼0ǔ爻鸪 (@2H  牬 按却 写 卮 啻 T璐 &@ h x 埖 牭 赖 械 T璧" @HPpx 牰 Tǘ ( ( 8 H `  惙 Tǚ" 08 @` Th (栏 韪    @ P Th" 拦裙 泄"鸸(08PXpx埡 惡 樅 牶 ê 昂 负 篮 群 泻 睾 嗪 韬 鸷  (8"@ hx埢牷ɑ阑谢鼗嗷 杌 鸹   ( 0 8 @ H P X ` hpx"埣 凹兰燃屑杓鸺 ( 0 8 @ H P X ` h p x 埥 惤 樈 牻 ń 敖附澜冉"薪 08P`hp x 埦 惥 樉 牼 ň 熬 妇 谰 染 芯 鼐 嗑 杈 鹁 " @PX`x樋翱缚 揽 瓤 锌 乜 嗫 杩 鹂   ( 0 8 @HPX"` 埨樌犂ɡ览壤嗬鹄   ( 0 8 @ H P X ` h p x 埩惲樍犃" 辛嗔枇鹆(8@H P X ` h p x 埪 惵 樎 犅 奥 嘎 缆 嚷 新芈嗦杪"鹇 (08PXp埫惷 樏 犆 懊 该 烂 让 忻 孛 嗝 杳 鹈   (0"8 `px樐犇改饶心啬 嗄 枘 鹉   ( 0 8 @ H P X `hpx P犈 鹋  T( & ㄆ 钙 绕 嗥   T(" 埱"惽盖狼 惹枨 T鹎 (H p  惾 ㄈ 热 厝 T鹑" HP$X埳 惿吧 T干 ( 8 H X p 愂 犑 T甘" $ "Hp埶愃ㄋ八人兴厮嗨 杷 鹚   ( 0 8 @ H P X ` hx樚"犔 忍靥嗵杼 8@H P X ` h p x 埻 愅 樛 犕 ㄍ 巴 竿 劳 韧 型赝嗤柰"鹜 (08PXp埼愇樜 犖 ㄎ 拔 肝 牢 任 形 匚 辔 栉 鹞   (08"@ hx埾犗ㄏ老叵嘞柘 鹣   ( 0 8 @ H P X ` h px埿"愋 感刃行匦鹦(08 @ H P X ` h p x 堁 愌 樠 犙 ㄑ 把 秆 姥妊醒匮"嘌  (@H`x堃 愐 樢 犚 ㄒ 耙 敢 酪 纫 幸 匾 嘁 枰 鹨  ("0 Xhpx愑樣坝扔杏赜 嘤 栌 鹩   ( 0 8 @ H P X `hpx" ㄔ冈涝仍嘣柙 ( 0 8 @ H P X ` h p x 堈 愓 樥 犝 ㄕ 罢刚勒日"姓 08Phpx 堉 愔 樦 犞 ㄖ 爸 钢 乐 戎 兄 刂 嘀 柚 鹬  P@ 愖樧 犠雷 " 茸凶刈 ( " 08"@hp x権 T犡 * ( 8 H `  愘 Tㄙ"  08 @` Th *磊 疒   ( H X Tp" 熔雄 刿 ( T0 *堒 杠 溶 剀 疖   T8" 愝樰 犦垒容 休疠 T *P  愞 犧 皋 剞 柁 T" X` h堖愡 樳高 T肋 * H X h  犩 班 T揉" ( 0PX ` T堘 *噌   0 H h x T愨" 桠疴  (H TP (ㄣ 秀 嚆 疸  ( 8 TP" ㄤ颁镐劁噤 桎 T *h 樺 ㄥ 稿 绣 疱  T" px樻犳 ㄦ孺 T墟 *( X h x 愮 扮 犁 T冂" 08 @"`堣樿犺ㄨ黎辱罔噼梃痂   ( 0 8 @ H P X ` h p x堥愰犻"ㄩ 虚嚅栝痖 (0 8 @ H P X ` h p x 堦 愱 橁 犼 瓣 戈狸汝嘘"仃  8@X`hp x 堧 愲 橂 犽 半 鸽 离 入 须 仉 嚯 桦 痣 " @PX`x橃犾办 胳 漓 褥 徐 仂 囔 桁 痨   ( 0 8@HP"X 愴橅犿疙理仨囗桧痦   ( 0 8 @ H P X ` h p x堫愵"橆 李蓄仡囝 (0 8 @ H P X ` h p x 堬 愶 橈 狅 帮 革里蕊酗"仫  8@X`hp x 堭 愷 橉 狆 梆 葛 鲤 瑞 叙 仞 囵 桊 痧 " @PX`x橊狇榜 格 礼 锐 旭 伛 囫 桉 瘃   ( 0 8@HP"X 愹橋狉蛤莉仳囹栩痱   ( 0 8 @ H P X ` h p x報愺橌 P阁 8 T@ ,橍 若 佤 梏   0 TH" 狌磅絮仵 圊 T &` 場 橏  丽 圉 瘀 T" `hp堶愾 橑各 " 厉洒绪瘅  " (@"Hpx 狓 T ( ( 8 H `  慁 T"  0 @ ` hpx 慂 (跟 帔 "8` h 堺 狖 胞"耕帑棼瘥  T *x  更 赛 帱   T(" 堼"慅"庚帻瘕 8@HP X ` h p x 堽 慆 橚 狛 剥 羹 俐 叁 玄 佝棹瘙" 8HPXhp      ( 0 8@HP"X       ( 0 8 @ H P X ` h p x " 08@ H P X ` h p x          "  (0@H`x                  ("0 Xhpx           ( 0 8 @ H P X`hp"x   ( 0 8 @ H P X ` h p x     "  8PX` h p x              " 0@HP`h                  (  0 8 @ H P  Pp      "   ( 0  8 X " ` h  p     "      ( " 0 8 $@ h p  x  "  $     "   $ H P  X x "  $     "  $ ( 0  8 X " ` h p      T    @ P ` x   T"  (,Hx   0@P X hx (  8 Pp         T( F       0 TH"   < 0@ P `p   0 0H 0x       0 8 PX `   0 0 0@P X $`   " 0@ P `h        2  X`hp Tx     ( H X Tp"   (8 @ P`(h (    ( 8 P`  .    08 T@ .       0 TH" &  T ,h        T " p x $      T  ,8! h! x! ! ! ! ! T!" @"H"$P"x"" "" T" 2# @# P# `# x# # # T#" $ $ ($ 0$8$@$H$ P$`$$$$ $ $$ @$"% 0% P% h% %H% &$& ' ' @' `' x' ' ':' ' ( ( ((0( H( h( ( ( ( (( ( ((()) )0) H) h) p)x)) ) )) T) 4* H* X* h* * * * T*" + (+0+  8+  H+ "h+ +++++++,, , , , (, 0, 8, @, H, P, X, `, h, p, x, , , , ,,,,", --- -8-@-X-p-x- - - - - - - - - - - - - - - - - . .. .@."H. p......... . . . / / / / / (/ 0/ 8/ @/ H/ P/ X/ `/ h/ p////"/ ////00(0@0H0P0 X0 `0 h0 p0 x0 0 0 0 0 0 0 0 0 0 0 0 0000"0 10181@1X1`1x1111 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 (20282@2"H2 p2222222222 2 3 3 3 3 3 (3 03 83 @3 H3 P3 X3 `3 h3 p3 x3333"3 33333440484@4 H4 P4 X4 `4 h4 p4 x4 4 4 4 4 4 4 4 4 4 4444"4 5 5(505H5P5h5555 5 5 5 5 5 5 5 5 5 5 5 5 5 6 6 6 6 6(606"86 `6p6x66666666 6 6 6 7 7 7 7 7 (7 07 87 @7 H7 P7 X7 `7 h7p7x777 P7 78 8 8 888 T@8 28 8 8 8 9 (9 89 TP9" 99 9 9 *9 :: :: :@: TH: .: : : : ; (; 8; TP;" ;;;  ; &;;< << <8< " @<H<P<p<x< <<" <<<<< <=" == =@=H= P=p=" x===== ==" ===>> >@>" H>P>X>x>> >>" >>>>> >?" ? ?(?H?P? X?x?" ????? ??" ?? ?@ @ (@ H@ " P@X@ `@@園 怈癅 T窣 PA `A pA A 楢 窤 華 T郃" 8B @B`BhBB圔怋 楤 窧菳 (郆C  C (C8C @CXCpCxC 圕  –窩繡0菴鳦0D HD0hD 楧0窪鐳E .E@E XEpExE楨  燛HF `FxFF燜  ‵繤菷蠪餏 G G G (G8G$@G hG圙怗  楪窯蠫鐶 H H2(H`H hH圚楬癏 窰繦 T菻 J I pI I 怚 ↖ 菼 豂 T餓" HJ PJpJxJJ楯燡↗癑 窲 蠮郕 鳭 K 8K @KPK  XKpK圞怟 燢窴豄鳮  L0L8L@L`L L 圠怢 楲↙$癓 豅鳯M   M(M@M`MxM2M 窶豈鐼N NN B N N0N8N PN pN xNN圢怤楴 T燦 "鳱  O 0O @O XO xO 圤 T燨" 鳲 P*P8P PP(XPP楶 癙蠵  餚 QQ(0QXQxQ 楺 T燪 (鳴  R 0R @R XR xR 圧 T燫" 鳵 S(S0S8SPS XShSpS xS 圫怱楽燬繱 郤 餝 T T0@TpT xT 圱 燭 ═ 癟 窽 繲 萒 蠺郥鑄餞U" UHUhU TpU (萓 餟 V V (V HV XV TpV" 萔蠽"豓W(W8W@WXW `WpWxW W 怶榃燱╓ 萕 豔0鳺(X 0X @X XX `X hX pX xXX 圶 榅燲╔竂"豖Y Y0YPY TXY (癥 豗 鑉 鳼 Z 0Z @Z TXZ" 癦竄"繸鑊(鳽 [([@[ H[X[`[ h[ x[[圼怺  癧繹0郲\ \ (\ @\ H\ P\ X\ `\h\ p\ \圽怽燶"繺鑌 ]]8] T@] <榏 豜 鑍 鴀 ^ 0^ @^ TX^" 癪竈繼萟 郶鴁 _(_0_ 8_ H_`_ x_ 恄癬萠豞餩`  `8`P` p`坄2恅 萡 鑐 鴃aa a T(a a 燼 癮 繿 豠 鴄 b T b" xbb 坆榖 `燽cc c (c Hc`c$xc 燾 癱.纁 餭 d d d (d08dhdpd 坉榙燿╠癲竏 纃 衐 豥 郿鑔餯 e e ee e 0e 8e @eHePe `e he pexee 恊 榚 爀╡癳 纄 萫 衑豦鄀鴈 f f"@f Hhf癴衒鑖 餱gg 0g@g  2Pg坓恎榞爂 ╣萭 T術 (h Hh Xh hh h 爃 癶 T萮" i(i@i Xi xii坕 恑╥竔 <衖 j(j8j T@j 榡 竕 萰 豭 餵 k  k T8k" 恔榢 .爇 衚鄈lll  l(lHlPlXl`lhlplxll坙恖╨發0纋 8餷(m @m `mxmm坢恗 8榤衜 鑝 n n(n 0nHn $`n坣 爊竛纍萵鄋鴑o(o@oXo (po榦竜F豲 p @p  BXp爌竝(豴  q q q 8q HqPqXqpq坬╭纐2萹 r  r 0rHr PrXr`r hr坮 T恟 "鑢 s  s 0s Hs hs xs T恠 " 鑣餾 (鴖 t (t0t 8t $Ptxt 恡╰皌 竧衪鑤uu >0u ,pu爑竨衭0饀 v<@vv 恦╲ .竩 8鑦 w0wPwXw`whwpw  xw恮"╳ 衱鑧 8x 8xPxpx 坸 0恱 $纗 鑨 鴛 y (y Hy Xy hy y 恲 爕纘葃 衴 V貀 0z "Hzpz坺爖竮 葄鄗饅{ { 0{H{ h{坽▄皗竰纚衶貃饆 |0|P|X|`|x| 榺竱貄鄚"鑭} 0}P}p}x}}榼 竲貆鴠~ ~ F ~ h~ 垀▇葉衺 貇鄜鑯   0PX ` h *  (0 8 @ X x 垁 榾 █ 0竴 鑰   8X x  榿爜▉ 皝葋鑱 0 8Xh 槀皞袀  饌  ( &8` hx槂爟▋皟竷貎饍鴥0Ph2p ▌ 葎 貏饎 鴦 ((08 (@h p悈 槄 T皡  ( 8 H `  悊 T▎"  (0 8@X p垏悋槆 爣皣绹貒鄧&鑷  8 HP`x垐悎槇▓葓 鑸   @H P X hx槈爥▔皦笁缐葔袎貕鄩 鴫  0@` 垔▕葕袏"鑺  "8`x悑構笅袐(鑻$8HPX $`.垖笇 缹葘鄬$鴮. P X `hpx垗爫◢皪葝鄭2  X x 垘爭 ◣皫笌葞鄮鑾 饚 ((0 T8 悘 皬 缽 袕 鑿   T0" 垚 悙 槓◥笎袗貝 &鄲  08H`h p 垜槕皯笐 缿 袘 T貞 0 P ` p 垝 ⊕ 笒 T袙" ( 0@ TH F爴 钃 鴵    @ P Th" 罃葦  袛 钄鴶   4PX`hpx  悤 爼皶 笗 罆 8袝 8@H P `p悥槚爾皷笘罇葨袞貣饢鴸0 88p 垪 罈 6葪  " 8HX `h p 悩 槝 葮 袠 鄻 饦  8@ H X px 8笝 袡 饳 6 H "X 悮牃 皻 笟 葰貧 鄽 饸  ( 8Ph 垱 悰 牄笡 罌葲袥貨 鄾 T J` 皽 罍 袦 铚   T0 " 垵悵   槤 皾罎葷  袧  4酀 (08@ H X hx  垶 8槥 袨酁 0 @Ppx垷悷槦牊盁笩袩責0锜 8P h 垹牋 6 酄 "馉 (8 @H P `p x $垺啊 浮 取 亍稹 (0 8 H `h 8pá 愧 啖 6 8 "H p悾 槪牐 ǎ 福龋 校 啵   (@X px  悿 à (挨丐啶瑜 (黏 @ TH J牓 馥   ( H X Tp " 圈笑   卅 穰    4 X`hpx 埀 槯 ě抚 困  颧 8丕  @HP Xp 惃皑辅括权楔亘啜瑷皎0( 8X惄 ī 醛喋 6瑭  "0 Xhx 埅 惇 牚蔼 釜 $泉皙   0P hp x 埆 牜ǐ 8矮璜   8 6@ x "埇 艾垃鞋 噩喱 璎   @ H X h槶 碍腑 拉 协 璀 (瓠 ( (0X ` T埉 J喈 0 @ P h 埊 槸 T隘"    0@H  P  4`槹牥ò鞍赴腊 劝 匕 璋   8 P`埍惐 槺氨 辣斜鸨 (08PX0h 8槻胁 璨   6( ` "p 槼ǔ赋 莱瘸 谐 喑鸪  $0 8 H Xp惔 ù按 复 却 啻璐 8鸫( @ `x 6 傅 "鹊 鸬   ( 8H P ` 埗 樁 ǘ蓝囟 鸲   ( (0X`h (p樂 牱婪 确 T喾 J8 埜 樃 ǜ 栏 喔 鸶 T" `h  p 埞樄牴  ü  4腹鸸   0 @P X ` 8p ê负睾嗪韬 鸷 (HPX`hpx埢惢ɑ盎0阑 8鸹( @ `x 6 讣 "燃 鸺   ( 8H P $`埥 惤 牻 敖冉杞     8@ 8H 樉 妇芯 6鼐  "  HXh px  惪牽  缚乜 嗫 鹂 0 HP X h  (埨袄咐览 (壤鹄  T  Jx 攘 亓 枇    0 TH" 犅  奥 嚷芈嗦  杪  408@HPX ` p 惷 樏 犆 8懊 杳 ( 0H Xh埬惸樐犇澳改滥饶心枘鹉0 80h  犈概 6琅  " 0@P X` h x埰 惼 $犉绕 衅 嗥 鹌( @H P ` x 8埱狼 厍  6 P "` 埲樔ㄈ 叭溉 廊 腥嗳 枞   0 @Xp 埳惿 樕 ㄉ 郎 (壬鹕 (0 8X T` F甘     8 X h T" 厮嗨 (杷  8( `p愄樚犔 ㄌ捞 刑嗵 (08@H`h0x 8ㄍ嗤  0 8X` 8h犖 肝 匚鹞  ( HPX (`埾 愊跋 T赶 F X h x 愋 靶 佬 T匦" 08 (@h  p 8 秆妊柩鹧  (8X`hpx堃愐樢犚敢酪0幸 88 P p堄 愑坝赣 8烙  0H Pp (x犜ㄔ霸 (冈嘣  柙 T (h 愓 犝 罢 日 枵  T " hp T堉 6嘀  ( 8 P p  T樧" 鹱   @P`h p 愗,権蓉胸刎 嘭 柝 鹭" @H P`Jp蕾 匈 T刭 0 P ` p 堏 ㄚ 岗 T汹" ( 08  @X p堐愛樭犤 ㄛ 港 熔刿 枸  F  h x 堒犥 P杠  @P Xh bp  *剌  ( H .P 堔愞樲犧 ㄞ稗 绒 剞疝     8@HPX`hpx堖愡樳 高 羞噙柽疬    00 0 8@ ` bx噔疴(0@X`hp堛愩樸ㄣ 般 搞楞劂"嚆  $$$b0$樹$ㄤ$颁(蠕(劁(桎,痄,,( $( 08@HP X`h p  樺犲 ㄥ板稿厘儒绣 劐噱桢疱   8H P` 版 孺噫"8 *`愮犵扮哥如噻桤 痃  ( @`h >p"拌 罔 6 0$ H 2X$愰$ 犻(伴(搁(篱$乳$虚$嚅$b$`$p # x堦愱橁 ,犼 嘘 仃痍("H *p犽半离入仉痣   08 Ppx >"漓 桁 6 @$ X 2h$犿$ 绊(理(软(许$仨$囗$痦,b,p $ 堫愵橆狀 邦 割蓄 仡痤 "( *P愶狅革酗仫 囡 @H >P"愷 葛 6仞 $ ( 28$p$ (愸(橊(狇$$榜$礼$b伛$@ $P X`hp x堯 愹 狉 蛤莉闰序 .仳 *8@ H 4`橌 J绑"(0 HX x 堲  棒隔吏若F佤 (0 8H `p愼橎狌 铬 弱"仵 J  p狏丽 婿圉 桷 (08@H`pb堶瘅 *0@P X h 堷 慀傍给萨续伉 帏桫 瘌 0HPXp堸 砾2腮    0H P"X, (苞佞 J瘊 @P`  (h慃狖 胞耕塞帑棼瘥 6 &0 X T` 4更 瘘   ( H X Tp" 三旋佚帻椠(@ P`hpx  堽 橚  剥 叁佝 (8@Xhp x ,        2 (@`x T , ( 8 H `   T"  (@Xh  0   $FX` h p    0@PX `h                    ( 0 P X  `  h  p         J 0  @ X p              (  @  HH         0@ H P `    T 6 H X h    T" (08@H`x  $* ( 08 H X x  h(0 8@ X ` x       (  08 @ HPX T`      0 @ TX" N  ( 6H  T   ( 8 P p  T"   ( (  0@ `p       " 0HP  *X" ( 0 @X hpx L B HX `px      ( 0PX  `         (  H X p            !!!! 0!P! 8`!!!!!!!!!!!!!!"""" "("0"8" @"P" X" h" x""" " """""" <#P#X#`#h# &p## # *## $*$(H$p$x$$$$$  $ $$$%% %   %8%P%h% p%%%% %%%& &&0&H& P&h&&&&  &&&&& & & & '  ' 8' H' P' X' `' h' p'x''(' '''''  ' 2(  L@( (((((  .() ) 8)P)X) 0`)) ) )))))  )** 8* H*`*x*********** * + + 8+ P+p+ + 2+  +++ , , , (,  :@,,,,, ,,,-- - "(-,P- (--- T- (. 8. H. X. p. . . T. " / / 8/X/ x//  //  //00 0 (0H0 h0 x00 0 0 00000001111 1 81@1P1h1p1  ,x11  $1112 2(2 82 H2h2  22222 2D2 3  03l@3  633334  44 484@4  <H44 44 4 444455 " 5 H5 `5 x55 55 55 5 6 6 06 P6`6h6p6  666 66 667 77 787@7  H7h77 7878 88888 R8 9(90989 X9h9x99 9 999 99 : : (: 8: *H: x: ::: :::::  :$; (; @;  ,P;;  $;;;;;< <  < T(< &< < < < < = = T(= " === T= = > (> 8> P> p> > T>" >>?? ? ? 0?@? P? `? (p??? 0??? @ @0@8@ @@ P@`@,h@楡燖ˊ癅窣繞 蠤 谸 "鐯A A A 0AJ@A怉 (燗華蠥谹 *郃 TB hB 圔 楤 ˙ 繠 郆 養 TC" `ChCpC圕 燙 窩谻 餋 2鳦0D8D@D THD 燚 繢 蠨 郉 鳧 E (E T@E" 楨燛窫 蠩鐴餎鳨 TF 4XF 怓 燜 癋 菷 鐵 鳩 TG" hG pGG圙 怗<癎 餑 H * H,PHRH 豀 鐷 I *(I $XIXI 6豂 J J >(JhJpJ xJ  楯 窲蠮R郕 8KHKPKXK T`K L窴 L L (L @L `L pL T圠 B 郘 鐻HM HM`M hMpM xM M圡 怣 楳燤∕H癕 鳰N N N (N 0N8N @N HNPNXN `NpNx]p33]]334lose]84>封面标准类型 0-国际标准 1-行业标准 2-地方标准 3-企业标准x]`4<判断当前是否正在进行封面数据处理,避免事件连续触发造成死循环]i原来域名,用于当某个域失去焦点时调用,如果现在域不是OriFldName 则证明OriFldName失去焦点 OriFld失去焦点zle,2008-7-23,+2,表格行列]4](zle,2008-7-23,+begin,点击了“首”的按钮]]4](]4zle,2008-10-4,+2,索引项内容]P]x]5]%用来标识目次更新的次数](5]]]P5zle,09-6-16, +定义一个结构体H^`^xpXM===============================================================================Function:插入菜单==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================]) 自定义菜单])第一行放置"标准要素"快捷菜单]) 第二行放置"层次标题样式"快捷菜单]0) 第三行放置"要素内容样式"快捷菜单]P]p]'LTCS StartControlStatusEnd$'~Start'~ ~End文件不能单独运行 A@|kzle,2008-8-5,+1,固定菜单%zle,090705,*1,处理文档切换时保存问题 6!12.0 4!'k0Menu Bar 4%.rzle,2008-9-28,+3,可以修改菜单 r 9q增加前先删除原来的菜单 & r! &! 要素及排版 &! 层次标题样式 &! 要素内容样式 &!特殊符号 &B@k"增加前先删除原来菜单对应的快捷按钮 x  x! 要素及排版 x! 层次标题样式 x! 要素内容样式 xB@k`X增加菜单对应的快捷按钮 要素及排版 4!%.t 层次标题样式 4!%.v 要素内容样式 4!%.x 第一个菜单 r! l7.& & 要素及排版95!.z z封面99 9q z 0/5!.z z目次99 9q z 0/5!.z z前言9.9 9q` z 0/5!.z z引言9 9 9q z 0/5!.z z附录9 9 9q z 0/5!.z z参考文献99 9qp z 0/5!.z z索引9#9 9q z 0/($完成插入索引页面和插入索引内容的功能5!.z z 标记索引项9?9 9q z 0/5!.z z 删除索引项9@9 9qH z 0/5!.z z9双面排版99 99 9q z 0/5!.z z9打印预览9m9 9 9q z 0/ zle,09-06-18,*编写规则注释掉# Set Cmd = .Controls.Add With Cmd% .Caption = "编写规则" .FaceId = 2860 .Style = msoButtonIconAndCaption End With$ Set ClsEvent.CmdGZ = Cmd zle,09-06-26,+,增加 "打印" 按钮5!.z z9打印9 9 9$ .State = msoButtonUpqx z 0/ zle,090702,+增加保护和解保护5!.z z9 保护TCS文件99 9q z 0/5!.z z9取消TCS文件保护99 9q z 0/qxqp第一个菜单的快捷按钮 t5!.z z封面99 9q z 0/5!.z z目次99 9q z 0/5!.z z前言9.9 9qh z 0/5!.z z引言9 9 9q z 0/5!.z z附录9 9 9q z 0/5!.z z参考文献99 9qx z 0/5!.z z索引9#9 9索引9q z 0/$=完成插入索引页面和插入索引内容的功能'''''''''''''''''''''''''5!.z z 标记索引项9?9 9 标记索引项9q` z 0/5!.z z 删除索引项9@9 9 删除索引项9q z 0/5!.z z双面排版99 9q z 0/5!.z z打印预览9m9 9qP z 0/zle,09-06-18,*编写规则 Set Cmd = .Controls.Add With Cmd! .Caption = "编写规则" .FaceId = 286, .Style = msoButtonIconAndCaption End With! Set ClsEvent.CmdGZC = Cmd!zle,09-06-26,+增加 "打印"快捷按钮5!.z z打印9 9 9q z 0/5!.z z保护文档99 9qh z 0/qP 第二个菜单 r! l7.& & 层次标题样式95!.z z9章标题99 9q z 0/P Set ctlPopup = .Controls.Add(Type:=msoControlPopup, temporary:=True) With ctlPopup# .Caption = "条标题"5!.z z 一级条标题9G99 9q z 0/5!.z z 二级条标题9H9 9q@ z 0/5!.z z 三级条标题9I9 9q z 0/5!.z z 四级条标题9J9 9q z 0/5!.z z 五级条标题9K9 9q8 z 0/ End WithP Set ctlPopup = .Controls.Add(Type:=msoControlPopup, temporary:=True) With ctlPopup% .Caption = "无标题条"5!.z z 无标题一级条999 9q z 0/5!.z z 无标题二级条99 9q z 0/5!.z z 无标题三级条99 9q` z 0/5!.z z 无标题四级条99 9q z 0/5!.z z 无标题五级条99 9q z 0/ End With5!.z z段9 99 9q8 z 0/P Set ctlPopup = .Controls.Add(Type:=msoControlPopup, temporary:=True) With ctlPopup! .Caption = "列项"5!.z z列项——(一级)9899 9q8 z 0/5!.z z列项●(二级)99 9q z 0/5!.z z列项◆(三级)99 9q z 0/5!.z z字母编号列项(一级)99 9q( z 0/5!.z z首字母编号列项(一级)959 9q z 0/5!.z z数字编号列项(二级)9 9 9qh z 0/5!.z z编号列项(三级)99 9q z 0/ End Withqq第二个菜单的快捷按钮 v5!.z z章99 9章标题9qX z 0/ 5!.z z条一95G9 9 一级条标题9q z 0/ 5!.z z条二9H9 9 二级条标题9q z 0/5!.z z条三9I9 9 三级条标题9q  z 0/5!.z z条四9J9 9 四级条标题9q z 0/5!.z z条五9K9 9 五级条标题9qP z 0/ 6!11.05!.z z无题一99 9 一级无标题条9q z 0/kzle,090705,+3级无标题条快捷5!.z z无题二99 9 二级无标题条9q8 z 0/5!.z z无题三99 9 三级无标题条9q z 0/5!.z z无题四99 9 四级无标题条9qh z 0/5!.z z无题五99 9 五级无标题条9q z 0/5!.z z段9 9 9正文段9q z 0/ 5!.z z项一989 9列项——(一级)9q8 z 0/"5!.z z项二99 9列项●(二级)9q z 0/$ 6!11.05!.z z项三99 9列项◆(三级)9qP z 0/&k85!.z z字母项99 9字母编号列项(一级)9q z 0/(5!.z z首字母项959 9首字母编号列项(一级)9qh z 0/*5!.z z数字项9 9 9数字编号列项(二级)9q z 0/, Set Cmd = .Controls.Add With Cmd .Caption = "编号项" .FaceId = 503, .Style = msoButtonIconAndCaption- .TooltipText = "编号列项(三级)" End With" Set ClsEvent.CmdLx6C = Cmdq 第三个菜单 r! l7.& & 要素内容样式95!.z z示例99 9q z 0/.5!.z z示例×99 9q z 0/05!.z z首示例×9o9 9q` z 0/25!.z z示例内容9 6!11.0,9d9k 9q z 0/45!.z z条文注999 9q z 0/65!.z z条文注×9$9 9q8 z 0/85!.z z 首条文注×9 9 9q z 0/:5!.z z图表注9B99 9q z 0/<5!.z z图表注×9J9 9q8 z 0/>5!.z z 首图表注×9F9 9q z 0/@5!.z z条文脚注999 9q z 0/B5!.z z图表脚注9&9 9q8 z 0/D5!.z z首图脚注9r9 9q z 0/F5!.z z图标题9S99 9q z 0/H5!.z z表标题99 9q@ z 0/J5!.z z插入表格9 9 9q z 0/L5!.z z插入公式999 9q z 0/N5!.z z公式编号9J9 9qH z 0/P5!.z z 更新公式编号99 9q z 0/Rqq第三个菜单的快捷方式 x5!.z z例99 9qh z 0/T5!.z z例×99 9q z 0/V5!.z z首例×9o9 9q z 0/X5!.z z注99 9qx z 0/Z5!.z z注×9$9 9q( z 0/\5!.z z首注×9 9 9q z 0/^5!.z z图表注9B9 9q z 0/`5!.z z图表注×9J9 9q8 z 0/b5!.z z 首图表注×9F9 9q z 0/d5!.z z脚注99 9q z 0/f5!.z z图表脚注9&9 9q@ z 0/h5!.z z首图脚注9r9 9q z 0/j5!.z z图题9S9 9q z 0/l5!.z z表题99 9qP z 0/n5!.z z表格9 9 9q z 0/p 6!11.05!.z z公式99 9q z 0/r5!.z z公式编号9J9 9qH z 0/tk0 q( Vzle,09-06-04,+begin,判断是否增加了多个菜单,如果是,则删除前面几个,只保留最后一个菜单]]'v'x & r! &! 要素及排版 v 'vkX P 4如果imenucount>1时,说明有多个重复的菜单,则进行删除 v & r! &! 要素及排版 v  &B@ v 'vk x v &! 层次标题样式 &! 要素内容样式 &B@k( v x 'xk kkk r z9q t z9 ~9|9q v z9 ~9|9qx x z9 ~9|9qP 菜单创建结束&zle,2008-11-7,不让显示“显示隐藏标记” !!! !!(k!zle,09-06-19,判断版本显示段落标记 6!12.0D ActiveWindow.View.ShowParagraphs = False '显示段落标记 Else !(k$zle,090705,+打开时,有封面,显示保护 4!! 4!  0!(取消保护 0!(kk& zle,09-06-20,+1,增加菜单后保存文档 4(o8助手提示]8]X]x : !.      B  (  ( !. 标准编写提示 (  (d  ( B@k(o M===============================================================================Function:各个部分的助手提示==Para: ==Return: ==Designer: ==Created: ==Updated: == Update 1:M============================================================================= 请输入ICS号:A@o请输入标准文献分类号:A@oX请输入标准编号: A@oP请输入代替标准编号: A@o 请输入标准名称: A@o请输入标准英文名称: A@oX#请输入与国际标准一致性程度地标识: A@o请输入发布日期: A@oP请输入实施日期: A@o 请输入标准备案号: A@oX请输入行业名称: A@o请输入地方名称: A@o请输入企业名称: A@o`请输入企业标准编号: A@o0X请输入行业标准标识A@o请输入地方标准标识A@o请输入企业标准标识A@o 请输入地方标准标识A@opM===============================================================================Function:插入封面?==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================X ] ] ] &zle,2008-11-7,不让显示“显示隐藏标记” !!! !!(k>%zle,2008-12-22,让光标的位置在主文档上  !('JTCS StartControlStatusEnd$'~Start'~ ~End 4!TCS.SYS文件不能单独运行 A@|=k= 4!  zhangcheng 4B@kx=   B@ l B@   B@  4%%(+zle,2009-5-17,+1,其它节断开和封面的页脚链接 zle,090714,*1T ActiveDocument.Sections(2).Footers(wdHeaderFooterPrimary).LinkToPrevious = False将封面中内容距顶边设为10mm ! $9$999q;处理封面页眉页脚 4% 标准书眉一 4% 7!( 7!(d'zle,2009-5-17,+1,将第一节的页码设置成空 7 !(dq0;ICSd B@   !($zle,2008-10-10,+1,增加半个汉字的距离  B@ ! l 4!%. ICS999 9"9$请输入正确的ICS号:9&9(5* .l点击此处添加ICS号0C@,9q9q9 B@2 B@4 ! l 4!%. WXFLH999 9"9$请输入中国标准文献分类号:9&9(5* .l点击此处添加中国标准文献分类号0C@,9q8q8 B@2 H B@4(zle,2008-9-2,+begin,增加一个表格放备案号 !8: >< B@ 4!6B@ %65网格型网格型9k79D9F9H9Jq7 R N %L(P R T %L(P R V %L(P R X %L(P R Z %L(P R \ %L(Pzle,2008-9-2,+endzle,2008-11-24,*1) Selection.TypeText Text:="备案号" ! l 4!%. BAH99"9$9&9(qH6zle,2008-9-2,注释掉一个回车 ' Selection.TypeParagraph b` fd B@^ b` fd B@hd5 B@4 b` fd B@^ b` fd B@hkH5 文献分类号 4% ( b` B@jzle,090708,+begin,修改字体 H B@l B@^ b B@hd4 B@l b B@h B@^kX4 p f B@n !r黑体9tTimes New Roman9vTimes New Roman9xTimes New Roman9q3 B@2 H b B@j B@2 B@ndp3 b B@jkP3zle,090708,+end, B@4 p` B@l 插入标准标识 HKT 国家标准A@zKT行业标准A@|KT地方标准A@~KT地方标准A@n`2标准标号 封面标准号2 4% ( HGB/Td B@ zle,090708,+8,修改字体 f B@l !r黑体9tTimes New Roman9vTimes New Roman9xTimes New Roman9qX1 B@n HeDB d B@ zle,090804,+8,修改字体 f B@l !r黑体9tTimes New Roman9vTimes New Roman9xTimes New Roman9qx0 B@n黑体 !r( HeQ/d B@ k 0 H ! l 4!%. StdNo099 9"9$9&9(5* H .lXX0C@,9 B@2 He .lXX0C@,9 B@2 He .lXXX0C@,9 B@2k.q.q.k. H d B@ zle,090708,+4,修改字体 !r黑体9t黑体9vq. He/T d B@ zle,090804,+8,修改字体 f B@l !r黑体9tTimes New Roman9vTimes New Roman9xTimes New Roman9qH- B@n黑体 !r( He/ d B@  Hezle,090804,+8,修改字体 f B@l !r黑体9tTimes New Roman9vTimes New Roman9xTimes New Roman9q@, B@n黑体 !r( d B@ k+ ! l 4!%. StdNo199 9"9$9&9(5* If StdType = 0 Then .lXXXXX0C@,95 B@2# ElseIf StdType = 1 ThenJ .EditType Type:=wdRegularText, Default:="XXXX", Format:="" .Width = 4! Selection.EndKey# ElseIf StdType = 2 ThenI .EditType Type:=wdRegularText, Default:="XXX", Format:="" .Width = 3! Selection.EndKey# ElseIf StdType = 3 ThenJ .EditType Type:=wdRegularText, Default:="XXXX", Format:="" .Width = 4! Selection.EndKey End Ifq(q("zle,090802,*,注释掉原来的横线增加? Selection.InsertSymbol CharacterNumber:=9472, Unicode:=True% 'zle,09-06-21,+5,修改横线太粗问题$ Selection.MoveLeft , 1, wdExtend Selection.Font.Name = "黑体"' Selection.Font.NameFarEast = "黑体"0 Selection.Font.NameAscii = "Times New Roman" Selection.MoveRight , 1# 'zle,09-06-26,+3,将字体改成黑体 Selection.Font.Name = "黑体"' Selection.Font.NameFarEast = "黑体"% Selection.Font.NameAscii = "黑体"zle,090802,+1—d B@  ! l 4!%. StdNo299 9"9$9&9(5* .lXXXX0C@,9qh%q`% B@2 B@4&zle,2008-9-2,+begin,增加一个表格放代替 !8: >< B@ 4!6B@ %65网格型网格型9k$9D9F9H9JqX$ R N %L(P R T %L(P R V %L(P R X %L(P R Z %L(P R \ %L(Pzle,2008-9-2,+endzle,2008-11-24,*1# Selection.TypeText Text:="代替" B@2 ! l 4!%. DT9 ShowHelp499 9"9$9&9(5* .l0C@,9q"q"封面标准代替信息 4% ( B@2zle,2008-9-2,+2,移出表格 B@n B@4 B@4 zle,090710,+1< Selection.Style = ActiveDocument.Styles("封面标准名称2") ! l 4!%. StdName999 9"9$9&9(5* .l点击此处添加标准名称0C@,9q q  zle,090710,*1 封面标准名称 4% ( B@2 B@4 ! l 4!%. StdEnglishName999 9"9$9&9(5* .l点击此处添加标准英文译名0C@,9qq@ Selection.Style = ActiveDocument.Styles("封面标准英文名称2")封面标准英文名称 4% ( B@2 B@4B Selection.Style = ActiveDocument.Styles("封面一致性程度标识2")封面一致性程度标识 4% ( zle,090702,*1 Selection.TypeText "(" ! l 4!%. YZBS999 9"9$9&9(5* .l&点击此处添加与国际标准一致性程度的标识0C@,9qq B@2 zle,090702,*1 Selection.TypeText ")"&zle,2008-9-2,+begin,增加一个表格放类别 !8: >< B@ 4!6B@ %65网格型网格型9k9D9F9H9JqX R N %L(P R T %L(P R V %L(P R X %L(P R Z %L(P R \ %L(Pzle,2008-9-2,+end@ Selection.Style = ActiveDocument.Styles("封面标准文稿类别2")封面标准文稿类别 4% ( ! l 4!%. LB999 9"9$9&9(5!B@ 文稿版次选择5!B@(工作组讨论稿)5!B@(征求意见稿)5!B@(送审讨论稿)5!B@ (送审稿)5!B@ (报批稿)5!B@0 .DropDown.ListEntries.Add Name:="出版稿"qzle,2008-9-2,+1,将光标移出表格 B@nD Selection.Style = ActiveDocument.Styles("封面标准文稿编辑信息2")封面标准文稿编辑信息 4% (&zle,2008-9-2,+begin,增加一个表格放类别 !8: >< B@ 4!6B@ %65网格型网格型9k(9D9F9H9Jq R N %L(P R T %L(P R V %L(P R X %L(P R Z %L(P R \ %L(Pzle,2008-9-2,+end:zle,2008-8-5,+begin,增加和发布日期一样的日期格式,便于控制 ! l 4!%. WCRQ999 9"9$9&9(5* .l0C@,CA.EditType Type:=wdDateText, Default:=Date, Format:="yyyy年M月d日"q(q  B@2zle,2008-8-5,+endzle,2008-9-2,+1,将光标移出表格 B@n B@ B@4 p B@l'zle,09-06-26,+5,增加封面最下面的一行线$$ $$ 4!%. (  (9 shp.RelativeVerticalSize = wdRelativeVerticalSizePage  B@%zle,2008-10-7,+恢复原来的发布日期格式 If StdType = 0 Then; Selection.Style = ActiveDocument.Styles("发布日期") Else 其他发布日期 4% ( End If ! l 4!%. FY9 ShowHelp899 9"9$9&9(5* .lXXXX0C@,9qq p` B@n - d B@  ! l 4!%. FM9 ShowHelp899 9"9$9&9(5* .lXX0C@,9qq p` B@n - d B@  ! l 4!%. FD9 ShowHelp899 9"9$9&9(5* .lXX0C@,9qq p` B@n发布d B@ #zle,09-06-06,+begin,修改数字为黑体 B@l p` fd B@l !r黑体9t黑体9vq B@l p` fd B@l !r .Position = 1黑体9t黑体9vq3 Selection.MoveRight Unit:=wdCharacter, Count:=3 B@l p` fd B@l !r黑体9t黑体9vq B@l p` fd B@l !r .Position = 1黑体9t黑体9vqH B@l p` fd B@l !r黑体9t黑体9vq B@2zle,09-06-06,+end p` B@n B@4 p B@lzle,09-06-26,+3,  (9 shp.RelativeVerticalSize = wdRelativeVerticalSizePage333339@$ ( If StdType = 0 Then; Selection.Style = ActiveDocument.Styles("实施日期") Else 其他实施日期 4% ( End If' zle,2008-10-7,+恢复原来实施日期格式 ! l 4!%. SY9 ShowHelp999 9"9$9&9(5* .lXXXX0C@,9q@ q8 p` B@n - d B@  ! l 4!%. SM9 ShowHelp999 9"9$9&9(5* .lXX0C@,9q@ q8 p` B@n - d B@  ! l 4!%. SD9 ShowHelp999 9"9$9&9(5* .lXX0C@,9q@ q8 p` B@n实施d B@ zle,09-06-06,+begin B@l p` fd B@l !r黑体9t黑体9vqp B@l p` fd B@l !r .Position = 1黑体9t黑体9vq3 Selection.MoveRight Unit:=wdCharacter, Count:=3 B@l p` fd B@l !r黑体9t黑体9vq0 B@l p` fd B@l !r .Position = 1黑体9t黑体9vq B@l p` fd B@l !r黑体9t黑体9vq0 B@2zle,09-06-06,+end B@n B@4 B@lzle,09-06-26,+3,  (9 shp.RelativeVerticalSize = wdRelativeVerticalSizePage333339@$ ( H发布部门 4% (] 'TCSGraphicPath$' zle,09-06-23*1,将图片改成bmp格式% gpath = gpath & "\GBSend.jpg" \GBSendClear.bmp'  !B@d@ 其他发布部门 4% ( ! l 4!%. fm999 9"9$9&9(5* H .l国家质量监督检验检疫总局0C@, B@nd@ .l0C@, B@nk9qqzle,090731,修改 “发布距离”  B@  B@  B@发d B@ L Selection.InsertSymbol CharacterNumber:=8194, Unicode:=True, Bias:=0布d B@  p` fd B@l发布 4% (k$K$ $K$ 4!%.zle,2008-9-26,*4' Set shp = ActiveDocument.Shapes.AddLine(MillimetersToPoints(25), MillimetersToPoints(252), MillimetersToPoints(25 + 170), MillimetersToPoints(252))' shp.LockAnchor = TrueB' shp.RelativeVerticalPosition = wdRelativeVerticalPositionPage:' shp.RelativeVerticalSize = wdRelativeVerticalSizePageK以下是定位线,以绝对坐标完成各种位置线条,做定位参照 完成所有元素的严格定位 zle , 2' Set shp = ActiveDocument.Shapes.AddLine(MillimetersToPoints(25), MillimetersToPoints(42), MillimetersToPoints(25 + 170), MillimetersToPoints(42)),' shp.Line.ForeColor.RGB = RGB(255, 0, 0)' Set shp = ActiveDocument.Shapes.AddLine(MillimetersToPoints(25), MillimetersToPoints(50), MillimetersToPoints(25 + 170), MillimetersToPoints(50)),' shp.Line.ForeColor.RGB = RGB(255, 0, 0) Set shp = ActiveDocument.Shapes.AddLine(MillimetersToPoints(25), MillimetersToPoints(67), MillimetersToPoints(25 + 170), MillimetersToPoints(67))+ shp.Line.ForeColor.RGB = RGB(255, 0, 0)' Set shp = ActiveDocument.Shapes.AddLine(MillimetersToPoints(25), MillimetersToPoints(115), MillimetersToPoints(25 + 170), MillimetersToPoints(115)),' shp.Line.ForeColor.RGB = RGB(255, 0, 0)' Set shp = ActiveDocument.Shapes.AddLine(MillimetersToPoints(25), MillimetersToPoints(297 - 24), MillimetersToPoints(25 + 170), MillimetersToPoints(297 - 24)),' shp.Line.ForeColor.RGB = RGB(255, 0, 0) Set shp = ActiveDocument.Shapes.AddLine(MillimetersToPoints(25), MillimetersToPoints(124), MillimetersToPoints(25 + 170), MillimetersToPoints(124))+ shp.Line.ForeColor.RGB = RGB(255, 0, 0) Set shp = ActiveDocument.Shapes.AddLine(MillimetersToPoints(25), MillimetersToPoints(134), MillimetersToPoints(25 + 170), MillimetersToPoints(134))+ shp.Line.ForeColor.RGB = RGB(255, 0, 0) 定位线结束< 以下是插入遮蔽矩形框,当某一项(如完成日期)不填时覆盖文字 Z 4!%.@  @!(DT @(  @B@ d 4!%.D  D!(LB D(  DB@ D( MsgBox ShpLB.LockAnchor  4!%.F  F!(RQ F(  FB@ F( MsgBox ShpRQ.LockAnchor H 殭櫃檌P@fffff芃@Q@333333/@ 4!%.F  F!(BAH F(  FB@k0w#zle,2009-1-14,*3,注释掉增加的矩形框[ Set shp = ActiveDocument.Shapes.AddShape(msoShapeRectangle, 532.9, 831.75, 36.75, 15.6) shp.Line.Visible = msoFalse$ shp.ZOrder msoBringInFrontOfTextzle,090714+begin  StandardName B@  4%% (标准书脚_奇数页 4%  4%% !( !!  %B@Bkhu !!!l  !!!l   !!(lku  !!( !!  !!(d纓  !!(k爐 ! l !B@ !! 999 999q0t  !!(zle,090714+end启动封面的窗体保护]  4%(  4!!  4%(坰 zhangcheng l 4B@ 插入终结线   B@ B@2 B@4!_________________________________ B@ 终结线 4% (zle,090713,+2,增加页眉的映射A@'J   B@StdName 4%B@H'Jo8rM===============================================================================Function:初始化文件==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================   B@目次、标准名称标题 4% (标准名称d B@  B@^ B@n  f B@n 4! ! StandardNameC@ 99q鴒 B@2 B@4 b` B@j章标题 4% (范围d B@  B@4 B@4章标题 4% (规范性引用文件d B@  B@4段 4% (下列文件对于本文件的应用是必不可少的。凡是注日期的引用文件,仅所注日期的版本适用于本文件。凡是不注日期的引用文件,其最新版本(包括所有的修改单)适用于本文件。d B@  B@4 B@4章标题 4% (初始化页眉页脚 4!( 4!(C ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter Selection.MoveRight , 10 Selection.Delete Unit:=wdCharacter, Count:=1  !!( 4% 7!(d标准书眉_奇数页 4% 7!( 7 ! l 4!B@标准书脚_奇数页 4% 7 !(qHl设置脚注方式(全文连续) 4! 9 99 9q餶 6 0/2o豮M=============================================================================!==Function:国标输入时修改标准名称==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================` ] 'J StandardName 4%!. StdName 4%!StdName 4%!$点击此处StdName 4%! (d B@H B@^ B@n  f B@n 4! ! StandardNameC@ 99q i  StandardName B@ p B@l B@  StandardName B@ B@2目次、标准名称标题 (BZ 4!% BZ B@BZ 4%B@d h X X 4%B@Hk餲 B@2'Xk術d萭标准名称 (d B@H B@^ B@n  f B@n 4! ! StandardNameC@ 99qg  StandardName B@ B@^ B@n B@目次、标准名称标题 (BZ 4!% BZ B@BZ 4%B@dHf X X 4%B@Hkf B@2'Xk鴈k餰k鑕'Jo豦M=============================================================================!==Function:输入标准编号后映射页眉==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M============================================================================= 'J] zle,090708+1,保护标志] 4!  zhangcheng 4B@'kd zle,090522,+being,判断是哪种标准 <]0 ]P ]p  4!  ' !标准称谓 ! 其他标准称谓yHck@c8c] !!d' 国家标准'H 行业标准e'H 地方标准e'H 企业标准e'Hkxb'<khbzle,090522,+end,  4!!  4%] '" HGB/T '" "StdNo1 4%!$$—StdNo2 4%!'" HeStdNo0 4%!$$/T StdNo1 4%!$$—StdNo2 4%!'" HeDB'" "StdNo0 4%!$$/ StdNo1 4%!$$—StdNo2 4%!'" HeQ/'" "StdNo0 4%!$$ StdNo1 4%!$$—StdNo2 4%!'"k郷R HStr = HStr & Trim(ActiveDocument.FormFields("StdNo1").Result) & "-" &6 ActiveDocument.FormFields("StdNo2").Result " 7!(d= .Headers(wdHeaderFooterEvenPages).Range.Text = HStrq郶豝 zle,090805,+begin,去掉封面页眉 *J ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Select Selection.ClearFormatting( ActiveWindow.View.Type = wdPrintView> ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument( ActiveWindow.View.Type = wdPrintView保护窗体  4%(  4!!  4%(] zhangcheng l 4B@ 要素及排版$! 0!(取消保护 0!(k\kx\'Joh\M===============================================================================Function:判断标准的封面类型==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M============================================================================= <'J] 4!  zhangcheng 4B@k癦] ]0 ]P  4!  ' !标准称谓 ! 其他标准称谓y0Zk(Z Z]h !!d' 国家标准'H 行业标准e'H 地方标准e'H 企业标准e'Hk`Y保护窗体 4%(  4!!  4%(鳻 zhangcheng l 4B@ 要素及排版$! 0!(取消保护 0!(kpX'<k`XoXXM===============================================================================Function:处理双面排版页眉页脚==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M============================================================================= ]   zle,2008-11-23,*1,注视掉错误捕捉 On Error GoTo errorhandlezle090706,+1,防止封面处理'J 4!! 如果已经插入封面 . %,4 ClsEvent.CmdTwoPageC.State = msoButtonUp3 ClsEvent.CmdTwoPage.State = msoButtonUpI MsgBox "不能在封面处理双面排版,请将光标移动正文执行此项操作" Exit Sub Else 0 2 B@kU 4!  zhangcheng 4B@k萒 End Ifk═ 4!( 4!(处理正文%zle,090804,将第二节开始改成第一节开始  4!!  4%标准书眉_奇数页 4% 7!(标准书眉_偶数页 4% 47!( 7!!d 7!!d $ 47!(d标准书脚_奇数页 4% 7 !( 47 ! l 4!B@标准书脚_偶数页 4% 47 !( 4!  zhangcheng 4B@k≧@$5(6$5(5(8q`R 段 4%  4%%!( 4!!  4%(  4!!  4%(癚 zhangcheng l 4B@ 要素及排版$! 0!(取消保护 0!(k(Qk Q'J|QoQM===============================================================================Function:处理单面排版页眉页脚==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M============================================================================= ]0 H  zle,2008-11-23,*1,注视掉错误捕捉 On Error GoTo errorhandle 4!! 如果已经插入封面 . %,I MsgBox "不能在封面处理双面排版,请将光标移动正文执行此项操作" Exit Sub Else 0 2 B@kXN 4!  zhangcheng 4B@k N End IfkN 4!( 4!(处理正文%zle,090804,将第二节开始改成第一节开始  4!!  4%标准书眉_奇数页 4% 7!(标准书脚_奇数页 4% 7 !( 4!  zhangcheng 4B@k蠰 zle,090706+2,页边距调整@$5(6$5(5(8qhL 段 4%  4%%!( 4!!  4%(  4!!  4%(窴 zhangcheng l 4B@ 要素及排版$! 0!(取消保护 0!(k0Kk(K| KoKM============================================================================= ==Function:设置格式为 图表“注”==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================` >癐注: 4% (|圛>I保护区域不能设置样式!A@oXIM============================================================================="==Function:设置格式为图表 “注×”==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M============================================================================= >餑注×: 4% (|菺>繥保护区域不能设置样式!A@o楪M============================================================================="==Function:设置格式为图表 “首注”==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M============================================================================= >0F注×: 4% ( F$D%H%J注%1:9L P9N R9{瓽醶?$9T V9醶瓽狯?$9X \9Z9^9`5r9b9d \9f \9h \9j \9l \9n \9p \9r \9t \9v \9x \9z 9| \9~ \9黑体9q谼注×:9q繢 F$D%H%J%2)9L 9N 9{瓽醶?$9T V9?$9X$9Z9^9`5r \9b \9d \9f \9h \9j \9l \9n \9p \9r \9t \9v \9x \9z \9| \9~ \99q圕9qxC F$D%H%J%3.9L 9N 9{瓽醶?$9T 9?$9X$9Z9^9`5r \9b \9d \9f \9h \9j \9l \9n \9p \9r \9t \9v \9x \9z \9| \9~ \99q@B9q0B F$D%H%J%4.9L 9N R9{瓽醶?$9T V9?$9X$9Z9^9`5r \9b \9d \9f \9h \9j \9l \9n \9p \9r \9t \9v \9x \9z \9| \9~ \99q鳣9q鐯 F$D%H%J%5)9L 9N 9{瓽醶?$9T V9?$9X$9Z9^9`5r \9b \9d \9f \9h \9j \9l \9n \9p \9r \9t \9v \9x \9z \9| \9~ \99q?9q? F$D%H%J%6.9L 9N 9{瓽醶?$9T 9?$9X$9Z9^9`5r \9b \9d \9f \9h \9j \9l \9n \9p \9r \9t \9v \9x \9z \9| \9~ \99qh>9qX> F$D%H%J%7.9L 9N R9{瓽醶?$9T V9?$9X$9Z9^9`5r \9b \9d \9f \9h \9j \9l \9n \9p \9r \9t \9v \9x \9z \9| \9~ \99q =9q= F$D%H%J%8)9L 9N 9{瓽醶?$9T V9?$9X$9Z9^9`5r \9b \9d \9f \9h \9j \9l \9n \9p \9r \9t \9v \9x \9z \9| \9~ \99q;9q;  F$D%H%J%9.9L 9N 9{瓽醶?$9T 9?$9X$9Z9^9`5r \9b \9d \9f \9h \9j \9l \9n \9p \9r \9t \9v \9x \9z \9| \9~ \99q:9q: F$D%H(  F$D%H !!B@|:>:保护区域不能设置样式!A@o9M============================================================================= ==Function:设置格式为 正文“注”==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M============================================================================= >p8 注:(正文) 4% (|@8>88保护区域不能设置样式!A@o8M============================================================================="==Function:设置格式为 正文“注×”==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================`>6注×:(正文) 4% (|x6>p6保护区域不能设置样式!A@oH6M============================================================================="==Function:设置格式为 正文“首注”==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================>4注×:(正文) 4% ( F$D%H%J注%1:9L P9N R9{瓽醶?$9T V9醶瓽狯?$9X \9Z9^9`5r9b9d \9f9h9j \9l \9n \9p \9r \9t \9v \9x \9z 9| \9~ \9黑体9q3注×:(正文)9q`3 F$D%H%J%2)9L 9N 9呺Q割?$9T V9徛(\@$9X{瓽醶?$9Z9^9`5r \9b \9d \9f9h9j \9l \9n \9p \9r \9t \9v \9x \9z \9| \9~ \99q 29q2 F$D%H%J%3.9L 9N 9呺Q割?$9T 9徛(\@$9X{瓽醶?$9Z9^9`5r \9b \9d \9f9h9j \9l \9n \9p \9r \9t \9v \9x \9z \9| \9~ \99q09q0 F$D%H%J%4.9L 9N R9呺Q割?$9T V9徛(\@$9X{瓽醶?$9Z9^9`5r \9b \9d \9f9h9j \9l \9n \9p \9r \9t \9v \9x \9z \9| \9~ \99q/9qp/ F$D%H%J%5)9L 9N 9呺Q割?$9T V9徛(\@$9X{瓽醶?$9Z9^9`5r \9b \9d \9f9h9j \9l \9n \9p \9r \9t \9v \9x \9z \9| \9~ \99q0.9q . F$D%H%J%6.9L 9N 9呺Q割?$9T 9徛(\@$9X{瓽醶?$9Z9^9`5r \9b \9d \9f9h9j \9l \9n \9p \9r \9t \9v \9x \9z \9| \9~ \99q,9q, F$D%H%J%7.9L 9N R9呺Q割?$9T V9徛(\@$9X{瓽醶?$9Z9^9`5r \9b \9d \9f9h9j \9l \9n \9p \9r \9t \9v \9x \9z \9| \9~ \99q+9q+ F$D%H%J%8)9L 9N 9呺Q割?$9T V9徛(\@$9X{瓽醶?$9Z9^9`5r \9b \9d \9f9h9j \9l \9n \9p \9r \9t \9v \9x \9z \9| \9~ \99q@*9q0*  F$D%H%J%9.9L 9N 9呺Q割?$9T 9徛(\@$9X{瓽醶?$9Z9^9`5r \9b \9d \9f9h9j \9l \9n \9p \9r \9t \9v \9x \9z \9| \9~ \99q(9q( F$D%H(  F$D%H !!B@|h(>`(保护区域不能设置样式!A@o8(>((条文脚注 4% (|(>'保护区域不能设置样式!A@o' >' 图表脚注编号 4% (|'>'保护区域不能设置样式!A@o`'M=============================================================================$==Function:设置格式为 “一级条标题”==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================`>% 一级条标题 4% (|%>%保护区域不能设置样式!A@o%M=============================================================================$==Function:设置格式为 “二级条标题”==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================>($ 二级条标题 4% (|$>#保护区域不能设置样式!A@o#M=============================================================================$==Function:设置格式为 “三级条标题”==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================>`" 三级条标题 4% (|8">0"保护区域不能设置样式!A@o"M=============================================================================$==Function:设置格式为 “四级条标题”==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M============================================================================= > 四级条标题 4% (|p >h 保护区域不能设置样式!A@o@ M=============================================================================$==Function:设置格式为 “五级条标题”==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================`> 五级条标题 4% (|>保护区域不能设置样式!A@oxM=============================================================================$==Function:设置格式为正文 “章标题”==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================>章标题 4% (|>保护区域不能设置样式!A@oM============================================================================="==Function:设置格式为正文 “示例”==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================>H示例 4% (| >保护区域不能设置样式!A@oM=============================================================================$==Function:设置格式为正文 “示例×”==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M============================================================================= >示例×: (|`>X保护区域不能设置样式!A@o0M=============================================================================$==Function:设置格式为正文 “首示例”==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================`>示例×: 4% ( F$D%H%J示例%1:9L P9N R9{瓽醶?$9T V9$9X \9Z9^9`5r9b9d \9f9h9j \9l \9n \9p \9r \9t \9v \9x \9z 9| \9~ \9黑体9qp示例×:9qX F$D%H%J%2)9L 9N 9$9T V9$9X \9Z9^9`5r \9b \9d \9f9h9j \9l \9n \9p \9r \9t \9v \9x \9z \9| \9~ \99q89q( F$D%H%J%3.9L 9N 9ffffff?$9T 9瓽醶?$9X \9Z9^9`5r \9b \9d \9f9h9j \9l \9n \9p \9r \9t \9v \9x \9z \9| \9~ \99q9q F$D%H%J%4.9L 9N R9ffffff?$9T V9瓽醶?$9X \9Z9^9`5r \9b \9d \9f9h9j \9l \9n \9p \9r \9t \9v \9x \9z \9| \9~ \99q9q F$D%H%J%5)9L 9N 9ffffff?$9T V9瓽醶?$9X \9Z9^9`5r \9b \9d \9f9h9j \9l \9n \9p \9r \9t \9v \9x \9z \9| \9~ \99qx9qh F$D%H%J%6.9L 9N 9ffffff?$9T 9瓽醶?$9X \9Z9^9`5r \9b \9d \9f9h9j \9l \9n \9p \9r \9t \9v \9x \9z \9| \9~ \99q89q( F$D%H%J%7.9L 9N R9ffffff?$9T V9瓽醶?$9X \9Z9^9`5r \9b \9d \9f9h9j \9l \9n \9p \9r \9t \9v \9x \9z \9| \9~ \99q9q F$D%H%J%8)9L 9N 9ffffff?$9T V9瓽醶?$9X \9Z9^9`5r \9b \9d \9f9h9j \9l \9n \9p \9r \9t \9v \9x \9z \9| \9~ \99q 9q   F$D%H%J%9.9L 9N 9ffffff?$9T 9瓽醶?$9X \9Z9^9`5r \9b \9d \9f9h9j \9l \9n \9p \9r \9t \9v \9x \9z \9| \9~ \99qx 9qh  F$D%H(  F$D%H !!B@| > 保护区域不能设置样式!A@o M=============================================================================&==Function:设置格式为正文 “示例内容”==Para: ==Return: ==Designer:==Created: by zle,090731 ==Updated: == Update 1:M=============================================================================>P 示例内容 4% (|( > 保护区域不能设置样式!A@o M============================================================================= ==Function:设置格式为正文 “段”==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================>段 4% (|p>h保护区域不能设置样式!A@o@ >0条文脚注 4% (|>保护区域不能设置样式!A@o` 图表脚注编号> 图表脚注编号 4% (|>保护区域不能设置样式!A@oXM============================================================================="==Function:设置格式为 “图表脚注”==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================>]' %, 4! !BGC@ 99q_ B@^  B@h  ' ! 图表脚注说明  ! 图表脚注说明 BG B@BG 4%B@ 图表脚注说明 4% (d BG B@BG 4%B@A@kPdH 图表脚注说明 4% (k|>保护区域不能设置样式!A@oM=============================================================================$==Function:设置格式为 “图表首脚注”==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================>p 图表脚注说明 4% ( F$D%H%J%1 9L P9N 9{瓽醶?$9T V9呺Q割?$9X \9Z9^9`5r9b9d \9f9h9j \9l \9n \9p \9r \9t \9v \9x \9z 9| \9~ \9宋体9q 图表脚注说明9q F$D%H%J%29L 9N 9$9T V9{瓽醶?$9X殭櫃櫃?$9Z9^9`5r \9b \9d \9f \9h \9j \9l \9n \9p \9r \9t \9v \9x \9z \9| \9~ \99q9q F$D%H%J%3.9L 9N 9$9T 9{瓽醶?$9X殭櫃櫃?$9Z9^9`5r \9b \9d \9f \9h \9j \9l \9n \9p \9r \9t \9v \9x \9z \9| \9~ \99qp9q` F$D%H%J%4.9L 9N R9$9T V9{瓽醶?$9X殭櫃櫃?$9Z9^9`5r \9b \9d \9f \9h \9j \9l \9n \9p \9r \9t \9v \9x \9z \9| \9~ \99q(9q F$D%H%J%5)9L 9N 9$9T V9{瓽醶?$9X殭櫃櫃?$9Z9^9`5r \9b \9d \9f \9h \9j \9l \9n \9p \9r \9t \9v \9x \9z \9| \9~ \99q帑9q宣 F$D%H%J%6.9L 9N 9$9T 9{瓽醶?$9X殭櫃櫃?$9Z9^9`5r \9b \9d \9f \9h \9j \9l \9n \9p \9r \9t \9v \9x \9z \9| \9~ \99q橔9q堹 F$D%H%J%7.9L 9N R9$9T V9{瓽醶?$9X殭櫃櫃?$9Z9^9`5r \9b \9d \9f \9h \9j \9l \9n \9p \9r \9t \9v \9x \9z \9| \9~ \99qP9q@ F$D%H%J%8)9L 9N 9$9T V9{瓽醶?$9X殭櫃櫃?$9Z9^9`5r \9b \9d \9f \9h \9j \9l \9n \9p \9r \9t \9v \9x \9z \9| \9~ \99q9q  F$D%H%J%9.9L 9N 9$9T 9{瓽醶?$9X殭櫃櫃?$9Z9^9`5r \9b \9d \9f \9h \9j \9l \9n \9p \9r \9t \9v \9x \9z \9| \9~ \99q丽9q蚌 F$D%H(  F$D%H !!B@|8>0保护区域不能设置样式!A@o8> 附录章标题 4% (|絮>弱保护区域不能设置样式!A@o狌x>愼 附录图标题 4% (|h>`保护区域不能设置样式!A@o8>( 附录表标题 4% (|>保护区域不能设置样式!A@o恤>吏附录一级条标题 4% (|愻>堲保护区域不能设置样式!A@o`8>P附录二级条标题 4% (| >保护区域不能设置样式!A@o痼x>囿附录三级条标题 4% (|绑>保护区域不能设置样式!A@o>p附录四级条标题 4% (|@>8保护区域不能设置样式!A@o>附录五级条标题 4% (|序>闰保护区域不能设置样式!A@o狉8>愹附录标识 4% (|h>`保护区域不能设置样式!A@o8M===============================================================================Function:插入参考文献==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================x]BKCKWX 4!%"本文已经插入参考文献,不能重复插入A@|kx'J   B@BKSY 4!% BKSY B@ B@^ B@lk !终结线 B@^ B@4 B@ld B@2 B@4k参考文献 4% (参d B@ !zle,2008-10-10,+,空两个汉字的距离  B@考d B@   B@文d B@   B@献d B@  B@^  f B@n 4! !BKCKWXC@ 99q B@2 B@4'Jo仨M=============================================================================@==Function:插入索引,将增加“索引页面”和“插入索引内容”放在一起==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================6先查找,看看文档中是否有已经存在的“被标记了的索引项”]]( StandardName'   B@ B@2 !( !B@ !^d xe 9d5(d9 99999999q 如果存在被标记了的索引项 !! 索引页面存在BKSY 4!% )zle,090731,判断如果索引存在是否重新生成?本文已有索引,是否更新?  $'  !(|0k( 插入索引内容A@索引页面不存在d栝 插入索引页面A@ 插入索引内容A@k犻如果不存在被标记了的索引项dx 索引页面存在BKSY 4!% 插入索引内容 )zle,090731,判断如果索引存在是否重新生成?本文已有索引,是否更新?  $'  !(|ㄨk犺 zle,090806,用来删除原来的索引 4!! BKSY B@ B@n f B@2 b` fd B@h b` fd B@2 !B@ B@l B@4d樼 BKSY B@ B@n f B@2 !B@ B@4k(| 索引页面不存在d 插入索引页面A@, MsgBox "请先标记索引项", , "TCS"|犳k樻k愭o堟M===============================================================================Function:插入索引页面==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================@'J   B@ !终结线 B@^ B@4 B@ld冷 B@2 B@4k樹参考文献、索引标题 4% (索d B@ "zle,2008-10-10,+2,增加两个汉字空格  B@  B@引d B@  B@^  f B@n 4! !BKSYC@ 99qh B@2(zle,2008-10-27,+5,增加一个索引格式的书签 4! !SYGSSQC@ 99q噔 B@4'Jo棱M=============================================================================(==Function:设置格式为 "列项——(一级)"==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================>P列项——(一级) 4% (| >保护区域不能设置样式!A@o疣M=============================================================================&==Function:设置格式为 "列项●(二级)"==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================>列项●(二级) 4% (|P>H保护区域不能设置样式!A@o M=============================================================================&==Function:设置格式为 "列项◆(三级)"==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================>拜列项◆(三级) 4% (|>x保护区域不能设置样式!A@oPM=============================================================================,==Function:设置格式为 "字母编号列项(一级)"==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================@>刿'J]]'' 4! !DWC@ 99qh_` B@^  B@h9zle,090806,判断当为"目次、标准名称标题"时,进行适当的控制 !目次、标准名称标题 DW B@DW 4%B@字母编号列项(一级) (|p !章标题 ! 一级条标题 ! 二级条标题 ! 三级条标题 ! 四级条标题 ! 五级条标题 ! 附录章标题 !附录一级条标题 !附录二级条标题 !附录三级条标题 !附录四级条标题 !附录五级条标题e  ' !字母编号列项(一级)e  ' !前言、引言标题e DW B@DW 4%B@字母编号列项(一级) ('J|X !参考文献 !参考文献、索引标题e DW B@DW 4%B@'J|凶 !附录标识e DW B@DW 4%B@A@'J|hx`kX     DW B@DW 4%B@A@d鹬 DW B@DW 4%B@字母编号列项(一级) (k愔'J|>x'J保护区域不能设置样式!A@oHM=============================================================================.==Function:设置格式为 "首字母编号列项(一级)"==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================>性'J B@字母编号列项(一级) ( F$D%H%J%1)9L 9N 9瓽醶?$9T V9瓽醶?$9X瓽醶?$9Z9^9`5r9b9d \9f \9h \9j \9l \9n \9p \9r \9t \9v \9x \9z 9| \9~ \9宋体9qP字母编号列项(一级)9q( F$D%H%J%2)9L 9N R9瓽醶?$9T V9悯(\徛@$9X悯(\徛@$9Z9^9`5r9b9d \9f \9h \9j \9l \9n \9p \9r \9t \9v \9x \9z 9| \9~ \9宋体9q嘌数字编号列项(二级)9q秆 F$D%H%J(%3)9L 9N R9悯(\徛@$9T V9瓽醶@$9X$9Z9^9`5r9b9d \9f \9h \9j \9l \9n \9p \9r \9t \9v \9x \9z 9| \9~ \9宋体9qx编号列项(三级)9qX F$D%H%J%4.9L 9N R9瓽醶@$9T V9殭櫃櫃 @$9X殭櫃櫃 @$9Z9^9`5r \9b \9d \9f \9h \9j \9l \9n \9p \9r \9t \9v \9x \9z \9| \9~ \99q9q F$D%H%J%5)9L 9N 9殭櫃櫃 @$9T V9悯(\徛@$9X悯(\徛@$9Z9^9`5r \9b \9d \9f \9h \9j \9l \9n \9p \9r \9t \9v \9x \9z \9| \9~ \99q韧9q竿 F$D%H%J%6.9L 9N 9悯(\徛@$9T 9呺Q@$9X悯(\徛@$9Z9^9`5r \9b \9d \9f \9h \9j \9l \9n \9p \9r \9t \9v \9x \9z \9| \9~ \99qx9qh F$D%H%J%7.9L 9N R9悯(\徛@$9T V9瓽醶@$9X呺Q@$9Z9^9`5r \9b \9d \9f \9h \9j \9l \9n \9p \9r \9t \9v \9x \9z \9| \9~ \99q(9q F$D%H%J%8)9L 9N 9呺Q@$9T V9= 祝@$9X瓽醶@$9Z9^9`5r \9b \9d \9f \9h \9j \9l \9n \9p \9r \9t \9v \9x \9z \9| \9~ \99q厣9q壬 F$D%H%J%9.9L 9N 9瓽醶@$9T 9= 祝@$9X= 祝@$9Z9^9`5r \9b \9d \9f \9h \9j \9l \9n \9p \9r \9t \9v \9x \9z \9| \9~ \99q埲9qx F$D%H(  F$D%H !!B@'J|>鹎'J保护区域不能设置样式!A@o狼M=============================================================================,==Function:设置格式为 "数字编号列项(二级)"==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================>H'J B@数字编号列项(二级) 4% ('J|鹋>枧'J保护区域不能设置样式!A@o概M=============================================================================(==Function:设置格式为 "编号列项(三级)"==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================0>H'J B@编号列项(三级) 4% ('J|>鹈'J保护区域不能设置样式!A@o烂p>懊索引 1 4% (|埫>保护区域不能设置样式!A@oX>H索引 2 4% (| >保护区域不能设置样式!A@o鹇>嗦索引 3 4% (|嘎>奥保护区域不能设置样式!A@o埪0>x索引 4 4% (|P>H保护区域不能设置样式!A@o p>索引 5 4% (|枇>嗔保护区域不能设置样式!A@o噶>索引 6 4% (|>x保护区域不能设置样式!A@oP>@索引 7 4% (|>保护区域不能设置样式!A@o枥0>乩索引 8 4% (|袄>ɡ保护区域不能设置样式!A@op>p索引 9 4% (|H>@保护区域不能设置样式!A@o> 正文图标题 4% (|嗫>乜保护区域不能设置样式!A@o翱>牽 正文表标题 4% (|x>p保护区域不能设置样式!A@oHM=============================================================================I==Function:处理打印,将域阴影去掉,对某些未填的部分不显示(如完成日期等)==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================0如果没有插入封面则不用处理'J 4!! |xkp]p将点击此处的提示变为空 4! 5 76!$点击此处 76(k丶 q兰 4!  zhangcheng 4B@k埣 4!(8用矩形框遮蔽没有输入的部分 <A@&k8 HDT 4%!$$ :DT 4%B@ HDT 4%!$$e :DT 4%B@ HDT 4%!$$e :DT 4%B@ HDT 4%!$$e :DT 4%B@k鸷LB 4%!$$ 文稿版次选择 4!  zhangcheng 4B@k埡 :LB 4%B@k`WCRQ 4%!$$WCRQ 4%!$$(本稿完成日期:)WCRQ 4%!$$()WCRQ 4%!$$) 4!  zhangcheng 4B@k :RQ 4%B@kX对备案号进行处理]'<  4!!  4%!BAH'<y喔k馗  <BAH 4%!$$ :BAH 4%B@kpkh处理完成之后在上保护 4!  4%(  4!!  4%(胤 zhangcheng l 4B@k樂 要素及排版$! 0!(取消保护 0!(kH'Jo8M=============================================================================C==Function:处理编辑,将添加域阴影,显示所有编辑部分(如完成日期等)==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================如果没有插入封面则不用处理埖'J 4!! |`kX]'将空变为相关提示 4! 5 76!$$ 76!*!0 76(k来 qù 4!  zhangcheng 4B@kp 4!(8取消矩形框的遮蔽 DT 4%B@ RQ 4%B@ LB 4%B@对备案号进行处理]'<  4!!  4%!BAH'<ypkh  <BAH 4%!$$ BAH 4%B@kk处理完成之后在上保护 4%(  4!!  4%( zhangcheng l 4B@ 要素及排版$! 0!(取消保护 0!(k'Jo璞]p'  B B$$D?'ykxp '@i`M===============================================================================Function:加入“国标”图片==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================]TCSGraphicPath$' \GB.bmp']  !%.F($ F($ F(J标准标志 4% ( p` B@n B@4 B@4 p` B@l中华人民共和国国家标准d B@ 标准称谓 4% ( p` B@no`M=============================================================================!==Function:加入“行标”标准标志域==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================]X ! l 4!%.  ShowHelp1599(c199$5* .C@,$9qhq`标准标志 4% ( p` B@n B@4 B@4 p` B@l中华人民共和国d B@  ! l 4!%. c29 showhelp1199 9&9$9(5*9 .C@,qq B@n行业标准d B@  其他标准称谓 4% ( p` B@no惇M=============================================================================!==Function:加入“地标”标准标志域==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================x] 其他标准标志 4% (DB B@  ! l 4!%.  ShowHelp1699(c399$5* .C@,9q`qX p` B@n B@4 p` B@l ! l 4!%. c49 showhelp1299 9&9$9(5*9 .C@,q`qX B@n地方标准d B@  其他标准称谓 4% ( p` B@n B@4 p` B@loéM=============================================================================!==Function:加入“企标”标准标志域==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================] 其他标准标志 4% (Q/ B@  ! l 4!%.  ShowHelp1799(c599$5* .C@,9qxqp p` B@n B@4 p` B@l ! l 4!%. c69 showhelp1399 9&9$9(5*9 .C@,qxqp B@n企业标准d B@  其他标准称谓 4% ( p` B@n B@4 p` B@lo愧M=============================================================================6==Function:处理正文以前的页面 ,将页码格式设为罗马字体==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================8]x' 4!! 如果已经插入封面 4!  zhangcheng 4B@k袪k葼 B@2 zle,090704,+1  B@h zle,090704,*1 Selection.HomeKey l B@ B@l  !!( N !!(  !!( 4!!  4%(  4!!  4%(p zhangcheng l 4B@ 要素及排版$! 0!(取消保护 0!(k铻k酁o貫M===============================================================================Function:插入表格==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================>x RB@]Z zle,2008-7-29,+begin,如果点击了插入表格的窗体后,又取消,则不进行插入表格,应退出本函数 N P|鄿k販 zle,2008-7-29,+end b` B@^ b` B@2 ! 正文表标题 4% B@2 B@4 !X!e:判断这一行是否有文字 B@2 B@4 B@k貨 B@2 ! N8 P: 4!6%.T T5网格型网格型9k`9D9F9H9J T7L Z9P ^9\ `9zq X7L Z9P ^9\ `9zq鄽 N7L Z9P ^9\ `9zq皻 V7L Z9P ^9\ `9zq b7L Z9P d9\ `9zqP f7L Z9P d9\ `9zq R Z7L(P R \7L(P5L(l ^ V7h%L(\ ^ V N 7h%L(\A zle 使得表格第一行和最后一行边框都加粗,并且最后二行要合并 N 7h!jB@l N7h!jB@lq p B@n p B@n b B@j B@4段 (,zle,2008-8-11,+2,将设计表格的行数和列数置为0'N'P|`>X保护区域不能设置样式!A@o0M===============================================================================Function:插入公式==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M============================================================================= 4!! . %,封面不允许增加公式!A@|kxkp$ !(t !(v$ !(x Equation.3|~ !B@zzle,09-06-29,+1 !(o罆M===============================================================================Function:插入公式编号==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================0>`'zle,2008-11-6,+begin,判断当前所处的位置 4! !FLBHC@ 99q钃 !附录标识 4%99 99999999性附录)C@qP !B@ !附录标识 !d性附录)2zle,2008-10-7,+4,回答刚插入书签的地方,而后删除书签FLBH 4!% FLBH B@FLBH 4%B@kA@|pdh 2zle,2008-10-7,+4,回答刚插入书签的地方,而后删除书签FLBH 4!% FLBH B@FLBH 4%B@k貞k袘zle,2008-11-6,+end 4!! zle,2008-8-17,+3,解除窗体保护 4!  zhangcheng 4B@k@k8 b` B@^ b` B@^ d B@  b` B@2 b` B@2 d B@ ()d B@ !zle,2008-9-30,+begin,增加公式编号 p` B@l 标准自动公式 B@ 标准自动公式 | B@ p` B@nzle,2008-9-30,+end; zle,2008-10-3,+3,将所选应用于“正文公式编号制表符”格式 b` B@^ b` fd B@2正文公式编号制表符 4% ( B@2 B@4式中: B@  B@4]p' 4!!  4%(  4!!  4%(8 zhangcheng l 4B@ 要素及排版$! 0!(取消保护 0!(k皪k◢|爫>槏保护区域不能设置样式!A@opM===============================================================================Function:插入附录公式编号==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================>!zle,2008-12-1,+1,禁止对封面的操作'J]] 4!! zle,2008-8-17,+3,解除窗体保护 4!  zhangcheng 4B@kPkH b` B@^ b` B@^ d B@  b` B@2 b` B@28zle,2008-10-9,+1,因为有分节符,所以光标需要向前移动一个&' Selection.MoveLeft wdCharacter, 1 d B@ ()d B@  p` B@l ! l !B@zle,2008-8-28,+1,增加字母*STYLEREF 附录标识 \l \n \t \* MERGEFORMATd B@  !B@ p B@n. B@ 'zle,2008-10-3,+begin,判断是否已经有公式1zle,2008-10-7,+begin,通过加入书签来获得当前的位置 4! !DWC@ 99q槇]] zle,2008-10-7,+end b B@h !附录公式编号制表符b b B@h !附录标识 2zle,2008-10-7,+4,回到刚插入书签的地方,而后删除书签DW 4!% DW B@DW 4%B@kp ! l !B@seq 附录公式 \r 1d B@  !B@ b` B@^  f B@n附录公式编号制表符 ( B@2 B@4式中: B@  B@4 4!First !C@ 99q( Pzle,2008-10-9,+begin,判断是否在编号1下面还有编号1,如果有1,则删除,进行继续编号 b B@j !附录公式编号制表符b b B@^ f B@2 !!X!' B@l b B@j b B@^ f B@2 !!X!' B@l !终结线First 4!% First B@First 4%B@kPHd@ B@hk( !附录标识First 4!% First B@First 4%B@k▋爟 !参考文献eFirst 4!% First B@First 4%B@k  !参考文献、索引标题eFirst 4!% First B@First 4%B@k垈 !终结线eFirst 4!% First B@First 4%B@k鴣到了文档的结尾    ei说明到了文档末尾First 4!% First B@First 4%B@k0(k b B@j鴢 zle,09-24,+begin, 4! !NUM1C@ 99q榾 !%,'   B@ !%,' NUM1 4!% NUM1 B@NUM1 4%B@kk zle,09-24,+end 向下查找找到了有附录公式 b B@2 B@l B@ B@ ! l !B@ seq 附录公式 d B@  !B@First 4!% First B@First 4%B@k~ zle,2008-10-9,+end`~kX~P~DW 4!% DW B@DW 4%B@k鴠 ! l !B@ seq 附录公式 d B@  !B@ p B@nzle,2008-10-3,+end b` B@^ b` fd B@2附录公式编号制表符 ( B@2 B@4式中: B@  B@4zle,2008-9-24,+1,运行定时更新域榺 4! !BKC@ 99qP|A@ BK B@BK 4%B@]( ' 4!!  4%(  4!!  4%(恵 zhangcheng l 4B@ 要素及排版$! 0!(取消保护 0!(k{k{!zle,2008-12-1,+1,禁止对封面的操作'J|葄>纙!zle,2008-12-1,+1,禁止对封面的操作'J保护区域不能设置样式!A@ohzzle,2008-8-17,+endM===============================================================================Function:更新公式编号==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================@ "zle,200812-1,+1,防止对封面进行处理'J] 4!! 4!  zhangcheng 4B@kpxkhx C@5( X % 5(A@qx  StandardName B@ B@2 f B@2 !. 95(X % 5(A@qxw] ] !!'  !!  %!l  %B@H B@n 4! !DWC@ 99q╲ !B@ !附录标识 4%99 99999999性附录)C@qv !B@ !附录标识 !d性附录)  %!1 DW B@dxu  %!$ DW B@_0u b B@h !附录公式编号制表符x鑤k鄑 !附录标识 !附录公式编号制表符DW 4%B@  %B@dht DW B@DW 4%B@  %B@ ! l !B@seq 附录公式 \r 1d B@  !B@k皊k╯k爏  9 !(  F X % !(A@d8sDW 4%B@  %B@  9 !(  F X % !(A@k爎k榬恟 5(ZX % 5(A@qPr 4!!  4%(  4!!  4%(鄎 zhangcheng l 4B@ 要素及排版$! 0!(取消保护 0!(kXqkPq 5(dX % 5(A@qq A@r"zle,200812-1,+1,防止对封面进行处理'Jo萷M===============================================================================Function:更新文档中的域==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================  C@T5(X % 5(A@q o  StandardName B@ B@2 f B@2 5(<X % 5(A@q恘 !B@ 5(dX % 5(A@q@n A@ro(nM===============================================================================Function:打印预览==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================! 4B@o竘M=============================================================================?==Function:设置格式为 “章标题”,可分别判断设置 正文 还是 附录==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================P!>0k zle,090812,+3 |kk鴍 B@-zle,090807,+10,将选定的区域赋给临时tempSelRan]!]!]!]!]!]" !. !' '''J B@^1zle,2008-10-7,+begin,通过加入书签来获得当前的位置 4! !DWC@ 99q癷 !B@ !附录标识 4%99 99999999性附录)C@qi !B@ !附录标识 !d性附录)2zle,2008-10-7,+4,回答刚插入书签的地方,而后删除书签DW 4!% DW B@DW 4%B@k8h0zle,090807,+begin,判断单行还是多行,而后应用样式 b  $  '   ' 'k榞恎  'khg  附录章标题 4% (d0g B@H B@l  附录章标题 (  B@j纅k竑 B@Hzle,090807,+end|坒df2zle,2008-10-7,+4,回答刚插入书签的地方,而后删除书签DW 4!% DW B@DW 4%B@k餰0zle,090807,+begin,判断单行还是多行,而后应用样式 b  $  '   ' 'kPeHe  'k e 章标题 4% (d鑔 B@H B@l  章标题 (  B@jxdkpd B@Hzle,090807,+endk@d'J|0d>(d'J保护区域不能设置样式!A@o鴆M=============================================================================C==Function:设置格式为 “一级条标题”,可分别判断设置 正文 还是 附录==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================(">hb zle,090812,+3 |8bk0b B@-zle,090807,+10,将选定的区域赋给临时tempSelRan]h"]"]"]"]"]" !. !' '''J B@^1zle,2008-10-7,+begin,通过加入书签来获得当前的位置 4! !DWC@ 99q鑐zle,2008-10-7,+end !B@ !附录标识 4%99 99999999性附录)C@q(` !B@ !附录标识 !d性附录)2zle,2008-10-7,+4,回答刚插入书签的地方,而后删除书签DW 4!% DW B@DW 4%B@kX_0zle,090807,+begin,判断单行还是多行,而后应用样式 b  $  '   ' 'k竈癪  'k坁 附录一级条标题 4% (dH^ B@H B@l  附录一级条标题 (  B@j衇k萞 B@Hzle,090807,+end|榏d怾2zle,2008-10-7,+4,回答刚插入书签的地方,而后删除书签DW 4!% DW B@DW 4%B@k]0zle,090807,+begin,判断单行还是多行,而后应用样式 b  $  '   ' 'k`\X\  'k0\  一级条标题 4% (d鳾 B@H B@l  一级条标题 (  B@j圼k[ B@Hzle,090807,+endkP["zle,200812-1,+1,防止对封面进行处理'J|[>["zle,200812-1,+1,防止对封面进行处理'J保护区域不能设置样式!A@o竄M=============================================================================C==Function:设置格式为 “二级条标题”,可分别判断设置 正文 还是 附录==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================#>(Y zle,090812,+3 |鳻k餢 B@-zle,090807,+10,将选定的区域赋给临时tempSelRan]@#]X#]x#]#]#]# !. !' '''J B@^1zle,2008-10-7,+begin,通过加入书签来获得当前的位置 4! !DWC@ 99q╓zle,2008-10-7,+end !B@ !附录标识 4%99 99999999性附录)C@q鑆 !B@ !附录标识 !d性附录)2zle,2008-10-7,+4,回答刚插入书签的地方,而后删除书签DW 4!% DW B@DW 4%B@kV0zle,090807,+begin,判断单行还是多行,而后应用样式 b  $  '   ' 'kxUpU  'kHU 附录二级条标题 4% (dU B@H B@l  附录二级条标题 (  B@j怲k圱 B@Hzle,090807,+end|XTdPT2zle,2008-10-7,+4,回答刚插入书签的地方,而后删除书签DW 4!% DW B@DW 4%B@k繱0zle,090807,+begin,判断单行还是多行,而后应用样式 b  $  '   ' 'k SS  'k餜  二级条标题 4% (d窻 B@H B@l  二级条标题 (  B@jHRk@R B@Hzle,090807,+endkR"zle,200812-1,+1,防止对封面进行处理'J|豎>蠶"zle,200812-1,+1,防止对封面进行处理'J保护区域不能设置样式!A@oxQM=============================================================================C==Function:设置格式为 “三级条标题”,可分别判断设置 正文 还是 附录==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================#>鐿 zle,090812,+3 |窸k癘 B@-zle,090807,+10,将选定的区域赋给临时tempSelRan]$]0$]P$]h$]$]$ !. !' '''J B@^1zle,2008-10-7,+begin,通过加入书签来获得当前的位置 4! !DWC@ 99qhNzle,2008-10-7,+end !B@ !附录标识 4%99 99999999性附录)C@q∕ !B@ !附录标识 !d性附录)2zle,2008-10-7,+4,回答刚插入书签的地方,而后删除书签DW 4!% DW B@DW 4%B@k豅0zle,090807,+begin,判断单行还是多行,而后应用样式 b  $  '   ' 'k8L0L  'kL 附录三级条标题 4% (d菿 B@H B@l  附录三级条标题 (  B@jPKkHK B@Hzle,090807,+end|KdK2zle,2008-10-7,+4,回答刚插入书签的地方,而后删除书签DW 4!% DW B@DW 4%B@kJ0zle,090807,+begin,判断单行还是多行,而后应用样式 b  $  '   ' 'k郔豂  'k癐  三级条标题 4% (dxI B@H B@l  三级条标题 (  B@jIkI B@Hzle,090807,+endk蠬"zle,200812-1,+1,防止对封面进行处理'J|楬>怘"zle,200812-1,+1,防止对封面进行处理'J保护区域不能设置样式!A@o8Hzle,2008-9-27,+endM=============================================================================C==Function:设置格式为 “四级条标题”,可分别判断设置 正文 还是 附录==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================$>怓 zle,090812,+3 |`FkXF B@-zle,090807,+10,将选定的区域赋给临时tempSelRan]$]%](%]@%]X%]p% !. !' '''J B@^1zle,2008-10-7,+begin,通过加入书签来获得当前的位置 4! !DWC@ 99qEzle,2008-10-7,+end !B@ !附录标识 4%99 99999999性附录)C@qPD !B@ !附录标识 !d性附录)2zle,2008-10-7,+4,回答刚插入书签的地方,而后删除书签DW 4!% DW B@DW 4%B@kC0zle,090807,+begin,判断单行还是多行,而后应用样式 b  $  '   ' 'k郆谺  'k癇 附录四级条标题 4% (dpB B@H B@l  附录四级条标题 (  B@j鳤k餉 B@Hzle,090807,+end|繟d窤2zle,2008-10-7,+4,回答刚插入书签的地方,而后删除书签DW 4!% DW B@DW 4%B@k(A0zle,090807,+begin,判断单行还是多行,而后应用样式 b  $  '   ' 'k園@  'kX@  四级条标题 4% (d @ B@H B@l  四级条标题 (  B@j?k? B@Hzle,090807,+endkx?"zle,200812-1,+1,防止对封面进行处理'J|@?>8?"zle,200812-1,+1,防止对封面进行处理'J保护区域不能设置样式!A@o>M=============================================================================C==Function:设置格式为 “五级条标题”,可分别判断设置 正文 还是 附录==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================%>P= zle,090812,+3 | =k= B@-zle,090807,+10,将选定的区域赋给临时tempSelRan]%]%]&]&]0&]H& !. !' '''J B@^1zle,2008-10-7,+begin,通过加入书签来获得当前的位置 4! !DWC@ 99q;zle,2008-10-7,+end !B@ !附录标识 4%99 99999999性附录)C@q; !B@ !附录标识 !d性附录)2zle,2008-10-7,+4,回答刚插入书签的地方,而后删除书签DW 4!% DW B@DW 4%B@k@:0zle,090807,+begin,判断单行还是多行,而后应用样式 b  $  '   ' 'k99  'kp9 附录五级条标题 4% (d09 B@H B@l  附录五级条标题 (  B@j8k8 B@Hzle,090807,+end|8dx82zle,2008-10-7,+4,回答刚插入书签的地方,而后删除书签DW 4!% DW B@DW 4%B@k70zle,090807,+begin,判断单行还是多行,而后应用样式 b  $  '   ' 'kH7@7  'k7  五级条标题 4% (d6 B@H B@l  五级条标题 (  B@jp6kh6 B@Hzle,090807,+endk86"zle,200812-1,+1,防止对封面进行处理'J|6>5"zle,200812-1,+1,防止对封面进行处理'J保护区域不能设置样式!A@o5M=============================================================================?==Function:设置格式为 “图标题”,可分别判断设置 正文 还是 附录==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================`&>4"zle,200812-1,+1,防止对封面进行处理'J B@^1zle,2008-10-7,+begin,通过加入书签来获得当前的位置 4! !DWC@ 99qX3zle,2008-10-7,+end !B@ !附录标识 4%99 99999999性附录)C@q2 !B@ !附录标识 !d性附录)2zle,2008-10-7,+4,回答刚插入书签的地方,而后删除书签DW 4!% DW B@DW 4%B@k1 附录图标题 4% (|1d12zle,2008-10-7,+4,回答刚插入书签的地方,而后删除书签DW 4!% DW B@DW 4%B@k1 正文图标题 4% (k0"zle,200812-1,+1,防止对封面进行处理'J|0>0"zle,200812-1,+1,防止对封面进行处理'J保护区域不能设置样式!A@oH0M=============================================================================?==Function:设置格式为 “表标题”,可分别判断设置 正文 还是 附录==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================&>."zle,200812-1,+1,防止对封面进行处理'J B@^1zle,2008-10-7,+begin,通过加入书签来获得当前的位置 4! !DWC@ 99q.zle,2008-10-7,+end !B@ !附录标识 4%99 99999999性附录)C@q@- !B@ !附录标识 !d性附录)2zle,2008-10-7,+4,回答刚插入书签的地方,而后删除书签DW 4!% DW B@DW 4%B@kp, 附录表标题 4% (|H,d@,2zle,2008-10-7,+4,回答刚插入书签的地方,而后删除书签DW 4!% DW B@DW 4%B@k+ 正文表标题 4% (k+"zle,200812-1,+1,防止对封面进行处理'J|P+>H+"zle,200812-1,+1,防止对封面进行处理'J保护区域不能设置样式!A@o*M============================================================================="==Function:显示 “标记索引项”窗体==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================& B@ox)M=============================================================================/==Function:在全部标记之前先全部删除掉已经标记的==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M============================================================================= ']`']x' StandardName'   B@ B@2 !('h_'  !C@^d xe "$ Z "$ 9d 999q'' !B@k& !B@H !目次、标准名称标题x&k& B@ h 'h^d xe "$ Z "$  !% !(o(&M===============================================================================Function:标记索引项==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================']']' 4!! 4!  zhangcheng 4B@kp$kh$'b'^ 只标记一次 \ !B@H B@nGetIndexTitleAll09-06-14改查找函数A@?zle,2008-11-2,+begin,判断如果在前言、引言、目次不可以标记索引项 ^|#kx#zle,2008-11-2,+end !!(Izle,09-06-14,判断是否已经标记了,如果已经标记了,则先删除,而后在重新标记 f B@n !!dXE B@d" B@lk" ! Z Z ^bd 4!B@  !!! !!(标记所有d!"zle,200812-1,+1,防止对封面进行处理'J'zle,09-06-12,在全部标记之前,先全部删除A@](] (]@(]X('T  4!  ' !章标题y!k!  5(X % 5(A@q ]p(](](](](](''''   4!!  4%!. !C@ Z9d 99q !! B@H$6H` !章标题 ! 一级条标题 ! 二级条标题 ! 三级条标题 ! 正文表标题 ! 正文图标题 !附录标识 ! 附录章标题 !附录一级条标题 !附录二级条标题 !附录三级条标题 ! 附录表标题 ! 附录图标题 !一级无 !二级无 !三级无 ! 附录一级无 ! 附录二级无 ! 附录三级无A@ ^', ,  ' !!( ! Z Z ^bd 4!B@ T 'T T  '  ' 5( X % 5(A@qk !索引 1eypdh %,dPA@ b' d  , ,  !!($$ ! Z Z bbd 4!B@ T 'T ' T  '  ' 5( X % 5(A@qkkkkkkk H5((X % 5(A@qX])])]0)]H)H'(' ]`)]x)])'"'$'&])])])判断文档中的表格 1.加了封面 4!! J(1) 判断是国家标准(封面中有两个表格)国家中的域个数是12个,企业的都是17个 4!! 1..文档中有表格 4!6! 4!6! '& ( 4!6! ( 4%6%,B@H$zle,2008-11-29,+begin,显示进度条增加  '  '  5( X % 5(A@qzle,2008-11-29,+end 获得表标题A@ ^表没有给该表增加 表标题A@|k8说明在表标题中没有出现该词,则需要查找单元格中是否有该词 , ^ , * ( 4%6!!j *!!00 *!! 4%.. .!d Z .B@H$,zle,2008-12-4,+7在单元格中定位文字的出现位置 !B@ ! Z9d9 9q0 !B@ !!($$ ! Z Z ^bd 4!B@ T 'Tykxkphk` &(2) 判断是其他标准(封面中有三个表格)d(1..文档中有表格 4!6! 4!6! '& ( 4!6! ( 4%6%,B@H$zle,2008-11-29,+begin,显示进度条增加  '  '  5( X % 5(A@qzle,2008-11-29,+end 获得表标题A@ ^表没有给该表增加 表标题A@|k8说明在表标题中没有出现该词,则需要查找单元格中是否有该词 , ^ , * ( 4%6!!j *!!00 *!! 4%.. .!d Z .B@H$,zle,2008-12-4,+7在单元格中定位文字的出现位置 !B@ ! Z9d9 9q  !B@ !!(,, ! Z Z ^bd 4!B@ T 'Tyxkphk`XkPkH 2.没有加封面d( 4!6! 4!6!'& ( & 获得表标题 ( 4%6%,B@H$zle,2008-11-29,+begin,显示进度条增加  '  '  5( X % 5(A@q zle,2008-11-29,+endA@ ^表没有给该表增加 表标题A@|k8说明在表标题中没有出现该词,则需要查找单元格中是否有该词 , ^ , * ( 4%6!!j *!!00 *!! 4%.. .!d Z .B@H$,zle,2008-12-4,+7在单元格中定位文字的出现位置 !B@ ! Z9d9 9qP !B@ !!($$ ! Z Z ^bd 4!B@ T 'Ty k k k kx  ~5(FX % 5(A@q8 ~'F' '判断文档中的图的图注 和 图的脚注 是否有#***********************************]*] *  4! ! 正文图标题 ! 附录图标题 !B@HA@D如果图标题中没有出现过被标记的项,则要查找 图注 和 图的脚注 是否有? , ^ , _ b B@h B@2BKEnd 4!% 4! !BKEndC@ 99q@ k8 x 'x !注: !注×: ! 图表脚注说明x k x b B@j B@2BKEnd 4%B@'xd` b B@j B@^ 4! !BKStartC@ 99q 'xBKStart 4%!00BKEnd 4%! 4%. B@HBKStart 4%B@BKEnd 4%B@ !B@ ! Z9d5(d9 99999999q !! B@n !!( ! Z Z ^bd 4!B@ T 'T$zle,2008-11-29,+begin,显示进度条增加  '  '  5( X % 5(A@qpzle,2008-11-29,+enddH B@nk0k(k kzle,2008-11-10,+endk 5(ZX % 5(A@q 4!!  4%(  4!!  4%(8 zhangcheng l 4B@ 要素及排版$! 0!(取消保护 0!(kk !(7隐藏文字不显示 !!(1显示/隐藏标记不显示!zle,09-06-19,判断版本显示段落标记 6!12.0D ActiveWindow.View.ShowParagraphs = False '显示段落标记 Else !(k! 'zle,09-07-09,+1,解决选中问题 B@n B@l 5(dX % 5(A@q'J0 'zle,2008-12-2,+1,当标记完成时可以时点击窗体 frmMarkIndex.Enabled = TrueoM=============================================================================-==Function:全部标记时,获得 标题式 索引标题号==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================8*]x*]*]* %!.2 2! 2B@: 2!6.4 4!$4!.2 2!!<'8 8$$'8]*]*]+]+]0+.'F表'B 8'>zle,09-06-13,+5 4! !BJSYC@ 99q > F 8$$'^| > Be 8$$'^|d b B@h% int_Count = int_Count + 1 %!.2 2! 2B@: 2!6.4 >) >—— !列项◆(三级) !列项●(二级) >注 2! 图表脚注说明 4!$4!.2 2!!<'8 8$$'8 8'> 8$$'^, Selection.MoveDown wdLine, int_Countzle,09-06-13,+2 BJSY B@BJSY 4%B@|kx 8$$'^o`M=============================================================================&==Function:单个标记时,获得 索引标题号==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================H+]+]+]+]+ %!.2 2! 2B@: 2!6.4 4!$4!.2 2!!<'8 8$$'8 8'>0BTf !章标题 ! 一级条标题 ! 二级条标题 ! 三级条标题 ! 正文表标题 ! 正文图标题 !附录标识 ! 附录章标题 !附录一级条标题 !附录二级条标题 !附录三级条标题 ! 附录表标题 ! 附录图标题 ! 附录图标题 !一级无 !二级无 !三级无 ! 附录一级无 ! 附录二级无 ! 附录三级无 8$$'^| k说明不是图标的注,而是正文的注 !注×: !注: ! 图表脚注说明]+], 8'> 4! !BJSYC@ 99qH >) >—— !列项◆(三级) !列项●(二级) >表 >图 >注 !段 >示例H >注 >注 b B@h %!.2 2! 2B@: 2!6.4 4!$4!.2 2!!<'8 8$$'8 8'>狑d橑 b B@hkx %!.2 2! 2B@: 2!6.4 4!$4!.2 2!!<'8 8$$'8 8'> >注 0H 2!章标题 2! 一级条标题 2! 二级条标题 2! 三级条标题 2!附录标识 2! 附录章标题 2!附录一级条标题 2!附录二级条标题 2!附录三级条标题 !一级无 !二级无 !三级无 ! 附录一级无 ! 附录二级无 ! 附录三级无 2!!<'8 8$$'8 8'> 8$$'^ BJSY B@BJSY 4%B@|佤k恤 2! 图表脚注说明Hk狋k橍愻如果是图表的注或脚注dh 4! !BJSYC@ 99q C如果“注”或“注X:”在表格中,则是向上移动,直到遇到“表标题”为止 %, >表 b B@h %!.2 2! 2B@: 2!6.4 4!$4!.2 2!!<'8 8$$'8 8'> >$$'^ BJSY B@BJSY 4%B@|蛤A如果“注”或“注X:”在图中,则是向下移动,直到遇到“图标题”为止dh >图 b B@j %!.2 2! 2B@: 2!6.4 4!$4!.2 2!!<'8 8$$'8 8'>榜 >$$'^ BJSY B@BJSY 4%B@|`kXkPoHM=============================================================================/==Function:全部标记时,获得 非标题式 索引标题号==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================(,]h,],],], %!.2 2! 2B@: 2!6.4 4!$4!.2 2!!<'8 8$$'8 8'>说明不是图标的注,而是正文的注 !注×: !注:],], 8'> B@n 4! !BJSYC@ 99qp >) >—— !列项◆(三级) !列项●(二级) >表 >图 >注 !段 >示例H >注 >注 b B@h %!.2 2! 2B@: 2!6.4 4!$4!.2 2!!<'8 8$$'8 8'>褥d漓 b B@hk犾 %!.2 2! 2B@: 2!6.4 4!$4!.2 2!!<'8 8$$'8 8'> >注*<T 2!章标题 2! 一级条标题 2! 二级条标题 2! 三级条标题 2!附录标识 2! 附录章标题 2!附录一级条标题 2!附录二级条标题 2!附录三级条标题 2!一级无 2!二级无 2!三级无 2! 附录一级无 2! 附录二级无 2! 附录三级无 2!!<'8 8$$'8 8'> 8$$'b BJSY B@BJSY 4%B@|k痖 2! 图表脚注说明H乳k篱k搁伴kㄩo犻M===============================================================================Function:插入索引==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================- INDEX \e " %" \c "1" \h "A" \o "P" \y \z "2052" P LB@N With ActiveDocument p) .Indexes.Add Range:=Selection.Range, HeadingSeparator:=' wdHeadingSeparatorLetter, Type:=wdIndexIndent, RightAlignPageNumbers' :=True, NumberOfColumns:=1, SortBy:=wdIndexSortBySyllable,' IndexLanguage:=wdSimplifiedChinese/ .Indexes(1).TabLeader = wdTabLeaderDots End Witho`M===============================================================================Function:调整索引格式==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================H-"zle,200812-1,+1,防止对封面进行处理'J]-BKSY'   B@ B@2 p B@nzle,09-06-18,+增加进度条 C@q8zle,090609,+增加索引A@Jzle,090609,增加进度条的位置 V5(X % 5(A@qㄣ$zle,2008-11-19,+4,用来删除原来的索引 4!! f B@2 b` fd B@h b` fd B@2 !!X! !B@d锈 B@n !终结线 B@lk愨k堚d f B@2 !!X!E Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend; Selection.EndKey Unit:=wdLine, Extend:=wdExtend !B@d犪 B@nk堘k s5((X % 5(A@q@ zle,090709,+5 4!! 4!  zhangcheng 4B@k剜k朽索引 1 4%! 9q犩zle,090706+,调整字体为宋体索引 1 4%!r宋体9t宋体9v宋体9x宋体9q B@l !B@ !(RBKSY'   B@ B@2 b B@j !B@ !!B@ ! 9d5(d9 99999999q柁 VT !B@zle,2008-10-16,+end B@n2zle,2008-10-24,+begin,控制编号的顺序,使其正序出现]-]-]-].] .]8.]P.]h.].].].].].'Z'\'^'`'b'd' 'f !B@_ㄝ j !^t9d 99q` !B@kH !B@H p B@n  f B@n !!d$$'Z5zle,09-06-14,+4定义两个临时变量,判断有没有重复的标题].]/'l'n 1.说明只有一个索引项,不需要排序 !!d, B@n$2.说明有多个索引项,需要进行重新排序d  Z !!d$$ $,b !!d$$ $x堐k \ !!d $ '\  '@zle,09-06-14,+begin l \'ld \'nk疒 l n1.是正文标题类 \$$p \, ^ '^'\ 2.是附录标识 \$附e \, ' '\3.是表 \$表e \, b 'b'\4.是图 \$图e \, d 'd'\5.是附录标题类A \$DZe \, ` '`'\kX n n'lk8k0'\  ' ^ ` d b 'f f'h f h $'f f !(d'^' 'b'd'`'fk'j^t !% 5(2X % 5(A@q 段落标记+ ActiveWindow.View.ShowParagraphs = TrueE zle,2009-1-9,+5,增加一个书签,以便修改完页码之后返回原来的地方 4! !DWC@ 99q((zle,2009-1-8,+begin,为了防止03中修改页码 4!! 4!  zhangcheng 4B@kㄖk犞*zle,09-06-15,+begin,增加按照拼音顺序来排列A@rzle,09-06-15,+end 5(ZX % 5(A@q修改页码 StandardName'   B@ B@2  !!( f B@n !! !(kX !! 999 999q  !!( 4!! 4!  4%(  4!!  4%(p  zhangcheng l 4B@ 要素及排版$! 0!(取消保护 0!(k栌k嘤k赜zle,2009-1-8,+end3 zle,2009-1-9,+4,删除那个书签,返回原来的地方DW 4!% DW B@DW 4%B@k( 5(dX % 5(A@q枰 A@r !(7隐藏文字不显示 !!(1显示/隐藏标记不显示"zle,200812-1,+1,防止对封面进行处理'JoHM=============================================================================!==Function:调整按照拼音顺序来排列==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================(/ BKSY B@ p` B@n b` fd B@2 将域变成文本 !B@t p` B@n p` B@l 4! !SYEC@ 99q叵 BKSY B@ p` B@n 删除分节符 !B@ !!B@ !^b9d5(d9 99999999q辔 VT !B@ 5(<X % 5(A@q埼%zle,09-06-23,+1,工程和激活文档相对应 "!$vB@xzle,09-06-21,+3,消除多余的回车 B@2 !终结线 B@hk赝 B@l B@ BKSY B@ p` B@n 4! !SYFC@ 99q0]h/SYF 4%!00SYE 4%!0 4%. B@H 文本到表格|:&8 ~网格型 LB@z 0依次遍历表格中的每一行,得到每一个索引对应的标题]/]/]/]/ 5(AX % 5(A@q杆6查找个索引项对应的“索引标题”,并把它放进对应的结构中]/%动态数组 4!6!' 4%6!h!' @0]H0]`0]x0'*  'Z  4%6%,B@H !!d'Z !!X! !!d符号 !!d$'\d@ !!d$'\kd B@l f B@n \ *$(l !!d *$(n * '*k樕惿 * '删除“索引标题”行]0 4%6!h B@H !!X! B@k 5(FX % 5(A@q溉如果是1行就不需要排序 4%6!h! 4%6B@H将表格按照拼音字母排序 )1;列 1 段落数段落数段落数 B@kx 5(KX % 5(A@q8L查找已经排序后的各索引项的“索引标题”,把“索引标题”加到各索引项对应的上面]0]0]0 4%6!h B@H B@l f B@n !!d' * *$!n *$!l'yk 向上增加一行 B@ B@ # Selection.TypeBackspace索引标题 ( 'k`X 5(PX % 5(A@q将表格转化成文本  !hB@ 移除黄色麻豆视频免费观看网站标记 4B@%zle,09-06-23,+1,工程和激活文档相对应 "!$vB@xzle,09-06-21,+3,消除多余的回车 B@2 !终结线 B@hk B@l B@o孛M===============================================================================Function:显示 删除索引项 窗体==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================0 B@o`M===============================================================================Function: 删除索引项==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================81]x1]1]1 1.逐个删除 d B@ !( 2.全部删除 de"zle,200812-1,+1,防止对封面进行处理'J]1) Selection.HomeKey wdStory, wdMove StandardName'   B@ B@2 !('h_揽  !C@^d xe "$ f "$ 9d 999qH' !B@k( !B@H !目次、标准名称标题x杈k嗑 B@ h 'h^d xe "$ f "$  !% !("zle,200812-1,+1,防止对封面进行处理'Jk(o $zle,2008-11-2,+end,删除标记的索引项M===============================================================================Function:保护文档==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================1](2 4!! 4!  4%(  4!!  4%(  zhangcheng l 4B@k然k阑o富M===============================================================================Function:解除文档保护==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================@2 4!! 4!  zhangcheng 4B@kkoM=============================================================================-==Function:删除重复菜单,执行此程序后保存模板==Para: ==Return: ==Designer:==Created: by zle,090706 ==Updated: == Update 1:M=============================================================================2]駾2]2]2  4!! Name : 4%! ; $ '  MsgBox cbStringMenu Bar Caption List $ ' Menu Bar 4%!! Caption : Menu Bar 4%%! ; $ '  MsgBox cbString Menu Bar 4%(Menu Bar Deleted List $ ' &Menu Bar 4%! &! 要素及排版 &! 层次标题样式 &! 要素内容样式 Caption : &! ; $ ' &B@d氐 Caption : &! (Remain); $ 'k惖埖 MsgBox cbStringzle,09-06-04,删除快捷按钮]3)快捷菜单 x  x! 要素及排版 x! 层次标题样式 x! 要素内容样式 xB@k按ùo牬M=============================================================================E==Function:获取所选内容位于的节号,判断是否等于目次,前言,引言的节号==Para: ==Return: ==Designer:==Created: by zle,090812 ==Updated: == Update 1:M=============================================================================03 4!! BKML 4!%BKQY 4!%BKYY 4!% %,'d惒'kzxdp'z`kXdPBKML 4!%BKQY 4!%BKYY 4!% %,'d啾'k斜z缺d辣'z氨kūk牨i槺惐wAttribute VB_Name = "MdlTds" Option Explicit Global ShowTip As Boolean, OnePage&\ClsEvent6New G歱DTS hape,]pL2B RQ6tdTyppInteger '封姹曜祭嘈 0-国际 1-行业 2-地方 3- 企 -InPr`ocess:刾 '判断当笆欠裾 诮8数据处理,避免事件连续触发造成死循环-OriFld偞濻緉g '原来域糜诘蹦掣鲇蚴ソ沟闶钡饔茫绻衷谟 虿皇菆$则爸っ  'zle,2008-7- 23,+2-砀 裥辛)g_纑owNum?腣伻columnbegin,点击了“首”的按钮HSLFirFs聟ZhuYM9SZCX=10-4=,索引@项内容H$IndexTex$D絞_Mark OrAllFst`rTitl偆C餩Cou;乬'用来标赌看胃碌拇问齀JYGSDel,S$EV4Find  &Base 1'09-6-16, +定逡桓鼋峁固 Pri "12.0" Customi巣a盳= A =veDocum.`峚chedT餰mpl9 徖Y3~"s("5p2E9-28,+3,可以薷镊WithS!.唗eP A饡= msoN~oG !S'增加前先P删除亙跌F恛r E c.訧n.&s沭.Ca0燗5及排版" |Or):对应的縼Kc堁睸@_G0#x.吵? "_ 疜<#^c .d:P#_ g0S餕 5.Add(:= T", t6orary:=T萺ueet(藽Bme 贿 r/8抔,@ Befor1/#Ag/;";K?1 KBP[=裎刧5.FaceId218.Sty`眘N"uIconA牕GKO%B 勪.鵳 Fm 2 縆V 鳳懝 195{Q Mc\  背 Cmd .Caption = "前言"團aceId302250??』Ck?3M考 "索引q919焳焳dSD^'完成插入页婧庭内容赖墓δ軏"_$總Aa标记)项$.F1087+d e_⒘AJSYX臘F删除 8 f眠SCSY? ? .Begi@nGroup` F0alse(逅獲面排版:h7<69$/>飗灃PR8INT)r)0702,+1保秽ず徒鈗 ?/A/A1 2M+TCS文件OA馠A225呤  >>ROT麰C? ?!2縎C)取枷麛Q7}枯BCqU1軂&& o&亠裮C-; =s燄 沓@Cmd .Caption = "目次" xFaceIdt195 hStyle2msoButtonIconA ndZEnd With"Set ClsEven膖.揗cCH ,m.Controls.Ad[ < 偾把庠3026萳$Qy踠引榣256XmY6m附聑紬3l羫Mll儋参考螆南72507鵘7Ckqm !im索引6919_詧 .TooltipTextm" ?峉匳 '完成插入仭页面和内容的功''4'"I_!機标记项釚(1087g"?d(R_)BJS1*D$ontrols.@Add W纈th Cm .Caption = "二级条标题" |PFaceIdN72:Style8msoButtonIconAn哾^ 1End  Set Cls@Event.琓繲itle2T%8m.C<伻齗#3婡怴3j佀谀4緻g4緻羑覤挛澹@5緻:5匑'B2撘 !kctlPop up猟(Typ8e:=鄓dg, temporary:=True)?L "奺 lA閵无鵤娞醢 ("y檇 "c一9 ".茩4908Be纆inGro& ?p~4瀏1F鹐= +%`4邅 3?p%I%1 _匡O窟 倪緾F#儡 ???郿#帼3 1 Q1 蟂`o3_p .O1弨絜 O12 4n?$.齅K//S`/*_p/繍Ep/髁/睈5&?`灚疷K1尪?8779[T 2##2a}D廡 T遯?遯b催q1t遯遯h 遯 A列项 ?蒋屵0窖 ūp)盈56.? Lx1vm●(apo gp379烵o?o?龁 烵O锵[?OOOAN簦蕤ApO竴3o>??!4 ?蟨_?蟔_餩! 9讇帜副嗪艖3颻3A0罒 f羞= .Controls.Add  With Cm T.Caption = "首字母编号列项(一级)" 拋fFaceIdd309:StylemsoButtonIconA ndi 0End  Set ClsEvent.娥Lx41Q )7~m丩槄7唨爤嘄$字噮二搮 .11 F .R嘅5厖1DI埱C娜C503?Dc囑6D'JC G% K '第二个菜单的快捷按钮掠cmbNew繠ar_CBG烞盰\章屵釃5795烳 TooltipText'"章鸨晏馊 !A蛂ZtitleC/?f?条一v7Lm?9釡条閷扵T1E C f蔡醵 2g  e @A溸 岪 2 繢床緼鹛跞 鞂 !涍 3 :(粜条四 4 弜 弜. 四级飋込 A14o6/_Q  ih条析錹47_Q圫 m五o 烸o a5ofIf A@pplica釛.Versd11.0" Then/彏繊t 簫无题頤鏴490飳繚6盫湮薇V条,_Q31FIf7 'zle,090705,+3鄂!}W)燅 y)a颶49ok))a0馴)J俴2/O拍O[蟢客Q[3痆/l盵4\弆客\5?段;焞昹7荃弽宄@ion .TooltipText = "誁亩"怑nd WithDSet ClsEvent.CmdStyleb圸??羘邌首C嘳09褔~ N惹|! b蓙偨臸b600>?b ."嗎咼睟> ?$_唂M>$99擀擀焍mdTBJ鳽SMc總煢 堾峭> 421慏@. @@SW 珸烞惹孊晏怦;363縡冗F逨續dGTit|.r3 `縱o#98表?貑751?_C邌O#絋xTab__唄_dY插入砀窨!X2059 Q2Qy}Sj1 ~ }筙y2瘎 瘱" BaGSP/2繓K1R@ 嗪417_Uou锔p鑣Gs /T!0?顰Q2更新?8102???OB>X?'第三个菜单的快捷方 式cmbNewBar_YYcS%?a例$gV488_lV33 n猄靗C# =`乜  q 恭 3715/嚳陙飭 﨑 1O|榭  Z鶎例 著420茗叱n End With圫et ClsEvent.CmdSS鄉C = $ Zmd@.Controls.Add@ x.Caption7"注".FaceIS245 Style5msoButtonIcon8AndO-豘WZ]l×m9466趍\n首注715477A兞亭閫nZF?om醛I图表Y1147766758Sn?S87淌譪7筍097OS?8脚9S60Sm7J7?8!799奯7 TBJZSM無羞輩 嬃SZx421?8烻MS~#蟷蟷QkT 题?p鋧1363咔} }繥Title稄涳 繈h繈 表 嶂1751 飲飲 *ab' 格皴059 SjTab If Applica堡.Vers411.0" Theób#/,Qo-@公手浆a.撰2\t..2_.aB (狐GS^.a⒗/编号 417lLb?2asG鎠If'd'zle,09-06-04,+begin,卸鲜欠裨黾恿硕喔霾说ィ绻牵蛏境懊婕父觯槐A糇詈笠怀Dim iMenuCount As I@ntegerNLumX= iFor Each ctlPopup cmb鳱ew1唈p3i要素及P排版3 =+ HNYNexJt3'imc>1时, 得饔蠶重复的则絰衠 8>< 1H=!/In/lsQo蜩i?怟15De餷eteA-)1QA<= %'&> If ctlPopup.Caption = "层次标题样式" Or愐啬谌HThen 菵elet鈋PEndiMenuCou$nt1 piN寀m&+ 1+pD Next*With c鄊bNew乗 亸.ProtecmsoBarNoCustomiz巵% )_os"i=TopVi sibleOTr鎢#L!CB!@3m!MDY""'菜单创建结束C 'zle,2008-11-7,不让显示“A隐瞼乇昙恰 @稟纼veWindow.Pane.View.S纇owAll膁尵!dFals坰If)09-06-19,判断版劚緛段落丟pplicaaG .Vers亝<> "12.0"'ALaParagraphs`"'+E  V%0705,+打开时,有封面劊瑏保护G1Document.FormFi elds.> 100`8Not (Fg}Typ衱dNo)! ClsEvCmdPROTECTC.FaceId駹&277A埞腥∠麃"eB.乂傾20,+1,增加a[后保存文 档Savea0! Sub '助手虪崾  gEntry(!ZStr As ing) On Error Re s`/ 乾Dim bln!Ball宱o耐fld0RangD\lfLong, l隑 dwhe8ATip 3Setb = S@乩Co躰. 1 ##鋢GetPointX(lfA`w`h,! Assi坰taMLef≯>l剆 む? - x150!A!#=?@ 为$`.Head-"标雷急嘈瘁!}QT續 DModa,`kAut餺Dow1S髡%8!P!=#Fun2:鞲霾糠值⒛''==丟:@ReturnDesignerCreated(Upd 1砍 @2Sub Help1(t!2 "胧淙隝CSp号:2q文献坟掷3J辈 owq 4孟代替&7爉5名俺疲合6崛英文Ie7与国 一致性 程度道{识V8发瞏既掌谙9孟实施 10B赴o'((行业o_(地方线(企f3/(?,?(c晔/0#01_(3q??(?' 盙燪?I玐插苋腭昍X XaX by 搱鄽6筲颴te颴O 3Insert孎M4羷shp憘餝hap( 岞CoStart@萾usrtr`w忒怜怜怜怜羍L嬍JwAll = False @End IfX'zle,2008-12-22,霉獗甑奈恢迷谥魑 牡瞪VActiveWindow.View.0Seek緒dMainDoc umenthInProcess#Tru係tarttuGetSetting("TCS", " Control+ ") _]&G5"xf  A~d匰.Name <> =.SYS" 0Then"仐MsgBox "文件不能单@独运行FvbCriticalExit Sub:禝f `Not (?恡e璷nTypei偉No ) GUnpro "z爃angc]g剚 >Sel.Go To wdPage,Firsm Insert@Break A':=z+Next/;1S's(2).Heade rs(wdCFo8rPrimary).LinkTHevio聫榷懦9-5-17,+1,其它节断开和封面的页脚0链接,B 090714,*1 | '亅'#2'!中内容距顶边设@为10mmWpith 嘡乄莡pC'.TopM argin@婱i纋limet@L@Eoints(10華 B Right 5CDist鑑ncR0HC2aM!C'处理崃页眉.B]+1i ,R ]e.Styl- s("标准:猷!喥!_ ge.T[+"$ioK将第一节aJ码设置池煽誄!.淓?L )鏎羙B:="I iEragraphFormat.Align搧盄wdPaD8Lef膤0-10增加敫龊鹤值`木嗬隡 #僑ymbol Ch c@PNumber:=8194, Unicode:=!, Bias:=処@Z fld7AFields.Add(b$,:=g, _s-wdA$I餹putDJ釴 Y>= ("6E@蝭`Macro ?.冡nable!躡 OwnHel~p ("aa 胧淙胝返腵:号:龍N.茈 UB胓B EditAF贫Regulara, Default`$点击此来μ砑逾`m!aBWidy癐= A*+瞓.駊Key#  (澟to!袆4rmo!So! t:=o!do! o!f!WXFLHy!0!!O1 !爋lp!泄鷣L文献蟹掷!n!b!bC.!!!胂"6." !Gp"0揝td,>| 0瑦'$r桵9@-2,+be s,盡一个表穹疟赴负n琶'1蹾T=扝 烪Ah, 0ORow怣1Colum>nI($7Be ha袐RwdWord9Z, Au鄑oFitg -郌ixed (} (Yu ts!帏格型痲1v"t吥1.Apply倅?qv0奖.籏La黶tp1|2/!黈  }gB莽爾"艈wdㄓNon蛁 ?wd3OznO x煟悡B鄌ttomooR翣___"Diagona鄉Down裣lUpl= enX011-28絧C俈A`pc@_塩韽hng墤4?6奤b<簥硲唅BAiiEfq2.泶OwnHelp = False  .蠺ex2tx"" l銼tatus8Tru tEnd With f'zle,2008-9-2,注释掉桓龌爻 ''僑election.TypeParagrapUR*HomeKey Unit:=wdLine, Extend 9Move刄p Coun#2!E 洖X軸1朣蒊f{BStyle@pAYveDocument.s("文献分类号")CAKDown覭1 C聓090708,+begin,修改字If Stdy"0 ThenA侴+Left , 剘纕飬儎o2` #腛_Right wdCh穋t纄r, 3,墿厑 嘇FontG%.NameFarEas旰谔鍍雮AsciiV"Times New Roman镣 Other!FT * s_>A$,7 ? +G,穎F>J 3# e7*Y,C袝?A%擧?繱'迦氡曜急晔堕 Cas^e舉A0 '国家h郍BTagGA'行业H儼╚'地方轉*b QA/'"' 标琶+湙封面馎号2烶ο忄:="GB/T逪g"8寽銍, 4韢!z~鼅F ?~BvoB镈! 遚Oz\9j2颼H1iDB X:804,+ U網鳺?X5?[z贅?uD羏1竐-~3x爺"Q>/dA"昒<> 焵t fld鼕FormFields.Add(Range:=W , aY:= _swd1$I餹put詭!P荎&p婲o0x'1.ExitMac roQnabl鎒a 幊 .4骨滚b .w QJ71f.0EditwdRegular, DefaulAqXX", aa\.Widt`鑔rW"鎯)/C  硐垮  4 6  墐i M9<1&G&?吏鱃Q'Q& Ax^D气4,啤"0kB=o\5"f\级?\愥O5復漤y /T鶡 90焞T 7 _卆w-6礍ont .NameFarEast = "谔"圓sciiTimes New RomanVOther$V&End With怱election.MoveRight , 1 FcElseIf S@tdType2` Then!Text :=",/ 剋!3!'zle,090804,+8,修竊淖痔2dLef乧5, wd繣xtend> 噞k "梾p仺蘰=嘍峣Fi 廔fKSet (fldA缽veDocument.FormFields.Add(Range:= , := _9嘵wd 亣In餻ut)俵@ #漀o1埻.ExitMacro兞8 nable,TrueOwn怘elp FaH#@ Sta竧us B. 'a+e阣0l\羺.Edit#$wdRegular , Defa(ult纆X",: A&a Width0 '5'2郕Keyr1d l麖 4髴-_,3_,艧_yCd,PC垇2霋Х2,*,⑹偷粼吹暮嵯咴黾婴&g;InsertSymbol CharacterNumber:=9472, Unicod缷cp%d -06-201,+5b拧 太来治侍. 掐1 坡 襁U~t2L弨唨,a z't 6,+3,铰珣q改成Azo /晘o o l 垇覨敏 恵2,+攨W鐀NqM%仭狣Lof遫fof鄬of睠 乷fwofkf2鳸of%E鹢f.of%ofofnfRD縓ddLBzhXuo>扭PCQP "网牳裥"瘉 D@4!A厵. ApplyBHe郺ding緤h>L鹗0 -惂Fi鴕stgV_A " Be rs(wdTop).Line=;Non(?5懤O$O承B鄌ttomooR嵴___XDiagonal餌own黮UuGl:V誻11-24,*P^宐m^<訲"XC披.廮!臞  哶DTJ_ntryM排ShowHelp4" .ExitMacro = " 纍ableBdXTrue腛 wn0Fals 2,Text4 攣bStatus0 LWith .3`Inpute.EditType :=wdRe gular/, Default:="", For宮a CWidb= 0End 毕kE&v02,!vl5馮 "(_DR/5攏痆痆e痆 r 痆ut痆'Y豘BS[焿 4鯡/嫝./%[/嫝RA/嫴 // 媺4与国际笱['的!o5cP.弽 珜+pv夛"{.")#XSbegin,增加一"嵗放类别<6T仴騹 , NumRows:=1Colum>n昜`錈Be@havior1ord9Z, A纔toFitguwdFixed嫌 8 (1, If 洹<> "网格型" Then11烡4If@.ApplyuH纄ading^\醜Last0 m噶FirstgVA cBers(wdTop).LHinewdNon嚷?5Lef>tO$O雍Bo餿tomoo}RA竉__XDiagonalDxownl濽uGl:en4.呶痸准文羹錻=k.> ╲潅诛g飃鎔(gD鴕op*<下0"LBff0] ffr f鰂< 5stEntries.C衛ear'9.O@牥 gq苞娲窝≡" .DropDown.ListEntries.Add Name:="(ぷ髯樘致 鄹澹+v征@求意见/r8蜕3s9/o报批'&幊霭娓塃nd 0With畠'zle,2008-9-2,+1,獗暌瞥 霰砀Selection.MoveRigh t , 2 GStyle = AveDocument. s("封面曜嘉母灞嗉畔2")4p 6begin,增 加一7放0类别C +Ta刡l剻Rang罊7, NumR@ows:=1C olumn _CDefaultBehavior:=wdWord9J, Au`toFit w俤Fixed岮q G$s(1QA嘔f C\ <> "网格型" ThenCF怬臲亱If. Apply He`ading?zTrue LastCFalsF餴rstO qZa#B-ers(wd#Top) `塶e%wdLi1NonwLeftb,Bot鴗om聁Diagonal!瓱 U?- 蛅en`\x8-5,+x和发既掌谝谎!格式,便于控制Set f ld郕蘽Form燜ield"(U|8Typ qwdTextIn鴓utbr C.!詟"WCRQ梢∝yMacro!*xitn!A琺OwnHel~p mlm S鄑atus B.'Edit!" "wdReg恥lar, d潙", #ata '.DateAy年M嘣耫日>鉾6pKey ,$%_ 蟧蟧蟧 8XD0rt腃Par郺graptw羣A慏 wdCh@c纓er, 1  09-06-26`,+5,l!t钕旅娴囊恍邢 /sh /Shapm罭(MillimesToPoints(25), 7$ + 170 7)1@ .LockAnchor'RelativeVertica鄉Posi噣q&阆Pag覈?郺lSiza ZOrder msoBrpmToFrontE嶸10-7,+恢复原来<的匟酖攼爓St鰀 04wR 鮣釗q$NQ嵰E*t ("其鸘 牋祡_R洘Q<_R剱:=_R頳q>_RltVRDFY歅ntr7RS鑘ow馤8*蟁x .E蟁蟁r .蟁蟁蟁b證OO蟁lRX Ss<.Width}p$4w{O椇U ni:FCoun0Dq A馌\ - d""犢u"uu粪uF﨧z "q"w"锆"".""#R""""v"T賮""萮"D/"/"/"/"/"犲""澊, Type:= _ wdFieldFormTextInput)xWith fld.Name = "FD"*EntryMacro6Sho@wHelp8 Dx itB ;ableBd8TrueTO wnEFalso " J1S鄑atus L.邍2.Edit寗巜dRegular, Default:=@"XX", 攁G<"Wid= 2.End ;5 Selection.MoveRight Uni-wdCharacter, 餋oun + 乗乀 R发紕M'zle,09-06,+begin,修改数字为0黑体"Le餱t ,E2))1, Exten郿:=wdCC俙釃FontO習FarEastAu&萕倽Asciio 汿11'01P豲si乼)177 媍潔3C! #諴;CZ;; _Ej_U_UAU<@XXXc<_﹩_縬惪555`9K渆y肣 摾 U/絒dlGB仭P@r鴄ph1 &戢d26,+3,shp.RelativeVertpicalH}!茡Pag 譩GqSiz灵cTop缞Centime@胹ToPoints(25.7`C膭If Std!0 ThenC$&Styl1Ap;veDocum.bs("实施日期"=b E簒z其趟0rIfe 1k2008-10-7,+恢复原来格殊Set褖 !zB峴.Add(餜ang@彠 繍 繍繍 1稅躍Y1繍釆9*繍馚.En繍繍 .繍.繍鼴 繍繍繍磹邜p.諓4薥繍繍@% 臥.馳 - $o"$.o"=o"eo"o"http:// "黃M: / 硂"E祷?o"A 1/砽p盎o"1驓o"o"o"d"/#PF"$硜O"O"O"D飾%/"/"烡m烡'烡_1 0烡烡烡S_誐鱙/"/" 烡t /"烡_章/"4a/"/"/"R\1/"/"??:= "%%"羐d3 寬誐A*鈫熢卟铹邿禩Eb7(繘eo╭ 值 .NameAscii = "黑体" End With l:Form Field(R繿nge:='<, AF貰aTextInput`@ B劾 H`倎 " fm(.EntryMacroxitnabQ`Tru`?If StdType > 0 Then/"Kc?!e裊65D.6@59.酼68.21d"dW;黎.uWe#BAH#g$End PIf 泎 i2009-1-14,*3,注释掉增加的?=銸痀/:532.9, 831.7P36bR&Ig BringInFron竧Of9S' 090714+b坋gidSelDion.GoTo what:=wdBookmark, :="耂Fdard}0皊)0坥亸@(wdHea`DF"oPriy)/k@憆evio躸sw8_tp __RPe.Sty}as("标准书脚_评媸"T' K`/cW繬ow'ew.SplitSpecial <> wdPane餘one|11B 鳦lo鮒&aQS7=NormalView 萇r : _c gdOutl4/{<d@nt/9 eSeekBA Cur聄p睵ageC!莯(".Is!qK蟹 (咴 秔7/a ./ A  Fielde铝 b*:=,> A8Q# Win/Q鄡訁s(.1詂0.s(DwdyPriTy).R./= " $6 嵄c书眉_奇束砆7a v.髤蒤. , -罵Oo釖\ 榻 玙g'设媒抛⒎绞剑ㄈ牧`┿t= n 賛昲*Bo@ttomOfk.@NumberlRudRest@artConmu黲u纏鈔Sp攅wdN2Arabic CP> Cls9t.TdsApp鵓li魻視飻?」标输入时盨%2摺暴摺摺摺`?摺? 摗Chg駤Uim rP夾s銕S櫡'垦纹("J扄鬇4f}繮&袚 <> "" Then$If 郘eft(]>熌惸!s, 4)点阑鞔舜5W邞` UKo.?砞{3壁榄Q2m閌2?偵.GQfn煱瓰At.彲 彲彲8癲缪7 .掝%蠇AU箸ha2U簯骘1&嚯w憎qbBacks鴓ac勸 钳  n Selection.EndK`ey 鑃tyle = "目次、标准名称标题" fIf AeDocument.Bookmarks.Exists("BZ") Then :yrGoTo what:=wd G, Name:=F@|u.D鹉te 6Els丏dg_SZFirst <> ""Y:FormF@ields(!).僲Y If 噮;P 膷*弐rng.Text?羥Et -&Home嶮oveRight , 2G8 wdS宔nce, 1, wdExtend With檵 I .Add Ra3Q/**$#-p黠F-偠 End If '0HStr = & Trim(ActiveDocument.FormFields("StdNo1").Result) & "-" & %2A .Headers(wd Footer"P昦ryuange.Text>>EvenPpages @亷W鑙th僅N1'zle,090805,+begin,去掉饷嬉趁 &*剙寍Sens(1)Sel&ion.Clear腶tt8ing7Window.Vie@w.Type巜rd歯t PaneSeek噥 MainE 保护窗体COIf fl @`PrnTrue Then耞#茰蒑Pr纮cte鰀?丂s(H i2 To 仈.Count #i).FaxlseG1D Password:="zh@癱>@g", No@裡Ht:=A3, n:= _(wdAllowOnlyA?C G WCom@mandBa"要素及排版@賄isibFl-Clsct.CmdPROTECTC.Fac萫Id!)770Capt繱"辱∠麃>"鍗a#塱In #ces9#$*Sub'=?%@Q==Fun聀:判断 曜嫉w类型Para:"ReturncDesigner!Crea`P: 坆y d706XUpdB  ~1??$#`$ GetFM丒()鉩-@One!1*G琸 .+gDimgAs Intege唕7 Not 嵙odZ>! w聡)G韟`?llUnpz 擤a%E'f 溊4 @5grap$礳%Ran!gti" AA塃ach %I顯 燝sh = + 1 `+! .Sty爏= "罵称谓" Ore其他'l`Exit k )D +K strContqStrf=v rx@ (In(', "国家 ") <>d 0" @吥$0ME怴/nt 续幸/妱'/胏 地方//崲u2_ "企_ woW 3(T'玹bokaXR喆8遰 !.遰脼厀遰ocrm竇 A遰i 筮r遰ue遰T遰pR&痵痵殜 縫痵C痵痵6' 梌梊5>qSSt瞙痚vt处理双脝鍭嗎辰Q僶R焧焧焧焧焧 晅 'a圱|wo羢荅uBc竍, jB2008-11-23,*1,注视舸砦蟛蹲0! On Er@ror Go皓e蟆p燿l4ja犈鄤,+1,防止垦1c飡Af=溱3< > 10hy'如果已谰迦雭G!0'荌nf遖>嘭?&Num衎er)1H仂 .C爈0msoButtoxnUp1oe_^MsgBox "不能在),请将光标移动正文执行此项操作7 t4f1ca 3wdadS, Absolut縛J筨宂_杢登o_栥銸t 枛 "zhangcheng" End If | 'L@< ,lActiveDocument.PageSetup.@Differ&First.HeaderFooter = FalseDOddAndPEven@s ATru@'处理@正文 Q'zle,090804,将第节开始竴某傻谝粌AFor iH1 To 実Seoons.Coun唗刉ith8(i) .!bs(wd gPrimary).R薳.StyleI G s("标准书眉_评媸" 81啠2偶yTex倀2Left(c?AA , Len )p - 1虯Z榻旁ZM丗ields.Add 1俽:=.S!Mc, Type:=wd糒庛銕:If Not (,O 10珈5鷌觥 YIn1cesHExit Sub 缌醬'===Fun參E:a|单面a页眉页脚APara:R 袇rnDesignerCreated: by" 706BUp杁 1c  Pb OneqGC~(TEDim2As Integer,8 j 矉2008-11-23,*1,注视掉错误捕 捉P On EI Go媏@潀dl4憦@G,銓岪'如果已经插入封面GSel脨.Informa1'P寭7 "Numb鴈r)+袛avMsgBox "啦荒茉!双,请獗暌贫溨葱写死项操作 -)fEチ1G BLwda訵, Absolute, 2!/a皡q@痲0q痲K痲抗E 暮1 _筥筦?Oそ_綗俕h O筄故紦绨*2eO箃.誷O筄癸B笿弚o懮徃徃 徃/ 煙/縸ぴ"蓝0O)冐O)O)<O)O)y'2@餡+2,页边距调整 _漘漘5_漣M潊闿0h O瀋嵦'O濼鹂&&?&O瀳骺]O烑 _ment.Sections(1) .ProtpedForms = True T iT2 To ArveDocu .CounNtftT(itF坅lsuNexO K Password:="zhangcheng", NoReset:=, Type:= _ wdAllowOnly|Fiel ds If CommandBars("要素及排版").Visible T? ClsEv笴mdPROTECTC.Fa恈eId仺77 Cap佒"取消保护"繣nd If xit Su`bA 8 '=?GFun:设置袷轿 图表“注”APara:BR eturnDe@signerCCreated: by zle,0 90706 Up杁 C 1 3F I InsertFigTHblN@()僒On Error 4Go@舉燿lH癝el觅.St:y@=蟻罀注兀"蜤唊7MsgBox "A伹虿荒蹵Z样式±吶ww)-;5; ;;;==;4;Mu_<蝞F<;;×<;?;醲;?#';首繜w焪翇;?=;鳩irw;|;;With ListGalleries(wdOutlineNumbDery).Tpempl牂BLpevelA~.a詀t±注%1J(Trai gCh@玞ter壚wdNon葤s5Iwda#2A rabicPosidhCmime`sToPoints(0.64(L.Al !倰 b萀ef▆.T悀!1.43TabwdUndefdh OnH(igh0St衋rtA1W.Fo}.Bol褄 姠Italic0 `_rikeThroughr Qubsc竢ip 2 QhpereX.繱hadowt`.)?8Embos釥 T.En鄃raveoh@' .Hid竏enohrQ4#_XCol0y= C/ D.Siz 9w.AnimaG-Doup濻巘'RNam"黑体<浹&7±@nkedE9"郪1c!}FFF#GF24F%2) .顴U8 楧?8LowercaseLet >廆夽oFoFToF oFntML1.75oFoOhOG窫癅G G G((vG/%_*逩.S逩籘aP逩逩忒逩n逩 @疬Gf裘覩_0H}m絹.He4.uH" 棾 End With .LinkedStyl纄 = ""h  ListGalleries(wdOutlineNumber0y)渟tTemPplatJ1 Levels(3)w7Format1x%3.{.Trai^gCha@racter#wbdTabJ聎d^LowercaseRomanPosition0Centime6sToPoints(0.64塠Align>mH5俷 Right0Text/1.75 /lH ResetOnH<2>StahrtA1G俽.Fon)\Bol俤4Undefvd ItalicStrikeThrough[ ubscripA'wdSuper玲 hadowD珌Emboss`ngravA蔠-A llCapHi竏de仠ErA豠$Colo闷Qirz+ni`p#`D鄌uble?>瘡譭l翯苓G逩噙G踝G5%.繌揍p 逩L*逩3逩逩壋 .Subscript = wdUndefin`ed 攑er!渉adowa擮utlFE mboss"ngrave#AllCapGHidd,en#妑瀁Co坙or#Siz淲nimatioGDoubleStrikeThro坲gh;Nam;""囬End With.LinkedStyl  ListGalleries(wd膕Numb$ery)stTemplat@ 1Levels(7) ForC@>1"%7.*.Trai^gCh繿racteCXE楾ab0wdA*Arabic! Posi腬Ce ntime@sToPoints(0.64+Ali鴊nm 耚B5LeftTex聇\1.75I4# ResetO爊HighBF6H@StartA侕1肎Bp.Fon)醸`.Bold"5I鄑alicZ_RD3煄bSu煄.S摕師 .煄.E煄.煄 .煄.煄A煄煄煄滥煄 茻幜M煄 鈹煄er湈8箝f帋8)煄煄!鑼Lowercas餰Let鄪鑣c絵骺廰 q浛忁P逩G7 逩逩@ 逩龂逩/q蠈逩/弬戇G瘧斶G 逩栠G逩o逩?逩绠逩 .逩逩7"A逩铵.逩/忞4.逩 //"L?/忂G#螱螱n螱= 螱腉q0.鱫H琹.oH/e4.eH/Hh7Li*HOG/嵾筠驥G |SA'%3. 屸D鯇FG嵆 .NumberStyle = wdListLowercaseRoman  躊ositiontCentimetersToPoints( 0.96)hAl0ignmP訪evelRighBt+Text^2.07 ^Tab32 1ResetHOnH=erJ2@StartAt 1 With 0.FonU倗BoldwdUnd纄fined@ItalicStrikeThroughubscrip丯Fal膕e 6Sup脷 hadowOu tl2EmbossngravCGAllCap鳞HiddeA氉X厑r,Colo{Siz+nima緱Doubl"eguNam""aGsEnd 翜G.繪inkedE 偐侐Galleries(wd膕Cy) stT@emplat2c聄s(4ieF or >"%4.A.Trai@/g繡harac纮侭@sHC 枎Araxbic~{煃厤L|ef岼崗焮3峚坉.嵖R} S.JE. ..;(. .峟;.嶀 縁縁 縁>縁縁L(5縁窮5)縁n?縁H縁嶧嶭e?OG幮.巕`嶰G廂揙GbOP賘J0.OG 4OGpZ嶰G.>愮OGQ4邟 .OG+.-巓汷G^ OGoOG?OGOG 颫G~OGAOG?璒G蟧玸1SOG 籇q帰OGOG玂G幾谏sHG6巌OGcOGOGOG_1?><>弾鱛誣绽._誑跲GOG譳JOG[5%.煄` 猒 煄_誣宅,OG逴G0繹OGOGr茁OGOG煄=OG?OGOGn巓 .逴GOGw!!.帍]OGub.OG 嶰G 帠9OG9巌n巗b巈r4FGR餺man(9?G弾弾w弾釠2GR袉煄攔{w擮GbOP湕OG檸8OG!煄" OG,OG>3OGo撯OGw 筐OGOG煄D.OG烜OG^ OGoOG?OGOG緻OGOGOG繌OGOG;OGOG OGBKG硨 Selecq.R恆ngestCG.ApplyQ贀"N:= _咻`呦O), Co犛nuePrev恑ous1:=偨,To:=阗AWhole!, Default!Behar:=; Word10  7 Exit ~ errorhandle:MsgBox "保护区氩域不能设置样式!" End S0ub @ InsertTJ() On Error GoTo ehandle/F/Fn/F} /F轘#F 0.螰 k齺.螰廲4艶廎騢H6Li奆IFoFz3Fw%|3. FeGFer礡FRoma辬E煁餿構7i F]噵R鄤煁憆w1.48 蠇蠇蕥2( 蠇 _F#"_F+_FN2_F_F_Fw _F昣F_F?_Fn﨓_F>_F_Fn_F? ._F_F倢_F _Fm盧_F_F%嵢;飳韺_Fo尶哐_FZFz苨哫F4_F黫n徰庖_F_FA蹝G葜<煶= CentimetersToPoints(0. 7) .A lignm = wdListLevelXLeftTTextPo纒itionZ1.48 篢ab1wdUndefinedVResetOnHigherW3StaPrtAt1With .Fon.Bold*fItalicStrikeT@hroughu@bscrip丯F0alse嘝6Sup粴hadowa2Outl棜E mbossngraveAllCapHidd.e譞亁r,Co宭o{Siz+0nima蘑DoubleguNam ""GsEnd 翜G.Linke郿Styl 偐訥alleri es(wd膕Nu恗bery)stTemplat@ 1箩s(5c捎 For@>s"%5)*.Trai^gChara>qHC EChLowerc繿seLet 伩尶尶屷l .榭 .瓕4(繉 7繉繉.Q$.S熆尶尶尶尶.E繉粪涂尶.繉(.繉靠尶 P繉&;.繉繉  繉r_FMZF6_FXF6._Fn鏮F睪_Fer_F4VF郣omanOF邌.郫1 瘜▽R袇繉w繉垝繉b繉繉簩5_F Y繉繉繉._FY"_Fa3鼦_F遯5PH繉-S繉H烗.繉姞2_F^ _Fo繉?_F_F 颻F~_FA_F%焈F獊4_F 繉繉繉_F畅C兛宎寶莝XF7_Fi_F巁F_F!枓GAra鑒ic'./寑徱逧徱u徱^叵E胂E&.-6 /尷{◤ /尛:螮?-t徱屋繡徱4o螮螮徱8 螮3.螮^ 螮廋螮?螮?螮螮螮螮t!痛 .Animation = wdUndefin0ed .DoubleStrikeThrou刧h^Name@""嶦nd With".LinkedStyl , (2 ListGalleries(wdOutlNumbery)NstTemp(lat%1Levels(8)w17For|丷%8)T.Trai/gCharact$erwd Ta鎎%awd乀/ Lowercas0eLet$Posi綜entimesToPoints(0.7亯[AlignmH5俷 Left!/Text.1.4JE6H 覀.ResetOnHig h侲7StarhtAt&1G俹.Fon'仈.Bo ld1暅Ital ic纾SubscripA'Fal seG(B#Supe俽[hadow#DペEmboss翛ngravA淖鉆AllCapH癷dde涻a/r!iaColoc`u5S蘨z繉 繉6繉;繉繉繉爩9y簩9.繉繉链祵R衞man$.#扅鳠孉▊孯鄜繉J樋岥.萎8H繉9E繉砜.繉 .繉繉繉wc遊埧孍_F^_Fn>_F._F/ ._FM坃Fw!!繉繉_F繉鸤_F 繉_F攱a;sDo宱宖 SelecA.Rangest硨.ApxplyQe悞撆:x= _ ??,)C`}inuePrevious!$:=騯, To :=C戜WholeqDefau刲tqBeharqWord10僘 Exit 6 errorh@andle:MsgBox ";で虿荒苌柚醚帙式!X! '=Fun:1格式为正文 “示纮谌荨眰P哎 RetuDrnDes 瀍"rCre牞d: by zle,`09073罆@U,pd 1?c   InserthExa暗eA (!On EA G餺To *5AveDocuG懍蠻锌s(""t???? ??5段线06黷e 篑(ph蠽艔l`"段/o;o;o;#?I TWJz? 鄐条牢慕抛 _ 鏮 _ _ TBQ 0 " '图表编臗3?54N?53 605 | errorhandle:  MsgBox "保护区域不能设置样式!" End S恥b '=I OFunction:u格轿 “图表脚注”a$Para.R eturn De@signer Created: by zle,0 90706>Up杁 1 Hh InsertFigTblFooter(B)兊On E `GoTo 埮Dim iCount As#teg宔r  = 0If Sele.Informa(wdWithInTable) Then侕  A veDocument.Bookmarks  .Add Ra`nge:=G, Nam"BG .DefaultSorting = wd`ByLoc' ShowHidde耼 True仢s+GDoA%H@omeKeyM`oveUp"A慻raph, 1 芖+ Loop@ While]S則y<> "叒说明" A藍3G o= nXt0 s(莐!Els _瀔W猺irs骻2罬If+?!鈼侭!i Ex黫t锚_瞋?#"彩谉矡矡策?$惒?睟錈>a竉猱ListGalleries啻OutlineN umbery).Templ嗾s(4LevePls(1j.Fc縺"%1@V璞.Trai gChM`鏲犘wdUN渙n95-wda2Lowerc繿seLetg2aPosi醙 C @eim7rsToPoints(0.64 Al`{裧" bLeft狲Text096爋wdUPndefdhResetOnHipgherPdu  .StartAt嘝Hb".Fon !BoldFaN.ItalicTrikeTh鄏ough0 a0.0卻crip o uper[t1.Shado顆?3.(?8繣mboss/)2n鄒ve?8Al0lCap' .6乢d.Qr4翖.Colo製Siz 9!.Ani曪`.Dou`朣t.'Q.亾"宋<体:乤&*Li餹ked9{ucK向)4/F/Fst/F#F24.F2EnERG@8 ― 8顴0顴顴郋I 縀縀.縀t烱汯籈盢jZ岶(E廎q 廎 飥簜F, 鏔/%*螿JG狦vH豖QH[2H篹mEH>Hn>H.H\f2 H- H0縃韑縃oe幊 .Name @= "" 癊nd WithD.LinkedS8tyl Pd ListGalleries(wdOutlineNu恗ber0y)NstTempla t%4Leve`ls(3)w7F ormat%3..Trai^gCharact$er#wdTa鎎J聎d乀/ Lowercas@eRomanPosition0Centime6sToPoints(0 ZAlig|nm侳3m Right.Tex鈚-.64 /k1 ResetO,nH=倫2St衋rtA罺1GBr0.FonH*.Bold5Undef纔d ItalicStrikeThrough[ ubscripA'wdSuper hadowEmbos俿ngrav蕘W-AllCap郒iddeA湕E唕$Colo兤Qizni@p`佔Double?d.?R S1 .庘 .S ..E幰. .?Ge=^?G贌` .?G}S?G&堎.A?G/g.?G_e缫C?G ?G  5i<>Gt5)弉廱廵巖4廘et?螱弍v廯%徖2I螱徧斚G烶霬螱4螱PX彠$.螱2螱_xaE弉徔楢J螱-8螱螱 螱o螱?螱螱螱螱螱G 螱/D螱螱咧螱螱螱螱G6螱刂6廼螱3叵G螱A噙诌诛>>I 弿咧咧熫螱胂G杒.葜5%p堖瞩Ⅵ 咧 煆;螱2螱Undefined  .Subscript = wdUn攑erA!Nhadow擮utl#Emboss"ngrave#AllCapGHidden #妑瀁Colo"r#Siz淲ni matioGDoubleStrikeThroug"h;Nam;""G~End WithG.Linke郿Styl ListGalleries(wd膕Number y)stTe爉plat@ 4Levels(7) For@>1"%7.*.Trai^gChar0acteCXETa鎎0wdA*@Arabic Posi腬Centime@sToPoints(0 +繟lignm@ \嚵4LeftText.64I@3^ 1 ResetOnHighF6StartAA1G8.Fon(亖.BoldbItalic焃?R鋷巄Su帣.S .帞.E. .>.嶢 .帿幜 聰i巈r|8閒n8)鑜嶭owercaseLe缞鑣c齷煆`*錌.煆(0螱汸.螱菺7 螱p 螱 螱=娤Go岋p瘜螱o/螱彂螱栂G?螱螱o螱?螱螱煟 .螱骶弅BA螱/G忞5.螱 彚 ?徬G<(9讼G9廼n廱9廵r4艷Ro鴐an縂弿0緩弍颬m弿皽"IR鄧煆O暰rH曄G螱螱#.潖8螱皧煆煆煆%.螱2煆4?3 螱螱螱_賮 q煆-8螱A螱螱o螱?螱螱螱煆螱麖煆u螱4螱螱 螱螱GGO)軴 Selec裢.0Range.ListFormat@.ApplyxTemplate 0:=4Galleries( _ wdOutlineNum萣erHy)s(4), ContinuePr@eviousS:=False, Q婽o:=wd"AWhole, Default! BehaLr:= 揥ord10 !盓xit Sub errorhandle: MsgBox "保护区虿荒苌柚醚剑" End # InsertFlZTitle()$On E/ GoTo 4Selection.Style = AveDocument s("附录绽卤晏",胈蛪\P.T.图.M^虸.B.T.表.Y.TB.1繈弸一钾短蹩/2倓缈]乣二?v/v;镕/3島三沁le49四le5五9Bs??-标d识_ _訧'= Fun択:插氩慰嘉南伦Parat0@ReturnDesignerCre爡d: by zle,090706Upd刷 1c O 桜Referenc評Dim MoveBK As S tring#{If=zBookmarHks.0yst餕BKCKWX") pThenc16継文已经B珹喼馗碤 啙D w~亣IfPnPro0 s`僒8rueSGV"噖d%aLP, as巘 KSY q=hat1殤, Name:="B Hom恊Keyn.Left , 13zf Wu"掷战嵯",C"9TypeA+g0raph 鍱牚n.p ? 瀅O I  煚l)"6EBText A参d$'62008-10 ,+,空两龊鹤值木8嗬耄 矛Symbol Ch=cters:=8195, Unicod ', B纈as:=0M |考D 蠦u0孪6文b 藷 P5 粷 >啄-.a.Ri鑗ht9S`H/亖:Extend餡ith?G4G#, .Add 廛:=?8侷H許oJr賕怐wdB`yLocaAShowHiddeGa,1 p0鱓a6I圠B 謵d/\re趉饕,将增加“页脌妗焙汀傲X内容”穩旁谝黄"緼 Siononononeon? cn脀In纃exTCSu '先查遥纯次牡抵惺欠裼幸丫嬖诘摹氨槐昙橇说乃饕睢 Dim MoveBK As Strinbg2Res ,X= "StandardName"3Selection.GoTo what:=wd Bookmarkd, /:=G 6E爊dKeyAIveWindow.View.ShowHiddenText = T竢ue?F.ClearFo rmatt唊Wi竧h .,"^d xe k Replacepment3w噣唺JWrap 剋d両Stop7NFalseMatchCase WholeW坥rdByt儑HWildc*sSounds圠ikAll7/Lp 罼C9'8绻 爟If亴b.ExecuF.` Then /'趁鍭@a婦ocuhE泂ists("B`KSY")zle,090731,判断,裂重新生p成? 疗= MsgBox("本文已蠥, 更拢", vbYesNo +@蠶ues燎)0鶅vb <犆孒%Exit S蘵bk4Ifk '插入内容KProcessIndexcX隅4不4EJ\& a:+ Inser鈚 PagHc?黙t E#BSc揝唠OOiY'逺逺逺逺羬逺勾逺a!d逺%#806,用来删除原|来C郄= /儭UFields.C牅纓 > 10袀?a g茷郏峐吝Right , 2GY $` wd`蓃y,Extend? Up UniyLine, :=1, 鳌z XZcW Rang鑕.D纼t>[ hLef11wTypeParag駩wh _HK湅)T C7dbw廘ILnd 蟕9Od^^~^'鉼 "请L先h项@u, "TCS鴹Q? v q襭 '~=F魎n:舠):2ReturnDesignerCreate@d: by `0b6BUpd 1c  \(魥麵n7'3蚓#F晨LasTx餢Styl"终`结线"\XH鴒mef羴_.鐹8;C)p!O绿齇 A$3' 塄b0ú慰嘉南住,标题>"'B華:="索D.bo2008-10 ,+2,增加两龊鹤挚崭3=SSymb ol ChQct@erNumb&= 8195,!acode:=, B纈as:=0褬煙 引 ?-F譛 p胸en鎐纋Plwd賁r迣f3 .Add 2U:=リ _恓faultSora灏0ByLo點a#7:3#WpF(27,+B5一个#袷降膶磤书签 With ActiveDocument.Book`marks.Add Range:=Sele`on. , Nam,"SYGSSQ"hDefaultSortin@g = wdByLocation+ShowHidden'Tru耬End  TypeParagraphInProces聅FFalsGCSub'F=I'Fun倖:设置格式为 "列项——(一p级)=U:ReturnDesignerCreated: by zle,090706XUpd  &1Hk K InsertLx1()VOn Error GoTo ehandljeStyle@_3L晜s(廎 E饃it 耰@7翢MsgBox "保护区域不能羀样束剑WxTP[讀囫(二xx)齂x2?8 ThenBSelection.GoTo what:=wdBookmark, Name:=P"DW"8A5veDocumen$t.,s(&).DWte.InsertLx41xElse噰3Sty倸"字母编号列项(一级)t凷粌InProcess = Faa諷ub errorhandle: MsgBox "保护区虿荒苌柚醚剑@肁| '=?GQFun聖:袷轿 "蕟C Para4丂ReturnDesignerCCreated: by zle,090706XUpd C N1 ?7F L G()aCOn zEAh k墂Tru劘嶤learFormat餿ing厃g杹With ListGalleries(wdOutlineNumbDery).Templ(s(7Levels(v1 .繲"8%1)IATrDai gCh9cHter`wdT瀉XfC ewdahLowerca鄐eLet C aPosiA C`刬mesToPo爾s(0.74 Al I亯"a CLeft Text 1.48 ?*ResetOnHigh$0StartAt 鄼9.Fo唍"Boldh喠BItalicStrikeThrough`wdUndef繡d繼scriFpaper.繱hadow腡azEmbo偉7E@ngraveA`llCap伄H`iddenA'r肁kColo僢V-4iz1BB0Ani`俙辁 Doub躭e;!0.羨"宋体<補&胓 Bnkedm{m?qR+6_H_Hst籣HSH26@XH2_H侠S_H盜_Her_H4繟rabich螱=螱(鞟螱螱 .螱t璏2.2肯G虶d!.蔊顲 /H /H./HQ/H/H./H廕 P/Hp/H=O/Hne=/H//H>/H/Hn/H ./H] S/H/H ./H縠4/H噧/H-H数字Уさ/H彁彁彁姁3 H濦GH(%3_H_H抇H_H!殥I_H鉀/*恾B_H_H_H鈔_H.969Y_H]H0-H2/H` OHT 悆`UOH匡r蟳OH邟uOH鳠2OH彈.OH烝OH濧|惇efined  .AllCaps = wdUnd孒iddefntrlJColor!Size 10 imatio匘oubleStrikeThroughmNam6"宋体"8End With.LinkedStyl编号列睿ㄈ叮 ! ListGalleries(wdOut揘umber y)/stTemPplat7Levels(4)c圕Form"%4.\.Trai/gCharacte秴 Tabs4wdA*A rabic Posi腶Centime@sToPoints(2.96+Alignm 耡B5LefBtText\3.7 3+ ResetOnHigh侳3Start4At)1G俻.F on*A.Bold4仗Italic绌SubscripA'楅Super hadowZzEmbos嘐ngrav!f臃 ..愢6.慀? .?懰%憟y繍繋繋彤5 m畮5)繋萳(將K瑤LowercaseLet}繌亂a.峥(4.4j边-4廵弉.G螸2.G瘎 PGpG]G煁G螎GoG?GG G~G7".AGoG煇D.G G]G_徔_忈恄廧廧匎G6_弢in_彶恅:h6Gst8鯣Roman縹颎趶>G讖R@ 飶蠒r菚5.18o镸H順9 H5H H-<H.t徍萈H蔃w愡HHb愷$.HH螮H?HHHHH7"H惎豛HH HR恛護H H鳉Bh7HH呢H黣ro4o讙鈴G奊}>廏G谴elAlignL@eft .TextPosition = CentimetersToPoints(5.92)) 萢bb3 bResetOnHig(here6MSt燼rtAt1With .Fon.Bold*wdUndef0ined4 Italic"StrikeThroughubscr宨p丯9Sup桝hadow8OutljEmbossngraveAllCa俻Hidde亝 ?羇r,Colo~Qiz+nimaDDoubl"egxNam""a噾End 翢G.LinkedStyl 偓ListGalleri es(wd膕Nu恗bery)stTempla t@ 7Leve0ls(8赏 Fo唕@>s"%8)* .Trai^gC鄅arac漓|E8Tab0Ewd!hLowerc繿seLet ~ ~"峬`"a 6.66" 埸 7) 7恛媎.逽 S1 .愨 .S ..E愐. ..悁.怱 .惢f飦2.惲 b柧 Am怮HH9y3BH9.HnHbI9HerH4HRo鴐anG/)婟>G=鱃RP7.|41iH= H8H燫惂%HNHQ4飻怬H蠙a,H HHnHoH?HH H~HA盁H?產"5H 怰L縂卢3D蠌a兡PSelecq灷.Range聮H.Apply筀釴釁L:= _煒,)C7inuePrevious!:=False, To:=儯斾WholeqDefaultBeharq繵ord10Y  InProce蚓cExi t 纴 errorhandl$e:= MsgBox "保护区域不能设置样p式!衇A '=QFun:1袷轿 "直嗪帕邢睿ǘ钾叮P惌 亹ReturnHDes愳erCre$d: by zle,090706Upd迓 1cO '  InsertLx5B(碽On E `GoTo 8/=` True0Clear/tin.g-uAPvepDocua Π蕇(麓睿ǘ级") InProcess = FalseXExit Sub榚rrorhandle:hMsgBox "保护区虿荒苌柚醚剑" EndT '=IOFunc tion:u格式为嵿号攘邢齻}0ParafBReturnDes ignerCreated: by zle,090706Upd  1Hk Inse纑tLx6(On E GoTo 埾蟃ruC閮 Sele翲.ClearFormattingA Style咥 veDocument.s("n蓖V(T 嚂1  栃柷LSy1銵荅<索引 ~1袀0G42缑I,2w, iB,2,*x)3?b,繨"3? 0,e)4?? a"4??à)5??.5??4繒煃粖峛,6??47,,n,7??48?? 8 廧 7邁~y,9 ?l緽/h鬺e礏9   夡魤 GT   ?s5s正文图兵晏釫 ?d_\銟!賯Tab 髲 表 Q⑾o !艩癄?2处理打。蛞跤叭サ簦阅承┪刺畹牟糠植幌允荆ㄈ缤瓿扇掌诘龋┎?竣莲竣竣竣te靠⑦ P蛹 Print '绻挥胁迦敕饷嬖y牴用#X闅 f <7癣Fields.Count < 10 Th]W譬亙L农c6r #'7羍之后在上保护煈殤銟s(1d).$榚d,@m^s +1翨2蠦S$ 岯`BQ;p Password:=), No衑t:=!, := _ a wdAll纎wOnly阕C3LComma ndBar犥要素及排版isibleA,繡lsEva顲mdPROTECTC.FaceIbd`,277RC@aption`"p取消酇勁nq cesAS鋟b'= Fun瞤:a+编辑砑佑蛞跤埃允舅斜部分(如!誤等)RPara:ReturnDesignerCreated: by zle,090706BUpd 1c S p E dit()'绻挥胁迦敕饷嬖`虿挥!On Error 黢恅PG-I6P&\3儣)#6 < 10&_bRa-!!`i羅I纍tegerS 2^'将空变为相关提勈綾With`?53 c?@ 釽.Item裛焷P獳-oV! 狪nput.Defa喁ba 鱏P 焧08烜煖_乪n諡 长1籨e盉"'慇矩形框的鹫诒 <暇戮Se蠯ehind緹繄so !5堠 3 煁?2虩嫙嫙媭"煁t.4`煁篮 煁Q3煁)y)@邿婣煁 ("暉忇忇棆 _嬍2蠇茓 &瘒瘒B 縪囌靜囈 ts郲巅(!<t瘑论瘑囹珕o哷颍?1 飬飬F赖 ClsEvent.CmdPROTECTC.FaceId = 277 –aptionV"取消保护"dEnd If InPr ocessZFa lse $SubFuncJFieldNull(SourceStr AsB ing)JDim iInteger, ResultBoo0lean(= Truo菷or;= 1 To 8Len3.IfA%c(Mid, 1)) <> 63 The2?6刵 Exxit =K怤鴈xt 唦拑'儝'=I :加入“国标”图片BPara:丅ReturnDesignerCCreated: by zle,090706 XUpd C 1 2F Sub GBTag(剅肨A媑path亣脩= Ge tSett罈("TCS", "G@raphicP;@"E & "\GB.bmp#厩picAInlineShap D熇 = SeleB. s.A ddPic@Ye(FileName:=, LinHkTo:=聵, SaveWit@hDocum:=A篋*.Wid>= MillimetersToPoints(40Height;繬12!St(yleAve%.s("标雷急曛惧& MoveR Unit:=wdCh@Lc, Cou:n`1!]醖Ty魀eAQga3燣eft 2T鄏 :="谢嗣窆埠凸"汲泣谓""垿?k'3鈙,佇!丒9域骲==乢;3銇H鍋;a乫l6das牨m颅%?t 9!= 靁俿(R8ang@r'>, PAYB a酕Inp|ut刲羣! A[.EntryMacro纇"Show繦elp15bOwnStatu熈妲谺亙c1 铩煨.Edit1 wdRegular 'l鮀2)蠐1連le連鑁B連5 緽W熖連逫peA轇羅/&袟/&/&抏%& _wd&W&1."2" ,(s (h!(%@袐廸*&r= "鱜+_(.-rA/*i 秎0.+! G**'#w&,> $癵rA行湟_on觨7o.醔.其他q?``逮.'廽坬 皫繝廝`“地`=`Q"↑te `鍰`縚ldC"G 飡Q6嶅嶀qEB""蹹B0/?s./?/?&?>_e嗂_eSe69?8咮3 <8/;u9p9Re9v=?e 6False vWith .\Inp ut =.Wid"= 0EditType wdRegularI (End eSelection.MoveRight , 572 :="地方标准StylezA,veDocu ment. s( "其他称p谓")4CUnit:=wdCharacter@, Coun 1 MPgrap俬(Left (A丗Sub A'&=?G Fun耏:加入捌蟊辍眮A辣曛居蚵0:BReturnDesignerCCreated: by zle,090706 Upd C 1 3F 繧 QBTag(乷Dim fld As FormF餴eld蚡罛弰Q"Q/泃= 橣 s.Add(Range:=髧, A aKaaZ鈖R亗. EntryF匰h鋙w17Dbw~.Nam乥"c5/ s諆. 駠 pip@N<*浛p遺e;; _G7紈d<6o= '6.6(6CkAs`Ahe餷p13咚咚咚咚 蹱咚咚咚咚逑嚒G潘企业幔D*夁薖n(飁龔- 2飁齤6鋏蟚?蟉耝芿处理正文以前的页面 ,将页敫袷缴栉蘼碜痔鍌g眏ggg黷eg gProcessFontPage瞘 p,醙i羐Intehgerc?i饑d侷&fObdjs. > 10 Then'如果已经插入封,面c No豻 (lg t""“wdNoG)Q1Unpro1 "zhPkc鎔鐳$If(QPKey'4,+顠1朥p牐諾, D*0' a7HomeFgI@nsertB爥k恙uSBN0N1 w3SWindow.Pane.View.S8eekCu蘲r牓FoHeader.aNumber蘳.swd2Uppercas`eRomaT! e茂 Mainク`(鴬(0w碅s(1).$&e^dp科P 02 To}0$T0# 4惘耀s(iOA,j D Password:=)/, NoResep綫拥汏|1 wdAllowOnly;~s+ pCoBmdBar 纫丶芭虐堟")%sib藘?5ClsEv∷CmdPROTECTC.Face腎dp2771Cap嵴"葊∠;=聐U=q痓鑀=="[盡表羹馬``熐熐Q熐?s`肍Ta05`On Err爋r GoP.e0Tdl4鱂rm.A 6 Dim Tble As Ta@ '皕le,2008-7-29,+begin,如果点击了插入表格的窗体后,又取消,则啦唤B2ν顺霰竞 If g_rowNum = 0 OrcolumnaThen,0Exit SubEndBnd %Selection.HomeKey Unit:=wdLin>e #)U$St"y= A,veDocument. s("正谋肀晏") 媊!4?乵 TypePara graphEl$se夽Chcters.Coun餿 <>爜5%'判断这恍惺欠裼嘈文字8"+ClearFormatting弰+Df ISet儧Q焥.Add(Range:= , 嘡ows:=E弬C嶣茞)#With%@S胟AN"网竝裥" k  =~ 3聼 Apply丠ea巇@CA)@禩ru歛 LastF餴rst6]T ,A侫.Bord缻(剋dCLeft$BAc`eS峘lHfWid , = c100p蝨gB orB "怉uto郌ica*'Righ悼eh&d橇aTop?-k俵?- =-B|ot4 DHorizopntal__L0V5[[ / rV爀rticn遊;峳rO9?? DiagonalDo0wn).顲"Now!2~5Up.Shado瞱.N5鐆Of0^簟 Move荝Y謮, 1Mq疩"`a". g脗$"段"S'柂8-11,+2,将设计萤慅和列世梦0#哀讧CGrrorhandle:MsgBox "保护区域不能设置样式! =GFun:酫豆絉保 '==ReturnDesignerCreat@ed: by(,@090706U,pd 1?c !p Ins蠳Eq魎a!(碯罊 Field醍> 10鞖Pw"InfB﹢繍幱PagBe啵ber)@$1 %封面辉市碓黾恿2;D肴A麵ft#H 娼摮b.1業nd@腜 C`ime两ToPoints(0/h$67嵬Ra5F4//wILnl性pXpe不O LEObj Class!=:="u.3", Fi爈eNam"奯 @ kTo:=襖, DisplayAsIconTB?09-06议綟mAl 0s≮Pwd&e竢 !;!'+?25^;编艗6;;; ;e; 懚=+ Sub InsertEquationNu@m() On Error @GoTo eh andle<'zle,2008-11-6,+begin,判断当前所处@的位置-With ActiveDocument.Bookm0arks"s.Add Range@:=Sele0on., Nam"FLBH"2DefaultSorting = wdByLoc俰ShowH iddenTrBu別End 丳  俈?Finda "tyle gS s("附录`标识"劊俴F@orwardFals; Wrap wd2Sto苝4matUMatchCas丅'WholeWoBytWildc*sSoundsLikAll/QExecuA <10華G 嗒P3獬疤`灞;2@ Not ( ?Pro"t&Typ醩wdNo1O,Unp慶 "z嘟gcdg璀 i1HomeKey Uni眀XLinO ▂!v:=vbT|ab ] _.? nm"()"!69-30E嵩加公式编号MoveLeftf$Character, 釨:=1cCap狎繪abels裸泥标准自动逜 3"C} @V*, Title怉uto""$_2Pos耰A:=wd4%Below, E纗clude 苗Righc4 'W0-3,+3,将所选应用于“正文E制表符∴备袷矫  ?*k?*#et E%h\5b餩 _e倣]*P"g恟aphpe "式中: n! 3Dim i As袪teg鬳rSi爎烲烲汱M揑s(1).4Iedpq傐1 = 2 `)腡S uu/9"(iO蠆Next< PaxsswP4窼p{o餜ese繮P6燳:= 6bwdp摾owOnlycb< CommBar%要素@及排版恔Vpisib@峇ClsEv逊CmdPROTECTC@.FaceI俩2<77 uE= "取消乮&}+ 檯Y鐒X:MsgBox "区域不能设置样鹗剑鈭@A??Fu鷑r:Q焌E7 '==ReturnDesignerCreated: by K090706XUpd 1cO 懱暂j輕嘪12-1,+1,苟苑饷娴牟僮腎n/ces <乥E_First蜤岢Seco簼G-鉾1飺'1 /斂//斷 /擥/ ] /攅n/3u1jO?5z祤Line Selection.TypeText  :=vbTab 孍ndKey Unit:=wdD'zle,2008-10-9,+1,因为有分节符,所以光标需要向前移动一个 '' 狹oveLeft wdCharacter, 11褜z"()" #6{9Coun=Fields.Add Ran0ge:=, <Empty, _=乿PreserveFormatting:`=Fals勠嚘8-28,增糮幼帜 _峱STYLEREF 附录标 \l \n \t \* MERGEFORMATNBD5Updat嚵!AJRigh&f ". 3,+begin,判鲜欠褚丫泄紺J 7E 通过尤胧榍├椿竦玫鼻暗奈恢妹 @With A籿eDocument.Bookma8rks乛歮Nabm@s"DWD. DefaultSo2rj =αBy0LocaAShowHidden崩 Trut劳 'C Dim iNumF As In爐egerKSN忝虵end爜iUp`醱鎓Do @While S則y<> "AE/编号制兵矸 !} a4If. = aQ" pThen' !M4,回到刚鍍=的地方,而后删? @>.Ex爄sts(:)pGoTo w渉a, 馚蟻a.D`扳i珏罙Ifq檫媤dBE螊A \審AaM塻eq倛!C \r 1圔+&嚒duHom^e撏 廠爖e(nce[,`\ExF`#\銸\ /@3a$P`襣raphb"式鹬校忽& k _"N$+Firs鴗",廽俲k*哌N怬逳B._O鈬.譕U? 僛a谘H1下面褂新,如惞欣呍蛄@,进行继续 #Dow辬":Q縌.縌穸Qxh:ru-閾&0 Sto2r衼wd,i_/Be.秺s.矈Q4b6ay 鳑 H_3i_Sec鴒nd//'/> //蟣"粥战嵯忒l3ivis9OiW 蟟苅_ j|("痡p -k gxEuK饖/OSQ俫僽le]務骭 oa参考文晓護gooooooooooooR0e、索引兵晏Se*lection.GoTo wha t:=wd`Bookmark, Name:="First" A恦eDoc@ument.~s(r).Delete侲nd I&f沢xEl纒eIf SWStyle = "终结线" ThenT7崩.Exist\"?亝?T'搅宋牡档嗄结尾OKO腯0((i_B匑\i_Secoq+ 1) A<= @5) Or P )儌V'说明#〢#O oo貳 坷灷'Pc[ G6Mo鎤n wdLine, B1KLoop+'zle,09-24,+begin,WithK#.Add Ra  咖鸾Η:#|!f h.#.4D 穙#橡息xh 懻)fend '向蟺虏檎艺摇有附录公式荄 Key鋟羫Left z TypeBa纁kspac琡GFields?<褍<,Em纏ty, _ Preserve咶4Q=:=Fa皘讖c}qT1 A爤衧eq  ,1 餟pda]囷c鎶/剒+煋煋q+梘 }' (2008-10-9,+(" 9胉DW"M>7 Q 10 泂(1).怭rot扮edp}s煔 = 2 #S 19/CiOA焗欦< Pa@ssword0jzJh喈c癱g"袥oNR o@9, .:=畄wdAllo鄔Only< CommandBar0c要丶芭虐").Visib狆A淐lsEv鶦mdPRO TECTC.FaceId = 2 77 ClsEvent.C mdPRO窩a ption"∠;"lEnd If *'zle,2008-12-1,+1,禁止对封面的操作3InP@rocessiFalseJxit Sub errorhandl e: 10 ThenC %If `Not (@e@onTypedNo)L傾LUnproH "z蜡gcg孕I蜽ith f`rmUpDn*.@Show 0Label3.Wid@ = Int(\28繹#.4.gyCStr(10) + "%h鬌o"s Sel!.GoTo what:=wdBookmark, Nam@e:="Stuas>Res蟀11"A^ ^_8Ef涐9! Val(縀).撩 ) <> -y] hh Do_0'盡Up纇Li黱e頜9`Z伒溨票矸鸰麧E询 A(9 Loop 鳺hi@F 07'/o $1o )暆/蟕拑N)p\le瀟敒_$)./ 5)u//?h___*_ w 磧?uon.4u亐A湤Empt桺reserv鎒aRSm:=蟎wAKA罓seq 僚" \r 1 07o$f福椿秈 / 鶝* 痤〉5 霪N筆(72煥6 嫽f { Else  ActiveDocument.Bookmarks("DW"). Delet豻empRange.Fields(i@).UpdaVf rmUpD4.Label3.Width = Int(i / fBCount * 200) + 57 I4.CaptionKCStTr(P7O2"%"+DoEv~s End IfC Next WieLv257)b9T P丆:$If 屷For m兪.儵> 10` Then Se乷ns(1) .Proted嬂s@WTru @ i@2 To !E 墴!罀!|FaR皣b Password:="zh拉c@Cg", NoRe set:=A8, Type:= _+wdAllow餙nlyADW@dCommandBar乙谸及排版訴纈sible宑A.Cls偂.CmdPROTECTC.FaceId罼7堂 敲"取相;と X!廋焂'w285焂1儁蕁筜Unload 靑'zle,鄠812-1,+1,防止苑饷娼 写韈Inq>cesaV腅Sub'=?% Fun"g:更新文祤抵械挠騜 Para:"ReturncDes ignerCre: by 亖090706暶ヾ  1缈?$ # [pTCS(;*BS鄅ow 0aI褲84D3繚d C S犚..Go慇弚ha xwd谸{am`y"StqardNda1CKey  wdStory,繣xtendaH鏵#败168_!6_!Y!︷=! 辤= =a=0 d9.*?9打烙≡だ繰/9sAA/9te/9蠧/9t~e/9O #9PrintPrevxiew49nW X螻?;设置格式为 “章晏狻保煞直鹋卸 正文 还是 附漫/Q2/Q/QQ/Q Ins ertChP\ct er1QOn E爎ror e卍l魬S/k癨k,+33`丟et1p慛um}橢x黫t1Q脓GK Clearq坅t0ting07r0,将选ǖ那蚋掣偈盇`p3Dim str As St&a捑7ibケ4@積ger囪_Leng啦>`IndexCcSet ( =  "蠣t= (Y1SS9剋HomeFcb憠-10-begin,ü尤胧榍├椿竦玫鼻暗奈置CrY<蹲#Aa .Add :=,npDefaultSor!p&PlByLoca币1|Hidd~e鸳'\F餴nd.' 閴ty =>耡擦酇标识"9r.>w`{ 劀1.W竢ap zpc1 2Matc鄅Case繵holeW.By癪= chWildc XS犿dsL鬷k 鹋 _ .Execu涴T犵`绦詀|)4岹a,锏@ute If Selection.Style = "附急晔" A刵dText|性B)" T`hen 'zle,2008-10-7,+4,回答刚迦胧榍┑牡胤,而篮笊境<孉塿eDocument.Bookmarks.Exists("餌W")uoGoTo wha`t:=wd C, Name:=Bs :6.D悈楀E塈f!倊 09080}begin,判断单行还是@多行,亇觻τ醚@Do Whi縤` <> 0 8i篒nStr(i + 1, str, Chr$(13), vb佁Compare))悮Cou@ntParai  Index K ELoo^pGG#<1L`ength'"= &譩=G3<= ~1暇虃偰澚徽@卤晏"萕Els难Gtem騪Ra@勇誈>MoveLef`t , 1KF豲r @/oHA 婑- ADown wd罖gra魀hN@.1jbend xi鄑 Sub#*???"))?妧掲?奺? '?娺?妬 `??0j ?wd?妳?妜 ?奮?妰?姢4娍夵 繅$骺墸(繅繃J諨烡烡烡 烡蓆/V90朌C8InProcess9PjFa&Z凞Ferrorhandl e:/(MsgBox "保护区域不能设症{!" rK '=Fun倷:1格式 “一级条”,縛煞直餛咥 犝 眴 kR1]` ReturnDesignerCreated: by #0706Up杁 1c A InsertFirTitle(膙蠴n EA 瞂YV"12,+3皜GetSec鳱um@!岾!-%A0Clear@4m繿tting礋10,将选ǖ膓#赋给0临时-Dim! As St緍a饎g攩VInteg鬳r'i!^怴礀;?bI挐cSe豀07 樽= `(覎荂S;TrutHomeKey鑱3r通过#抢椿竦当前的位渲胹Wi@z悠# .Add :=,DefaultSor" wdByLo caa秩Show繦iddenp?( 朞Fi鴑d.)b/jQ"_D痓鄶 /pward 圧W搥wdSt.33W2Mat郼hCasa琮WholeWo .BytchWildc 宍S犗dsL宨kAllK _ P閑c棒 撔宥駍,E@JVwa\靚." 1]#孁 签的地方,而后删榍 If ActiveDocument.Bookmarks.Exists("DW") ThenlzSeleton.GoTo wha`t:=wd, Name:=B' <tm.D[te2End If  'zle,090807,+begin,判系バ谢故嵌嘈校应用样式Do While i <> 0 乯i = InStr(i + 1, str, Chr$(13), vbTextCompare))悥-Cou@ntPara2i3 $;Ind|ex唩LxoopG"<伭1Length'y"= &  <= 1噵Sty_= 瀭浉铰家患短醣晏"萖ElsC葎>tempRxan.%i∕oveLef`t , 1KF靜r匓0oHB 3" . #Down wd亙gra魀hN&N峗>1势end xi鄑 Sub#++2008-10-纊4,回答膏詹迦肓??娺??姦2?奺1夾a'#'??婦 ??孇0k 萶x!?嬻?媥 ?媈?媰?;嬁奀$繆呖 娿 枽妶gT?0EAuo6;:1E 袰12-1,+1,防止对封面进行处理 InProce鋝s nFa禲`嚁Ierrorhan餯le:#B bMsgBox "保护区域不能设傊偅" 酭Q '=GFun:1格式为 “二舗”煞直鸨寔A 正文 > 醗Rc ReturnDes ignerCreated: bDy 敀706U,pd 1c 翚罃sertSec@Title(鋦O鑞 E 玻sY2憺12,+3爫GeANum#mQ'$-)g6Clear9mat餿ingSv10,将选ǖ膓#赋给0临时'33Dim酻 As St緍a媑磳鳾Integ鬳r'i!^罎;?bI颍cSe魌 ( =― х= (乶D柍8TrutuU腍omeK 0 乸i = InStr(i + 1, str, Chr$(13), vbTextCom鄍are))悮-CountP鑑ra2i3 $;Index脣 奓oop G"<乧Leng蘴hN"= &譩昧=G3<= 1噸鑃ty_= 爞附录二级条标题"萖Els葐Item聀Ran.G? i狹oveLeft , 1cKFor匓0o颒B 3" . #Down wd亙爂raphN&N殢峗>势endxit Sub#++2008-10-纊4,回答刚插入书签的地方,删除緼 A???"g2?媏? '??嬶 `??0k x煛d?媴?媥 ?^?媰?;嬁繆嗫 繆 枽? ^A ??奺l傧T :1E 袰12-1,+1,防止对饷娼写韮 InPr ocess nFa禲鄧擨errorhandle:#聤bMsgBox "保で虿荒愜设偅E RQ'=?Fu n矒:Q格式为 “三錸”,可分 别褜A 正昔 1 fR1c侌 ReturnDesignerCreated : by 磼70b6Upd 1c  罃sertThiTitl別(鋦On E> 2s112,+33鄀Get繱ecNump# Q#1i)3Clear9matti 0鋓 = InStr(i + 1, str, Chr$(13), vbTextCompare)9If)悮-CountPara2>i3 $;In8dex 奓o紀pG"<乧繪engthN圗<= &譩=G3<= 1噸Sty_= 虃偢铰既短醣晏"萖ElsC葐ItempR鴄n.G?仾MoveLeft0 , 1KFo鰎纏B0oHB 3" . #Down wd亙grap鷋N&N峗>势endxitp SubCKV2008-10-纊4,回答刚插入书签的地方,鹕境鼳 A晐????嬦7穀'?嬤?嬃 `??0k ?xd?媴?媥 ?媈瀢1?婡Eq4繆繆嗫 繆 O"噇?娤`?蟃 :1E 袰12-1,+1,防止对封面进@行处理 InProcess9 nFa禲鄧擨errorhandl黣:#聤bMsgBox "保护区域不能设傕!" RQ0-9-20PB '=(Fun鈹:格式为 “p”,可0分别嶢 招 a 1gRad@ ReturnDesignerCreated: by 鋼706Upd迓 1c g 饡sert@1Titl別(~On E> bジ a12,+33@BGet繱ecNum$=R$Q3*77Clear` matti 0鋓 = InStr(i + 1, str, Chr$(13), vbTextCompar鋏)If)悮-CountPar鷄2i3 $;郔ndex 婐LoopG"<乧LengthN圗= L譩=G30<= 1噸Stry_= 虃偢铰妓募短@醣晏"萖E ls葐ItempRan.G?仾MoveLe纅t , 1K谾or纏B0oHB ;3" . #Do wn wd亙gr鑑phN&N峗c>势endx纈t SubCKV2008-10-纊4,回答刚插入书签的地方,删除A 脌A晐.Exi????嫹Y'??嬃E`??0k xd?媴?媥 ?媈瀢1?婡Eq4嬁繆_嗫 繆 O"噇?奰?w懇:1E 袰12-1,+1,乐苟苑饷娼写韮 InProc萫ss nFa禲@B擨errorha鄋dle:#聤bMsgBox "保护虿荒苌柚偅" 脕 RQ '=Fun挀:1格式为 “五舗”,可分别睂A 正文 } 醗Rc R eturnDe@signerCreated: 坆y 敀706XUpd ~1c  p爺sertFifTitle(∧|On E hS12,+33餈GetSe餭NumP#鞵#2I)5Clear`9mattingS2&暐10,絸《ǖ鸟"赋给临时#B3Dim A鄐 Stra{5g4屃x[I@nteger'i!^餥敎?bIrcSet ( =(D = (Tn罆s1 8Tru4Ho鄊eKeyf=噥Sw通过加#来获得当前的位置箂Wi喱邌2萻#A .Add " :=< 熓Defa纔ltSor!wdByLoca毕ShowH鄆ddenp' 6TFin黡.)b锎嚒詹p浯标识壌./ward 圵MW牗`wdS~t櫯Q2W2MatchCaseWholeDWo .B ytchWi竘dc \bS@誤dsLikA\ll>_ P〆 0 = InStr(i + 1, str, Chr$(13), vbTextCompare) If) Then -Count蠵ara2i3;Index脣 奓oop G"<乧Leng蘴hN圗= L椗C=G3<= 1SGv峉ty_= 虃偢铰五级条标執"萖Els葐!ATtempRa|n.G?仾MoveLeft , 1KFor{纏B0oHB 3" . #Down wd亙graph}N&N峗>势e ndxit 8SubCKV20@08-10-4,回答刚迦胧榍┑@牡胤,蓌境鼳 A晐.郋xistd}ZD??婥懁 6&??婏罝`??0% w煛d?妳?妜 ?^?妰?;娍繅緀#樋 繅 gT?塦?懆jb"塩)72袯12-1,+1,防止对封面进行处理CInPro恈ess mFa禱@A擧errorh繿ndle:#騾bMsgBox "保护区域不能壬柚仯“墎 酭P '=GFun#:1格式为 “图乵”煞直餼媮 正文 褘> 補 ReturnDes ignerCreated: bDy T706U,pd 1?c  0`搒ertFigTitle(剓蠴n Eq 2](Tru剙3HomeKey\l鉢通过3l来获得当前的位渲胹Wi饝飇Bs#!8.Add }2g0DefaultSo rting0wd伇ByLoca链ShowHid鴇enp* 1f~Find@.ClearpHm黙tb %H|b鄑)标 稒.ward7 =W皪`wdSt┆Qp W2MatchCaseWholeWo .1Bytch郬ildc lH係P篸sLikqAlla_ 馺巈cu眪袖性a)湫,麰x鄶ⅵy2 A0"x#_漘滲T__澐$ _188q庀WE-le-Z锊锊锊 镄韢袕爱)燞鐝忴rk锊岠Selection.Style = ApveDo@cument皊("正文图标题")  End If'zle,200812-1,+1,防止对封面进行处理PInP@rocess褾alseExit Sub errorhandle:=[MsgBox "保で虿荒苌柚醚澜!" d=0 '=I'Fu n:9格式为 “表”,可分@别判断 伋 还是 铰紓 Para厐MReturnDesignerCreate@d: by 伵0 90706Up杁  1 葀 繮 InsertTblTitle(剨On E羥 GoTo 銏xxxTruG瞼HomeKey-10-7,+begin,通尤胧榍├椿竦玫鼻暗奈恢B妹 With吐Bookmarks.Add R繿nge:=G  , Nam"DW  DefaultSorti$ng羨dBy0LocaAShowHidden <'C 魄D8e nd#Find.ClearFo餽matA9 b|!T标识%俠 wardC鑬"Wrapw耫Stop( bMatch8Cas!擁 bWh`oleWoB yt Wildc`寫Soun dsLikAllExecu!Text:="性&)dB弅9L6$If %3"f0 A啾 兝) Then# -F4,回答詹#b的地方,而后渗境齺d!#L膃芺.栏st ^) a鈥wha"wde揻(醟).D賢偪*ビg焃迹蒢詡 住))(铒)`)k)d~F巷僼i價兛 g兛?墏?塨#/邇邇搵騯uC謨显示q冴记索引项馈贝疤錌亴傗K侽 g #侫mfrmMtInde杧E9.A 0繖o=訞谌勘謄跋妊 粢丫璹的繕繕Q繕  QBeo餱ore恓S-Dim MoveBK As Str爤f鄠Fla>gAp儎c$= "St 籂s!帞l颒遌$憇gAf浻^Wow.Vie瀢!硱}g_駏:C纙t oP#!KDo象0k6 = r勶i 繍剶!5o斮.^d xe " + Chr(34)g_2/"鱲 .繏2Iq.@嚁査岴罏 湏QXX?纞矋!/w卞虬>.P'嵞次、标准忻芉"僟?)j潄"+ 1 Loop W躧i I(A3漮+ o, I:=, A:=靼砸/裀/ _RA兌= '==Function:标记索引项\Para:ReturnDesignerCreated: by zle,090706hXUpd4  16) Sub MarkIndexItems() Dim strTitle1 As String2  If AveDocument.FormFields.Count > 10 Then+; Not ( Prote&onType = wdN:o )"$ Unp! "zhan$gc;g" d $end ~Window.Pane.View.Sho鈝dTru;M是否已经a了,蛳壬境笤谥x匦耡GG=J9,1繶Ext $In m(g肅Text, "XE") <> g"GD`K鈚ElskA鳯ef孠M.+釴es.乚Entr$y := , a:=g_CU_苗 Auto!CrossRef纄rence匟,, k h "", Bookm罎Nam #ld:=Fa#, ItalicRea騞:=鍉&M"釞Z 銼 '帷H所有8f`12-1,+1,防止对封面进行处L理AInxess _腯2,在全部之前,先乕g `KBeofxoreA>妽嗲f@p`腁鈍rap緃/燛!侳i#蠭ntegerLA&gg_ZhuFirst0@ Each eInFsg!= +)Y俧.Styl裫"A题"螻 O 8N3萕itP rm14.lblWid&.0p= 0(27鄛DAJD.XCapa寪C丟15) + "%萹狁DoEvP|X 鏰T僙Wa儞#匜L 鯁`empDui`摗凱 1%?F` OPAr餔軑= 277= 151I = iC礘)&i%To/)ra徱3創 Set'崄4=(i)儐羡s$:.Fp.Clear 餸att*![gP ╙o.W@@w耫aStop?1ward`kJQ&Qs< .Exe鴆utQ771>椔@ `m~=Or "一级p条标?0"鑚eq三A<(G奶表图G2附耟束" OF/%_泛UOO 无?a 鮞 / / * O黲n涃D1O蠕j骺%R1挚T,"餵発a_Q矚 eWindow.ActivePane.View.ShowAll = True  訢ocument.Indexes.MarkEntry Range:=S坋le纎n. , ::=g_dText, _cv2Auto- :CrossRef erencog_strTitle, @o"",@ BookmfN am*ld:=Fals-ItalicReading:=""eg_ZhuFir宻t+ 1If Mod 20 Then儞仏inCreWid + 2 Cap (AWith frm~Bt .lbl &. = Int(I))JD.!@%tion*CS tr) + "%TaA DoE v@璼End 6SAIfE绬n羌Style)"索引 1"榦Exit ForSO1InformaF(wd/InTable>)Y s GetcwBased餺nUnbn7鍀佱[g_SYGSw1*" A5)"y,a4 ! In酛 Arry, ","`Kg 郘,")漴a<> empD3e;兂饣拷拷目綀烤┚酕?緔a? ?繘 ê=I己琁 荈=BH8籌 [熓 缈Ze= Of/p[p4罭OhOiOiOj OjOkOOlOm?;K 坤d 墄N啶'Ro!ot(72埾慳40/P /A ai碊im@3 As恊geOX1 t@cC= 78CQ= 40 tbSum 汔flT 俰圕ount?硃= `T %颙yAkcelCel~l!B裳'判断文档中的表格1.加了穢饷鍳怳 1焸 '(1) 是国家标准(中有两2鲅)域个数是12个,企业的都7个/ . < 15兿嚵 '1..宣@2->  ?; E kA燾3 To l?槁O@(k)."(1, 1).蠹?5'z墟2008-11-29,+begin,显示进度条增加79_tpA?:縭OPDP  .lblWid.th = Int(tempq<) *rJD.Captio耼tCStrv$) + "%"DoEvents%End WithG'zle,2008-11-2@9,+end.'获得表标题GetIndexTitle華llIf{ g_str, "表")0 0ThensgBox "没 有给M增加 働烢xi`t Sub0烮f'说明贑中!出指么剩蛐枰檎业ピ裰嘈是否)@CFD臗Arry繢,."@凣I亣,fIFor Each celTable@] ActiveDPocum.s(k).Rang纄.CellX柮班 SetA 纋 (Start:=B, 繶銕羃- 1衼 咾.Text, g_C) <> 釖4Selxect譲萮2-4,+7在>定位文字劦膩C位置_ A `.Find@.Clear 9m繿ttinga齺 ab):)@wardaTrueWHrapwdS鴗opa丗|滶 +Execut"僜W2ow.Pane.View.Show`?B cFqBWes.MarkEnt萺y B[:=乬:=4, _囘% AutofLCrossReferenceСkc"",@ BookmN am #ld:=False, I talicRe腶d^:="  ZhuFir$st0g_+ 1#"绵WO!9)od[N怞?5 '(2) 判鲜瞧渌曜迹ǚ饷嬷杏腥霰砀瘢﹌E  '1..硒牡祽Q怸l-f.Count 0- 3 oYW 秈=遤Pls'  k0 4 |To/ lFeBr醧(1,@j.S9?5朾egin,显示进鸲忍!嬶预鉦 + 2?o/pbfr辪盕rG 锂锂锂q! 0 锂O 锂MA//`Z锂锂锂O謯嚋锂锂锂唢疂?C锂酗词?%锂+p\U锂 a?锂锂<锂锂9储锂篁达甽e敯q锂 锂譆d锂锂h4锂锂菎锂锂襆'锂嚎  .Forward = True :.WrapjwdFin dStop#vEn@d With#-Selection.e.Execu妕$8veWow.Pane.View.Sh鄌wAll.{%Document.Indexes.MarkEntry RangeL:=^, :=g_Text8, _#!Au to %CrossReferenc?g_strT纈tle, "", Boo膋m;Nam@Cld:=Fals亐ItalicReading:="":g_Zh纔First@i + 1 Ex8it @竉 仴If NlWYSQ '2.没有紶臃饷E@Z"If 胎Tablount > 0 Then蹕i=yO+ k41 To h !'获得表标题r(k).Cell(1, 1).鉱 z _2008-11-29,+begin,允窘忍 踉黾幼te0mpWi!%+ 2CB⒘!U!胵a frm聛C7 .lbl. `th-Int(拍)?JD.屺a@CStrb@) + "%sDotEv漵 浐'm1end Get烠椑7繼In翂"表") U^1MsgBox b"给S 倾S#聥Sub蛓)a'说明冢 中出指么剩蛐枰檎业ピ裰惺欠裼小?"(吙Arry,p ","W,_ Q>Each cel駼 In緽馞1:鈔:?#S|etQ20?b(Start:=.R.RQu癵q-0Bo$csy馠z) <颯~ Jo22-4,+7在e定蝷晃淖值牧!0位置 冦謸Clearpmatty?? 卟殞.@ 鳢㎡o 鄼C.慨o\3耂////伆3毽qc////sǒ?b9?焿J釤坱(8126\圦_70嚑 1 吥幚DO "ⅲ" And S×@隧伩鹚得鲿缗j t 侔;Loopw!` 1|NadD鑟wn縟 H#篸覷Yfc.D鄵t谺03E纉3+胢Home遳 b_uAuStar黷"7A @(ub~.焧酫t52t temp摖u珼e(B:=9H#)r., ").)w6鐓!}?)綶y齝*Fp.ClearF鄌rmatQ[ +q.Te鋢tg_s冃 Replace浡q",) . 饂ardp遙 .WrapwdSt颬p鈞 .Matc萮Ca`{= WholeWo OOBByte@ 4ildzc0s CSoundsLik Sp× $?>+遻ZJw*Ex鴈cu遤N'+k繰ight /漧Ec6W2ow.Pane.Viewo釵 瓩0esrkEntr瀥蠗翷盜:=38, _()Au to3CrossReferen鎐P漺,  "", 5ld:=#, I talicRe>:q 狭# 亜 yN簄' 10,+!&/ t(162h惗= CStr(90) + "%" DoEventsDEnd With4If ActiveDocumJ.FormFields.Count > 10 Then'b dSe刼ns(1).Pro2tedGJs = True< i2 To |/Iz3titFa刲s:Next' `Z Password:="zhangczg", NoReset:=乨, Typ e:= _婳 wdAllowOn|ly亅糃ommandBars("要素及排版").Visible# 粊侰ls傛.CmdPROTECTC.FaceI2d罷77  Ca ption "葊∠;媦圛fCICOW indow*ew.ShowHid餯enT繷B_+'隐藏文字不显示嚸Pane+繱' /标记'zle,09-06-19,判断版甭緛 段落A 伭簆plicaA? .VersAA<> "12.0"D[&'-'Vi9ParagraphA讹9(GE薁 囀 \ B:7-09,+1,解鲅≈形侍"饷8Sel僸.MoveRight , 1Lefh# frmMarkIndex!".lblWi$d.`th2In@t(180)+J藾.10?*抌n爍ces+2008-12-2 当a;完成时可以时点击窗体肈 .Ena j乨 c, !,Sub z =?% Funⅱ:全部时,获 标题式 索引A号 酛:"ReturncDesignerCreated: by !僞0706Up杁B  1'??$ & GetTitlet(Dim myR As 鉉!ListsaCimyS鄑ringa#c萐etF = 荺 輈(犗(. 0,`Ad =+(&冎<).K 撩at>.!e佹im(+str_FO@ $!,Inm~ "Z=i8nt_#=eg宔rc Dot嘋= ".$e骦p表癉e肧Y]3,+5SJ僺T婤ookmK#幝JAdd':='"衸am鄘"BJSY"DefaultSort '=饇ByLoc鱪 ;[ SSPgIn(,3) 鄃頃g_5 1Exi鴗 S酜f*,' Whip")"Or —∑Sty@"列项◆(三级)" P_"R瘢ǘ纩V注6Au图表脚注鹚得鞲 憈刄p Line聇O襵A1g3= +Ewe隒LX廘鐝LEQt I#5廙1 s廙圡"N秩X黅r-3 4`9鶊'enD\,5燬面;DownVH2wGo@倘wha傲wd臜/oFS 縆矺(驢).鶧渢( |>雄殴?8蠉?~喥嵃单个蕧_峚C堬_峗峗峗峞_峗 '_峞S`條e;弽弽m7s6 駍焬梱?C".?Ce ù myRan@ge.Set 0, 楨nd p ListP繿ras =&纆raphsV Rj(.Cou0nt).3my@String ZF纎rmat.9 /Trim(?)str_FxindN9If Selection.Style"章标 " Or一惣短鯔二t三_EJ8誤谋8"紮附聙识j=$ _AA _BA jC [CA_CE^;鵄:无NA8WA6A?A5AThLen菚Gg_@腡it塘PExi`t Sub@ Ifc'说 鞑皇莂(的注,而是Pk<> "注×:" >A`rMo斫H抛" Dim 舽In As 閩)Tex~tm!蕟W ith A爢veDocument.Bookmarkd煛a.Add2 鉀:=, Name:="B0JSY" DefaultSort!wdaByLoca習ShowHidden`餞rue8!$HWhi?In#(, ")") 00—— 7= "列 睢簦P)愕e瘢Y鑒'酂N表图櫣注段!n示例$ 鴗t:aa`Zng 薗e-4%MoveUp wdLine, 1}tE襦?留C(>1觎 a厏e.$_A蟺-bz蟻s蟻"?1蟼蟼9烶 禘_ We厭Els8U;臰駤?濫悘t彏小艣S% ?? u X? End With"'如果“注”或X:”在表格中,则是向上移动,直到遇到“表标题”为止MIf Selec.I nform(wdvInTabl@e) The 礧hile InStr(str_Find, "表t")b01垖5M oveUp孡i ne, 1t myRange*嘥Paragraphs(1).C .Set"0,(.瓧:Lis鷗2s;" < @F(F.Coxunt-UC帀Fg.AS myF燭rim() 嚺n9WendDg_ Tit= lGoTo what:=wdBookm(ark褹eDocumentR. s(C)趌 etH藖欵xit0 Sub,U掏糏撬下退图阉E蘬s鬬图` 伮.醏Down?a?a?age?a雞t &W"DbPgp獵@nhw?ahY?aC?a 匵?a& ?aD??a?a?a 1/a∩If3e !f <'=?% Fun⑺:全部昙鞘保@竦 非!l蔃 索引A"K:"ReturncDesignerCreated: by zle,090706UpdB鍌  1? $ 0 Get Index襊BasedonUn"(腜Dimv0As 4#5 f胥Stra0V+7'g;瑂62 痳 |A纘Ap/@(?痮> />/=g '说明不是乛的注钦幠陸Styo<> "罈粒壶" A袡;撱qIn aB餞ext=# o ` 1 眅Rig豩t 杹 縰鈞唖G.Add+:=w弡3般白 .笛Io 飗b)衯0 Or? = "列项◆(三嗉叮"Q_S狇(二S_浒 牟B傔" on.F 段C .甘纠龜 tt:,7緌f!(o緐蠉翍縅虠縆o镜v馡VI蠉縈 s縈窶縉縉Q_烵歄4f/C(CUdo軃;鯁q1??EjC?s?0 ge myString = myRange.ListFor8mat(|訲r(im() Lst纑_Find帬If In(), "注")00 Then O @禨tyle8"章标题0" Or一惣短鯒二t三_GI;竴铰急晔JZ \,<漣5嵴M无"  E;lBOn搕3膳H  g_SYGS@糰6Selection.GoTo what:=wdBookmark, Name:="BJSY"A`veDocument.塃s().D t,徟Exit (SubO E 嘔f憕图表脚注说明"P圀 tt 餡ende '=?% Fun3:插 胨饕Para:"ReturncDesignerCreated: by zle,090706UpdB  1?$ "嗷sertTCSIndex($腤ordBasic.#虵ield @MINDEX \e """ & vbTa\c1T\hAoP!y \z`20t52 U 8Wpith 婽$."es.Add B:=c, H坋ad冷Sep`/爐or:=a' ewdLetter, Typ h wd nt, RightAl@6PageNumbers :=Tr uepOfColumns:=1, SortByv Sylla産>N L ~uQSimplifiedChines: E(1).%Ler癋wd嶂DotsdA0A 0"==0调整0鸶袷綊/18/1/1/1te/1o #1Proce約s/e1':200812-1,+1,防止对封面进@行处理InB`uVDim MoveBK 怉s S鉂 羣= "BK鎈_`?_`T`g@Ke蝭]B. w&`3:c01sS09-06-18,+增加进度 条;frmUpDK36.Sh餺w 0!''3t0609S砈yIn IO掂奈恢 .Label3.Wid怓=@O0t(86匕4.XCap醰C(30) + "%醲uDoEv@t5 !-11-1 4,用瓷境璐的flO釼bVs.Count > 1S O膟,Ext&p Up Uni逡#LE, 2翵aG/E埿p$,q1prZ.Cht&焰 = 4飥 } 妡El裀qw-, , F侵战8嵯達塖Le鴉t ~a 檺 缱0wd >蕁[ %# # bG__&_"P> ??t(115@ @4@@淄M%N7!N53几馿>> > 10 Th en If Not (ActiveDocument.ProteHonType = wdNoP)  俇np "zhangc靏"xEnd8 If With QStyles("索引 1").ParagraphFo0rmat9.A餷ign ,鳯ef;4'zle,090706+,调痔逦翁Fon GNameFar蠩astH"&垊.Ascii郞ther jSel.Mov耬@ , 13Fields.U pdateLockedTru'C BK!BK SYD6GoTo what:=wdBookma恟k, A>:=cM2KeyM Downine1nd.CleaBr儏tingMFiReplac瀍禄 倆蒅nd懧楾exBs 蓃 E$warGPCWrapPw耫&Stop2a@Fals刦 MatchCasAWholeWoByt9a A Wildc`sSoundsL膇kAll薚,.Exec)酕D "鈚2008-10-16,+e3g aE`Right24,+begin,控制编诺乃承颍蛊湔 虺鱿帚 Dim strNum() As St唕鍶alengAs Intege聄Temp ZWZTitle壴FLTabV濭 J╫FL ∟ew7Li匩jflag忇纓勓(= 0#'銆&= "鋑 %f$C#J#"J!?C琒r匘o蟘羐`闎= Bnp鍡:婣a.鍑^t(唂o矋8%8 Qe{1Ry@~e.8wdCh爗cter鯷S饒enc拧^,P_Ext>Av#)(Trim(g'# a))' 2@0@9-06-1@4定义两个临时变量,判断有没有重复赖谋晏怊>桨(F!,i@Sz 酑F燭,`S,'1.说明B掷一个翈睿恍枰`判驀p&In爄, ",")焣_8R'2R有多7进蠤新.Eji' 駥1 3 1Do 圵hiLMidnge"0), i醦") <>1 oO. E=9!6Exit D=? 04K+ 驫 )xt 榠 +59Lo﹣o\.rn_` c)_v4` o . 0w"[四  4蕫钦r;类OAIs鄚eri鬰(!(4 &!7╤"P7`UU譮@8是附录标稄A 1E"T鈕%+5 " FL '3.p是表/? p筲=表? 5s2=馮6i Bo5' u'4 图/ 图 5s鯂e o5g%?'5 "鈅/`鸲 ElseIf 65 <= Asc(strTemp)x90 繲hen XFLZTitle = t + ", " <p ?""%End "" ^S&? <h1i> i1 NextG3New僜Z蔠+翭L嫿 GraphTable&Leng紅hA)T蠰eft, D- 2 Selection.R繿nge.T6.鰼 3=oN74 憖IC>TF嘆'L蛗flagTru腟Loop0 Whi腉=Find.Execute(@:="^t蔉orward:=, W!i:=wd StLop凴肁Wi@gfrmUpDatHp.Label3.Wid俹Int(144坅C4.C apb,CStr(50)@B"%(oDoEvents# '醼段落标记EA`;veWow.View.ShowParagaNs $ zle,2009-1-9,+5,增加一个书签,以便修改完页码之后返回原来赖牡胤絚 "AcDocum.Bookmark儰.Add 釵:= R, Name2DW!.DefaultSorHtin 1-禒Not B(LProtCqT剏pa秝dNoF)p,Unpc "zh爕c膅&?!叺e=06-15>按掌匆羲承蚶磁帕Re-Index腂y`觘nd2 釧焏 乨258鍩d9焏d '8MoveBK乣C"Stand~AN&荙GoTo 饂hatAYET忋C -Key6drPane衲seek醫 -Curr`3Pag鑕Fo"rCaRight , 1, wdExtf&HeaderS.LinkT琉%eviouu@<&绡Fa爦s u%4?2 Numbery@StyB媤dW2Ara豣ic. ? Level7Ch) Ter0HIn郼lude# 廐 !SepRtoQHyp*.Restar苩#pAtSbIV E$wa rd奟Wrap @wd&Stop噲Fals/MatchCaseuWhole學oByt冪: Wildc` s S qdsLi鈑All荊,3Execu)羨D ""4纅rmUpD@燾Label3.Wid@h= In鄑(172罃'`4.Cap醈@CStr(60) + "%H6DoE^v on#'-06-23,+1,工程和激活文档老喽杂y纒(This苲a).b} 1,+3,消除多余的回车'鄖toryIf(桽tyl5"终结蟺" Then"' Up , 髣n!If#b氭鮣D犃t腢焺杳 ? !#"Dㄠ="SYF)y A.╞Dim tempb Ask:t=}a"(pStar皅s2(2 ).b纐nd:=E"3] . S'眛礰奖砀?B asic.qPToTab'ConvertFrom:=0餴umColumns:=1Row38, _Ipial"=AAutoP萶si;, #R" Apply184, QF1劙窼et" 81袎网格型s'依次槔1中的每一行,得到个饕>的标l题cAi@HehgerWj_ ip鈺"愞弮S廞Q .廞(186廞嶲5廞廞媃'查找蒘项s“1”,并把@它放进絗峁怪#qsyType()郰s Q'动锑轶S>2(s.舍*s().3Re i#leng癶@=~ 餾trTP?D鎶bhtrIP7szjk刌/ i 窂q= 0艗Q|?Cell|(ip]@@r介FL鴈n(鱕bH?(%歨柦 < 4g 0 U= Midg/ 袦, I俼E棐@c削1X9t 致Q;鉷wdY螐1$5j).0 鳯et0瞻# 7瘢Fir7'{*j罃T*N3.= j ^-鍐捑9C胸Aoxrow1070E恆ch InMrO.2= q簃AO+.O+=_+i愸_QC~[ .Label3.Width = Int(20P0)  4.Caption孋Str(70) + "%"RDoEvents"End With '如果是1行就恍枰判If ActiveDocumG.Tables(iTIndex).Rows.Count > 1 Then=瓉>Select1'将表格凑掌匆糇x帜H){.Sort ExcludeHeader:=False, FieldNumb "列` 1",  Type:= _:剋dSyll乺9Or+Ascending22:="1)61H53<Sep郺rato繰CeByCommas肊Column Q腲CaseSensiA嶧dLanguageID:=implifiedChine3乴塏ub::段p落数乸JM"煍:Cy辆IfCA frmUppDate樢1 5噙5赀'查 乙丫泛的各索引@项的“!晏狻保B验加到%杂Φ纳厦婷Dim strR`-e1 As 纻 U23For Each orow鄳總 *!.m}GyMoveLeft0 , 1Righ, wdE躼t爌G2∏!.Tex実j杘&Ite>m$a ) sy!A(j).FirCh`ecter7虨e1 jLetGExit +iW!N hp3 <>@k!'向上增加0一行 &In恠ert岷Ab2?)2a!+G 'AeKBackpspachmS衪yle@%"(冫!)3)臷$G$с焳堩29焳8燀愴冔转化成p文本' 膖n騰To Y覻繶侾'graphY仺SNestedcz :=Tru'瞥悄鼙昙荢紋RemSmartTagt0'zle,09-06-23,+1,工毯图せ钗嗄档相丠@s(This唭N郺me)."芕1,+3,消嘤嗟幕8爻礐@Ke陏@S0jy0F$终结线"绗91GUpG#[洓ID皨昪 萐ubQO'=@5==Fun牁on:显蔃 删除A2侠 窗体!:Return伋Design`Cred: by C0706雹Upd 1C 冡P Show纖 r(7#ete錜.Q 0=x/p '==/ 7/==/te/_  Rl侌find A} BC?s3`r襯FlagBoolea劷'1.逐肝1(7g_癥_]3co`魟W o@w.ViewH iddenBP= 楼'2.全糙亏E0=2|?2L!`812-`F1,防止对封面进行处 理乫InPr鄌cess 7T!丆BKaStr団旻oHome圝1媞7T= "Standard1RoGoTo w竓at〕kZ萲, 1:=@IPC_ 豨_F`筝=8Q龗oW&#,Q1瞲' .C@'r鄲mattvV""^d xe "0餋hpr(34迅w)R+ .Wu0靪dA fpr0 辸!5. 0+ c5竦 findFlag = True $Selection.F.Execut 淓nd If vnRange. FIf &Style"目次、标准名称标题" 0Then ;滶x`it Do 孌 緂_mCou宯t?+ 1.Loop WhiR嘮 (Text:="^d xe " + Ch r(34)g_羳>Index , Forward:=伭, Wr@ap:=wd'SPtop)BA舦eW舘w.View.ShowH idden*= Fals'zle,200812-1,+1,防止对封面进行处理InProce l10屍@ ( @tt凁TypA豾dNZo)恔,Ss(1).ed!E/ @= 2 To gO銔r (i蘛N`p L Pas坰woo"zh罃c缹g", NopRese鄕鉸&:= _o wdAllowOnly!3ge俬c?O+鎐解碁c醖"d==d邇bd3cdU 應da 骯Not bb巚e唓Unptro醞 IG??$?'#?&>岚重床说ィ磤妓程序蟊4婺0蹇ASSSSO  c{Dupl刬cpZMenu賁e?u   Function GetSecNum() As Integ(er If A渧eDocument.FormFields.Count > 10 Then bjBookmarks.Exists("BKML") Or `*QY&*Y* !扴ele.Infba(wdqpEnd 卋er) = 2宬o$啓0{ EXlse 1 nd If xit 呅 - D+!7克?m蘷?m$/m1?m齺l G艪y?mA  x A@roX@>H'J $ B@  !8 (规范性附录) B@ xdp(资料性附录) B@ kH $ B@ 在此处添加附录标题 B@  B@2 B@4 p B@l fd B@^'J A@r?zle,2008-9-24,+1,运行定时更新域,以便能够及时得更新附录公示编号A@|P>H'J A@r4不能在编辑封面时添加附录,请将光标移出封面再添加附录A@o遣Attribute VB_Name = "frmFLBS" Basx0{2D6D1879-2018-4FF3-9AA8-E821C9CE5FCE}{9D0DCCD1-6636-430E-BFA3-FCACE439BA5E} dGlobal!塖pacoFalse 奀reatablPre declaId襎ru BExpose0TemplateDerivCustomiz婦 Op tion 1li衏it P#' Sub cmdCancel_C亐k() Unload M1TEndOkO1rror @GoTo eh0andl 'InProcessA SelecO.TypeText Chr(11D!If /GF.Value Then'"(规范性附录欤├s E耹A眯 资料 =If*在磤舜μ砑覣#p标题# VKeyParagraph MoveLeft wdCh cter, 1 Home ,~tend:=wdExAC 蒫臏G坿'zle@,2008-4,+1,运行定时更新域,以便能够及时 得A;公示编号Upd@汧ieldTC耂ExitE:MsgBox "不能在编辑封面时E.,虢獗暌绕出a再e@1鑊@|H -xMEPSPSSS<<<<0 0{4100821D-E2E1-4357-A599-1935E25B8E38}{176310C9-8B00-4447-AD3F-ADEB1365540B}8 " @ $  . ). !8 %i2  0 pH)2 h% 4  )2 % @ H@%侢pH %p@Xp@xp@p@H9  "  "( 0Php :x  ( 8HP X x "   *"   (0" 8@X px  "   x A@roX@ * !d , !d 请正确输入!A@|k4 zle , 2008 - 8 - 6, +begin, 判断输入的内容是数字 * !8 $p , !8 $p * !8 'N , !8 'P3 A@rd 请输入数字A@! * (d , (dR|k zle,2008-8-6,+endo . A@$ kXoP#zle,2008-9-21,+begin,控制输入为数字  2 2  2 0 2 9 '2 kkop 2 2  2 0 2 9 '2 kkxopzle,2008-9-21,+end * (8  , (8 o( FAttribute VB_Name = "FrmTable"  鳥as|0{4100821D-E2E1-4357-A599-1935E25B8E38}{176310C9-8B@00-444JD3F-ADEB1365540B} dGlobalSpacoFalse 奀reatPredeHclaId#Tru BExpose TemplateDerivCustomiz婦 Option 1lici纓P#' Sub cmdCancel_C亐k() Unload M1TEndOk If txtRow.Textu "" Or Column Then46MsgBox "请正葊肥淙耄c脕Exit BA#If 'z@le , 2 - 86, +begin, 卸狭的内容是数字兠*IsNumTc(,Value) AA.-鄃_row:I6g_cB>I H[B8橝G31團芠@[T,罶-8-6,+8end~詟_KeyDown(B yJ @Code As MSForms.ReturnInteger, Shif>tA 凮3%= 13 . VOB'郆9-21,$B控制a(狢A閌@W鄒ssAscii6*C<>Q罤`q&127 48!e&> 5鉇A= 0'=!e纚k}56颼$ 罣"?爑纴L>$Wi !8 y'HkX A@rxA@o8 6 (8 0o毐Attribute VB_Name = "FrmChoice" "Bas0{85012CBF-7E02-4366-B189-D517890F2D71}{EA99A182-84DB-4EB5-8D732E625F0464} dGlobal!婼pacoFalse 奀reatablPre declaId訲ru BExpose0TemplateDerivCustoHmiz婦 P Sub Cancel_Click() Unload "MKEnd AcmdOk If OptButton1.Value Then(*StdTyp亰f0 -If 2U13243圞:InsertFM O ]U@Form_郃ctivbE^蜳 = 脟L?属xME(SPSSS0{D2C15531-07ED-412F-9892-F6FFE9C35DEB}{C318CD5A-EEE2-48C4-9F65-A5F943F5319D}  6 @i `,i8 %侢 %  "   *(X`px 8 ' 正在进行更新,更新后将自动关闭!A@ 请正k o敱Attribute VB_Name = "frmUpDate" "Bas0{D2C15531-07ED-412F-9892-F6FFE9C35DEB}{C318CD5A-EEE2-48C4-9F65-A5 F943F~9D} dGlobal!婼pacoFalse 奀reatablPre declaId訲ru BExpose0Templ丏erivCustomiz婦 Option 1liciht P%) Sub UserForm_QueryClE(Cancel As Integer,B  Mode )H If= 0 Then #&= 1 MsgBox "正在进行更新,A后远乇眨eEnd` If , P|X 麹xMEPSPSSS<<<<0 0{2868E4EE-35F7-498B-88A1-BB522D2EB55B}{6E05147C-4517-4A9D-BA48-E0B03F771F9E}H " X $ .. , ). %i2 PH %侢xP %bJ X%0XXX P: $"( 0@ "HPX"p  0@H` x    ( @ ` x 2     ( " 0 8HPX h]判断问道是否已经被保护 A@ro8X'J & !d$$请输入脚注内容 ( * A@4 |`kX如果封面保护,则解除保护 4! 8 zhangcheng 4B@'Jd'Jk !!d B@lk)d B@ /  f B@l钮 ` (4 B@l ! 4!%.b f B@l B@言 & !d B@ 4  !( J保护窗体 4%(  4!!  4%(8 zhangcheng l 4B@ 要素及排版$! 0!(取消保护 0!(kk'J A@ro . A@$ kowAttribute VB_Name = "FrmAddFoot"D 凚as0{2868E4EE-35F7-498B-88A1-BB522D2EB55B}{6E05147C-451JA9D-BA48-E0B03F771F9E} dGlobaBl孲pacoFalse 奀re atablPr@edeclaI"d誘ru BEx0pose0TemplateDerivCustomiz婦 Dim ProtectAs Boolean '卸衔实朗欠褚丫槐; P37 Sub cmdCancel_Click() Unload MdEndI Ok I耼Ccess%If Trim(TxtJZ.Text"") ThenC MsgBox "请淙虢抛⒛谌", vbOKOnly +InformatioExitg(+If+A'如果封面>,则解齼A'Not (Act^Doc纔ment.腟@Typ羮wdNoG.LUnp胏 "zhangc:罏Bz婣﨓B濧膶7橇肗@0Sel+.R@e肵<> ""蘕 MoveLeft , 1?I ?俵:= ")1S, wd繣xtendG 萐ty鈍wd"!~n@VRefere嚴OSet L= -E s. ({'B!,` $Z'h 27D*t繽!-g!" " & gZcWindow.View.Seek`^`Mai緉錖 8=媌'!Up窗体#aS?s(1)臯e ?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abdefghijklmnopstuwvxyz|{~XtaMipxMEPSPSSS< ""  ( 8HP .X ( $ >( "h"     .@   4P   ,(@H P p   08@X`hpx   (08@H PXh  ( 0P`px  0@PX`x  (08@H P  ,h   . ("0FX"F"F8"F"F"`F"F"@Fh     ( 20  h       ,  .P    !!!! !(!  &@! h!x!!!! ,!!!!""  " @"`"h" p" x""" @" " # #(# 0# "H# p#x#  # ###### $  0 $P$`$ x$ $$$ $ $ $ % % % % % (%0%8%P% "h% % %%%% &  & (& ,@&p&x&&&& & & 2&'(' "0' 68' Bp'''' ' ' ((( ( "(( 0( F@(( F((())()@)P)h)x)))))))*(*H*X*x*******+$+ 8+H+P+ "p++ + ++++]dprDim InProcess As Boolean8 8] F ' J $B   < !8 'J $B     H ,J   '@  H ,J k(k 'Jo A@r,o]0H`x] zle,2008-10-8,+一个变量 Tble] zle,2008-10-10+1]'R 'N 'T!zle,2008-10-8,初始化 Tble ` 'P )zle,2009,*1,将“章标题”由一级 变成 二级E前言、引言标题,1,参考文献、索引标题,1,章标题,1,参考文献,1,附录标识,1,'L *zle,2009,+11,将“章标题”由一级 变成 二级T' ADstr = "前言、引言标题,1,参考文献、索引标题,1,章标题,2,参考文献,1,附录标识,1,"蚰  H !T  母编  H %J  R $,'R $B   7 )zle,2008-9-28,+if语句,判断是正文还是附录 $B  $B  '*快捷'zle,2008-9-28,*1,注释掉原来的目录不分级T ADstr = ADstr & LstContent.List(i) & ", 2 ," '" & Str(j + 1) & ","蚰( > zle , 2008 - 9 - 28, 1, 使目录能够分级出现例 L  H %V , * $,'L 文注d( $B  '*7#zle,2008-9-28,+1,使目录能够分级出现文首注 L  H %V , * $,'L 蚰kd $B 蚰( N 正文图标题,2,附录图标题,2'N kH $B )"zle,2008-10-8,*1,分开增加图表标题> GStr = GStr & ",正文表标题,2,附录表标题,2""zle,2008-10-8,+1,分开增加图表标题 T,正文表标题,2,附录表标题,2'Tkhk`kXP L L  $'L rdName R $$式编号 R R  $'R 7kTCS 4!MC R A@X ]'J StandardName'nts BKYY 4!%BKYY' kx A@rBKQY 4!%BKQY'As Ck8   B@鑕 B@2ic Wit Selection.HomeKeyndBa  B@h铰急肀 B@4GPu B@l@zle,2008-12-4,+1,定义一个临时range变量,用来存放之前的目次的neirit]BKML 4!%_ Selection.MoveUp wdParagraph, 7, wdExtend 'zle,2008-9-22,由5 改成 7%zle,2008-12-4,*2,注释掉原来的删除方式 As ; Selection.MoveUp wdParagraph, upDateCount, wdExtenddFlTTi Selection.Delete BKML 4%!0 0 !! 4%. B@HdFlTTi B@ommand ' Selection.TypeBackspacePuBKQY 4!%BKYY 4!% Selection.Deletevents kXkP*zle,2008-10-16,+begin,增加进度条,显示更新 A@rvents  total = 100000 C@附录四qzle,2008-10-16,+enddFlTTi"zle,2008-11-24,+begin,调整页码格式BKQY 4!%BKYY 4!% p` B@ A@Lk(zle,2008-11-24,+enddShowH目次、标准名称标题 4% (% Selection.TypeText Text:="目 次"StdN目d B@ nts "zle,2008-10-10,+2,空两个汉字的距离  B@  B@次d B@ -Pu B@^vents  B@n  f B@nPu 4!nts !BKMLC@ 99q B@2" B@4文献 TOC \h \z \t" L "'L  ! l L d !B@'zle,200-11-12,+4,用来控制禁止用户更新域 p B@l !(R B@2!%zle,09-06-08,+begin, 增加字体格式控制w'' Set tempRange = ActiveDocument.Range(Start:=ActiveDocument.Bookmarks("BKML").Start + 4, End:=Selection.Range.End)'' tempRange.Select例快''' With tempRange.Font ''' .NameFarEast = "宋体"饕)''' .NameAscii = "Times New Roman")''' .NameOther = "Times New Roman"$''' .Name = "Times New Roman"zl''' End Withlt '''zle,09-06-29,将字体都改成宋体 ='' With tempRange.Font'' .NameFarEast = "宋体"'' .NameAscii = "宋体" '' .NameOther = "宋体"d If'' .Name = "宋体"En'' End With-06-zle,09-06-08,+end p B@ngin!] N dFlP TOC \h \z \t" N "'N mand B@4 Cance ! l N d !%.Z ctzle,2009-1-8,*4注释掉错误4) <> Z ! 未找到目录项First Z B@  B@l B@ k k 'zle,200-11-12,+1,用来控制禁止用户更新域6- B@l !(Rgi B@n!zle,2008-10-8,+begin,增加表的目次 Ttrl TOC \h \z \t" T"'Tfaul B@4an)p ! l Td !%.Z owzle,2009-1-8,*4注释掉错误 Z ! 未找到目录项 Pr Z B@.z B@l B@Insertk k zle,2008-10-8,+end'zle,200-11-12,+1,用来控制禁止用户更新域l  !(Ran-zle,2008-9-27,+begin,将各级标题设置缩进 10-5 g_Z 4!! (Act 4! ndow zhangcheng 4B@k( k &zle,2008-10-16,+begin,增加进度条的位置sEdi V5(IfX % 5(leA@q zle,2008-10-16,+endate Su目录 1 4%!trl ?9an?9ncqH 目录 2 4%! g_Z99q 目录 3 4%!tion$9t)"$9\ 99^ 祝p= ?$9x Pr b 9` 9d 9f 9v99qp 目录 3 4%(h 目录 4 4%!e4_C$9tl $9\ an 99^ ffffff?$9x) b 9` 9d 9f 9v99q s5(> (X % 5( A@qp目录 5 4%!sEdi$9t $9\ 99^ (\徛踵?$9xb b 9` 9d 9f 9v99q目录 6 4%!Canc$9too$9\ 99^ 呺Q告?$9xocum b 9` 9d 9f 9v99q0 5(2X % 5(diA@q目录 7 4%!itle$9tEn$9\ 99^ {瓽醶?$9xe Su b 9` 9d 9f 9v99qP目录 8 4%!n) $9trt$9\ 99^ 呺Q?$9xle,2 b 9` 9d 9f 9v99qzle,2008-9-27,+end&zle,2008-10-16,+begin,增加进度条的位置e2F_ 5(fi<X % 5(anA@q(zle,2008-10-16,+endTTitle'' 'zle,2008-9-23,+begin,使页码右对齐,2 4目录 1 4%!!j B@l Select吞烫蘈0@$| n  r p 目录 1 4%!!j B@lT目录 2 4%!!j B@l .Comma吞烫蘈0@$| n  r p 目录 2 4%!!j B@05目录 3 4%!!j B@l 'zle,2吞烫蘈0@$| n  r p 目录 3 4%!!j B@"目录 4 4%!!j B@l ate Su吞烫蘈0@$| n  r p 目录 4 4%!!j B@au目录 5 4%!!j B@l TTitle吞烫蘈0@$| n  r p 目录 5 4%!!j B@晏目录 6 4%!!j B@l = "附麓吞烫蘈0@$| n  r p 目录 6 4%!!j B@F_目录 7 4%!!j B@l BarBut吞烫蘈0@$| n  r p 目录 7 4%!!j B@ 目录 8 4%!!j B@l 8-10-8吞烫蘈0@$| n  r p 目录 8 4%!!j B@En 4!! e Su 保护窗体Cl 4%(fice  4!!efault  4%(W   zhangcheng l 4B@aption 要素及排版$!  0!(取消保护 0!(kHk@q8' 'zle,2008-9-23,+endle  f B@lzl !r(t B@2 &zle,2008-10-16,+begin,增加控制目次格式黾臃'查找是否有 全角空格,如果有的话,则去掉 !B@だ !!B@> !! 9dz 5(d封面9 99999999q VT !B@文 替换编号后面的半角空格为全角空格 4!正文MCMW !C@9 9qP&zle,2008-10-16,+begin,增加进度条的位置 5(veFX % 5(A@qzle,2008-10-16,+end蚩旖莅zle,2008-11-12,+begin4!]0'\_ B@^'V  f B@nS !!d'\ \(资料性附录) \(规范性附录) B@^ DA@ p B@n 添 B@.zk b B@h !目次、标准名称标题慕抛⒖xk \$附录A MCMW B@V 5(zlZX % 5(在A@qzle,2008-11-12,+end*zle,090807,+beign,只替换每行第一个半角空格 !B@A@ !!B@_ B@^2008-1  f B@n判 !!d'\ !H' 9d,半角空格 5(d,全角空格!9 99999q v T !B@zl b B@hn,增加 !目次、标准名称标题容>zle,090807,+endPMCMW 4!% MCMW B@ MCMW 4%B@kzle,2008-10-16,+endB@l'J Unload Me!&zle,2008-10-16,+begin,增加进度条的位置! 5(dX % 5(A@qP A@r!zle,2008-10-16,+endF+zle,2008-11-12,+1,增加禁止用户手动更新目次(d !(RoH0如果发生变化,则处理,将本接点的所有上辈接点选中<如果正在处理上辈接点过程中,则不要在处理上辈接点,避免死循环'P J]  H !T    H %J  A@D 9kko 填充必选项前言、引言、章标题、附录、 $参考文献、索引 z (dl'J@通过a的值来确定父子关系 ,十数相同 为一个家族,个位数越大辈分越低! 一级条标题 H B@|  +B  二级条标题 H B@|  +B ! 三级条标题 H B@|  +B \ 四级条标题 H B@| +B ! 五级条标题 H B@| +B  附录章标题 H B@| +B !附录一级条标题 H B@| (+B 附录二级条标题 H B@| 'b+B 附录三级条标题 H B@| z +B 附录四级条标题 H B@| ? +B 在附录五级条标题 H B@|   +B 图标题 H B@|  +B 表标题 H B@| !) +B !]TCS 4!MC$'R z R (]  H !T   R $$$!  H ,J kP b$$k8o0(Attribute VB_Name = "FrmContent"D 凚as0{B2ABD242-E77D-4CBC-9F09-C2A2D7193912}{194BD7A2-48F6-426A-A4FC-EJ49A7A145} dGlobaBl孲pacoFalse 奀re atablPr@edeclaI"d誘ru BEx0pose0TemplateDerivCust恛miz婦 Dim a(100) As Iˊger ' InProcess BooleanSub P]nt(ByVal dx") [$i iwIndxIf N宱t 8The5(a(i)@ Mod 1*>8 1 += 莾RAWhib# Lst剸.Selected A2i - 1aKWendKE鄋d IfGc= 膫c P  AfcmdCancel_Click(刟Unl鄌ad M槅 sOk 峯, APDstrtS厘ng, jHw, G飥G1T伭 萚'zle,2008-10-8,+一个变翆 A upD郈ount 10+0!RegO 園z O,初始 化I= 7 + g_MC_b 9,*1,将“章标题”由一级 变成 二级#-前言、引言,1,参考文献、鹚饕齽 @附录标识'@+1''w 2CFor !h0 To (dLi=*k 佅詇蟻F=& 郪!yp& ",!<&/q鈰< 3饗g@9-2燯if语洌卸鲜钦幕故~恰. < 2*溕j@(郔注释掉原来的目录不分I8i %:&-/$ 2 ," '" & i(j鶢Z1)&(` eIz ,08@9`% 1, 使a能耿出蟸煮CPQq 2鹺 I E_38-31,_ _ 麃_ t.(_ )/乕u &= 3焤 砕=c P1+袜B题,2,1,2c>4#P+B_*1,分开增艏0M%[鱞<1 4 矧, g獐詀b乂t =NextsAU$Left(,P Len)514~Trim(O) <> ""孡P=SaveSetting "TC$S"ctPo(cump.寻, x"MC 眡M鄌veBKl侙炆`oStanda紃d01 Ak﹌marks.Ex@cs("BK餣Y")|W  拸 BKQCon.Go@owhat0:=wd%, y!:=#gP K ey1gHomer g1Up wd昂agraph,氮GType']D;p,+1,定义憶临时range!湥美存放之前ai次的nei艫 !t 蘎!BKMLO6n7,Ezx愩d!> 繼2,由5 改`檸7c *2,箇删除方式鳮  x7 "D]嗳t姬9 = 1(`4r &3穝33q.r酓,両:=g r.p'凢QfT褿  c7!'Backs羟牰Bookmarks.Exists("BKQY") = False And ActiveDocumPent.蘗 fThen ' Sele妎n.BDte 8E9`If 'zle,2008-10-16,+begin,增咏忍酰允靖0Unload Matota2l10#With frmUpDa E.Show| 0丒嶤end 1-24匭调整页@码格式If!繀瘝 Unit:=wdCharacter, Coun1)AProcessFontPag刱塯D=DS餿yle@`L憘罌目次、标准名称标0题")徢TypeText :="目 <" 媜0,+2,空两龊鹤值木嗬胪InsertSymbol 艼Number:=8195,丷code:=True, Bias:=膹/盼7咢 /HomeKeyMoveRig鄅t , {坵dS鄚enc`1, wdExt鑍耮u侰酅.Ad纃 Rang# , Nam MLD4BDefaultSortingF@`ByL纎catio缞b乽Hidden0C雟0"!*侾郹graph ADstr@ "TOC \h \z \t""" &r C&  F鄆elds !o丅Empty,Z _c , PrePveForxmat!肔Z-11-12,+4,用来控平褂没r⒂颍= 脣 = 緻 〡?!'廍"/3= 髑6S(2+N,pBp]緾x2笴A ,疌g煟C`0B@1,9-1-8,*4注释掉8砦骃In厾(" .Res繷, "未找祤侥柯枷畎0|C秊燊Hi; \ r" 5Q1?Q`?Q?廝\u嘼Q馪表的!彊'Tb袘' '`h'Y d镝条的位脫鈔o .Label3.Wid卲=p't(86萊4.Cap1╜"CAQ30)`"%∝ DoEv牫s?ol宭 G衣监 1").v=cAq.Line≥Befor裰0.2s$Af 俪 End Wipth (x ActiveDocument.Styles("柯 2").ParagraphFormatr.LineUnitBefore = 08Aft,er23唀f皌IndfCimessToPoints(0)!圞Righ(Al榠gn寑-wd 圠<,HyphenationTrueFir宻t槢T.18 VOutl睱ev el@ BodyHTex壢Ch謈~O6塮J 薈 }/1H7佗丯oSpaceBe tweenbsO`fSame偖IF竌ls腲薰4?樝A腂??榥tA捖.35Lne"NLoLLFV27*L鄲V崹@frmUpDatisLabel3.Width&Int(11兪$"4.CapCStr(40)@ + "%"D鑟Ev 恠#煗p畮5Q煗& .Qj濄 煗A6f9sQ53QQr煗E㈦!Q3G<咿|Q =6AAAr .呖 鱒弌弌".廲 q z.71 cH 9w弌弌弌O鋛 % 鷔 4 /惏"O 敇X I .I(144iIqI5II'Xw窢7(麚a.蕟O極榩?浡((IO極橊睥.89((?r2>.#z((/+ra麉-(5)锔簿Q (邇jI8_ S8O#L#鱛 _ .遡H _纒(1.07_ _ _ 2_ 禿_ _ _ _ 鷈6)_ _ II'zle,2008-9-27,+8endS10-16,+begin,增加忍醯奈置%進進Q椳72)進袽6進進螿 ''3 使页码右对齐  [Rc逽譙13.TabStops.Clea0rAllO tAdd PHosiq:=-壍tersToPoints(16.3), Alignment:=wd0TabRight, Leader`L0Dots ActiveDocu.Styles("目录 2").ParagraphFormat.FStops.ClearAll@JAdd Position:=蒳mej3莟%t4:厙:}5:E::}:6?tC~Z ???97??#Z ???98??#Z ??71嚸If 蔉ield`蒾unt > 10 Th en佋'保籤ご疤逅 S2e 賝n犫謗o2ted` s = True,@ i@2 To |.Ca 7i!FalsNe,xt, P Password:="zhangcPg", NoRese , Type:= _  憗lowOnlny +PCommandBar蠵要素及排版)Vis0ible/ ClsEv爘.CmdPROTECTC.FaceId9!77/ Capq0"取消 "End If;Wit h ''A 'zle,2008-9-23,+enFdSSelS.MoveLeft`S0 ence, 4,ExtVFont.Sp燼cing 01KeySG10-16,+begin,增加刂颇看胃袷矫$查沂欠裼 全角空格,如果有的话,则0去掉h in芼儧1 att ?0Repl";Q a.T觻- .Ic0war!2.WrapwdF? 岌 MMatchCase.WholeW荘5Byt汣岽ildc 慐S`CdsLik #俺 \g*冄Execup 〗聘'替换编号后@面的半s"#clGBoo爇markx.乥Nam餎"MCM鶺繥RH Sb ShowHidden\DefaultSorA( wdByLo|ca?s22忍醯奈恢茫 frm UpDat╓.Label3.WidthInt(0@)S 4.CStr(70) + "%8+Do2Nt 肊t=vBh 1-12?Dim strTempp As p6:e= "$$os 餒ome&F盠裔L1蚅0<>F3衎In, "(资料愿铰迹") <> 0 O剅 规范?迉栰O!餈Ch0靋痄 [ 鳮乻郆acks ["O坋GUp0L鬷na1&0阴 'p櫞巍⒈曜济票晏"ot Ex0it D 独 If Loop While Mid(strTemp, 1, 3) <> "附录A"Selection.GoTo what:=wdBookmark, Name:="MCMWxWith frm繳pDateJ.Label3.Wid = In@t(258) !4.Capv = CStr(90)` + "%_KDoEvents;0End u 'zle,2008-11-12,+e nd 090807,+beign,只替换每行第一个半角空 格噧Find.ClearFormattingReplace蝝QDog0HomeKey MoveRig@ht wdS,ence鄔dEx>tr'PGRange.Text俲7 " "'KJN.? '全 X @Uwarbd@ Tru垘.怶rap@wd)pStop*僤@Fals Matc hCaseWh`oleWo B|yt (K爜+KU.郋xecuF裂9On*G A{Up駙zLin亂;C1 Sty鳤竽次、标准名称标题侳 If A}veDocu 釼e|sists(億) Then 縿▌A% .>D 怑圓,艢H|0-16N|InProPcess='Unload M$.begin,黾咏忍醯奈恢胏'be邭脷85邭10氶殑LW!(銧1,B褂户手动更新AECIFields.Locke莙A0Sub @ Priv牷  LstCon 恡_Ch('如果发 浠瘈虼恚窘拥愕乃猩媳病0选中正 在过程勚衼不要k,避免死0循环C燳Not`1錊kVDim i As5eger!D = 0& .L `Count - 1A` c(ed(i eaaDPar皋  閈N&%a0Use乱_耲a '填硛浔匮∠顏1!Txt` 禲前@言、引Q卤B、褉、" & Chr(10& "参考文献、索引E6拠'通过a的值慈范ǜ缸庸叵 ,嗤 为眝家族鑫皇酱蟊卜衷降蚐AddItem "一惣短8Ma(4= 1? "稈>1)蠥12﹗三>223?5四> 4?5五>4r5?5da(512?v1(6rz(7rzy?(8rz(9r?z(1!L26图$1蛼!3表 b!4罞RegStrF`F= G e8t眩("TC楽",絯Q, wy""銽F~"|x?M>1?M耑?M 鹈燪 (1, 3, Trim伱K)"0R殌7貾>=M%M罭 iqSQgFrmEditFootFrmFootTypefrmMarkIndexThisDocumentL 愭xME(SPSSS0{02AD42D1-D071-4A91-B90C-618EA06BD1DE}{75858972-429D-44EC-81BF-5B6EFC6E9B1C}0j @ @`8 "  $ ""`勡 8 @ `勡 4%侢 %b b bJ @`8<烥0@`8p@`8`8A &08"@ HX "`hp  & 8H P X h    2   (@ HP Xh "px  "  0 H hx]]初始化时不修改本文框内容r] ]@` A@r200812o 'J 4! x zhangcheng 4B@'JdP'Jk@] & !d ! ,V   4! 5  %V  76!(d xq J保护窗体 4%(  4!!  4%(@ zhangcheng l 4B@ 要素及排版$! 0!(取消保护 0!(kk'J A@ro  |xkp  & !d ,V k@ ! %V  & (d ! ' o8]x' '  4! 5 76!!d B@|  q' ophAttribute VB_Name = "FrmEditFoot" 圔as0{02AD42D1-D071-4A91-B90C-618EA06BD1DE}{75858972-429D-44EC-81BF-5B6EFC6E 9B1C} dGlobal峉pa俢oFalse CreatablPredeclaId諸ru BExpose0Templat@eDerivCustomiz婦 Dim Ori As In teger IniLst Boolean '初始化时不修改本文框内容 Public Add%%ProptectO2 PY] Sub cmdCancel_C$k()  UnloadD MEEndA & @ Ok InacessTIf Not (Act@JDocument.&ionTyp乮wdNo) Then##ALUnp6 "@zhangc g妬 f胿AE夾剎;I6fC羒iJhAlstJZ.List(Index)匒>xAText`With /kn fsFor i1 To .pCoun.Item(i).rR;e. "i - 1膐 N iC5"CCf嘆K['保护锤疤# MS郕7s(1)e9eP簉m @2!E ! @?9 $ Password: =蒊,WReseHt:=aH, !U:= _ wdAllowOnly亮Field(;G.CommandBars("丶芭虐").Visi1!ClsEvgCmdPROT繣CTC.F 犫277Capt`6繤"取消 -e*(aD眖 T&u i' 儂!慑=  ┭Mse耡_鈃 甮カ訆= 杇-1繅& 郟粔c{嗥 p嬅 Dth v      !"#$%&'()*+,-./0123456789:;<=>?@ABDEFGHJKLMNOQSTUVXYZ[]^_acdefhjlmnoqrstvwxy{}~LqxME(SPSSS0{2E964647-0C70-44C4-B3D3-B12106070EE6}{71C4F8E4-DC9F-46A8-A964-FC044BB93FB0}@ " @ $ %侢 %@@@@@ "  "  (8HP` hx A@ro`@  !8  B@d0 B@k A@roeAttribute VB_Name = "FrmFootType" 圔as0{2E964647-0C70-44C4-B3D3-B12106070EE6}{71C4F8E4-DC9F-46A8-An-FC044BB93FB0} dGlob刟l峉paco False 奀r@eatablPredeclaDId諸ru BE`xpose0TemplateDerivCus tomiz婦 P Sub cmdCancel_Click() Unl oad MKEn抎 Ok If OptAdd.Value 餞hen') 佫.Show 1 EEdift!IfC &b 挸t菼鎙C泹蝋湪Н@u陱F禢嶕0樷CB<咠洨xME L'Wm1xME(SPSSS0{3A538F15-AD48-4F5F-B190-F2E8A1136BE4}{C781A918-DEC7-49B0-8DE1-234FC504E283}H " @  88@勵  ((@勵 " H!!@勵 R &    @ 80%侢`8 %@H`@Hh@H@H8  "  ( "0 (8`h &  &(08HP `p    @ X h x    :      (0 8H (Px "   "  (8@HPX`hpx   <  (8 @ HX`h "p x " 6 &Px < 0@ HX` h "p x "   "  ( 8 H h     x A@r'RoP@"zle,200812-1,+1,防止对封面进行处理'J 4!! . %,  StandardName B@ b B@2k(k R  StandardName B@ b B@2'Rd R 'Rk !B@5 !  $$9d5(d9 99999999q !!] R'R&该词没有在文中出现,是否查找新的词语? TCS$' (dd A@rkhd`'R 已经完成查找,是否查找新的词语? TCS$' (dd A@rkkd  ("k"zle,200812-1,+1,防止对封面进行处理'Jox !d'Z'\A@zle,09-06-18,*1 cmdMark.Enabled = False !B@'J ! $$9d5(d9 99999999qx !!  ("* 'R]"已经完成标记,是否标记新的索引项? TCS$' (dd A@rkd  ("k'Jo !d'Z'\zle,2008-11-17,+4,显示进度条 99Jq( ($  ( X % (A@0 'zle,2008-12-2,+1,禁止在标记索引项时点击窗体 frmMarkIndex.Enabled = FalseA@ 9c9Jq` T该词没有在文中出现A@d(]0"已经完成标记,是否标记新的索引项? TCS$' (dd A@rkkoHo'R !d$$ (" ( ("d0 ("  (" ( ("ko ("  (" ( ("刚弹出来时,不看到进度条 With frmMarkIndex .Width = 237 .Height = 108 End With ($ 0% (oRAttribute VB_Name = "frmMarkIndex" 孊as0{3A538F15-AD48-4F5F-B190-F2E8A1136BE4}{C781A918-DEC7-49B0-8DE1-234FC50@4E283} dG lobal嶴pacoFalse 奀reatablPredec$laId譚ru BExpose0TemplateDerivCustomiz婦 Option 1licit`P#' Sub cmdCancel_C@k() Unload MTg_SLFirst_0 End%FindNext&'zle,200812-1,+1,防苟苑饷娼写韮InProcess艻AIf Act>Document.FormFields.Count > 10` ThenD Seleon.Inf a丅(wdC@1PageNu爉ber)@1LAGoTo what:=wd Bookm, 亪:="Stan餯ard罀@Key wd8LinDW I~fC/> _(' 麨&1D(偭7 |+ @媴6A. Clearsatting With .TexTrim(t渪t刅Reelce翫d"1AGw嘸4 LWrap剋dStopC鋝MatchC儜rWho`leWor坽B2y牉= KWi竘dc` S`_`dsLikh廗A黮l丩!-C繪L3Exec= B霳Dim R鄀spon帷e孶駃iE % ,MsgBox("么拭挥性谖闹谐鱿郑欠癫檎倚碌拇视铮", vbYesNo, "TCS"鐰 h BaJ)GE阇!a尌?蓌a!;!已谰瓿蓙 & 俶   "K"癶.EnAl3W1Y飀飀Rl閐o4qpo痥dkkg瀇褽TD!S3g_A|OrP6@+銷!rI0tems 09-06-18,*龕'T 疪疪rTdcT鄷TT0TTB筢Amaq[T縂T T.TA1T"TO$T.d.T諌7 B 廥 疶"誄标记覥AT索引袭頾TiT/Ts緾 颯 逴B窤A饢A E哶1_?怜:0?P1?x鸪?2 fI-11-17,+4,显蕗窘忍#9y蚦!.WidAp= 245XHeigh3138Gc w'lbl.BackColo俽pH&HFF0Int(18>JD.Ca#= CStr(10) + "%酓揇oEv 穩L"KH2-2奔禁乖诹$$时慊鞔疤 > "./S 钳w? 237C999S ,g_竄huv ,cv ?噡謹(7A77窨7嬃177 7$ k 7Ky艉惇P4 Label6'3魼_Ch0ange佩OM/ If Trim(txtIndex.Text) <> "" Th en cm@dFindN.Enabled =zue FMarkAllDEls X燜a $QN # r#End SubPrivate  UserFo@rm_Act ()gw,桳朖'刚弹出词保豢吹浇忍 '伔Wit鄅 frm0虅 ! .Wid= 237 Heig膆t108 z#%ilbl.BackColor1&HFJD.Caption!@"0%"JN S"SS"<(< ,<(<,<<< <$<0<4<8<<<(1Normal.ThisDocument0@ %%%% .`p@!%"&4@"*88@凗 偁"(@@@X8Xx yAxx 3 8t Xp x@@(!% " &@ Bh ,  . 0 H 2`  " @ X h ,p X "   8 H h \x H   *0 ` .   "3 x]]Private Sub Document_Close() Dim cmbNewMenu As CommandBar; Set cmbNewMenu = ActiveDocument.CommandBars("Menu Bar")LE & 'zle,2008-9-28,+3,可以修改菜单30 With cmbNewMenu00-( .Protection = msoBarNoProtectionW End Withste '退出删除菜单2., For Each ctlPopup In cmbNewMenu.ControlsD45y If ctlPopup.Caption = "添加标准要素" Or ctlPopup.Caption = "标准文本样式" Or ctlPopup.Caption = "附录及排版" Then ctlPopup.Delete End If Next% For Each cmbNewBar In CommandBarsR If cmbNewBar.Name = "标准编写工具" Or cmbNewBar.Name = "标准文本样式" Then cmbNewBar.Delete End If Next Dim i As Integer i = 1U Do While ActiveDocument.CommandBars("Menu Bar").Controls(i).Caption <> "文件(&F)"A ActiveDocument.CommandBars("Menu Bar").Controls(i).Delete Loop$ 'zle,2008-9-28,+3,不允许修改菜单 With cmbNewMenu' .Protection = msoBarNoCustomize End WithEnd Sub@ 4!6 0/2o滩Attribute VB_Name = "ThisDocument" 孊as1Normal.VGlobal!猄paclFalse reatablPre declaId濼ru BExposeTemplateDeriv$Custom iz凜1Option .licit Dim ctlPopup As Comma`ndBar m0bNew  'P@D Sub" 叝_Cl]() 0 Menu Set c= Actl(b.Js(""E"0 'zle,2008-9-28,+3,可以修改菜单酓"WithD.Prote繤 = msoNo End '退出删For EafcTIn1n`trolsDIbfF_.Cag砑颖曜家" Or 文本样 附录及排版" Then厏.De鑜et'A:DIf Nex缞'顳9耹繨 :i 78E .E鉇.编佬垂ぞ逤.7Q. .a!QiPInteger i p1dDo W hiw?Par")F:(i`7<> "文件(&F>)`&*_ N JLo op蟏不允^ `^E嗗@囪]A|r~pOpenA~ 羪ClsEv.Td餾App@,@a翍 (H  @ }lR 憦濄K窺恄宋体$<CmdOK"( <CmdCancel\t]$POptGF{$POptZL((2<lblTitle$0_VBA_PROJECT7淲frmDeleteIndexcFrmFL 3粶03粶0fCa蘟 *\G{000204EF-0000-0000-C000-000000000046}#4.1#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7\VBE7.DLL#Visual Basic For Applications*\G{00020905-0000-0000-C000-000000000046}#8.5#0#C:\Program Files\Microsoft Office\Office14\MSWORD.OLB#Microsoft Word 14.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\system32\stdole2.tlb#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.5#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE14\MSO.DLL#Microsoft Office 11.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\Windows\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{98EA88B4-E55D-470D-B024-E09809CAB420}#2.0#0#C:\Users\libin\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E 忇.`孧 *\CNormal*\CNormal醀 醀 ThisDocument0457e7e394#ThisDocument MdlTds0657e7e3b68 MdlTds錛 ClsTds0857e7e3b6? ClsTds4 0OFrmAddFoot0957e7e3b6! FrmAddFoot麹H FrmChoice0:57e7e3b69FrmChoice鎥`FrmContent0;57e7e3b6FrmContentipxMfrmDate0<57e7e3b6 frmDate涱EfrmDeleteIndex0=57e7e3b6frmDeleteIndex>5FrmEditFoot0>57e7e3b6 FrmEditFoot愭 FrmFL0?57e7e3b63 FrmFL~0zfrmFLBS0@57e7e3b6 frmFLBS)FrmFootType0A57e7e3b6 FrmFootTypeq frmJz0B57e7e3b6] frmJzd0 frmMarkIndex0C57e7e3b6frmMarkIndexm18]FrmTable0D57e7e3b6SFrmTable-P& frmUpDate0E57e7e3b6frmUpDate属hExH`P0 h8蠌嬉'{BJop寎r箏-#硁M毖轠臺$L貨踾b忙C棩|t漪钱'!HAW 懟ΞG*0P揑熲&稙冇/{=#O8苎GH镄9w硓>!F棏Τ[ 囥犻鶯苓Yc芠坣L T@韩!瘤 x%"hWord祂`VBA麾`Win16羱`Win32`Win64x`Mac巢`VBA6#`VBA7#`TemplateProject丒`stdole揱`Officeu`MSFormsC`Normal哓` ThisDocument<瀈 _evalsuate賎ctlPopup喢`CommandBarPopup ` cmbNewBar径` CommandBar` Document_Open翂`ClsEvent`TdsApp`ActiveDocument覾` Application*`MdlTds`ShowTip:'`OnePage愼`ClsTds`ShpDT`Shape耟ShpLB`ShpRQ`StdType僲` InProcess鞫` OriFldName泴`g_rowNumo縛 g_columnNum窉` g_SLFirst麦` g_ZhuFirstk違 g_ZMFirstl盽 g_SZFirst!` g_IndexText` g_MarkOrAllw蝋 g_strTitle棃` g_MC_Count蕧`g_SYGS蒊` g_DelIndex偙`g_DelIndexTextC[` g_FindCount鏰`StrTypeAh` strLetter`strFirCharacter:*` InsertMenu餪 cmbNewMenu銈` cmbNewBar_YS"塦 cmbNewBar_CBw哷 cmbNewBar_YY$塦Cmd鰚`CommandBarButton9觍 StartStatus@違 GetSetting鮜MsgBox桼` vbCritical+}`Version∨`CustomizationContext蝷`AttachedTemplate戙` CommandBars ` Protection刞msoBarNoProtection鯼Controls蘇`Captionx`Delete竫`Add鱮` temporary栛`msoControlPopupl)`Before夀`FaceId蔵`Style舙`msoButtonIconAndCaption1l`CmdFm軒`CmdMc諒`CmdQy{恅CmdYy慲CmdFl蹘`CmdCkk巂CmdSy艕`CmdBJSYX鉄`CmdSCSY芗` BeginGroup壎`State` msoButtonUp6漙 CmdTwoPage1瞏 CmdPrtPreview堽`CmdPRINT崙` CmdPROTECT靸` CmdUNPROTECT錸`CmdFmCT萡CmdMcCQ靈CmdQyC`CmdYyCt`CmdFlC/萡CmdCkC穈 TooltipTextb?`CmdSyC` CmdBJSYXC!`CmdSCSYCh` CmdTwoPageC糮CmdPrtPreviewC:媊 CmdPRINTCV` CmdPROTECTC` CmdZtitle}` CmdTTitle1`j` CmdTTitle2aj` CmdTTitle3bj` CmdTTitle4cj` CmdTTitle5dj` CmdTTitle1F觢` CmdTTitle2F鴏` CmdTTitle3Fm` CmdTTitle4FBm` CmdTTitle5Fgm`CmdDG砢CmdLx1镩`CmdLx2痖`CmdLx3耖`CmdLx4蜷`CmdLx41豪`CmdLx5箝`CmdLx6糸` CmdZtitleC曎` CmdTTitle1C衛` CmdTTitle2C鮨` CmdTTitle3Cm` CmdTTitle4C?m` CmdTTitle5Cdm` CmdTTitle1FC奐` CmdTTitle2FC鉕` CmdTTitle3FC`DBTag3鱜QBTag鋉`wdFieldFormDropDown抰`DropDown` ListEntries-`Clear阃`Shapes<`AddLine8` LockAnchor浃`RelativeVerticalPosition嘡`wdRelativeVerticalPositionPage櫸`ZOrder」`msoBringToFront苨`CentimetersToPoints铮`gpathb` InlineShapes贇` AddPicture坄FileNamej胉 LinkToFile `SaveWithDocument躓`AddShape,`msoShapeRectangle酄`msoFalseF.`msoSendBehindText)`what酑`wdGoToBookmark` SplitSpecial鮜 wdPaneNone= `Panes閌 wdNormalView閲` wdOutlineView輐` wdPrintView(轥wdSeekCurrentPageHeader; HeaderFooter醏IsHeader\蝋wdSeekCurrentPageFooter萇`Fields7ー wdFieldPage*` PageNumbers` NumberStyle`wdPageNumberStyleArabicK4`HeadingLevelForChapterr`IncludeChapterNumberxK`ChapterPageSeparator?錪wdSeparatorHyphens誤RestartNumberingAtSection玚wdListLevelAlignRight1誤 ListFormat4J`ApplyListTemplate8揱 ListTemplateR鯼ContinuePreviousList蹕`ApplyTo裀`wdListApplyToWholeListE/`DefaultListBehaviorO梎wdWord10ListBehavior5`InsertTextNote篆`InsertTextMulNote3鬬InsertTextFirNoteH╜InsertTJ`InsertPJ6`InsertFirstTTitle)l`InsertSecondTTitle颽`InsertThirdTTitle蕌`InsertForthTTitle蚗`InsertFifthTTitle$` InsertZTitle郌` InsertExample7`InsertMulExample`InsertFirExample僬`InsertExampleContento歚InsertParagraph婶` InsertTWJz 瞏 InsertTBJzG`InsertFigTblFooter蠔`iCountl` wdWithInTable籘` wdParagraph睭`InsertFigTblFirFooter芩`InsertFlZTitleI誤InsertFlPTitle`InsertFlBTitle8腵InsertFlTTitle19]`InsertFlTTitle2:]`InsertFlTTitle3;]`InsertFlTTitle4<]`InsertFlTTitle5=]` InsertFlBs玚InsertReferencesG`MoveBK<甡DesignIndexTCS睵`Res蝋ShowHiddenText醟`Findn餪ClearFormatting)` Replacement芵Forward┾`WrapWy` wdFindStop'f` MatchCase囄`MatchWholeWord瞂` MatchByte胹`MatchWildcards`MatchSoundsLike0`MatchAllWordForms炦`ExecuteY蚡vbYesNo漙 vbQuestion室`vbNo%`ProcessIndexFormat/`InsertIndexPage诀`wdStory&` InsertLx1S` InsertLx2S` InsertLx3S` InsertLx4S` int_Title枾`int_ZmBh闽` InsertLx41鰦` InsertLx5S` InsertLx6S` InsertSy1x` InsertSy2x` InsertSy3x` InsertSy4x` InsertSy5x` InsertSy6x` InsertSy7x` InsertSy8x` InsertSy9x`InsertGT` InsertTab歾` ProcessPrintMA`Item讂`Shaded黗msoBringInFrontOfText0阘HaveBAH鸧` ProcessEdit躟 FieldNulla刞 SourceStr鰮`Asc!u`pic婷` InlineShape錐`Height|媊ProcessFontPage脥`wdPageNumberStyleUppercaseRoman`` InsertTableQ蝋FrmTable矆`Tble歚Table侎` Charactersrg`wdLineStyleSingle慲 LineWidth/U`wdLineWidth100ptっ`wdColorAutomatic鱜wdBorderHorizontal箺`wdLineWidth050pt `wdBorderVertical:恅Rows`Cells峘Mergeq_`EndOf泍`wdTable瞧`InsertEquationR` LeftIndenti抈CharacterUnitFirstLineIndent薻`FirstLineIndent` AddOLEObject` ClassType穈 DisplayAsIcon篳wdAlignParagraphCenterl焋InsertEquationNum)醏FindText`InsertFLEquationNum1`vbTabc9` CaptionLabelsQo` InsertCaption燯`Labela` TitleAutoTextt鑐Title騸`wdCaptionPositionBelow@腵 ExcludeLabel`i_Firstu`i_Second舼` wdFieldEmpty涚`PreserveFormatting=`Update尹`iNumF`iNumS`xh誣`gxp]`wdFirstCharacterLineNumber[衊wdGoToEquation#`Which wdGoToNext褀`UpdateFieldTCS`UpdateEquationNumTCS%` tempRange4` frmUpDate阘Label3,`Label4,` fieldsCount'`Val葩`PrintPreviewTCS絶` PrintPreview讳`InsertCharactergu` GetSecNum邽`str椪` tempSelRan車` iCountPara:` strLength9.`strIndexA`ChrK~` vbTextCompare Q`InsertFirTitle'h`InsertSecTitleA`InsertThiTitle焆`InsertForTitle随`InsertFifTitle_g`InsertFigTitle~`InsertTblTitle#`ShowfrmMarkIndex3縛 frmMarkIndex`DelBeoforeMarkAll`findFlagtj`MarkIndexItemse豟 strTitle1屩` strTitle2嵵`GetIndexTitleSignleD礰Indexes垧` MarkEntry|2`Entry┫` EntryAutoText蒔`CrossReferencef鑐CrossReferenceAutoText=` BookmarkName'`Reading蛝`lblWid蜒`lblJD鈂`strZW裝`strFL鉥` strTempDui<` inCrementWid儝` inCrementCap+` strTitleArry苵`GetIndexTitleAll霡`GetIndexTitleBasedonUnTitlez絗inWidt `inCap`tempWid``tempCap堸`tbSum`flTbSum 羆 iTableCount笙`kb`celTablelJ`Cell瘔`celRangef`Start`myRange-` ListParas貜`ListParagraphsB塦myString`SetRange` ListString'7`str_Find斯` str_FindIn抈 str_FindText癢` int_Count詾` str_FindDot 臽ttM_`InsertTCSIndexhJ` WordBasic駫` FormatField僁`Field3`Locked `Replacef` wdReplaceAllu#`strNum+`lengthY腵strTempM` strZWZTitle筇` strFLZTitle痯`strTable﹔`strGraphq%`strNew)` strNewLength湜`flag淊`strF[5`strSh5` IsNumeric$*`ReSortIndexByAscend"`Unlink0` Documents`Activate梶` TextToTableS` ConvertFromT謄InitialColWidthO坄wdAutoPosition1昤Apply,齚AutoFit& ` SetDefault蠈`Word88` iTbleIndex:` iRowCount:瀈syType鏼`strItems情`orow`Row壪`Sort` ExcludeHeader` FieldNumber` SortFieldType0l`wdSortFieldSyllable莸` SortOrder4榒wdSortOrderAscending5K` FieldNumber282`SortFieldType2R轥 SortOrder2赌` FieldNumber392`SortFieldType3S轥 SortOrder3纺` Separator盺`wdSortSeparateByCommasG譧 SortColumng恅 CaseSensitive╱` LanguageIDㄡ`wdSimplifiedChineseWg`SubFieldNumber兽`SubFieldNumber20`SubFieldNumber31` strRange1]` strRange2]` strRange3]`InsertRowsAbove[癭 ConvertToText,衊wdSeparateByParagraphs ` NestedTables+礰RemoveSmartTags&o`ShowfrmDelIndex3`frmDeleteIndexS` DelIndexItems鸰`PrctTCS*郹 UnPrctTCSg竊DeleteDuplicateMenu `cbIndex蚊`cbString陊`wdActiveEndSectionNumber`CmdGZ廯CmdGZC幭`CmdLx51呃`CmdLx51C觸`CmdLx6C羆CmdGXGsC<` CmdCk_ClickYCtrl内` CancelDefault` CmdCkC_Click曶`Right ` CmdD_Clickm蝋 CmdDC_Click|穈 CmdDSl_Click-頯 CmdDSlC_ClickST`CmdBJSYX_Click'嘸CmdBJSYXC_Click鬲` CmdGXGs_Clickl}`CmdGXGsC_Click3`CmdPRINT_Clickbf`CmdPRINTC_Click秦`Dialogs娛`wdDialogFilePrintL`CmdPROTECT_Click叽`CmdPROTECTC_Click粋`CmdUNPROTECT_Click g`CmdPrtPreview_Clickk`CmdPrtPreviewC_Click耖` CmdSCSY_Click瀝`CmdSCSYC_Click= ` CmdSSl_Click*鏯 CmdSSlC_Click垆`CmdSLCONT_Clickz` CmdGS_Click~朻 CmdGSC_ClickdV` CmdGsGs_ClickX*`CmdGsGsC_Click` CmdFl_Clicka違 CmdFlC_Click 嘸FrmFL鶳` CmdFm_Click&` CmdFmC_Click眹` FrmChoice鷋`CmdGTitle_Click`CmdGTitleC_Click` CmdGZ_Click驦` CmdGZC_Click黌`ShellV譧vbMaximizedFocus` CmdJZ_Clickj?` CmdJZC_Click阘 ProtectedjQ`TxtFoot8/`TxtChg賎iSide硕` wdWebView)瞏wdPrintPreview炧`wdSeekFootnotesl `wdPaneFootnotes鴪`MoveEnd*誤frmJz淨`Pt筤`wdStyleFootnoteReference `ftG]` CmdLx1_ClickP` CmdLx1C_Click鈵` CmdLx2_Click%坄 CmdLx2C_Click 俙 CmdLx3_Click5繾 CmdLx3C_Click眰` CmdLx4_Click` CmdLx4C_ClickY僠 CmdLx41_Click&`CmdLx41C_ClickHo` CmdLx5_Click?` CmdLx5C_Click刞 CmdLx51_ClickV'`CmdLx51C_Click孖` CmdLx6_Click(嘸 CmdLx6C_Click﹦` CmdMc_Click悱` CmdMcC_Click>榒 FrmContent8繾 CmdQy_Click ` CmdQyC_Click荦`CmdSjTable_ClickCmdSjTableC_Click唆`CmdTBJZSM_Click`CmdTBJZSMC_Click醏CmdSTBJZSM_Click卄CmdSTBJZSMC_Click B` CmdYy_Click` CmdYyC_Clickmv` CmdSl_Clickh豟 CmdSlC_Click` CmdSy_Click` CmdSyC_Clickd瞏CmdTabTitle_Click`CmdTabTitleC_Click'`CmdTTitle1_Clicky``CmdTTitle1C_ClickW違CmdTTitle2_Click墭`CmdTTitle2C_Click違CmdTTitle3_Click櫺`CmdTTitle3C_Clickо`CmdTTitle4_Click`CmdTTitle4C_ClickO醏CmdTTitle5_Click鸒`CmdTTitle5C_Click麽`CmdTTitle1F_Click蓶` ChgToSong`CmdTTitle1FC_Click撵`CmdTTitle2F_Clickq梎CmdTTitle2FC_Click莁CmdTTitle3F_Click榒CmdTTitle3FC_Click桶`CmdTTitle4F_Click翗`CmdTTitle4FC_Click媊CmdTTitle5F_Clicki檂CmdTTitle5FC_ClickUe`LineUnitBefore4G` LineUnitAfter铖`LineSpacingRule阷`wdLineSpaceSingle硍` CmdZ_Click)` CmdZC_Clicki梎CmdZtitle_Click`CmdZtitleC_ClickJ檂 CmdZWZ_Click╙` CmdZWZC_Clickp@` CmdZWZZ_Click.訿CmdZWZZC_Click&蔪CmdZWZZF_Click慲CmdZWZZFC_Click"` CmdZZ_Clicki:` CmdZZC_ClickH絗CmdShowHelp_Click+`WIniK` msoButtonDown錔`CmdTwopage_Click:2`CmdTwoPageC_Click媑` CmdZZF_Click簍` CmdZZFC_Click"薫TdsApp_DocumentBeforeClosej `Doc槃`Documentj觍Cancel駱`Path2`TdsApp_WindowSelectionChange;鷃Self觍 LostFocusMS` SetFldNull 慲NewName#`mystart'`ChrW`iLenP`StdStr,w`ScrollIntoView4璥 FrmAddFoot:鷃cmdCancel_Click\誤 cmdOk_Click笣`TxtJZ`vbOKOnly醪` vbInformation瞡` txtJz_KeyDown涔`KeyCode順` ReturnInteger鍌`Shift潆` Cancel_Click` OptButton1铇`Value銴` OptButton2闃` OptButton3陿` OptButton4霕`UserForm_ActivateZs`aX` ProcessParent牲`Indx` LstContenti`SelectedYADstr7蔪GStrr靈 upDateCountY`RegStr$` ListCount6`List*揱 SaveSetting鼜`MCFld翑` RightIndent(` Hyphenation猔` OutlineLevel諝`wdOutlineLevelBodyText鳖`CharacterUnitLeftIndent渵`CharacterUnitRightIndent輯`#NoSpaceBetweenParagraphsOfSameStyle `TabStopsB腵ClearAll ーwdAlignTabRight旁`Leaderj╜wdTabLeaderDotsc鑐SpacingS黗 wdReplaceOne杗`LstContent_Change閝`TxtSel.`AddItem `frmDate;g`GetDC`hwnd/羆user32*蝋 ReleaseDC椨`hdce榒 GetDeviceCapsHw`nIndex'`gdi32i鸴 LOGPIXELSX夎` FindWindowK` lpClassName傋` lpWindowName╜ GetWindowLong/` SetWindowLong 鱜 dwNewLong忡` GWL_STYLE氒` WS_BORDERk芵 WS_CAPTION ` CreateRectRgn鵚`X1綺`Y1O_`X2縚`Y2P_` CombineRgn$`hDestRgn0謄hSrcRgn1g綻hSrcRgn2h綻 nCombineMode乣 DeleteObjectT`hObject` SetWindowRgn塛`hRgn要`bRedraw園`RGN_OR怙` PointToPixeln`GetSystemMetrics%` SM_CXSCREEN `DTPicker1_CloseUp厛` DTPicker1瘃`UserForm_Initialize5c`lc`tk`wm`h_`lPIXELSX&G`xo`StartUpPositiong鸴lStyle姜` vbNullString`ctl`hRgnAll2`hRgnCtl>`hrngall⑷`cmdFindNext_ClickA`txtIndex痎`Response棳`vbYesa?` cmdDeleteV璥cmdDelete_Click黗cmdDeleteAll_Click<`txtIndex_Change(` cmdFindNext盽 cmdDeleteAll]誤 FrmEditFoot.哷OriFoot +`IniLst肋`AddFooti禶lstJZ:╜ ListIndex鱍` lstJZ_Click*`OptGFG `txtTitle`txtTitle_Change龏`CmdOK'恅txtTitle_KeyDown榒SetFocus衿`frmFLBS*` FrmFootType碻OptAdd蚡cmdMark` cmdMark_Click膗`cmdMarkAll_Click 5` BackColor迌` Label6_Click` cmdMarkAll`鵣txtRow'*` txtColumn `txtColumn_KeyDown烔`txtRow_KeyPress`KeyAscii#`txtColumn_KeyPress障`UserForm_QueryClose` CloseMode責`Class籤Click娿`DocumentBeforeClose/`WindowSelectionChange` _B_var_Right9賎 _B_var_TrimmT` _B_var_ChrW` _B_var_LeftQ醏 _B_var_Mid韕`  9 %?] +!   S -$ % # 3 "9, . L/>xME(SPSSS0{25F9D1CA-F938-4AA3-B0BD-3FC2BA2BACD3}{8D1BD91B-8EC9-4359-AA7C-DFD1A6DCA058} " @  66@勵 开始  @勵   H@勵    @ %侢  %H@H@(H@XH@  "  (8"@ (Hp $x &  &(P`hp   0  8 H X B`       < 8 H X ` px  ( "  $(0@ P0`  4 ( 8H P`h 6p  "  2 0&@h px<   " 0 @P X h x "    x !('R A@rl pixeo@@"zle,200812-1,+1,防止对封面进行处理'Jzle,09-06-20,+begin,从开始查找 4!! 代替 . %,布  StandardName B@gi b B@2kk R  StandardName B@ b B@2'Rd R 'Rkxzle,09-06-20,+end !( !B@ !(崾^d xe "$ !d "$ 9d9 9q] !! !( R'R(该词没有在文中标记,是否删除新的索引项? TCS$' (dd0 A@rkd'R"已经完成删除,是否删除新的索引项? TCS$' (dd A@rkkdx ("k`"zle,200812-1,+1,防止对封面进行处理'Jo( !d'f'dA@ cmdDelete.Enabled = False'J !( !B@ !^d xe "$ !d "$ 9d9 9qX !! ("'R !(]"已经完成删除,是否删除新的索引项? $' (dd A@rkd0 ActiveWindow.View.ShowHiddenText = False ("k@'Jo0 !d'f'dA@, ActiveWindow.View.ShowHiddenText = False h该词在文中没有被标记为索引项A@d'R]0"已经完成删除,是否删除新的索引项? TCS$' (dd A@rkkoH !d$$ (" ("d (" (" ("kpoh (" (" ("o( 痰Attribute VB_Name = "frmDeleteIn@dex" 擝as0{25F9D1CA-F938-4AA3-B0BD-3FC2BACD3}{8D1BD91B-8EC9-4359-AA7C-DFD1A6D@CA058} dG lobal怱pacoFalse 奀reatablPredec$laId賂ru BExpose0TemplateDerivCustomiz婦 Option 1licit`P#' Sub cmdCancel_C@k() Act5Window.View.ShowHidde鄋TextcUg_SLFirs 0 Unloa坉 MuEnd55;F.N%<'zle,200812-1,+1,乐苟苑饷娼写鞢InProc8ess芓"09-06-20,+begin,从开始查找 f 8Document.FormFields.Count > 10 ThenC aIf S@Fo爊.Inf a罺(wdC:PageNumber)%1LAGoTo what:=wdBookm ark, 翜:="Standar~d@Key wdLin茾[ IfC/@1妅('I&>1D(鈐e g+ 弲JE=end 2赬胵!G!S. Clear酈atting Wit^h.$c"^d xe " + Chr(34) txt"檭&;` w=蔣 Wr$apwd StKK鬜K+ 1KK!bK2啽驥$鵸J燐xO6Qoa邖@遀oK"邚:KK楯_Js_J<+J颕/97) &熛盈1= ({P8 8屺3e餿eAl┛8 u$砗8238 攮鬊3qg_(摗= ;崱CZ "k鉰乲被鵄k为僯DTZ !*Q _'a_'_'ororB8'''ha'?''淿 懧_C`hangeE蓀 Trim(狧) <> ""2)崤d10+&Ok /坌"6$1&kXQ3U魋er";荃O墯 Vx 醩txtTitle   ( Ynx歔(Y)ll{u"媅SO ( N諷坢(N)ll{u"媅SO4F纮 {1N膲'`D朥_N5"媅SO4F纮 {0ND崣e'`D朥_N5"媅SO (鲖搹eQD朥_h槝 X5"媅SO葊r5"媅SOoICompObjPaVBFrameRfrmJz !3粶03粶0 Microsoft Forms 2.0 FormEmbedded Object9瞦VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FrmFL Caption = "附录选择" ClientHeight = 2760 ClientLeft = 45 ClientTop = 330 ClientWidth = 4125 StartUpPosition = 1 '所有者中心 TypeInfoVer = 13 End (H  @ }Y R 憦濄K窺fWo "\CompObj#`aVBFrameb恄宋体O(28lblJzitlX$4txtJzitl5$<cmdOkitlh ( <cmdCancelNw  ( 佽l匭筟\t;5"媅SO!H~5"媅SO ( Ynx歔(Y)\t`u"媅SO ( N諷坢(N)\t`u"媅SO Microsoft Forms 2.0 FormEmbedded Object9瞦VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmJz Caption = "条文脚注" ClientHeight = 2400 ClientLeft = 45 ClientTop = 450 ClientWidth = 4695 StartUpPosition = 1 '所有者中心 TypeInfoVer = 9 End $  }:R 憦濄K窺恄frmDate.&3粶03粶0fgQo%'CompObj(ia宋体 Microsoft Forms 2.0 FormEmbedded Object9瞦VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmDate Caption = "UserForm1" ClientHeight = 1020 ClientLeft = 45 ClientTop = 405 ClientWidth = 2355 StartUpPosition = 1 '所有者中心 TypeInfoVer = 1 End VBFramek frmFLBS+3粶03粶0fp o*,u(H  @} R 憦濄K窺恄宋体O( <CmdCancelY$POptZLh芉$<CmdOKh芉{$POptGFh芉{  ( N諷坢(N)\t{u"媅SO4F纮 {0ND崣e'`D朥_N5"媅SO ( Ynx歔(Y)\t{u"媅SO4F纮 {1N膲'`D朥_Y5"媅SO Microsoft Forms 2.0 FormEmbedded Object9瞦VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmFLBS Caption = "附录类型选择" ClientHeight = 1545 ClientLeft = 45 ClientTop = 450 ClientWidth = 4140 StartUpPosition = 1 '所有者中CompObj-zaVBFrame|#PROJECT)/FrmTable13粶03粶0心 TypeInfoVer = 4 End ID="{00000000-0000-0000-0000-000000000000}" Document=ThisDocument/&H00000000 Module=MdlTds Class=ClsTds BaseClass=FrmAddFoot BaseClass=FrmChoice BaseClass=FrmContent BaseClass=frmDate BaseClass=frmDeleteIndex BaseClass=FrmEditFoot BaseClass=FrmFL BaseClass=frmFLBS BaseClass=FrmFootType BaseClass=frmJz BaseClass=frmMarkIndex BaseClass=FrmTable BaseClass=frmUpDate HelpFile="" Name="TemplateProject" HelpContextID="0" VersionCompatible32="393222000" CMG="BDBF1152738F778F778A7C8A7C" DPB="F6F45A99AAEBFE08FE0801F8FF082ED1C95391810D41A0B4AC84C9565BC4A293F68437112AE5E9" GC="2F2D83E08520BF21BF21BF"[Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000[Workspace] ThisDocument=0, 0, 0, 0, C MdlTds=0, 0, 0, 0, C ClsTds=0, 0, 0, 0, C FrmAddFoot=0, 0, 0, 0, C, 25, 25, 1146, 526, C FrmChoice=0, 0, 0, 0, C, 50, 50, 1171, 551, C FrmContent=0, 0, 0, 0, C, 75, 75, 1196, 576, C frmDate=0, 0, 0, 0, C, 100, 100, 1221, 601, C frmDeleteIndex=0, 0, 0, 0, C, 125, 125, 1246, 626, C FrmEditFoot=0, 0, 0, 0, C, 150, 150, 1271, 651, C FrmFL=0, 0, 0, 0, C, 175, 175, 1296, 676, C frmFLBS=0, 0, 0, 0, C, 200, 200, 1321, 701, C FrmFootType=0, 0, 0, 0, C, 225, 225, 1346, 726, C frmJz=0, 0, 0, 0, C, 0, 0, 1121, 501, C frmMarkIndex=0, 0, 0, 0, C, 25, 25, 1146, 526, C FrmTable=0, 0, 0, 0, C, 50, 50, 1171, 551, C frmUpDate=0, 0, 0, 0, C, 75, 75, 1196, 576, C fmo02HCompObj3aVBFrame%(H  @} R 憦濄K窺恄宋体(28lblRowkx{, 28lblColumn\t{$0txtRowkx ( 0txtColumn\t "$<cmdOkwkxE( <cmdCancel\t E ( 鲖搹eQL坧eE5"媅SO( 鲖搹eQRpeEt5"媅SOH,{5"媅SOH,{5"媅SO ( Ynx歔(Y)\t{u"媅SO ( N諷坢(N)\t{u"媅SO Microsoft Forms 2.0 FormEmbedded Object9瞦VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FrmTable Caption = "表格设置选项" ClientHeight = 1695 ClientLeft = 45 ClientTop = 450 ClientWidth = 2400 StartUpPosition = 1 '所有者中心 TypeInfoVer = 23 End (H  @ } R 憦濄K窺恄宋体( POptButton1llO( LOptButton2llq( LOptButton3ll O( LOptButton4ll q$<CmdOK{(FrmChoice$@63粶03粶0fmo57CompObj8a;<Cancelq 4G纮,z{0tJ齎禰h芉5"媅SO0F纮E{0禰LNh芉5"媅SO0F纮{0N0W筫h芉5"媅SO0F纮M {0筫ONh芉5"媅SO ( Ynx歔(Y)llqOu"媅SO ( N諷坢(N)llqNu"媅SO Microsoft Forms 2.0 FormEmbedded Object9瞦VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FrmChoice Caption = "标准封面选项" ClientHeight = 1710 ClientLeft = 45 ClientTop = 330 ClientWidth = 4785 StartUpPosition = 1 '所有者中心 TypeInfoVer = 12 End $  }/R 憦濄K窺恄VBFrame&frmUpDate;3粶03粶0fo:<宋体O(20Label1tl(24Label2tl W(2,Label3tl(28Label4tlY"F'5"媅SO)蹚O5"媅SO"5"媅SO-10%Oa5"媅SOCompObj=aVBFrame(PROJECTlk9?fPROJECTwm Microsoft Forms 2.0 FormEmbedded Object9瞦VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmUpDate Caption = "正在进行更新……" ClientHeight = 510 ClientLeft = 45 ClientTop = 450 ClientWidth = 6915 StartUpPosition = 1 '所有者中心 TypeInfoVer = 4 End  膰嬨鴘M651A8940-87C5-11d1-8BE3-0000F8754DA1ThisDocumentThisDocumentMdlTdsMdlTdsClsTdsClsTdsFrmAddFootFrmAddFootFrmChoiceFrmChoiceFrmContentFrmContentfrmDatefrmDatefrmDeleteIndexfrmDeleteIndexFrmEditFootFrmEditFootFrmFLFrmFLfrmFLBSfrmFLBSFrmFootTypeFrmFootTypefrmJzfrmJzfrmMarkIndexfrmMarkIndexFrmTableFrmTablefrmUpDatefrmUpDate(H  @}+ R 憦濄K窺恄宋体O(2<Label1l{$<CmdOK1l( <CmdCancelN"$0TxtJZ1lE  , 佽l匭筟\t{5"媅SO ( Ynx歔(Y)\tEOu"媅SO (FrmAddFoot>JB3粶03粶0foACCompObjDa N諷坢(N)\tENu"媅SOH,"{5"媅SO Microsoft Forms 2.0 FormEmbedded Object9瞦VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FrmAddFoot Caption = "添加脚注" ClientHeight = 1710 ClientLeft = 45 ClientTop = 330 ClientWidth = 6375 StartUpPosition = 1 '所有者中VBFrame"FrmContentG3粶03粶0fioFH\ TypeInfoVer = 4 End (H  @ }'(R 憦濄K窺恄宋体$<CmdOKl"5%( <CmdCancelllg 5%(2@Label1(2@Label2E$0TxtSel{( 4LstContentll   ( Ynx歔(Y)ll{u"媅SO ( N諷坢(N)ll{u"媅SO$,貫剉顅!k匭筟 >5"媅SO$,颯 悇v顅!k匭筟 {5"媅SOH劕O5"媅SO`#u85"媅SO Microsoft Forms 2.0 FormEmbedded Object9瞦VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FrmCoCompObjIaVBFrame#FrmEditFootETL3粶03粶0fentent Caption = "目次选项" ClientHeight = 5910 ClientLeft = 45 ClientTop = 330 ClientWidth = 3360 StartUpPosition = 1 '所有者中心 TypeInfoVer = 10 End (H  @}&6R 憦濄K窺恄宋体(2<Label1ex'$<CmdOK1exu( <CmdCancelllu(2<Label2ex    !"#$%&'()+,-./01235789:<=>?@BCDEFHJKLMO$ 0TxtJZ2exqS$ 0lstJZ2exq  , 頞9e匭筟llq{5"媅SO ( Ynx歔(Y)llEOu"媅SO ( N諷坢(N)llENu"媅SO , 佽lRhllq{5"媅SOH,{5"媅SO`J5"媅SOoKMPCompObjNaVBFrame $FrmFootTypeQ3粶03粶0 Microsoft Forms 2.0 FormEmbedded Object9瞦VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FrmEditFoot Caption = "修改脚注" ClientHeight = 4530 ClientLeft = 45 ClientTop = 330 ClientWidth = 5640 StartUpPosition = 1 '所有者中心 TypeInfoVer = 21 End (H  @ }M R 憦濄K窺f oPRCompObjSaVBFrame(恄宋体O$<CmdOK佽l{( <CmdCancelN; $POptAdd鑜{$POptEditl;   ( Ynx歔(Y)\tEOu"媅SO ( N諷坢(N)\tENu"媅SO4G纮, {1tG鹠燫佽l5"媅SO4G纮,_{0燫頞9e佽l5"媅SO Microsoft Forms 2.0 FormEmbedded Object9瞦VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FrmFootType Caption = "脚注处理类型" ClientHeight = 1350 ClientLeft = 45 ClientTop = 330 ClientWidth = 3570 StartUpPosition = 1 '所有者中心 TypeInfoVer = 10 End frmMarkIndexOYV3粶03粶0f EoUW*`CompObjX4a(H  @.}-! R 憦濄K窺恄宋体 $0txtIndex {(28lblFindx{O$<cmdMarkx{q( <cmdCancelASq( @cmdFindNext{( @cmdMarkAllt q(28Label5kx (20Label1kx (2,lblWidkx (24 Label2kxF (28 lblJD2kx2  H, {5"媅SO( 錱~b匭筟\t5"媅SO ( Mh皨(M)\t{u"媅SO ( N諷坢(N)\t{u"媅SO$(F錱~b NNY(F) {u"媅SO$(Mh皨hQ钀(A)) {u"媅SO-0%SOOa5"媅SO"5"媅SO"5"媅SO)蹚5"媅SO-0%SO#a5"媅SO Microsoft Forms 2.0 FormEmbedded Object9瞦VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmMarkIndex Caption = "标记索引项" ClientHeight VBFrame6'frmDeleteIndex[3粶03粶0f;moZ\A` = 1545 ClientLeft = 45 ClientTop = 450 ClientWidth = 4815 StartUpPosition = 1 '所有者中心 TypeInfoVer = 46 End (H  @} y R 憦濄K窺恄宋体(28lblFind{O$0txtIndex {( <cmdDeletell{q( <cmdCancelllSq( @cmdFindNextl{( @cmdDeleteAll q ( 錱~b匭筟ll5"媅SOH, {5"媅SO ( M Rd(D)ll{u"媅SO ( N諷坢(N)ll{u"媅SO$(F錱~b NNY(F) {u"媅SO$(M Rd杊Q钀(A)) {u"媅SO Microsoft Forms 2.0 FormEmbCompObj]GaVBFrameI(CompObjNuedded Object9瞦VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmDeleteIndex Caption = "删除索引项" ClientHeight = 1665 ClientLeft = 45 ClientTop = 450 ClientWidth = 4650 StartUpPosition = 1 '所有者中心 TypeInfoVer = 8 End  F#Microsoft Office Word 97-2003 文档 MSWordDocWord.Document.89瞦