Dim bContinue As Boolean
CWD
$\K G N>@.( f&w Dim regEX As New RegExp
)%:
W;H Dim paraCounter As Long '全局段落计数，仅在主程序中可读写，其它过程函数应为只读
{D]I[7f8Ev ((BdT:T\_ Dim LastTitle0String As String, LastTitle0No As Long
Aq$o&t Dim LastTitle1String As String, LastTitle1No As Long
ZS&lXgo Dim LastTitle2String As String, LastTitle2No As Long
# S|On[Q ! Dim LastTitle3String As String, LastTitle3No As Long
"/hL Zl Dim LastTitle4String As String, LastTitle4No As Long
IJ{VCzi Dim LastTitle5String As String, LastTitle5No As Long
1bCS4fs^> Dim LastTabelString As String, LastTableNo As Long
bvJ*REPL ? Dim LastFigureString As String, LastFigureNo As Long
6iEA
._y Xi=4 S[.4 Dim strSeperator As String
1aUu:#c 7=A @P Sub ConvertWidth(fTEXT As String, rText As String)
(tg+C\
S. Selection.Find.ClearFormatting
j{m{hVa Selection.Find.Replacement.ClearFormatting
wA87|Y K8* Selection.Find.Wrap = wdFindContinue
nF
'U* Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText
3 "|A5>Vo DoEvents
M
l_!)b Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True
@d ^MaXp_P End Sub
S!
.N3ezn E/d\ebX| Sub ClearDomain()
E_xk8X~ With Selection.Find
I(
9+F .ClearFormatting
xf qu=z8X .Replacement.ClearFormatting
"?J f# .Wrap = wdFindContinue
8nSw7:z Me.txtStatus.Text = "清除所有域代码"
"(a}}q 9- DoEvents
z
-nV ! # .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False
X
pT})AV End With
%nkbQ2^ End Sub
RS7J~ Q Hxj8cX UF| Private Sub cmdCheck_Click()
?Xp+5{ bContinue = True
D VBsRV)/ Dim NoSeries1(1 To 16) As String
>k 2^A Dim NoSeries2(1 To 16) As String
6x@]b>W Dim NoSeries5(1 To 16) As String
gg Hl{cl) Dim NoSeriesRM(1 To 16) As String
'f.5hX(Y Dim paraTotal As Long, ParaText As String
S~ y.>X3"P Dim ttString As String, ttNo As String
n+'s9 8PGuZw< Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long
i_$?sg#=yk NE@P8pQ> Me.txtStatus.Visible = True
!Ome;g S) Me.lbParaType.Visible = True
^687U,+ Me.cmdCheck.Enabled = False
.n}k,da@( q(5 oIK uo~
"N=q>jaX (j}edRUnB Dim ParaType As String, rText As String
uD `Z\@Z }sfv zw_ Selection.WholeStory
^P*+0?aFr Selection.NoProofing = True
.R@euIva gf,[G b
Z tm1 = Now
Ygk QF0+ EmV Z
qW ActiveWindow.View.Type = wdNormalView
(`f)Tt=` fp"GdkO#}i NoSeries1(1) = "一"
\@7 4I7 NoSeries1(2) = "二"
{6wy}<ynC+ NoSeries1(3) = "三"
:XO7#P NoSeries1(4) = "四"
x=1Sbs w{ NoSeries1(5) = "五"
cdfnM% `>\ NoSeries1(6) = "六"
fydQaxCN D NoSeries1(7) = "七"
V##
T G0 NoSeries1(8) = "八"
mZ#IP NoSeries1(9) = "九"
,\PTn7_ NoSeries1(10) = "十"
N)YoWA>#bF NoSeries1(11) = "十一"
<)gTi759h) NoSeries1(12) = "十二"
~A>-tn}O NoSeries1(13) = "十三"
xQ zXl NoSeries1(14) = "十四"
dQ Ao~] B NoSeries1(15) = "十五"
@N\
Ht'f NoSeries1(16) = "十六"
wV{VV?h} 2AjP2 NoSeries2(1) = "㈠"
0MOn
>76$N NoSeries2(2) = "㈡"
XP@&I[J3sI NoSeries2(3) = "㈢"
CDFkH NoSeries2(4) = "㈣"
=ZAR J4 0L NoSeries2(5) = "㈤"
R)
GDs
gXy NoSeries2(6) = "㈥"
}An;)!>(nF NoSeries2(7) = "㈦"
/<IXCM. NoSeries2(8) = "㈧"
h)?Km
{u% NoSeries2(9) = "㈨"
PW-sF NoSeries2(10) = "㈩"
71HrpTl1fw I#CS;Yh95 NoSeries5(1) = "①"
fR lJ`\ t NoSeries5(1) = "②"
Lor__
K NoSeries5(3) = "③"
A)f/ww)Q NoSeries5(4) = "④"
/oU$TaB
>( NoSeries5(5) = "⑤"
n,|YJ, v[ NoSeries5(6) = "⑥"
JU-e oB}m NoSeries5(7) = "⑦"
:,MI,SwnS NoSeries5(8) = "⑧"
z-h 7v5i" NoSeries5(9) = "⑨"
l8N5}!N NoSeries5(10) = "⑩"
G#z9=NF~V bKPjxN?!9 A@I3:V NoSeriesRM(1) = "I"
Um
I,?p NoSeriesRM(2) = "II"
G4,BcCPQ NoSeriesRM(3) = "III"
Ea N^< NoSeriesRM(4) = "IV"
g_M xG!+(V NoSeriesRM(5) = "V"
8X= 2#
&) NoSeriesRM(6) = "VI"
ch0x*[N@ NoSeriesRM(7) = "VII"
! 9=Y(rb NoSeriesRM(8) = "VIII"
9h^TOZK) NoSeriesRM(9) = "IX"
Z
,
98 NoSeriesRM(10) = "X"
r W
w.(l NoSeriesRM(11) = "XI"
-.7UpDg~ NoSeriesRM(12) = "XII"
RS
Vt NoSeriesRM(13) = "XIII"
(7}Zh|@W NoSeriesRM(14) = "XIV"
?B: ],aztf NoSeriesRM(15) = "XV"
5ZHO+@HiFH NoSeriesRM(16) = "XVI"
)0
i$Bo 8)&J oPN i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo)
9B1bq # %lN4"jtx If i = vbNo Then
K
U;m.{ Exit Sub
@S Quc End If
8BM[c;-{g` X0%BE! If Me.chkSuper.Value Then
6Nz S < Me.txtStatus.Text = "检查修改所有的上标格式"
<+;
cgF!+ AKKVd%
P( CheckSuperScript
U{-[lpd *(Us:*$W. End If
q&EwD(k qk\LfRbj If Me.chkStyle.Value Then
'J#uD|9) Me.txtStatus.Text = "设置样式，请稍候...."
LwEc*79 DoEvents
\&%y4=y<sE CeateOrModifyStyle
H AM ps[D[ End If
A,GJ6qp3 H?dEgubg7] >qynd'eToR ^p #bxN") ClearDomain
< p8>"~ R &ETPYf%# aW$))J)0 Y@V6 /D} 1 If Me.chkLIST.Value Then
;5}y7#4C Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式"
A-qpuI;f \AB*C_Ri ConvertListToOrdinary
d Y]i AJ End If
ZY> u4v. x9H
qc9q '5SO3/{b Dim pType As String, trimpTEXT As String
/)xQ# yfX If Me.chkNum.Value = True Then
%{";RfSVX% Me.txtStatus.Text = "转换全角数字形式为半角"
U\", !S~< ConvertWidth "１", "1"
#'h(o/hz&& DoEvents
[ r=U- ConvertWidth "２", "2"
ju;Myi}a DoEvents
yg@}j ConvertWidth "３", "3"
lyrwm{& DoEvents
f n\&%`U ConvertWidth "４", "4"
K/XUF#^B] DoEvents
H6-{(:
*< ConvertWidth "５", "5"
bR|1*
< DoEvents
ZfIeq<8 _ ConvertWidth "６", "6"
'd|E>8fejG DoEvents
0'tm., ConvertWidth "７", "7"
Ty"=3AvRLV DoEvents
05vu {> ConvertWidth "８", "8"
:N w7!fd DoEvents
8]0?mV8iOE ConvertWidth "９", "9"
4 {3<
` DoEvents
82Nw 6om6i ConvertWidth "０", "0"
|:d:uj/ DoEvents
tsqWnz=) ConvertWidth "ａ", "a"
5%(xZ
6 DoEvents
:vy./83W ConvertWidth "ｂ", "b"
ogKd}qTov DoEvents
i]n ?zWo_h ConvertWidth "ｃ", "c"
rZ7)sE5L DoEvents
7)v`l1 ConvertWidth "ｄ", "d"
=J&aN1Hgt DoEvents
%p.hwgvnp ConvertWidth "ｅ", "e"
vpqMKyy DoEvents
Jl^THoEL ConvertWidth "ｆ", "f"
Nx4X1j?-n DoEvents
D
z5(v1I9A ConvertWidth "ｇ", "g"
&5;y&d h DoEvents
z`rW2UO#a` ConvertWidth "ｈ", "h"
X+k `UM~ DoEvents
~qm u?5 ConvertWidth "ｉ", "i"
l j*J|%~ DoEvents
.)XJ- ConvertWidth "ｊ", "j"
>dqeGM7Np> DoEvents
jp QmKX ConvertWidth "ｋ", "k"
6dX l ny1H DoEvents
~6:y@4&F ConvertWidth "ｌ", "l"
$^"_Fox]A\ DoEvents
o[CjRQY]P ConvertWidth "ｍ", "m"
^Dhu8C( DoEvents
mnWbV\ VY ConvertWidth "ｎ", "n"
]%/a
'[ ConvertWidth "ｏ", "o"
< \S
j5 ConvertWidth "ｐ", "p"
@V#
wYt ConvertWidth "ｑ", "q"
xDBHnr}[ ConvertWidth "ｒ", "r"
ZE>!]# , ConvertWidth "ｓ", "s"
,4z?9@wQ ConvertWidth "ｔ", "t"
)v?-[
oR ConvertWidth "ｕ", "u"
yzmwNs u ConvertWidth "ｖ", "v"
IpMZ{kJlv` ConvertWidth "ｗ", "w"
XZ8;Ow= ConvertWidth "ｘ", "x"
&OSyU4r ConvertWidth "ｙ", "y"
N%&D(_ ConvertWidth "ｚ", "z"
A?sU[b6_ ConvertWidth "Ａ", "A"
zE NlL ConvertWidth "Ｂ", "B"
HR83{B21 ConvertWidth "Ｃ", "C"
';bovh@* ConvertWidth "Ｄ", "D"
vVi))%&S( ConvertWidth "Ｅ", "E"
s%R'c_cGZ ConvertWidth "Ｆ", "F"
O6pL )6d ConvertWidth "Ｇ", "G"
:-kXZe ConvertWidth "Ｈ", "H"
xiPP&$mg ConvertWidth "Ｉ", "I"
\V,;F!*#G ConvertWidth "Ｊ", "J"
f@a@R$y ConvertWidth "Ｋ", "K"
,o)U9 < ConvertWidth "Ｌ", "L"
ku}I; k | ConvertWidth "Ｍ", "M"
Q35/Sp[;x ConvertWidth "Ｎ", "N"
r' ydjy ConvertWidth "Ｏ", "O"
\aO.LwYm;: ConvertWidth "Ｐ", "P"
<\cH9D`dE ConvertWidth "Ｑ", "Q"
q#~]Hp=W5 ConvertWidth "Ｒ", "R"
+v tI1LC;_ ConvertWidth "Ｓ", "S"
2x*C1
ConvertWidth "Ｔ", "T"
Wd_cNR\ ConvertWidth "Ｕ", "U"
/y"Y o ConvertWidth "Ｖ", "V"
zl !`*{T{ ConvertWidth "Ｗ", "W"
g Zr/Dfy ConvertWidth "Ｘ", "X"
C=/nZGG ConvertWidth "Ｙ", "Y"
1$Pn;jg: ConvertWidth "Ｚ", "Z"
B:\TvWbu ConvertWidth "^l", "^p"
~:%rg
H ConvertWidth "（", "("
<KDl2>O ConvertWidth "）", ")"
k99ANW *AU"FI> V End If
Y)I8( g}0 a/wkc*}}/ With ActiveDocument
$yx34= Dim tbl As Table
5Cs
JghTw For Each tbl In .Tables
wB ;'+d& tbl.Rows.Alignment = wdAlignRowCenter
IFY,j8~q tbl.Range.Font.NameFarEast = "楷体"
H19CVc\B tbl.Range.Font.NameAscii = "Times New Roman"
b]h]h1~hHH tbl.Range.Font.Size = 10.5
txw TJScg Next
k(;c<Z{?1
Set tbl = Nothing
4;ig5'U, End With
<IBzh_ XHlx89v7 :bA@
u> With ActiveDocument
[af<FQ { Y(]&j`% For i = 1 To .TablesOfContents.Count
g{ cHh(S .TablesOfContents(i).Delete
jF\J+:5M Next
#)BdN 4%I(Z'*Cx , e
~@ a,U =irBA paraTotal = .Paragraphs.Count
7^J-5lY3S paraCounter = 1
]{[VTjC7rY Pl
} dA LastTitle0No = 0
z A xwM-` LastTitle1No = 0
.#b!
# LastTitle2No = 0
!Fz9\
| LastTitle3No = 0
WqC6 c&NM LastTitle4No = 0
0F<O \ LastTableNo = 0
~4mgYzOmD` LastFigureNo = 0
f9FsZD
ZC 1U Dim Sec As Long
fodr1M4J D n?P~% Sec = InputBox("正文从第一节开始？", "节设置", 6)
nV0"q|0K; If Sec = 0 Then
RkJ\? Exit Sub
G1"=}Wt` End If
@:. 6'ji,` { [4Y(l1 k = 0
^J>jU`)CJ Do While (paraCounter < paraTotal) And bContinue
n8M/Y}mH k = k + 1
khb
Gyg% If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then
k gz2/,
Exit Do
X~Li` End If
j]"Yz t~u paraCounter = paraCounter + 1
%Iv0<oU If k Mod 20 = 0 Then
<L__;j1Wx Me.lbCounter.Caption = paraCounter
iD|"} }01 DoEvents
1b'1vp End If
'H`_Z e< Loop
t
_Q/v
8<t?o'9I eD, 7gC - Do While (paraCounter < paraTotal) And bContinue
k:w\4Oqd %Ya-;&;` ParaText = Trim(.Paragraphs(paraCounter).Range.Text)
LTY@}o]\U ShapeHeight = 0
1!/
U#d" ShapeWidth = 0
Nky%v+r h(I~HZ[K&T CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth
V \kf6E `oh'rm3'8 Select Case ParaType
>29eu^~nh Case "【】表格内容"
) ( &g\ .Paragraphs(paraCounter).Style = "QLNU表格内容"
)G6]r$M>o0 Case "章"
J|Lk::Ri LastTitle0No = LastTitle0No + 1
Kk~0jP_ B9 '新一章开始，复位其下属标题编号
$2^V#GWo LastTitle1No = 0
O329Bkg LastTitle2No = 0
m)q;eQs LastTitle3No = 0
PL
8eM]XS LastTitle4No = 0
0n_Cuh\ ,F J 9C3 k = Val(ttNo)
%xR;8IO If k = 0 Then '非数字编号章节
nYuZg6K If ttNo <> NoSeries1(LastTitle0No) Then
@Ns^?#u~ rText = "第" & NoSeries1(LastTitle0No) & ttString
'lv\I9"S) Me.ErrMsg.AddItem "章节编号错误：" & ParaText
48n>[
FMSR End If
U3^T.i"R Else
#TUsi ,jG If Val(ttNo) <> LastTitle0No Then
s&lZxnIjc rText = "第" & LastTitle0No & ttString
}
tU<RvT Me.ErrMsg.AddItem "章节编号错误：" & ParaText
%f@VOS
s End If
0X)'8N q5 [%B K End If
2D
MH@U2 SF;;4og '章段落设置
h"YIAQ', '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅
(0"9562 .Paragraphs(paraCounter).Style = "QLNU章节"
' W$jHs .Paragraphs(paraCounter).Range.Select
L `+\M+ Selection.EndKey unit:=wdLine
b=QO ^ tc = Replace(rText, vbCr, "")
^n<p#0)+a Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False
*kxk@(lT? Case "一级标题"
QH4n
b h4 LastTitle1No = LastTitle1No + 1
$Tq-<FbM) '新一级标题开始，复位其下属标题编号
H#G~b""mY LastTitle2No = 0
c*_I1}l LastTitle3No = 0
@)m+O#a LastTitle4No = 0
|J`YFv -)?~5
Z If ttNo <> NoSeries1(LastTitle1No) Then
Vd|5 JA}<" rText = NoSeries1(LastTitle1No) & "、" & ttString
{P(Z{9 u% Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText
A{;b^ IK End If
a'Qy]P}'Ug SM:{o&S` ?S0VtHQ '一级标题段落设置 格式：一、标题内容
vdNh25a< h .Paragraphs(paraCounter).Range.Text = rText
>.#uoW4ZV .Paragraphs(paraCounter).Style = "QLNU一级标题"
y6; '?.Y1 .Paragraphs(paraCounter).Range.Select
v^[Ny0cM Selection.EndKey unit:=wdLine
7BF't!-2F tc = Replace(rText, vbCr, "")
DnaG$a< Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False
;'pEzz?k" Case "二级标题"
9\Mesf1$o LastTitle2No = LastTitle2No + 1
x-U^U.i@ '新二级标题开始，复位其下属标题编号
-b(:kAwStk LastTitle3No = 0
N`grr{*_ LastTitle4No = 0
5gV8=Ml"V K I$?0O If ttNo <> NoSeries1(LastTitle2No) Then
.d9VV& rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString
q!<`ci,uS ErrMsg.AddItem "二级标题编号错误：" & ParaText
T{|'<KT End If
bsPw Tp^ }x-~>$:" '二级标题段落设置 格式：(一)、标题内容
/Yx 1S'5 .Paragraphs(paraCounter).Range.Text = rText
KL0u:I(lWU .Paragraphs(paraCounter).Style = "QLNU二级标题"
;oULtQ m{x! uq .Paragraphs(paraCounter).Range.Select
s iv
KXd Selection.EndKey unit:=wdLine
X?Omk, ' tc = Replace(rText, vbCr, "")
Qkk~{OuC Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 2 ", PreserveFormatting:=False
i2$U##-ro] ,+*8 @>c Case "三级标题"
(1(3:)@S6 LastTitle3No = LastTitle3No + 1
vUgLWd '新三级标题开始，复位其下属标题编号
NeHR% a2~ LastTitle4No = 0
n\*> m p ) ?i(Tc! If Val(ttNo) <> LastTitle3No Then
7esG$sVj( rText = LastTitle3No & ". " & ttString
q`}Q[Li Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText
42Vy#t/HC R 8\y|p#c End If
E[htNin.B~ '三级标题段落设置 格式：1. 标题内容
0'|#Hi7@ .Paragraphs(paraCounter).Range.Text = rText
Ajq;\- : .Paragraphs(paraCounter).Style = "QLNU三级标题"
J(M0t~RZ .Paragraphs(paraCounter).Range.Select
,vW.vq<{q3 Selection.EndKey unit:=wdLine
pLBp[GQ tc = Replace(rText, vbCr, "")
IVkKmO(qO Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 3 ", PreserveFormatting:=False
_ZD)#? Case "四级标题"
=}r&>|rrJ LastTitle4No = LastTitle4No + 1
Cz?N[dh h /43D R;4 If Val(ttNo) <> LastTitle4No Then
S5v>WI^0h rText = "(" & LastTitle4No & "). " & ttString
0c7&J?"wE ErrMsg.AddItem "四级标题编号错误：" & ParaText
B {/Pv0y nUhD41GJ End If
0wZLkU_( '四级标题段落设置 格式：(1). 标题内容
u iE9#G .Paragraphs(paraCounter).Range.Text = rText
KL.{)b i .Paragraphs(paraCounter).Style = "QLNU四级标题"
yi# Nrc5B .Paragraphs(paraCounter).Range.Select
xwT"Q=|kW Selection.EndKey unit:=wdLine
}.2pR*W tc = Replace(rText, vbCr, "")
',6QL4qV/ Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 4 ", PreserveFormatting:=False
9T|7edl aiw~4ix Case "表格标题"
g=b[V
LastTableNo = LastTableNo + 1
o|l)oc6{ @w6^*Z_hQ If ttNo <> CStr(LastTableNo) Then
G+b $WQn2t rText = "表" & LastTableNo & ". " & ttString
Ps<)?q6( ErrMsg.AddItem "表格编号错误：" & ParaText
/ vje='[! (LRv c!`" End If
GMgsM6.R lbT<HWzNH '表格名称段落设置 格式：表1. 表格名称
'|4/aHU .Paragraphs(paraCounter).Style = "QLNU表格标题"
=[t( [DG xe = Replace(rText, vbCr, "")
MJV&%E6{:{ .Paragraphs(paraCounter).Range.Select
p`Omcl ~Q Selection.MoveEnd wdCharacter, -1 '选择范围包括行尾的换行符。
F.PD5%/$q Selection.Range.Text = xe
G ~a/g6M4 Selection.EndKey
;csAhkf:S Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False
Tr/wG 1. yw\ZC\ Case "表格首行"
5
;dg#hO .Paragraphs(paraCounter).Style = "QLNU表格首行"
yW|yZ(7 Case "图片标题"
A+ Y>1-=JO LastFigureNo = LastFigureNo + 1
*[ W! ng bU2)pD!N If ttNo <> CStr(LastFigureNo) Then
MZ+8wr/y rText = "图" & LastFigureNo & ". " & ttString
'$1-A%e$1 ErrMsg.AddItem "表格编号错误：" & ParaText
3 {on$\ CL9p/PJ%e End If
.b N0! '图片名称段落设置 格式：图1. 图名称
r]BB$^@@V .Paragraphs(paraCounter).Range.Text = rText
1x M&"
p: .Paragraphs(paraCounter).Style = "QLNU图片标题"
$CL =M .Paragraphs(paraCounter).Range.Select
; c:vz F~Q Selection.EndKey unit:=wdLine
pK *-I
n xe = Replace(rText, vbCr, "")
lJKhP Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False
I.y|AQB Case "正文"
.yi. GRk '正文名称段落设置
X-o ou'4< .Paragraphs(paraCounter).Style = "QLNU正文"
uA:;OM} Case "文献条目"
xC<OFpI\ With .Paragraphs(paraCounter)
#1u4Hi(x5 '.Range.Select
:7:Nx`D8 'Selection.ClearFormatting
\ )y5~te* '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator 'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ”
8-juzL} .Style = "QLNU参考文献"
X[NsdD?w1+ End With
'n!;7*
Case "图表注解"
r^ #.yUz With .Paragraphs(paraCounter)
39"8Nq|e .Range.Font.NameFarEast = "楷体"
a/_
sL(F{ .Range.Font.NameAscii = "Times New Roman"
1ZhJ?PI,9{ .Range.Font.Size = 9 '小5号字
rx_'( dldM h T$ .Alignment = wdAlignParagraphCenter
>?U (w< .LeftIndent = 0
UTi n0k .RightIndent = 0
oc
\rQ? .FirstLineIndent = 0
@U5 +1Hjc .LineSpacing = 12
|`qur5h` .LineSpacingRule = wdLineSpaceExactly
HEjV7g0E .LineUnitAfter = 0
nN@8 vivP% .LineUnitBefore = 0
H0tjN&O_ .OutlineLevel = wdOutlineLevelBodyText
%tUJ >qYU .PageBreakBefore = False
vWe)c
J .RightIndent = 0
HX+'{zm] .WordWrap = True
W.zA1S .LineUnitAfter = 0.5
\e'>$8%T QE< 63| End With
<po(7XB
Case Else
@YpA'cX7 '不作处理
Eto0>YyZ End Select
KQ3)^
J_Z 'OBA nE<. '含有inlineshape的段落处理
ZwO&G\A^ If ShapeHeight > 30 Then
6prN, *k5 .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle '对有图片的段落设置为单倍行距
Om >6<3n End If
S 5m1~fz ",&}vfD4M If (ShapeWidth + ShapeHeight) > 150 Then
N ?V5gi .Paragraphs(paraCounter).Style = "QLNU图片段落"
,W{Qv<oo End If
#0G9{./C y<)Lr} gP '段落计数器递
Qf>dfJ^q paraCounter = paraCounter + 1
qYsu3y)*N Me.lbCounter.Caption = "当前检测段落：" & paraCounter
JguE# ob2 Me.txtStatus.Text = ParaText
&z1r$X.AW DoEvents
QnaMj
Dh$6 Loop
M9bb, `X>Q End With
7:M%w'oR -BQM i0 msg = ""
6],5X^*Y 0L c X7gU> For i = 0 To Me.ErrMsg.ListCount - 1
5IdmKP | msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i)
qZ_^#%zO Next
zFB$^)v "< v`y{l>r, YfxZ< tBrd+}e2* Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg
| P5?0 { Me.cmdCheck.Enabled = True
jn)~@~c Me.txtStatus.Visible = True
En5I Me.lbParaType.Visible = False
]>R`]U9*O CzNSJ
VE5 bContinue = False
O_F<VV*MFQ End Sub
'f;+*~*L Fo?2nQ< 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)
aWe
H,A% Dim pTEXT As String
d+2I+O03 ^U~YG=!ww pTEXT = ChKRange.Text
/wCP(1Mw 7F|T5[*l ParaType = "其它"
L8 R|\Bx TitleString = pTEXT
2!]':(8mR TitleNo = "N/A"
#Y`U8n2F F P
mLost shpCounter = ChKRange.InlineShapes.Count
q3s cz If shpCounter <> 0 Then
VEb}KFyP MaxShpHeight = 0: TotalShpWidth = 0
y3;G<9K2c] For i = 1 To shpCounter
AU-/-h=Mr k = ChKRange.InlineShapes(i).Height
Q*mPU=< l = ChKRange.InlineShapes(i).Width
VWLou
jB If k > MaxShpHeight Then
)vuxy MaxShpHeight = k
O%0G37h End If
G _42ckLq TotalShpWidth = TotalShpWidth + l
[|k@Suv |z Next
qMI %=@= If MaxShpHeight > 60 Or TotalShpWidth > 150 Then
@*%5"~ F Exit Sub
oh& P Q{ End If
x :sTE u@ End If
I!# 42~\ ]lZ!en '空行
%\r4c *O1q If Len(pTEXT) <= 2 Then
V-7 !)&q Exit Sub
l Fzb$k}_{ End If
(O& ooM* o +Icg;m{ o5Pq>Y2T '是否为表格中的文字
_4%+TN6z If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then
A`X$jpAn& ParaType = "表格内容"
*<Qn)Az k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber)
x,>@IEN7 If k = 1 Then
'^7Sa ParaType = "表格首行"
8uT@$ ./
End If
3TtnLay.k Exit Sub
Vs{|:L+ End If
M5 Pvc [0 MVsc= '例外情况：脚注
g<UjB If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then
jw(v08u > ParaType = "脚注"
m:p1O3[R Exit Sub
x]y~KbdeB End If
n~K_| p@r~L(>+3 '例外情况：尾注
5OKbW! If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then
61!R - ParaType = "尾注"
2,NQ(c_c$ Exit Sub
O]^E%;(]}i End If
Bz7T1B&to c(YNv4 *X If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then
QabF(}61
ParaType = "页眉页脚"
+uv]dD *i Exit Sub
GW` 9SB End If
q\mVZ yj o1I{^7/ bX5>qqB] With regEX
8 b|& .Global = True
dk{yx( Ty Y}nE/bmx&9 .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$"
sbk WJy If regEX.Test(pTEXT) Then
4V<s" ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3")
ZHw)N &Qn TitleString = regEX.Replace(pTEXT, "$3")
/o8h1L= TitleNo = regEX.Replace(pTEXT, "$1")
Qy@ch N{eP ParaType = "章"
mQJRq??P Exit Sub
";s ?#c End If
EkjO4=~UC o qUtW3y .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$"
HRPT
P+ If regEX.Test(pTEXT) Then
/p X\)wi ParaType = "一级标题"
&IOChQ`8P regEX.Execute (pTEXT)
WI}P(!h\J ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3")
t55
' TitleString = regEX.Replace(pTEXT, "$3")
3}LTE
sdM TitleNo = regEX.Replace(pTEXT, "$1")
j6IWdqXe Exit Sub
.rN 5A+By` End If
#,! .e }@a_x,O/x} '全角或半角括号中的数字
mNcTO0p& .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$"
hua{g_ If regEX.Test(pTEXT) Then
?L{[84GSO ParaType = "二级标题"
*PZN Z{|m regEX.Execute (pTEXT)
%4+r & ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5")
8~rD#8`6j TitleString = regEX.Replace(pTEXT, "$5")
_~5{l_v|I TitleNo = regEX.Replace(pTEXT, "$2")
`C] t2^ Exit Sub
ic?6 p End If
k\x>kJ}0 rf]]I
#C7 '阿拉伯数字 1. 2.
mm:\a-8j .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$"
mv<z%y
?Oj If regEX.Test(pTEXT) Then
#/5jWH7U ParaType = "三级标题"
8n);NZ regEX.Execute (pTEXT)
>KM<P[BRd ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测
3VA Lrb; TitleString = regEX.Replace(pTEXT, "$3")
mpXc o *!_ TitleNo = regEX.Replace(pTEXT, "$1")
yy/w Sk Exit Sub
kF6X?mqgD End If
p0'A\@| s?E7tmaM '全角或半角括号中的阿拉伯数字
XP6R$0yN .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$"
oACuI|b If regEX.Test(pTEXT) Then
b/5;377_ ParaType = "四级标题"
K.b-8NIUW regEX.Execute (pTEXT)
,$ W7Q ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5")
2x3&o| J TitleString = regEX.Replace(pTEXT, "$5")
' i
Ufr@ TitleNo = regEX.Replace(pTEXT, "$2")
hD # Yz< Exit Sub
Ou
8@7S End If
e~nmI
y 3xV '表格名称
x:@Ht TX .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$"
>9Ub=tZm If regEX.Test(pTEXT) Then
5XA6IL |/l ParaType = "表格标题"
~~:i+-[ regEX.Execute (pTEXT)
NaB8cLURp ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3"))
,C(")?4aJ TitleString = Trim(regEX.Replace(pTEXT, "$3"))
~i6t c
d TitleNo = Trim(regEX.Replace(pTEXT, "$1"))
wdl6dLu strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换
M/ R#f9W Exit Sub
. (Q;EF`_U End If
i<)c4 h_x"/z& '图片名称
0(:"q!h .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$"
q=UKL`;C}U If regEX.Test(pTEXT) Then
|2
{y'?, ParaType = "图片标题"
&[qL l regEX.Execute (pTEXT)
M,q'
ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3")
. CrahV1G TitleString = regEX.Replace(pTEXT, "$3")
[S-NGip TitleNo = regEX.Replace(pTEXT, "$1")
BNu zlR Exit Sub
jo{GPp} End If
h p Lo [
o3}K '参考文献
pmIQD " .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})" '[数字]、
I)Lg=n $ If regEX.Test(pTEXT) Then
rK}*Uw ut ParaType = "文献条目"
V A4_>6 'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4")
1&Nk 'TitleNo = regEX.Replace(pTEXT, "[$2] ")
(Dq3e9fX Exit Sub
dl(cYP8L End If
Vk@u|6U' m cp}F|ws prfx = Left(pTEXT, 2)
QZt/Rm>W0 If prfx = "注：" Or prfx = "注:" Then
v[35C] gS ParaType = "图表注解"
OHM.xw*?. Exit Sub
6-QTqb?U;N End If
b\dBt#mB! J3y5R1?EP @6}c\z@AxM ParaType = "正文"
D8BK/E- .5KRi6 End With
kM] ? End Sub
MDl |giK]Z Sub ConvertListToOrdinary()
Q5{i#F7nJm Dim st As Paragraph
w*$nG$ With ActiveDocument
@j5W4HU For i = .Paragraphs.Count To 1 Step -1
7cY_=X-?Y Set st = .Paragraphs(i)
)uZ<?bkQ lst = st.Range.ListFormat.ListString
AEOo]b*&d If lst <> "" Then
6_`x^[r st.Range.ListFormat.RemoveNumbers
@&mv4zz&W st.Range.InsertBefore lst & " "
,? <jue/bd End If
K=+w,H# `C Next
YDC[s ^d5 End With
o&fAnpia= Set st = Nothing
2O`uzT$ End Sub
UH.M )br {C|#<}1 Private Sub UserForm_Activate()
8O("o7~" Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节"
zZ
OoPE Me.lbTotal.Font.Bold = True
L ?4c8!Q Me.txtStatus.Visible = False
F yQ
Me.cmdCheck.Enabled = True
+%$!sp? gWv/3h WWB End Sub
Qh%7RGh_ :}o0Eb < yE(p Sub CheckSuperScript()
jYO@ %bQ Selection.Find.ClearFormatting
>77
/e@ Selection.Find.Replacement.ClearFormatting
o^d(mJZ.F~ With Selection.Find
E3_EXz9 h .Text = "[【\[［〖](*)[】\]〗］]"
F+*:
>@3 .Replacement.Text = "[\1]"
=TwV_Dro~ .Replacement.Font.Superscript = True
K?(ls $ '.Replacement.Font.Color = wdColorBlue
FzA_-d/_dg .Forward = True
y<8)mw .Wrap = wdFindContinue
tJ bOn$]2" .FORMAT = True
vC&y:XMt,` .MatchCase = False
j}#48{ .MatchWholeWord = False
2
os&d| .MatchByte = False
@,pO%,E6 .MatchAllWordForms = False
:7@" E
W .MatchSoundsLike = False
-"<H$ .MatchWildcards = True
6 =MejT End With
kHm1aE < Selection.Find.Execute Replace:=wdReplaceAll
T"dX)~E; End Sub
Euk#C ;uBg 2AzF@Pi^z Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
bX=ht^e [ bContinue = False
`f8{ ^Rau Set regEX = Nothing
dxUq5`#G, End Sub
6./h0kD` !gW$A-XD Sub CeateOrModifyStyle()
Xr6lYO _R '
E6y/,s^~S_ '
^md7ezXL Dim stl As Style
x4 4)o: P/,7CfyPd Options.Pagination = False
8/Z
JkI :-ax5,J> q On Error Resume Next
E9! IGci For Each stl In ActiveDocument.Styles
TW:vL~L stl.Delete
S2;{)"mS Next
Ga+\b >C On Error GoTo 0
v^H
DR 3I )}]<o
|' Set stl = Nothing
!94& Uk(O T{{J'
_s5L DoEvents
U$ _?T-x On Error Resume Next
<!-8g! o8H<{D13 ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph
%4imlP ()}O|JL:K ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph
D0us<9q ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph
#:DDx5%x<b . A &Ey5 ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph
?b^VEp.;} ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph
1Jd82N \' )p(5$AR7 ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph
eLL> ThMyW ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph
)P B&w
%J ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph
%pt ul_(s' ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph
J &u&G7#S
ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph
l/DV
?27 ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph
4~ZQsw ` ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph
*x)WF;(]g _+wv3?
c" ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph
B`T|M$Ug ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph
eP
(%+[g ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph
lWd)(9K j ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph
`jvIcu 5c ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph
0{gvd"q C>:F4"0 ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph
Rr |VGtg On Error GoTo 0
nxA]EFS DoEvents
ipw _AC ~ $_@~t$
'BaseStyle
F, %qG, ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False
i ao/l With ActiveDocument.Styles("BaseStyle").Font
#f
zvK+ .NameFarEast = "宋体"
} sd-X`lZ .NameAscii = "Times New Roman"
3k5M ty .NameOther = "宋体"
QKE$>G
.Size = 10.5
`P)1RTVx .Bold = wdUndefined
cx1U6 A+ .Italic = wdUndefined
|hiYV .Subscript = wdUndefined
{!o-y= .Subscript = wdUndefined
x,5$VLs\+ 9 K Ih}Q@P .Underline = wdUnderlineNone
43A6B .UnderlineColor = wdColorAutomatic
h 34|v=8d .StrikeThrough = False
>O9j},X .DoubleStrikeThrough = False
*~lD;{2 &z
1A-O
v .Outline = False
B[S.6 "/H .Emboss = False
]Qkto 4DQ5 .Shadow = False
G>YJ3p7 .Hidden = False
gt';_ .SmallCaps = False
#-
z*c .AllCaps = False
V%<<Udu< .Color = wdColorAutomatic
. gG<08Z .Engrave = False
(=QaAn,,R .Scaling = 100
!|9$ .Kerning = 1
-l`@pklQ .Animation = wdAnimationNone
)>\ J~{ .DisableCharacterSpaceGrid = False
h<Yn0(. .EmphasisMark = wdEmphasisMarkNone
u Q vW@Tt End With
OcQ_PE5 \ With ActiveDocument.Styles("BaseStyle").ParagraphFormat
_B 8e 1an .LeftIndent = 0
]i8K )/ .RightIndent = 0
8v*>~E/0 .SpaceBefore = 0
PxfeU2^{0 .SpaceBeforeAuto = False
--Dw .SpaceAfter = 0
t T
A6 p .SpaceAfterAuto = False
S/G,A,"c 7B"J x^ .LineSpacingRule = wdLineSpaceSingle
MN$j{+ !Q .Alignment = wdAlignParagraphJustify
^t*+hFEI !6@xX08z .WidowControl = False
X']>b .KeepWithNext = False
UacN'Rat .KeepTogether = False
)XnG.T{0| .PageBreakBefore = False
69d Fd!G\ .NoLineNumber = False
f `:e#x 2^ ^;Q: .FirstLineIndent = CentimetersToPoints(0)
b hOy x .OutlineLevel = wdOutlineLevelBodyText
h:z;b; .CharacterUnitLeftIndent = 0
U4 m[@wF .CharacterUnitRightIndent = 0
,au64sH .CharacterUnitFirstLineIndent = 0
SR*%-JbA .LineUnitBefore = 0
1 _f
Fbb" .LineUnitAfter = 0
9 (|[okB .AutoAdjustRightIndent = True
b v\V>s .DisableLineHeightGrid = True
/J EH%) #Vs/1y`() .FarEastLineBreakControl = True
ojs&W]r0Z .WordWrap = True
^n@iCr9 .Hyphenation = False
FT[oM<M\Xd (e= ksah3> .HangingPunctuation = True
: 0CR=]WM .HalfWidthPunctuationOnTopOfLine = True
Jj fNH
~ .AddSpaceBetweenFarEastAndAlpha = True
c
72Oy+# .AddSpaceBetweenFarEastAndDigit = True
u5H#
(&Om .BaseLineAlignment = wdBaselineAlignBaseline
$a15
8 End With
`RthX\Tof ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False
![7v
_l\Q ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll
N5
}vy$t_P ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese
jm .pb/ ActiveDocument.Styles("BaseStyle").NoProofing = False
d%t]:41=Z pvI(hjMYPk '一级标题题样式
[l- zU}u&v ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
y z9`1R2c ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle"
>u*woNw(XM ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False
6 KnD(im With ActiveDocument.Styles("QLNU一级标题").Font
yx{Ac| <mR .NameFarEast = "黑体"
]WWre}, .NameAscii = "Arial Black"
wj u
~ 5 .NameOther = "黑体"
,RCjfX a .Name = "黑体"
,*E%D _ .Size = 16 '三号
}h +a8@ .Bold = True
x3PeU_9 .Italic = wdUndefined
D8m?`^Zz .Subscript = wdUndefined
tPO.^ .Superscript = wdUndefined
#7lkj:j4 End With
>h[tHM
O With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat
qt^%jIv ~e
6yaX8S .LeftIndent = CentimetersToPoints(0)
c*RZbE9k .RightIndent = CentimetersToPoints(0)
6ynQCD .FirstLineIndent = CentimetersToPoints(0)
Q, #M
0 ~<v{CBq[ .LineSpacingRule = wdLineSpaceSingle
/nv1 .c)k .Alignment = wdAlignParagraphCenter
~-']Q0Z C;dA?Es>R .WidowControl = True
^ n bze .KeepWithNext = True
4=o3 ZRV .KeepTogether = True
>B8) Wb : .OutlineLevel = wdOutlineLevelBodyText
l >~ :lBO E0xUEAO .LineUnitBefore = 0.5
M\\T Q(B .LineUnitAfter = 0.5
wS``Q8K+dM End With
}2`[email protected] ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False
"'t <R}t!A ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll
iN`/pW/JE ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese
kgr:
8 5 ActiveDocument.Styles("QLNU一级标题").NoProofing = True
z6Su` DoEvents
&0(2Z^Z>fw "*+epC|ks '二级
4 3]6J]!) ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
_\@i&3hkx ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle"
^>%=/RX ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False
K8
|6r|x With ActiveDocument.Styles("QLNU二级标题").Font
&Ei dc . .NameFarEast = "黑体"
5\R8>G~H .NameAscii = "Arial Narrow"
GVn9=[r .NameOther = "黑体"
Q Aygr4\X^ .Name = "黑体"
m9#u. Q* .Size = 15 '小三号
;jX_e(T3m .Bold = False
"Y (S G .Outline = False
B
susXW$ .Italic = wdUndefined
Vq9hAD|k .Subscript = wdUndefined
P%ZWm=lg .Superscript = wdUndefined
3C_g)5
_: End With
?z:xQ*#X With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat
\lKQDct. - .LeftIndent = CentimetersToPoints(0)
^z[s;:- .RightIndent = CentimetersToPoints(0)
_j%Rm:m;< .FirstLineIndent = CentimetersToPoints(0)
t$l[ 4
R- Y1 `. .LineSpacingRule = wdLineSpaceSingle
(g7nMrE$j .Alignment = wdAlignParagraphLeft
<R GRv v ;Ic3th%u .WidowControl = True
Q. z2 (& .KeepWithNext = True
/R|"/B0 .KeepTogether = True
$X yGCn .PageBreakBefore = False
MYN1 zYT6j .OutlineLevel = wdOutlineLevelBodyText
Q l&P1|& @'C)ss =kj .LineUnitBefore = 0.5
!c SD9q* .LineUnitAfter = 0.5
7Mo O2 m G?a)P End With
:6HMb^4 ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False
y*uL,W
H ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll
`d
OjCA_& ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese
; Jx ^ ActiveDocument.Styles("QLNU二级标题").NoProofing = True
-\UzL:9> DoEvents
A:
0]
n / jj!DO# '三级标题样式
HS(<wI ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
J
SGUl4N ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle"
/jj@ =H ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False
Q96g7[ With ActiveDocument.Styles("QLNU三级标题").Font
cLR8U1k' .NameFarEast = "宋体"
p-
*BB_ J" .NameAscii = "Times New Roman"
NA/+bgyuT> .NameOther = "黑体"
1+y&n? .Name = "黑体"
Nz!AR$
.Size = 14 '四号
-F8%U:2a .Bold = False
Rx`0VQ .Outline = False
A ]H+rx g .Italic = wdUndefined
h(G&X9* .Subscript = wdUndefined
ARQ1H0_B .Superscript = wdUndefined
V{d "cs>9 End With
k;LENB2iv With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat
1d\K{ 7i# .LeftIndent = CentimetersToPoints(0)
y:2o-SJn .RightIndent = CentimetersToPoints(0)
l_,8_u7G .FirstLineIndent = CentimetersToPoints(0)
jDXmre? N" E\o,_ .LineSpacingRule = wdLineSpaceSingle
6@l:(-(j2A .Alignment = wdAlignParagraphLeft
+S/8{2%?DG 3>L1}zyM] .WidowControl = True
zR{ TWk] .KeepWithNext = True
f_Wn[
I{ .KeepTogether = True
~gBqkZ# y? .PageBreakBefore = False
=WO{h48] .OutlineLevel = wdOutlineLevelBodyText
( _nkscf A=XM(2{aN .CharacterUnitLeftIndent = 0
U]R7= .CharacterUnitRightIndent = 0
zcxG%? Q .CharacterUnitFirstLineIndent = 2
Llk ` ][?GJ"O+U .LineUnitBefore = 0.5
9 z3Iwl .LineUnitAfter = 0
E+~~d6nB End With
{< kl)} ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False
r 5s*"z ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll
:"QRB#EC% ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese
u{H_q&1 ActiveDocument.Styles("QLNU三级标题").NoProofing = True
w~Y#[GW DoEvents
(qPZEZKx jBE= Ij '四级标题样式
Q7}w Y ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
$7BD~U ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle"
m|f|u3'z$ ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False
X0!48fL* With ActiveDocument.Styles("QLNU四级标题").Font
"4"L"lJ
.NameFarEast = "宋体"
xUSIck
.NameAscii = "Times New Roman"
|#-Oz#Eg' .NameOther = "宋体"
q5HHM
HB .Name = "宋体"
UI8M< .Size = 12 '小四号
0 hNc#x6 .Bold = True
Pv0+`>): .Outline = False
2l\Oufer" .Italic = wdUndefined
~4 \bR .Subscript = wdUndefined
pAa{,,Qc .Superscript = wdUndefined
V). M\ End With
VF YJXR{ With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat
)L#I#% 0f-gQD .LeftIndent = CentimetersToPoints(0)
v
WhtClJ3 .RightIndent = CentimetersToPoints(0)
,%,}[q?]d .FirstLineIndent = CentimetersToPoints(0)
P AKh v.7 C}00S{nAZ .LineSpacingRule = wdLineSpaceSingle
mS%D"
e .Alignment = wdAlignParagraphLeft
[x
E\IqwM ~z< ? Wh .WidowControl = True
~?L. n:wu .KeepWithNext = True
]h|GaHiE .KeepTogether = True
;$%+TN .PageBreakBefore = False
#a .aD+d' .OutlineLevel = wdOutlineLevelBodyText
nZ%< 2 ;- cq#8S .CharacterUnitLeftIndent = 0
g8qN+Gg .CharacterUnitRightIndent = 0
a(J~:wgd .CharacterUnitFirstLineIndent = 2
9]7^/g *! H>Fy 2w .LineUnitBefore = 0
|20p#]0E+ .LineUnitAfter = 0
?ii a |J6CH87> End With
Zmp ^!|=X! ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False
[e*8hb S ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll
Y.}n ,y|J} ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese
N86Hn]# ActiveDocument.Styles("QLNU四级标题").NoProofing = True
w EkW= DoEvents
] "YG7|E U Ql\ GL" '正文校式
^T<<F}@q ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle")
F ijzO ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle"
_C*}14
"3 ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False
_Y~+ #Vc With ActiveDocument.Styles("QLNU正文").Font
Ur@'X- FvvF4
,e5 .NameFarEast = "宋体"
Fh?q;o
Ej .NameAscii = "Times New Roman"
FJ2^0s/" .NameOther = "宋体"
IG bQ L .Name = "宋体"
le yX:
+ ^(6 .M\Q .Size = 12 '小四号
zCco/] h
1= <Qnmw .Bold = wdUndefined
EL +}ab2S .Italic = wdUndefined
k*n5+[U^tP .Subscript = wdUndefined
@|cas|U.r .Superscript = wdUndefined
)? _c7
R C"F(kgL .Outline = False
ChB
ZGuO: .Emboss = False
Nz]\%c/- .Shadow = False
goxgJOiB .Hidden = False
( E0be. M&> Z[o .DisableCharacterSpaceGrid = True
n\P{Mc End With
3 -Ti'xM
With ActiveDocument.Styles("QLNU正文").ParagraphFormat
Rq\.RR]( i4uUvZ f .LeftIndent = CentimetersToPoints(0)
:|fzG f .RightIndent = CentimetersToPoints(0)
RQh4RUm .FirstLineIndent = CentimetersToPoints(0)
Y]Xal
_y8)jD" .LineSpacingRule = wdLineSpaceExactly
c5t?S@b .LineSpacing = 20
\
(X~Z .Alignment = wdAlignParagraphLeft
$)
\ocs O K(Cv9YQ .WidowControl = False
M<)HJ lr .KeepWithNext = False
&]ImO
RN .KeepTogether = False
$I tehy .PageBreakBefore = False
p oNQ<ijK .Hyphenation = False
C"Y M"9JSJ ,ur_n7+LH .OutlineLevel = wdOutlineLevelBodyText
+:^ tp
pg m+V'*[O{ hDfsqSK0 / .CharacterUnitLeftIndent = 0
3 UBG?%!$f .CharacterUnitRightIndent = 0
;zp0,[r .CharacterUnitFirstLineIndent = 2
Q Zd
,GY5{ Gh@QR`xxc .LineUnitBefore = 0
)WBTqML[ .LineUnitAfter = 0
+=:CW'B5 .SpaceBefore = 0
q,+d\-+ .SpaceAfter = 0
v_oNM 5w y&S ueU= .DisableLineHeightGrid = True
}9@ ,EEhg End With
A!hkofQ ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False
n*' |7 #; ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll
oU{m\r ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese
~ xzRx$vU ActiveDocument.Styles("QLNU正文").NoProofing = True
&%INfl>o7. DoEvents
d7l0 ;yR&+ nC2A&n &> '图片段落样式
Qs*g)Yr ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle")
fpzC# ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle"
4I NO . ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False
v u 1F With ActiveDocument.Styles("QLNU图片段落").Font
o,u-% .Size = 12 '小四号
b^FB[tZ\x .Italic = wdUndefined
{HQ? .Subscript = wdUndefined
D[9eu>"'9M .Superscript = wdUndefined
3VKA rv- End With
sH#U M(N With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat
[['un\~r~ ZG< <6y*. .LeftIndent = CentimetersToPoints(0)
>D*L0snjV .RightIndent = CentimetersToPoints(0)
)Ibp%' H .FirstLineIndent = CentimetersToPoints(0)
UX(#C,qgG &grT} .LineSpacingRule = wdLineSpaceSingle
:uqsRFo&4 .Alignment = wdAlignParagraphCenter
uE+]] ir .KeepWithNext = True
h*&-[nSo .OutlineLevel = wdOutlineLevelBodyText
?mrG^TV^+r fr iNo^v& .CharacterUnitLeftIndent = 0
}}K4 4<]u .CharacterUnitRightIndent = 0
Rsq b<+7 .CharacterUnitFirstLineIndent = 0
y<.1+TG Z9TG/C,eo .LineUnitBefore = 0
nV
GrW#'E .LineUnitAfter = 0
@ Vc*JEW End With
HP&+ 8 ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False
,LU/xI0O ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll
-Vw,9VCF ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese
JZN'U<R ActiveDocument.Styles("QLNU图片段落").NoProofing = True
@R>J\ > DoEvents
bf::bV?T @e+QGd;} rsA K0R+ '第X章
Ean@GDLz8 ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
n|3ENN ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle"
t&0pE(MO/ ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False
ZOfyy E With ActiveDocument.Styles("QLNU章节标题").Font
^ qY J x .NameFarEast = "黑体"
}<A\> .NameAscii = "Arial Black"
,%yjEO .NameOther = "Arial Black"
vJ }^ p } .Name = "黑体"
3 fM~R+p .Size = 16
kW5 g]Q .Bold = True
BPe5c :z .UnderlineColor = wdColorAutomatic
WOR ~ tS .Outline = False
L)J0T Sh .Italic = wdUndefined
$^}?9 8m .Subscript = wdUndefined
yp_:] R E .Superscript = wdUndefined
r#3(;N{= .Scaling = 100
d\D.l^ .DisableCharacterSpaceGrid = True
GuNzrKDr End With
# (T With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat
B&`#`] .LineSpacingRule = wdLineSpaceSingle
xR\$2( .Alignment = wdAlignParagraphCenter
KR%DpQ&{' .WidowControl = True
x.~Z9j .KeepWithNext = True
(w nkdI{ .KeepTogether = True
-+ -@Yq$ .PageBreakBefore = True
'$;S?6$eW .OutlineLevel = wdOutlineLevelBodyText
j: \MrYt0H Mb uD8 B .LeftIndent = CentimetersToPoints(0)
-T`rk~A9A .RightIndent = CentimetersToPoints(0)
6:#zlKYJ .FirstLineIndent = CentimetersToPoints(0)
jL>IX`,+6 `/8Dm g .CharacterUnitLeftIndent = 0
s9@/(_ .CharacterUnitRightIndent = 0
n<uF9N< .CharacterUnitFirstLineIndent = 0
E"nIC,VZ 9 }jF]P*Q .LineUnitBefore = 1
X^eTf-*T .LineUnitAfter = 0.5
iLNKC' K1]H~' .AutoAdjustRightIndent = False
x{j|Tf 3,G .DisableLineHeightGrid = True
&}Cm9V .FarEastLineBreakControl = True
vc5g 4ud .WordWrap = True
YrL: !\p. End With
[n44; ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False
C /\ )-^ ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll
, 0MDkXb ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese
ab:
yH ') ActiveDocument.Styles("QLNU章节标题").NoProofing = True
v&D ^N9hy9 DoEvents
6ix8P;;}# uL\ B[<: '表格标题
yk,o *g ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
w?Cqe
N ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle"
kW3V"twx ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False
V*2uW2\} With ActiveDocument.Styles("QLNU表格标题").Font
$&I##od .NameFarEast = "楷体"
1c8 J
yp .NameAscii = "Arial"
00[Uk'Q*5 .Name = "楷体"
4(f[Z9 iZ] .Size = 10.5
6DD"Asi+ .Bold = True
xJ:15eDC .Underline = wdUnderlineNone
M6[&od .Italic = wdUndefined
{+F/lN@ .Subscript = wdUndefined
pMe'fC~* .Superscript = wdUndefined
n GZZCsf < .Color = wdColorAutomatic
`rN,*kcP End With
yL7D;< !S& With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat
#ih(I7prH 'C)`j {CS .LineSpacingRule = wdLineSpaceSingle
*?VbN}g2 .Alignment = wdAlignParagraphCenter
cLEBcTx .KeepWithNext = True
esIE i!d .KeepTogether = True
O=?WI
.OutlineLevel = wdOutlineLevelBodyText
yF0\$%H>$ T;IaVMFG|d .LeftIndent = CentimetersToPoints(0)
67wY_\m 9I .RightIndent = CentimetersToPoints(0)
$0~H ~ - .FirstLineIndent = CentimetersToPoints(0)
Lo 5itW ?k
CK$P .CharacterUnitLeftIndent = 0
-1 ;BwlL .CharacterUnitRightIndent = 0
pQKR .CharacterUnitFirstLineIndent = 0
8vOKm)[% yF8 av=<{ .LineUnitBefore = 1
NiQ` ,Q$B .LineUnitAfter = 0
Ep>3%{V 6-c3v End With
B\G? dmo ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False
w$MFCJ:p& ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll
Gt3V}"B3\ ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese
, `ST Va- ActiveDocument.Styles("QLNU表格标题").NoProofing = True
vd6Y'Zk|F6 DoEvents
oJA%t-&%R M,7A|?O '表格首行
%Q Ch#v=ks ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle")
O
KVI l ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False
6sJN@dFA With ActiveDocument.Styles("QLNU表格首行").Font
M {<cqx Y .NameFarEast = "楷体"
yl0&|Ub .NameAscii = "Times New Roman"
J\^ZRu_K .Name = "楷体"
}1VxMx @ .Size = 9
.DiH)
.Bold = True
,]+P#eXgE .Underline = wdUnderlineNone
$6kVhE!; .Italic = wdUndefined
nlOM 4fJ( .Subscript = wdUndefined
f 0A0uU8y .Superscript = wdUndefined
sKVN*8ia End With
SV0E7qX With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat
D6=Z%h\* .LineSpacingRule = wdLineSpaceSingle
^I*</w 8 .Alignment = wdAlignParagraphCenter
/7/d
u[P6 s<Px au+A .LeftIndent = CentimetersToPoints(0)
,u8)g; 8s .RightIndent = CentimetersToPoints(0)
ACxOC 2\n .FirstLineIndent = CentimetersToPoints(0)
ze@NqCF .$pW?C 3e X`JWYb4 .CharacterUnitLeftIndent = -0.5
) j
v]Oz .CharacterUnitRightIndent = -0.5
{4SwCN / .CharacterUnitFirstLineIndent = -0.5
~za=yZo7( r BQFC 4L .LineUnitBefore = 0
e K PxSN Z .LineUnitAfter = 0
;[V_w/-u .SpaceBefore = 0
* $~H=4t .SpaceAfter = 0
~8L*N>Y
u.u
bw(vv End With
e[.c^Hw ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False
<5
X?6*Qvr ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll
KHV5V3q4 ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese
Ab ,n^ ActiveDocument.Styles("QLNU表格首行").NoProofing = True
% 5Hsd DoEvents
,K'>s<} 9JYrP6I!_ '表格内容
SR7$m<0t* ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle")
YNyaz\L ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False
, 7&`V=C With ActiveDocument.Styles("QLNU表格内容").Font
&M KG#Y} .NameFarEast = "楷体"
B8 ;jR Y .NameAscii = "Times New Roman"
r 2M Iw .Name = "楷体"
{>PN}fk2QP .Size = 9
M0zJGIT~b .Bold = False
( L} .Underline = wdUnderlineNone
l?2(c .Italic = wdUndefined
ufyqfI
D .Subscript = wdUndefined
(C>FM 8$J .Superscript = wdUndefined
_H@Y%"ZHJ6 End With
#RT} -H With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat
yr?*{; .LineSpacingRule = wdLineSpaceSingle
6; 6 a.iZ .Alignment = wdAlignParagraphCenter
|:BKexjHL "Ah (EZAR
.LeftIndent = CentimetersToPoints(0)
lO3W: ,3_a .RightIndent = CentimetersToPoints(0)
5G "LuA .FirstLineIndent = CentimetersToPoints(0)
bL
soKe [!H2i
p- .CharacterUnitLeftIndent = -0.5
D ;VQoO .CharacterUnitRightIndent = -0.5
Z]kk.@P .CharacterUnitFirstLineIndent = -0.5
t[* ;v .LineUnitBefore = 0
+y'V .LineUnitAfter = 0
(7/fsfsF .SpaceBefore = 0
;43Ye
^= .SpaceAfter = 0
VO r*Y B& End With
,WSK
' ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False
__o`+ ^FS ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll
})RT2zw} ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese
=
}0M^F ActiveDocument.Styles("QLNU表格首行").NoProofing = True
BB@I|)
9O( DoEvents
8 s(?zK\ ~'> R K '图片标题
feU]a5%XZ ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
C%_^0#8-0 ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle"
[!1z;
/ ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False
RP 'VEJ With ActiveDocument.Styles("QLNU图片标题").Font
9c9F C .NameFarEast = "楷体"
mC OJ1 } .NameAscii = "Times New Roman"
f0H
5 )DJf .Name = "楷体"
?|!167 /O .Size = 10.5
a Mp*A p .Bold = True
WvSh i=
.Underline = wdUnderlineNone
2r;^OWwr? .Italic = wdUndefined
9QE|p .Subscript = wdUndefined
C$Pe<C# .Superscript = wdUndefined
dJID '2a .Outline = False
7oa a) .Shadow = False
rw_T&>! .Color = wdColorAutomatic
]+A>*0#" End With
oz
$T. With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat
'D#iT}Vu .LineSpacingRule = wdLineSpaceSingle
=qPk'n9i8 .Alignment = wdAlignParagraphCenter
/ !J1} S 4bXAA9" .KeepWithNext = wdUndefined
D>"U0*h .KeepTogether = True
{T|sU\| Q .OutlineLevel = wdOutlineLevelBodyText
R -nC+)^ L(tS]yWHw .LeftIndent = CentimetersToPoints(0)
uX_A4ht* .RightIndent = CentimetersToPoints(0)
^@f%A
< .FirstLineIndent = CentimetersToPoints(0)
N' h j 6&V4W"
k .CharacterUnitLeftIndent = 0
s 33< }O0 .CharacterUnitRightIndent = 0
Vfew )]I .CharacterUnitFirstLineIndent = 0
`.>5H\w0e ER,,K._?B .LineUnitBefore = 0
L$zI_
z .LineUnitAfter = 0
'A@[a_ End With
[)UF@Sq4+Q ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False
s!S,;H ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll
gNk x]bm ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese
2B&Y
w ActiveDocument.Styles("QLNU图片标题").NoProofing = True
$mFsf)1]]? DoEvents
SjgF&LD +9 Z RCmV '目录项
rx`G* k{X ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle")
$__e7 ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle"
{6ML bL{ ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False
]}
z
;!D> With ActiveDocument.Styles("QLNU目录项").Font
Q|eRek .NameFarEast = "黑体"
V"":_ `1VW .NameAscii = "Times New Roman"
#:Z"V8n' .NameOther = "Times New Roman"
E-h`l
DoJ .Name = "黑体"
bSH lR#!6 .Size = 10.5
DF D5">g@ .Bold = False
2y;
|6` .Italic = wdUndefined
_J
^q| .Underline = wdUnderlineNone
:()(P9? .Color = wdColorAutomatic
T{=.mW^ x .Superscript = wdUndefined
H{|a+ .Subscript = wdUndefined
XP'Mv_!Z End With
SR>Sq2cW0 With ActiveDocument.Styles("QLNU目录项").ParagraphFormat
^pz3L'4n Od X-.FFl .LineSpacingRule = wdLineSpaceSingle
2{na Siaq .Alignment = wdAlignParagraphLeft
!R,9Pg*E y XvBEC_xWZ .WidowControl = False
xR +=F1y .KeepWithNext = False
~/?JRL= .KeepTogether = False
?m-kpW8 .PageBreakBefore = False
VU,
\OOp .NoLineNumber = False
#6{"c r6l .OutlineLevel = wdOutlineLevelBodyText
% -"? )Y':u_Lo .LeftIndent = CentimetersToPoints(0)
,Yhy7w .RightIndent = CentimetersToPoints(0)
pAg;Rib
.FirstLineIndent = CentimetersToPoints(0)
d5<@WI:wz etF?,^)h=g .CharacterUnitLeftIndent = 0
.UNh\R?r .CharacterUnitRightIndent = 0
cyUNJw .CharacterUnitFirstLineIndent = 0
7kpCBLM(} +kCVi .LineUnitBefore = 0
FI@2K M .LineUnitAfter = 0
:H[E
W3Q End With
rhFa rm4a ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False
b:fy ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll
6GzmzhX4 ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot
$$YL AgO4 ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese
w7\:S>;(O" ActiveDocument.Styles("QLNU目录项").NoProofing = True
!fdni}f) DoEvents
oiAU}iK: /bA\O
'参考文献
YLk; ^? ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle")
Sd'Meebu ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle"
FxOhF03\=[ ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False
uYjJDLYoHl With ActiveDocument.Styles("QLNU参考文献").Font
A(AyLxB47* .NameFarEast = "宋体"
:@g@jcbYq` .NameAscii = "Times New Roman"
t!^FWr& .NameOther = "Times New Roman"
0@a6r=`el .Name = "Times New Roman"
5x W)nEV .Size = 12
?QO) b9 .Bold = False
;aYPv8s~,: .Italic = wdUndefined
Cnf;5/ .Subscript = wdUndefined
J {72% S .Superscript = wdUndefined
-F,o@5W>Y .Underline = wdUnderlineNone
6suB!XF; .UnderlineColor = wdColorAutomatic
I%xrDiK97 .Color = wdColorAutomatic
N3^pFy` .Engrave = False
gOw|s1`2, End With
lv9Ss-c4 With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat
jeb<qi>
D[{p~x^ .LineSpacingRule = wdLineSpaceExactly
~h -G .LineSpacing = 16
Q6?+# } .Alignment = wdAlignParagraphLeft
:6LOb f\01 .WidowControl = False
U@[P.
y~J .KeepWithNext = False
M64z Vxsd .KeepTogether = False
.UbmU^y| .PageBreakBefore = False
fX G+88:2 .OutlineLevel = wdOutlineLevelBodyText
n`f},.NM| G[u_Uu=> .LeftIndent = CentimetersToPoints(0)
?!(/;RU1 .RightIndent = CentimetersToPoints(0)
*|AnL}GJ .FirstLineIndent = CentimetersToPoints(0)
{(G@YG? EVmQ"PKL' .CharacterUnitLeftIndent = 0
bTC2Ya .CharacterUnitRightIndent = 0
$I_ 04k#t .CharacterUnitFirstLineIndent = -2
"hz(A.THi G}i\UXFE .LineUnitBefore = 0
i a|^>V>- .LineUnitAfter = 0
Jl3l\I' .SpaceBefore = 0
[ANit0-~ .SpaceAfter = 0
THQ W8 V 77/y{#Sk End With
SqY;2: ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False
g9
2M\5
x9 ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll
a AYO(;3 ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS
MnFem $ @ ActiveDocument.Styles("QLNU参考文献").NoProofing = True
G1B~?i2$ ? ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese
6, ag\ DoEvents
q p|T,D% 'nt
b.S) '
`g% ]z@'+? ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle")
Y">tfLIL_ ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle"
lj %8(X u ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False
o)n8,k&nm With ActiveDocument.Styles("QLNU论文题目").Font
D+rDgr
v .NameFarEast = "黑体"
?zUV3Qgzj .NameAscii = "Arial Black"
]>E9v& X0 .NameOther = "Arial Black"
t&SJ!>7_c .Name = "Arial Black"
hXS'*vO" .Size = 16
Rz`<E97- .Bold = False
n);2b\& .Italic = wdUndefined
&nn!{S^ .Superscript = wdUndefined
s9'g'O5 .Subscript = wdUndefined
YU76(S9 0# .Underline = wdUnderlineNone
[K13Jy+ .UnderlineColor = wdColorAutomatic
mquna"}N .Color = wdColorAutomatic
M 4M
4* o lsW.j#yE! End With
7 =om / With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat
QHr
3J
.LineSpacingRule = wdLineSpaceSingle
*Q=-7 a m .Alignment = wdAlignParagraphCenter
'N=' B<^;% .WidowControl = True
mL+}Ka .KeepWithNext = True
jLvI!q .KeepTogether = True
=pWpHbB. .PageBreakBefore = True
U._ U!U .NoLineNumber = False
8+a/x
#b- .OutlineLevel = wdOutlineLevelBodyText
3leg,q d 5`oor86 .LeftIndent = CentimetersToPoints(0)
k_V1x0sZ .RightIndent = CentimetersToPoints(0)
Fhn883 .FirstLineIndent = CentimetersToPoints(0)
n i@D7:h vJ GxD\h .CharacterUnitLeftIndent = 0
)Tngtt D .CharacterUnitRightIndent = 0
s5|LD'o! .CharacterUnitFirstLineIndent = 0
2bX !-h
/(n)I .LineUnitBefore = 1
mUr@w*kq|p .LineUnitAfter = 1
R2Tvo?xI7 doc5;?6 .BaseLineAlignment = wdBaselineAlignAuto
O~ d
!* A End With
!= &]#-;b ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False
eJ{"\c( ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll
9 )B >|#\ ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS
~QBf78@Gf ActiveDocument.Styles("QLNU论文题目").NoProofing = True
(# c5Q& ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese
{z@vSQ=)=P ActiveDocument.Styles("QLNU论文题目").NoProofing = True
g/+M&k$ DoEvents
H?40yu2m5 i40r}?- '中文摘要
Djf2ir' ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle")
l=9 & ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle"
i )3Y\ u ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False
DJ} xD&G With ActiveDocument.Styles("QLNU中文摘要").Font
\Qk:\aLR .NameFarEast = "宋体"
Sc G mft3A .NameAscii = "Times New Roman"
Fh v) .NameOther = "Times New Roman"
0x^$q?
\A .Name = "Times New Roman"
.j88= t0
.Size = 12
d;
lp^K
M .Bold = wdUndefined
7u
5B/M! .Superscript = wdUndefined
&%u,b~cL? .Subscript = wdUndefined
?RWd"JTGue .Italic = wdUndefined
nq/xD;q .Underline = wdUnderlineNone
( ]1le|+ .UnderlineColor = wdColorAutomatic
Kox~k?JK
.Color = wdColorAutomatic
U
YUIp e End With
9[T#uh!DC With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat
F]yclXf(' .LineSpacingRule = wdLineSpaceExactly
1b3Lan_2
.LineSpacing = 20
ieBW 0eMi .Alignment = wdAlignParagraphLeft
\<lV), [% l+
C~m .WidowControl = False
`H/H
LCt .KeepWithNext = False
UMhM8m!=o .KeepTogether = True
Bo%M-Gmu .PageBreakBefore = False
f+xGf6V .NoLineNumber = False
}WI24|`zM .OutlineLevel = wdOutlineLevelBodyText
@T/C<- /: oE)c 8rE .LeftIndent = CentimetersToPoints(0)
u .hnQsM .RightIndent = CentimetersToPoints(0)
Q H\*l~;B\ .FirstLineIndent = CentimetersToPoints(0)
cIM5;"gLP fbuop&FN+q .CharacterUnitLeftIndent = 0
(-dJ 0!
.CharacterUnitRightIndent = 0
7C2/^x P .CharacterUnitFirstLineIndent = 2
4Hzbb# .LineUnitBefore = 0
mSQ!<1PM .LineUnitAfter = 0
}sJ%
InL MW*}+ PCY End With
Arp4$h ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False
<S$y=>.9 ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll
t 1C{ ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS
CQ,r*VAw ActiveDocument.Styles("QLNU中文摘要").NoProofing = True
_%zU ^aE ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese
w5|@vB/pj ActiveDocument.Styles("QLNU中文摘要").NoProofing = True
/u:Sn=SPd ActiveDocument.Styles("QLNU中文摘要").Frame.Delete
sef !hS0 6 DoEvents
vy|}\%*r~ G# @<bg3 ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
{z F ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle"
;;nm F# ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False
#i2q}/w5`C With ActiveDocument.Styles("QLNU英文标题").Font
RB &s$6A .NameFarEast = "黑体"
3;:xEPb._6 .NameAscii = "Arial Narrow"
) 0}o bPp .Name = "Arial Narrow"
(OG@]|- .Size = 16
M!X@-t
# .Bold = True
GMNf#;x .Bold = wdUndefined
3&' STPpW .Superscript = wdUndefined
;prp6(c .Subscript = wdUndefined
kI[EG<N1k .Italic = wdUndefined
*"zE,Bp" Mepl M$9 .Underline = wdUnderlineNone
=?*V3e3{ .UnderlineColor = wdColorAutomatic
|=%$7b\C .StrikeThrough = False
} |SVt`n .DoubleStrikeThrough = False
e:7aVOm End With
Z N4&:
9M With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat
tQ&#FFt,) .LineSpacingRule = wdLineSpaceSingle
?N|PgNu X .Alignment = wdAlignParagraphCenter
'!1lK .WidowControl = True
7gQt
k .KeepWithNext = False
hcf>J6ZLT .KeepTogether = False
W\KZFrV@ .PageBreakBefore = False
W}=2?vHV= .NoLineNumber = False
@~N#)L^ .FirstLineIndent = CentimetersToPoints(0)
wy -!1wd
.OutlineLevel = wdOutlineLevelBodyText
R>0ta
Q lJYv2EZ .LeftIndent = CentimetersToPoints(0)
R6:N`S]&d[ .RightIndent = CentimetersToPoints(0)
@K+u+}
R .FirstLineIndent = CentimetersToPoints(0)
RgRcW 5VxK aPb!-o{ .CharacterUnitLeftIndent = 0
fV5#k@,") .CharacterUnitRightIndent = 0
\Fj4G y?MW .CharacterUnitFirstLineIndent = 0
HE, wEKp #F{|G:\@[ .LineUnitBefore = 1
=G72`]#- .LineUnitAfter = 1
Ahwu'mgnC 5j}@Of1pd End With
Bk z ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False
0>?m F]M ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll
G: &Q)_ ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS
Sv>aZ ActiveDocument.Styles("QLNU英文标题").NoProofing = True
(6A{6_p ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese
\@F{Q- ActiveDocument.Styles("QLNU英文标题").NoProofing = True
4@W.{|2~ ActiveDocument.Styles("QLNU英文标题").Frame.Delete
ix/uV)]k` DoEvents
r U~"A _|Dt
6 ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle")
[X=eCHB? ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle"
eBN>|mE4N ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False
^|\?vA With ActiveDocument.Styles("QLNU英文摘要").Font
PCIC*!{ .NameFarEast = "宋体"
q;AQ6k( .NameAscii = "Arial"
{M
EU|9@
Y .NameOther = "Arial"
:8QG$Ua1 .Name = "Arial"
TX
+t
.Size = 12
qzmZ/ z96 .Bold = wdUndefined
e| l?NXRX .Italic = wdUndefined
#M>E{w9 .Superscript = wdUndefined
&a(w0< .Subscript = wdUndefined
Ux<h`
s End With
6/n;u{ | LaIif_fie^ With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat
T(}da**X E nUo B< .LineSpacingRule = wdLineSpaceExactly
gSv <.fD" .LineSpacing = 20
4C[gW [{c8:)ar .Alignment = wdAlignParagraphJustify
?nn,RBS- pKJ[e@E
^ .WidowControl = False
; s!H .KeepWithNext = False
D2 mB4
.KeepTogether = False
v m$v[ .PageBreakBefore = False
e,4G:V'NX .NoLineNumber = False
JH5])i 0 o . _^ .OutlineLevel = wdOutlineLevelBodyText
_HL3XT g!Qum RF .LeftIndent = CentimetersToPoints(0)
v|'N|
k l .RightIndent = CentimetersToPoints(0)
T Ds
eWdA .FirstLineIndent = CentimetersToPoints(0)
]f c:CR g ` {0I[ .CharacterUnitLeftIndent = 0
j>:T)zhyY .CharacterUnitRightIndent = 0
z&:[.B .CharacterUnitFirstLineIndent = 2
J+4uUf/d! h}d7M55#| .LineUnitBefore = 0
3z ry %qV= .LineUnitAfter = 1
JjCf<ktE . H9Z3.F( 2 End With
x~z 2l# ow ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False
/>oU}m" k ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll
Q6>vF)(
- ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS
g[n8N{s ActiveDocument.Styles("QLNU英文摘要").NoProofing = False
j)0R*_-B[ DoEvents
<w A_2S
Y Eg:p_F*lr Options.Pagination = True
g-s@m}[T Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....."
>*(> %E~H DoEvents
(Zn\S*_@/ ActiveDocument.Repaginate
p?h;Sv/
lu}[XN End Sub
%In"Kh* zJy{Ry[Sb WT)")0)[
