Dim bContinue As Boolean
0Ei\VVK> 7yo|ie@S Dim regEX As New RegExp
H4P\hOK7r Dim paraCounter As Long '全局段落计数，仅在主程序中可读写，其它过程函数应为只读
iSnI Bs9\ zG& WWc`K Dim LastTitle0String As String, LastTitle0No As Long
^nG1/} Dim LastTitle1String As String, LastTitle1No As Long
9m%7dsv Dim LastTitle2String As String, LastTitle2No As Long
VC/R)%@% Dim LastTitle3String As String, LastTitle3No As Long
bv .EM Dim LastTitle4String As String, LastTitle4No As Long
sZ0g99eX Dim LastTitle5String As String, LastTitle5No As Long
pA* D/P- Dim LastTabelString As String, LastTableNo As Long
tpN]evp| Dim LastFigureString As String, LastFigureNo As Long
HR/k{"8W4Q $ iX^p4v Dim strSeperator As String
9m<wcZ , LCH2r Sub ConvertWidth(fTEXT As String, rText As String)
#N<s^KYG- Selection.Find.ClearFormatting
OI)&vQ5k Selection.Find.Replacement.ClearFormatting
L-^# 02 Selection.Find.Wrap = wdFindContinue
>:3xi{ Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText
k/$Ja; DoEvents
\W3+ VG2cA Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True
SIKk|I) End Sub
h <PYE]?l "r
5'lQI Sub ClearDomain()
Yt\E/*% With Selection.Find
Se
!gs> .ClearFormatting
gubb .EY .Replacement.ClearFormatting
.d<~a1k .Wrap = wdFindContinue
[d!Af4 Me.txtStatus.Text = "清除所有域代码"
]hCWe0F
DoEvents
jrDz7AfA .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False
!X \Sp} End With
6 |B a End Sub
F2Nb5WT e k Y? Private Sub cmdCheck_Click()
$M:4\E5( bContinue = True
1C^HCIH7J Dim NoSeries1(1 To 16) As String
$K=K?BV[ Dim NoSeries2(1 To 16) As String
.F{}~
K] Dim NoSeries5(1 To 16) As String
TKj/6 Jz| Dim NoSeriesRM(1 To 16) As String
/ig^7+ # Dim paraTotal As Long, ParaText As String
a 7QlU=\ Dim ttString As String, ttNo As String
T=
hm#] >=.ch5h3J) Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long
&xPOp$Sx~ aRFi0 h
\ Me.txtStatus.Visible = True
GM34-G H+ Me.lbParaType.Visible = True
A5 &>!y Me.cmdCheck.Enabled = False
T
{5
M1r O+CF/ipX/ |[lxV&SD . eukX#0/^ 5^
G7pI7 Dim ParaType As String, rText As String
, V0iMq cP}5}
+ Selection.WholeStory
h$#4ebp Selection.NoProofing = True
GV `idFd A"P \4 tm1 = Now
?^e*UJNM B`'}&6jr. ActiveWindow.View.Type = wdNormalView
(E2lv#[ ;XD>$t@ NoSeries1(1) = "一"
m)tI NoSeries1(2) = "二"
AxG?zBTFx NoSeries1(3) = "三"
O3sla bE# NoSeries1(4) = "四"
z/ c'Z#w% NoSeries1(5) = "五"
(hD X4;4 NoSeries1(6) = "六"
{[(W4NAlH NoSeries1(7) = "七"
*~\;&G29Y NoSeries1(8) = "八"
+lY\r + ; NoSeries1(9) = "九"
0lvb{Zd NoSeries1(10) = "十"
E
6>1Fm8%V NoSeries1(11) = "十一"
/NPl2\ o. NoSeries1(12) = "十二"
$6 Q2)^LJ NoSeries1(13) = "十三"
B 1 jH.( NoSeries1(14) = "十四"
E-*> f"<h NoSeries1(15) = "十五"
cOj +}Hz58 NoSeries1(16) = "十六"
`Z;B^Y0 ND)M3qp2( NoSeries2(1) = "㈠"
0C4*
F NoSeries2(2) = "㈡"
8EW `*+%= NoSeries2(3) = "㈢"
K-g=td/@ NoSeries2(4) = "㈣"
":(Cpf0 NoSeries2(5) = "㈤"
MSxU>FX0 NoSeries2(6) = "㈥"
$S"zxEJJ Y NoSeries2(7) = "㈦"
VNOK>+ NoSeries2(8) = "㈧"
*YiD B?Si NoSeries2(9) = "㈨"
BMtYM{S6 NoSeries2(10) = "㈩"
J.
CZR[XF# S[\cT:{ OE NoSeries5(1) = "①"
OI;L9\MJc NoSeries5(1) = "②"
XY$cx~ NoSeries5(3) = "③"
_BeX7 NoSeries5(4) = "④"
<uWJ>sg^ 6 NoSeries5(5) = "⑤"
ynOc~TN NoSeries5(6) = "⑥"
(AyRs7Dkn NoSeries5(7) = "⑦"
P~b%;*m}8 NoSeries5(8) = "⑧"
YQfZiz}Fv NoSeries5(9) = "⑨"
#U6/@l) NoSeries5(10) = "⑩"
9fr&Yb=_o@ r`mzsO-' DI2S
%N l NoSeriesRM(1) = "I"
o$qFa9|Ec? NoSeriesRM(2) = "II"
b_)QBE9 NoSeriesRM(3) = "III"
.q'FSEkMJ NoSeriesRM(4) = "IV"
qqO10~Xc NoSeriesRM(5) = "V"
&L[8Mju6 NoSeriesRM(6) = "VI"
K2 vPj| NoSeriesRM(7) = "VII"
v]d?6g NoSeriesRM(8) = "VIII"
I%VV4,I&pK NoSeriesRM(9) = "IX"
gvwCo Cbb NoSeriesRM(10) = "X"
$yR{ZFo NoSeriesRM(11) = "XI"
V.E.~<7D\ NoSeriesRM(12) = "XII"
M O(5-R` NoSeriesRM(13) = "XIII"
^YB\\a9 NoSeriesRM(14) = "XIV"
6i?kkULBS NoSeriesRM(15) = "XV"
Vt$ $ceu NoSeriesRM(16) = "XVI"
!Cv<>_N). K7d1(. i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo)
mtHi9).,y| lN]X2 4t If i = vbNo Then
`siy!R Exit Sub
=:0IHyB#0 End If
+@<^i?ale Si%Eimiq If Me.chkSuper.Value Then
G%W03c Me.txtStatus.Text = "检查修改所有的上标格式"
\sXm Mc i >/@]2 CheckSuperScript
+(=[M]5#n O7L6Htya End If
r(/P||`l #q ^>qX
y If Me.chkStyle.Value Then
}gi`
?58J6 Me.txtStatus.Text = "设置样式，请稍候...."
*SAcH_I2$> DoEvents
,M9hb<:m CeateOrModifyStyle
ua. 6
?W) End If
37<GG) + $pO ./5MsHfbxt #!F8n` C- ClearDomain
C sQ}P) C9^elcdv '&o>
%V z;@S_0M,Z If Me.chkLIST.Value Then
Qg8eq_m( Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式"
;Vtpq3
=fu_ Jau} ConvertListToOrdinary
z<C~DH End If
y|2g "J iaq:5||, rnt$BB[g Dim pType As String, trimpTEXT As String
8mQd*GGu1 If Me.chkNum.Value = True Then
p_kTLNZd9 Me.txtStatus.Text = "转换全角数字形式为半角"
zfT'!kb,( ConvertWidth "１", "1"
hF{mm(qyv DoEvents
"}
azC |:5 ConvertWidth "２", "2"
k+>p!1 DoEvents
,"
HpV ConvertWidth "３", "3"
m<VL19o>R DoEvents
_ jM6ej< ConvertWidth "４", "4"
ROI $;B( DoEvents
xX6 7bswG ConvertWidth "５", "5"
u{y5'c J{ DoEvents
"M VN /Gl ConvertWidth "６", "6"
BfO}4
DoEvents
RWEgUDX^/ ConvertWidth "７", "7"
T=)L5 Vuq< DoEvents
)="g?E 3 ConvertWidth "８", "8"
rO2PbF3 DoEvents
5tbiNm^X ConvertWidth "９", "9"
&`9bGO DoEvents
^dp[ Z,[1z ConvertWidth "０", "0"
LnACce
?b DoEvents
=*O9)$b ConvertWidth "ａ", "a"
nq w*oLFQ DoEvents
t3h \.(mq ConvertWidth "ｂ", "b"
M3xi 0/. DoEvents
i~M.F=I5 ConvertWidth "ｃ", "c"
{UjIxV(J DoEvents
epm8N / ConvertWidth "ｄ", "d"
NIcNL(] DoEvents
,'@ISCK^ ConvertWidth "ｅ", "e"
5Qe}v DoEvents
hc~#l # ConvertWidth "ｆ", "f"
DW;.R<
8 DoEvents
?\ i,JJO ConvertWidth "ｇ", "g"
)7 BNzj"~ DoEvents
PeR<FSF ,i ConvertWidth "ｈ", "h"
;kcFQed\w DoEvents
]`+"o[ ConvertWidth "ｉ", "i"
r|sy_Sk/{ DoEvents
i OA3x 8J ConvertWidth "ｊ", "j"
U S~JLJI DoEvents
,jdKcWy' ConvertWidth "ｋ", "k"
A_dYN?^?| DoEvents
9cHNwgD>v ConvertWidth "ｌ", "l"
_M[[o5{ DoEvents
1,sO =p)Yg ConvertWidth "ｍ", "m"
-Z Ml[;OM DoEvents
m:o$|7r ConvertWidth "ｎ", "n"
)Z`viT ConvertWidth "ｏ", "o"
#
v/aI*Rl ConvertWidth "ｐ", "p"
Z_TbM^N ConvertWidth "ｑ", "q"
}N=zn7 W ConvertWidth "ｒ", "r"
#p^pv dvh3 ConvertWidth "ｓ", "s"
W71#NjM2Z ConvertWidth "ｔ", "t"
jq]\oY8y ConvertWidth "ｕ", "u"
A 5\"e^> ConvertWidth "ｖ", "v"
L?pvz} ConvertWidth "ｗ", "w"
yyYbB
]D ConvertWidth "ｘ", "x"
ckkM)|kK
ConvertWidth "ｙ", "y"
k1
t xY ConvertWidth "ｚ", "z"
iS^^Z ZyR ConvertWidth "Ａ", "A"
Wn)A/Z ^r
ConvertWidth "Ｂ", "B"
S &g - ConvertWidth "Ｃ", "C"
/-} p7AM ConvertWidth "Ｄ", "D"
N/SB}F j ConvertWidth "Ｅ", "E"
3 jQ$72_ ConvertWidth "Ｆ", "F"
q.Aw!]:! ConvertWidth "Ｇ", "G"
gj(l&F *@ ConvertWidth "Ｈ", "H"
?%TM7Z4 ConvertWidth "Ｉ", "I"
7B> cmi ConvertWidth "Ｊ", "J"
d(cYtM ,P
ConvertWidth "Ｋ", "K"
S}oF7;'Ga ConvertWidth "Ｌ", "L"
G;.u>92r| ConvertWidth "Ｍ", "M"
Xv;ZA a ConvertWidth "Ｎ", "N"
!EC\1rmdlN ConvertWidth "Ｏ", "O"
u K &_IE} ConvertWidth "Ｐ", "P"
a~
+WL ConvertWidth "Ｑ", "Q"
xo@/k ConvertWidth "Ｒ", "R"
( ]uoN4 ConvertWidth "Ｓ", "S"
+vY`?k` ConvertWidth "Ｔ", "T"
S+=@d\S}" ConvertWidth "Ｕ", "U"
/t2 <OU9 ConvertWidth "Ｖ", "V"
F_
lj>;}a5 ConvertWidth "Ｗ", "W"
&rE l ConvertWidth "Ｘ", "X"
e2H'uMy;& ConvertWidth "Ｙ", "Y"
tw^.(m5d ConvertWidth "Ｚ", "Z"
3R96;d; ConvertWidth "^l", "^p"
dXy"yQ>{ ConvertWidth "（", "("
G7#~=W
2M ConvertWidth "）", ")"
AZm)$@e) Pn){xfqDl End If
`E%d $ }z%/6`7)| With ActiveDocument
?J1&,'& Dim tbl As Table
a[OLS+zf!P For Each tbl In .Tables
c;
fyUi tbl.Rows.Alignment = wdAlignRowCenter
+]2~
@=<@ tbl.Range.Font.NameFarEast = "楷体"
kT3;%D^ tbl.Range.Font.NameAscii = "Times New Roman"
K0bmU(Xxp tbl.Range.Font.Size = 10.5
2H0q\zZ Next
=(uy':Dbn* Set tbl = Nothing
mCP +7q7 End With
z[I/ AORl J} ;,%q _ sjbC~Te-- With ActiveDocument
5Ddyb%
|zegnq~ For i = 1 To .TablesOfContents.Count
#pxet .TablesOfContents(i).Delete
Y@xeyMzE Next
>@\?\!Go %y~]3XWik 1+[|pX T} ^ C#bW <T paraTotal = .Paragraphs.Count
0hr)tYW,G paraCounter = 1
B c` A]U P=hf/jOv9 LastTitle0No = 0
g{.@|;d <p LastTitle1No = 0
<\Dl#DH LastTitle2No = 0
v8M#%QoA LastTitle3No = 0
}Z%{QJ$z LastTitle4No = 0
04LVa|Y@U LastTableNo = 0
&_T jRj" LastFigureNo = 0
s%re>)=| 15yV4wHr Dim Sec As Long
M(gWd8 ?# rb4g<f| Sec = InputBox("正文从第一节开始？", "节设置", 6)
<qZ+U4@I) If Sec = 0 Then
G\+MT(&5 Exit Sub
N>#P
1!eP End If
<cd%n-
C)dYAq3,8 k = 0
\^Q)`Lqp:g Do While (paraCounter < paraTotal) And bContinue
:re(khZq# k = k + 1
>Qu^{o
If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then
!c' ;L' Exit Do
/-9+( End If
J;9QDrl` paraCounter = paraCounter + 1
`RLrT3 4 If k Mod 20 = 0 Then
hndRg Co Me.lbCounter.Caption = paraCounter
[_B&7#3>7 DoEvents
JH OBg{Wg End If
>.sN?5}y Loop
Nv#, s_hG G(,~{N|| 4C*=8o e_ Do While (paraCounter < paraTotal) And bContinue
X Ow^"=Oa[ Ny<G2! W ParaText = Trim(.Paragraphs(paraCounter).Range.Text)
H%jIjf ShapeHeight = 0
2n,73$ s ShapeWidth = 0
Q>Q}/{8! L PgI"6cP CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth
QE6-(/ ^qy-el Select Case ParaType
M/I d\~ Case "【】表格内容"
?a_q!,8: .Paragraphs(paraCounter).Style = "QLNU表格内容"
E^ti !4{< Case "章"
Uv$ u\D+@[ LastTitle0No = LastTitle0No + 1
(9lx5 '新一章开始，复位其下属标题编号
Dy'l]vN$ LastTitle1No = 0
qt;Tfuo LastTitle2No = 0
tA n6 pGp LastTitle3No = 0
ooxzM ` LastTitle4No = 0
0X 6o eNsku G|1 k = Val(ttNo)
_P
m}]Y:_ If k = 0 Then '非数字编号章节
9`VF
[*
9 If ttNo <> NoSeries1(LastTitle0No) Then
L*Cf&c`8r rText = "第" & NoSeries1(LastTitle0No) & ttString
pIjVJ9+j Me.ErrMsg.AddItem "章节编号错误：" & ParaText
Z9EQ|WfS#- End If
\d`Sz
* Else
0(6` d r_ If Val(ttNo) <> LastTitle0No Then
c.> (/ rText = "第" & LastTitle0No & ttString
X+ BSneu Me.ErrMsg.AddItem "章节编号错误：" & ParaText
*g}&&$b0 End If
Tj~#X c G+p>39P End If
S :|*wB
M)RQIl5 '章段落设置
s$G8`$+i1 '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅
*XR~fs?/*W .Paragraphs(paraCounter).Style = "QLNU章节"
M- A}(r +J .Paragraphs(paraCounter).Range.Select
RlL,eU$CS Selection.EndKey unit:=wdLine
Y3&ecEE tc = Replace(rText, vbCr, "")
=&xoyF Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False
)eyxAg Case "一级标题"
x/^zNO\1 LastTitle1No = LastTitle1No + 1
U Bg_b?k '新一级标题开始，复位其下属标题编号
S, >n'r[ LastTitle2No = 0
VAzJclB
LastTitle3No = 0
y=`(`|YW}` LastTitle4No = 0
|ZzBCL8q SZ){1Hu If ttNo <> NoSeries1(LastTitle1No) Then
2$UR " P rText = NoSeries1(LastTitle1No) & "、" & ttString
tS@/Bq('B Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText
+5 \\wGo< End If
}E
lce} W.<<azi IH}L 1i A) '一级标题段落设置 格式：一、标题内容
^!tI+F{n{ .Paragraphs(paraCounter).Range.Text = rText
K Hc + .Paragraphs(paraCounter).Style = "QLNU一级标题"
o\gQYi .Paragraphs(paraCounter).Range.Select
md
s\~l73 Selection.EndKey unit:=wdLine
\mG M#E tc = Replace(rText, vbCr, "")
Wuz~$SU Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False
%05a>Rf& Case "二级标题"
|
Ylk`< LastTitle2No = LastTitle2No + 1
pdu '新二级标题开始，复位其下属标题编号
J8'zvH&I LastTitle3No = 0
oa7Hx<Y LastTitle4No = 0
2"^9t1C2 |g !#
\ If ttNo <> NoSeries1(LastTitle2No) Then
|Q;1;QXd rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString
bS6Yi)p ErrMsg.AddItem "二级标题编号错误：" & ParaText
jgIzB1H End If
g>CQO,s;w M*uG`Eo& '二级标题段落设置 格式：(一)、标题内容
m$g^O n .Paragraphs(paraCounter).Range.Text = rText
Sa~C#[V .Paragraphs(paraCounter).Style = "QLNU二级标题"
|0mI3r -qF| Y
f .Paragraphs(paraCounter).Range.Select
.9 QQ]fLs Selection.EndKey unit:=wdLine
>4b39/BM tc = Replace(rText, vbCr, "")
oPBjsQ Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 2 ", PreserveFormatting:=False
x=)$sD-3 >c eU!=> Case "三级标题"
Uc2#so$9 LastTitle3No = LastTitle3No + 1
[J
Xrj{ '新三级标题开始，复位其下属标题编号
';F][x 5j LastTitle4No = 0
5w9<_W0d B/}>U HM If Val(ttNo) <> LastTitle3No Then
}5U f`pM8 rText = LastTitle3No & ". " & ttString
I-"{m/PEdg Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText
7F~+z7(h xb\:H@92 End If
( v}: '三级标题段落设置 格式：1. 标题内容
q"o NB-bz .Paragraphs(paraCounter).Range.Text = rText
z`SkKn0f
Y .Paragraphs(paraCounter).Style = "QLNU三级标题"
VV0$L=mo .Paragraphs(paraCounter).Range.Select
}IL@j A Selection.EndKey unit:=wdLine
S\(_"xJPp tc = Replace(rText, vbCr, "")
*
vD<6qf Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 3 ", PreserveFormatting:=False
s,x]zG" Case "四级标题"
eW%jDsC LastTitle4No = LastTitle4No + 1
.IU+4ENSy4 vS#]RW&j If Val(ttNo) <> LastTitle4No Then
.EwK>ro4 rText = "(" & LastTitle4No & "). " & ttString
cGKk2'v ? ErrMsg.AddItem "四级标题编号错误：" & ParaText
hrF4 a$ a/fYD2uNo End If
89bKnsV '四级标题段落设置 格式：(1). 标题内容
iI7~9SCE .Paragraphs(paraCounter).Range.Text = rText
8E{>czF"
.Paragraphs(paraCounter).Style = "QLNU四级标题"
UJ:B:hh'' .Paragraphs(paraCounter).Range.Select
e+ TNG &_ Selection.EndKey unit:=wdLine
P $S P4F tc = Replace(rText, vbCr, "")
(0 S7 Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 4 ", PreserveFormatting:=False
x
,W+:l9~s Qt 2hb Case "表格标题"
Po3W+; @ LastTableNo = LastTableNo + 1
f_8~b0` 70eN]OY If ttNo <> CStr(LastTableNo) Then
TH &B9 rText = "表" & LastTableNo & ". " & ttString
{VG6m
Hw ErrMsg.AddItem "表格编号错误：" & ParaText
F^-4Pyq@ %#~Wk|8} Q End If
1\uS~R R Y`uCDfcQ '表格名称段落设置 格式：表1. 表格名称
EK_^#b .Paragraphs(paraCounter).Style = "QLNU表格标题"
Viw3 /K xe = Replace(rText, vbCr, "")
).xWj
VC .Paragraphs(paraCounter).Range.Select
`R RORzXoS Selection.MoveEnd wdCharacter, -1 '选择范围包括行尾的换行符。
QZo l( 2~Y Selection.Range.Text = xe
` 0F
IJT Selection.EndKey
[G*mQ@G9 Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False
CS49 M mr? ii Case "表格首行"
) 3 .Paragraphs(paraCounter).Style = "QLNU表格首行"
\\JXY*DA:+ Case "图片标题"
+L6 d
$+ LastFigureNo = LastFigureNo + 1
0sa EcJ - (n\
cs$ If ttNo <> CStr(LastFigureNo) Then
TF>F7v(,45 rText = "图" & LastFigureNo & ". " & ttString
[qB=OxH? ErrMsg.AddItem "表格编号错误：" & ParaText
vCM'n
kXY v#xF;@G End If
h>?OWI '图片名称段落设置 格式：图1. 图名称
3$54 *J .Paragraphs(paraCounter).Range.Text = rText
6s;x@g] .Paragraphs(paraCounter).Style = "QLNU图片标题"
zAewE@N#_ .Paragraphs(paraCounter).Range.Select
HFOp4 Selection.EndKey unit:=wdLine
z?xd\x xe = Replace(rText, vbCr, "")
It[ ~0?+ Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False
0P 42C{>'w Case "正文"
+8M{y D9# '正文名称段落设置
XJ9>a-{ .Paragraphs(paraCounter).Style = "QLNU正文"
?$Pj[O^hl Case "文献条目"
m`~ Qr~ With .Paragraphs(paraCounter)
5Mr:(|JyV '.Range.Select
uHYI :(O 'Selection.ClearFormatting
it$~uP | '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator 'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ”
-5K/ cK .Style = "QLNU参考文献"
ZUyc J-[ End With
"5Mo%cUp Case "图表注解"
Y i`. zm With .Paragraphs(paraCounter)
||f 4f3R' .Range.Font.NameFarEast = "楷体"
Qw:j2g2H7 .Range.Font.NameAscii = "Times New Roman"
566EMy|
.Range.Font.Size = 9 '小5号字
U' Cp3> iKwVYL .Alignment = wdAlignParagraphCenter
2ip~qZNw>< .LeftIndent = 0
S5JnJkNn .RightIndent = 0
^&By e?`5 .FirstLineIndent = 0
G`jhzG .LineSpacing = 12
%~~Q XH\ .LineSpacingRule = wdLineSpaceExactly
"'Ik{wGc .LineUnitAfter = 0
N<x5:f#+ .LineUnitBefore = 0
~gN'";1i .OutlineLevel = wdOutlineLevelBodyText
J']W7!p .PageBreakBefore = False
`F#KXk .RightIndent = 0
OuoZd!"qf .WordWrap = True
{8Ll\ j@ " .LineUnitAfter = 0.5
Ad `IgZ {+;8dtZ)x End With
Dts:$PlCk Case Else
A:f +x|[ '不作处理
tR3hbL$W End Select
ryN-d%t? P\Jp E '含有inlineshape的段落处理
UWHC]V? If ShapeHeight > 30 Then
/+u*9ZR&1 .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle '对有图片的段落设置为单倍行距
M%/ D:0 End If
<Vim\ ^^m%[$nw&r If (ShapeWidth + ShapeHeight) > 150 Then
6C:Lq%} .Paragraphs(paraCounter).Style = "QLNU图片段落"
$1e@3mzM End If
H\T
h4teE y4') !e '段落计数器递
TR |; /yJ paraCounter = paraCounter + 1
@OpcS>:R Me.lbCounter.Caption = "当前检测段落：" & paraCounter
})B)- 8 Me.txtStatus.Text = ParaText
-nW-I\d% DoEvents
8'y|cF%U Loop
\MU4"sX
w End With
: .<&Y=^ u8*0r{ kOH msg = ""
L<: ya ag6S"IXh For i = 0 To Me.ErrMsg.ListCount - 1
kcle|B msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i)
zv41Yv!x} Next
pmC@ fB $a G'.0HW /bWV `* WKG=d]5 Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg
4[?Q*f! Me.cmdCheck.Enabled = True
Xp' KQ1w) Me.txtStatus.Visible = True
0pQ>V) Me.lbParaType.Visible = False
L>B0% TP^ rTH@PDk>) bContinue = False
p:
o*= End Sub
N `M5`=. bWqGy pq 4 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)
tc[PJH&P Dim pTEXT As String
wgrYZ^]
[7bY( pTEXT = ChKRange.Text
&> -Cz%IV T*oH tpFj# ParaType = "其它"
jV(IS D TitleString = pTEXT
~'ovJ46tx TitleNo = "N/A"
-Je+7#P1 gU`QW_{ shpCounter = ChKRange.InlineShapes.Count
.+y#7-#6 If shpCounter <> 0 Then
f*Ki pg
p MaxShpHeight = 0: TotalShpWidth = 0
}~ 7>S5 For i = 1 To shpCounter
|^ qW
k = ChKRange.InlineShapes(i).Height
E^g6,Y:i9 l = ChKRange.InlineShapes(i).Width
0t ) IW D If k > MaxShpHeight Then
<^=k~ 7m MaxShpHeight = k
tQ/U
'Ap& End If
hm& ~6 rB TotalShpWidth = TotalShpWidth + l
&HWH
UWB Next
t/3veDh@ If MaxShpHeight > 60 Or TotalShpWidth > 150 Then
thh, V Exit Sub
7
ir T6O<. End If
C oaqi`v4T End If
_u >+H# X@arUs
7 '空行
|k8;[+ If Len(pTEXT) <= 2 Then
,"D1!0 Exit Sub
m>iuy:ti End If
|A2.W8`o _?
{2{^v '@$?A>.cj '是否为表格中的文字
4ngiad6bR If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then
*
08LW|:, ParaType = "表格内容"
L8V'mUyD k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber)
!%Ak15o If k = 1 Then
p'H5yg3h ParaType = "表格首行"
! 54%}x)3 End If
/fX ]Yu Exit Sub
xe5>)\18- End If
^3e l-dZ O
@w=
'例外情况：脚注
H:| y
u If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then
|PWLFiT(> ParaType = "脚注"
+/ #J]v- Exit Sub
Z8m /8M End If
IcA]<}0!"v rTi.k '例外情况：尾注
LcF0: h ' If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then
8'zwy d3 ParaType = "尾注"
(vY1
0W{ Exit Sub
b^ v.FK46G End If
69_c,(M0 Iv{ }U\ u If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then
MFC= oKD ParaType = "页眉页脚"
C. Sb4i* Exit Sub
9qw~] W~Nm End If
V@$B>HeK zR e0z2 }Iu 6]?|' With regEX
Cnn,$R=/s .Global = True
;G w5gK^ 6:e0?R^aD" .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$"
9<R: )Df If regEX.Test(pTEXT) Then
f`?|A
ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3")
U8moVj8w1 TitleString = regEX.Replace(pTEXT, "$3")
46m u,v TitleNo = regEX.Replace(pTEXT, "$1")
R8ZW1 ParaType = "章"
Q[}mH: w Exit Sub
5~\W!|j/
End If
>9|Q,/b0 =~R 0U
.Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$"
mk[n3oE1 If regEX.Test(pTEXT) Then
Q} /
: ParaType = "一级标题"
V482V#BP regEX.Execute (pTEXT)
$hA[vi\ 5 ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3")
}+SnY8A=KZ TitleString = regEX.Replace(pTEXT, "$3")
[9w8oNg0 TitleNo = regEX.Replace(pTEXT, "$1")
Ngg (<ZN Exit Sub
2hquE_1S[w End If
z8gp<5= *{XbC\j '全角或半角括号中的数字
g
>X!Q .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$"
-q -%) f If regEX.Test(pTEXT) Then
b+
{yF ParaType = "二级标题"
RNm/&F1C$ regEX.Execute (pTEXT)
_mcD* V ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5")
W{k}ogI; TitleString = regEX.Replace(pTEXT, "$5")
jML}{>Gy8S TitleNo = regEX.Replace(pTEXT, "$2")
#KiRH* giU Exit Sub
-1 fT2e End If
](%-5G1 < r1,RloyZS '阿拉伯数字 1. 2.
]Fa VKC~3 .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$"
r =s 7be If regEX.Test(pTEXT) Then
9D&ocV3QV ParaType = "三级标题"
zg)]: regEX.Execute (pTEXT)
r|
YuHm ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测
=s;7T!7! TitleString = regEX.Replace(pTEXT, "$3")
Wt_@ [email protected] TitleNo = regEX.Replace(pTEXT, "$1")
v=|ahsYC Exit Sub
_v_ak4m > End If
6Z
7{|B5}Y `DEz `
D '全角或半角括号中的阿拉伯数字
C nJO]0Op3 .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$"
0T q6\: If regEX.Test(pTEXT) Then
).k=[@@V ParaType = "四级标题"
w@hm>6j regEX.Execute (pTEXT)
lx%<oC+M ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5")
`2GHB@S"k TitleString = regEX.Replace(pTEXT, "$5")
H=B8'N TitleNo = regEX.Replace(pTEXT, "$2")
htIV`_<Ro Exit Sub
;hRo}
+\l End If
`?~pk)<C]. U#YM)8;Iz '表格名称
SC'fT ! .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$"
'DVPx%p If regEX.Test(pTEXT) Then
[7$. )}Q- ParaType = "表格标题"
`2 {x 8A regEX.Execute (pTEXT)
C] { 43
ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3"))
$LKniK TitleString = Trim(regEX.Replace(pTEXT, "$3"))
g&v 2=&aj TitleNo = Trim(regEX.Replace(pTEXT, "$1"))
q 4Q1Ib-<2 strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换
,b 2Cl[ Exit Sub
FLi)EgZXt End If
f\1)BZ 'I E{h '图片名称
ao Y "uT+ .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$"
%|4Nmf$:Og If regEX.Test(pTEXT) Then
0&Zm3(} ParaType = "图片标题"
!5pnl0D K* regEX.Execute (pTEXT)
{]`O $S ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3")
)
_"`{2 TitleString = regEX.Replace(pTEXT, "$3")
gR%fv TitleNo = regEX.Replace(pTEXT, "$1")
NCBS=L: Exit Sub
)~rN{W<s`H End If
z0a=A:+/ kAU[lPt*R '参考文献
FhW\23OC .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})" '[数字]、
2 }t2k > If regEX.Test(pTEXT) Then
Ow< =K:^ ParaType = "文献条目"
vWwp'q 'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4")
5_{C \S`T 'TitleNo = regEX.Replace(pTEXT, "[$2] ")
waldLb>7D Exit Sub
g;vG6!;E\ End If
~p^6 tZwZZ0]Z prfx = Left(pTEXT, 2)
C}#JvNyQ If prfx = "注：" Or prfx = "注:" Then
@"]; \E$sI ParaType = "图表注解"
{Dq f.w>t Exit Sub
sAWU tJ End If
h8Kri}z; M sFMSH :5z , LX] ParaType = "正文"
lkOugj I /qEoiL### End With
RY/9Ku ` End Sub
[.dF)I3 5^*I]5t8 Sub ConvertListToOrdinary()
?~hC.5 Dim st As Paragraph
ux'!1mN With ActiveDocument
c:M~!CXO For i = .Paragraphs.Count To 1 Step -1
u1( `^^Ml Set st = .Paragraphs(i)
X& pK#= lst = st.Range.ListFormat.ListString
;i> |5tEy If lst <> "" Then
eA4@)6W P( st.Range.ListFormat.RemoveNumbers
,{=# st.Range.InsertBefore lst & " "
Ac|IBXGa= End If
~[t %g9 Next
N
=)9O End With
2{% U\^- Set st = Nothing
P;{f+I|` End Sub
Q"S;r1 D `q".P]wtKN Private Sub UserForm_Activate()
_5y3<H<? Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节"
YR^J7b\ Me.lbTotal.Font.Bold = True
hgL wxJu Me.txtStatus.Visible = False
*#w+*ywVZH Me.cmdCheck.Enabled = True
;5?$q V'^Hn?1^ End Sub
Ak^g#^c* ~+7q.XL$$K H9F\<5n]-l Sub CheckSuperScript()
#zyEN+ Selection.Find.ClearFormatting
RdRF~~R% Selection.Find.Replacement.ClearFormatting
ESft:3xyw With Selection.Find
FTsvPLIv" .Text = "[【\[［〖](*)[】\]〗］]"
+g>)Bur .Replacement.Text = "[\1]"
txw:m*(% .Replacement.Font.Superscript = True
:iP2e+j '.Replacement.Font.Color = wdColorBlue
{rBS52,Z# .Forward = True
f9?\Q'v8 .Wrap = wdFindContinue
V )=!pT .FORMAT = True
{ owK~ .MatchCase = False
5L'X3g
.MatchWholeWord = False
GMyzQ]
@} .MatchByte = False
_f8Wa u# " .MatchAllWordForms = False
+QGZ2_vW .MatchSoundsLike = False
?v p'
/l" .MatchWildcards = True
2r]80sWY End With
xp.~i*!` Selection.Find.Execute Replace:=wdReplaceAll
-J[*fv@ End Sub
Cj#$WZga% {}y"JbXMj Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
V'K1 kYb bContinue = False
&;DK^ta*P Set regEX = Nothing
=` Pgo5A End Sub
}vgeQh-G 1
\:5ow&a Sub CeateOrModifyStyle()
mfc\w' '
Q,S~+bD(z '
8XI G<Nc Dim stl As Style
3dTz$s/[ y yW;V KN Options.Pagination = False
HN]roS
t~ DY/xBwIF On Error Resume Next
}4b
4<Sm_h For Each stl In ActiveDocument.Styles
KLrxlD4\ stl.Delete
6w|s1!B l Next
5ro^<P0f** On Error GoTo 0
ZF!cXo7d pX `BDYg. Set stl = Nothing
3A!`U6C( Bf1,(^3XH DoEvents
b*&AIiT On Error Resume Next
p
"\Z@c 4}E|CD/pZ ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph
6 GqR]KD y@Z@ eK3 ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph
@ (<C { ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph
T{<riJ`O D,b'1= ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph
Ii FeO ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph
V{+'(<SV [T<nTB# w ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph
NitsU g@< ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph
8lk@ev=O& ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph
38#BINhBt ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph
:[YHJaK ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph
+"Flu.+[' ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph
+}[M&D ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph
E">FH >8K} x ]{
}y_ ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph
? Dm={S6 ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph
I7,5ID4pn ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph
6}4?, r ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph
!tJQ75Hwv ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph
]-]K 4*{ ova4 ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph
BJC$KmGk On Error GoTo 0
.
5*5S[ DoEvents
^h\& l{e
j1D 1tn 'BaseStyle
Mtq\ xF,/+ ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False
v"ZNS With ActiveDocument.Styles("BaseStyle").Font
/enlkZx=8 .NameFarEast = "宋体"
(d mLEt .NameAscii = "Times New Roman"
i[_B~ /_ .NameOther = "宋体"
e!k1GTH^ .Size = 10.5
A{X:p3$eN .Bold = wdUndefined
/6",#B}%b .Italic = wdUndefined
AtU%S9 .Subscript = wdUndefined
>%LZ|*U .Subscript = wdUndefined
$FX lH;_7 q(xr5iuP_ .Underline = wdUnderlineNone
ynY
( .UnderlineColor = wdColorAutomatic
!1(*D*31 .StrikeThrough = False
|iS d< .DoubleStrikeThrough = False
AH-B/c5 ?TTtGbvU .Outline = False
5argw+2s4$ .Emboss = False
~;$,h
ET .Shadow = False
5, dKha .Hidden = False
2[}
O: .SmallCaps = False
{ 02$pO .AllCaps = False
&GYnGrw?@ .Color = wdColorAutomatic
;G QCq@)- .Engrave = False
;\a?xtIy .Scaling = 100
*WMI<w~_ .Kerning = 1
lgrD~Y (x .Animation = wdAnimationNone
I Sa}Km>Q .DisableCharacterSpaceGrid = False
eLF xGZ Z .EmphasisMark = wdEmphasisMarkNone
u|(;SY End With
hvW FzT5 With ActiveDocument.Styles("BaseStyle").ParagraphFormat
./5 LV)_` .LeftIndent = 0
T P3KT) .RightIndent = 0
.Nk'yow .SpaceBefore = 0
D] tI's1 .SpaceBeforeAuto = False
9B3+$uP .SpaceAfter = 0
jEh Px .SpaceAfterAuto = False
t?1 b(oJ k4T`{s}e .LineSpacingRule = wdLineSpaceSingle
2 8 Q\{Z. .Alignment = wdAlignParagraphJustify
f[1 s4Dp3- 0M pZdJ .WidowControl = False
^Mvgm3hg .KeepWithNext = False
YOOcHo.F .KeepTogether = False
{0L.,T~g+[ .PageBreakBefore = False
;Qn)~b~ .NoLineNumber = False
z H| YVg gug9cmA/Q7 .FirstLineIndent = CentimetersToPoints(0)
+%Z#!1u .OutlineLevel = wdOutlineLevelBodyText
Ob! NC& .CharacterUnitLeftIndent = 0
Mbm'cM&} .CharacterUnitRightIndent = 0
c o 8bnH .CharacterUnitFirstLineIndent = 0
-A]-o .LineUnitBefore = 0
V_\9t8 .LineUnitAfter = 0
GY`mF1b .AutoAdjustRightIndent = True
~dXi yU,y2 .DisableLineHeightGrid = True
*? V boyU KpX1GrIn3 .FarEastLineBreakControl = True
6 &* z .WordWrap = True
pYN.tD FO .Hyphenation = False
==#mlpi`S[ fM/~k>wl .HangingPunctuation = True
ibP IT!5c .HalfWidthPunctuationOnTopOfLine = True
m3#rU%Wj .AddSpaceBetweenFarEastAndAlpha = True
Hnft1
.AddSpaceBetweenFarEastAndDigit = True
>:J7u*>$ ' .BaseLineAlignment = wdBaselineAlignBaseline
iH a:6 End With
6+ UTEw; ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False
5nV IC3N+1 ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll
CH9Psr78 ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese
NJ ^Bv` ActiveDocument.Styles("BaseStyle").NoProofing = False
&c[ISc>N{ {<c L@ W '一级标题题样式
WU$l@:Yo ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
QJ\+u ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle"
Kj53"eW ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False
<#nt?X
n With ActiveDocument.Styles("QLNU一级标题").Font
#nq$^H .NameFarEast = "黑体"
R E0ud_q2 .NameAscii = "Arial Black"
$ U=j<^R}a .NameOther = "黑体"
1R.|j_HYy .Name = "黑体"
: %[mc-6. .Size = 16 '三号
eQqnPqi- .Bold = True
LA]UIM@ .Italic = wdUndefined
F:7
d}Jx .Subscript = wdUndefined
-kk0zg
&|i .Superscript = wdUndefined
TI/5'Oke$ End With
3-/F]}0y6 With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat
"L NLM t 7-6A .LeftIndent = CentimetersToPoints(0)
w%1-_;.aU6 .RightIndent = CentimetersToPoints(0)
P+L#p(K .FirstLineIndent = CentimetersToPoints(0)
@#r6->%W gCV+amP .LineSpacingRule = wdLineSpaceSingle
s3-TBhAv .Alignment = wdAlignParagraphCenter
y
g:&cIr, N
T>[
2< .WidowControl = True
K>2M*bGc p .KeepWithNext = True
kk>z,A4
h_ .KeepTogether = True
iV5S[uy72. .OutlineLevel = wdOutlineLevelBodyText
U3**x 5F_ 2WK c;? .LineUnitBefore = 0.5
CSwPL>tUV .LineUnitAfter = 0.5
DuQW?9^232 End With
oNhCa>)/ ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False
3ncN) E/@ ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll
prEI9/d" ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese
=f?vpKq40 ActiveDocument.Styles("QLNU一级标题").NoProofing = True
70<{tjyc DoEvents
Y{d-k1?s5 %63s( ekU '二级
??#SQSU ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
v#|yr< ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle"
icK$W2<8mg ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False
:u]QEZ@@ With ActiveDocument.Styles("QLNU二级标题").Font
K+\2cf?bU .NameFarEast = "黑体"
Hk
f<.U .NameAscii = "Arial Narrow"
5pU/X.lc .NameOther = "黑体"
CzDV^Iv;Q{ .Name = "黑体"
^ItL_ 4 .Size = 15 '小三号
j=dGNi)R .Bold = False
dOT7;@ .Outline = False
Hp>_:2O8s .Italic = wdUndefined
"F= ta .Subscript = wdUndefined
;w7s>(ITZ .Superscript = wdUndefined
Z'UhJu D5 End With
WES$B7 y With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat
mY[* (a .LeftIndent = CentimetersToPoints(0)
,! H `@Kl .RightIndent = CentimetersToPoints(0)
u!-v1O^[ .FirstLineIndent = CentimetersToPoints(0)
cJ E4uL< Q h{P>} .LineSpacingRule = wdLineSpaceSingle
3a?|}zr4 .Alignment = wdAlignParagraphLeft
I@oSRB Q{| _"sf J .WidowControl = True
8 =oUE$9 .KeepWithNext = True
gNJdP!(t .KeepTogether = True
" +M0lGTB .PageBreakBefore = False
Z aYUf .OutlineLevel = wdOutlineLevelBodyText
.uinv
5?Ukf$)x .LineUnitBefore = 0.5
EK& ";(x2( .LineUnitAfter = 0.5
.?`8B9w _W R/]1R End With
b kuJN% ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False
<0!<T+ JQ ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll
/_X`i[ ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese
!k Heslvi ActiveDocument.Styles("QLNU二级标题").NoProofing = True
Q?V+
0
J DoEvents
Hqtv`3g 2w}l!'u
e '三级标题样式
s d9b9?qiu ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
Ft^X[5G4L ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle"
"
l{{H&d ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False
8<x&
Xd With ActiveDocument.Styles("QLNU三级标题").Font
%'uei4 .NameFarEast = "宋体"
q/ ^?rd .NameAscii = "Times New Roman"
sXmP<c .NameOther = "黑体"
Bg[_MDWc-P .Name = "黑体"
Y P,>vzW .Size = 14 '四号
6 w'))Z .Bold = False
fK _uuw4 .Outline = False
Wo(m:q(Om .Italic = wdUndefined
*xjP^y": .Subscript = wdUndefined
iR"6VO .Superscript = wdUndefined
lc 3N i<3v End With
aoQ$"P F9 With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat
@\r
2%M- .LeftIndent = CentimetersToPoints(0)
6zi 5 #2 3 .RightIndent = CentimetersToPoints(0)
H $V`,=H .FirstLineIndent = CentimetersToPoints(0)
Z,tHyy F?j d}y
")q|F .LineSpacingRule = wdLineSpaceSingle
j#Qnu0 D .Alignment = wdAlignParagraphLeft
{FX]1: G 8zbb .WidowControl = True
f/QwXO-U .KeepWithNext = True
^xgqs $`7 .KeepTogether = True
aL*}@|JL" .PageBreakBefore = False
W&k@p9 .OutlineLevel = wdOutlineLevelBodyText
lM l'+ yy R.?PD$;_M .CharacterUnitLeftIndent = 0
9}_' .CharacterUnitRightIndent = 0
/'/i? 9: .CharacterUnitFirstLineIndent = 2
6RG63+G &e78xtA { .LineUnitBefore = 0.5
+z[+ kir .LineUnitAfter = 0
VsJKxa4 End With
j#U,zs v: ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False
jgiS/oW
ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll
|e<$ ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese
)PkW,214# ActiveDocument.Styles("QLNU三级标题").NoProofing = True
O^PN{u DoEvents
LJ6l 3)tpD ~
0h@p4
'四级标题样式
(*b<IGi; ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
t,n2N13 ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle"
_K&Hiz/' ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False
G`;\"9t 5h With ActiveDocument.Styles("QLNU四级标题").Font
.SLpgYFL{ .NameFarEast = "宋体"
(d/!M
n6L .NameAscii = "Times New Roman"
k }{o:
N .NameOther = "宋体"
[mQdc?n\ .Name = "宋体"
Y/5 (BK) .Size = 12 '小四号
$Dd-2p .Bold = True
~MP |L?my .Outline = False
&Yo|Pj .Italic = wdUndefined
Dlpm m2 .Subscript = wdUndefined
!"o\H(siT .Superscript = wdUndefined
+f%"O? End With
i&8|@CACb With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat
' N^ *, !9{UBAh .LeftIndent = CentimetersToPoints(0)
~<-mxOe .RightIndent = CentimetersToPoints(0)
puLgc$? .FirstLineIndent = CentimetersToPoints(0)
za+)2/
`L 1]9w9! j .LineSpacingRule = wdLineSpaceSingle
8A5/jqnqt .Alignment = wdAlignParagraphLeft
:T|9;2 /OYa1, .WidowControl = True
@ l q)L .KeepWithNext = True
{kBsiSvsA; .KeepTogether = True
61b*uoq0w? .PageBreakBefore = False
4*L* "vKa .OutlineLevel = wdOutlineLevelBodyText
NMQG[py!f /M'd$k"0z .CharacterUnitLeftIndent = 0
'oK o F .CharacterUnitRightIndent = 0
I:HrBhI)wP .CharacterUnitFirstLineIndent = 2
XUKlgl!+.
8rx|7 .LineUnitBefore = 0
AusjN-I
L .LineUnitAfter = 0
V= - *?*~<R End With
j0j!oj)7I ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False
R(*t 1R\ ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll
B`t/21J ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese
8;L;R ~Q ActiveDocument.Styles("QLNU四级标题").NoProofing = True
xXc>YTK' DoEvents
y Z[=Y ,"KfZ f;? '正文校式
7#W]Qj ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle")
GXIzAB( ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle"
LF
@_|o I ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False
_n/73Oh With ActiveDocument.Styles("QLNU正文").Font
Alo L+eN@ fL# r@TB-s .NameFarEast = "宋体"
g ?xD*3 < .NameAscii = "Times New Roman"
{6WG .NameOther = "宋体"
G"m?2$^-A .Name = "宋体"
//;( KmU9 S>>wf:\ c .Size = 12 '小四号
vcsSi%M\U f,F1k9-1! .Bold = wdUndefined
FZW`ADq] .Italic = wdUndefined
:8]8[ .Subscript = wdUndefined
[& Z-
* a .Superscript = wdUndefined
IuT)?S7O*k 8{QCW{K .Outline = False
1Y&W>p .Emboss = False
-8Hc M\b .Shadow = False
; o
Y|~ .Hidden = False
a5R.
\a<q U[|5:qWs .DisableCharacterSpaceGrid = True
x=IZ0@p End With
h _{f_GQ" With ActiveDocument.Styles("QLNU正文").ParagraphFormat
i39ZBs@ gS'7:UH, .LeftIndent = CentimetersToPoints(0)
o
& &`_"18 .RightIndent = CentimetersToPoints(0)
/t<
& .FirstLineIndent = CentimetersToPoints(0)
'`|j{mBhG [*Ai@:F .LineSpacingRule = wdLineSpaceExactly
iC5HrOl6U .LineSpacing = 20
G0|}s&$yL .Alignment = wdAlignParagraphLeft
$8i `h}AM (# mvDz .WidowControl = False
iCA-X\E .KeepWithNext = False
%8 D>aS U .KeepTogether = False
*oeXmY .PageBreakBefore = False
(9oo8& GG .Hyphenation = False
c|JQ0] K p"c6d'qe .OutlineLevel = wdOutlineLevelBodyText
BWQ`8
&A*E)T#># Pc =e i .CharacterUnitLeftIndent = 0
<F(S_w62 .CharacterUnitRightIndent = 0
]{q=9DczG( .CharacterUnitFirstLineIndent = 2
7K
"1^
6dmb
bgO) .LineUnitBefore = 0
7
Mq{Py1 .LineUnitAfter = 0
J4"A6 `O .SpaceBefore = 0
H8I)D& cw .SpaceAfter = 0
_/z_
X mI!iSVqr .DisableLineHeightGrid = True
"?F[]8F.b End With
ju'a Uzn ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False
vPGUE`!D+ ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll
l^}u S|c( ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese
4r `
I) ActiveDocument.Styles("QLNU正文").NoProofing = True
Z$g'h1,zW DoEvents
s+v9H10R 38T] qz[Sn '图片段落样式
[5p 3:D ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle")
e"wz b< b ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle"
d,N6 ~?B ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False
T 7 "QwA With ActiveDocument.Styles("QLNU图片段落").Font
\Cu=Le^ .Size = 12 '小四号
B1J, 4 .Italic = wdUndefined
tM;cvc`/ .Subscript = wdUndefined
1;1;-4k7I .Superscript = wdUndefined
=1dczJH V End With
xGQP *nZ With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat
['Lo8 [ }nX0h6+1 .LeftIndent = CentimetersToPoints(0)
BO4;S/ O .RightIndent = CentimetersToPoints(0)
b@&uwS v .FirstLineIndent = CentimetersToPoints(0)
R.*;] R>M C3Q #[ .LineSpacingRule = wdLineSpaceSingle
$kxP5q%9 .Alignment = wdAlignParagraphCenter
g-
wE(L .KeepWithNext = True
87[ ,.W .OutlineLevel = wdOutlineLevelBodyText
_ AFje
]W$G!(3A .CharacterUnitLeftIndent = 0
4K'U}W .CharacterUnitRightIndent = 0
xT_"` @ .CharacterUnitFirstLineIndent = 0
rh1PpsSc l^ay* H .LineUnitBefore = 0
S9P({iZK .LineUnitAfter = 0
O|+ZEBP End With
R[v0T/ ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False
wW p7N ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll
z[1uub,)1 ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese
E
b:iym0 ActiveDocument.Styles("QLNU图片段落").NoProofing = True
Z P!.C&O
DoEvents
yna!L@ *@, |9%~ z0 c5$DHT @N" '第X章
sZCK? ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
bR) P-9rs ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle"
]
1pI IX} ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False
fo+s+Q|Y With ActiveDocument.Styles("QLNU章节标题").Font
i8k} B
o .NameFarEast = "黑体"
b9vud r .NameAscii = "Arial Black"
x}pH'S7 .NameOther = "Arial Black"
Pe,k y>ow .Name = "黑体"
-%Vh-;Ie( .Size = 16
\fEG
5/s}T .Bold = True
D{Nd2G .UnderlineColor = wdColorAutomatic
K=o { .Outline = False
L=qhb;[L .Italic = wdUndefined
]o]`X$n .Subscript = wdUndefined
& ;.rPU .Superscript = wdUndefined
i_Q1\_m ! .Scaling = 100
h6?^rS8U .DisableCharacterSpaceGrid = True
p@% Pdx End With
&hkD"GGe With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat
fcEm :jEZ* .LineSpacingRule = wdLineSpaceSingle
.z_nW1id .Alignment = wdAlignParagraphCenter
hBX.GFnw .WidowControl = True
2<5LQr .KeepWithNext = True
VD7-; .KeepTogether = True
8)eRm{ .PageBreakBefore = True
P$Vh
{]4i{ .OutlineLevel = wdOutlineLevelBodyText
S $hxR k^8;3#xG .LeftIndent = CentimetersToPoints(0)
EBW*v ' .RightIndent = CentimetersToPoints(0)
;Us 6:}s .FirstLineIndent = CentimetersToPoints(0)
r<1W.xd": gh*k\0 .CharacterUnitLeftIndent = 0
:t!J
9 .CharacterUnitRightIndent = 0
y\ ;oZ]J .CharacterUnitFirstLineIndent = 0
B=K<k+{6" C(v'7H{4cW .LineUnitBefore = 1
#*q V kPX .LineUnitAfter = 0.5
*5BVL_:~J 1="]'!2Is .AutoAdjustRightIndent = False
-XL? n/M .DisableLineHeightGrid = True
]S s63Vd .FarEastLineBreakControl = True
VnSO>O .WordWrap = True
0J'Cx&Rg End With
r3U7`P ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False
hNZ_=
<D! ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll
/nA>ox78 ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese
! PGCoI ActiveDocument.Styles("QLNU章节标题").NoProofing = True
h
ChO DoEvents
S+[,\>pY ,"`3N2!Y} '表格标题
o
g9|}E> ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
*~
6]IWN` ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle"
[dP<A ?s ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False
4y +hr With ActiveDocument.Styles("QLNU表格标题").Font
guY
P| .NameFarEast = "楷体"
2= ;ZJ .NameAscii = "Arial"
_ps4-<ugC .Name = "楷体"
w^&UMX} .Size = 10.5
GY-4w@Wl .Bold = True
Od;k}u6;< .Underline = wdUnderlineNone
Z{B [r; .Italic = wdUndefined
#aC&!Rei{ .Subscript = wdUndefined
flqr["czwK .Superscript = wdUndefined
6wB
! dl .Color = wdColorAutomatic
EeQ8Uxb7 End With
cJq {;~ With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat
aC1 x t( \G v\&_ .LineSpacingRule = wdLineSpaceSingle
lshSRir .Alignment = wdAlignParagraphCenter
3{ co.+ .KeepWithNext = True
#UymD-yII .KeepTogether = True
sq#C|v/ .OutlineLevel = wdOutlineLevelBodyText
.O 0eSp|e hlV(jz .LeftIndent = CentimetersToPoints(0)
_
){u5%vv .RightIndent = CentimetersToPoints(0)
P;25 F .FirstLineIndent = CentimetersToPoints(0)
~I> |f ,Aq, f$5V .CharacterUnitLeftIndent = 0
{@7UfJh> .CharacterUnitRightIndent = 0
um]*nXIr .CharacterUnitFirstLineIndent = 0
C $])q`9 |>U<EtA" .LineUnitBefore = 1
l Y`WEu .LineUnitAfter = 0
~l'[P=R+8 {`2 0' End With
@(a~ p ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False
"7+^ ` ? ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll
UV;I6]$}A7 ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese
8M!9gvcaO ActiveDocument.Styles("QLNU表格标题").NoProofing = True
cp8w
_TPU DoEvents
9m>L\&\_e EB+4]MsD '表格首行
CpN*1s})d ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle")
lmoYQFkYP ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False
@]X!#&2> With ActiveDocument.Styles("QLNU表格首行").Font
\)\n5F:Zu .NameFarEast = "楷体"
TTj] _R{n .NameAscii = "Times New Roman"
h6LjReNo .Name = "楷体"
n~`jUML2d .Size = 9
L!33` xef' .Bold = True
#Qz 9{1\G .Underline = wdUnderlineNone
F'{ T[MA
.Italic = wdUndefined
K[noW .Subscript = wdUndefined
qfFa" a .Superscript = wdUndefined
d:&cq8^ End With
s!YX<V With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat
? UflK .LineSpacingRule = wdLineSpaceSingle
\ :@! rM .Alignment = wdAlignParagraphCenter
,:}VbQ:3I w ].DLoz .LeftIndent = CentimetersToPoints(0)
gPK O-Fsd" .RightIndent = CentimetersToPoints(0)
7 8xiT .FirstLineIndent = CentimetersToPoints(0)
rM~Mqpk
%iIr %P?
B\AyG4J .CharacterUnitLeftIndent = -0.5
:+_H%4+ .CharacterUnitRightIndent = -0.5
>/C,1}p[ .CharacterUnitFirstLineIndent = -0.5
X
J]
+F ]OKKR/: .LineUnitBefore = 0
6tVp%@ .LineUnitAfter = 0
^v;8 (eF .SpaceBefore = 0
]nIVP .SpaceAfter = 0
C Wp>8@v O>rz+8 T End With
t9W* N \ ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False
DP*V|
) ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll
r
H9}VA:h ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese
t x1TtWo ActiveDocument.Styles("QLNU表格首行").NoProofing = True
0[g5[
?Vy DoEvents
tJ d/u QJ iN
u k5 '表格内容
u^ wG V
g ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle")
96F+I!qC ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False
<Vyl*a{% With ActiveDocument.Styles("QLNU表格内容").Font
2V9"{F? .NameFarEast = "楷体"
GF<SQHL, .NameAscii = "Times New Roman"
@d3 yqA
.Name = "楷体"
p'/%" .Size = 9
z9AX8k(B6 .Bold = False
}/NL"0j+4 .Underline = wdUnderlineNone
{|zQ
.s A .Italic = wdUndefined
P6^\*xkMr .Subscript = wdUndefined
u?g;f h6 .Superscript = wdUndefined
}darXtZKkK End With
wjI
D*s [ With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat
"$% &C%t .LineSpacingRule = wdLineSpaceSingle
>> -{A R0 .Alignment = wdAlignParagraphCenter
2U+wiE| y>UQm|o<W .LeftIndent = CentimetersToPoints(0)
[F *hjGLc} .RightIndent = CentimetersToPoints(0)
R<h:>.M .FirstLineIndent = CentimetersToPoints(0)
$Ov
q}Rexc ) { "}bMf .CharacterUnitLeftIndent = -0.5
W7V#G(cpU .CharacterUnitRightIndent = -0.5
>]\oVG .CharacterUnitFirstLineIndent = -0.5
S f`?j .LineUnitBefore = 0
3=L5Y/ .LineUnitAfter = 0
Tt0] G_ .SpaceBefore = 0
B$97"$#u .SpaceAfter = 0
x?R1/iHv End With
`$;%%/tx ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False
G"yhu + ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll
J( ,gLl ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese
g( eA? ActiveDocument.Styles("QLNU表格首行").NoProofing = True
^?0WE DoEvents
XHuHbriI Q;2k bVWY '图片标题
A:sP%c; ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
@DR?^
q p ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle"
1G , ' ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False
H0lAu]~R_W With ActiveDocument.Styles("QLNU图片标题").Font
< m`Os2# .NameFarEast = "楷体"
kaf
j?F .NameAscii = "Times New Roman"
pi*?fUg!W .Name = "楷体"
(
! THd .Size = 10.5
SU` RHAo .Bold = True
E7CeE6U .Underline = wdUnderlineNone
rUz-\H(- .Italic = wdUndefined
G
$F3dx.I .Subscript = wdUndefined
mDCz=pk) .Superscript = wdUndefined
l%f &vOcd .Outline = False
@W|N1
,sp
.Shadow = False
]N& Y25oT5 .Color = wdColorAutomatic
z{>p< )h End With
7 6} a With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat
C.#\ Pz0 .LineSpacingRule = wdLineSpaceSingle
ZCcK Y6b .Alignment = wdAlignParagraphCenter
pA%Sybw+ +=N!37+G .KeepWithNext = wdUndefined
z_ 01*O .KeepTogether = True
id" -eMwp .OutlineLevel = wdOutlineLevelBodyText
[9lfR5=Xw[ NCXr$ES{ .LeftIndent = CentimetersToPoints(0)
{hN vCk .RightIndent = CentimetersToPoints(0)
l>kREfHq!{ .FirstLineIndent = CentimetersToPoints(0)
`Z' h[-2` 4PcsU HR .CharacterUnitLeftIndent = 0
d3IMQ_k .CharacterUnitRightIndent = 0
fOHg z ,x= .CharacterUnitFirstLineIndent = 0
)-u0n] , }+m")=1{ .LineUnitBefore = 0
R.U wf .LineUnitAfter = 0
O^2@
9
w End With
iC.k8r+~ ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False
xMpQPTte ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll
H}p5qW.tH: ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese
#Bih=A
# ActiveDocument.Styles("QLNU图片标题").NoProofing = True
(b*PDhl`+ DoEvents
nZtP!^# .boBo$f
'目录项
KJs/4oR; ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle")
c1wP/?|.> ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle"
rgK:ujzW! ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False
]zt77'J With ActiveDocument.Styles("QLNU目录项").Font
nYvx[
zq?^ .NameFarEast = "黑体"
K:cZ q3F .NameAscii = "Times New Roman"
}JWLm.e .NameOther = "Times New Roman"
xh90 q m .Name = "黑体"
hi.` O+; .Size = 10.5
Il8,g+W] .Bold = False
Vzmw%f)_+ .Italic = wdUndefined
'f
"KV | .Underline = wdUnderlineNone
P@xb .Color = wdColorAutomatic
1FPt%{s 3 .Superscript = wdUndefined
8NUVHcB6 .Subscript = wdUndefined
z2
m(<zb End With
f~r q) 2V: With ActiveDocument.Styles("QLNU目录项").ParagraphFormat
J}{a&3@Hm C 7a$>#% .LineSpacingRule = wdLineSpaceSingle
Pw :{ .Alignment = wdAlignParagraphLeft
sN_c4"\q
nG~#o .WidowControl = False
h,palP6^ .KeepWithNext = False
`a + "[% .KeepTogether = False
w y\0o .PageBreakBefore = False
;
Pd nE~ .NoLineNumber = False
rZ i\ .OutlineLevel = wdOutlineLevelBodyText
7C::%OF~7 KT9!R .LeftIndent = CentimetersToPoints(0)
P L}c1Ud .RightIndent = CentimetersToPoints(0)
X%sM na) .FirstLineIndent = CentimetersToPoints(0)
x Ilo@W6 C
-:lM1 .CharacterUnitLeftIndent = 0
*URBx "5XZ .CharacterUnitRightIndent = 0
WxrG o o^ .CharacterUnitFirstLineIndent = 0
V9 J`LQ\0 YTk "'q- .LineUnitBefore = 0
m) - D rbE .LineUnitAfter = 0
oR1H J2>Z1 End With
5L!cS+QNU ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False
A#@9|3 ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll
d siQ~ [
ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot
!%lcn
O ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese
h8)m2KrZ!. ActiveDocument.Styles("QLNU目录项").NoProofing = True
)<+t#5" DoEvents
vUNmN2pRJ xis],.N '参考文献
zQ=c6xvm8 ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle")
-"9&YkN ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle"
3$yOv "` ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False
y+"6Y14 With ActiveDocument.Styles("QLNU参考文献").Font
c(j|xQ\pE .NameFarEast = "宋体"
fp)%Cr .NameAscii = "Times New Roman"
q-lejVS(g .NameOther = "Times New Roman"
Y48
MCL .Name = "Times New Roman"
cN& ]JS, .Size = 12
<j< V{Wc .Bold = False
-yJ%G1R .Italic = wdUndefined
|l#<vw
wE .Subscript = wdUndefined
h't!
1u .Superscript = wdUndefined
h@H8oZ[ .Underline = wdUnderlineNone
s{:l yp .UnderlineColor = wdColorAutomatic
&%\H170S .Color = wdColorAutomatic
\Aa{] t .Engrave = False
Mnx')([;W End With
Pqtk1=U With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat
1OOMqFn} L e%w zcn .LineSpacingRule = wdLineSpaceExactly
|}0 7tUq .LineSpacing = 16
x
&4gy%b .Alignment = wdAlignParagraphLeft
&$V&gAN .WidowControl = False
'Y;M% .KeepWithNext = False
Pf/_lBtL .KeepTogether = False
EG
&97l b .PageBreakBefore = False
A{IJ](5.kd .OutlineLevel = wdOutlineLevelBodyText
<,:5d2mM. D00v"yp%% .LeftIndent = CentimetersToPoints(0)
%
%c1@2G< .RightIndent = CentimetersToPoints(0)
.G ~ Y`0 .FirstLineIndent = CentimetersToPoints(0)
iKVJ
c=C /]@1IC{Lk .CharacterUnitLeftIndent = 0
,'%wadOo .CharacterUnitRightIndent = 0
<}
BuU! .CharacterUnitFirstLineIndent = -2
)%6h9xyXt "pa2,-& .LineUnitBefore = 0
Zai:?%^ .LineUnitAfter = 0
~ 5@b W J .SpaceBefore = 0
oWP3 Y. .SpaceAfter = 0
[/+}E X |H%[tkW6c End With
m5'nqy F ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False
;NJx9 )7 < ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll
=uil3:,[S ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS
,jc')#]9B ActiveDocument.Styles("QLNU参考文献").NoProofing = True
m.g2>r`NU ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese
\YZ 7 DoEvents
qH9bo-6 1<(('H '
5?=haGn ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle")
# ^q87y ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle"
~ _G W ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False
x Rp;y* With ActiveDocument.Styles("QLNU论文题目").Font
z,+LPr .NameFarEast = "黑体"
Taqq EL .NameAscii = "Arial Black"
W)z@>4`Bb .NameOther = "Arial Black"
z:p;Wm .Name = "Arial Black"
"WfVZBWG$ .Size = 16
ri?k}XnhX .Bold = False
7+2DsZ^6MW .Italic = wdUndefined
nPRv.h .Superscript = wdUndefined
K4w#}gzok .Subscript = wdUndefined
8TH fFL .Underline = wdUnderlineNone
5B)z}g^h .UnderlineColor = wdColorAutomatic
X?gH(mn .Color = wdColorAutomatic
g[% ^OT# q,% lG$0v End With
,"xr^@W With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat
~^ <1 k- .LineSpacingRule = wdLineSpaceSingle
Wq"5-U;:w .Alignment = wdAlignParagraphCenter
\ y}!yrQ .WidowControl = True
$eU oFa5A .KeepWithNext = True
\nbGdka
.KeepTogether = True
vP. ^j7wB .PageBreakBefore = True
dZ6P)R .NoLineNumber = False
7mT
iO?/y< .OutlineLevel = wdOutlineLevelBodyText
pj9* $.{ BufXnMh . .LeftIndent = CentimetersToPoints(0)
,3P@5Ef .RightIndent = CentimetersToPoints(0)
DPg\y".4Y& .FirstLineIndent = CentimetersToPoints(0)
EU,f;H TR J5m?x .CharacterUnitLeftIndent = 0
41XS/# M$* .CharacterUnitRightIndent = 0
yg o4. .CharacterUnitFirstLineIndent = 0
&WV&_z 6 >)oG6 .LineUnitBefore = 1
ui .riD[,O .LineUnitAfter = 1
Po*G/RKu4W ?"Ec#,~ .BaseLineAlignment = wdBaselineAlignAuto
E},^,65 End With
E-v#G~ ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False
RqU^Q*/sF ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll
3I.0jA#T&/ ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS
!V O^ oD7 ActiveDocument.Styles("QLNU论文题目").NoProofing = True
Ucqn 3& ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese
P
?A:0a ActiveDocument.Styles("QLNU论文题目").NoProofing = True
ah2L8jN" DoEvents
t E(_Cg 5==hyIy '中文摘要
NfsF'v ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle")
WFm\ bZ . ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle"
@lhjO>@#I ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False
`"s* 'P398 With ActiveDocument.Styles("QLNU中文摘要").Font
SsBiCc
tn .NameFarEast = "宋体"
jV 98 2Y .NameAscii = "Times New Roman"
k,h
/B .NameOther = "Times New Roman"
j#rj_ uP .Name = "Times New Roman"
|EZ\+!8N:{ .Size = 12
9=5xt;mEs} .Bold = wdUndefined
3IyNnm=u .Superscript = wdUndefined
{"vTaY@ .Subscript = wdUndefined
O]cuJp .Italic = wdUndefined
'jA>P\@8 .Underline = wdUnderlineNone
*m6h(8(7Z .UnderlineColor = wdColorAutomatic
*$ kpS ph .Color = wdColorAutomatic
W&Xm_T[ Q End With
#O,;3S With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat
u WjSqyb: .LineSpacingRule = wdLineSpaceExactly
SCq:jI .LineSpacing = 20
'wT !X[jF .Alignment = wdAlignParagraphLeft
1@<PcQBp uN*Ynf(:- .WidowControl = False
CY</v,\:# .KeepWithNext = False
YW7Pimks .KeepTogether = True
H-C$ Jy)f" .PageBreakBefore = False
Yj{-|2YzL .NoLineNumber = False
*/)O8`}2 .OutlineLevel = wdOutlineLevelBodyText
HE{Ji Af UpFm3gKF .LeftIndent = CentimetersToPoints(0)
4Je[ !X@C .RightIndent = CentimetersToPoints(0)
h#~\-j 9 > .FirstLineIndent = CentimetersToPoints(0)
Y9r##r+ ; nc3O{rU
.CharacterUnitLeftIndent = 0
08MY=PC~R .CharacterUnitRightIndent = 0
s g9 .CharacterUnitFirstLineIndent = 2
Q^ } I
b[ .LineUnitBefore = 0
VBq|j"o0" .LineUnitAfter = 0
g/(3D L )53
o! End With
ESyb34T` ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False
Z!foD^&R ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll
X4dxH_@ ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS
TJ_pMU ActiveDocument.Styles("QLNU中文摘要").NoProofing = True
2kkqPBc_
ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese
ojG;[@V ActiveDocument.Styles("QLNU中文摘要").NoProofing = True
y}*J_7- ActiveDocument.Styles("QLNU中文摘要").Frame.Delete
wi-F@})f# DoEvents
i}=n6
EGw;I Fj) ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
ZG sI\3S ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle"
,vcd>"
PK ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False
_L%
=Q ulu With ActiveDocument.Styles("QLNU英文标题").Font
KJYcP72P .NameFarEast = "黑体"
>)*0lfxTZ .NameAscii = "Arial Narrow"
FByA4VxB .Name = "Arial Narrow"
t$EL3U/( .Size = 16
S>;+zVF ] .Bold = True
+cwuj .Bold = wdUndefined
p?V @P6h .Superscript = wdUndefined
1haNpLfS> .Subscript = wdUndefined
EN/r{Cm$B .Italic = wdUndefined
3k# h !Z e pGC
Ta .Underline = wdUnderlineNone
}Hy4^2B .UnderlineColor = wdColorAutomatic
Msst:}QY .StrikeThrough = False
:v B9z .DoubleStrikeThrough = False
! z6T_;s End With
t->I# t7 With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat
;km
^ OO$ .LineSpacingRule = wdLineSpaceSingle
4o3TW# .Alignment = wdAlignParagraphCenter
sL4j@Lt .WidowControl = True
mkuK$Mj .KeepWithNext = False
qtlcY 8! .KeepTogether = False
*&doI %q .PageBreakBefore = False
1)t* l;. .NoLineNumber = False
A/TCJ#>l .FirstLineIndent = CentimetersToPoints(0)
vX}#wDNP .OutlineLevel = wdOutlineLevelBodyText
SQ
la]% 36MNaQt'e .LeftIndent = CentimetersToPoints(0)
MRN=-|fV^ .RightIndent = CentimetersToPoints(0)
,!vI@>nhG .FirstLineIndent = CentimetersToPoints(0)
tRVz4fk[G +[2ep"5H .CharacterUnitLeftIndent = 0
`DS7J\c$ .CharacterUnitRightIndent = 0
%X* *( .CharacterUnitFirstLineIndent = 0
a98J_^ n l}_6 _g>6 .LineUnitBefore = 1
:x3"Cj .LineUnitAfter = 1
QX$3"AZ~ sH51 .JG End With
RMs+pN<5 ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False
c|s7 cG$+- ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll
L/xTW ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS
Pr
hGp
_5 ActiveDocument.Styles("QLNU英文标题").NoProofing = True
/2>.*H_2 ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese
?p& ( Af) ActiveDocument.Styles("QLNU英文标题").NoProofing = True
3W3)%[ 5 ActiveDocument.Styles("QLNU英文标题").Frame.Delete
U2
8frRa DoEvents
o0 |T<_ a\B'Qe+ ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle")
zGtv(gwk ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle"
U W' @3#<? ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False
9?tG?b0 With ActiveDocument.Styles("QLNU英文摘要").Font
})umg8s .NameFarEast = "宋体"
trz &]v=: .NameAscii = "Arial"
NCivh&HR .NameOther = "Arial"
Cs'<;|r( .Name = "Arial"
g+]o=@ .Size = 12
$&X-ay o .Bold = wdUndefined
\rM5@
Vf .Italic = wdUndefined
,FL *Z9wA .Superscript = wdUndefined
j@.^3: .Subscript = wdUndefined
+} x\|O End With
8}K4M( &P&VJLA e With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat
#+8G` x4XCR,- .LineSpacingRule = wdLineSpaceExactly
oH;9s-Be .LineSpacing = 20
']U<R=5T$ 0b}.!k9 .Alignment = wdAlignParagraphJustify
u$<>8aM
ei v2Vmcc_]9x .WidowControl = False
_)ZxD--Qg .KeepWithNext = False
Eg(.L,dj .KeepTogether = False
Ks Qn %mxS .PageBreakBefore = False
pEq }b+- .NoLineNumber = False
V`m9+<.1 b Pos
(`ys; .OutlineLevel = wdOutlineLevelBodyText
zuS4N?t`p Zg$RiQ^-{J .LeftIndent = CentimetersToPoints(0)
`Sal-|[Cv[ .RightIndent = CentimetersToPoints(0)
B &e'n< .FirstLineIndent = CentimetersToPoints(0)
Gz:ell$ o[ %\W .CharacterUnitLeftIndent = 0
ihd ^P] .CharacterUnitRightIndent = 0
c2wgJH !g .CharacterUnitFirstLineIndent = 2
QxT\_Nej*n TjS & V .LineUnitBefore = 0
H>F j .LineUnitAfter = 1
R!rj :f!> p :zRgwcn End With
#z =$ *\u ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False
&AnWMFo ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll
}=
p+X:k= ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS
[Om,Q< ActiveDocument.Styles("QLNU英文摘要").NoProofing = False
s)G?5 Gz DoEvents
.'bhRQY J1Run0 Options.Pagination = True
F^CR$L& K Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....."
C."\ a_p DoEvents
d}<-G.&_ ActiveDocument.Repaginate
&3 * #h ldt]=Sqy End Sub
d' l|oeS <UwYI_OX /vs79^&
