Dim bContinue As Boolean Q140b;Z
`6R.*hq
Dim regEX As New RegExp pCB^\M%*
Dim paraCounter As Long '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 )td?
t .4
MD"a%H#p
Dim LastTitle0String As String, LastTitle0No As Long N5ph70#y3
Dim LastTitle1String As String, LastTitle1No As Long $0kuR!U.N
Dim LastTitle2String As String, LastTitle2No As Long )aV\=a |A
Dim LastTitle3String As String, LastTitle3No As Long +hUS
sR&
Dim LastTitle4String As String, LastTitle4No As Long gs xT
Dim LastTitle5String As String, LastTitle5No As Long }NH\Q$ IU
Dim LastTabelString As String, LastTableNo As Long rE&` G[(b
Dim LastFigureString As String, LastFigureNo As Long X0QY:?
Q|gw\.]$&[
Dim strSeperator As String D.!ay>o0 #
_f "HU KGN
Sub ConvertWidth(fTEXT As String, rText As String) g':/hlQ
Selection.Find.ClearFormatting P!6 v0 ezN
Selection.Find.Replacement.ClearFormatting %^
`b)
Selection.Find.Wrap = wdFindContinue `:aml+
Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText *A^j >lV
DoEvents n+sV $*wvS
Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True ^| b ]E
End Sub 31y>/ *}
3Y;<Q>roT
Sub ClearDomain() iXF iFsb
With Selection.Find jfLkp >2E'
.ClearFormatting i)@IV]]6yL
.Replacement.ClearFormatting TO,XN\{y
.Wrap = wdFindContinue fZq_]1(/uP
Me.txtStatus.Text = "清除所有域代码" bOB<m4
DoEvents gv6}GE
.Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False "k ;j@
End With
eX{ :
&Do
End Sub v U4G w4
Bq l 5=p
Private Sub cmdCheck_Click() \zdY$3z
bContinue = True zL^`r)H
Dim NoSeries1(1 To 16) As String ~o <+tL
Dim NoSeries2(1 To 16) As String rXIFCt8J
Dim NoSeries5(1 To 16) As String ~BUzyc%
Dim NoSeriesRM(1 To 16) As String {?!0<0
Dim paraTotal As Long, ParaText As String *y}<7R
Dim ttString As String, ttNo As String W[$GB_A)
' aN`z3T
Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long 3 d 1$w
:
\{>+!`w
Me.txtStatus.Visible = True Q5ZZ4`K!
Me.lbParaType.Visible = True HsF8$C$z
Me.cmdCheck.Enabled = False q 7z;b A
F6L}n-p5
( plsL
>V01
%fLd
#Epx'$9
Dim ParaType As String, rText As String \*wQ%_ N5
%',bCd{QW
Selection.WholeStory k@[P\(
a3b
Selection.NoProofing = True #`g..3ey
Fm{/&U^
tm1 = Now - (Zi
EgYM][:UU
ActiveWindow.View.Type = wdNormalView @|=JXSr!KY
'\,|B
x8Q
NoSeries1(1) = "一" LH:M`\(DL1
NoSeries1(2) = "二" <FkoWN
NoSeries1(3) = "三" !1X^lFf;~
NoSeries1(4) = "四" EMTAl; P
NoSeries1(5) = "五" u|G&CV#r
NoSeries1(6) = "六" A89n^@
NoSeries1(7) = "七" FX->_}kL=
NoSeries1(8) = "八" XEUy,>mR
NoSeries1(9) = "九" Ej[:!L
NoSeries1(10) = "十" i"B q*b@
NoSeries1(11) = "十一" 9Kp zj43
NoSeries1(12) = "十二" v^;p]_c~2
NoSeries1(13) = "十三" Mnv2tnU]
NoSeries1(14) = "十四" J{69iQ
NoSeries1(15) = "十五" }k{h^ ! fV
NoSeries1(16) = "十六" |}?o=bO
hja;d1yH
NoSeries2(1) = "㈠" - &7\do<
NoSeries2(2) = "㈡" &'mq).I2
NoSeries2(3) = "㈢" ' XbrO|%
NoSeries2(4) = "㈣" K3; lst>4
NoSeries2(5) = "㈤" !{WI N%O
NoSeries2(6) = "㈥" K> rZJ[a
NoSeries2(7) = "㈦" doX8Tq
NoSeries2(8) = "㈧" K1_]ne)
NoSeries2(9) = "㈨" 7\T~K Yb?
NoSeries2(10) = "㈩" San=E@3}v!
pxuZ=<
NoSeries5(1) = "①" Uo~-^w}
NoSeries5(1) = "②" ]N& Y25oT5
NoSeries5(3) = "③" z{>p< )h
NoSeries5(4) = "④"
L@&(>
NoSeries5(5) = "⑤" 5n1aR A1
NoSeries5(6) = "⑥" c; MF
NoSeries5(7) = "⑦" 3Ilf
lXb
NoSeries5(8) = "⑧" sOf;I]E|
NoSeries5(9) = "⑨" &*e(
NoSeries5(10) = "⑩" h1A/:/_M6
id" -eMwp
qH8d3?1XO
NoSeriesRM(1) = "I" $:4* ?8 K2
NoSeriesRM(2) = "II" +L]$M)*0&
NoSeriesRM(3) = "III" ZaZm$.s n
NoSeriesRM(4) = "IV" Jc3Z1 Tt
NoSeriesRM(5) = "V" @[2Go}VF
NoSeriesRM(6) = "VI" 46(=*iT&V
NoSeriesRM(7) = "VII" d3IMQ_k
NoSeriesRM(8) = "VIII" {9,!XiF.:
NoSeriesRM(9) = "IX" p`PBPlUn
NoSeriesRM(10) = "X" liuw!
NoSeriesRM(11) = "XI" `pTC K9
NoSeriesRM(12) = "XII" R.U wf
NoSeriesRM(13) = "XIII" AeZ__ X
NoSeriesRM(14) = "XIV" W ZAkp|R
NoSeriesRM(15) = "XV" Y30T>5
NoSeriesRM(16) = "XVI" y8!#G-d5
kp$w)%2JW
i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) @:ojt $
k$NNpv&;d
If i = vbNo Then k^%Kw(/
Exit Sub b@> MA
End If y-1!@|l0:6
`w;8xD(
If Me.chkSuper.Value Then )5j1;A:gr
Me.txtStatus.Text = "检查修改所有的上标格式" v90)G8|q
nYvx[
zq?^
CheckSuperScript K:cZ q3F
{\
P`-'C
End If y$Y*%D^w
f ecV[
If Me.chkStyle.Value Then Twi7g3}/jB
Me.txtStatus.Text = "设置样式，请稍候...." VJf|r#2
DoEvents qs|{
CeateOrModifyStyle =dp(+7Va
End If !EuqJ j h
\\D(St
%77X/%.Y
e Lj1
ClearDomain ?R MOy$L
I\8F.J1_
W> H GB
nF)XZB 0F
If Me.chkLIST.Value Then Ed>Dhy6\r
Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" q!y6 K*
GdlzpBl
ConvertListToOrdinary ! #[=,'Y
End If O^L#(8b C
O,c}T7A'?w
;/79tlwq
Dim pType As String, trimpTEXT As String
sx]kH $
If Me.chkNum.Value = True Then yPmo@aw]1
Me.txtStatus.Text = "转换全角数字形式为半角" )o;oOPT!
ConvertWidth "１", "1" [#3*R_#8R
DoEvents 5j{jbo =!
ConvertWidth "２", "2" X%sM na)
DoEvents \I[f@D-J
ConvertWidth "３", "3" C
-:lM1
DoEvents *URBx "5XZ
ConvertWidth "４", "4" q; n
DoEvents #J): N
ConvertWidth "５", "5" RP9jZRDbZ
DoEvents g R]NH
ConvertWidth "６", "6" )
u(Gf*t
DoEvents JHvawFBN<u
ConvertWidth "７", "7" aQTISX;
DoEvents :ot^bAyt|
ConvertWidth "８", "8" !,0%ZG}]7
DoEvents K!cLEG!G
ConvertWidth "９", "9" e*Gt%'
DoEvents qx;8Hq(E[
ConvertWidth "０", "0" vUNmN2pRJ
DoEvents ]}z a
ConvertWidth "ａ", "a" zQ=c6xvm8
DoEvents m8:9 Uv
ConvertWidth "ｂ", "b" /E32^o|,>
DoEvents kgZiyPcw
ConvertWidth "ｃ", "c" "B34+fOur
DoEvents zF([{5r[!)
ConvertWidth "ｄ", "d" N+3]C9 2o
DoEvents iL
Iv<VK/d
ConvertWidth "ｅ", "e" ?r}'0 dW
DoEvents #86=[*Dr
ConvertWidth "ｆ", "f" ER'zjI>t@
DoEvents b ZKlQ<sI
ConvertWidth "ｇ", "g" F3Y/Miw
DoEvents h't!
1u
ConvertWidth "ｈ", "h" h@H8oZ[
DoEvents -V_iv/fmM
ConvertWidth "ｉ", "i" j ]X $7
DoEvents |ler\"Eu
ConvertWidth "ｊ", "j" p7{%0
DoEvents )/vse5EG+
ConvertWidth "ｋ", "k" .m^L,;+2
DoEvents xk/osbKn
ConvertWidth "ｌ", "l" er44s^$
DoEvents { p
R4 +g
ConvertWidth "ｍ", "m"
{}A1[ Y|
DoEvents 1v
M'y r$
ConvertWidth "ｎ", "n" <5t2 +D]]}
ConvertWidth "ｏ", "o" CwL8-z0 Jn
ConvertWidth "ｐ", "p" pOKs VS%fT
ConvertWidth "ｑ", "q" ?\.DG`Zxc
ConvertWidth "ｒ", "r" +bhR[V{0g
ConvertWidth "ｓ", "s" PCk Q hR
ConvertWidth "ｔ", "t" K
K _
ConvertWidth "ｕ", "u" q[
-Y
XO
ConvertWidth "ｖ", "v" 6oA2"!u^w
ConvertWidth "ｗ", "w" oj'a%mx
ConvertWidth "ｘ", "x" ,'%wadOo
ConvertWidth "ｙ", "y"
<}
BuU!
ConvertWidth "ｚ", "z" KccI Yn~
ConvertWidth "Ａ", "A" QO;OeMQv%
ConvertWidth "Ｂ", "B" 7/># yR
ConvertWidth "Ｃ", "C"
4Y/kf%]]A
ConvertWidth "Ｄ", "D" :5DL&,,Q3
ConvertWidth "Ｅ", "E" jY|fP!?[
ConvertWidth "Ｆ", "F" = 9K5f# ;e
ConvertWidth "Ｇ", "G" \v]esIP5R'
ConvertWidth "Ｈ", "H" .I#ss6 6h
ConvertWidth "Ｉ", "I" 5IJm_oy
ConvertWidth "Ｊ", "J" iS@+qWo1
ConvertWidth "Ｋ", "K" +~{Honj[
ConvertWidth "Ｌ", "L" } Tz<f d/
ConvertWidth "Ｍ", "M" |3SM
ConvertWidth "Ｎ", "N" u6 lcl} '
ConvertWidth "Ｏ", "O" d&x #9ka
ConvertWidth "Ｐ", "P" 9ZVzIv(
ConvertWidth "Ｑ", "Q"
=K:)%Qh
ConvertWidth "Ｒ", "R" d H ;
ConvertWidth "Ｓ", "S" ,g~Iu p
ConvertWidth "Ｔ", "T" p G-9H3[f#
ConvertWidth "Ｕ", "U" " R5! V
V
ConvertWidth "Ｖ", "V" m~;}8ObQE
ConvertWidth "Ｗ", "W" J4l \
ConvertWidth "Ｘ", "X" .gP}/dj
ConvertWidth "Ｙ", "Y" "WfVZBWG$
ConvertWidth "Ｚ", "Z" ri?k}XnhX
ConvertWidth "^l", "^p" U1 y8Y/
ConvertWidth "（", "(" eJ"je@vvrK
ConvertWidth "）", ")" M! D&a)\
9V0@!M8S
End If gb vMS*KQz
xr o%AM
With ActiveDocument ENhKuX
Dim tbl As Table , VYUQE>\
For Each tbl In .Tables u$%;03hJ
tbl.Rows.Alignment = wdAlignRowCenter w40 -K5wt>
tbl.Range.Font.NameFarEast = "楷体" ~^ <1 k-
tbl.Range.Font.NameAscii = "Times New Roman" Wq"5-U;:w
tbl.Range.Font.Size = 10.5 \ y}!yrQ
Next $eU oFa5A
Set tbl = Nothing \nbGdka
End With O}Mu_edM
7E]qP
5
,CED%
With ActiveDocument Pz77\DpFi
=Y ]'wb
For i = 1 To .TablesOfContents.Count P~
^VLnw
.TablesOfContents(i).Delete ;RUod .x
Next S9mcThcZ
WV?3DzeR
r
Y#^C
sn.0`Stt
paraTotal = .Paragraphs.Count }c?W|#y`.o
paraCounter = 1 R[vA%G
=&,<Co1 hF
LastTitle0No = 0 S"Z.M _
LastTitle1No = 0 7mBH #Q)
LastTitle2No = 0 eR|u']Em>T
LastTitle3No = 0 E},^,65
LastTitle4No = 0 E-v#G~
LastTableNo = 0 ;QS(`SK l
LastFigureNo = 0 ];
Z[V
N/V~>UJ0{*
Dim Sec As Long AbA_s I<;
UfxY D
Sec = InputBox("正文从第一节开始？", "节设置", 6) L}hc|(:
If Sec = 0 Then g)`;m%DG6
Exit Sub >X58 zlxk
End If 5==hyIy
NfsF'v
k = 0 WFm\ bZ .
Do While (paraCounter < paraTotal) And bContinue @lhjO>@#I
k = k + 1 {^V9?^?d (
If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then Bid+,,
Exit Do 7
/7,55
End If hYSzr-)
paraCounter = paraCounter + 1 :v
Do{My^1
If k Mod 20 = 0 Then [yn\O=%5
Me.lbCounter.Caption = paraCounter ~zO>Q4-k
DoEvents 3 [r9v!l
End If b
sM ]5^
Loop K*sav?c
|?\J,h
HOSt0IHzty
Do While (paraCounter < paraTotal) And bContinue k" $E|$
rUxjm\
ParaText = Trim(.Paragraphs(paraCounter).Range.Text) bD:[r))#e
ShapeHeight = 0 GC3WB4iY@U
ShapeWidth = 0 s,|"s|P
&$NYZ3?9
CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth e anR$I;Yj
|)[I$]L
Select Case ParaType |x+g5~$
Case "【】表格内容" VOkSR
6
.Paragraphs(paraCounter).Style = "QLNU表格内容" kb~;s-$O`s
Case "章" NjH`
AMGBT
LastTitle0No = LastTitle0No + 1 ;^f ;<
'新一章开始，复位其下属标题编号 n1
LastTitle1No = 0
t#N@0kIX.
LastTitle2No = 0 );!IGcgF
LastTitle3No = 0 CwdeW.A" j
LastTitle4No = 0 I(Gl8F\c~
8_=MP[(H
k = Val(ttNo) Qk[
YF
If k = 0 Then '非数字编号章节 H[ o > "@4
If ttNo <> NoSeries1(LastTitle0No) Then LM2S%._cj;
rText = "第" & NoSeries1(LastTitle0No) & ttString (,XbxDfM
Me.ErrMsg.AddItem "章节编号错误：" & ParaText nmWo:ox4;(
End If N/x]-$fl
Else
g 5@ P
If Val(ttNo) <> LastTitle0No Then k%Wj+\93 f
rText = "第" & LastTitle0No & ttString 5D6 ,B
Me.ErrMsg.AddItem "章节编号错误：" & ParaText e$l*s/"0t
End If -PiakX
_)XZ;Q
End If &G$K. q
iY;>LJmp
'章段落设置 `)TuZP_)
'字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 @aC9O 9|~
.Paragraphs(paraCounter).Style = "QLNU章节" mz m{p(.
.Paragraphs(paraCounter).Range.Select !e?2
x@J
Selection.EndKey unit:=wdLine ZG sI\3S
tc = Replace(rText, vbCr, "") $,
vX yZ
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False 0?Bv
zfb
Case "一级标题" { g7~e {2
LastTitle1No = LastTitle1No + 1 59#o+qo4
'新一级标题开始，复位其下属标题编号 *o}7&Hw#9f
LastTitle2No = 0 <X "_S'O
LastTitle3No = 0 :x[SV^fw[
LastTitle4No = 0 xtF Gj,N
]9lR:V
sw
If ttNo <> NoSeries1(LastTitle1No) Then H~<w*[uT
rText = NoSeries1(LastTitle1No) & "、" & ttString c1sVd M}|
Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText w<SFs#Z
End If yB5JvD ?
E2i'l O\P
'B9q&k%<
'一级标题段落设置 格式：一、标题内容 QruclNW{Bv
.Paragraphs(paraCounter).Range.Text = rText
}'WEqNu E
.Paragraphs(paraCounter).Style = "QLNU一级标题" P<C=9@
`!
.Paragraphs(paraCounter).Range.Select >!3r7LgK
Selection.EndKey unit:=wdLine n%K^G4k^
tc = Replace(rText, vbCr, "") Y{ I,ipU.
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False $i|d =D&t
Case "二级标题" z]Ha
E|j}S
LastTitle2No = LastTitle2No + 1 B*OBXN>'P
'新二级标题开始，复位其下属标题编号 pB:/oHV
LastTitle3No = 0 bR'UhPs-8;
LastTitle4No = 0 F S!D
A/sM
?!p>_
If ttNo <> NoSeries1(LastTitle2No) Then oYAHyCkVq
rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString V {C{ y5
ErrMsg.AddItem "二级标题编号错误：" & ParaText :y1,OR/k
End If
{v}BtZ
xU;/LJ6
'二级标题段落设置 格式：(一)、标题内容 HAm AmEc,
.Paragraphs(paraCounter).Range.Text = rText HB*H%>L{"B
.Paragraphs(paraCounter).Style = "QLNU二级标题" @bF4'M
YLv5[pV
.Paragraphs(paraCounter).Range.Select
Y+nk:9
Selection.EndKey unit:=wdLine C17$ qdV/
tc = Replace(rText, vbCr, "") @
D.MpM}~
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 2 ", PreserveFormatting:=False jT*?Z:U
C+%6 N@
Case "三级标题" +5"Pm]oRbx
LastTitle3No = LastTitle3No + 1 *X\J[$!
'新三级标题开始，复位其下属标题编号 _^@ >I8ix
LastTitle4No = 0 $!7$0WbC
3W3)%[ 5
If Val(ttNo) <> LastTitle3No Then U2
8frRa
rText = LastTitle3No & ". " & ttString BFswqp:
Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText ] XjL""EbC
tLzb*U8'1w
End If -8 Q}*Z
'三级标题段落设置 格式：1. 标题内容 2?nEHIUT
.Paragraphs(paraCounter).Range.Text = rText k"F \4M
.Paragraphs(paraCounter).Style = "QLNU三级标题" i9eE/
.
.Paragraphs(paraCounter).Range.Select '1"vwXJ"
Selection.EndKey unit:=wdLine NCivh&HR
tc = Replace(rText, vbCr, "") ^i!I0Q2yd
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 3 ", PreserveFormatting:=False g+]o=@
Case "四级标题" $&X-ay o
LastTitle4No = LastTitle4No + 1 !,9 ;AMO
-
,FL *Z9wA
If Val(ttNo) <> LastTitle4No Then $ww0$
rText = "(" & LastTitle4No & "). " & ttString ;5tQV%V^Q
ErrMsg.AddItem "四级标题编号错误：" & ParaText xQDWn pFc
'0<9+A#
End If N
oRPvFv
'四级标题段落设置 格式：(1). 标题内容 W|(U} PrC
.Paragraphs(paraCounter).Range.Text = rText D}~uxw;[^
.Paragraphs(paraCounter).Style = "QLNU四级标题" !g4u<7
.Paragraphs(paraCounter).Range.Select ![&9\aH
Selection.EndKey unit:=wdLine ^4Tf6Fw#
tc = Replace(rText, vbCr, "") m[qW)N:w
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 4 ", PreserveFormatting:=False
F% z$^ m-
a: 2ezxP
Case "表格标题" _sK{qQxvM=
LastTableNo = LastTableNo + 1 4SJb\R)XK
|_m N:(3
If ttNo <> CStr(LastTableNo) Then yY_#fJj
rText = "表" & LastTableNo & ". " & ttString zuS4N?t`p
ErrMsg.AddItem "表格编号错误：" & ParaText R1~wzy
`Sal-|[Cv[
End If qF Xx/FZ
Gz:ell$
'表格名称段落设置 格式：表1. 表格名称 o[ %\W
.Paragraphs(paraCounter).Style = "QLNU表格标题" |f3 :9(p
xe = Replace(rText, vbCr, "") c2wgJH !g
.Paragraphs(paraCounter).Range.Select 6,~]2H'zq
Selection.MoveEnd wdCharacter, -1 '选择范围包括行尾的换行符。 s"~3.J
Selection.Range.Text = xe \: Q)X$6
Selection.EndKey >';UF;\5]Q
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False 3(`P x}
^@f.~4P*I
Case "表格首行" +1nzyD_E
.Paragraphs(paraCounter).Style = "QLNU表格首行" n;LjKE
Case "图片标题" .oqe 0
$I
LastFigureNo = LastFigureNo + 1 >e!Y 63`
a5?Yh<cJ
If ttNo <> CStr(LastFigureNo) Then 6t4Khiwx
rText = "图" & LastFigureNo & ". " & ttString 0M!Goqa A
ErrMsg.AddItem "表格编号错误：" & ParaText +-NH
4vUg
6z2%/P-'
End If NH<~B C]I
'图片名称段落设置 格式：图1. 图名称 +!mEP
>
.Paragraphs(paraCounter).Range.Text = rText .u: aX$t+
.Paragraphs(paraCounter).Style = "QLNU图片标题" {gb` %J
.Paragraphs(paraCounter).Range.Select Ff1!+P,
Selection.EndKey unit:=wdLine R(f6uO!m
xe = Replace(rText, vbCr, "") ]O V}yD2p
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False {a0yHy$H
Case "正文" ^$s&bH'8
'正文名称段落设置 Xi0 fX$-,
.Paragraphs(paraCounter).Style = "QLNU正文" 20/P:;
Case "文献条目" r3 dGX
iu
With .Paragraphs(paraCounter) ej,R:}C%`
'.Range.Select 4 q\&Mb3
'Selection.ClearFormatting O=}d:yZb!
'.Range.Find.Execute findtext:=rText, replacewith:=strSeperator 'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” (qzBy \\p
.Style = "QLNU参考文献" [ d`m)MW-
End With -tA_"q'^
Case "图表注解" 2
ZyO
With .Paragraphs(paraCounter) NqM=Nu\
.Range.Font.NameFarEast = "楷体" z) x.6
.Range.Font.NameAscii = "Times New Roman" "KgNMNep
.Range.Font.Size = 9 '小5号字 ;_#<a*f
v8K`cijSS
.Alignment = wdAlignParagraphCenter Sy m}#F\s
.LeftIndent = 0 1 s.>_
.RightIndent = 0 1 %8JMq\
.FirstLineIndent = 0 4"veq rC
.LineSpacing = 12 JHa\"h
.LineSpacingRule = wdLineSpaceExactly OMAvJzK .
.LineUnitAfter = 0 JnLF61
.LineUnitBefore = 0 o ~M=o:^nH
.OutlineLevel = wdOutlineLevelBodyText s h*/wM
.PageBreakBefore = False \. a 7F4h
.RightIndent = 0 AR T0 o7B
.WordWrap = True RZ|M;c
.LineUnitAfter = 0.5 ~l}\K10L*
m(`O>zS
End With > D%
Case Else [lGxys)J
'不作处理 <c$rfjM+JU
End Select iKu4s
}/QtIY#I
'含有inlineshape的段落处理 Aw&0R" {
If ShapeHeight > 30 Then
'Pxq>Os
.Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle '对有图片的段落设置为单倍行距 z"-oD*ICw
End If z9E*1B+
g3f; JB
If (ShapeWidth + ShapeHeight) > 150 Then JCci*F#r
.Paragraphs(paraCounter).Style = "QLNU图片段落" og&-P=4O
End If zKT4j1 h
MlR ]+ ]
'段落计数器递 pKU(4&
BxX
paraCounter = paraCounter + 1 J,J6bfR/
Me.lbCounter.Caption = "当前检测段落：" & paraCounter 0:JNkXZ:
Me.txtStatus.Text = ParaText EiVV Vmm!
DoEvents a n0n8l
Loop intl?&wC
End With Q/0o e())
*U- :2uf
msg = "" iK!F VKi}
Vfw
H:
For i = 0 To Me.ErrMsg.ListCount - 1 \h?6/@3ob
msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) 3vdFO: j
Next O8~RfB
l{*Ko~g
-$$mr U
0O a&vx
Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg tX6_n%/L
Me.cmdCheck.Enabled = True kH`?^ ^_yJ
Me.txtStatus.Visible = True 0U8'dYf
Me.lbParaType.Visible = False MT6" b
/ ;+M z*
bContinue = False dZX;k0
End Sub biV NZdA
Oh%p1 $H
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) &Q*
7
Dim pTEXT As String <[K3Prf C
qkqtPbQ 7
pTEXT = ChKRange.Text wVs"+4l<
Dus!Ki~8(t
ParaType = "其它" A4(k<<xjE
TitleString = pTEXT ]Y @_ 2`
TitleNo = "N/A" Mh
MXn;VKj
b,X+*hRt
shpCounter = ChKRange.InlineShapes.Count \BX9Wn*)a
If shpCounter <> 0 Then }<zbx*!
MaxShpHeight = 0: TotalShpWidth = 0 7A h
For i = 1 To shpCounter Tn9F g7<
k = ChKRange.InlineShapes(i).Height )Y6\"-M[
l = ChKRange.InlineShapes(i).Width Bg}l$ ?S
If k > MaxShpHeight Then bu -6}
T+
MaxShpHeight = k 33&l.[A"!}
End If n 6G&c4g<"
TotalShpWidth = TotalShpWidth + l +X`&VO6~
Next eAStpG" *
If MaxShpHeight > 60 Or TotalShpWidth > 150 Then %cBOi_}}~
Exit Sub Tv6y +l
End If
: 76zRF
End If Yr>0Qg],
=~5N/!
'空行 DF
UTQ:N
If Len(pTEXT) <= 2 Then hM[3l1o{|
Exit Sub \01 kK)
End If jib pZ)
eL.WP`Lz
w O Ou/Y
'是否为表格中的文字 )+ 'r-AF*
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then E#,\[<pc
ParaType = "表格内容" t+K 1ArQc
k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) 4sW' p
H
If k = 1 Then d2TIG<
6/
ParaType = "表格首行" UA (4mbz+
End If Uq~b4 X$
Exit Sub 5A<}*T
End If z$L e ,+
efE= 5%O
'例外情况：脚注 p{:y?0pGN
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then } =Xlac_U
ParaType = "脚注" T8&eaAoo
Exit Sub GFju:8P?
End If Q @[gj:w
OZC
yg/K
'例外情况：尾注 zszmG^W{
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then p5% %k-
ParaType = "尾注"
e<(6x[_
Exit Sub ||ugb6q[6B
End If ;&'r yYrex
hA;Ai:8
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then ZH*h1?\X
ParaType = "页眉页脚" ^qi+Y)dU|
Exit Sub sVGQ
SJJ5
End If 62MQ+H
sPVE_n
}Q@~_3,UJ
With regEX \hn$-'=4
.Global = True uUV"86B_
1;'-$K`}
.Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" Xvoz4'Gme
If regEX.Test(pTEXT) Then XE&h&v=>
ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") bYZU}Kl;(
TitleString = regEX.Replace(pTEXT, "$3") 1z0|uc
TitleNo = regEX.Replace(pTEXT, "$1") >; tE.CJH
ParaType = "章" / DP0K
@%
Exit Sub iSUu3Yv,_m
End If g* `xEb= '
gf?N(,
.Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" 5W$Jxuy qj
If regEX.Test(pTEXT) Then \w"~DuA
ParaType = "一级标题" EJRkFn8XG'
regEX.Execute (pTEXT) 'E bjn> "
ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") z R <fz
TitleString = regEX.Replace(pTEXT, "$3") oz]&=>$1I
TitleNo = regEX.Replace(pTEXT, "$1") }!?RB v'W
Exit Sub q"oNFHYPDs
End If tCm]1ZgRW
;)wk ^W
'全角或半角括号中的数字 TD %L`Gk
.Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" UR9\g(
If regEX.Test(pTEXT) Then @WJ\W `P
ParaType = "二级标题" l}r 9 kS
regEX.Execute (pTEXT) ALcP br
ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") ~mwI r
TitleString = regEX.Replace(pTEXT, "$5") 0S9~db
TitleNo = regEX.Replace(pTEXT, "$2") 8!HB$vdw7
Exit Sub ^b}Wl0Fn
End If OhMJt&s9P=
\ q3ui }-9
'阿拉伯数字 1. 2. s~bi#U;dF
.Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" t\ a|Gp W
If regEX.Test(pTEXT) Then ?>iUz.];t
ParaType = "三级标题" S 4?WR+:h
regEX.Execute (pTEXT) UO#`Ak
ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 wOCAGE g
TitleString = regEX.Replace(pTEXT, "$3") yimK"4!j5A
TitleNo = regEX.Replace(pTEXT, "$1") , I ][
Exit Sub 0TSB<,9a[
End If +95v=[t#Ut
u~2]$
/U
'全角或半角括号中的阿拉伯数字 BvH?d]%
.Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" 5pC}ZgEa<
If regEX.Test(pTEXT) Then 4=EA3`l
ParaType = "四级标题" N3*1,/,l .
regEX.Execute (pTEXT) ``I[1cC
ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") GNE Pb?+T
TitleString = regEX.Replace(pTEXT, "$5") T I t\
TitleNo = regEX.Replace(pTEXT, "$2") U^BM 5b
Exit Sub 0 q 1x+
End If 1Lk(G9CoY
T ,jb%uPcE
'表格名称 8ICV"8(
.Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" ;<t hEWH;Y
If regEX.Test(pTEXT) Then VumM`SH
ParaType = "表格标题" w
W/q#kc
regEX.Execute (pTEXT) iK+Vla`}
ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) }S3 oX$
TitleString = Trim(regEX.Replace(pTEXT, "$3")) c8Ud<M .
TitleNo = Trim(regEX.Replace(pTEXT, "$1")) 8UXRM :Z"
strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 ^sFO
[cYo
Exit Sub 6/?onEL9_
End If K#AexA
pT3icy!A=
'图片名称 Gi #-TP\
.Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" E/*&'Osq
If regEX.Test(pTEXT) Then V0 # Ocq,
ParaType = "图片标题" &xhwOgI #,
regEX.Execute (pTEXT) k<CbI
V
ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") , ,n g]&%i
TitleString = regEX.Replace(pTEXT, "$3") T:zM]%Xh
TitleNo = regEX.Replace(pTEXT, "$1") )7[ # Ti
Exit Sub Dte5g),R
End If 1_A _)l11
erb k (
'参考文献 R&&&RI3{
.Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})" '[数字]、
Gk/cP`
If regEX.Test(pTEXT) Then =6O*AJ
ParaType = "文献条目" yP>025o't
'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") {: #nrD"
'TitleNo = regEX.Replace(pTEXT, "[$2] ") 8D,*_p
Exit Sub H0sTL#/L \
End If &"I csxG
QxGcRlpLK
prfx = Left(pTEXT, 2) ^]'_Qbi]}
If prfx = "注：" Or prfx = "注:" Then K)se$vb6
ParaType = "图表注解" ?FjnG_Uz`D
Exit Sub "tl$JbRTY
End If y22DBB8
PgGUs4[
bk;uKV+<
ParaType = "正文" %''L7o.#a
5V\",PA W
End With -`eB4j'7
End Sub ? @;)2B|q
B2 P@9u|9
Sub ConvertListToOrdinary() g>;@(:e^/
Dim st As Paragraph ,W|-?b?
With ActiveDocument ZTz07Jt
For i = .Paragraphs.Count To 1 Step -1 a h_ >:x
Set st = .Paragraphs(i) B>m*!n: l
lst = st.Range.ListFormat.ListString <Z<meB[g
If lst <> "" Then "}`)s_rt
st.Range.ListFormat.RemoveNumbers V>,=%r4f
st.Range.InsertBefore lst & " " u%+k\/Scp.
End If _ZFEo< `'
Next )7 .DF|A
End With + xU( {/
Set st = Nothing P\<:.8@$S
End Sub vJ=Q{_D=\
rUmP_
Private Sub UserForm_Activate() W]7 /
e
Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" i%i />;DF
Me.lbTotal.Font.Bold = True lw[ c+F7
Me.txtStatus.Visible = False c.b | RM0;
Me.cmdCheck.Enabled = True <F(2D<d{;)
{jmy:e2
End Sub YURMXbj
f7][#EL
Z
b$]9(RS
Sub CheckSuperScript() ,Kl?-W@
Selection.Find.ClearFormatting e0(aRN{W
Selection.Find.Replacement.ClearFormatting 6]d]0TW_
With Selection.Find +egwZ$5I
.Text = "[【\[［〖](*)[】\]〗］]" 3Jlap=]68S
.Replacement.Text = "[\1]" m%apGp'=1
.Replacement.Font.Superscript = True Rz|@Bx B>n
'.Replacement.Font.Color = wdColorBlue O !{YwE8x9
.Forward = True Qni`k)4
.Wrap = wdFindContinue u:2Ll[ eo
.FORMAT = True h9CTcWGt
.MatchCase = False z
BTW&
.MatchWholeWord = False .(.
<
.MatchByte = False uC#@qpzy
.MatchAllWordForms = False S\ < i`q
.MatchSoundsLike = False ;H.V-~:P)
.MatchWildcards = True dt,Z^z+" E
End With mfaU_
Vo&
Selection.Find.Execute Replace:=wdReplaceAll ^]D1
':
End Sub _p+E(i 9
|\?u-O3
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) %)?jaE}[
bContinue = False $--+M
D29Q
Set regEX = Nothing eh `%E0b}
End Sub w4Df? )Z
h]k $K
Sub CeateOrModifyStyle() ?6&8-zt1?
' `o295eiY(b
' F ;8Q`$n
Dim stl As Style Z [d13G;
-~ l q <M
Options.Pagination = False 4C%p KV
L
1!V'Hm{
On Error Resume Next 25-h5$s
For Each stl In ActiveDocument.Styles {.jW" 0U
stl.Delete
w: QO@
Next 0kOwA%m
On Error GoTo 0 matna
)"6-7ii7(f
Set stl = Nothing Z%:>nDZV
'!8-/nlv1
DoEvents QAp]cE1ew
On Error Resume Next KNd<8{'.
RK &>! ^
ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph
#Gg^QJ*
vno/V#e$WX
ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph ktx| c19
ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph ZI
c.MNq
S7Ty}?E@
ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph _W _< bI34
ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph ~"#HHaBO#
""a$[[ %WC
ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph ;
%^=V#
ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph ; tZQ9#S
ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph LlO8]b!P-^
ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph #0[^jJ3J
ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph 4fC:8 \A
ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph j;Z?q%M{6
ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph nWY^?e'S
`HkNO@N[
ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph m 0vW<
ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph CssE8p >"F
ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph -|KZOea
ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph *|dK1'Xr
ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph ,r;xH}tbi
=(D"(OsQ/
ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph 2a48( ~<_
On Error GoTo 0 u"*DI=pwb
DoEvents @;P ;iI
Z 9 +f TT
'BaseStyle l[ $bn!_ e
ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False A8*zB=C
With ActiveDocument.Styles("BaseStyle").Font ?`rA O#
1
.NameFarEast = "宋体" &4S2fWx
.NameAscii = "Times New Roman" ">z3i`#C'
.NameOther = "宋体" v#/Gxk9eX
.Size = 10.5 jJNCNH*0
.Bold = wdUndefined 62qjU<Z
.Italic = wdUndefined 35e{{Gn)v
.Subscript = wdUndefined o!":mJ y
.Subscript = wdUndefined CL4N/[UM
k-=LD
.Underline = wdUnderlineNone %}VH5s9\
.UnderlineColor = wdColorAutomatic ~8u *sy
.StrikeThrough = False II}M|qHaK
.DoubleStrikeThrough = False {ptHk<K:)
s) shq3O
.Outline = False .E}lAd.Mn
.Emboss = False aYb97}kI
.Shadow = False Gb\PubJ
.Hidden = False ;ISnI
.SmallCaps = False qz>R"pj0g
.AllCaps = False 3 yKmuu!
.Color = wdColorAutomatic 9"]#.A^Q*
.Engrave = False pcwYgq#5
.Scaling = 100 n@p@ @
.Kerning = 1 %8tE*3iUF
.Animation = wdAnimationNone +lq Gf
.DisableCharacterSpaceGrid = False > ]^ 'h
.EmphasisMark = wdEmphasisMarkNone m)Kg6/MV.
End With 0zB[seyE
With ActiveDocument.Styles("BaseStyle").ParagraphFormat G#GZt\) F
.LeftIndent = 0 </ ` \3t
.RightIndent = 0
r9})~>
.SpaceBefore = 0 SI+Uq (k
.SpaceBeforeAuto = False ~s'tr&+
.SpaceAfter = 0 ")STB8kQ
.SpaceAfterAuto = False oIj=ba(n1
W
H/.h$
.LineSpacingRule = wdLineSpaceSingle q_h (D/g
.Alignment = wdAlignParagraphJustify (;},~( 2B
;x/eb g
.WidowControl = False A,c XN1V
.KeepWithNext = False / GC&@y0yi
.KeepTogether = False V9BW @G@9
.PageBreakBefore = False V>`ANZ4
.NoLineNumber = False 5MAfuHq^
V+ O,y9
.FirstLineIndent = CentimetersToPoints(0) gE#'Zv {7
.OutlineLevel = wdOutlineLevelBodyText x~!|F5JbM
.CharacterUnitLeftIndent = 0 MkPQ@so
.CharacterUnitRightIndent = 0 ^D$|$= |DH
.CharacterUnitFirstLineIndent = 0 ;: 2U}p^-
.LineUnitBefore = 0 PVB
z~rG
.LineUnitAfter = 0 h&$h<zL[
.AutoAdjustRightIndent = True 5z!$=SFz
.DisableLineHeightGrid = True C'#)mo_@t
\toU zTT
.FarEastLineBreakControl = True YiDO V)
.WordWrap = True UgC65O2
.Hyphenation = False lbBWOx/|
bT^dtEr[
.HangingPunctuation = True w&aZ 97{
.HalfWidthPunctuationOnTopOfLine = True \H@1VgmR;
.AddSpaceBetweenFarEastAndAlpha = True QH 9t |l
.AddSpaceBetweenFarEastAndDigit = True bH e'
U>
.BaseLineAlignment = wdBaselineAlignBaseline _b~{/[s
End With njaMI8|Pa
ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False #Or;"}P>fB
ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll hDW!pnj 1
ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese )_=2lu3%{
ActiveDocument.Styles("BaseStyle").NoProofing = False V^ 5d5Ao
nOGTeKjEJ
'一级标题题样式 K8sRan[4 }
ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") D! [v{0 er
ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" `Zm6e!dH-
ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False W-n
4w Ij"
With ActiveDocument.Styles("QLNU一级标题").Font 0\ = du
.NameFarEast = "黑体" Ec@n <KK#
.NameAscii = "Arial Black" E>|X'I?r^
.NameOther = "黑体" -$Hu $Y}>
.Name = "黑体" Sz go@x$^
.Size = 16 '三号 WYUDD_m
.Bold = True F#sm^% _2
.Italic = wdUndefined Q,&Li+u|
.Subscript = wdUndefined =Nxkr0])!
.Superscript = wdUndefined '|zrzU=
End With Q S &B"7;g
With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat 0<-E)\:[g
*{DTxEy
.LeftIndent = CentimetersToPoints(0) bItcF$#!!!
.RightIndent = CentimetersToPoints(0) 0+ * NHiH
.FirstLineIndent = CentimetersToPoints(0) .+/d08]
LZRg%3.E
.LineSpacingRule = wdLineSpaceSingle GT&}Burl/n
.Alignment = wdAlignParagraphCenter ro{!X, _$,
c0gVW~I 1
.WidowControl = True 7#0buXBg
.KeepWithNext = True #4m sBax4
.KeepTogether = True
:-46"bP.
.OutlineLevel = wdOutlineLevelBodyText U\Wo&giP[
'j6O2=1
.LineUnitBefore = 0.5 + O.-o /
.LineUnitAfter = 0.5 tTLg;YjN
End With "0P`=n
ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False >5t%_/yeB
ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll kO}&Oi,?
ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese \xkKgI/
ActiveDocument.Styles("QLNU一级标题").NoProofing = True 5*p
zL0,Y
DoEvents bx8](cT_
3S:Lce'f
'二级 v t|
R)[,
ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") %M@K(Qu
ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" Icnhet4
ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False 'p&,'+x
With ActiveDocument.Styles("QLNU二级标题").Font N o'?8 +i
.NameFarEast = "黑体" MYW kEv7
.NameAscii = "Arial Narrow" 6:7[>|o
kQ
.NameOther = "黑体" vA1Yya B
.Name = "黑体" Cku"vVw,
.Size = 15 '小三号 $Iwvecn?I
.Bold = False N>!:b F
.Outline = False ixd sz\<
.Italic = wdUndefined _qxI9Q}<"
.Subscript = wdUndefined JNfL
jfE)<
.Superscript = wdUndefined L=4+rshl!_
End With 5 8 bW
With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat -Z "4W
.LeftIndent = CentimetersToPoints(0) KhHFJo[8sf
.RightIndent = CentimetersToPoints(0) <OMwi9
.FirstLineIndent = CentimetersToPoints(0) (jM0YtrD
y2G Us&09
.LineSpacingRule = wdLineSpaceSingle aixX/se
.Alignment = wdAlignParagraphLeft ?l0Qi
Xo34~V@(
.WidowControl = True WEimJrAn
.KeepWithNext = True T }}2J/sj
.KeepTogether = True ]dpL
PR
.PageBreakBefore = False >X*tMhcb
.OutlineLevel = wdOutlineLevelBodyText `<C<[JP:o
>.iF,[.[F<
.LineUnitBefore = 0.5 KUA zJ[>
.LineUnitAfter = 0.5 6Yj{%
G
Q5+1'm zAB
End With ? nd:
:O
ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False G mz^vpQ]t
ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll J?QS7#!%
ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese 4+RR`I8$Ge
ActiveDocument.Styles("QLNU二级标题").NoProofing = True l#'V
SFm&
DoEvents { qNP hi
4I$Y(E}
'三级标题样式 +3)r
szb72
ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 1UP=(8j/
ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" 2*|T)OA`m,
ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False %=`J WLLG
With ActiveDocument.Styles("QLNU三级标题").Font a#YK1n[!
.NameFarEast = "宋体" ysW})#7X
.NameAscii = "Times New Roman" 7>JTQ CJ
.NameOther = "黑体" !@ ^6/=
.Name = "黑体" ky2 bj}"p9
.Size = 14 '四号 ')y 2W1
.Bold = False +xFn~b/
.Outline = False =*2,^j
.Italic = wdUndefined .,bpFcQ
.Subscript = wdUndefined 6p9fq3~7Y
.Superscript = wdUndefined xh;V4zK@`
End With }e?H(nZS7h
With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat 8D='N`cN+
.LeftIndent = CentimetersToPoints(0) #).$o~1ht!
.RightIndent = CentimetersToPoints(0) D@O
`"2
.FirstLineIndent = CentimetersToPoints(0) {>f"&I<xw
Ax;[ Em?I
.LineSpacingRule = wdLineSpaceSingle Z[oF4 z
.Alignment = wdAlignParagraphLeft j u"z
, QY$:f<
.WidowControl = True 2B
]q1>a!
.KeepWithNext = True gxv^=;2C
.KeepTogether = True <+ roY"
.PageBreakBefore = False 4 Z"}W!A
.OutlineLevel = wdOutlineLevelBodyText b2m={q(s
lB,1dw2(T
.CharacterUnitLeftIndent = 0 =RQF::[h
.CharacterUnitRightIndent = 0 $9)os7H7
.CharacterUnitFirstLineIndent = 2 3
jZMXEG)
fZG Y'o&5
.LineUnitBefore = 0.5 >HP
`B2Q
H
.LineUnitAfter = 0 9L =mS
End With s, HbW%s
ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False )kpEcM lR
ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll 95l)s],
ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese va6Fp2n<1*
ActiveDocument.Styles("QLNU三级标题").NoProofing = True wVBK Vb9N
DoEvents ! _S#8"
>t+U`6xK
'四级标题样式 pHV^K v#
ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 7n8nJTU{4j
ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" /e F@a!
ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False !6!)H8rX
With ActiveDocument.Styles("QLNU四级标题").Font -*C
WF|<G
.NameFarEast = "宋体" ;M:AcQZ|_
.NameAscii = "Times New Roman" x[(6V'
.NameOther = "宋体" &9L4
t%As
.Name = "宋体" aSzI5J]/=
.Size = 12 '小四号 PsC")JS
.Bold = True zBF~:Uc`B
.Outline = False
L:$4o
.Italic = wdUndefined p['RV
.Subscript = wdUndefined ;tjOEmIiU
.Superscript = wdUndefined ,i 2-
End With .H" ?& Mf
With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat 7' G; ijx
U\KMeaF5e-
.LeftIndent = CentimetersToPoints(0) 8tj]@GE
.RightIndent = CentimetersToPoints(0) ]juPm8e F
.FirstLineIndent = CentimetersToPoints(0) T
ozx0??)
n|( l PbD
.LineSpacingRule = wdLineSpaceSingle 0a~t
.Alignment = wdAlignParagraphLeft |&; ^?M
b6D;98p
.WidowControl = True !}(B=-
.KeepWithNext = True z
6 :Wh
.KeepTogether = True M3(N!xT
.PageBreakBefore = False
G 3Z"U
.OutlineLevel = wdOutlineLevelBodyText hyI7X7Hy
;
qshd'?*
.CharacterUnitLeftIndent = 0 s g2 ;"E@
.CharacterUnitRightIndent = 0 <J/ =$u/
.CharacterUnitFirstLineIndent = 2 ^q:-ZgM>
AI|vL4*Xd
.LineUnitBefore = 0 hbw(o
.LineUnitAfter = 0 3Z!% td5n
1[%3kY-h
End With I |Oco?Q"
ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False _olQ;{ U:
ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll =8AT[.Hh
ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese q~ H>rC(\
ActiveDocument.Styles("QLNU四级标题").NoProofing = True l5[5Y6c>
DoEvents n5:uG'L \
to={q
CqU
'正文校式 E9:@H ;Gc
ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") z$~x 2<
ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" -$Oh.B` i
ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False ]I?.1X5d0
With ActiveDocument.Styles("QLNU正文").Font x ye-Z\-t
. WSyL
.NameFarEast = "宋体" N XW *{b
.NameAscii = "Times New Roman" @N=vmtLP
.NameOther = "宋体" V ao:9 ~
.Name = "宋体" !nv wR Q
K" #$",}=
.Size = 12 '小四号 DB'v7
Ij0
E } L Hp
.Bold = wdUndefined
GAz -yCJp
.Italic = wdUndefined sPH 2KwEv
.Subscript = wdUndefined L)e" qC_-
.Superscript = wdUndefined >Bt82ibN
F-
&t SU,
.Outline = False HI.*xkBXl&
.Emboss = False 1[FN : hm
.Shadow = False J<$@X JLS
.Hidden = False ]3KeAJ
/0s1;?
.DisableCharacterSpaceGrid = True ]PXM;w
End With sp Edq}
With ActiveDocument.Styles("QLNU正文").ParagraphFormat Pvxb6\G&d
UcRP/LR%C
.LeftIndent = CentimetersToPoints(0) =rjU=3!&(
.RightIndent = CentimetersToPoints(0) f1 ;
.FirstLineIndent = CentimetersToPoints(0) #N|\7(#~u
O0 'iq^g
.LineSpacingRule = wdLineSpaceExactly ^HKXm#vAB
.LineSpacing = 20 ~tDYo)hH8
.Alignment = wdAlignParagraphLeft @ @65t'3S
SE'Im
.WidowControl = False 7sot?gF
.KeepWithNext = False broLC5hbQU
.KeepTogether = False t R^f]+Up
.PageBreakBefore = False 8q2a8I9g
.Hyphenation = False cD
!,ZL
x~5uc $
.OutlineLevel = wdOutlineLevelBodyText "Ep"$d
As:O|!F
~Amq1KU*Z
.CharacterUnitLeftIndent = 0 vObZ|>.J~O
.CharacterUnitRightIndent = 0 Fr9/TI
.CharacterUnitFirstLineIndent = 2 2HX/@ERhmu
w# A)B<Y/"
.LineUnitBefore = 0 JJ: ku&Mb
.LineUnitAfter = 0 ~ao:9 ynY
.SpaceBefore = 0 AO#9XDEM
.SpaceAfter = 0 ?uWUs )9
V6]6KP# D
.DisableLineHeightGrid = True 1"h"(d A
End With w lS /(:02
ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False cgnNO&
ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll q m3\) 9C
ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese J'44j ;5&
ActiveDocument.Styles("QLNU正文").NoProofing = True P}R:o
DoEvents fvu{ (Tb
OVg&?fiP
'图片段落样式 mRk)5{
ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") !/FRL<mp
ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" odv2 (\
ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False #: K=zV\
With ActiveDocument.Styles("QLNU图片段落").Font U3(+8}Q
.Size = 12 '小四号 k Dmm
.Italic = wdUndefined :eN&wQ5q
.Subscript = wdUndefined I /E 9:
.Superscript = wdUndefined t
{md&k4
End With +
G
@N
With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat f ,F X# _4
^Q/*on;A,/
.LeftIndent = CentimetersToPoints(0) Vk2$b{VdF
.RightIndent = CentimetersToPoints(0) }EK{U M9y
.FirstLineIndent = CentimetersToPoints(0) $8tk|uh
c%H' jB [
.LineSpacingRule = wdLineSpaceSingle 5 '2kP{;
.Alignment = wdAlignParagraphCenter 55S s%$k@
.KeepWithNext = True EVmBLH -a
.OutlineLevel = wdOutlineLevelBodyText 9Yz V48su#
)6"}M;v
.CharacterUnitLeftIndent = 0 X\^ nV
.CharacterUnitRightIndent = 0 [vg&E
)V
.CharacterUnitFirstLineIndent = 0 Et=Pr+Q{c
)Z7Vm2a
.LineUnitBefore = 0 56V|=MzX ]
.LineUnitAfter = 0 N\{" &e
End With wJp<ZL
ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False FI.te3i?7
ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll %a%xUce&-X
ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese ,9&cIUH
ActiveDocument.Styles("QLNU图片段落").NoProofing = True RvzZg %)
DoEvents X8C7d 6ca
WAu>p3
Xw H>F7HPe
'第X章 `7 "="T~ *
ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") &:&'70Ya
ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" t7=
D$ua
ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False `fv5U%
With ActiveDocument.Styles("QLNU章节标题").Font
a_?sJ
.NameFarEast = "黑体" DiJ LWXs
.NameAscii = "Arial Black" 9"~ FKM N
.NameOther = "Arial Black" -|>~I#vY
.Name = "黑体" VotC YJ
.Size = 16 a6{Zp{"Y
.Bold = True `DM%a~^yg
.UnderlineColor = wdColorAutomatic \!u<)kkyT
.Outline = False 4
cjfn'x
.Italic = wdUndefined LrU8! r`a
.Subscript = wdUndefined -TUJ"ep]QJ
.Superscript = wdUndefined uwe#& V-
.Scaling = 100 L\Se ,
.DisableCharacterSpaceGrid = True uibmQ|AQ
End With I}C2;[a B
With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat (0-Ol
9[
.LineSpacingRule = wdLineSpaceSingle 8^7Oc,:~
.Alignment = wdAlignParagraphCenter JT+ c7W7
.WidowControl = True #2tmi1
ya
.KeepWithNext = True 09kR2(nsW/
.KeepTogether = True dGKo!;7{
.PageBreakBefore = True %>Kba M1b
.OutlineLevel = wdOutlineLevelBodyText ztp|FUi
f %G\'q]#F
.LeftIndent = CentimetersToPoints(0) H 0l1=y
.RightIndent = CentimetersToPoints(0) '| 8 dt "C
.FirstLineIndent = CentimetersToPoints(0) hD6BP
?f?5Kye
.CharacterUnitLeftIndent = 0 : auR0FE
.CharacterUnitRightIndent = 0 lF}[ YL
.CharacterUnitFirstLineIndent = 0
'$ei3
;[ <(4v$
.LineUnitBefore = 1 @16GF!.
.LineUnitAfter = 0.5 j.E=WLKV*
`YhGd?uu$
.AutoAdjustRightIndent = False sJ6.3=
c
.DisableLineHeightGrid = True nrac )W
.FarEastLineBreakControl = True A3]A5s6
.WordWrap = True 1lw%RM
End With ASq
YA1p.
ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False Xu$>$D# a
ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll B[b>T=
ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese yRXML\G e
ActiveDocument.Styles("QLNU章节标题").NoProofing = True mjeJoMvN)H
DoEvents kR =sr/{
J%"BCbxW~B
'表格标题 r T2
Njy1
ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") -FZC|[is
ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" @MSmg3 &
ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False Ho &Q }<(
With ActiveDocument.Styles("QLNU表格标题").Font p -4$)w~6i
.NameFarEast = "楷体" g '.OzD
.NameAscii = "Arial" h}O tz "
.Name = "楷体" JP#S/kJ%3
.Size = 10.5 E&U_1D9=L<
.Bold = True 6tKrR{3#A
.Underline = wdUnderlineNone EU[\D;
.Italic = wdUndefined J0x Hpe
.Subscript = wdUndefined #p
}G WS)
.Superscript = wdUndefined j|!,^._i
.Color = wdColorAutomatic nFnM9
pdMK
End With
ee
{ToK
With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat (Pc>D' ;{S
|UTajEL
.LineSpacingRule = wdLineSpaceSingle kwjO5 OC8
.Alignment = wdAlignParagraphCenter 7l *
&Fh9;
.KeepWithNext = True :=Olp;+_
.KeepTogether = True @*z"Hi>4
.OutlineLevel = wdOutlineLevelBodyText #U:|-
a.>
IO)B3,g
.LeftIndent = CentimetersToPoints(0) I&-r^6Yx
.RightIndent = CentimetersToPoints(0) Tmzbh 9
.FirstLineIndent = CentimetersToPoints(0) " U\RN
3^8Cc(bk
.CharacterUnitLeftIndent = 0 !"^Zr]Qt+\
.CharacterUnitRightIndent = 0 <)7aNW.
.CharacterUnitFirstLineIndent = 0 z33UER"
JR!-1tn c
.LineUnitBefore = 1 q
G%Y & P
.LineUnitAfter = 0 }g bLWx'iG
4H{t6t@
-:
End With fyQO
F ItM
ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False z,,"yVk`,
ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll tZ_ '>7)
ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese sN41Bz$q.
ActiveDocument.Styles("QLNU表格标题").NoProofing = True JFT$1^n
DoEvents wQ 33Gc
B;k'J:-"
'表格首行 g=Z52y`N <
ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") bP18w0>,
ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False
EBy7wU`S
With ActiveDocument.Styles("QLNU表格首行").Font * %D_\0;
.NameFarEast = "楷体" s%)f<3=a
.NameAscii = "Times New Roman" G6p gG+w
.Name = "楷体" )vW'g3u _
.Size = 9 #Y7jNrxE
.Bold = True U1 _"D+XB
.Underline = wdUnderlineNone "Zp&7hI
.Italic = wdUndefined O= S[ n
.Subscript = wdUndefined ] Lv3XMa
.Superscript = wdUndefined Qs 1p
End With ddQ +EY@!
With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat ocGrB)7eD
.LineSpacingRule = wdLineSpaceSingle u)oAQ<
w
.Alignment = wdAlignParagraphCenter P$E iD+5#z
DU^.5f
.LeftIndent = CentimetersToPoints(0) eF+F"|1h
.RightIndent = CentimetersToPoints(0) Kg%9 &l
.FirstLineIndent = CentimetersToPoints(0) $DHE%IN`
u8-6s+
O
s~M$Wo8
.CharacterUnitLeftIndent = -0.5 (*S<2HN5
.CharacterUnitRightIndent = -0.5 gUklP(T=u
.CharacterUnitFirstLineIndent = -0.5 u)@:V)z
+?J N_aR
.LineUnitBefore = 0 pGs?Y81
.LineUnitAfter = 0 m23 "xnRB
.SpaceBefore = 0 ciS +.%7
.SpaceAfter = 0 4*X Nk;Dx
~F"S]
End With {irc0gI
ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False M9iX_4
ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll o/Ismg-p
ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese <h -)zI
ActiveDocument.Styles("QLNU表格首行").NoProofing = True SBxpJ
sW >
DoEvents \U:OQ.e
q` xc h [H
'表格内容 [F6 )Z[uG
ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") Z^kE]Ir#EV
ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False ^ 4`aONydl
With ActiveDocument.Styles("QLNU表格内容").Font En
\@d@j<u
.NameFarEast = "楷体" 8~Kq "wrbu
.NameAscii = "Times New Roman" Wga2).j6
.Name = "楷体" ;,77|]<XE
.Size = 9 )7 5 7
.Bold = False _dKMBcl)E
.Underline = wdUnderlineNone
#b ^6>
.Italic = wdUndefined AjK5x@\
.Subscript = wdUndefined T5:Q_o]
.Superscript = wdUndefined T]th3*
End With | 6{ JINW
With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat *w0! C:mL&
.LineSpacingRule = wdLineSpaceSingle 6 f*:;
.Alignment = wdAlignParagraphCenter VrIN.x
+>PsQ^^x
.LeftIndent = CentimetersToPoints(0) Z9 vMz3
^N
.RightIndent = CentimetersToPoints(0) Yq ]sPE92
.FirstLineIndent = CentimetersToPoints(0) C. ?^] Y
Bsa;,
.CharacterUnitLeftIndent = -0.5 ^lp=4C 9
.CharacterUnitRightIndent = -0.5 $8 \ u
.CharacterUnitFirstLineIndent = -0.5 ?I +{S
.LineUnitBefore = 0 4R'CL N
|t
.LineUnitAfter = 0 vl:~&I&y;R
.SpaceBefore = 0 iT'doF
.SpaceAfter = 0 1KZigeHXI
End With 7O55mc>cF
ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False #)'Iqaq7
ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll #Z1%XCt
ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese <$s6?6P
ActiveDocument.Styles("QLNU表格首行").NoProofing = True . 1kB8 &}
DoEvents z/\Ot Yz
;E B KzB
'图片标题 Lm[,^k
ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") Y (UK:LZ'
ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" gX" -3w
ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False G_+/ e]P
With ActiveDocument.Styles("QLNU图片标题").Font 2Q e&F eT
.NameFarEast = "楷体" cZVx4y%kz
.NameAscii = "Times New Roman" 3 Q,&D'];[
.Name = "楷体" M'%4BOpI6`
.Size = 10.5 /@ \`Ibe
.Bold = True 2M x\D
.Underline = wdUnderlineNone U'=8:&
.Italic = wdUndefined , 5W7a
.Subscript = wdUndefined 2;gv o*k
.Superscript = wdUndefined TtkHMPlm_
.Outline = False ;"M6}5dQ4
.Shadow = False KElEGW
.Color = wdColorAutomatic _d 6'f8[&
End With 8 dR `T}
With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat \ ca<L
.LineSpacingRule = wdLineSpaceSingle U p@ ^C"
.Alignment = wdAlignParagraphCenter y i$+rPF1
/9br &s$ B
.KeepWithNext = wdUndefined +u|"q+p
.KeepTogether = True w"{DL
N[Qw
.OutlineLevel = wdOutlineLevelBodyText r D@*xMW
NtM>`5{?
.LeftIndent = CentimetersToPoints(0) %`i*SF(gV
.RightIndent = CentimetersToPoints(0) @&?(XY 'M%
.FirstLineIndent = CentimetersToPoints(0) d5^^h< '
8i',~[
.CharacterUnitLeftIndent = 0 Y % ;J/4dd
.CharacterUnitRightIndent = 0 !q&T d
.CharacterUnitFirstLineIndent = 0 ^6 wWv&G[8
S<7!< ]F-
.LineUnitBefore = 0 `,}7LfY
.LineUnitAfter = 0 P*KIk~J
End With c ^I^jg2v
ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False b-ss^UL
ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll NgTB4I 8P
ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese 7(}' jZ
ActiveDocument.Styles("QLNU图片标题").NoProofing = True 4aArxJ
DoEvents /4T6Z[=s
Ph yIea
'目录项 '~Y@HRVL@|
ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") T\9[PX<
ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" /ZyMD(_J
ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False xt|^~~ /
With ActiveDocument.Styles("QLNU目录项").Font Ao\P|K9MyL
.NameFarEast = "黑体" DQGrXMpV0
.NameAscii = "Times New Roman" wN.S]
.NameOther = "Times New Roman" GL?b!4x x
.Name = "黑体" }|| u {[
.Size = 10.5 YZ>L_$:q
.Bold = False LK Df V
.Italic = wdUndefined {D[6=\ F
.Underline = wdUnderlineNone z)M#9oAM
.Color = wdColorAutomatic p3vf7 eqn
.Superscript = wdUndefined t`B@01;8A
.Subscript = wdUndefined PA'&]piPl:
End With #1-WiweO
With ActiveDocument.Styles("QLNU目录项").ParagraphFormat x 'g4DYl
wG49|!l6T
.LineSpacingRule = wdLineSpaceSingle uH*6@aYPo
.Alignment = wdAlignParagraphLeft *H!BThf
t4
\- yI
dKj
.WidowControl = False GST#b6S
.KeepWithNext = False f-18nF7{
.KeepTogether = False >B6* `3v
.PageBreakBefore = False x3i}IC
.NoLineNumber = False 3Y Mqp~4
.OutlineLevel = wdOutlineLevelBodyText
]E Kg) E
[ gT }<W
.LeftIndent = CentimetersToPoints(0) G QYR`;>
.RightIndent = CentimetersToPoints(0) pVc+}Wzh
.FirstLineIndent = CentimetersToPoints(0) iyn9[>j e
j&X&&=
.CharacterUnitLeftIndent = 0 q= pRe-{
.CharacterUnitRightIndent = 0 =803rNe
.CharacterUnitFirstLineIndent = 0 u)<]Pb})r
N# }A9t
.LineUnitBefore = 0 qb[hKp5K6
.LineUnitAfter = 0 G4'Ia$
End With =!t ;e~^8]
ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False Lf((
zk:pt
ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll ah*{NR)
ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot 5,
$6m U#=
ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese _^W;J/H
e
ActiveDocument.Styles("QLNU目录项").NoProofing = True ~B|m"qY{i
DoEvents JlYZ \
nF'YG+;|@
'参考文献 OjhX:{"5 9
ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") n~UI 47
ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" ,]EhDW6
ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False ^i|R6oO_5
With ActiveDocument.Styles("QLNU参考文献").Font + ,Krq 3P
.NameFarEast = "宋体" g
` s|]VNt
.NameAscii = "Times New Roman" SV o ?o|<
.NameOther = "Times New Roman" D^4nT,&8
.Name = "Times New Roman" >Lo\?X ~
.Size = 12 36Lkcda[
.Bold = False VgVDTWs7
.Italic = wdUndefined = p_*lC%N
.Subscript = wdUndefined a Vu!Qk=Z/
.Superscript = wdUndefined !S=YM<A d
.Underline = wdUnderlineNone E !ndXz 59
.UnderlineColor = wdColorAutomatic d3:GmB .
.Color = wdColorAutomatic &%
rM|
.Engrave = False K T0t4XPM
End With hdDT'+
With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat wF`Y
,@
fJlNxdVr
.LineSpacingRule = wdLineSpaceExactly i2Wvu3,D3-
.LineSpacing = 16 t.8r~ 2(?
.Alignment = wdAlignParagraphLeft A1/@KC"&{G
.WidowControl = False di/Q Jrw
.KeepWithNext = False sQ`G'<!
.KeepTogether = False xnMcxys~
.PageBreakBefore = False @dv8 F
"v
.OutlineLevel = wdOutlineLevelBodyText d Gp7EB`
0Agse)
.LeftIndent = CentimetersToPoints(0) >eA@s}
_8
.RightIndent = CentimetersToPoints(0) "r4 6Rfa
.FirstLineIndent = CentimetersToPoints(0) b$klm6nMvm
%[|^ 7
.CharacterUnitLeftIndent = 0 (6$ P/k8
.CharacterUnitRightIndent = 0 &IN%2c
.CharacterUnitFirstLineIndent = -2 #_.J kY
]JkEf?;
.
.LineUnitBefore = 0 }@q/.Ct! x
.LineUnitAfter = 0 E[t0b5h
.SpaceBefore = 0 }`gOfj)?i
.SpaceAfter = 0 k&ooV4#f6
]qqg EZ1!Y
End With %rb$tKk
ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False cTGd<
ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll a qEZhMy
ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS 36{GZDGQ
ActiveDocument.Styles("QLNU参考文献").NoProofing = True 7
0?iZIK _
ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese b=r 3WkB6
DoEvents ;p+'?%Y}
qm$(_]R~`
' d# E&,^@M
ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") :\|A.#
U
ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" ,jRAVt +{N
ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False Rq}lW.<r
With ActiveDocument.Styles("QLNU论文题目").Font J'P yn
.NameFarEast = "黑体" vS\ 2zwb}
.NameAscii = "Arial Black" 0Ncpi=6
.NameOther = "Arial Black" |^l_ F1+w
.Name = "Arial Black" > T * `Y0P
.Size = 16 <-k !
.Bold = False \Wfw\ x0.
.Italic = wdUndefined I]C
Y>'
.Superscript = wdUndefined ,40OCd!
.Subscript = wdUndefined ^:-GPr
.Underline = wdUnderlineNone 0o+Yjg>\~8
.UnderlineColor = wdColorAutomatic Ysu\CZGX
.Color = wdColorAutomatic <kFLwF?PM'
R` < ^ /h
End With jh o
A6I
With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat [X Y%< P3D
.LineSpacingRule = wdLineSpaceSingle ^m%#1Zd
.Alignment = wdAlignParagraphCenter 0S4BV%7F
.WidowControl = True R1H^CJ=v0
.KeepWithNext = True '{AB{)1
.KeepTogether = True d9$RmCHe}
.PageBreakBefore = True U1r]e%df)
.NoLineNumber = False qA GjR!=^
.OutlineLevel = wdOutlineLevelBodyText jTR?!Mt 0
XY| y1L 3[
.LeftIndent = CentimetersToPoints(0) 12lX-~[["
.RightIndent = CentimetersToPoints(0) YJv$,Z&;HO
.FirstLineIndent = CentimetersToPoints(0) f7a4E +}
(|BY<Ac3
.CharacterUnitLeftIndent = 0 ?zBu` 7j
.CharacterUnitRightIndent = 0 Jx5` 0?
.CharacterUnitFirstLineIndent = 0 ]i#p2?BR
jn5xYKv
.LineUnitBefore = 1 esJ7#G
xt
.LineUnitAfter = 1 yIL=jzm`7
! $$>D"
.BaseLineAlignment = wdBaselineAlignAuto tq5
9w
End With tQ{/9bN?P
ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False 83c2y;|8
ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll bvtpqI QZ
ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS nmU1xv_
ActiveDocument.Styles("QLNU论文题目").NoProofing = True r+ bGZ
ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese ]
"_c-=
ActiveDocument.Styles("QLNU论文题目").NoProofing = True {[2o
DoEvents O#U maNj/
5z_d$.CIc
'中文摘要 Qel)%|dOn
ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") 8)0]cX
ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" 0<% $lr
ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False !vnC-&G
With ActiveDocument.Styles("QLNU中文摘要").Font Oin9lg -jR
.NameFarEast = "宋体" wS}c \!@<,
.NameAscii = "Times New Roman" es* $ /A
.NameOther = "Times New Roman" r""rJzFz'
.Name = "Times New Roman" | @A XW
.Size = 12 F_*']: p
.Bold = wdUndefined Q7uJ9 Y{X
.Superscript = wdUndefined [@Ac#
.Subscript = wdUndefined OPNR BMD
.Italic = wdUndefined lndz
.Underline = wdUnderlineNone 8 vVE
.UnderlineColor = wdColorAutomatic CI{2(.n4
.Color = wdColorAutomatic ~`AB-0t.u
End With AfA"QCyO
With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat P{9:XSa%
.LineSpacingRule = wdLineSpaceExactly dQ8RrD=$&
.LineSpacing = 20 <}J !_$A
.Alignment = wdAlignParagraphLeft
|4mvB2r
{T-\BTh&Q
.WidowControl = False 5 e+j51
.KeepWithNext = False -i8KJzPL f
.KeepTogether = True :gV~L3YW5
.PageBreakBefore = False #zl1#TC{(
.NoLineNumber = False 9InP2u\&:
.OutlineLevel = wdOutlineLevelBodyText FY'0?C
T$
kxhsDD$@p
.LeftIndent = CentimetersToPoints(0) KdCrI@^
.RightIndent = CentimetersToPoints(0)
ARu_S
B
.FirstLineIndent = CentimetersToPoints(0) B2 [f1IMI
vb= ]00 c
.CharacterUnitLeftIndent = 0 ts~VO`
.CharacterUnitRightIndent = 0 .rK0C )
.CharacterUnitFirstLineIndent = 2 Em(_W5
ND{
.LineUnitBefore = 0 C*2%Ix18+N
.LineUnitAfter = 0 yq-~5u
i
M )ET 1ZM
End With 2?~nA2+vm
ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False %NQ%6 B
ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll W hW}ZS'r
ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS 6X
@z(EEL
ActiveDocument.Styles("QLNU中文摘要").NoProofing = True ;NA5G:eQ
ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese aLh(8 ;$
ActiveDocument.Styles("QLNU中文摘要").NoProofing = True G^Gs/-
f
ActiveDocument.Styles("QLNU中文摘要").Frame.Delete )5b
_>Uy
DoEvents #p( c{L!
X_2N9$ },
ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") Qb v@}[f
ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" 2V@5: tf
ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False v8-My1toV
With ActiveDocument.Styles("QLNU英文标题").Font \< .BN;t{
.NameFarEast = "黑体" =v<w29P(g
.NameAscii = "Arial Narrow" .h W
>#
.Name = "Arial Narrow" st) is4
.Size = 16 %k#+nad
.Bold = True ;JkIZ8!
.Bold = wdUndefined iL;V5 |(sb
.Superscript = wdUndefined n 0=]C%wr
.Subscript = wdUndefined j~N*T XkC
.Italic = wdUndefined z}Cjk6z @
ATkd# k%S
.Underline = wdUnderlineNone s^zlBvr|.
.UnderlineColor = wdColorAutomatic $L^%*DkM
.StrikeThrough = False B!Wp=9)G
.DoubleStrikeThrough = False \>5sW8P]H`
End With tKt} ]KHV
With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat r^
Dm|^f#
.LineSpacingRule = wdLineSpaceSingle :i!fPN n
.Alignment = wdAlignParagraphCenter \$_02:#
.WidowControl = True >\1twd{u]
.KeepWithNext = False ^# $IoW
.KeepTogether = False $jMA(e`Ye0
.PageBreakBefore = False pX _
.NoLineNumber = False ]ltCJq
.FirstLineIndent = CentimetersToPoints(0) 4
;L|Ua
.OutlineLevel = wdOutlineLevelBodyText :Vxt2@p {
Yd3lL:M
.LeftIndent = CentimetersToPoints(0) h A ){>B<;
.RightIndent = CentimetersToPoints(0) Bb=r?;zjO
.FirstLineIndent = CentimetersToPoints(0) fJ/INL
eF%M2:&c;
.CharacterUnitLeftIndent = 0 t5E$u(&+'B
.CharacterUnitRightIndent = 0 STwGp<8
.CharacterUnitFirstLineIndent = 0 %: ~Ah6 R1
'^)'q\v 'k
.LineUnitBefore = 1 sc]# T)xG
.LineUnitAfter = 1 rpiuFst
/
<(|4e
End With oSrA4g
ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False :z8/ iD y
ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll {Z/iYHv~#c
ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS %$ya>0?mq
ActiveDocument.Styles("QLNU英文标题").NoProofing = True f$>_>E
ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese 1e[?}q]*
ActiveDocument.Styles("QLNU英文标题").NoProofing = True X}Q4;='C-
ActiveDocument.Styles("QLNU英文标题").Frame.Delete {LiJ=Ebt
DoEvents qA '^b
~
1#x5
o2n
ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") Kk},
PU=
ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" ,&,%B|gT]
ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False sR/Y v
With ActiveDocument.Styles("QLNU英文摘要").Font K RxJ2
.NameFarEast = "宋体" n
=-vOa%
.NameAscii = "Arial" e&x)g;bn
.NameOther = "Arial" >l 0aME@-0
.Name = "Arial" wx
Hd^b
.Size = 12 7;p/S#P:
.Bold = wdUndefined H}r]j\
.Italic = wdUndefined !ldEy#"X
.Superscript = wdUndefined cgG*7E
.Subscript = wdUndefined 2;sTSGD G
End With F qJ`d2E
U1:m=!S;x
With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat >c 0leT
D N!V".m`J
.LineSpacingRule = wdLineSpaceExactly & n | <NF
.LineSpacing = 20 qVh?%c1.Y
C+/EPPi
.Alignment = wdAlignParagraphJustify M< Bo<,!ua
Lz1KDXr`)+
.WidowControl = False ^!B]V>L-
.KeepWithNext = False S!A:/(^WB
.KeepTogether = False 3YLK?X8
.PageBreakBefore = False gN}$$vS
.NoLineNumber = False Ct `)R
d rAJ-ii
.OutlineLevel = wdOutlineLevelBodyText C1{Q 4(K%
(.$$U3\
.LeftIndent = CentimetersToPoints(0) 6|p8_[
e`
.RightIndent = CentimetersToPoints(0) [,U l
.FirstLineIndent = CentimetersToPoints(0) YQD `4ND
_i ztQ78
.CharacterUnitLeftIndent = 0 WblH}
.CharacterUnitRightIndent = 0 `pfgx^q G
.CharacterUnitFirstLineIndent = 2 N_
ODr]L
#Tc`W_-
.LineUnitBefore = 0 Vl$RMW@Ds
.LineUnitAfter = 1 Y"t|0dO%b
3DO* kM1s@
End With |\Gkhi>;
ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False q2xAx1R`sV
ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll 9
5!xJdq
ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS j?C[ids<
ActiveDocument.Styles("QLNU英文摘要").NoProofing = False #q:j~4)h
DoEvents (tA[] ne 2
o%Q9]=%!
Options.Pagination = True EJ
{ vJZO
Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." U>kaQ54/
DoEvents s[7$%|~W
ActiveDocument.Repaginate U`)
" ;WN
jk`U7 G*
End Sub ]A[}:E 5}
d1#lC *.Sg
Uh
vy 2}w
