Dim bContinue As Boolean <AXYqH7%A
[IW7]Fv<F
Dim regEX As New RegExp @ uWD>(D
Dim paraCounter As Long '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 ZuON@ (
p_N=V. w
Dim LastTitle0String As String, LastTitle0No As Long 7E] l=Z`x
Dim LastTitle1String As String, LastTitle1No As Long 0
N^V&k
Dim LastTitle2String As String, LastTitle2No As Long sVf7g?
Dim LastTitle3String As String, LastTitle3No As Long X> KsbOZ
Dim LastTitle4String As String, LastTitle4No As Long L
3Iz]D3s
Dim LastTitle5String As String, LastTitle5No As Long e6/} M3B
Dim LastTabelString As String, LastTableNo As Long ucO]&'hu:
Dim LastFigureString As String, LastFigureNo As Long CF4y$aC#
m) 2U-3*iX
Dim strSeperator As String b?^<';,5
MYm6C;o$
Sub ConvertWidth(fTEXT As String, rText As String) ?q6eV~P
Selection.Find.ClearFormatting vdM\scO:
Selection.Find.Replacement.ClearFormatting 8BdeqgU/_
Selection.Find.Wrap = wdFindContinue *]k"H`JoFC
Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText DA\O,^49h
DoEvents Y`Rf E
Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True Fs~-exY1
End Sub >l[N]CQ
>.A:6
Sub ClearDomain() n[7zK'%Dxg
With Selection.Find d":{a6D*d
.ClearFormatting ;bbEd'
.Replacement.ClearFormatting Mqy`j9FbL
.Wrap = wdFindContinue *GMRu,u2
Me.txtStatus.Text = "清除所有域代码" m]vr|:{6/
DoEvents !r, d rb
.Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False a+N d%hoe
End With )HHzvGsL)
End Sub my0->W%L
"*WXr$
Private Sub cmdCheck_Click() :@L5=2Z+
bContinue = True <;K/Yv'{r
Dim NoSeries1(1 To 16) As String n(MEG'9}
Dim NoSeries2(1 To 16) As String
]YKWa"
Dim NoSeries5(1 To 16) As String 8t"DQ Y-R
Dim NoSeriesRM(1 To 16) As String y2>] gX5
Dim paraTotal As Long, ParaText As String h Nwb.[
Dim ttString As String, ttNo As String D[ ?|\?
vUNE! j
Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long O*7~t17
W>49, A ,q
Me.txtStatus.Visible = True 2HNS|GHb&
Me.lbParaType.Visible = True C $; ~=
Me.cmdCheck.Enabled = False :z oX
Xo
{,-# ;A*yW
1gr jK.x
Plv + mb
wm4e:&
Dim ParaType As String, rText As String /+7L`KPD
; U4X
U
Selection.WholeStory ^6 n]@
4P
Selection.NoProofing = True U9s y]7
M>j)6?n`_
tm1 = Now :-8u*5QK]`
bL%)k61G_v
ActiveWindow.View.Type = wdNormalView r~t7Z+PXF
}2
{#=Elh
NoSeries1(1) = "一" `V bG%y&I
NoSeries1(2) = "二" )$i3j
1[;
NoSeries1(3) = "三" _Fjv.VQ,
NoSeries1(4) = "四" `z.#O\@o
NoSeries1(5) = "五" lX7^LB
NoSeries1(6) = "六" Q. yoxq
NoSeries1(7) = "七" ^m9cEl^:nQ
NoSeries1(8) = "八" :'=C/AL
NoSeries1(9) = "九" AJ}Q,E
NoSeries1(10) = "十" F'!}$
oT"
NoSeries1(11) = "十一" }mK_d9d x
NoSeries1(12) = "十二" "/=x u |
NoSeries1(13) = "十三" V _ ,*
NoSeries1(14) = "十四" o%iTYR :x
NoSeries1(15) = "十五" K} @:>;* 9
NoSeries1(16) = "十六" b"V-!.02
PGDlSB^ O
NoSeries2(1) = "㈠" l +,rc*-j0
NoSeries2(2) = "㈡" .BvV[`P
NoSeries2(3) = "㈢" b/`' ?|
C
NoSeries2(4) = "㈣" h:wD
&Fh8
NoSeries2(5) = "㈤" :|TBsd|/x
NoSeries2(6) = "㈥" I1jF`xQ&0
NoSeries2(7) = "㈦" )*B.y|b #
NoSeries2(8) = "㈧" a{=~#u 8
NoSeries2(9) = "㈨" bx > D
NoSeries2(10) = "㈩" #wfR$Cd
^S @b*
NoSeries5(1) = "①" zrM|8Cu
NoSeries5(1) = "②" d 0d2QRX
NoSeries5(3) = "③" ,#{aAx|]
NoSeries5(4) = "④" I`l< }M
NoSeries5(5) = "⑤" NgKNT}JDv
NoSeries5(6) = "⑥" & iivSc;#
NoSeries5(7) = "⑦" dX* PR3I-3
NoSeries5(8) = "⑧" ho. a93
NoSeries5(9) = "⑨" sj~'.Zs%
NoSeries5(10) = "⑩" :gn!3P}p?
M9nYt~vHX
r+2dBp3
NoSeriesRM(1) = "I" '
u~use"
NoSeriesRM(2) = "II" jLg4_N1SD
NoSeriesRM(3) = "III" .u&g2Y
NoSeriesRM(4) = "IV" 5Ml}m
NoSeriesRM(5) = "V"
W:G *t4i
NoSeriesRM(6) = "VI" P?
n`n!
qZ
NoSeriesRM(7) = "VII" #Bjnz$KB
NoSeriesRM(8) = "VIII" -q27N^A0
NoSeriesRM(9) = "IX" (H7q [UG|
NoSeriesRM(10) = "X" Y`v&YcX;
NoSeriesRM(11) = "XI" [LK
9^/V
NoSeriesRM(12) = "XII" 5Z'pMkn3
NoSeriesRM(13) = "XIII" 191)JWfa
NoSeriesRM(14) = "XIV" j<u`W|vl
NoSeriesRM(15) = "XV" |{(ynZ]R
NoSeriesRM(16) = "XVI" TaH9Nu
GzX@Av$
i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) ,==lgM2V>
~?FKww|_*J
If i = vbNo Then lK0coj1+
Exit Sub qm GB~N|N
End If FqySnr JQ
2_p/1Rs
If Me.chkSuper.Value Then (msJ:SG
Me.txtStatus.Text = "检查修改所有的上标格式" e BPMT
@NZ?D0"
CheckSuperScript ZZUCwczI
A'T! og|5
End If Vl
H9ap
"cZ.86gG`:
If Me.chkStyle.Value Then QQcJUOxT9
Me.txtStatus.Text = "设置样式，请稍候...." pmZr<xs
DoEvents <v?-$3YT
CeateOrModifyStyle mb/Y
End If \BA_PyS?W+
O \?ei+(H7
9Z whC s O
G9jtL$}E<
ClearDomain LdcP0G\"VG
&f$jpIyV X
q%l<Hw6{z
/$E1!9J
If Me.chkLIST.Value Then HDYoM
Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" />$kDe
ev`p!p
ConvertListToOrdinary @U,cj>K
End If G|V ^C_:
YAD9'h]d\
\%#jT GFs~
Dim pType As String, trimpTEXT As String wp$=lU{B
If Me.chkNum.Value = True Then |
=&r)
~
Me.txtStatus.Text = "转换全角数字形式为半角" U}NNb GQj
ConvertWidth "１", "1" c`Tg xMu
DoEvents
}0I ! n@
ConvertWidth "２", "2" 1-`8v[S
DoEvents };|'8'5
ConvertWidth "３", "3" LYT0 XB)A
DoEvents D*b>
l_
ConvertWidth "４", "4"
"dIoIW
DoEvents -H{{
ConvertWidth "５", "5" iVA_a 8}
DoEvents / wEr>[8S
ConvertWidth "６", "6" 1mf_1 spB
DoEvents JP#m} W
ConvertWidth "７", "7" 9E+^FZ e
DoEvents &A>J> b
ConvertWidth "８", "8" ,+X Q!y%
DoEvents HRk+2'wjAz
ConvertWidth "９", "9" 1cPi>?R:
DoEvents XS>4efCJ
ConvertWidth "０", "0" % tpjy,
DoEvents |e!Sm{#!
ConvertWidth "ａ", "a" ?U&onGy
DoEvents =6>mlI>i
ConvertWidth "ｂ", "b" bR.T94-8y
DoEvents |oX l+&u
ConvertWidth "ｃ", "c" vg<_U&N=-r
DoEvents |yS4um(w
ConvertWidth "ｄ", "d" <=p" c k@
DoEvents u
VB&D E
ConvertWidth "ｅ", "e" 0@2%pIq\
DoEvents w!Z3EA ;`
ConvertWidth "ｆ", "f" Q-AN~k8+)[
DoEvents _:T\[sz5
ConvertWidth "ｇ", "g" f?)qZPM
DoEvents K-K+%U
ConvertWidth "ｈ", "h" C)`/Q( ^
DoEvents -k'=s{iy
ConvertWidth "ｉ", "i" 6_X
Teu
DoEvents : E.mU{
ConvertWidth "ｊ", "j" ZC05^
DoEvents ~*&_zPTN
ConvertWidth "ｋ", "k" b8O:@j2
DoEvents }a8N!g
ConvertWidth "ｌ", "l" Gz`Zp "i%0
DoEvents 3N?uY2
ConvertWidth "ｍ", "m" MYu -[Hg
DoEvents 3=` UX
ConvertWidth "ｎ", "n" ^#;2 Pd>
ConvertWidth "ｏ", "o" cOIshT1
ConvertWidth "ｐ", "p" Te;`-E L
ConvertWidth "ｑ", "q" $uboOfS83G
ConvertWidth "ｒ", "r" tP`,Egf"g
ConvertWidth "ｓ", "s" ! @|" 84
ConvertWidth "ｔ", "t" K@+&5\y]
ConvertWidth "ｕ", "u" [<6ez;2
q'
ConvertWidth "ｖ", "v" I6\ l 6 o
ConvertWidth "ｗ", "w" V;9.7v
ConvertWidth "ｘ", "x" " @.hz@>
ConvertWidth "ｙ", "y" s3 o K[:/
ConvertWidth "ｚ", "z" uV{cvq$jy
ConvertWidth "Ａ", "A" i9$
-l k
ConvertWidth "Ｂ", "B" :Z,zWk1|
ConvertWidth "Ｃ", "C" pX"f "
ConvertWidth "Ｄ", "D" yYF%U7N/n
ConvertWidth "Ｅ", "E" 21W>}I"0?
ConvertWidth "Ｆ", "F" R9k
Z #
ConvertWidth "Ｇ", "G" /:l>yKI+~
ConvertWidth "Ｈ", "H" )%P!<|s:5
ConvertWidth "Ｉ", "I" fi`*r\
ConvertWidth "Ｊ", "J" ?bY'J6n.
ConvertWidth "Ｋ", "K" &!_ >J0
ConvertWidth "Ｌ", "L" *&!&Y*Jzg
ConvertWidth "Ｍ", "M" 64Q{Yu
I
ConvertWidth "Ｎ", "N" _
HGbR/
ConvertWidth "Ｏ", "O" U",kAQY
ConvertWidth "Ｐ", "P"
K-#v5_*
ConvertWidth "Ｑ", "Q" dQTJC
%]O
ConvertWidth "Ｒ", "R" o[aRG7C
ConvertWidth "Ｓ", "S" aR+vY1d"
ConvertWidth "Ｔ", "T" S9-
FKjU
ConvertWidth "Ｕ", "U" ZxY%x/K
ConvertWidth "Ｖ", "V" p%8y!^g
ConvertWidth "Ｗ", "W" pFhznH{0
ConvertWidth "Ｘ", "X" XXvM*"3D5
ConvertWidth "Ｙ", "Y" *IfLoKS'
ConvertWidth "Ｚ", "Z" g\GuH?|
ConvertWidth "^l", "^p" 7iT#dpF/A
ConvertWidth "（", "(" kk&
([ xqU
ConvertWidth "）", ")" 4; y*y tY*
9/`T]s"
End If SK#; /fav6
@} qMI
With ActiveDocument 'jqkDPn
Dim tbl As Table qo/`9%^E?
For Each tbl In .Tables <t\!g
tbl.Rows.Alignment = wdAlignRowCenter ZE#A?5lb
tbl.Range.Font.NameFarEast = "楷体" kec t)=T(
tbl.Range.Font.NameAscii = "Times New Roman" Nn>Oq+:
tbl.Range.Font.Size = 10.5 vT)FLhH6*
Next l 'm!e '7_
Set tbl = Nothing WQK ~;GV-
End With 0.qnbDw_
J.35Ad1hM
Xnpw'<~X
With ActiveDocument v:|_!+g:
K8daSvc
For i = 1 To .TablesOfContents.Count 22(7rUkI
.TablesOfContents(i).Delete PS**d$ S
Next 6;Wn s'
s:
pmB\
CN+[|Mz*p
a/ ^ojn
paraTotal = .Paragraphs.Count M:rE^El
paraCounter = 1 |L,_QXA2
%xPJJ
$P
LastTitle0No = 0 .7_<0&kW
LastTitle1No = 0 67?O} ~jbG
LastTitle2No = 0
L3pNna
LastTitle3No = 0 SN' j?-
LastTitle4No = 0 lXjh T
LastTableNo = 0 /'O?
8X<
LastFigureNo = 0 LB$#]
Z
7a\at)q/y
Dim Sec As Long !E#FzY!}Pl
c<fl6o)
Sec = InputBox("正文从第一节开始？", "节设置", 6) @T)kqT
If Sec = 0 Then Ia
%>
c
Exit Sub B _k+Oa2!
End If LR%]4$ /M
C/_Z9LL?F
k = 0 bdbTK8-
Do While (paraCounter < paraTotal) And bContinue !5 9u z4
k = k + 1 wF[%+n (*
If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then =*>ri
Exit Do ?$J#jhR?
End If e#Bx lC
paraCounter = paraCounter + 1 5bBY[qp
If k Mod 20 = 0 Then [3o^06V8j
Me.lbCounter.Caption = paraCounter K !g!tA$
DoEvents 5 L!EqB>m;
End If 0w<vc}
{t
Loop zsOOx%
+
h&}z@
6 b-'Hu i+
Do While (paraCounter < paraTotal) And bContinue n%X5TJE
T uG%oV}
ParaText = Trim(.Paragraphs(paraCounter).Range.Text) N z 1u:D]
ShapeHeight = 0 WCRGqSr4
ShapeWidth = 0 >{R+j4%
Qa>t$`o`
CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth ~+
[T{{
UXgeL2`;
Select Case ParaType &!N9.e:-]
Case "【】表格内容" > sGIpER7
.Paragraphs(paraCounter).Style = "QLNU表格内容" RA^6c![
Case "章" m?GBvL$
LastTitle0No = LastTitle0No + 1 | q!O ~<H@
'新一章开始，复位其下属标题编号 3e,"B
S)+
LastTitle1No = 0 OXDE U.
LastTitle2No = 0 l d
LastTitle3No = 0 29z$z$ l4
LastTitle4No = 0 Bre:_>*
hX4 V}kj
k = Val(ttNo) <aSjK#
If k = 0 Then '非数字编号章节 7!F<Uf,V3
If ttNo <> NoSeries1(LastTitle0No) Then \3q Z0
rText = "第" & NoSeries1(LastTitle0No) & ttString t[}&*2"$/
Me.ErrMsg.AddItem "章节编号错误：" & ParaText r"YOA@
End If (}*1 ,N!#
Else p.)IdbC`B
If Val(ttNo) <> LastTitle0No Then 4f SG c8
rText = "第" & LastTitle0No & ttString ]?c9;U
Me.ErrMsg.AddItem "章节编号错误：" & ParaText [SJ3FZ<
End If ZW>iq M^9
E/Of
kL*\
End If o&-D[|E|
8GlRO 4yd
'章段落设置 zpgRK4p,I"
'字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 7fE U5@
.Paragraphs(paraCounter).Style = "QLNU章节" r| av|7 R
.Paragraphs(paraCounter).Range.Select .:r
l<.
Selection.EndKey unit:=wdLine GB SuTu8
tc = Replace(rText, vbCr, "") `?=Y^+*!-
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False n~_;tO
Case "一级标题" yVfF
* nG
LastTitle1No = LastTitle1No + 1 ]Ub"NLYV
'新一级标题开始，复位其下属标题编号 $/J4?Wik
LastTitle2No = 0 \&BT#8ELG
LastTitle3No = 0 T$!Pkdh
LastTitle4No = 0 ^J~5k,7jX
o3C GG
If ttNo <> NoSeries1(LastTitle1No) Then V10JExsJ
rText = NoSeries1(LastTitle1No) & "、" & ttString \uG^w(*)
Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText Y+)qb);
End If SR>(GQ,m0;
T\v~"pMu*0
L
N S O]\
'一级标题段落设置 格式：一、标题内容 ?LSwJ
@#
.Paragraphs(paraCounter).Range.Text = rText ({$>o] <h
.Paragraphs(paraCounter).Style = "QLNU一级标题" hik.c 3
.Paragraphs(paraCounter).Range.Select MMU>55+-
Selection.EndKey unit:=wdLine _ kEU=)Xe
tc = Replace(rText, vbCr, "") 6v?tZ&,
G
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False \$
+#7( K
Case "二级标题" d C>
[[_
LastTitle2No = LastTitle2No + 1 ,7 6Q *p
'新二级标题开始，复位其下属标题编号 z#HNJAQ#|
LastTitle3No = 0 f D3>g{
LastTitle4No = 0 %1\~OnT
adY ,Nz
If ttNo <> NoSeries1(LastTitle2No) Then U5:5$T,C
rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString tZ>'tE
ErrMsg.AddItem "二级标题编号错误：" & ParaText P1_6:USBM
End If bUU \b c
{ iXQUj
'二级标题段落设置 格式：(一)、标题内容 M.qE$
.Paragraphs(paraCounter).Range.Text = rText T deHs{|
.Paragraphs(paraCounter).Style = "QLNU二级标题" T3bYj|rh=
GahIR9_2
.Paragraphs(paraCounter).Range.Select z?<X x?Kk
Selection.EndKey unit:=wdLine _J&IL!S2
tc = Replace(rText, vbCr, "") f D< 0V
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 2 ", PreserveFormatting:=False ROi_k
4Fj
d~qZ;uw
Case "三级标题" & iO53I^r/
LastTitle3No = LastTitle3No + 1 W#9A6ir>
'新三级标题开始，复位其下属标题编号 x~?|bnM#3
LastTitle4No = 0 blx"WVqo
Hu LvMYF
If Val(ttNo) <> LastTitle3No Then T-F8[dd^/
rText = LastTitle3No & ". " & ttString c8h71Cr
Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText U _sM==~
Y>2oU`ly,
End If M#}k@
;L3
'三级标题段落设置 格式：1. 标题内容 EG!Nsb^,
.Paragraphs(paraCounter).Range.Text = rText ]?sw<D{
.Paragraphs(paraCounter).Style = "QLNU三级标题" Ju-#F@38
.Paragraphs(paraCounter).Range.Select pnpf/T{xpM
Selection.EndKey unit:=wdLine =xjt PmZ5X
tc = Replace(rText, vbCr, "") lw
`$(
,
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 3 ", PreserveFormatting:=False eWOZC(I*z
Case "四级标题" ~P fk
LastTitle4No = LastTitle4No + 1 Ug#EAV<m
^XT;n
If Val(ttNo) <> LastTitle4No Then e'X"uH Xt.
rText = "(" & LastTitle4No & "). " & ttString |33_="
ErrMsg.AddItem "四级标题编号错误：" & ParaText 9}T(m(WQVu
-&h< t/U
End If bQ`2ll*(
'四级标题段落设置 格式：(1). 标题内容 @{@
DGc
.Paragraphs(paraCounter).Range.Text = rText "G!,gtA~
.Paragraphs(paraCounter).Style = "QLNU四级标题" (j&7 `9<5
.Paragraphs(paraCounter).Range.Select o0kK f+[
Selection.EndKey unit:=wdLine Lvb'qZ6n
tc = Replace(rText, vbCr, "") LS/ZZAN u
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 4 ", PreserveFormatting:=False Bo4iX,zu
SoHw9FtS
Case "表格标题" L"L a|
LastTableNo = LastTableNo + 1 U
!b~vrr^
+WE<S)z<
If ttNo <> CStr(LastTableNo) Then 3ih:t'N-
rText = "表" & LastTableNo & ". " & ttString 09 v m5|
ErrMsg.AddItem "表格编号错误：" & ParaText 9 Xe|*bT
8vx#QU8E/
End If \SooIEl@
wvI}|c
'表格名称段落设置 格式：表1. 表格名称 jwp?eL!7
.Paragraphs(paraCounter).Style = "QLNU表格标题" iw^"?:'%
xe = Replace(rText, vbCr, "") >p29|TFbV
.Paragraphs(paraCounter).Range.Select i4<n# ]1!t
Selection.MoveEnd wdCharacter, -1 '选择范围包括行尾的换行符。 J\?d+}hynX
Selection.Range.Text = xe kS62]v]
Selection.EndKey G&q@B`I
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False lm8<0*;,
uCjbb
Case "表格首行" +{\b&q_
.Paragraphs(paraCounter).Style = "QLNU表格首行" , }B{)
Case "图片标题" :!w;Y;L:+
LastFigureNo = LastFigureNo + 1 .2
}5Dc,eR
LHMA-0$ ?)
If ttNo <> CStr(LastFigureNo) Then x75 3o\u!
rText = "图" & LastFigureNo & ". " & ttString r!c7{6N
ErrMsg.AddItem "表格编号错误：" & ParaText $r1{N h
3oC ^"7
23
End If #]2,1d J
'图片名称段落设置 格式：图1. 图名称 Q"k #eEA
.Paragraphs(paraCounter).Range.Text = rText 0Wb3M"#9<
.Paragraphs(paraCounter).Style = "QLNU图片标题" w|U 7pUz
.Paragraphs(paraCounter).Range.Select mW )C=X%
Selection.EndKey unit:=wdLine (m() r0:@
xe = Replace(rText, vbCr, "") P E MuIYm$
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False [Qn=y/._r
Case "正文" Z8:'_#^@a[
'正文名称段落设置 ;F:Qz^=.a
.Paragraphs(paraCounter).Style = "QLNU正文" uA%c ie
Case "文献条目" @4wN-T+1
With .Paragraphs(paraCounter) Bgs,6 :
'.Range.Select 7& 2CLh
'Selection.ClearFormatting DfZ)gqp/Av
'.Range.Find.Execute findtext:=rText, replacewith:=strSeperator 'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” Lpk`qJ
.Style = "QLNU参考文献" F~l:W QAj
End With oz'^.+uv E
Case "图表注解" `aL4YH-v
With .Paragraphs(paraCounter) ^o(C\\>{&
.Range.Font.NameFarEast = "楷体" MC_i" P6a
.Range.Font.NameAscii = "Times New Roman"
z:d+RMA
.Range.Font.Size = 9 '小5号字 *#Iqz9X.Y3
/mQ9} E4X
.Alignment = wdAlignParagraphCenter \4|osZ0y
.LeftIndent = 0
Mb+CtI_'
.RightIndent = 0 vPsf{[ Kr
.FirstLineIndent = 0 \ eCQL(_
.LineSpacing = 12 to#T+d.(v
.LineSpacingRule = wdLineSpaceExactly ]m\:XhI*<
.LineUnitAfter = 0 `aM8L
.LineUnitBefore = 0 ^}4ysw
.OutlineLevel = wdOutlineLevelBodyText \G
CT3$
.PageBreakBefore = False Es&'c1$^s
.RightIndent = 0 2+C 8w%F8
.WordWrap = True U=N]XwjVK<
.LineUnitAfter = 0.5 Q
oWjC
l j %k/u
End With J';XAB }
Case Else -v~XS-F
'不作处理 i> PK E.
End Select lT+N{[kLt*
xL|4'8
'含有inlineshape的段落处理 $ItPUYi";
If ShapeHeight > 30 Then iI@(Bl]
.Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle '对有图片的段落设置为单倍行距 98%6Z8AS6U
End If y*j8OA.S
-O6\!Wo=-
If (ShapeWidth + ShapeHeight) > 150 Then jO5We mqf
.Paragraphs(paraCounter).Style = "QLNU图片段落" R ]y9>5 'U
End If h5ZxxtGU
E#
`JH
'段落计数器递 S%7%@Qs"%
paraCounter = paraCounter + 1 u 4~( 0
Me.lbCounter.Caption = "当前检测段落：" & paraCounter 3&Fqd
Me.txtStatus.Text = ParaText r' J3\7N!u
DoEvents M7 gM#bv>L
Loop ]Czq
A c
End With An=Q`Uxt/
e:(~=9}Li
msg = "" u\@ L|rh
*Edr\P
For i = 0 To Me.ErrMsg.ListCount - 1 A[ N>T\
msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i)
K@@Jt
Next Zo wPga
m@y _Wt
]* \<k
<Q?_],ip
Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg :snn-e0l
Me.cmdCheck.Enabled = True Iq(;?_
Me.txtStatus.Visible = True =ve, !
Me.lbParaType.Visible = False D} K/5iU]a
du^r EMb%
bContinue = False UY&DXIP M
End Sub V5]:^=
aR0v qRF
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) V2*m/J
yeB
Dim pTEXT As String 7.(v
og"I)
3L% g2`
pTEXT = ChKRange.Text F >rf
cW2
DZ&AwF
ParaType = "其它" !Nno@S P@
TitleString = pTEXT 6N'HXL UlQ
TitleNo = "N/A" >}B~~C;
(N$$N:ac[t
shpCounter = ChKRange.InlineShapes.Count &>z}u&oF
If shpCounter <> 0 Then v QL)I
MaxShpHeight = 0: TotalShpWidth = 0 !@@rO--&
For i = 1 To shpCounter ;/ao3Q
k = ChKRange.InlineShapes(i).Height 'q*:+|"
l = ChKRange.InlineShapes(i).Width WyJXT.
If k > MaxShpHeight Then BX
X1G
MaxShpHeight = k u^uo =/
End If bn 8?-
TotalShpWidth = TotalShpWidth + l R, ddH[3
Next J9`[Qy\
If MaxShpHeight > 60 Or TotalShpWidth > 150 Then .E0*lem'hE
Exit Sub 6T=zHFf~
End If P8;f^3V(+/
End If Zbjj>*2%
^
ii]'XBSVd
'空行 :]-? l4(%
If Len(pTEXT) <= 2 Then +ywd(Tuzm
Exit Sub p>
4bj>Ql
End If }S>:!9f
?mW;%d~]
&Qq4xn+J
'是否为表格中的文字 qYR+qSAJP
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then * !x/ia9
ParaType = "表格内容" T(6B,
k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) b}jLI_R{
If k = 1 Then 2`w\<h
ParaType = "表格首行" f>C|qDmT
End If oxL4* bqZ
Exit Sub be5NasC
End If ! jb{q bq
0Z>oiB r4
'例外情况：脚注 pd
X"M>
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then ~*uxKEH
ParaType = "脚注"
-~ ycr[}x
Exit Sub w\ 3'wD!
End If /'0,cJnm
{>=#7e-]
'例外情况：尾注 Id'@!U :NA
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then 0 B[eG4
9
ParaType = "尾注" X5eTj
Exit Sub ! YEU<9
End If /yj-^u\ R
&_y+hV {
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then $; t#pN/`
ParaType = "页眉页脚" 9C)w'\u9+
Exit Sub !;YQQ<D
End If {T[/B"QZG
Zc57]
~
\ l8$1p
With regEX 05 m/iQ
.Global = True o'nrLI( t
blA]z!FU
.Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" G.c@4Wz+
If regEX.Test(pTEXT) Then 7&9'=G
ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") N^8
lfc$a
TitleString = regEX.Replace(pTEXT, "$3") r.;(Kx/M
TitleNo = regEX.Replace(pTEXT, "$1") "227 U)Q
ParaType = "章" hDs.4MZC`
Exit Sub +qEvz<kch
End If
@OPyT
!T 3 Esv
.Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" WS)u{
or
If regEX.Test(pTEXT) Then ;j/-ndd&&
ParaType = "一级标题" mLn =SU{#
regEX.Execute (pTEXT) CmPix]YMQ
ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") 2_ HPsEx
TitleString = regEX.Replace(pTEXT, "$3") 5CuK\ <
TitleNo = regEX.Replace(pTEXT, "$1") $\@yH^hL
Exit Sub ^#L?
HIM
End If T4{&@b
0*
A4W6 1 f
'全角或半角括号中的数字 ?O PAf4h
.Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" eX>X=Ku
If regEX.Test(pTEXT) Then U%na^Wu
ParaType = "二级标题" 8M;G@ Q80
regEX.Execute (pTEXT) .o5r;KD
ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") q3E_.{t
TitleString = regEX.Replace(pTEXT, "$5") D;Jb' Be
TitleNo = regEX.Replace(pTEXT, "$2") 1f1J'du
Exit Sub DqHVc)9
End If u!D SyHR
'
,/g\;#:{@]
'阿拉伯数字 1. 2. =7`0hS<@F
.Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" ~ ]q^
Akq
If regEX.Test(pTEXT) Then x9NLJI21/
ParaType = "三级标题" q> q@ztt
regEX.Execute (pTEXT) ^ok;<fJ
ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 <ST#<
$%
TitleString = regEX.Replace(pTEXT, "$3") x 1"ikp}
TitleNo = regEX.Replace(pTEXT, "$1") ?$^qcpJCp
Exit Sub GX
lFS#`
End If 4GRmo"S
A
fctycQ-
'全角或半角括号中的阿拉伯数字 mckrR $>
.Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" gaJIc^O
If regEX.Test(pTEXT) Then S,,3h0$X
ParaType = "四级标题" E$[\Fk}S
regEX.Execute (pTEXT) l<$c.GgFd
ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") B$ )6X
TitleString = regEX.Replace(pTEXT, "$5")
< &'r_m
TitleNo = regEX.Replace(pTEXT, "$2") , e
ZL&n
Exit Sub [\&Mo]"0
End If ^50/.Z >
]-aeoa
#
'表格名称 _r|$H_#
.Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" $|YIr7?R
If regEX.Test(pTEXT) Then $V)LGu2( m
ParaType = "表格标题" PaFJw5f
regEX.Execute (pTEXT) 8EPV\M1%
ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) 1XO *yZF
TitleString = Trim(regEX.Replace(pTEXT, "$3")) ]Zim8^n?`.
TitleNo = Trim(regEX.Replace(pTEXT, "$1")) ^eEj
5Rh
strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 Yn} _"FO'
Exit Sub pTK|u! fs
End If {P
#&e>)v{
K/u`W z ~A
'图片名称 , &HZvU&
.Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" p
stQithS
If regEX.Test(pTEXT) Then Zh.fv-Ecp
ParaType = "图片标题" r\"O8\
regEX.Execute (pTEXT) hoi hdVjv
ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") <nj [=C4v
TitleString = regEX.Replace(pTEXT, "$3") q'?:{k$%
TitleNo = regEX.Replace(pTEXT, "$1") %zyM
WC
Exit Sub ~R cd
End If ${ ~U A 6
<8 At = U
'参考文献 ?Ib/}JST
.Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})" '[数字]、 5 b[:B~J
If regEX.Test(pTEXT) Then puv*p %E
ParaType = "文献条目" t? ]6>J_V
'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") _|Ml6;1 aZ
'TitleNo = regEX.Replace(pTEXT, "[$2] ") >M^
1m (
Exit Sub #?i#q%q
End If VmkYl$WZo
8P!dk5 ,,O
prfx = Left(pTEXT, 2)
Tc)T0dRP
If prfx = "注：" Or prfx = "注:" Then MOG[c
p
ParaType = "图表注解" fwRlqfi
Exit Sub morI'6N
End If +2w54X%?M
D.<CkD B
HJ5m5':a
ParaType = "正文" 0{Kl5>Z9M
WL}6YSC
End With z u
x+ooU
End Sub As (C8C<
|b/J$.R
Sub ConvertListToOrdinary() v-) eT
Dim st As Paragraph @X/S
h:
With ActiveDocument rA 9x T`
For i = .Paragraphs.Count To 1 Step -1 7Yxy2[
Set st = .Paragraphs(i) BQB O]<99
lst = st.Range.ListFormat.ListString B<[;rk
If lst <> "" Then fT8Id\6js
st.Range.ListFormat.RemoveNumbers +c\s%Gzrh
st.Range.InsertBefore lst & " " IO xj$ ?%l
End If @U:T}5)wc
Next KX)xCR~
End With KF'H|)!K
Set st = Nothing q'2P G@
End Sub %`}CbD6
tT yu, %/m
Private Sub UserForm_Activate() >UJ&noUD#:
Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" &u"*vG (U[
Me.lbTotal.Font.Bold = True [ylGNuy
Me.txtStatus.Visible = False `z)!!y
Me.cmdCheck.Enabled = True ?/)5U}*M0T
B:z -?u#B
End Sub _'H< zZo
[`fq4Ky
{7eKv+30
Sub CheckSuperScript() nHKEtKDd
Selection.Find.ClearFormatting %TG$5' )0
Selection.Find.Replacement.ClearFormatting 0 \ LkJ*i
With Selection.Find :Rt5=0x
.Text = "[【\[［〖](*)[】\]〗］]" /@RnCjc'
.Replacement.Text = "[\1]" 2ZtqZ64i
.Replacement.Font.Superscript = True i? AZ| Ha[
'.Replacement.Font.Color = wdColorBlue 9$Mi/eLG2N
.Forward = True cJ8F# t
.Wrap = wdFindContinue v
o`wYJ3W
.FORMAT = True j D^L <
.MatchCase = False ,0 & lag
.MatchWholeWord = False :/%Vpdd@
.MatchByte = False YC=BP5^
.MatchAllWordForms = False R /^JyL
.MatchSoundsLike = False {u.V8%8
.MatchWildcards = True bOck^1Hk y
End With /2dK*v0
Selection.Find.Execute Replace:=wdReplaceAll 0dkM72p
End Sub 4Ro(r
sO
& OhKx
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) L''0`a. +S
bContinue = False ;6b#I$-J-
Set regEX = Nothing &" tce6&
End Sub d<7J)zUm3
R|+R4'
Sub CeateOrModifyStyle() $xu ?zd"
' iW"L
!t#\|
' y-n\;d>[(
Dim stl As Style % C
3jxt
DJQ]N Y|
Options.Pagination = False 38q@4U=aiw
U-FA^ c;
On Error Resume Next N@Mea O
For Each stl In ActiveDocument.Styles 7Xad2wXn
stl.Delete -;P<Q`{I
Next xk|$O
a
On Error GoTo 0 g=Qga09
Xb^\{s?b
Set stl = Nothing @IiT8B
Y[~6f,?^
DoEvents U*&ZQw
On Error Resume Next oLr"8R\d>t
50DPzn
ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph YRp\#pVnZ
X^ |oY]D
ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph ^ 2kWD8c*
ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph Y6L+3*Qt
0dcXgP
ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph U[A*A^$c}
ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph ^
Nsl5
doR'=@ W
ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph @>9p2u) =
ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph BXfaqYb;Q
ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph h{* O9O<
ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph b(Z%#*e
ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph Ve8!
ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph @i{JqHU"
ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph -/gS s<"
btOTDqG`a
ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph %o"Rcw|
ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph J.<%E[
z
ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph rd,mbH[<C
ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph q6Q=Zo@
ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph 7 $9fGo
K<]fElh
-
ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph oy r2lfz*
On Error GoTo 0 <,E*,&0W
DoEvents .897Z|$VB
,#wVqBEk
'BaseStyle 'hek CZZ_I
ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False D} .t
With ActiveDocument.Styles("BaseStyle").Font `90v~O F
.NameFarEast = "宋体" /XSPVc<
.NameAscii = "Times New Roman" m@O\Bi}=}
.NameOther = "宋体" <;6
])
.Size = 10.5 g?>AY2f[5
.Bold = wdUndefined @&Nvb.5nT
.Italic = wdUndefined 44W3U~1
.Subscript = wdUndefined 7
YK+TGmU^
.Subscript = wdUndefined 4*+ EUJ|
!GIs mqVY
.Underline = wdUnderlineNone G wW#Ww;Oc
.UnderlineColor = wdColorAutomatic 7%E1F)%
.StrikeThrough = False D+SpSO7yg
.DoubleStrikeThrough = False =O;SXzgE
5./
(fgx>
.Outline = False sRZ :9de+
.Emboss = False 9#iDrZW
.Shadow = False 4 iLU "~
.Hidden = False O h" ^
.SmallCaps = False M)J *Df0@
.AllCaps = False ,{Ab=xV
.Color = wdColorAutomatic nUd\4;J#
.Engrave = False "qj[[L Q
.Scaling = 100 * 2AQ'%U~
.Kerning = 1 '!.;(Jo
.Animation = wdAnimationNone .d
"+M{I
.DisableCharacterSpaceGrid = False ,#E5 /'c`
.EmphasisMark = wdEmphasisMarkNone 1!f'n
S
End With *cf" l
With ActiveDocument.Styles("BaseStyle").ParagraphFormat ,oG"wgf
.LeftIndent = 0 2 YN` :"
.RightIndent = 0 r/4]b ]n
.SpaceBefore = 0 Y=rr6/k
.SpaceBeforeAuto = False 0wkLM-lN
.SpaceAfter = 0 s{k\1 P(G}
.SpaceAfterAuto = False n21$57`4
_#gsR"FZ$
.LineSpacingRule = wdLineSpaceSingle b;t]k9:"L
.Alignment = wdAlignParagraphJustify DO\EB6xH>%
^J
RTi'v
.WidowControl = False 'u3+k.
.KeepWithNext = False ltrSTH,kL
.KeepTogether = False vv0zUvmT
.PageBreakBefore = False vLS9V/o
.NoLineNumber = False 2 T3DV])Q
JG<3,>@%
.FirstLineIndent = CentimetersToPoints(0) T8441qo{>
.OutlineLevel = wdOutlineLevelBodyText KB"iF}\P0
.CharacterUnitLeftIndent = 0 7P`1)juA9
.CharacterUnitRightIndent = 0 epbp9[
`
.CharacterUnitFirstLineIndent = 0 $dnHUBB
.LineUnitBefore = 0 ZWa#}VS}-n
.LineUnitAfter = 0 pMquu&Td
.AutoAdjustRightIndent = True A$F;fCV*
.DisableLineHeightGrid = True )j6>b-H
qE{cCS
.FarEastLineBreakControl = True <kSaSW
.WordWrap = True Eo Urc9G2
.Hyphenation = False W<LaR,
7
w3w*"M
.HangingPunctuation = True _Y|kX2l
S@
.HalfWidthPunctuationOnTopOfLine = True od}x7RI%m
.AddSpaceBetweenFarEastAndAlpha = True +wUhB\F
*
.AddSpaceBetweenFarEastAndDigit = True
{@#L'i|
.BaseLineAlignment = wdBaselineAlignBaseline Q$vr`yV#=6
End With !p &'so^-W
ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False /K! ,^Xn
ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll {^f0RGJg9
ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese {T.Vu]L80
ActiveDocument.Styles("BaseStyle").NoProofing = False H n!vTB
zrew:5*uZ
'一级标题题样式 d*>k
]X@G
ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") z`5I 1#PVA
ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" -{*V)
J_Co
ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False
1hviT&
With ActiveDocument.Styles("QLNU一级标题").Font Zd(d]M_x
.NameFarEast = "黑体" PbPP1G')
.NameAscii = "Arial Black" e 1loI8
.NameOther = "黑体" gk z#kiGF
.Name = "黑体" %^l&fM*
.Size = 16 '三号 X}-H=1T?
.Bold = True 8e@JvAaa$
.Italic = wdUndefined ~yi&wbTjM
.Subscript = wdUndefined .O#lab`:2
.Superscript = wdUndefined 3rY /6{
End With N1!5J(V4
With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat ee_\_"
BZ <z@DJp
.LeftIndent = CentimetersToPoints(0) >Y'yM4e*
.RightIndent = CentimetersToPoints(0) 5tU"|10m3
.FirstLineIndent = CentimetersToPoints(0) 8@aS9 th$
+2}(]J=-
.LineSpacingRule = wdLineSpaceSingle nTU~M~gky
.Alignment = wdAlignParagraphCenter GnOo+hB
t lERis
.WidowControl = True @L!#i*> 9
.KeepWithNext = True !5OMAWNU@
.KeepTogether = True ~|9LW p_
.OutlineLevel = wdOutlineLevelBodyText mG~y8nUtp
sOxdq"E
.LineUnitBefore = 0.5 Qg>GW
.LineUnitAfter = 0.5 -HsBV>C
End With \r%Vgne-g
ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False w)eQ'6Vu
ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll 'q'Y:A?,
ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese (<C%5x
k
ActiveDocument.Styles("QLNU一级标题").NoProofing = True L||yQH7n
DoEvents $M
`;."
<e&QTyb
'二级 02^(z6K'&?
ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ^R7z LHU;
ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" i `aG
ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False R{o*O_qX
With ActiveDocument.Styles("QLNU二级标题").Font -NPk N%h
.NameFarEast = "黑体" mY 8=qkZE
.NameAscii = "Arial Narrow" N`Xnoehu
.NameOther = "黑体" ];d:z[\P
.Name = "黑体" =+h!JgY/L
.Size = 15 '小三号 ,:( leWeA9
.Bold = False S.)7u6/_!
.Outline = False Kg`x9._2
.Italic = wdUndefined ,A!e"=HF
.Subscript = wdUndefined L [G\+
.Superscript = wdUndefined Z{
Zox[/
End With W79A4l<
With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat pIn WKj[y1
.LeftIndent = CentimetersToPoints(0) /mwr1GU
.RightIndent = CentimetersToPoints(0) 'B5J.Xe:
.FirstLineIndent = CentimetersToPoints(0) 3t8H?B12ow
&E &iaw!
.LineSpacingRule = wdLineSpaceSingle ]XG n2U\
.Alignment = wdAlignParagraphLeft U9o*6`"o
WJU NJN
.WidowControl = True }PIB b
.KeepWithNext = True I! 7.fuO
.KeepTogether = True 'HWgvmw(
.PageBreakBefore = False A] ?O& m |
.OutlineLevel = wdOutlineLevelBodyText /e sk
2Ml2Ue-9
.LineUnitBefore = 0.5 U\8#Qvghf
.LineUnitAfter = 0.5 e6i./bf3
~}0hN]*G
End With x\hn;i<
ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False C9g~l}=$&
ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll iB3 + KR
ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese z{3% Hq
ActiveDocument.Styles("QLNU二级标题").NoProofing = True cNr][AzU@
DoEvents ;vc lAsJ
pt cLJ]+)
'三级标题样式 mjl! Nth:<
ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") '+I
2$xE
ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" `/JR}g{O
ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False CotMV^
With ActiveDocument.Styles("QLNU三级标题").Font LEngZ~s V/
.NameFarEast = "宋体" w52HN;Jm
.NameAscii = "Times New Roman" q3-;}+
.NameOther = "黑体" D^s0EW-
E
.Name = "黑体" <SM&VOiaOz
.Size = 14 '四号 &#oZ>`Qu
.Bold = False Df ,VV+
.Outline = False c^Gwri4
.Italic = wdUndefined ~<aeA'>OA
.Subscript = wdUndefined inv{dg/2
.Superscript = wdUndefined &/hr-5k
End With ?*R^?[
With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat dezL{:Ya
.LeftIndent = CentimetersToPoints(0) 4Eh BpTg
.RightIndent = CentimetersToPoints(0) (bFWT_CChz
.FirstLineIndent = CentimetersToPoints(0) ROt0<^<
a H|OA\<
.LineSpacingRule = wdLineSpaceSingle .-u k
.Alignment = wdAlignParagraphLeft 7k t7^V<
Rf(x^J {
.WidowControl = True u4#~
i0@
.KeepWithNext = True `{|}LFS >
.KeepTogether = True `? o1cf A
.PageBreakBefore = False NVA`t]g n
.OutlineLevel = wdOutlineLevelBodyText _ K+V?-=
Xf_tj:eO~
.CharacterUnitLeftIndent = 0 ;Q>3N (
.CharacterUnitRightIndent = 0 G2+)R^FSC
.CharacterUnitFirstLineIndent = 2 <,X +`m&
;Jbc'V'fm
.LineUnitBefore = 0.5 ul=a\;3x#|
.LineUnitAfter = 0 g . Caapy
End With Sp~Gv>uMK
ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False Fma`Cm.
ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll /yw\(|T
ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese V0'p1J tD
ActiveDocument.Styles("QLNU三级标题").NoProofing = True -KwL 9J4 u
DoEvents
=Sb :<q+Q
8X
?GY 8W:
'四级标题样式 %Q sSR'`
ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") J ]Gc
ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" (_&V9vat=
ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False So\| Ye
With ActiveDocument.Styles("QLNU四级标题").Font Xq^y<[
.NameFarEast = "宋体" aC8,Y$>?E`
.NameAscii = "Times New Roman" !Zyx$2K
.NameOther = "宋体" k`7.p,;}U
.Name = "宋体" $|cp;~ 1
.Size = 12 '小四号 :Y J7J4
.Bold = True v_ nBh,2
.Outline = False af?\kBm
.Italic = wdUndefined 7z&adkG:
.Subscript = wdUndefined `/wq3+ ?
.Superscript = wdUndefined tY$ty0y-e
End With >uchF8)e|
With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat x :n9dm
4'{hI;&a&
.LeftIndent = CentimetersToPoints(0) ;c
m wh<
.RightIndent = CentimetersToPoints(0) 2 .Eu+*UC
.FirstLineIndent = CentimetersToPoints(0) rGn5Q V
J'\eS./w|
.LineSpacingRule = wdLineSpaceSingle _ czbUl
.Alignment = wdAlignParagraphLeft kk /+Vx~
QK3j_'F=E
.WidowControl = True gKs/T'PW
.KeepWithNext = True YK w!pu=
.KeepTogether = True sPE)m_u
.PageBreakBefore = False
IGK_1@tq
.OutlineLevel = wdOutlineLevelBodyText %$Jq t
! F;<xgw
.CharacterUnitLeftIndent = 0 Z}K.^\S9
.CharacterUnitRightIndent = 0 V:F+HMBk
.CharacterUnitFirstLineIndent = 2 o9T@u Wh+
CVGOX z
.LineUnitBefore = 0 L=$?q/=-
.LineUnitAfter = 0 (@WDvgi(
X6Nm!od'
End With c6Yf"~TD0
ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False !7kLFW
ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll 43u PH1
)
ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese n<%=~1iY+
ActiveDocument.Styles("QLNU四级标题").NoProofing = True R%)2(\
DoEvents 5y[b8mur
J+cAS/MYX
'正文校式 j""y2c1
ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") C{`^9J-
ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" 4l%?mvA^m
ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False ^iV`g?z
With ActiveDocument.Styles("QLNU正文").Font V6z@"+
0x]OF8=J
.NameFarEast = "宋体" 1O]5/Eu
.NameAscii = "Times New Roman" *_ {
l
.NameOther = "宋体" ez g^5o;
.Name = "宋体" hP4)8 >
0?6 If+AC
.Size = 12 '小四号 ||'i\X|[
y= oVUsG
.Bold = wdUndefined ){:q;E]^fB
.Italic = wdUndefined Gdf1+m i
.Subscript = wdUndefined BS-:dyBw
.Superscript = wdUndefined % Vw|5yA4
%T W% |"v
.Outline = False _d\u!giy
.Emboss = False r(,= uLc
.Shadow = False gI^L
9jE7
.Hidden = False (?!(0Ywbg
(pT(&/\8
.DisableCharacterSpaceGrid = True \ f /!
End With ;e~{TkD
With ActiveDocument.Styles("QLNU正文").ParagraphFormat :tjgg]
h+B' _ `(
.LeftIndent = CentimetersToPoints(0) S6X b*6
.RightIndent = CentimetersToPoints(0) _UH/}!nqB
.FirstLineIndent = CentimetersToPoints(0) 0\EpH[m}-
-40'[a9E
.LineSpacingRule = wdLineSpaceExactly +#-kIaU
.LineSpacing = 20 <m Ju v
.Alignment = wdAlignParagraphLeft g:uvoMUD
Mz/]D J8
.WidowControl = False SLQ\Y%F
.KeepWithNext = False 4]DAh
.KeepTogether = False B8c B
Q v
.PageBreakBefore = False y~== waZw
.Hyphenation = False "RV`L[(P*k
L Xh@o1
.OutlineLevel = wdOutlineLevelBodyText *l> [`U+
|8DH4*y!
.Ca"$2
.CharacterUnitLeftIndent = 0 b"R, p=M
.CharacterUnitRightIndent = 0 wO2V%v^bp
.CharacterUnitFirstLineIndent = 2 J8GXI :y
;gxN@%}@
.LineUnitBefore = 0 `N|U"s;
.LineUnitAfter = 0 z)58\rtz
.SpaceBefore = 0 -~v l+L
.SpaceAfter = 0 9S:{
( Lok
.DisableLineHeightGrid = True Ism^ hyL
End With fCt^FU
ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False .])>A')r
ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll "<P oJPh
ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese '!j #X_;
ActiveDocument.Styles("QLNU正文").NoProofing = True KMxNH,5
DoEvents 97qtJ(ESI
:rz9M@7
'图片段落样式 X
zi'Lu `
ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") ) (: +q(m
ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" _DPB?)!x
ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False O8K@&V p
With ActiveDocument.Styles("QLNU图片段落").Font T:K"
.Size = 12 '小四号 i ll-%OPeg
.Italic = wdUndefined H4PbO/{ xO
.Subscript = wdUndefined " 8wf.nZ
.Superscript = wdUndefined =_$ XP
End With &Q-[;
With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat tr6jh=
YVQ_ tCC_!
.LeftIndent = CentimetersToPoints(0) w+Z- -@\
.RightIndent = CentimetersToPoints(0) zdxT35h
.FirstLineIndent = CentimetersToPoints(0) TIc d
_>TW
~")h E%Kl}
.LineSpacingRule = wdLineSpaceSingle zuC 58B
.Alignment = wdAlignParagraphCenter #dva0%-1
.KeepWithNext = True Vl5SL{+D
.OutlineLevel = wdOutlineLevelBodyText 1A7 %0/K-]
54
M!Fq -
.CharacterUnitLeftIndent = 0 G$?|S@I,
.CharacterUnitRightIndent = 0 kq) +@p
.CharacterUnitFirstLineIndent = 0 ~`*1*;Q<H|
rao</jN.9
.LineUnitBefore = 0 T[5 gom
.LineUnitAfter = 0 I! h (`
End With ~t'#n V
ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False Od0S2hHO
ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll :r1;}hIA9
ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese M!eo e5
ActiveDocument.Styles("QLNU图片段落").NoProofing = True Qqd6.F
DoEvents (v|r'B9 b
ioB|*D<U2
{l&Ltruhz
'第X章 g".d"d{
ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 5 k GxhD
ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" zW*} `S "
ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False B#HV20\?v
With ActiveDocument.Styles("QLNU章节标题").Font B<|:K
\MA
.NameFarEast = "黑体" |A ;o0pL
.NameAscii = "Arial Black" 5x*
5|8
.NameOther = "Arial Black" Zu \p;!e
.Name = "黑体" ! (2-(LgA
.Size = 16 k sB
.Bold = True !1ML%}vvB,
.UnderlineColor = wdColorAutomatic vOos*&
.Outline = False dO>k5!ge|:
.Italic = wdUndefined (NGu9uJs
.Subscript = wdUndefined u]
F7 0C^~
.Superscript = wdUndefined p yUNRqp
.Scaling = 100 [<]Y+33
.DisableCharacterSpaceGrid = True k_,MoDz
End With DJm oW
With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat <U@P=G< t
.LineSpacingRule = wdLineSpaceSingle 38[)[{G)Hv
.Alignment = wdAlignParagraphCenter BQyvj\ uJ
.WidowControl = True C>*5=p |T
.KeepWithNext = True H7{Q@D8
.KeepTogether = True 'M~BE\
.PageBreakBefore = True |ZS 57c:
.OutlineLevel = wdOutlineLevelBodyText IZv~[vi_
YS]>_
.LeftIndent = CentimetersToPoints(0) Hze-Ob8
.RightIndent = CentimetersToPoints(0) -Qg
2qN2{
.FirstLineIndent = CentimetersToPoints(0) |BwRlE2CFO
-'I _*fu
.CharacterUnitLeftIndent = 0 UppBnw
.CharacterUnitRightIndent = 0 UH5w7M
.CharacterUnitFirstLineIndent = 0 v#RW{kI
PV?]UUc'n<
.LineUnitBefore = 1 V -q%r
.LineUnitAfter = 0.5
@bY('gC,
1*Sr5N[=
.AutoAdjustRightIndent = False 4rI:1 yGt@
.DisableLineHeightGrid = True {SF[I
.FarEastLineBreakControl = True 1a<]$tZk
.WordWrap = True 3LKB ;
End With oS~}T R:}
ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False <A)+|Y"^h6
ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll c]6V"Bo}A
ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese .qS Bh
hH\
ActiveDocument.Styles("QLNU章节标题").NoProofing = True \.c]kG>k-
DoEvents 'I&|1I^
Wm<z?.lS
'表格标题 zL9VR ;q
ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") z )5S^{(
ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" )8[ym/m
ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False sC% b~
With ActiveDocument.Styles("QLNU表格标题").Font y)6,0K {k
.NameFarEast = "楷体" A:kkCG!~Nf
.NameAscii = "Arial" >R( 8/#|E
.Name = "楷体" XR|"dbZW.0
.Size = 10.5 vT?Q^PTO
.Bold = True {I`B[, *
.Underline = wdUnderlineNone GtF2@\
.Italic = wdUndefined Q(lku"U'
.Subscript = wdUndefined #MUiL=
.Superscript = wdUndefined >4,{6<|
.Color = wdColorAutomatic C1V# ?03eI
End With #:$O=@@?M
With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat DKh}Y
!Q=:
3DH.4@7P
.LineSpacingRule = wdLineSpaceSingle o>2e
!7
.Alignment = wdAlignParagraphCenter ?$3r5sx
.KeepWithNext = True zu52 p4
.KeepTogether = True ,
Hn7(^t
.OutlineLevel = wdOutlineLevelBodyText 1 ojhh7<
IQT cYl
.LeftIndent = CentimetersToPoints(0) +W6Hva.
.RightIndent = CentimetersToPoints(0) hF2/
y. :P
.FirstLineIndent = CentimetersToPoints(0) HeCcF+
Kaf>
.CharacterUnitLeftIndent = 0 0Qm"n6NQ
.CharacterUnitRightIndent = 0 9ftN
8Svw
.CharacterUnitFirstLineIndent = 0 gF3TwA r
SC'BmR"ox
.LineUnitBefore = 1 vK(I3db !
.LineUnitAfter = 0 B]1HS`
*7
4Rh
R[
End With Yrpxy.1=F5
ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False t)ld<9)eB
ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll p"KU7-BfvC
ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese [(1O"
ActiveDocument.Styles("QLNU表格标题").NoProofing = True $'^&\U~?
DoEvents -PM) EGSk{
O7v]p
'表格首行 X6x x2v% D
ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") -&im jy<
ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False Xt ft*Z
With ActiveDocument.Styles("QLNU表格首行").Font ?L=A2C\_-
.NameFarEast = "楷体" B#] _8svO
.NameAscii = "Times New Roman" o
w2$o\hC
.Name = "楷体" VMx%1^/(
.Size = 9 :y\09)CJK
.Bold = True 3w Z(+<4i
.Underline = wdUnderlineNone tev QW
.Italic = wdUndefined X:Q$gO?[4
.Subscript = wdUndefined K h)F yV
.Superscript = wdUndefined Rv vh{U;t
End With vVAb'`ysv
With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat Id %_{),HX
.LineSpacingRule = wdLineSpaceSingle 8zZS p
.Alignment = wdAlignParagraphCenter .!i0_Rv5x
*wwhZe4V
.LeftIndent = CentimetersToPoints(0) Yj3 P 7k$c
.RightIndent = CentimetersToPoints(0) ^ |aNG`|O
.FirstLineIndent = CentimetersToPoints(0) $_)=8"Sn
co/7l sW
,>u=gA&}
.CharacterUnitLeftIndent = -0.5 4b4QbJ $
.CharacterUnitRightIndent = -0.5 9 RxO7K
.CharacterUnitFirstLineIndent = -0.5 rR]-RX(
eaQ90B4
.LineUnitBefore = 0 =O,JAR "ug
.LineUnitAfter = 0 PPa^o8jd
.SpaceBefore = 0 h 'l^g%;
.SpaceAfter = 0 Z v 4 <b
_S"f_W
End With O-j$vzHpdY
ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False E T)>#zp+s
ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll E:FO_R(Xq
ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese pW{8R^vKm
ActiveDocument.Styles("QLNU表格首行").NoProofing = True ('t kZt%8
DoEvents {rC~ P
"x&3Z
@q7
'表格内容 Q sOhz
ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") kg3ppt
ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False hq?jdNy
:
With ActiveDocument.Styles("QLNU表格内容").Font L~dC(J)@ZI
.NameFarEast = "楷体" ~s#e,Kav"
.NameAscii = "Times New Roman" |z~LzSJv
.Name = "楷体" vBNZ<
L\|a
.Size = 9 kM!V .e[ g
.Bold = False x5OC;OQc
.Underline = wdUnderlineNone k(vPg,X>m
.Italic = wdUndefined Tr&E4e
.Subscript = wdUndefined |)
Pi6Y
.Superscript = wdUndefined &EovZ@u
End With W/r^ugDV
With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat Sj)}qM-y#
.LineSpacingRule = wdLineSpaceSingle (
S oo<.9~
.Alignment = wdAlignParagraphCenter Wr>(#*r7q
TFy7HX\Oq
.LeftIndent = CentimetersToPoints(0) /BpxKh
2p
.RightIndent = CentimetersToPoints(0) Pd~MiyO;K
.FirstLineIndent = CentimetersToPoints(0) <*u C
m"4B!S&Fc(
.CharacterUnitLeftIndent = -0.5 .Pw%DZ'
.CharacterUnitRightIndent = -0.5 }E; F)=E
.CharacterUnitFirstLineIndent = -0.5 3sFeP &
.LineUnitBefore = 0 0+EN@Y^dAV
.LineUnitAfter = 0 $}R$t-
.SpaceBefore = 0 `
U{mbw,
.SpaceAfter = 0 8Bpip
End With w(B H247`
ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False #dc1pfL!y{
ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll /
s
c.C
ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese JRO$ <
ActiveDocument.Styles("QLNU表格首行").NoProofing = True ?+r!z
DoEvents M$A#I51
( KTnJZ
'图片标题 HM&1y ubh#
ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") %j E Y 3q
ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" kZVm 1W1
ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False =XT)J6z^"
With ActiveDocument.Styles("QLNU图片标题").Font g_w&"=.jBq
.NameFarEast = "楷体" EA|k5W*b
.NameAscii = "Times New Roman" `tE^jqrke5
.Name = "楷体" ,+._;[k
.Size = 10.5
'# z]M
.Bold = True t}; ~H\:
.Underline = wdUnderlineNone %M&3VQ9w
.Italic = wdUndefined rGlRAn#?,
.Subscript = wdUndefined sS!w}o2X
.Superscript = wdUndefined F>+2DlA`<e
.Outline = False r7 VXeoX
.Shadow = False @ u)
'yS
.Color = wdColorAutomatic o2=A0ogz?
End With zX kx7d8
With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat gLQ #4H
.LineSpacingRule = wdLineSpaceSingle \DA$6w\\
.Alignment = wdAlignParagraphCenter ++8_fgM
>fzwFNdo
.KeepWithNext = wdUndefined (ZP87Gz
.KeepTogether = True +;q.Y?
.OutlineLevel = wdOutlineLevelBodyText K>1X}ZMdD(
Ue$zH"w
.LeftIndent = CentimetersToPoints(0) Z0R eWrl;`
.RightIndent = CentimetersToPoints(0) 6:
? rlh
.FirstLineIndent = CentimetersToPoints(0) ) NT5yF,m
pm US F #u
.CharacterUnitLeftIndent = 0 J!h^egP
.CharacterUnitRightIndent = 0 :eO R-}p'
.CharacterUnitFirstLineIndent = 0 #SkX@sl@
}B q^3?,#{
.LineUnitBefore = 0 9`"DFFSMS
.LineUnitAfter = 0 -
8bNQU
End With B9X8
ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False }nu d
ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll WM,i:P)b
ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese {J]-<:XD
ActiveDocument.Styles("QLNU图片标题").NoProofing = True ~]WVG@-
DoEvents <L2emL_'
lj2=._@R
'目录项 &|5GB3H =
ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") l#bAl/c`
ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" ksW
SM xm
ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False u+D[_yd^
With ActiveDocument.Styles("QLNU目录项").Font a<m-V&4x
.NameFarEast = "黑体" C+
%K6/J(
.NameAscii = "Times New Roman" 1;&; 5
.NameOther = "Times New Roman" ._ CP%
R
.Name = "黑体" ^0tw%6:
.Size = 10.5 7*s8 ttX
.Bold = False 1H{jy^sP 7
.Italic = wdUndefined v27Ja .tA
.Underline = wdUnderlineNone "Xn%at4
.Color = wdColorAutomatic &uM^0eM
.Superscript = wdUndefined R
1ktj
.Subscript = wdUndefined o
}@n>R
End With S wH2$: f
With ActiveDocument.Styles("QLNU目录项").ParagraphFormat &~-~5B|3"
]Kde t"+
.LineSpacingRule = wdLineSpaceSingle (j&A",^^S
.Alignment = wdAlignParagraphLeft 2cf' ,cv@8
C 3VLV&wF
.WidowControl = False
'v&}(
.KeepWithNext = False Z$'I Bv
.KeepTogether = False ~xyw>m+o.
.PageBreakBefore = False z`$J_Cj Y
.NoLineNumber = False $-vo}k%M
.OutlineLevel = wdOutlineLevelBodyText K:5eek
eW8[I'v_&
.LeftIndent = CentimetersToPoints(0) -<N&0F4|*
.RightIndent = CentimetersToPoints(0) TJy4<rb
.FirstLineIndent = CentimetersToPoints(0) I*\ ^,ow
@5<CXTdF9c
.CharacterUnitLeftIndent = 0 ~
3T,&?r
.CharacterUnitRightIndent = 0 [!"XcFY:a
.CharacterUnitFirstLineIndent = 0 {6
.o=EyM{
h I|)u4q
.LineUnitBefore = 0
27 Gh E
.LineUnitAfter = 0 o6}n8U}bk
End With ~]uZy=P? 5
ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False )`HA::
ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll ?m;;D'1j
ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot uDayBaR
ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese Hl7:*] l7b
ActiveDocument.Styles("QLNU目录项").NoProofing = True Q\kub_I{@
DoEvents 2KI!af[I
1 W'F3
'参考文献 \u{8Bak0
ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") l@~LV}BI
ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" qv+R:YYOq
ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False -5>NE35Cto
With ActiveDocument.Styles("QLNU参考文献").Font rdJB*Rlkh
.NameFarEast = "宋体" Z=+03
.NameAscii = "Times New Roman" <@, $hso7:
.NameOther = "Times New Roman" rZwB> c
.Name = "Times New Roman" d^V$Z6*
]
.Size = 12 i$U Qbd
.Bold = False Mm= Mz
.Italic = wdUndefined y79qw M.
.Subscript = wdUndefined :w-`PY J%G
.Superscript = wdUndefined ;-@=
.Underline = wdUnderlineNone H{fM %* w
.UnderlineColor = wdColorAutomatic &35|16z%@
.Color = wdColorAutomatic
8_we:
9A
.Engrave = False 7*+TP~WI
End With {0y u
With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat or?%-)
#D I$Oc
.LineSpacingRule = wdLineSpaceExactly smU4jh9S
.LineSpacing = 16 |3eGz%Sd
.Alignment = wdAlignParagraphLeft p25Fn`}H
.WidowControl = False Y2T$BJJ
.KeepWithNext = False |)U|:F/{@
.KeepTogether = False
K5"sj|d&
.PageBreakBefore = False 6*XM7'n
.OutlineLevel = wdOutlineLevelBodyText &%F@O<
:
'Bq ZOZw
.LeftIndent = CentimetersToPoints(0) 8 cVzFFQP
.RightIndent = CentimetersToPoints(0) Y=B3q8l 5
.FirstLineIndent = CentimetersToPoints(0) kv?| 'DN
yA7 )Y })>
.CharacterUnitLeftIndent = 0 \2X$C#8E
.CharacterUnitRightIndent = 0 <GIwRVCU
.CharacterUnitFirstLineIndent = -2 g
-)mav
F $yO
.LineUnitBefore = 0 (36K3=Q a
.LineUnitAfter = 0 0SV \{]2
.SpaceBefore = 0 Vk}49O<K/
.SpaceAfter = 0 i~yX tya
,x_Z JL
End With SUdm 0y
ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False ;b%{ilx:
ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll n}OU Y
ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS 'yr{ ^Pek
ActiveDocument.Styles("QLNU参考文献").NoProofing = True |'$ l7
ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese ?oKL &I@
DoEvents ve fU'
GW/WUz K
' r]T0+ oQ>
ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") (:7a&2/M
ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" *HeVACxo
ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False 9go))&`PJL
With ActiveDocument.Styles("QLNU论文题目").Font y\,f6=%k
.NameFarEast = "黑体" \=fh-c (J,
.NameAscii = "Arial Black" fEwifSp.
.NameOther = "Arial Black" qrE0H
.Name = "Arial Black" !i Jipe5
.Size = 16 QNpu TZn#Q
.Bold = False J|5Ay1eF-
.Italic = wdUndefined ~}, W8\C>
.Superscript = wdUndefined ]
\dHU.i
.Subscript = wdUndefined NzlAC
.Underline = wdUnderlineNone hZU 1O
.UnderlineColor = wdColorAutomatic J>h;_jA
.Color = wdColorAutomatic M*`hD d S
2(+P[( N1,
End With FM\[].
With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat 328L)BmW
.LineSpacingRule = wdLineSpaceSingle oKa>.e7.
.Alignment = wdAlignParagraphCenter U&W"Ea=R/
.WidowControl = True $3\,h; y
.KeepWithNext = True vaB!R 0
.KeepTogether = True QN g\4 %
.PageBreakBefore = True
KGT3|)QN
.NoLineNumber = False `eD1|Go9
.OutlineLevel = wdOutlineLevelBodyText ! 8/gL
6$RpV'xz
.LeftIndent = CentimetersToPoints(0) !y[3]8Xxv
.RightIndent = CentimetersToPoints(0) u"Y]P* [k
.FirstLineIndent = CentimetersToPoints(0) 8,*3zVk-
&S-er{]]
.CharacterUnitLeftIndent = 0 "dtlME{Bx
.CharacterUnitRightIndent = 0 fRNP#pi0u
.CharacterUnitFirstLineIndent = 0 Yt{&rPv,
B}\BeFt '
.LineUnitBefore = 1 ti2
.LineUnitAfter = 1 n&d/?aJ7a\
-_>.f(1
.BaseLineAlignment = wdBaselineAlignAuto t$I
|E
End With r?3Aqi"
ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False ?cK]C2Ak
ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll WcEt%mGQ,
ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS Ep ">v>"
ActiveDocument.Styles("QLNU论文题目").NoProofing = True ~kb{K;
ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese (Ilsk{aB;A
ActiveDocument.Styles("QLNU论文题目").NoProofing = True 2 Y+:,ud\
DoEvents -;Uj |^
[h-norB((
'中文摘要 iLtc
HpN
ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") _#pnjo
ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" [r9d<Zi}{
ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False I$j|Rq
With ActiveDocument.Styles("QLNU中文摘要").Font B*79qq
.NameFarEast = "宋体" e=> % ^F
.NameAscii = "Times New Roman" zy>}L #
.NameOther = "Times New Roman" 7I
>J$"
.Name = "Times New Roman" (B}+h
.Size = 12 >n M%p4E
.Bold = wdUndefined j^ EbO3
.Superscript = wdUndefined 1<,/
-H
.Subscript = wdUndefined ]w[ThHRJ
.Italic = wdUndefined >>7aw" 0
.Underline = wdUnderlineNone 6fGK (r
.UnderlineColor = wdColorAutomatic : Ss3ck*=
.Color = wdColorAutomatic (U9a@ 1
End With 1;&T^Gdj
With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat 3U;1D2"AE
.LineSpacingRule = wdLineSpaceExactly PGX+p+wB
.LineSpacing = 20 |Gu EGmR
.Alignment = wdAlignParagraphLeft +tU Q
M-Sv1ZLh
.WidowControl = False 9@y3IiZ"}
.KeepWithNext = False hSMV&Cs
.KeepTogether = True ;_tO+xL&
.PageBreakBefore = False (h,Ws-O
.NoLineNumber = False 38Efp$)
.OutlineLevel = wdOutlineLevelBodyText DsQ/aG9c%
u-.L^!k
.LeftIndent = CentimetersToPoints(0) f j+O' X
.RightIndent = CentimetersToPoints(0) - _t&+5]
.FirstLineIndent = CentimetersToPoints(0) ~L'nz quF
m UgRm]
.CharacterUnitLeftIndent = 0 } 0{ B
.CharacterUnitRightIndent = 0 z_l. V /G)
.CharacterUnitFirstLineIndent = 2 E {>`MNj
.LineUnitBefore = 0 'n4u-pM(nB
.LineUnitAfter = 0 }N,>A-P
E47 4l
End With &J(!8y*QyE
ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False H (> M
ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll r/PKrw sC
ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS I%xn,u
ActiveDocument.Styles("QLNU中文摘要").NoProofing = True .
#U}q 7X
ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese :-Wv>V
\t
ActiveDocument.Styles("QLNU中文摘要").NoProofing = True %),!2_ x~
ActiveDocument.Styles("QLNU中文摘要").Frame.Delete '{VM> Q
DoEvents ug&92Hdvy3
/80YZ
ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 1JeJxzv
>C
ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" fA^SD"xf
ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False &HL{LnLP@/
With ActiveDocument.Styles("QLNU英文标题").Font o ,
LK[Q
.NameFarEast = "黑体" # ZTLrq5b
.NameAscii = "Arial Narrow" jdlG#j-\
.Name = "Arial Narrow" L_?$ayZ;
.Size = 16 jVYH;B%%z
.Bold = True j
-32S!
.Bold = wdUndefined LdEE+"J w
.Superscript = wdUndefined TSQh X~RN
.Subscript = wdUndefined 6mHhC?
.Italic = wdUndefined t?3BCm$Mi
r0btC@Hxy
.Underline = wdUnderlineNone
TQ' e
.UnderlineColor = wdColorAutomatic gp/YjUH7k8
.StrikeThrough = False qjL
o&2)
.DoubleStrikeThrough = False ' ^a!`"Bc
End With p( ?3
V
With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat 4bI*jEc\[
.LineSpacingRule = wdLineSpaceSingle xa# gWIP*
.Alignment = wdAlignParagraphCenter N-%#\rPq.
.WidowControl = True H \+-cvl
.KeepWithNext = False
9p*-?kPb
.KeepTogether = False @T7PZB&xnl
.PageBreakBefore = False :e2X/ tl#
.NoLineNumber = False tcOnM w
.FirstLineIndent = CentimetersToPoints(0) N^J*!]|
.OutlineLevel = wdOutlineLevelBodyText zs8 I
5;Ia$lm=y
.LeftIndent = CentimetersToPoints(0) (}~ucI<~
.RightIndent = CentimetersToPoints(0) 5
f_7&NxT
.FirstLineIndent = CentimetersToPoints(0)
5~l2!PY
%U?)?iZdL
.CharacterUnitLeftIndent = 0 b n-=f
b(
.CharacterUnitRightIndent = 0 oAz<G
.CharacterUnitFirstLineIndent = 0 40.AM1Z0f
v{koKQ'Y()
.LineUnitBefore = 1 bl.E
IyG>
.LineUnitAfter = 1 wd+O5Lr.R
M/B/b<['
End With B.K4!/cF
ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False H,|YLKg-|
ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll *#h;c1aP
ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS 2AK}D%jfc
ActiveDocument.Styles("QLNU英文标题").NoProofing = True ?Aw 3lH#:
ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese sHs g_6~
ActiveDocument.Styles("QLNU英文标题").NoProofing = True =v 0~[ E4
ActiveDocument.Styles("QLNU英文标题").Frame.Delete m6MaX}&zv
DoEvents ^PQM;"
j38 6gL
ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") yjpz_<7a=
ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" ^Y 7U1I
ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False =4> @8=JA
With ActiveDocument.Styles("QLNU英文摘要").Font kM`7EPk
.NameFarEast = "宋体" }Vl^EA R
.NameAscii = "Arial" ? s4oDi| :
.NameOther = "Arial" [YE?OQ7#
.Name = "Arial" *"T+G*~
.Size = 12 |Puj7Ru
.Bold = wdUndefined S Q <f
.Italic = wdUndefined fIkT"
?
.Superscript = wdUndefined qTy v.#{y
.Subscript = wdUndefined hr~ .Lj5^W
End With
@C_ =*
<kb nu7?a*
With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat tJm{I)G
Tf[dZ( +\
.LineSpacingRule = wdLineSpaceExactly o 9+Q{|r
.LineSpacing = 20 u){S$</
[*HiI =
.Alignment = wdAlignParagraphJustify ZIW7_Y>_
61,O%lV
.WidowControl = False 6[+j'pW?
.KeepWithNext = False PbN3;c3
.KeepTogether = False !NA`g7'
.PageBreakBefore = False hS_.l}0yf
.NoLineNumber = False vJThU$s-
?*+1~m>
.OutlineLevel = wdOutlineLevelBodyText 3#mE(
`|P
2 4X=5Aj
.LeftIndent = CentimetersToPoints(0) H:MU Nc8i
.RightIndent = CentimetersToPoints(0) +{*)}[w{x
.FirstLineIndent = CentimetersToPoints(0) 5rN7':(H!%
?i%nM lcc
.CharacterUnitLeftIndent = 0 k =| K|
.CharacterUnitRightIndent = 0 r=\P! `{5
.CharacterUnitFirstLineIndent = 2 Z@oKz:U
JMePI%#8
.LineUnitBefore = 0 UN( 3i(d
.LineUnitAfter = 1 )Ga8` t"
W5X7FE W
End With Tzf$*Uje3
ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False O!
(85rp/
ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll J Zw^ W {
ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS Gh iHA9.
ActiveDocument.Styles("QLNU英文摘要").NoProofing = False vv*
|F
DoEvents y#e ?iE@
|*1xrM:v~
Options.Pagination = True %I}'Vb{C
Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." CjV7q y
DoEvents rXDJ:NP
ActiveDocument.Repaginate GGM5m
|4
2-7Z(7G{ F
End Sub ?FDJqJM
c/RT0xql*
RNe9h lr
