Dim bContinue As Boolean zP x R=0|
T@=C2
1
Dim regEX As New RegExp uorX;yekC
Dim paraCounter As Long '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 =@0J:" c
}W'4(V;:
Dim LastTitle0String As String, LastTitle0No As Long tRpY+s~Fq
Dim LastTitle1String As String, LastTitle1No As Long Xl<iR]lda
Dim LastTitle2String As String, LastTitle2No As Long ^86M 94k
Dim LastTitle3String As String, LastTitle3No As Long 7f}uRXBV$A
Dim LastTitle4String As String, LastTitle4No As Long bU}v@Uk
Dim LastTitle5String As String, LastTitle5No As Long x+j@YWDpG"
Dim LastTabelString As String, LastTableNo As Long J
jm={+ @+
Dim LastFigureString As String, LastFigureNo As Long x1? mE)n]
aG83@ ABx
Dim strSeperator As String .>eR X%
K2yu}F ^}
Sub ConvertWidth(fTEXT As String, rText As String) )A xD|A
Selection.Find.ClearFormatting lcm3wJ'w
Selection.Find.Replacement.ClearFormatting p #{y9s4h
Selection.Find.Wrap = wdFindContinue FuBt`H
Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText !6 L! %Oi
DoEvents {x
?qz~W
Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True 9(J,&)J
End Sub :dh; @kp
Q3(ulgl]
Sub ClearDomain() lOp. c
U
With Selection.Find tsJR:~
.ClearFormatting I8YUq
.Replacement.ClearFormatting u5Vgi0}A
.Wrap = wdFindContinue mEbI\!}H0
Me.txtStatus.Text = "清除所有域代码" *g,ls(r\[
DoEvents I`_I^C3
.Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False @l F?+/=$
End With 1C8xJ 6F
End Sub j<P;:
Ku%tM7 ad
Private Sub cmdCheck_Click() bY2R/FNL=
bContinue = True *V%"q|L8
Dim NoSeries1(1 To 16) As String _
, s^
Dim NoSeries2(1 To 16) As String w;gk=<_
Dim NoSeries5(1 To 16) As String vX\9#Hj
Dim NoSeriesRM(1 To 16) As String p<=Lh47 =
Dim paraTotal As Long, ParaText As String QM#Vl19>j(
Dim ttString As String, ttNo As String gu!!}pwV9
'9Z`y_~)G
Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long /wLGf]0
pa 1<= w
Me.txtStatus.Visible = True >7PQOQMW'
Me.lbParaType.Visible = True xa@$cxt
Me.cmdCheck.Enabled = False g{
Al:}u>
NJQ)Ttt
o0]YDX@T
8W{M}>;[9
"qNFDr(WM
Dim ParaType As String, rText As String
O-X(8<~H=
=`QYy-b X
Selection.WholeStory |~e"i<G#
Selection.NoProofing = True $Yt
|XT+!&
,puoq {
tm1 = Now l)vC=V6MG
7;o:r$08&}
ActiveWindow.View.Type = wdNormalView C@6:uiT$
*qm|A{FQR
NoSeries1(1) = "一" @b,H'WvhfS
NoSeries1(2) = "二" zQ |2D*W
NoSeries1(3) = "三" N.vWZ7l8
NoSeries1(4) = "四" jkx>o?s)z
NoSeries1(5) = "五" J?w_DQa
NoSeries1(6) = "六" Lo%vG{yTr
NoSeries1(7) = "七" }q`9U !v
NoSeries1(8) = "八" YD'gyP4
NoSeries1(9) = "九" U8 Zb&6
NoSeries1(10) = "十" ?a3 w By
NoSeries1(11) = "十一" a1~|?PCbY
NoSeries1(12) = "十二" \^*:1=|7u]
NoSeries1(13) = "十三" rP3tFvOH
NoSeries1(14) = "十四" &J&'J~N
NoSeries1(15) = "十五" 1oej<67PdJ
NoSeries1(16) = "十六" 88 ~Nrl=co
6qHD&bv\%C
NoSeries2(1) = "㈠" O{_t*sO9q*
NoSeries2(2) = "㈡" a8J AJk FB
NoSeries2(3) = "㈢" < j:\;mi;
NoSeries2(4) = "㈣"
8Y.q P"s
NoSeries2(5) = "㈤" JI[8 n$pr]
NoSeries2(6) = "㈥" Ik$$Tn&;
NoSeries2(7) = "㈦" JFVx&
NoSeries2(8) = "㈧" 9 L:wfg}8s
NoSeries2(9) = "㈨" *,4rYb7I w
NoSeries2(10) = "㈩" lG\uJxV
|E7 J5ha
NoSeries5(1) = "①" V ml
6\X
NoSeries5(1) = "②" =S`h/fru
NoSeries5(3) = "③" ZK8)FmT_<O
NoSeries5(4) = "④" "D
_r</b
NoSeries5(5) = "⑤" LDc EjFK(
NoSeries5(6) = "⑥" X|T|iB,vT
NoSeries5(7) = "⑦" K2zln _W
NoSeries5(8) = "⑧"
5[Vr {^)
NoSeries5(9) = "⑨" SjB"#E)
NoSeries5(10) = "⑩" (s,& ,I=@
oI{.{]
Jg;[ k
NoSeriesRM(1) = "I" c$ !?4z_.
NoSeriesRM(2) = "II" |y U!d
%
NoSeriesRM(3) = "III" q4[}b-fF
NoSeriesRM(4) = "IV" 7b[s W|{
NoSeriesRM(5) = "V" Kf:!tRE
NoSeriesRM(6) = "VI" {&,p<5o
NoSeriesRM(7) = "VII" EL$DvJ~
NoSeriesRM(8) = "VIII" GIM/ T4!)
NoSeriesRM(9) = "IX" 9?H$0xZV
NoSeriesRM(10) = "X" 2L~Vr4eHG
NoSeriesRM(11) = "XI" a#=d{/ ab
NoSeriesRM(12) = "XII" ^)~S mj^d
NoSeriesRM(13) = "XIII" TQT3]h6
NoSeriesRM(14) = "XIV" 5G}4z>-]F)
NoSeriesRM(15) = "XV" fA6IW(_bi
NoSeriesRM(16) = "XVI" G 0UaE1n
%xlpOR4
i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) 6}TunR
j~k,d
.17M
If i = vbNo Then %NrH\v{7Q
Exit Sub *~)6 sm
End If dn#I,xa`
b!] O]dk#
If Me.chkSuper.Value Then ua F- 3
Me.txtStatus.Text = "检查修改所有的上标格式" (<eLj Q
+d6onO{8
CheckSuperScript k~ 8-E u1
BA c+T
End If ]&%KU)i?
TRGpE9i
If Me.chkStyle.Value Then 7H Dc]&z
Me.txtStatus.Text = "设置样式，请稍候...." ]Z civnN#
DoEvents wHj 1+W
CeateOrModifyStyle Vc(4d-d5
End If } QCnN2bV
X[o+Y@bc
%^@l5h.lqB
8
M*+
|
ClearDomain Wlhh0uy
5v)^4(
)
u2oS Ci
SA +d4P_T
If Me.chkLIST.Value Then r >'tE7W9
Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" e,xL~P{|
O`~#X w
ConvertListToOrdinary ~#sD2b` 0
End If EfEgY|V0
/a I@2] |~
Z< i }XCE
Dim pType As String, trimpTEXT As String \#HW.5
If Me.chkNum.Value = True Then +>#S NZ[
Me.txtStatus.Text = "转换全角数字形式为半角" {$z54nvw$
ConvertWidth "１", "1" rkjnw@x\
DoEvents 2R&\qZ<
ConvertWidth "２", "2" A3a/ /e
DoEvents hI:.Qp`r
ConvertWidth "３", "3" ~.W]x~X$
DoEvents uvbVb"\"Yk
ConvertWidth "４", "4" l;iU 9<~
DoEvents bFG~08Z ,d
ConvertWidth "５", "5" eL}w{Hlk
T
DoEvents z$?F^3>
ConvertWidth "６", "6" ?: \/-y)Sp
DoEvents Mk}T
ConvertWidth "７", "7" ty,oj33
DoEvents ]%E h"
ConvertWidth "８", "8" _"1RidhH
DoEvents =~+ WJN
ConvertWidth "９", "9" @ b!]Jw
DoEvents ='h2z"}\Bn
ConvertWidth "０", "0" VvyRZMR
DoEvents ^v; )6a2
ConvertWidth "ａ", "a" kkq1:\pZ]a
DoEvents i/
/H5D3
ConvertWidth "ｂ", "b" `j>5W<5q\
DoEvents =\O#F88ui
ConvertWidth "ｃ", "c" SY +0~5E
DoEvents %] 4Tff
ConvertWidth "ｄ", "d" MT- Tt
DoEvents g{Hgs
ConvertWidth "ｅ", "e" 9-;-jnDy
DoEvents iwK.* 07+
ConvertWidth "ｆ", "f" s(=wG|
DoEvents Z\nDR|3
ConvertWidth "ｇ", "g" (bb!VVA
DoEvents 5bLNQz\WJ
ConvertWidth "ｈ", "h" vh a9,5_
DoEvents 7[1Lh'u
ConvertWidth "ｉ", "i" |(.\J`_e
DoEvents #dZs[R7h
ConvertWidth "ｊ", "j" /}m)FaAi
DoEvents =P ( *j7=
ConvertWidth "ｋ", "k" Te-p0x?G .
DoEvents 0SI@`C*1o
ConvertWidth "ｌ", "l" Z A(u"T~
DoEvents [7vV#s3kJ
ConvertWidth "ｍ", "m" L
BbST!
DoEvents r^~+ <"
ConvertWidth "ｎ", "n" -!PJHCLd
ConvertWidth "ｏ", "o" JY"jj}H]|
ConvertWidth "ｐ", "p" e=0]8l>\ V
ConvertWidth "ｑ", "q" o]<Z3)
ConvertWidth "ｒ", "r" 2<@2_wS J
ConvertWidth "ｓ", "s" XDY]LAV
ConvertWidth "ｔ", "t" PFJ$ Ia|
ConvertWidth "ｕ", "u" 1C B&z@
ConvertWidth "ｖ", "v" +HS]kF H
ConvertWidth "ｗ", "w" KoERg&fY
ConvertWidth "ｘ", "x" i(j / C
ConvertWidth "ｙ", "y" 3YvKHn|V"
ConvertWidth "ｚ", "z" V'i-pn2gyu
ConvertWidth "Ａ", "A" `MU~N_
ConvertWidth "Ｂ", "B" t1?aw<
ConvertWidth "Ｃ", "C" =Wcv b?;*
ConvertWidth "Ｄ", "D" 'zI(OnIS
ConvertWidth "Ｅ", "E" sLr 47 NC
ConvertWidth "Ｆ", "F" l8oaDL\f
ConvertWidth "Ｇ", "G" "#~>q(4^
ConvertWidth "Ｈ", "H" u_k[< & $
ConvertWidth "Ｉ", "I" Mh)? A/e
ConvertWidth "Ｊ", "J" z5jw\jBD
ConvertWidth "Ｋ", "K" `WayR^ 9
ConvertWidth "Ｌ", "L" OS z71;j
ConvertWidth "Ｍ", "M" bXs=<`>
ConvertWidth "Ｎ", "N" KnG7w^
ConvertWidth "Ｏ", "O" >of34 C"DI
ConvertWidth "Ｐ", "P" n
o*) M7
ConvertWidth "Ｑ", "Q" d6J/)nl
ConvertWidth "Ｒ", "R" T?7u
[D[[
ConvertWidth "Ｓ", "S" aD: #AmbJ
ConvertWidth "Ｔ", "T" aFTW zz
ConvertWidth "Ｕ", "U" Hm2Y%
4i%
ConvertWidth "Ｖ", "V" O52 /fGt
ConvertWidth "Ｗ", "W" &*v\t\]
ConvertWidth "Ｘ", "X" 8}0wSVsxV$
ConvertWidth "Ｙ", "Y" :A
zT=^S
ConvertWidth "Ｚ", "Z" 7zG
r+Px
ConvertWidth "^l", "^p" VRd7H.f,A6
ConvertWidth "（", "(" l!tR<$|
ConvertWidth "）", ")" gA2Wo+\^bq
M6g8+ sio
End If sycAAmH<
{srP3ll
P
With ActiveDocument Y}ogwg&
Dim tbl As Table `;UWq{"
For Each tbl In .Tables (GC]=
tbl.Rows.Alignment = wdAlignRowCenter CYaN;HV@_
tbl.Range.Font.NameFarEast = "楷体" ]DVr-f
~
tbl.Range.Font.NameAscii = "Times New Roman" ;xwcK-A
tbl.Range.Font.Size = 10.5 (7R?T}
Next y#GHmHeh
Set tbl = Nothing /7
UvV60
End With FP=
B /!g
OH
t)z.
;XN|dq
With ActiveDocument Lk( ESV;r
A
f _4Z]F
For i = 1 To .TablesOfContents.Count gQeQy
.TablesOfContents(i).Delete ~+Gh{,f
Next E.K^v/dNdq
4m0^
N
EOB8|:*
,CqWm9
paraTotal = .Paragraphs.Count zy,SL
|6:
paraCounter = 1 /s4~Ij`be
a}UmD
HS-
LastTitle0No = 0 `dv g5qQ
LastTitle1No = 0 \|,| )
LastTitle2No = 0 ,';|CGI cP
LastTitle3No = 0 ;C@mT;hR
LastTitle4No = 0 :c/54Ss~
LastTableNo = 0 1=)M15
LastFigureNo = 0 |&#N&t
*JJ8\ R&P0
Dim Sec As Long tpJA~!mG3
'9}&@;- _
Sec = InputBox("正文从第一节开始？", "节设置", 6) Jq/itsg
If Sec = 0 Then {'IO
Exit Sub &e^;;<*w
End If ~IhM(Q*mO!
kO ydh(yE
k = 0 tj13!Cc}e`
Do While (paraCounter < paraTotal) And bContinue UA$IVK&{
k = k + 1 Xz^nm\
If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then Z*k(Q5&U
Exit Do MfL
7| b)
End If .a@12J(I
paraCounter = paraCounter + 1
J0!V (
If k Mod 20 = 0 Then @lN\.O
Me.lbCounter.Caption = paraCounter KsKE#])&l
DoEvents p>tkRA?lk
End If $*0-+h
Loop Dj\nsc@e3
-#ZLu.
m4/qxm"Dx:
Do While (paraCounter < paraTotal) And bContinue H,(vTt hd
,6>3aD1w~q
ParaText = Trim(.Paragraphs(paraCounter).Range.Text) ~F,~^r!Jtu
ShapeHeight = 0 `p() ko
ShapeWidth = 0 c""&He4zp
u9"=t
CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth >$D!mraih
ZO< ,V
Select Case ParaType ~Zr}QO}G
Case "【】表格内容" OFtaOjsyUa
.Paragraphs(paraCounter).Style = "QLNU表格内容" FOk&z!xYKd
Case "章"
>Z!!` 0{
LastTitle0No = LastTitle0No + 1 Blxa0&3
'新一章开始，复位其下属标题编号 Skt-5S#
LastTitle1No = 0 z=>fBb>w7
LastTitle2No = 0 /PwiZ A3sA
LastTitle3No = 0 91]|4k93
LastTitle4No = 0 23? u_?+4i
16L YVvmW
k = Val(ttNo) +9Tc.3vQ
If k = 0 Then '非数字编号章节 &>\;4E.O5
If ttNo <> NoSeries1(LastTitle0No) Then l e/j!
rText = "第" & NoSeries1(LastTitle0No) & ttString ;\pVc)\4"
Me.ErrMsg.AddItem "章节编号错误：" & ParaText 1/97_:M0~F
End If l 2Sar1~1
Else 'gf[Wjb,%
If Val(ttNo) <> LastTitle0No Then roQI;gq^
rText = "第" & LastTitle0No & ttString cACIy yQ
Me.ErrMsg.AddItem "章节编号错误：" & ParaText oP,*H6)i
End If [^"*I.Z_
,`H
weIq(
End If PBn7{( x
KqG b+N-@
'章段落设置 ,j_js8r
'字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 h*fN] k6
.Paragraphs(paraCounter).Style = "QLNU章节" D kWp
.Paragraphs(paraCounter).Range.Select T~E;@weR
Selection.EndKey unit:=wdLine o|@0.H|
tc = Replace(rText, vbCr, "") t W UI?\
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False j }u L
Case "一级标题" s;vt2>;q+e
LastTitle1No = LastTitle1No + 1 @vl$[Z|
'新一级标题开始，复位其下属标题编号 NW[K/`-CTH
LastTitle2No = 0 AX v
q~XE
LastTitle3No = 0 &Gt{9#
LastTitle4No = 0 DsMo_m/"1
j.& dHtp
If ttNo <> NoSeries1(LastTitle1No) Then [BE_^d5&
rText = NoSeries1(LastTitle1No) & "、" & ttString nqy*>X`
Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText uMQI Aapb
End If R 0Vt_7
F*KQhH7Gf
6&$.E! z
'一级标题段落设置 格式：一、标题内容 DzpWU8j
.Paragraphs(paraCounter).Range.Text = rText 7fR5V
.Paragraphs(paraCounter).Style = "QLNU一级标题" _pTcSp 3
.Paragraphs(paraCounter).Range.Select
^{}G4 BEY
Selection.EndKey unit:=wdLine :Qge1/
tc = Replace(rText, vbCr, "") .)tv'V/
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False )gd
eFA V
Case "二级标题" x$d[Ovw-
LastTitle2No = LastTitle2No + 1 uY5|Nmiu
'新二级标题开始，复位其下属标题编号 >kQp@r\nQ
LastTitle3No = 0 bN_e~ z
LastTitle4No = 0 .
Vb|le(7
Jx+6Kq(
If ttNo <> NoSeries1(LastTitle2No) Then X~r9yl>
rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString @\ g}I`_M
ErrMsg.AddItem "二级标题编号错误：" & ParaText FsED 9+/m
End If :`N&BV
PLz{EQ[cV
'二级标题段落设置 格式：(一)、标题内容 )J 'F]s
.Paragraphs(paraCounter).Range.Text = rText ZO%^r%~s
.Paragraphs(paraCounter).Style = "QLNU二级标题" (7g"pp f
1K9.3n
.Paragraphs(paraCounter).Range.Select _m9k2[N!
Selection.EndKey unit:=wdLine zQ=b|p]|W
tc = Replace(rText, vbCr, "") <O+GXJ2
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 2 ", PreserveFormatting:=False oLoc jj~T
;U'\"N9
Case "三级标题" <MS>7Fd2
LastTitle3No = LastTitle3No + 1 liS'
'新三级标题开始，复位其下属标题编号 ,!{8@*
!=s
LastTitle4No = 0 XY'= _5t
!P{ /;Q
If Val(ttNo) <> LastTitle3No Then ;KQU%
k$
rText = LastTitle3No & ". " & ttString (9u`(|x
Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText )Eozo4~
4FaO+Eo,8
End If l!,tssQ
'三级标题段落设置 格式：1. 标题内容 T ~xVHk1
.Paragraphs(paraCounter).Range.Text = rText 6:2* <
.Paragraphs(paraCounter).Style = "QLNU三级标题" $V87=_}
.Paragraphs(paraCounter).Range.Select 6y^
zC?
Selection.EndKey unit:=wdLine {?yVA
tc = Replace(rText, vbCr, "") 6(QfD](2 }
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 3 ", PreserveFormatting:=False Zv
%>m
Case "四级标题" d_,My lk
LastTitle4No = LastTitle4No + 1 B!+c74
S>dHBR#AD
If Val(ttNo) <> LastTitle4No Then 6,=Z4>
rText = "(" & LastTitle4No & "). " & ttString y[i}iT/~
ErrMsg.AddItem "四级标题编号错误：" & ParaText gCg hWg{S
) f~;P+
End If D/E5&6
'四级标题段落设置 格式：(1). 标题内容 g kmof^
.Paragraphs(paraCounter).Range.Text = rText %NkiY iA
.Paragraphs(paraCounter).Style = "QLNU四级标题" &| (K#|^@
.Paragraphs(paraCounter).Range.Select )xcjQkb
Selection.EndKey unit:=wdLine nuq@m0t\#
tc = Replace(rText, vbCr, "") ;T^s&/>E
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 4 ", PreserveFormatting:=False : <aGZ\R5
$[X][[
Case "表格标题" i*|HN"!
LastTableNo = LastTableNo + 1 )|=1;L
zbFy3-R P
If ttNo <> CStr(LastTableNo) Then 8|Tqk,/pD
rText = "表" & LastTableNo & ". " & ttString I"> ">
ErrMsg.AddItem "表格编号错误：" & ParaText Pn9".
WXx nOLJr
End If hF-Q bO
r-T 1^u
'表格名称段落设置 格式：表1. 表格名称 ,WE2.MWR
.Paragraphs(paraCounter).Style = "QLNU表格标题" 4 ?BQ&d
xe = Replace(rText, vbCr, "") fn<dr(D x
.Paragraphs(paraCounter).Range.Select g"/n95k<
Selection.MoveEnd wdCharacter, -1 '选择范围包括行尾的换行符。 "_UnN}Uk
Selection.Range.Text = xe E{V?[HcWq
Selection.EndKey }uDpf0;^
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False z-
q.8~Z
iFUiw&
Case "表格首行" bhUE!h<
.Paragraphs(paraCounter).Style = "QLNU表格首行" o+|>D&CW%
Case "图片标题" V=ll 9M
LastFigureNo = LastFigureNo + 1 [k
7HLn)
/kGWd9ujF
If ttNo <> CStr(LastFigureNo) Then w,IJ44f ^%
rText = "图" & LastFigureNo & ". " & ttString t`6]eRR
ErrMsg.AddItem "表格编号错误：" & ParaText x_7$g<n
(3N/DY1/
End If gOg7:VPG
'图片名称段落设置 格式：图1. 图名称 0
o8`Y
.Paragraphs(paraCounter).Range.Text = rText %X_A# 9
.Paragraphs(paraCounter).Style = "QLNU图片标题" CG%bZco((
.Paragraphs(paraCounter).Range.Select 7u"Q1n(h/
Selection.EndKey unit:=wdLine "w"a0nv
xe = Replace(rText, vbCr, "") 7FH-l(W
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False CNRSc 4Le
Case "正文" Kz;Ar&^`N
'正文名称段落设置 q;9X8 _
.Paragraphs(paraCounter).Style = "QLNU正文" m@ <,bZkl
Case "文献条目" QDxs+<#
With .Paragraphs(paraCounter) &W>\Vl1
'.Range.Select G+=G c(J
'Selection.ClearFormatting HW[&q
'.Range.Find.Execute findtext:=rText, replacewith:=strSeperator 'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” ;SXkPs3q
.Style = "QLNU参考文献" K["rr/
End With b,Eq-Z;
Case "图表注解" )Cd w_Yx
With .Paragraphs(paraCounter) _g Vihu
.Range.Font.NameFarEast = "楷体" ?Q_ @@)
.Range.Font.NameAscii = "Times New Roman" [lIX &!T"
.Range.Font.Size = 9 '小5号字 J;>;K6pW
\8#[AD*@s2
.Alignment = wdAlignParagraphCenter UI=v| <'-
.LeftIndent = 0 gbMA-r:IC
.RightIndent = 0 V~PGmn[ V
.FirstLineIndent = 0 ;I 5 P<7VW
.LineSpacing = 12 f8-`bb
.LineSpacingRule = wdLineSpaceExactly ;C-ds
.LineUnitAfter = 0 { EZR}N
.LineUnitBefore = 0 Ho(M O!(
.OutlineLevel = wdOutlineLevelBodyText FtJaX])b
.PageBreakBefore = False 6OE
x
An8
.RightIndent = 0 #eYYu2ND
.WordWrap = True ,xU#uyB
.LineUnitAfter = 0.5 EC\@$Fg
-|'@ :cIZ
End With E 0qJ.v
Case Else :'r*
5EX
'不作处理 Z+V%~C1
End Select =RUy4+0> F
3\Amj}RJ
'含有inlineshape的段落处理 ^X_ ;ZLg.
If ShapeHeight > 30 Then HxK'u4I
.Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle '对有图片的段落设置为单倍行距 5%D` y|
End If
2l,>x
3z0 Bg
If (ShapeWidth + ShapeHeight) > 150 Then 3F, M{' q
.Paragraphs(paraCounter).Style = "QLNU图片段落" e_!h>=$%8
End If 9z4F/tUq
dkg`T#}
'段落计数器递 lfBCzxifC
paraCounter = paraCounter + 1 \r aP
Me.lbCounter.Caption = "当前检测段落：" & paraCounter [`tOhL
Me.txtStatus.Text = ParaText 4j;IyQDvM
DoEvents >yc),]1~
Loop :#vA5kC
End With 'R1C-U3w,
48,*sT Rq
msg = "" <
R"Y^]P=
[ DpOI
For i = 0 To Me.ErrMsg.ListCount - 1 MVM Jl ">
msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) !9gpuS[
Next uNy-r`vg
$-DW+|p.?^
%x#S?GMV<
g Nz
Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg eLT3b6'"?
Me.cmdCheck.Enabled = True O4`.ohAZ
Me.txtStatus.Visible = True # N3*SE
Me.lbParaType.Visible = False 6\l F
Q=!QCDO(
bContinue = False pej-W/R&
End Sub nGGw(6c%>
#_\**%,<
Sub CheckPara(ByRef ChKRange As Range, ParaType As String, ReplaceTEXT As String, TitleString As String, TitleNo As String, shpCounter As Long, MaxShpHeight As Long, TotalShpWidth As Long) P [aE3Felk
Dim pTEXT As String ();Z,A
)* %uG{h
pTEXT = ChKRange.Text iO m&(2/
VXCB.C"
ParaType = "其它" kPOk.F%)
TitleString = pTEXT V@+sNM
TitleNo = "N/A" 0qR#o/~I
oBmv^=cH
shpCounter = ChKRange.InlineShapes.Count MZV bOcSAd
If shpCounter <> 0 Then @j \;9>I/
MaxShpHeight = 0: TotalShpWidth = 0 &H+ wzx<
For i = 1 To shpCounter }vZfp5Y
k = ChKRange.InlineShapes(i).Height Z^]Oic/0Oa
l = ChKRange.InlineShapes(i).Width lL V D`)
If k > MaxShpHeight Then fV9+FOZn
MaxShpHeight = k oG22;
End If R:P),
TotalShpWidth = TotalShpWidth + l &2:WezDF
Next K :XXtG
If MaxShpHeight > 60 Or TotalShpWidth > 150 Then 3K(/ =
Exit Sub zx)} XOYf
End If Nj4r [5K
End If [W$x5|Z}Q
;xq ;c\N
'空行 xe OfofC(l
If Len(pTEXT) <= 2 Then 0R unex[
Exit Sub W\Il@Je;
End If MuO(%.H
"o%okN
B_#M)d
O
'是否为表格中的文字 N]8/l:@
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then y< g
Rl/e
ParaType = "表格内容" Wv 5= $y
k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) 1grcCL
q
If k = 1 Then c-zW
2;|61
ParaType = "表格首行" Up-^km
End If F+c8
O
Exit Sub FM3.z)>
End If /p;OZf]
/slCK4vFc
'例外情况：脚注 gT
[] "ZT7
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then k'.cl^6Z8
ParaType = "脚注" DB"z93Mr<K
Exit Sub gRs @T<k2
End If (xfy?N
LP7jCt
'例外情况：尾注 \B
8 j9
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then :V"e+I
ParaType = "尾注" `?&C5*P
Exit Sub W S vhC
End If "@ZwDg`
"pX|?ap
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then LB7 $&.m'B
ParaType = "页眉页脚" ci%$So 2#
Exit Sub @ #J2t#
End If v7j/_;JE;
Q_/UC#I 8
z__{6"^
With regEX cl23y} J_?
.Global = True 5 3+C;]J
Hv"qRuQ?[
.Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" XR =ebl
If regEX.Test(pTEXT) Then 1OY
5tq
ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3")
]x1ba_
TitleString = regEX.Replace(pTEXT, "$3") {2xc/
TitleNo = regEX.Replace(pTEXT, "$1") &B8x0 yi
ParaType = "章" C^JtJ v
Exit Sub (CDh,ZN;|
End If M G&vduu
WO69Wo\C
.Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" Aa-OMo;~
If regEX.Test(pTEXT) Then j~rW
2(
ParaType = "一级标题" ! j6Cvcl T
regEX.Execute (pTEXT) oeVI 6-_S
ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") Y}}1]}VIK
TitleString = regEX.Replace(pTEXT, "$3") n%2c<@p#
TitleNo = regEX.Replace(pTEXT, "$1") |p/[sD+M
Exit Sub BDL[C<d(
End If Ye^#]%m
%7[d5[U~ZA
'全角或半角括号中的数字 c -~i=C]
.Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" 1h]nE/
T.O
If regEX.Test(pTEXT) Then @B)5Ho
ParaType = "二级标题" 4D.h~X4
regEX.Execute (pTEXT) f U<<GK
70
ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") O~J f" Ht
TitleString = regEX.Replace(pTEXT, "$5") ZdhA:}~^E
TitleNo = regEX.Replace(pTEXT, "$2") 1jK2*
y
Exit Sub d|tNn@jN
End If 4,`t9f^:
L$Xkx03lz>
'阿拉伯数字 1. 2. Hm 0;[i
.Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" +IGSOWL
If regEX.Test(pTEXT) Then 4d
`f?8vS
ParaType = "三级标题" NHdNCHhA>-
regEX.Execute (pTEXT) ;[C_ho
ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 /xg1i1 Et
TitleString = regEX.Replace(pTEXT, "$3") BN`tiPNEp
TitleNo = regEX.Replace(pTEXT, "$1") aB&a#^5CI
Exit Sub u<\Sf" fs
End If z cV~)go6
\= 6dF,V
'全角或半角括号中的阿拉伯数字 =?
M{B1;H
.Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" 3 cqc<
If regEX.Test(pTEXT) Then )CH\]>-FO
ParaType = "四级标题" o|KmKC n>
regEX.Execute (pTEXT) J"eE9FLM
ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") dpdp0
TitleString = regEX.Replace(pTEXT, "$5") UZJ s!#P
TitleNo = regEX.Replace(pTEXT, "$2") NljcHe}Qy
Exit Sub mg3YKHNG
End If Q9X+H4` }y
@ uL4'@Ej
'表格名称 MA=gCG/JD
.Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" 0 4ceDe
If regEX.Test(pTEXT) Then )x,-O#"A
ParaType = "表格标题" I Yr 4
regEX.Execute (pTEXT) y7b>>|C
ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) lA,[&
TitleString = Trim(regEX.Replace(pTEXT, "$3")) Np
opg1Gv>
TitleNo = Trim(regEX.Replace(pTEXT, "$1")) sEb*GF*.V
strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 xs)SKG*
Exit Sub ~!fOl)F
End If /jc;
2
1OFrxSg
'图片名称 WD8F]+2O\
.Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" _P_R`A)"
If regEX.Test(pTEXT) Then -<\hcV`&
ParaType = "图片标题" gfX it$s
regEX.Execute (pTEXT) Zh:@A Fz:R
ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") Wsw/ D
TitleString = regEX.Replace(pTEXT, "$3") /KgP<2p
TitleNo = regEX.Replace(pTEXT, "$1") = b3<}]
Exit Sub cW{ Bsr
End If fQf d1=4
[r1 \FF@v,
'参考文献 a{I(Qh!}
.Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})" '[数字]、 E_xCRfw_i]
If regEX.Test(pTEXT) Then "f!H[F1~
ParaType = "文献条目" N@? z&urQi
'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") n7#}i2:
'TitleNo = regEX.Replace(pTEXT, "[$2] ") jJkc vC8d
Exit Sub HvG~bZN
End If -C* UB
@oRo6Y<-
prfx = Left(pTEXT, 2) mj& 4FQ#O*
If prfx = "注：" Or prfx = "注:" Then ?Ql<s8
ParaType = "图表注解" D Ru#vC
Exit Sub T
^` R
End If gr >>]C$
4n\O6$&.x
@vi;P ^1!
ParaType = "正文" ) k 6z
=6, w~|W
End With k+u L^teyS
End Sub O3L:v{Kn
p^QppM94
Sub ConvertListToOrdinary() U)S!@ 2(4
Dim st As Paragraph l5Q-M{w0x
With ActiveDocument Ap(>mUs!i
For i = .Paragraphs.Count To 1 Step -1 a [BIY&/Q
Set st = .Paragraphs(i) covK6SH
lst = st.Range.ListFormat.ListString 3r2e_?m
If lst <> "" Then %vWh1-
st.Range.ListFormat.RemoveNumbers ?&XpwJw:~
st.Range.InsertBefore lst & " " ;`Wh^Qgi
End If r[&/* ~xL
Next >`
|sBx
End With >@|XY<
Set st = Nothing O=}jg0k
End Sub w2] ]##J
'oM&Ar$
Private Sub UserForm_Activate() h"$], =
Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" ^,fMs:
Me.lbTotal.Font.Bold = True 8{%[|Y e
Me.txtStatus.Visible = False 4V
5
Me.cmdCheck.Enabled = True mm`yu$9gbP
$2v{4WP7G
End Sub @3Mp>u/
Tml>>O
D14i]
Sub CheckSuperScript() /s `8=+\ 9
Selection.Find.ClearFormatting Ly
T[
Selection.Find.Replacement.ClearFormatting 8Dc'"3+6
With Selection.Find oe1$;K>.7
.Text = "[【\[［〖](*)[】\]〗］]" jW.IkG[
|
.Replacement.Text = "[\1]" N9AM% H$7
.Replacement.Font.Superscript = True 'C jcFP
'.Replacement.Font.Color = wdColorBlue m@ c\<-P
.Forward = True HqKD]1
.Wrap = wdFindContinue Cbr>\;sc2Z
.FORMAT = True Ix+\oq,O
.MatchCase = False ,6T3:qkkvF
.MatchWholeWord = False vy5SBiK
.MatchByte = False Ei\tn`I&
.MatchAllWordForms = False U=KFbL1Q
.MatchSoundsLike = False !-|{B3"6
.MatchWildcards = True L%[b6<
End With >~ * w
Selection.Find.Execute Replace:=wdReplaceAll RATW[(ZA
End Sub ,uhOf! |
AI*1k
xR
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 0(az 80
p
bContinue = False uRRp8hht
Set regEX = Nothing -* piC(
End Sub |D[4 G6&
@O&; %IZMY
Sub CeateOrModifyStyle() K2oyHw<mk
' 2)R*d
' ;fKFmY41
Dim stl As Style N ._&\fHY
!L 55S 0 3
Options.Pagination = False /c52w"WW
\Q MRuR.
On Error Resume Next sy+tLDMd
For Each stl In ActiveDocument.Styles V%'+
ob6
stl.Delete >}!})]Xw9
Next :J;*]o:
On Error GoTo 0 af;~<o a
=7%c* O <
Set stl = Nothing GPU,.s"&(
QR{pph*zn-
DoEvents y/6%'56uF
On Error Resume Next CoQ<Ky}*
ood
,k{
ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph `&)uuLn|
b#{[Pk,w9
ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph ^ yVKW5x
ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph Q$= X
?{
#BwkbOgr
ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph -x0u}I
ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph gK>aR ^*
aiwKkf`\
ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph k|F T T
ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph ]=T-C v=t
ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph \~@a/J
ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph ]^DNzqu=@h
ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph &-M}:'
ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph ~e<h 2/Xc
ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph lX|d:HFtP
A@#D_[~
ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph : x@j)&
ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph Z'4oE
)
ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph Jhr3[A
ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph =Mok bK2
ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph 2 22Mm/QN
ycSC'R
ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph i.6+ CA
On Error GoTo 0 Yuqt=\? #
DoEvents ]='z Y3
}E](N vCq
'BaseStyle )2y#
cM*
ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False Kv>P+I'
|r
With ActiveDocument.Styles("BaseStyle").Font .0u@PcE:O
.NameFarEast = "宋体" e "ur+7
.NameAscii = "Times New Roman" =S}SZYw l
.NameOther = "宋体" )_Wo6l)i
.Size = 10.5 /.%AE|0+X
.Bold = wdUndefined `\#J&N
.Italic = wdUndefined J^<}fRw
.Subscript = wdUndefined _';oT*#
.Subscript = wdUndefined yM*f}S/
(
Tn 3<cO7v
.Underline = wdUnderlineNone -_
"6jU
.UnderlineColor = wdColorAutomatic u8i!Fxu
.StrikeThrough = False je^=g nq
.DoubleStrikeThrough = False $"6O92G(hJ
"1%YtV5R{
.Outline = False 9w( Wtw'
.Emboss = False pv ;ZR
.Shadow = False u40<>A
.Hidden = False s^ R i g[
.SmallCaps = False B@v"giJg r
.AllCaps = False ?'r=>'6D
.Color = wdColorAutomatic A&/ YnJ"
.Engrave = False QcG-/_,'}
.Scaling = 100 {S5H H"
.Kerning = 1 c*HWH$kB
.Animation = wdAnimationNone =^S1+B
MY-
.DisableCharacterSpaceGrid = False 1|/]bffg!c
.EmphasisMark = wdEmphasisMarkNone @Xj6h!"R
End With KO5!
(vi@
With ActiveDocument.Styles("BaseStyle").ParagraphFormat t w%z!u[a
.LeftIndent = 0 ;ax%H @o
.RightIndent = 0 Q"=$
.M~
.SpaceBefore = 0 S{F'k;x/ 5
.SpaceBeforeAuto = False GYK&QYi,
.SpaceAfter = 0 [BzwQ 4
.SpaceAfterAuto = False )xj
!7:n)
byetbt(IF
.LineSpacingRule = wdLineSpaceSingle zKX|m-i|2
.Alignment = wdAlignParagraphJustify )r.4`5Rc
JUlCj #%
.WidowControl = False Ht=h9}x"g
.KeepWithNext = False 5Cjh%rj(jl
.KeepTogether = False G [$u`mxV^
.PageBreakBefore = False ~_Q1+ ax}
.NoLineNumber = False A/w7 (
G[M{TS3&Ds
.FirstLineIndent = CentimetersToPoints(0) ,"EgYd8-'
.OutlineLevel = wdOutlineLevelBodyText B~t[Gy
.CharacterUnitLeftIndent = 0 1/% g
VB8
.CharacterUnitRightIndent = 0 d\A!5/LG
.CharacterUnitFirstLineIndent = 0 lzup! `g
.LineUnitBefore = 0 ;<)<4N"
.LineUnitAfter = 0 =E10j.r
.AutoAdjustRightIndent = True Rt2<F-gY
.DisableLineHeightGrid = True $`Hb -
" `&1"*
.FarEastLineBreakControl = True m6^n 8%
.WordWrap = True :o+&>z
.Hyphenation = False 7 8-D/WY/X
TW5Pt{X= f
.HangingPunctuation = True < k?jt
.HalfWidthPunctuationOnTopOfLine = True EQ> ] ~
.AddSpaceBetweenFarEastAndAlpha = True kcN# g- 0
.AddSpaceBetweenFarEastAndDigit = True U>=&
2Z2?
.BaseLineAlignment = wdBaselineAlignBaseline QC^ #ns&
End With F>/"If#
ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False >% {H >?Hn
ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll lD\ vq 2
ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese p`2w\ P3;)
ActiveDocument.Styles("BaseStyle").NoProofing = False ud,=O X q
^L"EN sOs
'一级标题题样式 EX9os
ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") Y+0HC2(o
ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" 0s'H(qE, _
ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False u[G`_Y{=EM
With ActiveDocument.Styles("QLNU一级标题").Font @Rp#*{
.NameFarEast = "黑体" 1&Ruz[F5
.NameAscii = "Arial Black" /7[X_)OG
.NameOther = "黑体" + tza]r:
.Name = "黑体" 5T- N\)@
.Size = 16 '三号 qxW^\u!<
.Bold = True h k.Zn.6A'
.Italic = wdUndefined t2 0Es
.Subscript = wdUndefined &yN/ AY`U
.Superscript = wdUndefined .P5OUK
End With 4fa2_
With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat akB+4?+s)
1aBQ.- E-
.LeftIndent = CentimetersToPoints(0) S<bsrS*$
.RightIndent = CentimetersToPoints(0) $Y9Wzv3Ra
.FirstLineIndent = CentimetersToPoints(0) 8-cCWo c
vm
Y*K
.LineSpacingRule = wdLineSpaceSingle ?'I pR
.Alignment = wdAlignParagraphCenter oQ"J>`',
bfl%yGkd/|
.WidowControl = True -K*&I!
.KeepWithNext = True #<EMG|&(
.KeepTogether = True O[O[E }8#
.OutlineLevel = wdOutlineLevelBodyText D*o5fPvFO
bL9vjD'}
.LineUnitBefore = 0.5 *
j]"I=D
.LineUnitAfter = 0.5 0G}]d17h o
End With *Y/}E X! F
ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False '|^<|S_+K
ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll \1R<GBC4
ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese 1]% ]"JbV
ActiveDocument.Styles("QLNU一级标题").NoProofing = True ~rICPR
DoEvents Dj(!i1eQNZ
+(l(|lQy$
'二级 $:D-dUr1
ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") AIX?840V
ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" ( Y>|P
ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False GB\1'
With ActiveDocument.Styles("QLNU二级标题").Font $ >=?'wr
.NameFarEast = "黑体" 052e zh_
.NameAscii = "Arial Narrow" B A(PWX`H
.NameOther = "黑体" fA{t\
.Name = "黑体" O{w'i|
.Size = 15 '小三号 =LHz[dSL
.Bold = False Tj
v)jD
.Outline = False ? vr9l7VOi
.Italic = wdUndefined k2 Y *
.Subscript = wdUndefined b]cnTR2E
.Superscript = wdUndefined w :+wx/ \
End With ~![J~CkPS
With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat # )]L3H<
.LeftIndent = CentimetersToPoints(0) a s d3J
.RightIndent = CentimetersToPoints(0) 7;x}W-`iF
.FirstLineIndent = CentimetersToPoints(0) y $6~&X
M:QM*?+)
.LineSpacingRule = wdLineSpaceSingle
KKJ)BG?qZ
.Alignment = wdAlignParagraphLeft 8^>qzaf
8
&x>8
%Q s
.WidowControl = True mX&!/U
.KeepWithNext = True |E5\_Z
.KeepTogether = True LL"c 9jb4z
.PageBreakBefore = False t`oH7)nut
.OutlineLevel = wdOutlineLevelBodyText ,wPvv(b]a
i^2-PKPg{
.LineUnitBefore = 0.5 (>a8h~Na
.LineUnitAfter = 0.5 yHIZpU|( j
`#x}- A$
End With \mGo k<b4
ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False tVFydN~
ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll fNnX{Wq
ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese $G}!eV
6
ActiveDocument.Styles("QLNU二级标题").NoProofing = True `_Fxb@"R
DoEvents .5K
}R<
h}SP`
'三级标题样式 u/>+cT6}
ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") x}B_;&>&"_
ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" ?4A$9H
ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False lz >>{
With ActiveDocument.Styles("QLNU三级标题").Font ?@YABl
.NameFarEast = "宋体" "s.]amC
.NameAscii = "Times New Roman" ~D1&CT#s
.NameOther = "黑体" %.[jz,;)
.Name = "黑体" 5%1a!M M
M
.Size = 14 '四号 6Ud6F t6
.Bold = False ~us1Df0bp
.Outline = False pas^FT~
.Italic = wdUndefined |O4LR,{G.w
.Subscript = wdUndefined lJIcU
RI4
.Superscript = wdUndefined +\/1V`
End With ZW)_
dg 9
With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat `y0u(m5
.LeftIndent = CentimetersToPoints(0) |(77ao3
.RightIndent = CentimetersToPoints(0) vn5O8sD
.FirstLineIndent = CentimetersToPoints(0) o`+$h:zm@
SL ) ope
.LineSpacingRule = wdLineSpaceSingle L2<IG)oXU
.Alignment = wdAlignParagraphLeft Z0#&D&2sV
H2
Gj(Nc-
.WidowControl = True <7 R+p;y
.KeepWithNext = True &&$, BFY4
.KeepTogether = True 2?)8s"Y
.PageBreakBefore = False 9_ru*j\
.OutlineLevel = wdOutlineLevelBodyText PqVz ^(Wz
S<nf"oy_K
.CharacterUnitLeftIndent = 0 g;mX {p_@
.CharacterUnitRightIndent = 0 ` 5lW
.CharacterUnitFirstLineIndent = 2 +pG[
[}/
o<Y[GW1pg
.LineUnitBefore = 0.5 cf`g.9pjlx
.LineUnitAfter = 0 & @rXt!
End With PPMAj@B}V
ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False R+b~m!5 8
ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll On*pI37(\
ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese &8x
wR
ActiveDocument.Styles("QLNU三级标题").NoProofing = True 5R}K8"d
DoEvents .mwB'Ll
lGZf_X)gA^
'四级标题样式 8K@>BFk1.
ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") &$L6*+`h#
ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" = %Z5"] ;
ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False /*kc
|V
With ActiveDocument.Styles("QLNU四级标题").Font poU1Q#+4p*
.NameFarEast = "宋体" c%x9.s<+1
.NameAscii = "Times New Roman" J@l QzRqRb
.NameOther = "宋体" DqN<bu2
.Name = "宋体" /(jG9R M
.Size = 12 '小四号 (N[R`LN
.Bold = True s=[T ,:Z
.Outline = False > S
c/E}3
.Italic = wdUndefined } 8&?
.Subscript = wdUndefined AJ "a
.Superscript = wdUndefined UEeq@ot/ 4
End With Lh;U2pA
With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat ,:=g}i
u/ZV35z
.LeftIndent = CentimetersToPoints(0) 7GG:1:2+>
.RightIndent = CentimetersToPoints(0) 3$f+ 3/l
.FirstLineIndent = CentimetersToPoints(0) ,d`6
{ll
y)*W!]:7^>
.LineSpacingRule = wdLineSpaceSingle Ahf71YP
.Alignment = wdAlignParagraphLeft d$qi. %<kh
V7(-<})8
.WidowControl = True e gdbv
.KeepWithNext = True | 9Pi*)E
.KeepTogether = True tQWjNP ~
.PageBreakBefore = False
(\$=de>?
.OutlineLevel = wdOutlineLevelBodyText sE
zl4 I
)kk10AZV-E
.CharacterUnitLeftIndent = 0 oo-O>M#5
.CharacterUnitRightIndent = 0 )1, U~+JFU
.CharacterUnitFirstLineIndent = 2 H zc5BC
qLWM, [ Og
.LineUnitBefore = 0 R8bKE(*rxj
.LineUnitAfter = 0 GJ Takhj3
dng^#|X)?
End With Gr8%%]
1!0
ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False f[fH1cu&`
ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll v9"|VhZ
ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese NE 5H\
ActiveDocument.Styles("QLNU四级标题").NoProofing = True Hn sPXF'8g
DoEvents [x8_ax} w
"[
#.
'正文校式 t/ B4?A@C
ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") .Q5zmaA]
ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" s8V:;$ !
ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False o* sss
With ActiveDocument.Styles("QLNU正文").Font W87kE ?,
u ?7^+z
.NameFarEast = "宋体" +% !'~
.NameAscii = "Times New Roman" h-+vN hH
.NameOther = "宋体" u8r<B4k
.Name = "宋体" Ny` =]BA
z0T9tN!(
.Size = 12 '小四号 F_d>@-<
tV "Jh>Z
.Bold = wdUndefined qe2@bG%2+F
.Italic = wdUndefined ;q&uk -
.Subscript = wdUndefined M.3ULt8
.Superscript = wdUndefined <IO@Qj1*
Dt:NBN
.Outline = False O< ()T6
.Emboss = False 0`KR8# A@
.Shadow = False Z_Y'
3'^Tw
.Hidden = False D5"Xjo
*
~ i
UG2 4v
.DisableCharacterSpaceGrid = True LMHii Os,
End With @p%WFNR0
With ActiveDocument.Styles("QLNU正文").ParagraphFormat 3-v&ktD&N'
DI0Wk^ m
.LeftIndent = CentimetersToPoints(0) 9}A\Bh tiM
.RightIndent = CentimetersToPoints(0) P{+,?X\
.FirstLineIndent = CentimetersToPoints(0) K,5_{pj
T6nc/| Ot
.LineSpacingRule = wdLineSpaceExactly 8D G P A
.LineSpacing = 20 Dp-j(
F
.Alignment = wdAlignParagraphLeft ":!1
gC
8e"MP\0V
.WidowControl = False u9u'!hAGH
.KeepWithNext = False p)Fi{%bc
.KeepTogether = False noZ!j>f{@l
.PageBreakBefore = False WX4 f3U m
.Hyphenation = False ~c`%k> $
l1%ubu
.OutlineLevel = wdOutlineLevelBodyText }ui D8b{I
sv)4e)1
kca#ssN
.CharacterUnitLeftIndent = 0 a[=; 6!
.CharacterUnitRightIndent = 0 I3;03X<2
.CharacterUnitFirstLineIndent = 2 ~?z u5,vb
P!u0_6
.LineUnitBefore = 0 0iI|eE o
.LineUnitAfter = 0 fLg
:+Ue<B
.SpaceBefore = 0 5Zu k`%O
.SpaceAfter = 0 'l $ViNq;
.2V?G]u
.DisableLineHeightGrid = True IC:>60A,]
End With p
mc)$3u
ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False o k1-`c P
ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll V='A;gs
ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese k2/t~|
5
ActiveDocument.Styles("QLNU正文").NoProofing = True oq9gFJG(
DoEvents &G) /i *
dR!x)oO=
'图片段落样式 W4q
|55
ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") _% KRZx}
ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" B|ctauJ
ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False ~A_1 he~
With ActiveDocument.Styles("QLNU图片段落").Font Zx Ak
.Size = 12 '小四号 3$4
I
.Italic = wdUndefined ]jSRO30H3<
.Subscript = wdUndefined I<qG{PA
.Superscript = wdUndefined #O N^6f2
End With *:?XbtIK u
With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat ${{[g16X
"EBCf.3-
.LeftIndent = CentimetersToPoints(0) _0o65?F
.RightIndent = CentimetersToPoints(0) BVG.ZZR})
.FirstLineIndent = CentimetersToPoints(0) KM9H<;A
}poLH S/
.LineSpacingRule = wdLineSpaceSingle I#/"6%e
.Alignment = wdAlignParagraphCenter 4}-G<7*
.KeepWithNext = True GG
%*d]
.OutlineLevel = wdOutlineLevelBodyText t1ers> h
x}~Z[ bx
.CharacterUnitLeftIndent = 0
($Q|9>5,
.CharacterUnitRightIndent = 0
PckAL
.CharacterUnitFirstLineIndent = 0 zNM*xP gS
1EWskmp
.LineUnitBefore = 0 d)kO W!5\
.LineUnitAfter = 0 zmFS]IOv$
End With cb }OjM F
ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False d >O/Zal
ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll nCDG PzJ
ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese xg;vQKS6
ActiveDocument.Styles("QLNU图片段落").NoProofing = True a
y$CUw
DoEvents J\hqK*/8
?OFfU 4
qRL45 [ K
'第X章 ?{%"v \w
ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") L cTTfb+<
ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" gjzU%{ T ?
ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False ]JQ}9"p=5
With ActiveDocument.Styles("QLNU章节标题").Font Y-+JDrK
.NameFarEast = "黑体" NAX`y2z
.NameAscii = "Arial Black" L),r\#Y(v
.NameOther = "Arial Black" qNWSDZQ
.Name = "黑体" { wD:!\5
.Size = 16 }b^x#HC
.Bold = True S5\KI+;PW
.UnderlineColor = wdColorAutomatic 1L%$\0B4hm
.Outline = False xoQ(GrBY
.Italic = wdUndefined #xw3a<z ?u
.Subscript = wdUndefined LKgo(&mY
.Superscript = wdUndefined 7LsV lT [
.Scaling = 100 pP%9MSCi
.DisableCharacterSpaceGrid = True +z<GycIc?K
End With ]F 3fO5Z
With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat F_@? '#m
.LineSpacingRule = wdLineSpaceSingle JC# 5CCz
.Alignment = wdAlignParagraphCenter 5[]Yx l
.WidowControl = True 63QF1*gPH
.KeepWithNext = True lE$ (*1H
.KeepTogether = True Fg0!2MKq*
.PageBreakBefore = True CYYo+5x
.OutlineLevel = wdOutlineLevelBodyText N!./u(b
LtGjHB\+
.LeftIndent = CentimetersToPoints(0) QB d4ok: R
.RightIndent = CentimetersToPoints(0) p\Fxt1Y@X
.FirstLineIndent = CentimetersToPoints(0) W9; 9\k
ee {K5 G
.CharacterUnitLeftIndent = 0 UAGh2?q2
.CharacterUnitRightIndent = 0 Z |xgZG{
.CharacterUnitFirstLineIndent = 0 jS)
YYk5
C=t9P# g*.
.LineUnitBefore = 1 ]IH1_?HgP7
.LineUnitAfter = 0.5 j >G|Xv
?8FJMFv;4%
.AutoAdjustRightIndent = False fo~>y
.DisableLineHeightGrid = True vC Ubb
Qz
.FarEastLineBreakControl = True Y*sw;2Z;a
.WordWrap = True W4(GI]`_+
End With O7m-_#/\
ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False Bm;:
cmB0e
ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll dEkAU H
ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese 8?ip,
Q\
ActiveDocument.Styles("QLNU章节标题").NoProofing = True tB VtIOm9
DoEvents HGF&'@dn
[#%@,C
'表格标题 3|%058bF
ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") vlFq-W
!
ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" =s9*=5r 8
ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False UkcH+0o
With ActiveDocument.Styles("QLNU表格标题").Font +&G]\WX<
.NameFarEast = "楷体" ^ywDa^;-
.NameAscii = "Arial" <{i1/"k?X
.Name = "楷体" LTuT"}dT[
.Size = 10.5 H.[nr:
.Bold = True m#<J
r:-
.Underline = wdUnderlineNone {s{+ MbD
.Italic = wdUndefined >J#/IjCW
.Subscript = wdUndefined "q
KVGd
.Superscript = wdUndefined sl:1P^b
.Color = wdColorAutomatic ^91Ae!)d
End With JAy-N bb\
With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat :i|Bz6Ht4
DGg1TUE
.LineSpacingRule = wdLineSpaceSingle n. vrq-
.Alignment = wdAlignParagraphCenter ^%0^DN
.KeepWithNext = True |Mgzb0_IiQ
.KeepTogether = True TW}].A_-
.OutlineLevel = wdOutlineLevelBodyText *y', eB
ZC`VuCg2O
.LeftIndent = CentimetersToPoints(0) I
Y|`$sHb
.RightIndent = CentimetersToPoints(0) $ xis4/2
.FirstLineIndent = CentimetersToPoints(0) `dhBLAt
yb,$UT"]
.CharacterUnitLeftIndent = 0 \Nk578+AA
.CharacterUnitRightIndent = 0 ;rV
+eb)I
.CharacterUnitFirstLineIndent = 0 <sSH^J4QqX
0"Zxbgu)
.LineUnitBefore = 1 -/Zy{2 <u
.LineUnitAfter = 0 FiSx"o
X^rFR k
End With & Z js
ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False Mkr
&30il[
ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll cPkP/3I]h
ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese g_rk_4]
ActiveDocument.Styles("QLNU表格标题").NoProofing = True {^k7}`7,
DoEvents G8'
pG 22N x
'表格首行 l| y.6v
ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") 39I| .B"
ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False = ?BhtW
With ActiveDocument.Styles("QLNU表格首行").Font '
H4m"
.NameFarEast = "楷体" v`S ;.iD
.NameAscii = "Times New Roman" ">Ms V/
.Name = "楷体" @d:GtAW
.Size = 9 ;.^!
7 j
.Bold = True Zu 4au<
.Underline = wdUnderlineNone 9@}5 FoX"
.Italic = wdUndefined @$nh6l>i
.Subscript = wdUndefined cj[x% eK>
.Superscript = wdUndefined ^^< C9
End With {$ > .I
With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat w`v` aw]
.LineSpacingRule = wdLineSpaceSingle B> c2 *+Bk
.Alignment = wdAlignParagraphCenter 4q.yp0E
"&o"6ra }
.LeftIndent = CentimetersToPoints(0) +VL:O]`DJ
.RightIndent = CentimetersToPoints(0) I@IE0+ [n
.FirstLineIndent = CentimetersToPoints(0) q=*bcDu
ia,5=SKJ
{R"mvB`
.CharacterUnitLeftIndent = -0.5 >v f-,B
.CharacterUnitRightIndent = -0.5 db @^CS[P
.CharacterUnitFirstLineIndent = -0.5 Hp5.F>-
X ka +1c
.LineUnitBefore = 0 :4)(Qa(
.LineUnitAfter = 0 CR;E*I${
.SpaceBefore = 0 %:j`%F;R
.SpaceAfter = 0 Ti7
@{7>
E!uQ>'iq.
End With 9W, % [
ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False =R Z PDu
ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll U.h2 (-p
ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese f$vU$>+[
ActiveDocument.Styles("QLNU表格首行").NoProofing = True g yegdky3
DoEvents nW<nOKTnk_
;-
_ZWk]
'表格内容 qJ2Z5
ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") ?H>^X)Ph
ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False YW"uC\kg|
With ActiveDocument.Styles("QLNU表格内容").Font h50]%tp\
.NameFarEast = "楷体" ouO9%)zv
.NameAscii = "Times New Roman" P4.)kK.3q|
.Name = "楷体" <"}t\pT]
.Size = 9 gk;hpO
.Bold = False ju07
gzz
.Underline = wdUnderlineNone CugZ!>;^
.Italic = wdUndefined 7]ySj<1
.Subscript = wdUndefined #XG3{MGX[
.Superscript = wdUndefined ]68 FGH
End With hQ@#h`lS
With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat A~X\ dcn
.LineSpacingRule = wdLineSpaceSingle ] ^?w0A
.Alignment = wdAlignParagraphCenter Fnay{F8z
(?TK P 7
.LeftIndent = CentimetersToPoints(0) % m
[l/,2x
.RightIndent = CentimetersToPoints(0) 5>UQ 3hWo
.FirstLineIndent = CentimetersToPoints(0) <H{K&,Z(ZM
R0mkEM
.CharacterUnitLeftIndent = -0.5 ?uU _N$x
.CharacterUnitRightIndent = -0.5
7{7Y[F0
.CharacterUnitFirstLineIndent = -0.5 `VvQems
.LineUnitBefore = 0 l]j;0 i
.LineUnitAfter = 0 rz&'wCiOO
.SpaceBefore = 0 7SNdC8GZ~
.SpaceAfter = 0 [Jj@A(Cz
End With \En"=)A
ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False 3,2$N y3N
ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll 1Oq VV? oz
ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese u~>G8y)k9O
ActiveDocument.Styles("QLNU表格首行").NoProofing = True j\zlp
DoEvents L=fy!R
j"fx|6l)
'图片标题 s0:M'wA
ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") TL)7X.1'L
ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" y#8 W1%{x
ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False {:3:GdM6
With ActiveDocument.Styles("QLNU图片标题").Font <4< y
.NameFarEast = "楷体" QcJC:sP\>
.NameAscii = "Times New Roman" pvb&vtp
.Name = "楷体" y%x:~.
.Size = 10.5 78 ]Kv^l^_
.Bold = True %nG>3.%
.Underline = wdUnderlineNone ,In%r`{i
.Italic = wdUndefined <
Wp)Y
.Subscript = wdUndefined jatl v/,
.Superscript = wdUndefined ;$e)r3r`LV
.Outline = False Vw.)T/B_D
.Shadow = False LbYIRX
.Color = wdColorAutomatic &#KN"u PW
End With \m+=|
With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat 6b$C /
.LineSpacingRule = wdLineSpaceSingle wLb:FB2
.Alignment = wdAlignParagraphCenter agE- ,
wm Ie x
.KeepWithNext = wdUndefined dQ _4aO
.KeepTogether = True 5 8 7;2
.OutlineLevel = wdOutlineLevelBodyText gsUF\4A(J
g-B{K "z
.LeftIndent = CentimetersToPoints(0) fK *l?Hr
.RightIndent = CentimetersToPoints(0) .lM]>y)
.FirstLineIndent = CentimetersToPoints(0) C`.eJF
g$zGiqzMK
.CharacterUnitLeftIndent = 0 u&[L!w
.CharacterUnitRightIndent = 0 l)~ U
8
.CharacterUnitFirstLineIndent = 0 cd=|P?B i
bfm+!9=9S
.LineUnitBefore = 0 A{ M 7
.LineUnitAfter = 0 Ryh 0r
End With
^,F G 9
ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False ew~?
&=
ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll X6_
RlV]Sk
ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese |"S# uJW
ActiveDocument.Styles("QLNU图片标题").NoProofing = True ob'"
^LO\
DoEvents '[HQ}Wvn
fM|s,'Q1x
'目录项 TU58
ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") A?$-Uqb"
ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" U OGjil{.
ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False #I*{_|}=
With ActiveDocument.Styles("QLNU目录项").Font ;yy R_N S
.NameFarEast = "黑体" D~Ef%!&
.NameAscii = "Times New Roman"
+ u*Pi
.NameOther = "Times New Roman" W7gY$\1<&
.Name = "黑体" 4_sJ0 =z-
.Size = 10.5 /xcXd+k]
.Bold = False pLCS\AUTsv
.Italic = wdUndefined # s
BL E
.Underline = wdUnderlineNone <m\<yZ2aa
.Color = wdColorAutomatic ZJc{P5a1J
.Superscript = wdUndefined 0rz1b6F5,
.Subscript = wdUndefined i H@u3[w
End With m#i4_F=^b
With ActiveDocument.Styles("QLNU目录项").ParagraphFormat Gqc6]{
>;R`Q9s7
.LineSpacingRule = wdLineSpaceSingle V5i}^%QSs
.Alignment = wdAlignParagraphLeft <2L,+
5f?GSHA }
.WidowControl = False ?1c7w Ek
.KeepWithNext = False
68(^*
.KeepTogether = False uv8k ea .(
.PageBreakBefore = False '/t9#I@G\
.NoLineNumber = False ~d1=_p:~T
.OutlineLevel = wdOutlineLevelBodyText aXG|IN5 *m
>HRNB&]LdP
.LeftIndent = CentimetersToPoints(0) XjP &
.RightIndent = CentimetersToPoints(0) "Da-e\yA
.FirstLineIndent = CentimetersToPoints(0) =:xX~,qmv
mpC u,l+lo
.CharacterUnitLeftIndent = 0 HY1K
(T
.CharacterUnitRightIndent = 0 BDzAmrO<
.CharacterUnitFirstLineIndent = 0 l6 }+,v@#
J/E''*
.LineUnitBefore = 0 hN~H8. g
.LineUnitAfter = 0 7R
m\#
End With g/ShC8@=u
ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False Ge=^q.
ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll UKV<Ye|
ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot B$YoglEW:
ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese C.":2F;-e
ActiveDocument.Styles("QLNU目录项").NoProofing = True WVhQ?2@ }
DoEvents 0l& '`
R4R\ B
'参考文献 "
DLI x}
ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") @$ Nti>
ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" EJMd[hMhe
ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False " C&>$h_%
With ActiveDocument.Styles("QLNU参考文献").Font TC44*BH q
.NameFarEast = "宋体" CTKw 2`5u
.NameAscii = "Times New Roman" bvrXz-j
.NameOther = "Times New Roman" r_T"b
.Name = "Times New Roman" 0Zp5y@ V8
.Size = 12 _9H]:]1QH
.Bold = False nTGZ2C)c<'
.Italic = wdUndefined o| vL:| 8Q
.Subscript = wdUndefined {.p ;V
.Superscript = wdUndefined rXT? w]4
.Underline = wdUnderlineNone ],[<^= |
.UnderlineColor = wdColorAutomatic %&VI-7+K
.Color = wdColorAutomatic
^Y;,cLXJ
.Engrave = False m@+QC$6S
End With Y\WVkd(+G
With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat 6-tIe _5
8~t 8^eBg
.LineSpacingRule = wdLineSpaceExactly Z2`M8xEiH
.LineSpacing = 16 H eO& p@
.Alignment = wdAlignParagraphLeft 0^nF : F
.WidowControl = False n7G`b'
.KeepWithNext = False 5h^BXX|Y*
.KeepTogether = False 3c7i8b $
.PageBreakBefore = False
=
+Odu
.OutlineLevel = wdOutlineLevelBodyText O cPgw/
I
O(2c_! d
.LeftIndent = CentimetersToPoints(0) Lu:*nJ%1[
.RightIndent = CentimetersToPoints(0) Bq Hq S
.FirstLineIndent = CentimetersToPoints(0) o<txm ?+N
W)J5[p?
.CharacterUnitLeftIndent = 0 %4F\#" A
.CharacterUnitRightIndent = 0
f+ !J1
.CharacterUnitFirstLineIndent = -2 [tJn! cMs
hmOGte Af-
.LineUnitBefore = 0 ~av#r=x
.LineUnitAfter = 0 'J-a2oiM(
.SpaceBefore = 0 vnVT0)Lel
.SpaceAfter = 0 !OQ5AF$
7&wxnxSk^
End With !G\gqkSL
ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False rNo/H<J%+j
ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll : _:)S
ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS Zi7cp6~7
ActiveDocument.Styles("QLNU参考文献").NoProofing = True >5Lp;
ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese 3 yb]d5:U
DoEvents zv0sz ])
B8"c+<
b
' ] +m 2pEO
ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") [7HBn
ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" = M4:nt
ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False 4e .19H9
With ActiveDocument.Styles("QLNU论文题目").Font (ER9.k2
.NameFarEast = "黑体" =T6 ~89
.NameAscii = "Arial Black" KS$"Re$
.NameOther = "Arial Black" 8Dt
pb7\o
.Name = "Arial Black" 8>
$=p4bf
.Size = 16 )g^qgxnnV
.Bold = False L@=$0p41;
.Italic = wdUndefined X
Nfl
.Superscript = wdUndefined q+oc^FD?@
.Subscript = wdUndefined F=w:!tqA
.Underline = wdUnderlineNone V!Sm,S(
.UnderlineColor = wdColorAutomatic 42tZBz&
.Color = wdColorAutomatic WFV'^- 4
_ deEs5i
End With ILl~f\xG)
With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat ,%N[FZ`|
.LineSpacingRule = wdLineSpaceSingle ~|Ln9f-g
.Alignment = wdAlignParagraphCenter .{ljhE:
.WidowControl = True p=A, yGDV
.KeepWithNext = True _[rQt
8zn
.KeepTogether = True 2gkN\w6zQ
.PageBreakBefore = True w xte
.NoLineNumber = False j$XaO%y)
.OutlineLevel = wdOutlineLevelBodyText ^2
H-_
0gW{6BtPWm
.LeftIndent = CentimetersToPoints(0) xyM|q 9Gf@
.RightIndent = CentimetersToPoints(0) $ (xdF
.FirstLineIndent = CentimetersToPoints(0) (`E`xb@E,=
yEbo`/ ]b
.CharacterUnitLeftIndent = 0 Sw"h!\c`
.CharacterUnitRightIndent = 0 4%8den,|
.CharacterUnitFirstLineIndent = 0 .U@u |
iymN|KdpaZ
.LineUnitBefore = 1 rO .[/#p\
.LineUnitAfter = 1 Gos # =H
|4
\2,M#
.BaseLineAlignment = wdBaselineAlignAuto %xG<hNw/
End With Ak W>*x
ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False |ka/5o
ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll _izjvg
ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS t2
OBVzK
ActiveDocument.Styles("QLNU论文题目").NoProofing = True ^VG].6
ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese bHx
@
ActiveDocument.Styles("QLNU论文题目").NoProofing = True B0)|sH
DoEvents |39,n~"o&
~8mz .ZdY
'中文摘要 7)[Ve1;/N
ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") i
rq{ 21
ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" TI l
'Z7
ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False [wm0a4fg
With ActiveDocument.Styles("QLNU中文摘要").Font yhbU;qEG9
.NameFarEast = "宋体" ;L -)$Dy4
.NameAscii = "Times New Roman" NziCN *6
.NameOther = "Times New Roman" 5Rs#{9YE
.Name = "Times New Roman" s$fX
;
.Size = 12 }0]uA|lH*
.Bold = wdUndefined $ 57Q
g1
v
.Superscript = wdUndefined K$qY^oyQFw
.Subscript = wdUndefined SJh~4R\
.Italic = wdUndefined N 6u>V~i
.Underline = wdUnderlineNone k[ D,du')
.UnderlineColor = wdColorAutomatic _6,\;"it?8
.Color = wdColorAutomatic ,.V<rDwN&
End With NQ[X=a8N
With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat 3<M yb
.LineSpacingRule = wdLineSpaceExactly ~&RrlF h
.LineSpacing = 20 Zr2T^p5u
.Alignment = wdAlignParagraphLeft {'h&[f>zcQ
!vJ$$o6#
.WidowControl = False >K 4Nn(~ys
.KeepWithNext = False |?{V-L
.KeepTogether = True `o }+2Cb
.PageBreakBefore = False Ly^bP>2i
.NoLineNumber = False cAwqIihZ
.OutlineLevel = wdOutlineLevelBodyText oOvQA W8`
52Lp_M
.LeftIndent = CentimetersToPoints(0) 0x5Ax=ut
.RightIndent = CentimetersToPoints(0) l5VRdZ4Uf
.FirstLineIndent = CentimetersToPoints(0) l=l$9H,
46e?%0(
.CharacterUnitLeftIndent = 0 =. \hCg q
.CharacterUnitRightIndent = 0 %bF157X5An
.CharacterUnitFirstLineIndent = 2 : -#w
.LineUnitBefore = 0 uQx/o ^
.LineUnitAfter = 0 , <#Rk 'y$
S ;rd0+J
End With Keo< #C
c?
ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False 3T0-RP*
ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll uo 2k
ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS zng.(]U/?H
ActiveDocument.Styles("QLNU中文摘要").NoProofing = True ilJ`_QN
ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese *U$]U0M
ActiveDocument.Styles("QLNU中文摘要").NoProofing = True /J_ ],KdU
ActiveDocument.Styles("QLNU中文摘要").Frame.Delete Haktr2I
DoEvents m> P\}A^N
=M*pym]QSY
ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") C" **>OGe
ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" RC1bTM
ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False !DSm[Z
1
With ActiveDocument.Styles("QLNU英文标题").Font `|Di?4+6%
.NameFarEast = "黑体" > K,QP<B
.NameAscii = "Arial Narrow" Z#N w[>NN*
.Name = "Arial Narrow" j[A(@ w"
.Size = 16 : Bo
.Bold = True
%! nN<%
.Bold = wdUndefined 1
/{~t[*.
.Superscript = wdUndefined ~M H ^R1=]
.Subscript = wdUndefined ]*mUc`
.Italic = wdUndefined !a:e=b7g
)~R[aXkvY
.Underline = wdUnderlineNone EKF
4 ]
.UnderlineColor = wdColorAutomatic V?G%-+^
.StrikeThrough = False FI?J8a
.DoubleStrikeThrough = False =:w,wI.
End With yn]Sc<uK
With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat (2> q
.LineSpacingRule = wdLineSpaceSingle i6n,N)%H
.Alignment = wdAlignParagraphCenter OOXS
JE1
.WidowControl = True ~!PWJ~U
.KeepWithNext = False Xy
K,
.KeepTogether = False 1?|"33\03R
.PageBreakBefore = False 'V:MppQVZ.
.NoLineNumber = False M$@~|pQ<
.FirstLineIndent = CentimetersToPoints(0) P)f8 lU^z
.OutlineLevel = wdOutlineLevelBodyText KU(BY}/ ^
1~~GF_l?
.LeftIndent = CentimetersToPoints(0) nM .g8d K
.RightIndent = CentimetersToPoints(0) aAGV\o{^
.FirstLineIndent = CentimetersToPoints(0) ?K:\WW
yc3/5]E&
.CharacterUnitLeftIndent = 0 3fQ`}OcNr
.CharacterUnitRightIndent = 0 -`\^_nVC
.CharacterUnitFirstLineIndent = 0 .|go$}Fk
&Lt$~}*&6
.LineUnitBefore = 1 YQ HpW>z
.LineUnitAfter = 1 JZxA:dg
l
^L d5<
End With ?uL-qsU
ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False _^ (1Qb[
ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll +3-5\t`
ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS 3ddw'b'aQ
ActiveDocument.Styles("QLNU英文标题").NoProofing = True H9ES|ZJ s
ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese \ZV>5N3hS
ActiveDocument.Styles("QLNU英文标题").NoProofing = True =0 EKrG
ActiveDocument.Styles("QLNU英文标题").Frame.Delete \W C,iA%Y
DoEvents 9^n0<(99b
S g1[p#U
ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") e>e$ {\ =,
ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" .4"BN<9
ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False ^ }5KM87
With ActiveDocument.Styles("QLNU英文摘要").Font IaSPwsvt'
.NameFarEast = "宋体" 80Fa i
.NameAscii = "Arial" f9>pMfi:@
.NameOther = "Arial" H{5,
-x
.Name = "Arial" %Y;^$%X% _
.Size = 12 z Gg)R
.Bold = wdUndefined obF|;fwPnR
.Italic = wdUndefined X=m^+%iD
.Superscript = wdUndefined >%92,hg
.Subscript = wdUndefined sP W :[
End With 7~Inxk;
d@{1 2 hq
With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat H3R{+ 7
KyVzf(^
.LineSpacingRule = wdLineSpaceExactly W&9 qgbO]
.LineSpacing = 20 {p/Yz#
-o"b$[sf=Z
.Alignment = wdAlignParagraphJustify 9%NsW3|
D- C]0Jf3
.WidowControl = False NnHaHX
.KeepWithNext = False U n)Xe
.KeepTogether = False K*DH_\SPK
.PageBreakBefore = False *Us}E7/"'
.NoLineNumber = False ;-py h (
E kq(
.OutlineLevel = wdOutlineLevelBodyText 0<@['W}G
Fy E#
@ R
.LeftIndent = CentimetersToPoints(0) Pi?G:IF
.RightIndent = CentimetersToPoints(0) 8VQ!&^9!U#
.FirstLineIndent = CentimetersToPoints(0) GU/P%c/V
>Q@y8*E\F
.CharacterUnitLeftIndent = 0 }2RbX,0l9
.CharacterUnitRightIndent = 0 &gS-.{w "
.CharacterUnitFirstLineIndent = 2 l"d XL"h
:^{KY(3
.LineUnitBefore = 0 ub>:dNBN
.LineUnitAfter = 1 0H4|}+e
UTu~"uCR
End With H#YI7l2
ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False
Pm2LB<qS
ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll ySiZ@i4
ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS ai?J
ActiveDocument.Styles("QLNU英文摘要").NoProofing = False r`Fs"n#^-4
DoEvents &)tv4L&
oVHe<zE.
Options.Pagination = True 3zKeN:w
Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." l%mp49<
DoEvents ~:Z|\a58j
ActiveDocument.Repaginate iZnLgkk@
hwe6@T.#
End Sub iOv>g-t :
Gchs$^1`t
@o?Y[BR
