邢唷 F>? ?56789:;<=>?@ABCDE碼0筩薶肍m4 €]Jπ揿衴眣*=鸂h?+3qu€r?藽ヘB英 xu€r?藽ヘB英 ]Jπ揿衴眣MEd @SS S?j`|`?6k1 0? 8L(L6"P?LL? LLL*LLL*L>@ %*€# ( ??@ %*€%8 8 @@@ %*€'h @(0 AA@ %*€) H4` BB@ %*€- P@ CC@ %*€ XL DD@ %*€/(`X EE@ %*€UX  FF@ %*€1hdPGG@ %*€W€HH@ %*€3ppII@ %*€Y$JJ@ %*€5Hx|KK@ %*€7x€@LL@ %*€[0pMM@ %*€9NN@ %*€]<OO@ %*€;8PP@ %*€_hH0QQ@ %*€=`RR@ %*€aTSS@ %*€?TT@ %*€c(`UU@ %*€AX VV@ %*€elPWW@ %*€C€XX@ %*€g xYY@ %*€IZZ@ %*€mH8[[@ %*€Kx@\\@ %*€o@p]]@ %*€M^^@ %*€qH__@ %*€E8``@ %*€ih(0aa@ %*€G0`bb@ %*€kPcc@ %*€OXdd@ %*€s(`ee@ %*€QXh ff@ %*€upPgg@ %*€Sx€hh@ %*€€ii@%*€3jj@ ` P )凅px%i凈 €  ` $)凅%i凈 € ` `()凅€%i凈 € 0` , )凅%i凈 € ` p0)凅%i凈 € @` 4)凅 %i凈 € ` €8)凅%i凈 € P` <)凅(0%i凈 € ` @)凅%i凈 € ` ` D )凅8@%i凈 €   ` H )凅%i凈 €  p ` (L )凅HP%i凈 €  ` P )凅%i凈 € €` 8T$)凅X`%i凈 € ` X:)凅%i凈 € ` H\G)凅hp%i凈 € ` `L)凅%i凈 € ` Xdd)凅x€%i凈 € (` h h)凅%i凈 €  ` hlq)凅%i凈 € "8` py)凅%i凈 € $` xt})凅%i凈 € &H ` x )凅 ( %i凈 € ( ` |)凅 %i凈 € *X!` !€ )凅0!8!%i凈 € ,?` ?)凅??%i凈 € .h"` ")凅@"H"%i凈 € 0?` ?)凅??%i凈 € 4x#` 0#9)凅P#X#%i凈 € 6$` ?>)凅??%i凈 € :?` @$K)凅`$h$%i凈 € <%` ?O)凅??%i凈 € >? ` P% W)凅p%x%%i凈 € @ &!` ?! [)凅?&%i凈 € F?"` `&"e)凅€&?%i凈 € H?#` ?#j)凅''%i凈 €`凧 `凩`凬`凱 d($` ?$)凅??%i凈 € f?%` X(%)凅x(€(%i凈 € h()&` ?&%)凅))%i凈 € j?'` h)'))凅??%i凈 € l8*(` ?(1)凅**%i凈 € n?)` x*)5)凅??%i凈 € pH+*` +*=)凅 +(+%i凈 € t?+` ?+A)凅??%i凈 € vX,,` ,,I)凅0,8,%i凈 € r?-` ?-L)凅??%i凈 € xh-.` -.T)凅@-H-%i凈 € |?/` ?/ X)凅??%i凈 € ~x.0` 0.0a)凅P.X.%i凈 € z/1` ?1e)凅??%i凈 € €?2` @/2m)凅`/h/%i凈 € 03` ?3 p)凅??%i凈 € ?4` P04z)凅p0x0%i凈 € 815` ?5)凅?1%i凈 €`勨 ?6` x16)凅??%i凈 € `27` 27QQ)凅 2(2%i凈 €`勣 ?8` ?8)凅??%i凈 € p39` (39 )凅H3P3%i凈 € ?:` ?:)凅??%i凈 € €4;` 84 ;)凅X4`4%i凈 € 5<` ?< )凅??%i凈 € ?=` H5= )凅h5p5%i凈 € 6>` ?>)凅??%i凈 € ??` X6?HH)凅x6€6%i凈 €`勣 @7@` ? @])凅7 7%i凈 € ?A` €7$Aa)凅??%i凈 € P8B` 8(Bi)凅(808%i凈 € ?C` ?,C n)凅??%i凈 € `9D` 90Dw)凅89@9%i凈 € ?E` ?4E {)凅??%i凈 € p:F` (:8F)凅H:P:%i凈 € 鼹G` ?<G)凅销?%i凈 € €;H` 8;@H)凅X;`;%i凈 € <I` 葵DI)凅啕琨%i凈 € 忺J` H<HJ)凅h<p<%i凈 € =K` 宵LK)凅稂鼽%i凈 € 燒L` X=PL)凅x=€=%i凈 € (>M` 啐TM)凅>>%i凈 € ?N` h>XN)凅圑怇%i凈 € 8?O` 稔\O )凅??%i凈 € ?P` x?`P)凅??%i凈 € H@Q` @dQ)凅 @(@%i凈 € 蠤R` 園hR)凅ˊ癅%i凈 € XAS` AlS)凅0A8A%i凈 € 郃T` 楢pT)凅窤繟%i凈 € hBU` BtU)凅@BHB%i凈 € 養V` ˙xV )凅菳蠦%i凈 € xCW` 0C|W)凅PCXC%i凈 € DX` 窩€X")凅谻郈%i凈 € 圖Y` @DY6)凅`DhD%i凈 € 菵Z` Z< PE[` E[K)凅(E0E%i凈 € 谽\` 怑\S)凅癊窫%i凈 € `F]` F]X)凅8F@F%i凈 € 鐵^` 燜^ \)凅繤菷%i凈 € pG_` (G_e)凅HGPG%i凈 € 鳪`` 癎`m)凅蠫谿%i凈 € €Ha` 8Haq)凅XH`H%i凈 € Ib` 繦by)凅郒鐷%i凈 € 怚c` HIc})凅hIpI%i凈 € Jd` 蠭d)凅餓鳬%i凈 € 燡e` XJe)凅xJ€J%i凈 € (Kf` 郕f)凅KK%i凈 € 菿g` hKg)凅圞怟%i凈 €`匂  hLh` Lh)凅(L0L%i凈 €`匂  Mi` ↙i,,)凅萀蠰%i凈 €`匂  怣j` HMj)凅hMpM%i凈 €  Nk` 蠱k)凅餗鳰%i凈 €  燦l` XNl) xN€N%i  €  m`萓o郚m )  O%`勡汘` 橚 ` 桛 ` 慆  岨€O %`剎婠`劼hV?` O?` ?€?P鐿%x 0ph"? HP8 怚()p3@/8 xX,$81H ?養€4???x ?8 蠤hL8h ( ?H+`F(Kp:??N``9h 8??忺%XA菿??H HxCXP`2燦 怣(谽8鐵0?x#hD(xx(pG(鳪@7 8*X燡 x.MXX!(H8 ( X   €H??8(??鼹=X &H<(> 郃H h5圖菵Jh?h-€;PE??(xH@?燒h?8??IhhB 8€XX6凗XU$%Y`j@€║€Y )?燯€窸圤POhO燨8O蠴 O萔癡燱蠾繶豖Y(\豜圴  x€V€%0YhV4"JL$ @?郪t  @?鳹p @?xXl  @?Wh @?(Wd @?@W` @?XW\ @?pWX @?圵T @?h[P @?竁@  @?鑇0  @?0X   @?X  @?X  @?HX瘙  @?怷帼  @?`X玄  @?╔俐  @?餢件  @?鑉  @?pY滯  @?堽  @?匎 @?€?  ?@Y|?(Y`P%`YY?鳾x?XY`P%\@Y&@?圷h?  @?燳X?  @?竃H?  @?衁8?  @?Z(?  @?Z?  @?0Z?  @?繸  @?HZ椠  @?`Z佚  @?xZ三  @?怹庚  @?╖  @?豘橗  @?餤堼  @?[x?  @?h?  @? [X?  @?8[H?  @?8?  榁<&HT@?€[4? @?榌0? @?癧,? @?萚(? @?郲$? @? ? ?圽?\`P%@\鳾{@?P\? h\(\~@?竆? x\P\~╘P\?] ?燶`P%衆圽@?郳 ? 鳿竆@?H]? ]郳8]郳?╙?0]`P%`]]@?p]? 圿H]@?? 榏p]萞p]?繻`\%╙P[X V>"nnk鐿燦鐿0UFP黗*\R3*#15e*\R1*#16f*\R3*#15e*\R1*#172*\R1*#256$*\Rffff*0W60fc1214*\R1*#176*\R1*#16e*\R1*#2ee*\R1*#2d0*\R1*#173$*\Rffff*0U60fc1211*\R0*#f$*\Rffff*0V60fc1214*\R1*#197*\R1*#198*\R1*#1dd*\R1*#1de*\R1*#1df*\R1*#254*\R1*#174*\R1*#60遧4<hDL(T\dHlt|hH8XXx8 (x$,48<hDLT\dHlxt | ( X    (X 8 h  H x  $ , 4 <8 Dh L T \ dXlt|Hh(H(x8 X$8,h4<xDLT\d(lXt|€ €€ 0€@€ X€h€ €€€ €€ €€ €€ €0€ P€`€ €€€ €€ €€ € "€0€ H€ *X€€ € € € € €€ € €€ € (€ 8€ H€ €X€ x€ € € € €€ € € € € €€ (€ 8€ H€ X€ €h€ €€ €€ € € €€"€ €0€"P€ x€ €€ € € € € € € €€ (€ €8€ P€ €`€ x€€ €€ €€ €€ € €€ 0€@€ X€h€ €€ €€ € €€ € €€ € €€ € €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€ ?€ ?€ *1€ (@1€ h1€ x1€ f€1€ ?€ 2€ * 2€ (P2€ x2€ ?€ f?€ ?€ 3€ *03€ (`3€ ?€ ?€ ?€ f?€ 4€ 04€ *H4€ (x4€ ?€ € d?€ ^5€ x5€ ?€ ?€ ?€ ?€ ?€ "  66 6€ € ,(6"  X60`6????(?? ?77€ 7€ (7"  @7H7X7€ `7"  €70??????€ ?"  ??8€ ,8"  @80H8x8€8?*?<?9€ € 9"  9(989€ € 0@9"  p9x90€9???€ 6?:: ,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`HhH€pHxH怘€ 楬€ € 癏"  繦菻豀€ "  郒0鐷I I(I0I8I€ "  @IHIXI€ "  `I0hI業營↖癐窱€ "  繧菼豂€ "  郔0鐸J J(J0J8J€ "  @JHJXJ€ "  `J0hJ楯燡↗癑窲€ 繨"  豃郕餔"  鳭0K0K8K@KHKPK€ XK"  hKpK€K€ 圞"  楰0燢蠯豄郖€ 鐺L€ € L"  L(L8L€ @L"  XL0`L怢楲燣↙癓€ "  窵繪蠰"  豅0郘MM M(M0M€ € € 8M"  HMPM`M€ ,hM€ 楳"  ∕0癕郙鐼餗鳰€N0N HN XN`N€ *hN楴∟ 癗繬€ 萅€ € 郚"  餘鳱O€ € ,O"  @O0HOxO€O圤€怬極燨€ (窸郞€ 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"  0W08WhWpWxW€W圵€ 怶€ "  ╓癢繵€ € 萕"  豔郬餡€ ,鳺"  (X00X`XhXpXxX€€X圶€ (燲萖€ 鑈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€ "  hepe€e€ "  坋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"  0j08jhjpjxj€j坖€ 恓"  ╦癹纉€ € 萰"  豭鄇餵€ 鴍"  k0kHkPkXk`khk€ € 0pk"  爇0╧豮鄈鑛餶鴎€ "  lll€ "  l0(lXl`lhlplxl€ "  €l坙榣€ "  爈0╨豯鄉鑜餷鴏€ "  mmm€ . m€ € € Pm"  `m0hm榤爉╩癿竚€ 續"  豰鄊餸€ € 鴐"  n€n n 0n@nHn Pn`nhn€ pn€ € xn"  恘0榥萵衝豱€鄋鑞鴑 oo o (o€ 8oPo`ohopo€ 4xo"  皁0竜鑟餺鴒€ppp p0p@p Hp€ Xppp€p坧恜€ 榩€ € 皃€ 衟€ f鑠€ 6Pq€ 坬€ 榪€ 0爍€ f衠€ ^8r€ 榬€ 竢€ 豶€ 鑢€ ,s€ &8s€ `s€ €s€ (恠€ 竤€ 豷€ 鑣€ 鴖€ t€ € (t"  8t0@tptxt€t坱恡€ 榯"  皌竧萾€ "  衪€ ,豻8u@uHu€ Pu€ € Xu€ &xu€ B爑€ 鑥€ 2v€ €8v€ "竩€ 鄓€ 鴙€ w€ ,w€ X@w€ "榳€ 纖€ 豾€ 鑧€ "  鴚x€ *x88xpxxxT€x€ 豿鄕鑨 饃鴛€y€y€y y€ (y€@y€Hy€ Py€ (5Xy€  a€y "爕 皔纘 葃 )衴€ 鑩€ ,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€€ 悐"要素及排版"按钮s] 蚰4封面at] 蚰8al\] 蚰h4目次16] 蚰5B3] 蚰4前言] 蚰] 蚰(4引言] 蚰X] 蚰4附录] 蚰] 蚰4参考文献] 蚰] 蚰H4索引] 蚰x] 蚰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示例] 蚰(] 蚰X7多示例] 蚰] 蚰7首示例] 蚰] 蚰7示例内容] 蚰H7正文注] 蚰x] 蚰7正文注×] 蚰] 蚰7正文首注] 蚰8] 蚰h7图表注] 蚰] 蚰7图表注×] 蚰] 蚰(7图表首注] 蚰X] 蚰7条文脚注] 蚰] 蚰7图标题] 蚰] 蚰H7表标题] 蚰x] 蚰7插入表格] 蚰] 蚰7图表的脚注说明] 蚰8] 蚰h7图的首脚注说明] 蚰] 蚰7插入公式] 蚰] 蚰(7公式编号] 蚰X] 蚰7更新公式] 蚰zle,09-06-17,*beginEPublic 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 '附录四级标题GPublic WithEvents CmdFlTTitle5 As CommandBarButton '附录五级标题 '附录非标题HPublic WithEvents CmdFlTTitle1F As CommandBarButton '附录一级标题HPublic WithEvents CmdFlTTitle2F As CommandBarButton '附录二级标题HPublic WithEvents CmdFlTTitle3F As CommandBarButton '附录三级标题HPublic WithEvents CmdFlTTitle4F As CommandBarButton '附录四级标题HPublic WithEvents CmdFlTTitle5F As CommandBarButton '附录五级标题CPublic WithEvents CmdFlBs As CommandBarButton '附录标识BPublic WithEvents CmdShowHelp As Office.CommandBarButton '显示帮助'增加附录公式和公式格式按钮-Public WithEvents CmdFlGS As CommandBarButton/Public WithEvents CmdFlGsGs As CommandBarButton '插入索引-Public WithEvents CmdCRSY As CommandBarButton.Public WithEvents CmdCRSYC As CommandBarButtonzle,09-06-17,*end] 蚰参考文献  Aop V 4!!$(预览)'VA@>k A@o段   Ao V 4!!$(预览)'VA@>kA@ozle,2008-7-18,增加多个示例0 V 4!!$(预览)'VA@>kA@o多个示例快捷按钮  Aozle,2008-10-4,+增加标记索引项@  Ao V 4!!$(预览)'VA@>k8A@o(zle,09-06-07,*begin 插入索引内容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)W If g_ZMFirst = 1 And Right(ActiveDocument.ActiveWindow.Caption, 4) <> "(预览)" Then g_ZMFirst = 0 ProcessEdit End If3 If ActiveDocument.Bookmarks.Exists("BKSY") Then Else' MsgBox "请先插入“索引”页面！" Exit Sub End If ProcessIndexFormatEnd Subzle,09-06-17,*endzle,2008-11-2,更新公式按钮P  Ao  V 4!!$(预览)'VA@>k A@o zle,09-06-26,+增加"打印"按钮`  A oP >@ ,zle,090709,+begin 增加书签，以便回到原来位置 4! !PRTBKC@ 99q zle,090709,+end V 4!!$(预览)'VA@>k` A@4 处理封面为打印状态，不允许在编辑zle,090709,+4,回到原位PRTBK 4!% PRTBK B@PRTBK 4%B@k  6%B@'V|€>x打印机错误,请检查打印机TCSA@o@ zle,窗体保护p V 4!!$(预览)'VA@>kA@ 要素及排版$!€ 0!(取消保护 0!(k€ox V 4!!$(预览)'VA@>k( !A@ Ctrl.State = msoButtonUp保护文档 0!( (d" Ctrl.State = msoButtonDownA@取消保护 0!( (kXoPzle,取消窗体保护€ V 4!!$(预览)'VA@>kA@ 要素及排版$!€保护文档 0!( (ko zle,打印预览  AoP*zle,2008-10-4,+begin, 增加打印预览快捷按钮 V 4!!$(预览)'VA@>k,zle,090709,+begin 增加书签，以便回到原来位置 4! ! PRTVIEWTCSC@ 99qHzle,090709,+endA@4 处理封面为打印状态，不允许在编辑A@ PRTVIEWTCS 4!%  PRTVIEWTCS B@ PRTVIEWTCS 4%B@k'Voxzle,2008-10-4,+end 删除索引项  Ao0 删除索引项 V 4!!$(预览)'VA@>kA@o 增加首示例( V 4!!$(预览)'VA@>k`A@oP  A o0 增加示例内容8A@o!zle,2008-8-17,+begin,增加正文公式 V 4!!$(预览)'VA@>kA@roxzle,2008-8-17,+endzle,2008-12-2,+增加公式快捷按钮H  A&o%zle,2008-8-17,+begin,增加正文公式格式 V 4!!$(预览)'VA@>kA@ozle,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 = 0 ProcessEdit End If InsertEquationEnd Sub'zle,2008-8-17,+end&'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 = 0 ProcessEdit End If InsertFlGsGsEnd Sub'zle,2008-8-17,+endzle,09-06-17,*end插入附录?  A0o%zle,2008-9-26,+begin,增加附录快捷按钮h" V 4!!$(预览)'VA@>k  2B@ozle,2008-9-26,+endzle,09-06-17,附录标识,*beginZPrivate 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 = 0 ProcessEdit End If InsertFlBsEnd Subzle,09-06-17,*endzle,09-06-17,附录表标题，*begin^Private Sub CmdFlBTitle_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 InsertFlBTitleEnd Subzle,09-06-17,*endzle,09-06-17,附录图标题，*begin^Private Sub CmdFlPTitle_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 InsertFlPTitleEnd Subzle,09-06-17,*endzle,09-06-17,*begin'条标题_Private Sub CmdFlTTitle1_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 InsertFlTTitle1End 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 = 0 ProcessEdit End If InsertFlTTitle2End Sub_Private Sub CmdFlTTitle3_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 InsertFlTTitle3End 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 = 0 ProcessEdit End If InsertFlTTitle4End 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'附录非条标题`Private Sub CmdFlTTitle1F_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean) InsertFlTTitle1 ChgToSong# 'zle,2008-10-8,+1，修改为无标题" Selection.Style = "附录一级无"End Sub`Private Sub CmdFlTTitle2F_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean) InsertFlTTitle2 ChgToSong# 'zle,2008-10-8,+1，修改为无标题" Selection.Style = "附录二级无"End Sub`Private Sub CmdFlTTitle3F_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean) InsertFlTTitle3 ChgToSong# 'zle,2008-10-8,+1，修改为无标题" Selection.Style = "附录三级无"End Sub`Private Sub CmdFlTTitle4F_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean) InsertFlTTitle4 ChgToSong# 'zle,2008-10-8,+1，修改为无标题" Selection.Style = "附录四级无"End Sub`Private Sub CmdFlTTitle5F_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean) InsertFlTTitle5 ChgToSong# 'zle,2008-10-8,+1，修改为无标题" Selection.Style = "附录五级无"End Sub^Private Sub CmdFlZTitle_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 InsertFlZTitleEnd Subzle,09-06-17,*end?  A6o %zle,2008-9-26,+begin,增加封面快捷按钮x# V 4!!$(预览)'VA@>kX 4!! 已经插入封面，不可以再次插入！A@d 8B@kozle,2008-9-26,+end图标题正文、附录$  A<o图标题正文、附录快捷按钮? V 4!!$(预览)'VA@>k0A@o 规则%  A@o%zle,2008-9-26,+begin,增加规则快捷按钮? V 4!!$(预览)'VA@>kpTCSGraphicPath$€' \IEXPLORE.EXE   \TdsHelp.htm DA@Bo 添加条文脚注 &  AHo)zle,2008-9-26,+begin,增加条文脚注快捷按钮?>€ V 4!!$(预览)'VA@>k80zle,2008-12-25,+，当光标在封面时，不允许增加脚注 4!! . %,"请将光标移除封面，再进行脚注的增加A@|kkzle,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@l !!!l  !!!l R !!!l T V !(dp X !(kX %!B@H p B@Z'\ \B@'\ b$$ !(d !!!l  !!!l R !!!l T  !(d€ %B@Bk`'b'P^Hd@ p B@lk d p B@lk2.光标是在脚注编号的中间 p f B@l !脚注引用 !!d) p B@l !!!l  !!!l R !!!l T V !(d X !(k %!B@H p B@Z'\ \B@'\ b$$ !(d !!!l  !!!l R !!!l T  !(d %B@Bk?'b'P^?d? p B@nk?d? p B@nk?3.光标是在脚注编号的右侧 p f B@l !脚注引用 p B@l  !!!l  !!!l R !!!l T V !(d服 X !(k燓 %!B@H p B@Z'\ \B@'\ b$$ !(d  !!!l  !!!l R !!!l T  !(d驱 %B@Bk?'b'P^忼d圐 p B@nkh=说明是要进行增加脚注 P Selection.MoveLeft , 1) Selection.MoveRight , 3, wdExtend- If Selection.Footnotes.Count > 0 Then(' 'zle,2008-12-9,注释掉弹出框b' TxtFoot = InputBox("请修改后脚注内容", "修改脚注", Selection.Footnotes(1).Range.Text) frmJz.Show\ If Trim(g_SYGS) <> "" And Trim(g_SYGS) <> Selection.Footnotes(1).Range.Text Then@ Selection.Footnotes(1).Range.Text = Trim(g_SYGS) End If" Selection.MoveLeft , 1# Selection.MoveRight , 1 Else#' Selection.MoveLeft , 1$' Selection.MoveRight , 1B TxtFoot = InputBox("请输入新脚注内容", "添加脚注", "") \B@ b$$ !!d B@lk?)d B@  f B@l ` ( B@l ! 4!%.b f B@l B@ b$$ B@   !(k?'b End Ifk?zle,2008-12-23,+end^ J保护窗体 4%(  4!!  4%(08 zhangcheng l 4B@ 要素及排版$!€ 0!(取消保护 0!(k?k?'J|?>?请正确选中内容A@oh7zle,2008-9-26,+end列项?  Afo 7( V 4!!$(预览)'VA@>k?A@ o??  Ajo?() V 4!!$(预览)'VA@>kP6A@o@6?  Ano 68* V 4!!$(预览)'VA@>k?A@o??  Aro?H+ V 4!!$(预览)'VA@>kP5A@o@5首字母列项快捷按钮?  Ato5X, V 4!!$(预览)'VA@>k?A@o?数字列项?  Azox4 首数字列项h- V 4!!$(预览)'VA@>k4 InsertLx51o?首数字列项快捷按钮?  A|o?数字列项快捷按钮x. V 4!!$(预览)'VA@>kX3A@oH3/  Ao(3? V 4!!$(预览)'VA@>k?A@o?目次0  Ao?%zle,2008-9-26,+begin,增加目次快捷按钮目次? V 4!!$(预览)'VA@>k2BKML 4!%] 1本文已有目次，是否更新？   $'  |?k?#zle,2008-10-10,+1,目次更新的次数加1 ` '`kP1 B@o81zle,2008-9-26,+end前言81  Ao?%zle,2008-9-26,+begin,增加前言快捷按钮? V 4!!$(预览)'VA@>kp0]H2'JBKQY 4!%"zle,2009-1-9,+begin,判断是不是误删 BKQY B@说明确实存在 前言 !前言、引言标题本文已经插入前言，不能重复插入A@'J|?*说明是误删了“前言”，导致 前言的 格式丢失dX//判断“引言”存在,则将前言的内容删除到 引言 为止BKYY 4!%BKQY 4%!0 0BKYY 4%!0 4%. B@H B@1判断“引言”不存在,则将前言的内容删除到 正文 为止dX.BKQY 4%!0 0 StandardName 4%!0 4%. B@H B@k?k?zle,2009-1-9,+endk? StandardName'BKYY 4!%BKYY'   B@ B@^ B@4 B@lBKML 4!%e StandardName'   B@ B@^ B@l B@4d?   B@A@Lkh,前言、引言标题 4% (前d B@ "zle,2008-10-10,+2,空两个汉字的距离  B@  B@言d B@  B@^ B@n  f B@n 4! !BKQYC@ 99q(+ B@^ B@2BKYY 4!% B@4d? B@4 B@l B@4k?'Jo?zle,2008-9-26,+end+zle,2008-7-23,+begin 增加设计表格的触发函数`2  Ao *? V 4!!$(预览)'VA@>k?A@Po?zle,2008-7-23,+end!zle,2008-9-22,+begin,图表脚注说明p3 V 4!!$(预览)'VA@>k0)A@o )?  Ao)#zle,2008-9-22,+begin,图表首脚注说明€4 V 4!!$(预览)'VA@>k€(A@op(zle,2008-9-22,+end5  Ao8(引言?  Ao(%zle,2008-9-26,+begin,增加引言快捷按钮6 V 4!!$(预览)'VA@>k?'J]?BKYY 4!%"zle,2009-1-9,+begin,判断是不是误删 BKYY B@说明确实存在 引言 !前言、引言标题本文已经插入引言，不能重复插入A@'J|?*说明是误删了“引言”，导致 引言的 格式丢失dp&BKYY 4%!0 0 StandardName 4%!0 4%. B@H B@k?zle,2009-1-9,+endk? StandardName'   B@BKQY 4!% B@2  B@h Selection.HomeKey B@l B@4BKML 4!%e StandardName'   B@ B@^ B@l B@4d?   B@A@Lk`$前言、引言标题 4% (引d B@ "zle,2008-10-10,+2,空两个汉字的距离  B@  B@言d B@  B@^ B@n  f B@n 4! !BKYYC@ 99q # B@^ B@2BKQY 4!% B@ld? B@4 B@lk? B@4'Jo?zle,2008-9-26,+end示例?  Ao@"示例@7 V 4!!$(预览)'VA@>k?A@o?索引?  Ao?%zle,2008-9-26,+begin,增加索引快捷按钮P8 V 4!!$(预览)'VA@>k !A@o!zle,2008-9-26,+end表标题正文、附录?  Ao 表标题正文附录快捷按钮`9 V 4!!$(预览)'VA@>kP A@o@ 一级条标题?  Ao 一级条标题快捷按钮p: V 4!!$(预览)'VA@>kA@o 二级条标题鼹  Aoh二级条标题快捷按钮€; V 4!!$(预览)'VA@>kA@o 三级条标题<  Ao三级条标题快捷按钮忺 V 4!!$(预览)'VA@>kXA@oH 四级条标题=  Ao四级条标题快捷按钮燒 V 4!!$(预览)'VA@>kA@o 五级条标题(>  Aop五级条标题快捷按钮? V 4!!$(预览)'VA@>kA@o非标题条8? V 4!!$(预览)'VA@>kzle,090812,+3 |hk`A@A@zle,090702,+5 ! 一级条标题一级无 (d 附录一级无 (ko?  AoH@ V 4!!$(预览)'VA@>k`zle,090812,+3 |0k(A@A@zle,090702,+5 ! 二级条标题二级无 (d 附录二级无 (ko蠤  AoxXA V 4!!$(预览)'VA@>k(zle,090812,+3 |kA@A@zle,090702,+5 ! 三级条标题三级无 (d 附录三级无 (kho`郃  Ao@hB V 4!!$(预览)'VA@>kzle,090812,+3 |kA@A@zle,090702,+5 ! 四级条标题四级无 (dP 附录四级无 (k0o(養  AoxC V 4!!$(预览)'VA@>kzle,090812,+3 |k€A@A@zle,090702,+5 ! 五级条标题五级无 (d 附录五级无 (koD  Ao将非标题条的字体变为宋体圖>宋体 %!!r(zle,2008-10-7,+设置段落前后间距 %!!99 9q|>保护区域不能设置样式A@o注菵 V 4!!$(预览)'VA@>k€A@<op注 的快捷按钮PE  Ao8章标题谽  Ao章标题快捷按钮`F V 4!!$(预览)'VA@>kA@o*zle,09-06-13,+begin,增加正文注，注×，首注鐵 V 4!!$(预览)'VA@>kA@opG  Ao鳪 V 4!!$(预览)'VA@>kA@o€€H  Ao`I V 4!!$(预览)'VA@>kA@o怚  Ao(zle,09-06-13,+end,增加正文注，注×，首注注×J V 4!!$(预览)'VA@>kPA@@o@多注的快捷按钮燡  Ao 是否显示帮助(K]癒 !   (':d  (':ko是否进行双面排版菿 V 4!!$(预览)'VA@>k ]PL ! A@:  (  0!(d  (zle,2008-11-24+1  0!(A@(ko-zle,2008-10-4,+begin,增加“双面排版”快捷按钮hL V 4!!$(预览)'VA@>k]餖 ! A@:  (  0!(d  (zle,2008-11-24+1  0!(A@(kpohzle,2008-10-4,+endzle,09-06-17,*begin'是否显示打印状态_Private Sub CmdPrtStatus_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)/ Call CmdTwoPageC_Click(Ctrl, CancelDefault)End 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 ProcessEdit End If Dim WIni As Boolean& If Ctrl.State = msoButtonDown Then Ctrl.State = msoButtonUp ProcessEdit Else" Ctrl.State = msoButtonDown ProcessPrint End IfEnd Subzle,2008-10-4,+endzle,09-06-17,*end首注M V 4!!$(预览)'VA@>kx A@Boh 首注的快捷按钮怣  Ao0 N&解决与word文档进行切换时关闭不保存问题 4! \ 4! "! \ "! | k o Private Sub TdsApp_Quit() Dim cmbNewMenu As CommandBar; Set cmbNewMenu = ActiveDocument.CommandBars("Menu Bar")'退出删除菜单, For Each ctlPopup In cmbNewMenu.Controlsy 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 NextEnd Sub燦$zle,2008-12-9,+3自己的只能调用自己的 4! \ 4! "! \ "! |k€ 4!$.tcs 4!$.TCS 4!TCS.SYSd |k J'J]O] O8O]PO' zle,2008-11-13,+2,]hO]圤'   %!2只处理封面情况 !! 4%.  !!'x x|8k0 x  %判断是否无模式窗体打开& If (g_rowNum = 1) Then g_rowNum = 0$ Unload UserForm1 End If&上次域失去焦点时，如果为空则设为缺省值 L5 L$$ L 4%5$$5*!09k<zle,2008-11-24,+begin,增加对代替和完成日期、备案号的特殊处理5DT5$$代替 $ GB/T5$$代替5$$代替 $ DB5$$代替 $ Q/9kk5WCRQ5$$（本稿完成日期：）9khk`5BAH5$$备案号：9k kzle,2008-11-24,+endqd' k5' &当前域得到焦点，如果是点击此处则置为空5$点击此处9kp标准编号，去掉其中的XXXXX*zle,2008-11-24,+begin,如果是代替则特殊处理5DT5#zle,2009-5-22,+1,判断是否是国家标准 <A@&k'zle，2009-1-8，在判断一次是否是国家标准 H代替 $ GB/T 9 He代替 9 He代替 $ DB 9 He代替 $ Q/ 9k L$StdNo B@2kxkpzle,2008-11-24,+end>zle,2008-11-27,+begin,如果是发布日期实施日期，则将光标置于末尾5FY5XXXX5FM5XX5FD5XX5SY5XXXX5SM5XX5SD5XX9k8zle,2008-11-27,+end5c155c255c355c455c555c655fm5 B@2k8~.zle,2008-11-24,+begin,如果是完成日期则特殊处理5WCRQ5（本稿完成日期：）9 B@2 B@lk榼zle,2008-11-24,+end5BAH5备案号：9 B@2k0}zle,2008-11-24,+end]燨']窸' '  $StdNo0]蠴StdNo0 4%5' 5*!€'     $X  $x  'k |      X$T'  9k貃q衶k葅  $StdNo1StdNo1 4%5' 5*!€'     $X  $x  'k{      X$T'  9k纙q竮 HStdNo1 4%!' kxzkpzkhz  $StdNo2StdNo2 4%5' 5*!€'     $X  $x  'k▂      X$T'  9k`yqXyStdNo2 4%!' k(y.zle,2008-10-14,*1,让光标的位置置于所点击的地方$ Selection.EndKeyk竫q皒d▁' k榵处理标准名称及页眉  L$StdNo2如果是标准编号则处理页眉和页脚  StdNo LStdNo  StdNo LStdNo A@ B@2k皐 ! B@ k恮 LStdName+!如果是标准名称 则修改正文标准名称(zle,2008-11-26,+begin,获得当前光标的位置   4!BZ !C@9 9q葀d纕  'Xk皏zle,2008-11-26,+endA@  ! B@ khvk`v标准名称及页眉处理结束  'Ld(v  'Lkv'Jkv V 4!!$(预览)|衭k萿 V 4!!$(预览)'VA@>k€uoxupu沓Attribute VB_Name = "Cls@Tds" 鐱ast0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}|GlobaBl腟pac扚alse dCre atablPr@edeclaIdCExposeTempla€teDeriv%Customiz E'"要素芭虐?按钮 Public WithEvents Cm dFm AommandBarB@utton '胺饷 |.€VarHelpI褼m-1?C/(C?Mc?目?螌Mch?Mc ?Qy?前言商+Qy?Qy?@ Y?引?Y?NY?@ ?Fl?溉铰检+Fl 6l+`hlA錷Ck参考文?譴CkdCkmd? $ S|B兴饕SB%">SB€帬BJSYX?'标简莂项 9-md _D"CS俌楧'删除>Smd TwoPage'双面A / k 発 ?kqPrt爗0view_ 恞'磤蛴≡だ纜g_ 遯瞱' gGZ? 賫眬嘈垂嬖蚣 |GZ GZ'zle,09-06-26€,+增加"婸RINT_Y!QOOB2O 7-02保护"“取消??橮ROTE﨏O嚈Nrod$ __4鵖4UN_ 妤|   '"层伪晏庋喗??Ztit广/??章QCob__锔`nTT 1-阳-'条 dT  2_on飻3?4?5?卝1??帽<快捷Aw? _7_7S7?w oh337  y 4ute CmdTTitle4C.VB_VarHelpID = -1 Public WithEvents?C AommandBarButton Attri歜 ??F] '非标蘃馓j1F,?4?2?3?3???4?55蠝vR庒v悫2F'├ 莠?h l4h 絣5h` 擖Dw?/%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 唾 ?俹ZZx    psO#J#醼L图表o#PhEvents €CmdZC A€ommandBarButton Attribute?VB_VarHelpID = -1 Public Wi*t 瀂 '蛝急碜ⅰd(d"礪C(QF淸[首注[F?-#\F抃笿固鮌文脚嶿JJ"夽 C.GTit宭e賋]晏鈱\?f] !^D ?Ta耣1'表睆0?1 ? (2Sj?'插入表瘳1$?$庝mdE鏅TBJHZSM}J淼耡锁得鳜md$? ?8a€c的首醶S_?C 斍GSY2∶翶公? 2GS_DGS9md? % sG s'A编号  _@€ ? R馟X更新?d _\劻 O剅_ 'zle,09-06-17,*be4gi ?_婩lZWd媀?附妈颊聝W' ?\/ 釕鳩lBp礰晄Tr1/'on幄一级蛽2二鶞4Fl3三cle4似臒le5溛鍠@ 非鹷J1餇-?_!杊}2OK单3忒_Q?鱫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*E6C岻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#rShowfrmMa€rkIndex Mr09-06-0€7,*begi '插入?内 容唿,楥RSY?8???釋E? ??'9}9"???" 皤 噦€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揰"?蛴?O饤PR鳬NT_???楘?oo悺n}On Error GoTo zeh昆羮Q骕'丼10709,+"W 书签，以便回到原来位置?With ??3?#.Add Range:=SeDle爋n., Nam`"PRxTBK啐2劗S@ortingpew俤ByLocHidden駊TruE1?! 麚e1?1?????0???'c ?€nnt2 '处理封嫖獞-状态，不允许涝诒嗉瓝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"取晓麃$E?U[廤廤廤t%f g_ZMFirst = 1 And Right(ActiveDocument.8Window.Caption, 4) <> "(预览)" Then  ?,Proc€essEdit(BEsIf If Ctrl.F aceId?77 XUnPrct繲CS 'l3 State2msoButtonUpT%ClsEv蔆mdPROT0ECTC蓘"；の牡? D25Els鈋=Dow垍X哤a淔取消丠桭7?凢ub仯A'zle,?疤鍋$ Pr,iv悁 俇N僟Click( ByVal_ As Office.CommandBarCT, CancelDefaultA Bool餰an)?纎繑繑黡 仈A[H媮翖?s("要素芭虐?).€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凉 Sho€wHidden鳷ru罎罖#駣end劶 nt!`'处纮矸饷嫖E状态，不允许在编浼?ine^B剂C@w$.Exis6t纘h)蘹?GoTo what:x=wd-[((?.)-let(&憏盛 fj?(jB)'删除索引勏钗hSCSY邅秄跺@廆e臹堾 恮別i>Oe郈OeOe姉>)2frmDe纋Index€丄〓资纠S遶遶遶r 1遶湙@Insert鄕ampl`0v.黃l`繃繃繃Bv,;V飈tZ,€内容 LCONTC鴒nt┧#a浡@v7鍀a 正文谷絥 GS/ / / / /%????痢!1/%?羷捬#%E靟uTj廠-係??12-2,+鐏o夢JGSo(o(o(o(k(_(Z() _S格dGsGs@鳱um?ws鉻鸨嗪臦o e  w e,09-06-?7,*獾"S窇-P附录cA'F l烝l 某andBarButton, CancelDefault As Boolean) ' If g_ZMFirst = 1 And Right(ActiveDoc@ument.Window.Capti?) <> "(预览€)" ThenY ] Z0Proc€essEditEvIf Ins€ertEquad#Sub 'zle,2008-8-17,+endbegin,增加附脊礁袷Private €' CmdFlGsGs_Click(ByVa@l Ctrl昈ffice.Co黰m筑獌;€A漈A罽09-06乊*!僘插入AS Q?PD8Cala齺fCAd滩皢0€3亞?-26,+K快捷按钮?E~乫覲 訁室?AiaFrmFL.Sho鄔 1 &?聋?咡!=标识?*??Bg繎?繎繎繎?繎笐Fl麭s@ K( d蔲"(€肀晏猓瑯(郥itleh吆吆哼 *七禾))蔘图?P?吖溽s縍{銯l??'条?妄T1?P?痲?喰R???喞?A0唓`酑hgToSxongP 慇騝傋10-8,+1，修改为无CdQSele`鉶€n.Style"A一级无?顲?2镓???瞍 OL 曞滅二覤D  禓e3 ' ChgToSongx'zle,2008-10-8,+1，修改为无标题擲election.Style = "附录€三级无"H€End 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(A€veDocument.Wind@ow.Cap立, 4) <> "(预览)" pThenDH羾0Process0EditDAvIf?厱<莭潦09-06-17,*€end MJ巑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剣$ig? 泣规粼虔8Z焻_釨狻?8Z??狟 @=}Go瘄瘄s ?o```z`1o疊0gpathiGetSetting("TCS", "Gr燼phicP@峲"餡1She繸& "\IEXPLORE.EX€E " & 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鮬请将 瞥?q再进湫蠶 的 4q餎xit!羢&Q?\]SDiJm!t嗳edH '判断问 朗欠窳z被保护WTxt團oo偰Str =|, 嗦QIFn4Tru}'0如果a，涝蚪獬?>N崼 犛TyBp佊wdNoG)傸lUnproH "z€,gc甮鐇= [?lFa0A郹(3)是?内葊荩故茿cg_Mar恔OrA0P= 穬!iSideA€IntegercS'1.?a编号的蟛嘤?Move" wdCharacter, ?,Ext鈸囑.V氡引用怕Range.餞ext馀柵q Lefts %$堂Pane?View.?心刵t! Or *< _+o4&WebJ eWindow.ActivePane.View.Type = _ wdPr€intPrev犩 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 訹wda煭煭 v骯煭Hj$ 煭蒊?煭c+;a 煭煭薃+礋瓱瓊锜K肜缌* 煭 凔p稛K烱烱?蟅蟅u廙'?蟅 ? 飨V臯2K蟅喕&餜igh遃E ) 遃7?[_ 4['3溜V挠也? 鮛`2颲 7颲霽Oft烻铫p烻@ヴ0潉S ?_S5BI/ ?铹 --逺 ?薢, S_Rnen-w逹[?烸/?铵?豍oв8h"???/"P刻刻$?逴饰>虩O?O# 堿烴PUNN??I?I '说明是要进佬性黾?洠 U0E' 1 -K,A.WR, >3塋€v4.C€ount > 'zle,2008-12-9,注释掉隹 '1TxtQ?InputBox("请修改后内容", ?H泷貭0_:?壽 1? AP錷?<Ma1= 'Trim(g_SYGS) ' End If PSelection.MoveLe@ft , 1HRighJElse?h Z%[耇xtFoot = InputBox("请输入新脚注内容", "添l加"€ frmJz.Show If 墯 <> "" 餞hen€kRange.Te黿t晠呇脥 Type9`:=")"廟S, wdExten俤Y Style繷 wdBA]noteReferencO@y?嫄 t €桚 A渧eDoc@ument.s?Add(?俉纓W蛁R82c8D€紅?荴J4?Window.View?Seek肙餗ain:K]Qz庙}"uF蒍 'zle,2008-12-23,+w Pt:A `WPr@9cted蘙'保护窗,体?S脛s(?).For@膍s@Trui* i2 ToU ?CountH藢CiFa"?bN爍 Pa@ssword鄃z*h爔c€}g`哊o€Reset:=? 酅:= _LwdAllowOnlyFiel dsg?CommandBars("要素及 虐?)繢sibl蠇ClsEv醓CmdPROTECTC.Fac萫Id?77Capa灌"取<消狕葍 IiIn1?ces??Exit Sub error?dlDe:Msg` `罢费≈r? bGS9-26$S@牧邢頏Rrivate Lx1_Click(ByVal Ctrl As Office郉?Butto n, Ca@憀D@efault!B@ooleanD綜l€md C A €QE @ g_ZMF坕rs嶝1 A囫=廨(l^鋳D:, 4)⑻(预览6)碛) 0?tEdid61€?Ins8ert Xox2鬅arP?e?筮"?s ?;爅?槂 窡 2933邿?3鈵3鸴A?x?3 bP?3:潫菬?3Lx3?4鳠丳4VVk< "(预览)" Then g_ZMFirst = 0XProcessEdit(End@ If 'nInsertLx51 0Sub 6首数字列项快捷按钮 Pr@ivate # Cmd4C_Click(ByVal Ctrl As Office.Command€BarButtCancelDe fault)Bo@olean)機 D>经插入Q，瞼荒苤馗"GAFals?1o= 了“b 保致r 的 格@式丢失EI 'Q“盦,则将的内容删 除到  蝬筴 !*縍綬YSet te續pRang羈(Star0醁A$.r - ?,羪:=1 2(V V .c 隸D (t<q<不正悟娘 Q??g8??乚 ndard?") 4]l C騟y鬕鼾 " K屣, WBK?D螴oo?臝3n.HomeKeyn.TypeParagraphn.QLef鴗 ,!{a$縚 c 盤 /X鬤o /XA"@W/|3   媯TnF`嶱ag?I&%cLHb[嘾Hction.Typ@eText @:="前" 'zle,20 08-10,+2,空两个汉字的距离PSelec朓nsertSymbol CharacterNumber:=8195, Unicode:=True, Bias楘=0WI哐rHomeKey MoveRig@ht , 1wdSentenc€i1, wdEx€dWith A€憊eDocum€.Bookm0arks伕.A€dd Rang€巸, Nam `"BKQY`DefaultSo€rting =€<亖ByLoca/ShowHid8den€棵En黡 A(CD€ 咺If?.Exists(@,YY") ThenC?G羐P@奼raphElse 羓8Lef坖?IfCInProcedss€GFa!罠Sub G?-2`6,+en纕7-23,+begin 增加杓票砀竦拇シ⒑ Private @ CmdSjTable_Click(ByVa@蛅rl As Office.CommandBarButto爊, Ca罉l剗傾 抣ean)?XCalCC€ U 燛g_ZMFirst@,1 A€/bk(宑Win€dow.CapY, 4) <> "(预览)",J) 膲?$:Edi>t$a>釙? _?G=c:N= @2D=,图表脚注说明?TBJ鳽SM;;妍(?((!( (tFigTblFoo嘟H)4"逬_^O^?^ z?首:S?:?v +v?:?:縝鄊縝2骃|irN?蚆進進Cm進諱zt薓'引言(Yy?焀焀w  Yy5 z z e瞔,眂 快捷鸢磁 _Yccs'_Y_Ynt.Ei_Yx~_Y"EEoxCbxW奃im 駗B釱Str鄮?O禃O圛9-1-9]判断是不是误删1 婫oTo what:=wd苛稂H 彠'羇确实存在> ?b@?Style忷@秆浴垄标题璶MsgBox "本文已经插入，瞼荒苤馗槩A帓尽1泃嚤墱 了“”，导致r 的 格式p丢失G霙S€et 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皊("把浴⒁员晏?) Sel€TypeText :="引"D'zle,2@008-10,+2,空两龊鹤值木嗬KInsertSymbol CharacterNumber:=8195, Unicode:=True, B纈as:=0WI峯 言刼9HomeKey MoveRight , "1wdS€籩nc€i1, wdE xtendWith嵭Bookm0arks?A€dd Rang€巸, Nam `"BKYY` DefaultSo鄏ting"繠yLocaA垐ShowHidden 乢End~ A(CD€ 咺If?.Exist€燘KQY") 餞henC?G罻Lef圵Else Q ArP罃grap鎕€6If PInProces2s€FFaB 罞Sub G?-26 ,+聈€示例 Private € CmdSl_Click(ByVa@羣rl As Office.CommandBarBut€ton, Ca缹l剄A 唋eanc€JCalCC@` ?g_Z@MFirst &1l A -耫(,懨Window.CapaR, 4) <> "(预览|)"孋) $傾!4Exdit#:a?C廍`xampl燝?藅饕?y???y?"JoJbegin ,增加快澜莅磁クK& 888'?88?  ?DesignIndexTCS 9蒲坧'表嶷正文、铰&TabT餴tle==睚 峻〓a朁 _=烡/;/;脙丣/;鳿/;0+;Tbl?一级填醣1_V_V仿rUVTeZ猇W 醏Oa鵒as Ka遅遅P?衊瞅Y;二2邚r瓔2~W  龔 ot?9?9otzototA糴c烊龔3髲e3W ? aAo歰歭tD99999P9Gt9Thi琐膹4鶑e4W  禼訌R@_r0 琔or锍 '五级条标题 Private Sub CmdTTitle5_Click(ByVal Ctrl As Office.CommandBarButton, Cancel€DefaultRBoolean) Cal圐禖\V ;0En d タ旖輕按钮QC甀f g_ZMFirst = 1 AIRight(ActiveDo€cument.Window.Capti亞4) <> "(预?" Then儍亝?0 ProcessEdit 僆fIns@ertFif偼& 挿闾豕?F输縁縁 塅H'zle,09€0812,+3Mf GetSec(Num@q0蘟Ex|it脵Ae腫r腫AChgToS榦ngE70@5f Sele€坥n.Styl鈋"一炮崅 无"Else嘋 P 附录G 崄3荔謩e遻镎{&N躿2VgVyy酜'5zyV V艃C 儎郵烿烿V&\烿錫乂+峍6C遃_C誚鍺遃?遃遃_衉袏?/h/h袵o+VVV羙+rtThio+縑g縑稸三o+ y廦 "o+縑"焌+o+瘮爺3Fo+蠑蠑蠑3藬v'o+t魃敮 4O+  縑 ?縑dc 縑  蟻O+O+檕 偹腛+A馩+= "O+O+緽+偪Vr84O+?( K+v'O+O+O+O+O+O+O+ O+O+O+O+O+O+dc O+O+?\牧_璻俔淇_?傲O+Y B+_??+/+/+/+;/+燫5U'/+*+ 0俳玌俚淖体变为宋,体??On Error G爋To ehplD厉=Paragraphs(1).Range.F鈕 *Nam2橇D?2008-10-7,+设謩枚温淝昂蠹渚 With Selection.Paragraphs(1).RangeLForm atnv.LineUnitBef€ore = 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 Ac€Right(A€veDocument.Wind@ow.Cap? 4) <> "(预览)" 餞hen,伜?埛ProcessELdi勑亁IfHnsertFigT郻lNotW艭@C 的快捷癶磁FCFHFC黙l€W荹AZ孲繮'k章标题?鄑itle&?=\('?譕 織A€熆椷KW逰蒏Ch€c€}玬zle,09-06-13,+begin,黾诱淖ⅲⅰ粒(妆rWrndrrr羱r$~' '0Text瑀颹WZ?q!g?qf,~qm?_擀擀擀 策33Mu恙14_4呷掞-4熠@F郡?4縨罂m縨ti縨縨縨QM1縨縨餿籱14饁鹢4F?蟸OE蟸C"瓐4Zotim';Q榚ndQQ 孅×&?o o o ??媎 ????O?媌l?'鸲嘧澘8/?o/o/d/VU/*P是否显示帮助Sho鄔Help?糄im WI "(A/?BAL倨膮冑BJ临贐a AFBf|@6n绬\BB荹區@首注 L@Z蘘F_Y_YanS?_?_?N? a,???aInser€tFigTbl`?Not€楃'?的縂d?c_}€恒#C}?s| 6TdsApp_舋Befo€reClose$? 翄厙K幜"'饩鲇雡ord文档进星谢皇惫乇詹槐４噫问题祤:靨Path + " \"lName♂wThis. *腓Exit O鈁Aa! ?' 5?Quit(?be羮cmbNew餗enu 遣  怱et H= s("@? '退出删?说qUFor Each ctlPopup InPantro黮s!p臤€~"添加标家? OrI文本p样式O`T铰技芭虐>妤姴1De|盙etFMTyNp碒?，€?-1-8，在　一次? 罓 Std!T0{()椖 敮ad?1wa亦" 2g O軩Bd33{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's?n/吏h"??\RjWMo剉e丣 , 1?c~?€ⅹ#I3Κ??fn惁_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", " ")?亊.Res|ul乹$檓W8ith€tLeft(NewNa`me, 6偼BNo1"榹3 ActiveDocument.FormFields(? {@凘L摸-厖卛乣= .T€mInput.WiNdQ9 " i@1 To A A?挩X H拑?J芺疉鶙[鮌?a砏€4Ty€pe <> 0\r霠烻)"y]a燣ostF€]s@K郌alseEou `vt2t|t2Y撴Bttk!t€ t?蘫Ыtu5% ??蘣 f1t,g] Wct?齨'7\?7飩 _ 'zle,2008-10-14,*1,霉獗甑奈恢弥糜谒慊鞯牡镭方 'Q=Sele?on.裥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婞b@=g_繱ZFirs伣$廮 endxChg))n? 'E&帷A结束?M?H?? InProces 歩 g_ZME1"ERight(G痔Cap?, 4睷(预览)?Exit S|ub____ovnR@?o?70$Edit  8w! 麹P%枅 欇W@嬶m募詼聎8揅报↗杫秗X斮lYO沪腬窴咮)奢?JM?譬葳#x)奢?JM?譬葳#?枅 欇W@嬶m募詼?MEPSPSSS1?6"<<0 0{08F51A77-1738-4393-B1A8-A84A9679B672}{9400DC58-6CD9-4F59-BBA6-C45CB84B8642} %% " X` $ `.. , `)? %i? €?PH %侢xP %b€J4 @X€凗偁 ??€ €PT 黗*\R4*#d$*\Rffff*0X60fc12578<@DH:€ €$"( 0@€ "HPX"p€ € € 0@H` x  €  ( @` x 2€€   €  (€ € " 0 8HPX€ h]€判断问道是否已经被保护 A@ro8X'J & !d$$请输入脚注内容 ( * A@|`kX如果封面保护，则解除保护 4!  zhangcheng 4B@'Jd'Jk !!d B@lk)d B@  f B@l ` ( B@l ! 4!%.b f B@l B@ & !d B@   !( J保护窗体 4%(  4!!  4%(€ zhangcheng l 4B@ 要素及排版$!€ 0!(取消保护 0!(kk'J A@ro . A@$ kovAttribute VB_Name = "FrmAddFoot"D 凚as?{08F51A77-1738-4393-B1A8-A84A9679B672}{9400DC58-6CD9-4F59-BBA6-C45CB84B8642}dGlobal孲pacAoFalse 奀€reatablPredeclaId誘ruB繣xpose0Template DerivCu@stomiz婦 Dim Protect€As Boolean '判断问朗欠褚丫槐； P37 Sub cmdCancel_Click () Un@load MdE$nd Ok In€Ccess%If Trim(txtJz.Text€"")` ThenC MsgBox "胧淙虢抛⒛谌?, vbOKOnly +€Infor matioEx渋t??If?A'如果封面?，则?獬齼A'No@t (Act€^Document.#腟@Typ羮wdNo?LUnp胏 "zhang鷆:g罏Bz婣EB濧膶7肗@0SelS+.R@e肵<0> ""蘕 MoveLeft , 1I ?俵0:=")?S, wdExtend#G Sty鈍wd "!~n@VRefere繭Set2 = ?E s. ?'B!,` $Z'説 27D€*t繽!-g?" " & gZcWindow.View.Sxeek`^`€M鴄in錖 8?媌?!U窗体#a呿SC?s(1)臯騟 猺F郿 q i€2 ToU ?CountH!惶.ihVN鄜 Password M(g, NoReset:= 羍, ?:= _LwdAllow亝Fieldsl?CommandBars("要素及排惏?)`7si!緝?!ClsEvaCmdPROTE`CTC.F犌b??7 Cap!樍?"取消?葍)q!  -摱硕"V_KeyDown(ByVal ACode `荕S!'s.ReturnIntege坮, Shi p$k)%= 1?l体膵 h乑(X^Mipp騉葻嗀罧匠れ彴赴O*u怉浹?@|巿Y?D€c {j皶E寍燊x {j皶E寍燊仳O葻嗀罧匠れ彴赴MEPSPSSS<<P6"<0{2A4F1AA6-1575-4190-9BD1-8D2D407C8E88}{FA59030E-8DB6-443F-8063-08FAD41ECF7F}%%e D `xi僃 `勡 " ` $ H``勡`凩 `?`凬 `凾`凱 `凴 `勣 劧% 刏 (%`刓 x ``勡 @ `,,`凴 `勡€?@8%侢h@ %"€B 80@H8p凗偁??8pp@t$ 黗$*\Rffff*0Z60fc1257PTX\`dh!€ € € € € " 0€8@HP p x  " € € € "€€*8€h€(€ 0N€ 0X€ Z€   8€ 0X€ .€ Z€ € DH:€ *: € ` hp(€ (€ D€ € (@(h€   €08@X p€   €  0@€ FP€€ f€ , € BP €  € @    € & 8@ € "x   € € 0  €      € ( € € (H 8p    €  € ( € , P € (h    €   €  0PX` h x$8€ .0 @€ ,P€ ~€€ € € &@€ 0h€ 0€ *€ € &€ 8€ &X€ $€€ $€ € € €  € €8 @$P x>€ ""  ( 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+? ? ????]dpDim InProcess As Boolean8] F ' J $B   'J $B     H ,J   '@  H ,J k(k 'Jo A@ro]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   )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  '*#zle,2008-9-28,+1,使目录能够分级出现 L  H %V , * $,'L kd $B  N 正文图标题,2,附录图标题,2'N kH $B )"zle,2008-10-8,*1，分开增加图表标题> GStr = GStr & ",正文表标题,2,附录表标题,2""zle,2008-10-8,+1，分开增加图表标题 T,正文表标题,2,附录表标题,2'Tkhk`kXP L L  $'L R $$ R R  $'R kTCS 4!MC R A@X ]'J StandardName'BKYY 4!%BKYY'kx A@rBKQY 4!%BKQY'k8   B@ B@2 Selection.HomeKey  B@h B@4 B@l@zle,2008-12-4,+1,定义一个临时range变量，用来存放之前的目次的neir]BKML 4!%_ Selection.MoveUp wdParagraph, 7, wdExtend 'zle,2008-9-22,由5 改成 7%zle,2008-12-4,*2,注释掉原来的删除方式; Selection.MoveUp wdParagraph, upDateCount, wdExtend Selection.DeleteBKML 4%!0 0 !! 4%. B@H B@ ' Selection.TypeBackspaceBKQY 4!%BKYY 4!% Selection.DeletekXkP*zle,2008-10-16,+begin,增加进度条，显示更新 A@r total = 100000 C@qzle,2008-10-16,+end"zle,2008-11-24,+begin,调整页码格式BKQY 4!%BKYY 4!% p` B@A@Lk(zle,2008-11-24,+end目次、标准名称标题 4% (% Selection.TypeText Text:="目 次"目d B@ "zle,2008-10-10,+2,空两个汉字的距离  B@  B@次d B@  B@^ B@n  f B@n 4! !BKMLC@ 99q B@2 B@4TOC \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"''' End With '''zle,09-06-29,将字体都改成宋体'' With tempRange.Font'' .NameFarEast = "宋体"'' .NameAscii = "宋体"'' .NameOther = "宋体"'' .Name = "宋体"'' End Withzle,09-06-08,+end p B@n] N TOC \h \z \t" N "'N B@4 ! l N d !%.Z zle，2009-1-8，*4注释掉错误 Z ! 未找到目录项 Z B@ B@l B@kk'zle,200-11-12,+1,用来控制禁止用户更新域 B@l !(R B@n!zle,2008-10-8,+begin,增加表的目次 TTOC \h \z \t" T"'T B@4 ! l Td !%.Z zle，2009-1-8，*4注释掉错误 Z ! 未找到目录项 Z B@ B@l B@k k zle,2008-10-8,+end'zle,200-11-12,+1,用来控制禁止用户更新域 !(R-zle,2008-9-27,+begin,将各级标题设置缩进 10-5 4!! 4!  zhangcheng 4B@k( k &zle,2008-10-16,+begin,增加进度条的位置 V5(€X % 5(A@q zle,2008-10-16,+end目录 1 4%!?9?9qH 目录 2 4%!99q 目录 3 4%!$9t$9\ 99^ 祝p= ?$9x b 9` 9d 9f 9v99qp 目录 3 4%(h 目录 4 4%!$9t$9\ 99^ ffffff?$9x b 9` 9d 9f 9v99q s5(€(X % 5(A@qp目录 5 4%!$9t$9\ 99^ ?\徛踵?$9x b 9` 9d 9f 9v99q目录 6 4%!$9t$9\ 99^ 呺Q告?$9x b 9` 9d 9f 9v99q0 5(€2X % 5(A@q目录 7 4%!$9t$9\ 99^ {瓽醶?$9x b 9` 9d 9f 9v99qP目录 8 4%!$9t$9\ 99^ 呺Q?$9x b 9` 9d 9f 9v99qzle,2008-9-27,+end&zle,2008-10-16,+begin,增加进度条的位置 5(€<X % 5(A@q(zle,2008-10-16,+end'' 'zle,2008-9-23,+begin,使页码右对齐 4目录 1 4%!!j B@l 吞烫蘈0@$| n  r p 目录 1 4%!!j B@目录 2 4%!!j B@l 吞烫蘈0@$| n  r p 目录 2 4%!!j B@目录 3 4%!!j B@l 吞烫蘈0@$| n  r p 目录 3 4%!!j B@目录 4 4%!!j B@l 吞烫蘈0@$| n  r p 目录 4 4%!!j B@目录 5 4%!!j B@l 吞烫蘈0@$| n  r p 目录 5 4%!!j B@目录 6 4%!!j B@l 吞烫蘈0@$| n  r p 目录 6 4%!!j B@目录 7 4%!!j B@l 吞烫蘈0@$| n  r p 目录 7 4%!!j B@目录 8 4%!!j B@l 吞烫蘈0@$| n  r p 目录 8 4%!!j B@ 4!! 保护窗体 4%(  4!!  4%( zhangcheng l 4B@ 要素及排版$!€ 0!(取消保护 0!(kHk@q8' 'zle,2008-9-23,+end  f B@l !r(t B@2&zle,2008-10-16,+begin,增加控制目次格式'查找是否有 全角空格，如果有的话，则去掉 !B@ !!B@ !　9d5(d9 99999999q VT !B@ 替换编号后面的半角空格为全角空格 4!MCMW !C@9 9qP&zle,2008-10-16,+begin,增加进度条的位置 5(€FX % 5(A@qzle,2008-10-16,+endzle,2008-11-12,+begin]0'\_ B@^  f B@n !!d'\ \（资料性附录） \（规范性附录） B@^ p B@n B@k b B@h !目次、标准名称标题xk€ \$附录A MCMW B@ 5(€ZX % 5(A@qzle,2008-11-12,+end*zle,090807,+beign,只替换每行第一个半角空格 !B@ !!B@_€ B@^  f B@n !!d'\ ! 9d,半角空格　5(d,全角空格9 99999q v T !B@ b B@h !目次、标准名称标题zle,090807,+endMCMW 4!% MCMW B@MCMW 4%B@kzle,2008-10-16,+end'J Unload Me&zle,2008-10-16,+begin,增加进度条的位置 5(€dX % 5(A@qP A@rzle,2008-10-16,+end+zle,2008-11-12,+1，增加禁止用户手动更新目次 !(RoH0如果发生变化，则处理，将本接点的所有上辈接点选中<如果正在处理上辈接点过程中，则不要在处理上辈接点，避免死循环 J]  H !T   H %J  A@D kko 填充必选项前言、引言、章标题、附录、$参考文献、索引 z (d'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 附录三级条标题 H B@| +B 附录四级条标题 H B@|  +B 附录五级条标题 H B@|  +B 图标题 H B@|  +B 表标题 H B@| ) +B ]TCS 4!MC$€'R R ]  H !T   R $$$  H ,J kP k8o0(Attribute VB_Name = "FrmContent"D 凚as?{2A4F1AA6-1575-4190-9BD1-8D2D407C8E88}{F€A59030E,B6-443F-8063-08FAD41ECF7F}dGlobaBl孲pacoFalse 奀re atablPr@edeclaI"d誘ruBEx0pose0TemplateDerivCust恛miz婦 Dim a(10€0) As I€ˊger ' InProcessBooleanSub P€]nt(ByVal €dx?) [?i iwIndxIf N宱t 8The5€(a(i)@ Mod 1€*>8 1  ?= 莾RAWhib# Lst剸.S€electedA2i - 1aKWendKE鄋d IfGc= 膫c P €€ AfcmdCancel_Click(刟Unl鄌ad M槅sOk 峯, APDstrtS厘ng, jHw, G飥G?T伭€萚'zle,2008-10-8,+一个变翆 A upD郈ount10+?!RegO 園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@（郔注释掉原来的目录不分I?i %:&-/? 2 ," '" & €i(j鶢Z1)€&(` eI€z ,08@?`€% 1, 使a能耿出蟸煮CPQq 2鹺 I E_38-31,_ _ 麃_ t.?_ ?/乕u ?= 3焤 砕=c P1?袜B题,2?1,?c>4#P?B_*1，分开增艏?M?[鱞?1 4 矧? g獐詀b乂t =NextsAU$Left(,P Len)?1?~Trim(O€) <> ""孡P=SaveSetting "TC$S"€€ctPo(cump?寻, x"MC 眡M鄌veBKl侙炆`oStanda紃d01 Ak€﹌marks.Ex@cs("BK餣Y")|W  拸BKQCon.Go@owhat0:=wd%, y!:=#gP K ey?gHomer g1Up wd昂agraph?氮GType??]D;2-4,+1,定鍛浟偈眗ange!湥来存放之前ai次的n\ei艫 ?t 蘎??BK繼2,由5 氟腵?c *2,箇删除方进K  x７ u?D嗳t姬9 Y= ?(`4r &3s33q.r酓?両:=g r.p'凢QfT褿  cQ7!'Backs羟牰Bookmarks.Exists("BKQY") = False And ActiveDocumPent.蘗 fT€hen ' Sele妎n.BDte 8E9`If 'zle,2008-10-16,+begin,增咏忍酰允靖0Unload Ma€tota2l?0#With frmUpDa E.Show| 0丒嶤end 1-24匭调整页@码格式If!繀瘝 Unit:=wdCharacter, Coun1?AProcess€FontPag刱塯D=DS餿yle@`L憘罌目次、标准名称标0题")徢Ty€peText :="目 滁? 媜0,+2,空两龊鹤值木嗬胪InsertSymbol 艼Number€:=8195,丷code:=True, Bias?=膹/盼?咢/HomeKeyMoveRig鄅t , {坵dS鄚enc`1, wdExt鑍耮u侰酅.Ad纃 Rang? , Nam€ MLD4BDefaultSorting€F@`ByL纎catio缞b乽Hidden0C雟0"!*侾郹graph ADstr@ "TOC \h \z \t""" &r C&  F鄆elds!o丅Empty,Z _c , PrePveForxmat?肔Z-11-12,+4,用来控平褂没r⒂颍?L鴈ft€:nA?xked?G *0€9-06-08犅 〈字体!燗纙'偛Set txemp侫 孖(餝tar€M!諃G). + 4, @:='.€?.Bb!焽NaVFarEast`"宋t体燖'FAsciiTimes New RomanqOth辝cM[  Ac儭婷129,将?蓝几某蓙B锪U1.F ?廸攨 L?S0Dim MCFl郿 As .s`yS ?<>€= 脣 = 緻 〡?!?廍"?3= 髑?S(2+N,pBp]緾x2笴A ,疌g煟C`0B@1，€9-1-8，*4注释掉?砦骃In厾(" .Res繷, "未找祤侥柯枷畎€0|C秊燊Hi; ＼ r" 5Q1?Q`??Q?廝\u嘼Q馪表的!彊?Tb袘? ?`h?Y侟mt??ak???ok{A ?n??? ???s?窅@7??Qo6J?)z A' 噧#Sg9-27uw@将各级懘柚盟踅 杏530=,uH9偫 >?PNo豻 (`聇覹馧\wdNoG)_AA蠻npro1 ?zh愧c般g爎颭1牺 d镝条的位脫鈔o .Label3.Wid卲帻p't(86萊4.Cap1╜"CAQ30)`?%∝ DoEv牫s?ol宭 G衣监 1").v=cAq.Line≥Befor裰0.2s$Af 俪 End Wipth (x ActiveDocument.Styles("柯 2").Paragrap€hFormatr?LineUnitBefore = 08Aft,er2?唀f皌IndfCimessToPoints(0)!圞Righ(Al榠gn寑-wd圠.?z??/+ra麉-?5)锔簿Q ?邇jI?_ S8O#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 Act€iveDocu.Styles("目录 2").ParagraphFormat.FStops.ClearAll@JAdd Position:=蒳mej?莟%t4:厙:}5:E::}:6?tC~Z ???????#Z ???9???#Z ??71嚸If 蔉ield`蒾unt > 10 Th en佋'保籤ご疤逅 S2e 賝n犫€謗o2ted` s 魁 True,@ i@2 To |.Ca ?i!FalsNe,xt, P Password:="zhangcPg", NoRese€, T€ype:= _  憗lowOnlny +PCommandBar蠵要素及排版?Vis0ible/ ClsEv爘.CmdPROTECTC.FaceId9!77/ Capq?"取消 "End If;Wit h ''A 'zle,2008-9-23,+enFdSSelS.MoveLeft`S0ence, 4,ExtVFont.Sp燼cing 01€KeySG10-16,+begin,增加刂颇看胃袷矫$查沂欠裼 全角空格，如果有的话，则0去掉h in芼儧1 att ??Repl"濢Q a.T觻-　.Ic0war??.WrapwdF? 岌 MMa€tchCase.WholeW荘5Byt汣岽ildc 慐€S`CdsLik #俺 \g*冄Execup 〗聘'替换编号后@面的半s"#clGBoo爇markx?乥Nam餎"MCM鶺繥R€H Sb ShowHidden\Def€aultSorA( wdByLo|ca?s??忍醯奈恢茫frm UpDat╓.Label3.Width€Int(?@)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!餈Ch?靋痄 [ 鳮乻郆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)` + "%_KD€oEvents;0End u'zle,2008-11-12,+e nd 090807,+beign,只替换每行第一个半角空 格噧Find.ClearFormattingReplace蝝€QDog?HomeKeyMoveRig@ht wdS,ence鄔dEx>tr?PGRange.Text俲? €? "'KJN.?　'全 X@Uwarbd@ Tru垘.怶rap@wd?pStop?僤@FalsMatc hCaseWh`oleWo B|yt (K爜+KU.郋xecuF裂9On?GA{Up駙zLin亂;C?Sty鳤竽次、标准名称标题侳 If A€}veDocu 釼e|s€ists(億) Then 縿▌A%.>D 怑圓,艢H|0-16N|InProPcess?'U€nload M$.begin,黾咏忍€醯奈恢胏'be邭脷85邭10氶殑LW!(銧1，B褂户手动更新AECIFields.Locke莙A0Sub @ Priv牷  LstCon 恡_Ch('如果发 浠瘈虼恚窘拥愕乃€猩媳病0选中正 在过程勚衼不要k，避免死0循环C燳Not`1錊kVDim i As?eger!D€ = 0& .L `Co€unt - 1A`c(ed(ieaaDPar€皋  閈N&?ａ?Use乱_耲a '填硛浔匮∠顏1!Txt` 禲前@言、引Q卤B、褉、" & Chr(10? "参考文献、索引E?拠'通过a的值慈范ǜ缸庸叵 ,嗤 为眝家族鑫皇酱蟊卜衷降蚐AddItem "一惣短?Ma(?= 1? "稈?1)蠥12﹗三>223??四> 4??五>4r5??da(51??v1(6rz(7rzy?(8rz(?r?z(1?L26图?1蛼!3表 b!4罞RegStrF`F= G e8t眩("TC楽",絯Q? wy""銽€F~"|x?M狛1?M耑?M 鹈燪 (1, ?, Trim伱K)"?R殌?貾>=M?M罭 iqSQgdT愭\;zD▅H?s鐯?sP 覭?M?yvm OI?,樘 載毕w鞰N?鱂x載毕w鞰N?鱂;zD▅H?s鐯?sMEPSPSSS6"<<<0{D30B0950-954B-4D26-8413-E9337910766D}{0DF64F20-F311-4901-AF31-2CE9CC0B09A2}j€ @4 @@`8 " ` $ `""`勡  8`  @ ` `勡€?%侢 %b€ 6@b€ 8 @b€J: @凗%偁 ??%0`8@h`(黗$*\Rffff*0^60fc1257<@DHLPTA€ €€&€0€8"@ HX€ "`hp€  & 8H€ P€ X h €  2€   (@€ HP Xh€ "px€ € "€  0 H hx€]]初始化时不修改本文框内容] ]@` A@ro 'J 4! x zhangcheng 4B@'JdP'Jk@] & !d  !  ,V  4! 5   %V  76!(d q J保护窗体 4%(  4!!  4%(@ zhangcheng l 4B@ 要素及排版$!€ 0!(取消保护 0!(kk'J A@ro  |xkp  & !d  ,V k@  !  %V  & (d  ! ' o8]x' '  4! 5 76!!d  B@|  q€' ophAttribute VB_Name = "FrmEditFoot? 圔as0{D30B0950-954B-4D26-8413-E9337910766D}{0DF64F20-F311-4901-A-2CE9CC侫2}dGlobalSpacoFalse 奀reatablPred恊claIdTruBExpo se0TemplateDerivCustomiz婦 Dim Ori As Integer亙 IniLst Boolean '初始化辈恍薷谋疚目蚰谌 Publi郼 Add??€Protect€O€2 PY] Sub cmdCan cel_C$k() Unl oad MEEn2dA @ Ok IncessTIf Not (Act@JDo€cument.?@ionTyp乮wdNo) Then#ALUnp? "zhang鷆 g€妬 fvAE夾剎硜利IfC羒iJhAlstJZ.List(Index)@>txtJ@z.TextW癷th ?kn€fsFor i€1 To .C8oun.Item(i).R葵e€ ?i -, 1膐 N€ iC5"CCf嘆K['保护窗蘮? MS郕€7s?1)e9e€Pr頼 @2?E !€ @9 $ Pas€sword:=蒊,WReset:=aH, !U:= _ wdAll@owOnlyF餴eld(;G?CommandBars("要丶芭虐??.Visi?A!ClsEvgCmdPROTEC0TC.F 犫?7?Capt`6晾F"取消?hf _!  |-焻寘f罏"漦Exi.t銔aff?> -e*?aDq ?'u i' 儂!宓= 9 €㎝s鷈耡_鈃 刻= 杇-1繅}? 郟粔c嗥 蟨嬅Dth  v5~0T? 蠯縹Sq菽y瓉O箛窢A7霆蚗燣斉胄 錉s7vu?鵐ф戊I裳x7vu?鵐ф戊I裳掯& 蠯縹Sq菽MEPSPSSS1?6"<<0 0{F6FD0EC0-AD79-4F81-B987-A108B7A04137}{D1ADAAF6-58CD-4CA0-94C5-EBD009E4A073} " @` $ ``勣  `  ``)? 8@%i?   ` €?%侢 %@`凗H%偁2?x?%x`P X黗*\R4*#d$*\Rffff*0_60fc125748<@DHL€ € " € " €(€ &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) Then- 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`kXzle,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@lkxBKCKWX 4!% BKCKWX B@ B@^ B@lkk !终结线 B@^ B@4 B@ld B@2 B@4kzle,2008-10-8,*end 附录图标号 4% ( Selection.TypeText "图编号" B@4 附录表标号 4% ( Selection.TypeText "表编号" B@4附录标识 4% ( $ B@  !8 （规范性附录） B@ dX（资料性附录） B@ k0 $ 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@ 99qpA@ DW B@DW 4%B@'J| >'J A@r4不能在编辑封面时添加附录，请将光标移出封面再添加附录A@o  !d$$  ("dx  ("k`oX . A@$ k0o(`  ("  B@ o\Attribute VB_Name = "Frm FL" 郆asp0{F6FD0EC0-AD79-4F81-B987-A108B7A04137}{D1ADAAF6-58CD-4CA0-94C5-EBD009€E4A073}菮Global嘢pacoFalse 奀reatablPredeHclaId蠺ruBExpose0TemplateDerivCustomi倆婦 P Sub cmdCancel_Click() Unloa坉 MLEnd Ok Dim MoveBK AHs S輓g''zle,2008-8-27,*1,注销掉磤砦蟛蹲絻On Error€ GoTo e鄅andl!? +1，取消文档保护 'A If N€ot (ActGDocument@.Prote€onTypAfwdNo) ThenGUnp ?z?gc@ g€?AHIf?CIn醼cess唚010-8,+begin,新的附录增加G BA Sel,. 侰wdLine? ast @>L-Bookmarks.Exists("BKCKWX"咞FQhatL:=E, A菌=HomeKeyA奓ef爐 , 1I EB晕'J&_ASY?@ -!`7?U@Sty聢"终结宵??at/!gPara鄃raph?a?/g`蘁g !1mjend q09?06-21$nDt$f 琫Fo薸elds.Coun纓 > 10$.??Inf@ati`on(wd PageNumbe魊)1,! 'C{mSt@燼rd醤?鄠醿 搃?q&偟聰*bge罃注蕗偷粼暳柕姆绞D?Find.Cle刟r?atti吚`With G.E]?b€K标尸?j.w汮VW*PwdpStopc ?M郺tchCc凾wWholeWLorhy By€夶 髚Wildc/ a€S'dsLikX?All椓 _ ^ec亽Tex怺"性鵔）d# 1S诉F€" A唄弎?'在a中间插入镢 谾8CPu 最后r{op焛p5$OpBK榖q 9=b蠤?XkW5: } 倎`u?,n11.a ?0 鈍@O  2UXSHUC%疦le图标篰帕N[b8" ? o 8W卤bEV6頍n.表n鑱髮?I^MCh0r(11a@%OptGF.ValueLw "（锅娣谍R搂 1o醓资料m`R卾=O ?毙加入的文字 petxtT鄆tle.SS:7,+2,向下延伸出鹨恍蠸 <&!?wdCh馂ct "" The坋cmdOk.€Enabled f烣B羻 J@pIf?KeyDown(@ByVal @Code As MSForms.ReturnInt@eger, S餳iftA ?E= 13Q5_Cl8ickCD罯?User _Init鄆aliz芌>哤pSetF勒€移i蝶RW<v錛LxRHRME$04(,8 ?>0LB@j<,< (<|<<<<<H<V<,<6<6 0?獱0?H@<%PHmp%ph51%x%@%陘L?@陘P @陘R?  @陘V?$@陘Zx,@陘\50@陘`(58@陘d@@陘fP5D@?(j`h€lxh€n p` **) 剅 % 則 % 剉( % 剎H % ?h% 剒%`剘`剉`剎 `Si儤€ 剼P% 劄p%`劉`劋`劍`劏 ` p X` s ` v ` y ` | X`  `   `    `   X `    `   `  `  X`  `  `   `  X `   `  勨 % 劄  %`剘`剼`勡 ` ` DDI   ` JJ  %  ` ]]`勡`  H $% h %`` `? &€ ` 884 `勡 ( $% H %``  ( ` IIl `勡`? :`` AA `勡`? <`   @`   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%`勣 @<` <dd[`勣`勨 €=` =//  >` > ?` ? @@` @ A` ANN"`` 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==`勡`凕  @R` P Ri傿€`勡`  zS` S `剼 凢(% |xT` T11 劄p % ~U` U22+ 劄 % €8V` V11] 劄0 % LW` W++`勡 PX` X__ 凾,% r0Y` Y Z` Zdd4`勡 @ [` [`剺`剼`劉`劋`勡  \` \| 劧 %`勡`劸 !]` ])) 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 ??% ??4%`?`凗`凘`凚`凞`凢 (,k` k|| ??% ??4%`?`凗`凘`凚 -l` lOO ?€,% ??4%`?`凗`凘`凚 JH-m` m (/n` n77`勣 刋??`刏`刓`刕`刞`刡`刣` `刦`刪`勡`?`刯 `刲`刵 r?o` o* 劧€/%`勡`?`剨`剬 剮00%(0 `刏`刓`剱 剴?8%`劼`勀`勂 81p` p ?q` q66  ?$% ?%`勳 `勣 @2r` r? `勡 €2s` sV  03t` t33g `勣`勦 ?3% 剎(3 %+u` u 陘:? @陘< @獉@?h@獉D4 @獉F84@陘H`4@陘J @陘N @陘T(" @陘XP(@陘^4@陘b<@陘hH@`?x?-84?`03 ??X 0P5`8?  (?(5@   '?0@€`€ @0(/P!?548xXX 8!("@2p0p0p?8*(,xH?8?`` XX   `&?H+H-81` €2p3`4?P x x#(vvHp303HP5Px5黗$*\Rffff*0W60fc1214*\R1*#1a2$*\Rffff*0V60fc1214(*\Rffff*0V60fc1214\0? €€€€ €L8€J€x€ P€p€x€ .€€€€€€ "€€€€$€8€@€H€P€ €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 €€     €  08HPX`€ 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€ €  HX`€  €    € €  (€ € 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 x0€0?€ ?? ? ? ???€ ?? 1 1 1 1(1€ 81H1 P1 `1 h1p1x1€ ?? ? ? ???€ ?? ? 2 22 2€ 02@2 H2 X2 `2h2p2€ €2? ? ? ???€ ?? ? ? 333€ €  303 83 H3 P3X3`3€ p3€3 ? ? ???€ ?? ? ? ??4€ 4(4 84 @4P4X4 `4 h4€  x4 ???? ? ??€ ?€ € € \?€85€@5H5P5X5p5 ???€ :? ?€ 6 &6 @6P6 `6 h6 x68? ?? ???7 77€ 7€  7(707€ 87@7H7P7X7`7h7p7x7€7€ ?????€ ?€ ,??8(8€ (08X8€ Jp8€ ???€ € *?909 H9 X9p9x9€ ,€9 ??€ € ?"  ??€?€?€?: :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@BHBPBhB€B圔燘窧蠦€ 2養€ (C€ Z@C€ € 燙 繡蠧郈餋鳦D€ D D*8DhD€ .€D癉菵蠨鐳€ *鳧 (E0HExE €E怑楨燛‥癊蠩谽 0郋 FF F (F 8F0HFxF€F怓楩燜‵"癋谾郌 <鐵 (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 hO€O圤極 癘繭豋€  郞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 hcxc€c坈恈榗燾€ ╟纁豤餭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 pr€r€ € 榬 皉€ @纑€ s€ € € s€ B8s€ €s"恠€ 竤€ € € .萻0鴖(t 0t@tXt`thtptxt€t "坱 皌竧纓萾€ 鑤0u0u 8uHu`uhupuxu€u坲 恥 皍竨纔萿鑥0v0v 8vHv`vhvpvxv€v坴 恦 皏竩纕葀€ € 鑦€ € 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€ €P€X€`€ 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" P€X€ &h€ $惏赴€ 邪璋€ P€ P€ p 埍牨 ū辣 乇€ 啾€  € ,0`€€  0槻 0炔  (€ 0 P h €€  惓 槼0ǔ爻鸪 (@2H€ € 牬 按却€ 写€ 卮€ 啻€ € € T璐€ &@€ h€ x€ 埖€ 牭€ 赖€ 械€ T璧" @HPp€x €牰€ € Tǘ€ (€ (€ 8€ H€ `€ €€ 惙€ Tǚ" 0€8 @`€ € 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"@h€p x権€ € € T犡€ *€ (€ 8€ H€ `€ €€ 愘€ Tㄙ"  0€8 @`€ € Th€ *磊€ 疒€ € € (€ H€ X€ Tp" 熔雄 刿€ (€ € T0€ *堒€ 杠€ 溶€ 剀€ 疖€ €  € T8" 愝樰 犦垒€容 休疠€ € T€ *P€ €€ 愞€ 犧€ 皋€ 剞€ 柁€ T" X` h堖€愡 樳高€ € T肋€ *€ H€ X€ h€ €€ 犩€ 班€ T揉" ( 0P€X `€€ € T堘€ *噌€ €  € 0€ H€ h€ x€ T愨" 桠疴€  (H€ € TP€ (ㄣ€ 秀€ 嚆€ 疸€ € (€ 8€ TP" ㄤ颁