邢唷>? ?"yz|?!  ? ?$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€Root Entry F犵u纸斪离SummaryInformation(8DocumentSummaryInformation8 Macros~}S?t纸斪坱纸斪? ? !"#$%&'(?*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQR?TUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€? 鄥燆鵒h珣+'迟0€ $ 4 @L Xdlt|h芉T饄CNISNormal Mr.Wrong30@@S?6O@J彥%@€4粽綌@pKK =WPS Office_11.1.0.10700_F1E327BC-269C-435d-A152-05C5408002CA? 胀諟.摋+,D胀諟.摋+,H€PXhpx €zleD? 0t€|KSOProductBuildVerICV2052-11.1.0.10700!C9DDD01A4693479E8F08DA86B54774EB岬€0* pHdTemplateProjectQH@  = | €L饐_ J< 9stdole>stdolePh%^*\G{00020?30-C 0046}#2.0#0#C:\Windows\SysWOW64\e2.tlb#OLE Aut€omation0僂Offic凟圤f€ic侲秬瑎丒2DF8D04C-5BFA-101B-怋DE5€EAA€C*4€2丒2僂Users\Administrator\AppData\Local\Kingsoft \WPS 傾\11.3.0.8632\oK6\ksoapi.dl€l#Micro厔 €0 Ob佂 Library#W€MSForms>!SF硆€ms3VBA?t纸斪坱纸斪dirFrmFL  ?frmJz )x 评YD452EE1 -E08F6A-8-02608€C4D0BB4Y€俫ram Fi榣es匼@6s\F'.C3.Desktop_16051.11901.20176.0_x86__8wekyb3d8bbw e\VFS乶temX86\FM2`0.DLL=3 {孅/;?1?C 岮?0}#:0? €^K0 嚴BL488D94B-8BC0-4F65-9A27-9266€47596E2IL剛DMINI~1僉丄豛VBE\膉p.exd燑@"€.E忇厐.`孧 酯么N纝al米N}@ `*\C咶_A亐倎鈚ThisDocumentGT`T爑i€ID cuKenU爕2` H1鈫n ,",*""+鈭Md爈TdsGM爤坙TsF2錎Q!ClsC}?s,|4 ( FrmAdd‵oo?亁jA dBzob.+265'喘-麹G丒Cho@C@AoТ2苺 鎥?ContQgC`QaP%Q?$'?+dMoPip#a璮rm€籩GEb璮4Da3e泙Q2ojo涱qA籥eleteIndexGV Ee燭eI礰sd嘹x _2_沑_ 篳>_ 唿p#Edi猼c,?E`,i绫i?2? $Z愭? 醚? FLGB"2谾L2?~0yaFLBSY"B=皔 Y"9牽TypP*'Ty鷓?? 鍮酀=!q? 孞z+Jz/s?d3l@Markt21lM燏rk92Q3l35 &m1C ?TablU?TP b覃:2Z?e覃[t]疮-[U q]U0!wLq]fs]o?!属QHmd0L?([+B爸XA1唠?艘N亼??ly墟 太,E筕€酩壾峙厶贙Ef撾思x峙厶贙Ef撾思?([+B爸XAMEPSPSSS1?5~0Tm 牲N玕穓pM呃pF樕,驰癜挘?;c=躈4Dk蛦艐侼N氀嵫徑寐x艐侼N氀嵫徑寐m 牲N玕穓pMEPSPSSS1?6"<<$ 0{DF1BC24D-19C0-4670-98C9-2CB3DBF1B092}{3B25ADA3-3D63-4EDC-AEF9-1134446BCD86}  @`  ``勔  `  ``)? 8@%i?   ` €?%侢 %@`凗H%偁&?x?%x`P XL饐_*\R4*#d$*\Rffff*0_5f86f04c48<@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@r初o`@]€zle,2008-8-27,*1,注销掉错误捕捉2 zle,2008-8-27,+1,取消文档保护x@ If Not (ActiveDocument.ProtectionType = wdNoProtection) Then- ActiveDocument.Unprotect "zhangcheng" End If'>!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 (!€! " %   StandardName B@ V B@&k`kXzle,09-06-21,+end-zle,2008-10-8,*bgein,注释掉原来增加附录的方式 !B@ !附录标识 (%99 99999999性附录)xC@q` !附录标识 !d性附录)在附录中间插入 B@`d 在最后插入   B@BKSY (!% BKSY B@ B@R B@`kxBKCKWX (!% BKCKWX B@ B@R B@`kk !终结线 B@R B@( B@`d B@& B@(kzle,2008-10-8,*end 附录图标号 (% ( Selection.TypeText "图编号" B@( 附录表标号 (% ( Selection.TypeText "表编号" B@(附录标识 (% ( $ B@ !, (规范性附录) B@dX(资料性附录) B@k0 $ B@!zle,2008-10-8,*1,注释掉加入的文字  !d B@zle,2008-10-7,+2,向下延伸出一行 B@(% Selection.MoveLeft wdCharacter, 1& 'zle,2008-10-8,*1,注释掉选中的文字( Selection.HomeKey , Extend:=wdExtend A@r?zle,2008-9-24,+1,运行定时更新域,以便能够及时得更新附录公式编号 (! !DWC@ 99qpA@ DW B@DW (%B@'>| 2'> A@r4不能在编辑封面时添加附录,请将光标移出封面再添加附录A@vo  !d$  (dx  (k`oX " A@ k0o(`  (  B@ oZAttribute VB_Name = "Frm FL" 郆asp0{DF1BC24D-19C0-4670-98C9-2CB3DB8092}{3B25ADA3-3D63-4EDC-AEF9-1134446B CD86}菺lobal嘢pa俢oFalse CreatablPredeclaId蠺ruBExpose0Templat@eDerivC€ustomiz婦` 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.Prote€onT剏pAfwdNo? ThenUnp "z槔$gc@ g€噦AHLIf?CIn€c8ess唚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?a?/g`蘁g !mje nd q09-006-21$nDtf 琫Fo薸elds.Count p> 10$.??Inf@ation(wd PageNumber)}1,! 'C{mS鈚@燼rd醤?鄠醿 ?搃?q&偟聰*bge罃注释礰粼柕0姆绞D?Find.Clear!?atti吚Wi豻h G.E]?b€K标识"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蠤.XkW5: } 倎`u?,n11.a ?0 哜g@O 2U?XSHUC%疦le仱N图标号罭注~[b8"  縪 8W卤bEV頍n.表睙鑱髮I^MChr( 11a@%OptG€F.ValueLw "(规穨谍R搂 1oa讀柿蟤`R卾O  ?毙加入@的文字petxtTitxle.SS:7,+2,向下延伸出一|行S <&?wdCh馂cterC篈 选中忰 {惥Ext€1?Q艙 S8鐄d,2008-9-24,+1,运行定时更新域,以便能够及时得T附脊奖嗪 With ActiveDocument.Bookmar ksDL.Add Range:=Sele`on.A , Nam"DW"0DefaultSorti€ng = wd ByLocation+ShowH idden'Tr剈eEnd UpdateF€ieldTCS奊oTo wh繿t:=wdbO晇(乣).Dot凘InProcess€KFalsLxit Sub errorhandle:JUnload M?MsgBox "不能诒嗉饷€媸碧砑,请将光@标移出賲€?? 肁I?Priv繦? txtTitle_C'ge()'f Trim(.Text) <> "" The坋cmdOk.€Enabled f烣B羻 J@pIf?KeyDown(@ByVal @Code As MSForms.ReturnInt@eger, S餳iftA ?E= 13Q5_Cl8ickCD罯?User _Init鄆aliz芌>哤pSetF勒€移i6"<<$ 0{D7EBDF31-CB2D-4ED2-8191-3FC12F6C79D0}{CC0C0BE6-13AB-452C-B956-0380F5A489DC}0  @`  €`  `)? %i?  4 `€?xpH%侢x %@€凗%偁P? ?%HxPL饐_*\R4*#d$*\Rffff*0b5f86f04c48<@D€ €€ "  (8€ "@H P `p€ " x €€ " € x'V  !d'V A@ro@@'V  !d'V A@ro€ " A@ k`oX P !!d P! (dd P! (dkoAttribute VB_Name = "frm Jz" 郆asp0{D7EBDF31-CB2D-4ED2-8191-3FC12F6C79D0}{CC0C0BE6-13AB-452C-B956-0380F5€A489DC}菮Global嘢pacoFalse 奀reatablPredeHclaId蠺ruBExpose0TemplateDerivCustomiz婦 Option 1lici纓 P€#€' Sub cmdCancel_C亐k() 纆_SYGS txtJz.T ex% Unload M€iEnd3?1OkW/$_KeyDown(B yVal @Code As MSForms.ReturnInte ger, ShxiftA D??IfF= 13 T鴋en肍A€M?!俐If 訞User?_Activ_Z€g_Ma€rkOrAll\M偪.G]€Sele€on.Ran鬵ecE偋("剆?hLiH?,恭鬚呻?TH穵Y 嘍1箅O粎,壜鷥{懖z欟N汫=r巛OUx{懖z欟N汫=r巛OUiH?,恭MEClsTds #MdlTds憠frmDate M&frmFLBSS ???????刋Y.^&<4 € 硓G乤?洮*=鸂h?+3q" Ic_鍊HE菪?x" Ic_鍊HE菪? 硓G乤?洮ME( SS S?j`p`?*k1 0?0L<6"<,<0<4<8<<<plN0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}hU %*€88@ %*€h0@ %*€@(`@ %*€@ %*€H4@ %*€(@ %*€XP@ @ %*€P@ %*€XL€@ %*€ @ %*€`X @ %*€H @ %*€xhd@ @ %*€p@ %*€pp@ %*€$@ %*€8x|@ %*€h00@ %*€€`@ %*€<@ %*€@ %*€(H@ %*€X  @ %*€TP@ %*€€@ %*€`@ %*€@ %*€Hl@ %*€x@@ %*€ xp@ %*€P@ %*€(@ %*€80 @ %*€h80!!@ %*€@`""@ %*€H##@ %*€\$$@ %*€(h%%@ %*€Xt &&@ %*€€P''@ %*€ €((@ %*€P))@ %*€X**@ %*€H`++@ %*€xh@,,@ %*€pp--@ %*€ ..@ %*€ //@ %*€8  00@ %*€h 0 11@ %*€ ` 22@ %*€ x 33@ %*€  44@ %*€( € 55@ %*€X  66@ %*€  P 77@ %*€ ,€ 88@ %*€ 8 99@ %*€ 0 ::@ %*€H D ;;@ %*€x @ <<@ %*€ p ==@ %*€  >>@ %*€ ( ??@ %*€8 8 @@@ %*€h @(0 AA@ %*€ H4` BB@ %*€! P@ CC@ %*€ XL DD@ %*€#(`X EE@ %*€IX  FF@ %*€%hdPGG@ %*€K€HH@ %*€'ppII@ %*€M$JJ@ %*€)Hx|KK@ %*€+x€@LL@ %*€O0pMM@ %*€-NN@ %*€Q<OO@ %*€/8PP@ %*€ShH0QQ@ %*€1`RR@ %*€UTSS@ %*€3TT@ %*€W(`UU@ %*€5X VV@ %*€YlPWW@ %*€7€XX@ %*€[ xYY@ %*€=ZZ@ %*€aH8[[@ %*€?x@\\@ %*€c@p]]@ %*€A^^@ %*€eH__@ %*€98``@ %*€]h(0aa@ %*€;0`bb@ %*€_Pcc@ %*€CXdd@ %*€g(`ee@ %*€EXh ff@ %*€ipPgg@ %*€Gx€hh@ %*€€ii@%*€'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\)冪hp%i冭 € ``)冪%i冭 € `Xd)冪x€%i冭 € (`h )冪%i冭 € `hl)冪%i冭 € 8`p)冪%i冭 € `xt)冪%i冭 € H ` x )冪 ( %i冭 €  ` |)冪 %i冭 € X!`!€ )冪0!8!%i冭 €  ?`?)冪??%i冭 € "h"` ")冪@"H"%i冭 € $?`?)冪??%i冭 € (x#`0#)冪P#X#%i冭 € *$`?)冪??%i冭 € .?`@$)冪`$h$%i冭 € 0%`?)冪??%i冭 € 2? `P% )冪p%x%%i冭 € 4 &!`?! )冪?&%i冭 € :?"``&")冪€&?%i冭 € <?#`?#)冪''%i冭 €`凗 `凘`凚`凞 X($`?$)冪??%i冭 € Z?%`X(%)冪x(€(%i冭 € \()&`?&)冪))%i冭 € ^?'`h)')冪??%i冭 € `8*(`?()冪**%i冭 € b?)`x*))冪??%i冭 € dH+*`+*)冪 +(+%i冭 € h?+`?+)冪??%i冭 € jX,,`,,)冪0,8,%i冭 € f?-`?-)冪??%i冭 € lh-.` -.)冪@-H-%i冭 € p?/`?/ )冪??%i冭 € rx.0`0.0)冪P.X.%i冭 € n/1`?1)冪??%i冭 € t?2`@/2)冪`/h/%i冭 € v03`?3 )冪??%i冭 € x?4`P04)冪p0x0%i冭 € z815`?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$A)冪??%i冭 € P8B`8(B)冪(808%i冭 € ?C`?,C )冪??%i冭 € `9D`90D)冪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Y)冪`DhD%i冭 € 菵Z`Z PE[`E[)冪(E0E%i冭 € 谽\`怑\)冪癊窫%i冭 € `F]`F])冪8F@F%i冭 € 鐵^`燜^ )冪繤菷%i冭 € pG_`(G_)冪HGPG%i冭 € 鳪``癎`)冪蠫谿%i冭 € €Ha`8Ha)冪XH`H%i冭 € Ib`繦b)冪郒鐷%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`郚m) O%`勑`  `  `  €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$%?nnk鐿燦鐿0UFPL饐_*\R3*#15e*\R1*#16f*\R3*#15e*\R1*#172*\R1*#256$*\Rffff*0W5f86f04c遧4<hDL(T\dHlt|hH8X(x8X 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€ (Xy€  €y 爕 皔纘 葃 衴€ 鑩€ ,z€ &8z€ *`z€ 恴€ ,皕鄗{{ 0{@{€ BH{恵爗 8|@|H|P|$`| 坾恷榺爘皘 衸貄鄚€ 鑭}}} }(}€ ,0}`}€}坿€ 恾€ 0皚鄛€ € *~ 0~@~H~€ .P~ €~$悀 竳葉 貇"鑯 " HP p€€ € € D竴纮€ 葊鑰 皝纴€ € € 4葋  @P`€ h€ 垈▊ 競葌€ 袀€ €饌鴤€€8@X `p:垉 葍貎 鄡 饍 (08Xp x垊:爠 鄤饎 鴦 08@ H Xx€垍悈槄竻袇 貐鑵: @P X hx悊槅爢€  ▎葐袉€ € 4貑€ *@ HP X`€ € € h€ @垏€ f葒0 8HP h <p€ .皥 鄨 饒 (08@H€ Ppx 悏槈€ 爥缐 葔袎 貕鄩鑹饓0鴫(008 h px€€ 悐"要素及排版"按钮] 蚰4封面] 蚰8@] 蚰h4目次] 蚰] 蚰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 J (!v!$(预览)'JA@2k A@o段   Ao J (!v!$(预览)'JA@2kA@ozle,2008-7-18,增加多个示例0 J (!v!$(预览)'JA@2kA@o多个示例快捷按钮  Aozle,2008-10-4,+增加标记索引项@  Ao J (!v!$(预览)'JA@2k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  J (!v!$(预览)'JA@2k A@o zle,09-06-26,+增加"打印"按钮`  AoP 2@ ,zle,090709,+begin 增加书签,以便回到原来位置 (! !PRTBKC@ 99q zle,090709,+end J (!v!$(预览)'JA@2k` A@( 处理封面为打印状态,不允许在编辑zle,090709,+4,回到原位PRTBK (!% PRTBK B@PRTBK (%B@k  *%B@'J|€2x打印机错误,请检查打印机TCSA@vo@ zle,窗体保护p J (!v!$(预览)'JA@2kA@ 要素及排版$€!t $!(取消保护 $!(k€ox J (!v!$(预览)'JA@2k( !A@ Ctrl.State = msoButtonUp保护文档 $!( (d" Ctrl.State = msoButtonDownA@取消保护 $!( (kXoPzle,取消窗体保护€ J (!v!$(预览)'JA@2kA@ 要素及排版$€!t保护文档 $!( (ko zle,打印预览  AoP*zle,2008-10-4,+begin, 增加打印预览快捷按钮 J (!v!$(预览)'JA@2k,zle,090709,+begin 增加书签,以便回到原来位置 (! ! PRTVIEWTCSC@ 99qHzle,090709,+endA@( 处理封面为打印状态,不允许在编辑A@ PRTVIEWTCS (!%  PRTVIEWTCS B@ PRTVIEWTCS (%B@k'Joxzle,2008-10-4,+end 删除索引项  Ao0 删除索引项 J (!v!$(预览)'JA@2kA@o 增加首示例( J (!v!$(预览)'JA@2k`A@oP  Ao0 增加示例内容8A@o!zle,2008-8-17,+begin,增加正文公式 J (!v!$(预览)'JA@2kA@foxzle,2008-8-17,+endzle,2008-12-2,+增加公式快捷按钮H  Ao%zle,2008-8-17,+begin,增加正文公式格式 J (!v!$(预览)'JA@2kA@vozle,2008-8-17,+end'zle,2008-12-2,+增加公式编号格式快捷按钮X!  Ao 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插入附录?  A$o%zle,2008-9-26,+begin,增加附录快捷按钮h" J (!v!$(预览)'JA@2k  &B@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?  A*o %zle,2008-9-26,+begin,增加封面快捷按钮x# J (!v!$(预览)'JA@2kX (!€! 已经插入封面,不可以再次插入!A@vd ,B@kozle,2008-9-26,+end图标题正文、附录$  A0o图标题正文、附录快捷按钮? J (!v!$(预览)'JA@2k0A@o 规则%  A4o%zle,2008-9-26,+begin,增加规则快捷按钮? J (!v!$(预览)'JA@2kpTCSGraphicPath$t' \IEXPLORE.EXE   \TdsHelp.htm 8A@6o 添加条文脚注 &  A<o)zle,2008-9-26,+begin,增加条文脚注快捷按钮?2€ J (!v!$(预览)'JA@2k80zle,2008-12-25,+,当光标在封面时,不允许增加脚注 (!€! " % "请将光标移除封面,再进行脚注的增加A@v|kkzle,2008-12-25,]0'判断问道是否已经被保护]H'`''>如果封面保护,则解除保护 (!  zhangcheng (B@'>d'>k>zle,2008-12-23,+begin,增加判断是增加脚注内容,还是修改脚注内容'P]x''D1.光标是在脚注编号的左侧 d Z B@b !脚注引用 !!d) d B@` v!x!z!l  v!x!z!l F v!x!z!l H J v!z(dp L v!z(kX %!B@H d B@N'P PB@'P V$ !(d v!x!z!l  v!x!z!l F v!x!z!l H  v!z(d€ v%B@Bk`'V'DRHd@ d B@`k d d B@`k2.光标是在脚注编号的中间 d Z B@` !脚注引用 !!d) d B@` v!x!z!l  v!x!z!l F v!x!z!l H J v!z(d L v!z(k %!B@H d B@N'P PB@'P V$ !(d v!x!z!l  v!x!z!l F v!x!z!l H  v!z(d v%B@Bk?'V'DR?d? d B@bk?d? d B@bk?3.光标是在脚注编号的右侧 d Z B@` !脚注引用 d B@`  v!x!z!l  v!x!z!l F v!x!z!l H J v!z(d服 L v!z(k燓 %!B@H d B@N'P PB@'P V$ !(d  v!x!z!l  v!x!z!l F v!x!z!l H  v!z(d驱 v%B@Bk?'V'DR忼d圐 d B@bkh=说明是要进行增加脚注 D 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("请输入新脚注内容", "添加脚注", "") PB@ V$ !!d B@`k?)d B@ Z B@` T ( B@` ! (!%.V Z B@` B@ V$ B@  v!z(k?'V End Ifk?zle,2008-12-23,+endR >保护窗体 (%(  (!!  (%(08 zhangcheng l (B@ 要素及排版$€!t $!(取消保护 $!(k?k?'>|?2?请正确选中内容A@voh7zle,2008-9-26,+end列项?  AZo 7( J (!v!$(预览)'JA@2k?A@o??  A^o?() J (!v!$(预览)'JA@2kP6A@o@6?  Abo 68* J (!v!$(预览)'JA@2k?A@o??  Afo?H+ J (!v!$(预览)'JA@2kP5A@ o@5首字母列项快捷按钮?  Aho5X, J (!v!$(预览)'JA@2k?A@o?数字列项?  Anox4 首数字列项h- J (!v!$(预览)'JA@2k4 InsertLx51o?首数字列项快捷按钮?  Apo?数字列项快捷按钮x. J (!v!$(预览)'JA@2kX3A@oH3/  Avo(3? J (!v!$(预览)'JA@2k?A@o?目次0  Azo?%zle,2008-9-26,+begin,增加目次快捷按钮目次? J (!v!$(预览)'JA@2k2BKML (!%] 1本文已有目次,是否更新?   $v'  |?k?#zle,2008-10-10,+1,目次更新的次数加1 T 'TkP1 |B@o81zle,2008-9-26,+end前言81  A€o?%zle,2008-9-26,+begin,增加前言快捷按钮? J (!v!$(预览)'JA@2kp0]H2'>BKQY (!%"zle,2009-1-9,+begin,判断是不是误删 BKQY B@说明确实存在 前言 !前言、引言标题本文已经插入前言,不能重复插入A@v'>|?*说明是误删了“前言”,导致 前言的 格式丢失dX//判断“引言”存在,则将前言的内容删除到 引言 为止BKYY (!%BKQY (%!$ $BKYY (%!$ (%. B@H B@1判断“引言”不存在,则将前言的内容删除到 正文 为止dX.BKQY (%!$ $ StandardName (%!$ (%. B@H B@k?k?zle,2009-1-9,+endk? StandardName'BKYY (!%BKYY'   B@ B@R B@( B@`BKML (!%e StandardName'   B@ B@R B@` B@(d?   B@A@@kh,前言、引言标题 (% (前d B@"zle,2008-10-10,+2,空两个汉字的距离   B@   B@言d B@ B@R B@b  Z B@b (! !BKQYC@ 99q(+ B@R B@&BKYY (!% B@(d? B@( B@` B@(k?'>o?zle,2008-9-26,+end+zle,2008-7-23,+begin 增加设计表格的触发函数`2  Ao *? J (!v!$(预览)'JA@2k?A@Do?zle,2008-7-23,+end!zle,2008-9-22,+begin,图表脚注说明p3 J (!v!$(预览)'JA@2k0)A@o )?  Ao)#zle,2008-9-22,+begin,图表首脚注说明€4 J (!v!$(预览)'JA@2k€(A@op(zle,2008-9-22,+end5  Ao8(引言?  Ao(%zle,2008-9-26,+begin,增加引言快捷按钮6 J (!v!$(预览)'JA@2k?'>]?BKYY (!%"zle,2009-1-9,+begin,判断是不是误删 BKYY B@说明确实存在 引言 !前言、引言标题本文已经插入引言,不能重复插入A@v'>|?*说明是误删了“引言”,导致 引言的 格式丢失dp&BKYY (%!$ $ StandardName (%!$ (%. B@H B@k?zle,2009-1-9,+endk? StandardName'   B@BKQY (!% B@&  B@\ Selection.HomeKey B@` B@(BKML (!%e StandardName'   B@ B@R B@` B@(d?   B@A@@k`$前言、引言标题 (% (引d B@"zle,2008-10-10,+2,空两个汉字的距离   B@   B@言d B@ B@R B@b  Z B@b (! !BKYYC@ 99q # B@R B@&BKQY (!% B@`d? B@( B@`k? B@('>o?zle,2008-9-26,+end示例?  Ao@"示例@7 J (!v!$(预览)'JA@2k?A@o?索引?  Ao?%zle,2008-9-26,+begin,增加索引快捷按钮P8 J (!v!$(预览)'JA@2k !A@o!zle,2008-9-26,+end表标题正文、附录?  Ao 表标题正文附录快捷按钮`9 J (!v!$(预览)'JA@2kP A@o@ 一级条标题?  Ao 一级条标题快捷按钮p: J (!v!$(预览)'JA@2kA@o 二级条标题鼹  Aoh二级条标题快捷按钮€; J (!v!$(预览)'JA@2kA@o 三级条标题<  Ao三级条标题快捷按钮忺 J (!v!$(预览)'JA@2kXA@oH 四级条标题=  Ao四级条标题快捷按钮燒 J (!v!$(预览)'JA@2kA@o 五级条标题(>  Aop五级条标题快捷按钮? J (!v!$(预览)'JA@2kA@o非标题条8? J (!v!$(预览)'JA@2kzle,090812,+3 |hk`A@A@zle,090702,+5 ! 一级条标题一级无 (d 附录一级无 (ko?  AoH@ J (!v!$(预览)'JA@2k`zle,090812,+3 |0k(A@A@zle,090702,+5 ! 二级条标题二级无 (d 附录二级无 (ko蠤  AoxXA J (!v!$(预览)'JA@2k(zle,090812,+3 |kA@A@zle,090702,+5 ! 三级条标题三级无 (d 附录三级无 (kho`郃  Ao@hB J (!v!$(预览)'JA@2kzle,090812,+3 |kA@A@zle,090702,+5 ! 四级条标题四级无 (dP 附录四级无 (k0o(養  AoxC J (!v!$(预览)'JA@2kzle,090812,+3 |k€A@A@zle,090702,+5 ! 五级条标题五级无 (d 附录五级无 (koD  Ao将非标题条的字体变为宋体圖2宋体 %!!f(zle,2008-10-7,+设置段落前后间距 %!!99 9q|2保护区域不能设置样式A@vo注菵 J (!v!$(预览)'JA@2k€A@0op注 的快捷按钮PE  Ao8章标题谽  Ao章标题快捷按钮`F J (!v!$(预览)'JA@2kA@o*zle,09-06-13,+begin,增加正文注,注×,首注鐵 J (!v!$(预览)'JA@2kA@opG  Ao鳪 J (!v!$(预览)'JA@2kA@o€€H  Ao`I J (!v!$(预览)'JA@2kA@o怚  Ao(zle,09-06-13,+end,增加正文注,注×,首注注×J J (!v!$(预览)'JA@2kPA@4o@多注的快捷按钮燡  Ao 是否显示帮助(K]癒 !   ('.d  ('.ko是否进行双面排版菿 J (!v!$(预览)'JA@2k ]PL ! A@.  (  $!(d  (zle,2008-11-24+1  $!(A@ko-zle,2008-10-4,+begin,增加“双面排版”快捷按钮hL J (!v!$(预览)'JA@2k]餖 ! A@.  (  $!(d  (zle,2008-11-24+1  $!(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 J (!v!$(预览)'JA@2kx A@6oh 首注的快捷按钮怣  Ao0 N&解决与word文档进行切换时关闭不保存问题 (!\ (! !\ ! | 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自己的只能调用自己的 (!\ (! !\ ! |k€ (!$.tcs (!$.TCS (!TCS.SYSd |k >'>]O] O8O]PO' zle,2008-11-13,+2,]hO]圤'   %!2只处理封面情况 !! (%. !€!'l l|8k0 l %€判断是否无模式窗体打开& If (g_rowNum = 1) Then g_rowNum = 0$ Unload UserForm1 End If&上次域失去焦点时,如果为空则设为缺省值 @5 @$ @ (%€5$5!$9k<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,判断是否是国家标准 0A@k'zle,2009-1-8,在判断一次是否是国家标准 <代替 $ GB/T 9 <e代替 9 <e代替 $ DB 9 <e代替 $ Q/ 9k @$StdNo B@&kxkpzle,2008-11-24,+end>zle,2008-11-27,+begin,如果是发布日期实施日期,则将光标置于末尾5FY5XXXX5FM5XX5FD5XX5SY5XXXX5SM5XX5SD5XX9k8zle,2008-11-27,+end5c155c255c355c455c555c655fm5 B@&k8~.zle,2008-11-24,+begin,如果是完成日期则特殊处理5WCRQ5(本稿完成日期:)9 B@& B@`k榼zle,2008-11-24,+end5BAH5备案号:9 B@&k0}zle,2008-11-24,+end]燨']窸' '  $StdNo0]蠴StdNo0 (%€5' 5!€'     $X  $x  'k |      X$H'  9k貃q衶k葅  $StdNo1StdNo1 (%€5' 5!€'     $X  $x  'k{      X$H'  9k纙q竮 <StdNo1 (%€!' kxzkpzkhz  $StdNo2StdNo2 (%€5' 5!€'     $X  $x  'k▂      X$H'  9k`yqXyStdNo2 (%€!' k(y.zle,2008-10-14,*1,让光标的位置置于所点击的地方$ Selection.EndKeyk竫q皒d▁' k榵处理标准名称及页眉  @$StdNo2如果是标准编号则处理页眉和页脚  StdNo @StdNo  StdNo @StdNo A@ B@&k皐 ! vB@ k恮 @StdName+!如果是标准名称 则修改正文标准名称(zle,2008-11-26,+begin,获得当前光标的位置   (!BZ !C@9 9q葀d纕  'Lk皏zle,2008-11-26,+endA@ ! vB@ khvk`v标准名称及页眉处理结束  '@d(v  '@kv'>kv J (!v!$(预览)|衭k萿 J (!v!$(预览)'JA@2k€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文档进星谢皇惫乇詹槐4噫问题祤:靨Path + " \"lName♂wThis. *腓Exit O鈁Aa! ?' 5?Quit(?be羮cmbNew餗enu 遣  怱et H=