Dim bContinue As Boolean F
|GWYw'%
C2VZE
~U+
Dim regEX As New RegExp yZ2,AR %
Dim paraCounter As Long '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 #(A>yW702
L2:C6Sc
Dim LastTitle0String As String, LastTitle0No As Long l yT~>.?{
Dim LastTitle1String As String, LastTitle1No As Long ik]UzB
Dim LastTitle2String As String, LastTitle2No As Long 8 Ej2JMc
Dim LastTitle3String As String, LastTitle3No As Long 2vur _`c V
Dim LastTitle4String As String, LastTitle4No As Long oo qNPLa
Dim LastTitle5String As String, LastTitle5No As Long )PwDP
Dim LastTabelString As String, LastTableNo As Long vbWX`skU
Dim LastFigureString As String, LastFigureNo As Long aH~
il!K
>sP;B5S
Dim strSeperator As String Ufk7 % `
Z 2ZS5a
Sub ConvertWidth(fTEXT As String, rText As String) DS^Q0 f
Selection.Find.ClearFormatting
d2(n3Xf
Selection.Find.Replacement.ClearFormatting QTDI^ZeuF
Selection.Find.Wrap = wdFindContinue 4v{gc/g
Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText *L!R4;u
bE
DoEvents ' E@D
Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True )9*-Q%zc
End Sub ^ yfT7050
5=$D~>-#
Sub ClearDomain() D]0#A|n F
With Selection.Find }X`K3sk2/z
.ClearFormatting
%++q+pa
.Replacement.ClearFormatting sPhh#VCw{
.Wrap = wdFindContinue S
5XFYQ
Me.txtStatus.Text = "清除所有域代码" @U9ov >E
DoEvents $DQMN
.Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False #A|M NJ%m
End With w,P2_xk`
End Sub h;B ol
5zU D W?
Private Sub cmdCheck_Click() 't djPdw
bContinue = True X-%*`XG'
Dim NoSeries1(1 To 16) As String w ggl,+7
Dim NoSeries2(1 To 16) As String B EY}mR]
Dim NoSeries5(1 To 16) As String cL}g7D
Dim NoSeriesRM(1 To 16) As String _LS=O@s^
Dim paraTotal As Long, ParaText As String U2h?l
`nP
Dim ttString As String, ttNo As String d)
> if<o
a]Lr<i8#%
Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long 68D.Li
_ '}UNIL
Me.txtStatus.Visible = True )cvC9gt
Me.lbParaType.Visible = True [k.<x' #
Me.cmdCheck.Enabled = False VMNihx0FJ
P3:hGmk8|j
7N: ,F9V<
p3-sEIw}Ru
7y60-6r
Dim ParaType As String, rText As String Urt N3icph
-yC},tK
Selection.WholeStory \:Nbl<9(9
Selection.NoProofing = True hxv/285B
.|rpj&>g
tm1 = Now ul:jn]S*
9SU;c l
ActiveWindow.View.Type = wdNormalView ;Z8K3p
ed617J
NoSeries1(1) = "一" !]"T`^5,Y
NoSeries1(2) = "二" /2YI!U@A
NoSeries1(3) = "三" 9iv!+(n i
NoSeries1(4) = "四" eQNYfWR
NoSeries1(5) = "五" k muF*0Bjk
NoSeries1(6) = "六" 8L&# <Ol
NoSeries1(7) = "七" %II |;<
NoSeries1(8) = "八" w+JDu_9+A]
NoSeries1(9) = "九" t n}9(Oa)
NoSeries1(10) = "十" lT%o6qgT
NoSeries1(11) = "十一" .-o$ IQsS
NoSeries1(12) = "十二" {%
;tN`{M
NoSeries1(13) = "十三" bclA+!1
NoSeries1(14) = "十四" R[9[lQ'vR
NoSeries1(15) = "十五" _kar5B$
NoSeries1(16) = "十六" DQE.;0 ld
Gz
kf
NoSeries2(1) = "㈠" 6.k2,C4dT<
NoSeries2(2) = "㈡" +4@EJRC
NoSeries2(3) = "㈢" x&7!m
NoSeries2(4) = "㈣"
T%:}/@
NoSeries2(5) = "㈤" 1|Fukx<@J<
NoSeries2(6) = "㈥" Bq\%]2;eo{
NoSeries2(7) = "㈦" 7 6hi@ 7a
NoSeries2(8) = "㈧" h<}4mo_ $
NoSeries2(9) = "㈨" Wx^L~[l
NoSeries2(10) = "㈩" Er %nSH^"
[rf.P'p%
NoSeries5(1) = "①" O6m}#?Ai/@
NoSeries5(1) = "②" k<AnTboa
NoSeries5(3) = "③" h>fY'r)DAx
NoSeries5(4) = "④" C`DTPoXN
NoSeries5(5) = "⑤" -()CgtSR
NoSeries5(6) = "⑥" f>Ij:b`Z2
NoSeries5(7) = "⑦" eE7+fMP{
NoSeries5(8) = "⑧" z;Kyg}
NoSeries5(9) = "⑨" oo /#]a
NoSeries5(10) = "⑩"
TT> ;!nb
_RAPXU~ 6-
r% qgLP{v
NoSeriesRM(1) = "I" e O*F oN
NoSeriesRM(2) = "II" zHyM@*Gf(
NoSeriesRM(3) = "III" k /*r2 C
NoSeriesRM(4) = "IV" ] @Iz Jz"R
NoSeriesRM(5) = "V" o8Tt|Lxb$8
NoSeriesRM(6) = "VI" Of-l<Ks\
NoSeriesRM(7) = "VII" RU@`+6 j+
NoSeriesRM(8) = "VIII" p6sXftk
NoSeriesRM(9) = "IX" oo<,h Ov
NoSeriesRM(10) = "X" \`x$@s?
NoSeriesRM(11) = "XI" SkS
vu}
NoSeriesRM(12) = "XII"
rFGbp8(2
NoSeriesRM(13) = "XIII" yQ h":"$k
NoSeriesRM(14) = "XIV" XC~|{d
NoSeriesRM(15) = "XV" k|&@xEbS
NoSeriesRM(16) = "XVI" g#:?Ay-m
0*+i~g,Kl@
i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) 0b4QcfB1[
[X;yJ $
If i = vbNo Then -MeGJX:^I
Exit Sub ' w &,3@Z
End If 3>-^/
`rQA9;Tn2
If Me.chkSuper.Value Then c!j$ -Ovm
Me.txtStatus.Text = "检查修改所有的上标格式" n)[{nkS6[
V:yia^1
CheckSuperScript Sl{]Z,
N U\B
End If f BukrPsV
`vUilh ^c
If Me.chkStyle.Value Then Z}WMpp^r
Me.txtStatus.Text = "设置样式，请稍候...." Z?dz@d%C
DoEvents >NK*$r8
CeateOrModifyStyle JH5ckgdZ
End If =%p 0r z|b
E QMn'>
\y{C>! WX4
<& Y7Q[
ClearDomain s<aJ pi{n4
va| 1N/&
)] ?sCNb
ss.wX~I
If Me.chkLIST.Value Then r
5:DIA!
Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" 6 fL=2a
IL&Mf9m
ConvertListToOrdinary \&"gCv#
End If *i&ks> 4N
[>v.#:YM^
>q "mI6F
Dim pType As String, trimpTEXT As String +H8]5~',L%
If Me.chkNum.Value = True Then E]i3E[ T
Me.txtStatus.Text = "转换全角数字形式为半角" O*X ]oX
ConvertWidth "１", "1" eqg|bc[i!t
DoEvents [J wo,?w
ConvertWidth "２", "2" p m@Mlwg`1
DoEvents REli`"bR
ConvertWidth "３", "3" P @G2F:
}
DoEvents FG:(H0
ConvertWidth "４", "4" 4Y;z46yM%
DoEvents E&
/#Ov
ConvertWidth "５", "5" 5v
6*.e'p
DoEvents )Z,O*u*
ConvertWidth "６", "6" K HI-m9(
DoEvents &KmV tj
ConvertWidth "７", "7" r_F\]68
DoEvents VP et1hAy
ConvertWidth "８", "8" xZwG@+U=X
DoEvents ;&oS= 6$
ConvertWidth "９", "9" >2tYw,m
DoEvents 0p)
#!$
ConvertWidth "０", "0" 3* 1c CM42
DoEvents xhWWl(r`5
ConvertWidth "ａ", "a" I ze+](
DoEvents [}|x@
v9
ConvertWidth "ｂ", "b" :H@ Q`g u
DoEvents &iORB
ConvertWidth "ｃ", "c" nd}[X[ay
DoEvents GU([A@ ;
ConvertWidth "ｄ", "d" 3)3?/y)_
DoEvents =#
<!s!
ConvertWidth "ｅ", "e" }CIH1
q3P
DoEvents uD}Q}]Z
ConvertWidth "ｆ", "f" TY" 8.vd
DoEvents 9 rf6,hF
ConvertWidth "ｇ", "g" i^f*Em1
DoEvents 0NL~2Qf_4
ConvertWidth "ｈ", "h" k+t?EZ6L
DoEvents N8#wQ*MM>
ConvertWidth "ｉ", "i" W9+H /T7!
DoEvents ~+
Mp+gE
ConvertWidth "ｊ", "j" 'S;INs2|->
DoEvents 'pa[z5{k+
ConvertWidth "ｋ", "k" \QGh@AQp"
DoEvents eVGO6 2|!
ConvertWidth "ｌ", "l" 3rBSwgRl
DoEvents )[oegfnn-
ConvertWidth "ｍ", "m" 0Q`Dp;a5&
DoEvents &@<Z7))
ConvertWidth "ｎ", "n" '1'De^%6W
ConvertWidth "ｏ", "o" jJml[iC
ConvertWidth "ｐ", "p" ibAZ=RD
ConvertWidth "ｑ", "q" NO+.n)etGb
ConvertWidth "ｒ", "r" *j6K Q Z"
ConvertWidth "ｓ", "s" aA7}>
ConvertWidth "ｔ", "t" H Rn
Q*
ConvertWidth "ｕ", "u" B<zoa=
ConvertWidth "ｖ", "v" K&3,J7&&
ConvertWidth "ｗ", "w" @y ] e k/
ConvertWidth "ｘ", "x" OX-t#R `
ConvertWidth "ｙ", "y" 8iA[w-Pv
ConvertWidth "ｚ", "z" _)XQb1]
ConvertWidth "Ａ", "A" G)t_;iNL|
ConvertWidth "Ｂ", "B" IOhJL' r
ConvertWidth "Ｃ", "C" r$T\@oTL
ConvertWidth "Ｄ", "D" F>RL&i
ConvertWidth "Ｅ", "E" V"K-aO&
ConvertWidth "Ｆ", "F" 6Cfu1 9Dx
ConvertWidth "Ｇ", "G" n@[_lNa4GD
ConvertWidth "Ｈ", "H" I&vD >a5#
ConvertWidth "Ｉ", "I" >pdWR1ox
ConvertWidth "Ｊ", "J" _3~ /Z{z8
ConvertWidth "Ｋ", "K" y(^t &tgjS
ConvertWidth "Ｌ", "L" C>wOoXjt
ConvertWidth "Ｍ", "M" @G,p
M: t
ConvertWidth "Ｎ", "N" '{*{
ConvertWidth "Ｏ", "O" `ECY:3"$KA
ConvertWidth "Ｐ", "P" 3CcCcZ9I
ConvertWidth "Ｑ", "Q" UTwXN |'|
ConvertWidth "Ｒ", "R" Gj!9#on$7R
ConvertWidth "Ｓ", "S" fqpbsM;M]
ConvertWidth "Ｔ", "T" VokI c&!Uz
ConvertWidth "Ｕ", "U" ]ie38tX$
ConvertWidth "Ｖ", "V" >>bsr#aJ
ConvertWidth "Ｗ", "W" Sqn|
ConvertWidth "Ｘ", "X" ", O |uL
ConvertWidth "Ｙ", "Y" 'o}v{f
ConvertWidth "Ｚ", "Z" oN({X/P2j
ConvertWidth "^l", "^p" [ ICFPY6
ConvertWidth "（", "(" v]{F.N
ConvertWidth "）", ")" QP>tu1B|
VW&EdrR,S
End If {G. W?
6Ft?9
B(F:
With ActiveDocument J PO'1 D)
Dim tbl As Table }$%j} F{
For Each tbl In .Tables WVZ](D8Gc]
tbl.Rows.Alignment = wdAlignRowCenter M$YU_RPl+
tbl.Range.Font.NameFarEast = "楷体" ~?#>QN\\c
tbl.Range.Font.NameAscii = "Times New Roman" Ec'Hlsgh&T
tbl.Range.Font.Size = 10.5 H ?oBax:
Next n#$sLXVy
Set tbl = Nothing R RRF/Z;))
End With h @AKfE!\~
OEi u,Y|@l
; YN`E
With ActiveDocument /~~A2.= .
zbY2gq@?
For i = 1 To .TablesOfContents.Count b'r</n
cZ
.TablesOfContents(i).Delete 3V uoDmG
Next 2i0 . x
#z6[ 8B
C f
s2tN
aW= c.Q.
paraTotal = .Paragraphs.Count UlP2VKM1&
paraCounter = 1 )+7|_7
!x
00SYNG!
LastTitle0No = 0 X<8?>#
LastTitle1No = 0 ^#( B4l!
LastTitle2No = 0 WoV"&9y
LastTitle3No = 0 8FT]B/^&m
LastTitle4No = 0 r +:]lO
LastTableNo = 0 A:b(@'h
LastFigureNo = 0 {=I:K|&
Y N]xI
Dim Sec As Long I%(YR"
B_Ul&V
Sec = InputBox("正文从第一节开始？", "节设置", 6) e 'I/}J
If Sec = 0 Then aC90IJ8^
Exit Sub WwUhwY1o!L
End If ~F"<N q
0Wkk$0h9
k = 0 Ah 2*7@U
Do While (paraCounter < paraTotal) And bContinue 6C' W
k = k + 1 A>\5fO
If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then |qs8(
5z0
Exit Do S4 j5-
End If k I?+\k\V`
paraCounter = paraCounter + 1 +P! ibHfP
If k Mod 20 = 0 Then )fy-]Ky
*
Me.lbCounter.Caption = paraCounter IN8G4\r
DoEvents ~ECI L7,
End If \qf0=CPw8
Loop )2sE9G,
\+ M6R<Qw
~%chF/H
Do While (paraCounter < paraTotal) And bContinue Xfc+0 $U@
%8O1 sF
ParaText = Trim(.Paragraphs(paraCounter).Range.Text) PfR|\{(
ShapeHeight = 0 b1TIVK3m
ShapeWidth = 0 0 i'bo*
;NMv>1fI
CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth yopC
<k
q\pI&B
Select Case ParaType jFDVd;#CS
Case "【】表格内容" 9\'JtZO
.Paragraphs(paraCounter).Style = "QLNU表格内容" vmzc0J+3p
Case "章" 9| g]M:{
LastTitle0No = LastTitle0No + 1 %<)!]8}P*
'新一章开始，复位其下属标题编号 q@Aw]K h
LastTitle1No = 0 m>{ a<N
LastTitle2No = 0 \E(^<Af
LastTitle3No = 0 VQ"Z3L3-4
LastTitle4No = 0 NiH =T
gU&y5s~
k = Val(ttNo)
?kI yo
If k = 0 Then '非数字编号章节 lf w| Q@
If ttNo <> NoSeries1(LastTitle0No) Then )-\C{>
rText = "第" & NoSeries1(LastTitle0No) & ttString Wu~cy}\
Me.ErrMsg.AddItem "章节编号错误：" & ParaText CM%Rz-c
End If oBO4a ^D
Else ;A6%YY
If Val(ttNo) <> LastTitle0No Then 5^ck$af
rText = "第" & LastTitle0No & ttString 'aWqj+Wbh
Me.ErrMsg.AddItem "章节编号错误：" & ParaText @
D,]v:
End If m]+~F_/
LD*XNcE
End If % }IrZrh
N_^PoX935O
'章段落设置 T>hrKn.!D:
'字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 G{. [o6>
.Paragraphs(paraCounter).Style = "QLNU章节" q4#$ca[_ak
.Paragraphs(paraCounter).Range.Select {j6$'v )0
Selection.EndKey unit:=wdLine UY6aD~tD0
tc = Replace(rText, vbCr, "") U)[L KO1
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False 5jq
@ nq6
Case "一级标题" f\;w
(_
LastTitle1No = LastTitle1No + 1 -aq3Lqi
'新一级标题开始，复位其下属标题编号 j
n4|gQ
LastTitle2No = 0 nR]*RIp5
LastTitle3No = 0 =,b6yV+$D
LastTitle4No = 0 J`]9 n>G
1oc@]0n
If ttNo <> NoSeries1(LastTitle1No) Then 1=Kt.tuf
rText = NoSeries1(LastTitle1No) & "、" & ttString 4Ei8G]O
$_
Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText 7{Lp/z%r
End If "T$LJ 1E
1Q_Q- Z
u`CHM:<<?
'一级标题段落设置 格式：一、标题内容 Cag^$nj
.Paragraphs(paraCounter).Range.Text = rText 5e3p9K`5
.Paragraphs(paraCounter).Style = "QLNU一级标题" a<0q%A x
.Paragraphs(paraCounter).Range.Select 0QP=$X
Selection.EndKey unit:=wdLine z:a7)z
tc = Replace(rText, vbCr, "") " Tk,
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False ?edf$-"z/
Case "二级标题" Kf-XL ),3l
LastTitle2No = LastTitle2No + 1
J8- K
'新二级标题开始，复位其下属标题编号 ;`O9Y bP#
LastTitle3No = 0 O3V. 4tp
LastTitle4No = 0 cQkj{u
Mkh/+f4
If ttNo <> NoSeries1(LastTitle2No) Then /X]gm\x7s
rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString *knN?`(x
ErrMsg.AddItem "二级标题编号错误：" & ParaText ppo.# p0w
End If 7Ll? #eun
kQ]4 Bo
'二级标题段落设置 格式：(一)、标题内容 GorEHl vVh
.Paragraphs(paraCounter).Range.Text = rText QQ`tSYgex
.Paragraphs(paraCounter).Style = "QLNU二级标题" bY- koJo
L +mE&
.Paragraphs(paraCounter).Range.Select M"Af_Pbx
Selection.EndKey unit:=wdLine Yy~xNj5OS
tc = Replace(rText, vbCr, "") &OlX CxH
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 2 ", PreserveFormatting:=False 4.
Q [Tu
R;
w$_1
Case "三级标题" 1N_T/I8_F
LastTitle3No = LastTitle3No + 1 \gu8 ~zK
'新三级标题开始，复位其下属标题编号 ^7uXpqQBr
LastTitle4No = 0
7 }I';>QH
w&@zJ [
If Val(ttNo) <> LastTitle3No Then :>}7 ^1I
rText = LastTitle3No & ". " & ttString 8BrC@L2E0
Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText
E-%$1=;
XuWX@cK
End If 1s~rWnhVv
'三级标题段落设置 格式：1. 标题内容 2Wg:eh
.Paragraphs(paraCounter).Range.Text = rText ]4ck)zlv
.Paragraphs(paraCounter).Style = "QLNU三级标题" &xt[w>/ i
.Paragraphs(paraCounter).Range.Select s ib/~j
Selection.EndKey unit:=wdLine e"UXG\8D
tc = Replace(rText, vbCr, "") 7'OR ;b$
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 3 ", PreserveFormatting:=False rd>>=~vx=/
Case "四级标题" /6rQ.+|).
LastTitle4No = LastTitle4No + 1 qnHjw Mi
] x).C[^
If Val(ttNo) <> LastTitle4No Then w/ ^_w5
rText = "(" & LastTitle4No & "). " & ttString =), O ;M
ErrMsg.AddItem "四级标题编号错误：" & ParaText nuDu
9@ 4]t6h[
End If QLU <%w:B
'四级标题段落设置 格式：(1). 标题内容 V?Q45t Ae
.Paragraphs(paraCounter).Range.Text = rText kh@O_Q`
j
.Paragraphs(paraCounter).Style = "QLNU四级标题" N d ]RbX
.Paragraphs(paraCounter).Range.Select -Bq]E,Xf)
Selection.EndKey unit:=wdLine ALn_ifNh
tc = Replace(rText, vbCr, "") y #C9@C
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 4 ", PreserveFormatting:=False 3dz{" hV
]c v/dY#
Case "表格标题" zB`J+r;LU
LastTableNo = LastTableNo + 1 fW C(L s
:f:&B8
If ttNo <> CStr(LastTableNo) Then OLtXk
rText = "表" & LastTableNo & ". " & ttString H E{UgU:tY
ErrMsg.AddItem "表格编号错误：" & ParaText M3elog: M
rizjH+
End If Rp;"]Q&b
yZ!~m3Q
'表格名称段落设置 格式：表1. 表格名称 7O8 @T-f+2
.Paragraphs(paraCounter).Style = "QLNU表格标题" _k : BY
xe = Replace(rText, vbCr, "") aS[y\9(**
.Paragraphs(paraCounter).Range.Select $vK,Gugcx
Selection.MoveEnd wdCharacter, -1 '选择范围包括行尾的换行符。 w_V A:]j4
Selection.Range.Text = xe xbxzB<yL
Selection.EndKey .T m.M7
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False Y4w]jIv
:IU<A G6
Case "表格首行" }Ml BmD
.Paragraphs(paraCounter).Style = "QLNU表格首行" P* i 'uN
Case "图片标题" H
"Io!{aKU
LastFigureNo = LastFigureNo + 1 w2! :>8o:
& kVa*O
If ttNo <> CStr(LastFigureNo) Then j\wZjc-j
rText = "图" & LastFigureNo & ". " & ttString kOdA8X RY
ErrMsg.AddItem "表格编号错误：" & ParaText G)^/#d#&
IhBQ1,&J
End If -[J4nN &N
'图片名称段落设置 格式：图1. 图名称 j D*<M/4
.Paragraphs(paraCounter).Range.Text = rText bHcBjk.\
.Paragraphs(paraCounter).Style = "QLNU图片标题" :ssj7wl :
.Paragraphs(paraCounter).Range.Select auB
93 1|
Selection.EndKey unit:=wdLine $0x+b!_l@
xe = Replace(rText, vbCr, "") }t"K(oamm
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False w#hg_RK(Jr
Case "正文" O8A(OfX
'正文名称段落设置 J5{
.Paragraphs(paraCounter).Style = "QLNU正文" KgbBa2@ +
Case "文献条目" V;g)
P
With .Paragraphs(paraCounter) QgKR= GR6
'.Range.Select ).`v&-cK4E
'Selection.ClearFormatting $9j>oUG
'.Range.Find.Execute findtext:=rText, replacewith:=strSeperator 'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” *DvX|| `&
.Style = "QLNU参考文献" 1JU j e
End With S,C c0)j>
Case "图表注解" oOc-1C
y
With .Paragraphs(paraCounter) 4%zy$,|e
.Range.Font.NameFarEast = "楷体" @ ;@ ~ =w
.Range.Font.NameAscii = "Times New Roman" $&qLr KJ
.Range.Font.Size = 9 '小5号字 +)bn}L>R l
$a8,C\m e?
.Alignment = wdAlignParagraphCenter r\#nBoo(
.LeftIndent = 0 GLESngAl
.RightIndent = 0 k q]E@tE*3
.FirstLineIndent = 0 gG@ 4MXq.
.LineSpacing = 12 `mW~ {)x
.LineSpacingRule = wdLineSpaceExactly [3sZ=)G
.LineUnitAfter = 0 5~Ek_B
.LineUnitBefore = 0 3=o4ncg(
.OutlineLevel = wdOutlineLevelBodyText 00'SceL=`
.PageBreakBefore = False /_HTW\7,
.RightIndent = 0 pouXt-%2X
.WordWrap = True 6;\1bP?
.LineUnitAfter = 0.5 qdy(C^(fa
/
P
-#y@I
End With $m~&| s
Case Else #_x5-?3
'不作处理 T{^ P
End Select ~QlF(@u e
"wcw`TsK
'含有inlineshape的段落处理 r7].4 8D
If ShapeHeight > 30 Then ',!jYh}Uxk
.Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle '对有图片的段落设置为单倍行距 rW|%eT*/'A
End If pH.&C 5kA
,;5
%&T
If (ShapeWidth + ShapeHeight) > 150 Then ? {}P#sn
.Paragraphs(paraCounter).Style = "QLNU图片段落" PH&Qw2(Sx
End If PNd'21
N
2z" <m2 a
'段落计数器递 50 7 3Q~
paraCounter = paraCounter + 1 hr&&b3W3p
Me.lbCounter.Caption = "当前检测段落：" & paraCounter *!TQC6b$
Me.txtStatus.Text = ParaText b{,v?7^4
DoEvents livKiX`
Loop A`JE(cIz3
End With wd f;LM
>&:}L%
msg = "" )ii aT~
]
,C"6@/:l
For i = 0 To Me.ErrMsg.ListCount - 1 D
vvi)/<
msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) ,?Ie!r$6
Next ?<B I)[B
q]C_idK=
bcvm]aPu
LLT6*up$
Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg po'b((q
Me.cmdCheck.Enabled = True ^|zag
Me.txtStatus.Visible = True ,Y6] x^W
Me.lbParaType.Visible = False '_V9
FWDZ
IY8<
^Q']
bContinue = False ]P#W\LZp
End Sub KQb&7k .
SPRTJdaC9
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) Y3~z# <
Dim pTEXT As String >q&5Z
p-_9 I7?
pTEXT = ChKRange.Text }y+Qj6dP
U^|T{g+O
ParaType = "其它" T n/Z s|
TitleString = pTEXT j1 qU 4#Y
TitleNo = "N/A" ]T|$nwQ
BfCM\ij
shpCounter = ChKRange.InlineShapes.Count h~]e~u V
If shpCounter <> 0 Then lw gwdB
MaxShpHeight = 0: TotalShpWidth = 0 N8df1>mW
For i = 1 To shpCounter $Zo|t a^
k = ChKRange.InlineShapes(i).Height ]\ !k a /%
l = ChKRange.InlineShapes(i).Width ykJ+LS{+
If k > MaxShpHeight Then pnE]B0e
MaxShpHeight = k YmFg# e S
End If +TA~RC d
TotalShpWidth = TotalShpWidth + l )eT>[['fm
Next @[?ZwzY:9
If MaxShpHeight > 60 Or TotalShpWidth > 150 Then N%>h>HJ
Exit Sub vf@j d}?
End If 0HU0p!yt&
End If !W8=\:D[
/>}zB![(K
'空行 kr~n5WiAZ
If Len(pTEXT) <= 2 Then ||*F. p
Exit Sub ;,6C&|n]w
End If R4V X*qkB
V s x
I
*k_<|{>j(
'是否为表格中的文字 5,oLl {S'
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then 4i{Xs5z
k
ParaType = "表格内容" _ q1\8y
k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) 7FPSBvU#/
If k = 1 Then Zk lpnL*!
ParaType = "表格首行" )`{m |\b
End If *P9" 1K +
Exit Sub i!8"T#
End If $ 0K@= 7ms
Vt3*~B eb
'例外情况：脚注 T [xIn+w
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then <uS/8MP{
ParaType = "脚注" {]8|\CcY?
Exit Sub 52
j3[in
End If P(Rl/e yRM
7g ]mrI@
'例外情况：尾注 LQr!0p.i"
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then eR>8V8@
ParaType = "尾注" "_LqIW1
Exit Sub jSHF Y]2
End If L7aVj&xM
0&fO)de96
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then ZiQ<SSo:
ParaType = "页眉页脚" o6;
Exit Sub 9 Xl#$d5
End If Yq51+\d
QICxSk
+>1?ck
With regEX j;E$7QH[
.Global = True c1i:m'b_5
T%& vq6
.Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" 1goRO
If regEX.Test(pTEXT) Then Yb`b / BMR
ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") 8<T~AU8'*
TitleString = regEX.Replace(pTEXT, "$3") z9OpMA
TitleNo = regEX.Replace(pTEXT, "$1") *yw!Y{e!9
ParaType = "章" jQ 'g'c!
Exit Sub !ry+{ v+A
End If EV Z1Z
I<sUB4T>#W
.Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$"
s@"| o3BX
If regEX.Test(pTEXT) Then ]S]W|m7=.Z
ParaType = "一级标题" fap]`P~#L
regEX.Execute (pTEXT) svDnw cl
ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") ](Wa:U}Xs
TitleString = regEX.Replace(pTEXT, "$3") F)X`CG ;t
TitleNo = regEX.Replace(pTEXT, "$1") YaSBIq{z
Exit Sub |n tWMm:(
End If S'qT+p P
#_S]\=N(
'全角或半角括号中的数字 =y@0i l+V
.Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" / [49iIzC
If regEX.Test(pTEXT) Then QtG6v<A
ParaType = "二级标题" x:~XZX\mwH
regEX.Execute (pTEXT) w9<'0w cs
ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") `?R{sNr .
TitleString = regEX.Replace(pTEXT, "$5") n{M Th_C4n
TitleNo = regEX.Replace(pTEXT, "$2") 0M&n3s{5I
Exit Sub d7G@Z|R3p
End If #oa>Z.?_V
onRTX|#
'阿拉伯数字 1. 2. SPd EO3
.Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" r ~UDK]?V
If regEX.Test(pTEXT) Then w G7>2*(
ParaType = "三级标题" ogQfzk
regEX.Execute (pTEXT) w.aEc}@(^
ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 .TdFI"Yn
TitleString = regEX.Replace(pTEXT, "$3") u0arJU_.)
TitleNo = regEX.Replace(pTEXT, "$1") e21J9e6z
Exit Sub 7] 1a3Jk
End If /bo=,%wJ[
^o _J0
]m
'全角或半角括号中的阿拉伯数字 F1_,V
?
.Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" (M1YOK) I
If regEX.Test(pTEXT) Then ;Wy03}K4J
ParaType = "四级标题" gl`J(
regEX.Execute (pTEXT) "5k 6 FV
ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") KWjhkRK4]
TitleString = regEX.Replace(pTEXT, "$5") kiN,N]-V
TitleNo = regEX.Replace(pTEXT, "$2") \W TKw x
Exit Sub 7?uDh'utt
End If ^yc8is'`
k) Lhzr[
'表格名称 PDw +Q
.Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" =hb)e}l
If regEX.Test(pTEXT) Then Or?c 21un
ParaType = "表格标题" p&Q
m [!
regEX.Execute (pTEXT) =`|Bo f
R
ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) |hi,]D^K c
TitleString = Trim(regEX.Replace(pTEXT, "$3")) ZAy /u@qt
TitleNo = Trim(regEX.Replace(pTEXT, "$1")) J|^XD<Y
strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 G8_ _6v~
Exit Sub CC" a2Hu/
End If E:/!]sm !
DMsqTB`
'图片名称 L>1y[
Q
.Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" }T\.;$f
If regEX.Test(pTEXT) Then z8"1*V
ParaType = "图片标题" gt.F[q3
regEX.Execute (pTEXT) ^?(#%~NS
ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") ?t6w ozib2
TitleString = regEX.Replace(pTEXT, "$3") O.QR 1
TitleNo = regEX.Replace(pTEXT, "$1") Y7g%nz[[
Exit Sub e~(e&4pb
End If L
-}Uj^yF
;qUB[Kw
'参考文献 [o(!/38"@=
.Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})" '[数字]、 j0~c2
If regEX.Test(pTEXT) Then RV{%@1Pu
ParaType = "文献条目" 9#hp]0S6
'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") FGP^rTP)e
'TitleNo = regEX.Replace(pTEXT, "[$2] ") O/Hj-u6&A
Exit Sub 65O 8?I
End If PPySOkmS3
z\UXn RL
prfx = Left(pTEXT, 2) 1Dhe!
n#
If prfx = "注：" Or prfx = "注:" Then _6c/,a8;*J
ParaType = "图表注解" xF Ths,w
Exit Sub 'a JE+
End If *tRsm"}
tK
e-Dk9
\MmOI<Hd-
ParaType = "正文" UcB& p t&
286reeN/e
End With x"C7NW[$
End Sub EZ"i0u
<XDnAv0t
Sub ConvertListToOrdinary() bfncO[Q ,?
Dim st As Paragraph . 70=x H
With ActiveDocument gfI S
For i = .Paragraphs.Count To 1 Step -1 ~F,Y BX
Set st = .Paragraphs(i) c u";rnj
lst = st.Range.ListFormat.ListString e_3jyA@ v
If lst <> "" Then Da8gOZ
st.Range.ListFormat.RemoveNumbers Twd*HH
st.Range.InsertBefore lst & " " .xT{Rz
End If *My9r.F5o
Next B/@LE{qUn
End With `@1e{ ?$
Set st = Nothing y
Fmy
End Sub LprGsqr:
qyVARy
Private Sub UserForm_Activate() uK(]@H7~!c
Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" )7+z/y+[n
Me.lbTotal.Font.Bold = True (n>Gi;u(R
Me.txtStatus.Visible = False 2(~Z l\
Me.cmdCheck.Enabled = True `p* 43nV
H{N},B
End Sub wy:Gy9\
iZ}c[hC'3`
fB7Jx6
Sub CheckSuperScript() 3o>JJJ=]
Selection.Find.ClearFormatting #
T>?g5I
Selection.Find.Replacement.ClearFormatting V O {z)_
With Selection.Find ; P ju O
.Text = "[【\[［〖](*)[】\]〗］]" aj1,h)P
.Replacement.Text = "[\1]" z^tzP~nI
.Replacement.Font.Superscript = True GJQ>VI2cY
'.Replacement.Font.Color = wdColorBlue 6A.%)whI;
.Forward = True 0nD?X+ u
.Wrap = wdFindContinue ]ke9ipj]:
.FORMAT = True \*{Mg wF
.MatchCase = False U* yOe* >
.MatchWholeWord = False Bnk< e
.MatchByte = False .s4v*bng
.MatchAllWordForms = False dwUDhQt3Q
.MatchSoundsLike = False V0
Z8VqV
.MatchWildcards = True gXs9qY
%=
End With n^|xp;] :
Selection.Find.Execute Replace:=wdReplaceAll 1fIx @
End Sub `'XN2-M8
d6[' [dG
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) )hQ]> o@i{
bContinue = False j-**\.4a~
Set regEX = Nothing OS<GAA0
End Sub 7 qn=W
n!8W@qhew
Sub CeateOrModifyStyle() z(% tu
' vuY X0&
' Btzes.
Dim stl As Style ~&ns?z>x
?<N} Xh
Options.Pagination = False 0`WFuFi^o
(*6 .-Xn
On Error Resume Next l8+)Xk>
For Each stl In ActiveDocument.Styles z>,t P
stl.Delete rf]z 5;
Next }s'=w]m
On Error GoTo 0 JtMl/h
WH39=)D%u
Set stl = Nothing y* sVim x
iQ2}*:Jc$
DoEvents *!
:j$n;
On Error Resume Next M"p%CbcI]
J[Mj8ee#
ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph d(RMD
Y-1K'VhT
ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph C:^
:^y
ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph ,aS+RJNM
C|IHRw`[
ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph SKNHLE}
ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph u
]O}Ub`
/\mYXi \
ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph kjsj~jwvv
ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph 8O{V#aop
ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph E.Th}+
ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph ~Y l.(R
ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph p8-$MF]] 6
ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph #m<uG5l`
ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph Rm)hgmZ
$?z} yx$
ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph >cmz JS
ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph D xN\ H"
ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph YG= :lf
ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph *$R9'Yo}F
ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph y1}2hT0,
-
uO(qUa#
ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph \zk>cQ
On Error GoTo 0 4B[pQ lg
DoEvents 45[,LJaMd
T;{ }bc&I
'BaseStyle tg 'g R
ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False :a2[d1
With ActiveDocument.Styles("BaseStyle").Font h~qvd--p0
.NameFarEast = "宋体" HRbv%
.NameAscii = "Times New Roman" n r&|
.NameOther = "宋体" toD!RE
.Size = 10.5 [hot,\+f
.Bold = wdUndefined [Rq|;p
.Italic = wdUndefined >}NnzZ
.Subscript = wdUndefined `DSFaBj,
.Subscript = wdUndefined XA>u CJf
@Z#h?:
.Underline = wdUnderlineNone KTmwkZcfYD
.UnderlineColor = wdColorAutomatic * Od?>z
.StrikeThrough = False SD%3B!cpX
.DoubleStrikeThrough = False zx:;0Z:S6>
[X]hb7-&
.Outline = False q\jq9)
.Emboss = False
IaRwPDj6
.Shadow = False [hH>BEtm
.Hidden = False ft@#[Bkx
.SmallCaps = False 9mXmghoCO
.AllCaps = False kxyOe[7 S
.Color = wdColorAutomatic .+?]"1>]
.Engrave = False jz;
{,F
.Scaling = 100 bx L'k/Y$
.Kerning = 1 >f^kp8`3{Y
.Animation = wdAnimationNone t(PA+~sIp
.DisableCharacterSpaceGrid = False m;xa}b{(i
.EmphasisMark = wdEmphasisMarkNone .L 1[Rv3
End With A-L)2.M
With ActiveDocument.Styles("BaseStyle").ParagraphFormat h\Y~sm?!`
.LeftIndent = 0 seAEv0YWz
.RightIndent = 0 lsj9^z7
.SpaceBefore = 0 Glx{Zu=
.SpaceBeforeAuto = False #"TYk@whWf
.SpaceAfter = 0 FxK!h.C.
.SpaceAfterAuto = False 6nsb)7a
e&ZH 1^O
.LineSpacingRule = wdLineSpaceSingle b W/T}FN D
.Alignment = wdAlignParagraphJustify #pW!(tfN^a
=Xid"$
.WidowControl = False go6; _
.KeepWithNext = False 9+<A7PM1T
.KeepTogether = False e8: O2!HW
.PageBreakBefore = False eS4t0`kP
.NoLineNumber = False M
e: l)8+
jG& 8`*|*
.FirstLineIndent = CentimetersToPoints(0) QALr
.OutlineLevel = wdOutlineLevelBodyText L">jSZW[[
.CharacterUnitLeftIndent = 0 @~7au9.V=X
.CharacterUnitRightIndent = 0 z.)*/HGJm
.CharacterUnitFirstLineIndent = 0 ir\)Hz2P
.LineUnitBefore = 0 @Ss
W
.LineUnitAfter = 0 }LX!dDuwA
.AutoAdjustRightIndent = True HL$7Ou
.DisableLineHeightGrid = True $ Fc}K +
[K4 k7$
.FarEastLineBreakControl = True `< T4 En
.WordWrap = True n|Y}M]u,
.Hyphenation = False =I&BO[d
G eB-4img
.HangingPunctuation = True ';.y`{/
.HalfWidthPunctuationOnTopOfLine = True Kk
zG#'I1
.AddSpaceBetweenFarEastAndAlpha = True lF 46W
.AddSpaceBetweenFarEastAndDigit = True (Nf B+Ue}
.BaseLineAlignment = wdBaselineAlignBaseline qJl DQc-
End With z,dF Dl$
ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False n,-*$~{
ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll "9Q_lVI|Q
ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese x+%> 2qgj"
ActiveDocument.Styles("BaseStyle").NoProofing = False %M8Q6
KC9VQeSc
'一级标题题样式 OaoHN& "
ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") Dh#5-Kf %
ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" ~@ <o-|#
ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False $JBb]
v8_
With ActiveDocument.Styles("QLNU一级标题").Font S_??G:i
.NameFarEast = "黑体" ?=_w5D.3J
.NameAscii = "Arial Black" pV:44
.NameOther = "黑体" g~9rt_OV
.Name = "黑体" @_c&lToj_
.Size = 16 '三号 DW7Jk"\GH
.Bold = True /']
`}*d
.Italic = wdUndefined &F[N$6:v
.Subscript = wdUndefined \YF;/KwX$
.Superscript = wdUndefined 9X#]Lg?b
End With wNFx1u^/)
With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat &io
+*
5__B
M5|
.LeftIndent = CentimetersToPoints(0) }9z$72;Qdq
.RightIndent = CentimetersToPoints(0) j3+ hsA/(k
.FirstLineIndent = CentimetersToPoints(0) Lq6nmjL
Q=[ IO,f
.LineSpacingRule = wdLineSpaceSingle 4wEkxCWp/
.Alignment = wdAlignParagraphCenter bh\2&]D i/
2t? >0)*m
.WidowControl = True `s=Z{bw
.KeepWithNext = True Ag(J SVY
.KeepTogether = True =mcQe^M
.OutlineLevel = wdOutlineLevelBodyText :]8A;`G}
`GY]JVW
.LineUnitBefore = 0.5 * N{k#d/
.LineUnitAfter = 0.5 `W1TqA
End With EUgKJ =jw
ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False { N g ut
ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll $ 6r>
Tc](
ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese 4 s9^%K\8{
ActiveDocument.Styles("QLNU一级标题").NoProofing = True Ho& f[T
(
DoEvents l;aO"_E1m
| ?f~T"|>
'二级 aDLlL? r3
ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ^ K~=2^sh
ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" ,PKUgL}w
ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False ?wIEXKI
With ActiveDocument.Styles("QLNU二级标题").Font +>u 8r&Jw.
.NameFarEast = "黑体" <+%y
.NameAscii = "Arial Narrow" |vG ?H#y
.NameOther = "黑体" # !y X2lR
.Name = "黑体" }+u<w{-7/
.Size = 15 '小三号 n1R{[\ >1
.Bold = False pD~. "fb
.Outline = False R Eo{E
.Italic = wdUndefined 5yV>-XT+-
.Subscript = wdUndefined 37tJ6R6[
.Superscript = wdUndefined HuSE6a n
End With G(F=6L~;
With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat 4@ny%_/
.LeftIndent = CentimetersToPoints(0) N0K <zxR
.RightIndent = CentimetersToPoints(0) C4d CaiX
.FirstLineIndent = CentimetersToPoints(0) [V;u7Z\r-
nS.qK/.s
.LineSpacingRule = wdLineSpaceSingle Rf =-
Q
%
.Alignment = wdAlignParagraphLeft SD:Bw0gzrI
g*4^HbVxt
.WidowControl = True q!5`9u6
.KeepWithNext = True 2*n~r
.KeepTogether = True !@T~m1L
eY
.PageBreakBefore = False K^b'<} $|p
.OutlineLevel = wdOutlineLevelBodyText pOl6x iMx
mv$gL
.LineUnitBefore = 0.5 7fT_]H8
.LineUnitAfter = 0.5 /6 x[C
(X2[}K
End With o9]!*Y!RA
ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False D7B g!*
ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll Ne1W!0YLK
ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese H2+Ijn19E
ActiveDocument.Styles("QLNU二级标题").NoProofing = True }^n"t>Z8
DoEvents W n2J]BH
brqmi<*9"[
'三级标题样式 =gd~rk9
ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") =6fJUy^M\
ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" /;}o0
DYeW
ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False *J4 \KU
With ActiveDocument.Styles("QLNU三级标题").Font UhU+vy6)/
.NameFarEast = "宋体" bi-z%!Z
.NameAscii = "Times New Roman" +j8-l-o
.NameOther = "黑体" a`C2:Z23(#
.Name = "黑体" KYg'=({x
.Size = 14 '四号 cvtn,Ml6
.Bold = False
VIod 6Vk
.Outline = False Yfz`o
r\@=
.Italic = wdUndefined +& M >J|
.Subscript = wdUndefined {e[~ 1]j3
.Superscript = wdUndefined RO'b)J:j9
End With !0KN A1w,
With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat c47.,oTo
.LeftIndent = CentimetersToPoints(0) 6s! =de
.RightIndent = CentimetersToPoints(0) e>
uq/|.!
.FirstLineIndent = CentimetersToPoints(0) A* ] sN8
bNvc@oo
.LineSpacingRule = wdLineSpaceSingle 6mIRa(6V
.Alignment = wdAlignParagraphLeft \y7\RV>>3b
LzEH&y_O
.WidowControl = True J~ z00p`E
.KeepWithNext = True \x8'K
.KeepTogether = True W E
/1h
.PageBreakBefore = False V4,\vgGu
.OutlineLevel = wdOutlineLevelBodyText DsHm,dZ
C,< FV+r=^
.CharacterUnitLeftIndent = 0 IFF1wfC
.CharacterUnitRightIndent = 0 criNeKa
.CharacterUnitFirstLineIndent = 2 [ raj:
7yQ
/|v
b)J
.LineUnitBefore = 0.5 [ 4PiQyr
.LineUnitAfter = 0 f
LkC|
End With m'ZxmsFo
ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False !(j<Y0xo:
ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll zItGoJu
ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese b0N7[M1Xl
ActiveDocument.Styles("QLNU三级标题").NoProofing = True P}!pmg6V
DoEvents nIUts?mB
G*zhy ! P
'四级标题样式 ^'b\OUty-
ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") `yRt?UQRS
ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" O;( n[k
ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False qUQP.4Z9 5
With ActiveDocument.Styles("QLNU四级标题").Font 1n>AN.nI
.NameFarEast = "宋体" ]<_v;Q<t
.NameAscii = "Times New Roman" JY D\VaW
.NameOther = "宋体" Qg o| \=
.Name = "宋体" Orlf5 {P
.Size = 12 '小四号 GgvMd~
.Bold = True uxW<Eh4H*
.Outline = False R?2T0^0
.Italic = wdUndefined i$!K{H1{9
.Subscript = wdUndefined OeQ~g -n
.Superscript = wdUndefined ]==S?_.B3n
End With qvJQbo[.9P
With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat O
&dh<
y]ya.YG
.LeftIndent = CentimetersToPoints(0) gm: xtN
.RightIndent = CentimetersToPoints(0) HJe6h. P
.FirstLineIndent = CentimetersToPoints(0) O%} hNTS"
,!^;<UR:
.LineSpacingRule = wdLineSpaceSingle xu'b@G}12
.Alignment = wdAlignParagraphLeft 1w 9zl}
{]7 lh#M
.WidowControl = True }ol <D V
.KeepWithNext = True 3#`Sk`z<
.KeepTogether = True ^|cax| >
.PageBreakBefore = False IfCa6g<&(
.OutlineLevel = wdOutlineLevelBodyText sA,2gbW
;T> .
.CharacterUnitLeftIndent = 0 I$fm"N
.CharacterUnitRightIndent = 0 =cx_3gCr{
.CharacterUnitFirstLineIndent = 2 kNrd=s,-]D
5J6~]J
.LineUnitBefore = 0 `;s#/ `c|/
.LineUnitAfter = 0 |1+ m Hp
{'+.?g
End With CL!s #w1I\
ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False
#<-%%
ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll vH"^a/95|
ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese reNUIDt/c
ActiveDocument.Styles("QLNU四级标题").NoProofing = True
;, @Fz
DoEvents j>hBNz
7wbpQ&1_
'正文校式 _J _QB ]t
ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") CG!9{&F
ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" Nqb m,s
ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False W)odaab7
With ActiveDocument.Styles("QLNU正文").Font |q\Rvt$d
>
H]|R }h
.NameFarEast = "宋体" YE
-}1&8
.NameAscii = "Times New Roman" z)
"(&__
.NameOther = "宋体" :*tFW~<*b
.Name = "宋体" v
5&8C
r{Z4ifSl(
.Size = 12 '小四号 <;!# +|L/
AIM<mU
.Bold = wdUndefined i%r+/D)KvG
.Italic = wdUndefined OlsD
.Subscript = wdUndefined . H8 6f !=
.Superscript = wdUndefined t8 ~isuiK
W3B:)< f
.Outline = False %^;rYn3
.Emboss = False WG5)-;>q|
.Shadow = False R w!_j!
.Hidden = False 9%?a\#C
6e K7Jv\K
.DisableCharacterSpaceGrid = True DC'L-]#<
End With h,i=Y+1
With ActiveDocument.Styles("QLNU正文").ParagraphFormat e1R<+`]
lMjeq.5nP
.LeftIndent = CentimetersToPoints(0) Okd7ua-f
.RightIndent = CentimetersToPoints(0) (S63:q&g
.FirstLineIndent = CentimetersToPoints(0) fvV5G,lD3h
[5MV$)"!j
.LineSpacingRule = wdLineSpaceExactly @dhnpR :L
.LineSpacing = 20 8iUKG
.Alignment = wdAlignParagraphLeft Cuom_+wV&
' u: J
"
.WidowControl = False }Q;^C
.KeepWithNext = False &f/"ir[8i
.KeepTogether = False 6dqI{T-i ?
.PageBreakBefore = False iz6+jHu'l
.Hyphenation = False |u ^~Z-.
jh~E!%d77
.OutlineLevel = wdOutlineLevelBodyText [T
2!,D.
#nS crs@
SJ&+"S&
.CharacterUnitLeftIndent = 0 i#Z#(D
`m
.CharacterUnitRightIndent = 0 AaDMX,
.CharacterUnitFirstLineIndent = 2 JuR x>F4
AhNz[A
.LineUnitBefore = 0 ~Z ;.n p(T
.LineUnitAfter = 0 Lr(My3vF8q
.SpaceBefore = 0 Ce@"+k+w
.SpaceAfter = 0 ] P4?
jKI
%$+bO/f
.DisableLineHeightGrid = True ;fm>
\f
End With 34aSRFsk*
ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False a ydf# [F
ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll W@vCMy!
ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese :i o[9B [
ActiveDocument.Styles("QLNU正文").NoProofing = True 0gJ{fcI
DoEvents zIc_'Z,b
Y]"l cr}
'图片段落样式 |k/;1.b!9(
ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") "'I |#dKoG
ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" VO7&<Y}{x
ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False <
_ <?p&
With ActiveDocument.Styles("QLNU图片段落").Font ,y[w`Q\
.Size = 12 '小四号 S2~im?^21
.Italic = wdUndefined O
_^Y*!
.Subscript = wdUndefined qo
:t"x ^
.Superscript = wdUndefined A
XPdg o6
End With cg}lF9;d
With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat XlxM.;i0H
X[1w(d U[
.LeftIndent = CentimetersToPoints(0) Xcc i)",!
.RightIndent = CentimetersToPoints(0) =5 $BR<'
.FirstLineIndent = CentimetersToPoints(0) zQsW*)L
VP6_}9:9
.LineSpacingRule = wdLineSpaceSingle a )M3 t
.Alignment = wdAlignParagraphCenter i [2bz+Z?
.KeepWithNext = True ?s9f}>
.OutlineLevel = wdOutlineLevelBodyText P,K^ oz}
d PF*G$
.CharacterUnitLeftIndent = 0 TA!6|)BUW
.CharacterUnitRightIndent = 0 ^-qz!ib
.CharacterUnitFirstLineIndent = 0 7_ 5-gt D
jlaC: (6
.LineUnitBefore = 0 'LLpP# (
.LineUnitAfter = 0 Ev1gzHd! i
End With m=D9V-P
ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False _>Oc> .MB
ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll 8} |!p>
ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese NPt3#k^bW
ActiveDocument.Styles("QLNU图片段落").NoProofing = True iY3TB|tMt
DoEvents [}?E,1Q3
zkHyx[L
wl%I(Cw{]
'第X章 <
-=g)3_
ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 1<pb=H
ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" S+-V16{i
ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False { [r}gS%
With ActiveDocument.Styles("QLNU章节标题").Font 'M
% uw85
.NameFarEast = "黑体" dwUs[v
.NameAscii = "Arial Black" g"X!&$ &
.NameOther = "Arial Black" o65I(`
.Name = "黑体" z_nY>_L83*
.Size = 16 ?q}:ojrs1
.Bold = True 6G>loNM^
.UnderlineColor = wdColorAutomatic '],G!U(
.Outline = False k$ w#:Sx
.Italic = wdUndefined qXB5wDJg
.Subscript = wdUndefined )bK3%>H#
.Superscript = wdUndefined ;% l0Ml>
.Scaling = 100 6@ =ipPCR
.DisableCharacterSpaceGrid = True Y?JB%%WWI
End With fI-f Gx
With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat zB#.EW
.LineSpacingRule = wdLineSpaceSingle ?2Sm
f
.Alignment = wdAlignParagraphCenter
v=?/c-J*
.WidowControl = True sO8F0@%aH(
.KeepWithNext = True (6X{ &
.KeepTogether = True CjmF2[ |
.PageBreakBefore = True 2 3P7 %\
.OutlineLevel = wdOutlineLevelBodyText ~.J{yrJ&
uB+ :sX-L
.LeftIndent = CentimetersToPoints(0) @BI;H
V%k
.RightIndent = CentimetersToPoints(0) $%?[f;S3,
.FirstLineIndent = CentimetersToPoints(0) Nn O%D^P]
+Al* MusS
.CharacterUnitLeftIndent = 0 }ZfdjF8N!
.CharacterUnitRightIndent = 0 @6{F4
.CharacterUnitFirstLineIndent = 0 z /f0 .RJ
UkM#uKr:
.LineUnitBefore = 1 kwr M3 nq
.LineUnitAfter = 0.5 fWl #CI\]
;~ Q `TWC
.AutoAdjustRightIndent = False Kd7 Lpw1u]
.DisableLineHeightGrid = True MZdj!(hO
.FarEastLineBreakControl = True L v:;}
.WordWrap = True BYb"[qPV
End With } v3w-
ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False
{R5_=M G
ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll d(9C7GLC,
ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese w)"F=33}5
ActiveDocument.Styles("QLNU章节标题").NoProofing = True <O~ieJim
DoEvents -n
6e;p]
~5n?=
'表格标题 O\}w&BE:h
ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") h%Uq
ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" Vu Ey`c
ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False P +Sgbtc
With ActiveDocument.Styles("QLNU表格标题").Font MQl GEJ
.NameFarEast = "楷体" ~R~MC(5N[
.NameAscii = "Arial" H8qWY"< Vd
.Name = "楷体" *:Y9&s^6j
.Size = 10.5 #e&LyYx4
.Bold = True :Oi}X7\
.Underline = wdUnderlineNone 8l>YpS*S^
.Italic = wdUndefined 7O' u5 N
.Subscript = wdUndefined X-cP ' "
.Superscript = wdUndefined eY3<LVAX
.Color = wdColorAutomatic /Ca
M(^W
End With %H=^U8WB
With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat Hn Y.=_G
;H"OZRQ
.LineSpacingRule = wdLineSpaceSingle !s[ gv1
.Alignment = wdAlignParagraphCenter \N)!]jq
.KeepWithNext = True
O]Q 8&(
.KeepTogether = True FOS*X
.OutlineLevel = wdOutlineLevelBodyText fq !CB]C
Bn*QT:SKC
.LeftIndent = CentimetersToPoints(0) Bh()?{
q
.RightIndent = CentimetersToPoints(0) XPMvAZL
.FirstLineIndent = CentimetersToPoints(0) :qtg `zM/4
d"}lh:L9
.CharacterUnitLeftIndent = 0 hj=k[t|g}
.CharacterUnitRightIndent = 0 X9ec*x
.CharacterUnitFirstLineIndent = 0 <P-AlHYV-
(FSa>
.LineUnitBefore = 1 XZj3 x',;
.LineUnitAfter = 0 #[y2nK3 zF
P&AaD!Qn
End With L.% zs
ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False *):s**BJ$
ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll <E7y:%L[Go
ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese )T'~F
ActiveDocument.Styles("QLNU表格标题").NoProofing = True MO
*7:hI
DoEvents F-2Q3+7$
7 }vx]p2
'表格首行 kf_*=ER
ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") ^2" w5F
ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False 5)p! }hWs
With ActiveDocument.Styles("QLNU表格首行").Font =+"-8tz8FV
.NameFarEast = "楷体" x=V3_HI/}
.NameAscii = "Times New Roman" cp4~`X
.Name = "楷体" Gc<^ b
.Size = 9 ,-1d2y
.Bold = True %m "9 =C
.Underline = wdUnderlineNone q `L} \}o
.Italic = wdUndefined q`HK4~i,
.Subscript = wdUndefined MG3xX;
.Superscript = wdUndefined z=qxZuFkDs
End With
S
vW{1
With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat VaTA|=[;
.LineSpacingRule = wdLineSpaceSingle "tmr
s
_~
.Alignment = wdAlignParagraphCenter 0D}k
^W
+jj] tJ$[
.LeftIndent = CentimetersToPoints(0) c )SQ@B@q
.RightIndent = CentimetersToPoints(0) g\@zQ^O?
.FirstLineIndent = CentimetersToPoints(0) OQ4rJ#b
M&0U@ r -
2Kw i4R
.CharacterUnitLeftIndent = -0.5 "cDc~~3/@
.CharacterUnitRightIndent = -0.5 /B5rWJ2AS
.CharacterUnitFirstLineIndent = -0.5 /X?%K't2r
r,wC5%&Za
.LineUnitBefore = 0 Q8NrbMrl
.LineUnitAfter = 0 K#dG'/M|Pb
.SpaceBefore = 0 |O[ I=!
.SpaceAfter = 0 Ob|v $C
|kqRhR(Ei
End With $2$jV1s
ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False 7l G,.W|
ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll eyG[1EEU
ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese 1b8}TG2
ActiveDocument.Styles("QLNU表格首行").NoProofing = True 6V-JyTcxGI
DoEvents h BzZJ/jn
&}FWpo!
'表格内容 3+V.9TL'a
ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") 6' 9zpe@`
ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False CZ ,2Rq
With ActiveDocument.Styles("QLNU表格内容").Font .wkW<F7
.NameFarEast = "楷体" *ub"!}$st
.NameAscii = "Times New Roman" c1g'l.XL
3
.Name = "楷体" n/+G^:~_
.Size = 9 p
?x]|`M
.Bold = False ^ 1X
6D
H`
.Underline = wdUnderlineNone k<%y+v
.Italic = wdUndefined #Z} YQ $g
.Subscript = wdUndefined (o1o);AO
.Superscript = wdUndefined oC(.u ?
End With ccgV-'IG9
With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat C40W@*6S2
.LineSpacingRule = wdLineSpaceSingle lt#3&@<v
.Alignment = wdAlignParagraphCenter 2jyxP6t
G[J z(/yNH
.LeftIndent = CentimetersToPoints(0) {$v>3FG
.RightIndent = CentimetersToPoints(0) R5fZ }C7
.FirstLineIndent = CentimetersToPoints(0) Y2(,E e2
29f4[V X
.CharacterUnitLeftIndent = -0.5 Fc a_(jw
.CharacterUnitRightIndent = -0.5 ? 1U q ud
.CharacterUnitFirstLineIndent = -0.5 |/!RN[<
.LineUnitBefore = 0 nT@FS t
.LineUnitAfter = 0 r\ m2Oo)]
.SpaceBefore = 0 m WH;-F*%
.SpaceAfter = 0 EK zYL#(i
End With 6jz~q~
I
ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False /
(Ryh6M
ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll 8lF:70wia
ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese #
0/,teJ k
ActiveDocument.Styles("QLNU表格首行").NoProofing = True r1.OLn?C
DoEvents Qz([\X x:
MG74,D.f
'图片标题 S|T*-?|
ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") = '<*mT<
ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" ^fvx
2<
ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False je=XZ's,i~
With ActiveDocument.Styles("QLNU图片标题").Font -m Sf`1l0
.NameFarEast = "楷体" Q$~_'I7~Mz
.NameAscii = "Times New Roman" 6KKQ)D Nu_
.Name = "楷体" KwhATYWQb
.Size = 10.5 )7a
4yTg!~
.Bold = True "qw.{{:tf
.Underline = wdUnderlineNone ?# )\SQ
.Italic = wdUndefined d&%}u 1 .
.Subscript = wdUndefined `B7? F$J
.Superscript = wdUndefined tdnd~ WSR
.Outline = False #=I5 _u
.Shadow = False =
[ `gfw
.Color = wdColorAutomatic 3s Mmg`
End With nLnzl
With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat XF 99h&;9
.LineSpacingRule = wdLineSpaceSingle ShMP_?]P
.Alignment = wdAlignParagraphCenter t flUy\H>
{-L}YX"Bh
.KeepWithNext = wdUndefined -FQS5Zb.!
.KeepTogether = True %(g!,!l)
.OutlineLevel = wdOutlineLevelBodyText _&PF (/w
MMf_
.LeftIndent = CentimetersToPoints(0) 5} 1qo7;
.RightIndent = CentimetersToPoints(0)
BXLw
.FirstLineIndent = CentimetersToPoints(0) 9D51@
b6k
>; k~ B
.CharacterUnitLeftIndent = 0
8V+
.CharacterUnitRightIndent = 0 GD#W= O
.CharacterUnitFirstLineIndent = 0 _"- ,ia[D
`
NWmwmWB"
.LineUnitBefore = 0 #YB3Ug]z
.LineUnitAfter = 0 !-q) 9K?
End With e)]DFP[ n
ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False hr/|Fn+kA
ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll fnudy% oo
ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese C<N7zM wT
ActiveDocument.Styles("QLNU图片标题").NoProofing = True > `+lEob
DoEvents Z/b,aZhB
fx/If
'目录项 RzqU`<//
ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") Xvn \~Vr
ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" N1X;&qZDd
ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False wO"ezQ
With ActiveDocument.Styles("QLNU目录项").Font }62
Q{>`
.NameFarEast = "黑体" 2 m2$jp0
.NameAscii = "Times New Roman" &_$xMM,X
.NameOther = "Times New Roman" c.h_&~0qf
.Name = "黑体" avxI%% |
.Size = 10.5 $TavvO%#
.Bold = False :/i13FQ
.Italic = wdUndefined pcPRkYT[ M
.Underline = wdUnderlineNone UU xP4
.Color = wdColorAutomatic j4Y] 8
.Superscript = wdUndefined RH&}'4JE:
.Subscript = wdUndefined .KF(_
92
End With ;
Dc\[r
With ActiveDocument.Styles("QLNU目录项").ParagraphFormat
qi m |=
XC\ '8hL:
.LineSpacingRule = wdLineSpaceSingle
fG|+ !
.Alignment = wdAlignParagraphLeft uN(N2m
]H=P (
Z -
.WidowControl = False @wa< nY d
.KeepWithNext = False
* |)O
.KeepTogether = False ;;n=(cM|z
.PageBreakBefore = False bs_
rw+
.NoLineNumber = False d x"9jFn
.OutlineLevel = wdOutlineLevelBodyText v#$} 3+KVC
=B
ts
.LeftIndent = CentimetersToPoints(0) bE2{^5
iG
.RightIndent = CentimetersToPoints(0) ' g Fewo
.FirstLineIndent = CentimetersToPoints(0) mv1|oFVW
RJLhR_t7n
.CharacterUnitLeftIndent = 0 F1&7m
)f$l
.CharacterUnitRightIndent = 0 :w:ql/?X
.CharacterUnitFirstLineIndent = 0 ()yOK$"
$
Bdxu
.LineUnitBefore = 0 V -z F'KI[
.LineUnitAfter = 0
@{x+ln1r
End With r }Nq"s<
ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False k
1;Jkq~
ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll P !~B07y
ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot 2Q[q)u
ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese UQCon d+K
ActiveDocument.Styles("QLNU目录项").NoProofing = True #5_
pE1
DoEvents vjYG>YhV
a,\GOy(q{
'参考文献 <W88;d33r=
ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle")
d4A 3DTW
ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" KPI[{T\`ZM
ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False /G#W /Q
With ActiveDocument.Styles("QLNU参考文献").Font n_-k <3
.NameFarEast = "宋体" ( ALsc@K
.NameAscii = "Times New Roman" & Ef6'
.NameOther = "Times New Roman" zl["}I(*n
.Name = "Times New Roman" ; V)94YT
.Size = 12 ]`eJ Sk.
.Bold = False 6>- Gi
.Italic = wdUndefined d(6&kXK
.Subscript = wdUndefined =N {-lyr)
.Superscript = wdUndefined 8'Q1'yc
.Underline = wdUnderlineNone f9J]-#I if
.UnderlineColor = wdColorAutomatic qN6GLx%
.Color = wdColorAutomatic *uMtl'
.Engrave = False o ) Nm5g
End With lK #~lC
With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat R|dSjE s
2T}FX4
'
.LineSpacingRule = wdLineSpaceExactly vmT6^G
.LineSpacing = 16 Z n]e2
.Alignment = wdAlignParagraphLeft Aq{7WA
.WidowControl = False f'B#h;`
.KeepWithNext = False -.hH,zm
.KeepTogether = False UJGma E
.PageBreakBefore = False D }EH9d
.OutlineLevel = wdOutlineLevelBodyText (r$QQO) /
StM)lVe F
.LeftIndent = CentimetersToPoints(0)
"'mr0G9X
.RightIndent = CentimetersToPoints(0) T( sEk
.FirstLineIndent = CentimetersToPoints(0) DP4l
%2m0
]=m0@JTbG
.CharacterUnitLeftIndent = 0 8^"P'XQ
.CharacterUnitRightIndent = 0 'K3%@,O
.CharacterUnitFirstLineIndent = -2 !6{b )P
< zF /at
.LineUnitBefore = 0 LX iis)1
.LineUnitAfter = 0 }o9(Q8
.SpaceBefore = 0 q|.K& @_'K
.SpaceAfter = 0 KPs
@v@5M
N;XJMk_ H
End With j:'!P <#
ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False d,%@*v]S
ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll + /2:
ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS w}Xy
;0c
ActiveDocument.Styles("QLNU参考文献").NoProofing = True Zj2tQ}N
ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese vKNxL^x
DoEvents ~
aRcA|`
v@
OM
' w 0$l3^}z
ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") s&Qil07 Vl
ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" =s[P =d U
ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False K2t|d[r
With ActiveDocument.Styles("QLNU论文题目").Font iVb#X#
.NameFarEast = "黑体" /R)(u@jk
.NameAscii = "Arial Black" -Khb
.NameOther = "Arial Black" p?eQ
N
Y
.Name = "Arial Black" "AMsBvzgo
.Size = 16 S:xG:[N@
.Bold = False ,Y 2){8#l
.Italic = wdUndefined & ?B\(? *
.Superscript = wdUndefined -xc'
P,`
.Subscript = wdUndefined Ov8{ny
.Underline = wdUnderlineNone 407
;M%?'A
.UnderlineColor = wdColorAutomatic QzA/HP a
.Color = wdColorAutomatic aFwfF^\(|,
zd#/zUPI
End With %dA7`7j
With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat Q-Rt
.LineSpacingRule = wdLineSpaceSingle p4I6oS`/.
.Alignment = wdAlignParagraphCenter 6'vt
'9
.WidowControl = True p&, 2@(Q
.KeepWithNext = True AJ-~F>gn
.KeepTogether = True `PvGfmYOl
.PageBreakBefore = True #ui7YUR=2
.NoLineNumber = False 7( bE;(4
.OutlineLevel = wdOutlineLevelBodyText }8&L?B;90
fIc
ra
.LeftIndent = CentimetersToPoints(0) t!}?nw%$
.RightIndent = CentimetersToPoints(0) j8#B
.FirstLineIndent = CentimetersToPoints(0) n {r _Xa
~yuj;9m3
.CharacterUnitLeftIndent = 0 K>fY9`Whm
.CharacterUnitRightIndent = 0 jRzQ`*KC#
.CharacterUnitFirstLineIndent = 0 jYJfo<
+ Ek('KOF
.LineUnitBefore = 1 U2VnACCUZs
.LineUnitAfter = 1 Oz_|
pu
[:\8Ug8
.BaseLineAlignment = wdBaselineAlignAuto J0"<} "
End With &y=~:1&f
ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False ;l'kPUv([
ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll L[9]Ez$2+
ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS oFUP `p%[
ActiveDocument.Styles("QLNU论文题目").NoProofing = True 'Z(4Wuwb
ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese h` $2/%?
ActiveDocument.Styles("QLNU论文题目").NoProofing = True 9:jZ3U
DoEvents IEJp!P,E
\m;"KyP+
'中文摘要 Ok2>%e
ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") B
|+tK
ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" p&ml$N9fd
ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False wXxk+DV@
With ActiveDocument.Styles("QLNU中文摘要").Font Z]I yj
97
.NameFarEast = "宋体" 4>x v7
.NameAscii = "Times New Roman"
'HDbU#vD
.NameOther = "Times New Roman" [sH[bmLR
.Name = "Times New Roman" 3RTraF
.Size = 12 Uw5`zl
.Bold = wdUndefined {BKr/) H
.Superscript = wdUndefined )0NE_AZ?
.Subscript = wdUndefined Ws(#T hA
.Italic = wdUndefined S vR ? nN|
.Underline = wdUnderlineNone D V!) n 6
.UnderlineColor = wdColorAutomatic k,nRC~Irh
.Color = wdColorAutomatic ZICcZG_y
End With &-1;3+#w
With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat 0q
^ dpM
.LineSpacingRule = wdLineSpaceExactly Nm]\0m0p-
.LineSpacing = 20 <sq@[\l}a
.Alignment = wdAlignParagraphLeft ;qT7BUh(%
g>*t"Rf:
.WidowControl = False gKGM|0u|r
.KeepWithNext = False 1p9+
c~4l:
.KeepTogether = True b bO1`b-
.PageBreakBefore = False *S@
0o6v
.NoLineNumber = False Gd 5J<K
.OutlineLevel = wdOutlineLevelBodyText oZ (T` 5
(j ;6}@
.LeftIndent = CentimetersToPoints(0) u2 xb ^vu
.RightIndent = CentimetersToPoints(0) ?krgZ;Jj
.FirstLineIndent = CentimetersToPoints(0) \aG:l.IM0
~
-hH#5
.CharacterUnitLeftIndent = 0 +e%U6&l{
.CharacterUnitRightIndent = 0 W8
m*co
.CharacterUnitFirstLineIndent = 2 s8<)lO<SV.
.LineUnitBefore = 0 <e&*Tx<8
.LineUnitAfter = 0 0jN ?5j
.\> I
-
End With Z[{ :
`
ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False c 0%%X!!$
ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll =K2mR}n\;
ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS * @,>R6)jI
ActiveDocument.Styles("QLNU中文摘要").NoProofing = True cCH2=v4hU
ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese tgbr/eCoU
ActiveDocument.Styles("QLNU中文摘要").NoProofing = True &% \`Lwh
ActiveDocument.Styles("QLNU中文摘要").Frame.Delete 9
6'{ES9D
DoEvents '
Z}/3 d p
xPi/nWl`|
ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ^l\^\ >8
ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" Zu/ }TS9bi
ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False U: .
With ActiveDocument.Styles("QLNU英文标题").Font 2!35Tj"RFE
.NameFarEast = "黑体" $lM EZt8A
.NameAscii = "Arial Narrow" /h MD
Me
.Name = "Arial Narrow" cSSrMYX2
.Size = 16 /)` kYD6
.Bold = True 6M `N| %
.Bold = wdUndefined ^L 1 #
.Superscript = wdUndefined CS*wvn;.
.Subscript = wdUndefined D,r s)
.Italic = wdUndefined 0UB,EI8
2 nRL;[L*.
.Underline = wdUnderlineNone LGm>x
.UnderlineColor = wdColorAutomatic EO5k?k[*
.StrikeThrough = False 0-W{( xy@4
.DoubleStrikeThrough = False &m6x*i-5\f
End With Vuqm{bo^
With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat bLysUj5[5
.LineSpacingRule = wdLineSpaceSingle >9.xFiq<
.Alignment = wdAlignParagraphCenter OxraaN`
.WidowControl = True ?][ 2J
.KeepWithNext = False ~D)!zQkD
.KeepTogether = False ~e<v<92Xu
.PageBreakBefore = False
TVP. )%
.NoLineNumber = False I (dMiL
.FirstLineIndent = CentimetersToPoints(0) V nv9 <=R
.OutlineLevel = wdOutlineLevelBodyText # N.(ZP
~agzp`!M
.LeftIndent = CentimetersToPoints(0) >"
Z^8J
.RightIndent = CentimetersToPoints(0) 3S'j
uHT e
.FirstLineIndent = CentimetersToPoints(0) )c#m<_^
@{Q[M3l
.CharacterUnitLeftIndent = 0 6%B5hv24v
.CharacterUnitRightIndent = 0 }bVWV0Aeim
.CharacterUnitFirstLineIndent = 0 +0Rr5^8u
+89s+4Jn
.LineUnitBefore = 1 L@|W&N;%a
.LineUnitAfter = 1 oiq7I@ Y`x
&ns !\!
End With qi\!<clv
ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False < g<Lf[n$
ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll *
|RQ
)
ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS R;_U BQ)
ActiveDocument.Styles("QLNU英文标题").NoProofing = True {<HL}m@kQ
ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese Tej-mr3P
ActiveDocument.Styles("QLNU英文标题").NoProofing = True ,HxsU,xiG
ActiveDocument.Styles("QLNU英文标题").Frame.Delete lFNf/j^Z
DoEvents Jn>7MuG
*8uSy/l
ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") >k?/'R
ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" v^h
\E+@
ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False I"]5 B
With ActiveDocument.Styles("QLNU英文摘要").Font b&;1b<BwD
.NameFarEast = "宋体" i~dW)7
.NameAscii = "Arial" F-) lRGw
.NameOther = "Arial" l0 H,TT~2
.Name = "Arial" [*j
C
.Size = 12 L$GhM!c
.Bold = wdUndefined ? 5qo>W<7
.Italic = wdUndefined ;u'mSJI '
.Superscript = wdUndefined uLsGb=m%b
.Subscript = wdUndefined l+.E'
End With >Udb*76
D
s9<fPv0w
With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat *@q+A1P7@
{Tp0#f i
.LineSpacingRule = wdLineSpaceExactly ~O)Uz|
.LineSpacing = 20 |yi3y `f
kN 4nRW9z
.Alignment = wdAlignParagraphJustify :Gh*
d)
'|b {
.WidowControl = False 6ZBg/_m
.KeepWithNext = False $Gs&'
y R
.KeepTogether = False T{={uzQeJJ
.PageBreakBefore = False D@yg )$;z
.NoLineNumber = False H N\Zr b
Ey 77]\
.OutlineLevel = wdOutlineLevelBodyText XB)e;R
_be*B+?2 t
.LeftIndent = CentimetersToPoints(0) ,*2%6t`N?
.RightIndent = CentimetersToPoints(0) *=1;HN3
.FirstLineIndent = CentimetersToPoints(0) Ds$8$1=L=k
R<gC,eV<=
.CharacterUnitLeftIndent = 0 |#x;} _>7
.CharacterUnitRightIndent = 0 zn T85#]\@
.CharacterUnitFirstLineIndent = 2 Rla4XN=mf
%:n1S]Vr
.LineUnitBefore = 0 HM])m>KeT
.LineUnitAfter = 1 Y WSo:)LY
*Rv eR?kO
End With ,uD F#xjl,
ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False _M+'30
ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll !<! sB)
ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS x+vNA J
ActiveDocument.Styles("QLNU英文摘要").NoProofing = False x -0IxWD%
DoEvents b'^ OW
^A^,/3
Options.Pagination = True )>atoA
Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." I72UkmK`
DoEvents _dj< xPO
ActiveDocument.Repaginate 9x,Aqr$t
z i23k=
End Sub *hAeA+:
uj Zki.x
SzR0Mu3uK
