Dim bContinue As Boolean
Lv5AtZl}
MQ,2v.
vZ. Dim regEX As New RegExp
Vj:PNt[ Dim paraCounter As Long '全局段落计数，仅在主程序中可读写，其它过程函数应为只读
6: M ZERd#7@m+ Dim LastTitle0String As String, LastTitle0No As Long
c''!&;[! Dim LastTitle1String As String, LastTitle1No As Long
Rn TP U` Dim LastTitle2String As String, LastTitle2No As Long
E*'O)) Dim LastTitle3String As String, LastTitle3No As Long
J}.p6E~j Dim LastTitle4String As String, LastTitle4No As Long
BS{">lPmx Dim LastTitle5String As String, LastTitle5No As Long
Z 2LG/R Dim LastTabelString As String, LastTableNo As Long
Nls |R Dim LastFigureString As String, LastFigureNo As Long
&0o&!P8CB r2hm`]\8M Dim strSeperator As String
!}vz_6) "o TwMU Sub ConvertWidth(fTEXT As String, rText As String)
,
*bxNs'/ Selection.Find.ClearFormatting
T*H 4 kM Selection.Find.Replacement.ClearFormatting
D)!k Selection.Find.Wrap = wdFindContinue
f< '~K Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText
( d~'H{q DoEvents
2xj S;lpw Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True
V8N <%/ A= End Sub
z#-& M J G
N{.R7 Sub ClearDomain()
ao,LP,_ With Selection.Find
^y h .ClearFormatting
zPVA6~|l .Replacement.ClearFormatting
B)c.`cfr*\ .Wrap = wdFindContinue
}SOj3.9{c Me.txtStatus.Text = "清除所有域代码"
VX - f~ DoEvents
2[:`w),. .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False
3 Zbvf^ End With
#ob" >R End Sub
$B
(B .lE"N1 Private Sub cmdCheck_Click()
U 26 I
z bContinue = True
AU7c =
H:? Dim NoSeries1(1 To 16) As String
XFX:) l#o Dim NoSeries2(1 To 16) As String
HAU8H' h Dim NoSeries5(1 To 16) As String
7%F9.h Dim NoSeriesRM(1 To 16) As String
fNlU
c Dim paraTotal As Long, ParaText As String
4e5Ka{# < Dim ttString As String, ttNo As String
u4Xrvfb, 6DExsB~@ Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long
-MU^%t ;- 9> (8r+ Me.txtStatus.Visible = True
TRQva8d? Me.lbParaType.Visible = True
gmM79^CEF Me.cmdCheck.Enabled = False
",K6zALJ @ojn< 7W !G 8 SEWP w.V8-9
{ ME7JU|@Z Dim ParaType As String, rText As String
?^6RFbke+ E]e6a^J# Selection.WholeStory
'7xY ,IY Selection.NoProofing = True
V 1Fdt+# \dCdyl6V tm1 = Now
7zNyH(. )>?K:y8I~ ActiveWindow.View.Type = wdNormalView
+^%F8GB <2R=!n@b\ NoSeries1(1) = "一"
_-h3> .;h9 NoSeries1(2) = "二"
UV:_5"- NoSeries1(3) = "三"
?Jx8z`( NoSeries1(4) = "四"
KQ 2]VN"?_ NoSeries1(5) = "五"
(yZ^Y'0 NoSeries1(6) = "六"
gFW1Nm_ DJ NoSeries1(7) = "七"
Ml)WY#7
NoSeries1(8) = "八"
Ig=4Z*au!g NoSeries1(9) = "九"
0ogTQ`2 Z: NoSeries1(10) = "十"
"%sW/ph NoSeries1(11) = "十一"
gfp#G,/B NoSeries1(12) = "十二"
#2`tsZ]=I NoSeries1(13) = "十三"
0/*z]2 NoSeries1(14) = "十四"
LUCpZ3F1 NoSeries1(15) = "十五"
0phGn+"R NoSeries1(16) = "十六"
muY4:F.C( 19lx;^b NoSeries2(1) = "㈠"
A\?O5#m:$ NoSeries2(2) = "㈡"
=?/J.[)<* NoSeries2(3) = "㈢"
K~X t` NoSeries2(4) = "㈣"
3c
^_IuW- NoSeries2(5) = "㈤"
"q%Q[^b NoSeries2(6) = "㈥"
l~\'Z2op NoSeries2(7) = "㈦"
g{nu3F}8){ NoSeries2(8) = "㈧"
` zTVup& NoSeries2(9) = "㈨"
} $OQw'L[ NoSeries2(10) = "㈩"
le1'r>E$ w1.KRe{M NoSeries5(1) = "①"
_E
?(cWC NoSeries5(1) = "②"
gsZCWT NoSeries5(3) = "③"
|D<~a(0 NoSeries5(4) = "④"
Nc]]e+N#V NoSeries5(5) = "⑤"
J NsK NoSeries5(6) = "⑥"
'\\J95*`
NoSeries5(7) = "⑦"
ZOU$do>
O NoSeries5(8) = "⑧"
T}g;kppC NoSeries5(9) = "⑨"
g#H#i~E^
NoSeries5(10) = "⑩"
Y pp>7J/ BG=h1ybz j:fL_1m NoSeriesRM(1) = "I"
0/),ylCj NoSeriesRM(2) = "II"
V-)q&cbW]q NoSeriesRM(3) = "III"
g Ts5xDvJ NoSeriesRM(4) = "IV"
f^',J@9@ NoSeriesRM(5) = "V"
d F), NoSeriesRM(6) = "VI"
Dzp9BRS
2f NoSeriesRM(7) = "VII"
"Z,'NL>& NoSeriesRM(8) = "VIII"
?6a:!^eL NoSeriesRM(9) = "IX"
8_:jPd! 3 NoSeriesRM(10) = "X"
sKNN ahGjh NoSeriesRM(11) = "XI"
2avSsN{^ NoSeriesRM(12) = "XII"
A}W&=m8! NoSeriesRM(13) = "XIII"
#2n>J'} NoSeriesRM(14) = "XIV"
; Cv x48 NoSeriesRM(15) = "XV"
7gv kd+-* NoSeriesRM(16) = "XVI"
xr o fUE jl i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo)
UW40Y3W0 F|Ou5WD If i = vbNo Then
I*'QD)
Exit Sub
f v}h;?C End If
(m @({ j'v2m 6/ If Me.chkSuper.Value Then
SB]|y -su Me.txtStatus.Text = "检查修改所有的上标格式"
E 5Z,4B A]W` r} CheckSuperScript
eH75: ` Pxl7zz&pl= End If
I]zCsT. !K3
#4 If Me.chkStyle.Value Then
0Y[m h@( Me.txtStatus.Text = "设置样式，请稍候...."
QQ pe.oF DoEvents
( vg oG5 CeateOrModifyStyle
8Kv=Zp,?` End If
TqzkF7;k4 z}kD :A)a 9.>v
;:vL <@JK;qm>S ClearDomain
(L
q^C= e)GFJ3sW_ tEZ@v(D [NyR$yD{ If Me.chkLIST.Value Then
#knpZ'
Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式"
$+
lc;N ?7(`2=J ConvertListToOrdinary
R ]HHbD&; End If
A LKU |w WBV{^ _g
3h XsA Dim pType As String, trimpTEXT As String
yn` H }@`k If Me.chkNum.Value = True Then
zQ5'q Me.txtStatus.Text = "转换全角数字形式为半角"
bluhiiATd ConvertWidth "１", "1"
BQ &|=a6 DoEvents
ECQ>VeP ConvertWidth "２", "2"
cO_En`F DoEvents
#
bP1rQ0 ConvertWidth "３", "3"
3~"G27, DoEvents
)ASI 4
1 ConvertWidth "４", "4"
/ bfLo x DoEvents
YJF!_
kg. ConvertWidth "５", "5"
h= ?#D0 DoEvents
qm] k
(/w ConvertWidth "６", "6"
:+Y+5:U] DoEvents
>e'6RZRLA ConvertWidth "７", "7"
2Fp.m}42i( DoEvents
]B\
H ConvertWidth "８", "8"
Nx,.4CI
DoEvents
qMKXS,s ConvertWidth "９", "9"
n:' Mpux DoEvents
*7`;{O ConvertWidth "０", "0"
1Hk`i%
DoEvents
j<e`8ex? ConvertWidth "ａ", "a"
_6xC4@~h* DoEvents
v2/@Pu!kg ConvertWidth "ｂ", "b"
yB,$ 4:C DoEvents
qfx= ConvertWidth "ｃ", "c"
#jbo!
wdg DoEvents
6 [w_ /X" ConvertWidth "ｄ", "d"
]qvrpI!E! DoEvents
R$_#7 >3 ConvertWidth "ｅ", "e"
t4~ Bn<= DoEvents
9qIjs$g ConvertWidth "ｆ", "f"
1s/t}J~zZ DoEvents
-n+ =[M ConvertWidth "ｇ", "g"
):kDWc DoEvents
SfEgmp-m ConvertWidth "ｈ", "h"
~X)Aw 3 }F DoEvents
@tR:}J*9s ConvertWidth "ｉ", "i"
Xw_AZ-|1D DoEvents
| *K AqTO0 ConvertWidth "ｊ", "j"
~#pQWa 5 DoEvents
E&#cU}ErN
ConvertWidth "ｋ", "k"
bw&8"k>D? DoEvents
r3{Cu z ConvertWidth "ｌ", "l"
[y&yy|*\ DoEvents
Q6]SsV?x ConvertWidth "ｍ", "m"
jgK8} C DoEvents
#J# x,BLI ConvertWidth "ｎ", "n"
hCuUX) >Bt ConvertWidth "ｏ", "o"
M Zl6 J ConvertWidth "ｐ", "p"
M e_.X_
ConvertWidth "ｑ", "q"
'M VE5 ConvertWidth "ｒ", "r"
1 cvoI ConvertWidth "ｓ", "s"
H0LEK(K ConvertWidth "ｔ", "t"
0 z. oPV@ ConvertWidth "ｕ", "u"
.T#h5[S2x ConvertWidth "ｖ", "v"
p gW BW9\ ConvertWidth "ｗ", "w"
c riOJ- ConvertWidth "ｘ", "x"
<My4 )3 ConvertWidth "ｙ", "y"
MV'q_{J ConvertWidth "ｚ", "z"
$!H;,Jxv ConvertWidth "Ａ", "A"
R m>AU= ConvertWidth "Ｂ", "B"
W; P8=q ConvertWidth "Ｃ", "C"
a=]tq V_ ConvertWidth "Ｄ", "D"
lhZXq!2p ConvertWidth "Ｅ", "E"
.
=yF ConvertWidth "Ｆ", "F"
?:H4Xd 7 ConvertWidth "Ｇ", "G"
7A<X!a ConvertWidth "Ｈ", "H"
dtTQY ConvertWidth "Ｉ", "I"
W+k SL{0 ConvertWidth "Ｊ", "J"
(_Ph {IN ConvertWidth "Ｋ", "K"
DQui7dr)l ConvertWidth "Ｌ", "L"
}(FF^Mh ConvertWidth "Ｍ", "M"
)O;6S$z
9Y ConvertWidth "Ｎ", "N"
Na=.LW-ma= ConvertWidth "Ｏ", "O"
Y HSdaocp ConvertWidth "Ｐ", "P"
$3ps SQQo ConvertWidth "Ｑ", "Q"
qT5q3 A(8 ConvertWidth "Ｒ", "R"
1P;J%. { ConvertWidth "Ｓ", "S"
]
-iMo
4H ConvertWidth "Ｔ", "T"
1Tm,#o ConvertWidth "Ｕ", "U"
aQzx^%B1 ConvertWidth "Ｖ", "V"
FN0)DN2d} ConvertWidth "Ｗ", "W"
{DlQTgP ConvertWidth "Ｘ", "X"
# 3UrGom ConvertWidth "Ｙ", "Y"
Qu"zzb"k ConvertWidth "Ｚ", "Z"
% 8u97f W ConvertWidth "^l", "^p"
%{I b ConvertWidth "（", "("
}V
jg>" ConvertWidth "）", ")"
9EH hVi < A@}C+ End If
@komb IK z ZR_&z< With ActiveDocument
(JenTL`%u Dim tbl As Table
0 w Q'~8 For Each tbl In .Tables
gc,%A'OR^< tbl.Rows.Alignment = wdAlignRowCenter
76epkiz;= tbl.Range.Font.NameFarEast = "楷体"
Kg?(Ax4 tbl.Range.Font.NameAscii = "Times New Roman"
_Fe%Ek1Yy tbl.Range.Font.Size = 10.5
]"q9 ~ Next
[A\D uJx Set tbl = Nothing
&l M=>? End With
i=3~ h Zl kZ 5; Fe\* `-Y8T\ With ActiveDocument
`O
,^oD 4 8=TM _ For i = 1 To .TablesOfContents.Count
HD%n'@E .TablesOfContents(i).Delete
AdU0 sZ+&c Next
ZQ1,6<^9i[ W=G8l% f^Io:V\ }jdMo8 3 paraTotal = .Paragraphs.Count
W?TvdeBx paraCounter = 1
9 t8NK{ y$$|_
l@ LastTitle0No = 0
2 Sgv LastTitle1No = 0
h8XoF1wuw LastTitle2No = 0
12]rfd LastTitle3No = 0
- 8zdkm8k LastTitle4No = 0
= q \TW z LastTableNo = 0
ExK yjWAJ LastFigureNo = 0
:Eb=jWA emT/5'y Dim Sec As Long
Nhf@ Y}Cu S/,)X Sec = InputBox("正文从第一节开始？", "节设置", 6)
/M2U7^9``" If Sec = 0 Then
+,c]FAx4 Exit Sub
F H byL\Q End If
pG&#xRk L S:^K k = 0
yRAfIB$T}" Do While (paraCounter < paraTotal) And bContinue
Wr+/
9 k = k + 1
WQiIS0BJ * If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then
CXiDe)|<E Exit Do
2p %j@O End If
[b :0j
- paraCounter = paraCounter + 1
DMdVE P"m If k Mod 20 = 0 Then
E
%%iVFPX Me.lbCounter.Caption = paraCounter
&TT vX% T DoEvents
mE"(d*fe' End If
.~ O-
<P# Loop
4
++
&P9 ^vw[z2" S\M+*:7
Do While (paraCounter < paraTotal) And bContinue
xYp-Y"a. - y|*x-iZ ParaText = Trim(.Paragraphs(paraCounter).Range.Text)
b9R0"w!ml
ShapeHeight = 0
l~ Hu#+O ShapeWidth = 0
tqD=)0Uzs j82x$I* CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth
q x5jaa3 e+~@"^| Select Case ParaType
gT_tR_g Case "【】表格内容"
X<sM4dwxE .Paragraphs(paraCounter).Style = "QLNU表格内容"
vJj}$Al I Case "章"
xp*Wf#BF LastTitle0No = LastTitle0No + 1
{[ pzqzL6 '新一章开始，复位其下属标题编号
#J'V,_ wH LastTitle1No = 0
]!>tP,<`' LastTitle2No = 0
X
l,707 LastTitle3No = 0
kxCN0e#_ LastTitle4No = 0
Nr"gj$v fnJx$PD~ k = Val(ttNo)
H# H[8# If k = 0 Then '非数字编号章节
oL
U !x If ttNo <> NoSeries1(LastTitle0No) Then
tP1znJh>y rText = "第" & NoSeries1(LastTitle0No) & ttString
w ,*#z Me.ErrMsg.AddItem "章节编号错误：" & ParaText
:JXGgl<y End If
.^xQtnq Else
l@:&0id4I If Val(ttNo) <> LastTitle0No Then
U!
$/'Xi9 rText = "第" & LastTitle0No & ttString
bn:74,GeyK Me.ErrMsg.AddItem "章节编号错误：" & ParaText
@6kkt~>: End If
Cy\ o {6 5fq 4[a End If
uOAd$;h@_Z dv cLZK '章段落设置
XUVBD;"f! '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅
K%.t%)A_3 .Paragraphs(paraCounter).Style = "QLNU章节"
%bp'`B= .Paragraphs(paraCounter).Range.Select
ujW C!*W(Q Selection.EndKey unit:=wdLine
"_0sW3rG tc = Replace(rText, vbCr, "")
/%F 5u}eW Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False
gb=tc` Case "一级标题"
XMF#l]P LastTitle1No = LastTitle1No + 1
:z`L) '新一级标题开始，复位其下属标题编号
! {F\ \D/ LastTitle2No = 0
*SYu
q) LastTitle3No = 0
8/@*6J LastTitle4No = 0
vt#&YXu{A 8dh ?JqX
If ttNo <> NoSeries1(LastTitle1No) Then
qN'%q+ n rText = NoSeries1(LastTitle1No) & "、" & ttString
=d$m@rc0r Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText
-I:L6ft8 End If
z
s\N)LyM \I
7&F82e 8 &:dzS '一级标题段落设置 格式：一、标题内容
79uAsI2-Y .Paragraphs(paraCounter).Range.Text = rText
G;e)K\[J .Paragraphs(paraCounter).Style = "QLNU一级标题"
J ql$
g .Paragraphs(paraCounter).Range.Select
z(#CO<C.t Selection.EndKey unit:=wdLine
bo#?,80L}` tc = Replace(rText, vbCr, "")
qFp]jbU Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False
[5PQrf~Mo Case "二级标题"
h
^Wm03w LastTitle2No = LastTitle2No + 1
/~{ fPS '新二级标题开始，复位其下属标题编号
N97WI+` LastTitle3No = 0
(g>&ov(d LastTitle4No = 0
~
Ofn&[G
l'1_Fb If ttNo <> NoSeries1(LastTitle2No) Then
g*W Y kv rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString
XzW\p8D^u ErrMsg.AddItem "二级标题编号错误：" & ParaText
] u\-_PP End If
je74As[ $\aJ.N6rb '二级标题段落设置 格式：(一)、标题内容
sWq@E6,I .Paragraphs(paraCounter).Range.Text = rText
UW Px|]RC .Paragraphs(paraCounter).Style = "QLNU二级标题"
x| *m ok 2]5ux!Lqln .Paragraphs(paraCounter).Range.Select
o, qUf Selection.EndKey unit:=wdLine
3
jghV?I{T tc = Replace(rText, vbCr, "")
{> d \ Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 2 ", PreserveFormatting:=False
_=K\E0I.m C;YtMY: Case "三级标题"
bwK1XlfD.s LastTitle3No = LastTitle3No + 1
;73{n*a$ '新三级标题开始，复位其下属标题编号
*iUR1V Y LastTitle4No = 0
] V,#>' v<ati c If Val(ttNo) <> LastTitle3No Then
}- @h H( rText = LastTitle3No & ". " & ttString
l]L"Ex{ Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText
82YZN5S3]3 >&JS-j Fg End If
{
3Qlx/6< '三级标题段落设置 格式：1. 标题内容
L4<=,}KS .Paragraphs(paraCounter).Range.Text = rText
@`nU=kY/ .Paragraphs(paraCounter).Style = "QLNU三级标题"
=.IAd< C .Paragraphs(paraCounter).Range.Select
G)gPL]C0 Selection.EndKey unit:=wdLine
K7ZRj\(CJv tc = Replace(rText, vbCr, "")
${tBu# $-d Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 3 ", PreserveFormatting:=False
.X"\ Mg Case "四级标题"
nu X`>Oy LastTitle4No = LastTitle4No + 1
g{Hb3id9 7-}/{o*,5 If Val(ttNo) <> LastTitle4No Then
hM[I}$M&O rText = "(" & LastTitle4No & "). " & ttString
p[%B#(]9, ErrMsg.AddItem "四级标题编号错误：" & ParaText
2 U3WH.o C }71SlN'M End If
h`D+NZtWm '四级标题段落设置 格式：(1). 标题内容
Q SvgbjdE .Paragraphs(paraCounter).Range.Text = rText
J@IF='{ .Paragraphs(paraCounter).Style = "QLNU四级标题"
A/OGF> .Paragraphs(paraCounter).Range.Select
rW2l +:@c Selection.EndKey unit:=wdLine
Bam 4%G5 tc = Replace(rText, vbCr, "")
lrmz 'M' Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 4 ", PreserveFormatting:=False
B7n 1'? H284
]i Case "表格标题"
'kekJ.wJ; LastTableNo = LastTableNo + 1
qdZo
cTf' FXbalQ?^ If ttNo <> CStr(LastTableNo) Then
U3p Mv |b rText = "表" & LastTableNo & ". " & ttString
: n\D ErrMsg.AddItem "表格编号错误：" & ParaText
r#c+{yY W3xObt3w\ End If
mpzm6I eu /< \do 1 '表格名称段落设置 格式：表1. 表格名称
5r^ u7k .Paragraphs(paraCounter).Style = "QLNU表格标题"
gFxa UrZA xe = Replace(rText, vbCr, "")
mW#p& { .Paragraphs(paraCounter).Range.Select
Zzv, p Selection.MoveEnd wdCharacter, -1 '选择范围包括行尾的换行符。
uXdR-@80* Selection.Range.Text = xe
:&m0eZZ% Selection.EndKey
Q Kh vP> Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False
w_#5Na}>d =BBq K=W.d Case "表格首行"
30QQnMH3 .Paragraphs(paraCounter).Style = "QLNU表格首行"
fn.}LeeS> Case "图片标题"
> M4QEv LastFigureNo = LastFigureNo + 1
6~Y`<#X5J (y?`|=G-xT If ttNo <> CStr(LastFigureNo) Then
m</nOf+C rText = "图" & LastFigureNo & ". " & ttString
Y~
Nt9 L ErrMsg.AddItem "表格编号错误：" & ParaText
$kh
6-y@ `IK3e9QpcA End If
Ekz)Nh)vGR '图片名称段落设置 格式：图1. 图名称
mk
+BeK .Paragraphs(paraCounter).Range.Text = rText
rlkg.e6 .Paragraphs(paraCounter).Style = "QLNU图片标题"
b$}@0 .Paragraphs(paraCounter).Range.Select
&z "yls Selection.EndKey unit:=wdLine
2w:cdAv$ xe = Replace(rText, vbCr, "")
;CA7\&L> Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False
m g
*kB:p Case "正文"
^S^7 u '正文名称段落设置
AeEF/* .Paragraphs(paraCounter).Style = "QLNU正文"
:2MHx}]il Case "文献条目"
\ )BDl With .Paragraphs(paraCounter)
W4=<hB '.Range.Select
88+J(^y> 'Selection.ClearFormatting
_UUp+Hz '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator 'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ”
0 Gn bE2& .Style = "QLNU参考文献"
tH9B C5+r} End With
w]Ci%W( Case "图表注解"
C6c]M@6 With .Paragraphs(paraCounter)
] dHV^! .Range.Font.NameFarEast = "楷体"
UzUt=s!^H .Range.Font.NameAscii = "Times New Roman"
ea!Z nld] .Range.Font.Size = 9 '小5号字
#zKF/H|_R ZTP&*+d .Alignment = wdAlignParagraphCenter
*M( )z.
N .LeftIndent = 0
-W XZOdUjs .RightIndent = 0
X"
;ly0Mb .FirstLineIndent = 0
@W *Zrc1NF .LineSpacing = 12
T\o!^|8 .LineSpacingRule = wdLineSpaceExactly
qGKQrb,K .LineUnitAfter = 0
GA@Zfcg .LineUnitBefore = 0
<@:LONe< .OutlineLevel = wdOutlineLevelBodyText
/,2${$c! .PageBreakBefore = False
LxxFosi8 .RightIndent = 0
9h
0^_|" .WordWrap = True
}\_[+@*EJ .LineUnitAfter = 0.5
vq *)2. ){XG%n
C End With
0 x8aKq\' Case Else
1R"ymWg" '不作处理
9-N*Jh g End Select
|%-:qk4r G dtUt2r)6L; '含有inlineshape的段落处理
@d=4C{g%o If ShapeHeight > 30 Then
OcGHMGdn .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle '对有图片的段落设置为单倍行距
a
| +q:g0M End If
)q x,>PL r2
o-/$ If (ShapeWidth + ShapeHeight) > 150 Then
7eekTh, ? .Paragraphs(paraCounter).Style = "QLNU图片段落"
lBnG!!VrWa End If
i3 n0W1~ '}T6e1#JV '段落计数器递
`Hq)g1a7q paraCounter = paraCounter + 1
KRh95B GU Me.lbCounter.Caption = "当前检测段落：" & paraCounter
E cW$'> ^ Me.txtStatus.Text = ParaText
qddP -uN DoEvents
4).>b3OhX Loop
LVp*YOq7 End With
m8njP-CZ e{33%5 msg = ""
do(komP<\ PEX(*GS For i = 0 To Me.ErrMsg.ListCount - 1
5\$ 8"/H msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i)
6 s|4'! Next
C/x<_VJzN/ }w8:`g'T0/ JOJ? .H&su y~pJ|E Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg
f.&Y_G3a< Me.cmdCheck.Enabled = True
#35@YMF Me.txtStatus.Visible = True
Rw\S-z/ Me.lbParaType.Visible = False
&GH ,is CGkCLd*s] bContinue = False
P(&9S` I End Sub
f6Io|CZWJ f,}]h~w\ 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)
-964#>n[ Dim pTEXT As String
fd Rw:K8 e(m#elX pTEXT = ChKRange.Text
F,-S&d h_:|H8t;w ParaType = "其它"
ghd*EXrF
H TitleString = pTEXT
`CQMvX{ TitleNo = "N/A"
V_"K L(i*v5? shpCounter = ChKRange.InlineShapes.Count
l 4s_9 If shpCounter <> 0 Then
0qrsf! MaxShpHeight = 0: TotalShpWidth = 0
{Jl W1;Jc7 For i = 1 To shpCounter
fUg I*V k = ChKRange.InlineShapes(i).Height
79 ZBVe(} l = ChKRange.InlineShapes(i).Width
#D&]5"0cX If k > MaxShpHeight Then
'Nbae- p f MaxShpHeight = k
T5+iX`#M End If
1Q ^YaHzuW TotalShpWidth = TotalShpWidth + l
aD:vNX Next
YaDr.?
If MaxShpHeight > 60 Or TotalShpWidth > 150 Then
2 v6QUf Exit Sub
(C
EXPf End If
#]!0$z|Z End If
^?)o,djY& &18CCp\3)c '空行
H#B~ h
4# If Len(pTEXT) <= 2 Then
r&t)%R@q
Exit Sub
}{Ncww!iN End If
x\Det$3Kx xW;-=Q Q@-7{3 '是否为表格中的文字
F! ;0eS"xp If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then
?E ?dg#yk ParaType = "表格内容"
n(#159pZ k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber)
v8xNtUxN If k = 1 Then
yprf
`D> ParaType = "表格首行"
/U#{6zeM[, End If
`9
Exit Sub
;h"?h*}m!\ End If
R~],5_
| 6n.W5
1g(s '例外情况：脚注
}#/, nJm' If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then
RrDNEwA
r ParaType = "脚注"
-
zQ Exit Sub
eSgCS*}0$z End If
P]@m0f {IW pI * '例外情况：尾注
0=r.I}x If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then
`% x6;Ha ParaType = "尾注"
'_~=C-g Exit Sub
XHu2G t_ End If
8U07]=B
t< `_6!nk q8 If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then
D $RQ D{* ParaType = "页眉页脚"
|*im$ [g=- Exit Sub
/ M-%]sayj End If
^p0BeSRiy; 4#z@B1Jx !v2D 18( With regEX
TB
gD"i-
.Global = True
yH8
N 8 Dm 1;mR S+ .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$"
~ YKBxt If regEX.Test(pTEXT) Then
DM*mOT ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3")
Jk) ^6 TitleString = regEX.Replace(pTEXT, "$3")
pO
n>m1| TitleNo = regEX.Replace(pTEXT, "$1")
1YA _`_@w ParaType = "章"
E:N~c'k Exit Sub
9@-^! DBM End If
tndtwM*B' MT, LO< . .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$"
r2T-= XWB If regEX.Test(pTEXT) Then
=yf LqU ParaType = "一级标题"
D 5q Cn^R regEX.Execute (pTEXT)
0.+"K} ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3")
s|U ?{Byb! TitleString = regEX.Replace(pTEXT, "$3")
wPDA_ns~ TitleNo = regEX.Replace(pTEXT, "$1")
#qk A*WP Exit Sub
|-hzvuSX End If
s e9X Z%Nl<i '全角或半角括号中的数字
f.`noZN .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$"
p*rB T,' If regEX.Test(pTEXT) Then
Syn>;FX ParaType = "二级标题"
:o}J u}t regEX.Execute (pTEXT)
{@u;F2? ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5")
N. |Zh+! TitleString = regEX.Replace(pTEXT, "$5")
eyZ /%4'q TitleNo = regEX.Replace(pTEXT, "$2")
7B$iM ,}.b Exit Sub
<aR8fU End If
vnXa4\Vdy .pgTp X '阿拉伯数字 1. 2.
VN[h0+n4Th .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$"
4425,AR If regEX.Test(pTEXT) Then
O4kBNUI/ ParaType = "三级标题"
X$zlR) Re regEX.Execute (pTEXT)
&P%3'c}G ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测
Dq!Vo ;s2 TitleString = regEX.Replace(pTEXT, "$3")
bGvALz' TitleNo = regEX.Replace(pTEXT, "$1")
&WIi w$@ Exit Sub
9&=~_,wJd End If
+'H_sMmi{ .,pGW
8Js '全角或半角括号中的阿拉伯数字
5A:mu+Iz6H .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$"
$-$^r; If regEX.Test(pTEXT) Then
xD;5z`A3 ParaType = "四级标题"
!aD/I%X regEX.Execute (pTEXT)
{|%N ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5")
)z9)oM\ TitleString = regEX.Replace(pTEXT, "$5")
Y?2I
/ TitleNo = regEX.Replace(pTEXT, "$2")
J 21D/#v Exit Sub
|Ebwl] X2 End If
3y%B &W,sm Yw=Ve 0 '表格名称
bmotR8d .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$"
? Ovl(4VG If regEX.Test(pTEXT) Then
jd$uOn.r ParaType = "表格标题"
CUT D]:\ regEX.Execute (pTEXT)
}!\ZJo a ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3"))
<h2WM (n TitleString = Trim(regEX.Replace(pTEXT, "$3"))
2;G^>BP< TitleNo = Trim(regEX.Replace(pTEXT, "$1"))
:0.Z/s
- strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换
}"<|.[V) Exit Sub
LqTyE End If
31LXzQvFG
q"5iza__H '图片名称
/a%5!)NE% .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$"
(xJ6 : u If regEX.Test(pTEXT) Then
_](vt,|L ParaType = "图片标题"
8 kw`=wSH> regEX.Execute (pTEXT)
yVm~5Y&Z ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3")
8oG0tX3i TitleString = regEX.Replace(pTEXT, "$3")
s#ijpc>h TitleNo = regEX.Replace(pTEXT, "$1")
1O1/P,u+ Exit Sub
-DrR6kGjR End If
I_J;/!l= dF*@G/p>V '参考文献
maLKUSgo .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})" '[数字]、
mu2
r#I If regEX.Test(pTEXT) Then
\iAkF`OC ParaType = "文献条目"
jR S0(8 'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4")
|A0LYKni 'TitleNo = regEX.Replace(pTEXT, "[$2] ")
g*b`V{/V
w Exit Sub
{T
Z7 >k End If
nsqs*$ T=}(S4n#BX prfx = Left(pTEXT, 2)
Z&%#,0>] If prfx = "注：" Or prfx = "注:" Then
lvIKL!;H ParaType = "图表注解"
Au$| @ Exit Sub
i Iq='xwa9 End If
R74kt36M # CoJ S[ t @kUCc1LT ParaType = "正文"
I|JMkP S*6P=O* End With
F_=RY ] End Sub
<J@Y=#G$2 \~1M\gZP Sub ConvertListToOrdinary()
_*1/4^ Dim st As Paragraph
ci>+Zi6 With ActiveDocument
q_5k2'4K For i = .Paragraphs.Count To 1 Step -1
7</&=lly Set st = .Paragraphs(i)
D0tmNV@ lst = st.Range.ListFormat.ListString
7_taqcj If lst <> "" Then
]l
zt "[ st.Range.ListFormat.RemoveNumbers
p5c^dC{ st.Range.InsertBefore lst & " "
~]DGf( End If
>v @R]9 Next
jQzq(oDQw
End With
3qPj
+@ Set st = Nothing
S1{UVkr End Sub
DPJ#Y -0 m]BxGwT=m Private Sub UserForm_Activate()
a|`Pg 1j# Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节"
BEyg 63= Me.lbTotal.Font.Bold = True
kJq gY| Me.txtStatus.Visible = False
v`MCV29!} Me.cmdCheck.Enabled = True
^SB?NRk (Bd8@}\u_ End Sub
I0=YIcH5
gmy$_4+6o S,m)yh . Sub CheckSuperScript()
Tm5]M$) Selection.Find.ClearFormatting
yHl1:cf(y Selection.Find.Replacement.ClearFormatting
s<[%7 6Y! With Selection.Find
k'X
v*U .Text = "[【\[［〖](*)[】\]〗］]"
wp`a:QZ8N .Replacement.Text = "[\1]"
m(E-?V MHo .Replacement.Font.Superscript = True
&, 2h=H
,M '.Replacement.Font.Color = wdColorBlue
\5 IB/ * .Forward = True
@Hj5ZJ
3 .Wrap = wdFindContinue
<<gk< _7` .FORMAT = True
R+FBCVU&TJ .MatchCase = False
zlZ $t{[, .MatchWholeWord = False
8[U1{s:J .MatchByte = False
Mo|[Muj8b .MatchAllWordForms = False
3'6%P_S .MatchSoundsLike = False
EAU6z(X$ .MatchWildcards = True
cj@Ygc)n End With
.v%H%z~Rl# Selection.Find.Execute Replace:=wdReplaceAll
D)XF@z; End Sub
n1 `D:XrE *{8K b>D Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
k D S bContinue = False
tgH@|Kg Set regEX = Nothing
O emi } End Sub
|GtTz& Qx|m{1~- Sub CeateOrModifyStyle()
~isrE;N 1| '
+M! f}=H
'
*z;4.
OX Dim stl As Style
~; k-/Z" F6R+E;"4R' Options.Pagination = False
"tB"C6b 4bqi &h3 On Error Resume Next
R>U0W{1NO For Each stl In ActiveDocument.Styles
9( DS"fgC stl.Delete
j2SJ4tB / Next
I.TdYSB On Error GoTo 0
abkl)X>k K O "U5v Set stl = Nothing
qz"di~ 7 7A?~a_Ep DoEvents
bsy\L|wd On Error Resume Next
5 G cdz :zZK%} G< ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph
.}S9C]d:a cS/\&%7u ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph
, j^ /~
ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph
%Kx:'m%U @6 uB78U4O ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph
z=B*s!G ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph
YU.aZdA&V3 x?Doe`/6? ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph
fEE[h uG ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph
nIJ2*QJ ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph
}z1aKa9 ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph
4%1 sOnl ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph
ik)T>rY g0 ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph
1 X 2MhV ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph
UVlD]oXKh ?Z=
%I$i ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph
7N,E%$QL ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph
w~hO)1c],: ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph
>&3M
#s(w ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph
FjqoO. ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph
"hi?/B#d *n
dXZ64 ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph
|u8IQR'B On Error GoTo 0
HtB> #`' DoEvents
4Tgy2[D?q Z`<S_PPz 'BaseStyle
_Q,`Qn@|BD ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False
{/G ~HoY1i With ActiveDocument.Styles("BaseStyle").Font
=#dW^ ?p .NameFarEast = "宋体"
Fg<$;p .NameAscii = "Times New Roman"
Ecp]fUQK .NameOther = "宋体"
a]-F,M J .Size = 10.5
/"?yB$s .Bold = wdUndefined
rk:^^r>5Qi .Italic = wdUndefined
+<7~yZ[Z8 .Subscript = wdUndefined
~wf&78 .Subscript = wdUndefined
3maiBAOKz &^ Q-:Kxs8 .Underline = wdUnderlineNone
.dX ^3 .UnderlineColor = wdColorAutomatic
G#-t&gO3 .StrikeThrough = False
Npq
Mdd .DoubleStrikeThrough = False
5xe } ljo E|Mu1I]e .Outline = False
@igr~hJ .Emboss = False
, f{< .Shadow = False
=B@
+[b0Z .Hidden = False
+ X(@o .SmallCaps = False
V/"UDof .AllCaps = False
Z8*E-y0 .Color = wdColorAutomatic
8)HUo?/3 .Engrave = False
~kPHf_B;z .Scaling = 100
4Ra .Kerning = 1
_SdO}AiG .Animation = wdAnimationNone
lYldq)qB{ .DisableCharacterSpaceGrid = False
@dei} !e .EmphasisMark = wdEmphasisMarkNone
p A7& End With
=V~p QbZ With ActiveDocument.Styles("BaseStyle").ParagraphFormat
\=PnC}7I .LeftIndent = 0
|`[0U .RightIndent = 0
D*.U? .SpaceBefore = 0
L!G]i;=: .SpaceBeforeAuto = False
1) 7n
( .SpaceAfter = 0
|8^53*f ? .SpaceAfterAuto = False
n4 A_vz # 4 UKkd .LineSpacingRule = wdLineSpaceSingle
"IQ' (^-P .Alignment = wdAlignParagraphJustify
:}(Aq;}X f[email protected]. .WidowControl = False
.kKU MyW( .KeepWithNext = False
A)6xEeyR .KeepTogether = False
zA/ tHlK c .PageBreakBefore = False
+l' l*< .NoLineNumber = False
:"QR;O@ QS(aA*D .FirstLineIndent = CentimetersToPoints(0)
MYNNeO .OutlineLevel = wdOutlineLevelBodyText
%f3q CN .CharacterUnitLeftIndent = 0
Q(v*I&k .CharacterUnitRightIndent = 0
%
L(;}sJ. .CharacterUnitFirstLineIndent = 0
C#<b7iMg .LineUnitBefore = 0
'w//d
$+G_ .LineUnitAfter = 0
"LZQ1P*ef$ .AutoAdjustRightIndent = True
WOBL gM,| .DisableLineHeightGrid = True
ZNWo:N8; fNR2(8;} .FarEastLineBreakControl = True
%S*<2F9
.WordWrap = True
@GTkS!86 .Hyphenation = False
w]<V~X b7-M'-Km0_ .HangingPunctuation = True
{jdtNtw .HalfWidthPunctuationOnTopOfLine = True
xE>H:YPm .AddSpaceBetweenFarEastAndAlpha = True
[0vgA#6I .AddSpaceBetweenFarEastAndDigit = True
IBfLb(I .BaseLineAlignment = wdBaselineAlignBaseline
*UL++/f End With
8i$quHd&x ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False
* i LlBE ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll
J:W|2U=" ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese
9O(vh(C ActiveDocument.Styles("BaseStyle").NoProofing = False
V+`gkWe/ K9-;-{qb '一级标题题样式
lG oP(ki ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
-_ @zyF<G ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle"
o>4mkh[3 ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False
xib?XzxGo With ActiveDocument.Styles("QLNU一级标题").Font
s'$5]9$S .NameFarEast = "黑体"
<46> v< .NameAscii = "Arial Black"
:c75*h` .NameOther = "黑体"
0 PdeK'7 .Name = "黑体"
aE aU_f / .Size = 16 '三号
U)CGRh8%+ .Bold = True
vVvx g0 .Italic = wdUndefined
}- ` N^ .Subscript = wdUndefined
G-7!|& .Superscript = wdUndefined
YkWv*l End With
Qc4r?7S< With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat
\e)>]C}h
;I V .LeftIndent = CentimetersToPoints(0)
rK` x< .RightIndent = CentimetersToPoints(0)
HrOq>CSR .FirstLineIndent = CentimetersToPoints(0)
Nk
JOD3>U *LuR
< V .LineSpacingRule = wdLineSpaceSingle
=n@"lY u[ .Alignment = wdAlignParagraphCenter
q|7i6jq\*R j8P qc] .WidowControl = True
yV"k:_O{ .KeepWithNext = True
{L6 @d1u .KeepTogether = True
XotiKCk|Aq .OutlineLevel = wdOutlineLevelBodyText
eR1SP S1+ M~/Pk7C C .LineUnitBefore = 0.5
#3VOC#. .LineUnitAfter = 0.5
1`6kc9f. End With
uX/K/4 ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False
tL#~U2K ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll
4Fu:ov
]M ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese
5;v_?M!UCK ActiveDocument.Styles("QLNU一级标题").NoProofing = True
M[ eq)a $ DoEvents
f%,Vplb F S'|e?WU '二级
5:R$xgc ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
Fh8 8DDJ ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle"
rgo#mTQ_ ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False
8U8% XI EJ With ActiveDocument.Styles("QLNU二级标题").Font
Tumv0=q4wd .NameFarEast = "黑体"
ujin+;1 .NameAscii = "Arial Narrow"
"aL.`^. .NameOther = "黑体"
) |t;nK, .Name = "黑体"
L<D<3g|4 .Size = 15 '小三号
s+m3&(X .Bold = False
8Cx6Me>,= .Outline = False
gWk?g^KJL .Italic = wdUndefined
SI)QX\is8 .Subscript = wdUndefined
-G'U\EXT .Superscript = wdUndefined
hw 5NHZ I' End With
zG\& ZU With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat
8'sT zB] .LeftIndent = CentimetersToPoints(0)
K UD.hK. .RightIndent = CentimetersToPoints(0)
lIhP\:;S& .FirstLineIndent = CentimetersToPoints(0)
^U q%-a ?T1 vc .LineSpacingRule = wdLineSpaceSingle
C 4[) y J .Alignment = wdAlignParagraphLeft
KIRCye pH9 xyN[:a .WidowControl = True
cMU"SO .KeepWithNext = True
%3%bRP .KeepTogether = True
s78MXS?py .PageBreakBefore = False
o}4~CN9} .OutlineLevel = wdOutlineLevelBodyText
6
4,('+ k3PFCl~e .LineUnitBefore = 0.5
\=1$$EDS9 .LineUnitAfter = 0.5
-s3q(SH 6y+_ x' End With
ZA1 :Y{ V ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False
?d!*[Ke8 ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll
Ei HQ&u* ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese
60\`TsFobT ActiveDocument.Styles("QLNU二级标题").NoProofing = True
%~e+H| DoEvents
ayGcc` .#q]{j@Ot '三级标题样式
A4~- {.w= ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
u+7S/9q
8 ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle"
zH5pe ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False
!{1 ;wC(b With ActiveDocument.Styles("QLNU三级标题").Font
:~^_*: .NameFarEast = "宋体"
c1ga{c`Z .NameAscii = "Times New Roman"
ApD`i+ Y@ .NameOther = "黑体"
Y+d+ .Name = "黑体"
.IU\wN .Size = 14 '四号
C ^IPddw> .Bold = False
]?7q%7-e.a .Outline = False
"Cz0r"N .Italic = wdUndefined
ey ]WoUZ .Subscript = wdUndefined
a.z) m} +
.Superscript = wdUndefined
n \i ~H End With
a$=He With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat
'" 4;;( .LeftIndent = CentimetersToPoints(0)
5O%?J-Hp .RightIndent = CentimetersToPoints(0)
O#@G
.~n? .FirstLineIndent = CentimetersToPoints(0)
V8hmfV~=]P XiL[1JM
.LineSpacingRule = wdLineSpaceSingle
oh0*b h .Alignment = wdAlignParagraphLeft
gs"w
0[$ vbh 5
.WidowControl = True
yU"lJ>Eh}} .KeepWithNext = True
$L4h'(s .KeepTogether = True
h-<Qj,L{W .PageBreakBefore = False
K h8 .OutlineLevel = wdOutlineLevelBodyText
],~H3u=s3 m9=93W?
.CharacterUnitLeftIndent = 0
8w$q4fg0 .CharacterUnitRightIndent = 0
s'^sT= b .CharacterUnitFirstLineIndent = 2
L,O.X
R } *jmW P .LineUnitBefore = 0.5
. 3'U(U .LineUnitAfter = 0
Bwc_N.w?3 End With
i+Lqj ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False
(zX75QSKV ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll
w{WEYS ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese
6
b1
AIs8 ActiveDocument.Styles("QLNU三级标题").NoProofing = True
:w<Ga8\tZ DoEvents
fm0]nT $(]E$ek '四级标题样式
Z8ds`KZM ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
:+_ ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle"
*{( "T ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False
/:d6I]. With ActiveDocument.Styles("QLNU四级标题").Font
MW2{w<-]7 .NameFarEast = "宋体"
._q}lWT .NameAscii = "Times New Roman"
K=Z .<f .NameOther = "宋体"
D JZ$M .Name = "宋体"
kQ`p\}7_ .Size = 12 '小四号
l4 > c .Bold = True
FEO /RMh .Outline = False
P~*'/!@
.Italic = wdUndefined
Y s0N+ .Subscript = wdUndefined
QuIZp P= .Superscript = wdUndefined
K|Xr~\= End With
3UX6 Y]E3 With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat
g/ 4ipcG;N iN9G`qF3!Q .LeftIndent = CentimetersToPoints(0)
+O)Y7k{?C5 .RightIndent = CentimetersToPoints(0)
E*x ct-m# .FirstLineIndent = CentimetersToPoints(0)
3wMnTT"At /PKu",Az j .LineSpacingRule = wdLineSpaceSingle
c2u*
<x .Alignment = wdAlignParagraphLeft
F!<!)_8Q n%6ba77 .WidowControl = True
T0 {X, .KeepWithNext = True
fZp 3 g%u .KeepTogether = True
BS=~G+/: | .PageBreakBefore = False
v?YxF} .OutlineLevel = wdOutlineLevelBodyText
Vb)NWXmyu X4<Y5?&0 .CharacterUnitLeftIndent = 0
M0$_x~ .CharacterUnitRightIndent = 0
N /zP!%L .CharacterUnitFirstLineIndent = 2
a%2K,.J !;U oZ~ .LineUnitBefore = 0
,u=+%6b)A .LineUnitAfter = 0
DLN zH w$Z%RF'p End With
A">R-1R ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False
*\Lr]6k ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll
N F,<^ u ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese
8+ ]'2{ ActiveDocument.Styles("QLNU四级标题").NoProofing = True
-wr_x<7 DoEvents
&~ c`p [ r&+w)U~ '正文校式
NX5 $x/uz ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle")
%NDr5E^cc ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle"
)O2IEwPd. ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False
IgN^~ag` With ActiveDocument.Styles("QLNU正文").Font
$)eS Gslz Jflm-Hhsf .NameFarEast = "宋体"
H*P[t yz$ .NameAscii = "Times New Roman"
\mL]xE- .NameOther = "宋体"
!4
T!@"# .Name = "宋体"
Vg(M ^2L \EXa 9X2 .Size = 12 '小四号
/Pxny3 + KaVvf .Bold = wdUndefined
4Y{;%;-i .Italic = wdUndefined
$Ai zKiV .Subscript = wdUndefined
dQz#&&s-
.Superscript = wdUndefined
[FZq'E"87 LJ K0WWch .Outline = False
/I((A /ks .Emboss = False
^H
-a@QM .Shadow = False
<I#M^}` .Hidden = False
}kF?9w "}Ikx tee .DisableCharacterSpaceGrid = True
H>Ucmd;ay End With
m Ga :~ x With ActiveDocument.Styles("QLNU正文").ParagraphFormat
OIIA^QyV G)q;)n;*= .LeftIndent = CentimetersToPoints(0)
<'QI_mP* .RightIndent = CentimetersToPoints(0)
aU@1j;se@ .FirstLineIndent = CentimetersToPoints(0)
3~{0X - M?AKJE j5 .LineSpacingRule = wdLineSpaceExactly
Dr76+9'i .LineSpacing = 20
/|lAxAm? .Alignment = wdAlignParagraphLeft
gLRDd~H MxH |yo[ .WidowControl = False
]57yorc` .KeepWithNext = False
I9dX\w} .KeepTogether = False
==BOW\ .PageBreakBefore = False
U~d%5?q .Hyphenation = False
da i+" 8rjD1< .OutlineLevel = wdOutlineLevelBodyText
_Ie
:!q
CvR-lKV< U^eos;:s8 .CharacterUnitLeftIndent = 0
}KO <II .CharacterUnitRightIndent = 0
T2n3g|4 .CharacterUnitFirstLineIndent = 2
_ds;:*N+qA F+ 7*SImv6 .LineUnitBefore = 0
1:r#m- \ .LineUnitAfter = 0
t
.}];IJP .SpaceBefore = 0
\._|_+HiW .SpaceAfter = 0
O~v~s
' c& pSI8"GwQ .DisableLineHeightGrid = True
CY lS8j End With
vvu $8n ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False
3 /PvH E{R ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll
|?]doBm| ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese
zkiwFEHA= ActiveDocument.Styles("QLNU正文").NoProofing = True
, 6Jw DoEvents
M[+#*f.T} 4U16'd '图片段落样式
$}'(%\7" ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle")
4*D"*kR; ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle"
.
:>e"D ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False
$ai;8)C6 With ActiveDocument.Styles("QLNU图片段落").Font
BOh^oQh .Size = 12 '小四号
Rt:^'Qi$! .Italic = wdUndefined
]1pB7XL .Subscript = wdUndefined
0yv p>{;p .Superscript = wdUndefined
gX7R-&[UD End With
\ @[Q3.
VX With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat
t-5 Y,}j <s7cCpUF P .LeftIndent = CentimetersToPoints(0)
o@7U4#E .RightIndent = CentimetersToPoints(0)
I~6 o<HO .FirstLineIndent = CentimetersToPoints(0)
E [6:}z< `/?'^A%Ik .LineSpacingRule = wdLineSpaceSingle
N:okt)q:% .Alignment = wdAlignParagraphCenter
CxN xb)c & .KeepWithNext = True
m;A[ 2 6X .OutlineLevel = wdOutlineLevelBodyText
m@u% 3*: rLE+t(x(0 .CharacterUnitLeftIndent = 0
B=$O4nW_b .CharacterUnitRightIndent = 0
u
:f.; ? .CharacterUnitFirstLineIndent = 0
O;5lF
\* Yr&Lm .LineUnitBefore = 0
CUHT5J*sY .LineUnitAfter = 0
x7Gf):,LK End With
jE wt1S V ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False
I!Z"X& ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll
(,tu7u{ ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese
Br15S};Ce ActiveDocument.Styles("QLNU图片段落").NoProofing = True
~ @ )s)K DoEvents
Nu OxEyC qGX#(,E9; 9e c},~( '第X章
$PI9vy S ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
Iib YG F ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle"
1D3 8T ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False
0\vG
< With ActiveDocument.Styles("QLNU章节标题").Font
YaL:6[6 .NameFarEast = "黑体"
<5,|h3]-# .NameAscii = "Arial Black"
?Pa(e)8\ .NameOther = "Arial Black"
u>G9r#~`k .Name = "黑体"
'n
^,lXWB .Size = 16
JT!9LNh;R` .Bold = True
1q@R04 i .UnderlineColor = wdColorAutomatic
KQvSeH>r .Outline = False
15 q^&l[Q .Italic = wdUndefined
5&h">_j .Subscript = wdUndefined
<hj2'd U .Superscript = wdUndefined
C\aHr! .Scaling = 100
D,R',(3 .DisableCharacterSpaceGrid = True
Yb4ku7} End With
A)V*faD With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat
p:K%-^ .LineSpacingRule = wdLineSpaceSingle
!_
QT{H .Alignment = wdAlignParagraphCenter
O`@-
b# .WidowControl = True
HsUh5; .KeepWithNext = True
> <Zu +HX .KeepTogether = True
E1tCY.N{ .PageBreakBefore = True
lSW'qgh .OutlineLevel = wdOutlineLevelBodyText
096Yd=3h D/~1?p .LeftIndent = CentimetersToPoints(0)
xb<|m2<)H .RightIndent = CentimetersToPoints(0)
P tLWFO .FirstLineIndent = CentimetersToPoints(0)
-B9e&J
{K fISK3t/=C .CharacterUnitLeftIndent = 0
\D(3~y> .CharacterUnitRightIndent = 0
>;' 0ymG.` .CharacterUnitFirstLineIndent = 0
%Zbm%YaW5 @+H 0D" .LineUnitBefore = 1
7=9>yba)^ .LineUnitAfter = 0.5
-{ 1P`&G y.J>}[\&x .AutoAdjustRightIndent = False
TH'8^w f .DisableLineHeightGrid = True
Ul9^"o .FarEastLineBreakControl = True
Ie!&FQe2 q .WordWrap = True
VOZxLyj^9 End With
{_\cd.AuT ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False
Z\EA!Cs3 ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll
FZ ?eX`, ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese
\20} /& ActiveDocument.Styles("QLNU章节标题").NoProofing = True
W. kcN, DoEvents
lTP #6zqfv :;yrYAyT3 '表格标题
}O>1tauI ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
`G/g/>y ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle"
[M,4qe8,} ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False
`D
|/g; With ActiveDocument.Styles("QLNU表格标题").Font
77yYdil^W+ .NameFarEast = "楷体"
Wm`*IBWA .NameAscii = "Arial"
p\&/m .Name = "楷体"
)!\6 " { .Size = 10.5
;' 8Wl .Bold = True
g:a[N%[C .Underline = wdUnderlineNone
Wp8>Gfb2 .Italic = wdUndefined
GRbbU#/=G .Subscript = wdUndefined
NRJp8G Z%U .Superscript = wdUndefined
!ess.U&m' .Color = wdColorAutomatic
){w{# End With
sdg2^] | With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat
mV`R'*1UC $zp|()_ .LineSpacingRule = wdLineSpaceSingle
1 ' U
.Alignment = wdAlignParagraphCenter
IPK1g3Z .KeepWithNext = True
?%UiW7}j'; .KeepTogether = True
VGD~) z57 .OutlineLevel = wdOutlineLevelBodyText
h! %y,4IBR t_w \k_
T .LeftIndent = CentimetersToPoints(0)
7=^}{ .RightIndent = CentimetersToPoints(0)
1h?ve,$ .FirstLineIndent = CentimetersToPoints(0)
t#|R"Q # A1-,b.Ni .CharacterUnitLeftIndent = 0
|
U"fhG=g .CharacterUnitRightIndent = 0
xZ P
SUEG .CharacterUnitFirstLineIndent = 0
@4T (,#m
+ .LineUnitBefore = 1
; Z7!BU .LineUnitAfter = 0
/go[}X5QR[ ~Yi4?B< End With
5rB>)p05[ ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False
v$Fz^<Na ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll
Q| h$D~ ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese
T?m@`"L, ActiveDocument.Styles("QLNU表格标题").NoProofing = True
f^ B'BioW( DoEvents
anbw\yh8 8Iw)]}T ' '表格首行
T=tW'tlT\v ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle")
IRx% L? ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False
hE 5? G; With ActiveDocument.Styles("QLNU表格首行").Font
^AaE$G&: .NameFarEast = "楷体"
ub-e! { .NameAscii = "Times New Roman"
t-K icLr .Name = "楷体"
7;AK=; .Size = 9
5%WAnh .Bold = True
V~j^ .Underline = wdUnderlineNone
sV,Yz3E<u$ .Italic = wdUndefined
1L4-;HYJm .Subscript = wdUndefined
1b3k|s4 .Superscript = wdUndefined
YR-G:-(# b End With
p03I&d@w> With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat
$M,<=.oT .LineSpacingRule = wdLineSpaceSingle
[znN 'Fg:" .Alignment = wdAlignParagraphCenter
*/aQ+%>jf 'LPyh ;!f .LeftIndent = CentimetersToPoints(0)
/qy6YF8;y .RightIndent = CentimetersToPoints(0)
!>> A@3 .FirstLineIndent = CentimetersToPoints(0)
sIf]e'@AC 3= sBe HL \{:A&X~\! .CharacterUnitLeftIndent = -0.5
\ opM}qZ .CharacterUnitRightIndent = -0.5
/\- }-"dm .CharacterUnitFirstLineIndent = -0.5
xw}yl4WT{ ajk}&`Wj" .LineUnitBefore = 0
@ewaj! .LineUnitAfter = 0
2I_ yUt- .SpaceBefore = 0
tt?`,G.(] .SpaceAfter = 0
d; Y Kw1 o/o6|[=3 End With
#0b:5.vy ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False
1bQO:n):~ ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll
F<g&t|@ ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese
r
YKGX?y ActiveDocument.Styles("QLNU表格首行").NoProofing = True
rP7
QW)NF DoEvents
2A~o)7JaZ c.Hw
K\IU '表格内容
r/'!#7dLG- ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle")
+S0aA Wal ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False
02t({>` With ActiveDocument.Styles("QLNU表格内容").Font
}WIkNG4{Z .NameFarEast = "楷体"
E ,.PT^au .NameAscii = "Times New Roman"
>4luZnWMI .Name = "楷体"
U MRFTwY .Size = 9
%_5#2a .Bold = False
/-FV1G, h .Underline = wdUnderlineNone
lb'tVO .Italic = wdUndefined
3W[?D8yi) .Subscript = wdUndefined
bpZA% {GS .Superscript = wdUndefined
9n\>Yieu End With
U&B Cd$ With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat
Jk(V ] .LineSpacingRule = wdLineSpaceSingle
GxD`M2 .Alignment = wdAlignParagraphCenter
~M^ [
(@XQ]S}L .LeftIndent = CentimetersToPoints(0)
7 >gjq'0
.RightIndent = CentimetersToPoints(0)
&mVClq .FirstLineIndent = CentimetersToPoints(0)
E8r6P:5d` uthW
AT & .CharacterUnitLeftIndent = -0.5
K0j%\]\Tp .CharacterUnitRightIndent = -0.5
u:|^ L]{ .CharacterUnitFirstLineIndent = -0.5
qA!p7"m| .LineUnitBefore = 0
_LwF: 19Il .LineUnitAfter = 0
W..*!UGl .SpaceBefore = 0
}wiyEVAh{ .SpaceAfter = 0
o{#aF=`
{ End With
8 +|W%} ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False
v(y JGEf0 ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll
8b'@_s!_ ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese
d%0G sg a} ActiveDocument.Styles("QLNU表格首行").NoProofing = True
Dch\k<Te DoEvents
i;9X_?QF uOzoE_i '图片标题
<L4$f (2 ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
lM4 Z7mT / ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle"
/g+-{+sx ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False
rN|=cn With ActiveDocument.Styles("QLNU图片标题").Font
%p .NameFarEast = "楷体"
BZ Q}c<Nl .NameAscii = "Times New Roman"
$aJ6i7C,j} .Name = "楷体"
bKsjbY uo .Size = 10.5
k5aB|xo .Bold = True
(+(@P*c1 .Underline = wdUnderlineNone
C\5G43` .Italic = wdUndefined
|D- [M_T5 .Subscript = wdUndefined
oMg-.!6 .Superscript = wdUndefined
L#K`F8Wi= .Outline = False
q-;Y }q .Shadow = False
N!~ ] D[D .Color = wdColorAutomatic
Y| r7gy9% End With
&j 1-Ouy With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat
(o B 4* .LineSpacingRule = wdLineSpaceSingle
*
rlV E .Alignment = wdAlignParagraphCenter
zJ y= 1r 7BU7sQjs .KeepWithNext = wdUndefined
8 k-]u3 .KeepTogether = True
tE=09J%z .OutlineLevel = wdOutlineLevelBodyText
H5Eso*v@ q}L`8(a .LeftIndent = CentimetersToPoints(0)
!
Ea >tQ| .RightIndent = CentimetersToPoints(0)
J/e] .FirstLineIndent = CentimetersToPoints(0)
Jg=!GU/:: *` "+J_ .CharacterUnitLeftIndent = 0
Ny7*MZ- .CharacterUnitRightIndent = 0
$k0(iFzR1 .CharacterUnitFirstLineIndent = 0
WC< [<uI* #&kj> .LineUnitBefore = 0
TSewq4`K .LineUnitAfter = 0
i#b /.oa End With
7d%x 7!E ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False
m_0y ]RfG ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll
0ex.~S_Oj4 ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese
nQOdM#dP ActiveDocument.Styles("QLNU图片标题").NoProofing = True
7\%JJw6h DoEvents
$T3_~7N Sk 7R;A '目录项
xSD*e 0
ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle")
axUj 3J > ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle"
,V!"4 T,Z ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False
Wr b[\
?- With ActiveDocument.Styles("QLNU目录项").Font
Nf!N;Cy? .NameFarEast = "黑体"
iS+"J sz .NameAscii = "Times New Roman"
kQbZ!yl>[ .NameOther = "Times New Roman"
[(x<2MTj .Name = "黑体"
ULz<P .Size = 10.5
4@fv%LOQo .Bold = False
e g/itty .Italic = wdUndefined
_2G _Io .Underline = wdUnderlineNone
#fa, }aj .Color = wdColorAutomatic
,o n]Fts .Superscript = wdUndefined
Hj
r'C?[ .Subscript = wdUndefined
$]_SPu End With
BM? !? With ActiveDocument.Styles("QLNU目录项").ParagraphFormat
*]U`]!Esp
F\ +AA .LineSpacingRule = wdLineSpaceSingle
<!RkkU&
6 .Alignment = wdAlignParagraphLeft
Z cjLv &P9fM-]b
s .WidowControl = False
W
!j-/ql .KeepWithNext = False
)/ 'Wbo
L .KeepTogether = False
(4 ZeyG@ .PageBreakBefore = False
:l
o5,B;k .NoLineNumber = False
@ywtL8"1~ .OutlineLevel = wdOutlineLevelBodyText
J.h` 0$! +7w5m .LeftIndent = CentimetersToPoints(0)
*nU5PSs .RightIndent = CentimetersToPoints(0)
nu+K
N,3R" .FirstLineIndent = CentimetersToPoints(0)
Jyg1z,B < 8WQ# ) .CharacterUnitLeftIndent = 0
{H[N|\ .CharacterUnitRightIndent = 0
&zy%
_U2% .CharacterUnitFirstLineIndent = 0
;=0mL, Q /?`); .LineUnitBefore = 0
G?$o+Y'F .LineUnitAfter = 0
Q GfwvFm End With
C5 I LVQ ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False
w;ZT-Fti ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll
<}[ !k< ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot
*
:T wO=) ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese
4!{lySW ActiveDocument.Styles("QLNU目录项").NoProofing = True
'qT;Eht5 DoEvents
<
e BmCrJ ?[ )}N
_o# '参考文献
}nPt[77U_7 ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle")
sc+%v1Y#} ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle"
b
3Q6- ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False
,e'm@d$Q* With ActiveDocument.Styles("QLNU参考文献").Font
$,by!w'e:l .NameFarEast = "宋体"
SeXgBbGAne .NameAscii = "Times New Roman"
!Q|a R .NameOther = "Times New Roman"
CA igV$ .Name = "Times New Roman"
V WZpEi .Size = 12
9k71h`5 .Bold = False
G@ ot^n3 .Italic = wdUndefined
u=InE|SH .Subscript = wdUndefined
C <:g"F:k .Superscript = wdUndefined
-y!Dg6 A .Underline = wdUnderlineNone
neM)(` gp .UnderlineColor = wdColorAutomatic
Ywhh s
}f .Color = wdColorAutomatic
8[J%TWq%9 .Engrave = False
u|}\Af End With
-(TC' With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat
}O~D3z4l0 #3
E"Ame .LineSpacingRule = wdLineSpaceExactly
|MGT8C&^! .LineSpacing = 16
{2:baoG- .Alignment = wdAlignParagraphLeft
=JE<oVP8 .WidowControl = False
A)9]^@, .KeepWithNext = False
ZPw4S2yw3. .KeepTogether = False
/ Q@4HV .PageBreakBefore = False
4_-& PZ,d .OutlineLevel = wdOutlineLevelBodyText
(L Tu=1 3_
J'+ .LeftIndent = CentimetersToPoints(0)
B)@Xz<Q .RightIndent = CentimetersToPoints(0)
Hb*Z _s .FirstLineIndent = CentimetersToPoints(0)
h?dSn:Y\? X8Z) W?vu .CharacterUnitLeftIndent = 0
xwsl$Rj
.CharacterUnitRightIndent = 0
,H6P% .CharacterUnitFirstLineIndent = -2
el5Pe{j ' S\N l|U[ .LineUnitBefore = 0
" J9
.LineUnitAfter = 0
5fk
A?Ecqq .SpaceBefore = 0
(v? @evQ .SpaceAfter = 0
IQ\!wWKmY wwdmz;0S End With
%T N$ ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False
tZ62T{, a ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll
i/_rz.c~3 ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS
9U<WR*H ActiveDocument.Styles("QLNU参考文献").NoProofing = True
5(CInl ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese
Y G0/e#5 DoEvents
F>{bVPh
VA Xxh^4vKjX '
}bw^p.ci ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle")
!b!An; ', ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle"
i695P}J2 ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False
@Un/,-ck With ActiveDocument.Styles("QLNU论文题目").Font
$=\=80u/ .NameFarEast = "黑体"
d4IQ;u .NameAscii = "Arial Black"
0cB]:*W .NameOther = "Arial Black"
!%R):^R8 .Name = "Arial Black"
'v V t^h2 .Size = 16
*c4Oh MU( .Bold = False
[x 7Rq_^ .Italic = wdUndefined
7#"NKxb .Superscript = wdUndefined
Y_n/r
D> .Subscript = wdUndefined
'Y2$9qy-L .Underline = wdUnderlineNone
)R
`d x .UnderlineColor = wdColorAutomatic
^jL)<y4` .Color = wdColorAutomatic
ek5j;%~g1 4 `l$0m@> End With
A 7Y CSjB With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat
N:
3=G`Ws .LineSpacingRule = wdLineSpaceSingle
P
n^:cr| .Alignment = wdAlignParagraphCenter
[p'2# Et .WidowControl = True
PtuRXx .KeepWithNext = True
YvG$2F |_) .KeepTogether = True
e:-pqZT` .PageBreakBefore = True
(^ B1Kt!< .NoLineNumber = False
Hz,Gn 9:p .OutlineLevel = wdOutlineLevelBodyText
GtmoFSZ _"Y7 }A\9 .LeftIndent = CentimetersToPoints(0)
X O?WxL9k] .RightIndent = CentimetersToPoints(0)
_) vX_gCi .FirstLineIndent = CentimetersToPoints(0)
g5 *E\T%8 n5 ~D xk .CharacterUnitLeftIndent = 0
4Wz1O$* .CharacterUnitRightIndent = 0
^3sv2wh^|8 .CharacterUnitFirstLineIndent = 0
)( 3)^/Xz y'>9' /& .LineUnitBefore = 1
, Zie2I?q .LineUnitAfter = 1
*.w6 =} )OQm,5F1 .BaseLineAlignment = wdBaselineAlignAuto
qh> An;:u End With
][Tw^r& ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False
`_LQs9J0J ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll
W<&/5s ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS
@dK_ w 'W ActiveDocument.Styles("QLNU论文题目").NoProofing = True
]v: ,< =S ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese
TVvE0y(9 ActiveDocument.Styles("QLNU论文题目").NoProofing = True
Hvz;[! DoEvents
[r 7Hcb n, 2 p)#? '中文摘要
:f Rta[ ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle")
{@
Lun6\ ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle"
MbYgGE,LA ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False
#"A`:bjG With ActiveDocument.Styles("QLNU中文摘要").Font
(&*Bl\YoX .NameFarEast = "宋体"
W="pu5q
$5 .NameAscii = "Times New Roman"
[Y
lRz .NameOther = "Times New Roman"
,O.iOT0=; .Name = "Times New Roman"
`Qb!W45 .Size = 12
)2E vZn .Bold = wdUndefined
;/Y#ph[ .Superscript = wdUndefined
<
^;~8 :0] .Subscript = wdUndefined
FiRe b3zR .Italic = wdUndefined
B7C<;`5TiD .Underline = wdUnderlineNone
0K"+u9D ^ .UnderlineColor = wdColorAutomatic
i88 5T ' .Color = wdColorAutomatic
:twp95{R1 End With
F ',1R"/} With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat
?
-& k?I .LineSpacingRule = wdLineSpaceExactly
3 ?aM\z; .LineSpacing = 20
nO`[C=| .Alignment = wdAlignParagraphLeft
=1>G *
, ql.[Uq .WidowControl = False
R+0fs$s u .KeepWithNext = False
jm&[8
ApW .KeepTogether = True
(oiQ5s^f .PageBreakBefore = False
]D@aM C$# .NoLineNumber = False
&Pv$nMB$I .OutlineLevel = wdOutlineLevelBodyText
!|VtI$I>x 0*P -/)o x .LeftIndent = CentimetersToPoints(0)
]Y? ZUSCJ .RightIndent = CentimetersToPoints(0)
-[>J"l .FirstLineIndent = CentimetersToPoints(0)
D{8B;+ 5<GeAW8ns] .CharacterUnitLeftIndent = 0
hQ:wW}HWW .CharacterUnitRightIndent = 0
BHz_1+d .CharacterUnitFirstLineIndent = 2
<au_ S\n .LineUnitBefore = 0
_G4 U .LineUnitAfter = 0
F
_@`
<d! +{6:] End With
L1` ^M ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False
r!{i2I | ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll
_ {if" ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS
ffB<qf)?G ActiveDocument.Styles("QLNU中文摘要").NoProofing = True
Z{ YuX ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese
4Z{R36 { ActiveDocument.Styles("QLNU中文摘要").NoProofing = True
CPsl/.$tC ActiveDocument.Styles("QLNU中文摘要").Frame.Delete
]E :L DoEvents
3:sc%IDP [xfg6 ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
Z< C39s ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle"
6U|"d[ ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False
@aj
dO/?(Y With ActiveDocument.Styles("QLNU英文标题").Font
uUBUUr .NameFarEast = "黑体"
x=K'Jj .NameAscii = "Arial Narrow"
B[&l<*O-y .Name = "Arial Narrow"
A0.xPru1p .Size = 16
n ~>b
}DY .Bold = True
Y/mf Bkh .Bold = wdUndefined
k%-y \WM .Superscript = wdUndefined
h+q#|
N .Subscript = wdUndefined
[4;_8-[Nv .Italic = wdUndefined
7]5+%[Dg! Wvd-b
e .Underline = wdUnderlineNone
nF3Sfw, .UnderlineColor = wdColorAutomatic
w5-^Py .StrikeThrough = False
IO?a.L:6U .DoubleStrikeThrough = False
N-
}OmcO]e End With
#EKnjh=Uq With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat
9-A@2&J1 .LineSpacingRule = wdLineSpaceSingle
k|]l2zlT .Alignment = wdAlignParagraphCenter
8PeVHpZ .WidowControl = True
( Ww
SisC~ .KeepWithNext = False
U b\& k[F .KeepTogether = False
pR* 3Q@Ng .PageBreakBefore = False
?<0'h{z Ny .NoLineNumber = False
D ][I#v h .FirstLineIndent = CentimetersToPoints(0)
_wg~5'w8 .OutlineLevel = wdOutlineLevelBodyText
S:2 xm8
i o+^e+ptc .LeftIndent = CentimetersToPoints(0)
| Cfo(]>G .RightIndent = CentimetersToPoints(0)
TgRG6?#^l .FirstLineIndent = CentimetersToPoints(0)
1G(wE
Se H- WNu+ .CharacterUnitLeftIndent = 0
[;to umv .CharacterUnitRightIndent = 0
\Ym $ to .CharacterUnitFirstLineIndent = 0
b 5|l8<\ C ]zgV bu .LineUnitBefore = 1
&8%^o9sH .LineUnitAfter = 1
Pa; *%7 l~f9F`~' End With
y
</i1qM ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False
"$"<AKCwS ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll
)zP"Uu u ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS
LBpAR| ActiveDocument.Styles("QLNU英文标题").NoProofing = True
2gvS`+<TP ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese
Mns=X)/hc ActiveDocument.Styles("QLNU英文标题").NoProofing = True
)OlYz!#? ActiveDocument.Styles("QLNU英文标题").Frame.Delete
f4X}F |!h DoEvents
#TP Y
% Uzn ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle")
eLyIQo W ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle"
Z%-uyT@a ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False
d7kv
<YG With ActiveDocument.Styles("QLNU英文摘要").Font
noT}NX% .NameFarEast = "宋体"
!<-+}X+o8$ .NameAscii = "Arial"
pA
EJ=Te .NameOther = "Arial"
Ki)hr%UFw .Name = "Arial"
{#{ nU NW .Size = 12
R, zp&L .Bold = wdUndefined
,.gI'YPQC .Italic = wdUndefined
P}PMR Aek .Superscript = wdUndefined
sg]g;U .Subscript = wdUndefined
.R^]< b:` End With
&)~LGWBdC xA}{ZnTbN With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat
i079 V +A_jm!tJS( .LineSpacingRule = wdLineSpaceExactly
R?*-ZI[>w .LineSpacing = 20
8, m: ?N%5c%oF
.Alignment = wdAlignParagraphJustify
4vH.B)S-
zWd z9; =_ .WidowControl = False
WN#dR~ > .KeepWithNext = False
aUBu"P$J .KeepTogether = False
OB P iL
Cq .PageBreakBefore = False
*41WZ E .NoLineNumber = False
{
lZ<'p RQn3y-N] .OutlineLevel = wdOutlineLevelBodyText
7nPm{=B G 0ENqK2 .LeftIndent = CentimetersToPoints(0)
@qsOWx`l$ .RightIndent = CentimetersToPoints(0)
%bnjK#o"Q .FirstLineIndent = CentimetersToPoints(0)
/z(
s1G. AqrK==0N .CharacterUnitLeftIndent = 0
qSV
g.<+ .CharacterUnitRightIndent = 0
l?beqw: .CharacterUnitFirstLineIndent = 2
k .F(*kh IZ_ B $mo .LineUnitBefore = 0
%A( hmC .LineUnitAfter = 1
6Qm .k $[ Qnp.Na[JV End With
VqB9^qJ]! ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False
o\y qf:V8 ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll
kZ
9n@($B ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS
K;f=l5 ActiveDocument.Styles("QLNU英文摘要").NoProofing = False
=u &NdMy DoEvents
&-Z#+>=H( |1 LKdP Options.Pagination = True
`udZ =S"/L Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....."
yj`xOncE} DoEvents
-| t|w:& ActiveDocument.Repaginate
D-5~CK4` ]JHY(
H2| End Sub
l _=kW!l gem+$TFq 1]jUiX=T
