Dim bContinue As Boolean
|
ao vZ/b4 x$;I E Dim regEX As New RegExp
B~RVFc + Dim paraCounter As Long '全局段落计数，仅在主程序中可读写，其它过程函数应为只读
w+NdEE4H9z ;5bzXW#U Dim LastTitle0String As String, LastTitle0No As Long
[Grd?mc# Dim LastTitle1String As String, LastTitle1No As Long
eiV[y^? Dim LastTitle2String As String, LastTitle2No As Long
fvDt_g9 oI Dim LastTitle3String As String, LastTitle3No As Long
nM1F4G Dim LastTitle4String As String, LastTitle4No As Long
i0y^b5@MOb Dim LastTitle5String As String, LastTitle5No As Long
~<?+(V^D
Dim LastTabelString As String, LastTableNo As Long
Pu=,L#+F N Dim LastFigureString As String, LastFigureNo As Long
M ;\iL ?, ST#MCh-00 Dim strSeperator As String
| KHaL? [%alnY Sub ConvertWidth(fTEXT As String, rText As String)
(HW!!xM Selection.Find.ClearFormatting
-<[MM2
Y Selection.Find.Replacement.ClearFormatting
axSJ:j8 Selection.Find.Wrap = wdFindContinue
`EUu fTYi Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText
mu[:b DoEvents
6{ ql.2
Fa Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True
oWu2}#~z_ End Sub
qBKRm0< W 1yS [; Sub ClearDomain()
x9 s 7:F With Selection.Find
0#AS>K5 .ClearFormatting
.m&JRz
zV
.Replacement.ClearFormatting
ur,!-t(~t .Wrap = wdFindContinue
gxIGL-1M Me.txtStatus.Text = "清除所有域代码"
gua +-##) DoEvents
*,:>EcDr .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False
s^@?+<4: End With
Be=J*D!E=> End Sub
h2SVDKj 9Q <8DMX^ Private Sub cmdCheck_Click()
n\v;4ly^ bContinue = True
McRAy%{z Dim NoSeries1(1 To 16) As String
*oC],4y~D Dim NoSeries2(1 To 16) As String
{hzU Dim NoSeries5(1 To 16) As String
'edd6yTd Dim NoSeriesRM(1 To 16) As String
Vy:I[@6@+ Dim paraTotal As Long, ParaText As String
6fozc2h@x% Dim ttString As String, ttNo As String
LX
[ _6 UbD1h_ b Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long
s\k4<d5 ) ]/gu\90 Me.txtStatus.Visible = True
=z5'A|Wa=, Me.lbParaType.Visible = True
m UmU_L u8 Me.cmdCheck.Enabled = False
i: 6`Rmz1. #E?T E R aVOZ=^- TzC'x WO
aL9 yNj}2 Dim ParaType As String, rText As String
ADTx _tE ] rP^ Selection.WholeStory
WU wH W Selection.NoProofing = True
PgeC\#;9 #mI{D\UR tm1 = Now
`K , {Y_ L9| 55z ActiveWindow.View.Type = wdNormalView
q`HuVilNH 2qw -: NoSeries1(1) = "一"
''{REFjK7 NoSeries1(2) = "二"
Ry@QJn I< NoSeries1(3) = "三"
6`>WO_<z NoSeries1(4) = "四"
TSGJ2u5ie% NoSeries1(5) = "五"
Xu4C*]A> NoSeries1(6) = "六"
E<j}" W$a NoSeries1(7) = "七"
uANG_sX^n NoSeries1(8) = "八"
_6b?3[Xz NoSeries1(9) = "九"
66P'87G NoSeries1(10) = "十"
R
Obo4 NoSeries1(11) = "十一"
|Va*=@&6J NoSeries1(12) = "十二"
t<)C
bple\ NoSeries1(13) = "十三"
n9
LTrhLqp NoSeries1(14) = "十四"
7,MDFO{n NoSeries1(15) = "十五"
JnW G_|m) NoSeries1(16) = "十六"
iP7
Cku}l SXYH#p NoSeries2(1) = "㈠"
Gb=pQ ( n4 NoSeries2(2) = "㈡"
CFm(
yFk NoSeries2(3) = "㈢"
c>_tV3TDA NoSeries2(4) = "㈣"
gRnn}LL^ NoSeries2(5) = "㈤"
>UUcKq1M: NoSeries2(6) = "㈥"
fgiOYvIS2m NoSeries2(7) = "㈦"
\~sc 6ho NoSeries2(8) = "㈧"
Tz\ PQ)! NoSeries2(9) = "㈨"
RZ(*%b<C NoSeries2(10) = "㈩"
DChqcdx~~ ?ztI8 I/ NoSeries5(1) = "①"
TzaR{0
1 NoSeries5(1) = "②"
PTU _ <\ NoSeries5(3) = "③"
XX85]49`% NoSeries5(4) = "④"
F/ZB%;O9 NoSeries5(5) = "⑤"
UlG8c~p NoSeries5(6) = "⑥"
B6N/nCvHK NoSeries5(7) = "⑦"
z n,y'}, NoSeries5(8) = "⑧"
:~I^ni NoSeries5(9) = "⑨"
E [:eMJR NoSeries5(10) = "⑩"
HHT_ }_? y /$Q5P+o Fgx{ s%&- NoSeriesRM(1) = "I"
/
$Qs1* NoSeriesRM(2) = "II"
+-DF3( NoSeriesRM(3) = "III"
#.<Uy."z2 NoSeriesRM(4) = "IV"
(=2-*((&(A NoSeriesRM(5) = "V"
|WiE`&?
xP NoSeriesRM(6) = "VI"
WpPm|h NoSeriesRM(7) = "VII"
DzfgPY_Py NoSeriesRM(8) = "VIII"
z %)~s/2Rs NoSeriesRM(9) = "IX"
N~""Lc& NoSeriesRM(10) = "X"
WH
>= *\ NoSeriesRM(11) = "XI"
n[vwwY NoSeriesRM(12) = "XII"
BBV"nm_(/ NoSeriesRM(13) = "XIII"
U$*AV<{% NoSeriesRM(14) = "XIV"
I~^t\iujs NoSeriesRM(15) = "XV"
!2. (iuE NoSeriesRM(16) = "XVI"
dRdI (' F9ys.Bc i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo)
-0QoVGw HE;}B!> If i = vbNo Then
z\d{A7 Exit Sub
{7k Jj(Ue End If
wbIgZ]o!/; InO;DA\ If Me.chkSuper.Value Then
\#
p@ef Me.txtStatus.Text = "检查修改所有的上标格式"
v qt#JdPp9 Re=()M CheckSuperScript
7U9*-9 oZD+ AF$R End If
hTEwp. Su]@~^ w If Me.chkStyle.Value Then
SmpYH
@ Me.txtStatus.Text = "设置样式，请稍候...."
YiO3.+H DoEvents
&z;bX-"E CeateOrModifyStyle
Tv d}5~
5? End If
D*%? 0 AiP#wK ; ,Y:ET1: 9QQiIi$74U ClearDomain
syJLcK+e 3`JLb]6 w#XD4kwQG &RJ*DAmL If Me.chkLIST.Value Then
UmR\2
cs Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式"
kB)u@`</mV / 5!0wx N ConvertListToOrdinary
%E R"U dh End If
Wbq0K6X *:5S*E&}V z4qc)-
{L Dim pType As String, trimpTEXT As String
43VBx<" If Me.chkNum.Value = True Then
:17Pc \:DS Me.txtStatus.Text = "转换全角数字形式为半角"
H;h$k]T ConvertWidth "１", "1"
_%@d lT? DoEvents
X[ 6#J ConvertWidth "２", "2"
%,1x Ol4l DoEvents
|p .o ^ ConvertWidth "３", "3"
Dru iiA DoEvents
!K8Kw
W|X ConvertWidth "４", "4"
W\c1Q Y$E DoEvents
]c9\[Kdq}H ConvertWidth "５", "5"
-wsoJh
DoEvents
F@tfbDO? ConvertWidth "６", "6"
9-W3} 4'e DoEvents
eh39"s ConvertWidth "７", "7"
o=n F .y DoEvents
d-sT +4o} ConvertWidth "８", "8"
O"M2*qiH DoEvents
W? F Q ConvertWidth "９", "9"
5%_aN_1?ef DoEvents
V&h{a8xa$
ConvertWidth "０", "0"
]
6X;&=H DoEvents
0h=}BCb+i ConvertWidth "ａ", "a"
Sx0/Dm DoEvents
2q
NA\-0i> ConvertWidth "ｂ", "b"
( GW"iL#. DoEvents
i V$TvD+ ConvertWidth "ｃ", "c"
|JL ?"cc DoEvents
y}F;~H~P ConvertWidth "ｄ", "d"
@*9c2\"k DoEvents
k-Z :z?M ConvertWidth "ｅ", "e"
z/I\hC9i DoEvents
Ao U Pq ConvertWidth "ｆ", "f"
"5!T-Z+F DoEvents
K1+4W=| ConvertWidth "ｇ", "g"
$a01">q&y DoEvents
\ xJ_ )r ConvertWidth "ｈ", "h"
I}je m DoEvents
YMU2^ ,3 ConvertWidth "ｉ", "i"
yPd6{% w DoEvents
kSpy-bVn ConvertWidth "ｊ", "j"
]vflx^<? DoEvents
8345
H ConvertWidth "ｋ", "k"
AI^!?nJ%' DoEvents
+n%d,Pz ConvertWidth "ｌ", "l"
_UA|0 a!- DoEvents
=h@t#-Z" ConvertWidth "ｍ", "m"
Y#5v5
DoEvents
i91 =h ConvertWidth "ｎ", "n"
`53S[8 ConvertWidth "ｏ", "o"
{ E;oirv& ConvertWidth "ｐ", "p"
h+ms%tNT ConvertWidth "ｑ", "q"
FN w0x6,~R ConvertWidth "ｒ", "r"
dq{+
-XaEk ConvertWidth "ｓ", "s"
f<{f/lU@ ConvertWidth "ｔ", "t"
GGs7]mhA ConvertWidth "ｕ", "u"
@<jm+f"MP ConvertWidth "ｖ", "v"
(e_z*o)\T ConvertWidth "ｗ", "w"
N/!( `Z, ConvertWidth "ｘ", "x"
GBl[s,g[| ConvertWidth "ｙ", "y"
aXyFpGdb9 ConvertWidth "ｚ", "z"
A+MG?k>yg ConvertWidth "Ａ", "A"
T)I\?hqTB ConvertWidth "Ｂ", "B"
i5,yrPF ConvertWidth "Ｃ", "C"
x[y}{ T ConvertWidth "Ｄ", "D"
]6
HR ConvertWidth "Ｅ", "E"
I&6M{,rnM ConvertWidth "Ｆ", "F"
vdcPpj^d5 ConvertWidth "Ｇ", "G"
9SBTeJ$RZ ConvertWidth "Ｈ", "H"
&qzy?/i8 ConvertWidth "Ｉ", "I"
.0rTk$B
ConvertWidth "Ｊ", "J"
? Rk[P
cX< ConvertWidth "Ｋ", "K"
TILH[r&Jg ConvertWidth "Ｌ", "L"
I
6'!b/ ConvertWidth "Ｍ", "M"
rE Me=>^
ConvertWidth "Ｎ", "N"
&P,uK+C4 ConvertWidth "Ｏ", "O"
^;9<7 h[l ConvertWidth "Ｐ", "P"
}1DzWS-hh ConvertWidth "Ｑ", "Q"
'T|EwrS j ConvertWidth "Ｒ", "R"
iR !]&Oh ConvertWidth "Ｓ", "S"
Uc, J+j0F ConvertWidth "Ｔ", "T"
PfsUe,* ConvertWidth "Ｕ", "U"
I.'/!11> ConvertWidth "Ｖ", "V"
M>Q3 ;s ConvertWidth "Ｗ", "W"
'
<?=!&\D ConvertWidth "Ｘ", "X"
8 (ot<3(D ConvertWidth "Ｙ", "Y"
m^~5Xr" ConvertWidth "Ｚ", "Z"
FHSFH > ConvertWidth "^l", "^p"
bzr QQQ ConvertWidth "（", "("
b BiTAP ConvertWidth "）", ")"
~"\WV4}`v -<ome~| End If
;Dbx5-
t |)C
# With ActiveDocument
D4N(FZ0~ Dim tbl As Table
^`[<%. For Each tbl In .Tables
?t<g|H/|6 tbl.Rows.Alignment = wdAlignRowCenter
H#u N&^+H tbl.Range.Font.NameFarEast = "楷体"
`fOp>S^Q4
tbl.Range.Font.NameAscii = "Times New Roman"
8`wKq6 tbl.Range.Font.Size = 10.5
BIS ., Next
=CW> ;h] Set tbl = Nothing
yEos$/*u-N End With
n2~WUK +w7U7"
xQ dC;&X
g` With ActiveDocument
2rW 9j a / :^nG+ For i = 1 To .TablesOfContents.Count
&Dt=[yqeG .TablesOfContents(i).Delete
P+ Gz' Next
V!(7=ku!` C23p1%#1 /1p5KVTKv }d>Xh8:%) paraTotal = .Paragraphs.Count
C
}|.z paraCounter = 1
wwRPfr[ DgK*> A LastTitle0No = 0
~;z]
_`_Va LastTitle1No = 0
%#
o@ c LastTitle2No = 0
o:&8H>(hn] LastTitle3No = 0
w?zy/+N~ LastTitle4No = 0
8f1M6GK? LastTableNo = 0
;B;@MD, B LastFigureNo = 0
3d]~e 0y t36Du Dim Sec As Long
c&P/v#U_ 1V9 A nzwX Sec = InputBox("正文从第一节开始？", "节设置", 6)
S?6 -I,]h If Sec = 0 Then
a~J!G:( Exit Sub
Hj(K*
z End If
c|(J%@B) Caz5q|Oo k = 0
cIQbu#[@ Do While (paraCounter < paraTotal) And bContinue
t%G.i@{pkp k = k + 1
<.Pt%Kg^BS If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then
eEfGH Exit Do
eXD~L &s[ End If
Sa%%3_& paraCounter = paraCounter + 1
{8qcM8 If k Mod 20 = 0 Then
XjCx`bX^< Me.lbCounter.Caption = paraCounter
_!VtM#G[ DoEvents
>k xRsiKV End If
:nR80] Loop
5Po:$( _VRxI4q )-o j m$ Do While (paraCounter < paraTotal) And bContinue
nW^h
+ UmvnVmnv ParaText = Trim(.Paragraphs(paraCounter).Range.Text)
YK[2KTlo ShapeHeight = 0
Phk3J v
ShapeWidth = 0
)hl7)~S< = |``d- CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth
n.qT7d(
8V}| (b# Select Case ParaType
%[5GG d5w Case "【】表格内容"
Y i,`uJKh .Paragraphs(paraCounter).Style = "QLNU表格内容"
rM^2yr7H Case "章"
Wz #
Cyjo LastTitle0No = LastTitle0No + 1
S-}c_zbl; '新一章开始，复位其下属标题编号
/t`, 7y 3T LastTitle1No = 0
iqdU?&.; LastTitle2No = 0
1pg#@h[|t LastTitle3No = 0
W!R0: - LastTitle4No = 0
|/H?\]7 7y3WV95Z\ k = Val(ttNo)
jl>TZ)4}V If k = 0 Then '非数字编号章节
4`)r1D!U If ttNo <> NoSeries1(LastTitle0No) Then
|OAM;@jH rText = "第" & NoSeries1(LastTitle0No) & ttString
~Kt1%&3{a? Me.ErrMsg.AddItem "章节编号错误：" & ParaText
7G^Q2w End If
FNuE-_
Else
& !ds#- If Val(ttNo) <> LastTitle0No Then
71
%$&6 rText = "第" & LastTitle0No & ttString
`"[qb ?z Me.ErrMsg.AddItem "章节编号错误：" & ParaText
^"p . 3Hy End If
tc[z/ 9od*N$ End If
j{r@>g;3 $'>JG9M '章段落设置
?}v/)hjp=? '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅
^"D^D`$@ .Paragraphs(paraCounter).Style = "QLNU章节"
EPH
n"YK .Paragraphs(paraCounter).Range.Select
@8>bp#x/1 Selection.EndKey unit:=wdLine
mv #hy tc = Replace(rText, vbCr, "")
4_iA<}> | Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False
B
@QWr; Case "一级标题"
j'U1lEZm2 LastTitle1No = LastTitle1No + 1
9unRMvE u '新一级标题开始，复位其下属标题编号
Pzq^ x] LastTitle2No = 0
nIr`T^c9c LastTitle3No = 0
MJqWc6{ n LastTitle4No = 0
akt7rnt?i b
Ej}J_# If ttNo <> NoSeries1(LastTitle1No) Then
uV_% &P rText = NoSeries1(LastTitle1No) & "、" & ttString
PuREqa\_[ Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText
\/<VJB
uV End If
,b&h Lht "^6Fh"] $/C1s"C@O '一级标题段落设置 格式：一、标题内容
yU& ;\' .Paragraphs(paraCounter).Range.Text = rText
7 s{vou .Paragraphs(paraCounter).Style = "QLNU一级标题"
I/O/*^T .Paragraphs(paraCounter).Range.Select
- e}(\ Selection.EndKey unit:=wdLine
tuIZYp8tIN tc = Replace(rText, vbCr, "")
lya},_WCq Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False
p&x!m}! Case "二级标题"
aQ $sn<-l LastTitle2No = LastTitle2No + 1
=?0v, ;F9| '新二级标题开始，复位其下属标题编号
I=#`8deH( LastTitle3No = 0
te2 vv]W1 LastTitle4No = 0
s5{=lP 2b"DkJj' If ttNo <> NoSeries1(LastTitle2No) Then
\u{4=-C. rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString
d1\nMm}v ErrMsg.AddItem "二级标题编号错误：" & ParaText
~WTk X(\ End If
x x>h J! GJZjQH-#P '二级标题段落设置 格式：(一)、标题内容
C0/^ 6Lu"o .Paragraphs(paraCounter).Range.Text = rText
3: WEODV2 .Paragraphs(paraCounter).Style = "QLNU二级标题"
#@OPi6.#!< *|g[Mn .Paragraphs(paraCounter).Range.Select
-JF^`hBD- Selection.EndKey unit:=wdLine
a-E}3a tc = Replace(rText, vbCr, "")
[
5}Q Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 2 ", PreserveFormatting:=False
hXth\e\[{` 6
h#U,G Case "三级标题"
Q17dcgd LastTitle3No = LastTitle3No + 1
3p &T?E% '新三级标题开始，复位其下属标题编号
6];3h>c]N LastTitle4No = 0
0y,w\'j Z3hZy&_I If Val(ttNo) <> LastTitle3No Then
WY TqQqQk rText = LastTitle3No & ". " & ttString
KzO"$+M Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText
kMu
rNA= PIa!N Py End If
H}5Wgl V. '三级标题段落设置 格式：1. 标题内容
3~tu\TH6d .Paragraphs(paraCounter).Range.Text = rText
m!Z<\2OP .Paragraphs(paraCounter).Style = "QLNU三级标题"
}}$@Tij19[ .Paragraphs(paraCounter).Range.Select
: =;{w~D Selection.EndKey unit:=wdLine
FMeBsI9pL tc = Replace(rText, vbCr, "")
z/xPI)R[ Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 3 ", PreserveFormatting:=False
P Bb&.< Case "四级标题"
xmcZN3 ){+ LastTitle4No = LastTitle4No + 1
"E\mj'k D)ri_w!Q If Val(ttNo) <> LastTitle4No Then
G2
kU _ rText = "(" & LastTitle4No & "). " & ttString
$Q8
&TM}E ErrMsg.AddItem "四级标题编号错误：" & ParaText
/Yp#` }Ii -)oUb=Lk{ End If
]}N
01yw|s '四级标题段落设置 格式：(1). 标题内容
; $80}TY ' .Paragraphs(paraCounter).Range.Text = rText
X2Z)>
10 .Paragraphs(paraCounter).Style = "QLNU四级标题"
\ m~?yq8H .Paragraphs(paraCounter).Range.Select
}q@#M8 b Selection.EndKey unit:=wdLine
NT*r7_e tc = Replace(rText, vbCr, "")
E3O^Tg?j Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 4 ", PreserveFormatting:=False
]$Z:^" JS3 )
yMrE T
m Case "表格标题"
]
5 S`y{j1 LastTableNo = LastTableNo + 1
N
$]er'` d REY m}1 If ttNo <> CStr(LastTableNo) Then
nS%jnp# rText = "表" & LastTableNo & ". " & ttString
QcQ%A%VIV ErrMsg.AddItem "表格编号错误：" & ParaText
iOURS y0mND
ze End If
kJ FWk X j/z)
, '表格名称段落设置 格式：表1. 表格名称
UT
yV6~ .Paragraphs(paraCounter).Style = "QLNU表格标题"
? =M ?v;8 xe = Replace(rText, vbCr, "")
{owuYVm .Paragraphs(paraCounter).Range.Select
A )sYde( Selection.MoveEnd wdCharacter, -1 '选择范围包括行尾的换行符。
%r(WS_%K| Selection.Range.Text = xe
:}v-+eIQ Selection.EndKey
kaekH*m~ Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False
rnj$u-8 R\3a Sx L Case "表格首行"
d6QrB"J` .Paragraphs(paraCounter).Style = "QLNU表格首行"
A,DBq9Z+4R Case "图片标题"
R*D<M3 LastFigureNo = LastFigureNo + 1
e9KD mX_ ZAg Xz{!H( If ttNo <> CStr(LastFigureNo) Then
b^d{$eoH?| rText = "图" & LastFigureNo & ". " & ttString
X%5eZ"1{x ErrMsg.AddItem "表格编号错误：" & ParaText
W]ca~ %r rvd $4l^ End If
X n!md
R '图片名称段落设置 格式：图1. 图名称
V z/w.%_g .Paragraphs(paraCounter).Range.Text = rText
!="q"X /* .Paragraphs(paraCounter).Style = "QLNU图片标题"
- /\qGI .Paragraphs(paraCounter).Range.Select
~\CS%thX Selection.EndKey unit:=wdLine
YkWHI (p xe = Replace(rText, vbCr, "")
70c ]|5 Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False
@h{|tP%" Case "正文"
L/tn;0 '正文名称段落设置
k(dakFaC^ .Paragraphs(paraCounter).Style = "QLNU正文"
G m Wr Case "文献条目"
Y)X7*iTi'j With .Paragraphs(paraCounter)
~/`/r%1/J '.Range.Select
B{j><u xl 'Selection.ClearFormatting
nFEJO&1 + '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator 'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ”
1}DA| !~ .Style = "QLNU参考文献"
Re8x!e'> End With
)Wk_ |zO- Case "图表注解"
~%/Rc` With .Paragraphs(paraCounter)
D:/ n2_ .Range.Font.NameFarEast = "楷体"
8O,\8:I# .Range.Font.NameAscii = "Times New Roman"
.
|T=T0^ .Range.Font.Size = 9 '小5号字
h.>SVQ zU 8 mr eHa .Alignment = wdAlignParagraphCenter
!
g]5y= .LeftIndent = 0
ja_8n["z .RightIndent = 0
Bxm ,?=h .FirstLineIndent = 0
4$&l`yWU+ .LineSpacing = 12
^ b +>r .LineSpacingRule = wdLineSpaceExactly
<(lA
CH .LineUnitAfter = 0
$gBQ5Wd .LineUnitBefore = 0
`]eJF|" .OutlineLevel = wdOutlineLevelBodyText
S" Cz.
bv .PageBreakBefore = False
Kk8} m; .RightIndent = 0
f"5O'QHGQK .WordWrap = True
;3cbXc@] .LineUnitAfter = 0.5
AYA{_^#+3 eA4:]A" End With
}R['Zoh 4I Case Else
s h$-}1 ; '不作处理
F$?Ab\#B End Select
I1E9E$m5\< vAU t~ X" '含有inlineshape的段落处理
?N<My& E If ShapeHeight > 30 Then
E?XaU~cpc .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle '对有图片的段落设置为单倍行距
}~I!'J#) End If
Q[j| 2U %vJHr!x If (ShapeWidth + ShapeHeight) > 150 Then
I$xZV?d. .Paragraphs(paraCounter).Style = "QLNU图片段落"
j HHWq>=d End If
Sr aZxuPg> Zok{ndO@|f '段落计数器递
elCYH9W^ paraCounter = paraCounter + 1
J2W-l{`r< Me.lbCounter.Caption = "当前检测段落：" & paraCounter
nTqU~'d' Me.txtStatus.Text = ParaText
^U_T< x8{ DoEvents
s7 "xDDV Loop
[b3!H{b# End With
yXR1 N
Yg Wm}c-GD msg = ""
9b+jT{Tg K.)!qkW-%S For i = 0 To Me.ErrMsg.ListCount - 1
=#G
2}8mQD msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i)
2nB99L{6 Next
^ F] hW {q0+ PzgP ^&eF916H sxREk99lL Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg
-&8( MT* Me.cmdCheck.Enabled = True
(gBKC]zvz3 Me.txtStatus.Visible = True
AatSN@,~z Me.lbParaType.Visible = False
S:_Ms{S +NPL. b| bContinue = False
} GB~3
J End Sub
E Jk HPn ii )# (b:V 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)
>D,Oa v Dim pTEXT As String
~wb1sn3 Kq")\Ha,f pTEXT = ChKRange.Text
!wy _3a O^@8Drgc ParaType = "其它"
V,&%[H
[ TitleString = pTEXT
+ F T c/r TitleNo = "N/A"
t/i I!} Y P2VSK2Q shpCounter = ChKRange.InlineShapes.Count
q3$8 "Q^ If shpCounter <> 0 Then
c|Iv et>3 MaxShpHeight = 0: TotalShpWidth = 0
03 @a G For i = 1 To shpCounter
;l@94
)@0 k = ChKRange.InlineShapes(i).Height
`> : 5[Y l = ChKRange.InlineShapes(i).Width
+94)BxrY If k > MaxShpHeight Then
y7,fFUKl MaxShpHeight = k
MgJ6{xzz End If
cfLLFPhv) TotalShpWidth = TotalShpWidth + l
@k? vbq Next
3 B&A)&pEO If MaxShpHeight > 60 Or TotalShpWidth > 150 Then
A5XMA|2_ Exit Sub
ob.<j End If
&uN ec( c End If
x>#{C,Fi Y
[ `+7w '空行
\zO. #H If Len(pTEXT) <= 2 Then
Z,).)y#B Exit Sub
/s\ m V End If
-N45ni87 \H] |5fp* bwsKdh '是否为表格中的文字
(g##wa) L If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then
YJJ1N/Z1 ParaType = "表格内容"
RaJTya^ k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber)
Q]k< Y If k = 1 Then
m!V,W*RNr ParaType = "表格首行"
t%=7v)IOE End If
<XdnVe1 Exit Sub
r6DLShP-Ur End If
R}&?9tVRR `fBQ?[05. '例外情况：脚注
MKHnA|uQ]( If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then
,-c,3/
tyA ParaType = "脚注"
Ds`e-X)O;\ Exit Sub
#t+ ?eye~ End If
ZoG @"vr2 MpCPY"WLL '例外情况：尾注
#I/P9)4 If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then
zwfft ParaType = "尾注"
Qd} n4KF\ Exit Sub
VdHT3r End If
jRK}H*u em s
f>
E If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then
c+:Zm rP/ ParaType = "页眉页脚"
R|st<P Exit Sub
Ebnb-Lze, End If
kuEXNi1l k%.v`H! UUt"8]@[ With regEX
E2e"A
I.h .Global = True
F \:~^` e=s
c$1|4= .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$"
1b5Z^a<u If regEX.Test(pTEXT) Then
`0d 0 T~ ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3")
(t4i&7-
TitleString = regEX.Replace(pTEXT, "$3")
/UCBoQ$/] TitleNo = regEX.Replace(pTEXT, "$1")
/ ;`H ) ParaType = "章"
VE |:k:}; Exit Sub
~MG6evm & End If
noZbsI4 1W USp;JMl .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$"
|9E:S If regEX.Test(pTEXT) Then
jB LTEb ParaType = "一级标题"
BlVHP8/b regEX.Execute (pTEXT)
}LUvh ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3")
"Lp
.*o TitleString = regEX.Replace(pTEXT, "$3")
PUdv1__C TitleNo = regEX.Replace(pTEXT, "$1")
xIM,0xM 2 Exit Sub
CNB
weM End If
B>2=IZ "- 4|HA '全角或半角括号中的数字
%_!/4^smE .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$"
e D>b|U=/ If regEX.Test(pTEXT) Then
!nm Z"n|}p ParaType = "二级标题"
t~+M>Fjm?d regEX.Execute (pTEXT)
3lUVD NbZ ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5")
&[ } )FI TitleString = regEX.Replace(pTEXT, "$5")
fv;Q*; oC& TitleNo = regEX.Replace(pTEXT, "$2")
+:KZEFY?< Exit Sub
-X.#Y6(
End If
QQJGqM3a2 o|xf2k '阿拉伯数字 1. 2.
aHhLz>H' .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$"
f1
'ByV'2 If regEX.Test(pTEXT) Then
CmU@8-1 ParaType = "三级标题"
X5)D [aE6 regEX.Execute (pTEXT)
#7uH> \r ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测
9jal D
X TitleString = regEX.Replace(pTEXT, "$3")
VU P|j/qD TitleNo = regEX.Replace(pTEXT, "$1")
N*I roT3 Exit Sub
Rk$7jZdTf End If
SoIK<*J E?w#$HS '全角或半角括号中的阿拉伯数字
&CG
94 .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$"
Jf^3nBZ If regEX.Test(pTEXT) Then
?JuJu1 ParaType = "四级标题"
zEQ]5>mG regEX.Execute (pTEXT)
1 $ *8F ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5")
mF6-f#t>H+ TitleString = regEX.Replace(pTEXT, "$5")
A c_ P^ TitleNo = regEX.Replace(pTEXT, "$2")
YU,zQ V' Exit Sub
9{pT)(Wnb End If
+ai3 N8 sT
? '表格名称
}QE.|.fA1 .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$"
T8 FW(Gw# If regEX.Test(pTEXT) Then
xQ9t1b|{e ParaType = "表格标题"
m$8siF{<q regEX.Execute (pTEXT)
l6' KIg ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3"))
s< tG TitleString = Trim(regEX.Replace(pTEXT, "$3"))
>tg)F|@ TitleNo = Trim(regEX.Replace(pTEXT, "$1"))
'(]W tx%9" strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换
Kw fd
S( Exit Sub
` m 5\ End If
5_^d3LOT0x \mb4leg5 '图片名称
,EQ0""G! .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$"
hb[ThQ If regEX.Test(pTEXT) Then
}?m0bM ParaType = "图片标题"
*l7 `C ) regEX.Execute (pTEXT)
4
]oe`yx ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3")
v n.5X TitleString = regEX.Replace(pTEXT, "$3")
X9* n[ev TitleNo = regEX.Replace(pTEXT, "$1")
R @\fqNq Exit Sub
"im5Fn
u End If
0:{ W
t 2C C"Z '参考文献
IOHWb& N6 .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})" '[数字]、
wSR|uh If regEX.Test(pTEXT) Then
E~y8X9HZ) ParaType = "文献条目"
VwR\"8r3 'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4")
XDK Me } 'TitleNo = regEX.Replace(pTEXT, "[$2] ")
m[%356u Exit Sub
]}`t~#Irz End If
p{E(RsA Ana[>wSZO@ prfx = Left(pTEXT, 2)
8:Hh;nl If prfx = "注：" Or prfx = "注:" Then
U]Q 5};FK ParaType = "图表注解"
`^#R
wn#
Exit Sub
!.h{/37] End If
^gVQ6=z% r\m{;Z#LJm uQdeKp4( ParaType = "正文"
Lg\3DzM 'iMzp]V; End With
b dr E2m End Sub
JuJW]E Q c& ;" Y{ Sub ConvertListToOrdinary()
+X g:*b9So Dim st As Paragraph
)CXlPbhY? With ActiveDocument
l0&Fm:))k For i = .Paragraphs.Count To 1 Step -1
".jO2GO^ Set st = .Paragraphs(i)
yzEyOz @Q lst = st.Range.ListFormat.ListString
u6C_*i{2 If lst <> "" Then
\3vQXt\dM$ st.Range.ListFormat.RemoveNumbers
*zRig|k !H st.Range.InsertBefore lst & " "
C:1(<1K End If
ZK4V-?/[6 Next
^!tX+`,6^ End With
AO<T6 VK Set st = Nothing
aZf/Wi
R2 End Sub
N[@
~q~v V lZ+x)E Private Sub UserForm_Activate()
ET[5`z Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节"
bU gg 2iFS Me.lbTotal.Font.Bold = True
O72g'qFPE Me.txtStatus.Visible = False
9fp"r,aHN& Me.cmdCheck.Enabled = True
0 \i\G|5 DN^+"_:TB End Sub
J{/hc }
$ +[}y`
-t 3[#^$_96b Sub CheckSuperScript()
8wWp+Hk Selection.Find.ClearFormatting
cc${[yj) Selection.Find.Replacement.ClearFormatting
MJX
ny4n With Selection.Find
#X] *kxQ
< .Text = "[【\[［〖](*)[】\]〗］]"
.# y#u={{l .Replacement.Text = "[\1]"
?g1eW
q& .Replacement.Font.Superscript = True
F6vsU :TfB '.Replacement.Font.Color = wdColorBlue
05F/&
+V .Forward = True
qiOtbH= .Wrap = wdFindContinue
$mxG-'x %K .FORMAT = True
QFTiE1mGH .MatchCase = False
'e:4 .MatchWholeWord = False
:h,}yBJ1L .MatchByte = False
%:C 6\4 .MatchAllWordForms = False
m03dL^( .MatchSoundsLike = False
wPI!i K@Ro .MatchWildcards = True
i , ^-9 End With
G)0
4'| W Selection.Find.Execute Replace:=wdReplaceAll
14&| (M End Sub
- 3(*4)h7 /J}G{Y
|n Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
|X{j^JP 5 bContinue = False
1
F:b ExQ Set regEX = Nothing
9>{ml&$ End Sub
EG4~[5[YgI Q]5 _s{kiz Sub CeateOrModifyStyle()
#~Xj=M % '
h.-L_!1B7 '
D*UxPm"pw Dim stl As Style
{ X?Aj > l dpz@T>MS= Options.Pagination = False
/Ey%aA4v 9#[,{2pJr On Error Resume Next
shB3[W{}!) For Each stl In ActiveDocument.Styles
$ `OyGeq"T stl.Delete
f['I4 /o Next
S^R dj ] On Error GoTo 0
/'oo;e WG ,
Il/ Set stl = Nothing
JQb{?C xkf2; DoEvents
a[ ;L + On Error Resume Next
*L ?~ p#c41_?'e ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph
+PPQ"#1pS &NF$_* \E ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph
Z7wl~Hk ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph
i:Y5aZc/Ds U/FysN_N! ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph
%nJo :/ ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph
|i
B# G{?`4=K ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph
e!Z}aOeE ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph
3]S_ w[Q4 ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph
p` ~=v4;b ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph
(KO]>!t ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph
}#g] qK ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph
7OLHY t 9 ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph
bV:<%l] L%[>z'Zp ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph
5XT^K)' ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph
U :x;4 ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph
-[!t=qi ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph
i&(1 <S>P ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph
bD )"Jy x7B;\D#`i/ ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph
S /Ic= On Error GoTo 0
a2?@OJ DoEvents
vo E t\H R|@~< * 'BaseStyle
\e' Vsy>q ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False
Bor_(eL^ With ActiveDocument.Styles("BaseStyle").Font
]@ y%j'e .NameFarEast = "宋体"
V+D <626o .NameAscii = "Times New Roman"
@G
XKqi .NameOther = "宋体"
o w(9dB&E .Size = 10.5
L5UZ@R, .Bold = wdUndefined
Z|KDi
`S .Italic = wdUndefined
G9&2s%lu.e .Subscript = wdUndefined
N_E zp68Fp .Subscript = wdUndefined
~%lUzabMa (k+*0.T&? .Underline = wdUnderlineNone
R KzO$T .UnderlineColor = wdColorAutomatic
BN(=LQ2[" .StrikeThrough = False
_{): w~zi .DoubleStrikeThrough = False
~(*tcs]hY x A^E+f:W_ .Outline = False
Sg%s\p]N_# .Emboss = False
P,zQl; .Shadow = False
r4
cz?e | .Hidden = False
V ~jp .SmallCaps = False
_KloX{a .AllCaps = False
; O w s8 .Color = wdColorAutomatic
^$dbyj` .Engrave = False
AP z "k?D0 .Scaling = 100
X }G$ON .Kerning = 1
"Plo[E .Animation = wdAnimationNone
0 NSw^dO\ .DisableCharacterSpaceGrid = False
6wT ])84 .EmphasisMark = wdEmphasisMarkNone
ZweAY.]e End With
Z@Q/P (t With ActiveDocument.Styles("BaseStyle").ParagraphFormat
lA4-ZQ2Zp[ .LeftIndent = 0
&I -T .RightIndent = 0
>r X$E<B\ .SpaceBefore = 0
(z;lNl(*C .SpaceBeforeAuto = False
h#Rza-?"\ .SpaceAfter = 0
y k!K 5 .SpaceAfterAuto = False
VJ
h]j ( ,^n&Q'p3 .LineSpacingRule = wdLineSpaceSingle
t<c7%i#Od .Alignment = wdAlignParagraphJustify
Dl ~(NLM YeT{ <9p .WidowControl = False
RFsUb:%V7- .KeepWithNext = False
k )z>9z %D .KeepTogether = False
h+Lpj^<2a .PageBreakBefore = False
Fa `%MR1 .NoLineNumber = False
8wO4; Px-VRANZt .FirstLineIndent = CentimetersToPoints(0)
b
IxH0=f .OutlineLevel = wdOutlineLevelBodyText
dHAT($QG .CharacterUnitLeftIndent = 0
|3F GM g% .CharacterUnitRightIndent = 0
Y(aUB$" .CharacterUnitFirstLineIndent = 0
# B <% .LineUnitBefore = 0
o6w8Y/VPu .LineUnitAfter = 0
;t9!< L .AutoAdjustRightIndent = True
I lO,Ql .DisableLineHeightGrid = True
t+ d7{&B
S;t`C~l\ .FarEastLineBreakControl = True
2aR9vmR .WordWrap = True
ho6hjhS|u .Hyphenation = False
9%21Q>Y?b * BrGh .HangingPunctuation = True
/
j "
}e_Q .HalfWidthPunctuationOnTopOfLine = True
}; 7I .AddSpaceBetweenFarEastAndAlpha = True
k8J zey]X .AddSpaceBetweenFarEastAndDigit = True
*[i49X&rd .BaseLineAlignment = wdBaselineAlignBaseline
)sQ/$g J End With
AMB{F ssz ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False
=!DX,S7 ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll
{ d#sZT ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese
Hr=|xw8. ActiveDocument.Styles("BaseStyle").NoProofing = False
m< #^c?u P9:5kiP H '一级标题题样式
hl0X, G+@ ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
,j{tGj_ ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle"
nT01B1/<] ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False
:!cK?H$+ With ActiveDocument.Styles("QLNU一级标题").Font
E;`^`T40 .NameFarEast = "黑体"
;:oX e*d .NameAscii = "Arial Black"
^AI02`c. .NameOther = "黑体"
k( 7Q\JKE .Name = "黑体"
t%e<]2 -8
.Size = 16 '三号
H;<>uE Lie .Bold = True
%H{;wVjK .Italic = wdUndefined
QoUdTIIL .Subscript = wdUndefined
z{
M2tLNb .Superscript = wdUndefined
I.C
atm2 End With
}M(xN6E With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat
>h:'Z*9 'aV'Am+: .LeftIndent = CentimetersToPoints(0)
g - ! .RightIndent = CentimetersToPoints(0)
H }_R `S .FirstLineIndent = CentimetersToPoints(0)
&Qv HjjQ?u K:XP;#OsP .LineSpacingRule = wdLineSpaceSingle
aso8,mpZuA .Alignment = wdAlignParagraphCenter
%${$P+a`D |RD )pvVM .WidowControl = True
78*8- .KeepWithNext = True
`<~
=6H .KeepTogether = True
9fs-|E[ 5 .OutlineLevel = wdOutlineLevelBodyText
vP#*if[V5 SAitufS .LineUnitBefore = 0.5
a6xo U;T .LineUnitAfter = 0.5
jPo,mz&^ End With
p<\! {5: ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False
Odw'Ua ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll
>}+R+''nR ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese
H)S!%(x4 ActiveDocument.Styles("QLNU一级标题").NoProofing = True
0=U|7%dOL DoEvents
{A< 9 61 )2l @%?9 '二级
Tc"J(GWG ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
w2 s06`g ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle"
T(Yp90'6 ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False
w \D
!e With ActiveDocument.Styles("QLNU二级标题").Font
y'b*Dk{ .NameFarEast = "黑体"
IS!OO< .NameAscii = "Arial Narrow"
\K" 7U .NameOther = "黑体"
NNr6~m)3v .Name = "黑体"
I0H]s/*C%9 .Size = 15 '小三号
pl[@U<8aw .Bold = False
\ `z%5/@f; .Outline = False
6&;GC<].(y .Italic = wdUndefined
}%PK %/ zI .Subscript = wdUndefined
S,5 >/'fy0 .Superscript = wdUndefined
21Dc.t{ End With
rZ n@i With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat
fwA8=o SZd .LeftIndent = CentimetersToPoints(0)
m3o -p .RightIndent = CentimetersToPoints(0)
oR~d<^z( .FirstLineIndent = CentimetersToPoints(0)
|.m)UFV j[R. UB3J .LineSpacingRule = wdLineSpaceSingle
\6MM7x(U3 .Alignment = wdAlignParagraphLeft
CLmo%"\ s v,*C>u\3s .WidowControl = True
'
=5B
.KeepWithNext = True
4 X/UyBk .KeepTogether = True
.`_iWfK .PageBreakBefore = False
A15Kj#Oy .OutlineLevel = wdOutlineLevelBodyText
p /nATvh$ :
qK-Rku .LineUnitBefore = 0.5
1,h:| .LineUnitAfter = 0.5
hi$AZ+ Eq
tL&UHe End With
N2HD=[*cr ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False
i a_@fQ ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll
#Ff8_xhP 2 ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese
cNwH Y
Z' ActiveDocument.Styles("QLNU二级标题").NoProofing = True
$v#`2S(7 DoEvents
}ssja,; }[lP^Qs '三级标题样式
G!B:>P|\l ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
Ua:@,}; ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle"
gjz-CY.hz ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False
>`WfY(Lq With ActiveDocument.Styles("QLNU三级标题").Font
n6t@ e^ .NameFarEast = "宋体"
:Cx|(+T .NameAscii = "Times New Roman"
0fvOA*UP .NameOther = "黑体"
U $OI]Dd9 .Name = "黑体"
:2 M&C+f[ .Size = 14 '四号
k]$oir .Bold = False
{K"hl u[ .Outline = False
+C~d;p .Italic = wdUndefined
a:l-cZ/! .Subscript = wdUndefined
[[^95: .Superscript = wdUndefined
G{4s~Pco[Q End With
;/Z-|+!IJt With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat
,YvOk|@R .LeftIndent = CentimetersToPoints(0)
g=t7YQq_~ .RightIndent = CentimetersToPoints(0)
N >*+Wg$Ne .FirstLineIndent = CentimetersToPoints(0)
Z- a XKws_ .LineSpacingRule = wdLineSpaceSingle
zdU 46|!u .Alignment = wdAlignParagraphLeft
vK+ re XE -8FUR~ WJ .WidowControl = True
O<V 4j , .KeepWithNext = True
LWTPNp:"{w .KeepTogether = True
#| ,cy,v4 .PageBreakBefore = False
pZ \7!rON .OutlineLevel = wdOutlineLevelBodyText
=9 )k:S( Ng !d 6] .CharacterUnitLeftIndent = 0
R)*DkL! .CharacterUnitRightIndent = 0
y9d"sqyh .CharacterUnitFirstLineIndent = 2
V7nOT*N:Q E X'PRNB, .LineUnitBefore = 0.5
(57!{
[J .LineUnitAfter = 0
B K=w' 1U End With
! #!
MTk ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False
$Z;/ Sh ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll
,e9M%VIu6[ ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese
|BZrV3;H ActiveDocument.Styles("QLNU三级标题").NoProofing = True
7p]Izx8][ DoEvents
M.s'~S7y ~AYl eM '四级标题样式
ti%R E:* ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
8 I_ ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle"
"|1iz2L ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False
Q0K$ZWM`7 With ActiveDocument.Styles("QLNU四级标题").Font
`?N0?;
.NameFarEast = "宋体"
A&Aj!# .NameAscii = "Times New Roman"
dTK0lgkUE .NameOther = "宋体"
sfr+W-7kx .Name = "宋体"
g;p}
-= .Size = 12 '小四号
K .mxF,H .Bold = True
[yk-<}#B .Outline = False
eZU9 L/w: .Italic = wdUndefined
7XyCl&Dc: .Subscript = wdUndefined
#6ePwd .Superscript = wdUndefined
/N_:npbJF End With
%EVgS F!r With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat
hPNMp@Nm6 6uo;4}0 .LeftIndent = CentimetersToPoints(0)
m
rnPZf i .RightIndent = CentimetersToPoints(0)
lTq"j?#E]m .FirstLineIndent = CentimetersToPoints(0)
!YjxCx YcDKRyrt .LineSpacingRule = wdLineSpaceSingle
njX$?V
.Alignment = wdAlignParagraphLeft
O HpV%8
` :yD>Tn;1 .WidowControl = True
HBOyiIm Q .KeepWithNext = True
#L+:MA 7H .KeepTogether = True
-c0ypz .PageBreakBefore = False
: p:
C .OutlineLevel = wdOutlineLevelBodyText
"#o..?K KsOWTq"uj .CharacterUnitLeftIndent = 0
] "{8"+x .CharacterUnitRightIndent = 0
Lm2!<<< .CharacterUnitFirstLineIndent = 2
3rKJ<(-2/ v
'+]T= .LineUnitBefore = 0
/o m++DxV .LineUnitAfter = 0
;H~<.QW m?<E >-bI End With
A) C)5 W ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False
Su2{ nNC> ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll
-%yrs6 ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese
m!%aB{e ActiveDocument.Styles("QLNU四级标题").NoProofing = True
(V jU ,'h DoEvents
1\&j)3mC R'tK
J_VI '正文校式
jO&*E 'pk ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle")
[A,^ F0:h ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle"
ed q,: ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False
^
U mYW With ActiveDocument.Styles("QLNU正文").Font
bqAW 7:<w)Al!
.NameFarEast = "宋体"
w(6n .NameAscii = "Times New Roman"
8;DDCop 8L .NameOther = "宋体"
l^Rb%?4Z .Name = "宋体"
Q&I`uS=
F s||" } l .Size = 12 '小四号
A'KH_]) 8\lh'8 .Bold = wdUndefined
^HJ?k:u .Italic = wdUndefined
?PT> V,& .Subscript = wdUndefined
DpgTm&}- .Superscript = wdUndefined
g5@g_~ g {jz`K1 .Outline = False
kUgfFa#_ .Emboss = False
/gZyl|kdy .Shadow = False
\4>,L_O .Hidden = False
<ErX<(0`ig !&rd#ZBn .DisableCharacterSpaceGrid = True
I}
jgz End With
pqfX} x With ActiveDocument.Styles("QLNU正文").ParagraphFormat
\]u;NbC] 'V]&X.=zC .LeftIndent = CentimetersToPoints(0)
@9B *V~ < .RightIndent = CentimetersToPoints(0)
@;bBc .FirstLineIndent = CentimetersToPoints(0)
?F AI@4 aaFT .LineSpacingRule = wdLineSpaceExactly
]h,rgO ; .LineSpacing = 20
h0rPMd(K .Alignment = wdAlignParagraphLeft
22CET9iCe ]A3 .WidowControl = False
^'V :T Y .KeepWithNext = False
[Vo5$w .KeepTogether = False
\c:$ eF .PageBreakBefore = False
u##th8h4U .Hyphenation = False
R2Fjv@Egk $mn0I69 .OutlineLevel = wdOutlineLevelBodyText
VIT|# a ZWj52 Fye>H6MU .CharacterUnitLeftIndent = 0
~Ba=nn8Cq .CharacterUnitRightIndent = 0
pZ.b
X .CharacterUnitFirstLineIndent = 2
uX6yhaOp| (jc& Fk .LineUnitBefore = 0
P"Al*{: J .LineUnitAfter = 0
fgdR:@]- .SpaceBefore = 0
sF{aG6u .SpaceAfter = 0
h= sNj jb.H[n,\ .DisableLineHeightGrid = True
h)HEexyRg End With
/ D&&7;jJ ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False
-
d\sKc ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll
I x%>aee ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese
4KM-$h,4O ActiveDocument.Styles("QLNU正文").NoProofing = True
C 1k< P DoEvents
Db,"Gl !5
o j~H '图片段落样式
?q:|vt ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle")
}xk(aM_ ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle"
9 %T??- ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False
VLez<Id9( With ActiveDocument.Styles("QLNU图片段落").Font
Dw%'u 'HG .Size = 12 '小四号
DW. w=L|5R .Italic = wdUndefined
/kb
U< .Subscript = wdUndefined
Y &C b
.Superscript = wdUndefined
.$18%jH# End With
RRIh;HhX With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat
ef7{D
P < (xqw<) .LeftIndent = CentimetersToPoints(0)
eT haH0 .RightIndent = CentimetersToPoints(0)
B{nwQC b .FirstLineIndent = CentimetersToPoints(0)
Tnp
P ' N ,Eap K
G .LineSpacingRule = wdLineSpaceSingle
_
p-e)J$7 .Alignment = wdAlignParagraphCenter
lT|Gkm<G .KeepWithNext = True
r=H?fTY<3E .OutlineLevel = wdOutlineLevelBodyText
c1yRy| K oJ=0jM# .CharacterUnitLeftIndent = 0
<&3P\aM> .CharacterUnitRightIndent = 0
.S/ 5kL ul .CharacterUnitFirstLineIndent = 0
?*fY$93O D:1@1Jr .LineUnitBefore = 0
`x[Is$ .LineUnitAfter = 0
b6N[t _, End With
K
tq 4b%{ ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False
_} R[mr/ ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll
{%R^8 ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese
h1w({<q*ov ActiveDocument.Styles("QLNU图片段落").NoProofing = True
x}+zhRJ DoEvents
{o}U"b<+Ra kFn/dQ4| }KI/fh '第X章
k
QuEG5n.- ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
r/j:A#6M]o ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle"
s?w 2^<P ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False
X4
Arn, With ActiveDocument.Styles("QLNU章节标题").Font
gM&IV{k3 .NameFarEast = "黑体"
[e X
]x .NameAscii = "Arial Black"
+OE !Uqnt .NameOther = "Arial Black"
!D#"+&&G8 .Name = "黑体"
lG7PM^Eb .Size = 16
Lx0nLJ\ .Bold = True
1M]=Nv .UnderlineColor = wdColorAutomatic
"v8p<JfB` .Outline = False
y [8 ;mCh .Italic = wdUndefined
zjpZ] $ .Subscript = wdUndefined
vI{aF-
# .Superscript = wdUndefined
]`/>hH>+~9 .Scaling = 100
x b,XI/ .DisableCharacterSpaceGrid = True
`q?3 ux End With
PI9,*rOy With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat
{&=+lr_h? .LineSpacingRule = wdLineSpaceSingle
q oO`)
< .Alignment = wdAlignParagraphCenter
5=pE*E
TJ .WidowControl = True
iW5cEI%tb .KeepWithNext = True
mmTpF]t
?` .KeepTogether = True
4q}+8F`0F .PageBreakBefore = True
'Gy`e-y B .OutlineLevel = wdOutlineLevelBodyText
n
i#jAwkN5 @/ z\p7e .LeftIndent = CentimetersToPoints(0)
h d3 .RightIndent = CentimetersToPoints(0)
xX e3E& .FirstLineIndent = CentimetersToPoints(0)
1BSd9Ydj K*/ oWYM] .CharacterUnitLeftIndent = 0
+A|
Bc~2! .CharacterUnitRightIndent = 0
2S?7j[@%i` .CharacterUnitFirstLineIndent = 0
;c!> = 4t,
2H" M .LineUnitBefore = 1
Vrt$/ d .LineUnitAfter = 0.5
r9[S%Def |P
>"a` .AutoAdjustRightIndent = False
$1yO Z p5 .DisableLineHeightGrid = True
DrJ?bG;[ .FarEastLineBreakControl = True
g
#5R|| r .WordWrap = True
[G<ga80 End With
Qs&;MW4q ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False
|N
)Ik8 ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll
7v5]% %E/ ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese
>y3FU1w5d ActiveDocument.Styles("QLNU章节标题").NoProofing = True
J(7#yg%5 DoEvents
'nCVjO7o Cj -s '表格标题
daE.y_9y ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
>q e Db0 ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle"
3s6obw$ki ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False
n' ~ ==2 With ActiveDocument.Styles("QLNU表格标题").Font
|[SHpcq> .NameFarEast = "楷体"
}`uyOgGg* .NameAscii = "Arial"
m5K?oV @n .Name = "楷体"
]o6 ZZK .Size = 10.5
YX$( Sc3.6 .Bold = True
Tag f7tw4 .Underline = wdUnderlineNone
Gv-VDRS .Italic = wdUndefined
BEDkyz;: .Subscript = wdUndefined
x l&@g)Jj .Superscript = wdUndefined
8 A>OQR .Color = wdColorAutomatic
O^L]2BVC End With
C[J9 =!t With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat
O$ *lPA[ .shi?aWm .LineSpacingRule = wdLineSpaceSingle
`YNzcn0x .Alignment = wdAlignParagraphCenter
zI`I
Q .KeepWithNext = True
G+zhL6]F
.KeepTogether = True
#])"1f k .OutlineLevel = wdOutlineLevelBodyText
EF 0v!XW d_ 9 C m@ .LeftIndent = CentimetersToPoints(0)
/K:r4Kw .RightIndent = CentimetersToPoints(0)
_
Mw3>GNl .FirstLineIndent = CentimetersToPoints(0)
> mb}~wx` rzf Lp .CharacterUnitLeftIndent = 0
,lZ19B?WP .CharacterUnitRightIndent = 0
,' 8%'xi t .CharacterUnitFirstLineIndent = 0
8 v/H;65 msl.{ .LineUnitBefore = 1
LV:L0D7y .LineUnitAfter = 0
.5|[gBK ,P eR}E;c End With
^ZwZze:2 ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False
^'`b\$km-0 ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll
c4H6I~2Na ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese
/ H r|u ActiveDocument.Styles("QLNU表格标题").NoProofing = True
Qit&cnO DoEvents
z|#*c5Y9w qG9a!sj '表格首行
dyQ[email protected] ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle")
)lG}B U. ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False
>h7(kj : With ActiveDocument.Styles("QLNU表格首行").Font
67j kU ! .NameFarEast = "楷体"
^ja]e%w# .NameAscii = "Times New Roman"
Z@bgJL8 3 .Name = "楷体"
%2QGbnt_* .Size = 9
Ac: `xk<
.Bold = True
JR l=j2z .Underline = wdUnderlineNone
L!}!k N:? .Italic = wdUndefined
] A5F}wV4 .Subscript = wdUndefined
G c V/_Y .Superscript = wdUndefined
cY?|RXNmZ End With
Nq8ON!<< With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat
=o#Z?Bn5 .LineSpacingRule = wdLineSpaceSingle
zMSwU]4I! .Alignment = wdAlignParagraphCenter
|AYii-g PCT&d)} .LeftIndent = CentimetersToPoints(0)
v;,W ^#` .RightIndent = CentimetersToPoints(0)
7:4c\C0 .FirstLineIndent = CentimetersToPoints(0)
Z
RVt2 "n%j2"TYJj |Z:yd}d .CharacterUnitLeftIndent = -0.5
K#R]of~/ .CharacterUnitRightIndent = -0.5
25X|N=} .CharacterUnitFirstLineIndent = -0.5
kckRHb
eU )D8
op;Fn .LineUnitBefore = 0
S?688 .LineUnitAfter = 0
+( LH!\{^ .SpaceBefore = 0
8zK#./0\ .SpaceAfter = 0
U0&myj 8L *!QmYH5r0 End With
1eI*.pt ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False
Rhc:szDU ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll
6n9/`D! ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese
T`# nn| ActiveDocument.Styles("QLNU表格首行").NoProofing = True
H:.~!
r DoEvents
/YJo"\7 4C;;V m4~ '表格内容
!>4 8`o ^ ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle")
GfONm
6A ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False
-P;3BHS$T
With ActiveDocument.Styles("QLNU表格内容").Font
FL mD?nw .NameFarEast = "楷体"
+X
WTu! .NameAscii = "Times New Roman"
hK?GIbRZ .Name = "楷体"
%]P{)*y-
? .Size = 9
+hRy{Ps/ .Bold = False
w B)y@w4k .Underline = wdUnderlineNone
?!RbS#QV} .Italic = wdUndefined
M5I`i{Gw .Subscript = wdUndefined
9\8ektq} Z .Superscript = wdUndefined
@76}d End With
Ej(BE@6>s With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat
7y
Cf3 .LineSpacingRule = wdLineSpaceSingle
Gu$
/rb ? .Alignment = wdAlignParagraphCenter
A/y|pg5 U$y
9f .LeftIndent = CentimetersToPoints(0)
9PB%v.t5 y .RightIndent = CentimetersToPoints(0)
$ }/tlA&e .FirstLineIndent = CentimetersToPoints(0)
Ag8/%a~( t0 e6iof^o .CharacterUnitLeftIndent = -0.5
A7L; ims7 .CharacterUnitRightIndent = -0.5
aO{@ . .CharacterUnitFirstLineIndent = -0.5
B^2r4
9vC .LineUnitBefore = 0
^G! cv .LineUnitAfter = 0
Snkb ^Kt .SpaceBefore = 0
]]|#+$ ~ .SpaceAfter = 0
xp|1y ud End With
d+DO
}=] ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False
)Jt.
Z^J< ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll
@X/ 1`Mp ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese
tA1?8`b Q ActiveDocument.Styles("QLNU表格首行").NoProofing = True
B-
@bU@H DoEvents
h0F=5| B ^Gk)a X '图片标题
F_079~bJ ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
o*K7(yUL4 ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle"
Y -it3q'Z ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False
}8 3
8F& With ActiveDocument.Styles("QLNU图片标题").Font
\GEz.Vb .NameFarEast = "楷体"
h1~h& F? .NameAscii = "Times New Roman"
%n$f#Ml_r .Name = "楷体"
`l45T~`] $ .Size = 10.5
-r *|N.5c .Bold = True
Bz'.7"
":0 .Underline = wdUnderlineNone
l WRl .Italic = wdUndefined
N8 2 6xvA .Subscript = wdUndefined
q^xG%YdPz+ .Superscript = wdUndefined
k| OM?\ .Outline = False
EjfQ F C .Shadow = False
f0P,j~] .Color = wdColorAutomatic
#Us<#"fC End With
C@a I*+@-" With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat
vHvz-3 .LineSpacingRule = wdLineSpaceSingle
&4OOW;,?< .Alignment = wdAlignParagraphCenter
(BY 0b%^ vA6`};| .KeepWithNext = wdUndefined
HzM\<YD .KeepTogether = True
@ lB{!j&q .OutlineLevel = wdOutlineLevelBodyText
#M!u'; bZ i$kB6B#== .LeftIndent = CentimetersToPoints(0)
c
W^L
mA .RightIndent = CentimetersToPoints(0)
t?9J'.p .FirstLineIndent = CentimetersToPoints(0)
`)cI^ ! "|JbdI]%P .CharacterUnitLeftIndent = 0
) f3A\^ .CharacterUnitRightIndent = 0
EMnz;/dMt .CharacterUnitFirstLineIndent = 0
#?)6^uTW c#x~
x .LineUnitBefore = 0
G@P;#l`(D .LineUnitAfter = 0
0er| QC End With
OV{v6,>O ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False
G$,s. MSf ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll
+pYgh8w@ ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese
dOv\] ActiveDocument.Styles("QLNU图片标题").NoProofing = True
h[dJNawL DoEvents
zU1D@ M4Cb(QAVP '目录项
(rFkXK4^J ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle")
N[eL Qe]q ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle"
d'(n/9 K ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False
.6MG# N With ActiveDocument.Styles("QLNU目录项").Font
)2c]Z|
.NameFarEast = "黑体"
4 }C
\N .NameAscii = "Times New Roman"
P
4B|l: .NameOther = "Times New Roman"
$7YZ;=~B .Name = "黑体"
y],op G6 .Size = 10.5
@PM<pEve .Bold = False
6wpW!SWD .Italic = wdUndefined
= cRmaD .Underline = wdUnderlineNone
|ru!C( .Color = wdColorAutomatic
T;DKDg a .Superscript = wdUndefined
kk5&lak2V .Subscript = wdUndefined
|kZ!-?
9Z End With
YWU@e[ With ActiveDocument.Styles("QLNU目录项").ParagraphFormat
G^{~'TZv% UXji$|ET6 .LineSpacingRule = wdLineSpaceSingle
DOu^
.Alignment = wdAlignParagraphLeft
+C\79,r ou0TKE9
_ .WidowControl = False
9Qszr=C0 .KeepWithNext = False
TDw~sxtv& .KeepTogether = False
T^!Q(`* .PageBreakBefore = False
~Bl,_?CB r .NoLineNumber = False
} @LIb<Y .OutlineLevel = wdOutlineLevelBodyText
u>;aQtK~ & &CrF~
.LeftIndent = CentimetersToPoints(0)
Xr^ 5Th\ .RightIndent = CentimetersToPoints(0)
XHv
m{z= .FirstLineIndent = CentimetersToPoints(0)
aNry> 2: @(L}:]{@ .CharacterUnitLeftIndent = 0
L{~ ]lUo .CharacterUnitRightIndent = 0
}Rz,}^B .CharacterUnitFirstLineIndent = 0
G-i2#S Mq~E'g4# .LineUnitBefore = 0
m? wQk:Y1 .LineUnitAfter = 0
IZrcn End With
v 8F{qT50 ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False
4x
?NCD=k ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll
;G`]`=s#Lq ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot
AyQ5jkIE^{ ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese
R:n|1]*f3X ActiveDocument.Styles("QLNU目录项").NoProofing = True
X.{xH D&_ DoEvents
,R=!ts[qi W?SAa7+ '参考文献
z:S:[X 0 ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle")
X8v)yDtw ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle"
;|K
} ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False
x
.@O]}UH With ActiveDocument.Styles("QLNU参考文献").Font
F3V: B.C .NameFarEast = "宋体"
! Gnm<|. .NameAscii = "Times New Roman"
G1it
3^*$ .NameOther = "Times New Roman"
mNC?kp .Name = "Times New Roman"
UG44 oKB .Size = 12
`'|6b5`2j .Bold = False
: F3UJ[V .Italic = wdUndefined
41/ civX>V .Subscript = wdUndefined
sT =|"H? .Superscript = wdUndefined
Pg.JI:>2Ku .Underline = wdUnderlineNone
E
u O:}[ .UnderlineColor = wdColorAutomatic
Q.9,W=<6 .Color = wdColorAutomatic
^XeJZkLEB .Engrave = False
0Gj/yra9MO End With
q5Zu'-Cx@ With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat
,eTdQI; N5l`Rq^K .LineSpacingRule = wdLineSpaceExactly
xY)eU;* .LineSpacing = 16
8; `
B3N7 .Alignment = wdAlignParagraphLeft
?1g`
'q@T% .WidowControl = False
K"[jrvZ= .KeepWithNext = False
*CGHp8 .KeepTogether = False
+s_a{iMVP .PageBreakBefore = False
'` k .OutlineLevel = wdOutlineLevelBodyText
d_(;sW"I 27R4B
O .LeftIndent = CentimetersToPoints(0)
c1kV}-v .RightIndent = CentimetersToPoints(0)
q2|x$ 5 .FirstLineIndent = CentimetersToPoints(0)
POm;lM $ u gRyU ny .CharacterUnitLeftIndent = 0
S7J.(;
82 .CharacterUnitRightIndent = 0
~*1Z1aZ .CharacterUnitFirstLineIndent = -2
/Q W^v;^ Q0`@=5?- .LineUnitBefore = 0
Q `K^>L1 .LineUnitAfter = 0
Ho}*Bn~ic .SpaceBefore = 0
\_u{ EB'b .SpaceAfter = 0
wL3BgCxqDL auIW>0?} End With
N 6kMl ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False
K8KN
<Q s] ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll
Z*P/ ubV' ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS
O.#R r/+) ActiveDocument.Styles("QLNU参考文献").NoProofing = True
+z9BWo!{I ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese
[Y@}{[q 5 DoEvents
|H=5Am i.^UkN{ '
Jv
5l ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle")
?lqqu#;8 ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle"
[jN Vk3 ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False
T-n>+G{ With ActiveDocument.Styles("QLNU论文题目").Font
^xk4HF .NameFarEast = "黑体"
Z}zka<y6K6 .NameAscii = "Arial Black"
$Vp&7OC] .NameOther = "Arial Black"
m; =S]3 P* .Name = "Arial Black"
.z$UNB(! M .Size = 16
sA O/yG .Bold = False
i:N-Q)<Q*) .Italic = wdUndefined
44n
41.Q] .Superscript = wdUndefined
Z
OAg7 .Subscript = wdUndefined
kL s{B .Underline = wdUnderlineNone
OWfB8*4
@ .UnderlineColor = wdColorAutomatic
W;yg{y .Color = wdColorAutomatic
sMAH;'`!Eu 9(
X~ End With
lp d~U 2& With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat
xP9R
d/xa| .LineSpacingRule = wdLineSpaceSingle
; [lLFI .Alignment = wdAlignParagraphCenter
LDw.2E
.WidowControl = True
.rg "(I .KeepWithNext = True
L4+R8ojG .KeepTogether = True
P\
[K)N/ 1 .PageBreakBefore = True
S\
ZCZ0 .NoLineNumber = False
P5dD& .OutlineLevel = wdOutlineLevelBodyText
Ts, U T L q~18JB4WPJ .LeftIndent = CentimetersToPoints(0)
=|O]X|y-lZ .RightIndent = CentimetersToPoints(0)
_eQ-'") .FirstLineIndent = CentimetersToPoints(0)
1IgTJ" \ 6_8y Q .CharacterUnitLeftIndent = 0
qc'KQ5w7! .CharacterUnitRightIndent = 0
]ml 'd .CharacterUnitFirstLineIndent = 0
$0{ h Uex }|-8- ; .LineUnitBefore = 1
%/U'Wu{* .LineUnitAfter = 1
uFuH/(}K [ VAheus .BaseLineAlignment = wdBaselineAlignAuto
9]chv>dO)= End With
q} '<[Wg ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False
W#d'SL#5 ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll
e?XGv0^qu ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS
\\Zsxya1 ActiveDocument.Styles("QLNU论文题目").NoProofing = True
R))4J ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese
%;_EWs/z8 ActiveDocument.Styles("QLNU论文题目").NoProofing = True
rWJRoGk/ DoEvents
(.z0.0W B\|^ $z2 '中文摘要
U/HF6=Wot ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle")
OvC@E]/+ ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle"
@VND}{j ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False
]9<H[5>$R With ActiveDocument.Styles("QLNU中文摘要").Font
a~VW
?wq .NameFarEast = "宋体"
$Y$s*h_-/< .NameAscii = "Times New Roman"
BVv -1$ U^ .NameOther = "Times New Roman"
[$>@f{: .Name = "Times New Roman"
),o=~,v: .Size = 12
&B+_#V=X@ .Bold = wdUndefined
s)'+,lKw .Superscript = wdUndefined
B' B0 e
` .Subscript = wdUndefined
0jXDjk5'< .Italic = wdUndefined
I8 W9Kzf .Underline = wdUnderlineNone
v!S(T];) .UnderlineColor = wdColorAutomatic
>Ir?)h .Color = wdColorAutomatic
SoCN.J30 End With
}
?+0s=Z With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat
Vw. 4;Zy( .LineSpacingRule = wdLineSpaceExactly
I?q-
:9: .LineSpacing = 20
bLg gh]Fh .Alignment = wdAlignParagraphLeft
&"1 _n]JO e v7A;; .WidowControl = False
X)TZ S .KeepWithNext = False
iF: NDqc .KeepTogether = True
Q &&=:97d .PageBreakBefore = False
|e+r~).4B .NoLineNumber = False
4dz Ym+vJm .OutlineLevel = wdOutlineLevelBodyText
{poT A+ i kDiR2K& .LeftIndent = CentimetersToPoints(0)
1?TgI0 HS .RightIndent = CentimetersToPoints(0)
a[=B?Bd .FirstLineIndent = CentimetersToPoints(0)
)DW".c ] R
Vme^= .CharacterUnitLeftIndent = 0
NP.qh1{NP .CharacterUnitRightIndent = 0
{j[*:l0Ui .CharacterUnitFirstLineIndent = 2
/byF:iYI .LineUnitBefore = 0
DM,;W`|6% .LineUnitAfter = 0
4&L,QSJ V Cb|R End With
8M[
'- ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False
|jWA > S ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll
rd(-2,$4 ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS
m KKa0" ActiveDocument.Styles("QLNU中文摘要").NoProofing = True
ZTGsZ}{5 ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese
|f}`u F ActiveDocument.Styles("QLNU中文摘要").NoProofing = True
527u d^: ActiveDocument.Styles("QLNU中文摘要").Frame.Delete
A,#
z_2~ DoEvents
'7]9q#{su OtZtl* 5 ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
2{ h G",JL ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle"
v49 i.c9 ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False
i&}LuF8 With ActiveDocument.Styles("QLNU英文标题").Font
>
^f]Lgp .NameFarEast = "黑体"
xn Z .NameAscii = "Arial Narrow"
aX bj pb+ .Name = "Arial Narrow"
zs-,Y@Z L .Size = 16
*z'Rl'j9[ .Bold = True
NUi&x + .Bold = wdUndefined
naY#`xig .Superscript = wdUndefined
4l{La}Aj .Subscript = wdUndefined
Ac>G F .Italic = wdUndefined
2Y}A9Veb 3\B~`=*q/ .Underline = wdUnderlineNone
=lh&oPc1 .UnderlineColor = wdColorAutomatic
o:%;AOcl .StrikeThrough = False
PB:r+[91 .DoubleStrikeThrough = False
xLbF9ASim End With
(elkk# With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat
4
$ )}d .LineSpacingRule = wdLineSpaceSingle
MA mjoH .Alignment = wdAlignParagraphCenter
|z) 7XK .WidowControl = True
;UQ&yj%x .KeepWithNext = False
SwH #=hg .KeepTogether = False
XQ Si .PageBreakBefore = False
"W}+~Sn .NoLineNumber = False
2ZxZ2?.uJ .FirstLineIndent = CentimetersToPoints(0)
1(VskFtZF .OutlineLevel = wdOutlineLevelBodyText
gi/W3q3c6 H M\}C. u .LeftIndent = CentimetersToPoints(0)
]V"B`ip[2 .RightIndent = CentimetersToPoints(0)
5e'**tbKH .FirstLineIndent = CentimetersToPoints(0)
?zXl Lud8 B o*Wm
w .CharacterUnitLeftIndent = 0
',Oc +jLR .CharacterUnitRightIndent = 0
NC x )zJ\S .CharacterUnitFirstLineIndent = 0
/jU4mPb;\D 51>OwE f<R .LineUnitBefore = 1
y$|O
E%S .LineUnitAfter = 1
K!G/iz9SB m`,h nDp End With
H//,qxDc ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False
wD<W 'K ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll
Nm0|U.< ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS
`LWb L*;Y0 ActiveDocument.Styles("QLNU英文标题").NoProofing = True
cn
;2& ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese
erV&N,cI ActiveDocument.Styles("QLNU英文标题").NoProofing = True
PiX( Ase ActiveDocument.Styles("QLNU英文标题").Frame.Delete
W$R@Klz DoEvents
fqm6Pd{:( 7YU}-gi ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle")
]"vpCL ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle"
<
$rXQ ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False
J s,. $t With ActiveDocument.Styles("QLNU英文摘要").Font
( 2KopL .NameFarEast = "宋体"
Dd,]Y}P .NameAscii = "Arial"
aFy'6c}
.NameOther = "Arial"
B{Lzgw u; .Name = "Arial"
*_uGzGB&G .Size = 12
ZN`I4Ak .Bold = wdUndefined
o PA m* .Italic = wdUndefined
XCO ;t_ % .Superscript = wdUndefined
,5|@vW2@u .Subscript = wdUndefined
M`G#cEc End With
&Mh]s\ ,xC@ @>f With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat
L 3C'q sGJZG .LineSpacingRule = wdLineSpaceExactly
Z@#k ivcpz .LineSpacing = 20
z0tm3ovp Pkd L] !: .Alignment = wdAlignParagraphJustify
5bprhq-7 sTYA .WidowControl = False
qP[jtRIN .KeepWithNext = False
OxVe}Fy
m .KeepTogether = False
GplEad
$ .PageBreakBefore = False
14Jkr)N .NoLineNumber = False
Qb1hk*$= SDW!9jm>R .OutlineLevel = wdOutlineLevelBodyText
L q;=UE :AC( \ .LeftIndent = CentimetersToPoints(0)
!o`h*G-x .RightIndent = CentimetersToPoints(0)
j 1$s^ -9 .FirstLineIndent = CentimetersToPoints(0)
<~.1>CI9D3 ;U<rFs40 .CharacterUnitLeftIndent = 0
, *Z!Bd8 .CharacterUnitRightIndent = 0
1 &YkRCn0 .CharacterUnitFirstLineIndent = 2
nA#dXckoc ca$K)=cDW .LineUnitBefore = 0
$C&
E3 'O .LineUnitAfter = 1
xR5zm %\ zO)3MC7l* End With
~$ "P\iJ ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False
k!wEPi] ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll
h!]=)7x; ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS
+ C[%^G-: ActiveDocument.Styles("QLNU英文摘要").NoProofing = False
+@yT cz DoEvents
$%3%&+z$I < SNu`,/I Options.Pagination = True
k iY1 Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....."
glRHn?
p DoEvents
DqBiB H[%h ActiveDocument.Repaginate
`CEHl &w : .f m LL End Sub
,A
!0:+ 8Nf%<nUv USyOHHPW@
