Dim bContinue As Boolean x]' H jTqX
:uvc\|:s
Dim regEX As New RegExp @_O3&ZK
Dim paraCounter As Long '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 `.8-cz
J|?[.h7tO
Dim LastTitle0String As String, LastTitle0No As Long K+> V|zKuk
Dim LastTitle1String As String, LastTitle1No As Long 2Iz fP;V?
Dim LastTitle2String As String, LastTitle2No As Long 8MQ bLj'H
Dim LastTitle3String As String, LastTitle3No As Long R0IF '
Dim LastTitle4String As String, LastTitle4No As Long MB O,\t.
Dim LastTitle5String As String, LastTitle5No As Long ,;3:pr
Dim LastTabelString As String, LastTableNo As Long T{Hf P
Dim LastFigureString As String, LastFigureNo As Long g RU-
g
uu@<&.r\C
Dim strSeperator As String G5u meqYC
$i% HDt|
Sub ConvertWidth(fTEXT As String, rText As String) 1.dX)^ \
Selection.Find.ClearFormatting Rp eBm#E2
Selection.Find.Replacement.ClearFormatting dqz 1xQ1
Selection.Find.Wrap = wdFindContinue >w2f8tW`PP
Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText BvJ\x)
DoEvents swt\Ru6,
Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True ~2 Oc
K
End Sub }K;iJ~kD1
k+txb?
Sub ClearDomain() %*p^$5 L<
With Selection.Find D(@SnI+
.ClearFormatting i-"<[*ePd
.Replacement.ClearFormatting ] ut?&&*
.Wrap = wdFindContinue JP%RTGu
Me.txtStatus.Text = "清除所有域代码" hXnw..0"
DoEvents 1>;6x^_h0S
.Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False Rk{$S"8S_
End With Xj;2h{#s
End Sub kaC+I"4c
`skH-lk,
Private Sub cmdCheck_Click() )|: 8zDuJ
bContinue = True `axQd%:AC
Dim NoSeries1(1 To 16) As String ck~ '`<7
Dim NoSeries2(1 To 16) As String 3Tw%W0q
Dim NoSeries5(1 To 16) As String ir+8:./6
Dim NoSeriesRM(1 To 16) As String /J.0s0 @
Dim paraTotal As Long, ParaText As String Bxt_a.LthH
Dim ttString As String, ttNo As String w(#:PsMo<
Di])<V
Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long k!
vHO
QpJ IDM/
Me.txtStatus.Visible = True ]!-R< [b
6
Me.lbParaType.Visible = True 5 iv@@1c
Me.cmdCheck.Enabled = False v?{vg?vI
Xky@[Td*
4K'|DO|dH
(xQI($Wq*M
U,d2DAv t
Dim ParaType As String, rText As String o{g@Nk'f
-s33m]a;
Selection.WholeStory 8E=vR 8
Selection.NoProofing = True : SdIU36
C\/b~HU
tm1 = Now oE 5
;|x3
~QO<
B2hS}
ActiveWindow.View.Type = wdNormalView PbQE{&D#
CQ jV!d0j
NoSeries1(1) = "一"
*V<)p%l.
NoSeries1(2) = "二" qw)Ke y
NoSeries1(3) = "三" <L%HG
NoSeries1(4) = "四" WS5"!vz
NoSeries1(5) = "五" P;>!wU~
*
NoSeries1(6) = "六" _-
(z@
NoSeries1(7) = "七" &gJW6 <
NoSeries1(8) = "八" fGo_NB
NoSeries1(9) = "九" `
U!(cDY
NoSeries1(10) = "十" 9?!u2 o
NoSeries1(11) = "十一" G\uU- z$)
NoSeries1(12) = "十二" *.,8,e8Vq
NoSeries1(13) = "十三" \CDAFu#
NoSeries1(14) = "十四" IY~
{)X
NoSeries1(15) = "十五" DbQBVy
NoSeries1(16) = "十六" a YR\ <02
Sn0Xl3yr
NoSeries2(1) = "㈠" hs z$S:am
NoSeries2(2) = "㈡"
'l8eH$
NoSeries2(3) = "㈢" ID+,[TM`
NoSeries2(4) = "㈣" Cl{{H]QngX
NoSeries2(5) = "㈤" JkJh fFV
NoSeries2(6) = "㈥" -$b?rt]h1g
NoSeries2(7) = "㈦" VAt >ji7c
NoSeries2(8) = "㈧" T 77)Np
NoSeries2(9) = "㈨" dkE TM,
NoSeries2(10) = "㈩" ko>M&/^
g\qX7nIH?
NoSeries5(1) = "①" Ipg\9*c`
NoSeries5(1) = "②" O/nqNQ?<
NoSeries5(3) = "③" y]MWd#U
NoSeries5(4) = "④" ,A^L=+
NoSeries5(5) = "⑤" y^, "gD
NoSeries5(6) = "⑥" _3I3AG0e
NoSeries5(7) = "⑦" {#0T l
NoSeries5(8) = "⑧" EO"=\C,
NoSeries5(9) = "⑨" ^`/V i
NoSeries5(10) = "⑩" 2-P I JO
:nt}7Dn'
A g<4r
NoSeriesRM(1) = "I" PXR0 Yn
NoSeriesRM(2) = "II" ?'T"?b<
NoSeriesRM(3) = "III" Vj29L?3
NoSeriesRM(4) = "IV" uH= Gt^_
NoSeriesRM(5) = "V" Qk|( EFQ9
NoSeriesRM(6) = "VI" M Ey1~h/
NoSeriesRM(7) = "VII" Fr<Pe&d n
NoSeriesRM(8) = "VIII" qP p]K?.
NoSeriesRM(9) = "IX" D`8E-Bq
NoSeriesRM(10) = "X" 2-p8rGI_F
NoSeriesRM(11) = "XI" -5o?#%
NoSeriesRM(12) = "XII" I? A~zigO
NoSeriesRM(13) = "XIII" x}uwWfe 3
NoSeriesRM(14) = "XIV" :^K~t!@
NoSeriesRM(15) = "XV" ?DJuQFv
NoSeriesRM(16) = "XVI" (tTLK0V-|3
dPRt N@3
i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) ,,XS;X?
YBR)s\*
If i = vbNo Then +7 ` u9j.
Exit Sub +V 6j`
End If rknzo]N,
oUCS |
If Me.chkSuper.Value Then BzN/6VEw
Me.txtStatus.Text = "检查修改所有的上标格式"
J&(
HH+TjX/b
CheckSuperScript ;U8 dm"
ws#hhW3qK
End If NuHL5C?To
7eTA`@v5A
If Me.chkStyle.Value Then KX]-ll
Me.txtStatus.Text = "设置样式，请稍候...." w"yK\O E
DoEvents T..-)kL+p
CeateOrModifyStyle Wn b)*pPP
End If O^y$8OKEi,
>Zi|$@7t-
{E3;r 7
'Dnq+
ClearDomain p0"BO4({{
='KPT1dW*
$&bU2 ]
TeOFAIU
If Me.chkLIST.Value Then :u,2" ]
Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" UzXDi#Ky
cPx66Dh&
ConvertListToOrdinary 4GEj W4E
End If \%P
ma8&d
<<i=+ed8eP
w 6%l8+{R
Dim pType As String, trimpTEXT As String |.^^|@+
If Me.chkNum.Value = True Then gX/|aG$a!U
Me.txtStatus.Text = "转换全角数字形式为半角" <Wp`[S]r
ConvertWidth "１", "1" % cU-5\xF
DoEvents $cyLI+uz|
ConvertWidth "２", "2" A[K:/tB
DoEvents XA=|]5C
ConvertWidth "３", "3" B[C7G7 <B
DoEvents q=T<^Tk#e
ConvertWidth "４", "4" 0m
qS A
DoEvents *4zoAs lU1
ConvertWidth "５", "5" ?SB
h^/zf
DoEvents R/yPZO-U
ConvertWidth "６", "6" hLu
&lY
DoEvents ytg7p 5{!i
ConvertWidth "７", "7" C,V|TF.i2
DoEvents
>6n@ \n
ConvertWidth "８", "8"
c"6Kd$?M
DoEvents Kv(Y }
ConvertWidth "９", "9" N)`tI0/W
DoEvents D 86 K$IT
ConvertWidth "０", "0" ^w.k^U =B
DoEvents ]%b0[7[
ConvertWidth "ａ", "a" \xy:6gd :
DoEvents ER0TY,
ConvertWidth "ｂ", "b" FuIWiO(
DoEvents N;%j#(v
j
ConvertWidth "ｃ", "c" A;K{ &x
DoEvents ,q{lYX83S
ConvertWidth "ｄ", "d" FA5k45w L
DoEvents xKRfl1
ConvertWidth "ｅ", "e" QSO5 z2 |
DoEvents V*0Y_ T{_
ConvertWidth "ｆ", "f" KB$ vQ@N
DoEvents e&r+
w!
ConvertWidth "ｇ", "g" LPtx|Sx![
DoEvents =iA"; x
ConvertWidth "ｈ", "h" OFJJ-4[_3
DoEvents <!$j9) ~x
ConvertWidth "ｉ", "i" w CqE4i
DoEvents z1z =P%WK
ConvertWidth "ｊ", "j" :DF`A(
DoEvents c`Lpqs`
ConvertWidth "ｋ", "k" g`y/ _
DoEvents 4yJ01s
ConvertWidth "ｌ", "l" G:H(IA7 Z
DoEvents 0tn7Rkiw
ConvertWidth "ｍ", "m" #MmmwPB_
DoEvents \z(>h&
ConvertWidth "ｎ", "n" Nj! R9N
ConvertWidth "ｏ", "o" &QiAM`MbC=
ConvertWidth "ｐ", "p" &e5^v
ConvertWidth "ｑ", "q" }s8*Q
fK>
ConvertWidth "ｒ", "r" K*hf(w9="%
ConvertWidth "ｓ", "s" Z3&XTsq
ConvertWidth "ｔ", "t" H{p[G hp
ConvertWidth "ｕ", "u" M)bC%(xJ
ConvertWidth "ｖ", "v" 2d ,wrC<'$
ConvertWidth "ｗ", "w" ." $=
ConvertWidth "ｘ", "x" % t,1_c0w
ConvertWidth "ｙ", "y" T1Ln)CS?9
ConvertWidth "ｚ", "z" p8 E;[
ConvertWidth "Ａ", "A" DR#3njjEC
ConvertWidth "Ｂ", "B" #$9U=^Z[
ConvertWidth "Ｃ", "C" sIP6GWK$
ConvertWidth "Ｄ", "D" 0nF>zOmc
ConvertWidth "Ｅ", "E" C={sE*&dYX
ConvertWidth "Ｆ", "F" ?#');`
ConvertWidth "Ｇ", "G" Ip 1QVND
ConvertWidth "Ｈ", "H" f)!{y> Q
ConvertWidth "Ｉ", "I" Xmw2$MCB
ConvertWidth "Ｊ", "J" 0O@[on;Bd
ConvertWidth "Ｋ", "K" l%v hV&
ConvertWidth "Ｌ", "L" f?oI'5R41
ConvertWidth "Ｍ", "M" n=<q3}1Jej
ConvertWidth "Ｎ", "N" + xkMW%e<
ConvertWidth "Ｏ", "O" fh/)di
ConvertWidth "Ｐ", "P" G5C#i7cpm
ConvertWidth "Ｑ", "Q" G>?x-!9qcH
ConvertWidth "Ｒ", "R" 4jI*Y6Wkz
ConvertWidth "Ｓ", "S" #CBo
ConvertWidth "Ｔ", "T" ~ 8S4Kj)%
ConvertWidth "Ｕ", "U" *GY,h$ Ul
ConvertWidth "Ｖ", "V" P
Da06(t7
ConvertWidth "Ｗ", "W" y"{UN M|R
ConvertWidth "Ｘ", "X" _A# x&<c
ConvertWidth "Ｙ", "Y" dW] Ej"W
ConvertWidth "Ｚ", "Z" r)*_,Fo|
ConvertWidth "^l", "^p" 9
u6
g
ConvertWidth "（", "(" qX}dbuDE"P
ConvertWidth "）", ")" C 6: p Y-
{RWahnr{
End If k; 9#4^4(
(5CX *)R
With ActiveDocument CVn;RF6
Dim tbl As Table yDl5t-0`
For Each tbl In .Tables JJ= ~o@|c
tbl.Rows.Alignment = wdAlignRowCenter 3M5=@Fwkr
tbl.Range.Font.NameFarEast = "楷体" |G5=>W
tbl.Range.Font.NameAscii = "Times New Roman" 5wVi{P5+
tbl.Range.Font.Size = 10.5 c{ r6a=C
Next # oS
Set tbl = Nothing {ILQ
CvP*
End With `K ~>!d_
Xqq?S
V3. vE,
With ActiveDocument cr F9,p
@5 POgQ 8
For i = 1 To .TablesOfContents.Count
`\}zm~
.TablesOfContents(i).Delete ln_EL?V
Next `s]zk {x
. /z"P]$
M zA
FZL zu
paraTotal = .Paragraphs.Count }T&;* ww
paraCounter = 1 Sxx.>gP"61
J^e|"0d
LastTitle0No = 0 }pU!
1GsO
LastTitle1No = 0 ,&
{5,=
LastTitle2No = 0 /-cX(z
7
LastTitle3No = 0 4%Wn}@
LastTitle4No = 0 l"V8n BR`
LastTableNo = 0 *PA1iNdKS
LastFigureNo = 0 Amq8q
=h1 QN
Dim Sec As Long wHDF TIDI
2 T
{-J!k
Sec = InputBox("正文从第一节开始？", "节设置", 6) e=NQY8?
If Sec = 0 Then ^Ypb"Wx8
Exit Sub q , 19NZ
End If ;U5x'}%0]
<CdG[Ih
k = 0 V%Z[,C
u+
Do While (paraCounter < paraTotal) And bContinue o8yEUnqN
k = k + 1 L >K39z~,
If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then 3]5&&=#
Exit Do ?PH}b?f4
End If d%"@#bB
paraCounter = paraCounter + 1 = & <$I
If k Mod 20 = 0 Then x#!{5;V&K
Me.lbCounter.Caption = paraCounter `~s,W.Eu4
DoEvents 7~k
~S>s
O
End If M`f; -
Loop 7xa@wa?!L
Jh hT7\h(
%d~9at6-B
Do While (paraCounter < paraTotal) And bContinue Q{)F $]w
*~MiL 9m+?
ParaText = Trim(.Paragraphs(paraCounter).Range.Text) A+P
m "|
ShapeHeight = 0 A/W7 ;D
ShapeWidth = 0
EKI+Dq,
2v;
7ohK
CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth ^Xz`hR
ag*Hs<gi
Select Case ParaType Y_ TL4
Case "【】表格内容" AF{7<v>/P
.Paragraphs(paraCounter).Style = "QLNU表格内容" XzTH,7 [n
Case "章" % /wP 2O<
LastTitle0No = LastTitle0No + 1 0 C
i"tA3"
'新一章开始，复位其下属标题编号 V-o`L`(F`
LastTitle1No = 0 c&iK+qvh{
LastTitle2No = 0 B3k ],k
LastTitle3No = 0 wr6xuoH
LastTitle4No = 0 AfbA.-
`'{%szmD
k = Val(ttNo) y*TNJJ|
If k = 0 Then '非数字编号章节 5d >YE
If ttNo <> NoSeries1(LastTitle0No) Then L
M< = j
rText = "第" & NoSeries1(LastTitle0No) & ttString k kuQ"^<J
Me.ErrMsg.AddItem "章节编号错误：" & ParaText EIl$"^-
End If f ;;
S
Else ! B38!
L
If Val(ttNo) <> LastTitle0No Then "u> sS
rText = "第" & LastTitle0No & ttString ]> "/<"
Me.ErrMsg.AddItem "章节编号错误：" & ParaText bT6)(lm
End If ?;=Y1O7 N(
;ZW}47:BS6
End If =2V;B
'V1 -iJj9
'章段落设置 88L bO(q\d
'字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 7XI4=O};&%
.Paragraphs(paraCounter).Style = "QLNU章节" u:>3j,Cs
.Paragraphs(paraCounter).Range.Select .}u(&
Selection.EndKey unit:=wdLine Ydd>A\v \;
tc = Replace(rText, vbCr, "") $oBZe>s .
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False 7&S|y]$~
Case "一级标题" hF%~iqd
LastTitle1No = LastTitle1No + 1 #K~j9DuR
'新一级标题开始，复位其下属标题编号 g 5YsV p
LastTitle2No = 0 !-}*jm p<
LastTitle3No = 0 1VM5W!}
LastTitle4No = 0 7Mb t*[n
o[+|n[aT)3
If ttNo <> NoSeries1(LastTitle1No) Then XIW: Nk!S
rText = NoSeries1(LastTitle1No) & "、" & ttString Nb, H8;
Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText :FgRe,D
End If )|1JcnNSa
_nCs$ U
R~?; KJ
'一级标题段落设置 格式：一、标题内容 FZI 4?YD?<
.Paragraphs(paraCounter).Range.Text = rText o_^d>Klb8
.Paragraphs(paraCounter).Style = "QLNU一级标题" oL/^[TXjH
.Paragraphs(paraCounter).Range.Select ReGb .pf
Selection.EndKey unit:=wdLine aGkVC*T
tc = Replace(rText, vbCr, "") X;a{JjN
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False Ac(Vw%
Case "二级标题" )jZ=/ xG
LastTitle2No = LastTitle2No + 1 Kgio}y
'新二级标题开始，复位其下属标题编号 E3C[o! 5
LastTitle3No = 0 HC`3AQ12!&
LastTitle4No = 0 H_r'q9@<>
\EfwS%
P
If ttNo <> NoSeries1(LastTitle2No) Then !` Yi{}1_
rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString >Ti2E+}[M
ErrMsg.AddItem "二级标题编号错误：" & ParaText ^+l\YB7pD
End If 9^h% }>
+W3>Yg%)X
'二级标题段落设置 格式：(一)、标题内容 FH5 bC6
.Paragraphs(paraCounter).Range.Text = rText >+L gJo R
.Paragraphs(paraCounter).Style = "QLNU二级标题" X!+ a;wr
cg5{o|x
.Paragraphs(paraCounter).Range.Select =id $
Selection.EndKey unit:=wdLine v/6,
eIz
tc = Replace(rText, vbCr, "") ] ,aAzjZ
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 2 ", PreserveFormatting:=False cNB$g )`
z7}zf@Y-qv
Case "三级标题" 80" =Qu{s
LastTitle3No = LastTitle3No + 1 8q LgB
'新三级标题开始，复位其下属标题编号 Xr6 !b:UX
LastTitle4No = 0 u! FSXX<
>u[1 v
If Val(ttNo) <> LastTitle3No Then .7 ^-*HT}
rText = LastTitle3No & ". " & ttString Yt<PKs#E
Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText N5_.m(:
a9_KQ=& CI
End If l , 2z5p
'三级标题段落设置 格式：1. 标题内容 Tsp-]
-)
.Paragraphs(paraCounter).Range.Text = rText 40sLZa)e
.Paragraphs(paraCounter).Style = "QLNU三级标题" ~O7(0RsCN
.Paragraphs(paraCounter).Range.Select p5rRhu/|k3
Selection.EndKey unit:=wdLine J7] 60H#P
tc = Replace(rText, vbCr, "") y!D`.'
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 3 ", PreserveFormatting:=False \ @t5S
Case "四级标题" HPH {{ p
LastTitle4No = LastTitle4No + 1 PKs%-Uk
-ZON']|<}k
If Val(ttNo) <> LastTitle4No Then 2cL )sP}
rText = "(" & LastTitle4No & "). " & ttString hCoL j6Vx
ErrMsg.AddItem "四级标题编号错误：" & ParaText DyTk<L
1EPOYvf%U
End If ZVR 9vw 28
'四级标题段落设置 格式：(1). 标题内容 *^5,7}9Qo
.Paragraphs(paraCounter).Range.Text = rText ?B!ZqJ #
.Paragraphs(paraCounter).Style = "QLNU四级标题" ~,65/O
.Paragraphs(paraCounter).Range.Select ^W05Z!}
Selection.EndKey unit:=wdLine {!?RG\EYN
tc = Replace(rText, vbCr, "") JX<W[P>M
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 4 ", PreserveFormatting:=False s;M*5|-
Iba L.t\>
Case "表格标题" .v&h> @'m
LastTableNo = LastTableNo + 1 R}26 "+~
T/6=A$4
#
If ttNo <> CStr(LastTableNo) Then ,DO mh<b
rText = "表" & LastTableNo & ". " & ttString D;n%sRq(Z
ErrMsg.AddItem "表格编号错误：" & ParaText dct#E CT
? UDvFQ&
End If >Ga1p'8FtU
1@dx (_
'表格名称段落设置 格式：表1. 表格名称 <vuX "
8
.Paragraphs(paraCounter).Style = "QLNU表格标题" y5D?Bg|M
xe = Replace(rText, vbCr, "") io'Ovhf:
.Paragraphs(paraCounter).Range.Select ?a9k5@s
Selection.MoveEnd wdCharacter, -1 '选择范围包括行尾的换行符。 V-r<v1}M
Selection.Range.Text = xe XFe7qt;%
Selection.EndKey z$5C(! )
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False L2$ L .@
cY]Y8T)
Case "表格首行" A :J{
.Paragraphs(paraCounter).Style = "QLNU表格首行" MW> 28
Case "图片标题" ~8{3
Fc 0
LastFigureNo = LastFigureNo + 1 kw}1 CXD
ck+rOGv7{Z
If ttNo <> CStr(LastFigureNo) Then ?0%TE\I8
rText = "图" & LastFigureNo & ". " & ttString GLF"`M /g
ErrMsg.AddItem "表格编号错误：" & ParaText ay|{!MkQ
t P{$}cEY
End If }]?G"f
t K
'图片名称段落设置 格式：图1. 图名称 *03/ :q ^(
.Paragraphs(paraCounter).Range.Text = rText Y"%o\ DS*
.Paragraphs(paraCounter).Style = "QLNU图片标题" i?=.;
0[|
.Paragraphs(paraCounter).Range.Select W>nb9Isp
Selection.EndKey unit:=wdLine x7@HPf
xe = Replace(rText, vbCr, "") kweTK]mT
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False * v]UgP k
Case "正文" qE:DJy <
'正文名称段落设置 :J-5Q]#
.Paragraphs(paraCounter).Style = "QLNU正文" dw!E ao47
Case "文献条目" {\z r_v`g
With .Paragraphs(paraCounter) rv%[?Ml
'.Range.Select .Y.#
d7TA
'Selection.ClearFormatting *b_ 54X%3
'.Range.Find.Execute findtext:=rText, replacewith:=strSeperator 'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” wCmv/m
.Style = "QLNU参考文献" jsQ$.)nO
End With & 2igX?60
Case "图表注解" VAt9JE;#
With .Paragraphs(paraCounter) @/FX7O{n:
.Range.Font.NameFarEast = "楷体" d]`,}vi#E9
.Range.Font.NameAscii = "Times New Roman" :n9^:srGZH
.Range.Font.Size = 9 '小5号字 )c !S@H s
;P~S/j[ 8
.Alignment = wdAlignParagraphCenter ~ }22 Dvo
.LeftIndent = 0 Uroj%x N
.RightIndent = 0 .Tv(1HAc2l
.FirstLineIndent = 0 #wiP
{+%b
.LineSpacing = 12
e5]AB
.LineSpacingRule = wdLineSpaceExactly r ngw6?`n-
.LineUnitAfter = 0 =fo/+ m5
.LineUnitBefore = 0 sdD[`#
.OutlineLevel = wdOutlineLevelBodyText 6Qu * '
.PageBreakBefore = False ,+9r/}K]/
.RightIndent = 0 Ti'kn{
Zv
.WordWrap = True ^W'[l al.
.LineUnitAfter = 0.5 FJ"9Hs2
Ag
J~6tK
End With SqB|(~S
Case Else KLW+ &.re8
'不作处理 >6+K"J-@
End Select
+Bfi/ >
- 5.%{Go$[
'含有inlineshape的段落处理 "M &4c :cz
If ShapeHeight > 30 Then 2N 4>
.Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle '对有图片的段落设置为单倍行距 a6P.Zf7
End If ,&G
M\FTeb
fk1f'M)/8
If (ShapeWidth + ShapeHeight) > 150 Then qKC*j DW
.Paragraphs(paraCounter).Style = "QLNU图片段落" -~fI|A ^
End If mO.U )tL[
,[ L$
'段落计数器递 _6
`4_<c=
paraCounter = paraCounter + 1
q+~CA[H5K
Me.lbCounter.Caption = "当前检测段落：" & paraCounter jRAL(r|
Me.txtStatus.Text = ParaText zmRK%a(
DoEvents 2A+,. S_!x
Loop "|SE#k
End With *,
K
\A
@D=`iG%
msg = "" xltu
g##
&J:)*EjVl5
For i = 0 To Me.ErrMsg.ListCount - 1 ;i>E @
msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) $uh DBmb
Next EZBzQ""
Bx4GFCdifC
eS:e#> (
c
O&9(.d
Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg U^\~{X
Me.cmdCheck.Enabled = True ^mQfXfuL
Me.txtStatus.Visible = True Q;nr=f7Ys
Me.lbParaType.Visible = False /vu!5?S
It-*CD9
bContinue = False qV,j) b3M
End Sub F\bI6gj
fM.|#eLi
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) xS1|Z|&
Dim pTEXT As String Sw'?$j^3
s#ZH.z@J
pTEXT = ChKRange.Text 9YhsJ~"Q
RC%r7K f
ParaType = "其它" ?F {xDfqw
TitleString = pTEXT F DX+
TitleNo = "N/A" 2zu~#qU[)M
{m:R v&T
shpCounter = ChKRange.InlineShapes.Count f34&:xz2U
If shpCounter <> 0 Then ArK9E!`^
MaxShpHeight = 0: TotalShpWidth = 0 gQ#T7
For i = 1 To shpCounter !yrHVc
k = ChKRange.InlineShapes(i).Height kELyD(
^P`
l = ChKRange.InlineShapes(i).Width cU|jT8Q4H
If k > MaxShpHeight Then "@$STptkc
MaxShpHeight = k
#jiq
Rhm
End If *pp1Wa7O
TotalShpWidth = TotalShpWidth + l #" -^;Z
Next 89mre;v`
If MaxShpHeight > 60 Or TotalShpWidth > 150 Then S
'+"+%^tj
Exit Sub eCD,[At/
End If @un
}&URp
End If U{(07GNm#
&Sa~Wtm |*
'空行 Ms)zEy>[Ql
If Len(pTEXT) <= 2 Then ts>}>}@vc
Exit Sub Ya 4$7|(
End If vy2aNUmt
7
:'>~>'
\l5:A]J
'是否为表格中的文字 V.:A'!$#
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then =lQ [%&
ParaType = "表格内容" dC#\ut%l
k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) I xBO$ 2
If k = 1 Then ;(6lN<i U
ParaType = "表格首行" 8 f5^@K\c
End If 4'& BpFDUb
Exit Sub DjvgKy=Jr_
End If ZRGZ'+hw
I=a$1%BzEX
'例外情况：脚注 vI}S6-"<
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then
8Oh
3 iO
ParaType = "脚注" a=VT |CX[
Exit Sub 1s[-2^D+EM
End If %nF\tVP3]
yVzg<%CR^
'例外情况：尾注 !J l0Eu
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then `wd* &vl
ParaType = "尾注" |LH*)GrD*t
Exit Sub ~W{h-z%q
End If Ct+%
vyGL n
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then Qe.kN dT+_
ParaType = "页眉页脚" ZH_4'm!^g|
Exit Sub IQ ~7vk()
End If _\PoZ|G4y
l}c2l'
e}AJxBE
With regEX a@ }r[0O
.Global = True UROi.976D
;NeEgqW "
.Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" :/%xK"
If regEX.Test(pTEXT) Then /j@ `aG(a
ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") ?ovGYzUZ
TitleString = regEX.Replace(pTEXT, "$3") rxeX
z<
TitleNo = regEX.Replace(pTEXT, "$1") tdF[2@?+
ParaType = "章" ZY$@_D OB}
Exit Sub RGI6W{\
End If ; @~*z4U
BK SK@O V
.Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" \ZZy`/~z*7
If regEX.Test(pTEXT) Then QC,( rB
ParaType = "一级标题" ^VPl>jTg
regEX.Execute (pTEXT) y
t: V+qdv
ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") :9#{p^:o
TitleString = regEX.Replace(pTEXT, "$3") n ]}2O 4
j
TitleNo = regEX.Replace(pTEXT, "$1") gi@ji-10
Exit Sub /+O8A}
End If m-92G8'
N~_ jiVD>
'全角或半角括号中的数字 1
R9? [RE
.Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" 1[9j`~[([
If regEX.Test(pTEXT) Then _O9H. _E
ParaType = "二级标题" Nj&%xe>].
regEX.Execute (pTEXT) [:@?,?V\N
ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") w QB{K 3
TitleString = regEX.Replace(pTEXT, "$5") <W')
~o}
TitleNo = regEX.Replace(pTEXT, "$2") ?u!AHSr(
Exit Sub )^f
Q@C8
End If X>8?p'*
^oO5t-9<!
'阿拉伯数字 1. 2. G>>u#>0
.Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" ){6)?[G
If regEX.Test(pTEXT) Then h ]$?~YE
ParaType = "三级标题" WVK-dBU
regEX.Execute (pTEXT)
})vr*[
ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 _rd j,F8
TitleString = regEX.Replace(pTEXT, "$3")
D#}Yx]Q1
TitleNo = regEX.Replace(pTEXT, "$1") 1t=X: ]0j
Exit Sub /C2f;h(1
End If K(f
LqXE%
,GP4I 3D
'全角或半角括号中的阿拉伯数字 UDtbfc7bk
.Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" bv>lm56
If regEX.Test(pTEXT) Then -8 =u{n
ParaType = "四级标题" #gJ~ {tA:
regEX.Execute (pTEXT) a;(zH*/XK
ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") eE`1;13;
TitleString = regEX.Replace(pTEXT, "$5") )Hm[j)YI
TitleNo = regEX.Replace(pTEXT, "$2") \[I .
Exit Sub : ";D.{||
End If NVWeJ+w
b7sE
'表格名称 #ic 2ofI
.Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" rGGepd
If regEX.Test(pTEXT) Then y]f^`2L!8>
ParaType = "表格标题" e4%*I8
^e
regEX.Execute (pTEXT) A=]F_
ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) ey\{C`(__y
TitleString = Trim(regEX.Replace(pTEXT, "$3")) H<7D cwXv
TitleNo = Trim(regEX.Replace(pTEXT, "$1")) 4
@iJ |l
strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 8'WMspX
Exit Sub ruA+1-<f
End If q)xl$*g
ai
_fN
'图片名称 ;Jn0 e:x`E
.Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" T&"dBoUq>G
If regEX.Test(pTEXT) Then ^|i\d \
ParaType = "图片标题" e - ]c
regEX.Execute (pTEXT) mX.3R+t
ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") kDl4t]j
TitleString = regEX.Replace(pTEXT, "$3") _Ge ^
-7
TitleNo = regEX.Replace(pTEXT, "$1") Mq lo:7
^F
Exit Sub #_\M D, (
End If 5po' (r|U
mCNf]Yz
'参考文献 C;:L~)C@t
.Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})" '[数字]、 C!k9 JAa$Z
If regEX.Test(pTEXT) Then ,xD*^>!
ParaType = "文献条目" )-:eQ{st`
'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") b\j&!_
'TitleNo = regEX.Replace(pTEXT, "[$2] ") *@n3>$
Exit Sub lc?m KW9
End If |QNLO#$ -
\(U " _NPp
prfx = Left(pTEXT, 2) \"`>- v"h
If prfx = "注：" Or prfx = "注:" Then 05VOUa*pb
ParaType = "图表注解" f"<@6Axq
Exit Sub `p d
End If Dke($Jr{
j*~dFGl)
4S0++Hp4
ParaType = "正文" 6aZt4Lw2\
rspoSPnY1
End With n!eqzr{
End Sub >dvWa-rNUT
<*Kh=v
Sub ConvertListToOrdinary() &DQ4=/Z
Dim st As Paragraph 'BdmFKy1
With ActiveDocument K#f`_ SCW
For i = .Paragraphs.Count To 1 Step -1 eGe[sv"k
Set st = .Paragraphs(i) +[8Kl=]L
lst = st.Range.ListFormat.ListString
QXxLe*
If lst <> "" Then K[>@'P}y
st.Range.ListFormat.RemoveNumbers Q] yT
st.Range.InsertBefore lst & " " x D= qU
End If lH@E %
Next X$| TN+Ub
End With ; (0( 8G
Set st = Nothing 0Q-
Mxcj
End Sub !:O/|.+Vmf
OWXye4`*
Private Sub UserForm_Activate()
U Q.D!q
Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" 6SBvn%
Me.lbTotal.Font.Bold = True QJIItx4hE
Me.txtStatus.Visible = False <_a70"i
Me.cmdCheck.Enabled = True ;.Oh 88|k
H;*a:tbxO+
End Sub Tb0;Mbr
mn; 7o~4
q?-3^z%u
Sub CheckSuperScript() Ie&b <k
Selection.Find.ClearFormatting K
l0t
yeT
Selection.Find.Replacement.ClearFormatting feI[M;7u
With Selection.Find E?gu(\an@
.Text = "[【\[［〖](*)[】\]〗］]" + > WC^s
.Replacement.Text = "[\1]" FO(0D?PCR
.Replacement.Font.Superscript = True cv*Q]F1%
'.Replacement.Font.Color = wdColorBlue <r +!hJ[s'
.Forward = True -Xxu/U})%
.Wrap = wdFindContinue '0_j{ig
.FORMAT = True g
y e(/N+I
.MatchCase = False *&dW\fx
.MatchWholeWord = False Op/79 ]$
.MatchByte = False QTj ftcu
.MatchAllWordForms = False P
5qa:<
.MatchSoundsLike = False 5h H 6G
.MatchWildcards = True Ns!3-
Y
End With ,D@ ;i
Selection.Find.Execute Replace:=wdReplaceAll {~p7*j^0
End Sub *)`kx
Ue g N-n
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) [71#@^ye
bContinue = False = yTa,PY
Set regEX = Nothing jq("D,
End Sub X=p3KzzX
FSU%?PxO
Sub CeateOrModifyStyle() XHZ:
mLf
' ^/ DII`A
' a ?,[w'7FU
Dim stl As Style +r-dr>&H@
yXTK(<'
Options.Pagination = False o!=l B fI
S\3AW, c]w
On Error Resume Next U%^eIXV|
For Each stl In ActiveDocument.Styles i2FD1*=/?
stl.Delete
b%[ nB
Next ;]&~D
+XH
On Error GoTo 0 fZ6 fV=HEF
y K YP
Set stl = Nothing 5Q$r @&qp
txml* /zL
DoEvents A`x
-L
On Error Resume Next Y1fy2\<'
&vFq e,Z
ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph JIP+ !2
q
M_/
ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph j
FPU
zB"
ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph zY1s7/$ i
5w,Z 7I8
ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph
]~ prR?
ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph '6o`^u>
Ev+HW x~Y
ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph 1 qLl^DW
ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph
w TlK4 R#
ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph k'@7ZH
ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph bCA2ik
ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph < g 3du~
ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph ]|,q| c
,
ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph 97(Xu=tX
B.22
DuE#
ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph 5oU` [&=Ob
ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph XVrm3aj(m
ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph bB:r]*_
s]
ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph R81{<q'%X
ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph 1tc]rC4h
+HOCVqx
ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph =& q-[JW
On Error GoTo 0 <'} b*wUB
DoEvents _(oP{w gB
n^iN
o
'BaseStyle v@fe-T&0
ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False ~_ u*\]-
With ActiveDocument.Styles("BaseStyle").Font W,H H
*!
.NameFarEast = "宋体" =% q?C
r
.NameAscii = "Times New Roman" pHen>BA[
.NameOther = "宋体" m"gni #
.Size = 10.5 j{{~ Z M
.Bold = wdUndefined 4d^
\l!
.Italic = wdUndefined h"% |\o+3
.Subscript = wdUndefined 'dIX= /RZ
.Subscript = wdUndefined VqK%^
:DdBn.
.Underline = wdUnderlineNone F l_dzh,E
.UnderlineColor = wdColorAutomatic + mfe*'AU
.StrikeThrough = False k_D4'(V:b
.DoubleStrikeThrough = False n#+%!HTh
\~ @[QGKN
.Outline = False 7Wwp )D
.Emboss = False j3x^<a\gJ
.Shadow = False c= A(o
.Hidden = False HzRX$IKB3(
.SmallCaps = False gDQkn {T.%
.AllCaps = False
""1#bs{ n
.Color = wdColorAutomatic E0"10Qbi
.Engrave = False eg" =H50
.Scaling = 100 lAdDu
.Kerning = 1 $J QWfGwR
.Animation = wdAnimationNone cOSxg=~>u
.DisableCharacterSpaceGrid = False 7P<r`,~k-
.EmphasisMark = wdEmphasisMarkNone hrs#ZZ:E
End With [G{rHSK5tQ
With ActiveDocument.Styles("BaseStyle").ParagraphFormat E`Jp(gK9F
.LeftIndent = 0 bZNIxkc[Dh
.RightIndent = 0 r } /yi
.SpaceBefore = 0 <w0NPrS]
.SpaceBeforeAuto = False OUEI~b1
.SpaceAfter = 0 2;r]g T~
.SpaceAfterAuto = False ixIV=#
qwq/ Xcv
.LineSpacingRule = wdLineSpaceSingle _tWJXv~;
.Alignment = wdAlignParagraphJustify (Wd_G-da
AbUDn\0$
.WidowControl = False FI]P<)*r
.KeepWithNext = False :+~KPn>w5
.KeepTogether = False {&2$[g=[ ^
.PageBreakBefore = False {$EH@
$./
.NoLineNumber = False tcBC!
_vF
_:35d1[
.FirstLineIndent = CentimetersToPoints(0) (jU/Wj!q
.OutlineLevel = wdOutlineLevelBodyText =?/N5O(
.CharacterUnitLeftIndent = 0 1. #
|QX
.CharacterUnitRightIndent = 0 -VS 9`7k
.CharacterUnitFirstLineIndent = 0 ]2Sfkl0
.LineUnitBefore = 0 j5L )N
.LineUnitAfter = 0 M{`/f@z(
.AutoAdjustRightIndent = True Qq#Ff\|4u(
.DisableLineHeightGrid = True T-4/d5D[
q} ]'Q
-
.FarEastLineBreakControl = True L([E98fo
.WordWrap = True EY+/.=$x
.Hyphenation = False r<;l{7lY_
3@^MvoC
.HangingPunctuation = True QS3U)ZO$@
.HalfWidthPunctuationOnTopOfLine = True ;i<$7M
R.e
.AddSpaceBetweenFarEastAndAlpha = True }.0Bl&\UK
.AddSpaceBetweenFarEastAndDigit = True uYFMv=>j
.BaseLineAlignment = wdBaselineAlignBaseline .6> hD1'
End With A <4_DVd@@
ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False [Q4_WKI0T
ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll *#3*;dya]
ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese 9$Ig~W)
ActiveDocument.Styles("BaseStyle").NoProofing = False j*u XB^ 4
wL 4Z W8_
'一级标题题样式 9 YP*f
ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 3gb| x?
ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" s %eyW _
ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False duX0Mc. 0P
With ActiveDocument.Styles("QLNU一级标题").Font P!
kw;x
.NameFarEast = "黑体" aSc{Ft/O
.NameAscii = "Arial Black" 2Y 400
.NameOther = "黑体" kTnOmA w
.Name = "黑体" yiiyqL*E
.Size = 16 '三号 cVO
,~I\\
.Bold = True vB[~pQ;Z
.Italic = wdUndefined Lltc 4Mzw
.Subscript = wdUndefined
pv$mZi4i
.Superscript = wdUndefined W7H&R,
End With `AWy!}8
With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat V,V*30K5
U?gl"6x
.LeftIndent = CentimetersToPoints(0) Lj}>Xy(7<
.RightIndent = CentimetersToPoints(0) }$ o*
.FirstLineIndent = CentimetersToPoints(0) C>.e+ V+':
&!ED# gs
.LineSpacingRule = wdLineSpaceSingle L2KG0i`+
.Alignment = wdAlignParagraphCenter
mDE'<c`b4
z< z*Wz
.WidowControl = True !7}IqS s
.KeepWithNext = True /:bKqAz;M
.KeepTogether = True o4$Ott%Wm
.OutlineLevel = wdOutlineLevelBodyText c\At0.QCA
$:Rn;
.LineUnitBefore = 0.5 94\t1fE
.LineUnitAfter = 0.5 z"tjDP
End With gX[|;IZ0o
ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False pX@Si3G
`
ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll >D 97c|?c
ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese bF*NWm$Lf
ActiveDocument.Styles("QLNU一级标题").NoProofing = True g3Z:{@m
DoEvents dXmV@ Noo
{3V Z3i
'二级 ,Du@2w3Cq
ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") #Mh{<gk%ax
ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" /D]Kk m)
ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False ?a
S%
With ActiveDocument.Styles("QLNU二级标题").Font / /'Tck
.NameFarEast = "黑体" J^ `hbP+2
.NameAscii = "Arial Narrow" `>s7M.|X
.NameOther = "黑体" ?AEd(_a!q
.Name = "黑体" *myG"@P4hW
.Size = 15 '小三号 -K"4rz
.Bold = False nSS>\$
.Outline = False # kyl?E
.Italic = wdUndefined WvujcmOf
.Subscript = wdUndefined [r(Q s|
.Superscript = wdUndefined }^9]jSq5
End With #O
"
With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat 7KU~(?|:h
.LeftIndent = CentimetersToPoints(0) 9Gca6e3
.RightIndent = CentimetersToPoints(0) P''X_1oMC
.FirstLineIndent = CentimetersToPoints(0) iZ
aeoy
O` WIkBV!
.LineSpacingRule = wdLineSpaceSingle S='
wJ@?;
.Alignment = wdAlignParagraphLeft blGf !4H
#/|75
4]]
.WidowControl = True Cezh l
.KeepWithNext = True J1bA2+5.*e
.KeepTogether = True (:5G#?6,
.PageBreakBefore = False &uv0G'"\
.OutlineLevel = wdOutlineLevelBodyText ^(ScgoXva
[QT 1Ju64
.LineUnitBefore = 0.5 2R]&v;A
.LineUnitAfter = 0.5 ({4]
-_NC%iN#C
End With !22yvT.;[
ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False f;gZ|a
ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll Y2C9(Zk
U
ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese h{k_6y m
ActiveDocument.Styles("QLNU二级标题").NoProofing = True &rp!%]+xAM
DoEvents %JtbRs(~q
d6`OXTD
'三级标题样式 P"1 S$oc
ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") {Hl[C]25X
ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" .e @>
ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False #Z\ O}<
With ActiveDocument.Styles("QLNU三级标题").Font <\" .L
.NameFarEast = "宋体" ,vV ]"f
.NameAscii = "Times New Roman" A3HF,EG
.NameOther = "黑体" .-0%6]
cFD
.Name = "黑体" i(*I@ku
.Size = 14 '四号 k@V#HC{t
.Bold = False n 6{2]&sd
.Outline = False Bd@'e7 {
.Italic = wdUndefined h>alGLN>
.Subscript = wdUndefined piOXo=9H.
.Superscript = wdUndefined ZQ3_y $
End With JWROYED
With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat 6-B 9n a
.LeftIndent = CentimetersToPoints(0) {^5?)/<
.RightIndent = CentimetersToPoints(0) z>;$i m
.FirstLineIndent = CentimetersToPoints(0) q@n^
ZzTx
m
#f{]+6U
.LineSpacingRule = wdLineSpaceSingle mf fIf1f
.Alignment = wdAlignParagraphLeft ` 2 `fiKm
9I`Y-D
.WidowControl = True T$KF<
=
.KeepWithNext = True ahJ1n<
.KeepTogether = True Q/ZkW
.PageBreakBefore = False ME^ ,
'&
.OutlineLevel = wdOutlineLevelBodyText =oX>Ph+ P
n -o3
.CharacterUnitLeftIndent = 0 3$VxRz)
.CharacterUnitRightIndent = 0 ,Ol ( piR
.CharacterUnitFirstLineIndent = 2 |9 Yi7.
Gs
dnf 7
.LineUnitBefore = 0.5 QV qK
.LineUnitAfter = 0 !g>
.i`
End With *f5l=lDOB
ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False aQ#qRkI
ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll e'2Y1h
ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese 2 Vk\L~K
ActiveDocument.Styles("QLNU三级标题").NoProofing = True [3N[i(Wlk
DoEvents fQ+\;iAU
w5KPB5/zu
'四级标题样式 B@O@1?c[
ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") xY\ 0 z Q
ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" fr[3:2g-_
ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False ]"F5;p; y
With ActiveDocument.Styles("QLNU四级标题").Font u3J?bR
.NameFarEast = "宋体" "CQw/qZw
.NameAscii = "Times New Roman" k% P; w1
.NameOther = "宋体" MgJ36zM
.Name = "宋体" [mUBHYD7OI
.Size = 12 '小四号 Q6
? z_0
.Bold = True #?[.JD51l
.Outline = False ,Q/Ac{C
.Italic = wdUndefined |>2FR PK
.Subscript = wdUndefined mM/i^zT
.Superscript = wdUndefined :B|Dr
v
End With aRJcSV
With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat Fl3#D7K
LZ U$
.LeftIndent = CentimetersToPoints(0) ZDx@^P y
.RightIndent = CentimetersToPoints(0) W 0XF ~
.FirstLineIndent = CentimetersToPoints(0) X l_Uz8Hp
Kmz7c|
.LineSpacingRule = wdLineSpaceSingle ,e`'4H
.Alignment = wdAlignParagraphLeft FJNF%a)x2I
eKN$jlg
.WidowControl = True ~] 'pY
.KeepWithNext = True >u0w.3 r#
.KeepTogether = True F7MzCZvu
.PageBreakBefore = False jN
0k9O>
.OutlineLevel = wdOutlineLevelBodyText la
<npX
,F ZT~?
.CharacterUnitLeftIndent = 0 \}_Yd8
.CharacterUnitRightIndent = 0 ^j )BKD-
.CharacterUnitFirstLineIndent = 2 `zpbnxOL$T
.>pgU{C
`!
.LineUnitBefore = 0 ]"~51HQZ
.LineUnitAfter = 0 UsQ4~e 4-
~u87 H?
End With k~3. MU
ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False @kFu*"
ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll Nt:9 MG>1
ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese ,xI%A,
(,;
ActiveDocument.Styles("QLNU四级标题").NoProofing = True 7v7G[n
DoEvents HKO739&n}
gRJfX %*F
'正文校式 Y+~g\z-]c
ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") QHt4",Ij
ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" J* fBZ.NO
ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False ?BA^YF
With ActiveDocument.Styles("QLNU正文").Font PX(p X>
q<#>HjC
.NameFarEast = "宋体" =~KsS }`1,
.NameAscii = "Times New Roman" "YU{Fkl#j
.NameOther = "宋体" -e u]:4
.Name = "宋体" SC &~s$P;
&o3K%M;C?
.Size = 12 '小四号 :_kAl? eJ
C'A]i5
.Bold = wdUndefined N#C1-*[C
.Italic = wdUndefined ,`A ? !.K$
.Subscript = wdUndefined *e#<n_%R
.Superscript = wdUndefined _7T@5\b :;
QK `i%TXJ
.Outline = False j ZoNi
.Emboss = False o*g|m.SjL
.Shadow = False LjB;;&VCn
.Hidden = False B;K`q
&PWB,BXv
.DisableCharacterSpaceGrid = True ;z~n.0'
End With zTbVp8\pI
With ActiveDocument.Styles("QLNU正文").ParagraphFormat D]s]"QQ8
,Gk}"w
.LeftIndent = CentimetersToPoints(0) 6t'l(E +
.RightIndent = CentimetersToPoints(0) ,)!u)wz
.FirstLineIndent = CentimetersToPoints(0) `Y=WMNy
cbYLU\!
.LineSpacingRule = wdLineSpaceExactly qT :zEt5
.LineSpacing = 20 &w 8)* T
.Alignment = wdAlignParagraphLeft JRMM? y
ra N)8w}-
.WidowControl = False A"5z6A4WB
.KeepWithNext = False A'&n5)tb
.KeepTogether = False z*$q8Z&7rg
.PageBreakBefore = False b 6(p
.Hyphenation = False 4*.K'(S5fx
dq1:s 1
.OutlineLevel = wdOutlineLevelBodyText 3]&o*Ib1`_
{<>K]P~wD
JPn$FQD
.CharacterUnitLeftIndent = 0
qFQ 8
.CharacterUnitRightIndent = 0 WY:&ugGx
.CharacterUnitFirstLineIndent = 2 W5L iXM
6$fYt&1
.LineUnitBefore = 0 Z?Hs@ j
.LineUnitAfter = 0 4 1a. #o
.SpaceBefore = 0 m o{MR:>
)
.SpaceAfter = 0 gb=/#G0R
F}GPZ=T;
.DisableLineHeightGrid = True R9rj/C o
End With ] b9-k
ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False 2F#q
I1
ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll OS|> t./U
ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese %M|,b!eF
ActiveDocument.Styles("QLNU正文").NoProofing = True ^D`v3d
DoEvents E m
6Qe
3bZIYF2@
'图片段落样式 KOz(TZ?u
ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") r7]zQIE
ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" wa=uUM_4u^
ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False vIl+#9L0
With ActiveDocument.Styles("QLNU图片段落").Font b1XRC`Gy
.Size = 12 '小四号 #@@Mxr'F
.Italic = wdUndefined S& #U!#@
.Subscript = wdUndefined W!!S!J F
.Superscript = wdUndefined sVk$x:k1M
End With [%B f<
J<
With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat mI*[>#q>
\#-W
<
.LeftIndent = CentimetersToPoints(0) &!aAO(g
.RightIndent = CentimetersToPoints(0) 65h @}9,U
.FirstLineIndent = CentimetersToPoints(0) [[d(jV=*
+ Q=1AXe
.LineSpacingRule = wdLineSpaceSingle `U#55k9^5
.Alignment = wdAlignParagraphCenter ]
u l$*
.KeepWithNext = True # #Q/I|
.OutlineLevel = wdOutlineLevelBodyText iRg7*MQu
I1 oje0$
.CharacterUnitLeftIndent = 0 @_:]J1 jw7
.CharacterUnitRightIndent = 0 joKIrS0y
.CharacterUnitFirstLineIndent = 0 ?m$a6'2-,J
'TH15r@
.LineUnitBefore = 0 ~8"8w(CG*I
.LineUnitAfter = 0 a22Mufl
End With G7--v,R1x
ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False \I"Z2N>^z
ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll 7XKY]|S,'
ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese bl _ H4
ActiveDocument.Styles("QLNU图片段落").NoProofing = True <<=WY_m}
DoEvents "YdEE\
K7Rpr. p
D`J6h,=2l/
'第X章 ?pgG,=?
ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") {u1V|q
ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" #ET/ =
ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False Le<w R
With ActiveDocument.Styles("QLNU章节标题").Font )ZrS{vY
.NameFarEast = "黑体" 6 3`{.yZ*z
.NameAscii = "Arial Black" 3d<HN6&U
.NameOther = "Arial Black" o?1
;<gs
.Name = "黑体" SS`qJZ|w
.Size = 16 ]EwVpvTw
.Bold = True Y6 ,Rj:8
.UnderlineColor = wdColorAutomatic \AL
f$88>@
.Outline = False &E xYXI
.Italic = wdUndefined +xc'1id@[
.Subscript = wdUndefined N]KxAttt
.Superscript = wdUndefined 5JEbe
.Scaling = 100 _k8A$s<d
.DisableCharacterSpaceGrid = True yaq'Lt`
End With `n$5+a+
With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat iyj+:t/
.LineSpacingRule = wdLineSpaceSingle p.+ho~sC,.
.Alignment = wdAlignParagraphCenter pV4Whq$
.WidowControl = True it] E-^2>
.KeepWithNext = True Ig3;E+*>
.KeepTogether = True OHiQ 7#y
.PageBreakBefore = True b'6- dU%
.OutlineLevel = wdOutlineLevelBodyText d*)CT?d&
[m Eql ,x3
.LeftIndent = CentimetersToPoints(0) 3}|'0(hYL
.RightIndent = CentimetersToPoints(0) kJW N.
.FirstLineIndent = CentimetersToPoints(0) % IC73?
z1^gDjkZ
.CharacterUnitLeftIndent = 0 L?5Ck<!xG
.CharacterUnitRightIndent = 0 s"Pf+aTW
.CharacterUnitFirstLineIndent = 0 btdb%Q*
"4vy lHIo
.LineUnitBefore = 1 "#( T
.LineUnitAfter = 0.5 s
w39\urf
;<G= M2
.AutoAdjustRightIndent = False ^Y-]*8;]
.DisableLineHeightGrid = True ~QvqG{bFB
.FarEastLineBreakControl = True t mqY2.
.WordWrap = True kP/ M< X"
End With p-1 3H0Kt
ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False aK`@6F,]j
ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll gX0R)spg
ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese 8,0YD #x
ActiveDocument.Styles("QLNU章节标题").NoProofing = True cZ)}LX
DoEvents u7?$b!hG^C
}%Bl>M
'表格标题 DJgTA]$&
ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ?wnzTbJN
ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" lA>D
S #_
ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False U|g:`v7
With ActiveDocument.Styles("QLNU表格标题").Font
V& C/Z}\
.NameFarEast = "楷体" )
(y) A[
.NameAscii = "Arial" + }f9
.Name = "楷体" +cD!1IT:
.Size = 10.5 r5!/[_l
.Bold = True
F(t=!k,4\
.Underline = wdUnderlineNone s21wxu:
.Italic = wdUndefined kcb.Wz~=
.Subscript = wdUndefined _`64gS}^
.Superscript = wdUndefined NPFpq, P>
.Color = wdColorAutomatic }Tf9S<xpq3
End With 3;% 5Yu
With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat BD`2l!d
71vky n@"
.LineSpacingRule = wdLineSpaceSingle L%>n>w
.Alignment = wdAlignParagraphCenter S"Zp D.XX
.KeepWithNext = True t3dlS`O
.KeepTogether = True E ;<l(.Ar
.OutlineLevel = wdOutlineLevelBodyText 5jUYN-$GO
$Y5)(
.LeftIndent = CentimetersToPoints(0) >y Y'7Ey
.RightIndent = CentimetersToPoints(0) $.9{if#o&
.FirstLineIndent = CentimetersToPoints(0) #v<QbA
)T;?^kho
.CharacterUnitLeftIndent = 0 z{Mr$%'EY
.CharacterUnitRightIndent = 0 6252N]*
.CharacterUnitFirstLineIndent = 0 UI>Y0O
i hh/sPi
.LineUnitBefore = 1 ~I{n^ Q/a
.LineUnitAfter = 0 sZW^ !z
&ZL3{M
End With 1 Bpv"67
ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False pZtu&R%GU
ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll 5R i
6Z#qm
ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese LBF 1;zjK
ActiveDocument.Styles("QLNU表格标题").NoProofing = True hs}8xl
DoEvents kWdi59 5
n u'M
39{
'表格首行 fu90]upz~
ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") qhT@;W/X
ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False Mi]L]-L
With ActiveDocument.Styles("QLNU表格首行").Font q$aaA`E%
.NameFarEast = "楷体" 61xs%kxb..
.NameAscii = "Times New Roman" R'S0 zp6
.Name = "楷体" bQ~j=\[r
.Size = 9 -!c"k}N=
.Bold = True |=&cQRY!p
.Underline = wdUnderlineNone C+|b1/N-
.Italic = wdUndefined <!pY$
.Subscript = wdUndefined @: KJYm[
.Superscript = wdUndefined @xB*KyUW
End With B/`
!K
With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat yRo- E P
.LineSpacingRule = wdLineSpaceSingle ;A#`]-i C
.Alignment = wdAlignParagraphCenter E*jP8 7g
^5=B`aich
.LeftIndent = CentimetersToPoints(0) JwJ7=P=c
.RightIndent = CentimetersToPoints(0) 44- R!
.FirstLineIndent = CentimetersToPoints(0) To ?W?s
7EXI6jGJ|
3> Y 6)
.CharacterUnitLeftIndent = -0.5 AE} )o)B
.CharacterUnitRightIndent = -0.5 o tk} y8
.CharacterUnitFirstLineIndent = -0.5 CZ nOui
EY \H=@A
.LineUnitBefore = 0 sP ls
zC[
.LineUnitAfter = 0 cK 06]-Y
.SpaceBefore = 0 -YsLd 9^4
.SpaceAfter = 0 n_'s=] ~
ATR! 7i\|
End With NMA}Q$o
s
ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False ij?
ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll +zy=50,
ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese /PLn+ -
ActiveDocument.Styles("QLNU表格首行").NoProofing = True PG,_^QGCX
DoEvents F$[ U|%*
(&!NC[n,
'表格内容 W^G>cC8.L
ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") rD*sl}
ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False |jM4E$
With ActiveDocument.Styles("QLNU表格内容").Font >Jp:O
7
.NameFarEast = "楷体" =9
j8cC 5y
.NameAscii = "Times New Roman" L(U"U#
QZ
.Name = "楷体" e @IA20
.Size = 9 ;& A SkI
.Bold = False /Ml.}7&
.Underline = wdUnderlineNone :H c0b=
.Italic = wdUndefined B9wPU1
.Subscript = wdUndefined w+N> h;j
.Superscript = wdUndefined Cx fRV L`7
End With 3"O>&Q0c
With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat c
9jGq
.LineSpacingRule = wdLineSpaceSingle Aj0Tfdxy
.Alignment = wdAlignParagraphCenter z@w Mc
EH
Q9Q|lO
.LeftIndent = CentimetersToPoints(0) mQY_`&Jq
.RightIndent = CentimetersToPoints(0) f4BnX(1u
.FirstLineIndent = CentimetersToPoints(0) $jg *pmR-
VqS#waNrx
.CharacterUnitLeftIndent = -0.5 'D @-
.CharacterUnitRightIndent = -0.5 AZmb!}m+d
.CharacterUnitFirstLineIndent = -0.5 FXs*vg`
.LineUnitBefore = 0 9D4NX<_
.LineUnitAfter = 0 9k sE>[7
.SpaceBefore = 0 hiUD]5K p
.SpaceAfter = 0 ' {(UW.Awo
End With yR4|S2D3xn
ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False qM.bF&&Go
ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll ;6!Pwb;hY
ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese EI^06q4x
ActiveDocument.Styles("QLNU表格首行").NoProofing = True v{A
KEX*
DoEvents :hM/f
H=\3Jj (4
'图片标题 .j-IX1Sa
ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") Ud!4"<C_
ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" }X=[WCK U
ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False =MvjLh" s
With ActiveDocument.Styles("QLNU图片标题").Font ` P9XqWr
.NameFarEast = "楷体" Pcw6!xH
.NameAscii = "Times New Roman" U{VCZ*0cj
.Name = "楷体" +-G<c6 |
.Size = 10.5 (<)]sp2
.Bold = True #es9d3 ~\
.Underline = wdUnderlineNone -e8}Pm
"
.Italic = wdUndefined xe*aC
.Subscript = wdUndefined F}=aBV|-
.Superscript = wdUndefined /"B?1?qc,=
.Outline = False A]DTUdL
.Shadow = False l \s U
.Color = wdColorAutomatic ndeebXw*
End With HvVts\f
With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat 4 M( -xl?
.LineSpacingRule = wdLineSpaceSingle 39=1f
6I1
.Alignment = wdAlignParagraphCenter Lliq
j1&
;f"0~D2
.KeepWithNext = wdUndefined =dFv/F/RW
.KeepTogether = True $ >EYhLBa
.OutlineLevel = wdOutlineLevelBodyText [3@):8
X@f "-\
.LeftIndent = CentimetersToPoints(0) l~ M_S<4n
.RightIndent = CentimetersToPoints(0) !U5Wr+8 3
.FirstLineIndent = CentimetersToPoints(0) vPD] hs
CXC`sP
Y
.CharacterUnitLeftIndent = 0 T, VY.ep/
.CharacterUnitRightIndent = 0 rs ~wv('
.CharacterUnitFirstLineIndent = 0 8)4P Ll
)4&c ph';
.LineUnitBefore = 0 g]c 6& Y,#
.LineUnitAfter = 0 zF`c8Tsx])
End With oIefw:FE,a
ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False ]GRWnif
ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll rp0ZvEX
ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese Y_QH&GZ
ActiveDocument.Styles("QLNU图片标题").NoProofing = True d ,=r 9.
DoEvents 4!LCR}
K
d.P\fPSD
'目录项 y>aZXa
ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") Rb{U+/gq
ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" zA1lca0HK
ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False c.j$9=XLBG
With ActiveDocument.Styles("QLNU目录项").Font Mz L1 Bh!M
.NameFarEast = "黑体" nI*v820,
.NameAscii = "Times New Roman" D)d~3`=#
.NameOther = "Times New Roman" 'CN|'W)g7
.Name = "黑体" 'UYR5Y>
.Size = 10.5 WAS U0
.Bold = False =|YxDas
.Italic = wdUndefined Oj^,m .R
.Underline = wdUnderlineNone +9") KQT
.Color = wdColorAutomatic ^6_Cc
.Superscript = wdUndefined r3\cp0P;s
.Subscript = wdUndefined VL*ovD%-
End With PZ*pQ=`
With ActiveDocument.Styles("QLNU目录项").ParagraphFormat |P%D kM*X
!Uq^ 7 Mw
.LineSpacingRule = wdLineSpaceSingle Mv6 -|O
.Alignment = wdAlignParagraphLeft z5r$M
TEaJG9RU>v
.WidowControl = False $t6e2=7
.KeepWithNext = False y
8rm
.KeepTogether = False iySRY^
.PageBreakBefore = False 8f3vj
K'
.NoLineNumber = False ?G -e](]^<
.OutlineLevel = wdOutlineLevelBodyText YxP@!U9dE,
UNkC L4N
.LeftIndent = CentimetersToPoints(0) sUU{fNC6|
.RightIndent = CentimetersToPoints(0) `YI f_a{
.FirstLineIndent = CentimetersToPoints(0) \xS&v7b
ruazOmnn~
.CharacterUnitLeftIndent = 0 48*Do}l]
.CharacterUnitRightIndent = 0 %y%j*B!%
.CharacterUnitFirstLineIndent = 0 FG) $y[*
o!!y d8~*r
.LineUnitBefore = 0 {1b Zg
.LineUnitAfter = 0
oD$J0{K6
End With pb=c B Z$
ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False rhb@FE)Mc
ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll ,Y>Bex_v
ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot 4'LB7}WG
ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese U~ck!\0&T
ActiveDocument.Styles("QLNU目录项").NoProofing = True )-`;1ca)s
DoEvents 7Ddaf>
HdPo O;
'参考文献 yn/rW$
ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") H
`(exa:w
ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" lj?v4$
ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False ^) W[l!!<)
With ActiveDocument.Styles("QLNU参考文献").Font gR}35:$Z-
.NameFarEast = "宋体"
:.4 5u}[
.NameAscii = "Times New Roman" B!\ ;/Vk
.NameOther = "Times New Roman" }eRD|1
.Name = "Times New Roman" _`pD`7:aI^
.Size = 12 T9879[ZU\
.Bold = False w18y}mS"H
.Italic = wdUndefined I;1lX
L
.Subscript = wdUndefined f`&dQ,;
.Superscript = wdUndefined A21N|$[
.Underline = wdUnderlineNone d:i;z9b@to
.UnderlineColor = wdColorAutomatic R]i 7 $}n
.Color = wdColorAutomatic <E0UK^-}
.Engrave = False [/ BE8]M ~
End With 'GL*u#h
With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat 1 %,a =,v
Z" uY}P3
.LineSpacingRule = wdLineSpaceExactly tx PIG
/
.LineSpacing = 16 MC {
2 X
.Alignment = wdAlignParagraphLeft $VxA0
=ad
.WidowControl = False oun
;rMq
.KeepWithNext = False Rh>}rGvCUN
.KeepTogether = False ?:L:EW8
.PageBreakBefore = False UF@XK">
.OutlineLevel = wdOutlineLevelBodyText V@\%)J'g
U\sHx68
.LeftIndent = CentimetersToPoints(0) W[^qa5W<FB
.RightIndent = CentimetersToPoints(0) -%I2[)F<
.FirstLineIndent = CentimetersToPoints(0) }ga@ />Sl&
{U_$&f9s
.CharacterUnitLeftIndent = 0 Y]3>7 q%
.CharacterUnitRightIndent = 0 w#g#8o >'
.CharacterUnitFirstLineIndent = -2 {4-[r#R<M
X 51Yfr
.LineUnitBefore = 0 @, W vvh
.LineUnitAfter = 0 ($~RoQ=0S
.SpaceBefore = 0 T0]*{k(FR
.SpaceAfter = 0 zD?K>I =
{je -I9%OK
End With HX
6Ma{vBk
ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False NZ3/5%We/
ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll 56Vb+0
J'
ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS eEn; !RS)
ActiveDocument.Styles("QLNU参考文献").NoProofing = True u SR~@Lj ~
ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese 4NdN< #Lr
DoEvents p+Y>F\r&w
5T: i9h
' wW p(yvz
ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") bHI<B)=`
ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" X Z5 /=z
ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False +|ycvHd
With ActiveDocument.Styles("QLNU论文题目").Font wX*K]VMn
.NameFarEast = "黑体" e dK|NOOZ
.NameAscii = "Arial Black" MXyaE~ LK
.NameOther = "Arial Black" Q
pmsOp|
.Name = "Arial Black" }@^4,FKJ
.Size = 16 e A}%C.ZR
.Bold = False Q"7Gy<
.Italic = wdUndefined <$h u
.Superscript = wdUndefined ?Sb8@S&J
.Subscript = wdUndefined 4DOK4{4?5
.Underline = wdUnderlineNone ? mhs$g>
.UnderlineColor = wdColorAutomatic zH*KYB
.Color = wdColorAutomatic tu5*Qp\
fks)+L '
End With m{7(PHpw
With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat EKz Ad
.LineSpacingRule = wdLineSpaceSingle vC5n[0
.Alignment = wdAlignParagraphCenter \~5C7^_
.WidowControl = True 5A4&+rdU
.KeepWithNext = True jH6&q~#
.KeepTogether = True Y9`5G%
.PageBreakBefore = True +EAT:,
.NoLineNumber = False
$/7pYl\n
.OutlineLevel = wdOutlineLevelBodyText XyOl:>%L!P
<3j"&i]Tm*
.LeftIndent = CentimetersToPoints(0) ku..a G`
.RightIndent = CentimetersToPoints(0) V3ndV-uQE
.FirstLineIndent = CentimetersToPoints(0) ;-Jb1"5
wG ZR31
.CharacterUnitLeftIndent = 0 V
14B[|YM<
.CharacterUnitRightIndent = 0 "$}vP<SM
.CharacterUnitFirstLineIndent = 0 "hy.GWF|*
>|Cw\^
.LineUnitBefore = 1
qBT. x,$
.LineUnitAfter = 1 STJJU]H
y Z WoN&
.BaseLineAlignment = wdBaselineAlignAuto >X51$ wBL
End With
f u9Cx
ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False WsD M{1c
ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll MW+b;0U`#
ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS Vy|6E#U
ActiveDocument.Styles("QLNU论文题目").NoProofing = True x rN
&N_K#
ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese OGY"<YH6
ActiveDocument.Styles("QLNU论文题目").NoProofing = True ''kS*3
DoEvents
%~QO8q_7
A=j0On
'中文摘要 7YAIA%8
ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") |qoKO:B4-[
ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" s-S }i{Z!
ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False "hQ_sgz[Z
With ActiveDocument.Styles("QLNU中文摘要").Font R d>B0;4
.NameFarEast = "宋体" ai0Ut
.NameAscii = "Times New Roman" yA3wtm/?
.NameOther = "Times New Roman" 2r 6'O6v
.Name = "Times New Roman" kMsnW}Nu
.Size = 12 DU=dLE6-P;
.Bold = wdUndefined hbc uK&
.Superscript = wdUndefined 2m~V{mUT!
.Subscript = wdUndefined E!O\87[
.Italic = wdUndefined h/ ,${,}J
.Underline = wdUnderlineNone yu;SH[{Wi
.UnderlineColor = wdColorAutomatic >G 'SbQ8
.Color = wdColorAutomatic LE%7DW (
End With W.w)
H@]7m
With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat Q(o!iI:Gts
.LineSpacingRule = wdLineSpaceExactly W'on$mB5<
.LineSpacing = 20 U`]T~9I
.Alignment = wdAlignParagraphLeft ,p9i% i
Kb^>-[Yx
.WidowControl = False A%2:E^k(s
.KeepWithNext = False E{2Eoj;gq
.KeepTogether = True 2>l,no39t+
.PageBreakBefore = False ?}B:
.NoLineNumber = False "rAY.E]
.OutlineLevel = wdOutlineLevelBodyText \t|M-%&)4
%xQ.7~
.LeftIndent = CentimetersToPoints(0) VG>vn`x>a
.RightIndent = CentimetersToPoints(0) NxLXm,
.FirstLineIndent = CentimetersToPoints(0) oQL59XOT4
?r2 #.
W
.CharacterUnitLeftIndent = 0 X@|&c]]
.CharacterUnitRightIndent = 0 >g;kJe
.CharacterUnitFirstLineIndent = 2 *;XWLd#
.LineUnitBefore = 0 GAc{l=vT'
.LineUnitAfter = 0 n\ Hs@.
$:of=WTY(
End With > MH(0+B*
ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False MJ\ eh>v&
ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll A?*o0I
ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS $.:mai
ActiveDocument.Styles("QLNU中文摘要").NoProofing = True ZY56\qcY
ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese v-! u\
ActiveDocument.Styles("QLNU中文摘要").NoProofing = True X.TI>90{
ActiveDocument.Styles("QLNU中文摘要").Frame.Delete Zx$ol;Yd
DoEvents =-o'gL
-`Y :~q1
ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") EbZdas!l
ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" &k8vWXMGk%
ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False wI5Yn
h
With ActiveDocument.Styles("QLNU英文标题").Font 3 or\:
.NameFarEast = "黑体" A4QcQ"
.NameAscii = "Arial Narrow" |~
_'V "
.Name = "Arial Narrow" &ciN@nJ|$z
.Size = 16 Ei2%DMN7)
.Bold = True 9V.u-^o&
.Bold = wdUndefined 8/"fWm/
.Superscript = wdUndefined JO'>oFv_W
.Subscript = wdUndefined u(!&:A9JFd
.Italic = wdUndefined Vj!rT
<@
A$WZF/x
.Underline = wdUnderlineNone @WKzX 41'
.UnderlineColor = wdColorAutomatic BQ jK8c<
.StrikeThrough = False Hp|}~xjn
.DoubleStrikeThrough = False [0UGuj
End With Cbs5dn(Y
With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat Pe2w sR"_U
.LineSpacingRule = wdLineSpaceSingle J4Y Bq p
.Alignment = wdAlignParagraphCenter
Cb:gH}j
.WidowControl = True ( 7DXRcr<
.KeepWithNext = False 178Mb\8
.KeepTogether = False !7d*v 3)d
.PageBreakBefore = False -<#!DjV6(
.NoLineNumber = False /(8a~f&%r
.FirstLineIndent = CentimetersToPoints(0) Ap$y%6
.OutlineLevel = wdOutlineLevelBodyText =KT7n l
Y+qQI MZ
.LeftIndent = CentimetersToPoints(0) UgN28YrW
.RightIndent = CentimetersToPoints(0) .6~`Ubr}E
.FirstLineIndent = CentimetersToPoints(0) x^ *1gv $o
OD=!&LM
.CharacterUnitLeftIndent = 0 1w"8~Z:UXV
.CharacterUnitRightIndent = 0 DK m Z
.CharacterUnitFirstLineIndent = 0 _U{&@}3
R3X{:1{j
.LineUnitBefore = 1 Y[SU&LM
.LineUnitAfter = 1 ,Os? f:Y6
fKtV '/X;Q
End With W~Z<1[
ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False p*l$Wj
ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll HWm#t./
ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS <*EZ@XoN>
ActiveDocument.Styles("QLNU英文标题").NoProofing = True {5|("0[F
ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese 4"= Vq5
ActiveDocument.Styles("QLNU英文标题").NoProofing = True b|5w]<?'
ActiveDocument.Styles("QLNU英文标题").Frame.Delete /1`cRyS
DoEvents U,Mx@KdV
|7@O( $ b
ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") rbZ[ !LA
ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" 0ji
q-3V)
ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False ejXMKPE;
With ActiveDocument.Styles("QLNU英文摘要").Font $Q+s
/4\
.NameFarEast = "宋体" aTzDe w
.NameAscii = "Arial" -]:G L>b
.NameOther = "Arial" gLsU:aeC T
.Name = "Arial" x#C@8Bxq=
.Size = 12 Q 7 bq
.Bold = wdUndefined KL' z
XkS
.Italic = wdUndefined HvxJj+X9
.Superscript = wdUndefined ]h9!ei
[
.Subscript = wdUndefined g-vg6@6
End With X _$a,"'~)
C}5M;|%3)
With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat
eb|i 3.
~ np,_yI
.LineSpacingRule = wdLineSpaceExactly w-$[>R[hw
.LineSpacing = 20 a8AYcE b
=I
KEb#R/
.Alignment = wdAlignParagraphJustify u
z\0cX_
B ZMu[M
.WidowControl = False Pj?Dmk~
.KeepWithNext = False (.3'=n|kE
.KeepTogether = False y]e> E
.PageBreakBefore = False gf)
t)- E
.NoLineNumber = False 4ujvD ^
M|i o4+sy
.OutlineLevel = wdOutlineLevelBodyText jKIc09H|
MP>n)!R[`
.LeftIndent = CentimetersToPoints(0) y }08~L?2
.RightIndent = CentimetersToPoints(0) l?*r5[O>n
.FirstLineIndent = CentimetersToPoints(0) @ uH#qg7
tD$lNh^
.CharacterUnitLeftIndent = 0 W9zE{)Sc~
.CharacterUnitRightIndent = 0 Fd \ e*ww'
.CharacterUnitFirstLineIndent = 2 c6Q(Ygc
MK}-<
&v
.LineUnitBefore = 0 OJb*VtZz5R
.LineUnitAfter = 1 kVS?RHR
+{53a_q
End With (5$ZvXx?}
ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False s0hBbL0DH
ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll 5f:DN\ ]
ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS VzlDHpG
ActiveDocument.Styles("QLNU英文摘要").NoProofing = False Tx%VU8\?n
DoEvents OV k ~ N)
+' oX
Options.Pagination = True V
ga -@
Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." M* pRv
DoEvents 7
L:7/
ActiveDocument.Repaginate :1 )DqoAJ
R \s!*)
End Sub +[ . Yy
[t0rfl{.
`3q;~ 9
