Dim bContinue As Boolean o]RZd--c<
ixS r*+
Dim regEX As New RegExp /R&h#;l
Dim paraCounter As Long '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 f t$R
F
~$J(it-a
Dim LastTitle0String As String, LastTitle0No As Long S0Q LM)
Dim LastTitle1String As String, LastTitle1No As Long X%3
?sH
Dim LastTitle2String As String, LastTitle2No As Long *tgu@9b
Dim LastTitle3String As String, LastTitle3No As Long 8'%m!
Dim LastTitle4String As String, LastTitle4No As Long Tjhy@3
Dim LastTitle5String As String, LastTitle5No As Long GEA1y^b6"
Dim LastTabelString As String, LastTableNo As Long S_/S2(V"
Dim LastFigureString As String, LastFigureNo As Long D}LM(s3li7
_DH^ K 9,9
Dim strSeperator As String X-(4/T+v
n\3
#69VY
Sub ConvertWidth(fTEXT As String, rText As String) J=k=cF UX
Selection.Find.ClearFormatting &T~X`{V]`
Selection.Find.Replacement.ClearFormatting }ML2-k
Selection.Find.Wrap = wdFindContinue 8-Y*b89
Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText oLh ,F"nB
DoEvents ^6 z"@ +;*
Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True iER@_?
End Sub 23WrJM!2N
KmTFJ,i
M
Sub ClearDomain() ]%FAJ\
With Selection.Find 8B:y46
.ClearFormatting b^Re9 47{g
.Replacement.ClearFormatting p6 R+t]oH
.Wrap = wdFindContinue "ayV8{m^3
Me.txtStatus.Text = "清除所有域代码" `Z8k#z'bN
DoEvents
X;N?L%Pp
.Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False %^ L{K[}
End With yCvtglAJ4
End Sub p CA`OP);=
!*Eu(abD
Private Sub cmdCheck_Click() b5LToy:
bContinue = True -v.\W y~\
Dim NoSeries1(1 To 16) As String 7J!s"|VS
Dim NoSeries2(1 To 16) As String -(]C FnD_N
Dim NoSeries5(1 To 16) As String KE@+I.x
Dim NoSeriesRM(1 To 16) As String &29jg_'W
Dim paraTotal As Long, ParaText As String N)G HQlgH
Dim ttString As String, ttNo As String [`t ;or
ao"2kqa)r
Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long b&mA1w[W]
)iQ ^HZ
Me.txtStatus.Visible = True PXkpttIE]M
Me.lbParaType.Visible = True Rd5_{F
Me.cmdCheck.Enabled = False O ~6%Iz `
!Yv_V]u=
} b&lHr'Uw
nqm=s nh
{MSE
}|A\V
Dim ParaType As String, rText As String oV
0T
UZ2_FP
Selection.WholeStory X F
vl
Selection.NoProofing = True 2Y23!hw
kuD$]A
Q`&
tm1 = Now jr? /wt w
dN)8r
ActiveWindow.View.Type = wdNormalView X<$Tn60,
tVEe) QX
NoSeries1(1) = "一" @$ Zh^+x!
NoSeries1(2) = "二" jD6HCIjd'
NoSeries1(3) = "三" $_E.D>5^%7
NoSeries1(4) = "四" OyF=G^w
NoSeries1(5) = "五" :sJ7Wok6~
NoSeries1(6) = "六" & h I!mo
NoSeries1(7) = "七" nOvR, 6
NoSeries1(8) = "八" 2cH RiRT
NoSeries1(9) = "九" <D ~hhGb
NoSeries1(10) = "十" G<n7 5!
NoSeries1(11) = "十一" A5TSbW']+5
NoSeries1(12) = "十二" 7I
X Wv-
NoSeries1(13) = "十三" ]}XDDPbZ}
NoSeries1(14) = "十四" {tUe(
NoSeries1(15) = "十五" wW1VOj=6V"
NoSeries1(16) = "十六" >kK@tJn
$R/@8qnP
W
NoSeries2(1) = "㈠" m^}|LB:5
NoSeries2(2) = "㈡" |HD>m'e
NoSeries2(3) = "㈢" dAx
? ,
NoSeries2(4) = "㈣" i[IFD]Xy!j
NoSeries2(5) = "㈤" ?$ e]K/*
NoSeries2(6) = "㈥" G?'^"ae"Z
NoSeries2(7) = "㈦" iX]OF.:
NoSeries2(8) = "㈧" p eO@ZKmM
NoSeries2(9) = "㈨" jJ$B^Y"4
NoSeries2(10) = "㈩" 2c 0;P
#ol
B_Q{B|eEt&
NoSeries5(1) = "①" ?J2A1iuq3
NoSeries5(1) = "②" 6/mz., g2
NoSeries5(3) = "③" Q_0+ N3
NoSeries5(4) = "④" =J Ice LL
NoSeries5(5) = "⑤" fq6Obh=A#
NoSeries5(6) = "⑥" z&amYwQcI
NoSeries5(7) = "⑦" `}l%61n0
NoSeries5(8) = "⑧" E 6TeZ%g
NoSeries5(9) = "⑨" = wdh# {
NoSeries5(10) = "⑩" '7sf)0\:<p
!q\=e@j-i
|p&EP2?T
NoSeriesRM(1) = "I" < -`.u`
NoSeriesRM(2) = "II" p{^:b6
NoSeriesRM(3) = "III" CF{b Yf^%
NoSeriesRM(4) = "IV" BX0lk
NoSeriesRM(5) = "V" @)6b
NoSeriesRM(6) = "VI" v
S>'LX
NoSeriesRM(7) = "VII" :^3 ) [.m
NoSeriesRM(8) = "VIII" cZ Ncplt8
NoSeriesRM(9) = "IX" Vb`Vp(>AU
NoSeriesRM(10) = "X" Y:ly x-lj
NoSeriesRM(11) = "XI" w Wb>V&3
NoSeriesRM(12) = "XII" | 6JKB'
NoSeriesRM(13) = "XIII" Hyy b0c^=
NoSeriesRM(14) = "XIV" .cHgYHa
NoSeriesRM(15) = "XV" `xLsD}32
NoSeriesRM(16) = "XVI" (yq e 4
9f( X7k t
i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) 5lG\ Z ?
[g/D<g5O
If i = vbNo Then |NZi2B u
Exit Sub M ONX&$
End If g2|Myz)
Wn(!6yid
If Me.chkSuper.Value Then Y0 a[Lb0
Me.txtStatus.Text = "检查修改所有的上标格式" ,SR7DiYg
SWV*w[X<X
CheckSuperScript 0vm> *M*p
k56Qas+3=
End If )OV 0YfO
:S0!
If Me.chkStyle.Value Then KUUA
>'=
Me.txtStatus.Text = "设置样式，请稍候...." Y7}T uy dC
DoEvents CW
&z?B ra
CeateOrModifyStyle !Zj ]0 ,^
End If a.Z@Z!*
g8##Be
ls^Z"9P
eut2x7Z(c
ClearDomain "CJ~BJI%
< #C,66k
8@m$(I +
PR.3EL
If Me.chkLIST.Value Then 5
3%>)gk:
Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" >o?v[:u*
v.-DXQq
ConvertListToOrdinary 4|`>}Nu
End If u;_h %z5K
<u!cdYo@
?7 aZU
Dim pType As String, trimpTEXT As String 1y'Y+1.<
If Me.chkNum.Value = True Then +)sX8zb*gY
Me.txtStatus.Text = "转换全角数字形式为半角" sE% $]Jp
ConvertWidth "１", "1" ^~YT<cJ1h
DoEvents mQ:{>`
ConvertWidth "２", "2" Ik0g(-d
DoEvents SV>tw`2
ConvertWidth "３", "3" oZvG Kf
DoEvents O:wG/et
ConvertWidth "４", "4" ? uq`| 1 `
DoEvents ApCU| *r)
ConvertWidth "５", "5"
]$@a.#}
DoEvents %lHHTZ{+
ConvertWidth "６", "6" G tI )O}
DoEvents ^?V Q$o2
ConvertWidth "７", "7" D!rPF)K
)
DoEvents W "'6 M=*
ConvertWidth "８", "8" 'E _~ |C
DoEvents k XSX<b <%
ConvertWidth "９", "9" XDemdM y$
DoEvents k8w\d+!v
ConvertWidth "０", "0" YZg#H) w%
DoEvents 4nsJZo#S/
ConvertWidth "ａ", "a" Q1,sjLO-a
DoEvents X2|~(*
ConvertWidth "ｂ", "b" n
qyD>>
DoEvents bC<W7q f]}
ConvertWidth "ｃ", "c" G\@pg;0|y
DoEvents XIdh9)]^}
ConvertWidth "ｄ", "d" .G O0xn
m
DoEvents *S.U8;*Xj
ConvertWidth "ｅ", "e" g_Z
tDxz
DoEvents 7Z6=e6/\
ConvertWidth "ｆ", "f" =fcg4h5(
DoEvents ~#pATPW@(
ConvertWidth "ｇ", "g" j7~FR{: j
DoEvents vgwpuRL5b
ConvertWidth "ｈ", "h" FH~:&;
DoEvents h[mT4 e3c
ConvertWidth "ｉ", "i" X;I9\Cp]!
DoEvents yix[zfQt0
ConvertWidth "ｊ", "j" )'djqpM.
DoEvents W;vNmg}mn
ConvertWidth "ｋ", "k" nuce(R
DoEvents gQn%RPMh
ConvertWidth "ｌ", "l" yKc-:IBb{u
DoEvents |6E_N5~
ConvertWidth "ｍ", "m" 2d&F<J<sU
DoEvents mO >L]<O
ConvertWidth "ｎ", "n" b:dN )m
ConvertWidth "ｏ", "o" &$MC!iMh
ConvertWidth "ｐ", "p" y{ ur'**l
ConvertWidth "ｑ", "q" QZzamT)"
ConvertWidth "ｒ", "r" q(KjhM
ConvertWidth "ｓ", "s" n4K! Wv&u
ConvertWidth "ｔ", "t" RzEzNV
ConvertWidth "ｕ", "u" G
KBoSSnV&
ConvertWidth "ｖ", "v" 4
b;Mb
ConvertWidth "ｗ", "w" ;*(-8R/
ConvertWidth "ｘ", "x" *1)>He$qL
ConvertWidth "ｙ", "y" i>m%hbAk
ConvertWidth "ｚ", "z" ^ ""edCs
ConvertWidth "Ａ", "A" UL+Txc
ConvertWidth "Ｂ", "B" SVCh!/qe\
ConvertWidth "Ｃ", "C" zHJCXTM
ConvertWidth "Ｄ", "D" owAO& "C
ConvertWidth "Ｅ", "E" @oXGa>Ru
ConvertWidth "Ｆ", "F" x? h/e;
ConvertWidth "Ｇ", "G" ]VI^
hhf
ConvertWidth "Ｈ", "H" zggnDkC5
ConvertWidth "Ｉ", "I" ^m>4<~/
ConvertWidth "Ｊ", "J"
1h, iWHC
ConvertWidth "Ｋ", "K" l1 +l@r\
ConvertWidth "Ｌ", "L" IKD{3cVL
ConvertWidth "Ｍ", "M" !_Lmrs
ConvertWidth "Ｎ", "N" ZEqW*piI
ConvertWidth "Ｏ", "O" ~ ld.I4
ConvertWidth "Ｐ", "P" \nl(tU#j
ConvertWidth "Ｑ", "Q" 3c<aI =$^
ConvertWidth "Ｒ", "R" Y
;Ym=
n'
ConvertWidth "Ｓ", "S" &G {GLP?H
ConvertWidth "Ｔ", "T" #ArrQeO 5_
ConvertWidth "Ｕ", "U" ;blL\|ch;
ConvertWidth "Ｖ", "V"
OH`a3E{ e
ConvertWidth "Ｗ", "W" D!j/a!MaKk
ConvertWidth "Ｘ", "X" l<=;IMWd
ConvertWidth "Ｙ", "Y" I7ao2aS
ConvertWidth "Ｚ", "Z" y{<e4{
!
ConvertWidth "^l", "^p" '/\
ConvertWidth "（", "(" RY-iFydPc
ConvertWidth "）", ")" Wg NA%.|,
X 4;U4pU#
End If ]!hjKu"
)2f#@0SVL
With ActiveDocument oF%m
Dim tbl As Table \/
bd
For Each tbl In .Tables h RkCB
tbl.Rows.Alignment = wdAlignRowCenter sI>w#1.m/&
tbl.Range.Font.NameFarEast = "楷体" ]*0zir /
tbl.Range.Font.NameAscii = "Times New Roman" @6
he!wW
tbl.Range.Font.Size = 10.5 so-5% S
Next Ob0sB@
Set tbl = Nothing g )hEzL0k
End With 15:9JVH3D
% 4~"$kE
>" W^|2R
With ActiveDocument G e k?+|m
q"d9C)Md
For i = 1 To .TablesOfContents.Count T KZtoQP%
.TablesOfContents(i).Delete bZowc {!\
Next oz!)x\m*H
6H#: rM
n
Kkpp-
dSDZMB sd
paraTotal = .Paragraphs.Count Az t rq
paraCounter = 1 ZFZ'&"+
~Ztn(1N
LastTitle0No = 0 4.9qB
LastTitle1No = 0 9q;O`&
LastTitle2No = 0 axQ>~v WN/
LastTitle3No = 0 '6N)sqTR
LastTitle4No = 0 ;,{ _=n>
LastTableNo = 0 r)<A YX]J
LastFigureNo = 0 ?9 huuJ s7
(4H\ho8+mp
Dim Sec As Long 4D65VgVDM
Ib(C`4%
Sec = InputBox("正文从第一节开始？", "节设置", 6) is;g`m
If Sec = 0 Then ?:R ]p2 ID
Exit Sub gM 96RY
End If |MNSIb&,W
jcCAXk055
k = 0 b4L7M1l
Do While (paraCounter < paraTotal) And bContinue `>"#d
?
,
k = k + 1 -}7$;QK&a
If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then PT>b%7Of
Exit Do 8h]
TI_
End If
1_Yx]%g<
paraCounter = paraCounter + 1 1]xmOx[mb
If k Mod 20 = 0 Then b(K"CL\p
Me.lbCounter.Caption = paraCounter z}vT8qoX
DoEvents F^l1WX6
End If f 3UCELJ
Loop =, XCjiBeC
`Vvi]>,cg`
!)a_@ d.;i
Do While (paraCounter < paraTotal) And bContinue r S@/@jKZE
(\: Rnl
ParaText = Trim(.Paragraphs(paraCounter).Range.Text) O-,
"/Z
ShapeHeight = 0 E%w^q9C
ShapeWidth = 0 3kxo1eb
Ip8ml0oG
CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth Nd0tR3gi7
(cj9xROx
Select Case ParaType w:\}
B'u
Case "【】表格内容" '_v~ +
.Paragraphs(paraCounter).Style = "QLNU表格内容" *7Vb([x4;
Case "章" ebA:Sq:w
LastTitle0No = LastTitle0No + 1 t<rIg1
'新一章开始，复位其下属标题编号 <Jgcj 4D
LastTitle1No = 0 hjL;B 'IL
LastTitle2No = 0 ~&Z>fgOTJ
LastTitle3No = 0 %lCZ7z2o
LastTitle4No = 0 !Fl'?Kz
B.N#9u-vW
k = Val(ttNo) ^Iw$ (
If k = 0 Then '非数字编号章节 o\8?CNm1(
If ttNo <> NoSeries1(LastTitle0No) Then Vb,V N?l
rText = "第" & NoSeries1(LastTitle0No) & ttString [ CQR
Me.ErrMsg.AddItem "章节编号错误：" & ParaText o N032o?S
End If ZSf &M
Else v , ")XPY
If Val(ttNo) <> LastTitle0No Then 217G [YE-
rText = "第" & LastTitle0No & ttString Y j oe|
Me.ErrMsg.AddItem "章节编号错误：" & ParaText JM7mQ'`Ud
End If VR (R.
*'((_ NZ>
End If :^7w
=Jm[1Mgt
'章段落设置 &nEL}GM)E
'字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 |k.'w<6mb9
.Paragraphs(paraCounter).Style = "QLNU章节" OnTe_JML
.Paragraphs(paraCounter).Range.Select }4 0T'y
Selection.EndKey unit:=wdLine
7)2K6<q
tc = Replace(rText, vbCr, "") P%|~Ni_BTX
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False yGR{-YwU!
Case "一级标题" hYoUZ'4
LastTitle1No = LastTitle1No + 1 &y!?R$?b
'新一级标题开始，复位其下属标题编号 kmC@\xTp
LastTitle2No = 0 ggD T5hb
LastTitle3No = 0 +byOThuE
LastTitle4No = 0 QF
P9"FM5F
N{%7O G
If ttNo <> NoSeries1(LastTitle1No) Then \_ Bj "K
rText = NoSeries1(LastTitle1No) & "、" & ttString l<6G Z
Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText 6ll!7U(9(
End If 8}|et~7!
Ty g>Xv
b,'O|s]"Sc
'一级标题段落设置 格式：一、标题内容 I
}P I
.Paragraphs(paraCounter).Range.Text = rText $d*9]M4
.Paragraphs(paraCounter).Style = "QLNU一级标题" GLsa]}m,9
.Paragraphs(paraCounter).Range.Select X%yG{\6:
Selection.EndKey unit:=wdLine !|[rh,e]
tc = Replace(rText, vbCr, "") nH#>_R
(
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False Y-
ao
yoNS
Case "二级标题" <- \|>r Q
LastTitle2No = LastTitle2No + 1 c!IZLaVAr9
'新二级标题开始，复位其下属标题编号
4)g G_k
LastTitle3No = 0 M=iTwK
LastTitle4No = 0 uSfHlN4l
n3ii W \
If ttNo <> NoSeries1(LastTitle2No) Then @:>]jp}uq
rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString \V-N~_-H
ErrMsg.AddItem "二级标题编号错误：" & ParaText 5f*_K6 ,v
End If R /=rNUe
#*g=F4>t
'二级标题段落设置 格式：(一)、标题内容 _ $a3lR
.Paragraphs(paraCounter).Range.Text = rText ^MpMqm1?8;
.Paragraphs(paraCounter).Style = "QLNU二级标题" |Y
uf/G%/
fl-J:`zyyZ
.Paragraphs(paraCounter).Range.Select @1*^ttC
Selection.EndKey unit:=wdLine +[G9PP6
tc = Replace(rText, vbCr, "") _w KwiJs
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 2 ", PreserveFormatting:=False 7( 84j5zb
ei5YxV6I
Case "三级标题" P<vl+&*
LastTitle3No = LastTitle3No + 1 Ks x-Y"
'新三级标题开始，复位其下属标题编号 xSudDhRP
LastTitle4No = 0 70qEqNoC
c!\Gj|
If Val(ttNo) <> LastTitle3No Then 0x<ASfka
rText = LastTitle3No & ". " & ttString |.)LZP,
Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText $9G&
wH>{
.`IhxE~mN
End If E&8N h J
'三级标题段落设置 格式：1. 标题内容 T]\
1gs41
.Paragraphs(paraCounter).Range.Text = rText GlJ[rD
.Paragraphs(paraCounter).Style = "QLNU三级标题" ~uhW~bT
.Paragraphs(paraCounter).Range.Select `jeATxWv
Selection.EndKey unit:=wdLine s&$?m [w
tc = Replace(rText, vbCr, "") $9YQ aN%
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 3 ", PreserveFormatting:=False :'T+`(
Case "四级标题" lrE"ph Yk
LastTitle4No = LastTitle4No + 1 9G[
DuYJI
!Q>xVlPVu
If Val(ttNo) <> LastTitle4No Then KkUK " Vc
rText = "(" & LastTitle4No & "). " & ttString
z@ `o(gh
ErrMsg.AddItem "四级标题编号错误：" & ParaText Y#@D%
a 8
)+L|<6J XA
End If ^Q#_
'四级标题段落设置 格式：(1). 标题内容 f7*Qa!!2p]
.Paragraphs(paraCounter).Range.Text = rText e(s0mbJE
.Paragraphs(paraCounter).Style = "QLNU四级标题" N[cIr{XBGN
.Paragraphs(paraCounter).Range.Select ! t!4CY
Selection.EndKey unit:=wdLine DQ8/]Z{H
tc = Replace(rText, vbCr, "") @@ H/q
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 4 ", PreserveFormatting:=False 8 -<F4^i_i
S})f`X9_}
Case "表格标题" qU#A,%kcV
LastTableNo = LastTableNo + 1 1i#y>fUj
!SK`!/7c?
If ttNo <> CStr(LastTableNo) Then at?I @By
rText = "表" & LastTableNo & ". " & ttString r:sa|+
ErrMsg.AddItem "表格编号错误：" & ParaText S]@;`_?m{
8oE` >Y
End If !/,oQoG
43k'96[2d
'表格名称段落设置 格式：表1. 表格名称 SA 'g`
.Paragraphs(paraCounter).Style = "QLNU表格标题" ' ayb`
xe = Replace(rText, vbCr, "") B=O zP+
.Paragraphs(paraCounter).Range.Select $T K*w8@:
Selection.MoveEnd wdCharacter, -1 '选择范围包括行尾的换行符。 bhD-;Y!6;
Selection.Range.Text = xe -Y524
Selection.EndKey \~8W0q.4M
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False ~ g!!#ad
,6]ID1o:y
Case "表格首行" = 9Yf o,F
.Paragraphs(paraCounter).Style = "QLNU表格首行" VKPE oy8H
Case "图片标题" 3u
j|jw L
LastFigureNo = LastFigureNo + 1 4P#jMox
-n 7 @r
If ttNo <> CStr(LastFigureNo) Then /}1|'?P
rText = "图" & LastFigureNo & ". " & ttString < h #7;o
ErrMsg.AddItem "表格编号错误：" & ParaText o1#3A
HsYzIQLL
End If rd&d~R 6
'图片名称段落设置 格式：图1. 图名称 _Yo)m |RaB
.Paragraphs(paraCounter).Range.Text = rText 0y$VPg sKf
.Paragraphs(paraCounter).Style = "QLNU图片标题" N/F_,>E
.Paragraphs(paraCounter).Range.Select T"P}` mT
Selection.EndKey unit:=wdLine ~U w<e~
xe = Replace(rText, vbCr, "") Hx6O Dj[-
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False ]0'cdC
Case "正文" A o* IshVh
'正文名称段落设置 /{l_tiE7
.Paragraphs(paraCounter).Style = "QLNU正文" 6)sKg{H
Case "文献条目" %( OP
[
With .Paragraphs(paraCounter) /\Nc6Z/ L
'.Range.Select Vl+UC1M}B>
'Selection.ClearFormatting EPW4
h/I
'.Range.Find.Execute findtext:=rText, replacewith:=strSeperator 'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” T%.Y so{
.Style = "QLNU参考文献" >e;jGk?-
End With /
xv5we~
Case "图表注解" ,JI] Eij^
With .Paragraphs(paraCounter) z(c8] Wu#
.Range.Font.NameFarEast = "楷体" 97 S S0J
.Range.Font.NameAscii = "Times New Roman" \X\< +KU
.Range.Font.Size = 9 '小5号字 } Nn+Ny
8 /p ]'BLf
.Alignment = wdAlignParagraphCenter P8=|#yCi
.LeftIndent = 0 8L:AmpQdpA
.RightIndent = 0 &M5v EPR
.FirstLineIndent = 0 GTB\95j]
.LineSpacing = 12 }],l m
.LineSpacingRule = wdLineSpaceExactly *-*V>ntvT$
.LineUnitAfter = 0 xpp nBnu$7
.LineUnitBefore = 0 >A {e
,&
.OutlineLevel = wdOutlineLevelBodyText P 4)Q5r
.PageBreakBefore = False I wj[ ^
.RightIndent = 0 L[44D6V g
.WordWrap = True waz5+l28
.LineUnitAfter = 0.5 o,j_eheAM
zU[o_[+7^
End With dlyGgaV*X
Case Else fahQ^#&d`
'不作处理 QN;5+p[N
End Select O: I]v@
n]vCvmt
'含有inlineshape的段落处理 >#n"r1
If ShapeHeight > 30 Then m K TF@DED
.Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle '对有图片的段落设置为单倍行距 #3Z AMV
End If @
G]*]rkKb
m~;.kc
If (ShapeWidth + ShapeHeight) > 150 Then "E7<S5 cr
.Paragraphs(paraCounter).Style = "QLNU图片段落" e\ (X:T
End If hwk] ;6[
>4bw4
Z1
'段落计数器递 :!Z |_y{b
paraCounter = paraCounter + 1 jSBz),.XU}
Me.lbCounter.Caption = "当前检测段落：" & paraCounter M&=SvM.f
Me.txtStatus.Text = ParaText
vC]r1q.(
DoEvents ms w'n
Loop
|63uoRr
End With 5fs,UH
Y\<w|LkD8
msg = "" B}NJs,'FJ
ga KZ 4#
For i = 0 To Me.ErrMsg.ListCount - 1 7gLk~*
msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) Ax|'uvVAPT
Next ((AK7hb
4D 5Wse
D',7 T=C
e4_A`j'
Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg ?.ObHV*k
Me.cmdCheck.Enabled = True :xmj42w>^
Me.txtStatus.Visible = True <
%^WZ:c
Me.lbParaType.Visible = False g_PP 9S_?
8d1qRCIz
bContinue = False ^Rl?)_)1HE
End Sub #N` MzmwS
5mVO9Q j
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) YG?4DF
Dim pTEXT As String &B :L9^
^^k9Acd~p
pTEXT = ChKRange.Text LdOqV'&r
!iHC++D
ParaType = "其它" ' rXf
TitleString = pTEXT f3vl=EA4|
TitleNo = "N/A" NH5sV.vvc
1fJ~Wp @1
shpCounter = ChKRange.InlineShapes.Count ~U7B o(EJp
If shpCounter <> 0 Then ?~sNu k
MaxShpHeight = 0: TotalShpWidth = 0 Y]~- S
For i = 1 To shpCounter b'FT y i
k = ChKRange.InlineShapes(i).Height irw5<l
l = ChKRange.InlineShapes(i).Width 2xi; 13?
If k > MaxShpHeight Then 82)=#ye_ P
MaxShpHeight = k ( +
S -
End If :SwA) (1
TotalShpWidth = TotalShpWidth + l |ggtb\W
Next => o !
If MaxShpHeight > 60 Or TotalShpWidth > 150 Then V]]!0ugvk(
Exit Sub ~c+ =$SL-=
End If z<P?p
End If SG~Hz
Q\%
uDcs2^2l
'空行 2>.b~q@
If Len(pTEXT) <= 2 Then ?|oN}y"i
Exit Sub G{|"WaKW
End If 3KeY4b!h
M4;M.zxJv
Z9h4 pd
'是否为表格中的文字 fGH)Fgo`
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then zZ Y1E @~
ParaType = "表格内容" 'lEIwJ V$
k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) 2ER _?y
If k = 1 Then $\k)Y(&
ParaType = "表格首行" K5<2jl3S
End If AL&<SxuP
Exit Sub vG)B}`M
End If ET H
($$M
3DCR n :
'例外情况：脚注 7Kj7or|
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then %WP[V{,F
ParaType = "脚注" ME)='~E
Exit Sub lHliMBSc
End If $t6t 6<M )
3,!IV" _
'例外情况：尾注 M/xm6
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then n0K+/}m
ParaType = "尾注" xe.f
]a
Exit Sub #5^OO ou|
End If x U{0rM"
AU}|o0Ur
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then yI!W658$6
ParaType = "页眉页脚" xVI"s BUu
Exit Sub X mb##
:
End If e< 8KZ
iB~dO @
]f`UflMO8
With regEX GVf[H2%H
.Global = True 2h}FotlO
a~!7A
ZT-O
.Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" VD! P F'
If regEX.Test(pTEXT) Then Gw6Od j
ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") vy7?]}MvV
TitleString = regEX.Replace(pTEXT, "$3") 8
t7r^[T
TitleNo = regEX.Replace(pTEXT, "$1") &liFUP?
ParaType = "章" KB^GC5L>
Exit Sub T gLr4Ex
End If "WPWMQ+
F7=\*U
.Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" U3M; {_g
If regEX.Test(pTEXT) Then XCgC^c'
ParaType = "一级标题" @.dM1DN)
regEX.Execute (pTEXT) ?}uvpB1}
ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") \|4
F? Y
TitleString = regEX.Replace(pTEXT, "$3") OB+ cE4$
TitleNo = regEX.Replace(pTEXT, "$1") |1<B(iB'{/
Exit Sub uzp\<\d-t
End If E=bZ4 /
n c. P
'全角或半角括号中的数字 n(n7 "+B
.Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" I;<_ _
If regEX.Test(pTEXT) Then gId
:IR
ParaType = "二级标题" nkN2Bqt$
regEX.Execute (pTEXT) ) 5x$J01S
ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") D51O/.: U2
TitleString = regEX.Replace(pTEXT, "$5") Pc+,iK>
TitleNo = regEX.Replace(pTEXT, "$2") _? $')P|
Exit Sub z,!A4ws
End If t`Xx\
, d
HAD
'阿拉伯数字 1. 2. h
PKut x
.Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" A~s6~
If regEX.Test(pTEXT) Then f7%g=0.F
ParaType = "三级标题" Tjj27+y*\
regEX.Execute (pTEXT) wSALK)T1{
ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 SM<qb0
TitleString = regEX.Replace(pTEXT, "$3") a94 nB
TitleNo = regEX.Replace(pTEXT, "$1") K)\D,5X^
Exit Sub d (5j#?
End If S4E@w Li
'1G0YfG}n
'全角或半角括号中的阿拉伯数字 OaByfo<S
.Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" gaU^l73 ,C
If regEX.Test(pTEXT) Then g ZE S}]N
ParaType = "四级标题" 5mZ 9rLn
regEX.Execute (pTEXT) V Kc`mE
ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5")
ILHn~d IC
TitleString = regEX.Replace(pTEXT, "$5") 3m~3l d
TitleNo = regEX.Replace(pTEXT, "$2") :1
9s=0
Exit Sub 5[" n] i
End If cvpZF5mL]U
N B8Yn\{B
'表格名称 pC&i!la{o}
.Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" n@oSLo`k,`
If regEX.Test(pTEXT) Then nX h<+7
ParaType = "表格标题" [eDR ghK
regEX.Execute (pTEXT) u b@'(*
ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) Z#GR)jb+
TitleString = Trim(regEX.Replace(pTEXT, "$3")) eI -FJ/CJ
TitleNo = Trim(regEX.Replace(pTEXT, "$1")) n*~#]%4
strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 V%^d~^m,H
Exit Sub mm
| *
End If #yCnM] cEn
tg ~7^(s
'图片名称 ]go
.IfH
.Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" 9q^7%b,
If regEX.Test(pTEXT) Then K=P LOC5
ParaType = "图片标题" :mdoGb$ dr
regEX.Execute (pTEXT) +: J:S"G
ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") "x3!F&
TitleString = regEX.Replace(pTEXT, "$3") b#S-u }1PE
TitleNo = regEX.Replace(pTEXT, "$1") On@p5YRwW
Exit Sub `K2vG`c
End If %!L*ec%,
a
uve&y"R
'参考文献 CZCVC (/u
.Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})" '[数字]、 ?xE'i[F @
If regEX.Test(pTEXT) Then I%0J=V;o{
ParaType = "文献条目" | fn%!d `2
'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") S2= x,c$
'TitleNo = regEX.Replace(pTEXT, "[$2] ") '? E@H.""
Exit Sub $K 1)2WG
End If Hxj8cX UF|
?Xp+5{
prfx = Left(pTEXT, 2) D VBsRV)/
If prfx = "注：" Or prfx = "注:" Then w#s P5qKv8
ParaType = "图表注解" 1fh6A`c
Exit Sub n+'s9
End If 8PGuZw<
Q0""wR q '
NE@P8pQ>
ParaType = "正文" !Ome;g S)
^687U,+
End With .n}k,da@(
End Sub iz`ys. Fu
[} %=& B
Sub ConvertListToOrdinary() l-'\E6grdH
Dim st As Paragraph h*mKS -TC
With ActiveDocument _<)HFg6
For i = .Paragraphs.Count To 1 Step -1 z)*\njYe
Set st = .Paragraphs(i) lF$$~
G
lst = st.Range.ListFormat.ListString H|cxy?iJ
If lst <> "" Then OJLyqncw
st.Range.ListFormat.RemoveNumbers m&Y?]nbq
st.Range.InsertBefore lst & " " ve*6WDK,H
End If d5=yAn-+=
Next tQ2S*]"f
End With (=s%>lW|
Set st = Nothing &KeD{M%
End Sub D._7)$d
fydQaxCN D
Private Sub UserForm_Activate() k%LsjN.S
Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" +AOpB L'
Me.lbTotal.Font.Bold = True
#@L<<Q8}
Me.txtStatus.Visible = False ~A>-tn}O
Me.cmdCheck.Enabled = True R9Y{kk0M
dQ Ao~] B
End Sub 3^ F1 hCB
wV{VV?h}
2AjP2
Sub CheckSuperScript() 0MOn
>76$N
Selection.Find.ClearFormatting 3,@|kN<
Selection.Find.Replacement.ClearFormatting CDFkH
With Selection.Find DJH,#re>
.Text = "[【\[［〖](*)[】\]〗］]" [\"<= lb`
.Replacement.Text = "[\1]" p;vrPS
.Replacement.Font.Superscript = True \H/}| ^+@
'.Replacement.Font.Color = wdColorBlue 5S #6{Y =
.Forward = True j1dz'G}hj
.Wrap = wdFindContinue i# Fe`Z ~J
.FORMAT = True RgVg~?A@
.MatchCase = False oeG?2!Zh
.MatchWholeWord = False v/G^yZa
.MatchByte = False jx];=IC3tt
.MatchAllWordForms = False 1h ?:gOig
.MatchSoundsLike = False *zDL 5
9
.MatchWildcards = True MPJ0>Ly
End With }ev+WIERQV
Selection.Find.Execute Replace:=wdReplaceAll S%w67sGl4n
End Sub HK.Si]
:
I8:G:s:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) |Lz7}g=6
bContinue = False m P ^*nB@,
Set regEX = Nothing 4"V6k4i5
End Sub Eqt>_n8
Dzw>[
Sub CeateOrModifyStyle() 2ZQ|nwb7
' IpsV4nmnz-
' d%ncI0f`
Dim stl As Style S!~p/bB[+I
O}[){*GG=
Options.Pagination = False z%/<|`
7
8t& 'Yk
On Error Resume Next + hMF\@
For Each stl In ActiveDocument.Styles h &IF ?h
stl.Delete d|$-l:(
J
Next D+Z,;XZ
On Error GoTo 0 k%({<
ul
_dn*H-5hO
Set stl = Nothing
1);E!D[
+D#.u ^
DoEvents q%Lw#f
On Error Resume Next i &,1
;0E[ ;
L!
ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph H ~ =;yy
ZF;s`K)
ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph SQf.R%cg$
ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph d/Fy0=0
l65Qk2<YC
ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph :N:e3$c
ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph ~fly6j|u
O>arC r= H
ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph vb k4
ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph q62U+o9G
ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph ]\J(
ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph a(+u"Kr
z
ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph 7e<\11uI]a
ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph @S Quc
ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph M
cbiO)@I
X0%BE!
ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph } 71 9_DF
ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph <+;
cgF!+
ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph AKKVd%
P(
ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph U{-[lpd
ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph *(Us:*$W.
q&EwD(k
ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph qk\LfRbj
On Error GoTo 0 V4x6,*)e
DoEvents LwEc*79
\&%y4=y<sE
'BaseStyle H AM ps[D[
ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False >4AwjS }H
With ActiveDocument.Styles("BaseStyle").Font PAy7b7m~B
.NameFarEast = "宋体" Yk#$-"c/a
.NameAscii = "Times New Roman" P, SI0$Z
.NameOther = "宋体" G)y'ex k
.Size = 10.5 VV=6v;u`
.Bold = wdUndefined C<iOa)_@Q
.Italic = wdUndefined 0,[- 4m
.Subscript = wdUndefined AG,;1b,:81
.Subscript = wdUndefined %J|
xPp)
m:5bb 3
.Underline = wdUnderlineNone iM s(Ywak]
.UnderlineColor = wdColorAutomatic ~2?U
Ev6
.StrikeThrough = False [$%0[; jtS
.DoubleStrikeThrough = False e\i}@]
4S,/Z{ J.
.Outline = False )N]%cO(^
.Emboss = False ,koG* sn
.Shadow = False <e' l"3+9(
.Hidden = False ))#_@CwRr
.SmallCaps = False M% FKg/
.AllCaps = False ~Uaz;<" j0
.Color = wdColorAutomatic [IW6F
.Engrave = False ^VlPnx8y=
.Scaling = 100 *Ja,3Qq
.Kerning = 1 T
^z M m
.Animation = wdAnimationNone VufG7%S{
.DisableCharacterSpaceGrid = False kZvh<NFh_
.EmphasisMark = wdEmphasisMarkNone 7#iT33(3
End With 3O'X ;s2\d
With ActiveDocument.Styles("BaseStyle").ParagraphFormat Ph C{Gg
.LeftIndent = 0 ,DWC=:@X
.RightIndent = 0 97SG;
,6
.SpaceBefore = 0 .2 STBh.;
.SpaceBeforeAuto = False <<9Y=%C+
.SpaceAfter = 0 jh.e&6
.SpaceAfterAuto = False b 'y W+
h5m6 )0"
.LineSpacingRule = wdLineSpaceSingle sh 8(+hg
.Alignment = wdAlignParagraphJustify KXga {]G:
+N!!Z2
.WidowControl = False %p.hwgvnp
.KeepWithNext = False %c,CfhEV%&
.KeepTogether = False m3iB`
.PageBreakBefore = False >{kPa|
.NoLineNumber = False gT4H?
#UB
3+#
"4O
.FirstLineIndent = CentimetersToPoints(0) |oJ R+
.OutlineLevel = wdOutlineLevelBodyText l IL{*q(
.CharacterUnitLeftIndent = 0 h}(GOY S)
.CharacterUnitRightIndent = 0 aQhr$aH
.CharacterUnitFirstLineIndent = 0 Ry iS
.LineUnitBefore = 0 AZjj71UE
.LineUnitAfter = 0 } T<oL vS
.AutoAdjustRightIndent = True cK+y3`.0
.DisableLineHeightGrid = True 'QEQy J0EB
O\qY? )
.FarEastLineBreakControl = True e.^Y4(
.WordWrap = True h\$juIQa
.Hyphenation = False nXF|AeAco
$ *^E
.HangingPunctuation = True {uMqd-Uu
.HalfWidthPunctuationOnTopOfLine = True )v?-[
oR
.AddSpaceBetweenFarEastAndAlpha = True Yo#F ;s7
.AddSpaceBetweenFarEastAndDigit = True IpMZ{kJlv`
.BaseLineAlignment = wdBaselineAlignBaseline AehkEN&H/t
End With <S%kwS
ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False ) "To h=x]
ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll Qz?r4kR
ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese H>2f M^
ActiveDocument.Styles("BaseStyle").NoProofing = False w*s#= ]6
jF%[.n[BU
'一级标题题样式 Z8Il3b*)
ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ( -rw]=Qu
ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" N?;5%p G
<
ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False 2VNfnk
With ActiveDocument.Styles("QLNU一级标题").Font auT$-Ki8
.NameFarEast = "黑体" C:d$
.NameAscii = "Arial Black" t#[u
X?
.NameOther = "黑体" ;P4tqY@
.Name = "黑体" jo8;S?+<|?
.Size = 16 '三号 hV4B?##O
.Bold = True *]_GFixi
.Italic = wdUndefined k/ ZuFTN
.Subscript = wdUndefined )|zna{g\
.Superscript = wdUndefined ` m Tc
End With -a$7b;gF
With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat 6
bnuC
w~( x*R}
.LeftIndent = CentimetersToPoints(0) ZIrJ"*QO=
.RightIndent = CentimetersToPoints(0) Nd4!:.
.FirstLineIndent = CentimetersToPoints(0) )C C rO
ka j6C_k|
.LineSpacingRule = wdLineSpaceSingle (" >gLr
.Alignment = wdAlignParagraphCenter ePJtdKN
:
ZM%z"hO9R
.WidowControl = True g$ oe00b
.KeepWithNext = True -'!%\E;5
.KeepTogether = True nob^
I 5?
.OutlineLevel = wdOutlineLevelBodyText IW'2+EGc
g"Z X1X
.LineUnitBefore = 0.5 R 7 *ek_
.LineUnitAfter = 0.5 Bswd20(w
End With \3@A C7
ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False i\?P>:)
ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll NTtRz(
ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese Qvd$fY**
ActiveDocument.Styles("QLNU一级标题").NoProofing = True A?xb
u*zV,
DoEvents
S*1Km&
6|D,`dk3U
'二级 A{Q :,S)
ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") (^Kcyag4
ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" %Sdzr!I7*
ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False /RmHG
H!
With ActiveDocument.Styles("QLNU二级标题").Font :{v:sK
.NameFarEast = "黑体" S oa5TM
.NameAscii = "Arial Narrow" R?Or= W)i
.NameOther = "黑体" [o Q&}3\XJ
.Name = "黑体" '
{:Yg3K
.Size = 15 '小三号 jHx<}<
.Bold = False cAE.I$T(
.Outline = False W}5 H'D
.Italic = wdUndefined ;|LS$ O1c
.Subscript = wdUndefined 8HLcDS#
.Superscript = wdUndefined h7S&tW GU
End With sR. ecs+
With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat .1F^=C.w
.LeftIndent = CentimetersToPoints(0) q: 1_D>
.RightIndent = CentimetersToPoints(0) 5Y&s+|
.FirstLineIndent = CentimetersToPoints(0) k98}Jx7J)"
o[!g,Gmoh
.LineSpacingRule = wdLineSpaceSingle ZSTpA,+6
.Alignment = wdAlignParagraphLeft ^f,('0p- >
zSi SZMP"
.WidowControl = True 9GZKT{*
.KeepWithNext = True + $+'|w
.KeepTogether = True q(yw,]h]{
.PageBreakBefore = False emV@kN.
.OutlineLevel = wdOutlineLevelBodyText ,J cQp=g
cKX6pG
.LineUnitBefore = 0.5 d6.9]V?
.LineUnitAfter = 0.5 hFjXgpz5
FT*
o;&_QS
End With yv< 0fQ
ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False t*)-p:29h
ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll
-vfV;+3
ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese k'BLos
1W
ActiveDocument.Styles("QLNU二级标题").NoProofing = True Cu\A[6g,
DoEvents ~4mgYzOmD`
ya'@AJS
'三级标题样式 X~Li`
ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") |^ml|cb
ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" N+?kFob
ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False s.rS 06x
With ActiveDocument.Styles("QLNU三级标题").Font mdOF0b%-]
.NameFarEast = "宋体" t
_Q/v
.NameAscii = "Times New Roman" K`@GN T&
.NameOther = "黑体" i%W,Y8\uf*
.Name = "黑体" LTY@}o]\U
.Size = 14 '四号 }q( IKH\&
.Bold = False By@<N [I@
.Outline = False .JpYZ |
.Italic = wdUndefined &:-`3J-
.Subscript = wdUndefined >29eu^~nh
.Superscript = wdUndefined MQQ!@ I`
End With X!n-nms
With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat G2k r~FG
.LeftIndent = CentimetersToPoints(0) [ JGa 3e
.RightIndent = CentimetersToPoints(0) O329Bkg
.FirstLineIndent = CentimetersToPoints(0) m)q;eQs
*4^!e/
.LineSpacingRule = wdLineSpaceSingle i)0*J?l=
.Alignment = wdAlignParagraphLeft c(bh i
I@ch 5vl4
.WidowControl = True ~`M GXd" o
.KeepWithNext = True @Ns^?#u~
.KeepTogether = True 'lv\I9"S)
.PageBreakBefore = False 9`)NFy ?
.OutlineLevel = wdOutlineLevelBodyText xnu|?;.}!
h. QKbbDj
.CharacterUnitLeftIndent = 0 N2} ].}
.CharacterUnitRightIndent = 0 Y:VM 5r)
.CharacterUnitFirstLineIndent = 2 1GW =QbO 6
%&^F.JTt\
.LineUnitBefore = 0.5
%f@VOS
s
.LineUnitAfter = 0 H+; _fd
End With 7;n'4LIa9
ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False OZ_'& CZ
ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll hSD)|
ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese L vc*L6
ActiveDocument.Styles("QLNU三级标题").NoProofing = True S[NV-)r=
DoEvents fj 19U9R
ZBJYpeGe
'四级标题样式 oj<.axA,
ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") +gOCl*L
ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" Ah &D5,3
ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False m \4jiR_o
With ActiveDocument.Styles("QLNU四级标题").Font fh
\<tnY
.NameFarEast = "宋体" { >Y< !
.NameAscii = "Times New Roman" T.HI
$(d
.NameOther = "宋体" 11
.RG
*
.Name = "宋体" _-Aw`<_*-
.Size = 12 '小四号 F5J=+Q%8[&
.Bold = True u:N/aaU=
.Outline = False 5-w6
(uu
.Italic = wdUndefined 9h$-:y 3
.Subscript = wdUndefined %.b)%=
.Superscript = wdUndefined q]5"V>D \
End With $<]y.nr|CX
With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat -Tk~c1I#`
QHsS|\u
.LeftIndent = CentimetersToPoints(0) >.#uoW4ZV
.RightIndent = CentimetersToPoints(0) y6; '?.Y1
.FirstLineIndent = CentimetersToPoints(0) $+ZO{
(
mY b8
.LineSpacingRule = wdLineSpaceSingle B\}E v &
.Alignment = wdAlignParagraphLeft )j@k[}R#g
~?6V -m{>#
.WidowControl = True gzP(Lf I5
.KeepWithNext = True P7 E}^y`e
.KeepTogether = True q[q#cY:0
.PageBreakBefore = False &^4W+I{H
.OutlineLevel = wdOutlineLevelBodyText d?&?$qf[
i<1w*yu
.CharacterUnitLeftIndent = 0 sj`9O- ?49
.CharacterUnitRightIndent = 0 {:Z # 8dGe
.CharacterUnitFirstLineIndent = 2 P,~a'_w:|D
.dp~%!"Sn,
.LineUnitBefore = 0 [ 8SW0wsk
.LineUnitAfter = 0 PF!Q2t5c3
G_[|N>
End With OR( )D~:n
ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False >lyUr*4PX
ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll $Kb-mFR
ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese r[M]2h
ActiveDocument.Styles("QLNU四级标题").NoProofing = True i2$U##-ro]
DoEvents ,+*8 @>c
(1(3:)@S6
'正文校式 dp2".
ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") d+ih]?
ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" 8R:H{)o~s}
ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False 6yTL7@V|B
With ActiveDocument.Styles("QLNU正文").Font #joU}Rj|
t3Q;1 #Zf
.NameFarEast = "宋体" GwwxSB&y
.NameAscii = "Times New Roman" 2X)E3V/*
.NameOther = "宋体" !hF b <
.Name = "宋体" &6MGPh7T
E] t:_v
.Size = 12 '小四号 3 T Q#3h
_:M6~XHo
.Bold = wdUndefined ez 86 +
.Italic = wdUndefined =YZp,
{T
.Subscript = wdUndefined J*,Ed51& 7
.Superscript = wdUndefined eJ%~6c`@!
,h5.Si>
.Outline = False v<tH 3I+
.Emboss = False Iu(T@",Q#
.Shadow = False C3bZ3vcW$
.Hidden = False $1
\<>sJH
KL.{)b i
.DisableCharacterSpaceGrid = True yi# Nrc5B
End With ahS*YeS7
With ActiveDocument.Styles("QLNU正文").ParagraphFormat 9|Jmj @9
R`Z U'|
.LeftIndent = CentimetersToPoints(0) ERGDo=j
.RightIndent = CentimetersToPoints(0) xv 7^
.FirstLineIndent = CentimetersToPoints(0) 2v`VtV|B
`Xmf4
.LineSpacingRule = wdLineSpaceExactly J`} /+WN 7
.LineSpacing = 20 zG@9-s* L
.Alignment = wdAlignParagraphLeft ?$;_a%v6
KzeA+PI
.WidowControl = False Si*Pi
.KeepWithNext = False 6l [T Q
.KeepTogether = False b\gl9
"
X
.PageBreakBefore = False O`t ]#
.Hyphenation = False TR{8A^XhE8
+2B{"Czm
.OutlineLevel = wdOutlineLevelBodyText 52l|
#&r^~>,#L-
P!B\:B%4~]
.CharacterUnitLeftIndent = 0 ?8! 4!P%n
.CharacterUnitRightIndent = 0 A~I}[O~(pb
.CharacterUnitFirstLineIndent = 2 ^ 67P(h
>|@ /GpD
.LineUnitBefore = 0 ]v 94U b
.LineUnitAfter = 0 ` z5j
.SpaceBefore = 0 1uMnlimr
.SpaceAfter = 0 !&E>8h
|m k $W$h
.DisableLineHeightGrid = True -&))$h3o\
End With
pR 1 v^m|
ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False PM =
I
ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll vT%r g r
ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese :XB eGNI*#
ActiveDocument.Styles("QLNU正文").NoProofing = True I^M3>}p
DoEvents pwd7I
St P6G ]x
'图片段落样式 A[ /0on5r
ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") !pw%l4]/t
ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" yql+N[
ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False
$hn_4$
With ActiveDocument.Styles("QLNU图片段落").Font ;5" r)F+P
.Size = 12 '小四号 }[D~#Z!k
.Italic = wdUndefined pVt- 7 AgW
.Subscript = wdUndefined [:g6gAuh,
.Superscript = wdUndefined v]U[7 j
End With Ao`9 fI#q
With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat N;-+)=M,rf
^;W,:y&
.LeftIndent = CentimetersToPoints(0) 3Eiy/
.RightIndent = CentimetersToPoints(0) IH[/fd0
.FirstLineIndent = CentimetersToPoints(0) _rs!6tp
"O h-`C
.LineSpacingRule = wdLineSpaceSingle cy^ 6g? ew
.Alignment = wdAlignParagraphCenter 9<[RXY
.KeepWithNext = True >\} 2("bv
.OutlineLevel = wdOutlineLevelBodyText 0[PP Vr:
RJF1~9
.CharacterUnitLeftIndent = 0 N1P [&lR
.CharacterUnitRightIndent = 0 faD
(, H
.CharacterUnitFirstLineIndent = 0 EW#.)@-
./5|i*ow
.LineUnitBefore = 0 7 9:x>i=
.LineUnitAfter = 0 LL9Mt y,
End With fR aVY`|wK
ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False \ )y5~te*
ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll 8-juzL}
ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese X[NsdD?w1+
ActiveDocument.Styles("QLNU图片段落").NoProofing = True tPC8/ntP8
DoEvents go2:D#mf
L-@j9hU{
YIgzFt[L
'第X章 Xd|@w{.m*
ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") "M_X9n_
ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" 4w]u: eU
ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False A{5 k}
With ActiveDocument.Styles("QLNU章节标题").Font {U^mL6=&v
.NameFarEast = "黑体" W1r- uR
.NameAscii = "Arial Black" 7ou2SL}k
.NameOther = "Arial Black" 1#]tCi`
.Name = "黑体" RF g $N@g,
.Size = 16 ?PyI#G
.Bold = True D\j 1`
.UnderlineColor = wdColorAutomatic `U(A 5
.Outline = False )u\"xxcV
.Italic = wdUndefined G:u[Lk#6K
.Subscript = wdUndefined 3 iH! ;`i
.Superscript = wdUndefined HewVwD<C
.Scaling = 100 ,D
;`t
.DisableCharacterSpaceGrid = True C&<f YCwG
End With 2l AuO!%
With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat z56W5g2
.LineSpacingRule = wdLineSpaceSingle YaSwn3i/@S
.Alignment = wdAlignParagraphCenter 8C4 Ty ms
.WidowControl = True A3'i
-
.KeepWithNext = True ZwO&G\A^
.KeepTogether = True lP9a * >=a
.PageBreakBefore = True Om >6<3n
.OutlineLevel = wdOutlineLevelBodyText 1K ^/@^
",&}vfD4M
.LeftIndent = CentimetersToPoints(0) N ?V5gi
.RightIndent = CentimetersToPoints(0) $vGl Z<3g
.FirstLineIndent = CentimetersToPoints(0) #0G9{./C
_k5KJKvr
.CharacterUnitLeftIndent = 0 'cH),~ z
.CharacterUnitRightIndent = 0 /,E%) K;
.CharacterUnitFirstLineIndent = 0 ZW+{<XTof4
&z1r$X.AW
.LineUnitBefore = 1 z?j~ 2K<4
.LineUnitAfter = 0.5 M9bb, `X>Q
BR5 $;-7W
.AutoAdjustRightIndent = False fB
.DisableLineHeightGrid = True ,@Ed)Zoh
.FarEastLineBreakControl = True ;EL!Tz L:8
.WordWrap = True "~d) $]+
End With qZ_^#%zO
ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False 7zR 7v
ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll v`y{l>r,
ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese 3gv>AgG
ActiveDocument.Styles("QLNU章节标题").NoProofing = True hbE;zY%hP
DoEvents <0R?#^XBZB
*R xb qB-
'表格标题 d b.iMBki
ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") mjBX
a
ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" x0 Tb7y`
ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False a}jaxGy
With ActiveDocument.Styles("QLNU表格标题").Font /Pg66H#RUf
.NameFarEast = "楷体" iOki ZN+d>
.NameAscii = "Arial" KkAk(9Q/3
.Name = "楷体" C@]Z&H;
.Size = 10.5 r(cS{oni
.Bold = True F P
mLost
.Underline = wdUnderlineNone q3s cz
.Italic = wdUndefined VEb}KFyP
.Subscript = wdUndefined y3;G<9K2c]
.Superscript = wdUndefined AU-/-h=Mr
.Color = wdColorAutomatic Q*mPU=<
End With VWLou
jB
With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat & r\z9!
O%0G37h
.LineSpacingRule = wdLineSpaceSingle $G*$ j!
.Alignment = wdAlignParagraphCenter [|k@Suv |z
.KeepWithNext = True qMI %=@=
.KeepTogether = True @*%5"~ F
.OutlineLevel = wdOutlineLevelBodyText oh& P Q{
x :sTE u@
.LeftIndent = CentimetersToPoints(0) *e
_ /D$SC
.RightIndent = CentimetersToPoints(0) ]lZ!en
.FirstLineIndent = CentimetersToPoints(0) %\r4c *O1q
V-7 !)&q
.CharacterUnitLeftIndent = 0 l Fzb$k}_{
.CharacterUnitRightIndent = 0 (O& ooM* o
.CharacterUnitFirstLineIndent = 0 +Icg;m{
o5Pq>Y2T
.LineUnitBefore = 1 _4%+TN6z
.LineUnitAfter = 0 A`X$jpAn&
HpNf f0c
End With 8
A %)m
ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False P_&2HA,I
ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll LAMTf"a
ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese 9-bDgzk
ActiveDocument.Styles("QLNU表格标题").NoProofing = True 6wnfAli.
DoEvents Fm [,u
*]x]U >EF
'表格首行 5G\vV]RR&
ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") ]dk~C?H
ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False Z[0xqGYLB
With ActiveDocument.Styles("QLNU表格首行").Font YdE$G>&em
.NameFarEast = "楷体" Wv(VV
[?/&
.NameAscii = "Times New Roman" !Otyu6&
.Name = "楷体" i/)Uj-*G)
.Size = 9 s{IycTbz
.Bold = True n/^wzG
.Underline = wdUnderlineNone O$#`he/jm
.Italic = wdUndefined l)XzU&Sc~
.Subscript = wdUndefined 6 "jq/Pu
.Superscript = wdUndefined <k <
End With q'K=Ly+
With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat 'Ur$
jW
.LineSpacingRule = wdLineSpaceSingle SwSBQq%h]M
.Alignment = wdAlignParagraphCenter { :{NK%
[[[p@d/Y
.LeftIndent = CentimetersToPoints(0) g%9I+(?t
.RightIndent = CentimetersToPoints(0) #MOEY |6
.FirstLineIndent = CentimetersToPoints(0) -f Zm_FE
5 ^f>L2
, Y9lp )w
.CharacterUnitLeftIndent = -0.5 J,+|
Fb
.CharacterUnitRightIndent = -0.5 Nv #vfh9}P
.CharacterUnitFirstLineIndent = -0.5 pmQ9i A@=
0%'&s)#
.LineUnitBefore = 0 c(YNv4 *X
.LineUnitAfter = 0 9.1%T06$
.SpaceBefore = 0 T-|z18|!
.SpaceAfter = 0 = $b^ X?x
#\t ?`\L3
End With u^iK?S#Ci8
ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False SC86 +
ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll 5; dnxhf
ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese E >SnH
ActiveDocument.Styles("QLNU表格首行").NoProofing = True )ALf!E%{
DoEvents uv9cO d
?N $
'表格内容 'y;[
fwo7
ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") 8LR_K]\
ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False BhdJ/C^
With ActiveDocument.Styles("QLNU表格内容").Font ir%/9=^d
.NameFarEast = "楷体" H$1R\rE`
.NameAscii = "Times New Roman" wCn W]<+
.Name = "楷体" Zr oj-3-X~
.Size = 9 zy+| ) ^E
.Bold = False L6 hTz'
.Underline = wdUnderlineNone [gH
vI
.Italic = wdUndefined 193Q
.Subscript = wdUndefined b.C!4^
.Superscript = wdUndefined 7CM<"pV
End With 10}\7p8
With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat Bv!j.$0d{
.LineSpacingRule = wdLineSpaceSingle a{Tv#P*!
.Alignment = wdAlignParagraphCenter fTV:QAa;
;wT l#\|w0
.LeftIndent = CentimetersToPoints(0) MlS<txFPS
.RightIndent = CentimetersToPoints(0) v0= ^Hy m
.FirstLineIndent = CentimetersToPoints(0) oryoGy=(yk
~{U~9v^v (
.CharacterUnitLeftIndent = -0.5 ) ZNH/9e/
.CharacterUnitRightIndent = -0.5 MH!'g7iK8
.CharacterUnitFirstLineIndent = -0.5 {T m-X`
.LineUnitBefore = 0 \t^q@}~0Wz
.LineUnitAfter = 0 B{c,/{ =O
.SpaceBefore = 0 =$Xdn'
.SpaceAfter = 0 t[iE >
End With `4 w0 *;k;
ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False cq@8!Eu w]
ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll 2hmV 1g j
ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese .xCO _7Rd
ActiveDocument.Styles("QLNU表格首行").NoProofing = True 9:YiLoz?
DoEvents AP/5, M<
h
a3 Qx
'图片标题 p~+)!Z#
ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") }2V|B4
ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" X` ^9a5<"
ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False HtmJIH:
With ActiveDocument.Styles("QLNU图片标题").Font [< f\+g2ct
.NameFarEast = "楷体" b/5;377_
.NameAscii = "Times New Roman" K.b-8NIUW
.Name = "楷体" !*+~R2&b
.Size = 10.5 H4^-M Sw
.Bold = True M<g>z6
.Underline = wdUnderlineNone A[=)Zw
"
.Italic = wdUndefined #N@sJyI N
.Subscript = wdUndefined 9$ UjZ$ v
.Superscript = wdUndefined >!`T=(u!
.Outline = False >JrQS"[u
.Shadow = False y=5s~7]
.Color = wdColorAutomatic 7(Y!w8q&^
End With tC-(GDGy5
With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat K ^s!0[6
.LineSpacingRule = wdLineSpaceSingle N7}.9%EV
.Alignment = wdAlignParagraphCenter ?s
p
}& `#
.KeepWithNext = wdUndefined ihf5`mk/$
.KeepTogether = True
MCL5a@BX)
.OutlineLevel = wdOutlineLevelBodyText 6D3fk
vc Z
l"b
78n
.LeftIndent = CentimetersToPoints(0) f:Ju20D
.RightIndent = CentimetersToPoints(0) xJN
J vA
.FirstLineIndent = CentimetersToPoints(0) q9ic
j
}_gCWz-5?
.CharacterUnitLeftIndent = 0 m3P%E8<Q#
.CharacterUnitRightIndent = 0 Z"% =
.CharacterUnitFirstLineIndent = 0 GwW!Q|tVz=
d8dREhK&
.LineUnitBefore = 0 KuE
2a,E4
.LineUnitAfter = 0 2$=?;~
End With e !
G
I<
ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False :6N{~ [:4
ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll _%z)Y=Q
ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese \7*9l %
ActiveDocument.Styles("QLNU图片标题").NoProofing = True \W}?4kz
DoEvents f=g/_R2$xN
WR gAc%
'目录项 aq,&W
q @
ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") ZDcv-6C)B
ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" /Q})%j1S0
ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False F}2U8O
With ActiveDocument.Styles("QLNU目录项").Font b!<?, S
.NameFarEast = "黑体" Yz \z
Qj
.NameAscii = "Times New Roman" B.0(}@
.NameOther = "Times New Roman" FU5vo
.Name = "黑体" URX>(Y}g9^
.Size = 10.5 osPX%k!yw
.Bold = False XvZg!<*OH
.Italic = wdUndefined 1ciP+->$
.Underline = wdUnderlineNone C03ehjT<
.Color = wdColorAutomatic t<~riFs]
.Superscript = wdUndefined sq j8c)6
.Subscript = wdUndefined O^F%ssF8
End With Y
-o* d@
With ActiveDocument.Styles("QLNU目录项").ParagraphFormat h^?[:XBeav
7PHvsd"]p
.LineSpacingRule = wdLineSpaceSingle 5JIa?i>B
.Alignment = wdAlignParagraphLeft ]0V~ |<0c
Ny
p5=
.WidowControl = False |W`1#sP>
.KeepWithNext = False 6&$z!60
.KeepTogether = False y%`^* E&
.PageBreakBefore = False [1 w
.NoLineNumber = False @M:j~
.OutlineLevel = wdOutlineLevelBodyText mY#[D; mUe
WLv( K_3Y
.LeftIndent = CentimetersToPoints(0) (9fq UbG
.RightIndent = CentimetersToPoints(0) Wi
hQ
j
.FirstLineIndent = CentimetersToPoints(0) ^nF a'=
&6r".\; ^
.CharacterUnitLeftIndent = 0 )M mMs"Um
.CharacterUnitRightIndent = 0 !$qNugLg
.CharacterUnitFirstLineIndent = 0 p\b:uy6#
uTBls8
.LineUnitBefore = 0 {cq; SH
.LineUnitAfter = 0 q8P| ]
End With o^d(mJZ.F~
ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False qW $IpuK
ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll >umcpkp- h
ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot G@
BrU q
ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese K?(ls $
ActiveDocument.Styles("QLNU目录项").NoProofing = True <;phc~0+
DoEvents ]^/:Xsk$
kO~xE-(=
'参考文献 (#X/ sZQh
ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") IAhyGD{b
ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" -O^ b
ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False @,pO%,E6
With ActiveDocument.Styles("QLNU参考文献").Font :7@" E
W
.NameFarEast = "宋体"
-"<H$
.NameAscii = "Times New Roman" Uj1^?d+b
.NameOther = "Times New Roman" H iILJyb
.Name = "Times New Roman" `c(,_o a{
.Size = 12 86vk"
.Bold = False 9 )e`mO *n
.Italic = wdUndefined Pm#B'N#*N|
.Subscript = wdUndefined fPZBm&`C
.Superscript = wdUndefined F FK79e/5
.Underline = wdUnderlineNone !+JSg uy
.UnderlineColor = wdColorAutomatic X./8
PK?&
.Color = wdColorAutomatic #O\4XZ,Lv
.Engrave = False c ^Rz?2x
End With -`&4>\o2Lx
With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat 91jv=>=DM
@ X\S h>H
.LineSpacingRule = wdLineSpaceExactly xHZx5GJp9
.LineSpacing = 16 ;BejFcb
.Alignment = wdAlignParagraphLeft leg@ia
.WidowControl = False z,I7 PY& G
.KeepWithNext = False ofj7$se
.KeepTogether = False k2,n:7
.PageBreakBefore = False ,BOB &u
.OutlineLevel = wdOutlineLevelBodyText K3!|k(jt
= 14'R4:
.LeftIndent = CentimetersToPoints(0) no)Spo'
.RightIndent = CentimetersToPoints(0) TM[Z~n(wt
.FirstLineIndent = CentimetersToPoints(0) ,#`gwtFG
+\\*Iy'xK
.CharacterUnitLeftIndent = 0 'nBJ[$2^
.CharacterUnitRightIndent = 0 2JUX29rER
.CharacterUnitFirstLineIndent = -2 :&#hjeltt
_ZC4O&fL
.LineUnitBefore = 0 #:DDx5%x<b
.LineUnitAfter = 0 el;^cMY
.SpaceBefore = 0 ?b^VEp.;}
.SpaceAfter = 0 fn&gM\<-+(
y%v<Cp@R
End With TB*g$
*
ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False xXp\U'Ad~~
ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll uy~5!i&
ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS toX4kmC
ActiveDocument.Styles("QLNU参考文献").NoProofing = True *x)WF;(]g
ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese ! |}J{
DoEvents 8Rc4+g
JrOp-ug
' 3@XCP- `
ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") 0 r_8/|N#
ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" Gx y>aS3
ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False C>:F4"0
With ActiveDocument.Styles("QLNU论文题目").Font Rr |VGtg
.NameFarEast = "黑体" nxA]EFS
.NameAscii = "Arial Black" ipw _AC ~
.NameOther = "Arial Black" $_@~t$
.Name = "Arial Black" @HMt}zD
.Size = 16 0$": W
.Bold = False ]J~37 35]
.Italic = wdUndefined Haaungb"
.Superscript = wdUndefined G5kM0vs6L
.Subscript = wdUndefined N 2L/A
.Underline = wdUnderlineNone L!3{ASIN0
.UnderlineColor = wdColorAutomatic n
w Or
.Color = wdColorAutomatic Y^2`)':
Op~sR ^ez
End With +}I[l,,xy
With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat Qh? E* 9
.LineSpacingRule = wdLineSpaceSingle b+[9) B)a?
.Alignment = wdAlignParagraphCenter j/ #kO?
.WidowControl = True de[ c3!#1d
.KeepWithNext = True V`pTl3
.KeepTogether = True [qIi_(%o
.PageBreakBefore = True C!Y|k.`p
.NoLineNumber = False B[S.6 "/H
.OutlineLevel = wdOutlineLevelBodyText zi:GvTG
G>YJ3p7
.LeftIndent = CentimetersToPoints(0) o-lb/=K+
.RightIndent = CentimetersToPoints(0) #-
z*c
.FirstLineIndent = CentimetersToPoints(0) *;,=x<
8}{';k
.CharacterUnitLeftIndent = 0 (|bMtT?"x
.CharacterUnitRightIndent = 0 @zT.&1;`
.CharacterUnitFirstLineIndent = 0 slOki|p;
Kbg`ZO*
.LineUnitBefore = 1 i"F'n0*L
.LineUnitAfter = 1 l:z :tJ#(
|pqLwnO u
.BaseLineAlignment = wdBaselineAlignAuto f8lB xK
End With
S`U Gk
ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False Ty*ec%U9F
ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll 8rGW G
ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS ]BO {Q+?d2
ActiveDocument.Styles("QLNU论文题目").NoProofing = True $io-<Z#Q
ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese N#bWMZ"
ActiveDocument.Styles("QLNU论文题目").NoProofing = True =yz#L@\!
DoEvents LCyci1\@
7 I&7YhFI
'中文摘要 rf@/<W u
ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") 6IctW5b
ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" b+OLmd
ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False h<Yn0(.
With ActiveDocument.Styles("QLNU中文摘要").Font u Q vW@Tt
.NameFarEast = "宋体" OcQ_PE5 \
.NameAscii = "Times New Roman" Hm-+1Wx
.NameOther = "Times New Roman" 5l=B,%s
.Name = "Times New Roman" Q2Yv8q_}Uq
.Size = 12 f"k?Ix\
e
.Bold = wdUndefined Z, lU O.
.Superscript = wdUndefined fh b &_ T
.Subscript = wdUndefined o~NeS|a
.Italic = wdUndefined }2:bYp YQ
.Underline = wdUnderlineNone p27A#Uu2}
.UnderlineColor = wdColorAutomatic l#\z
3"b
.Color = wdColorAutomatic fB3O zff
End With wTf0O@``6H
With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat h$f/NS ct2
.LineSpacingRule = wdLineSpaceExactly _-o*3gmbQ
.LineSpacing = 20 E : D1ZV
.Alignment = wdAlignParagraphLeft wf= #w}f
+&4PGv53J
.WidowControl = False hI XGfvUy
.KeepWithNext = False +LV'E#h!Q
.KeepTogether = True f8#WT$Ewy
.PageBreakBefore = False U4 m[@wF
.NoLineNumber = False ,au64sH
.OutlineLevel = wdOutlineLevelBodyText SR*%-JbA
Xd )ba9{
.LeftIndent = CentimetersToPoints(0) = <O{t#]
.RightIndent = CentimetersToPoints(0) xv$^%(Ujp
.FirstLineIndent = CentimetersToPoints(0) it&c
,+8
tmRD$O%:
.CharacterUnitLeftIndent = 0 95T%n{rz
.CharacterUnitRightIndent = 0 xp)#a_}
.CharacterUnitFirstLineIndent = 2 FT[oM<M\Xd
.LineUnitBefore = 0 (e= ksah3>
.LineUnitAfter = 0 : 0CR=]WM
L}XERO TR
End With yD#w @yG
ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False q-o= lU"
ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll } <2F]UuR
ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS _a+
0LTo".
ActiveDocument.Styles("QLNU中文摘要").NoProofing = True !V+5$TsS
ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese }(a y(
ActiveDocument.Styles("QLNU中文摘要").NoProofing = True \S=!la_T@m
ActiveDocument.Styles("QLNU中文摘要").Frame.Delete p $?c>lim
DoEvents ,h #!!j\j6
htX'bA
ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ` eND3c
ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" T5 5l-.>
ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False {;n?c$r
With ActiveDocument.Styles("QLNU英文标题").Font yx{Ac| <mR
.NameFarEast = "黑体" 7@fd
[
.NameAscii = "Arial Narrow" wj u
~ 5
.Name = "Arial Narrow"
CV]PCq!
.Size = 16 >,@Fz)\:{'
.Bold = True Kp ~k!6x
.Bold = wdUndefined }sPY+ZjV
.Superscript = wdUndefined nKu`Ta*fX
.Subscript = wdUndefined D ECX18D
.Italic = wdUndefined R>/M>*C
vEtogkFA"
.Underline = wdUnderlineNone 7KRc^ *pZs
.UnderlineColor = wdColorAutomatic pcur6: 8W!
.StrikeThrough = False pr;<n\Y{
.DoubleStrikeThrough = False O
.& 6J/
End With D'fP2?3FK
With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat xXA$16kd
.LineSpacingRule = wdLineSpaceSingle @
RTQJ+ms
.Alignment = wdAlignParagraphCenter pqMv YF
.WidowControl = True u\t[rC=yd
.KeepWithNext = False c`doR(oZ
.KeepTogether = False 0
WF(Ga/o
.PageBreakBefore = False iBp 7
1x65
.NoLineNumber = False +GP"9S2%R
.FirstLineIndent = CentimetersToPoints(0) $
rFv(Qc^=
.OutlineLevel = wdOutlineLevelBodyText ;f= :~go
Ef% 8+_
.LeftIndent = CentimetersToPoints(0) l2VO=RDiW
.RightIndent = CentimetersToPoints(0) ^ b-H
.FirstLineIndent = CentimetersToPoints(0) +FY -r[_~
rJ\A)O+Mq(
.CharacterUnitLeftIndent = 0 )6bxP&k
.CharacterUnitRightIndent = 0 7 aD I6G
.CharacterUnitFirstLineIndent = 0 *9j9=N?
:e+GtN?
.LineUnitBefore = 1 &U4]hawbOU
.LineUnitAfter = 1 }K<;ygcWE@
<' P|g
End With ` 3pe\s
ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False {D."A$AAa
ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll xBgf)'W_Z
ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS m9#u. Q*
ActiveDocument.Styles("QLNU英文标题").NoProofing = True ;jX_e(T3m
ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese
A'[A!N L%
ActiveDocument.Styles("QLNU英文标题").NoProofing = True B
susXW$
ActiveDocument.Styles("QLNU英文标题").Frame.Delete aI8wy-3 I
DoEvents OiM{@
`c :'il?
ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") ni2H~{]z
ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" n geX+@
ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False *ivbk /8
With ActiveDocument.Styles("QLNU英文摘要").Font ~gI%
.NameFarEast = "宋体" Rn(|
.NameAscii = "Arial" pxI*vgfN7
.NameOther = "Arial" LTzf&TZbx5
.Name = "Arial" (
fdDFb#1
.Size = 12 JGj_{|=:
.Bold = wdUndefined 2<ef&?ljk
.Italic = wdUndefined U?$v 1 ||
.Superscript = wdUndefined }[LK/@h
.Subscript = wdUndefined _&
KaI }O
End With }Lb];hww1
`(Q58wR}
With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat <>j, Q
Z]w_2- -
.LineSpacingRule = wdLineSpaceExactly $ZcmE<7k
.LineSpacing = 20 =_^g]?5 i
wTIf#y 1=9
.Alignment = wdAlignParagraphJustify D cus-,u~
`d
OjCA_&
.WidowControl = False elKQge
.KeepWithNext = False -\UzL:9>
.KeepTogether = False A:
0]
n
.PageBreakBefore = False / jj!DO#
.NoLineNumber = False {E 6W]Mno
u52; )"&=)
.OutlineLevel = wdOutlineLevelBodyText ]"/ *7NM
t&eD;lg :
.LeftIndent = CentimetersToPoints(0) N..9N $+(
.RightIndent = CentimetersToPoints(0) {GHGFi`Z
.FirstLineIndent = CentimetersToPoints(0) 9sYX(Fl
e% 5!
.CharacterUnitLeftIndent = 0 Z
#V[ N9L
.CharacterUnitRightIndent = 0 B2845~\.
.CharacterUnitFirstLineIndent = 2 6bHj<6>MX
fi bR :8
.LineUnitBefore = 0 B j@&c>
.LineUnitAfter = 1 A ]H+rx g
F6%rH$aS
End With ARQ1H0_B
ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False < "~ k8:=4
ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll /23v]HEPy
ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS i3e|j(Gs4
ActiveDocument.Styles("QLNU英文摘要").NoProofing = False ^f<f&V
DoEvents SCGQo .~,
B5I(ai7<M
Options.Pagination = True !Id F6 %
Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." K9w24Oka
DoEvents c# HocwP@
ActiveDocument.Repaginate R`1$z8$
;P2~cQjD;
End Sub $<ZX};/D
gvcT_'
=602%ef\
