Dim bContinue As Boolean
c|?0iN )\ fA y
Dim regEX As New RegExp
$ qOV#,@ Dim paraCounter As Long '全局段落计数，仅在主程序中可读写，其它过程函数应为只读
.u[h K '@Oq WdaR Dim LastTitle0String As String, LastTitle0No As Long
wX dt Y Dim LastTitle1String As String, LastTitle1No As Long
Hjl{M >z Dim LastTitle2String As String, LastTitle2No As Long
44;ZX$HL Dim LastTitle3String As String, LastTitle3No As Long
1HOYp*{#wP Dim LastTitle4String As String, LastTitle4No As Long
xe ng`! Dim LastTitle5String As String, LastTitle5No As Long
X]up5tk ~ Dim LastTabelString As String, LastTableNo As Long
zzmZ`Ya Dim LastFigureString As String, LastFigureNo As Long
[4Tiukk( 'wh2787 Dim strSeperator As String
sbnNk(XINQ
Z|zyO- Sub ConvertWidth(fTEXT As String, rText As String)
f%r0K6p Selection.Find.ClearFormatting
M-> /
vi Selection.Find.Replacement.ClearFormatting
ACQbw)tiv} Selection.Find.Wrap = wdFindContinue
V^Gz7`^ Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText
ND);7 DoEvents
`
@ . Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True
i"|="O0v5 End Sub
7)iB6RB K |KSd@ Sub ClearDomain()
q bu>YTj With Selection.Find
zdY+?s)p .ClearFormatting
Z#H ] yG .Replacement.ClearFormatting
4?Mb>\n%<^ .Wrap = wdFindContinue
MLD-uI10{ Me.txtStatus.Text = "清除所有域代码"
9v[cy` \ DoEvents
pbg[\UJyd .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False
N$u;Q(^ End With
t\YN\`X
D End Sub
0V{a{>+ 9nW/ pv Private Sub cmdCheck_Click()
Y4E UW% bContinue = True
!=%E&e] Dim NoSeries1(1 To 16) As String
xDtq@Rb} Dim NoSeries2(1 To 16) As String
UG)J4ZX Dim NoSeries5(1 To 16) As String
QUa_gYp0v Dim NoSeriesRM(1 To 16) As String
|.kYomJ Dim paraTotal As Long, ParaText As String
)nJo\HFXv Dim ttString As String, ttNo As String
`>M;f%s +% yVW f Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long
0}' ki/x o^Y2< Me.txtStatus.Visible = True
#XSs.i{ Me.lbParaType.Visible = True
-"*UICd Me.cmdCheck.Enabled = False
s-^B)0 T! 8Q $fXB HzADz%~ 2 de[ yz 7PE3>cD Dim ParaType As String, rText As String
#'"zyidu q:Lw!'Z h Selection.WholeStory
G JlkEWs Selection.NoProofing = True
d) V"tSC, }~gBnq_DDU tm1 = Now
<
H1+qN=]` L0ZgxG3:g ActiveWindow.View.Type = wdNormalView
E+XpgR5 ~~J xw ] NoSeries1(1) = "一"
2E q?^ )s NoSeries1(2) = "二"
UuDT=_1Sh NoSeries1(3) = "三"
C'~K am S NoSeries1(4) = "四"
|a!AgvNF NoSeries1(5) = "五"
a`SQcNBf* NoSeries1(6) = "六"
FFE IsB"9 NoSeries1(7) = "七"
{O\>"2}m'f NoSeries1(8) = "八"
:=
J~t@ NoSeries1(9) = "九"
@
s NoSeries1(10) = "十"
-mD<8v[F NoSeries1(11) = "十一"
yO@KjCv" NoSeries1(12) = "十二"
CE :x;!}cd NoSeries1(13) = "十三"
cW+6Emh NoSeries1(14) = "十四"
wPhN_ XV NoSeries1(15) = "十五"
pUs:r0B NoSeries1(16) = "十六"
'n'83d)z (#zSVtZ NoSeries2(1) = "㈠"
(dSf>p r 2 NoSeries2(2) = "㈡"
:^
9
sy NoSeries2(3) = "㈢"
R
7'a/ NoSeries2(4) = "㈣"
IYtM'!u NoSeries2(5) = "㈤"
S w##C
l# NoSeries2(6) = "㈥"
WxNPAJ6YH NoSeries2(7) = "㈦"
^A9D;e6!- NoSeries2(8) = "㈧"
Y6LoPJ NoSeries2(9) = "㈨"
^a 9v5hu NoSeries2(10) = "㈩"
%EC{O@EAk 'E sN{.l ? NoSeries5(1) = "①"
>:5^4/fo* NoSeries5(1) = "②"
%<^B\|d'? NoSeries5(3) = "③"
b
j6-0` NoSeries5(4) = "④"
<sXm k{ NoSeries5(5) = "⑤"
]
-
NoSeries5(6) = "⑥"
8J60+2Wa NoSeries5(7) = "⑦"
$L|Yll D% NoSeries5(8) = "⑧"
-w8c;5X NoSeries5(9) = "⑨"
8<cD+Jt j NoSeries5(10) = "⑩"
i21ybXA=Z 8
1Ar.< Obl']Hr{y9 NoSeriesRM(1) = "I"
x9fNIuAQ NoSeriesRM(2) = "II"
lZyxJDZ A NoSeriesRM(3) = "III"
R RYm.dMIw NoSeriesRM(4) = "IV"
e
;LJdd NoSeriesRM(5) = "V"
UclQo~ 3 NoSeriesRM(6) = "VI"
8<z]rLQw?% NoSeriesRM(7) = "VII"
NZUQ
R`5 NoSeriesRM(8) = "VIII"
REd"}zDI NoSeriesRM(9) = "IX"
6U{& `8C NoSeriesRM(10) = "X"
q2qbbQ6H NoSeriesRM(11) = "XI"
X^L)5n+$X NoSeriesRM(12) = "XII"
4 [@`j{ NoSeriesRM(13) = "XIII"
uXx c2} NoSeriesRM(14) = "XIV"
fC!]M hA"i NoSeriesRM(15) = "XV"
li>`9qCmI NoSeriesRM(16) = "XVI"
<28L\pdG` >3R %GNw i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo)
,`<w# k_A. aYe If i = vbNo Then
V{51wnxT Exit Sub
]<3$Sx_{y End If
JE~ci#|! Ave{ `YD If Me.chkSuper.Value Then
uFd.2 ,XNP Me.txtStatus.Text = "检查修改所有的上标格式"
Bq}p]R3X NzRpI5\. CheckSuperScript
Z4eu'.r-y~ M ,0@@: End If
gHU/yi!T VUfV=&D-*g If Me.chkStyle.Value Then
Ift @/A Me.txtStatus.Text = "设置样式，请稍候...."
h-"c
)?p DoEvents
Q4YIKNN|7 CeateOrModifyStyle
\Qa6mt2h End If
g[P.lpi{U vIk;x CuE>=y- "I -C9 _gZ ClearDomain
_ J<^'w^;% t?[|oz:v }=kf52Am,} /.leY $ If Me.chkLIST.Value Then
7_ $Xt)Y{ Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式"
D@[Mk"f WdXi ConvertListToOrdinary
2LpJ xV End If
xRZ9.Agv_ KH4
5A'o y @&Cn Dim pType As String, trimpTEXT As String
.A;D-"! If Me.chkNum.Value = True Then
A0x"Etbw) Me.txtStatus.Text = "转换全角数字形式为半角"
n<C4-'^U[a ConvertWidth "１", "1"
,TuDG*YA DoEvents
],r tSUO ConvertWidth "２", "2"
&
w{""' DoEvents
b >R/=tx ConvertWidth "３", "3"
zE" ME*ou DoEvents
c* +yJNm3> ConvertWidth "４", "4"
zu6Y*{$>g DoEvents
76i)m! ConvertWidth "５", "5"
'BE &l W DoEvents
zB 6u%u WR ConvertWidth "６", "6"
b_Us%{ DoEvents
.r~!d| ConvertWidth "７", "7"
kNX"Vo]1 DoEvents
I`
%\ "bF@ ConvertWidth "８", "8"
U1&pcwP DoEvents
igNZe."V ConvertWidth "９", "9"
R#a
yN* DoEvents
mp2J|!Lx ConvertWidth "０", "0"
&<</[h/B/F DoEvents
vR m.# +Td ConvertWidth "ａ", "a"
vB
0O3] DoEvents
EC6&#)g;CO ConvertWidth "ｂ", "b"
uo`O$k<; DoEvents
> UT Ak ConvertWidth "ｃ", "c"
,3^gB,ka DoEvents
} t4?*:\ ConvertWidth "ｄ", "d"
Vc!` BiH DoEvents
x Bn+-V ConvertWidth "ｅ", "e"
Y
.. DoEvents
!2d A8b ConvertWidth "ｆ", "f"
|R Ux)& DoEvents
L4th 7# ConvertWidth "ｇ", "g"
k(Z+(Y'{q~ DoEvents
]lj,GD)c ConvertWidth "ｈ", "h"
"*o54z5" DoEvents
g(d9=xq@k ConvertWidth "ｉ", "i"
vfG4PJ 6 DoEvents
_I;+p eq ConvertWidth "ｊ", "j"
XW!a?a
LNX DoEvents
xFZ
A1 8 ConvertWidth "ｋ", "k"
& i,on6 DoEvents
>YPC &@9
ConvertWidth "ｌ", "l"
xA;o3Or DoEvents
hdB.u^! ConvertWidth "ｍ", "m"
OoKzPePWji DoEvents
?b?` (JTR ConvertWidth "ｎ", "n"
m>4jRr6sF ConvertWidth "ｏ", "o"
QN =a { ConvertWidth "ｐ", "p"
np|3 os ConvertWidth "ｑ", "q"
I>k >^ ConvertWidth "ｒ", "r"
#NZ\UmA ConvertWidth "ｓ", "s"
4@6!E^
ConvertWidth "ｔ", "t"
\79KU ConvertWidth "ｕ", "u"
U1?*vwfKZ ConvertWidth "ｖ", "v"
hQ!sl O ConvertWidth "ｗ", "w"
cP[3p : ConvertWidth "ｘ", "x"
\RcB,?OK ConvertWidth "ｙ", "y"
lWj|7 ConvertWidth "ｚ", "z"
}wmn v ConvertWidth "Ａ", "A"
R:+2}kS5e{ ConvertWidth "Ｂ", "B"
K/;FP'. ConvertWidth "Ｃ", "C"
/]=d Pb% ConvertWidth "Ｄ", "D"
,fS }c pV ConvertWidth "Ｅ", "E"
g?V>+oMx ConvertWidth "Ｆ", "F"
iV X 12 ConvertWidth "Ｇ", "G"
(eS/Q%ZGK ConvertWidth "Ｈ", "H"
r 3X|*/ ConvertWidth "Ｉ", "I"
K-Bf=7F, ConvertWidth "Ｊ", "J"
w*.q t<rH) ConvertWidth "Ｋ", "K"
W@NM~+)e ConvertWidth "Ｌ", "L"
+ QcgLq ConvertWidth "Ｍ", "M"
>t2E034_ ConvertWidth "Ｎ", "N"
u|m>h(O ConvertWidth "Ｏ", "O"
Ux_ tHyc/ ConvertWidth "Ｐ", "P"
w3lR8R] ConvertWidth "Ｑ", "Q"
19od#
d3+ ConvertWidth "Ｒ", "R"
l?CUd7P(a ConvertWidth "Ｓ", "S"
neW_mu;~Z ConvertWidth "Ｔ", "T"
%JB FG.+ ConvertWidth "Ｕ", "U"
fuM+{ 1}/E ConvertWidth "Ｖ", "V"
<1tFwC|4BJ ConvertWidth "Ｗ", "W"
%GUu{n<6 ConvertWidth "Ｘ", "X"
-^=sxi,V ConvertWidth "Ｙ", "Y"
\Q.Qo s ConvertWidth "Ｚ", "Z"
0T,Qn{ ConvertWidth "^l", "^p"
4am`X1YV# ConvertWidth "（", "("
ZM oV !lu ConvertWidth "）", ")"
j-2`yR rM6^pzxe End If
H"PnX-fGN Q9X7- \n With ActiveDocument
p8<Y5:` Dim tbl As Table
1(C3;qlVD For Each tbl In .Tables
,: X+NQ tbl.Rows.Alignment = wdAlignRowCenter
*@'4 A :A tbl.Range.Font.NameFarEast = "楷体"
I(fq4$ tbl.Range.Font.NameAscii = "Times New Roman"
S4]}/Imn) tbl.Range.Font.Size = 10.5
G%N/]]ll Next
@DgJxY| Set tbl = Nothing
YDBQ6X End With
/E'c y a`5ODW+ ^p#f B4z With ActiveDocument
x2B~1edf f$a%&X6"- For i = 1 To .TablesOfContents.Count
V $u~}]z .TablesOfContents(i).Delete
td^2gjr^5 Next
q1j<p)( Pf
s _s6 aVv$k jbQ2 G|:Q paraTotal = .Paragraphs.Count
[9f
TN2'z paraCounter = 1
reml|!F-) @MIBW)P< LastTitle0No = 0
2kV[A92s LastTitle1No = 0
wCiDvHF5+C LastTitle2No = 0
S -j<O&h~C LastTitle3No = 0
H!U\;ny LastTitle4No = 0
.5+
*,+- LastTableNo = 0
]_NN,m> z LastFigureNo = 0
< VD^f `_Bvae j?, Dim Sec As Long
Hl"rGA> }J}a;P4 Sec = InputBox("正文从第一节开始？", "节设置", 6)
l,}{Y4\G If Sec = 0 Then
4`@] jm
Exit Sub
-L>\
58` End If
K
@3 yS8F %=x|.e@J k = 0
2 g"_ *[ Do While (paraCounter < paraTotal) And bContinue
]@OGp:Hz k = k + 1
uN bOtA If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then
O[Xl*9P Exit Do
m#SDB6l
End If
usi v`.
paraCounter = paraCounter + 1
O@[c*3]e If k Mod 20 = 0 Then
M0 `nr}g Me.lbCounter.Caption = paraCounter
:A35 ?9E? DoEvents
}^uUw&
End If
[.DSY[!8U Loop
E@\e37e &Im{p7gf!b Y(IT#x?p Do While (paraCounter < paraTotal) And bContinue
uG2(NwOL m7X&"0X ParaText = Trim(.Paragraphs(paraCounter).Range.Text)
v)@EK6Nty ShapeHeight = 0
$ wGDk ShapeWidth = 0
4,L
( Xv 3u}nPMq CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth
/ G $8 j$ Q!/<= 95E Select Case ParaType
0T 2h3, Case "【】表格内容"
U," lOG'
.Paragraphs(paraCounter).Style = "QLNU表格内容"
Eq-fR~< 9 Case "章"
% zE_Q LastTitle0No = LastTitle0No + 1
? l C.
Pq '新一章开始，复位其下属标题编号
lyiBRMiP| LastTitle1No = 0
9 6
;17h$ LastTitle2No = 0
zmkqqiDp_ LastTitle3No = 0
Iu6KW :x LastTitle4No = 0
g|*2O}< U JG )-x k = Val(ttNo)
Ju$= Tn If k = 0 Then '非数字编号章节
iMRb`
\KH If ttNo <> NoSeries1(LastTitle0No) Then
Z; shFMu rText = "第" & NoSeries1(LastTitle0No) & ttString
FUzIuz 6 Me.ErrMsg.AddItem "章节编号错误：" & ParaText
%]%.{W\j3 End If
6GCwc1g Else
Lv@JfN"O If Val(ttNo) <> LastTitle0No Then
BQVpp,] rText = "第" & LastTitle0No & ttString
BQWEC,*N Me.ErrMsg.AddItem "章节编号错误：" & ParaText
}OO(u C2 End If
[ P\3XSR 0S@O] k) End If
o Xwoi ! J {'
u '章段落设置
g~_cYy '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅
U#G[#sd> K .Paragraphs(paraCounter).Style = "QLNU章节"
|D)NP N& .Paragraphs(paraCounter).Range.Select
Kx9Cx 5 B Selection.EndKey unit:=wdLine
V%k[S|f3 tc = Replace(rText, vbCr, "")
=W)Fa6P3j( Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False
|M|'S~z Case "一级标题"
rP.qCl+J LastTitle1No = LastTitle1No + 1
M fU
G@ '新一级标题开始，复位其下属标题编号
Ggy_
Ctu LastTitle2No = 0
CB x 1.xL LastTitle3No = 0
T[M?:~ LastTitle4No = 0
3 #R~>c2 .5 8>KBj( If ttNo <> NoSeries1(LastTitle1No) Then
E",s
] rText = NoSeries1(LastTitle1No) & "、" & ttString
BMU}NZ A Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText
RWmQP%A}aw End If
\7Hzj0hSi 4s/4z@3a ]xQPSs_ '一级标题段落设置 格式：一、标题内容
v'* .Paragraphs(paraCounter).Range.Text = rText
X0
&1ICZ .Paragraphs(paraCounter).Style = "QLNU一级标题"
:$d3}TjsA+ .Paragraphs(paraCounter).Range.Select
jLC,<V * Selection.EndKey unit:=wdLine
j &)Xi^^ tc = Replace(rText, vbCr, "")
FH}n]T Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False
TF 6_4t6 Case "二级标题"
RC Fb&,51 LastTitle2No = LastTitle2No + 1
#M
*h)/d[A '新二级标题开始，复位其下属标题编号
N'R^S98 x LastTitle3No = 0
7k{Oae\ $ LastTitle4No = 0
sKIWr{D y [e $ If ttNo <> NoSeries1(LastTitle2No) Then
8 }Rwf?B rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString
&n|!
'/H ErrMsg.AddItem "二级标题编号错误：" & ParaText
*v3/8enf End If
N8(xz-6 Mj |)KDL '二级标题段落设置 格式：(一)、标题内容
VVeO>j d .Paragraphs(paraCounter).Range.Text = rText
`+$'bNPn& .Paragraphs(paraCounter).Style = "QLNU二级标题"
{:40Jf
XO zPi*V** .Paragraphs(paraCounter).Range.Select
(8o~ XL Selection.EndKey unit:=wdLine
=zXpeo&|m tc = Replace(rText, vbCr, "")
CYrVP%xRA Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 2 ", PreserveFormatting:=False
\~: Kp
Kq ~Kda# = Case "三级标题"
jPYed@[+ LastTitle3No = LastTitle3No + 1
z<c^<hE:l '新三级标题开始，复位其下属标题编号
N;tUrdg Q LastTitle4No = 0
fV * x2g7w BDZB;DPb If Val(ttNo) <> LastTitle3No Then
d{&+xl^ll rText = LastTitle3No & ". " & ttString
s]`& 9{=E Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText
%)*!(%\S*3 K^t M$l\ End If
%j=dKd> '三级标题段落设置 格式：1. 标题内容
{Eb
R
= .Paragraphs(paraCounter).Range.Text = rText
*A2J[,?c .Paragraphs(paraCounter).Style = "QLNU三级标题"
$7gzu4f .Paragraphs(paraCounter).Range.Select
,(Fo%.j Selection.EndKey unit:=wdLine
'qQ 5K
o tc = Replace(rText, vbCr, "")
a`(6hL3 IT Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 3 ", PreserveFormatting:=False
P, !si# Case "四级标题"
'1;Q'-/J LastTitle4No = LastTitle4No + 1
x3>K{ =Z_\8 qc If Val(ttNo) <> LastTitle4No Then
@uz&]~+` rText = "(" & LastTitle4No & "). " & ttString
b!SGQv(^M ErrMsg.AddItem "四级标题编号错误：" & ParaText
T[>h
6d '-3A
WBWI1 End If
|$Dt6{h '四级标题段落设置 格式：(1). 标题内容
&H,
5f # .Paragraphs(paraCounter).Range.Text = rText
]O',E i ^ .Paragraphs(paraCounter).Style = "QLNU四级标题"
u7G@VZ Ux5 .Paragraphs(paraCounter).Range.Select
6FG h=~{3, Selection.EndKey unit:=wdLine
XyJ*>;q tc = Replace(rText, vbCr, "")
L?&+*|VxI Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 4 ", PreserveFormatting:=False
&W fs6g CJg & Case "表格标题"
kH d_q. LastTableNo = LastTableNo + 1
iZ#dS}VlJ wx pD{P If ttNo <> CStr(LastTableNo) Then
:bwdEni1P rText = "表" & LastTableNo & ". " & ttString
/S1EQ
%_ ErrMsg.AddItem "表格编号错误：" & ParaText
5%(J +d w=d#y
)1 End If
>
C{^{?~u EU]{S=T '表格名称段落设置 格式：表1. 表格名称
mk_c ub @ .Paragraphs(paraCounter).Style = "QLNU表格标题"
,@%1q)S?A xe = Replace(rText, vbCr, "")
w/KHS#~ .Paragraphs(paraCounter).Range.Select
+o(t5O[G Selection.MoveEnd wdCharacter, -1 '选择范围包括行尾的换行符。
@/H1}pM~ Selection.Range.Text = xe
W%b <(T;
Selection.EndKey
_ z\oDd`' Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False
0z/tceW
'F !y$H r[v Case "表格首行"
0!veLXeK! .Paragraphs(paraCounter).Style = "QLNU表格首行"
eS fT +UL Case "图片标题"
LtbL[z>] LastFigureNo = LastFigureNo + 1
('Wo#3b$ l_
iucN If ttNo <> CStr(LastFigureNo) Then
k:s}`h _n rText = "图" & LastFigureNo & ". " & ttString
4;Z`u.1 ErrMsg.AddItem "表格编号错误：" & ParaText
YQ X+lE HxAq& J;xu End If
{"!V&} '图片名称段落设置 格式：图1. 图名称
[&t3xC, .Paragraphs(paraCounter).Range.Text = rText
f 7{ E(, .Paragraphs(paraCounter).Style = "QLNU图片标题"
B)
/X:[ .Paragraphs(paraCounter).Range.Select
,0NVb7F;k Selection.EndKey unit:=wdLine
>8Z z<S&z xe = Replace(rText, vbCr, "")
?XL [[vyr Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False
)5gcLD/zI Case "正文"
Mcc774'*9 '正文名称段落设置
lxj_ (Uo .Paragraphs(paraCounter).Style = "QLNU正文"
6kGIO$xJ) Case "文献条目"
=$Sf]L
With .Paragraphs(paraCounter)
b>;>*'e
'.Range.Select
5tHv'@ 'Selection.ClearFormatting
J|_&3@ r '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator 'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ”
(G<"nnjK .Style = "QLNU参考文献"
fJLlz$H End With
[ik D4p= Case "图表注解"
\+fP&
With .Paragraphs(paraCounter)
l"[email protected]} f/ .Range.Font.NameFarEast = "楷体"
j(F%uUpN .Range.Font.NameAscii = "Times New Roman"
t&:'A g
.G .Range.Font.Size = 9 '小5号字
'x<gC"0A i0 {pm q .Alignment = wdAlignParagraphCenter
%d($\R-*O .LeftIndent = 0
!1+ L0,I6 .RightIndent = 0
lG>rf*ei~ .FirstLineIndent = 0
>T;"bc b .LineSpacing = 12
Z!G _" 3 .LineSpacingRule = wdLineSpaceExactly
u$[
'}z0: .LineUnitAfter = 0
[' R2$z .LineUnitBefore = 0
mm/U 9hbp% .OutlineLevel = wdOutlineLevelBodyText
0vmMNF .PageBreakBefore = False
?H eC+=/Z .RightIndent = 0
-VD[iH .WordWrap = True
>Mj :' .LineUnitAfter = 0.5
G%
S=K2 v ^tsIgK ^9H End With
qqT6C%Q`kG Case Else
Fzh%#z0
'不作处理
K6~N {:.s End Select
6[wej$ u w_@N T} '含有inlineshape的段落处理
yxQ xc5/X) If ShapeHeight > 30 Then
(ZQ{%-i?qR .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle '对有图片的段落设置为单倍行距
, =B
"%=S End If
GV6!`@< j+]>x]c0 If (ShapeWidth + ShapeHeight) > 150 Then
-'BJhi\Y]~ .Paragraphs(paraCounter).Style = "QLNU图片段落"
'IP'g,o++ End If
$EW31R5h<s ir q
lU '段落计数器递
;j=/2vU~@ paraCounter = paraCounter + 1
kNUbH!PO Me.lbCounter.Caption = "当前检测段落：" & paraCounter
'e02rqip{ Me.txtStatus.Text = ParaText
5[`!\vC iZ DoEvents
mA(K`"Bfh Loop
#6fp " End With
'P32G?1C&p flIdL, msg = ""
U
4%d # T
n Ad! For i = 0 To Me.ErrMsg.ListCount - 1
VF!?B> msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i)
LD: w
wH Next
\ h Q[5> jC
,foqL E} c(4RY dMw7Lp& Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg
<i^Bq=E<rJ Me.cmdCheck.Enabled = True
+`kfcA#pi Me.txtStatus.Visible = True
XD{U 5.z>y Me.lbParaType.Visible = False
5!}xl9D K8Gc5#O
F bContinue = False
5X\3 y4 End Sub
|4YDvDEJi ye KzI~ 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)
/u!I2DF Dim pTEXT As String
* gr{ {c !jMa
%;/ pTEXT = ChKRange.Text
vrm[sP @YdS_W ParaType = "其它"
)+wBS3BC TitleString = pTEXT
G ^p>fy~ TitleNo = "N/A"
Z66akr wblEx/FqE^ shpCounter = ChKRange.InlineShapes.Count
v~q2 D"
If shpCounter <> 0 Then
w4:S>6X MaxShpHeight = 0: TotalShpWidth = 0
gsI"G For i = 1 To shpCounter
d{hb gUSj k = ChKRange.InlineShapes(i).Height
epCU(d*b l = ChKRange.InlineShapes(i).Width
1d7oR`qr If k > MaxShpHeight Then
-Vn9YeH+ MaxShpHeight = k
s6OnHX\it7 End If
AnU,2[( TotalShpWidth = TotalShpWidth + l
Mr <2I Next
V i2 3pDZ5 If MaxShpHeight > 60 Or TotalShpWidth > 150 Then
CY)/1 # J Exit Sub
@ Rj&9/\L End If
x8.7])?w End If
_zI9 5 `"H!=` '空行
m C
n,I If Len(pTEXT) <= 2 Then
Y4 ){{bEp Exit Sub
UA>~ xJp= End If
)^
R]3!v 5xwztcR- i &-g 0
'是否为表格中的文字
*GbC`X) If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then
"w9`UFu%^e ParaType = "表格内容"
{#
: js k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber)
,IA0 n79 If k = 1 Then
IKKd ParaType = "表格首行"
'{\VO U End If
3^q,'!PfB Exit Sub
#R"9( Q& End If
"@ Bc eD %CfJ.;BDNE '例外情况：脚注
?} m/Q"!1 If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then
C16MzrB}(N ParaType = "脚注"
6LL/wemq Exit Sub
apa~ Is1 End If
gH Q[D|zu bsC~
2S\o '例外情况：尾注
/
S$p_7N If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then
b(_PCVC ParaType = "尾注"
I.Co8is Exit Sub
bWt>tEnf End If
bRJYw6oA< l] WV gu If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then
W tnZF]1:u ParaType = "页眉页脚"
^6#FqK+{u Exit Sub
1 <.I2\^ End If
1s-k =3) )W:`Q&/G ED"@!M`1 With regEX
i Ui{)xa2 .Global = True
mG7Wu{~=U a k@0M[d .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$"
Ljq/f&
c If regEX.Test(pTEXT) Then
y AU[A ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3")
g[@K
d TitleString = regEX.Replace(pTEXT, "$3")
j
Rm:9`.Q TitleNo = regEX.Replace(pTEXT, "$1")
:t? 9$ d L ParaType = "章"
4wX{ N
Exit Sub
pM@|P,w { End If
chQt8Ar3 XPd>DH(Yc .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$"
/ gL(4 0 If regEX.Test(pTEXT) Then
e-,U@_B ParaType = "一级标题"
a~S f~ka regEX.Execute (pTEXT)
!(*mcYA*W ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3")
"Fy34T0N TitleString = regEX.Replace(pTEXT, "$3")
DOa Ez?2) TitleNo = regEX.Replace(pTEXT, "$1")
R s_@L}U.. Exit Sub
> "f,'S5* End If
X |.'_6l. %'kaNpBz '全角或半角括号中的数字
1HskY| X .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$"
jx!) N> If regEX.Test(pTEXT) Then
'v*
=}k ParaType = "二级标题"
/4YXx|V regEX.Execute (pTEXT)
'BpK(PlUh ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5")
^5qX+!3r{ TitleString = regEX.Replace(pTEXT, "$5")
k[6@\D- TitleNo = regEX.Replace(pTEXT, "$2")
*SzP7]1 m Exit Sub
-?!|W-}@G= End If
v/c8P\ [N$da=`wv '阿拉伯数字 1. 2.
s D1L
P .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$"
VFT
G3,kI If regEX.Test(pTEXT) Then
U;D!m+.HK ParaType = "三级标题"
F_/]9tz?; regEX.Execute (pTEXT)
R<Ojaj=V ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测
yX,2`&c TitleString = regEX.Replace(pTEXT, "$3")
zawU TitleNo = regEX.Replace(pTEXT, "$1")
QN9$n%Z Exit Sub
HLg/=VF7? End If
mk~i (Ee LS,/EGJ '全角或半角括号中的阿拉伯数字
`FH Hh .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$"
WiH%UR FB If regEX.Test(pTEXT) Then
)@Z
J3l. ParaType = "四级标题"
-TU7G Cb= regEX.Execute (pTEXT)
({yuwH?tH ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5")
7 B _;YT TitleString = regEX.Replace(pTEXT, "$5")
r[ vMiVb TitleNo = regEX.Replace(pTEXT, "$2")
d;Z<")
Exit Sub
T3[\;ib} End If
W=j/2c/ KM g`O3_16 '表格名称
*!,+%0 .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$"
)pjd*+ V If regEX.Test(pTEXT) Then
TgSU}Mf)a ParaType = "表格标题"
}pbyC regEX.Execute (pTEXT)
b3wE8Co ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3"))
W'E!5T^ TitleString = Trim(regEX.Replace(pTEXT, "$3"))
5` { +y] TitleNo = Trim(regEX.Replace(pTEXT, "$1"))
%.r {+m strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换
Vl{CD>$, Exit Sub
FAjO-T4( End If
<GF) 5QB K7F uMB '图片名称
_b<Fz`V .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$"
F8 ;M++ If regEX.Test(pTEXT) Then
D IB Az s ParaType = "图片标题"
p^&' C_? regEX.Execute (pTEXT)
g^NdN46% ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3")
hmtRs]7 TitleString = regEX.Replace(pTEXT, "$3")
f-y4V} TitleNo = regEX.Replace(pTEXT, "$1")
)-Zpr1kD Exit Sub
`)` _G!a End If
tV9W4`Z2q N;>>HN[bBP '参考文献
o$'Fz[U .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})" '[数字]、
Gnj;=f If regEX.Test(pTEXT) Then
IPbdX@FeV ParaType = "文献条目"
jC*(ZF1B 'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4")
'&W`x5`t 'TitleNo = regEX.Replace(pTEXT, "[$2] ")
Cnd*%C PZ Exit Sub
' ; +; End If
CM>/b3nOW V2ypmkn 8& prfx = Left(pTEXT, 2)
g (33h2" If prfx = "注：" Or prfx = "注:" Then
>MUwT$szs ParaType = "图表注解"
i/Q *AG>b Exit Sub
`.
/[/ z-g End If
/R8>f [ @ "H2#CQ XLwbA4ORq ParaType = "正文"
$|C%G6!s?@ g:q+.6va" End With
s24-X1d(9 End Sub
*ys @ 'Ai? |b;}'
* Sub ConvertListToOrdinary()
W:aAe%S Dim st As Paragraph
Tg&{ P{$ With ActiveDocument
q =b.!AZy For i = .Paragraphs.Count To 1 Step -1
Y:^~KS=U z Set st = .Paragraphs(i)
Xj&{M[k< lst = st.Range.ListFormat.ListString
(s
%T1 8 If lst <> "" Then
{0lY\#qcE st.Range.ListFormat.RemoveNumbers
V,<,;d fR st.Range.InsertBefore lst & " "
kI<C\ *N End If
P|v ;'9 Next
qlIC{:E0 End With
iH9g5G`O Set st = Nothing
qDM/
6xO End Sub
U)zd~ug?m k)'hNk"x Private Sub UserForm_Activate()
oIt.Pc~;'# Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节"
i 6kW"5t Me.lbTotal.Font.Bold = True
doBfpQ 2 Me.txtStatus.Visible = False
{DI_i +2 Me.cmdCheck.Enabled = True
y rdJX y+(<Is0w End Sub
":"QsS#*"# h.%VWsAO7 H:`W\CP7_ Sub CheckSuperScript()
#~Lh#@h Selection.Find.ClearFormatting
HyiuU` Selection.Find.Replacement.ClearFormatting
Lbq
"( b With Selection.Find
<. HHV91 .Text = "[【\[［〖](*)[】\]〗］]"
6.6~w\fR8 .Replacement.Text = "[\1]"
PkLRQ} .Replacement.Font.Superscript = True
0(Vbji '.Replacement.Font.Color = wdColorBlue
zpZlA_
.Forward = True
i`gsT[JQRX .Wrap = wdFindContinue
{v+i!a'+ .FORMAT = True
h76#HUBr! .MatchCase = False
=3{ h9 .MatchWholeWord = False
3Ym5SrKK .MatchByte = False
z<+".sD' .MatchAllWordForms = False
b )en/mz .MatchSoundsLike = False
K- )*S\<} .MatchWildcards = True
UY5ia4_D End With
>L$y|8 O Selection.Find.Execute Replace:=wdReplaceAll
~B:Lai4" End Sub
fg8V6FS F]
+t/ Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
req=w; E: bContinue = False
9HLn_|yU Set regEX = Nothing
Eg3rbqM- 8 End Sub
YdV5\! 76c4~IG# Sub CeateOrModifyStyle()
5u:+hB '
tRS^|?? '
,M>W) TSH Dim stl As Style
doFp53NhV $9y]>R Options.Pagination = False
3rZFN
^ s2@N&7"u) On Error Resume Next
}Tu_?b`RUm For Each stl In ActiveDocument.Styles
o2 W pi stl.Delete
rzDqfecOmW Next
bFVz ; On Error GoTo 0
en=Z[ZIPO $.QnM Set stl = Nothing
s.6S : fm;1Iu# DoEvents
T5z %X:VD( On Error Resume Next
:
GIY"l' * <x]gV ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph
V{HZ/p_Y 7WiVor$g- ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph
*-ZD -B*? ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph
`-\4Dx1!q RoxzCFsI\ ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph
hEl)BRJ ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph
j5R= K*y 3SpDV'} ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph
p[0W s460 ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph
9u1_L`+b ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph
&m5 WmEz>` ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph
=P'=P0G ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph
N Rcg~Nu ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph
{uM0J$P : ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph
]b'K
BAMy zf$OC}|\w ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph
Uf
q"_^4 ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph
; G0~f9
ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph
<eO 7b6_ ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph
9K#. 0
ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph
<.l5>mgkCw 69cOdIt^D ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph
3
a:(\:?z On Error GoTo 0
.#zx[Io DoEvents
wC{ =o`v 'an{<82
i 'BaseStyle
v%/8pmZw; ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False
7Hf6$2Wh With ActiveDocument.Styles("BaseStyle").Font
kmy?`P10(z .NameFarEast = "宋体"
|E53
[:p .NameAscii = "Times New Roman"
m,K\e .NameOther = "宋体"
K
*{C:Y .Size = 10.5
lDe9EJR .Bold = wdUndefined
=V"ags .Italic = wdUndefined
cK(}B_D$ .Subscript = wdUndefined
D?}LKs[ .Subscript = wdUndefined
|O+R%'z'< <!y_L5S| .Underline = wdUnderlineNone
r;y&Wa .UnderlineColor = wdColorAutomatic
VDPqI+z .StrikeThrough = False
A{>]M@QC2 .DoubleStrikeThrough = False
J%aW^+O Fy`VQ\%7t .Outline = False
3 cT .Emboss = False
c [sC 2 .Shadow = False
;)83tx
/ .Hidden = False
^M,t`r{ .SmallCaps = False
Z B`!@/3X .AllCaps = False
k|BY 7C .Color = wdColorAutomatic
kC0 1s .Engrave = False
}C/
} 8< .Scaling = 100
56>Zqtp* .Kerning = 1
3 V8 SKBS .Animation = wdAnimationNone
l2 gI2Cioa .DisableCharacterSpaceGrid = False
\z:p"eua z .EmphasisMark = wdEmphasisMarkNone
oMLpl3pl End With
x)BG%{h With ActiveDocument.Styles("BaseStyle").ParagraphFormat
&'WgBjP .LeftIndent = 0
cs Rba;Z[ .RightIndent = 0
n-D r/c4 .SpaceBefore = 0
U^ VFHIm .SpaceBeforeAuto = False
YxS*im[ %] .SpaceAfter = 0
6:v8J1G(< .SpaceAfterAuto = False
O_-.@uo./( 0w< iz;30 .LineSpacingRule = wdLineSpaceSingle
QD BptI: .Alignment = wdAlignParagraphJustify
p J+>qy5 : lgIu . .WidowControl = False
aMm`G}9n .KeepWithNext = False
5 f/[HO) .KeepTogether = False
1ikkm 7 .PageBreakBefore = False
OMJr.u .NoLineNumber = False
O5_[T43 r;O{et't7y .FirstLineIndent = CentimetersToPoints(0)
)09_CC!a .OutlineLevel = wdOutlineLevelBodyText
?
@h .CharacterUnitLeftIndent = 0
[mw#
a9 .CharacterUnitRightIndent = 0
`WWf?g .CharacterUnitFirstLineIndent = 0
5Lu m$C
c} .LineUnitBefore = 0
xtpD/,2 .LineUnitAfter = 0
VY=~cVkzS .AutoAdjustRightIndent = True
E Q?4 ? .DisableLineHeightGrid = True
U,RIr8 G 9r n! U2 .FarEastLineBreakControl = True
mTZlrkT .WordWrap = True
]K XknEaxl .Hyphenation = False
_= U XNr8S JR
2v}b .HangingPunctuation = True
S]<G|mn, .HalfWidthPunctuationOnTopOfLine = True
)lB-D;3[_ .AddSpaceBetweenFarEastAndAlpha = True
3`^ ]#Dh .AddSpaceBetweenFarEastAndDigit = True
@a%,0 Wn .BaseLineAlignment = wdBaselineAlignBaseline
g \rujxHlH End With
Z'S>i*Ts
ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False
GS8,mQ8l*l ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll
jd]MC*% ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese
{E W}Wd ActiveDocument.Styles("BaseStyle").NoProofing = False
Qyt6+x L xqP0Z) ,Ow '一级标题题样式
RvDqo d ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
Sl:\5]'yJ ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle"
-W!
g>^. ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False
`dEWP;#cp With ActiveDocument.Styles("QLNU一级标题").Font
b'3#FI=: .NameFarEast = "黑体"
/Klwh1E .NameAscii = "Arial Black"
at7/KuY!~ .NameOther = "黑体"
8 Sl[& .Name = "黑体"
lDMYDy{< .Size = 16 '三号
bTO$B2eh| .Bold = True
YX^{lD1Jj .Italic = wdUndefined
~+l%}4RZ .Subscript = wdUndefined
fkRb;aIl .Superscript = wdUndefined
tSY eZ~ End With
9nM {x? With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat
&bB p`h ZJy
D/ 9y .LeftIndent = CentimetersToPoints(0)
S _ nTp)
.RightIndent = CentimetersToPoints(0)
lba*&j]w= .FirstLineIndent = CentimetersToPoints(0)
<u->hT gxU(& .LineSpacingRule = wdLineSpaceSingle
eC[ g"Ef .Alignment = wdAlignParagraphCenter
k^R>x V
uK pl+> .WidowControl = True
' ? yZ,t .KeepWithNext = True
)byQ=-< 1 .KeepTogether = True
q6 9a-5q .OutlineLevel = wdOutlineLevelBodyText
oJ6
d : g=i|D (". .LineUnitBefore = 0.5
G <Lm} .LineUnitAfter = 0.5
"Hg n2o.;5 End With
[C771~BL> ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False
kwWO1=ikz@ ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll
Bfi9%:eG ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese
&+&^Hc ActiveDocument.Styles("QLNU一级标题").NoProofing = True
FuEHO 6nx DoEvents
~+CNED0z+ s15f <sp '二级
pC 5-,Z;8 ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
-7 =pb#y ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle"
KgAc0pz{7H ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False
eH
qf3f
With ActiveDocument.Styles("QLNU二级标题").Font
+Tq
_n@ .NameFarEast = "黑体"
07/5RF mJ .NameAscii = "Arial Narrow"
t9 &O0tpe .NameOther = "黑体"
#Sn&W o .Name = "黑体"
?ZTB u[ .Size = 15 '小三号
dN\pe@#lKP .Bold = False
S'ikr
.Outline = False
9FW n .Italic = wdUndefined
'\_ic=&u .Subscript = wdUndefined
|
@di<d@ .Superscript = wdUndefined
S1$\D!|1 End With
[POy" O With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat
HK2`.'D .LeftIndent = CentimetersToPoints(0)
1/HPcCsHb .RightIndent = CentimetersToPoints(0)
$?*+P`` .FirstLineIndent = CentimetersToPoints(0)
Ig
N,]y L s|;gewp .LineSpacingRule = wdLineSpaceSingle
p,kJ# I .Alignment = wdAlignParagraphLeft
;GH(A=}/Y M{
~e I .WidowControl = True
T,WWQm .KeepWithNext = True
:^l*_v{ .KeepTogether = True
t{?_]2vl .PageBreakBefore = False
"T~Ps$ .OutlineLevel = wdOutlineLevelBodyText
R L)' m Rw$ @%o% .LineUnitBefore = 0.5
_r^&.'q .LineUnitAfter = 0.5
!my5-f>{( egr@:5QwZ{ End With
QL|Vke:N4 ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False
uVp R^
ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll
+X Y}- ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese
<a$cB+t ActiveDocument.Styles("QLNU二级标题").NoProofing = True
1$xt=*.u| DoEvents
r 9 *{)" NA0hQGN} '三级标题样式
Ln`c DZSM ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
ghms-.:b8 ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle"
K.X% Q,XD ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False
rWbL _1Eq With ActiveDocument.Styles("QLNU三级标题").Font
'JkK0a2D .NameFarEast = "宋体"
{/n$Y|TIQt .NameAscii = "Times New Roman"
d%]
7: .NameOther = "黑体"
c-M&cU+=L .Name = "黑体"
I"DV}jg6| .Size = 14 '四号
9^c_^-8n<} .Bold = False
b~#rUOXb8? .Outline = False
#jDO?Y Sa .Italic = wdUndefined
-09<; U .Subscript = wdUndefined
]}'WNy6c&x .Superscript = wdUndefined
aQRZyE } End With
3%cNePlr With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat
PN\2 ^@>_ .LeftIndent = CentimetersToPoints(0)
4~o\Os+8 .RightIndent = CentimetersToPoints(0)
sjaG%f&h .FirstLineIndent = CentimetersToPoints(0)
G i{1u}-0 1XHGW=n .LineSpacingRule = wdLineSpaceSingle
*&5G+d2 .Alignment = wdAlignParagraphLeft
hp>me*vzr OW #pBeX99 .WidowControl = True
8Oc*<^{# .KeepWithNext = True
r@ejU'uz .KeepTogether = True
vW]BO zK .PageBreakBefore = False
=?FA9wm .OutlineLevel = wdOutlineLevelBodyText
F6q}(+9i D_, 2z .CharacterUnitLeftIndent = 0
@|d|orMC .CharacterUnitRightIndent = 0
4Pz9&^K .CharacterUnitFirstLineIndent = 2
.(` u 'G=
{ ET+V .LineUnitBefore = 0.5
-n Hc 52, .LineUnitAfter = 0
ZnmBb_eX End With
qa%g'sB-b ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False
& JF^a ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll
2t(E+^~ ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese
lzw r]J%|? ActiveDocument.Styles("QLNU三级标题").NoProofing = True
'i`;Frmg DoEvents
}F1^gN&QF sq<y2j1oF '四级标题样式
{ifYr(|p` ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
HX<5i>]0\u ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle"
;{Ovqo| ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False
<m )@~s?D With ActiveDocument.Styles("QLNU四级标题").Font
DtZkrj)D/ .NameFarEast = "宋体"
y-Z*qR? .NameAscii = "Times New Roman"
R0m}I5Frs .NameOther = "宋体"
Ue l*:c .Name = "宋体"
-MOf[f^ .Size = 12 '小四号
>+$1 p_ .Bold = True
aEL6-['( .Outline = False
9I
pjY~or
.Italic = wdUndefined
.@[+05Yw .Subscript = wdUndefined
kB :")$ .Superscript = wdUndefined
lI&0
V5 End With
$(_i>&d< With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat
){ wE)NN xvrCm`3n@ .LeftIndent = CentimetersToPoints(0)
v$,9l+p/ .RightIndent = CentimetersToPoints(0)
>O?EFd >E .FirstLineIndent = CentimetersToPoints(0)
^l iyWl (#
?~^ut .LineSpacingRule = wdLineSpaceSingle
u
}ab[$Q5 .Alignment = wdAlignParagraphLeft
l'o'q7&=z Y<kvJb&1* .WidowControl = True
szKs9 er& .KeepWithNext = True
wk-ziw .KeepTogether = True
yWX:`*GV .PageBreakBefore = False
\ wnQ[UNjP .OutlineLevel = wdOutlineLevelBodyText
E%40u. 0 g4-HUc zk .CharacterUnitLeftIndent = 0
O #0:6QX .CharacterUnitRightIndent = 0
sRYFu% .CharacterUnitFirstLineIndent = 2
/yH:u r Hi|Oe
u .LineUnitBefore = 0
l(<o, Uv[` .LineUnitAfter = 0
.|o7YTcR: .m +KXl P End With
dc:|)bK
M ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False
ea B- u ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll
ggbew6L$Z ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese
]54V9l: ActiveDocument.Styles("QLNU四级标题").NoProofing = True
T4Zp5m") DoEvents
R%5\1!Fl=G 98V9AOgk '正文校式
UU A7m$F1 ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle")
vB#3jI ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle"
<k^h&1J#g ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False
K_}vmB\2l With ActiveDocument.Styles("QLNU正文").Font
J6f;dF^ f PDn kr .NameFarEast = "宋体"
#_Tceq5 .NameAscii = "Times New Roman"
i [FBll - .NameOther = "宋体"
ZA:YoiaC# .Name = "宋体"
* SC~_ b$M? _<G .Size = 12 '小四号
67J=#%\ /
@% .Bold = wdUndefined
B)Gm"bLCOZ .Italic = wdUndefined
Ai /a y# E .Subscript = wdUndefined
w#-rl@JQ4 .Superscript = wdUndefined
@AWKEo<7.I M%6{A+( .Outline = False
%,)[ %>#{ .Emboss = False
tq1h
1 .Shadow = False
B8 C"i%8V) .Hidden = False
!O $EVl #V~r@, .DisableCharacterSpaceGrid = True
+]I7)
End With
9i9 VDk{ With ActiveDocument.Styles("QLNU正文").ParagraphFormat
Ig S.U C' ny 2>uA .LeftIndent = CentimetersToPoints(0)
fxyPh .RightIndent = CentimetersToPoints(0)
:~`E @`/ .FirstLineIndent = CentimetersToPoints(0)
o/9 V1" .|_+>){$w .LineSpacingRule = wdLineSpaceExactly
+F`!
Jt .LineSpacing = 20
)vo PH)! .Alignment = wdAlignParagraphLeft
F
lbL`@4M .YLg^JfZ .WidowControl = False
Gn&)*qCO .KeepWithNext = False
YK_a37E{F .KeepTogether = False
&)`A4bf% .PageBreakBefore = False
\|wV Ii .Hyphenation = False
F"9 q Bl~ PUucYc .OutlineLevel = wdOutlineLevelBodyText
&@{ Ba~S
69CH W & #~
/ -n&# .CharacterUnitLeftIndent = 0
~KrzJp=5F .CharacterUnitRightIndent = 0
W;,Jte<'Nm .CharacterUnitFirstLineIndent = 2
zvD$N-#`p /FB ' .LineUnitBefore = 0
jaNkWTm : .LineUnitAfter = 0
N /^ r9Nu .SpaceBefore = 0
LN_6>u .SpaceAfter = 0
j!jZJD D'A)H .DisableLineHeightGrid = True
|\elM[G"g End With
I`FH^= ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False
C2!POf;GdN ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll
9jJ&QACn
ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese
N?R1;|Z] ActiveDocument.Styles("QLNU正文").NoProofing = True
8=<d2u' DoEvents
R$cg\DD [j-]n#E=9y '图片段落样式
P\w.:.2 ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle")
^oPf>\),C ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle"
nCYicB ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False
HnU}Lhjzj With ActiveDocument.Styles("QLNU图片段落").Font
Mi:$<fEX .Size = 12 '小四号
$|sRj!F .Italic = wdUndefined
l |\Q~ D!o .Subscript = wdUndefined
ZW*"Kok .Superscript = wdUndefined
'w!Hjq]$ End With
.D>%- With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat
+tl TH
K +
PGfQN .LeftIndent = CentimetersToPoints(0)
f{ENSUtCrR .RightIndent = CentimetersToPoints(0)
I~#'76L[ .FirstLineIndent = CentimetersToPoints(0)
22(0Jb\_ %*:-4K .LineSpacingRule = wdLineSpaceSingle
: h - N .Alignment = wdAlignParagraphCenter
2<|+h=
& .KeepWithNext = True
7GE.>h5 .OutlineLevel = wdOutlineLevelBodyText
1Te: &d d}IVY I .CharacterUnitLeftIndent = 0
MW`q*J`Y
o .CharacterUnitRightIndent = 0
<.RgMPi .CharacterUnitFirstLineIndent = 0
$yhQ)@#1 V#5BZU- .LineUnitBefore = 0
&OWiA;e?f .LineUnitAfter = 0
u:"mq.Q End With
\e ( h6,@ ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False
~`
#t?1SP ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll
b9`MUkGGd ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese
?%;) > :3N ActiveDocument.Styles("QLNU图片段落").NoProofing = True
?JtFiw DoEvents
gdHPi; ?hsOhUs(5 #;2Ju'e#z '第X章
epz2d~; ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
HJoPk 'p% ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle"
= V%s ^ ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False
oIX]9~ With ActiveDocument.Styles("QLNU章节标题").Font
])T*T$u .NameFarEast = "黑体"
}1 Q]C"hY .NameAscii = "Arial Black"
/_ _we[$E .NameOther = "Arial Black"
;M\H#%G. .Name = "黑体"
I
gA0RY1 .Size = 16
Q%q_ .Bold = True
U%j=)VD ]) .UnderlineColor = wdColorAutomatic
yO$ ]9 .Outline = False
jC <<S .Italic = wdUndefined
*H:;pI WP .Subscript = wdUndefined
uFG]8pj2V1 .Superscript = wdUndefined
ym<G.3%1 .Scaling = 100
PNc^)|4^Q .DisableCharacterSpaceGrid = True
m9xO& @#vx End With
ND CZc_ With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat
obS|wTG~ .LineSpacingRule = wdLineSpaceSingle
36.L1!d)pE .Alignment = wdAlignParagraphCenter
i ]xyD '0 .WidowControl = True
S}ZM;M .KeepWithNext = True
k`kmmb> .KeepTogether = True
e9"<.: & .PageBreakBefore = True
jjEkz 5 .OutlineLevel = wdOutlineLevelBodyText
ADlPdkmym \jZvP`.2 .LeftIndent = CentimetersToPoints(0)
O _(/uLH .RightIndent = CentimetersToPoints(0)
zj"J~s;? .FirstLineIndent = CentimetersToPoints(0)
6z!? U:b T p@>_1A}qh_ .CharacterUnitLeftIndent = 0
!</5 )B`5: .CharacterUnitRightIndent = 0
ZuILDevMD .CharacterUnitFirstLineIndent = 0
H4Pj 3' d];E99} .LineUnitBefore = 1
F8>Fp" .LineUnitAfter = 0.5
#![b9~%WTh rEs,o3h?po .AutoAdjustRightIndent = False
EC
&w9:R .DisableLineHeightGrid = True
>wz-p
nD .FarEastLineBreakControl = True
,Q >u
N .WordWrap = True
rhwY5FD ? End With
]J:?@}\^ ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False
!<@k\~9^D ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll
rp.JYz, ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese
="<+^$7:k ActiveDocument.Styles("QLNU章节标题").NoProofing = True
FZb\VUmnV DoEvents
SJj0*ry: WE68a!6 '表格标题
kcM9
,bG ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
CzST~*lH ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle"
WX]kez{<uP ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False
RcMW%q$dG With ActiveDocument.Styles("QLNU表格标题").Font
/dh w~| .NameFarEast = "楷体"
M|6
W<y .NameAscii = "Arial"
l`fjz-eE .Name = "楷体"
8X[G)J; .Size = 10.5
jA<v<oV .Bold = True
Bk~WHg>@G .Underline = wdUnderlineNone
ZKPnvL70 .Italic = wdUndefined
W UDQb5k .Subscript = wdUndefined
,W7\AY07] .Superscript = wdUndefined
ki=-0G*] .Color = wdColorAutomatic
l+y/ Mq^QB End With
r9z/hm}E With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat
}4 5| |OhNQoTY .LineSpacingRule = wdLineSpaceSingle
:C_\
.pA .Alignment = wdAlignParagraphCenter
)z$VQ=]" .KeepWithNext = True
C] \r~f .KeepTogether = True
Gb~*[ .OutlineLevel = wdOutlineLevelBodyText
7*~
rhQ % Mz(G-I.\ .LeftIndent = CentimetersToPoints(0)
TV0(uMZ0+' .RightIndent = CentimetersToPoints(0)
Cf
J@| Rh .FirstLineIndent = CentimetersToPoints(0)
dX,2cK[aG [:T OU^ .CharacterUnitLeftIndent = 0
*ZF7m_8u{ .CharacterUnitRightIndent = 0
??ah .CharacterUnitFirstLineIndent = 0
L]9uY #V*<G#B .LineUnitBefore = 1
vw>O;u.]B .LineUnitAfter = 0
C3hnX2"; ?L+@?f
VN End With
j+w*Absh ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False
91}QuYv/_ ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll
D />REC^ ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese
0;} 9XZ ActiveDocument.Styles("QLNU表格标题").NoProofing = True
bu,Z' DoEvents
b.Z K1 Vv0dBFe '表格首行
thl{IU ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle")
&ZCl
v"6 ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False
2<
w/GX. With ActiveDocument.Styles("QLNU表格首行").Font
<Y9((QSM4 .NameFarEast = "楷体"
!7P 1%/ .NameAscii = "Times New Roman"
<0 k(d:H- .Name = "楷体"
03iO4yO u .Size = 9
d&P XJ
.Bold = True
K({+3v K .Underline = wdUnderlineNone
i~ PN(h .Italic = wdUndefined
Iy6 "2$%a .Subscript = wdUndefined
?&pjP,a .Superscript = wdUndefined
3[pA:Z+xx End With
KYu3dC'/,& With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat
G6]M~:<i .LineSpacingRule = wdLineSpaceSingle
_<= U.T` .Alignment = wdAlignParagraphCenter
Uw)?u$+
P a
UAPh .LeftIndent = CentimetersToPoints(0)
B/c_ pRl; .RightIndent = CentimetersToPoints(0)
Q!z g=_z- .FirstLineIndent = CentimetersToPoints(0)
bJmVq%>; uhbo/7d'7 w91{''sK .CharacterUnitLeftIndent = -0.5
M
g1E1kXe .CharacterUnitRightIndent = -0.5
|9{l8`9}_ .CharacterUnitFirstLineIndent = -0.5
mc~d4<$`! Xu3
o,k .LineUnitBefore = 0
Etg'"d@[ .LineUnitAfter = 0
yf2U-s .SpaceBefore = 0
(Lo<3a-] .SpaceAfter = 0
'9H7I! L@ |j#x}8 [( End With
m .l
e' & ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False
/}]X3ng ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll
.3 m^yo
c/ ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese
$._p !, < ActiveDocument.Styles("QLNU表格首行").NoProofing = True
YFy5>* W DoEvents
L'`W5B@ v%
VCFJ '表格内容
xT #j-T ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle")
GG/~)^VMe ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False
B=J
eZMn With ActiveDocument.Styles("QLNU表格内容").Font
kG:uXbUI' .NameFarEast = "楷体"
4?jXbC k~x .NameAscii = "Times New Roman"
d_-{ -@ .Name = "楷体"
(|Y[5O) .Size = 9
i$?i1z*c} .Bold = False
{UT^p IP\ .Underline = wdUnderlineNone
{ckA .Italic = wdUndefined
RYZh"1S;k .Subscript = wdUndefined
O\q|b#q}/ .Superscript = wdUndefined
6~ev5SD;f End With
V+W,# 5 With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat
TGY^,H>J .LineSpacingRule = wdLineSpaceSingle
/Uz2.Ua= .Alignment = wdAlignParagraphCenter
%AF~Ki O|O #T.Tg .LeftIndent = CentimetersToPoints(0)
,3qi]fFLMe .RightIndent = CentimetersToPoints(0)
C(Yk-7 .FirstLineIndent = CentimetersToPoints(0)
[mYmrLs6 .zAB)rNc
| .CharacterUnitLeftIndent = -0.5
r
2]:'O6 .CharacterUnitRightIndent = -0.5
.fk!~8b[Q+ .CharacterUnitFirstLineIndent = -0.5
L ![b f5T .LineUnitBefore = 0
#E3Y;
b%v .LineUnitAfter = 0
bu1O <
* .SpaceBefore = 0
A?06fo, .SpaceAfter = 0
iL\<G}
I End With
{()8 W r ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False
1;i[H[hNY ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll
aF;Q SI ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese
LBk1Qw}- ActiveDocument.Styles("QLNU表格首行").NoProofing = True
o;7!$v>uK DoEvents
\=?f4*4|/ #f5 -f '图片标题
GE\@mu *pO ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
XwOj`N{!H ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle"
>}\!'3)_ ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False
\Se>u4~L With ActiveDocument.Styles("QLNU图片标题").Font
M@[ {j .NameFarEast = "楷体"
xwW[6Ah .NameAscii = "Times New Roman"
JVD#wwic .Name = "楷体"
HWi0m/J .Size = 10.5
& ;ie+/B .Bold = True
AA:Ch? .Underline = wdUnderlineNone
I@08F .Italic = wdUndefined
,ic.b
@u1 .Subscript = wdUndefined
"i<i. 6| .Superscript = wdUndefined
N5Eb.a9S .Outline = False
~^2Y*|{) .Shadow = False
sF :3|Yy0 .Color = wdColorAutomatic
-4m UGh1dy End With
|
y\B*P With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat
U{"&Jj .LineSpacingRule = wdLineSpaceSingle
7[[ XNJP .Alignment = wdAlignParagraphCenter
Q|rrbx b m/5:-xL31
.KeepWithNext = wdUndefined
- \:pbR .KeepTogether = True
Q7gBx
p .OutlineLevel = wdOutlineLevelBodyText
O%AQ'['
6=3}gd5 .LeftIndent = CentimetersToPoints(0)
FZ
D
C? .RightIndent = CentimetersToPoints(0)
79AOv
h .FirstLineIndent = CentimetersToPoints(0)
~vy_~|6s w&8gA
[y*u .CharacterUnitLeftIndent = 0
`r
& IA .CharacterUnitRightIndent = 0
cfyN)#9 .CharacterUnitFirstLineIndent = 0
~M6Q8Y9 RAx
Ay{ .LineUnitBefore = 0
$5 z
O=` .LineUnitAfter = 0
U< |kA(5 End With
o}mD1q0yE ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False
MM"{ehd{^a ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll
@@9#od O ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese
H 1N_ ActiveDocument.Styles("QLNU图片标题").NoProofing = True
+O`0Mc$%' DoEvents
zjs@7LN \::<]
'目录项
H,9e<x#own ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle")
mWZoo/x tT ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle"
Af pB=3 ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False
$ &M"Ji With ActiveDocument.Styles("QLNU目录项").Font
V
lN&Lz .NameFarEast = "黑体"
2~AG Ox .NameAscii = "Times New Roman"
IKb 7#Ut .NameOther = "Times New Roman"
M$d DExd~ .Name = "黑体"
-z)I;R .Size = 10.5
6 :K~w<mMJ .Bold = False
/m% i"kki .Italic = wdUndefined
'KMyaEh.u .Underline = wdUnderlineNone
3rhH0{ .Color = wdColorAutomatic
~v$gk .Superscript = wdUndefined
uli,@5%\ .Subscript = wdUndefined
u* G|TF End With
Dtl381F J With ActiveDocument.Styles("QLNU目录项").ParagraphFormat
u~=>$oT't |_{-hNiz0 .LineSpacingRule = wdLineSpaceSingle
Sp: `Z1kH .Alignment = wdAlignParagraphLeft
g!(
j.xe
a02@CsH .WidowControl = False
Gdq _T* .KeepWithNext = False
DJr{;t$7~ .KeepTogether = False
bm*Ell\a. .PageBreakBefore = False
`So*\#\T .NoLineNumber = False
:PuJF`k .OutlineLevel = wdOutlineLevelBodyText
i=#<0! m _V^^%$ .LeftIndent = CentimetersToPoints(0)
EtK,C~C}8 .RightIndent = CentimetersToPoints(0)
J~9l+? .FirstLineIndent = CentimetersToPoints(0)
LSv0zAIe/ ABvB1[s# .CharacterUnitLeftIndent = 0
?ntyF-n& .CharacterUnitRightIndent = 0
I:Wrwd
.CharacterUnitFirstLineIndent = 0
a938l^@;s8 W6_/FkO .LineUnitBefore = 0
$rD&rsx6 .LineUnitAfter = 0
R@-rc|FunJ End With
QXqBb$AXi, ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False
OWT5Bjl ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll
% zHs h ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot
N>giFj[dD ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese
LRW7_XY z ActiveDocument.Styles("QLNU目录项").NoProofing = True
WB
Lfxr DoEvents
lPFT)>(+@ Ho9 a #9 '参考文献
by,"Orpwq; ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle")
Rb\M63q ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle"
TXD\i Dq ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False
f8'D{OP"G With ActiveDocument.Styles("QLNU参考文献").Font
>y#<WB$i .NameFarEast = "宋体"
6;i]v|M- .NameAscii = "Times New Roman"
c&z@HEzV7 .NameOther = "Times New Roman"
c 7.%Bn, .Name = "Times New Roman"
%|bqL3)a_ .Size = 12
_ #288`bU .Bold = False
B@D3aOvO .Italic = wdUndefined
D'2&'7-sm\ .Subscript = wdUndefined
f l*]ua .Superscript = wdUndefined
}"BXqh"\` .Underline = wdUnderlineNone
TC;2K,.#k .UnderlineColor = wdColorAutomatic
]p~w`_3v .Color = wdColorAutomatic
RI9 &KS .Engrave = False
|fkz=*rn End With
BR*,E~% With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat
?(UeWLC# . S4Xw2MS .LineSpacingRule = wdLineSpaceExactly
eD5.*O .LineSpacing = 16
e$}x;&c Q .Alignment = wdAlignParagraphLeft
me"}1REa .WidowControl = False
&[ ejxK" .KeepWithNext = False
Z_Ffiw(p .KeepTogether = False
}w ^Hm3Y^& .PageBreakBefore = False
Rq u_ [M .OutlineLevel = wdOutlineLevelBodyText
tP8>0\$) AAUFX/}8P .LeftIndent = CentimetersToPoints(0)
`2Rd=M]? .RightIndent = CentimetersToPoints(0)
0+p
<Jc! .FirstLineIndent = CentimetersToPoints(0)
6 Ty;m>j U
0G( .CharacterUnitLeftIndent = 0
H5j6$y|I|N .CharacterUnitRightIndent = 0
J24<X9b .CharacterUnitFirstLineIndent = -2
qKag'0e b"n0Yk1 .LineUnitBefore = 0
-}Vnr\f .LineUnitAfter = 0
")LcB' C .SpaceBefore = 0
kBg,U 8|S .SpaceAfter = 0
Ucr$5^ME w}nc ^6qH End With
#e:cB' f ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False
HfEU[p7) ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll
VgLrufJ ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS
KfD=3h=
ActiveDocument.Styles("QLNU参考文献").NoProofing = True
KvW {M ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese
&g%9$*gm T DoEvents
'r3yFoP} -,+zA.{+W '
xwoK#eC~ F ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle")
hF|N81T ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle"
BU],,t\ ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False
#m [R1G# With ActiveDocument.Styles("QLNU论文题目").Font
_{0'3tI7 .NameFarEast = "黑体"
P oTJ
4z .NameAscii = "Arial Black"
7 06-QE^ .NameOther = "Arial Black"
[ S;c eORx .Name = "Arial Black"
g93-2k, .Size = 16
t Gv5pe*r .Bold = False
1'ts>6b .Italic = wdUndefined
CR3<9=Lv> .Superscript = wdUndefined
3BHPD; U .Subscript = wdUndefined
n?'I&0>M .Underline = wdUnderlineNone
I~ Q2jg2 .UnderlineColor = wdColorAutomatic
}}L :6^ .Color = wdColorAutomatic
y}Ji( q~ ?Co)7} N End With
~~,] b With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat
MHNuA,c z .LineSpacingRule = wdLineSpaceSingle
"@uKe8r|y .Alignment = wdAlignParagraphCenter
M,nX@8 _h .WidowControl = True
foO /Yc .KeepWithNext = True
3 VNYDY`> .KeepTogether = True
ObJgJr .PageBreakBefore = True
d^AXhQjQN- .NoLineNumber = False
r$<-2lW .OutlineLevel = wdOutlineLevelBodyText
=Ji+GJ <,9 &p|+K
XIf .LeftIndent = CentimetersToPoints(0)
s?r:McF` .RightIndent = CentimetersToPoints(0)
L[;U
Z)V@ .FirstLineIndent = CentimetersToPoints(0)
K@yLcgr{O2 gD`|N@W $5 .CharacterUnitLeftIndent = 0
=UY)U- .CharacterUnitRightIndent = 0
OI :G~Wg .CharacterUnitFirstLineIndent = 0
;pn*|Bsq 5U s$.p .LineUnitBefore = 1
/,#HGu]q' .LineUnitAfter = 1
&5k$ v^W5 .=@xTJh .BaseLineAlignment = wdBaselineAlignAuto
KWwEK] End With
5eS0
B{,c ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False
!7)` g i ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll
?}p~8{ ' ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS
UqHk2h- ActiveDocument.Styles("QLNU论文题目").NoProofing = True
x -CTMKX ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese
8 4(NylZ ActiveDocument.Styles("QLNU论文题目").NoProofing = True
;\1/4;m DoEvents
S~L;oX?(! W %Jw\ z= '中文摘要
o3C7JG ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle")
3azyqpwU$ ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle"
o%Ubn* ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False
C{Y0}ZrmlF With ActiveDocument.Styles("QLNU中文摘要").Font
G':wJ 7[]` .NameFarEast = "宋体"
E<6Fjy .NameAscii = "Times New Roman"
#yPQt! .NameOther = "Times New Roman"
v0psth?qV .Name = "Times New Roman"
!' ;1;k); .Size = 12
ktE~)G .Bold = wdUndefined
W&MZ5t ,k= .Superscript = wdUndefined
.T;:6/??1 .Subscript = wdUndefined
k2]
fUP .Italic = wdUndefined
[{R^!Az&b< .Underline = wdUnderlineNone
Jc8 ^m0_ .UnderlineColor = wdColorAutomatic
r:rM~`` .Color = wdColorAutomatic
i3
?cL4 End With
?fv5KdD With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat
m/M=.\] .LineSpacingRule = wdLineSpaceExactly
K,B qVu .LineSpacing = 20
Jkf%k3H3I* .Alignment = wdAlignParagraphLeft
", &^ f \0bao< .WidowControl = False
:@x_& b .KeepWithNext = False
\.!+'2!m .KeepTogether = True
L Ts
X{z .PageBreakBefore = False
Vz4 /u|gt .NoLineNumber = False
5D 9n>K4| .OutlineLevel = wdOutlineLevelBodyText
s0EF{2<F NA@
<v{z .LeftIndent = CentimetersToPoints(0)
4G ? Cu,$ .RightIndent = CentimetersToPoints(0)
.AHf]X0 .FirstLineIndent = CentimetersToPoints(0)
w~+C.4=7 (tG8HwV- .CharacterUnitLeftIndent = 0
b3j?@31AD .CharacterUnitRightIndent = 0
} J_"/bB .CharacterUnitFirstLineIndent = 2
wAt|'w
P
: .LineUnitBefore = 0
V c 2 (R^ .LineUnitAfter = 0
>aw` kr ]Q8[,HTG End With
u?Pec:3% ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False
Ddu1>"p-x ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll
[Q0n-b,Q ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS
d `eX_] Z ActiveDocument.Styles("QLNU中文摘要").NoProofing = True
0[\s z>@ ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese
irZMgRQAT ActiveDocument.Styles("QLNU中文摘要").NoProofing = True
S1d^ mu ActiveDocument.Styles("QLNU中文摘要").Frame.Delete
8/i];/,v*M DoEvents
C_5o& O8Bc st4WjX_Q ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
5f#N$ mh ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle"
Z|t`}lK ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False
<vb%i0+b.^ With ActiveDocument.Styles("QLNU英文标题").Font
z8Vc V*6 .NameFarEast = "黑体"
1:Sq?=& .NameAscii = "Arial Narrow"
A[7\!bq5 .Name = "Arial Narrow"
dUvgFOy|P .Size = 16
*P:!lO\| .Bold = True
U!y GZEU"[ .Bold = wdUndefined
As}3VBd .Superscript = wdUndefined
V=
wWY*C .Subscript = wdUndefined
O%H c%EfG .Italic = wdUndefined
{e35O(Y
,>C `| .Underline = wdUnderlineNone
'sII/sq`( .UnderlineColor = wdColorAutomatic
>_3P6- L> .StrikeThrough = False
VWLqJd>tr1 .DoubleStrikeThrough = False
+mu.W
r End With
P]A~:Lj With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat
K$1(HbL .LineSpacingRule = wdLineSpaceSingle
S1vUP5cZ .Alignment = wdAlignParagraphCenter
0gevn .WidowControl = True
0pfgE= 9 .KeepWithNext = False
L <QjkFj
.KeepTogether = False
4` X]$. .PageBreakBefore = False
$l
W
7me .NoLineNumber = False
l.>3gjr .FirstLineIndent = CentimetersToPoints(0)
Cf~ vT" .OutlineLevel = wdOutlineLevelBodyText
;xXD2{q )G+D6s23 .LeftIndent = CentimetersToPoints(0)
vz~`M9^ .RightIndent = CentimetersToPoints(0)
J]AkWEiCJ .FirstLineIndent = CentimetersToPoints(0)
(=\))t8J " z8iuF .CharacterUnitLeftIndent = 0
:abpht
.CharacterUnitRightIndent = 0
G
Zq~P l .CharacterUnitFirstLineIndent = 0
\3bT0^7B xU6rZ CqE .LineUnitBefore = 1
+hZ {/ .LineUnitAfter = 1
$*\G Z$y> Ia@!Nr2 End With
z JBcz, ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False
u-/5&Endb ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll
JLz.lk*. ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS
gl$}t H ActiveDocument.Styles("QLNU英文标题").NoProofing = True
L\cb Y6b
ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese
:
q>uj5% ActiveDocument.Styles("QLNU英文标题").NoProofing = True
Jn\@wF9xd ActiveDocument.Styles("QLNU英文标题").Frame.Delete
#{8t
?v l DoEvents
5+Ld1nom ~9We)FvU4 ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle")
[gkOwU =? ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle"
Jx+e_k$gHO ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False
[Dq@(Q s' With ActiveDocument.Styles("QLNU英文摘要").Font
8MZ:
= .NameFarEast = "宋体"
oR@emYL .NameAscii = "Arial"
( ah^</ .NameOther = "Arial"
bxc!x>) .Name = "Arial"
a#pM9n~a .Size = 12
R9q9c
B i3 .Bold = wdUndefined
fD* ?JzVY .Italic = wdUndefined
W Te1E, M .Superscript = wdUndefined
8
*Y(wqH .Subscript = wdUndefined
#;(Q \ End With
\D5_g8m:
0Yo(pW,k With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat
?PSJQ3BC| 1m{c8Z.h/d .LineSpacingRule = wdLineSpaceExactly
%E\ pd@ .LineSpacing = 20
"KHe6otmi_ O>c2*9PM .Alignment = wdAlignParagraphJustify
/EvnwYQy j>I.d+ .WidowControl = False
N5F+h94z] .KeepWithNext = False
p|`[8uY? .KeepTogether = False
e~1$x`DH .PageBreakBefore = False
uS |f|)U& .NoLineNumber = False
Ib}~Q@ ?2 =XhxD<kI .OutlineLevel = wdOutlineLevelBodyText
Z~{0x#?4% D:56>%y@ .LeftIndent = CentimetersToPoints(0)
Ly_.% f .RightIndent = CentimetersToPoints(0)
ETQL,t9m .FirstLineIndent = CentimetersToPoints(0)
).i :C(| c x_$`H .CharacterUnitLeftIndent = 0
m=#< .CharacterUnitRightIndent = 0
gw ^X - .CharacterUnitFirstLineIndent = 2
95IR.Qfn! df R?O#JPU .LineUnitBefore = 0
rvUJ K,oE .LineUnitAfter = 1
B *;PF CkeqK End With
4_KRH1
ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False
EmYu]"${1 ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll
:c3'U _H^ ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS
G0mvrc-
( ActiveDocument.Styles("QLNU英文摘要").NoProofing = False
( L
8V)1N DoEvents
']^_ W0?= _|C T|q Options.Pagination = True
pKzrdw-! Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....."
TjWMdoU$J DoEvents
j"4]iI+ {" ActiveDocument.Repaginate
@wTRoMHPQ knABlU End Sub
Yw6d-5=: ^@-qnU lH & eIwlynm
