//%3??;??54??Lx彏W)??
u
>6?? ?0
'"要素内容样式"<獉璖l'on7" '示例珸淪l(o(b(Sl 忒 P -4D_ q笛X '多o dp_ r a? M S 首 d縫_ /o莔!# ))SLCON""b"'" c/$ZWZ*)'勒淖p_/" a???5 0W)t ×裏 Zoof 唾 0俹ZZx psO#J#醼L图表o# P hEvents CmdZC A ommandBa rButton
Attribute.VB_V arHelpID = -1
P ublic Wi*t 瀂 '蛝急碜ⅰ
d(d"礪C(QF淸[首注[F2-#\F抃笿 固鮌文脚嶿JJ"夽 C.GTit宭e賋]晏鈱\?
f] !^D
0Ta耣 1'表睆0
&1 1
(2Sj1'插入表瘳1$?$庝 mdE鏅TBJHZSM}J淼耡锁得鳜md$? $8ac的首醶S
_2C 斍 GSY2∶翶公2 2GS_DGS9md?
%
sG
s'A编号 _@
. R馟X更新?d _\劻 O剅_
' zle,09-0 6-17,*be4gi '_
婩lZ Wd媀'附妈颊聝W' 2\/ 釕鳩lBp礰晄Tr1/'on
幄
一级
蛽2二鶞4Fl3三cle4似臒le5溛鍠@ 非鹷J1餇-?_!杊}2OK单3忒_Q4鱫5{8?橙p4遃B 标 识_SShowq柿!Office.C焱 '显蔪景镏鶣 '0增加!C盤和Q 格式按毗バ 66/m撚==~G繹+敝JQ査饕?
CRS ?
0
焂 # Wend遌s 繲dsApp!` 癜轪ti丰O] 参考文螧譸riva銼剈bCk_C k(ByVal pCtrl掕, CancelD@efaultB oolean)
"
!Cal@mdxCkCtlE鴑d v#
n If g _ZMFirst虬\Right (ActiveDPocum圜. W indow.Cap, 4) < > "(预览)" The爌/@ 0Pro cessEditCIf Ins ertReferes
Em nd Sub
'段
Private Cm dD_Click (ByVal C trl As O ffice.Co mmandBar Button, CancelDe faultRBo olean)
b Cal 狢 j *E
6C岻f g_ZM First = 1 A;Righ t(Active Document.Window@.Captiv4 ) <> "( だ)" Th\ensu,0 P rocessEdLit
乽IfI nsertPar agraph
蝯le,20 08-7-18, 增加多个愂纠赟lJ ?J?J JMulE@xampleHJ'EE快捷按舿G慠祮]湹Is1 0-4,+乻标 记索引项翈,BJSYX縯PB!縬I僇?r ~ M?r?r`}?r#rS howfrmMarkIndex Mr09-06-07,*begi '插入8内 容<,楥RSY8?"'釋E! 8''9}9"999" 皤
噦l 詋m; s.Exists ("BKSY")s涔Cls`孊aM sgBox "荋胂柔=“!> 币趁妫"餇+a @
tA镈J$釰Forma h4荎1繩end
⒗11-2 ,更新公事津淕XGsMM辿&f |濴&??卻 ;卭&_|_|達|_| _|Q J&# Upd 擡quaa侼umTC&SCqC26揰"0蛴"O 饤PR鳬NT_ ???:o o 悺n } On Err or GoTo ze h昆羮Q骕'丼10709,+"W 书签， 以便回到 原来位置#With ??3?#.Add R ange:=SeDle 爋n., Nam`"PRxTBK=2劗S@ortingpew俤 ByLoc Hidden駊Tru E1#!
麚
e1?1.....0...'c 0nnt2 '处理封嫖獞-状态 ，不允许涝诒嗉瓝S *4, 位0忒靂S鮖$ 7 $ what:=wd苛 _ /#( ).D"t 糞 App@ .Di alogs(wd! File).!1#S 鱟1:Uh!机错 误,请检", , " 癎 +Q#揆3窗 灞；=RO鳷EC颋///逽
_+_+_+_+_+_+ 囷Y0%PrctY G鞝要素 及排版") .Visible翆軨lsEvA嵋YC.FaceI鈊=277s TC
"取晓麃$E5U[廤廤廤t% f g_ZMFi rst = 1 And Righ t(Active Document.8Window .Caption , 4) <> "(预览)" Then
0,ProcessEdit(BE sIf
I f Ctrl.F aceId 277 XUnPrct繲CS
'l3 State 2ms oButtonUpT%ClsEv蔆mdPROT0ECTC蓘" ；の牡" D25
Els鈋 =Dow垍X哤a淔取消丠桭77凢ub仯A'zle,"疤鍋$
Pr,iv悁 俇N僟Click( ByVal_ A s Office .CommandBarCT, Ca ncelDefaultA
Bool餰an)#纎繑繑黡 仈A[H媮翖4 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凉 ShowHidden鳷ru罎罖#駣 end 劶 nt!` '处纮矸饷嫖E 状态，不 允许在编浼%ine^B剂C@w$.Exis6t纘h )蘹%Go To what:x=wd-[(().) -let(&憏盛
fj((jB)' 删除索引勏钗hSCSY邅秄跺@廆e臹堾 恮別i>Oe郈OeOe姉>)2frmDe纋Index 丄>资纠S遶遶遶r 1遶湙@Insert 鄕ampl`0v.黃l`繃繃繃Bv,;V飈tZ,内容 LCONTC鴒nt ┧#a浡@ v7鍀a
正文谷絥
GS/
/
/
/
/%????痢!1 /%?羷捬#%E靟uTj廠-係7&12-2,+鐏o夢JGSo(o(o(o(k(_(Z() _ S 格 dGsGs @ 鳱um2ws 鉻 鸨嗪臦o e w e,09-06-17,*獾"S窇-P附录cA'F
l烝l 某 andBarBu tton, Ca ncelDefa ult As B oolean)
' If g _ZMFirst = 1 And Right(A ctiveDoc@ument. W indow.Capti4) < > "(预览)" ThenY ] Z0ProcessEditE vIf InsertEquad# Sub 'z le,2008- 8-17,+end begin ,增加附 脊礁袷 Private ' CmdF lGsGs_Cl ick(ByVa@l Ctrl昈 ffice.Co黰m>獌;A漈A罽09-06乊*!僘插入AS
Q?PD8Cal a齺fCAd滩 皢03亞9-26,+K 快捷按钮-E~乫覲 訁室"AiaF rmFL.Sho鄔 1
&%;(>!=标识,*)>B g繎?繎繎繎!繎笐Fl麭s@ K( d蔲"(肀晏猓瑯(郥itle h吆吆哼 *七禾 ) )蔘图)P)吖溽s縍{銯 l )('条!=T1)P痲喰 R喞)A0 唓<)Fls2煒煒煒煒煒煒縞O傾/;煒`摌逷P ?#2#3鬅?猟 ?#\3#4T24餺5W5'駛2 Yub撌3$1F忒n阎5>`酑hgToSxongP
慇騝傋1 0-8,+1， 修改为无CdQSele`鉶n.Style"A
一级无"
顲42镓??瞍 OL
曞滅二覤D
禓e3
' C hgToSongx'zle,20 08-10-8, +1，修改 为无标题擲electi on.Style = "附录三级无" HEnd Sub Private CmdFlT Title4F_ Click(By Val Ctrl As Offi ce.Comma ndBarBut ton, Can celDefault)Boolean) b蔍ns8ert]J嗨腤p.5趒5裶晤q蝡Z聀pJp f 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;;; a l;J;"!;a 琂FormFields缽unt > 10腍!a MsgBox " 已经插入a(，不可 栽俅蝍！`爜Else
!a FrmCho醽汼how GΜ5'图’誤摹!5G遯 EMC 進-鯧
LL L 坅!a LK:a剣$ig3
<规粼虔8Z焻_釨狻&8Z7'狟
@=}Go 瘄瘄s 'o ```z`1 o 疊0gpathiGetSe tting("T CS", "Gr燼phic P@峲 "餡1She繸& "\IEX PLORE.EXE " & TdsHelp.htm vbMa ximizedF
+s#餦添加 条文脚注.$J/$_昣昣暶,%$﨡/$菢f#fE $?$W$$$$On Error G爋To e h@lDY&&&&& ;&1! &x&胤2- 25,+，当@光标在qf事睉f允许褅 Ap 焞焞渓Pw糏nf纎aq(wd繨PageNu鄊ber)#晜 CD 鮬请将
瞥3q再进湫蠶
的
4q餎xit!羢&Q?\ ]S DiJm!t嗳edH '判断问 朗欠窳z被保护WTxt團oo偰Str =|, 嗦QIFn4Tru}'0如果a，涝蚪獬'>N崼
犛TyBp佊wdNoG)<l UnproH "z,gc甮鐇=
[9lFa0A郹(3)是'内葊荩故茿 cg_Mar恔OrA0P= 穬! iSideAIntegercS'1.$a编号的蟛嘤+Move" wdCha racter, 1, Ext鈸囑.V氡引用怕Range.餞ext馀柵q Lefts % $堂 Pane.View.!心刵t! Or *< _+o4&WebJ
eWindow. ActivePa ne.View. Type = _
wdPrintPrev 犩 ThenH禷燬eek ╳dFootnotes =Else"OplitSpepcialSSnd If USele 髈n.Par agraphs( 1).Range.MoveE!)wdCh ct@er, -1 g _MarkOrA
l丱3 frmJ@z.Show0 YRText } Trim(g_SYGS) If
駾tBgOr 鉗Web ? k 桵ain Document薉鄺Hs(2).鳦lo
}崚胇@b""iSidA褋L咷oTo P%$噝翚Left ?
汬I$ $ '2 .光标是 诮抛⒈嗪诺闹屑>
,Extend PgStyl!"A 引用"瑖h\<> ")翏%樴 CQ洖a
訹wda煭煭 v骯煭Hj$ 煭蒊4煭c+;a
煭煭薃+礋瓱瓊锜K肜缌* 煭 ;p稛K烱烱%蟅蟅u 廙'%蟅 $ 飨V臯2K 蟅喕&餜igh遃E ) 遃7![_ 4['3溜V挠也3 鮛`2颲 7颲霽Oft烻铫 p烻@ヴ0潉S -_S5BI/
$铹 --逺 ,薢, S_Rnen-w逹[$烸/铵5豍oв8h""""/" P刻刻$.逴饰 >虩O" O# 堿烴PUNN"?I?I '说 明是要进佬性黾1洠 U0E'
1 -K,A.WR, >3塋v4.Count > 'zle,2 008-12-9 ,注释掉 隹
'1TxtQ$In putBox(" 请修改后内容", " H泷貭0_:6
壽 1" AP錷?<Ma1 = ' Trim(g_S YGS)
' End If P Selectio n.MoveLe@ft , 1HRigh
JElse? h
Z%[耇x tFoot = InputBox ("请输入 新脚注内 容", "添l加" frmJz.Show
If 墯 <> "" 餞henk Range.Te黿t晠
呇脥 Type9`:=")"廟S, wdExten俤Y Style繷 wdBA]note ReferencO@y&嫄 t = A 渧eDoc@ument.s.Add(.俉纓W蛁R82c8D紅 1荴J
41Win dow.View.Seek肙 餗ain:K]Qz庙} " uF蒍
' zle,2008 -12-23,+w
Pt:A `WPr@9cted蘙'保护窗,体4S脛s(1).For@ 膍s@Trui* i2 ToU .CountH藢CiFa"! b N爍 Pa@ssword鄃z*h爔c}g`哊oReset:=, 酅:= _L wdAllowOnly Fiel dsg,Comm andBars( "要素及 虐")繢sib l蠇ClsEv醓CmdPROT ECTC.Fac萫Id(77Capa灌"取<消:葍 IiIn1"ces8)Ex it Sub
error$dlDe:Msg` `罢费≈r"
bGS9-26$S@牧邢頏Rrivate Lx1_C lick(ByV al Ctrl As Office郉)Butto n, Ca@憀D@efault!B@ooleanD綜lmd
C A
QE @ g_ZMF坕rs嶝1 A囫=廨(l^鋳D:, 4)⑻(预览6)碛) 0"t Ed id612Ins8ert Xox2鬅arP2e "筮""s " ;爅(槂 窡 2933邿?3鈵3鸴A"x?3 bP?3:潫菬?3Lx344鳠丳4 V V k< "(预览 )" Then
g_ZMF irst = 0XProcessEdit(End@ If
'nI nsertLx51
0Sub
6首数字 列项快捷 按钮
Pr@ivate # Cmd4C_Cl ick(ByVa l Ctrl A s Office .CommandBarButt CancelDe fault)Bo@olean)機 D>经插入Q，瞼荒苤馗"GAFals?1 o= 了“b 保致r 的 格@式丢失EI 'Q“
盦,则将 的内容删 除到 蝬筴 !*縍綬Y
Set te續pRang羈(Star0 醁A$.r - 1,羪:=1 2(V V .c 隸D (t<q<不正悟娘 Q??g8??乚 ndard5") 4 ]l C騟y鬕= " K屣, WBK'D螴oo(臝3 n.HomeKeyn.Type Paragraphn.QLef鴗 ,!{a$縚
c
盤 /X鬤o /XA
"@ W/|3
媯TnF`嶱ag?I&%cLHb[嘾 Hc tion.Typ@eText @: ="前"
'zle,20 08-10 ,+ 2,空两个 汉字的距离PSelec朓nsertS ymbol Ch aracterN umber:=8 195, Uni code:=Tr ue, Bias:=0WI
哐
rHomeKey
MoveRig@ht , 1w dSentenci1, wdExdWith A憊eDocum.Bookm0arks伕.Add Rang巸, Nam `"BKQY`D efaultSorting =<亖ByLoca/ShowHid8den棵En黡 A(C D 咺If5.Exists(@,YY") ThenC-G羐P@奼raphElse
羓8Lef坖 ?IfCInProcedssGFa!罠Sub
G9-2`6,+en纕7 -23,+beg in 增加 杓票砀竦 拇シ⒑
Private @ Cmd SjTable_ Click(ByVa@蛅rl A s Office .Command BarButto爊, Ca罉l剗傾
抣ean)0XCal CC U 燛g_ZMFirst@,1 A/bk(宑Window.CapY , 4) <> "(预览)" ,J) 膲?$:Edi>t$a >釙0
_!G=c:N= @2D=, 图表脚注说明(TBJ鳽SM;;;('((!( (tF igTblFoo嘟H)4"逬_^O^- ^
z9首:S?:?v +v?:?:縝鄊縝2骃| irN 1蚆 進進Cm進諱z t薓'引言(Yy9焀焀w Yy5 z z e
瞔,眂
快捷鸢磁 _Y c cs'_Y_Ynt. Ei_Yx~_Y"E EoxCbxW奃im 駗B釱Str鄮*O禃O圛9-1-9]判断是 不是误删1 婫oTo what:=wd苛 (b@ ?Style:@秆浴垄标题璶 MsgBox " 本文已经插入，瞼荒苤馗槩A帓尽1 泃嚤墱 了“ ”，导致r 的 格式p丢失G霙Set temp
$Πb(Sta^r 啢.r - P {:=s("ndard椤")2繟Q 5 綎 . Dp牺t埄儠剳$bQq鐈t,= +
&t-&sc$X0烂遨
柦 箒Up芭柡滦'Q邲J毛A怨23 =熇 $
6!
ML>岂蠦_a萫BK_ n.骛?斻[_n.
VFont8PagT+( ection.S tyle = A 鄓eDocument皊(" 把浴⒁ 员晏")
SelTypeText :="引"D'zle,2@008-10 , +2,空两 龊鹤值木嗬
KInse rtSymbol Charact erNumber :=8195, Unicode: =True, B纈as:=0WI峯 言刼
9HomeKey
Move Right , "1wdS籩nci1, wdE xtendWith嵭Bookm0arks.Add Rang巸, Nam `"BKYY` D efaultSo鄏ting "繠yLocaA垐 ShowHidd en 乢End~ A(C D 咺If5.Exist燘KQY") 餞henC-G罻Lef圵Else Q
ArP罃grap鎕6If
P InProces2sFFaB 罞Sub
G9-26 ,+聈示例
Private
CmdS l_Click(ByVa@羣rl As Offi ce.Comma ndBarButton, Ca缹l剄A
唋eancJCal CC@
` ?g_Z@MFirst &1l A -耫(,懨W indow.CapaR, 4) < > "(预览|)"孋) $傾!4Exdit#:a ;C廍`xampl燝!藅饕4y444y4"JoJbegin ,增加快澜莅磁クK& 888'888 8Design IndexTCS
9蒲坧'表嶷正文、铰&TabT餴tle=== >>a<
_= 烡/;/;脙 丣/;鳿 /; 0+;Tbl 1一级填醣 1 _V_V仿rUVT eZ猇W
醏 Oa鵒as Ka 遅遅P 9 衊瞅Y;二 2 邚 r瓔 2 ~W
龔 ot?9?9otzototA 糴c 烊龔 3 髲 e3 W
?
aAo歰歭tD 9 9 9 9 9P 9Gt 9Thi 琐膹 4 鶑 e4 W
禼訌 R @ _r0 琔or 锍
'五级条 标题
Pr ivate Su b CmdTTi tle5_Cli ck(ByVal Ctrl As Office. CommandB arButton , CancelDefaultR Boolean)
Cal =禖\V ; 0En
d
タ旖輕按钮QC甀 f g_ZMFi rst = 1 A IRight( ActiveDocument. Window.Capti亞4) <> "(预 )" Then儍亝,0 Pro cessEdit
僆fIns@ertFif偼
&
挿闾豕1F输縁縁 塅H'zle,090812,+3M f GetSec(Num@q0蘟Ex|it脵Ae腫r腫AChgToS榦ngE 70@ 5
f Sele坥n.Styl鈋 "一炮崅 无"Else嘋 P 附录G 崄3荔謩e遻镎{&N躿2 Vg Vyy酜'5zy V V艃C
儎郵烿烿V&\烿錫乂+峍6C遃_C誚鍺遃3遃遃_衉袏/h/h袵o+VVV羙+rtThio+縑g縑稸三o+ y廦 "o+縑"焌+o+瘮爺3Fo+蠑蠑蠑3藬v'o+t魃敮 4O+ 縑 ?縑dc 縑
蟻O+O+ 檕 偹腛+A馩+= "O+O+緽+偪Vr84O+ 0( K+v'O+O+O+O+O+O+ O+ O+O+O+O+O+O+dc O+O+ \牧_璻俔淇_.傲O+Y B+_*/+/+/+/+;/+燫5U'/+*+
0俳玌俚淖 体变为宋,体6(On Error G爋To e hplD厉=Parag raphs(1) .Range.F鈕 *Nam2橇D$2008-10 -7,+设謩 枚温淝昂 蠹渚
With Se lection. Paragrap hs(1).RangeLForm atnv.Lin eUnitBefore = 08 After6Sp acingRul9wdLeS 刲eIEnd
xit Sub
errorh@andle:M sgBox " ；で虿 荒苌柚醚砾式"
H9
'注
P@rivate& CmdZ_Cli ck(ByVal Ctrl As Office.Comm 5Bar Button, CancelDe faultBo@olean)僂I f g_ZMFi坮st|1 A cRight(A veDocument.Wind@ow.Cap, 4) <> " (预览)" 餞hen,伜,埛 ProcessELdi勑亁IfHn sertFigT郻lNot W艭@C 的快捷癶磁FCFHFC黙lW荹AZ孲繮' k章标题%鄑itle&&=\(''譕
織A熆椷KW逰蒏Chc}玬zle,0 9-06-13, +begin, 黾诱淖 ⅲⅰ粒(妆rWrndrrr羱r$~ ' '0Text瑀颹WZ?q!g&qf,~qm3_擀擀擀
策33Mu恙14_4呷掞-4熠@F郡?4縨罂m縨ti縨縨縨QM1 縨縨餿籱14饁鹢4F4蟸OE蟸C"瓐4Zotim';Q榚nd QQ
孅×&7o o o .?媎 ???? O ?媌l7'鸲嘧澘8/o/o/d/V U/ * P 是否显示帮助Sho鄔Help9糄im WI "(A/BAL倨膮冑BJ临贐a
A FBf|@6n绬\BB荹區@首注
L@Z蘘F_Y_Yan S#_?_?N? a ,?-$aInsertFigTbl`8Not楃'"的縂d#c_}恒#C}.s| 6TdsApp_舋BeforeClose$? 翄厙K幜"' 饩鲇雡or d文档进 星谢皇惫 乇詹槐４噫问题祤:靨 Path + " \" lName♂wThis.
*腓Exit O鈁Aa!
"' 5"Quit(,be羮cmbNew餗enu 遣 怱et H= s("@" '退出删0说qUFo r Each c tlPopup InPantro黮s!p臤~ "添加标 家" OrI文本p样式O`T 铰技芭虐>妤姴1 De|盙etFMTyNp碒*，9 -1-8，在 一次? 罓 Std! T0{()椖 敮ad"
1w
a亦"
2g
O軩B
d
33
{
Q/Q ? sQ p "No < Selec tion.PKe~y_,Q Q S f 烼烼 {7C諓?发布q愂凳﹒ .蚪 光标置于0末尾((a枑FY" |@慓"V)Q坔MoXND{ONSX房A)'U 鵑O Nop蘡1c2/|lc3/-4/-5/-6/,fm/Q 4
+V纒/U∵n'sn/吏h"??\Rj WMo剉e丣 , 1(c~(ⅹ#I3Κ ?$f
n惁_ Dim iCou nt As In`tegero$= 0"LenqV
ii @w羵bg敥, 6{"g0?gPS宼r ` ingO 竦 A癷veD`砿ent.Fo rmFields(鉳0")t =% .Te xtInput.榃id锝 ToA矔(Mid( , iP0X洿 " Or Mid (StdStr, i, 1) = "x") Th en
iC0ount f+ 1hEnd IfFNext i 圛f sLen eplace"X", " ")6亊.Res|ul乹$檓
W8ith tLe ft(NewNa`me, 6偼 BNo1"榹3 Ac tiveDocu ment.For mFields(" {@ 凘L>-厖卛乣= .Tm Input.WiNdQ9 " i@1 To A A(挩X H拑J芺疉鶙[鮌?a砏4Type <> 0\r霠烻)"y]a 燣ostF]s@K郌alse E ou `vt2t|t2Y撴Bttk!t t?蘫Ыtu5%
??蘣 f1t,g] W ct4齨 '7\?7飩 _ 'zle ,2008-10 -14,*1, 霉獗甑奈 恢弥糜谒 慊鞯牡镭方
'Q= Sele4on.裥KeyU1[ME濩SetFl dNull怑Tr&u圗%
' 肀曜济 萍耙趁~记7曖Olri!257鉊 '如果是1辣嗪旁q篮鸵辰派醼((In }莿S{p[AA欜&= 0)雹?tdNvo0 ?1媔)僌プInser \0oter ?? }c/Wi ndow.Scr ollIntoViewXRang鹟c 阔0!! 则修栏恼腢!
801-26,+b egin,获掂玫鼻白0 簟3_.] ookmarks/5.Add 瘰`:="BZ鸩b: =r .Sh@owHidd昂= 4 .Defa岸Sorting
wd ByL纎catio "?q ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~
! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~
! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M O P Q R S T U V W X Y Z [ \ ] ^ _ ` a c d e f i j k l m n o p q r s t u v w x y z { | } ~ ; R _< 錛 L x RH R ME $ 0 4 ( , 8 "> 0LB @j <, < ( <| < < < < ` > ? ` ? @ @ ` @ A ` A N N ` ` B ` B :: 0 C ` C p D ` D E ` E F ` F "0 G ` G $p H ` H & I ` I ( J ` J *0 K ` K ,p L ` L . M ` M 0 N ` N 20 O ` O 4 P ` P \ \ `勡 `< > Q ` Q = = `勡 `< @ R ` P R i傿 `勡 ` z S ` S `剼 凢 ( % |x T ` T 1 1 劄p % ~ U ` U 2 2 劄 % 8 V ` V 1 1 劄0 % L W ` W + + `勡 P X ` X _ _ 凾 , % r0 Y ` Y Z ` Z d d `勡 @ [ ` [ `剺 `剼 `劉 `劋 `勡 \ ` \ 劧 % `勡 `劸 ! ] ` ] ) ) P! ^ ` ^
(" _ ` _ `勈 勌! % `勎 `勡 `勑 `勔 # ` ` ` `勈 勌" % `勎 `勡 `勑 `勔 # a ` a `勈 勌p# % `勎 `勡 `勑 `勔 $ b ` b `勈 勌H$ % `勎 `勡 `勑 `勔 % c ` c `勈 勌 % % `勎 `勡 `勑 `勔 `& d ` d `勈 勌% % `勎 `勡 `勑 `勔 & e ` e > > & f ` f @ @ ' g ` g
' h ` h * * `勣 `勳 8* i ` i `勷 `勻 ( $ % 8( % ` `勡 `
` ` ` ` ` ` ` ` ` `" `$ `& `( *) 0 % .) % 劧* % `剎 H+ j ` j A A 2* % 4* 4 % `8 `> `凘 `凚 `凞 `凢 (, k ` k | | 2+ % 4+ 4 % `8 `> `凘 `凚 - l ` l O O 2, % 4, 4 % `8 `> `凘 `凚 JH- m ` m (/ n ` n 77 `勣 刋- - `刏 `刓 `刕 `刞 `刡 `刣 ` `刦 `刪 `勡 `* `刯 `刲 `刵 r0 o ` o 劧/ % `勡 `* `剨 `剬 剮0 0 % (0 `刏 `刓 `剱 剴0 8 % `劼 `勀 `勂 81 p ` p
1 q ` q 6 6 1 $ % 1 % `勳 `勣 @2 r ` r `勡 2 s ` s 03 t ` t 3 3 `勣 `勦 &3 % 剎(3 % +u ` u 陘:3 @ 陘< @ 獉@3 h @ 獉D4 @ 獉F@4 @ 陘Hh4 @ 陘J @ 陘N @ 陘T( " @ 陘XP ( @ 陘^ 4 @ 陘b < @ 陘hH @ `
# x & - @4 4 ` 03 3 $
X 0 X5 ` 8 1 ( 4 05 @ ' 4 0 @ ` @ 0 (/ P! 3 5 4 8 x X X
8 ! (" @2 p 0 p 0 p % 8* (, x H & 8 3 ` ` X X
`& ' H+ H- 81 `
2 x3 h4 0 P x x # . v v H x3 03 H X5 P 5 7赺V $ * \ R f f f f * 1 ? 5 f d a 3 7 c e * \ R 1 * # 1 a 2 $ * \ R f f f f * 1 > 5 f d a 3 7 c e ( * \ R f f f f * 1 > 5 f d a 3 7 c e \ 0 ) L 8 J x P p x . " $ 8 @ H P X " ` T 0 @ X x T " * . H . x 4 @ H P , p $ ( 0 P j h
( R 0
, . . ( 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 " 0 8 @ X ` h p 0 8 @ H X h p ( 0 8 H X ` p x R @ P X p x 0
8
H
P X ` p & ( H 2 h ( ( 0 8 @ H X h p " ( 0 8 H P X ` V p * ( 0 H P X ` h x ( 8 @ X ` h p V P , p 0 8 @ H X h p 8 @ H P `
V 0 ( P x 0 @ H ` h p x ( 0 8 H
X `
( 0 P X h
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 (0 00 80 H0 X0
`0 p0 x0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 (1 81 H1 P1 `1 h1 p1 x1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 02 @2 H2 X2 `2 h2 p2 2 2 2 2 2 2 2 2 2 2 2 3 3 3 3 03 83 H3 P3 X3 `3 p3 3 3 3 3 3 3 3 3 3 3 3 3 4 4
(4 84 @4 P4 X4 `4 h4 x4 4 4 4 4 4 4 4 4 \ 4 85 @5 H5 P5 X5 p5 5 5 5 : 5 5 6 & 6
@6 P6 `6 h6 x6 8 6
6 6 6 6 6 7 7 7 7 7 (7 07 87 @7 H7 P7 X7 `7 h7 p7 x7 7 7 7 7 7 7 7 , 7 7 8 (8 ( 08 X8 J p8 8 8 8 * 8 9 09 H9 X9 p9 x9 , 9
9 9 9 " 9 9 9 9 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 園 " 郂 鐯 餈 鳣 , A 0A HA `A , hA 楢 ˋ 4 癆 鐰 ( 鳤 B @B HB PB hB B 圔 燘 窧 蠦 2 養 (C Z @C 燙 繡 蠧 郈 餋 鳦 D D D * 8D hD . D 癉 菵 蠨 鐳 * 鳧 (E 0 HE xE E 怑 楨 燛 ‥ 癊 蠩 谽 0 郋 F F F
(F
8F 0 HF xF F 怓 楩 燜 ‵ " 癋 谾 郌 < 鐵 (G 0G 8G
@G PG
`G . pG F 燝 鐶 H H (H 0H 8H @H HH PH XH pH 圚 燞 窰 蠬 鐷 I 0 I 0 HI xI I 怚 業 營 ↖ 癐 " 窱 & 郔 J " (J PJ
XJ hJ " 圝 癑 窲 豃 鳭 K (K
8K HK `K hK xK
怟 燢 ↘ 繩 蠯 郖 鳮 L (L
0L @L PL
hL xL 圠 怢 ↙ 癓
萀 豅 鳯 M M M 0M 8M @M PM XM `M pM xM 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 楶
燩 癙 繮 郟
鑀 鳳 " Q 0Q
8Q HQ PQ XQ `Q hQ xQ 怮 癚 繯 蠶 郠 鑁 鳴 R 0R HR XR hR R 楻 癛 窻 萊 郣 餜 S S 8S PS `S pS 圫 燬 窼 繱 蠸 鑃 T 0 T 8T @T PT XT `T hT pT xT & T $ ═ 蠺
郥 * 餞 P U pU ( 怳 * 窾 P 鑅 8V ( XV * V P 癡 W ( W HW `W hW ( pW F 榃 , 郬 * X & @X . hX 6 榅 " 蠿 鳻 * Y & 0Y . XY , 圷 竃 衁 0 鑉 Z Z 0Z 8Z @Z HZ PZ XZ " `Z 圸 怹 榋
燴
癦 , 繸 F 餤 8[ P[ h[ x[ [ 圼 怺 榌 燵 ╗ 繹 豙 餥 \ \ 8\ P\ * h\
榎 0 ╘ 豛
郳 餦 ] ] ] ] (] 0] 8] X] `] h] & p]
榏 ╙ 萞
豜
鑍 鴀 B ^ 0 X^ 坁 恀 燸 ╚ 癪 竈 繼 萟 衈 2 豝 _ _ _ (_ " @_
h_
x_ 0 坃 竉 繽 豞 郷 鑏 餩 鴂 ` ` 6 ` H` P` X` F `` & ╜
衊
郹 H 餪 ( 8a `a xa 0 榓 萢 衋 郺 鑑 餫 鴄 b b b D b `b hb pb
xb 坆 燽 , 纀 F 餬 8c Pc hc xc c 坈 恈 榗 燾 ╟ 纁 豤 餭 d d 8d F Pd & 榙 ( 纃 鑔
餯 e e e e e (e 0e " @e & he $ 恊 $ 竐 鄀 f 6 f Xf $ `f 坒 J 榝 * 鑖 , g F Hg 恎 ╣ 纆 術 豨 鄃 鑗 餲 鴊 h h 0h Hh `h xh 恏 @ ╤ 0 鑘 i i 0i 8i @i Hi Pi Xi `i f hi 衖 豬
鄆 餴 $ j 0j
@j
Pj `j . xj B ╦
餵 k @ k Pk , `k 恔 B 発 鴎 " l 0l 0 @l pl
xl 坙 爈 ╨ 發 竘 纋 萳 " 衛 鴏 m m m 0m 0 Hm xm
m 恗 ╩ 癿 竚 續 萴 衜 豰 鴐 n n n 0n 0 Hn xn
n 恘 ╪ 皀 竛 纍 萵 衝 豱 鴑 o o o 0o * Ho xo " 坥 皁 纎 衞 鄌 鑟 " 鴒 p 0p Pp `p pp : xp 竝 " 萷 餻 q q q (q " 8q `q pq 恞 爍 皅 竡 " 萹 餼 r r r
(r 8r Pr
pr r 榬 皉 @ 纑 s s B 8s s " 恠 竤 . 萻 0 鴖 (t
0t @t Xt `t ht pt xt t " 坱 皌 竧 纓 萾 鑤 0 u 0u
8u Hu `u hu pu xu u 坲 恥 皍 竨 纔 萿 鑥 0 v 0v
8v Hv `v hv pv xv v 坴 恦 皏 竩 纕 葀 鑦 w w " 0w Xw hw xw 坵 恮 " 爓 葁 豾 鴚 x x : x `x " px 榵 ▁ 竫 葂 衳 " 鄕 y y 8y Hy Xy `y " py 榶 ▂ 竬 葃
衴 鄖 鴜
z z (z @z @ Pz 恴 ▃ 竮 貁 鄗 * 鑪 & { , @{ p{ " 恵 竰 " 纚 ( 鑬 |
| (| 0| 8| @| H| P| X| `| 6 p| ▅ 竱 纜 鄚 饇 鴟 } } " } 8} X} x} 榼 R 皚 ~ " ~ H~ h~ B p~ 竳 衺 p H @ R p 垁 2 ( ` 2 8 2 貍 2 皟 鑳 2 悇 葎 2 h 爡 2 @ x B 垎 ( 袉 鴨 ( ( P ` p
" 悋 ( 竾 鄧 饑
" H @ X 槇 ▓ 笀 葓 * 袌 b & h * 悏 缐 & 貕 > ` x 悐 8 槉 袏 鑺 饖 8 @ X " ` 垕 構 爧 ▼ 皨 笅 缷 葖 袐 鑻 8 X p 2 x 皩 缹
貙
鑼 0 鴮 ( " H p x 槏 笉 缻 T 葝 @ P ` x 槑 ◣ T 缼 " ( 8 `
悘 爮 笍 & 葟 饛 鴱
( H h
悙 爯 缾
鄲 饜
笐
葢 貞 鴳 J 0 " 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 4 x 皽 笢 罍 葴 袦 鄿 ( 0 P X x 垵 悵 槤 皾 袧 铦 饾 鴿 J h n x 铻
鵀 r
悷 r 牊 X < x 笭 D 袪 & ( P P $ 牎 取 . 小 D . P
悽 牏 涪
丌 稷 2 0 P ` x 垼 悾 T 槪 $ 穑 ( 8 P p T 槫 " 黏
0 H P X ` h 4 惀 去 啸 廿 啷 瑗 @ H h p 惁 槮 牔 唉 圈
瑕 2
@ ` p 埀 惂 槯 牕 T ě & ( 8 H ` 惃 T è " & $ @ h 埄 惄 ī 扩 : 丞 : P X í 泉 嗒 0 8 P X h x , 埆 斧 孬 0 皤 0 D P 0 槵
( 痊 0 瓞 8 P X p
埈 槶
牠 0 碍 喹 0 H 2 P 埉 ó 府 挟 禺 喈 璁 甬 T & P x 埊 槸 隘 携 喁 T " P X & h $ 惏 赴 邪 璋 P P p 埍 牨 ū 辣 乇 啾 , 0 ` 0 槻 0 炔 ( 0 P h
惓
槼 0 ǔ 爻 鸪 ( @ 2 H 牬 按 却 写 卮 啻 T 璐 & @ h x 埖 牭 赖 械 T 璧 " @ H P p x 牰 T ǘ ( ( 8 H ` 惙 T ǚ " 0 8 @ ` T h ( 栏 韪 @ P T h " 拦 裙 泄 " 鸸 ( 0 8 P X p x 埡 惡 樅 牶 ê 昂 负 篮 群 泻 睾 嗪 韬 鸷 ( 8 " @ h x 埢 牷 ɑ 阑 谢 鼗 嗷 杌 鸹 ( 0 8 @ H P X ` h p x " 埣 凹 兰 燃 屑 杓 鸺 ( 0 8 @ H P X ` h p x 埥 惤 樈 牻 ń 敖 附 澜 冉 " 薪 0 8 P ` h p x 埦 惥 樉 牼 ň 熬 妇 谰 染 芯 鼐 嗑 杈 鹁 " @ P X ` x 樋 翱 缚 揽 瓤 锌 乜 嗫 杩 鹂 ( 0 8 @ H P X " ` 埨 樌 犂 ɡ 览 壤 嗬 鹄 ( 0 8 @ H P X ` h p x 埩 惲 樍 犃 " 辛 嗔 枇 鹆 ( 8 @ H P X ` h p x 埪 惵 樎 犅 奥 嘎 缆 嚷 新 芈 嗦 杪 " 鹇 ( 0 8 P X p 埫 惷 樏 犆 懊 该 烂 让 忻 孛 嗝 杳 鹈 ( 0 " 8 ` p x 樐 犇 改 饶 心 啬 嗄 枘 鹉 ( 0 8 @ H P X ` h p x P 犈 鹋 T ( & ㄆ 钙 绕 嗥 T ( " 埱 " 惽 盖 狼 惹 枨 T 鹎 ( H p 惾 ㄈ 热 厝 T 鹑 " H P $ X 埳 惿 吧 T 干 ( 8 H X p 愂 犑 T 甘 " $ " H p 埶 愃 ㄋ 八 人 兴 厮 嗨 杷 鹚 ( 0 8 @ H P X ` h x 樚 " 犔 忍 靥 嗵 杼 8 @ H P X ` h p x 埻 愅 樛 犕 ㄍ 巴 竿 劳 韧 型 赝 嗤 柰 " 鹜 ( 0 8 P X p 埼 愇 樜 犖 ㄎ 拔 肝 牢 任 形 匚 辔 栉 鹞 ( 0 8 " @ h x 埾 犗 ㄏ 老 叵 嘞 柘 鹣 ( 0 8 @ H P X ` h p x 埿 " 愋 感 刃 行 匦 鹦 ( 0 8 @ H P X ` h p x 堁 愌 樠 犙 ㄑ 把 秆 姥 妊 醒 匮 " 嘌 ( @ H ` x 堃 愐 樢 犚 ㄒ 耙 敢 酪 纫 幸 匾 嘁 枰 鹨 ( " 0 X h p x 愑 樣 坝 扔 杏 赜 嘤 栌 鹩 ( 0 8 @ H P X ` h p x " ㄔ 冈 涝 仍 嘣 柙 ( 0 8 @ H P X ` h p x 堈 愓 樥 犝 ㄕ 罢 刚 勒 日 " 姓 0 8 P h p x 堉 愔 樦 犞 ㄖ 爸 钢 乐 戎 兄 刂 嘀 柚 鹬 P @ 愖 樧 犠 雷 " 茸 凶 刈 ( " 0 8 " @ h p x 権 T 犡 * ( 8 H ` 愘 T ㄙ " 0 8 @ ` T h * 磊 疒 ( H X T p " 熔 雄 刿 ( T 0 * 堒 杠 溶 剀 疖 T 8 " 愝 樰 犦 垒 容 休 疠 T * P 愞 犧 皋 剞 柁 T " X ` h 堖 愡 樳 高 T 肋 * H X h 犩 班 T 揉 " ( 0 P X ` T 堘 * 噌 0 H h x T 愨 " 桠 疴 ( H T P ( ㄣ 秀 嚆 疸 ( 8 T P " ㄤ 颁 镐 劁 噤 桎 T * h 樺 ㄥ 稿 绣 疱 T " p x 樻 犳 ㄦ 孺 T 墟 * ( X h x 愮 扮 犁 T 冂 " 0 8 @ " ` 堣 樿 犺 ㄨ 黎 辱 罔 噼 梃 痂 ( 0 8 @ H P X ` h p x 堥 愰 犻 " ㄩ 虚 嚅 栝 痖 ( 0 8 @ H P X ` h p x 堦 愱 橁 犼 瓣 戈 狸 汝 嘘 " 仃 8 @ X ` h p x 堧 愲 橂 犽 半 鸽 离 入 须 仉 嚯 桦 痣 " @ P X ` x 橃 犾 办 胳 漓 褥 徐 仂 囔 桁 痨 ( 0 8 @ H P " X 愴 橅 犿 疙 理 仨 囗 桧 痦 ( 0 8 @ H P X ` h p x 堫 愵 " 橆 李 蓄 仡 囝 ( 0 8 @ H P X ` h p x 堬 愶 橈 狅 帮 革 里 蕊 酗 " 仫 8 @ X ` h p x 堭 愷 橉 狆 梆 葛 鲤 瑞 叙 仞 囵 桊 痧 " @ P X ` x 橊 狇 榜 格 礼 锐 旭 伛 囫 桉 瘃 ( 0 8 @ H P " X 愹 橋 狉 蛤 莉 仳 囹 栩 痱 ( 0 8 @ H P X ` h p x 報 愺 橌 P 阁 8 T @ , 橍 若 佤 梏 0 T H " 狌 磅 絮 仵 圊 T & ` 場 橏 丽 圉 瘀 T " ` h p 堶 愾 橑 各 " 厉 洒 绪 瘅 " ( @ " H p x 狓 T ( ( 8 H ` 慁 T " 0 @ ` h p x
慂 ( 跟 帔 " 8 ` h 堺 狖 胞 " 耕 帑 棼 瘥 T * x 更 赛 帱 T ( " 堼 " 慅 " 庚 帻 瘕 8 @ H P X ` h p x 堽 慆 橚 狛 剥 羹 俐 叁 玄 佝 棹 瘙 "
8 H P X h p ( 0 8 @ H P " X ( 0 8 @ H P X ` h p x " 0 8 @ H P X ` h p x " ( 0 @ H ` x ( " 0 X h p x ( 0 8 @ H P X ` h p " x ( 0 8 @ H P X ` h p x " 8 P X ` h p x " 0 @ H P ` h ( 0 8 @ H P P p "
(
0
8
X
" `
h
p
"
( " 0 8 $ @ h p x " $ " $ H P X x " $ " $
(
0
8
X
" `
h
p
T
@ P ` x T " ( , H x
0 @ P
X
h x ( 8 P p
T ( F 0 T H " <
0 @ P ` p 0 0 H 0 x 0 8 P X ` 0 0 0 @ P X $ ` " 0 @
P ` h
2 X ` h p T x ( H X T p "
( 8
@
P ` ( h (
( 8 P `
.
0 8 T @ . 0 T H " & T , h T " p x $ T , 8! h! x! ! ! ! ! T ! " @" H" $ P" x" " " " T " 2 # @# P# `# x# # # T # " $ $ ($ 0$ 8$ @$ H$ P$ `$ $ $ $ $
$ $ @ $ " % 0% P% h% % H % & $ & ' ' @' `' x' ' ' : ' ' ( ( (( 0( H( h( ( ( ( ( ( ( ( ( ( ) ) ) 0) H) h) p) x) ) ) ) ) T ) 4 * H* X* h* * * * T * " + (+ 0+
8+ H+ " h+ + + + + + + + , , , , , (, 0, 8, @, H, P, X, `, h, p, x, , , , , , , , " , - - - - 8- @- X- p- x- - - - - - - - - - - - - - - - - . . . . @. " H. p. . . . . . . . . . . . / / / / / (/ 0/ 8/ @/ H/ P/ X/ `/ h/ p/ / / / " / / / / / 0 0 (0 @0 H0 P0 X0 `0 h0 p0 x0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 " 0 1 01 81 @1 X1 `1 x1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 (2 02 82 @2 " H2 p2 2 2 2 2 2 2 2 2 2 2 3 3 3 3 3 (3 03 83 @3 H3 P3 X3 `3 h3 p3 x3 3 3 3 " 3 3 3 3 3 3 4 4 04 84 @4 H4 P4 X4 `4 h4 p4 x4 4 4 4 4 4 4 4 4 4 4 4 4 4 " 4 5 5 (5 05 H5 P5 h5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 6 6 6 6 6 (6 06 " 86 `6 p6 x6 6 6 6 6 6 6 6 6 6 6 7 7 7 7 7 (7 07 87 @7 H7 P7 X7 `7 h7 p7 x7 7 7 P 7 7 8 8 8 8 88 T @8 2 8 8 8 8 9 (9 89 T P9 " 9 9 9
9 * 9 : : : : : @: T H: . : : : : ; (; 8; T P; " ; ; ;
; & ; ; < < < < 8< " @< H< P< p< x< < < " < < < < < < = " = = = @= H= P= p= " x= = = = = = = " = = = > > > @> " H> P> X> x> > > > " > > > > > > ? " ? ? (? H? P? X? x? " ? ? ? ? ? ? ? " ? ? ? @ @ (@ H@ " P@ X@ `@ @ 園 怈 癅 T 窣 P A `A pA A 楢 窤 華 T 郃 " 8B @B `B hB B 圔 怋 楤 窧 菳 ( 郆 C C
(C 8C @C XC pC xC 圕
– 窩 繡 0 菴 鳦 0 D HD 0 hD 楧 0 窪 鐳 E . E @E XE pE xE 楨 燛 HF `F xF F 燜 ‵ 繤 菷 蠪 餏 G G G
(G 8G $ @G hG 圙 怗 楪 窯 蠫 鐶 H H 2 (H `H hH 圚 楬 癏 窰 繦 T 菻 J I pI I 怚 ↖ 菼 豂 T 餓 " HJ PJ pJ xJ J 楯 燡 ↗ 癑 窲 蠮 郕 鳭 K 8K
@K PK XK pK 圞 怟 燢 窴 豄 鳮 L 0L 8L @L `L L 圠 怢
楲 ↙ $ 癓 豅 鳯 M M (M @M `M xM 2 M 窶 豈 鐼 N N N B N N 0N 8N PN pN xN N 圢 怤 楴 T 燦 " 鳱 O 0O @O XO xO 圤 T 燨 " 鳲 P * P 8P PP ( XP P 楶 癙 蠵
餚
Q Q ( 0Q XQ xQ 楺 T 燪 ( 鳴 R 0R @R XR xR 圧 T 燫 " 鳵 S ( S 0S 8S PS
XS hS pS xS 圫 怱 楽 燬 繱
郤
餝 T T 0 @T pT
xT 圱 燭 ═ 癟 窽 繲 萒
蠺 郥 鑄 餞 U " U HU hU T pU ( 萓 餟 V V (V HV XV T pV " 萔 蠽 " 豓 W ( W 8W @W XW
`W pW xW
W 怶 榃 燱 ╓
萕 豔 0 鳺 (X
0X
@X
XX
`X
hX
pX
xX X
圶 榅 燲 ╔ 竂 " 豖 Y
Y 0Y PY T XY ( 癥 豗 鑉 鳼 Z 0Z @Z T XZ " 癦 竄 " 繸 鑊 ( 鳽 [ ([ @[
H[ X[ `[
h[ x[ [ 圼 怺
癧 繹 0 郲 \
\
(\
@\
H\
P\
X\
`\ h\
p\ \ 圽 怽 燶 " 繺 鑌
] ] 8] T @] < 榏 豜 鑍 鴀 ^ 0^ @^ T X^ " 癪 竈 繼 萟 郶 鴁 _ (_ 0_
8_ H_ `_ x_ 恄 癬 萠 豞 餩 ` ` 8` P` p` 坄 2 恅 萡 鑐 鴃 a a a T (a a 燼 癮 繿 豠 鴄 b T b " xb b
坆 榖 ` 燽 c c c (c Hc `c $ xc
燾
癱 . 纁
餭
d
d d
(d 0 8d hd pd 坉 榙 燿 ╠ 癲 竏 纃 衐 豥 郿 鑔 餯 e e e e e 0e 8e @e He Pe `e he pe xe e 恊 榚 爀 ╡ 癳 纄 萫 衑 豦 鄀 鴈
f f " @f H hf 癴 衒 鑖 餱 g g
0g @g 2 Pg 坓 恎 榞 爂 ╣ 萭 T 術 (h Hh Xh hh h 爃 癶 T 萮 " i (i @i Xi xi i 坕 恑 ╥ 竔 < 衖 j (j 8j T @j 榡 竕 萰 豭 餵 k k T 8k " 恔 榢 . 爇 衚 鄈 l l l l (l Hl Pl Xl `l hl pl xl l 坙 恖 ╨ 發 0 纋 8 餷 (m @m `m xm m 坢 恗 8 榤 衜 鑝 n n (n 0n Hn $ `n 坣 爊 竛 纍 萵 鄋 鴑 o (o @o Xo ( po 榦 竜 F 豲 p @p B Xp 爌 竝 ( 豴
q
q q
8q Hq Pq Xq pq 坬 ╭ 纐 2 萹
r r 0r Hr Pr Xr `r hr 坮 T 恟 " 鑢 s s 0s Hs hs xs T 恠 " 鑣 餾 ( 鴖 t (t 0t 8t $ Pt xt 恡 ╰ 皌 竧 衪 鑤 u u > 0u , pu 爑 竨 衭 0 饀 v < @v v 恦 ╲ . 竩 8 鑦 w 0w Pw Xw `w hw pw xw 恮 " ╳ 衱 鑧 8 x 8x Px px 坸 0 恱 $ 纗 鑨 鴛 y (y
Hy
Xy hy
y 恲 爕 纘 葃 衴 V 貀 0z " Hz pz 坺 爖 竮 葄 鄗 饅 { { 0{ H{ h{ 坽 ▄ 皗 竰 纚 衶 貃 饆 | 0| P| X| `| x| 榺 竱 貄 鄚 " 鑭 } 0} P} p} x} } 榼 竲 貆 鴠 ~ ~ F ~ h~ 垀 ▇ 葉 衺 貇 鄜 鑯 0 P X ` h * ( 0 8 @ X x 垁
榾
█ 0 竴 鑰 8 X x 榿 爜 ▉ 皝 葋 鑱 0 8 X h 槀 皞 袀
饌
( & 8 ` h x 槂 爟 ▋ 皟 竷 貎 饍 鴥 0 P h 2 p
▌ 葎 貏 饎 鴦 ( ( 0 8 ( @ h p 悈 槄 T 皡 ( 8 H ` 悊 T ▎ " ( 0 8 @ X p 垏 悋 槆
爣 皣 绹 貒 鄧 & 鑷
8 H P ` x 垐 悎 槇 ▓ 葓 鑸 @ H P X h x 槈 爥 ▔ 皦 笁 缐 葔 袎 貕 鄩 鴫 0 @ ` 垔 ▕ 葕 袏 " 鑺 " 8 ` x 悑 構 笅 袐 ( 鑻 $ 8 H P X $ ` . 垖 笇
缹 葘 鄬 $ 鴮 . P X ` h p x 垗 爫 ◢ 皪 葝 鄭 2
X x 垘 爭 ◣ 皫 笌 葞 鄮 鑾
饚 ( ( 0 T 8 悘 皬 缽 袕 鑿 T 0 " 垚 悙
槓 ◥ 笎 袗 貝 & 鄲
0 8 H ` h p 垜 槕 皯 笐
缿 袘 T 貞 0 P ` p 垝 ⊕ 笒 T 袙 " (
0 @ T H F 爴 钃 鴵 @ P T h " 罃 葦 袛 钄 鴶
4 P X ` h p x 悤
爼 皶 笗
罆 8 袝 8 @ H P ` p 悥 槚 爾 皷 笘 罇 葨 袞 貣 饢 鴸 0 8 8 p 垪 罈 6 葪 " 8 H X ` h p 悩 槝 葮
袠 鄻 饦 8 @
H X p x 8 笝 袡 饳 6 H " X 悮 牃 皻 笟 葰 貧 鄽 饸
( 8 P h 垱
悰 牄 笡 罌 葲 袥 貨 鄾 T J ` 皽 罍 袦 铚 T 0 " 垵 悵 槤 皾 罎 葷
袧 4 酀 ( 0 8 @ H X
h x
垶 8 槥 袨 酁 0 @ P p x 垷 悷 槦 牊 盁 笩 袩 責 0 锜 8 P h 垹 牋 6 酄 " 馉 ( 8 @ H P ` p x $ 垺 啊
浮 取 亍 稹 ( 0
8 H ` h 8 p á 愧 啖 6 8 " H p 悾 槪 牐 ǎ 福 龋 校 啵
( @ X p x
悿 à ( 挨 丐 啶 瑜 ( 黏 @ T H J 牓 馥 ( H X T p " 圈 笑 卅 穰
4 X ` h p x 埀 槯
ě 抚 困
颧 8 丕 @ H P X p 惃 皑 辅 括 权 楔 亘 啜 瑷 皎 0 ( 8 X 惄 ī 醛 喋 6 瑭 " 0 X h x 埅 惇 牚 蔼 釜 $ 泉 皙
0 P h p
x 埆 牜 ǐ 8 矮 璜 8 6 @ x " 埇 艾 垃 鞋 噩 喱 璎 @
H X h 槶 碍 腑
拉 协 璀 ( 瓠 ( ( 0 X ` T 埉 J 喈 0 @ P h 埊 槸 T 隘 " 0 @ H
P 4 ` 槹 牥 ò 鞍 赴 腊 劝 匕
璋
8 P ` 埍 惐 槺 氨 辣 斜 鸨 ( 0 8 P X 0 h 8 槻 胁 璨 6 ( ` " p 槼 ǔ 赋 莱 瘸 谐 喑 鸪 $ 0
8 H X p 惔 ù 按
复 却 啻 璐 8 鸫 ( @ ` x 6 傅 " 鹊 鸬 ( 8 H P `
埗 樁 ǘ 蓝 囟 鸲
( ( 0 X ` h ( p 樂 牱 婪 确 T 喾 J 8 埜 樃 ǜ 栏 喔 鸶 T " ` h p 埞 樄 牴
ü 4 腹 鸸 0
@ P X
` 8 p ê 负 睾 嗪 韬 鸷 ( H P X ` h p x 埢 惢 ɑ 盎 0 阑 8 鸹 ( @ ` x 6 讣 " 燃 鸺 ( 8 H P $ ` 埥
惤 牻 敖 冉 杞
8 @ 8 H 樉 妇 芯 6 鼐 " H X h p x 惪 牽 缚 乜
嗫 鹂 0 H P
X h ( 埨 袄 咐 览 ( 壤 鹄 T J x 攘 亓 枇 0 T H " 犅 奥 嚷 芈 嗦
杪 4 0 8 @ H P X ` p
惷 樏
犆 8 懊 杳 ( 0 H X h 埬 惸 樐 犇 澳 改 滥 饶 心 枘 鹉 0 8 0 h 犈 概 6 琅 " 0 @ P X ` h x 埰 惼 $ 犉 绕
衅 嗥 鹌 ( @ H
P ` x 8 埱 狼 厍 6 P " ` 埲 樔 ㄈ 叭 溉 廊 腥 嗳 枞
0 @ X p 埳 惿
樕 ㄉ 郎 ( 壬 鹕 ( 0 8 X T ` F 甘 8 X h T " 厮 嗨 ( 杷
8 ( ` p 愄 樚 犔 ㄌ 捞 刑 嗵 ( 0 8 @ H ` h 0 x 8 ㄍ 嗤 0 8 X ` 8 h 犖 肝 匚 鹞 ( H P X ( ` 埾 愊 跋 T 赶 F X h x 愋 靶 佬 T 匦 " 0 8 ( @ h
p 8 秆 妊 柩 鹧 ( 8 X ` h p x 堃 愐 樢 犚 敢 酪 0 幸 8 8 P p 堄 愑 坝 赣 8 烙 0 H P p ( x 犜 ㄔ 霸 ( 冈 嘣 柙 T ( h 愓 犝 罢 日 枵 T " h p T 堉 6 嘀 ( 8 P p T 樧 " 鹱
@ P ` h
p 愗 , 権 蓉 胸 刎 嘭 柝 鹭 " @ H
P ` J p 蕾 匈 T 刭 0 P ` p 堏 ㄚ 岗 T 汹 " ( 0 8 @ X p 堐 愛 樭 犤 ㄛ 港 熔 刿 枸 F h x 堒 犥 P 杠
@ P X h b p * 剌 ( H . P 堔 愞 樲 犧 ㄞ 稗 绒 剞 疝 8 @ H P X ` h p x 堖 愡 樳 高 羞 噙 柽 疬
0 0 0 8 @ ` b x 噔 疴 ( 0 @ X ` h p 堛 愩 樸 ㄣ 般 搞 楞 劂 " 嚆 $ $ $b 0 $ 樹 $ ㄤ $ 颁 ( 蠕 ( 劁 ( 桎 , 痄 , , ( $ ( 0 8 @ H P X ` h p 樺 犲 ㄥ 板 稿 厘 儒 绣 劐 噱 桢 疱 8 H P ` 版 孺 噫 " 8 * ` 愮 犵 扮 哥 如 噻 桤 痃 ( @ ` h > p " 拌 罔 6 0 $
H 2 X $ 愰 $ 犻 ( 伴 ( 搁 ( 篱 $ 乳 $ 虚 $ 嚅 $b $ ` $ p # x 堦 愱 橁 , 犼 嘘 仃 痍 ( " H * p 犽 半 离 入 仉 痣 0 8 P p x > " 漓 桁 6 @ $
X 2 h $ 犿 $ 绊 ( 理 ( 软 ( 许 $ 仨 $ 囗 $ 痦 ,b , p $ 堫 愵 橆 狀 邦 割 蓄 仡 痤 " ( * P 愶 狅 革 酗 仫 囡 @ H > P " 愷 葛 6 仞 $
( 2 8 $ p $ ( 愸 ( 橊 ( 狇 $ $ 榜 $ 礼 $b 伛 $ @ $ P X ` h p x 堯 愹 狉 蛤 莉 闰 序 . 仳 * 8 @ H 4 ` 橌 J 绑 " ( 0
H X x 堲 棒 隔 吏 若 F 佤 ( 0 8 H
` p 愼 橎 狌
铬 弱 " 仵 J
p 狏 丽 婿 圉 桷 ( 0 8 @ H ` p b 堶 瘅 * 0 @ P X h 堷 慀 傍 给 萨 续 伉 帏 桫 瘌 0 H P X p 堸 砾 2 腮
0 H P " X , ( 苞 佞 J 瘊 @ P ` ( h 慃 狖 胞 耕 塞 帑 棼 瘥 6 & 0 X T ` 4 更 瘘 ( H X T p " 三 旋 佚 帻 椠 ( @ P ` h p x
堽
橚 剥 叁 佝 ( 8 @ X h p x , 2 ( @ ` x T , ( 8 H ` T " ( @ X h 0 $ F X ` h p 0 @ P X ` h
( 0 P X ` h p J 0 @ X p
(
@
H H
0 @ H P ` T 6 H X h T " ( 0 8 @ H ` x $ * ( 0 8 H X x h ( 0 8 @ X ` x ( 0 8 @ H P X T ` 0 @ T X " N ( 6 H T ( 8 P p T " ( ( 0 @
` p
" 0 H P * X " ( 0 @ X h p x L B H X ` p x ( 0 P X ` (
H X p
! ! ! ! 0! P! 8 `! ! ! ! ! ! ! ! ! ! ! ! ! ! " " " " " (" 0" 8" @" P"
X" h"
x" " " " " " " " " " < # P# X# `# h# & p# # # * # # $ * $ ( H$ p$ x$ $ $ $ $ $ $ $ $ % % % % 8% P% h% p% % % % % % % & & & 0& H& P& h& & & & & & & & & & & &
' ' 8' H' P' X' `' h' p' x' ' ( ' ' ' ' ' ' ' 2 ( L @( ( ( ( ( ( . ( ) ) 8) P) X) 0 `) ) ) ) ) ) ) ) ) * *
8* H* `* x* * * * * * * * * * * * + + 8+ P+ p+ + 2 + + + + , , , (, : @, , , , , , , , - -
- " (- , P- ( - - - T - ( . 8. H. X. p. . . T . " / / 8/ X/ x/ / / / / / 0 0 0 (0 H0 h0 x0 0 0
0 0 0 0 0 0 0 0 1 1 1 1 1 81 @1 P1 h1 p1 , x1 1 $ 1 1 1 2 2 (2
82 H2 h2 2 2 2 2 2 2 D 2
3 03 l @3 6 3 3 3 3 4 4 4 4 84 @4 < H4 4 4 4 4 4 4 4 4 5 5 " 5 H5 `5 x5 5 5 5 5 5 5 6 6 06 P6 `6 h6 p6 6 6 6
6 6
6 6 7 7 7 7 87 @7 H7 h7 7 7 8 7 8 8 8 8 8 8 R 8 9 (9 09 89
X9 h9 x9 9 9 9 9 9 9 9 : : (: 8: * H: x: : : : : : : : : : $ ; (;
@; , P; ; $ ; ; ; ; ; <
< < T (< & < < < < < = = T (= " = = = T = = > (> 8> P> p> > T > " > > ? ? ? ?
0? @? P? `? ( p? ? ? 0 ? ? ?
@ @ 0@ 8@
@@ P@ `@ , h@ 楡 燖 ˊ 癅 窣 繞 蠤 谸 " 鐯 A A
A 0A J @A 怉 ( 燗 華 蠥 谹 * 郃 T B hB 圔 楤 ˙ 繠 郆 養 T C " `C hC pC 圕 燙 窩 谻 餋 2 鳦 0D 8D @D T HD 燚 繢 蠨 郉 鳧 E (E T @E " 楨 燛 窫 蠩 鐴 餎 鳨 T F 4 XF 怓 燜 癋 菷 鐵 鳩 T G " hG
pG G 圙 怗 < 癎
餑 H * H , PH R H
豀 鐷 I * (I $ XI X I 6 豂
J J > (J hJ pJ xJ 楯 窲 蠮 R 郕
8K HK PK XK T `K L 窴 L L (L @L `L pL T 圠 B 郘 鐻 H M HM `M hM pM xM M 圡 怣 楳 燤 ∕ H 癕 鳰 N N N (N 0N 8N @N HN PN XN `N pN x ]x3 3 ] ]3 3 4 lose]@4 > 封面标准类型 0－国际标准 1－行业标准 2－地方标准 3－企业标准x ]h4 < 判断当前是否正在进行封面数据处理，避免事件连续触发造成死循环 ] i 原来域名，用于当某个域失去焦点时调用，如果现在域不是OriFldName 则证明OriFldName失去焦点 OriFld失去焦点 zle,2008-7-23,+2，表格行列]4 ] ( zle,2008-7-23,+begin，点击了“首”的按钮 ] ]4 ]( ]4 zle,2008-10-4,+2,索引项内容 ]P ]x ]5 ] % 用来标识目次更新的次数 ]05 ] ] ]X5 zle,09-6-16, +定义一个结构体 H ^ ` ^ x p X M ============================================================================= ==Function:插入菜单 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= ] )
自定义菜单] ) 第一行放置"标准要素"快捷菜单 ] ) 第二行放置"层次标题样式"快捷菜单 ] 0 ) 第三行放置"要素内容样式"快捷菜单 ] P ] p ] ' L TCS StartControl Status End $ ' ~ Start ' ~ ~ End 文件不能单独运行 A@ | k zle,2008-8-5,+1，固定菜单 % zle,090705,*1，处理文档切换时保存问题 6! 12.0 4! ' k 0 Menu Bar 4% . r zle,2008-9-28,+3,可以修改菜单 r 9 q 增加前先删除原来的菜单 & r! &!
要素及排版 &! 层次标题样式 &! 要素内容样式 &! 特殊符号 &B@ k " 增加前先删除原来菜单对应的快捷按钮 x x!
要素及排版 x! 层次标题样式 x! 要素内容样式 xB@ k ` X 增加菜单对应的快捷按钮
要素及排版 4! % . t 层次标题样式 4! % . v 要素内容样式 4! % . x
第一个菜单 r! l 7 . & &
要素及排版9 5 ! . z z 封面9 9 9 q z 0/ 5 ! . z z 目次9 9 9 q z 0/ 5 ! . z z 前言9 .9 9 q ` z 0/ 5 ! . z z 引言9
9 9 q z 0/ 5 ! . z z 附录9
9 9 q z 0/ 5 ! . z z 参考文献9 9 9 q p z 0/ 5 ! . z z 索引9 #9 9 q z 0/ ( $ 完成插入索引页面和插入索引内容的功能 5 ! . z z
标记索引项9 ?9 9 q z 0/ 5 ! . z z
删除索引项9 @9 9 q H z 0/ 5 ! . z z 9 双面排版9 9 9 9 9 q z 0/ 5 ! . z z 9 打印预览9 m 9 9 9 q z 0/ zle,09-06-18,*编写规则注释掉 # Set Cmd = .Controls.Add With Cmd % .Caption = "编写规则" .FaceId = 286 0 .Style = msoButtonIconAndCaption End With $ Set ClsEvent.CmdGZ = Cmd zle,09-06-26,+,增加 "打印" 按钮 5 ! . z z 9 打印9 9 9 $ .State = msoButtonUp q x z 0/ zle,090702,+增加保护和解保护 5 ! . z z 9 保护TCS文件 9 9 9 q z 0/ 5 ! . z z 9 取消TCS文件保护 9 9 9 q z 0/ q x q p 第一个菜单的快捷按钮 t 5 ! . z z 封面9 9 9 q z 0/ 5 ! . z z 目次9 9 9 q z 0/ 5 ! . z z 前言9 .9 9 q h z 0/ 5 ! . z z 引言9
9 9 q z 0/ 5 ! . z z 附录9
9 9 q z 0/ 5 ! . z z 参考文献9 9 9 q x z 0/ 5 ! . z z 索引9 #9 9 索引9 q z 0/ $ = 完成插入索引页面和插入索引内容的功能''''''''''''''''''''''''' 5 ! . z z
标记索引项9 ?9 9
标记索引项9 q `
z 0/ 5 ! . z z
删除索引项9 @9 9
删除索引项9 q z 0/ 5 ! . z z 双面排版9 9 9 q z 0/ 5 ! . z z 打印预览9 m 9 9 q P z 0/ zle,09-06-18,*编写规则 Set Cmd = .Controls.Add With Cmd ! .Caption = "编写规则" .FaceId = 286 , .Style = msoButtonIconAndCaption End With ! Set ClsEvent.CmdGZC = Cmd ! zle,09-06-26,+增加 "打印"快捷按钮 5 ! . z z 打印9 9 9 q
z 0/ 5 ! . z z 保护文档9 9 9 q h
z 0/ q P
第二个菜单 r! l 7 . & & 层次标题样式9 5 ! . z z 9 章标题9 9 9 q z 0/ P Set ctlPopup = .Controls.Add(Type:=msoControlPopup, temporary:=True) With ctlPopup # .Caption = "条标题" 5 ! . z z
一级条标题9 G 9 9 9 q z 0/ 5 ! . z z
二级条标题9 H 9 9 q @ z 0/ 5 ! . z z
三级条标题9 I 9 9 q z 0/ 5 ! . z z
四级条标题9 J 9 9 q z 0/ 5 ! . z z
五级条标题9 K 9 9 q 8 z 0/ End With P Set ctlPopup = .Controls.Add(Type:=msoControlPopup, temporary:=True) With ctlPopup % .Caption = "无标题条" 5 ! . z z 无标题一级条9 9 9 9 q z 0/ 5 ! . z z 无标题二级条9 9 9 q z 0/ 5 ! . z z 无标题三级条9 9 9 q ` z 0/ 5 ! . z z 无标题四级条9 9 9 q z 0/ 5 ! . z z 无标题五级条9 9 9 q z 0/ End With 5 ! . z z 段9 9 9 9 q 8 z 0/ P Set ctlPopup = .Controls.Add(Type:=msoControlPopup, temporary:=True) With ctlPopup ! .Caption = "列项" 5 ! . z z 列项——（一级）9 8 9 9 9 q 8 z 0/ 5 ! . z z 列项●（二级）9 9 9 q z 0/ 5 ! . z z 列项◆（三级）9 9 9 q z 0/ 5 ! . z z 字母编号列项（一级）9 9 9 q ( z 0/ 5 ! . z z 首字母编号列项（一级）9 59 9 q z 0/ 5 ! . z z 数字编号列项（二级）9 9 9 q h z 0/ 5 ! . z z 编号列项（三级）9 9 9 q z 0/ End With q q 第二个菜单的快捷按钮 v 5 ! . z z 章9 9 9 章标题9 q X z 0/
5 ! . z z 条一9 G 9 9
一级条标题9 q z 0/ 5 ! . z z 条二9 H 9 9
二级条标题9 q z 0/ 5 ! . z z 条三9 I 9 9
三级条标题9 q z 0/ 5 ! . z z 条四9 J 9 9
四级条标题9 q z 0/ 5 ! . z z 条五9 K 9 9
五级条标题9 q P z 0/ 6! 11.0 5 ! . z z 无题一9 9 9 一级无标题条9 q z 0/ k zle,090705,+3级无标题条快捷 5 ! . z z 无题二9 9 9 二级无标题条9 q 8 z 0/ 5 ! . z z 无题三9 9 9 三级无标题条9 q z 0/ 5 ! . z z 无题四9 9 9 四级无标题条9 q h z 0/ 5 ! . z z 无题五9 9 9 五级无标题条9 q z 0/ 5 ! . z z 段9 9 9 正文段9 q z 0/ 5 ! . z z 项一9 8 9 9 列项——（一级）9 q 8 z 0/ " 5 ! . z z 项二9 9 9 列项●（二级）9 q z 0/ $ 6! 11.0 5 ! . z z 项三9 9 9 列项◆（三级）9 q P z 0/ & k 8 5 ! . z z 字母项9 9 9 字母编号列项（一级）9 q z 0/ ( 5 ! . z z 首字母项9 59 9 首字母编号列项（一级）9 q h z 0/ * 5 ! . z z 数字项9 9 9 数字编号列项（二级）9 q z 0/ , Set Cmd = .Controls.Add With Cmd .Caption = "编号项" .FaceId = 503 , .Style = msoButtonIconAndCaption - .TooltipText = "编号列项（三级）" End With " Set ClsEvent.CmdLx6C = Cmdq
第三个菜单 r! l 7 . & & 要素内容样式9 5 ! . z z 示例9 9 9 q z 0/ . 5 ! . z z 示例×9 9 9 q z 0/ 0 5 ! . z z 首示例×9 o9 9 q ` z 0/ 2 5 ! . z z 示例内容9 6! 11.0 , 9 d 9 k 9 q z 0/ 4 5 ! . z z 条文注9 9 9 9 q z 0/ 6 5 ! . z z 条文注×9 $9 9 q 8 z 0/ 8 5 ! . z z
首条文注×9 9 9 q z 0/ : 5 ! . z z 图表注9 B9 9 9 q z 0/ < 5 ! . z z 图表注×9 J9 9 q 8 z 0/ > 5 ! . z z
首图表注×9 F9 9 q z 0/ @ 5 ! . z z 条文脚注9 9 9 9 q z 0/ B 5 ! . z z 图表脚注9 &9 9 q 8 z 0/ D 5 ! . z z 首图脚注9 r9 9 q z 0/ F 5 ! . z z 图标题9 S9 9 9 q z 0/ H 5 ! . z z 表标题9 9 9 q @ z 0/ J 5 ! . z z 插入表格9 9 9 q z 0/ L 5 ! . z z 插入公式9 9 9 9 q z 0/ N 5 ! . z z 公式编号9 J9 9 q H z 0/ P 5 ! . z z 更新公式编号9 9 9 q z 0/ R q q 第三个菜单的快捷方式 x 5 ! . z z 例9 9 9 q h z 0/ T 5 ! . z z 例×9 9 9 q z 0/ V 5 ! . z z 首例×9 o9 9 q z 0/ X 5 ! . z z 注9 9 9 q x z 0/ Z 5 ! . z z 注×9 $9 9 q ( z 0/ \ 5 ! . z z 首注×9 9 9 q z 0/ ^ 5 ! . z z 图表注9 B9 9 q z 0/ ` 5 ! . z z 图表注×9 J9 9 q 8 z 0/ b 5 ! . z z
首图表注×9 F9 9 q
z 0/ d 5 ! . z z 脚注9 9 9 q
z 0/ f 5 ! . z z 图表脚注9 &9 9 q @
z 0/ h 5 ! . z z 首图脚注9 r9 9 q z 0/ j 5 ! . z z 图题9 S9 9 q z 0/ l 5 ! . z z 表题9 9 9 q P z 0/ n 5 ! . z z 表格9 9 9 q z 0/ p 6! 11.0 5 ! . z z 公式9 9 9 q z 0/ r 5 ! . z z 公式编号9 J9 9 q H z 0/ t k 0 q ( V zle,09-06-04,+begin,判断是否增加了多个菜单，如果是，则删除前面几个，只保留最后一个菜单 ] ] ' v ' x & r! &!
要素及排版 v ' v k X
P
4 如果imenucount>1时，说明有多个重复的菜单，则进行删除 v
& r! &!
要素及排版 v
&B@ v ' v k x v &! 层次标题样式 &! 要素内容样式 &B@ k ( v x ' x k k k k r z9 q t z9 ~9 |9 q v z9 ~9 |9 q x x z9 ~9 |9 q P 菜单创建结束 & zle,2008-11-7,不让显示“显示隐藏标记” ! ! ! ! ! ( k ! zle,09-06-19,判断版本显示段落标记 6! 12.0 D ActiveWindow.View.ShowParagraphs = False '显示段落标记 Else ! ( k $ zle,090705,+打开时，有封面，显示保护 4! !
4! 0! ( 取消保护 0! ( k k & zle,09-06-20,+1,增加菜单后保存文档 4( o 8 助手提示 ] 8 ] X ] x : ! . B ( ( ! . 标准编写提示 ( ( d ( B@ k ( o M ============================================================================= ==Function:各个部分的助手提示 ==Para: ==Return: ==Designer:
==Created:
==Updated: == Update 1: M =============================================================================
请输入ICS号： A@ o 请输入标准文献分类号：A@ o X 请输入标准编号： A@ o P 请输入代替标准编号： A@ o 请输入标准名称： A@ o 请输入标准英文名称： A@ o X # 请输入与国际标准一致性程度地标识： A@ o 请输入发布日期： A@ o P 请输入实施日期： A@ o 请输入标准备案号： A@ o X 请输入行业名称： A@ o 请输入地方名称： A@ o 请输入企业名称： A@ o ` 请输入企业标准编号： A@ o 0 X 请输入行业标准标识A@ o 请输入地方标准标识A@ o 请输入企业标准标识A@ o 请输入地方标准标识A@ o p M ============================================================================= ==Function:插入封面 ? ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= X ] ] ] & zle,2008-11-7,不让显示“显示隐藏标记” ! ! ! ! ! ( k > % zle,2008-12-22,让光标的位置在主文档上 ! ( ' J TCS StartControl Status End $ ' ~ Start ' ~ ~ End 4! TCS.SYS 文件不能单独运行 A@ | = k = 4!
zhangcheng 4B@ k x= B@ l B@ B@ 4% % ( + zle,2009-5-17,+1,其它节断开和封面的页脚链接
zle,090714,*1 T ActiveDocument.Sections(2).Footers(wdHeaderFooterPrimary).LinkToPrevious = False 将封面中内容距顶边设为10mm !
$ 9 $ 9 9 9 q ; 处理封面页眉页脚 4%
标准书眉一 4% 7 ! ( 7 ! ( d ' zle,2009-5-17,+1,将第一节的页码设置成空 7
! ( d q 0; ICS d B@ ! ( $ zle,2008-10-10,+1,增加半个汉字的距离 B@ ! l 4! % . ICS 9 9 9 9 " 9 $ 请输入正确的ICS号： 9 & 9 ( 5 * . l 点击此处添加ICS号 0 C@, 9 q 9 q 9 B@2 B@4 ! l 4! % . WXFLH 9 9 9 9 " 9 $ 请输入中国标准文献分类号：9 & 9 ( 5 * . l 点击此处添加中国标准文献分类号 0 C@, 9 q 8 q 8 B@2 H
B@4 ( zle,2008-9-2,+begin,增加一个表格放备案号 ! 8 : > < B @ 4! 6B@ % 6 5 网格型 网格型9 k 7 9 D 9 F 9 H 9 J q 7 R N % L ( P R T % L ( P R V % L ( P R X % L ( P R Z % L ( P R \ % L ( P zle,2008-9-2,+end zle,2008-11-24,*1 ) Selection.TypeText Text:="备案号" ! l 4! % . BAH 9 9 " 9 $ 9 &9 ( q H6 zle,2008-9-2,注释掉一个回车 ' Selection.TypeParagraph b ` f d B@^ b ` f d B@h d 5 B@4 b ` f d B@^ b ` f d B@h k H5
文献分类号 4% ( b ` B@j zle,090708,+begin,修改字体 H B@l B@^ b B@h d 4 B@l b B@h B@^ k X4 p f B@n ! r 黑体9 t Times New Roman 9 v Times New Roman 9 x Times New Roman 9 q 3 B@2 H b B@j B@2 B@n d p3 b B@j k P3 zle,090708,+end, B@4 p ` B@l 插入标准标识 H K T 国家标准 A@z K T 行业标准 A@| K T 地方标准 A@~ K T 地方标准 A@ n `2 标准标号 封面标准号2 4% ( H GB/T d B@ zle,090708,+8,修改字体 f B@l ! r 黑体9 t Times New Roman 9 v Times New Roman 9 x Times New Roman 9 q X1 B@n H e DB d B@ zle,090804,+8,修改字体 f B@l ! r 黑体9 t Times New Roman 9 v Times New Roman 9 x Times New Roman 9 q x0 B@n 黑体 ! r( H e Q/ d B@ k 0 H ! l 4! % . StdNo09 9 9 " 9 $ 9 &9 ( 5 * H . l XX 0 C@, 9 B@2 H e . l XX 0 C@, 9 B@2 H e . l XXX 0 C@, 9 B@2 k . q . q . k . H d B@ zle,090708,+4，修改字体 ! r 黑体9 t 黑体9 v q . H e /T d B@ zle,090804,+8,修改字体 f B@l ! r 黑体9 t Times New Roman 9 v Times New Roman 9 x Times New Roman 9 q H- B@n 黑体 ! r( H e / d B@ H e zle,090804,+8,修改字体 f B@l ! r 黑体9 t Times New Roman 9 v Times New Roman 9 x Times New Roman 9 q @, B@n 黑体 ! r( d B@ k + ! l 4! % . StdNo19 9 9 " 9 $ 9 &9 ( 5 * If StdType = 0 Then . l XXXXX 0 C@, 9 5 B@2 # ElseIf StdType = 1 Then J .EditType Type:=wdRegularText, Default:="XXXX", Format:="" .Width = 4 ! Selection.EndKey # ElseIf StdType = 2 Then I .EditType Type:=wdRegularText, Default:="XXX", Format:="" .Width = 3 ! Selection.EndKey # ElseIf StdType = 3 Then J .EditType Type:=wdRegularText, Default:="XXXX", Format:="" .Width = 4 ! Selection.EndKey End Ifq ( q ( " zle,090802,*，注释掉原来的横线增加 ? Selection.InsertSymbol CharacterNumber:=9472, Unicode:=True % 'zle,09-06-21,+5,修改横线太粗问题 $ Selection.MoveLeft , 1, wdExtend Selection.Font.Name = "黑体" ' Selection.Font.NameFarEast = "黑体" 0 Selection.Font.NameAscii = "Times New Roman" Selection.MoveRight , 1 # 'zle,09-06-26,+3,将字体改成黑体 Selection.Font.Name = "黑体" ' Selection.Font.NameFarEast = "黑体" % Selection.Font.NameAscii = "黑体" zle,090802，+1 — d B@ ! l 4! % . StdNo29 9 9 " 9 $ 9 &9 ( 5 * . l XXXX 0 C@, 9 q h% q `% B@2 B@4 & zle,2008-9-2,+begin,增加一个表格放代替 ! 8 : > < B @ 4! 6B@ % 6 5 网格型 网格型9 k $ 9 D 9 F 9 H 9 J q X$ R N % L ( P R T % L ( P R V % L ( P R X % L ( P R Z % L ( P R \ % L ( P zle,2008-9-2,+end zle,2008-11-24,*1 # Selection.TypeText Text:="代替" B@2 ! l 4! % . DT9 ShowHelp4 9 9 9 " 9 $ 9 &9 ( 5 * . l 0 C@, 9 q " q " 封面标准代替信息 4% ( B@2 zle,2008-9-2,+2,移出表格 B@n B@4 B@4
zle,090710,+1 < Selection.Style = ActiveDocument.Styles("封面标准名称2") ! l 4! % . StdName 9 9 9 9 " 9 $ 9 &9 ( 5 * . l 点击此处添加标准名称 0 C@, 9 q q
zle,090710,*1 封面标准名称 4% ( B@2 B@4 ! l 4! % . StdEnglishName9 9 9 9 " 9 $ 9 &9 ( 5 * . l 点击此处添加标准英文译名 0 C@, 9 q q @ Selection.Style = ActiveDocument.Styles("封面标准英文名称2") 封面标准英文名称 4% ( B@2 B@4 B Selection.Style = ActiveDocument.Styles("封面一致性程度标识2") 封面一致性程度标识 4% (
zle,090702,*1 Selection.TypeText "(" ! l 4! % . YZBS9 9 9 9 " 9 $ 9 &9 ( 5 * . l & 点击此处添加与国际标准一致性程度的标识 0 C@, 9 q q B@2
zle,090702,*1 Selection.TypeText ")" & zle,2008-9-2,+begin,增加一个表格放类别 ! 8 : > < B @ 4! 6B@ % 6 5 网格型 网格型9 k 9 D 9 F 9 H 9 J q X R N % L ( P R T % L ( P R V % L ( P R X % L ( P R Z % L ( P R \ % L ( P zle,2008-9-2,+end @ Selection.Style = ActiveDocument.Styles("封面标准文稿类别2") 封面标准文稿类别 4% ( ! l 4! % . LB9 9 9 9 " 9 $ 9 & 9 ( 5 ! B@ 文稿版次选择 5 ! B@ （工作组讨论稿） 5 ! B@ （征求意见稿） 5 ! B@ （送审讨论稿） 5 ! B@
（送审稿） 5 ! B@
（报批稿） 5 ! B@ 0 .DropDown.ListEntries.Add Name:="出版稿" q zle,2008-9-2,+1,将光标移出表格 B@n D Selection.Style = ActiveDocument.Styles("封面标准文稿编辑信息2") 封面标准文稿编辑信息 4% ( & zle,2008-9-2,+begin,增加一个表格放类别 ! 8 : > < B @ 4! 6B@ % 6 5 网格型 网格型9 k ( 9 D 9 F 9 H 9 J q R N % L ( P R T % L ( P R V % L ( P R X % L ( P R Z % L ( P R \ % L ( P zle,2008-9-2,+end : zle,2008-8-5,+begin,增加和发布日期一样的日期格式，便于控制 ! l 4! % . WCRQ9 9 9 9 " 9 $ 9 &9 ( 5 * . l 0 C@, C A .EditType Type:=wdDateText, Default:=Date, Format:="yyyy年M月d日" q ( q B@2 zle,2008-8-5,+end zle,2008-9-2,+1,将光标移出表格 B@n B@ B@4 p B@l ' zle,09-06-26,+5，增加封面最下面的一行线 $ $ $ $ 4! % . ( ( 9 shp.RelativeVerticalSize = wdRelativeVerticalSizePage B@ % zle,2008-10-7,+恢复原来的发布日期格式 If StdType = 0 Then ; Selection.Style = ActiveDocument.Styles("发布日期") Else 其他发布日期 4% (
End If ! l 4! % . FY9 ShowHelp8 9 9 9 " 9 $ 9 &9 ( 5 * . l XXXX 0 C@, 9 q q p ` B@n - d B@ ! l 4! % . FM9 ShowHelp8 9 9 9 " 9 $ 9 &9 ( 5 * . l XX 0 C@, 9 q q p ` B@n - d B@ ! l 4! % . FD9 ShowHelp8 9 9 9 " 9 $ 9 &9 ( 5 * . l XX 0 C@, 9 q q p ` B@n 发布 d B@ # zle,09-06-06,+begin，修改数字为黑体 B@l p ` f d B@l ! r 黑体9 t 黑体9 v q B@l p ` f d B@l ! r .Position = 1 黑体9 t 黑体9 v q 3 Selection.MoveRight Unit:=wdCharacter, Count:=3 B@l p ` f d B@l ! r 黑体9 t 黑体9 v q B@l p ` f d B@l ! r .Position = 1 黑体9 t 黑体9 v q H B@l p ` f d B@l ! r 黑体9 t 黑体9 v q
B@2 zle,09-06-06,+end p ` B@n B@4 p B@l zle,09-06-26,+3, ( 9 shp.RelativeVerticalSize = wdRelativeVerticalSizePage 333339@$ ( If StdType = 0 Then ; Selection.Style = ActiveDocument.Styles("实施日期") Else 其他实施日期 4% (
End If ' zle,2008-10-7,+恢复原来实施日期格式 ! l 4! % . SY9 ShowHelp9 9 9 9 " 9 $ 9 &9 ( 5 * . l XXXX 0 C@, 9 q @ q 8 p ` B@n - d B@ ! l 4! % . SM9 ShowHelp9 9 9 9 " 9 $ 9 &9 ( 5 * . l XX 0 C@, 9 q @
q 8
p ` B@n - d B@ ! l 4! % . SD9 ShowHelp9 9 9 9 " 9 $ 9 &9 ( 5 * . l XX 0 C@, 9 q @ q 8 p ` B@n 实施 d B@ zle,09-06-06,+begin B@l p ` f d B@l ! r 黑体9 t 黑体9 v q p B@l p ` f d B@l ! r .Position = 1 黑体9 t 黑体9 v q 3 Selection.MoveRight Unit:=wdCharacter, Count:=3 B@l p ` f d B@l ! r 黑体9 t 黑体9 v q 0 B@l p ` f d B@l ! r .Position = 1 黑体9 t 黑体9 v q B@l p ` f d B@l ! r 黑体9 t 黑体9 v q 0 B@2 zle,09-06-06,+end B@n B@4 B@l zle,09-06-26,+3, ( 9 shp.RelativeVerticalSize = wdRelativeVerticalSizePage 333339@$ ( H 发布部门 4% ( ] ' TCS Graphic Path $ ' zle,09-06-23*1,将图片改成bmp格式 % gpath = gpath & "\GBSend.jpg" \GBSendClear.bmp ' ! B@ d @ 其他发布部门 4% ( ! l 4! % . fm9 9 9 9 " 9 $ 9 & 9 ( 5 * H . l 国家质量监督检验检疫总局 0 C@, B@n d @ . l 0 C@, B@n k 9 q q zle,090731,修改 “发布距离” B@ B@ B@ 发 d B@ L Selection.InsertSymbol CharacterNumber:=8194, Unicode:=True, Bias:=0 布 d B@ p ` f d B@l 发布 4% ( k $ K $ $ K $ 4! % . zle,2008-9-26,*4 ' Set shp = ActiveDocument.Shapes.AddLine(MillimetersToPoints(25), MillimetersToPoints(252), MillimetersToPoints(25 + 170), MillimetersToPoints(252)) ' shp.LockAnchor = True B ' shp.RelativeVerticalPosition = wdRelativeVerticalPositionPage : ' shp.RelativeVerticalSize = wdRelativeVerticalSizePage K 以下是定位线，以绝对坐标完成各种位置线条，做定位参照 完成所有元素的严格定位 zle , 2 ' Set shp = ActiveDocument.Shapes.AddLine(MillimetersToPoints(25), MillimetersToPoints(42), MillimetersToPoints(25 + 170), MillimetersToPoints(42)) , ' shp.Line.ForeColor.RGB = RGB(255, 0, 0) ' Set shp = ActiveDocument.Shapes.AddLine(MillimetersToPoints(25), MillimetersToPoints(50), MillimetersToPoints(25 + 170), MillimetersToPoints(50)) , ' shp.Line.ForeColor.RGB = RGB(255, 0, 0) Set shp = ActiveDocument.Shapes.AddLine(MillimetersToPoints(25), MillimetersToPoints(67), MillimetersToPoints(25 + 170), MillimetersToPoints(67)) + shp.Line.ForeColor.RGB = RGB(255, 0, 0) ' Set shp = ActiveDocument.Shapes.AddLine(MillimetersToPoints(25), MillimetersToPoints(115), MillimetersToPoints(25 + 170), MillimetersToPoints(115)) , ' shp.Line.ForeColor.RGB = RGB(255, 0, 0) ' Set shp = ActiveDocument.Shapes.AddLine(MillimetersToPoints(25), MillimetersToPoints(297 - 24), MillimetersToPoints(25 + 170), MillimetersToPoints(297 - 24)) , ' shp.Line.ForeColor.RGB = RGB(255, 0, 0) Set shp = ActiveDocument.Shapes.AddLine(MillimetersToPoints(25), MillimetersToPoints(124), MillimetersToPoints(25 + 170), MillimetersToPoints(124)) + shp.Line.ForeColor.RGB = RGB(255, 0, 0) Set shp = ActiveDocument.Shapes.AddLine(MillimetersToPoints(25), MillimetersToPoints(134), MillimetersToPoints(25 + 170), MillimetersToPoints(134)) + shp.Line.ForeColor.RGB = RGB(255, 0, 0)
定位线结束 < 以下是插入遮蔽矩形框，当某一项（如完成日期）不填时覆盖文字 Z 4! % . @ @! ( DT @( @B@ d 4! % . D D! ( LB D( DB@ D( MsgBox ShpLB.LockAnchor 4! % . F F! ( RQ F( FB@ F( MsgBox ShpRQ.LockAnchor H
殭櫃檌P@ fffff芃@ Q@ 333333/@ 4! % . F F! ( BAH F( FB@ k 0w # zle,2009-1-14,*3,注释掉增加的矩形框 [ Set shp = ActiveDocument.Shapes.AddShape(msoShapeRectangle, 532.9, 831.75, 36.75, 15.6) shp.Line.Visible = msoFalse $ shp.ZOrder msoBringInFrontOfText zle,090714+begin StandardName B@ 4% %
( 标准书脚_奇数页 4% 4% %
! ( ! ! % B@B k hu
! ! ! l ! ! ! l ! ! ( l k u ! ! ( ! ! ! ! ( d 纓 ! ! ( k 爐 ! l ! B@ ! ! 9 9 9 9 9 9 q 0t ! ! ( zle,090714+end 启动封面的窗体保护]
4% ( 4! ! 4% ( 坰
zhangcheng l 4B@
插入终结线 B@ B@2 B@4 ! _________________________________ B@ 终结线 4% ( zle,090713,+2,增加页眉的映射 A@ ' J B@ StdName 4% B@H ' J o 8r M ============================================================================= ==Function:初始化文件 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M =============================================================================
B@ 目次、标准名称标题 4% ( 标准名称 d B@ B@^ B@n f B@n 4! ! StandardName C@ 9 9 q 鴒 B@2 B@4 b ` B@j 章标题 4% ( 范围 d B@ B@4 B@4 章标题 4% ( 规范性引用文件 d B@ B@4 段 4% ( 下列文件对于本文件的应用是必不可少的。凡是注日期的引用文件，仅所注日期的版本适用于本文件。凡是不注日期的引用文件，其最新版本（包括所有的修改单）适用于本文件。 d B@ B@4 B@4 章标题 4% ( 初始化页眉页脚 4! ( 4! ( C ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter Selection.MoveRight , 1 0 Selection.Delete Unit:=wdCharacter, Count:=1 ! ! ( 4% 7 ! ( d 标准书眉_奇数页 4% 7 ! ( 7
! l 4! B@ 标准书脚_奇数页 4% 7
! ( q Hl 设置脚注方式（全文连续） 4! 9 9 9 9 q 餶 6 0/ 2 o 豮 M ============================================================================= ! ==Function:国标输入时修改标准名称 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= `
]
' J StandardName 4% ! . StdName 4% ! StdName 4% ! $ 点击此处 StdName 4% ! ( d B@H B@^ B@n f B@n 4! ! StandardName C@ 9 9 q i StandardName B@ p B@l B@ StandardName B@ B@2 目次、标准名称标题 ( BZ 4! % BZ B@ BZ 4% B@ d h X X 4% B@H k 餲 B@2 ' Xk 術 d 萭 标准名称 ( d B@H B@^ B@n f B@n 4! ! StandardName C@ 9 9 q g StandardName B@ B@^ B@n B@ 目次、标准名称标题 ( BZ 4! % BZ B@ BZ 4% B@ d Hf X X 4% B@H k f B@2 ' Xk 鴈 k 餰 k 鑕 ' J o 豦 M ============================================================================= ! ==Function:输入标准编号后映射页眉 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M =============================================================================
' J ] zle,090708+1,保护标志 ] 4!
zhangcheng 4B@ ' k d zle,090522,+being,判断是哪种标准 < ] 0 ] P ] p 4! ' ! 标准称谓 ! 其他标准称谓 y Hc k @c 8c ] ! ! d' 国家标准 ' H 行业标准 e ' H 地方标准 e ' H 企业标准 e ' Hk xb ' < k hb zle,090522,+end, 4! ! 4% ] ' " H GB/T ' " " StdNo1 4% ! $ $ — StdNo2 4% ! ' " H e StdNo0 4% ! $ $ /T StdNo1 4% ! $ $ — StdNo2 4% ! ' " H e DB' " " StdNo0 4% ! $ $ / StdNo1 4% ! $ $ — StdNo2 4% ! ' " H e Q/' " " StdNo0 4% ! $ $ StdNo1 4% ! $ $ — StdNo2 4% ! ' " k 郷 R HStr = HStr & Trim(ActiveDocument.FormFields("StdNo1").Result) & "-" & 6 ActiveDocument.FormFields("StdNo2").Result " 7 ! ( d = .Headers(wdHeaderFooterEvenPages).Range.Text = HStr q 郶 豝 zle,090805,+begin,去掉封面页眉 * J ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Select Selection.ClearFormatting ( ActiveWindow.View.Type = wdPrintView > ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument ( ActiveWindow.View.Type = wdPrintView 保护窗体 4% ( 4! ! 4% ( ]
zhangcheng l 4B@
要素及排版$ ! 0! ( 取消保护 0! ( k \ k x\ ' J o h\ M ============================================================================= ==Function:判断标准的封面类型 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= < ' J ] 4!
zhangcheng 4B@ k 癦 ] ] 0 ] P 4! ' ! 标准称谓 ! 其他标准称谓 y 0Z k (Z Z ] h ! ! d' 国家标准 ' H 行业标准 e ' H 地方标准 e ' H 企业标准 e ' Hk `Y 保护窗体 4% ( 4! ! 4% ( 鳻
zhangcheng l 4B@
要素及排版$ ! 0! ( 取消保护 0! ( k pX ' < k `X o XX M ============================================================================= ==Function:处理双面排版页眉页脚 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= ] zle,2008-11-23,*1,注视掉错误捕捉 On Error GoTo errorhandle zle090706,+1,防止封面处理 ' J 4! !
如果已经插入封面 . % , 4 ClsEvent.CmdTwoPageC.State = msoButtonUp 3 ClsEvent.CmdTwoPage.State = msoButtonUp I MsgBox "不能在封面处理双面排版，请将光标移动正文执行此项操作" Exit Sub Else 0 2 B@ k U 4!
zhangcheng 4B@ k 萒 End If k ═ 4! ( 4! ( 处理正文 % zle,090804,将第二节开始改成第一节开始 4! ! 4% 标准书眉_奇数页 4% 7 ! ( 标准书眉_偶数页 4% 47 ! ( 7 ! ! d 7 ! ! d $ 47 ! ( d 标准书脚_奇数页 4% 7
! ( 47
! l 4! B@ 标准书脚_偶数页 4% 47
! ( 4!
zhangcheng 4B@ k ≧ @$ 5 ( 6 $ 5 ( 5 ( 8 q `R 段 4% 4% % ! ( 4! !
4% ( 4! ! 4% ( 癚
zhangcheng l 4B@
要素及排版$ ! 0! ( 取消保护 0! ( k (Q k Q ' J | Q o Q M ============================================================================= ==Function:处理单面排版页眉页脚 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= ] 0
H
zle,2008-11-23,*1,注视掉错误捕捉 On Error GoTo errorhandle 4! !
如果已经插入封面 . % , I MsgBox "不能在封面处理双面排版，请将光标移动正文执行此项操作" Exit Sub Else 0 2 B@ k XN 4!
zhangcheng 4B@ k N End If k N 4! ( 4! ( 处理正文 % zle,090804,将第二节开始改成第一节开始 4! ! 4% 标准书眉_奇数页 4% 7 ! ( 标准书脚_奇数页 4% 7
! ( 4!
zhangcheng 4B@ k 蠰 zle,090706+2,页边距调整 @$ 5 ( 6 $ 5 ( 5 ( 8 q hL 段 4% 4% % ! ( 4! !
4% ( 4! ! 4% ( 窴
zhangcheng l 4B@
要素及排版$ ! 0! ( 取消保护 0! ( k 0K k (K | K o K M ============================================================================= ==Function:设置格式为 图表“注” ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= `
>癐 注： 4% ( | 圛 >I 保护区域不能设置样式！A@ o XI M ============================================================================= " ==Function:设置格式为图表 “注×” ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M =============================================================================
>餑 注×： 4% ( | 菺 >繥 保护区域不能设置样式！A@ o 楪 M ============================================================================= " ==Function:设置格式为图表 “首注” ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M =============================================================================
>0F 注×： 4% ( F$ D % H % J 注%1：9 L P9 N R9 {瓽醶?$ 9 T V9 醶瓽狯?$ 9 X \9 Z 9 ^ 9 `5 r 9 b 9 d \9 f \9 h \9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z 9 | \9 ~ \9 黑体9 q 谼 注×：9 q 繢 F$ D % H % J %2) 9 L 9 N 9 {瓽醶?$ 9 T V9 ?$ 9 X $ 9 Z 9 ^ 9 `5 r \9 b \9 d \9 f \9 h \9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z \9 | \9 ~ \9 9 q 圕 9 q xC F$ D % H % J %3. 9 L 9 N 9 {瓽醶?$ 9 T 9 ?$ 9 X $ 9 Z 9 ^ 9 `5 r \9 b \9 d \9 f \9 h \9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z \9 | \9 ~ \9 9 q @B 9 q 0B F$ D % H % J %4. 9 L 9 N R9 {瓽醶?$ 9 T V9 ?$ 9 X $ 9 Z 9 ^ 9 `5 r \9 b \9 d \9 f \9 h \9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z \9 | \9 ~ \9 9 q 鳣 9 q 鐯 F$ D % H % J %5) 9 L 9 N 9 {瓽醶?$ 9 T V9 ?$ 9 X $ 9 Z 9 ^ 9 `5 r \9 b \9 d \9 f \9 h \9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z \9 | \9 ~ \9 9 q ? 9 q ? F$ D % H % J %6. 9 L 9 N 9 {瓽醶?$ 9 T 9 ?$ 9 X $ 9 Z 9 ^ 9 `5 r \9 b \9 d \9 f \9 h \9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z \9 | \9 ~ \9 9 q h> 9 q X> F$ D % H % J %7. 9 L 9 N R9 {瓽醶?$ 9 T V9 ?$ 9 X $ 9 Z 9 ^ 9 `5 r \9 b \9 d \9 f \9 h \9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z \9 | \9 ~ \9 9 q = 9 q = F$ D % H % J %8) 9 L 9 N 9 {瓽醶?$ 9 T V9 ?$ 9 X $ 9 Z 9 ^ 9 `5 r \9 b \9 d \9 f \9 h \9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z \9 | \9 ~ \9 9 q ; 9 q ; F$ D % H % J %9. 9 L 9 N 9 {瓽醶?$ 9 T 9 ?$ 9 X $ 9 Z 9 ^ 9 `5 r \9 b \9 d \9 f \9 h \9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z \9 | \9 ~ \9 9 q : 9 q : F$ D % H ( F$ D % H ! ! B@ | : > : 保护区域不能设置样式！A@ o 9 M ============================================================================= ==Function:设置格式为 正文“注” ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= >p8 注：（正文） 4% ( | @8 >88 保护区域不能设置样式！A@ o 8 M ============================================================================= " ==Function:设置格式为 正文“注×” ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= ` >6 注×：（正文） 4% ( | x6 >p6 保护区域不能设置样式！A@ o H6 M ============================================================================= " ==Function:设置格式为 正文“首注” ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= >4 注×：（正文） 4% ( F$ D % H % J 注%1：9 L P9 N R9 {瓽醶?$ 9 T V9 醶瓽狯?$ 9 X \9 Z 9 ^ 9 `5 r 9 b 9 d \9 f 9 h 9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z 9 | \9 ~ \9 黑体9 q 3 注×：（正文）9 q `3 F$ D % H % J %2) 9 L 9 N 9 呺Q割?$ 9 T V9 徛(\ @$ 9 X {瓽醶?$ 9 Z 9 ^ 9 `5 r \9 b \9 d \9 f 9 h 9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z \9 | \9 ~ \9 9 q 2 9 q 2 F$ D % H % J %3. 9 L 9 N 9 呺Q割?$ 9 T 9 徛(\ @$ 9 X {瓽醶?$ 9 Z 9 ^ 9 `5 r \9 b \9 d \9 f 9 h 9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z \9 | \9 ~ \9 9 q 0 9 q 0 F$ D % H % J %4. 9 L 9 N R9 呺Q割?$ 9 T V9 徛(\ @$ 9 X {瓽醶?$ 9 Z 9 ^ 9 `5 r \9 b \9 d \9 f 9 h 9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z \9 | \9 ~ \9 9 q / 9 q p/ F$ D % H % J %5) 9 L 9 N 9 呺Q割?$ 9 T V9 徛(\ @$ 9 X {瓽醶?$ 9 Z 9 ^ 9 `5 r \9 b \9 d \9 f 9 h 9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z \9 | \9 ~ \9 9 q 0. 9 q . F$ D % H % J %6. 9 L 9 N 9 呺Q割?$ 9 T 9 徛(\ @$ 9 X {瓽醶?$ 9 Z 9 ^ 9 `5 r \9 b \9 d \9 f 9 h 9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z \9 | \9 ~ \9 9 q , 9 q , F$ D % H % J %7. 9 L 9 N R9 呺Q割?$ 9 T V9 徛(\ @$ 9 X {瓽醶?$ 9 Z 9 ^ 9 `5 r \9 b \9 d \9 f 9 h 9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z \9 | \9 ~ \9 9 q + 9 q + F$ D % H % J %8) 9 L 9 N 9 呺Q割?$ 9 T V9 徛(\ @$ 9 X {瓽醶?$ 9 Z 9 ^ 9 `5 r \9 b \9 d \9 f 9 h 9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z \9 | \9 ~ \9 9 q @* 9 q 0* F$ D % H % J %9. 9 L 9 N 9 呺Q割?$ 9 T 9 徛(\ @$ 9 X {瓽醶?$ 9 Z 9 ^ 9 `5 r \9 b \9 d \9 f 9 h 9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z \9 | \9 ~ \9 9 q ( 9 q ( F$ D % H ( F$ D % H ! ! B@ | h( >`( 保护区域不能设置样式！A@ o 8( >(( 条文脚注 4% ( | ( >' 保护区域不能设置样式！A@ o ' >' 图表脚注编号 4% ( | ' >' 保护区域不能设置样式！A@ o `' M ============================================================================= $ ==Function:设置格式为 “一级条标题” ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= ` >%
一级条标题 4% ( | % >% 保护区域不能设置样式！A@ o % M ============================================================================= $ ==Function:设置格式为 “二级条标题” ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= >($
二级条标题 4% ( | $ ># 保护区域不能设置样式！A@ o # M ============================================================================= $ ==Function:设置格式为 “三级条标题” ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= >`"
三级条标题 4% ( | 8" >0" 保护区域不能设置样式！A@ o " M ============================================================================= $ ==Function:设置格式为 “四级条标题” ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= >
四级条标题 4% ( | p >h 保护区域不能设置样式！A@ o @ M ============================================================================= $ ==Function:设置格式为 “五级条标题” ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= ` >
五级条标题 4% ( | > 保护区域不能设置样式！A@ o x M ============================================================================= $ ==Function:设置格式为正文 “章标题” ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= > 章标题 4% ( | > 保护区域不能设置样式！A@ o M ============================================================================= " ==Function:设置格式为正文 “示例” ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= >H 示例 4% ( | > 保护区域不能设置样式！A@ o M ============================================================================= $ ==Function:设置格式为正文 “示例×” ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= > 示例×： ( | ` >X 保护区域不能设置样式！A@ o 0 M ============================================================================= $ ==Function:设置格式为正文 “首示例” ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= ` > 示例×： 4% ( F$ D % H % J 示例%1：9 L P9 N R9 {瓽醶?$ 9 T V9 $ 9 X \9 Z 9 ^ 9 `5 r 9 b 9 d \9 f 9 h 9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z 9 | \9 ~ \9 黑体9 q p 示例×：9 q X F$ D % H % J %2) 9 L 9 N 9 $ 9 T V9 $ 9 X \9 Z 9 ^ 9 `5 r \9 b \9 d \9 f 9 h 9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z \9 | \9 ~ \9 9 q 8 9 q ( F$ D % H % J %3. 9 L 9 N 9 ffffff?$ 9 T 9 瓽醶?$ 9 X \9 Z 9 ^ 9 `5 r \9 b \9 d \9 f 9 h 9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z \9 | \9 ~ \9 9 q 9 q F$ D % H % J %4. 9 L 9 N R9 ffffff?$ 9 T V9 瓽醶?$ 9 X \9 Z 9 ^ 9 `5 r \9 b \9 d \9 f 9 h 9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z \9 | \9 ~ \9 9 q 9 q F$ D % H % J %5) 9 L 9 N 9 ffffff?$ 9 T V9 瓽醶?$ 9 X \9 Z 9 ^ 9 `5 r \9 b \9 d \9 f 9 h 9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z \9 | \9 ~ \9 9 q x 9 q h F$ D % H % J %6. 9 L 9 N 9 ffffff?$ 9 T 9 瓽醶?$ 9 X \9 Z 9 ^ 9 `5 r \9 b \9 d \9 f 9 h 9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z \9 | \9 ~ \9 9 q 8 9 q ( F$ D % H % J %7. 9 L 9 N R9 ffffff?$ 9 T V9 瓽醶?$ 9 X \9 Z 9 ^ 9 `5 r \9 b \9 d \9 f 9 h 9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z \9 | \9 ~ \9 9 q 9 q F$ D % H % J %8) 9 L 9 N 9 ffffff?$ 9 T V9 瓽醶?$ 9 X \9 Z 9 ^ 9 `5 r \9 b \9 d \9 f 9 h 9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z \9 | \9 ~ \9 9 q
9 q
F$ D % H % J %9. 9 L 9 N 9 ffffff?$ 9 T 9 瓽醶?$ 9 X \9 Z 9 ^ 9 `5 r \9 b \9 d \9 f 9 h 9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z \9 | \9 ~ \9 9 q x 9 q h F$ D % H ( F$ D % H ! ! B@ | > 保护区域不能设置样式！A@ o M ============================================================================= & ==Function:设置格式为正文 “示例内容” ==Para: ==Return: ==Designer: ==Created: by zle,090731
==Updated: == Update 1: M ============================================================================= >P
示例内容 4% ( | (
>
保护区域不能设置样式！A@ o M ============================================================================= ==Function:设置格式为正文 “段” ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= > 段 4% ( | p >h 保护区域不能设置样式！A@ o @ >0 条文脚注 4% ( | > 保护区域不能设置样式！A@ o ` 图表脚注编号 > 图表脚注编号 4% ( | > 保护区域不能设置样式！A@ o X M ============================================================================= " ==Function:设置格式为 “图表脚注” ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= > ] ' % , 4! ! BG C@ 9 9 q _ B@^ B@h ' ! 图表脚注说明 ! 图表脚注说明 BG B@ BG 4% B@ 图表脚注说明 4% ( d BG B@ BG 4% B@ A@ k P d H 图表脚注说明 4% ( k | > 保护区域不能设置样式！A@ o M ============================================================================= $ ==Function:设置格式为 “图表首脚注” ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= >p 图表脚注说明 4% ( F$ D % H % J %1 9 L P9 N 9 {瓽醶?$ 9 T V9 呺Q割?$ 9 X \9 Z 9 ^ 9 `5 r 9 b 9 d \9 f 9 h 9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z 9 | \9 ~ \9 宋体9 q 图表脚注说明9 q F$ D % H % J %29 L 9 N 9 $ 9 T V9 {瓽醶?$ 9 X 殭櫃櫃?$ 9 Z 9 ^ 9 `5 r \9 b \9 d \9 f \9 h \9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z \9 | \9 ~ \9 9 q 9 q F$ D % H % J %3. 9 L 9 N 9 $ 9 T 9 {瓽醶?$ 9 X 殭櫃櫃?$ 9 Z 9 ^ 9 `5 r \9 b \9 d \9 f \9 h \9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z \9 | \9 ~ \9 9 q p 9 q ` F$ D % H % J %4. 9 L 9 N R9 $ 9 T V9 {瓽醶?$ 9 X 殭櫃櫃?$ 9 Z 9 ^ 9 `5 r \9 b \9 d \9 f \9 h \9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z \9 | \9 ~ \9 9 q ( 9 q F$ D % H % J %5) 9 L 9 N 9 $ 9 T V9 {瓽醶?$ 9 X 殭櫃櫃?$ 9 Z 9 ^ 9 `5 r \9 b \9 d \9 f \9 h \9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z \9 | \9 ~ \9 9 q 帑 9 q 宣 F$ D % H % J %6. 9 L 9 N 9 $ 9 T 9 {瓽醶?$ 9 X 殭櫃櫃?$ 9 Z 9 ^ 9 `5 r \9 b \9 d \9 f \9 h \9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z \9 | \9 ~ \9 9 q 橔 9 q 堹 F$ D % H % J %7. 9 L 9 N R9 $ 9 T V9 {瓽醶?$ 9 X 殭櫃櫃?$ 9 Z 9 ^ 9 `5 r \9 b \9 d \9 f \9 h \9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z \9 | \9 ~ \9 9 q P 9 q @ F$ D % H % J %8) 9 L 9 N 9 $ 9 T V9 {瓽醶?$ 9 X 殭櫃櫃?$ 9 Z 9 ^ 9 `5 r \9 b \9 d \9 f \9 h \9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z \9 | \9 ~ \9 9 q 9 q F$ D % H % J %9. 9 L 9 N 9 $ 9 T 9 {瓽醶?$ 9 X 殭櫃櫃?$ 9 Z 9 ^ 9 `5 r \9 b \9 d \9 f \9 h \9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z \9 | \9 ~ \9 9 q 丽 9 q 蚌 F$ D % H ( F$ D % H ! ! B@ | 8 >0 保护区域不能设置样式！A@ o 8 >
附录章标题 4% ( | 絮 >弱 保护区域不能设置样式！A@ o 狌 x >愼
附录图标题 4% ( | h >` 保护区域不能设置样式！A@ o 8 >(
附录表标题 4% ( | > 保护区域不能设置样式！A@ o 恤 >吏 附录一级条标题 4% ( | 愻 >堲 保护区域不能设置样式！A@ o ` 8 >P 附录二级条标题 4% ( | > 保护区域不能设置样式！A@ o 痼 x >囿 附录三级条标题 4% ( | 绑 > 保护区域不能设置样式！A@ o >p 附录四级条标题 4% ( | @ >8 保护区域不能设置样式！A@ o > 附录五级条标题 4% ( | 序 >闰 保护区域不能设置样式！A@ o 狉 8 >愹 附录标识 4% ( | h >` 保护区域不能设置样式！A@ o 8 M ============================================================================= ==Function:插入参考文献 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= x ] BKCKWX 4! % " 本文已经插入参考文献，不能重复插入A@ | k x ' J B@ BKSY 4! % BKSY B@ B@^ B@l k ! 终结线 B@^ B@4 B@l d B@2 B@4 k 参考文献 4% ( 参 d B@ ! zle,2008-10-10,+,空两个汉字的距离 B@ 考 d B@ B@ 文 d B@ B@ 献 d B@ B@^ f B@n 4! ! BKCKWX C@ 9 9 q B@2 B@4 ' J o 仨 M ============================================================================= @ ==Function:插入索引,将增加“索引页面”和“插入索引内容”放在一起 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= 6 先查找，看看文档中是否有已经存在的“被标记了的索引项” ] ] ( StandardName' B@ B@2 ! ( ! B@ ! ^d xe 9 d 5 ( d 9 9 9 9 9 9 9 9 9 q 如果存在被标记了的索引项 ! ! 索引页面存在 BKSY 4! % ) zle,090731,判断如果索引存在是否重新生成？ 本文已有索引，是否更新？ $ ' ! ( | 0 k ( 插入索引内容 A@ 索引页面不存在 d 栝 插入索引页面 A@ 插入索引内容 A@ k 犻 如果不存在被标记了的索引项d x 索引页面存在 BKSY 4! % 插入索引内容 ) zle,090731,判断如果索引存在是否重新生成？ 本文已有索引，是否更新？ $ ' ! ( | ㄨ k 犺 zle,090806,用来删除原来的索引 4! !
BKSY B@ B@n
f B@2 b ` f d B@h b ` f d B@2 ! B@ B@l B@4 d 樼 BKSY B@ B@n
f B@2 ! B@ B@4 k ( | 索引页面不存在 d 插入索引页面 A@ , MsgBox "请先标记索引项", , "TCS" | 犳 k 樻 k 愭 o 堟 M ============================================================================= ==Function:插入索引页面 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= @ ' J B@ ! 终结线 B@^ B@4 B@l d 冷 B@2 B@4 k 樹 参考文献、索引标题 4% ( 索 d B@ " zle,2008-10-10,+2,增加两个汉字空格 B@ B@ 引 d B@ B@^ f B@n 4! ! BKSY C@ 9 9 q h B@2 ( zle,2008-10-27,+5,增加一个索引格式的书签 4! ! SYGSSQ C@ 9 9 q 噔 B@4 ' J o 棱 M ============================================================================= ( ==Function:设置格式为 "列项——（一级）" ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= >P 列项——（一级） 4% ( | > 保护区域不能设置样式！A@ o 疣 M ============================================================================= & ==Function:设置格式为 "列项●（二级）" ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= > 列项●（二级） 4% ( | P >H 保护区域不能设置样式！A@ o M ============================================================================= & ==Function:设置格式为 "列项◆（三级）" ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= >拜 列项◆（三级） 4% ( | >x 保护区域不能设置样式！A@ o P M ============================================================================= , ==Function:设置格式为 "字母编号列项（一级）" ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= @ >刿 ' J ] ] ' ' 4! ! DW C@ 9 9 q h _ ` B@^ B@h 9 zle,090806,判断当为"目次、标准名称标题"时，进行适当的控制 ! 目次、标准名称标题 DW B@ DW 4% B@ 字母编号列项（一级） ( | p ! 章标题 !
一级条标题 !
二级条标题 !
三级条标题 !
四级条标题 !
五级条标题 !
附录章标题 ! 附录一级条标题 ! 附录二级条标题 ! 附录三级条标题 ! 附录四级条标题 ! 附录五级条标题 e ' ! 字母编号列项（一级） e ' ! 前言、引言标题 e DW B@ DW 4% B@ 字母编号列项（一级） ( ' J | X ! 参考文献 ! 参考文献、索引标题 e DW B@ DW 4% B@ ' J | 凶 ! 附录标识 e DW B@ DW 4% B@ A@ ' J | h x ` k X
DW B@ DW 4% B@ A@ d 鹬 DW B@ DW 4% B@ 字母编号列项（一级） ( k 愔 ' J | >x ' J 保护区域不能设置样式！A@ o H M ============================================================================= . ==Function:设置格式为 "首字母编号列项（一级）" ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= >性 ' J B@ 字母编号列项（一级） ( F$ D % H % J %1) 9 L 9 N 9 瓽醶?$ 9 T V9 瓽醶?$ 9 X 瓽醶?$ 9 Z 9 ^ 9 `5 r 9 b 9 d \9 f \9 h \9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z
9 | \9 ~ \9 宋体9 q P 字母编号列项（一级）9 q ( F$ D % H % J %2) 9 L 9 N R9 瓽醶?$ 9 T V9 悯(\徛@$ 9 X 悯(\徛@$ 9 Z 9 ^ 9 `5 r 9 b 9 d \9 f \9 h \9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z
9 | \9 ~ \9 宋体9 q 嘌 数字编号列项（二级）9 q 秆 F$ D % H % J (%3)9 L 9 N R9 悯(\徛@$ 9 T V9 瓽醶@$ 9 X $ 9 Z 9 ^ 9 `5 r 9 b 9 d \9 f \9 h \9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z
9 | \9 ~ \9 宋体9 q x 编号列项（三级）9 q X F$ D % H % J %4. 9 L 9 N R9 瓽醶@$ 9 T V9 殭櫃櫃
@$ 9 X 殭櫃櫃
@$ 9 Z 9 ^ 9 `5 r \9 b \9 d \9 f \9 h \9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z \9 | \9 ~ \9 9 q 9 q F$ D % H % J %5) 9 L 9 N 9 殭櫃櫃
@$ 9 T V9 悯(\徛@$ 9 X 悯(\徛@$ 9 Z 9 ^ 9 `5 r \9 b \9 d \9 f \9 h \9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z \9 | \9 ~ \9 9 q 韧 9 q 竿 F$ D % H % J %6. 9 L 9 N 9 悯(\徛@$ 9 T 9 呺Q@$ 9 X 悯(\徛@$ 9 Z 9 ^ 9 `5 r \9 b \9 d \9 f \9 h \9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z \9 | \9 ~ \9 9 q x 9 q h F$ D % H % J %7. 9 L 9 N R9 悯(\徛@$ 9 T V9 瓽醶@$ 9 X 呺Q@$ 9 Z 9 ^ 9 `5 r \9 b \9 d \9 f \9 h \9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z \9 | \9 ~ \9 9 q ( 9 q F$ D % H % J %8) 9 L 9 N 9 呺Q@$ 9 T V9 =
祝@$ 9 X 瓽醶@$ 9 Z 9 ^ 9 `5 r \9 b \9 d \9 f \9 h \9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z \9 | \9 ~ \9 9 q 厣 9 q 壬 F$ D % H % J %9. 9 L 9 N 9 瓽醶@$ 9 T 9 =
祝 @$ 9 X =
祝 @$ 9 Z 9 ^ 9 `5 r \9 b \9 d \9 f \9 h \9 j \9 l \9 n \9 p \9 r \9 t \9 v \9 x \9 z \9 | \9 ~ \9 9 q 埲 9 q x F$ D % H ( F$ D % H ! ! B@ ' J | >鹎 ' J 保护区域不能设置样式！A@ o 狼 M ============================================================================= , ==Function:设置格式为 "数字编号列项（二级）" ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= >H ' J B@ 数字编号列项（二级） 4% ( ' J | 鹋 >枧 ' J 保护区域不能设置样式！A@ o 概 M ============================================================================= ( ==Function:设置格式为 "编号列项（三级）" ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= 0 >H ' J B@ 编号列项（三级） 4% ( ' J | >鹈 ' J 保护区域不能设置样式！A@ o 烂 p >懊 索引 1 4% ( | 埫 > 保护区域不能设置样式！A@ o X >H 索引 2 4% ( | > 保护区域不能设置样式！A@ o 鹇 >嗦 索引 3 4% ( | 嘎 >奥 保护区域不能设置样式！A@ o 埪 0 >x 索引 4 4% ( | P >H 保护区域不能设置样式！A@ o p > 索引 5 4% ( | 枇 >嗔 保护区域不能设置样式！A@ o 噶 > 索引 6 4% ( | >x 保护区域不能设置样式！A@ o P >@ 索引 7 4% ( | > 保护区域不能设置样式！A@ o 枥 0 >乩 索引 8 4% ( | 袄 >ɡ 保护区域不能设置样式！A@ o p >p 索引 9 4% ( | H >@ 保护区域不能设置样式！A@ o >
正文图标题 4% ( | 嗫 >乜 保护区域不能设置样式！A@ o 翱 >牽
正文表标题 4% ( | x >p 保护区域不能设置样式！A@ o H M ============================================================================= I ==Function:处理打印，将域阴影去掉，对某些未填的部分不显示（如完成日期等） ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= 0 如果没有插入封面则不用处理' J 4! !
| x k p ] p 将点击此处的提示变为空 4! 5 7 6 ! $ 点击此处 7 6 ( k 丶 q 兰 4!
zhangcheng 4B@ k 埣 4! ( 8 用矩形框遮蔽没有输入的部分 < A@& k 8 H DT 4% ! $ $ : DT 4% B@ H DT 4% ! $ $ e : DT 4% B@ H DT 4% ! $ $ e : DT 4% B@ H DT 4% ! $ $ e : DT 4% B@ k 鸷 LB 4% ! $ $ 文稿版次选择 4!
zhangcheng 4B@ k 埡 : LB 4% B@ k ` WCRQ 4% ! $ $ WCRQ 4% ! $ $ (本稿完成日期：) WCRQ 4% ! $ $ () WCRQ 4% ! $ $ ) 4!
zhangcheng 4B@ k : RQ 4% B@ k X 对备案号进行处理 ] ' < 4! ! 4% ! BAH ' < y 喔 k 馗 < BAH 4% ! $ $ : BAH 4% B@ k p k h 处理完成之后在上保护 4! 4% ( 4! ! 4% ( 胤
zhangcheng l 4B@ k 樂
要素及排版$ ! 0! ( 取消保护 0! ( k H ' J o 8 M ============================================================================= C ==Function:处理编辑，将添加域阴影，显示所有编辑部分（如完成日期等） ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= 如果没有插入封面则不用处理 埖 ' J 4! !
| ` k X ] ' 将空变为相关提示 4! 5 7 6 ! $ $ 7 6 ! *! 0 7 6 ( k 来 q ù 4!
zhangcheng 4B@ k p 4! ( 8 取消矩形框的遮蔽 DT 4% B@ RQ 4% B@ LB 4% B@ 对备案号进行处理 ] ' < 4! ! 4% ! BAH ' < y p k h < BAH 4% ! $ $ BAH 4% B@ k k 处理完成之后在上保护 4% ( 4! ! 4% (
zhangcheng l 4B@
要素及排版$ ! 0! ( 取消保护 0! ( k ' J o 璞 ] p ' B B $ $ D ? ' y k x p ' @i ` M ============================================================================= ==Function:加入“国标”图片 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= ] TCS Graphic Path $ ' \GB.bmp ' ] ! % . F ( $ F( $ F( J 标准标志 4% ( p ` B@n B@4 B@4 p ` B@l 中华人民共和国国家标准 d B@ 标准称谓 4% ( p ` B@n o ` M ============================================================================= ! ==Function:加入“行标”标准标志域 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= ] X ! l 4! % .
ShowHelp159 9 ( c19 9 $ 5 * .C@, $ 9 q h q ` 标准标志 4% ( p ` B@n B@4 B@4 p ` B@l 中华人民共和国 d B@ ! l 4! % . c29
showhelp119 9 9 & 9 $ 9 ( 5 * 9 .C@, q q B@n 行业标准 d B@ 其他标准称谓 4% ( p ` B@n o 惇 M ============================================================================= ! ==Function:加入“地标”标准标志域 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= x ] 其他标准标志 4% ( DB B@ ! l 4! % .
ShowHelp169 9 ( c39 9 $ 5 * .C@, 9 q ` q X p ` B@n B@4 p ` B@l ! l 4! % . c49
showhelp129 9 9 & 9 $ 9 ( 5 * 9 .C@, q ` q X B@n 地方标准 d B@ 其他标准称谓 4% ( p ` B@n B@4 p ` B@l o é M ============================================================================= ! ==Function:加入“企标”标准标志域 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= ] 其他标准标志 4% ( Q/ B@ ! l 4! % .
ShowHelp179 9 ( c59 9 $ 5 * .C@, 9 q x q p p ` B@n B@4 p ` B@l ! l 4! % . c69
showhelp139 9 9 & 9 $ 9 ( 5 * 9 .C@, q x q p B@n 企业标准 d B@ 其他标准称谓 4% ( p ` B@n B@4 p ` B@l o 愧 M ============================================================================= 6 ==Function:处理正文以前的页面 ，将页码格式设为罗马字体 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= 8 ] x ' 4! !
如果已经插入封面 4!
zhangcheng 4B@ k 袪 k 葼 B@2
zle,090704,+1 B@h
zle,090704,*1 Selection.HomeKey l B@ B@l ! ! ( N ! ! ( ! ! ( 4! !
4% ( 4! ! 4% ( p
zhangcheng l 4B@
要素及排版$ ! 0! ( 取消保护 0! ( k 铻 k 酁 o 貫 M ============================================================================= ==Function:插入表格 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= >x RB@ ] Z zle,2008-7-29,+begin,如果点击了插入表格的窗体后，又取消，则不进行插入表格，应退出本函数 N P | 鄿 k 販 zle,2008-7-29,+end b ` B@^ b ` B@2 !
正文表标题 4% B@2 B@4 ! X! e : 判断这一行是否有文字 B@2 B@4 B@ k 貨 B@2 ! N 8 P : 4! 6% . T T 5 网格型 网格型9 k ` 9 D 9 F 9 H 9 J T7 L Z9 P ^9 \ `9 zq X7 L Z9 P ^9 \ `9 zq 鄽 N7 L Z9 P ^9 \ `9 zq 皻 V7 L Z9 P ^9 \ `9 zq b7 L Z9 P d9 \ `9 zq P f7 L Z9 P d9 \ `9 zq R Z7 L ( P R \7 L ( P 5 L( l ^ V 7 h % L ( \ ^ V N 7 h % L ( \ A zle 使得表格第一行和最后一行边框都加粗,并且最后二行要合并 N 7 h ! jB@l N7 h ! jB@l q p B@n p B@n b B@j B@4 段 ( , zle,2008-8-11,+2,将设计表格的行数和列数置为0 ' N ' P| ` >X 保护区域不能设置样式！A@ o 0 M ============================================================================= ==Function:插入公式 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= 4! !
. % , 封面不允许增加公式！A@ | k x k p $ ! ( t ! ( v $ ! ( x
Equation.3 | ~ ! B@z zle,09-06-29,+1 ! ( o 罆 M ============================================================================= ==Function:插入公式编号 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= 0 >` ' zle,2008-11-6,+begin,判断当前所处的位置 4! ! FLBH C@ 9 9 q 钃 ! 附录标识 4% 9 9 9 9 9 9 9 9 9 9 性附录） C@ q P ! B@ ! 附录标识 ! d 性附录） 2 zle,2008-10-7,+4,回答刚插入书签的地方,而后删除书签 FLBH 4! % FLBH B@ FLBH 4% B@ k A@ | p d h 2 zle,2008-10-7,+4,回答刚插入书签的地方,而后删除书签 FLBH 4! % FLBH B@ FLBH 4% B@ k 貞 k 袘 zle,2008-11-6,+end 4! !
zle,2008-8-17,+3，解除窗体保护 4!
zhangcheng 4B@ k @ k 8 b ` B@^ b ` B@^ d B@ b ` B@2 b ` B@2 d B@ () d B@ ! zle,2008-9-30,+begin,增加公式编号 p ` B@l 标准自动公式 B@ 标准自动公式 | B@ p ` B@n zle,2008-9-30,+end ; zle,2008-10-3,+3,将所选应用于“正文公式编号制表符”格式 b ` B@^ b ` f d B@2 正文公式编号制表符 4% ( B@2 B@4 式中： B@ B@4 ] p ' 4! !
4% ( 4! ! 4% ( 8
zhangcheng l 4B@
要素及排版$ ! 0! ( 取消保护 0! ( k 皪 k ◢ | 爫 >槏 保护区域不能设置样式！A@ o p M ============================================================================= ==Function:插入附录公式编号 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= > ! zle,2008-12-1,+1,禁止对封面的操作 ' J ] ] 4! !
zle,2008-8-17,+3，解除窗体保护 4!
zhangcheng 4B@ k P k H b ` B@^ b ` B@^ d B@ b ` B@2 b ` B@2 8 zle,2008-10-9,+1，因为有分节符，所以光标需要向前移动一个 & ' Selection.MoveLeft wdCharacter, 1 d B@ () d B@ p ` B@l ! l ! B@ zle,2008-8-28,+1,增加字母 * STYLEREF 附录标识 \l \n \t \* MERGEFORMAT d B@ ! B@ p B@n . B@ ' zle,2008-10-3,+begin,判断是否已经有公式 1 zle,2008-10-7,+begin,通过加入书签来获得当前的位置 4! ! DW C@ 9 9 q 槇 ] ] zle,2008-10-7,+end b B@h ! 附录公式编号制表符 b b B@h ! 附录标识 2 zle,2008-10-7,+4,回到刚插入书签的地方,而后删除书签 DW 4! % DW B@ DW 4% B@ k p ! l ! B@ seq 附录公式 \r 1 d B@ ! B@ b ` B@^ f B@n 附录公式编号制表符 ( B@2 B@4 式中： B@ B@4 4! First ! C@ 9 9 q ( P zle,2008-10-9,+begin,判断是否在编号1下面还有编号1，如果有1，则删除，进行继续编号 b B@j ! 附录公式编号制表符 b b B@^
f B@2 ! ! X! ' B@l b B@j b B@^
f B@2 ! ! X! ' B@l ! 终结线 First 4! % First B@ First 4% B@ k P H d @ B@h k ( ! 附录标识 First 4! % First B@ First 4% B@ k ▋ 爟 ! 参考文献 e First 4! % First B@ First 4% B@ k ! 参考文献、索引标题 e First 4! % First B@ First 4% B@ k 垈 ! 终结线 e First 4! % First B@ First 4% B@ k 鴣 到了文档的结尾 e i 说明到了文档末尾 First 4! % First B@ First 4% B@ k 0 ( k b B@j 鴢 zle,09-24,+begin, 4! ! NUM1 C@ 9 9 q 榾 ! % , ' B@ ! % , ' NUM1 4! % NUM1 B@ NUM1 4% B@ k k zle,09-24,+end 向下查找找到了有附录公式 b B@2 B@l B@ B@ ! l ! B@
seq 附录公式 d B@ ! B@ First 4! % First B@ First 4% B@ k ~ zle,2008-10-9,+end `~ k X~ P~ DW 4! % DW B@ DW 4% B@ k 鴠 ! l ! B@
seq 附录公式 d B@ ! B@ p B@n zle,2008-10-3,+end b ` B@^ b ` f d B@2 附录公式编号制表符 ( B@2 B@4 式中： B@ B@4 zle,2008-9-24,+1,运行定时更新域 榺 4! ! BK C@ 9 9 q P| A@ BK B@ BK 4% B@ ] ( ' 4! !
4% ( 4! ! 4% ( 恵
zhangcheng l 4B@
要素及排版$ ! 0! ( 取消保护 0! ( k { k { ! zle,2008-12-1,+1,禁止对封面的操作 ' J | 葄 >纙 ! zle,2008-12-1,+1,禁止对封面的操作 ' J 保护区域不能设置样式！A@ o hz zle,2008-8-17,+end M ============================================================================= ==Function:更新公式编号 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= @ " zle,200812-1,+1,防止对封面进行处理' J ] 4! !
4!
zhangcheng 4B@ k px k hx C@ 5 (
X % 5 ( A@ q x StandardName B@ B@2
f B@2 ! . 9 5 ( X % 5 ( A@ q xw ] ] ! ! ' ! ! % ! l % B@H B@n 4! ! DW C@ 9 9 q ╲ ! B@ ! 附录标识 4% 9 9 9 9 9 9 9 9 9 9 性附录） C@ q v ! B@ ! 附录标识 ! d 性附录） % ! 1 DW B@ d xu % ! $ DW B@ _ 0u b B@h ! 附录公式编号制表符 x 鑤 k 鄑 ! 附录标识 ! 附录公式编号制表符 DW 4% B@ % B@ d ht DW B@ DW 4% B@ % B@ ! l ! B@ seq 附录公式 \r 1 d B@ ! B@ k 皊 k ╯ k 爏 9 ! ( F X % ! ( A@ d 8s DW 4% B@ % B@ 9 ! ( F X % ! ( A@ k 爎 k 榬 恟 5 ( Z X % 5 ( A@ q Pr 4! !
4% ( 4! ! 4% ( 鄎
zhangcheng l 4B@
要素及排版$ ! 0! ( 取消保护 0! ( k Xq k Pq 5 ( d X % 5 ( A@ q q A@r " zle,200812-1,+1,防止对封面进行处理 ' J o 萷 M ============================================================================= ==Function:更新文档中的域 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= C@ T 5 ( X % 5 ( A@ q o StandardName B@ B@2
f B@2 5 ( < X % 5 ( A@ q 恘 ! B@ 5 ( d X % 5 ( A@ q @n A@r o (n M ============================================================================= ==Function:打印预览 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= ! 4B@ o 竘 M ============================================================================= ? ==Function:设置格式为 “章标题”，可分别判断设置 正文 还是 附录 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= P! >0k
zle,090812,+3 | k k 鴍 B@ - zle,090807,+10,将选定的区域赋给临时tempSelRan ] ! ] ! ] ! ] ! ] ! ] " ! . ! ' ' ' ' J B@^ 1 zle,2008-10-7,+begin,通过加入书签来获得当前的位置 4! ! DW C@ 9 9 q 癷 ! B@ ! 附录标识 4% 9 9 9 9 9 9 9 9 9 9 性附录） C@ q i ! B@ ! 附录标识 ! d 性附录） 2 zle,2008-10-7,+4,回答刚插入书签的地方,而后删除书签 DW 4! % DW B@ DW 4% B@ k 8h 0 zle,090807,+begin,判断单行还是多行，而后应用样式 b
$ ' ' ' k 榞 恎 ' k hg
附录章标题 4% ( d 0g B@H B@l
附录章标题 ( B@j 纅 k 竑 B@H zle,090807,+end | 坒 d f 2 zle,2008-10-7,+4,回答刚插入书签的地方,而后删除书签 DW 4! % DW B@ DW 4% B@ k 餰 0 zle,090807,+begin,判断单行还是多行，而后应用样式 b
$ ' ' ' k Pe He ' k e 章标题 4% ( d 鑔 B@H B@l 章标题 ( B@j xd k pd B@H zle,090807,+end k @d ' J | 0d >(d ' J 保护区域不能设置样式！A@ o 鴆 M ============================================================================= C ==Function:设置格式为 “一级条标题”，可分别判断设置 正文 还是 附录 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= (" >hb
zle,090812,+3 | 8b k 0b B@ - zle,090807,+10,将选定的区域赋给临时tempSelRan ] h" ] " ] " ] " ] " ] " ! . ! ' ' ' ' J B@^ 1 zle,2008-10-7,+begin,通过加入书签来获得当前的位置 4! ! DW C@ 9 9 q 鑐 zle,2008-10-7,+end ! B@ ! 附录标识 4% 9 9 9 9 9 9 9 9 9 9 性附录） C@ q (` ! B@ ! 附录标识 ! d 性附录） 2 zle,2008-10-7,+4,回答刚插入书签的地方,而后删除书签 DW 4! % DW B@ DW 4% B@ k X_ 0 zle,090807,+begin,判断单行还是多行，而后应用样式 b
$ ' ' ' k 竈 癪 ' k 坁 附录一级条标题 4% ( d H^ B@H B@l 附录一级条标题 ( B@j 衇 k 萞 B@H zle,090807,+end | 榏 d 怾 2 zle,2008-10-7,+4,回答刚插入书签的地方,而后删除书签 DW 4! % DW B@ DW 4% B@ k ] 0 zle,090807,+begin,判断单行还是多行，而后应用样式 b
$ ' ' ' k `\ X\ ' k 0\
一级条标题 4% ( d 鳾 B@H B@l
一级条标题 ( B@j 圼 k [ B@H zle,090807,+end k P[ " zle,200812-1,+1,防止对封面进行处理 ' J | [ >[ " zle,200812-1,+1,防止对封面进行处理 ' J 保护区域不能设置样式！A@ o 竄 M ============================================================================= C ==Function:设置格式为 “二级条标题”，可分别判断设置 正文 还是 附录 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= # >(Y
zle,090812,+3 | 鳻 k 餢 B@ - zle,090807,+10,将选定的区域赋给临时tempSelRan ] @# ] X# ] x# ] # ] # ] # ! . ! ' ' ' ' J B@^ 1 zle,2008-10-7,+begin,通过加入书签来获得当前的位置 4! ! DW C@ 9 9 q ╓ zle,2008-10-7,+end ! B@ ! 附录标识 4% 9 9 9 9 9 9 9 9 9 9 性附录） C@ q 鑆 ! B@ ! 附录标识 ! d 性附录） 2 zle,2008-10-7,+4,回答刚插入书签的地方,而后删除书签 DW 4! % DW B@ DW 4% B@ k V 0 zle,090807,+begin,判断单行还是多行，而后应用样式 b
$ ' ' ' k xU pU ' k HU 附录二级条标题 4% ( d U B@H B@l 附录二级条标题 ( B@j 怲 k 圱 B@H zle,090807,+end | XT d PT 2 zle,2008-10-7,+4,回答刚插入书签的地方,而后删除书签 DW 4! % DW B@ DW 4% B@ k 繱 0 zle,090807,+begin,判断单行还是多行，而后应用样式 b
$ ' ' ' k S S ' k 餜
二级条标题 4% ( d 窻 B@H B@l
二级条标题 ( B@j HR k @R B@H zle,090807,+end k R " zle,200812-1,+1,防止对封面进行处理 ' J | 豎 >蠶 " zle,200812-1,+1,防止对封面进行处理 ' J 保护区域不能设置样式！A@ o xQ M ============================================================================= C ==Function:设置格式为 “三级条标题”，可分别判断设置 正文 还是 附录 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= # >鐿
zle,090812,+3 | 窸 k 癘 B@ - zle,090807,+10,将选定的区域赋给临时tempSelRan ] $ ] 0$ ] P$ ] h$ ] $ ] $ ! . ! ' ' ' ' J B@^ 1 zle,2008-10-7,+begin,通过加入书签来获得当前的位置 4! ! DW C@ 9 9 q hN zle,2008-10-7,+end ! B@ ! 附录标识 4% 9 9 9 9 9 9 9 9 9 9 性附录） C@ q ∕ ! B@ ! 附录标识 ! d 性附录） 2 zle,2008-10-7,+4,回答刚插入书签的地方,而后删除书签 DW 4! % DW B@ DW 4% B@ k 豅 0 zle,090807,+begin,判断单行还是多行，而后应用样式 b
$ ' ' ' k 8L 0L ' k L 附录三级条标题 4% ( d 菿 B@H B@l 附录三级条标题 ( B@j PK k HK B@H zle,090807,+end | K d K 2 zle,2008-10-7,+4,回答刚插入书签的地方,而后删除书签 DW 4! % DW B@ DW 4% B@ k J 0 zle,090807,+begin,判断单行还是多行，而后应用样式 b
$ ' ' ' k 郔 豂 ' k 癐
三级条标题 4% ( d xI B@H B@l
三级条标题 ( B@j I k I B@H zle,090807,+end k 蠬 " zle,200812-1,+1,防止对封面进行处理 ' J | 楬 >怘 " zle,200812-1,+1,防止对封面进行处理 ' J 保护区域不能设置样式！A@ o 8H zle,2008-9-27,+end M ============================================================================= C ==Function:设置格式为 “四级条标题”，可分别判断设置 正文 还是 附录 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= $ >怓
zle,090812,+3 | `F k XF B@ - zle,090807,+10,将选定的区域赋给临时tempSelRan ] $ ] % ] (% ] @% ] X% ] p% ! . ! ' ' ' ' J B@^ 1 zle,2008-10-7,+begin,通过加入书签来获得当前的位置 4! ! DW C@ 9 9 q E zle,2008-10-7,+end ! B@ ! 附录标识 4% 9 9 9 9 9 9 9 9 9 9 性附录） C@ q PD ! B@ ! 附录标识 ! d 性附录） 2 zle,2008-10-7,+4,回答刚插入书签的地方,而后删除书签 DW 4! % DW B@ DW 4% B@ k C 0 zle,090807,+begin,判断单行还是多行，而后应用样式 b
$ ' ' ' k 郆 谺 ' k 癇 附录四级条标题 4% ( d pB B@H B@l 附录四级条标题 ( B@j 鳤 k 餉 B@H zle,090807,+end | 繟 d 窤 2 zle,2008-10-7,+4,回答刚插入书签的地方,而后删除书签 DW 4! % DW B@ DW 4% B@ k (A 0 zle,090807,+begin,判断单行还是多行，而后应用样式 b
$ ' ' ' k 園 @ ' k X@
四级条标题 4% ( d @ B@H B@l
四级条标题 ( B@j ? k ? B@H zle,090807,+end k x? " zle,200812-1,+1,防止对封面进行处理 ' J | @? >8? " zle,200812-1,+1,防止对封面进行处理 ' J 保护区域不能设置样式！A@ o > M ============================================================================= C ==Function:设置格式为 “五级条标题”，可分别判断设置 正文 还是 附录 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= % >P=
zle,090812,+3 | = k = B@ - zle,090807,+10,将选定的区域赋给临时tempSelRan ] % ] % ] & ] & ] 0& ] H& ! . ! ' ' ' ' J B@^ 1 zle,2008-10-7,+begin,通过加入书签来获得当前的位置 4! ! DW C@ 9 9 q ; zle,2008-10-7,+end ! B@ ! 附录标识 4% 9 9 9 9 9 9 9 9 9 9 性附录） C@ q ; ! B@ ! 附录标识 ! d 性附录） 2 zle,2008-10-7,+4,回答刚插入书签的地方,而后删除书签 DW 4! % DW B@ DW 4% B@ k @: 0 zle,090807,+begin,判断单行还是多行，而后应用样式 b
$ ' ' ' k 9 9 ' k p9 附录五级条标题 4% ( d 09 B@H B@l 附录五级条标题 ( B@j 8 k 8 B@H zle,090807,+end | 8 d x8 2 zle,2008-10-7,+4,回答刚插入书签的地方,而后删除书签 DW 4! % DW B@ DW 4% B@ k 7 0 zle,090807,+begin,判断单行还是多行，而后应用样式 b
$ ' ' ' k H7 @7 ' k 7
五级条标题 4% ( d 6 B@H B@l
五级条标题 ( B@j p6 k h6 B@H zle,090807,+end k 86 " zle,200812-1,+1,防止对封面进行处理 ' J | 6 >5 " zle,200812-1,+1,防止对封面进行处理 ' J 保护区域不能设置样式！A@ o 5 M ============================================================================= ? ==Function:设置格式为 “图标题”，可分别判断设置 正文 还是 附录 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= `& >4 " zle,200812-1,+1,防止对封面进行处理' J B@^ 1 zle,2008-10-7,+begin,通过加入书签来获得当前的位置 4! ! DW C@ 9 9 q X3 zle,2008-10-7,+end ! B@ ! 附录标识 4% 9 9 9 9 9 9 9 9 9 9 性附录） C@ q 2 ! B@ ! 附录标识 ! d 性附录） 2 zle,2008-10-7,+4,回答刚插入书签的地方,而后删除书签 DW 4! % DW B@ DW 4% B@ k 1
附录图标题 4% ( | 1 d 1 2 zle,2008-10-7,+4,回答刚插入书签的地方,而后删除书签 DW 4! % DW B@ DW 4% B@ k 1
正文图标题 4% ( k 0 " zle,200812-1,+1,防止对封面进行处理 ' J | 0 >0 " zle,200812-1,+1,防止对封面进行处理 ' J 保护区域不能设置样式！A@ o H0 M ============================================================================= ? ==Function:设置格式为 “表标题”，可分别判断设置 正文 还是 附录 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= & >. " zle,200812-1,+1,防止对封面进行处理' J B@^ 1 zle,2008-10-7,+begin,通过加入书签来获得当前的位置 4! ! DW C@ 9 9 q . zle,2008-10-7,+end ! B@ ! 附录标识 4% 9 9 9 9 9 9 9 9 9 9 性附录） C@ q @- ! B@ ! 附录标识 ! d 性附录） 2 zle,2008-10-7,+4,回答刚插入书签的地方,而后删除书签 DW 4! % DW B@ DW 4% B@ k p,
附录表标题 4% ( | H, d @, 2 zle,2008-10-7,+4,回答刚插入书签的地方,而后删除书签 DW 4! % DW B@ DW 4% B@ k +
正文表标题 4% ( k + " zle,200812-1,+1,防止对封面进行处理 ' J | P+ >H+ " zle,200812-1,+1,防止对封面进行处理 ' J 保护区域不能设置样式！A@ o * M ============================================================================= " ==Function:显示 “标记索引项”窗体 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= & B@ o x) M ============================================================================= / ==Function:在全部标记之前先全部删除掉已经标记的 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= ' ] `' ] x' StandardName' B@ B@2 ! ( ' h_ ' ! C@ ^d xe " $ Z " $ 9 d 9 9 9 q ' ' ! B@ k & ! B@H ! 目次、标准名称标题 x & k & B@ h ' h ^d xe " $ Z " $ ! % ! ( o (& M ============================================================================= ==Function:标记索引项 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= ' ] ' ] ' 4! !
4!
zhangcheng 4B@ k p$ k h$ ' b ' ^
只标记一次 \ ! B@H B@n GetIndexTitleAll 09-06-14改查找函数A@ ? zle,2008-11-2,+begin,判断如果在前言、引言、目次不可以标记索引项 ^ | # k x# zle,2008-11-2,+end ! ! ( I zle,09-06-14,判断是否已经标记了，如果已经标记了，则先删除，而后在重新标记 f B@n ! ! d XE B@ d " B@l k " ! Z Z ^ b d 4! B@ ! ! ! ! ! ( 标记所有 d ! " zle,200812-1,+1,防止对封面进行处理' J ' zle,09-06-12,在全部标记之前，先全部删除 A@ ] ( ] ( ] @( ] X( ' T 4! ' ! 章标题 y ! k ! 5 ( X % 5 ( A@ q ] p( ] ( ] ( ] ( ] ( ] ( ' ' ' ' 4! ! 4% ! . ! C@ Z9 d 9 9 q ! ! B@H $ 6 H ` ! 章标题 !
一级条标题 !
二级条标题 !
三级条标题 !
正文表标题 !
正文图标题 ! 附录标识 !
附录章标题 ! 附录一级条标题 ! 附录二级条标题 ! 附录三级条标题 !
附录表标题 !
附录图标题 ! 一级无 ! 二级无 ! 三级无 !
附录一级无 !
附录二级无 !
附录三级无 A@ ^' , , ' ! ! ( ! Z Z ^ b d 4! B@ T ' T T
' ' 5 ( X % 5 ( A@ q k ! 索引 1 e y p d h % , d P A@ b' d , , ! ! ( $ $ ! Z Z b b d 4! B@ T ' T ' T
' ' 5 ( X % 5 ( A@ q k k k k k k k H 5 ( ( X % 5 ( A@ q X ] ) ] ) ] 0) ] H) H ' ( ' ] `) ] x) ] ) ' " ' $ ' &] ) ] ) ] ) 判断文档中的表格
1.加了封面 4! !
J (1) 判断是国家标准（封面中有两个表格）国家中的域个数是12个，企业的都是17个 4! ! 1..文档中有表格 4! 6!
4! 6! ' & ( 4! 6! ( 4% 6 % , B@H $ zle,2008-11-29,+begin,显示进度条增加 ' ' 5 ( X % 5 ( A@ q zle,2008-11-29,+end
获得表标题A@ ^ 表 没有给该表增加 表标题 A@ | k 8 说明在表标题中没有出现该词，则需要查找单元格中是否有该词 , ^ , * ( 4% 6 ! ! j *! ! 0 0 *! ! 4% . . .! d Z .B@H $ , zle,2008-12-4,+7在单元格中定位文字的出现位置 ! B@ ! Z9 d9 9 q 0 ! B@ ! ! ( $ $ ! Z Z ^ b d 4! B@ T ' T y k x k p h k ` & (2) 判断是其他标准（封面中有三个表格） d ( 1..文档中有表格 4! 6!
4! 6! ' & ( 4! 6! ( 4% 6 % , B@H $ zle,2008-11-29,+begin,显示进度条增加 ' ' 5 ( X % 5 ( A@ q zle,2008-11-29,+end
获得表标题A@ ^ 表 没有给该表增加 表标题 A@ | k 8 说明在表标题中没有出现该词，则需要查找单元格中是否有该词 , ^ , * ( 4% 6 ! ! j *! ! 0 0 *! ! 4% . . .! d Z .B@H $ , zle,2008-12-4,+7在单元格中定位文字的出现位置 ! B@ ! Z9 d9 9 q ! B@ ! ! ( , , ! Z Z ^ b d 4! B@ T ' T y x k p h k ` X k P k H 2.没有加封面 d ( 4! 6!
4! 6! ' & ( &
获得表标题 ( 4% 6 % , B@H $ zle,2008-11-29,+begin,显示进度条增加 ' ' 5 ( X % 5 ( A@ q zle,2008-11-29,+end A@ ^ 表 没有给该表增加 表标题 A@ | k 8 说明在表标题中没有出现该词，则需要查找单元格中是否有该词 , ^ , * ( 4% 6 ! ! j *! ! 0 0 *! ! 4% . . .! d Z .B@H $ , zle,2008-12-4,+7在单元格中定位文字的出现位置 ! B@ ! Z9 d9 9 q P ! B@ ! ! ( $ $ ! Z Z ^ b d 4! B@ T ' T y
k
k
k
k x
~ 5 ( F X % 5 ( A@ q 8
~ ' F ' ' 判断文档中的图的图注 和 图的脚注 是否有 # *********************************** ] * ] * 4! !
正文图标题 !
附录图标题 ! B@H A@ D 如果图标题中没有出现过被标记的项，则要查找 图注 和 图的脚注 是否有？ , ^ , _ b B@h B@2 BKEnd 4! % 4! ! BKEnd C@ 9 9 q @ k 8 x ' x ! 注： ! 注×： ! 图表脚注说明 x
k
x b B@j B@2 BKEnd 4% B@ ' xd `
b B@j B@^ 4! ! BKStart C@ 9 9 q ' x BKStart 4% ! 0 0 BKEnd 4% ! 4% . B@H BKStart 4% B@ BKEnd 4% B@ ! B@ ! Z9 d 5 ( d 9 9 9 9 9 9 9 9 9 q ! ! B@n ! ! ( ! Z Z ^ b d 4! B@ T ' T $ zle,2008-11-29,+begin,显示进度条增加 ' ' 5 ( X % 5 ( A@ q p zle,2008-11-29,+end d H B@n k 0 k ( k k zle,2008-11-10,+end k 5 ( Z X % 5 ( A@ q 4! !
4% ( 4! ! 4% ( 8
zhangcheng l 4B@
要素及排版$ ! 0! ( 取消保护 0! ( k k ! ( 7 隐藏文字不显示 ! ! ( 1 显示/隐藏标记不显示 ! zle,09-06-19,判断版本显示段落标记 6! 12.0 D ActiveWindow.View.ShowParagraphs = False '显示段落标记 Else ! ( k ! 'zle,09-07-09,+1,解决选中问题 B@n B@l 5 ( d X % 5 ( A@ q ' J 0 'zle,2008-12-2,+1,当标记完成时可以时点击窗体 frmMarkIndex.Enabled = True o M ============================================================================= - ==Function:全部标记时，获得 标题式 索引标题号 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= 8* ] x* ] * ] * % ! . 2 2! 2B@: 2! 6. 4 4! $ 4 ! . 2 2! ! <' 8 8$ $ ' 8 ] * ] * ] + ] + ] 0+ . ' F 表' B 8' > zle,09-06-13,+5 4! ! BJSY C@ 9 9 q > F 8$ $ ' ^ | > B e 8$ $ ' ^ | d b B@h % int_Count = int_Count + 1 % ! . 2 2! 2B@: 2! 6. 4 > ) > —— ! 列项◆（三级） ! 列项●（二级） > 注 2! 图表脚注说明 4! $ 4 ! . 2 2! ! <' 8 8$ $ ' 8 8' > 8$ $ ' ^ , Selection.MoveDown wdLine, int_Count zle,09-06-13,+2 BJSY B@ BJSY 4% B@ | k x 8$ $ ' ^ o ` M ============================================================================= & ==Function:单个标记时，获得 索引标题号 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= H+ ] + ] + ] + ] + % ! . 2 2! 2B@: 2! 6. 4 4! $ 4 ! . 2 2! ! <' 8 8$ $ ' 8 8' > 0 B T f ! 章标题 !
一级条标题 !
二级条标题 !
三级条标题 !
正文表标题 !
正文图标题 ! 附录标识 !
附录章标题 ! 附录一级条标题 ! 附录二级条标题 ! 附录三级条标题 !
附录表标题 !
附录图标题 !
附录图标题 ! 一级无 ! 二级无 ! 三级无 !
附录一级无 !
附录二级无 !
附录三级无 8$ $ ' ^ | k 说明不是图标的注，而是正文的注 ! 注×： ! 注： ! 图表脚注说明 ] + ] , 8' > 4! ! BJSY C@ 9 9 q H > ) > —— ! 列项◆（三级） ! 列项●（二级） > 表 > 图 > 注 ! 段 > 示例 H > 注 > 注 b B@h % ! . 2 2! 2B@: 2! 6. 4 4! $ 4 ! . 2 2! ! <' 8 8$ $ ' 8 8' > 狑 d 橑 b B@h k x % ! . 2 2! 2B@: 2! 6. 4 4! $ 4 ! . 2 2! ! <' 8 8$ $ ' 8 8' > > 注 0 H 2! 章标题 2!
一级条标题 2!
二级条标题 2!
三级条标题 2! 附录标识 2!
附录章标题 2! 附录一级条标题 2! 附录二级条标题 2! 附录三级条标题 ! 一级无 ! 二级无 ! 三级无 !
附录一级无 !
附录二级无 !
附录三级无 2! ! <' 8 8$ $ ' 8 8' > 8$ $ ' ^ BJSY B@ BJSY 4% B@ | 佤 k 恤 2! 图表脚注说明 H k 狋 k 橍 愻 如果是图表的注或脚注 d h 4! ! BJSY C@ 9 9 q C 如果“注”或“注X：”在表格中，则是向上移动，直到遇到“表标题”为止 % , > 表 b B@h % ! . 2 2! 2B@: 2! 6. 4 4! $ 4 ! . 2 2! ! <' 8 8$ $ ' 8 8' > >$ $ ' ^ BJSY B@ BJSY 4% B@ | 蛤 A 如果“注”或“注X：”在图中，则是向下移动，直到遇到“图标题”为止 d h > 图 b B@j % ! . 2 2! 2B@: 2! 6. 4 4! $ 4 ! . 2 2! ! <' 8 8$ $ ' 8 8' > 榜 >$ $ ' ^ BJSY B@ BJSY 4% B@ | ` k X k P o H M ============================================================================= / ==Function:全部标记时，获得 非标题式 索引标题号 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= (, ] h, ] , ] , ] , % ! . 2 2! 2B@: 2! 6. 4 4! $ 4 ! . 2 2! ! <' 8 8$ $ ' 8 8' > 说明不是图标的注，而是正文的注 ! 注×： ! 注： ] , ] , 8' > B@n 4! ! BJSY C@ 9 9 q p > ) > —— ! 列项◆（三级） ! 列项●（二级） > 表 > 图 > 注 ! 段 > 示例 H > 注 > 注 b B@h % ! . 2 2! 2B@: 2! 6. 4 4! $ 4 ! . 2 2! ! <' 8 8$ $ ' 8 8' > 褥 d 漓 b B@h k 犾 % ! . 2 2! 2B@: 2! 6. 4 4! $ 4 ! . 2 2! ! <' 8 8$ $ ' 8 8' > > 注 * < T 2! 章标题 2!
一级条标题 2!
二级条标题 2!
三级条标题 2! 附录标识 2!
附录章标题 2! 附录一级条标题 2! 附录二级条标题 2! 附录三级条标题 2! 一级无 2! 二级无 2! 三级无 2!
附录一级无 2!
附录二级无 2!
附录三级无 2! ! <' 8 8$ $ ' 8 8' > 8$ $ ' b BJSY B@ BJSY 4% B@ | k 痖 2! 图表脚注说明 H乳 k 篱 k 搁 伴 k ㄩ o 犻 M ============================================================================= ==Function:插入索引 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= -
INDEX \e " % " \c "1" \h "A" \o "P" \y \z "2052" P LB@N With ActiveDocument p ) .Indexes.Add Range:=Selection.Range, HeadingSeparator:=' wdHeadingSeparatorLetter, Type:=wdIndexIndent, RightAlignPageNumbers' :=True, NumberOfColumns:=1, SortBy:=wdIndexSortBySyllable,' IndexLanguage:=wdSimplifiedChinese / .Indexes(1).TabLeader = wdTabLeaderDots End With o ` M ============================================================================= ==Function:调整索引格式 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= H- " zle,200812-1,+1,防止对封面进行处理' J ] - BKSY' B@ B@2 p B@n zle,09-06-18,+增加进度条 C@ q 8 zle,090609,+增加索引 A@J zle,090609,增加进度条的位置 V 5 ( X % 5 ( A@ q ㄣ $ zle,2008-11-19,+4,用来删除原来的索引 4! !
f B@2 b ` f d B@h b ` f d B@2 ! ! X! ! B@ d 锈 B@n ! 终结线 B@l k 愨 k 堚 d
f B@2 ! ! X! E Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend ; Selection.EndKey Unit:=wdLine, Extend:=wdExtend ! B@ d 犪 B@n k 堘 k s 5 ( ( X % 5 ( A@ q @
zle,090709,+5 4! !
4!
zhangcheng 4B@ k 剜 k 朽 索引 1 4% ! 9 q 犩 zle,090706+,调整字体为宋体 索引 1 4% ! r 宋体9 t 宋体9 v 宋体9 x 宋体9 q B@l ! B@ ! ( R BKSY' B@ B@2 b B@j ! B@ ! ! B@ ! 9 d 5 ( d 9 9 9 9 9 9 9 9 9 q 柁 V T ! B@ zle,2008-10-16,+end B@n 2 zle,2008-10-24,+begin,控制编号的顺序，使其正序出现] - ] - ] - ] . ] . ] 8. ] P. ] h. ] . ] . ] . ] . ] . ' Z ' \ ' ^ ' ` ' b ' d ' ' f ! B@ _ ㄝ j ! ^t9 d 9 9 q ` ! B@ k H ! B@H p B@n f B@n ! ! d$ $ ' Z 5 zle,09-06-14,+4定义两个临时变量，判断有没有重复的标题 ] . ] / ' l ' n 1.说明只有一个索引项，不需要排序 ! ! d , B@n $ 2.说明有多个索引项，需要进行重新排序 d Z ! ! d$ $ $ , b ! ! d$ $ $ x 堐 k \ ! ! d $ ' \ ' @ zle,09-06-14,+begin l \' ld \' nk 疒 l n 1.是正文标题类 \ $ $ p \ , ^ ' ^ ' \ 2.是附录标识 \ $ 附 e \ , ' ' \ 3.是表 \ $ 表 e \ , b ' b ' \ 4.是图 \ $ 图 e \ , d ' d ' \ 5.是附录标题类 A \$ D Z e \ , ` ' ` ' \k X n n' lk 8 k 0 ' \ ' ^ ` d b ' f f ' h f h $ ' f f ! ( d ' ^ ' ' b ' d ' ` ' fk ' j ^t ! % 5 ( 2 X % 5 ( A@ q 段落标记 + ActiveWindow.View.ShowParagraphs = True E zle，2009-1-9，+5，增加一个书签，以便修改完页码之后返回原来的地方 4! ! DW C@ 9 9 q ( ( zle,2009-1-8,+begin,为了防止03中修改页码 4! !
4!
zhangcheng 4B@ k ㄖ k 犞 * zle,09-06-15,+begin,增加按照拼音顺序来排列A@r zle,09-06-15,+end 5 ( Z X % 5 ( A@ q 修改页码 StandardName' B@ B@2 ! ! ( f B@n ! ! ! ( k X ! ! 9 9 9 9 9 9 q ! ! ( 4! !
4! 4% ( 4! ! 4% ( p
zhangcheng l 4B@
要素及排版$ ! 0! ( 取消保护 0! ( k 栌 k 嘤 k 赜 zle,2009-1-8,+end 3 zle，2009-1-9，+4，删除那个书签，返回原来的地方 DW 4! % DW B@ DW 4% B@ k ( 5 ( d X % 5 ( A@ q 枰 A@r ! ( 7 隐藏文字不显示 ! ! ( 1 显示/隐藏标记不显示 " zle,200812-1,+1,防止对封面进行处理 ' J o H M ============================================================================= ! ==Function:调整按照拼音顺序来排列 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= (/ BKSY B@ p ` B@n b ` f d B@2 将域变成文本 ! B@t p ` B@n p ` B@l 4! ! SYE C@ 9 9 q 叵 BKSY B@ p ` B@n
删除分节符 ! B@ ! ! B@ ! ^b9 d 5 ( d 9 9 9 9 9 9 9 9 9 q 辔 V T ! B@ 5 ( < X % 5 ( A@ q 埼 % zle,09-06-23,+1，工程和激活文档相对应 "! $ v B@x zle,09-06-21,+3,消除多余的回车
B@2 ! 终结线 B@h k 赝 B@l B@ BKSY B@ p ` B@n 4! ! SYF C@ 9 9 q 0 ] h/ SYF 4% ! 0 0 SYE 4% ! 0 4% . B@H
文本到表格 | : & 8 ~ 网格型 LB@z
0 依次遍历表格中的每一行，得到每一个索引对应的标题 ] / ] / ] / ] / 5 ( A X % 5 ( A@ q 杆 6 查找个索引项对应的“索引标题”，并把它放进对应的结构中 ] / % 动态数组 4! 6! ' 4% 6 ! h! ' @0 ] H0 ] `0 ] x0 ' * ' Z 4% 6 % , B@H ! ! d ' Z ! ! X! ! ! d 符号 ! ! d $ ' \ d @ ! ! d $ ' \ k d B@l f B@n \ *$ ( l ! ! d *$ ( n * ' * k 樕 惿 * ' 删除“索引标题”行] 0 4% 6 ! h B@H ! ! X! B@ k 5 ( F X % 5 ( A@ q 溉 如果是1行就不需要排序 4% 6 ! h!
4% 6 B@H 将表格按照拼音字母排序
) 1 ; 列 1 段落数 段落数 段落数 B@ k x 5 ( K X % 5 ( A@ q 8 L 查找已经排序后的各索引项的“索引标题”，把“索引标题”加到各索引项对应的上面 ] 0 ] 0 ] 0 4% 6 ! h B@H B@l f B@n ! ! d' * *$ ! n *$ ! l' y k 向上增加一行 B@ B@ # Selection.TypeBackspace 索引标题 ( ' k ` X 5 ( P X % 5 ( A@ q 将表格转化成文本 ! hB@ 移除智能标记 4B@ % zle,09-06-23,+1，工程和激活文档相对应 "! $ v B@x zle,09-06-21,+3,消除多余的回车
B@2 ! 终结线 B@h k B@l B@ o 孛 M ============================================================================= ==Function:显示 删除索引项 窗体 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= 0 B@ o ` M ============================================================================= ==Function: 删除索引项 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= 81 ] x1 ] 1 ] 1
1.逐个删除 d B@ ! (
2.全部删除 d e " zle,200812-1,+1,防止对封面进行处理' J ] 1 ) Selection.HomeKey wdStory, wdMove StandardName' B@ B@2 ! ( ' h_ 揽 ! C@ ^d xe " $ f " $ 9 d 9 9 9 q H ' ! B@ k ( ! B@H ! 目次、标准名称标题 x 杈 k 嗑 B@ h ' h ^d xe " $ f " $ ! % ! ( " zle,200812-1,+1,防止对封面进行处理 ' J k ( o $ zle,2008-11-2,+end，删除标记的索引项 M ============================================================================= ==Function:保护文档 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= 1 ] (2 4! !
4! 4% ( 4! ! 4% (
zhangcheng l 4B@ k 然 k 阑 o 富 M ============================================================================= ==Function:解除文档保护 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= @2 4! !
4!
zhangcheng 4B@ k k o M ============================================================================= - ==Function:删除重复菜单，执行此程序后保存模板 ==Para: ==Return: ==Designer: ==Created: by zle,090706
==Updated: == Update 1: M ============================================================================= 2 ] 駾2 ] 2 ] 2 4! ! Name : 4% ! ;
$ ' MsgBox cbString Menu Bar Caption List
$ ' Menu Bar 4% ! ! Caption : Menu Bar 4% % ! ;
$ ' MsgBox cbString Menu Bar 4% ( Menu Bar Deleted List
$ ' & Menu Bar 4% ! &!
要素及排版 &! 层次标题样式 &! 要素内容样式 Caption : &! ;
$ ' &B@ d 氐 Caption : &! (Remain);
$ ' k 惖 埖 MsgBox cbString zle,09-06-04,删除快捷按钮 ] 3 ) 快捷菜单 x x!
要素及排版 x! 层次标题样式 x! 要素内容样式 xB@ k 按 ù o 牬 M ============================================================================= E ==Function:获取所选内容位于的节号，判断是否等于目次，前言，引言的节号 ==Para: ==Return: ==Designer: ==Created: by zle,090812
==Updated: == Update 1: M ============================================================================= 03 4! !
BKML 4! % BKQY 4! % BKYY 4! % % , ' d 惒 ' k z x d p ' z ` k X d P BKML 4! % BKQY 4! % BKYY 4! % % , ' d 啾 ' k 斜 z 缺 d 辣 ' z 氨 k ū k 牨 i 槺 惐 w Attribut e VB_Nam e = "Mdl Tds"
Op tion Exp licit
G lobal Sh owTip As Boolean , OnePage&\ClsEvent6New G 歱DTS hape, ]pL2B RQ6tdTyppInte ger '封 姹曜祭嘈 0－国际 1－行业 2－地方 3－ 企 -InPr`ocess:刾 '判断当 笆欠裾 诮8数 据处理， 避免事件 连续触发 造成死循环-OriFld偞濻緉g '原来域 糜诘 蹦掣鲇蚴 ソ沟闶 钡饔茫 绻衷谟 虿皇菆$则爸っ
'zle ,2008-7- 23,+2-砀 裥辛)g_纑owNum?腣伻columnbegin， 点击了“ 首”的按钮HSLFirFs聟ZhuYM9SZCX=10-4=,索引@项内容H$IndexTex$D絞_Mark OrAllFst`rTitl偆C餩Cou;乬 '用来标 赌看胃碌拇问齀JYGS Del,S$EV4Find
&Base 1'09-6- 16, +定 逡桓鼋峁 固
Pri "12.0" Customi巣a盳= A =veDocum.`峚chedT餰mpl9 徖Y3~"s("5p2E9-28, +3,可以薷镊WithS!.唗eP A饡= msoN~oG ! S ' 增加前先P删除亙跌F恛r E c.訧n.&s沭.Ca0燗5 及排版" |Or):对应的縼Kc堁睸@_G0 #x.吵? "_ 疜<#^c
. d: P#_
g0S餕 5.Add(:=
T", t6 orary:=T萺ueet(藽Bme
贿 r/8抔,@ Befor1/#A g/;";K?1 KBP[=裎刧5 .FaceId 218 .Sty`眘N"uIconA牕GKO%B 勪.鵳
Fm
2 縆V
鳳懝 195{Q Mc\ 背 Cmd
.Caption = "前言"團aceId 302250??』Ck?3 M考
"索引q 919 焳焳dSD^ '完成插入页婧庭内容赖墓δ軏"_$總Aa 标记)项$.F1087+ d
e _⒘AJSYX臘 F 删除 8 f 眠 SCSY ? ? .Begi@nGroup`
F0alse(逅獲面排版:h7<69$/>飗灃PR8INT)r)0702,+1保秽ず徒鈗
?/A/A1
2 M+TCS文件OA馠A225呤 >>ROT麰C? ?!2 縎C)取枷麛Q7 }枯BC qU1軂&& o&亠裮C-;
=s燄
沓@Cmd
. Caption = "目次" xFaceId t195 hStyle 2msoBut tonIconA ndZEnd With"Set ClsEven膖. 揗cC H
,m.Controls.Ad [
< 偾把庠3026 萳$Qy踠引榣256XmY6m附聑紬3l羫 Mll儋参考螆南72507鵘7Ckqm !im索引6919_詧
.Too ltipTextm"
?峉匳 ' 完成插入仭页面和 内容的功' '4'"I_!機标记项釚(1087g"? d (R_)BJS1 *D$ ontrols.@Add
W纈th Cm .Caption = "二级条标题" |PFaceId N72:Style 8msoButt onIconAn哾^ 1End Set Cls@Event. 琓繲itle2 T%8m.C<伻齗#3婡怴3j佀谀4緻g4緻羑覤 挛澹@5緻:5匑'B2撘
!kctlPop up猟(Typ8e:=鄓dg, temporar y:=True)?L
"奺
lA閵无鵤娞醢 (" y檇 "c一9 ".茩4908Be纆inGro& ?p ~4 瀏1F鹐= +%`4邅
3？p%I%1 _匡O窟 倪緾F#儡 ???郿#帼3 1 Q1 蟂`o3_p .O1弨絜 O12 4n?$.齅K//S`/*_p/繍Ep /髁/睈5&?`灚 疷K1 尪?8779[T
2##2 a}D廡 T遯?遯b催q1t遯遯h 遯 A 列项 ?蒋屵0窖 ūp）盈56.? Lx1v m●（apo gp379烵o?o?龁 烵O锵[?OOOA N簦蕤ApO竴3o>??!4 ?蟨_?蟔_餩! 9讇帜副嗪艖3颻3A 0罒 f羞 = .Contr ols.Add
With Cm T .Cap tion = " 首字母编 号列项（一级）" 拋fFaceId d309:Style msoBut tonIconA ndi 0End Set ClsEvent. 娥Lx41 Q )7~m丩槄7唨爤嘄$字噮二搮 .11 F .R嘅5厖1DI埱C娜C503?Dc囑6D'JC G% K
'第二 个菜单的 快捷按钮掠cmbNew繠ar_CBG烞盰\章屵釃5795烳 TooltipText'"章鸨晏馊
!A蛂ZtitleC/? f? 条一v 7Lm? 9 釡条 閷扵T 1 E C f蔡醵 2g
e @A溸 岪 2 繢床緼鹛跞 鞂 !涍 3 :(粜条四 4 弜 弜. 四级飋込 A14o6/ _Q
ih条析錹47_Q圫 m五o 烸o
a5ofIf A@pplica釛.Versd11.0" Then /彏繊t
簫无 题頤鏴490飳繚6 盫湮薇V条, _Q31FIf7 'zle,0 90705,+3鄂!}W)燅 y)a颶49ok))a0 馴)J俴2/O拍O[蟢客Q[3痆/l盵4\弆客\5?段;焞昹7荃弽宄@ion
. TooltipT ext = "誁亩"怑nd WithD Set ClsE vent.CmdStyle b圸??羘邌首C嘳09褔~ N惹|! b蓙偨臸b600>?b ."嗎咼睟> ?$_唂M>$99擀擀焍mdTBJ鳽SM c總 煢
堾峭> 421慏 @. @@SW 珸烞惹孊晏怦;363縡冗F逨續dGTit|.r3 ` 縱o#98表?貑751?_C邌O#絋xTab__ 唄_dY插入砀窨!X2059
Q 2Qy}Sj 1
~
}筙y2瘎 瘱" B aGSP/ 2繓K1R@ 嗪417_Uou锔p 鑣Gs /T!0?顰Q2 更 新?8102???OB>X ? '第 三个菜单 的快捷方 式cmbN ewBar_YYcS %?a例$gV488_lV33 n猄靗C#
=`乜
q
恭
3715/嚳陙飭
﨑
1O|榭
Z鶎例
著420茗叱n
End With圫e t ClsEve nt.CmdSS鄉C = $ Zmd @.Cont rols.Add@ x.Caption 7"注". FaceIS245 Style 5msoBu ttonIcon8AndO- 豘WZ]l×m9466趍\n首注715477A兞 亭閫nZF?om醛I图表Y1147 766758Sn?S87淌譪7筍097 O S? 8 脚9S60 Sm7J7?8!799奯7 TBJZSM無 羞輩 嬃SZ x421?8烻M S~ #蟷蟷QkT 题?p鋧1363咔} }繥Title 稄涳
繈h繈
表
嶂1751
飲飲
*ab' 格皴059 SjTab If Applica堡.Vers411.0" Theób#/, Qo-@ 公手浆a.撰2\t . .2 _.aB (狐GS^.a⒗ /编号 417lLb?2 asG鎠If' d 'zle,0 9-06-04, +begin, 卸鲜欠裨 黾恿硕喔 霾说ィ 绻牵 蛏境懊 婕父觯 槐Ａ糇詈笠怀Dim iMenuCo unt As I@ntegerNLumX= i For Ea ch ctlPopup cmb鳱ew1唈p3i 要素及P排版3 = + HNYNexJt3'im c>1时， 得饔蠶重复的则絰衠
8>< 1H=!/In/lsQo蜩i?怟15 De餷eteA -) 1 QA <=
%'&> If ctlP opup.Cap tion = " 层次标题 样式" Or愐啬谌HThen
菵elet鈋PEnd iMenuCou$nt 1 piN寀m &+ 1+pD Next*With c鄊bNew乗
亸.Protec msoBarNo Customiz巵% )_os"i=TopVi sible OTr鎢#L!CB!@3m! MDY""'菜 单创建结束C 'zle, 2008-11- 7,不让显示“A隐瞼乇昙恰 @稟纼veWindow.Pan e.View.S纇owAll膁尵!dFals坰If)09-06-1 9,判断版劚緛段落丟pplicaaG .Vers亝<> "12.0" 'ALa Paragraphs`"'+E
V% 0705 ,+打开时 ，有封面劊瑏保护G 1Documen t.FormFi elds.> 100`8Not ( Fg}Typ衱dNo)! ClsEvCm dPROTECT C.FaceId駹&277A埞腥∠麃" eB.乂傾20,+1,增加a[ 后保存文 档 Savea0!
Sub
'助手虪崾
gEntry(!ZStr As ing) On Error Re
s`/ 乾Dim bln!Ball宱o耐fld0RangD\lfLong, l隑
dwhe8ATip 3Setb = S@乩Co躰.
1 ##鋢 GetPointX(lfA` w` h,! Assi坰ta MLef≯>l剆 む? - x150!A!#=?@ 为$`.Head-"标雷急嘈瘁!}QT續 DM oda,`k Aut餺Dow1S髡%8!P!= #Fun2: 鞲霾糠值⒛''==丟:@Return Designer Created (Upd 1砍
@2Sub Help1(t!2 " 胧淙隝CSp号：2q 文献坟掷 3 J辈 owq 4孟代替&7爉5名俺疲合6崛英文Ie7与国 一致性 程度道{识V 8发瞏既掌谙9孟实施 10B赴o'((行业o_(地方线 (企 f3/(?,?(c晔/0#01_(3q??(?' 盙燪?I 玐插苋腭昍X
XaX by 搱鄽6筲颴te颴O 3Insert孎M4羷shp憘餝hap( 岞CoStart@ 萾usrtr`w忒怜怜怜怜羍L嬍 J wAll = False
@End IfX' zle,2008 -12-22, 霉獗甑奈 恢迷谥魑 牡瞪VAc tiveWind ow.View.0Seek 緒dMainDoc umenthInProcess #Tru係tart tuGet Setting( "TCS", " Control + ")
_]& G5"xf A ~d匰 .Name <> =.SYS" 0Then"仐Ms gBox "文 件不能单@独运行Fv bCriticalExit S ub :禝f `Not (? 恡e璷nTypei偉No
) G Unpro "z爃angc]g剚 >Sel.Go To wdPage,Firsm
Insert@Break A':=z+Next/;1S's( 2).Heade rs(wdCFo 8rPrimar y).LinkT Hevio聫榷懦 9-5-17,+ 1,其它节 断开和封 面的页脚0链接,B 09 0714,*1
|
'亅'#2' !中内容 距顶边设@为10mmWpith 嘡乄莡pC'.TopM argin@婱i纋limet@L@E oints(10華
B Right
5C Dist鑑ncR0HC2aM!C'处理崃 页眉.B]+1i ,R ]e.Styl-
s("标准:猷!喥!_ ge.T [+"$ioK 将第一节aJ码设置池煽誄 !.淓?L
)鏎羙B := "I
iErag raphForm at.Align搧盄wdPaD8Lef膤0-10增加 敫龊鹤值`木嗬隡
#僑 ymbol Ch
c@PNumbe r:=8194, Unicode:=!, Bias:=処@Z fld 7AFields.Add(b$,:=g , _s-wdA$I餹putDJ釴
Y＞= ("6E@蝭`Macro ?.冡nable!躡 OwnHel~p ("aa 胧淙胝返腵:号：龍N.茈 UB 胓B EditAF贫Regulara , Default`$点击此来μ砑逾`m !aBWidy癐= A*+瞓.駊Key#
(澟to!袆4rmo!So! t:=o!do! o!f!WXFLHy!0 !!O1 !爋lp!泄鷣L文献蟹掷!n!b!bC .!!!胂"6." ! Gp"0揝td,>| 0瑦'$r桵9@-2,+be s,盡一个表 穹疟赴负n琶'1蹾T=扝 烪Ah, 0ORow怣1 Colum>n I($7Be ha袐RwdWord9Z, Au鄑oFitg -郌ixed (} (Yu
ts!帏格型 痲1 v"t吥 1 .Apply倅?qv0奖.籏La黶tp1|2/!黈 }gB莽 爾"艈wd ㄓ Non蛁
?wd3OznO x煟悡 B鄌ttomooR翣___"Diagona鄉Down裣lUpl= enX011-28絧C俈A `pc@_塩韽hng墤4 ?6奤b<簥硲唅BAiiEfq2 .泶 OwnHelp = False
.蠺ex2t x"" l 銼tatus 8Tru tEnd With
f'zle, 2008-9-2 ,注释掉 桓龌爻
''僑ele ction.Ty peParagr apUR*Hom eKey Uni t:=wdLin e, Extend 9Move刄p Coun#2!E
洖X軸1朣 蒊f{BStyle@pAYveD ocument.s("文献 分类号")CAKDown覭1 C聓09070 8,+begin ,修改字If Stdy"0 ThenA侴+ Left , 剘纕飬儎o2`
#腛_Right wdCh穋t纄r, 3,墿厑 嘇FontG% .NameFarEas旰谔鍍雮AsciiV "Times N ew Roman镣 Other!FT * s_>A$,7 ? +G,穎F>J
3# e7*Y ,C 袝?A%擧?繱' 迦氡曜急晔堕 Cas^e舉A 0 '国家h 郍BTagGA'行业H儼╚'地方轉*b
QA/'"'
标琶+湙封面馎号2烶ο忄 :="GB/T逪g"8寽銍, 4韢!z~鼅F ?~BvoB镈! 遚Oz\9j2颼H1iDB X:804,+ U網鳺?X5 ?[z贅?uD羏1竐-~3x爺"Q>/dA"昒 <> 焵t fld鼕FormFie lds.Add(Range:=W , aY:= _swd1$I餹put詭! P荎&p婲o0x'1 .ExitMac roQnabl鎒a 幊 . 4 骨 滚b .w QJ71 f .0EditwdRegular , DefaulAq XX", aa \.Widt`鑔r W "鎯)/C 硐垮 4 6 墐i M9<1&G& ?吏鱃Q'Q& A x^D气4，啤"0kB=o\5 "f\级?\愥O5復漤y
/T鶡
90焞T 7
_卆w-6礍ont
. NameFarE ast = "谔"圓sciiTimes New RomanVOther$V&End With怱elec tion.Mov eRight , 1 F c ElseIf S@tdType 2` Then!Text :=",/ 剋!3!'z le,09080 4,+8,修竊淖痔2dLef乧5, wd繣xtend> 噞k "梾p仺蘰=嘍峣Fi 廔fKSet (fldA缽ve Document .FormFie lds.Add(Range:= , := _9嘵wd
亣In餻ut)俵@ #漀o1埻.E xitMacro兞8
nable,TrueOwn怘elp Fa H#@ Sta竧us B.
'a+e 阣0l\羺.Edit#$ wdRegular
, Defa(ult纆X ",: A&a Width0 '5'2郕Keyr1d l麖 4髴-_,3_,艧_yCd,PC垇2霋Х2,*， ⑹偷粼 吹暮嵯咴黾婴&g;Ins ertSymbo l Charac terNumbe r:=9472, Unicod缷cp%d
-06-201,+5b拧 太来治侍.
掐1 坡 襁U ~t2L弨唨,a
z't 6,+3,铰珣q改成Azo /晘o o l 垇覨敏 恵2，+攨W鐀NqM%仭狣Lof遫fof鄬of睠 乷fwofkf2鳸of%E鹢f.of%ofofnfRD 縓ddLBzhXuo>扭PCQ P "网牳裥"瘉 D@4!A厵 . ApplyBHe郺ding緤h>L鹗0 -惂Fi鴕stgV_A
" Be rs(wd Top).Line=; Non(?5懤O$O承B鄌ttomooR嵴___X Diagonal餌own黮UuGl:V誻11-24,*P^宐m^<訲"XC披.廮 ! 臞
哶DTJ_ntryM排Sh owHelp4"
.Exi tMacro = "
纍ableBd XTrue腛 wn 0Fals 2,Text 4
攣 bStatus 0 LWith .3`Inpute. EditType :=wdRe gular/, Default: ="", For宮a CWid b= 0End <Selec tion.Style XA veDocument s("封面 曜即嫘嗯息")' ,Key
'zl e,2008-9 -2,+2,移莱霰砀 MoveRight , 2
圥aragpraph @090710,`+1
'K<02; t fl媽K羍Fie lds.Add(Range:=2e,x _)%w
唶刋岪 .Nam羓"St芼吮tryS缚倦罯 .烤
ゾ 点击此处鹛砑觼Ａf棵爎麅+ F* Fa7EBd?b赾G
lWG<#Se LLL1鸏Eng餷ish進a&` ?= ?瓋 進?# 進#M英文银朊鸰N?班慟aLf?Ta粓%浉禩一致 猿潭缺晔> 毕kE&v02 ,!vl5馮 "(_DR/5攏痆痆e痆 r 痆ut痆'Y豘BS[焿 4鯡/嫝./%[/嫝RA/嫴 // 媺4与国际笱[' 的!o5cP .弽 珜 +pv夛"{.")#XS begin,增加一"嵗放类别<6T仴騹 , NumRows:=1 Colum>n 昜`錈Be@havior1ord9Z, A纔toFitguwdFixed嫌
8
(1, If 洹<> "网格型" Then11 烡4If @.ApplyuH纄ading^\醜Last0 m噶FirstgVA
c
Bers(wd Top).LHinewd N on嚷?5Lef>tO$O雍Bo餿tomoo}RA竉__XD iagonalDxownl濽uGl:en4.呶痸准文羹錻= k.> ╲ 潅诛g飃鎔(gD鴕op*<下0"LBff0] ffr f 鰂<
5stE ntries.C衛ear'9.O@ 牥 gq苞 娲窝≡"
.Dro pDown.Li stEntrie s.Add Na me:="（ ぷ髯樘致 鄹澹+v征@求意见/r8蜕3s9/o报批'&幊霭娓塃nd 0With畠'z le,2008- 9-2,+1, 獗暌瞥 霰砀Se lection. MoveRigh t , 2
GStyle = A veDocument. s("封面 曜嘉母灞 嗉畔2")4p 6 begin,增 加一7放0类别C +Ta刡l剻Rang罊7, NumR@ows:=1C olumn _CDefaultBehavi or:=wdWord9J, Au`toFit w俤Fixed岮q G$s(1QA嘔f C\ <> "网格型" ThenCF怬臲亱If. Apply He`ading? zTrue LastCFalsF餴rstO qZa#B-ers(wd#Top) `塶e% wdLi1NonwLe ftb,Bot鴗om聁 Diagonal!瓱 U?- 蛅 en`\x8-5,+x和发 既掌谝谎!格式 ，便于控制Set f ld郕蘽Form燜ield"(U|8Typ q wdTextIn鴓utbr
C.!詟"WCRQ梢∝yMacro！*xitn!A琺OwnHel~p mlm S鄑atus B.'Edit!" "wdReg恥lar, d潙 ", #ata '.DateAy 年M嘣耫日> 鉾6pKey ,$%_ 蟧蟧蟧 8XD 0rt腃Par郺graptw羣A慏 wdCh@c纓er, 1
09-06-26`,+5，l!t 钕旅娴囊恍邢
/sh /Shapm罭(Millime sToP oints(25), 7$ + 170 7)1@ .LockAnchor'Relativ eVertica鄉Posi噣q&阆Pag 覈?郺lSiza ZOrder msoBrpmToFrontE嶸10-7,+ 恢复原来<的匟酖攼爓St鰀 04wR
鮣釗q$NQ嵰E*t ("其鸘
牋祡_R洘Q<_R剱:=_R頳q>_RltVRDFY歅ntr7RS鑘ow馤8*蟁x .E蟁蟁r .蟁蟁蟁b證 OO蟁lRX
Ss<.Width}p$4w{O 椇U ni:FCoun0D q A 馌\ - d""犢u"uu粪uF﨧z "q"w"锆"".""#R """"v"T賮" "萮"D/"/"/"/"/"犲""澊 , Type:= _
wd FieldFor mTextInput)xWith fld.Na me = "FD"*EntryMacro6Sho@wHelp8
Dx itB ;ableBd 8TrueTO wnE Falso " J 1S鄑atus L.邍2.Edit寗巜dRegular, D efault:=@"XX", 攁G<"Wid = 2.End ;5 Selec tion.Mov eRight Uni-wdCha racter, 餋oun +
乗乀 R发紕M'zle,09-06 ,+b egin，修 改数字为0黑体"Le餱t ,E2)) 1, Exten郿:=wdCC俙釃FontO習FarEastAu&萕倽Asciio 汿11'01P豲si乼)177
媍潔3C!
#諴;CZ;;
_Ej _U_UAU<@XXXc<_ ﹩_ 縬 惪555`9K渆y肣 摾
U/絒dlGB仭P@r鴄ph1
&戢d26,+3, shp.Rela tiveVertpicalH}!茡P ag 譩GqSiz 灵cTop缞Centime@胹ToPoints(25.7`C膭If Std!0 ThenC$&Styl1Ap;veDocum.bs("实施日期"=b E簒z其趟0rIfe 1k2008-10 -7,+恢复原来格殊Set褖
!zB峴.Add(餜ang@彠
繍 繍繍
1 稅躍Y1繍釆9*繍馚.En繍繍 .繍.繍鼴 繍繍繍磹邜p .諓4薥 繍繍@% 臥.馳 - $o"$.o"=o"eo"o"http:// "黃M: / 硂"E祷?o"A 1/砽p盎o"1 驓o"o"o"d"/#P F"$硜O" O"O"D飾%/"/"烡m烡'烡_1 0 烡烡烡S_誐鱙/"/" 烡t /"烡_章/"4a /"/"/"R\1/"/"??:= "%%"羐d3 寬誐A*鈫熢卟铹邿禩Eb7(繘eo╭ 值 .NameA scii = " 黑体"
End With
l:Form Field(R繿nge:=' <, AF貰aTextInput`@ B劾 H`倎 " fm(.EntryMacroxitnabQ ` Tr u`? If StdType > 0 Then/"Kc?!e裊65D.6@59.酼68.21d"dW;黎.uWe#BAH#g$End PIf
泎 i2 009-1-14 ,*3,注释 掉增加的?=銸痀/:53 2.9, 831.7P36b R &Ig
Bri ngInFron竧Of9S '
090714+b坋gid Sel D ion.GoTo what:=wd Bookmark, :="耂Fdard }0皊)0坥亸@(wdHea`DF"o Priy)/k@憆evio躸sw8_tp
__RPe.Sty}as("标 准书脚_评媸"T'
K`/cW繬ow'e w.SplitS pecial < > wdPane餘one|11B 鳦lo鮒&aQS7=Nor malView 萇r : _c gdOutl4/{< d@nt/9 eSe ekBA Cur聄p睵ageC!莯(".Is !qK蟹 (咴 秔7/a ./ A
Fielde铝 b*:=,> A8Q#
Win/Q鄡訁s(.1詂0 .s(DwdyPri Ty).R./= " $6
嵄c 书眉_奇束砆7a
v.髤蒤. , -罵 O o釖\ 榻 玙g '设 媒抛⒎绞 剑ㄈ牧`┿ t=
n 賛昲*Bo@ttomOfk.@NumberlRudRest@artConmu黲u纏鈔Sp攅wdN2Arabic CP> Cls9t.TdsApp鵓 li魻視飻? 」 标输入时盨%2摺暴摺摺摺`?摺?
摗Chg駤Uim rP夾s銕S櫡'垦纹("J扄鬇4f} 繮&袚 <> "" Then$If 郘eft(]>熌惸!s, 4)点阑鞔舜5W邞`
UKo.?砞{3壁榄Q2 m閌2?偵.GQfn煱瓰 At.彲 彲彲8 癲缪 7 .掝%蠇AU箸ha2 U簯骘1&嚯w憎qbBacks鴓ac勸 钳 n Select ion.EndK`ey
鑃 tyle = " 目次、标 准名称标题" fIf A eDocum ent.Book marks.Ex ists("BZ") Then :yrGoTo what:=wd G, Name:=F@|u.D 鹉te 6Els丏 dg_SZFir st <> ""Y:FormF@ields(!).僲Y If 噮;P 膷*弐 rng.Text?羥Et -&Home嶮oveR ight , 2G8 wdS宔 nce, 1, wdExtend With檵
I .Add Ra3 Q/**$ #-p黠 F-偠 End If
'0HStr = & T rim(Acti veDocume nt.FormF ields("S tdNo1"). Result) & "-" & % 2A
.H eaders(wd Footer"P 昦ry uange.Text >>EvenPpages @亷W鑙th僅N1 'zle,090 805,+beg in,去掉 饷嬉趁 &*剙寍Sens(1)Sel &ion.Clear腶tt8ing7Wi ndow.Vie@w.Type巜rd歯t PaneSeek噥 MainE 保护窗体COIf fl @`PrnTrue Then耞#茰蒑Pr纮cte鰀?丂s (H i2 To 仈.Count
# i). FaxlseG1D Password:="zh@癱>@g", No@裡Ht:=A3, n:= _(wdAllowOnlyA?C
G WCom@mandBa" 要素及排版@賄isibFl-Clsct .CmdPROT ECTC.Fac萫Id!)770Capt繱"辱∠麃>"鍗a#塱In #ces9#$*Sub'= ?%@Q==Fun聀:判断 曜嫉w类型Para:"Returnc Designer!Crea`P: 坆y d706XUpdB ~1??$#`$ GetFM丒()鉩- @One! 1*G琸 .+gDim gA s Intege唕7
Not 嵙odZ>!
w 聡)G韟`?llUnpz 擤a%E'f 溊4 @5grap$礳%Ran! gti"
AA塃ach %I顯
燝sh = + 1 `+! .Sty爏= "罵称谓" Ore其他'l` Exit k
)D +K strCo ntqStrf= v rx@
(In(', "国家 ") <>d 0" @吥$0ME怴/nt 续幸/妱'/胏 地方//崲u2_
"企_
wo W
3(T'玹bokaXR喆8遰 !.遰脼厀遰ocrm竇 A 遰i 筮r遰ue遰T遰pR &痵痵殜 縫痵C 痵痵6' 梌梊5>q SSt瞙痚 vt处理双脝鍭嗎辰Q僶R焧焧焧焧焧
晅 'a圱|wo羢荅uBc竍, j B200 8-11-23, *1,注视 舸砦蟛蹲0! On Er@ror Go皓e蟆 p燿l4ja犈鄤 ,+1,防止垦1c飡Af=溱3< > 10hy'如果已谰迦雭G!0'荌nf遖 >嘭? &Num衎er)1H仂 .C爈0 msoButtoxnUp1 oe_^MsgBox "不能在)，请将 光标移动 正文执行 此项操作 7 t4f1ca
3 wda dS, Absolut縛J筨宂_杢登o_栥銸t 枛 "zhangc heng"
End If
|
'L@< ,lA ctiveDoc ument.Pa geSetup.@Differ &First.Hea derFoote r = False DOddAndPEven@s ATru@'处理@正文
Q' zle,0908 04,将第 节开始竴某傻谝粌AFor i H1 To 実Seo ons.Coun唗刉ith8(i)
.!bs(wd gPr imary).R薳.StyleI
G s("标 准书眉_评媸" 81啠2偶yTex倀2Left(c?AA , Len )p - 1虯Z榻旁ZM丗ie lds.Add 1俽:=.S!Mc, Type:=wd糒庛銕:If Not (,O 10珈5鷌觥
YIn1ces HEx it Sub
缌 醬'= ==Fun參E:a|单面a 页眉页脚APara: R 袇rn Designer Cre ated: by" 706BUp杁 1c
Pb OneqGC~(TEDim2As Integer,8 j 矉20 08-11-23 ,*1,注视 掉错误捕 捉P On EI Go媏 @潀dl4憦@G,銓岪' 如果已经 插入封面GSel脨.Informa1'P寭7 "Numb鴈r)+袛av MsgBox "啦荒茉! 双 ，请 獗暌贫溨葱写死项操作 -)fEチ1 G BLwda 訵, A bsolute, 2!/a皡q @痲0q痲 K痲抗E 暮1 _筥筦?Oそ_綗俕h
O筄故紦绨*2eO箃.誷O筄癸B笿弚o懮徃徃 徃/ 煙/縸ぴ"蓝0 O)冐O)O)< O)O)y'2@ 餡+2,页 边距调整 _漘漘5_漣M潊闿0h O瀋嵦'O濼鹂&&?&O瀳骺]O烑 _ ment.Sec tions(1) .Prot pedFor ms = True
T i T2 To A rveDocu
.CounNtftT(itF坅lsuNexO K Passw ord:="zh angcheng ", NoReset:=, Type:= _ wdAllowOnly|Fiel ds If C ommandBa rs("要素 及排版") .Visible T ? ClsEv笴mdPRO TECTC.Fa恈eId仺77 Cap佒"取消保护"繣nd If
xit Su`b
A
8
'=? GFun:设置 袷轿 图 表“注”APara:BR eturnDe@signerCC reated: by zle,0 90706
Up杁 C 1
3F
I In sertFigTHblN@()僒O n Error 4Go@舉 燿lH癝el觅.St:y@=蟻罀注兀"蜤唊7MsgBox "A伹虿荒蹵Z样式±吶ww)-;5; ;;;==;4;Mu_<蝞F<;;×<;?;醲;?#';首繜w焪翇;?=;鳩irw;|;; With Lis tGalleri es(wdOut lineNumbDery).Tpempl牂BLpevelA~.a詀t±注%1 J(Trai gCh@玞ter壚wdNon葤s5Iwda#2A rabicPosidhC mime`sToPoints(0.64(L.Al !倰
b萀ef▆.T悀!1.43TabwdUndefdh OnH(igh0St衋rtA1W.Fo}.Bol褄 姠Italic0 `_rik eThroughr
Qubsc竢ip 2 QhpereX.繱hadowt ` .)?8Emb os釥 T.En鄃raveoh@' .Hid竏enohrQ4#_XCol0y= C/ D.Siz
9w .AnimaG-Doup濻巘 'RNam"黑体<浹&7±@nkedE9"郪1c!} F F F#GF24 F%2)
.顴U8 楧?8LowercaseLet >廆夽oFoF ToF oFntML1.75oFoOhO G窫癅 G G G((vG/%_*逩.S逩籘aP逩逩忒逩n逩 @疬Gf裘覩_0 H}m絹.He4 .uH "
棾
End With
.Li nkedStyl纄 = ""h ListGa lleries( wdOutlineNumber0y) 渟tTemPplat J1 L evels(3)w7Format1x%3.{.Trai ^gCha@racter #wbdTabJ聎d^Lowe rcaseRomanPosition 0Centime6sToP oints(0.64塠Align>m H5俷 Right0Text /1.75 /l H ResetOnH <2>StahrtA1G俽.Fon)\Bol俤4Undef vd
ItalicStrikeThrough[
ubscripA'wd Super玲 hadow D珌Emboss`ngravA蔠-A llCapHi竏de仠ErA豠$Colo闷Qirz+ni`p#`D鄌uble?>瘡譭l翯苓G逩 噙G踝G5%.繌 揍 p 逩L*逩3逩逩 壋 .Subsc ript = w dUndefin`ed
攑er!渉adowa擮utl FE mboss"ngrave#AllCapGHidd,en#妑瀁Co坙or#Siz淲nimatioG DoubleSt rikeThro坲gh;Nam;""囬End With.LinkedStyl
ListG alleries(wd膕Numb$ery)stTemplat@ 1Levels(7)
ForC@>1"%7.*.Trai^gCh繿racteCXE楾ab0wdA*Arabic! Posi腬Ce ntime@sT oPoints(0.64+Ali鴊nm
耚B5LeftTex聇\1.75I 4# ResetO爊HighBF6H @StartA侕1肎Bp.Fon)醸`.Bold"5I鄑alicZ_RD3煄bSu煄 .S摕師 .煄.E煄.煄 .煄.煄A 煄煄煄滥煄 茻幜M煄 鈹煄er湈8箝f帋8)煄煄!鑼 Lowercas餰Let鄪鑣c絵骺廰 q浛忁P逩G7
逩 逩@ 逩龂逩/q蠈逩/弬戇G瘧 斶G 逩 栠G 逩o逩?逩绠逩 .逩逩7"A逩铵.逩/忞4 .逩 //"L?/忂G#螱螱n螱= 螱 腉q0 .鱫H琹.oH/e4 .eH/Hh7Li*HOG/嵾筠驥G
|SA'%3.
屸D鯇FG嵆 .Numbe rStyle = wdList Lowercas eRoman
躊osition tCent imetersT oPoints( 0.96)hAl0ignm P訪evelRighBt+Text ^2.07 ^Tab 32 1ResetHOnH=er J2@StartAt
1
With 0.FonU倗Bold wdUnd纄fined@ItalicS trikeThroughubscrip丯Fal膕e 6Sup脷 hadowOu tl 2EmbossngravCGAllCap鳞HiddeA氉X厑r,Colo{Siz+nima緱Doubl"eguNam ""aGsEnd 翜G.繪inkedE
偐侐Galleries(wd膕Cy) stT@emplat2c聄s(4ieF or >"%4.A.Trai@/g繡harac纮侭 @sHC 枎Araxbic~{煃厤L|ef岼崗焮3 峚坉 .嵖R}
S.JE. ..; (. .峟;.嶀 縁縁 縁 >縁縁L(5縁窮5)縁n?縁H縁嶧嶭e ?OG 幮. 巕` 嶰G廂揙GbOP賘J0.OG 4OGpZ嶰G.>愮OGQ4邟 .OG+.-巓汷G^
OGoOG?OGOG 颫G~OG AOG?璒G蟧玸1S OG 籇q帰 OGOG玂G幾谏sHG6巌OGcOGOGOG_1?><>弾鱛誣绽._誑跲GOG譳JOG[5%.煄` 猒 煄_誣宅,OG逴G0繹OGOGr茁OGOG煄=OG ?OGOGn巓 .逴GOGw!!.帍]OGu b .OG 嶰G
帠9OG9巌n巗b巈r4FGR餺man(9?G弾弾w弾釠2GR袉煄攔{w擮GbOP湕OG檸8OG!煄" OG,OG>3OGo撯OGw 筐OGOG煄D .OG烜OG^
OGoOG?OGOG緻OGOGOG繌OGOG;OGOG OGBKG硨 Selecq.R恆ngestCG.ApplyQ贀"N := _咻`呦O), Co犛nuePrev恑ous1:=偨,To:=阗A Whole!, Default! Behar:=; Word10
7 Exit ~
erro rhandle:MsgBox "保护区氩 域不能设 置样式！ "
End S0ub
@ I nsertTJ()
On Error GoTo ehandle/F/Fn/F}
/F 轘#F
0 .螰 k齺.螰廲4 艶廎騢H6Li奆IFoFz3Fw%|3.
FeGFer礡 FRoma辬E煁餿構7i F]噵R鄤煁憆w1.48
蠇蠇蕥2(
蠇 _F#"_F+_FN2_F_F_Fw _F 昣F_F?_Fn﨓_F>_F_Fn_F? ._F_F倢_F _Fm盧_F_F%嵢;飳韺_Fo尶哐_FZFz苨哫F4_F黫n徰庖_F_FA蹝G葜<煶 = Centim etersToP oints(0. 7)
.A lignm = wdListLevelXLeftTTextPo纒ition Z1.48 篢ab1wdUndefinedVRes etOnHigher W3StaPrtAt 1W ith .Fon.Bold *fItalicStrikeT@hroughu@bscrip丯F0alse嘝6Sup粴hadowa2Outl棜E mbossngraveAllCapHidd.e譞亁r,Co宭o{Siz+0nima蘑DoubleguNam ""GsEnd 翜G.Linke郿Styl
偐訥alleri es(wd膕Nu恗bery) stTemplat@ 1箩s(5c捎
For@> s"%5)*.Trai^gChara>qHC EChLowerc繿seLet 伩尶尶屷l .榭 .瓕4(繉
7 繉繉.Q$.S熆尶尶尶尶.E繉粪涂尶.繉 (.繉靠尶 P繉&;.繉繉 繉r_FMZF6_FXF6._Fn鏮F睪_Fer_F4VF郣omanOF邌.郫1 瘜▽R袇繉w繉垝繉b繉繉簩5_F Y繉繉繉._FY"_Fa3鼦_F遯5 PH繉-S繉H烗.繉姞2_F^
_Fo繉?_F_F 颻F~_F A_F%焈F 獊4 _F 繉繉 繉_F畅C兛宎寶莝XF7_Fi_F 巁F_F!枓GAra鑒ic'./寑徱逧徱u徱^叵E胂E&.-6
/尷{◤ /尛:螮?-t徱屋繡徱4 o螮螮徱8 螮3.螮^
螮廋螮?螮?螮螮螮螮t!痛 .Anima tion = w dUndefin0ed
.D oubleStr ikeThrou刧h^Name @""嶦nd With".LinkedStyl , (2 ListG alleries(wdOutl Numbery) NstTemp(lat %1Levels(8)w17For|丷%8)T.Trai / gCharact$erwd
Ta鎎%awd乀/ Lowercas0eLet $ Posi綜entimesToPo ints(0.7亯[AlignmH5俷 Left!/Text .1. 4JE 6H 覀.Re setOnHig
h侲7 StarhtAt&1G俹.Fon'仈.Bo ld1暅Ital ic纾SubscripA'Fal seG(B#Supe俽[hadow#DペEmboss翛ngravA淖鉆AllCapH癷dde涻a/r!iaColoc`u5S蘨z繉 繉6繉;繉繉繉爩9y簩9.繉繉链祵R衞man$.#扅鳠孉▊孯鄜繉J樋岥.萎8H繉9E 繉砜.繉
.繉繉繉wc遊埧孍_F^_Fn>_F._F/ ._FM坃Fw!!繉繉_F繉鸤_F 繉_F攱a; sDo宱宖 SelecA.Rangest硨.ApxplyQe悞撆 :x= _
??,)C`}inuePrevious!$:=騯, To :=C戜 WholeqDefau刲tqBeharqWord10僘 Exit 6
errorh@andle:M sgBox " ；で虿 荒苌柚醚帙式！ X!
'= Fun:1 格式为正 文 “示纮谌荨眰P哎 RetuDrn Des 瀍"r Cre牞d: by zle,`09073罆@U,pd 1?c
InserthExa暗eA (!On EA G餺To *5AveDocuG懍蠻锌s(""t? ? ? ?
? ? 5 段线 06 黷e
篑(ph 蠽 艔 l`"段/ o;o;o;#?I TWJz?
鄐
条牢慕抛 _ 鏮 _ _ TBQ 0 " '图表编臗3?54N?53 605 |
errorh andle:
MsgBox "保护区 域不能设 置样式！ "
End S恥b
'=I
OFunction:u格 轿 “图 表脚注”a$Para .R eturn De@signer
C reated: by zle,0 90706>Up杁 1 Hh
Ins ertFigTb lFooter(B)兊On E `GoTo 埮D im iCount As #teg宔r
= 0If Sele .Informa(wdWith InTable) Then侕
A
veDoc ument.Bookmarks
.Add Ra`nge:=G, Nam"BG .Defa ultSorting = wd`ByLoc' S howHidde耼
True仢s+GDoA %H@omeKeyM`oveUp"A慻raph, 1 芖+ Loop@ While]S則y<> "叒说明" A藍 3G
o= nXt0 s(莐!Els
_瀔W猺irs骻2罬If+? !鈼侭!i Ex黫t锚_瞋?#"彩谉矡矡策?$惒?睟錈>a竉猱ListGalleries啻 OutlineN umbery).Templ嗾s(4LevePls(1j.Fc縺"%1@V璞.Trai gChM`鏲犘wdUN渙n95-wda2Lowerc繿seLetg2aPosi醙 C @eim7rsTo Points(0.64 Al`{裧" bLeft狲Text0 96爋wdUPndefdhR esetOnHipgherPdu .StartAt嘝Hb" .Fon !BoldFa N.ItalicTrikeTh鄏ough0
a0 .0卻crip o
uper[t1.Shado顆?3 .(?8繣mboss/)2n鄒ve?8Al0lCap' .6乢d.Q r4翖.Colo 製Siz
9!.Ani曪` .Dou`朣t .'Q.亾 "宋<体:乤&*Li餹ked9{ucK向)4/F/Fst/F#F24.F2EnERG@8 ―
8顴0 顴顴郋I 縀縀.縀t烱汯籈盢jZ岶(E廎q 廎 飥簜F, 鏔/%*螿JG狦v H豖Q H[2 H篹mE H> Hn> H. H\f2 H- H0 縃韑縃oe 幊 .Name @= ""
癊nd WithD .LinkedS8tyl Pd L istGalle ries(wdO utlineNu恗ber0y) N stTempla
t %4Leve`ls(3)w7F ormat%3..Trai ^ gCharact$er #wdTa鎎J聎d乀/ Lowercas@eRomanPosition 0Centime6 sToPoints(0 ZAlig|nm侳3m Right.Tex鈚-.64 / k1 ResetO,nH =倫2 St衋rtA罺1GBr0.FonH*.Bold5Undef纔d
ItalicStri keThrough[
ubscripA'wd Super hadow Embos俿ngrav蕘W-AllCap郒iddeA湕E唕$Colo兤Qizni@p`佔Double?d .?R
S1 .庘 .S ..E幰. .?Ge=^?G贌` .?G}S?G&堎.A?G/g.?G_e缫C ?G ?G
5i<>Gt5)弉廱廵巖4廘et?螱 弍v 廯% 徖2I螱徧斚G烶霬螱4螱PX彠$.螱2螱_xaE弉徔楢J螱-8螱螱 螱o螱?螱螱螱螱螱 G 螱/ D 螱螱咧螱螱螱螱G6螱刂6廼螱3叵G螱A噙诌诛>>I 弿咧咧熫螱胂G杒.葜5%p堖瞩Ⅵ 咧 煆;螱2螱Un defined
.Subs cript = wdUn攑erA!Nhadow擮utl #Emboss"ngrave#AllCapGHidden #妑瀁Colo"r#Siz淲ni matioGDo ubleStri keThroug"h;Nam;""G~End WithG.Linke郿Styl
ListGal leries(wd膕Number y)stTe爉plat@ 4 Levels(7)
For@>1"%7.*.Trai^gChar0acteCXETa鎎0wdA*@Arabic Posi腬Centime@sToPoints(0 +繟lignm@ \嚵4LeftText.64I@3^ 1 Res etOnHighF6 StartAA1G8.Fon(亖.BoldbItalic焃?R鋷巄Su帣 .S .帞.E. .>.嶢 .帿幜 聰i巈r|8閒n8 )鑜嶭ow ercaseLe缞鑣c齷煆`*錌 .煆(0螱汸.螱菺7
螱p 螱
螱=娤Go岋p瘜螱o /螱彂螱 栂G?螱 螱o螱?螱螱煟 .螱骶弅BA螱/G忞 5 .螱 彚 ?徬G<(9讼G9廼n廱9廵r4艷Ro鴐an縂弿0緩弍颬m弿皽"IR鄧煆O暰rH曄G螱螱#.潖8螱皧煆煆煆%.螱2煆4?3 螱螱螱_賮 q煆-8螱 A螱 螱o螱?螱螱螱煆 螱麖煆u螱4螱螱 螱螱GGO)軴 Selec裢.0 Range.Li stFormat@.ApplyxT emplate 0:=4Gall eries( _
wdOu tlineNum萣erHy) s(4), Co ntinuePr@eviousS:=False, Q婽o:=wd"AWhole, Default! Beha Lr:= 揥ord10 !盓xit S ub
erro rhandle:
MsgBox "保护区 虿荒苌柚 醚剑"
End
# Inser tFlZTitle()$On E/ GoTo 4Selecti on.Style = A veDocument s("附录绽卤晏",胈蛪\P.T.图.M^虸.B.T.表.Y.TB.1繈弸一钾短蹩/2倓缈]乣二?v/v;镕/3島三沁le49四le5五9Bs??-标d识_ _訧'=
Fun択:插 氩慰嘉南伦Parat0@Return Designer Cre爡d: b y zle,090706Upd刷 1c O
桜Referenc 評Dim Mov eBK As S tring#{If=zBookmarHks.0yst餕B KCKWX") pThenc16継文已经Ｂ珹喼馗碤 啙D w~亣IfPnPro0 s`僒8rueSGV"噖d%a LP, as巘 KSY q=hat1殤, Name:=" B Hom恊Keyn. Left , 13zf Wu"掷战嵯",C"9TypeA+g0raph 鍱牚n.p
?
瀅O I
煚l)"6EBText A 参d$'62008-10 ,+,空两 龊鹤值木8嗬耄 矛Symbol Ch =cters:=8 195, Unicod ', B纈as:=0M |考D 蠦u0孪6文b
藷
P5
粷
>啄-.a.Ri鑗ht9S`H/亖:Extend餡ith?G4G#, .Add 廛:=?8侷H許oJr賕怐wd B`yLocaAS howHiddeGa,1
p0鱓a6I圠B 謵d/\ re趉 饕,将增加“ 页脌妗焙汀傲X内容”穩旁谝黄"緼 Siononononeon? cn脀In纃exTCSu '先查 遥纯次 牡抵惺欠 裼幸丫 嬖诘摹氨 槐昙橇说 乃饕睢
Dim MoveBK As Strinbg2Res
,X= "StandardName"3 Selectio n.GoTo what:=wd Bookmarkd, /:=G
6E爊dKeyA I veWindow .View.Sh owHidden Text = T竢ue?F .ClearFo rmatt唊Wi竧h .,"^d xe k Replacepment3w噣唺J Wrap
剋d両Stop7NFalse MatchCase
WholeW坥rdByt儑HWildc*sSounds圠ik All 7/Lp 罼C9'8绻
爟If亴b.ExecuF.` Then
/'趁鍭@a婦ocuhE泂ists("B`KSY")z le,090731,判断,裂重新生p成？
疗= MsgBox( "本文已蠥，
更 拢", vbYesNo +@蠶ues燎) 0鶅vb
< 犆孒%Exit S蘵bk4Ifk '插入内容KProcessIndexcX隅4不4EJ\& a:+ Inser鈚 PagHc?黙t
E #BSc揝唠OOiY'逺逺逺逺羬逺勾逺a!d 逺%#806,用 来删除原|来C郄=
/儭UFields.C牅纓 > 10袀?a g茷郏峐吝Right , 2GY $` wd`蓃y, Extend? Up UniyLine, :=1, 鳌z XZcW Rang鑕.D纼t>[ hLef11wT ypeParag駩wh
_HK 湅 ) T
C7db w廘I Lnd 蟕9Od^ ^~^' 鉼 "请L先h项@u, "TCS鴹Q?
v
q 襭
'~= F魎n:舠):2Return Designer Create@d: by `0b6BUpd 1c
\(魥麵n7'3蚓#F晨LasTx餢Styl"终`结线"\XH鴒mef羴 _.鐹8;C)p!O绿齇 A$3'
塄b0ú慰嘉南住,标题>"'B華 :="索D.bo2008-10 ,+2 ,增加两 龊鹤挚崭3=S Symb ol ChQct@erNumb&= 8195,!acode:= , B纈as:=0褬煙
引
?-F 譛 p胸en鎐纋Plwd賁r迣f3 .Add 2U:=リ
_恓 faultSora灏0 ByLo點a#7:3#WpF( 27,+B5 一个# 袷降膶磤书签
With Act iveDocum ent.Book`marks. Add Range:=Sele `on. , Nam ,"SYGSSQ"hDefau ltSortin@g = wdB yLocation+ShowHidden 'Tru耬End
TypeParagraph InProces聅 FFals GC Sub
'F=I 'Fun倖: 设置格式 为 "列项 ——（一p级） =U:Return DesignerCreated : by zle,090706XUpd
&1Hk
K I nsertLx1()VOn Er ror GoTo ehandljeStyle@_3L晜s(廎 E饃it 耰@7翢 MsgBox " 保护区域不能羀样束剑WxTP[讀囫（二xx)齂x2?8 ThenB Selectio n.GoTo what:=wd Bookmark , Name:=P"DW"8A 5v eDocumen$t.,s(&).D Wte.InsertLx41xEls e噰3Sty倸"字母 编号列项 （一级） t凷粌InPr ocess = Faa諷ub
errorh andle:
MsgBox "保护区 虿荒苌柚醚剑 @肁|
'=? GQFun聖: 袷轿 "蕟C Para4丂Return DesignerCCreated : by zle,090706XUpd C N1
?7F
L G()aCOn zEAh k墂T ru劘嶤le arFormat餿ing厃g杹 With Lis tGalleri es(wdOut lineNumbDery).Templ(s(7Levels(v1 .繲"8%1)IATrDai gCh9cHter`wdT瀉XfC ewdahLowerca鄐eLet C aPosiA C`刬mesToPo爾s(0.74 Al I亯"a
CLeft Text 1.48 ?*ResetOnHigh$0StartA t 鄼9.Fo唍"Boldh喠BItalicStrikeThrough`wdUndef繡d繼scriFpaper.繱hadow腡azEmbo偉7E@ngraveA`llCap伄H`iddenA'r肁kColo僢V-4iz1BB0Ani`俙辁 Doub躭e ;!0 .羨 "宋体<補&胓 Bnkedm{m?qR+6_H_Hst籣HSH26@XH2_H侠S_H盜_Her_H4繟rabich螱=螱(鞟螱螱 .螱t璏2.2肯G 虶d!.蔊顲 /H /H./HQ /H/H./H廕 P/Hp/H=O/Hne=/H//H>/H/Hn/H ./H]
S/H/H ./H縠4 /H噧/H-H数字Уさ/H彁彁彁 姁3 H濦GH(%3_H_H抇H_H!殥I_H鉀/*恾B_H_H_H鈔_H.969Y_H]H0-H2/H` OHT 悆`UOH匡r蟳OH邟uOH鳠2OH彈.OH烝OH濧|惇 efined
.AllCa ps = wdUnd孒iddefntrl JColor!Size 10
imatio匘ou bleStrik eThroughmNam6"宋体"8End With.Li nkedStyl编号列 睿ㄈ叮 ! Lis tGalleri es(wdOut揘umber y) /stTemPplat7L evels(4)c圕For m"%4.\.Trai /gCharacte秴
Tabs4wdA*A rabic Posi腶Centime@sToPo ints(2.96+Alignm
耡B5LefBtText\3 .7 3+ Res etOnHigh侳3 Start4At)1G俻.F on*A.Bold4仗Italic绌SubscripA'楅Super hadowZzEmbos嘐ngrav!f臃 . . 愢6 . 慀? .?懰%憟y繍繋繋彤5 m畮5)繋萳(將K瑤Lowe rcaseLet }繌亂a .峥(4.4j边-4廵 弉.G螸2.G瘎 PGpG]G煁G螎GoG?GG G~G7".AGoG煇 D .G G]G_徔_忈恄廧廧匎G6_弢in_彶恅:h6Gst8鯣Roman縹颎趶>G讖R@ 飶蠒r菚5.18o镸H順9
H5H H-<H.t徍 萈H蔃w愡HHb愷$ .H H螮H?HHHHH7"H惎豛HH HR恛護H
H鳉Bh7HH呢H黣ro4o讙鈴G奊}>廏G谴 elAlignL@eft
. TextPosi tion = C entimete rsToPoin ts(5.92)) 萢b b3 bRe setOnHig(her e6MSt燼rtAt 1 With .Fon.Bold *wdUndef0ined4 Italic"Str ikeThroughubscr宨p丯9Sup 桝hadow8Outl jEmbossngraveAllCa俻Hidde亝 ?羇r,Colo~Qiz+nimaDDoubl"egxNam ""a噾End 翢G. LinkedSt yl
偓Lis tGalleri es(wd膕Nu恗bery) stTempla
t@ 7Leve0ls(8赏
Fo唕@> s"%8)* .Trai^gC鄅arac漓|E8Tab0Ewd!hLowerc繿seLet ~
~"峬`"a
6.66" 埸 7)
7 恛媎 .逽
S1 . 愨 .S . .E 愐. . . 悁 . 怱 . 惢f飦2. 惲 b柧 Am 怮HH9y3BH9.HnHbI9HerH4HRo鴐anG/)婟>G=鱃RP 7.|41iH=
H8H燫 惂%HNHQ4飻 怬H蠙a,H HHnHoH?HH H~H A 盁H?產"5 H 怰L縂卢3D蠌a兡 PSelecq灷.Range聮H.Apply筀釴釁L:= _煒,)C7inu ePrevious!:=False, To:=儯斾 WholeqDefaultBeharq繵ord10Y
InPro ce蚓cExi t 纴
er rorhandl$e:= Ms gBox "保 护区域不 能设置样p式！衇A
'= QFun :1 袷轿 " 直嗪帕 邢睿ǘ钾叮P惌
亹 Return HDes愳er Cre$d: by zle,090706Upd迓 1cO
'
I nsertLx5B(碽On E `GoTo 8/=` True 0Clear/tin.g-uAPvepDocua Π蕇(麓 睿ǘ级 ")
InProce ss = FalseXExit Sub榚rro rhandle:hMsgBox "保护区 虿荒苌柚 醚剑"
EndT
'=I OFunc tion:u格式为 嵿号攘邢 齻}0Paraf BReturnDes ignerCr eated: b y zle,090706 Upd
1Hk
Inse纑tLx6( On E GoTo 埾蟃ruC閮
Sele翲. ClearFormattingA
Style咥 veDocument.s("n蓖V(T 嚂1
栃柷LSy1銵荅<索引 ~1袀0G42缑I,2w, iB,2,*x)3?b,繨"3? 0,e)4?? a"4??à)5??.5??4繒煃粖峛,6??47,,n,7??48?? 8 廧 7邁~y,9 ?l緽/h鬺e礏9 夡魤 GT ?s5s正文图兵晏釫 ?d_\銟!賯Tab 髲 表 Q⑾o !艩癄? 2处理打 。蛞 跤叭サ簦 阅承┪ 刺畹牟糠 植幌允荆 ㄈ缤瓿扇掌诘龋┎?竣莲竣竣竣te靠⑦ P蛹 Print ' 绻挥胁 迦敕饷嬖y牴用#X闅 f <7癣Fiel ds.Count < 10 Th]W譬亙L 农c6r
#'7羍之后 在上保护 煈殤銟s(1d).$榚d,@ m^s +1翨2蠦S$ 岯 `BQ; p Password:=), No 衑t:=!, := _ a
wdAll纎wOnly 阕C3 LComma ndBar犥要 素及排版isibleA,繡lsEva顲 mdPROTEC TC.FaceIbd`,277RC@aption`"p取消酇勁nq cesAS鋟b'=
Fun瞤:a+编辑 砑佑 蛞跤埃允舅斜 部分（如!誤等）RPara: Return Designer Crea ted: by zle,090706BUpd 1c S
p E dit()' 绻挥胁 迦敕饷嬖`虿挥!O n Error 黢恅PG-I6P&\3儣)#6 < 10&_bR a-!!`i羅I纍tegerS 2^ '将空变 为相关提勈綾With `?53 c?@
釽.Item裛焷P獳-oV! 狪nput.Defa喁 ba
鱏 P
焧08 烜 煖_乪n諡
长1籨e盉"'慇 矩形框的鹫诒 <暇戮Se蠯ehind緹繄so !5堠 3 煁?2虩嫙嫙媭"煁t. 4` 煁篮 煁Q3 煁) y)@邿婣煁 ("暉忇忇棆 _嬍2蠇茓
&瘒瘒B 縪囌靜囈
ts 郲巅(! <t瘑论瘑囹珕o哷颍?1 飬飬F赖 ClsEv ent.CmdP ROTECTC. FaceId = 277
–aption V"取消保护"dEnd If
InPr ocess ZFa lse
$Su b
FuncJFieldN ull(Sour ceStr AsB ing)JDim iInt eger, ResultBoo0lean(= Tru o菷or ;= 1 To 8Len3.IfA %c(Mid, 1 )) <> 63 The2?6刵 Exxit =K怤鴈xt 唦 拑'儝'=I
:加入“ 国标”图片BPara:丅Return DesignerCCreated : by zle,090706
XUpd C 1
2F
Su b GBTag(剅肨A媑path亣脩= Ge tSett罈(" TCS", "G@raphicP;@"E
& "\GB.bmp# 厩picAIn lineShap D熇 = SeleB. s.A ddPic@Ye( FileName:=, LinHkTo:=聵, SaveWit@hDocum :=A篋* .Wid >= Milli metersTo Points(40Height;繬12!St(yle Ave%.s("标雷急曛惧& MoveR
Un it:=wdCh@Lc, Cou:n`1!]醖Ty魀eAQga3燣eft
2
T鄏 :=" 谢嗣窆 埠凸 "汲泣谓""垿?k'3鈙,佇!丒9域骲==乢;3銇H鍋;a乫l6das牨m颅%?t 9!= 靁俿(R8ang@r'>, PAYB
a酕Inp|ut刲羣!
A[. EntryMacro纇"Show繦elp15b OwnStatu熈妲谺亙c1 铩 煨.Edit1 wdRegular 'l鮀2)蠐 1連le連鑁B連5 緽W熖連逫peA 轇羅/&袟/&/&抏%& _wd&W&1 ."2" ,(s (h!(%@袐廸*&r= "鱜+_(. -rA /*i 秎0.+! G**'#w&,> $癵rA 行湟_on觨7o.醔.其他q?``逮.'廽坬 皫繝廝 `“地 `= `Q " ↑te
`鍰`縚ldC"G 飡Q6嶅嶀qEB""蹹B0/?s./?/?&?>_e嗂_eSe69?8咮3 <8/;u9p 9Re9v=?e 6False
v With .\Inp ut = .Wid "= 0Edi tType wdRegularI (End e Selectio n.MoveRight , 572 :=" 地方标准Style zA ,veDocu ment. s( "其他称p谓")4 CU nit:=wdC haracter@, Coun 1
MPgrap俬(Left (A丗Sub
A '&=? G
Fun耏:加入捌蟊辍眮A辣曛居蚵0:BReturnDesignerCCreate d: by zl e,090706
Upd C 1
3F
繧 QBTag(乷 Dim fld As FormF餴eld蚡罛弰Q"Q/泃 = 橣 s.Add (Range:=髧, A
aKaaZ鈖R亗. EntryF匰h鋙w17Dbw~.Nam乥"c5/ s諆. 駠 pip@N<*浛p遺e;; _G7紈d<6o= '6.6(6CkAs`Ahe餷p13咚咚咚咚 蹱咚咚咚咚逑嚒G潘企业幔D*夁薖n(飁龔- 2飁齤6鋏蟚?蟉 耝芿处 理正文以 前的页面 ，将页 敫袷缴栉 蘼碜痔鍌 g眏 g g g黷e g g ProcessFontPage瞘 p,醙i羐Intehgerc?i饑d侷&fObdjs. > 10 Then'如果已 经插入封,面c No豻 (lg t""“wdNoG)Q1 Unpro1 "zhPkc鎔鐳$If (QPKey'4,+顠1朥p牐諾, D*0'
a7HomeFgI@nsertB爥k恙uSBN0N1 w3SWindow. Pan e.View.S8eek Cu蘲r牓Fo Header.aNumber蘳.s wd2 Uppercas`eRomaT! e茂 Mainク`(鴬(0 w碅s(1).$&e^dp科P 02 To}0$T0#
4惘耀s(iOA,j D Password:=)/ , NoRese p綫拥汏|1
wdA llowOnly;~s+ pCoBm dBar 纫 丶芭虐堟")%sib 藘?5ClsEv∷ CmdPROTE CTC.Face腎dp 2771Cap嵴"葊∠；=聐U=q 痓鑀 =="[盡表羹馬``熐熐Q熐? s`肍Ta05`On Err爋r GoP.e 0Tdl4鱂rm.A
6 Dim Tb le As Ta @
' 皕le ,2008-7- 29,+begi n,如果点 击了插入 表格的窗 体后，又 取消，则啦唤B 2 ν顺霰竞
I f g_rowN um = 0 Or columnaThen,0Exit SubEnd Bnd
%Selec tion.Hom eKey Uni t:=wdLin>e
#)U$St"y= A ,ve Document. s("正 谋肀晏") 媊!4?乵 TypePara graphEl$se夽Ch ct ers.Coun餿 <> 爜5% '判断这 恍惺欠裼嘈文字8"+ClearFo rmatting弰+Df
ISet儧Q焥.Add(Range:= , 嘡ows:=E弬C嶣茞)#With%@S胟AN"网竝裥" k =~ 3聼
Apply丠ea巇@CA)@禩ru歛 LastF餴rst6]T ,A侫.Bord缻(剋dCLeft$BAc`eS峘lHfWid , = c100p蝨gB orB
"怉uto郌ica*'Righ悼eh& d橇 a Top?-k俵?- =-B|ot4 DHorizopntal__L0V5[[ / rV爀rtic n遊;峳 rO9?? Di agonalDo0wn).顲"Now!2~5Up .Shado瞱.N5鐆Of0^簟 Move荝Y 謮, 1Mq疩"`a" . g脗$"段"S '柂8-11,+ 2,将设计萤 慅和列世梦0# 哀讧CGrr orhandle:MsgBox "保护区 域不能设 置样式！
= G Fun:酫豆絉保 '==Return Designer Creat@ed: by(,@090706U,pd 1?c
!p Ins蠳Eq魎a!(碯罊 Field醍> 10鞖Pw"Inf B﹢繍幱PagBe啵ber)@$1 % 封面 辉市碓黾恿 2;D 肴A 麵ft#H 娼摮b.1業nd@腜 C` ime两ToPoints(0/h$67嵬Rａ5F4//w
ILnl性pXpe不O LEObj Class!=:="u .3", Fi爈eNam " 奯 @ kTo:=襖, Dis playAsIc onTB?09-06议綟mAl 0s≮Pwd &e竢
! ;!'+? 25^;编艗6;;;
;e; 懚=+
Sub InsertEq uationNu@m()
O n Error @GoTo eh andle<'z le,2008- 11-6,+be gin,判断 当前所处@的位置-W ith Acti veDocume nt.Bookm0arks"s.A dd Range@:=Sele 0on., Nam "FLBH"2 DefaultS orting = wdByLoc俰ShowH iddenTrBu別End 丳
俈?Finda "tyle gS s("附录`标识"劊俴F@orwardFals; Wrap wd2Sto苝4matUMatchCas丅'WholeWo BytWildc*s SoundsLik All /QExecu A <10華G 嗒 P3 獬疤`灞；2@ Not ( ?Pro"t＆Typ醩wd No1O,Unp慶 "z嘟gc d g璀 i1Hom eKey Uni眀XLinO ▂!v :=vbT|ab ]
_.?
nm"()"!69-30E嵩 加公式编号MoveLeftf$Character, 釨:=1cCap狎繪abels裸泥 标准自动逜 3"C} @V*, Title怉uto""$ _2Pos耰A:=wd4% Below, E纗clude 苗Righc4
'W0 -3,+3,将 所选应用 于“正文E制表符∴备袷矫 ?*k?*#et E %h\5b餩 _e倣]*P"g恟aphpe "式中： n! 3Dim i As袪teg鬳rSi爎 烲烲汱M揑s(1).4Iedpq傐1 = 2 ` )腡S uu /9"(iO蠆Ne xt< PaxsswP4窼p{o餜ese繮P6燳:= 6bwdp摾owOnlycb<
CommBar%要素@及排版恔Vpisib@峇ClsEv逊Cmd PROTECTC@.FaceI俩2<77 uE= "取消乮&}+ 檯Y鐒X:MsgBox "区域不 能设置样鹗剑鈭@A?? Fu鷑r:Q焌E7
'==Return Designer Crea ted: by K090706XUpd 1cO 懱暂j輕 嘪1 2-1,+1, 苟苑饷娴牟僮腎n/ces <乥E_First蜤岢Seco簼G-鉾1飺'1 /斂//斷 /擥/ ]
/攅n/3u1 jO?5z祤Line
Selectio n.TypeText :=vbTab
孍ndK ey Unit:=wdD'zl e,2008-1 0-9,+1， 因为有分 节符，所 以光标需 要向前移 动一个
'' 狹oveL eft wdCh aracter, 11褜z"()"
#6{9Coun =Fields .Add Ran0ge:=, <Empty, _=乿Pre serveFor matting:`=Fals勠嚘8-28,增糮幼帜
_峱S TYLEREF 附录标 \l \n \t \* ME RGEFORMATNBD5Updat嚵!AJRigh&f ".
3,+b egin,判 鲜欠褚丫泄紺 J 7E 通过 尤胧榍├ 椿竦玫鼻暗奈恢妹
@With A籿 eDocumen t.Bookma8rks乛歮Nabm@s"DWD. D efaultSo2rj = αBy0LocaASh owHidden崩 Trut劳 'C
Dim iNu mF As In爐egerKSN忝虵end爜i Up`醱鎓Do @While S則y<> "AE/编号制兵矸 !} a4If. = aQ" pThen'
!M4 ,回到刚鍍=的地方 ,而后删 ? @>.Ex爄sts(:)pGoTo w渉a, 馚蟻a .D`扳i珏 罙Ifq檫媤dBE螊A
\審Aa M塻eq倛!C \r 1圔+ &嚒d u Hom^e撏 廠爖e(nce [,`\ExF`#\銸\
/@3a$P`襣raphb"式鹬校忽& k _ "N$+Firs鴗",廽俲k*哌N怬逳B ._O鈬.譕U? 僛a谘H1下面褂新 ，如惞欣呍蛄@ ，进行继 续 #Dow辬":Q縌.縌穸Qxh:r u- 閾&0 Sto2r衼wd,i_/B e.秺s.矈 Q4b6ay 鳑 H_ 3 i_Sec鴒nd//'/> //蟣 "粥战嵯忒l3 ivis9OiW 蟟苅_ j|("痡p -k gxEu K饖/OSQ 俫 僽le]務骭 oa参考文晓護gooo oooooooooR0e、索引兵晏 Se* lection. GoTo wha t:=wd`Bo okmark, Name:="F irst"
A 恦eDoc@ument.~s(r).Delete侲nd I&f沢x El纒eIf S W Style = "终结线" ThenT 7崩.Exist\"?亝?T' 搅宋牡档嗄结尾OKO腯0((i_B匑\i_Seco q+ 1) A <= @5) Or P )儌V'说明#〢#O o o貳 坷灷'Pc [
G6Mo鎤n wdLine, B1KLoop+' zle,09-2 4,+begin,With K#.Add Ra 咖鸾Η:#|!f h.#.4D 穙#橡息xh 懻)fend '向蟺虏檎艺摇 有附录公 式荄 Key鋟羫Left z TypeBa纁kspac琡GFields?<褍<,Em纏ty, _ Preserve咶4Q=:=Fa皘讖c}qT 1 A 爤衧eq ,1 餟pda]囷c鎶/剒+煋煋q+梘
}' (2 008-10-9,+(" 9胉DW"M>7 Q
10 泂(1).怭rot扮edp}s煔 = 2 #S 19 /CiOA焗 欦< Pa@ssword0jzJh喈c癱g"袥oNR o@9, .:=畄wdAllo鄔Only<
CommandBar0c要 丶芭虐").Visib狆A 淐lsEv鶦 mdPRO TECTC.Fa ceId = 2 77
Cl sEvent.C mdPRO窩a ption " ∠；"lEnd If *'zle,2 008-12-1 ,+1,禁止 对封面的操作3InP@rocess iFalseJxit Sub
er rorhandl e: 10 ThenC %If `Not (@e@onType dNo)L傾LUnproH "z蜡gc g孕I蜽ith f`rmUpDn*.@Show 0L abel3.Wid@ = Int(\28繹# .4.gyCStr(10) + "%h鬌o"s Sel!.GoT o what:=wdBookm ark, Nam@e:="St uas>Res蟀11"A ^
^_8Ef涐9 ! Val(縀).撩 ) <> -y]
hh
Do_0'盡Up纇Li黱e頜9 `Z 伒溨票矸鸰麧 E询
A(9 Loop 鳺hi@F 07'/o
$1o
)暆 /蟕拑N)p\le瀟敒_$)./ 5)u //?h___*_
w 磧?uon.4u亐A湤Empt桺reserv鎒aRSm:=蟎wAKA 罓seq 僚" \r 1 0 7o$f福椿秈 / 鶝* 痤〉5 霪N筆(72 煥6 嫽f { Else
ActiveD ocument. Bookmark s("DW"). Delet豻e mpRange. Fields(i@).UpdaVf rmUpD 4.L abel3.Wi dth = Int(i / fB Count * 200) + 57 I4.Caption KCStTr(P7O2"%"+DoEv ~s End IfC Next
W ieLv257)b9T P丆:$If 屷For
m兪.儵> 10` Then Se乷ns(1) .Proted嬂s@WTru @ i@2 To
!E 墴!罀!|FaR皣b Password:="zh拉c@C g", NoRe set:=A8, Type:= _+wdAllow餙nlyADW@dCommandBar 乙谸及排版 訴纈sible宑A.Cls偂.Cmd PROTECTC.FaceId罼7堂 敲"取相；と X!廋焂'w285焂1儁蕁筜Unload 靑'zle,鄠812-1, +1,防止 苑饷娼 写韈Inq >cesaV腅S ub
'= ?% Fun"g :更新文祤抵械挠騜 Para:"ReturncDes ignerCre : by 亖 090706暶ヾ 1缈?$
# [pTCS( ;*BS鄅ow 0aI褲84 D3繚d C
S犚..Go慇弚ha xwd谸{am`y"St qardNda1CKey
wdStory, 繣xtendaH鏵#败168_!6_!Y!︷=! 辤= =a=0 d9.*? 9打烙≡だ繰/9sAA/9te/9蠧/9t~e/9O #9P rintPrevxiew49nW
X螻? ; 设置格式 为 “章 晏狻保 煞直鹋卸 正文 还是 附漫/Q2/Q/QQ/Q Ins ertChP\ct er1QOn E爎ror e 卍l魬S/k癨 k,+33`丟et1p慛um } 橢x黫t1Q 脓GK Clearq坅t0ting07 r0,将选 ǖ那蚋掣偈盇`p3Dim s tr As St&a捑7ibケ4@積ger囪_Leng啦>`IndexCcSet ( = "蠣t= ( Y1 SS 9剋HomeFcb憠-10-begin, ü尤胧 榍├椿竦 玫鼻暗奈置CrY<蹲#Aa .Add : =,npDefaultSor!p&Pl ByLoca币1|Hidd~e鸳'\F餴nd.'
閴ty =>耡 擦酇标识"9r .>w`{ 劀1 .W竢ap
zpc1 2Matc鄅Case繵holeW.By癪= chWildc
XS犿dsL鬷k 鹋 _ .Execu涴T犵`绦詀|）4岹a,锏@ute
I f Select ion.Styl e = "附 急晔" A刵dText|性B）" T`hen
' zle,2008 -10-7,+4 ,回答刚 迦胧榍┑ 牡胤,而篮笊境< 孉 塿eDoc ument.Bo okmarks. Exists("餌W")uo GoTo wha`t:=wd C, Name:=Bs :6.D 悈楀E塈f!倊 09080 }be gin,判断 单行还是@多行，亇觻τ醚 @Do Whi 縤` <> 0 8i 篒nStr(i + 1, st r, Chr$(13), vb佁 Compare) )悮Cou@ntPara i Ind ex
K
ELoo^pGG#<1L`ength'"= &譩=G3<= ~1暇虃偰澚徽@卤晏"萕E ls难G tem騪 Ra@勇誈>MoveLef`t , 1KF豲r @/oHA 婑- ADown wd罖gra魀hN@. 1jbend xi鄑 Sub#*???"))?妧掲?奺? '?娺?妬
` ??0j ? wd ?妳?妜 ?奮?妰?姢4娍夵 繅$骺墸(繅繃J諨烡烡烡 烡蓆/V90朌C8I nProcess9PjFa&Z凞Fer rorhandl e:/(MsgB ox "保护 区域不能设症{！"
rK
'= Fun倷:1格式 “一级条”，縛煞直餛咥 犝 眴 kR1]` Return Designer Crea ted: by #0706Up杁 1c A InsertFirTitle(膙蠴n EA 瞂Y V"12,+3皜GetSec鳱um@!岾!-%A0Clear@4m繿tting礋 10,将选ǖ膓#赋给0临时-Dim! As St緍a饎g攩VInteg鬳r'i!^怴礀;?bI挐cSe豀07 樽= `( 覎荂S ;TrutHomeKey 鑱3r通过#抢椿竦 当前的位渲胹Wi@z悠# .Add :=,DefaultSor" wd ByLo caa秩Show繦iddenp?( 朞Fi鴑d.)b/jQ"_D痓鄶
/pward 圧W搥wdSt .33W2Mat郼hCasa琮WholeWo .BytchWildc
宍S犗dsL宨kAllK _ P閑c棒 撔宥駍 ,E@JVwa\靚."
1 ]#孁 签的地方 ,而后删 榍
If Acti veDocume nt.Bookm arks.Exi sts("DW") ThenlzSele ton. GoTo wha`t:=wd, Name:=B' <tm.D [te2End If
'zle,0 90807,+b egin,判 系バ谢故嵌嘈校 应用样式 Do Whil e i <> 0 乯i = In Str(i + 1, str, Chr$(13) , vbText Compare) )悥-Cou@ntPara 2i 3 $;Ind|ex唩Lxoop G"<伭1Length'y"= &
<= 1噵Sty _=
瀭浉铰 家患短醣晏"萖ElsC葎>temp Rxan.%i∕oveLef`t , 1KF靜r匓0oHB 3" . #Down wd亙gra魀hN&N 峗>1势end xi鄑 Sub#++ 2008-10-纊4,回答膏詹迦肓??娺??姦2?奺1夾a '#'??婦 ??孇0k 萶x!?嬻?媥 ?媈?媰?;嬁奀$繆呖
娿 枽妶gT?0 EAuo6;:1 E 袰12 -1,+1,防 止对封面 进行处理 InProce鋝s nFa禲`嚁I errorhan餯le:#B bMsgBox "保护区 域不能设傊偅"
酭Q
'= G Fun:1格式为 “二舗”煞直鸨寔A 正文 > 醗Rc Return Des igner Cr eated: bDy 敀706U,pd 1c 翚罃sertSec@Title(鋦O鑞 E 玻 s Y 2 憺12,+3爫GeANum#mQ'$-)g6Clear9mat餿ingS v 10,将选ǖ膓#赋给0临时'33Dim酻 As St緍a媑磳鳾Integ鬳r'i!^罎;?bI颍cSe魌 ( =― х= ( 乶D柍8TrutuU腍omeK 0 乸i = InStr (i + 1, str, Chr $(13), v bTextCom鄍are) )悮-CountP鑑ra 2i3 $;Index脣
奓oop G"<乧Leng蘴hN"= &譩昧=G3<= 1噸鑃ty _=
爞 附录二级条标题"萖Els葐Item聀 Ran.G? i狹ove Left , 1cKFor匓0o颒B 3" . #Down wd亙爂raphN&N 殢峗>势endxit Sub#++2008-10-纊4,回 答刚插入 书签的地方,删除緼 A???"g2?媏? '??嬶
` ??0k x煛d ?媴?媥 ?^?媰?;嬁 繆嗫
繆 枽? ^A ??奺l傧T :1 E 袰12-1,+1 ,防止对 饷娼写韮 InPr ocess nFa禲鄧擨errorhandle:# 聤bMsg Box "保 で虿荒愜设偅E RQ
'=? Fu
n矒:Q格式为 “三錸 ”，可分 别褜A 正昔 1 fR1c侌 Return Designer Created : by 磼70b6Upd 1c
罃ser tThiTitl別(鋦On E > 2 s 112,+33鄀Get繱ecNump#
Q #1i)3Clear9matti 0鋓 = In Str(i + 1, str, Chr$(13) , vbText Compare)9 If)悮-CountPara 2>i3 $;In8dex
奓o紀p G"<乧繪engthN圗<= &譩=G3<= 1噸Sty _ = 虃 偢铰 既短醣晏"萖ElsC葐Itemp R鴄n.G?仾 MoveLeft0 , 1KFo鰎纏B0oHB 3" . #Down wd亙grap鷋N&N 峗>势endxitp SubCKV2008-10-纊 4,回答刚 插入书签的地方,鹕境鼳 A晐????嬦7穀'?嬤?嬃
` ??0k ? xd ?媴?媥 ?媈瀢1?婡Eq4繆 繆嗫
繆 O"噇?娤`? 蟃 :1 E 袰12-1 ,+1,防止 对封面进@行处理 I nProcess9 nFa禲鄧擨er rorhandl黣:#聤b MsgBox " 保护区域不能设傕！"
RQ0-9-20PB
'= (Fun鈹:格 式为 “p”，可0分别嶢 招 a 1gRad@ Return Designer Created: by 鋼706Upd迓 1c g
饡sert@1Titl別(~On E > bジ a12,+33@BGet繱ecNum$=R $Q3*77Clear` matti 0鋓 = InStr(i + 1, str , Chr$(1 3), vbTe xtCompar鋏) If)悮- CountPar鷄 2i3 $;郔ndex
婐Loop G"<乧LengthN圗= L譩=G30<= 1噸Stry _= 虃 偢 铰妓募短@醣晏"萖E ls葐Itemp Ran.G?仾MoveLe纅t , 1K谾or纏B0oHB ;3" . #Do wn wd亙gr鑑phN&N 峗c>势endx纈t SubCKV2008-10-纊4,回答 刚插入书 签的地方,删除A 脌A晐.Exi????嫹Y'??嬃E` ??0k xd ?媴?媥 ?媈瀢1?婡Eq4嬁 繆_嗫
繆 O"噇?奰? w懇:1 E 袰1 2-1,+1, 乐苟苑饷 娼写韮 InProc萫ss nFa禲@B擨errorha鄋dle:#聤bMsgBo x "保护 虿荒苌柚偅"
脕 RQ
'= Fun挀:1格式为 “五舗” ，可分别睂A 正文 } 醗Rc R eturn De@signer C reated: 坆y 敀706XUpd ~1c
p爺sertF ifTitle(∧|On E h S 12,+33餈GetSe餭NumP#鞵#2I)5Clear`9mattingS 2&暐10,絸《ǖ鸟" 赋给临时#B3Dim A鄐 Stra{5g4屃x[I@nteger'i!^餥敎?bIrcSet ( =(D = (T n罆s1 8Tru4Ho鄊eKeyf=噥Sw通过加# 来获得当 前的位置箂Wi喱邌2萻#A .Add " :=<
熓Defa纔ltSor!wd ByLoca毕ShowH鄆ddenp' 6TFin黡.)b锎嚒詹p浯标识壌./ward 圵MW牗`wdS~t櫯Q2W2M atchCaseWholeDWo .B ytchWi竘dc
\bS@誤dsLikA\ll>_ P〆 0 = In Str(i + 1, str, Chr$(13) , vbText Compare) If) Then
-Count蠵ara 2i3;Index脣
奓oop G"<乧Leng蘴hN圗= L椗C=G3<= 1SGv 峉ty _= 虃 偢铰 五级条标執"萖Els葐!ATtemp Ra|n.G?仾M oveLeft , 1KFor{纏B0oHB 3" . #Down wd亙graph}N&N 峗>势e ndxit 8SubCKV20@08-10-4 ,回答刚 迦胧榍┑@牡胤,蓌境鼳 A晐.郋xistd}ZD??婥懁
6&??婏罝` ??0% w煛d ?妳?妜 ?^?妰?;娍 繅緀#樋
繅 gT?塦? 懆jb"塩)72袯 12-1,+1, 防止对封 面进行处理CInPro恈ess mFa禱@A擧errorh繿ndle:#騾bMsgB ox "保护 区域不能壬柚仯“墎 酭P
'= G Fun#:1格式为 “图乵”煞直餼媮 正文 褘> 補 Return Des igner Cr eated: bDy T706U,pd 1?c
0`搒ertFigTitle(剓蠴n Eq 2]( ###Tru剙3HomeKey\l鉢通过3l来获得 当前的位渲胹Wi饝飇Bs#!8.Add }2g0D efaultSo rting 0wd伇 ByLoca链ShowHid鴇enp* 1f~Find@.ClearpHm黙tb
%H|b鄑)标
稒.ward7 =W皪`wdSt┆Qp W2MatchCa seWholeWo .1Bytch郬ildc
lH係P篸sLikqAlla_ 馺巈cu眪袖性a）湫 ,麰x鄶ⅵy2 A0"x #_漘滲T__澐$ _1 88q庀WE-le-Z锊锊锊
镄韢袕爱)燞鐝忴rk 锊岠 Selectio n.Style = A pveDo@cument皊 ("正文图 标题")
End If'zle,20 0812-1,+ 1,防止对 封面进行处理PInP@rocess 褾alseExi t Sub
e rrorhandle:=[Msg Box "保 で虿荒 苌柚醚澜！"
d=0
'=I 'Fu
n:9格式为 “表 ”，可分@别判断 伋 还是 铰紓 Para厐MReturnDesignerCreate@d: by 伵0 90706 Up杁
1 葀
繮 Ins ertTblTitle(剨On E羥 GoTo 銏xxxTruG瞼HomeKey -10-7,+b egin,通 尤胧榍 ├椿竦玫 鼻暗奈恢B妹
With吐B ookmarks.Add R繿nge:=G , Nam"DW Defa ultSorti$ng羨dBy0LocaASh owHidden <'C
魄D8e nd#Find .ClearFo餽matA 9 b|!T标识%俠 ward C鑬"Wrapw耫Stop(
bMatch8Cas!擁 bWh`oleWoB yt
Wildc`寫Soun dsLikAllExecu! Text:="性&）dB弅9L6$If %3"f0 A啾
兝)
Then# -F4,回答詹#b的地 方,而后渗境齺d!#L膃芺.栏st ^)
a 鈥wha "wde揻(醟).D 賢偪*ビg焃迹蒢詡 住))(铒)` )k)d~F巷僼i價兛 g兛?墏?塨#/邇邇搵騯u C謨显示q冴 记索引项馈贝疤錌亴傗K侽
g
#侫mfrmMtInde杧E9.A 0繖o =訞谌勘謄跋妊 粢丫璹的繕繕Q繕
QBeo餱ore恓S- Dim Move BK As Str爤f鄠Fla>gAp儎c$= "St 籂s!帞l颒遌$憇gAf浻^Wow.Vie瀢!硱}g_駏:C纙t oP#!KDo象 0k6
= r勶i 繍剶!5 o斮 .^d xe " + Chr(34) g_2/"鱲
.繏2Iq .@嚁査岴罏 湏QXX?纞矋!/w卞虬>.P'嵞 次、标准忻芉"僟?) j潄" + 1 Loop W躧i
I( A 3 漮 + o , I:=, A :=靼砸/裀/
_R A 兌=
'==F unction: 标记索引项\Para:Return DesignerCreated : by zle,090706hXUpd4
16 )
Su b MarkIn dexItems()
Dim strT itle1 As String2
If A veDocume nt.FormF ields.Co unt > 10 Then+; Not ( Prote&onTy pe = wdN:o
)"$ Unp! "zhan$gc ;g" d
$end ~Window.Pane. View.Sho鈝dTru;M 是否已经a了， 蛳壬境 笤谥x匦耡GG=J9,1繶Ext $In
m(g肅Text , "XE") <>
g"GD`K鈚ElskA鳯ef孠M.+釴es.乚Entr$y := , a:=g_CU_苗
Auto! CrossRef纄rence匟,, k h "", Bookm罎Nam #ld:=Fa#, ItalicRea騞 :=鍉& M"釞Z 銼
'帷H所有8f` 12-1,+1, 防止对封 面进行处L理AInxess _腯2,在全部 之前，先乕g `KBeofxoreA>妽嗲f@p`腁鈍rap緃/燛!侳i# 蠭ntege rLA&gg_ZhuFirst 0@ Each eInFsg!= +)Y俧.Styl裫" A题"螻 O 8N 3萕itP rm14.lblWid&.0 p= 0(2 7鄛D AJD.XCapa寪C丟15) + "%萹狁DoEvP|X
鏰T僙Wa儞#匜L 鯁`empDui`摗凱
1 %?F`
OPAr餔軑= 277= 151I = iC礘)&i%To/)ra徱3創
Set'崄4=(i)儐羡s$:.Fp .Clear
餸att* ![gP ╙o.W @@w耫aStop?1ward`kJQ&Q s< .Exe鴆utQ7 71>椔@ `m~=Or "一级p条标? 0"鑚eq 三A<(G奶表图G2附耟束" O F/%_泛UOO
无?a 鮞 / / * O黲n 涃D 1O蠕j 骺%R1挚T,"餵発a _Q矚 eWindow. ActivePa ne.View. ShowAll = True
訢oc ument.In dexes.Ma rkEntry Range:=S坋le 纎n. , ::=g_dText, _cv2Auto- : CrossRef erenc og_ strTitle , @ o"",@ Bookm fN am*ld:=Fals -ItalicReading:=""e g_ZhuFir宻t+ 1If Mod 2 0 Then儞仏inCreWid
+ 2 Cap (A With frm~Bt .lbl
&.
= Int(I))JD.!@%tion *CS tr) + "%TaA DoE
v@璼End 6SAIfE绬 n羌Style) "索引 1"榦Exit Fo rSO1InformaF(wd/InTable>)Y s GetcwBased餺nUnbn7鍀佱[g_SYGSw 1*" A 5)"y,a4 ! In酛
Arry, ","`Kg
郘,")漴a
<> empD3e ;兂饣 拷拷 目綀烤┚酕?緔 a? ?繘 ê=I己琁
荈=BH8籌 [熓 缈 Ze= Of/p[p4 罭Oh OiOi Oj
Oj OkOOl Om?;K 坤d 墄N 啶'Ro!o t(72 埾 慳40/ P
/A ai碊im@3 As恊geOX1 t@cC= 78CQ= 40
tbSum
汔flT
俰圕ount?硃= `T %颙yAkcelCel~l!B裳 ' 判断文档 中的表格1.加了穢饷鍳怳 1焸 '(1) 是国 家标准（中有两2鲅）域 个数是12 个，企业的都 7个/ . < 15兿嚵 '1..宣@ 2- > ?;
E
kA燾3 To l?槁O@(k)."(1, 1).蠹?5'z墟 2008-11- 29,+begi n,显示进 度条增加79 _tp A?: 縭OPDP .lblWid. th = Int(tempq <)
*rJ D.Captio耼 tCStrv $) + "%" DoEvents%End WithG'zle,2 008-11-2@9,+end.' 获得表标题GetIn dexTitle華llIf { g_str, "表")0 0Then s gBox "没 有给 M增加 働 烢xi`t Sub0烮f'说明贑中!出 指么剩 蛐枰檎 业ピ裰嘈是否)@CFD臗Arry繢,."@凣I亣,fIFo r Each celTable@] ActiveDPocum .s (k).Rang纄.CellX柮班 SetA 纋 (Start:= B, 繶銕羃- 1 衼 咾 .Text, g_C ) < > 釖4Selxect譲 萮2-4,+7在> 定位文字劦膩C位置_
A
`.Find@.Clear 9m繿ttinga齺 a b):)@wardaTrue WHrapwd S鴗opa丗|滶 +Execut"僜W2ow.Pane.View.Show`? B cFqBWes .MarkEnt萺y B[:=乬:=4, _囘% AutofLCrossReference Сkc "",@ BookmN am #ld:= False, I talicRe腶d ^:=" ZhuFir$st0g_+ 1#"绵WO!9 )od[N怞?5 '(2) 判 鲜瞧渌 曜迹ǚ饷 嬷杏腥霰砀瘢﹌E '1..硒牡祽Q 怸l-f.Count 0- 3 oYW
秈=遤Pls' k0 4 |To / lFeBr醧(1,@j.S9?5 朾egi n,显示进鸲忍!嬶预鉦 + 2 ? o/p bfr辪盕rG 锂锂 锂q!
0
锂O 锂MA//`Z锂锂 锂O謯嚋锂锂锂唢疂?C锂酗词?%锂+p\U锂 a?锂锂<锂锂9储锂篁达甽e敯q锂 锂譆d锂锂 h4锂锂 菎锂锂襆 '锂嚎 .Forwa rd = True
:.Wrap jwdFin dStop#vEn@d With#-S election.e.Execu妕$ 8veW ow.Pane .View.Sh鄌wAll.{% Document .Indexes .MarkEnt ry RangeL:=^, :=g_Text8, _#!Au to %Cros sReferenc?g_strT纈tle, "", Boo膋m ;Nam@C ld:=Fals亐Italic Reading:="":g_Zh纔First@i + 1
Ex8it @竉 仴If N lWYSQ '2.没有紶臃饷 E@Z"If 胎Tablount > 0 Then蹕i=yO+ k 41 T o h !'获 得表标题r(k).Ce ll(1, 1).鉱
z _200 8-11-29, +begin, 允窘忍 踉黾幼te0mpWi!%+ 2CB⒘!U! 胵 a frm聛C7 .lbl. ` th-Int(拍)?JD. 屺a@CStrb@) + "% sDotEv 漵 浐'm1end Get烠椑7繼In翂"表") U^1MsgBox b"给 S 倾S #聥Sub蛓)a'说明冢
中出 指么剩 蛐枰檎 业ピ裰惺欠裼小?"(吙Arry,p "," W ,_
Q>Each cel駼 In緽馞1:鈔:?#S|etQ20?b(Start:=.R.RQu癵q-0Bo$csy馠z) <颯~ Jo22-4,+7在e 定蝷晃淖值牧!0位置
冦謸Clear pmatty?? 卟殞.@
鳢㎡o 鄼C.慨o\3耂////伆3毽qc////sǒ?b9 ? 焿J釤坱(8126\圦_70嚑
1 吥幚DO " ⅲ" And S×@隧伩鹚得鲿缗j t 侔;Loopw!` 1|N adD鑟wn縟 H#篸覷Yfc.D鄵t谺03 E纉3+胢 Home遳 b_uAuStar黷"7 A @( ub ~.焧酫t52t temp摖u珼e(B :=9H#)r. , "). )w6鐓!}?)綶y齝*Fp.ClearF鄌rmatQ[ +q .Te鋢tg_s冃
Replace浡q",) . 饂ardp遙 .WrapwdSt颬p鈞 .Matc萮Ca`{= WholeW o OOBByt e@ 4ildzc0s CS oundsLik Sp× $?> +遻ZJw*Ex鴈cu遤N'+k繰ight /漧Ec6W 2ow. P ane.Viewo釵 瓩0esrkEntr瀥蠗翷盜:=38, _ ()Au to3Cros sReferen鎐P漺, "", 5ld:=#, I talic Re>:q
狭# 亜 yN簄'
10,+!&/ t(162 h 惗 = CStr(9 0) + "%"
DoEventsDEnd With4If ActiveDocum J.Fo rmFields .Count > 10 Then'b dSe 刼n s(1).Pro2t ed GJs = True< i 2 To
|/Iz3titFa刲s:Next' `Z Passw ord:="zhangczg", NoReset:=乨, Typ e:= _婳 w dAllowOn|ly亅糃 ommandBa rs("要素 及排版") .Visible# 粊侰ls傛.C mdPROTEC TC.FaceI2d罷77 Ca ption "葊∠；媦圛fCICOW indow*ew .ShowHid餯enT繷 B_+ '隐藏文 字不显示嚸Pane+繱'
/标记'zle, 09-06-19 ,判断版甭緛 段落A 伭簆plicaA? .VersAA<> "12.0"D[&'-'Vi9ParagraphA讹9(G E薁 囀 \
B:7-0 9,+1,解 鲅≈形侍"饷8Sel僸.M oveRight , 1Lefh# frmM arkIndex!".lblWi$d.` th2In@t(180)+J藾.10?*抌n爍ces+ 2 008-12-2 当a;完成 时可以时 点击窗体肈 .Ena j乨 c,
!,Sub
z
= ?% Funⅱ:全部时，获 标题式 索引A号 酛:"ReturncDesignerCrea ted: by !僞0706Up杁B 1'??$
& GetTitlet(Dim myR As 鉉!List saCimyS鄑ringa#c萐etF = 荺
輈(犗(. 0,`Ad
=+(&冎<).K 撩at>.!e 佹im(+str_FO@
$!,Inm~ "Z=i8nt_#=eg宔rc Dot嘋= ".$e骦p表癉e肧 Y]3,+5SJ僺T婤ookm K#幝JAdd':='"衸am鄘"BJSY"Def aultSort
'=饇 ByLoc鱪 ;[
SS PgIn(,3) 鄃頃g_ 5 1Exi鴗 S酜 f* ,'
Whip ")"Or —∑Sty@" 列项◆（ 三级）" P_"R瘢ǘ纩V注6Au 图表脚注鹚得鞲
憈刄p Line聇O襵A1 g3= +Ewe隒LX廘鐝LEQt I#5廙1 s廙圡"N秩X黅r-3 4`9鶊'enD\,5燬面; DownV H2wGo@倘wha傲wd 臜/oFS
縆矺(驢).鶧渢( |>雄殴?8蠉?~ 喥嵃单个蕧_峚C堬_峗峗峗峞_峗 ' _峞S`條e;弽弽m7s6 駍焬梱?C".?Ce
ù
myRan@ge.Set 0, 楨nd
p ListP繿ras =&纆raphsV Rj(.Cou0nt).3my@String ZF纎rmat.9
/Trim(?) str_FxindN9 I f Select ion.Style "章标 " Or一惣短鯔二t三_EJ8誤谋8"紮附聙识j= $ _AA _BA jC [CA_CE^;鵄:无NA8WA6A?A5A ThLen菚Gg_@腡 it塘PExi`t Sub@ Ifc '说 鞑皇莂(的 注，而是Pk<> " 注×：" >A`rMo 斫H抛" Dim 舽In A s 閩)Tex~tm!蕟W ith A爢ve Document .Bookmarkd煛a .Add2 鉀:= , Name:="B0JSY" De faultSort！wdaByLoca習ShowHidden`餞rue8!$HWhi?In#( , ")")
00——
7= "列 睢簦P）愕e瘢Y鑒' 酂N表图櫣注段!n示例$
鴗t:aa `Zng 薗e-4% MoveUp w dLine, 1}tE襦?留C(>1觎
a厏e. $_A蟺-bz蟻s蟻"?1蟼蟼9 烶 禘_ We厭Els8U ;臰 駤 ? 濫悘t彏小艣S% ? ? u
X? End With"'如果 “注”或X：”在 表格中， 则是向上 移动，直 到遇到“ 表标题”为止MIf Selec.I nform(wdvInTabl@e) The 礧 hile InS tr(str_F ind, "表t")b01垖5M oveUp孡i ne, 1t myRange *嘥Paragraphs(1).C .Set"0,(.瓧:Lis鷗2s;" < @F(F.Coxunt - UC帀 Fg.AS myF燭rim() 嚺n9WendDg_
Tit= lGoT o what:=wdBookm(ark褹e DocumentR. s(C) 趌 etH藖欵xit0 Sub,U掏糏撬下退图阉E蘬s鬬图` 伮.醏Down?a?a?age?a雞t &W"DbPgp獵@nhw?ahY?aC?a 匵?a&
?aD??a?a?a 1/a∩If3e
!f
<'= ?% Fun⑺:全部 昙鞘保@竦 非!l蔃 索引A"K:"ReturncDesignerCre ated: by zle,090706UpdB鍌 1? $
0 Get Index襊BasedonUn "(腜Dimv0As 4#5 f胥Stra0 V+7'g;瑂62
痳 |A纘Ap/@(?痮>
/>/=g
'说明不是乛的注 钦幠 陸Styo<> "罈粒壶" A袡;撱q In aB餞ext=# o
`
1 眅Rig豩t
杹 縰鈞唖G.Add+:=w弡3 般 白 . 笛Io 飗b)衯0 Or? = "列 项◆（三嗉叮"Q_S狇（二S_浒 牟B傔" on.F 段C
.甘纠龜
tt:,7 緌f!(o緐蠉翍縅虠縆o镜v 馡VI蠉 縈
s縈窶 縉縉Q_ 烵歄4f /C(CU do軃;鯁q1 ? ? EjC? s? 0 ge
my String = myRange .ListFor8mat(|訲r(im() Lst纑_Find帬If In (), "注") 00 Then O
@禨tyle 8"章标题0" Or一惣短鯒二t三_GI;竴铰急晔JZ \,<漣5嵴M无" E;lB On 搕3膳H
g_SYGS@糰6Sele ction.Go To what:=wdBook mark, Na me:="BJSY"A`veD ocument.塃s().D t,徟Exit (SubO E 嘔f憕图表脚注说明"P圀
tt
餡ende
'= ?% Fun3:插 胨饕Para:"ReturncDesignerCrea ted: by zle,090706UpdB 1?$
"嗷sert TCSIndex($腤ordBasic.#虵ield @MIND EX \e "" " & vbTa \c1T\h Ao P!y \z`20t52 U 8Wpith 婽$."es.Add B:=c, H坋ad冷Sep`/爐or:=a' e wdLetter, Typ h wd
nt, RightAl@6 PageNumbers
:=Tr uepOfCo lumns:=1 , SortByv Sylla産 >N L ~uQSimplif iedChines :
E(1).%Ler癋wd嶂 DotsdA0A
0" ==0调整0鸶袷綊/18/1/1/1te/1o
#1Proce約s/e1': 200812-1 ,+1,防止 对封面进@行处理InB`uVDim MoveBK 怉s S鉂
羣= "BK鎈_`?_`T`g@ Ke蝭]B. w &`3:c01sS 09 -06-18,+ 增加进度 条;frmU pDK36.Sh餺w 0!''3t0609S砈yIn IO掂奈恢 .Label3.Wid怓=@O0t(86匕4.XCap醰C( 30) + "%醲uDoEv@t5
!-11-1
4,用 瓷境璐的flO釼bV s.Count > 1 S O膟, Ext&p
Up Uni逡#LE, 2翵aG/E埿p$,q1 prZ.Cht&焰
= 4飥 }
妡El裀q w-, , F侵战8嵯達塖Le鴉t ~a 檺
缱0wd
>蕁[ % #
# b G _ _ &_ "P> ??t(115@
@4@@淄M%N7!N53 几馿>> > 10 Th en
If Not (Ac tiveDocu ment.Prote HonTyp e = wdNo P) 俇np "zhangc 靏"xEnd8 If With QStyl es("索引 1").Par agraphFo0rmat9.A餷ign
,鳯ef;4 'zle,090 706+,调 痔逦翁Fon GNameFar蠩ast H"&垊.Ascii郞ther jSel.Mov耬@ , 13 Fields.U pdateLocked Tru'C BK!BK SYD6GoTo what:=wdBookma恟k, A>:=cM 2KeyM
Down ine1nd.CleaBr儏tingMFiReplac瀍禄 倆蒅nd懧楾exBs 蓃 E$warGPCWrapPw耫&Stop2a@Fals刦
MatchCasAWholeWo Byt9a
A
Wildc`sSoundsL膇kAll薚,.Exec)酕D
"鈚 2008-10-16,+e3g aE`Right2 4,+begin ,控制编 诺乃承颍 蛊湔 虺鱿帚
Di m strNum () As St唕鍶alengA s Intege聄Temp
ZWZTitle壴FLTabV濭 J╫FL
∟ew7L i匩 jflag忇纓勓(= 0#'銆&= "鋑 %f$C#J#"J !? C琒r匘o蟘羐`闎 = Bnp鍡:婣a .鍑^t(唂 o矋8%8
Qe{1Ry@~e. 8wdCh爗cter鯷S饒enc拧^,P_Ext>Av#)(Trim(g'# a))' 2@0@9-06-1@4 定义两个 临时变量 ，判断有 没有重复赖谋晏怊>桨(F!,i@Sz 酑F燭,`S,'1.说明B掷一个翈 睿恍枰`判驀p&In 爄, ",") 焣_8R'2R有多7进蠤新.Eji' 駥1 3 1 Do 圵hi LMidnge"0), i醦") <>1
oO. E= 9!6 Exit D=?
0 4K + 驫 )xt 榠 +59Lo﹣o\.rn_`
c)_v4`
o . 0 w"[四 4蕫钦r;类OA Is鄚eri鬰(!(4
&!7 ╤"P7` UU譮 @8 是附录标稄A 1E" T 鈕%+5 " FL '3.p是表/? p筲=表? 5s 2=馮6i Bo5' u '4 图/ 图 5s 鯂e o5g%?'5 "鈅/`鸲 ElseI f 65 <= Asc(strTemp)x90 繲hen
XFLZTitle = t + ", " <p ?""%End "" ^S&? <h1i>
i1
NextG 3New僜Z蔠+翭L嫿 GraphTable&Leng紅h A )T 蠰eft,
D- 2
Sel ection.R繿nge.T6.鰼
3= oN 74
憖IC>TF嘆'L蛗flagTru腟Loop0 Whi 腉=Fi nd.Execute(@:="^t 蔉orward:=, W!i:=wd StLop凴肁Wi@gfrmUpDatHp .Label3.Wid俹Int(144坅C4.C apb,CStr(50)@B"%(o DoEvents#
'醼 段落标记EA`;veW o w.View.S howParag aNs
$ zle ，2009-1 -9，+5， 增加一个 书签，以 便修改完 页码之后 返回原来赖牡胤絚 "AcDocum. Bookmark儰.Add 釵:= R, Name 2DW!.De faultSorHtin 1-禒Not B(LProtCqT剏pa秝dNoF)p,Unpc "zh爕c 膅&?! 叺e =06-15 >按 掌匆羲承蚶磁帕Re-Index腂y`觘nd2 釧焏 乨258鍩d9焏d '8MoveBK乣C"Stand ~AN&荙GoTo 饂hatAYET忋C -Key 6drPane衲seek醫 - Curr`3Pag鑕Fo"rCa Right , 1, wdExtf&HeaderS.LinkT琉%eviouu@<&绡Fa爦s u% 4 ?2 Numbery@StyB媤dW2Ara豣ic.
? Level7Ch) Ter0HIn郼lude# 廐 !SepR toQ Hyp*.Restar苩#pAtS<wg%$咇) "e" "Mai臮SS 朩螴螴P廔2倧I儚I Ts(1).Med +h1 翖2 @7^Vuq (| <D Passwo傠W Ao!e怋儍q0:= _
:AllowOnly砪 +PComm蠮Bars(" 要素及排惏")pDsi@b
ClsB. CmdPROTE CTC.Face腎d %277/ 讑"取消兵；えf〡@ ,xd弶4 ，删除那{厜o )F埌焛黶t 饏,縚D宂礯"陦"(a)媗e%ⅸRS?r 彜t(285?r9崵10Or煠GHUn鄉oad ,
?訒っ4 p ' 藏文字矤幌允.C_(N 狿1('q/a懎i"812- 1,+1,q毝 封面进行惔眢In ;ces?Sub
牪= #Fun"S:蹈髡鸰2a: @Return D esign荻 er:
'== Created: by zle,@090706蠻,pdh0 4 1=G
S ub ReSor tIndexBy Ascend() Sele ction.Go To what:=wd Book mark, Na me:="BKS衁"
5 < MoveRigh t Uni Ch aracter, Coun 2
@EndKeyL ine, ExtO丄'将 虮涑晌谋緧#Fields.Unlink7刵o1,Lef爅 With A繱veDocu爉ent.匭sAO.Add RabIV E$wa rd奟Wrap @wd&Stop噲Fals/MatchCaseuWhole學oByt冪:
Wildc`
s S qdsLi鈑All荊,3Execu)羨D
" "4纅rmUpD@燾Label3.Wid@h= In鄑(172罃'`4.Cap醈@ C Str(60) + "%H6DoE^v on#'- 06-23,+1 ，工程和 激活文档老喽杂y纒(This苲a ).b} 1,+ 3,消除多 余的回车 '鄖toryIf(桽tyl5"终结蟺" Then"' Up , 髣n! If#b氭鮣D犃t腢焺杳
?
!#"Dㄠ="SYF)y
A.╞Dim tempb Ask：t=}a"(pStar皅s2(2 ).b纐nd:=E"3] . S '眛礰奖砀?B asic.qPToTab'Conv ertFrom:=0餴umColumns:=1 Row 38, _Ipial"=AAutoP萶si;, #R" Apply184, QF1劙窼et"
8 1袎网格型 s'依次槔1中的 每一行，得到 个饕>的标l题cA i @HehgerWj_ ip鈺"愞弮S 廞Q .廞(186廞嶲5廞廞 媃'查找蒘项s“1 ”，并把@它放进絗峁怪#qsyType()郰 s Q '动锑轶S >2(s.舍*s().3Re
i#leng癶@=~ 餾trTP?D鎶bhtrIP7szjk刌/ i 窂q= 0艗Q|?Cell|(ip]@@r介FL鴈n(鱕bH?(%歨柦 < 4g 0 U= Midg/ 袦, I俼E棐@ c削1X9t
致Q;鉷wdY螐1 $5j).0 鳯et0瞻# 7瘢Fir 7'{*j罃T*N 3.= j ^-鍐捑9C胸Aoxrow1070E恆ch InMrO.2=
q簃AO+.O+=_+i愸_QC~[ .Label 3.Width = Int(20P0)
4 .Caption 孋Str(70) + "%"R DoEvents"End With
'如果 是1行就 恍枰判If Act iveDocum G.Tables(iT Inde x).Rows. Count > 1 Then=瓉 >Select1 '将表格 凑掌匆糇x帜H) {. Sort Exc ludeHead er:=Fals e, FieldNumb "列` 1", Type:= _:剋dSyll乺9Or+Ascending22:=" 1)6 1H53 <Sep郺rato繰C eByCommas肊Column Q腲CaseSensiA嶧dLan guageID:= implif iedChine3乴塏ub::段p落数乸J M"煍:Cy辆IfCA frmUppDate樢1
5噙5赀'查 乙丫泛 的各索引@项的“! 晏狻保B验加到% 杂Φ纳厦婷Dim strR`-e1 As 纻 U23 For Each orow鄳總
*!.m}Gy MoveLeft0 , 1Righ, wdE躼t爌G 2∏!.Tex実j杘&Ite>m$a ) sy!A(j).FirCh`ecter7虨e1 jLetGExit +iW!N
hp3 <>@k!' 向上增加0一行 &In恠ert岷Ab2?)2a!+G
'Ae KBackpspachmS衪yle@%"(冫!)3)臷$G$с焳堩29焳8燀愴冔转化成p文本' 膖n騰 To Y覻繶侾'graph Y仺SNestedcz :=Tru' 瞥悄鼙昙荢紋Rem SmartTagt0'zle, 09-06-23 ,+1，工 毯图せ钗嗄档相丠@s(This唭N郺me)."芕 1,+3,消 嘤嗟幕8爻礐@ Ke陏@S0jy0F$终结线"绗91GUpG#[洓ID皨昪
萐ubQO'= @5==Fun牁on:显蔃 删除A2侠 窗体!: Return伋 Design`Cred: by C 0706雹Upd 1C 冡P Show纖 r(7#ete錜.Q 0 =x/p
'==/ 7/==/te/_
Rl侌find A} BC?s3`r襯FlagBoolea劷'1.逐肝1(7g_癥_]3co`魟W
o@w.View H iddenBP= 楼'2.全糙亏E0=2|?2L!`812-`F1, 防止对封 面进行处 理乫InPr鄌cess 7T!丆BKaStr団旻oHome圝1媞7T= "Standard1RoGoTo w竓at〕 kZ萲, 1:=@IPC_ 豨_F`筝=8Q龗oW &#,Q1 瞲'
.C@'r鄲mat tvV""^d xe "0餋hpr(34迅w)R+ .Wu0 靪dA fpr0 辸!5 . 0 + c5竦 findFl ag = True
$Sel ection.F .Execut 淓nd If vnRange. FIf &Style "目次 、标准名 称标题" 0Then ;滶x`it Do 孌
緂_mCou宯t?+ 1. Loop WhiR嘮 (Tex t:="^d x e " + Ch r(34)g_羳>Index
, Forward:=伭, Wr@ap:=wd'SPtop)BA舦eW 舘w.Vi ew.ShowH idden*= Fals'zl e,200812 -1,+1,防 止对封面 进行处理InProce l10屍@
(
@tt凁TypA豾dNZo)恔,Ss(1).ed !E/ @= 2 To gO銔r (i蘛N`p
L Pas坰woo"zh罃c缹g", NopRese鄕鉸&:= _o wdA llowOnly!3ge 俬 c?O+鎐解碁c醖"d==d邇bd3cdU 應da 骯Not bb巚e唓Unptro醞 IG??$?' #?&>岚重 床说ィ磤妓程序 蟊４婺０蹇A S S S SO c{Dupl刬cpZMenu賁e?u
Funct ion GetS ecNum() As Integ(er
If A 渧eDoc ument.Fo rmFields .Count > 10 Then
bjBoo kmarks.E xists("B KML") Or
`*QY&*Y* !扴ele.Infba(wdqpEnd 卋er) = 2宬o$啓0{
EXlse
1 nd If xit 呅
- D+!7克?m蘷?m$/m1?m齺l G艪y?mA x A@r o X @ >H ' J $ B@
! 8 （规范性附录） B@ x d p （资料性附录） B@ k H $ B@ 在此处添加附录标题 B@ B@2 B@4 p B@l f d B@^ ' J A@r ? zle,2008-9-24,+1,运行定时更新域，以便能够及时得更新附录公示编号 A@ | P >H ' J A@r 4 不能在编辑封面时添加附录，请将光标移出封面再添加附录A@ o 炔 Attribut e VB_Nam e = "frmFLBS"
Basx0{65 5FD8E2-7 612-4451 -9DB5-8E 89D27D92 1A}{2529 719E-2E6 E-4848-8 7DC-012F 84C682D9}
dGlobal!塖pacoFalse 奀reatabl Pre decla Id 襎ru
BExpose 0Tem plateDerivCustomiz婦
Op tion 1li衏it
P#' Sub cmd Cancel_C亐k()
Unload M1TEnd OkO 1rror @GoTo eh0andl 'InProcessA
SelecO. TypeText Chr(11D!If /GF.V alue Then'"（规 范性附录欤├s
E耹A 眯
资料
= If *在磤舜μ砑覣#p标题# VKeyParagraph
Mov eLeft wdCh cter, 1 Home , ~tend:=wdExAC
蒫臏G坿'zle ,2008-9- 24,+1,运 行定时更 新域，以 便能够及0时得A;公@示编号Upd@汧ieldTCSExit;E:Ms gBox "不 能在编辑@封面时E. 虢獗 暌瞥鯽再e@1鑊 揔* 0
*\CNormalrUZ
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~5 鳼fBwG淈1+,X 儕 a
9
Y v
! A a ) I i
)
I
a
I y 1 Q q 9 i Q y ! I q 9 a ) I i ) I i ) I q 9 Y A i 1 Y 1 Y ! Q 9 @ n * + 1+ Q+ q+ + + , 1, Y, , , , - 1- a- - - - . A. i. . . . / )/ I/ q/ / / 0 90 Y0 0 0 0 0 1 A1 i1 1 1 1 2 12 Y2 2 2 2 2 !3 I3 i3 3 3 3 4 94 a4 4 4 4 5 95 Y5 5 5 5 5 )6 Y6 6 6 6 7 I7 y7 7 7 8 98 i8 8 8 8 )9 Y9 9 9 9 : ): I: q: : : : ; A; i; ; ; ; < 9< i< < < < 1 儉 盙 G AG aG I 儉
1J 買 AG J i 儉 yL !L G AG IL J 儉 ￤
9N IO P 镻 iR IS T 蒚 慤 YV IW yW 儉 1J G 裏 Z )Z YZ J 儉 醄 G AG 羀 J 儉 1J G AG 筣 醈 yW 儉 Y_ G AG ! 儉 Y_ G AG 9 儉 Y_ G AG aG J Y 儉 裠 G 裏 Qd yd ヾ YZ J q 儉 1J G AG ゝ 賔 g J 儉 Y_ ﹉ b岰x#霩/颂g1 TemplateProject ThisDocument MdlTds ClsTds
FrmAddFoot FrmChoice
FrmContent frmDate frmDeleteIndex FrmEditFoot FrmFL frmFLBS FrmFootType frmJz frmMarkIndex FrmTable frmUpDate F H C:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA7.1\VBE7.DLL VBA
` 0K﹚ 6 @ C:\Program Files (x86)\WPS Office\11.1.0.9305\office6\wpsapi.dll Word
1 p 0 F C:\Windows\SysWOW64\stdole2.tlb stdole
1 Y L续-鶾藉 D轗 @ C:\Program Files (x86)\WPS Office\11.1.0.9305\office6\ksoapi.dll Office
c 9 .E
忇.`孧 C:\Windows\SysWOW64\FM20.DLL MSForms ShowHelp9
ShowHelp10
9 9 a 溔0眪Ц@旝 諐痦8
0 C:\Users\袁青\AppData\Local\Temp\VBE\MSForms.exd
a 9 k F g稽塉.Nof攐 = -鞱扣`k阬,w 闄\瞞傴J/(Hx=R
F Document
Document_Open
H 4 8
,
InsertMenu ProgEntry ShowHelp1 ShowHelp2 ShowHelp3 ShowHelp4 ShowHelp5 ShowHelp6 ShowHelp7 ShowHelp8
ShowHelp11
ShowHelp12
ShowHelp13
ShowHelp14
ShowHelp15
ShowHelp16
ShowHelp17
ShowHelp18 InsertFM IniDocument ChgName InsertFooter GetFMType ProcessTwoPageHeader ProcessOnePageHeader InsertFigTblNote InsertFigTblMulNote InsertFigTblFirNote InsertTextNote InsertTextMulNote InsertTextFirNote InsertTJ InsertPJ InsertFirstTTitle InsertSecondTTitle InsertThirdTTitle InsertForthTTitle InsertFifthTTitle InsertZTitle
InsertExample InsertMulExample InsertFirExample InsertExampleContent InsertParagraph
InsertTWJz
InsertTBJz InsertFigTblFooter InsertFigTblFirFooter InsertFlZTitle InsertFlPTitle InsertFlBTitle InsertFlTTitle1 InsertFlTTitle2 InsertFlTTitle3 InsertFlTTitle4 InsertFlTTitle5
InsertFlBs InsertReferences DesignIndexTCS InsertIndexPage InsertLx1 InsertLx2 InsertLx3 InsertLx4
InsertLx41 InsertLx5 InsertLx6 InsertSy1 InsertSy2 InsertSy3 InsertSy4 InsertSy5 InsertSy6 InsertSy7 InsertSy8 InsertSy9 InsertGT InsertTab ProcessPrint ProcessEdit FieldNull GBTag HBTag DBTag QBTag ProcessFontPage InsertTable InsertEquation InsertEquationNum InsertFLEquationNum CmdFmC UpdateEquationNumTCS UpdateFieldTCS PrintPreviewTCS InsertCharacter InsertFirTitle InsertSecTitle InsertThiTitle InsertForTitle InsertFifTitle InsertFigTitle InsertTblTitle ShowfrmMarkIndex DelBeoforeMarkAll MarkIndexItems GetIndexTitleAll GetIndexTitleSignle GetIndexTitleBasedonUnTitle InsertTCSIndex ProcessIndexFormat ReSortIndexByAscend ShowfrmDelIndex
DelIndexItems PrctTCS UnPrctTCS DeleteDuplicateMenu GetSecNum
4 4 P
( , 4 < D +=鸂h8 +3q
l債偽K姤檵T~ *=鸂h8 +3q .撾懯z鳱卋鲅汙b !=鸂h8 +3q Class Pgv鹜3 +3o
VBInternal
Q F CmdFm CmdMc CmdQy CmdYy CmdFl CmdCk CmdSy CmdBJSYX CmdSCSY
CmdTwoPage
CmdPrtPreview CmdPRINT
CmdPROTECT CmdUNPROTECT CmdMcC CmdQyC CmdYyC CmdFlC CmdCkC CmdGZC CmdSyC CmdBJSYXC CmdSCSYC CmdTwoPageC CmdPrtPreviewC CmdPRINTC CmdGZ CmdPROTECTC CmdZtitle
CmdTTitle1
CmdTTitle2
CmdTTitle3
CmdTTitle4
CmdTTitle5 CmdTTitle1F CmdTTitle2F CmdTTitle3F CmdTTitle4F CmdTTitle5F CmdD CmdLx1 CmdLx2 CmdLx3 CmdLx4 CmdLx41 CmdLx5
CmdZtitleC CmdTTitle1C CmdTTitle2C CmdTTitle3C CmdTTitle4C CmdTTitle5C CmdTTitle1FC CmdTTitle2FC CmdTTitle3FC CmdTTitle4FC CmdTTitle5FC CmdDC CmdLx51 CmdLx51C CmdLx6 CmdLx1C CmdLx41C CmdLx2C CmdLx3C CmdLx4C CmdLx5C CmdLx6C CmdSl CmdDSl CmdSSl CmdSLCONT CmdZWZ CmdZWZZ CmdZWZZF CmdZ CmdZZ CmdZZF CmdJZ CmdGTitle CmdTabTitle
CmdSjTable CmdTBJZSM CmdSlC CmdDSlC CmdSSlC CmdZWZC CmdZWZZC CmdZWZZFC CmdZC CmdZZC CmdZZFC CmdJZC
CmdTBJZSMC
CmdSTBJZSM
CmdGTitleC CmdTabTitleC CmdSjTableC CmdSTBJZSMC CmdGS CmdGSC CmdGsGs CmdGsGsC CmdGXGs CmdGXGsC
F TdsApp F p F CmdCk_Click CmdCkC_Click
CmdD_Click CmdDC_Click CmdDSl_Click
CmdDSlC_Click CmdBJSYX_Click CmdCancel CmdBJSYXC_Click
CmdGXGs_Click CmdGXGsC_Click CmdPRINT_Click CmdPRINTC_Click CmdPROTECT_Click CmdPROTECTC_Click CmdUNPROTECT_Click CmdPrtPreview_Click CmdPrtPreviewC_Click
CmdSCSY_Click CmdSCSYC_Click CmdSSl_Click
CmdSSlC_Click CmdSLCONT_Click CmdGS_Click CmdGSC_Click
CmdGsGs_Click CmdGsGsC_Click CmdFl_Click CmdFlC_Click CmdFm_Click CmdFmC_Click CmdGTitle_Click Label1 CmdGTitleC_Click CmdGZ_Click CmdGZC_Click CmdJZ_Click CmdJZC_Click CmdLx1_Click
CmdLx1C_Click CmdLx2_Click
CmdLx2C_Click CmdLx3_Click
CmdLx3C_Click CmdLx4_Click
CmdLx41_Click CmdLx41C_Click
CmdLx4C_Click CmdLx5_Click
CmdLx51_Click CmdLx51C_Click
CmdLx5C_Click CmdLx6_Click
CmdLx6C_Click CmdMc_Click CmdMcC_Click CmdQy_Click CmdQyC_Click CmdSjTable_Click CmdSjTableC_Click CmdTBJZSM_Click CmdTBJZSMC_Click CmdSTBJZSM_Click CmdSTBJZSMC_Click CmdYy_Click CmdYyC_Click CmdSl_Click CmdSlC_Click CmdSy_Click CmdSyC_Click CmdTabTitle_Click CmdTabTitleC_Click CmdTTitle1_Click CmdTTitle1C_Click CmdTTitle2_Click CmdTTitle2C_Click CmdTTitle3_Click CmdTTitle3C_Click CmdTTitle4_Click CmdTTitle4C_Click CmdTTitle5_Click CmdTTitle5C_Click CmdTTitle1F_Click CmdTTitle1FC_Click CmdTTitle2F_Click CmdTTitle2FC_Click CmdTTitle3F_Click CmdTTitle3FC_Click CmdTTitle4F_Click CmdTTitle4FC_Click CmdTTitle5F_Click CmdTTitle5FC_Click ChgToSong
CmdZ_Click CmdZC_Click CmdZtitle_Click CmdZtitleC_Click CmdZWZ_Click
CmdZWZC_Click
CmdZWZZ_Click CmdZWZZC_Click CmdZWZZF_Click CmdZWZZFC_Click CmdZZ_Click CmdZZC_Click CmdShowHelp_Click CmdTwopage_Click CmdTwoPageC_Click CmdZZF_Click
CmdZZFC_Click TdsApp_DocumentBeforeClose TdsApp_WindowSelectionChange u F 鱘'謘鮈3 霺╯侮JF "2t覮 0=>嶏塐箯婸稣 }(闄P A侟%墌/ 敁郗1H乶蚯縔2 {l烣 WJO CmdOK !-6S `
q> 葟漑qJ棪 e缷 UserForm 齕;zN愞纲U F3Dynamic
9? a? "瀸棸晕- ?@匈
dd 8 @ H P X ` h p x ( 0 8 @ H P X ` h p x 0 ( 8 @ H P X ` h p x 8 @ H ( 0 P X ` h p x 8 @ H P X ` h p x ( 0 8 @ H P X ` h p x ( 0 8 @ H P X ` h p x ( 0 8 @ H P X ` h p x 覌B煳
` TxtJZ cmdCancel_Click cmdOk_Click
txtJz_KeyDown p#皞嫉 犐 t
T bNU5H餙棶 勳 囻睗zF▓牑訔曃 挝A^貞M晍Mq祌 烒煓蟿B擋 (
炕 徢H忺\A砤昆 Cancel R 覌B煳
`
OptButton1
OptButton2
OptButton3
OptButton4 l飒階┪B P简0
YI a? ( Cancel_Click UserForm_Activate
X c榬E5灗k肔 K堑aYI'4+<9&Z O鋐呝濵I縝 $CV 颋敄載EF-dTm ~茄5庨H┴y<厣 " 覌B煳
`
LstContent TxtSel _+诿,UJ3Ｊ炩畭
塊 a? h Label2
ProcessParent LstContent_Change
8 8 t 8 e 裰嫌奌O$漎纋/ 槕d敓J噲o&u鹻 J%+婣4у履h L瑌^-F A嶠欚礹鄖 /檲F⒁瀞-嗐 !3xJ幁嗎*,
筂 a? GetDC user32 GetDC -I<甗擬绰vvO#
YN yN ReleaseDC
ReleaseDC
YN qO
GetDeviceCaps gdi32 GetDeviceCaps
1P QP
FindWindow FindWindowA
YN Q
GetWindowLong GetWindowLongA
YN 裃 8
SetWindowLong SetWindowLongA
YN 橰 X
CreateRectRgn CreateRectRgn
1P yS x
CombineRgn CombineRgn
1P 9T DeleteObject
DeleteObject
1P 鵗 SetWindowRgn
SetWindowRgn
YN 罸 GetSystemMetrics GetSystemMetrics
YN 慥 DTPicker1_CloseUp UserForm_Initialize
D GU鱚'w權%2qC *稌珩 D寚晑+(TK 緷翴喿扚癷6軮藐 饶H瘤CDP=C 4芆p9*匨崋坲k lblFind cmdFindNext cmdDeleteAll txtIndex 哈}B)h薓0i
Y a? cmdCancel cmdDelete cmdFindNext_Click cmdDelete_Click cmdDeleteAll_Click txtIndex_Change ;[狪9B灉6伷鲶 (a\C歳兡
ty 鷛O!B噚待h kq 薎j@I.呛 圐 lstJZ 膴A5G霱癋GG/"L
A[ a? lstJZ_Click
` 呎渧U
Bｍ `惺R 韞$S3A
縈(u 蚴A7漰&E/'; m L$獿慵 糾匛盞摬:>#V txtTitle lblTitle OptZL e$ $5M瑐%/
!] a? OptGF txtTitle_Change txtTitle_KeyDown 6eLsu.H砿妜梳柎 箛7oO崋噋濞 庳_evQD澋帀襺 瀜)%n.HH囓/勂傎 ulbi;辌C冹魊Z僀 2帯jInJM桇,糼 rA
賌 a?
P 6糨&uF澊─{ 彿)+"_珋 txtRow txtColumn 螈賟逫炐俑s$6
馿 a? lblRow lblColumn txtColumn_KeyDown txtRow_KeyPress txtColumn_KeyPress
盺,r逳 ~馾祘S 亲諪/ 趏 硶爙]鍶碮萃G攪 櫨/歏v翲{褯v 爡禒J櫩">^R 黱鄶tM攆f c
鵪 a? H Label3 Label4 UserForm_QueryClose? _ _ S R P _ 1 p _ _ S R P _ 2 _ _ S R P _ 3 k _ _ S R P _ 4 rU ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~I
! ShowStr SourceStr i I ( Y* 8 CmdFm * H CmdFmC CmdMc CmdMcC CmdQy CmdQyC CmdYy CmdYyC CmdFl CmdFlC CmdCk CmdCkC CmdSy CmdSyC CmdBJSYX CmdBJSYXC CmdSCSY CmdSCSYC
CmdTwoPage CmdTwoPageC
CmdPrtPreview CmdPrtPreviewC CmdGZ CmdGZC CmdPRINT CmdPRINTC
CmdPROTECT CmdPROTECTC CmdUNPROTECT CmdZtitle
CmdZtitleC
CmdTTitle1
CmdTTitle2
CmdTTitle3
CmdTTitle4
CmdTTitle5 CmdTTitle1C CmdTTitle2C CmdTTitle3C CmdTTitle4C CmdTTitle5C CmdTTitle1F CmdTTitle2F CmdTTitle3F CmdTTitle4F CmdTTitle5F CmdTTitle1FC CmdTTitle2FC CmdTTitle3FC CmdTTitle4FC CmdTTitle5FC CmdD CmdDC CmdLx1 CmdLx2 CmdLx3 CmdLx4 CmdLx41 CmdLx41C CmdLx5 CmdLx51 CmdLx51C CmdLx6 CmdLx1C CmdLx2C CmdLx3C CmdLx4C CmdLx5C CmdLx6C CmdSl CmdSlC CmdDSl CmdDSlC CmdSSl CmdSSlC CmdSLCONT CmdZWZ CmdZWZC CmdZWZZ CmdZWZZC CmdZWZZF CmdZWZZFC CmdZ CmdZC CmdZZ CmdZZC CmdZZF CmdZZFC CmdJZ CmdJZC CmdGTitle
CmdGTitleC CmdTabTitle CmdTabTitleC
CmdSjTable CmdSjTableC CmdTBJZSM
CmdTBJZSMC
CmdSTBJZSM CmdSTBJZSMC CmdGS CmdGSC CmdGsGs CmdGsGsC CmdGXGs CmdGXGsC TdsApp * X Ctrl
CancelDefault Q h Doc Cancel A= x Sel > 1> ? > > ? > 貴 塆 KeyCode Shift > 盚 両 > > )K 盞 > Indx 酠 > hwnd hdc nIndex lpClassName lpWindowName dwNewLong X1 Y1 X2 Y2 hDestRgn hSrcRgn1 hSrcRgn2 nCombineMode hObject hRgn bRedraw 9Y > ( i[ > 8 AddFoot I] > H _ > X i` > h 鵤 > x 醕 > f > KeyAscii !h > CloseMode% rU 0 y Q
< a
` < X rU H $ ` n rU ~|
! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u rU = = = > i=
8 1> Y> `I _ _ S R P _ 5 _ _ S R P _ 6 > _ _ S R P _ 7 ~+ _ _ S R P _ 8 ' rU P $ ` ( ` 0$ ` $ ` $ ! ` $ I ` $ q ` $ ` $ ` $ ` $
` $ 9 ` $ a ` $
` $ ` $ ` $ ` $ ) ` $ Q ` $ y ` $ ` $ ` $ ` $ 1 ` $ Y ` $ ` $ ` $ ` $ ` $ ! ` $ I ` $ q ` $ ` $ ! ` $ " ` $ # ` $ 9 $ ` $ a % ` $ & ` $ ' ` $ ( ` $ ) ` $ ) * ` $ Q + ` $ y , ` $ - ` $ . ` $ / ` $ 1 0 ` $ Y 1 ` $ 2 ` $ 3 ` $ 4 ` $ 5 ` $ ! 6 ` $ I 7 ` $ q 8 ` $ 9 ` $ : ` $ ; ` $
< ` $ 9
= ` $ a
> ` $
? ` $
@ ` $
A ` $ B ` $ ) C ` $ Q D ` $ y E ` $ F ` $ G ` $ H ` $ 1 I ` $ Y J ` $ K ` $ L ` $ M ` $ N ` $ !
O ` $ I
P ` $ q
Q ` (
R ` 0$
S ` $
T ` $ U ` $ 9 V ` $ a W ` $ X ` $ Y ` $ Z ` $ [ ` $ ) \ ` $ Q ] ` $ y ^ ` $ _ ` $ ` ` $ a ` $ 1 b ` $ Y c ` $ d ` $ e ` $ f ` $ g ` $ ! h ` $ I i ` $ q j ` $ k ` $ l ` $ m ` $ n ` $ 9 o ` $ a p ` $ q ` $ r ` $ s ` $ t ` $ ) u `
n rU l A @ 4 i < I q `QX D I 4 `Q^ L I 6 `裗 T I > `裛 \ I ` d I `9V l I B `補 t I `筗 | I 9 `+ I Q h `Qk I q `3 I
`〨 I `? I `7 I `慩 I 5 `慯 I ! 7 `_ I 9 ? `a I Q `X I i `yV I ! `慪 I C `b I `㏒ I `' I i `慿 I ! `/ I 9! `〤 I Y! `QY I q!
`; $ I ! ] `慼 , I ! F `裝 4 I ! H `Qc < I ! J `裞 D I " L `Qd L I 1" N `裠 T I Q" P `Qe \ I q" R `裡 d I " T `Qf l I " V `裦 t I " X `Qg | I " `筕 I # $ `QZ I !# & `裐 I 9# ( `Q[ I Q# * `裑 I i# + `\ I # . `裓 I # ^ `裩 I # G `c I # I `慶 I $ K `d I )$ M `慸 I I$ O `e I i$ Q `慹 I $ S `f I $ U `慺 I $ W `g I % Y `慻 I 1% `鵙 I I% / `] I a% 0 `Q] $ I % 2 `裖 , I % % `慫 4 I % , `Q\ < I % ' `[ D I % ) `慬 L I & - `慭 T I & 1 `慮 \ I 1& 3 `^ d I I& @ `Qa l I a& `9W t I y& `# | I & ` I & _ `i I & a `慽 I & c `j I ' [ `h I ' e `慾 I 1' j `裬 I I' " `裏 I a' `裍 I ' D `Qb I ' 8 `Q_ I ' : `裚 I ' A `慳 I ( `yW I !( ` I 9( ` `Qi I Q( b `裪 I q( d `Qj I ( \ `Qh I ( f `裫 I ( k `l $ I ( # `Z , I ( ; `` 4 I ) < `Q` < I 1) `Y D I Q) E `慴 L I y) 9 `慱 T I ) = `慲 \ I ) ` d I ) ` l I ) ` t I * ` | I !* `㎡ I 9* `㎏ * Y* * l ` m `Ql 憀 E y M - a 9 A
u
M
- a 9 M - a 1 9 m 9 A u M - a
- a
9
A u M 9 A u A u M A u - a M 9 ! ! ! A" u" " " -# a# $ M$ $ $ % 9% ) ) ) * -+ a+ , M, , , - 9- - - - A. u. . 0 M0 0 9 A u - a M ! 9! % % % A& u& & & -' a' ( M( ( ( ) 9) A* u* * 0 1 91 1 1 1 A2 u2 2 2 -3 a3 . -/ a/ 4 M4 4 4 5 95 5 5 5 A6 u6 6 6 -7 a7 8 M8 8 9 9 9 : -; a; < = 9= = = = > -? a? 袬 A 9A AB uB 〣 D MD 丏 塃 紼 馝 鵉 -G aG 袶 I 9I AJ uJ ㎎ L ML 丩 塎 組 馦 8 9 99 A: u: : < M< < A> u> > @ M@ 丂 堿 紸 馎 鵅 -C aC 袲 E 9E AF uF 〧 H MH 丠 AN uN ㎞ 鵑 -O aO 塈 絀 馡 鵍 -K aK 袻 M 9M P MP 丳 裀 Q 9Q 塓 絈 馫 AR uR ㏑ 鵕 -S aS T MT 乀 裈 U 9U 塙 経 馯 GV 嘨 荲 W GW 嘩 荳 稴 稯 稫 稧 稢 ? ; 7 3 / + ' # X _X 焁 遆 Y _Y 焂 遈 Z _Z 焃 遉 [ _[ 焄 遊 \ _\ 焅 運 ] _] 焆 遌 ^ _^ 焇 過 _ __ 焈 達 ` _` 焋 違 a _a 焌 遖 b _b 焍 遙 c _c 焎 遚 d _d 焏 遜 e _e 焑 遝 f _f 焒 遞 g _g 焔 遟 h _h 焗 遠 i _i 焛 遡 j _j 焜 遤 k _k 焝 遦 l _l 焞 8
@
H
P
X
\
`
h
t p
x
l
d
\
0 (
0
8
! | @
" H
#
1
2
3
4
5 P
$ X
% `
& t h
' p
(
6
7
8
9
: x
)
;
* |
+
,
-
. 0
@
/
<
=
> (
? 8
A @
B H
C P
D X
E `
F
U h
G
V p
H
W x
I
J
X
K
Y
L
Z
M
[
N
\
O
]
P
^
Q 8
a
R @
b
S H
c
T (
_ 0
` | P
d X
e `
f h
g p
h x
i
j
k d | l t < < ! " # $ $ % , & ' < ( ) D * + , 4 - L . / 0 1 T 2 $ 3 \ 4 D 5 6 L 7 8 9 L : ; , < 4 = T > T ? @ d A B l C D E D F , G H 4 I J < K L D M N L O P T Q R \ S T d U V l W X t Y Z [ \ ] $ ^ _ ` a b c d e f g h i j k l m g rU 4 1V ` a
y
1 #4 qV ` $ a
y
1 #4 盫 ` ( a
y
1 #4 馰 ` , a
y
1 #4 1W ` 0 a
y
1 #4 qW ` 4 a
y
1 #4 盬 ` 8 a
y
1 #4 ` < a
y
1 #4 ` @ a
y
1 #4 ` D a
y
1 #4
` H a
y
1 #4 ` L a
y
1 #4 ? ` P a
y
1 #4 ;
` T a
y
1 #4 7 ` X a
y
1 #4 3 ` \ a
y
1 #4 / ` ` a
y
1 #4 + ` d a
y
1 #4 ' ` h a
y
1 #4 # ` l a
y
1 #4 ` p a
y
1 #4 ` t a
y
1 #4 ` x a
y
1 #4 ` | a
y
1 #4 ` a
y
1 #4 ` a
y
1 #4 ` a
y
1 #4 X ` a
y
1 #4 IX ` a
y
1 #4 塜 ` a
y
1 #4 蒟 ` a
y
1 #4 Y ` a
y
1 #4 IY ` a
y
1 #4 塝 ! ` a
y
1 #4 蒠 " ` a
y
1 #4 Z # ` a
y
1 #4 IZ $ ` a
y
1 #4 塟 % ` a
y
1 #4 蒢 & ` a
y
1 #4 [ ' ` a
y
1 #4 I[ ( ` a
y
1 #4 塠 ) ` a
y
1 #4 蒣 * ` a
y
1 #4 \ + ` a
y
1 #4 I\ , ` a
y
1 #4 塡 - ` a
y
1 #4 蒤 . ` a
y
1 #4 ] / ` a
y
1 #4 I] 0 ` a
y
1 #4 塢 1 ` a
y
1 #4 蒥 2 ` a
y
1 #4 ^ 3 ` a
y
1 #4 I^ 4 ` a
y
1 #4 塣 5 ` a
y
1 #4 蒦 6 ` a
y
1 #4 _ 7 ` a
y
1 #4 I_ 8 ` a
y
1 #4 塤 9 ` a
y
1 #4 蒧 : ` a
y
1 #4 ` ; ` a
y
1 #4 I` < ` a
y
1 #4 塦 = ` a
y
1 #4 蒨 > ` a
y
1 #4 a ? ` a
y
1 #4 Ia @ ` a
y
1 #4 塧 A ` $ a
y
1 #4 蒩 B ` ( a
y
1 #4 b C ` , a
y
1 #4 Ib D ` 0 a
y
1 #4 塨 E ` 4 a
y
1 #4 蒪 F ` 8 a
y
1 #4 c G ` < a
y
1 #4 Ic H ` @ a
y
1 #4 塩 I ` D a
y
1 #4 蒫 J ` H a
y
1 #4 d K ` L a
y
1 #4 Id L ` P a
y
1 #4 塪 M ` T a
y
1 #4 蒬 N ` X a
y
1 #4 e O ` \ a
y
1 #4 Ie P ` ` a
y
1 #4 塭 Q ` d a
y
1 #4 蒭 R ` h a
y
1 #4 f S ` l a
y
1 #4 If T ` p a
y
1 #4 塮 U ` t a
y
1 #4 蒮 V ` x a
y
1 #4 g W ` | a
y
1 #4 Ig X ` a
y
1 #4 塯 Y ` a
y
1 #$ 蒰 Z ` 4 h [ ` a
y
1 #4 Ih \ ` a
y
1 #4 塰 ] ` a
y
1 #4 蒱 ^ ` a
y
1 #4 i _ ` a
y
1 #4 Ii ` ` a
y
1 #4 塱 a ` a
y
1 #4 蒳 b ` a
y
1 #4 j c ` a
y
1 #4 Ij d ` a
y
1 #4 塲 e ` a
y
1 #4 蒵 f ` a
y
1 #4 k g ` a
y
1 #4 Ik h ` a
y
1 #4 塳 i ` a
y
1 #4 蒶 j ` a
y
1 #4 l k ` a
y
1 #4 Il l `
#, 塴 m `
k @ 1 8 Q @ 1 i @ ( 1 @ @ 1 @ 4 1 H @ 1 @ @ 1 P @ 1 @ L 1 X @ 1 )
@ X 1 ` A @ 1 Y @ d 1 h q
@ 1 @ p 1 p @ $ 1 @ | 1 x @ 0 1 @ 1 ! @ < 1 A @ 1 i @ H 1 @ ` 1 @ 1 @ 1 @ T 1 @ 1 ) @ l 1 I @ 1 q @ x 1 @ P 1 @ 1 ( @ 1 0 ! @ 1 8 " @ 1 @ 1 # @ 1 H Q $ @ \ 1 q % @ h 1 & @ t 1 ' @ 1 ( @ 1 ) @ 1 P * @ 1 X 1 + @ 1 ` Q , @ 1 h q - @ 1 p . @ 1 / @ 1 0 @ 1 1 @ 1 1 2 @ 1 Y 3 @ 1 x q 4 @ 1 5 @ 1 6 @ 1 7 @ 1 8 @ , 1 9 @ 8 1 : @ 1 0 ) ; @ D 1 A < @ 1 Y = @ 1 y > @ 1 ? @ 1 ( @ @ 1 8 A @ ( 1 @ B @ 4 1 H C @ @ 1 P D @ L 1 X ! E @ X 1 ` 9 F @ 1 Q G @ d 1 h i H @ 1 I @ p 1 p J @ $ 1 K @ | 1 x L @ 1 M @ 0 1
N @ 1
O @ < 1 9
P @ 1 Y
Q @ H 1 y
R @ 1
S @ T 1
T @ 1
U @ ` 1
V @ 1
W @ l 1 X @ 1 ! Y @ x 1 9 Z @ 1 Y [ @ 1 8 y \ @ 1 ] @ 1 @ ^ @ 1 _ @ 1 H ` @ 1 ) a @ 1 ( I b @ 1 0 i c @ 1 P d @ 1 X e @ 1 ` f @ 1 h g @ 1 p h @ 1 x
i @ 1 )
j @ A
n < > 9 ? @ ? Y /
D 1> + ` H 貴 y G ` a W D 8 H H rU T $ ` $ A ` 4 ` n rU 鵊 !H IH qH 袵
4 1> 橦 `
_ _ S R P _ 9 _ _ S R P _ a _ _ S R P _ b _ _ S R P _ c 8 盚 貶
< 1> Y> `I
@ 盚 鵋 D 盚 I H 盚 9I L > ? 0 `
c
W
4 < L H rU
X $
` $ A
` $
` n rU
8 yJ 貸 K QJ P )K ) QK `
T 1> Y> ` X 貴 y qK \ > I ? 0 ` ` ? Y /
d 1> + `I h ? Y L c W d T P \ 8 _ _ S R P _ d _ _ S R P _ e d _ _ S R P _ f F r m T a b l e # rU t ( ` i $ A ` $ ` $ ` $ ` n rU x M AM iM 慚 馤 8 > ? `I ] W 8 P rU D ( 貼 p , 慜 p , yP < p , 1Q ` p , 鵔 p 0
! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G I J K L M N O P Q R S T U V W X Z [ \ ] _ ` a b c d e f g h i j k l m o p q s t u v w x y z { | } ~ 賀 p 1 8 p Q a q 8 YT p ( !U p 0 閁 0p 1 I ( 賄 Tp $ ` $ A ` n ( g - T 跎囑A噒Ig+L-0b23諡 O洏
炥Ce搨TbyK嵈絵 q% 鸛烯$逧>+"_珋 x 鸛烯$逧>+"_珋跎囑A噒Ig+L-0 ME P SP S S S 1 6" < < 0 D 0 { D 5 3 3 3 2 6 2 - 2 0 9 E - 4 F 0 5 - 9 B 9 8 - 0 D 9 E D E 4 3 0 3 6 5 } { 6 2 5 4 8 2 9 3 - 8 2 7 9 - 4 B 1 2 - 8 D B 4 - B D 7 D E 8 1 E 7 1 2 5 } " @ ` $ ` .
` )/ % i2 0
p ` H )3
h % 4
`
)3
% @ ` H @ % 侢p H % p @ 凗 % 偁R % H X
7赺V * \ R 4 * # d $ * \ R f f f f * 1 K 5 f d a 3 7 c e 4 8 < @ D H L 9 "
" ( 0 P h p : x
( 8 H P X x " * " ( 0 " 8 @ X p x " x A@r 亪R梊 o X @ *
! d ,
! d 请正确输入！A@ U | k 4 zle , 2008 - 8 - 6, +begin, 判断输入的内容是数字 *
! 8 $ p ,
! 8 $ p *
! 8 ' N ,
! 8 ' P A@r d
请输入数字A@ *
( d ,
( d | k zle,2008-8-6,+end o .
A@$ k X o P # zle,2008-9-21,+begin,控制输入为数字 2
2
2
0 2
9
' 2
k k o p 2
2
2
0 2
9
' 2
k k x o p zle,2008-9-21,+end *
( 8 ,
( 8 o ( G Attribut e VB_Nam e = "Frm Table"
鳥as|0{D 5333262- 209E-4F0 5-9B98-0 D9EDE430 365}{625 48293-82 79-4B12- 8DB4-BD7 DE81E7125}
dGlobaBl奡pacoFalse 奀re at Pre decla Id #Tru
BExpose Tem plateDerivCustomiz婦
Op tion 1li cit
P#' Sub c mdCancel_Ck()
Unload MTEnd Ok If tx tRow.Tex倀 u"" Or @Column Then46Msg Box "请 肥淙耄 c Exit B#If
'zle , 2@008 - 6 , +begin@, 判断 哪谌菔鞘置 *IsN$um Tc(,Va纋ue) AA.-g_row徖:I6g_cB>I H[B8橝 G31團 芠@[T,罶-8-6,+end~詟_KeyDowPn(By J @C ode As M SForms.R eturnInt@eger, S餳iftA 凮3%= 13 . VO B'郆 9-21,$B控渲芶(为CA閌@' W鄒ssAs8cii6*C<> Q罤`&127c 48!e&> 5AA= 0'= !e 纚k}5 6 `$ 罣" 爑 纴L>$W!i `I
< 1> 蒟 ` @ 貴 y 馲 ` D > a ? 0 `I
H 1> 慪 `
L 1> 盰 ` c W W H 8 L < @ D 0 rU X $ ` $ A ` $ ` $ ` $ ` $ A ` n rU X ㈱ 慛 賈 [ 乑
< 1> Y> ` @ 貴 y G D ? Y /
H 1> + `a L )K ) )[ 烗 ` P ? Y L T > ? 0 `! c / o /
4 H < L T 5 rU ` $ Y ` $ ` $ ` $ ` @ 4 n rU )\ Q\ y\ \ 4 貴 y 蒤 ` `
8 1> Y> `I < ? Y 閈 _ _ S R P _ 1 4 r _ _ S R P _ 1 5 $ & _ _ S R P _ 1 6 _ _ S R P _ 1 7 / @ 盚 ] D > ? `
H 1> + ` L 盚 c W H 8 4 4 D 8 rU X $ ` $ A ` $ ` 4 ` $ ` n rU 9^ a^ 塣 盺 ^
4 1> Y> `I 8 盚 ] < > ?
@ 1> + ` D 盚 a W @ 4 P rU P $ ` $ A ` n rU 蒧 馹 ` y_
4 1> _ _ S R P _ 1 8 _ _ S R P _ 1 9 ( * _ _ S R P _ 1 a _ _ S R P _ 1 b ) - Y> `I 8 > ?
< 1> + ` @ 盚 羆 D 盚 賎 a W < 4 P rU P $ ` $ A ` n rU X a Aa ia 慳 馺
4 1> 筧 `I 8 > ? 0 ` < 貴 y Qb `
@ 1> 慪 ` D ? Y ib a W @ 4 < 8 @ rU P $ ` $ A ` 4 ` $ ` n rU ゜ 賐 c )c 乥
4 1> _ _ S R P _ 1 c _ _ S R P _ 1 d , . E _ _ S R P _ 1 e _ _ S R P _ 1 f + 3 \ p
[ _ ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q S T U V W X Y Z \ ] ^ q a b c d e f g h i j k l m n o r s t u v w z { | } ~ Qc `
8 1> `I
< 1> 慪 ` @ ? Y / D ? Y ic H ? Y L
L 1> 乧 ` P ? Y 慩 T ? Y X > 9 ? 0 ` \ ? Y 9d ` 貴 y 馲 `I h W W < 8 4 L ` X ( rU l $ ` $ A ` $ ` $ ` $ ` $ A ` $ ` n rU e Ae ie 慹 馾
4 1> 筧 `I 8 貴 y 筫 ` < 貴 y 裡 ` ` @ > Y ? 0 `I D ? Y qf H ? Y 塮
L 1> 慪 ` c W W L 4 < 8 < @ 0 rU X $ ` $ A ` 4 ` , ` y , ` y $ A ` n rU ! Yg 乬 ゞ 裧 1g 4 > ? 0 ` 8 ? Y / < ? Y yh @ ? Y L _ _ S R P _ 2 0 \ _ _ S R P _ 2 1 0 2 y F r m C h o i c e k f r m U p D a t e 1 7 D ? Y 慼 a 4 X rU P , `
&& n < 鎥 T 囻睗zF▓牑訔曃挝A^貞M晍Mq祌烒煓蟿B擋 (
炕 徢H忺\A砤昆 x
! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ 伙 徢H忺\A砤昆囻睗zF▓牑訔曃 ME P SP S S S 6" < < < 0 { 5 E 4 1 C E C E - D 8 1 9 - 4 D 9 1 - 9 5 7 A - 4 D 0 E 7 1 B 5 7 2 1 5 } { 9 F F 8 9 E 7 F - C F 9 9 - 4 2 8 4 - 9 3 F 5 - 2 0 E 1 2 8 D 1 1 F F 5 } 4 @ ` $ ` @ ` % 侢 % @ 凗 h % 偁8 % p @ X ( 7赺V $ * \ R f f f f * 1 A 5 f d a 3 7 c e 4 8 < @ D H L "
"
( 8 @
H X `
h x
"
A@r o ` @ 6 ! 8 ' Hk 8 : ! 8 ' Hk < ! 8 T T E ' Hk x > ! 8 ' Hk X A@r A@ o 8 6 ( 8 o 櫛 Attribut e VB_Nam e = "Frm Choice"
"
Bas0{ 5E41CECE -D819-4D91-957A 0E71B572 15}{9FF8 9E7F-CF9 J284-93F 5-20E128D11FF5}
d@Global婼pacoFalse 奀reatabl PredeHcla Id 訲ru
BExpose0Templ ateDerivCustomi襷婦
P Sub Can cel_Clic@k()
Unload MKHEnd
cmdOk If OptButto n1.Value` Then(*S爐dTyp亰0
Y-If 2 1U3243圞:Inser`tFM
O
]U@Form_Ac8tivbE^蜳= 脟 h 属 L 亲諪/ 趏硶爙]鍶碮萃G攪貦/歏v翲{褯v 爡禒J櫩">^R x 爡禒J櫩">^R聩哭 亲諪/ 趏 ME P SP S S S 6" < < < 0 { 7 D A 0 9 5 B 3 - 1 8 5 D - 4 A E 6 - B 4 5 9 - D D C D 4 7 9 4 8 7 D 8 } { 9 A 2 F B E 9 9 - 7 6 5 6 - 4 8 C 2 - A C D E - 7 B D 1 9 B 0 3 7 6 0 F } X 6
` @ i ` i8
% 侢 % 凗 % 偁H % x P 7赺V $ * \ R f f f f * 1 L 5 f d a 3 7 c e 4 8 < @ D " * ( X ` p x 8
R梊 ' 正在进行更新，更新后将自动关闭！A@ E U D k o 暠 Attribut e VB_Nam e = "frm UpDate"
"
Bas0{ 7DA095B3 -185D-4A E6-B459- DDCD4794 87D8}{9A 2FBE99-7 656-48C2 -ACDE-7B D19B03760F}
dGlob刟l婼paco False 奀r@eatabl Predecla DId 訲ru
BE`xpose0Templ丏erivCustomiz婦
Op tion 1li燾it
P%) Sub Us erForm_Q@ueryClE( Cancel A s Integer, Mode!
)
If= 0 The巒
&= 1 MsgBox " 正在进行@更新，A 蠼远`乇眨 eEnd If
,
p D q L 彿)嶏塐箯婸稣剗(闄P A侟%墌/ 敁郗1H乶蚯縔2 x 敁郗1H乶蚯縔2楈S╯侮JF "2t覮 ME P SP S S S 1 6" < < 0 1 0 { 3 E E B 3 D 3 0 - E F 8 D - 4 F 8 9 - B 9 8 F - 1 7 8 B 5 0 F 6 D 5 8 4 } { 9 9 E 9 2 8 7 D - 1 C 5 0 - 4 1 7 F - 8 1 F C - 1 7 0 5 2 5 8 9 7 E 2 F } ( % % " X ` $ ` . . , ` )/ % i2 P H % 侢x P % x bJ4 @ X 凗 偁 P T
7赺V * \ R 4 * # d $ * \ R f f f f * 1 @ 5 f d a 3 7 c e 8 < @ D H : $ " (
0 @ " H P X " p 0 @ H ` x
( @
` x 2
( " 0 8 H P X h ] 判断问道是否已经被保护p D A@r L o w o 8 X ' J & ! d $ $ 1 请输入脚注内容 ( * A@ | ` k X 如果封面保护，则解除保护 4!
zhangcheng 4B@ ' J d ' J k ! ! d B@l k ) 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@r o .
A@$ k o t Attribut e VB_Nam e = "Frm AddFoot"D
凚as0 {3EEB3D3 0-EF8D-4 F89-B98F -178B50F 6D584}{9 9E9287D- 1C50-417@F-81FC J0 525897E2F}
dGlobaBl孲pacoFalse 奀re atabl Pr@edecla I"d 誘ru
BEx0pose0Te mplateDerivCustomiz婦
D im Protect As Bo olean ' 卸衔实朗 欠褚丫 槐；
P 3 7 Sub c mdCancel _Click()
Unload M dEndI
Ok I耼Ccess% If Trim( txtJz.Text"") ThenC Msg Box "请 淙虢抛⒛ 谌", vb OKOnly +InformatioExitg(+If+A' 如果封面>，则解齼A 'Not (Act^Doc纔ment.腟@Typ羮wdNoG.LUnp胏 "zhangc :罏 Bz婣﨓B濧 膶7橇肗@0Sel +.R@e肵<> ""蘕
Move Left , 1?I ?俵:= ")1S, wd繣xtendG 萐ty鈍wd"!~n@VRefere嚴OSet L= -E s. ({'B!,` $Z'h 27D*t繽!-g!" " & gZcWindow. View.See k`^` Mai緉錖 8=媌'!Up窗体#a S?s(1)臯e " "
(
8 H P . X ( $
> ( " h "
. @ 4 P , ( @ H P p 0 8 @ X ` h p x ( 0 8 @ H P X h ( 0 P ` p x 0 @ P X ` x ( 0 8 @ H P , h . ( " 0 F X " F " F 8 " F " F " ` F " F " @ F h
(
2 0 h
, . P
! ! ! ! ! (! & @! h! x! ! ! ! , ! ! ! ! " " " @" `" h" p"
x" " " @ "
" #
# (# 0# " H# p# x# # # # # # # # $ 0 $ P$ `$ x$
$ $ $ $ $ $ % % % % % (% 0% 8% P% " h% % % % % % & & (& , @& p& x& & & &
& & 2 & ' (' " 0' 6 8' B p' ' ' ' ' ' ( ( ( ( " (( 0( F @( ( F ( ( ( ) ) () @) P) h) x) ) ) ) ) ) ) * (* H* X* x* * * * * * * + $ + 8+ H+ P+ " p+ + +
+ + + + ] d x r Dim InProcess As Boolean8 8 ] F ' J $ B
< ! 8 ' J $ B
H , J ' @ H , J k ( k ' J o A@r o ] 0 H ` 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 h k ` 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@r BKQY 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.Delete BKML 4% ! 0 0 ! ! 4% . B@H B@ ' Selection.TypeBackspace BKQY 4! % BKYY 4! % Selection.Delete k X k 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@L k ( 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! ! BKML C@ 9 9 q B@2 B@4
TOC \h \z \t" L " ' L ! l L d ! B@ ' zle,200-11-12,+4,用来控制禁止用户更新域 p B@l ! ( R B@2 % zle,09-06-08,+begin, 增加字体格式控制 w '' Set tempRange = ActiveDocument.Range(Start:=ActiveDocument.Bookmarks("BKML").Start + 4, End:=Selection.Range.End) '' tempRange.Select ''' With tempRange.Font ''' .NameFarEast = "宋体" ) ''' .NameAscii = "Times New Roman" ) ''' .NameOther = "Times New Roman" $ ''' .Name = "Times New Roman" ''' End With '''zle,09-06-29,将字体都改成宋体 '' With tempRange.Font '' .NameFarEast = "宋体" '' .NameAscii = "宋体" '' .NameOther = "宋体" '' .Name = "宋体" '' End With zle,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,增加表的目次 T
TOC \h \z \t" T " ' T B@4 ! l T d ! % . 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,增加进度条的位置 V 5 ( X % 5 ( A@ q
zle,2008-10-16,+end 目录 1 4% ! ?9 ?9 q H
目录 2 4% ! 9 9 q
目录 3 4% ! $ 9 t $ 9 \ 9 9 ^
祝p=
?$ 9 x b 9 ` 9 d 9 f 9 v 9 9 q p 目录 3 4% ( h 目录 4 4% ! $ 9 t $ 9 \ 9 9 ^ ffffff?$ 9 x b 9 ` 9 d 9 f 9 v 9 9 q s 5 ( ( X % 5 ( A@ q p 目录 5 4% ! $ 9 t $ 9 \ 9 9 ^ (\徛踵?$ 9 x b 9 ` 9 d 9 f 9 v 9 9 q 目录 6 4% ! $ 9 t $ 9 \ 9 9 ^ 呺Q告?$ 9 x b 9 ` 9 d 9 f 9 v 9 9 q 0 5 ( 2 X % 5 ( A@ q 目录 7 4% ! $ 9 t $ 9 \ 9 9 ^ {瓽醶?$ 9 x b 9 ` 9 d 9 f 9 v 9 9 q P 目录 8 4% ! $ 9 t $ 9 \ 9 9 ^ 呺Q ?$ 9 x b 9 ` 9 d 9 f 9 v 9 9 q 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 H k @ q 8 ' 'zle,2008-9-23,+end f B@l ! r( t B@2 & zle,2008-10-16,+begin,增加控制目次格式 ' 查找是否有 全角空格，如果有的话，则去掉 ! B@ ! ! B@ ! 9 d 5 ( d 9 9 9 9 9 9 9 9 9 q V T ! B@ 替换编号后面的半角空格为全角空格 4! MCMW ! C@ 9 9 q P & zle,2008-10-16,+begin,增加进度条的位置 5 ( F X % 5 ( A@ q zle,2008-10-16,+end zle,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 ( Z X % 5 ( A@ q zle,2008-11-12,+end * zle,090807,+beign,只替换每行第一个半角空格 ! B@ ! ! B@ _ B@^ f B@n ! ! d' \ ! 9 d , 半角空格 5 ( d , 全角空格 9 9 9 9 9 9 q v T ! B@ b B@h ! 目次、标准名称标题 zle,090807,+end MCMW 4! % MCMW B@ MCMW 4% B@ k zle,2008-10-16,+end ' J
Unload Me & zle,2008-10-16,+begin,增加进度条的位置 5 ( d X % 5 ( A@ q P A@r zle,2008-10-16,+end + zle,2008-11-12,+1，增加禁止用户手动更新目次 ! ( R o H 0 如果发生变化，则处理，将本接点的所有上辈接点选中 < 如果正在处理上辈接点过程中，则不要在处理上辈接点，避免死循环 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 8 o 0 ( Attribut e VB_Nam e = "Frm Content"D
凚as0 {8566E44 F-9ED9-4 94D-BF62 -811EE32 44356}{9 69446EF- 64DD-464@5-BE2D 5 4937F6D8F}
dGlobaBl孲pacoFalse 奀re atabl Pr@edecla I"d 誘ru
BEx0pose0Te mplateDerivCust恛miz婦
Dim a(100) As Iˊger
' I nProcess
BooleanSub P] nt(ByVal dx")
[ $i
i wIndxIf N宱t 8The 5 (a(i)@ Mod 1*>8 1 += 莾RA Whi b#
Lst剸.Selected
A2i - 1aKWendKE鄋d IfGc = 膫 c
P AfcmdC ancel_Click(刟Unl鄌ad M 槅
sOk
峯, APDstrtS厘ng, jHw, G飥G1T伭
萚'zle,20 08-10-8, +一个变翆 A upD 郈ount
10+0!RegO 園z O ,初始 化I= 7 + g_MC_b 9,*1, 将“章标 题”由一 级 变成 二级#- 前言、引言,1,参 考文献、鹚饕齽 @ 附录标识'@ +1''w 2C For !h0 To (dLi=*k 佅詇蟻F=& 郪!yp& ",!<&/q鈰< 3饗g@9-2燯if语 洌卸鲜 钦幕故~恰. < 2 *溕j@（郔注释 掉原来的 目录不分I8i %: &-/$ 2 ," '" & i(j鶢Z1)&(` eIz , 08@9` % 1, 使a能耿出蟸煮 CP Q q 2鹺 I E _38-3 1,_ _ 麃_ t.(_ )/乕u
&= 3焤 砕=c P1+袜B题,2,1, 2c>4#P +B_*1 ，分开增艏0M%[鱞 <1 4 矧, g獐詀b 乂t = NextsAU$Left( ,P Len )514~Trim(O) <> ""孡P= SaveSet ting "TC$S"ctPo(cump.寻, x"MC 眡M鄌veBKl侙炆`oStanda紃d01 Ak﹌marks.Ex@cs("BK餣Y")|W 拸
BKQ Con.Go@owhat0:=wd %, y!:=#gP K ey1gHomer g1Up wd昂agraph,氮GType?' ]D;2- 4,+1,定鍛浟偈眗ange!湥 来存放之前ai次的n\ei艫
!t 蘎?! BK
繼2,由5 :腵7c *2,箇删除方进K x７ u"D嗳t 姬9 Y= 1(`4r &3s33q.r酓,両:=g r.p'凢QfT褿 cQ7!'Backs羟 牰 Bookmark s.Exists ("BKQY") = False And Act iveDocumPent.蘗 fThen
' Sele 妎n.BD te
8E9 `If 'z le,2008- 10-16,+b egin,增 咏忍酰 允靖0Unload M atota2l 10 #Wi th frmUpDa E.Show| 0丒嶤end
1-24匭调整页@码格式I f!繀瘝 Un it:=wdCh aracter, Coun1)AProcessFontPag刱塯D=D S餿yle@`L憘罌 目次、标 准名称标0题")徢TypeText :="目 <" 媜0, +2,空两 龊鹤值木嗬胪Inse rtSymbol 艼Number:=8195,丷 code:=Tr ue, Bias:=膹/盼7咢
/HomeKeyMoveRig鄅t , {坵dS鄚enc` 1, wdExt 鑍耮u侰酅.Ad纃 Rang# , Nam MLD4BDefa ultSorti ngF@`ByL纎catio缞b乽Hidden0C雟0"!*侾郹graph ADstr@
"T OC \h \z \t""" &r C& F鄆elds
!o丅Empty,Z _c , Pre PveForxmat!肔Z- 11-12,+4 ,用来控 平褂没r⒂颍= 脣 = 緻 〡?!'廍"/3= 髑6 S(2+N,pBp]緾x 2笴A ,疌g煟C`0B@ 1， 9-1-8，* 4注释掉8砦骃In厾(" .Res繷 , "未找祤侥柯枷畎0|C秊燊Hi; ＼ r"
5Q1?Q`?Q?廝\u嘼Q馪表的!彊'Tb袘' '`h'Y d 镝条的位脫鈔o .La bel3.Wid卲=p't(86萊4.Cap1╜"CAQ30)`"%∝
DoEv牫s?ol宭 G衣监 1").v=cAq.Line≥Befor裰0.2s$ Af 俪 End Wipth
(x ActiveDo cument.S tyles(" 柯 2"). ParagraphFormatr.LineUn itBefore = 08Aft,er23唀f皌Ind fC ime ssToP oints(0)!圞Righ(Al榠gn寑-wd
圠 <,Hyphenation TrueFir宻t槢T.18 VOutl 睱ev el@ BodyHTex壢Ch 謈 ~O6塮J 薈 }/1H7佗丯 oSpaceBe tweenbsO`fSame偖IF竌ls腲薰4?樝A腂??榥tA捖.35 Lne"N Lo L LFV27* L鄲V崹@frmUpDatisLab el3.Width&Int(11兪$"4.Cap CStr(40)@ + "%"D鑟Ev 恠#煗p畮5Q煗& .Qj濄
煗A6f9sQ53QQr煗E㈦!Q3G<咿|Q =6AAAr .呖 鱒弌弌".廲 q z.71 cH 9w弌弌弌O 鋛 % 鷔 4 /惏"O 敇X I .I(144iIqI5II'Xw窢7(麚a.蕟 O極榩?浡((IO極橊睥.89((?r2>.#z((/+ra麉-(5)锔簿Q (邇j I 8_ S8O#L#鱛 _ .遡H
_纒(1.07_ _ _ 2_ 禿_ _ _ _ 鷈6)_ _ II 'zle,200 8-9-27,+8endS 10 -16,+beg in,增加 忍醯奈置%進進Q椳72)進袽6進進螿
''3 使页码 右对齐
[Rc逽譙13.TabSt ops.Clea0rAllO tAdd PHosiq:=-壍 tersToPo ints(16. 3), Alig nment:=wd0TabRig ht, Lead er` L0Dots
ActiveDocu .Styles( "目录 2" ).Paragr aphFormat. FStops .ClearAll@JAdd Po sition:= 蒳mej3莟%t4:厙:}5:E::}:6? tC~Z ? ??97? ? # Z ? ? ? 9 8? ? # Z ? ? 7 1嚸If 蔉ield`蒾unt > 10 Th en佋'保籤ご疤逅 S2e 賝n犫謗o2ted` s = True,@ i@2 To |.Ca 7i!FalsNe,xt,
P P assword: ="zhangcPg", NoRese
, Type:= _
憗lowOnlny +PC ommandBar蠵要素及排版)Vis0ible/ ClsEv爘.Cm dPROTECT C.FaceId9!77/ Capq0"取消 "End I f; Wit h
''A
'z le,2008- 9-23,+enFdS SelS . MoveLeft`S0
ence, 4, ExtVFont.Sp燼cing 01KeySG10 -16,+beg in,增加 刂颇看胃袷矫$查 沂欠裼 全角空格 ，如果有 的话，则0去掉h in芼儧1 att ?0Repl";Q a.T觻- .Ic0war!2.WrapwdF? 岌 MMatchCase.WholeW荘5Byt汣岽ildc
慐S`CdsLik #俺 \g*冄Execup 〗 聘'替 换编号后@面的半s" #c lGBoo爇markx.乥Nam餎"MCM鶺繥RH Sb ShowHidden\DefaultSorA( wd ByLo|ca?s22 忍醯奈恢茫
frm UpDat╓.L abel3.WidthInt(0@)S 4. CStr(70) + "%8+Do2Nt
肊t=vBh 1-12?Dim strTempp As p6:e= "$$os 餒ome&F盠裔L1蚅0< >F3 衎In, "（资料 愿铰迹" ) <> 0 O剅 规范?迉栰O!餈Ch0靋痄 [
鳮乻郆acks [" O坋GUp0L鬷na1& 0阴 'p櫞巍⒈ 曜济票晏"ot Ex0it D 独 If
Loop Whi le Mid(s trTemp, 1, 3) <> "附录A"Select ion.GoTo what:=wdBookma rk, Name:="MCMWx With frm繳pDateJ .Label3.Wid = In@t(258)
!4.Capv = CStr(90)` + "%_KDoEvents;0End u
'z le,2008- 11-12,+e nd 0908 07,+beig n,只替换 每行第一 个半角空 格噧Find .ClearFo rmattingReplace蝝QDog0HomeKey
MoveRig@ht wdS ,ence鄔dEx>tr' PGRa nge.Text俲7 " " 'KJN.? ' 全 X
@Uwarbd@ Tru垘.怶rap@wd)pStop*僤@Fals
Matc hCaseWh`oleWo B|yt (K爜+KU.郋xecu F裂9On*G
A{Up駙zLin亂;C1
Sty 鳤竽 次、标准 名称标题 侳 If A}veDocu 釼e|sists(億) Then 縿▌A%
.>D 怑圓,艢H|0-16N|InProPcess='Unload M$.begin, 黾咏忍醯奈恢胏 'be邭脷85邭10氶殑LW!(銧1，B褂 户手动更 新AEC IFie lds.Locke莙A0Sub
@
Priv牷 LstCon 恡_Ch( '如果发 浠瘈虼 恚 窘拥愕乃猩媳病0选中正 在过程勚衼不要k ，避免死0循环C燳Not`1錊kVDim i As5ege r!D = 0& .L `Count - 1A`
c(ed(i
eaa DPar皋 閈N&%ａ 0Use乱_耲a
'填硛浔匮∠顏1!Txt`
禲前@言、引Q 卤B、褉、" & Chr(10& "参考 文献、索 引E6拠'通 过a的值 慈范ǜ缸 庸叵 , 嗤 为眝家族 鑫皇 酱蟊卜衷降蚐Add Item "一惣短8Ma(4= 1? "稈>1)蠥12﹗三>223?5四> 4?5五>4r5?5da(512?v1(6rz(7rzy?(8rz(9r?z(1!L26图$1蛼!3表 b!4罞RegSt rF` F= G
e 8t眩("TC楽",絯Q, wy""銽F~"|x?M>1 ?M耑?M 鹈燪 (1, 3, Trim伱K)"0R殌7貾>=M%M罭 iq SQg l \
愭 \ (a\C歳兡
ty-I<甗擬绰vvO#鷛O!B噚待h kq 薎j@I.呛 圐 x kq 薎j@I.呛 圐(a\C歳兡
ty ME P SP S S S 6" < < < 0 { 3 C B C 4 9 2 D - 5 B A E - 4 D 9 4 - B 4 C 2 - 0 7 7 6 7 6 4 F F F 2 3 } { 7 8 F A B F A F - 2 1 4 F - 4 2 7 F - 8 7 7 8 - 8 0 B 4 F D 1 1 6 8 8 7 } j
H 4 @ H ` 8 s " ` $ ` " " `勡
8 ` @ ` `勡 % 侢 % b
6 @ b
8 @ bJ: @ 凗 % 偁 % ` 8 H p `
( 7赺V $ * \ R f f f f * 1 E 5 f d a 3 7 c e < @ D H L P T A & 0 8 " @
H X " ` h p &
8 H P X h
2
( @ H P
X h " p x "
0 H
h x ] ] 初始化时不修改本文框内容\ ] ] H ` A@r E U D o ' J 4! x
zhangcheng 4B@ ' J d P ' J k @ ] & ! d
!
, V 4! 5
% V 7 6 ! ( d q J 保护窗体 4% ( 4! ! 4% ( @
zhangcheng l 4B@
要素及排版$ ! 0! ( 取消保护 0! ( k k ' J A@r o
| x k p
& ! d
, V k @
!
% V & ( d
!
'
o 8 ] x '
'
4! 5 7 6 ! ! d
B@| q '
o p h Attribut e VB_Nam e = "Frm EditFoot"
圔as 0{3CBC49 2D-5BAE- 4D94-B4C 2-077676 4FFF23}{ 78FABFAF -214F-42 7F-8778- 80B4FD11 6887}
dGlobal峉pa俢oFalse Creatabl Predecla Id 諸ru
BExpose0Templat@eDerivCustomiz婦
Dim Ori As In teger IniLst Boo lean '初 始化时不 修改本文 框内容
Public A dd%%ProptectO2 P Y ] Sub c mdCancel_C $k()
UnloadD M EEndA
&
@ Ok
InacessTI f Not (Act@JDocument.&ionTyp乮wdNo) Then##ALUnp6 "@zhangc g妬
f胿AE夾 剎;I6fC 羒iJhAls tJZ.List(Index)@>txtJz.TextWith /knfs For i1 To .Coun .Item(i).R;e儉 "i - 1膐 N iC5" CC f嘆K['保阑ご疤#
MS郕7s(1)誩9ePrm @2!E ! @ 9 $ PasswoPrd:=蒊, WR@eset:=aH, !U:= _
wdAllowOnlyFiel d(;G.Com mandBars ("要素及 排版").V8isi1!ClsEvgCmdP ROTECTC.艶 犫2770Capt`6繤"萨∠麃 - e*(aDq
'u i' '儂!宓=
G
㎝se耡_熲] = 柟g-1繅& 郟锘塩嗥 p嬅
yDth v P SP S S S 6" < < < 0 { 3 7 2 C A C A 0 - D 8 E 8 - 4 F 4 3 - A 8 E 8 - 7 6 2 C 4 4 E 7 5 8 0 9 } { 6 6 6 4 9 D 4 3 - 6 4 9 C - 4 E E 2 - 9 5 8 0 - A B F 8 2 C C 0 3 9 1 6 } ` " @ ` $ ` % 侢 % @ 凗 % 偁
P % p @ ( P 7赺V $ * \ R f f f f * 1 H 5 f d a 3 7 c e 4 8 < @ D
"
"
( 8 H P `
h x A@r e r s o ` @
! 8 o c a B@ g d 0 B@ G k A@r T T E o a Attribut e VB_Nam e = "Frm FootType"
圔as 0{372CAC A0-D8E8-@4F43-A7 62C44E75 809}{66649D 6 C-4 EE2-9 2-A BF82CC03916}
dGlobal峉pacAoFalse 奀reatabl Predecla Id 諸ru
B繣xpose0 Template DerivCu@stomiz婦
P Sub cmdCanc el_Click ()
Un@load M KE$nd
Ok If OptA dd.Value Then')
佫.Show :1
EEd蘨t !IfC & R ` p D g稽塉.Nof攐= -鞱扣`k阬,w 闄\瞞傴J/(Hx=R x 闄\瞞傴J/(Hx=Rg稽塉.Nof攐 ME P S" S S" 0L( 0L , f r m M a r k I n d e x ` T h i s D o c u m e n t 8 : Y F _ V B A _ P R O J E C T ; y \ f r m D e l e t e I n d e x F m1 h 翞L)'AO柅 脖:fVz覽@0癕﨟[ 碏岼 L俉
0儡 y晒X\8I哸6笽t x y晒X\8I哸6笽t ┝濴)'AO柅 脖: ME P SP S S S 6" < < < 0 { 5 6 6 6 0 7 E F - D 3 7 A - 4 0 5 B - A 4 3 0 - B 0 4 D F E 4 8 1 5 5 B } { 8 D 4 6 B 4 1 F - 1 D 4 A - 4 C 1 3 - 8 2 5 7 - 0 A A 0 3 0 C 0 D C F 7 } " @ ` ` 8 8 @勵
` ( ( @勵 "
H ` ! ! @勵 &
` ` @ ` 8 0 % 侢` 8 % @ H 凗 % 偁 % 8 l p 7赺V $ * \ R f f f f * 1 J 5 f d a 3 7 c e 4 8 < @ D H L P T X \ ` "
( " 0 ( 8 ` h & & ( 0 8 H P ` p @ X h x
:
( 0
8 H ( P x " " ( 8 @ H P X ` h p x
<
( 8 @
H X ` h " p x " 6 & P x < 0 @
H X ` h " p x "
"
(
8 H h x A@r 7 \ ' Ro P @ " zle,200812-1,+1,防止对封面进行处理' J 4! !
% . % , StandardName B@ b B@2 k ( k R StandardName B@ b B@2 ' Rd R ' R k ! B@ ! $ $ 9 d 5 ( d 9 9 9 9 9 9 9 9 9 q ! ! ] R ' R & 该词没有在文中出现，是否查找新的词语？ TCS $ ' ( d d A@r k h d ` ' R 已经完成查找，是否查找新的词语？ TCS $ ' ( d d A@r k k d
( " k " zle,200812-1,+1,防止对封面进行处理 ' J o x ! d' Z ' \A@ zle,09-06-18,*1 cmdMark.Enabled = False ! B@ ' J ! $ $ 9 d 5 ( d 9 9 9 9 9 9 9 9 9 q x ! !
( " ' R] " 已经完成标记，是否标记新的索引项？ TCS $ ' ( d d A@r k d
( " k ' J o ! d' Z ' \ zle,2008-11-17,+4,显示进度条 9 9 Jq ( ( $
(
X % ( A@ 0 'zle,2008-12-2,+1,禁止在标记索引项时点击窗体 frmMarkIndex.Enabled = False A@ 9 c 9 Jq ` T 该词没有在文中出现A@ d ( ] 0 " 已经完成标记，是否标记新的索引项？ TCS $ ' ( d d A@r k k o H o ' R ! d$ $ ( " (
( " d 0 ( "
( " (
( " k o ( "
( " (
( " 刚弹出来时，不看到进度条 With frmMarkIndex .Width = 237 .Height = 108 End With ( $
0% ( o Q Attribut e VB_Nam e = "frm MarkIndex"
孊as0{56660 7EF-D37A -405B-A4 30-B04DF E48155B} {8D46B41 F-1D4 JC1 3-8257-0 AA030C0DCF7}
dGlobal嶴pacAoFalse 奀reatabl Predecla Id 譚ru
B繣xpose0 Template DerivCu@stomiz婦
Option 1licit
P#' Su b cmdCan cel_Ck()
Unl`oad MTg _SLFirst亐_0
End %FindNext&'zle,2 00812-1, +1,防止 苑饷娼 写韮 InProcess艻丄 If Act> Document .FormFie lds.Coun t > 10 ThenD
Sele on.Inf艀 a丅(wdC@1 PageNumb鑕r)@ 1LA GoTo wha t:=wdBoHokm , 亪: ="Standa黵d罀 @ Key wdLi巒DW IfC/呱>
_(' & >1D(偭7 + @媴6A.Clearsatti刵g With
.Tex Trim(txt'刅Reece勐Dd"1AGw`4
L!WrapwdStopC鋝MatchC儜rWhole榃or坽By牉 = KWild.c` S`_dsLikh廗All丩!- 繪L3怑xec= B霳Dim Res鴓on帷e孶駃iE % ,Msg Box("该 拭挥性谖 闹谐鱿郑 欠癫檎 倚碌拇视 铮", vb YesNo, "餞CS"鐰 h Ba J)G﨓阇!a 尌蓌a!;!已经鹜瓿蓙 &窟 俶 "荎"癶.EnAl3W1Y飀飀Rl閐4q沺o痥dkkg_褽'TD!S3g_AOr P6@+銷!rIte ms 09-0@6-18,*'T
疪疪rTdcT鄷TT0 TTBA黰aq[TGT T.TA1 T"TO$T.d.T諌7 B 廥疶"誄标记覥 丄T索引项oT雐T/Ts緾 颯
逴B窤A饢A E哶1_?怜:0 ?籔1?x鸪?2
fI-11-17, +4,显示洁忍#9y虲c!.Widp= 245XHei膅h3138c w'lbl.BackColorpH&HFF0 佌Int(18>AJD.Ca#= CStr(10@) + "%D揇xoEv 穩L"KH2-2奔禁止诹$$时点粈鞔疤
"嚣./S w?q 237C99S ,g_Zh畊v ,cv ?囍咚(7A77駨7嬶1 77 7$ k 7Ky艉迱狿4 Label6'3魼_Chan ge佩OM/ If Trim (txtInde x.Text) <> "" Th en
cm@dFindN . Enabled = zue
FMarkAllDEls X燜a
$QN # r#End
Sub
Private UserFo@rm_Act
()gw, 桳朖 '刚弹出 词保豢 吹浇忍
'伔Wit鄅 frm0虅 !
.Wid= 237 Heig膆t108 z#%ilbl .B ackColor1 &HF JD .Caption!@"0%"JN
6" < < ( 1 N o r m a l . T h i s D o c u m e n t 0 ` @ r s % % % % . ` % H "& 4 @ "*8 8 @ 凗 偁"( @ @ 0 H 7赺V * \ R 3 * # e f * \ R 3 * # e c $ * \ R f f f f * 1 = 5 f d a 3 7 c e < ! % " & @ B h , . 0 H 2 ` " @ X h , p X " 8 H h \ x H * 0 ` . " x ] ] Private Sub Document_Close()L o w Dim cmbNewMenu As CommandBarU ; Set cmbNewMenu = ActiveDocument.CommandBars("Menu Bar") & 'zle,2008-9-28,+3,可以修改菜单 With cmbNewMenu ( .Protection = msoBarNoProtection End With
'退出删除菜单 , For Each ctlPopup In cmbNewMenu.Controls y If ctlPopup.Caption = "添加标准要素" Or ctlPopup.Caption = "标准文本样式" Or ctlPopup.Caption = "附录及排版" Then ctlPopup.Delete End If Next % For Each cmbNewBar In CommandBars R If cmbNewBar.Name = "标准编写工具" Or cmbNewBar.Name = "标准文本样式" Then cmbNewBar.Delete End If Next Dim i As Integer i = 1 U Do While ActiveDocument.CommandBars("Menu Bar").Controls(i).Caption <> "文件(&F)" A ActiveDocument.CommandBars("Menu Bar").Controls(i).Delete Loop $ 'zle,2008-9-28,+3,不允许修改菜单 With cmbNewMenu ' .Protection = msoBarNoCustomize End With End Sub @ 4! 6 0/ 2 o 滩 Attribut e VB_Nam e = "Thi sDocument"
孊as1Normal.VGlobal!猄paclFalse reatabl Pre decla Id 濼ru
BExpose Temp lateDeriv$Custom iz凜1Option .lici t
Dim c tlPopup As Comma`ndBar m0bNew
'P @ D Sub" 叝_Cl ]() 0 Menu Set c= Act l(b.Js(""E"0 'zle,2 008-9-28 ,+3,可以 修改菜单酓"WithD.Prote 繤 = msoNo
End '退出删For EafcTIn1n`trolsD IbfF_.Cag 砑颖曜家" Or 文本样 附录及 排版" Th en 厏.De鑜et 'A :DIf Nex缞'顳9耹繨 :i 78E .E鉇.编佬垂ぞ逤.7Q. .a!QiPInteger
i p1dDo W hi w?Par")F:(i`7<> "文件(&F>)`&*_
N
JLo op蟏不允 ^ ` ^E嗗@囪]A|
r~pOpenA~ 羪ClsEv.Td餾App@, @a翍
( H @
} l R 憦濄 K窺 恄 宋体 e $ < CmdOK " ( < CmdCancel ( ] $ P OptGFh芉{ $ P OptZLh芉( ( 2 < lblTitle $ 0 蘟 ,* \ G { 0 0 0 2 0 4 E F - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } # 4 . 2 # 9 # C : \ P r o g r a m F i l e s ( x 8 6 ) \ C o m m o n F i l e s \ M i c r o s o f t S h a r e d \ V B A \ V B A 7 . 1 \ V B E 7 . D L L # V i s u a l B a s i c F o r A p p l i c a t i o n s >* \ G { 0 0 0 2 0 9 0 5 - 0 0 0 0 - 4 B 3 0 - A 9 7 7 - D 2 1 4 8 5 2 0 3 6 F F } # 3 . 0 # 0 # C : \ P r o g r a m F i l e s ( x 8 6 ) \ W P S O f f i c e \ 1 1 . 1 . 0 . 9 3 0 5 \ o f f i c e 6 \ w p s a p i . d l l # U p g r a d e K i n g s o f t W P S 3 . 0 O b j e c t L i b r a r y ( B e t a ) * \ G { 0 0 0 2 0 4 3 0 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } # 2 . 0 # 0 # C : \ W i n d o w s \ S y s W O W 6 4 \ s t d o l e 2 . t l b # O L E A u t o m a t i o n <* \ G { 2 D F 8 D 0 4 C - 5 B F A - 1 0 1 B - B D E 5 - 0 0 A A 0 0 4 4 D E 5 2 } # 6 3 . 1 # 0 # C : \ P r o g r a m F i l e s ( x 8 6 ) \ W P S O f f i c e \ 1 1 . 1 . 0 . 9 3 0 5 \ o f f i c e 6 \ k s o a p i . d l l # U p g r a d e W P S O f f i c e 3 . 0 O b j e c t L i b r a r y ( B e t a ) * \ G { 0 D 4 5 2 E E 1 - E 0 8 F - 1 0 1 A - 8 5 2 E - 0 2 6 0 8 C 4 D 0 B B 4 } # 2 . 0 # 0 # C : \ W i n d o w s \ S y s W O W 6 4 \ F M 2 0 . D L L # M i c r o s o f t F o r m s 2 . 0 O b j e c t L i b r a r y * \ G { B 1 3 0 C 8 9 C - A 7 7 D - 4 0 B 8 - 9 4 F 7 - 1 D D 5 8 D F 0 E D 3 8 } # 2 . 0 # 0 # C : \ U s e r s \ 亪R梊 A p p D a t a \ L o c a l \ T e m p \ V B E \ M S F o r m s . e x d # M i c r o s o f t F o r m s 2 . 0 O b j e c t L i b r a r y .E
忇.`孧 * \ C N o r m a l * \ C N o r m a l 赺 7赺V
T h i s D o c u m e n t 1 = 5 f d a 3 7 c e # T h i s D o c u m e n t v M d l T d s 1 > 5 f d a 3 7 c e 8 M d l T d s 錛 0 C l s T d s 1 ? 5 f d a 3 7 c e ? C l s T d s 4 0 4< F r m A d d F o o t 1 @ 5 f d a 3 7 c e ! F r m A d d F o o t 麹 H / F r m C h o i c e 1 A 5 f d a 3 7 c e 9 F r m C h o i c e 鎥 ` F r m C o n t e n t 1 B 5 f d a 3 7 c e F r m C o n t e n t ip x lM f r m D a t e 1 C 5 f d a 3 7 c e f r m D a t e 涱 r f r m D e l e t e I n d e x 1 D 5 f d a 3 7 c e f r m D e l e t e I n d e x > F r m E d i t F o o t 1 E 5 f d a 3 7 c e F r m E d i t F o o t 愭 b
F r m F L 1 F 5 f d a 3 7 c e 3
F r m F L ~0 f r m F L B S 1 G 5 f d a 3 7 c e
f r m F L B S F r m F o o t T y p e 1 H 5 f d a 3 7 c e
F r m F o o t T y p e q J
f r m J z 1 I 5 f d a 3 7 c e ]
f r m J z d0 { f r m M a r k I n d e x 1 J 5 f d a 3 7 c e f r m M a r k I n d e x m1 8 F r m T a b l e 1 K 5 f d a 3 7 c e S F r m T a b l e - P f r m U p D a t e 1 L 5 f d a 3 7 c e f r m U p D a t e 属 h x 0 P 8 h ` H Q亳洈sVL吧{<:攸O 傜Vn传燤
o獕巴 w膞斒!DKv氨# +T\x佹sS洐 ~俫 授@梂
|eG鹹 冇/圠嬰$鯆癟 #疎忨s 甐燴H接央廍6 V^tW袿朒d銴帼 辆鉩鷞扥淒A"rv 鏃挘B%H篭P戹r @涪I穝鼛N 僅 詐W&蒜 Lx ^ G`G鲛&'D堲Q′鬽: 躏S渕 A籑&W魯 x 2/D Word祂` VBA麾` Win16羱` Win32` Win64x` Mac巢` VBA6#` VBA7#` TemplateProject丒` stdole揱` Officeu` MSFormsC` Normal哓` ThisDocument<瀈 _evalsuate賎 ctlPopup喢` CommandBarPopup
` cmbNewBar径`
CommandBar`
Document_Open翂` ( ClsEvent` TdsApp` ActiveDocument覾` Application*` MdlTds ` ( ShowTip:'` ( OnePage愼` ClsTds` ( ShpDT` Shape耟 ( ShpLB` ( ShpRQ` ( StdType僲` ( InProcess鞫`
( OriFldName泴` ( g_rowNumo縛 ( g_columnNum窉` ( g_SLFirst麦`
( g_ZhuFirstk違 ( g_ZMFirstl盽 ( g_SZFirst!` ( g_IndexText ` ( g_MarkOrAllw蝋
( g_strTitle棃`
( g_MC_Count蕧` ( g_SYGS蒊`
( g_DelIndex偙` ( g_DelIndexTextC[` ( g_FindCount鏰` StrTypeAh` strLetter` strFirCharacter:*`
( InsertMenu 餪
cmbNewMenu銈` cmbNewBar_YS"塦 cmbNewBar_CBw哷 cmbNewBar_YY$塦 Cmd鰚` CommandBarButton9觍 StartStatus@違
GetSetting鮜 MsgBox桼`
vbCritical+}` Version∨` CustomizationContext蝷` AttachedTemplate戙` CommandBars
`
Protection刞 msoBarNoProtection 鯼 Controls蘇` Captionx` Delete竫` Add鱮` temporary栛` msoControlPopupl)` Before夀` FaceId蔵` Style舙` msoButtonIconAndCaption1l` CmdFm軒` CmdMc諒` CmdQy{恅 CmdYy慲 CmdFl蹘` CmdCkk巂 CmdSy艕` CmdBJSYX鉄` CmdSCSY芗`
BeginGroup壎` State` msoButtonUp6漙
CmdTwoPage1瞏
CmdPrtPreview堽` CmdPRINT崙`
CmdPROTECT靸` CmdUNPROTECT錸` CmdFmCT萡 CmdMcCQ靈 CmdQyC` CmdYyCt` CmdFlC/萡 CmdCkC穈 TooltipTextb?` CmdSyC` CmdBJSYXC!` CmdSCSYCｈ` CmdTwoPageC糮 CmdPrtPreviewC:媊 CmdPRINTCV` CmdPROTECTC` CmdZtitle}`
CmdTTitle1`j`
CmdTTitle2aj`
CmdTTitle3bj`
CmdTTitle4cj`
CmdTTitle5dj` CmdTTitle1F觢` CmdTTitle2F鴏` CmdTTitle3F m` CmdTTitle4FBm` CmdTTitle5Fgm` CmdDG砢 CmdLx1镩` CmdLx2痖` CmdLx3耖` CmdLx4蜷` CmdLx41豪` CmdLx5箝` CmdLx6糸`
CmdZtitleC曎` CmdTTitle1C衛` CmdTTitle2C鮨` CmdTTitle3Cm` CmdTTitle4C?m` CmdTTitle5Cdm` CmdTTitle1FC奐` CmdTTitle2FC鉕` CmdTTitle3FC` ( DBTag3鱜 ( QBTag鋉` wdFieldFormDropDown抰` DropDown` ListEntries-` Clear阃` Shapes<` AddLine8`
LockAnchor浃` RelativeVerticalPosition嘡` wdRelativeVerticalPositionPage櫸` ZOrder」` msoBringToFront苨` CentimetersToPoints铮` gpathb` InlineShapes贇`
AddPicture坄 FileNamej胉
LinkToFile ` SaveWithDocument躓` AddShape,` msoShapeRectangle酄` msoFalseF.` msoSendBehindText)` what酑` wdGoToBookmark` SplitSpecial鮜
wdPaneNone= ` Panes閌 wdNormalView閲`
wdOutlineView輐` wdPrintView(轥 wdSeekCurrentPageHeader; HeaderFooter醏 IsHeader\蝋 wdSeekCurrentPageFooter萇` Fields7ー wdFieldPage*` PageNumbers` NumberStyle` wdPageNumberStyleArabicK4` HeadingLevelForChapterr ` IncludeChapterNumberxK` ChapterPageSeparator?錪 wdSeparatorHyphens誤 RestartNumberingAtSection玚 wdListLevelAlignRight1誤
ListFormat4J` ApplyListTemplate8揱 ListTemplateR鯼 ContinuePreviousList蹕` ApplyTo裀` wdListApplyToWholeListE/` DefaultListBehaviorO梎 wdWord10ListBehavior5` ( InsertTextNote篆` ( InsertTextMulNote3鬬 ( InsertTextFirNoteH╜ ( InsertTJ` ( InsertPJ6` ( InsertFirstTTitle)l` ( InsertSecondTTitle颽` ( InsertThirdTTitle蕌` ( InsertForthTTitle蚗` ( InsertFifthTTitle$` ( InsertZTitle郌`
( InsertExample7 ` ( InsertMulExample` ( InsertFirExample僬` ( InsertExampleContento歚 ( InsertParagraph婶`
( InsertTWJz 瞏
( InsertTBJzG` ( InsertFigTblFooter蠔` iCountl`
wdWithInTable籘` wdParagraph睭` ( InsertFigTblFirFooter芩` ( InsertFlZTitleI誤 ( InsertFlPTitle` ( InsertFlBTitle8腵 ( InsertFlTTitle19]` ( InsertFlTTitle2:]` ( InsertFlTTitle3;]` ( InsertFlTTitle4<]` ( InsertFlTTitle5=]`
( InsertFlBs玚 ( InsertReferencesG` MoveBK<甡 ( DesignIndexTCS睵` Res蝋 ShowHiddenText醟` Findn餪 ClearFormatting)` Replacement 芵 Forward┾` WrapWy`
wdFindStop'f` MatchCase囄` MatchWholeWord瞂` MatchByte胹` MatchWildcards` MatchSoundsLike0` MatchAllWordForms炦` ExecuteY蚡 vbYesNo 漙
vbQuestion室` vbNo%` ( ProcessIndexFormat/` ( InsertIndexPage诀` wdStory&` ( InsertLx1S` ( InsertLx2S` ( InsertLx3S` ( InsertLx4S` int_Title枾` int_ZmBh闽`
( InsertLx41鰦` ( InsertLx5S` ( InsertLx6S` ( InsertSy1x` ( InsertSy2x` ( InsertSy3x` ( InsertSy4x` ( InsertSy5x` ( InsertSy6x` ( InsertSy7x` ( InsertSy8x` ( InsertSy9 x` ( InsertGT` ( InsertTab歾` ( ProcessPrintMA` Item讂` Shaded黗 msoBringInFrontOfText0阘 HaveBAH鸧` ( ProcessEdit 躟 ( FieldNulla刞 SourceStr鰮` Asc!u` pic婷` InlineShape錐` Height|媊 ( ProcessFontPage脥` wdPageNumberStyleUppercaseRoman`` ( InsertTableQ蝋 FrmTable矆` Tble歚 Table侎`
Charactersrg` wdLineStyleSingle慲 LineWidth/U` wdLineWidth100ptっ` wdColorAutomatic鱜 wdBorderHorizontal箺` wdLineWidth050pt
` wdBorderVertical:恅 Rows` Cells峘 Mergeq_` EndOf泍` wdTable瞧` ( InsertEquationR`
LeftIndenti抈 CharacterUnitFirstLineIndent薻` FirstLineIndent` AddOLEObject ` ClassType穈
DisplayAsIcon篳 wdAlignParagraphCenterl焋 ( InsertEquationNum)醏 FindText` ( InsertFLEquationNum1` vbTabc9`
CaptionLabelsQo`
InsertCaption燯` Labela`
TitleAutoTextt鑐 Title騸` wdCaptionPositionBelow@腵 ExcludeLabel` i_Firstu` i_Second舼` wdFieldEmpty涚` PreserveFormatting=` Update尹` iNumF` iNumS` xh誣` gxp]` wdFirstCharacterLineNumber[衊 wdGoToEquation#` Which
wdGoToNext褀` ( UpdateFieldTCS` ( UpdateEquationNumTCS%` tempRange４` frmUpDate阘 Label3,` Label4,` fieldsCount'` Val葩` ( PrintPreviewTCS絶` PrintPreview讳` ( InsertCharactergu` ( GetSecNum邽` str椪`
tempSelRan車`
iCountPara:` strLength9.` strIndexA` ChrK~`
vbTextCompare Q` ( InsertFirTitle'h` ( InsertSecTitleA ` ( InsertThiTitle焆` ( InsertForTitle随` ( InsertFifTitle_g` ( InsertFigTitle~` ( InsertTblTitle #` ( ShowfrmMarkIndex3縛 frmMarkIndex` ( DelBeoforeMarkAll` findFlagtj` ( MarkIndexItemse豟 strTitle1屩` strTitle2嵵` ( GetIndexTitleSignleD礰 Indexes垧` MarkEntry|2` Entry┫`
EntryAutoText蒔` CrossReferencef鑐 CrossReferenceAutoText=` BookmarkName'` Reading蛝` lblWid蜒` lblJD鈂` strZW裝` strFL鉥` strTempDui<` inCrementWid儝` inCrementCap+` strTitleArry苵` ( GetIndexTitleAll霡` ( GetIndexTitleBasedonUnTitlez絗 inWidt ` inCap` tempWid `` tempCap堸` tbSum ` flTbSum
羆 iTableCount笙` kb` celTablelJ` Cell瘔` celRangef` Start` myRange-` ListParas貜` ListParagraphsB塦 myString` SetRange`
ListString'7` str_Find斯`
str_FindIn抈 str_FindText癢` int_Count詾` str_FindDot 臽 ttM_` ( InsertTCSIndexhJ` WordBasic駫` FormatField僁` Field3` Locked ` Replacef` wdReplaceAllu#` strNum+` lengthY腵 strTempM` strZWZTitle筇` strFLZTitle痯` strTable﹔` strGraphq%` strNew)` strNewLength湜` flag淊` strF[5` strSh5` IsNumeric$*` ( ReSortIndexByAscend"` Unlink0` Documents` Activate梶` TextToTableS` ConvertFromT謄 InitialColWidthO坄 wdAutoPosition1昤 Apply,齚 AutoFit& `
SetDefault蠈` Word88`
iTbleIndex:` iRowCount:瀈 syType鏼` strItems情` orow` Row壪` Sort`
ExcludeHeader` FieldNumber`
SortFieldType0l` wdSortFieldSyllable莸` SortOrder4榒 wdSortOrderAscending5K` FieldNumber282` SortFieldType2R轥
SortOrder2赌` FieldNumber392` SortFieldType3S轥
SortOrder3纺` Separator盺` wdSortSeparateByCommasG譧
SortColumng恅
CaseSensitive╱`
LanguageIDㄡ` wdSimplifiedChineseWg` SubFieldNumber兽` SubFieldNumber20` SubFieldNumber31` strRange1]` strRange2]` strRange3]` InsertRowsAbove[癭
ConvertToText,衊 wdSeparateByParagraphs
` NestedTables+礰 RemoveSmartTags&o` ( ShowfrmDelIndex3` frmDeleteIndexS`
( DelIndexItems鸰` ( PrctTCS*郹 ( UnPrctTCSg竊 ( DeleteDuplicateMenu ` cbIndex蚊` cbString陊` wdActiveEndSectionNumber` CmdGZ廯 CmdGZC幭` CmdLx51呃` CmdLx51C觸` CmdLx6C羆 CmdGXGsC<` CmdCk_ClickY Ctrl内`
CancelDefault` CmdCkC_Click曶` Right
`
CmdD_Clickm蝋 CmdDC_Click|穈 CmdDSl_Click-頯
CmdDSlC_ClickST` CmdBJSYX_Click'嘸 CmdBJSYXC_Click鬲`
CmdGXGs_Clickl}` CmdGXGsC_Click3` CmdPRINT_Clickbf` CmdPRINTC_Click秦` Dialogs娛` wdDialogFilePrintL` CmdPROTECT_Click叽` CmdPROTECTC_Click粋` CmdUNPROTECT_Click g` CmdPrtPreview_Clickk` CmdPrtPreviewC_Click耖`
CmdSCSY_Click瀝` CmdSCSYC_Click= ` CmdSSl_Click*鏯
CmdSSlC_Click垆` CmdSLCONT_Clickz` CmdGS_Click~朻 CmdGSC_ClickdV`
CmdGsGs_ClickX*` CmdGsGsC_Click` CmdFl_Clicka違 CmdFlC_Click 嘸 FrmFL鶳` CmdFm_Click&` CmdFmC_Click眹` FrmChoice鷋` CmdGTitle_Click` CmdGTitleC_Click` CmdGZ_Click驦` CmdGZC_Click黌` ShellV譧 vbMaximizedFocus` CmdJZ_Clickj?` CmdJZC_Click阘 ProtectedjQ` TxtFoot8/` TxtChg 賎 iSide硕` wdWebView)瞏 wdPrintPreview炧` wdSeekFootnotesl ` wdPaneFootnotes鴪` MoveEnd*誤 frmJz淨` Pt筤` wdStyleFootnoteReference ` ftG]` CmdLx1_ClickP`
CmdLx1C_Click鈵` CmdLx2_Click%坄
CmdLx2C_Click 俙 CmdLx3_Click5繾
CmdLx3C_Click眰` CmdLx4_Click`
CmdLx4C_ClickY僠
CmdLx41_Click&` CmdLx41C_ClickHo` CmdLx5_Click?`
CmdLx5C_Click刞
CmdLx51_ClickV'` CmdLx51C_Click孖` CmdLx6_Click(嘸
CmdLx6C_Click﹦` CmdMc_Click悱` CmdMcC_Click>榒
FrmContent8繾 CmdQy_Click ` CmdQyC_Click荦` CmdSjTable_Click CmdSjTableC_Click唆` CmdTBJZSM_Click` CmdTBJZSMC_Click 醏 CmdSTBJZSM_Click卄 CmdSTBJZSMC_Click B` CmdYy_Click ` CmdYyC_Clickmv` CmdSl_Clickh豟 CmdSlC_Click` CmdSy_Click` CmdSyC_Clickd瞏 CmdTabTitle_Click` CmdTabTitleC_Click'` CmdTTitle1_Clicky`` CmdTTitle1C_ClickW違 CmdTTitle2_Click墭` CmdTTitle2C_Click違 CmdTTitle3_Click櫺` CmdTTitle3C_Clickо` CmdTTitle4_Click` CmdTTitle4C_ClickO醏 CmdTTitle5_Click鸒` CmdTTitle5C_Click麽` CmdTTitle1F_Click蓶` ChgToSong` CmdTTitle1FC_Click撵` CmdTTitle2F_Clickq梎 CmdTTitle2FC_Click莁 CmdTTitle3F_Click榒 CmdTTitle3FC_Click桶` CmdTTitle4F_Click翗` CmdTTitle4FC_Click媊 CmdTTitle5F_Clicki檂 CmdTTitle5FC_ClickUe` LineUnitBefore4G`
LineUnitAfter铖` LineSpacingRule阷` wdLineSpaceSingle硍`
CmdZ_Click)` CmdZC_Clicki梎 CmdZtitle_Click ` CmdZtitleC_ClickJ檂 CmdZWZ_Click╙`
CmdZWZC_Clickp@`
CmdZWZZ_Click.訿 CmdZWZZC_Click&蔪 CmdZWZZF_Click慲 CmdZWZZFC_Click"` CmdZZ_Clicki:` CmdZZC_ClickH絗 CmdShowHelp_Click+` WIniK`
msoButtonDown錔` CmdTwopage_Click:2` CmdTwoPageC_Click媑` CmdZZF_Click簍`
CmdZZFC_Click"薫 TdsApp_DocumentBeforeClosej ` Doc槃` Documentj觍 Cancel駱` Path2` TdsApp_WindowSelectionChange;鷃 Self觍 LostFocusMS`
SetFldNull 慲 NewName#` mystart'` ChrW` iLenP` StdStr,w` ScrollIntoView4璥
FrmAddFoot:鷃 cmdCancel_Click\誤 cmdOk_Click笣` txtJz` vbOKOnly醪`
vbInformation瞡`
txtJz_KeyDown涔` KeyCode順`
ReturnInteger鍌` Shift潆` Cancel_Click`
OptButton1铇` Value銴`
OptButton2闃`
OptButton3陿`
OptButton4霕` UserForm_ActivateZs` aX`
ProcessParent牲` Indx`
LstContenti` SelectedY ADstr7蔪 GStrr靈 upDateCountY` RegStr$` ListCount6` List*揱 SaveSetting鼜` MCFld翑` RightIndent(` Hyphenation猔` OutlineLevel諝` wdOutlineLevelBodyText鳖` CharacterUnitLeftIndent渵` CharacterUnitRightIndent輯` # NoSpaceBetweenParagraphsOfSameStyle ` TabStopsB腵 ClearAll ー wdAlignTabRight旁` Leaderj╜ wdTabLeaderDotsc鑐 SpacingS黗 wdReplaceOne杗` LstContent_Change閝` TxtSel.` AddItem ` frmDate;g` GetDC` hwnd/羆 user32*蝋 ReleaseDC椨` hdce榒
GetDeviceCapsHw` nIndex'` gdi32i鸴
LOGPIXELSX夎`
FindWindow K` lpClassName傋` lpWindowName╜
GetWindowLong/`
SetWindowLong 鱜 dwNewLong忡` GWL_STYLE氒` WS_BORDERk芵
WS_CAPTION `
CreateRectRgn鵚` X1綺` Y1O_` X2縚` Y2P_`
CombineRgn$` hDestRgn0謄 hSrcRgn1g綻 hSrcRgn2h綻 nCombineMode乣 DeleteObjectT` hObject` SetWindowRgn塛` hRgn要` bRedraw園` RGN_OR怙` PointToPixel n` GetSystemMetrics%` SM_CXSCREEN ` DTPicker1_CloseUp厛` DTPicker1瘃` UserForm_Initialize5c` lc` tk` wm` h_` lPIXELSX&G` xo` StartUpPositiong鸴 lStyle姜` vbNullString` ctl` hRgnAll2` hRgnCtl>` hrngall⑷` cmdFindNext_ClickA` txtIndex痎` Response棳` vbYesa?` cmdDeleteV璥 cmdDelete_Click黗 cmdDeleteAll_Click<` txtIndex_Change(` cmdFindNext盽 cmdDeleteAll]誤 FrmEditFoot.哷 OriFoot +` IniLst肋` AddFooti禶 lstJZ:╜ ListIndex鱍` lstJZ_Click*` OptGFG ` txtTitle ` txtTitle_Change龏` cmdOk'恅 txtTitle_KeyDown榒 SetFocus衿` frmFLBS*` FrmFootType 碻 OptAdd蚡 cmdMark`
cmdMark_Click膗` cmdMarkAll_Click 5` BackColor迌` Label6_Click`
cmdMarkAll`鵣 txtRow'*` txtColumn ` txtColumn_KeyDown烔` txtRow_KeyPress ` KeyAscii#` txtColumn_KeyPress障` UserForm_QueryClose` CloseMode責` FileSave Class籤 Click娿` DocumentBeforeClose/` WindowSelectionChange` UserFormN` Label1,` cmdCancel復` KeyDown.a` Label2,` ChangeＧ`
Initialize覰` lblFind瀈 OptZL ` lblTitle` OptEditeA` lblJz鳿` Label5,` lblRow]絗 lblColumn盽` KeyPressq鯼
QueryCloseT鬬
9
% ? ] + ! S
- $ % #
3 " 9 , . 爁烇粰鴱 T > T *稌珩 D寚晑+(TK緷翴喿扚癷6軮藐 饶H瘤CDP=C 4芆p9*匨崋坲k x 4芆p9*匨崋坲k犋*稌珩 D寚晑+(TK ME P SP S S S 6" < < < 0 { 4 9 C 2 9 D B E - D 7 8 6 - 4 6 9 2 - B 0 6 9 - B 1 3 6 D D 4 9 C 3 E A } { 4 8 C 4 C 8 0 C - F 6 C 1 - 4 4 4 3 - 8 0 5 0 - 0 3 C 8 1 8 3 D 4 3 1 A } " @ ` ` 6 6 @勵 ` @勵 H ` @勵 ` @ ` % 侢 % H @ 凗 % 偁 % X X
0 7赺V $ * \ R f f f f * 1 D 5 f d a 3 7 c e 4 8 < @ D H L "
( 8 " @ ( H p $ x & & ( P ` h p 0 8 H X B `
< 8 H X
` p x
( " $ ( 0 @ P 0 `
4 ( 8 H
P ` h 6 p
" 2 0 & @ h p x <
"
0
@ P
X
h
x "
x ! ( \ ' R A@r o c a o @ @ " zle,200812-1,+1,防止对封面进行处理' J zle,09-06-20,+begin,从开始查找 4! !
. % , StandardName B@ b B@2 k k R StandardName B@ b B@2 ' Rd R ' R k x zle,09-06-20,+end ! ( ! B@ ! ^d xe " $ ! d " $ 9 d9 9 q ] ! ! ! ( R ' R ( 该词没有在文中标记，是否删除新的索引项？ TCS $ ' ( d d 0 A@r k d ' R " 已经完成删除，是否删除新的索引项？ TCS $ ' ( d d A@r k k d x ( " k ` " zle,200812-1,+1,防止对封面进行处理 ' J o ( ! d' f ' dA@ cmdDelete.Enabled = False ' J ! ( ! B@ ! ^d xe " $ ! d " $ 9 d9 9 q X ! ! ( " ' R ! ( ] " 已经完成删除，是否删除新的索引项？ $ ' ( d d A@r k d 0 ActiveWindow.View.ShowHiddenText = False ( " k @ ' J o 0 ! d' f ' dA@ , ActiveWindow.View.ShowHiddenText = False h 该词在文中没有被标记为索引项A@ d ' R] 0 " 已经完成删除，是否删除新的索引项？ TCS $ ' ( d d A@r k k o H ! d$ $ ( " ( " d ( " ( " ( " k p o h ( " ( " ( " o ( 痰 Attribut e VB_Nam e = "frm DeleteIn@dex"
擝as0{49C 29DBE-D7 86-4692- B069-B136DD :3EA} {48C4C80 C-F6C1-4 443-8050 -03C8183@D431A}
dG lobal怱pacoFalse 奀reatabl Predec$la Id 賂ru
BExpose0TemplateDeriv Customiz婦
Option 1licit`
P#' Sub cmdCancel_C@k()
Act5Windo w.View.S howHidde鄋TextcU g_SLFirs 0 Unloa坉 M uEnd55;F.N%<'z le,20081 2-1,+1, 乐苟苑饷 娼写鞢InProc8ess芓"09 -06-20,+ begin,从 开始查找 f 8Docu ment.For mFields. Count > 10 ThenC aIf S@Fo爊.Inf a罺(wdC :Pag eNumber) %1LAGoT o what:=wdBookm ark, 翜:= "Standar~d @ K ey wdLin茾[ IfC/@1妅('I & >1D(鈐e g+ 弲 JE=end
2赬胵!G !S. Clear酈atting
Wit^h .$c" ^d xe " + Chr(34) txt"檭&;`
w=蔣
Wr$apwd
StKK鬜 K+ 1KK!bK2啽驥$鵸J 燐x O6Qoa邖@ 遀oK"邚:KK楯_Js_J<+J颕/97) & 熛盈1 = ( {P8
8屺3e餿eAl ┛8 u$砗8238 攮鬊3qg_(摗= ;崱CZ "k鉰乲被鵄k为僯DTZ
!*Q _'a_'_'ororB8'''ha'?''淿 懧_C`hangeE蓀
Trim(狧) <> ""2)崤d10 +&O k
/坌" 6$1&kXQ3U魋er";荃O墯 Vx 醩 F r m F L A > 蝎蝎 f a o = ? C o m p O b j @ a txtTitle (
Y nx歔( Y ) N { u " 媅SO (
N 諷坢( N ) N { u " 媅SO 4 F纮
{ 1[SO膲'`D朥_N 5 " 媅SO 4 F纮
{ 0mdOD崣e'`D朥_D 5 " 媅SO ( 鲖搹eQD朥_h槝
X 5 " 媅SO 葊 r 5 " 媅SO
Microsoft Forms 2.0 窗体 Embedded Object 9瞦 VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FrmFL
Caption = "附录选择"
ClientHeight = 2760
ClientLeft = 45
ClientTop = 330
ClientWidth = 4125
StartUpPosition = 1 '所有者中心
TypeInfoVer = 13
End
( H @ } Y R 憦濄 K窺 V B F r a m e f r m J z C 蝎蝎 f o B D 恄 宋体 O ( 2 8 lblJz佽lX $ 4 txtJzd 5 $ < cmdOkit h
( < cmdCancel ( w (
佽l匭筟N ; 5 " 媅SO ! H ~ 5 " 媅SO (
Y nx歔( Y ) ( ` u " 媅SO (
N 諷坢( N ) h垊 ` u " 媅SO C o m p O b j E a V B F r a m e f r m D a t e < P H 蝎蝎 f Q
Microsoft Forms 2.0 窗体 Embedded Object 9瞦 VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmJz
Caption = "条文脚注"
ClientHeight = 2400
ClientLeft = 45
ClientTop = 450
ClientWidth = 4695
StartUpPosition = 1 '所有者中心
TypeInfoVer = 9
End
$ } : R 憦濄 K窺 恄 宋体
Microsoft Forms 2.0 窗体 Embedded Object 9瞦 VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmDate
Caption = "UserForm1"
ClientHeight = 1020
ClientLeft = 45
ClientTop = 405
ClientWidth = 2355
StartUpPosition = 1 '所有者中心
TypeInfoVer = 1
End
o G I C o m p O b j J a V B F r a m e f r m F L B S M 蝎蝎 f
o L N C o m p O b j O a V B F r a m e # ( H @ }
R 憦濄 K窺 恄 宋体 O ( < CmdCancelg 陦 $ P OptZL1 $ < CmdOKh芉 { $ P OptGFtle { (
N 諷坢( N ) t { u " 媅SO 4 F纮
{ 0[SOD崣e'`D朥_ t 5 " 媅SO (
Y nx歔( Y ) ( { u " 媅SO 4 F纮
{ 1[SO膲'`D朥_h 5 " 媅SO
Microsoft Forms 2.0 窗体 Embedded Object 9瞦 VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmFLBS
Caption = "附录类型选择"
ClientHeight = 1545
ClientLeft = 45
ClientTop = 450
ClientWidth = 4140
StartUpPosition = 1 '所有者中心
TypeInfoVer = 4
End
ID="{00000000-0000-0000-0000-000000000000}"
Document=ThisDocument/&H00000000
Module=MdlTds
Class=ClsTds
BaseClass=FrmAddFoot
BaseClass=FrmChoice
BaseClass=FrmContent
BaseClass=frmDate
BaseClass=frmDeleteIndex
BaseClass=FrmEditFoot
BaseClass=FrmFL
BaseClass=frmFLBS
BaseClass=FrmFootType
BaseClass=frmJz
BaseClass=frmMarkIndex
BaseClass=FrmTable
BaseClass=frmUpDate
HelpFile=""
Name="TemplateProject"
HelpContextID="0"
VersionComP R O J E C T K Q F r m T a b l e S 蝎蝎 f m o R T H patible32="393222000"
CMG="4C4EE04320F824F824FD29FD29"
DPB="0507A90ADBDEF8DEF82108DFF80EC1E92371D16DB10044CC14E9C6BBB402E356F45781CA7589"
GC="BEBC12D172332A342A342A"
[Host Extender Info]
&H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000
[Workspace]
ThisDocument=0, 0, 0, 0, C
MdlTds=0, 0, 0, 0, C
ClsTds=0, 0, 0, 0, C
FrmAddFoot=0, 0, 0, 0, C, 38, 38, 1628, 694, C
FrmChoice=0, 0, 0, 0, C, 76, 76, 1666, 732, C
FrmContent=0, 0, 0, 0, C, 114, 114, 1704, 770, C
frmDate=0, 0, 0, 0, C, 152, 152, 1742, 808, C
frmDeleteIndex=0, 0, 0, 0, C, 190, 190, 1780, 846, C
FrmEditFoot=0, 0, 0, 0, C, 228, 228, 1818, 884, C
FrmFL=0, 0, 0, 0, C, 266, 266, 1856, 922, C
frmFLBS=0, 0, 0, 0, C, 304, 304, 1894, 960, C
FrmFootType=0, 0, 0, 0, C, 0, 0, 1590, 656, C
frmJz=0, 0, 0, 0, C, 38, 38, 1628, 694, C
frmMarkIndex=0, 0, 0, 0, C, 76, 76, 1666, 732, C
FrmTable=0, 0, 0, 0, C, 114, 114, 1704, 770, C
frmUpDate=0, 0, 0, 0, C, 152, 152, 1742, 808, C
( H @ } R 憦濄 K窺 恄 宋体 ( 2 8 lblRow { , 2 8 lblColumn Y { $ 0 txtRowdl
( 0 txtColumn N
" $ < cmdOk1 E ( < cmdCancel ( E ( 鲖搹eQL坧eE 5 " 媅SO ( 鲖搹eQRpeE t 5 " 媅SO H,{ 5 " 媅SO H,{ 5 " 媅SO (
Y nx歔( Y ) Y { u " 媅SO (
N 諷坢( N ) { u " 媅SO
Microsoft Forms 2.0 窗体 Embedded Object 9瞦 VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FrmTable
Caption = "表格设置选项"
ClientHeight C o m p O b j U a V B F r a m e % F r m C h o i c e F b X 蝎蝎 f m = 1695
ClientLeft = 45
ClientTop = 450
ClientWidth = 2400
StartUpPosition = 1 '所有者中心
TypeInfoVer = 23
End
( H @ } R 憦濄 K窺 恄 宋体 (
P OptButton1Y O (
L OptButton2N q (
L OptButton3ex
O (
L OptButton4N
q $ < CmdOK { (
" # $ % & ' ( * + , - / 0 1 3 5 6 7 8 : ; < = > @ A B C D F H I J K M N O P Q S T U V W Y [ \ ] ^ ` a b c e f g h j l m n o q r s t u v w x y { | } ~ ; < Cancel q 4 G纮 , z { 0O齎禰h芉 5 " 媅SO 0 F纮 E { 0 LNh芉 5 " 媅SO 0 F纮 { 0[SO0W筫h芉 5 " 媅SO 0 F纮 M { 0[SOONh芉 5 " 媅SO (
Y nx歔( Y ) e q O u " 媅SO (
N 諷坢( N ) i q N u " 媅SO o W Y C o m p O b j Z a V B F r a m e
& f r m U p D a t e ] 蝎嘁
Microsoft Forms 2.0 窗体 Embedded Object 9瞦 VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FrmChoice
Caption = "标准封面选项"
ClientHeight = 1710
ClientLeft = 45
ClientTop = 330
ClientWidth = 4785
StartUpPosition = 1 '所有者中心
TypeInfoVer = 12
End
$ } / R 憦濄 K窺 恄f o \ ^ C o m p O b j _ a V B F r a m e ( 宋体 O ( 2 0 Label1 ( 2 4 Label2 W ( 2 , Label3dl ( 2 8 Label4 Y " F' 5 " 媅SO ) 蹚O 5 " 媅SO " 5 " 媅SO - 10%O a 5 " 媅SO
Microsoft Forms 2.0 窗体 Embedded Object 9瞦 VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmUpDate
Caption = "正在进行更新……"
ClientHeight = 510
ClientLeft = 45
ClientTop = 450
ClientWidth = 6915
StartUpPosition = 1 '所有者中心
TypeInfoVer = 4
End
膰嬨 鴘M 6 5 1 A 8 9 4 0 - 8 7 C 5 - 1 1 d 1 - P R O J E C T l k [ a f P R O J E C T w m ! F r m A d d F o o t ` l d 嘁嘁 f ) 8 B E 3 - 0 0 0 0 F 8 7 5 4 D A 1 ThisDocument T h i s D o c u m e n t MdlTds M d l T d s ClsTds C l s T d s FrmAddFoot F r m A d d F o o t FrmChoice F r m C h o i c e FrmContent F r m C o n t e n t frmDate f r m D a t e frmDeleteIndex f r m D e l e t e I n d e x FrmEditFoot F r m E d i t F o o t FrmFL F r m F L frmFLBS f r m F L B S FrmFootType F r m F o o t T y p e frmJz f r m J z frmMarkIndex f r m M a r k I n d e x FrmTable F r m T a b l e frmUpDate f r m U p D a t e ( H @ } + R 憦濄 K窺 恄 宋体 O ( 2 < Label1 { $ < CmdOK ( < CmdCancel铰蓟" $ 0 TxtJZ E ,
佽l匭筟 { 5 " 媅SO (
Y nx歔( Y ) i E O u " 媅SO ( o c e . C o m p O b j f 2 a V B F r a m e 4 " F r m C o n t e n t i 嘁嘁
N 諷坢( N ) meE N u " 媅SO H," { 5 " 媅SO
Microsoft Forms 2.0 窗体 Embedded Object 9瞦 VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FrmAddFoot
Caption = "添加脚注"
ClientHeight = 1710
ClientLeft = 45
ClientTop = 330
ClientWidth = 6375
StartUpPosition = 1 '所有者中心
TypeInfoVer = 4
End
( H @
} ' ( R 憦濄 K窺 恄 宋体 E $ < CmdOK " 5% ( < CmdCancel g 5% ( 2 @ Label1 ( 2 @ Label2芉 E $ 0 TxtSel { (
4 LstContenti (
Y nx歔( Y ) 綕 { u " 媅SO f 9 i o h j ? \ C o m p O b j k E a V B F r a m e G # (
N 諷坢( N ) me { u " 媅SO $ , 貫剉顅!k匭筟
> 5 " 媅SO $ , 颯 悇v顅!k匭筟
{ 5 " 媅SO H劕 O 5 " 媅SO `# u 8 5 " 媅SO
Microsoft Forms 2.0 窗体 Embedded Object 9瞦 VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FrmContent
Caption = "目次选项"
ClientHeight = 5910
ClientLeft = 45
ClientTop = 330
ClientWidth = 3360
StartUpPosition = 1 '所有者中心
TypeInfoVer = 10
End
( H
@ } & 6 R 憦濄 K窺 恄 宋体 ( 2 < Label1 ' $ < CmdOKX u ( < CmdCancel N u ( 2 < Label2 F r m E d i t F o o t g v n 嘁嘁 f L e o m o R P C o m p O b j p X a $
0 TxtJZ2 q S $ 0 lstJZdexq ,
頞9e匭筟D q { 5 " 媅SO (
Y nx歔( Y ) i E O u " 媅SO (
N 諷坢( N ) 闑 N u " 媅SO ,
佽lRh( q { 5 " 媅SO H, { 5 " 媅SO ` J 5 " 媅SO
Microsoft Forms 2.0 窗体 Embedded Object 9瞦 VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FrmEditFoot
Caption = "修改脚注"
ClientHeight = 4530
ClientLeft = 45
ClientTop = 330
ClientWidth = 5640
StartUpPosition = 1 '所有者中心
TypeInfoVer = 21
End
( H @
} M R 憦濄 K窺 V B F r a m e Z $ F r m F o o t T y p e s 嘁嘁 f _
o r t d 恄 宋体 O $ < CmdOK2 { ( < CmdCancel i ;
$ P OptAdd { $ P OptEdit ;
(
Y nx歔( Y ) h圗 O u " 媅SO (
N 諷坢( N ) i E N u " 媅SO 4 G纮 , { 1ptZ鹠燫佽l 5 " 媅SO 4 G纮 , _ { 0[SO頞9e佽l 5 " 媅SO
Microsoft Forms 2.0 窗体 Embedded Object 9瞦 VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FrmFootType
Caption = "脚注处理类型"
ClientHeight = 1350
ClientLeft = 45
ClientTop = 330
ClientWidth = 3570
StartUpPosition = 1 '所有者中心
TypeInfoVer = 10
End
C o m p O b j u i a V B F r a m e k ( f r m M a r k I n d e x q { x 嘁嘁 f p E ( H @ . } -!
R 憦濄 K窺 恄 宋体 $ 0 txtIndex { ( 2 8 lblFindl{ O $ < cmdMark { q ( < cmdCancel N S q ( @ cmdFindNext[ { (
@ cmdMarkAllY
q ( 2 8 Label5ex ( 2 0 Label1 ( 2 , lblWidk ( 2 4 Label2 F ( 2 8
lblJD5ex2 H,
{ 5 " 媅SO (
錱~b匭筟( 5 " 媅SO (
M h皨( M ) N { u " 媅SO (
N 諷坢( N ) N { u " 媅SO $ ( F 錱~b N NY( F ) { u " 媅SO $ ( M h皨hQ钀( A ) { u " 媅SO - 0%dOO a o w y z ` C o m p O b j z a V B F r a m e ' f r m D e l e t e I n d e x } 嘁嘁 5 " 媅SO " 5 " 媅SO " 5 " 媅SO ) 蹚 5 " 媅SO - 0%# a 5 " 媅SO
Microsoft Forms 2.0 窗体 Embedded Object 9瞦 VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmMarkIndex
Caption = "标记索引项"
ClientHeight = 1545
ClientLeft = 45
ClientTop = 450
ClientWidth = 4815
StartUpPosition = 1 '所有者中心
TypeInfoVer = 46
End
( H @ }
y R 憦濄 K窺 恄 宋体 ( 2 8 lblFind { O $ 0 txtIndex { ( < cmdDelete { q ( < cmdCancel Y S q ( @ cmdFindNext棘 { ( f m o | ~ ` C o m p O b j a V B F r a m e ( @ cmdDeleteAll
q (
錱~b匭筟 5 " 媅SO H,
{ 5 " 媅SO (
M Rd( D ) i { u " 媅SO (
N 諷坢( N ) Y { u " 媅SO $ ( F 錱~b N NY( F ) { u " 媅SO $ ( M Rd杊Q钀( A ) { u " 媅SO
Microsoft Forms 2.0 窗体 Embedded Object 9瞦 VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmDeleteIndex
Caption = "删除索引项"
ClientHeight = 1665
ClientLeft = 45
ClientTop = 450
ClientWidth = 4650
StartUpPosition = 1 '所有者中心
TypeInfoVer = 8
End
F# Microsoft Office Word 97-2003 文档
MSWordDoc Word.Document.8 9瞦 C o m p O b j u