Dim bContinue As Boolean
][] 2|bn(QYz Dim regEX As New RegExp
`#gie$B{ Dim paraCounter As Long '全局段落计数，仅在主程序中可读写，其它过程函数应为只读
F/A|(AH' &w~d
_</ Dim LastTitle0String As String, LastTitle0No As Long
ow#1="G,= Dim LastTitle1String As String, LastTitle1No As Long
-GgA&dh Dim LastTitle2String As String, LastTitle2No As Long
4{l, Dim LastTitle3String As String, LastTitle3No As Long
JLJ;TM'4= Dim LastTitle4String As String, LastTitle4No As Long
]cN 1c} Dim LastTitle5String As String, LastTitle5No As Long
f`/x"@~H5 Dim LastTabelString As String, LastTableNo As Long
@]#1(9P Dim LastFigureString As String, LastFigureNo As Long
!YJs]_Wr # V }IvQl| Dim strSeperator As String
p"Z-6m~ |&[EZ+[ Sub ConvertWidth(fTEXT As String, rText As String)
4g7)i L^#~ Selection.Find.ClearFormatting
3{h_&Gbo'D Selection.Find.Replacement.ClearFormatting
=>dG L| Selection.Find.Wrap = wdFindContinue
VY hbx
'e Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText
$j
?1g # DoEvents
6(e>P) Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True
FEVlZ<PW3I End Sub
2dzrRH 2[;_d;oB @ Sub ClearDomain()
/OJ`c`>Q: With Selection.Find
p6WX9\qS( .ClearFormatting
[=_jYzD,j| .Replacement.ClearFormatting
d'I" jZ .Wrap = wdFindContinue
(3&?w y_l Me.txtStatus.Text = "清除所有域代码"
orvp*F{7[H DoEvents
IkXx# ) .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False
yH}s<@y;7 End With
XS BA $y End Sub
I b0ZjX6 0C*7 K?/ Private Sub cmdCheck_Click()
ilva,WFa^ bContinue = True
8Bg;Kh6B Dim NoSeries1(1 To 16) As String
kM@zyDn, Dim NoSeries2(1 To 16) As String
J Sg$wi8 Dim NoSeries5(1 To 16) As String
k: ;WtBC6j Dim NoSeriesRM(1 To 16) As String
i2^ >vYCsl Dim paraTotal As Long, ParaText As String
e vJ.<{M Dim ttString As String, ttNo As String
0P(!j_2m kE(mVyLQ Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long
&yol_%C 9<)NvU^-r Me.txtStatus.Visible = True
tdaL/ rRe Me.lbParaType.Visible = True
}-3mPy(*% Me.cmdCheck.Enabled = False
4 N7^? e NafpK T"}vAG( .O Jdp3nzM^^@ 'XBFv9& Dim ParaType As String, rText As String
zNuJj L :U(A;U1, Selection.WholeStory
*
+wW(#[ Selection.NoProofing = True
A_#
DJJMm %9RF tm1 = Now
d5z`B H. D #/Bx[ ActiveWindow.View.Type = wdNormalView
K!]/(V(} ~F?u)~QZ # NoSeries1(1) = "一"
Q ?/o%`N NoSeries1(2) = "二"
6B
?twh) NoSeries1(3) = "三"
V,?yPi$#E NoSeries1(4) = "四"
63~
E#Dt4 NoSeries1(5) = "五"
E=w1=,/y NoSeries1(6) = "六"
"2T#M
O/ NoSeries1(7) = "七"
^w06
<m NoSeries1(8) = "八"
.k
\@zQ|Ta NoSeries1(9) = "九"
7(
2{
'r NoSeries1(10) = "十"
B !=F2 NoSeries1(11) = "十一"
t@Nyr& |D NoSeries1(12) = "十二"
4I? ^ t" NoSeries1(13) = "十三"
XEZF{lP NoSeries1(14) = "十四"
,<p}o\
6 NoSeries1(15) = "十五"
qWKAM@ NoSeries1(16) = "十六"
t>B;w14 wuJ4kW$ NoSeries2(1) = "㈠"
$"&{aa
NoSeries2(2) = "㈡"
U~l$\ c NoSeries2(3) = "㈢"
q8Z<{#oXu NoSeries2(4) = "㈣"
% -e 82J1 NoSeries2(5) = "㈤"
d$AWu{y NoSeries2(6) = "㈥"
")HFYqP>9 NoSeries2(7) = "㈦"
AjgF6[ B NoSeries2(8) = "㈧"
[,KXze_m NoSeries2(9) = "㈨"
L`EBfz\n NoSeries2(10) = "㈩"
R+ ,u^;\ \K<QmK NoSeries5(1) = "①"
:Qf '2.h) NoSeries5(1) = "②"
R n*
L NoSeries5(3) = "③"
fe#\TNeQJ[ NoSeries5(4) = "④"
MO <3"@/, NoSeries5(5) = "⑤"
x
7x\Y(@ NoSeries5(6) = "⑥"
QS]1daMIK< NoSeries5(7) = "⑦"
LAe6`foW/ NoSeries5(8) = "⑧"
nL.<[]r NoSeries5(9) = "⑨"
@[i4 ^ NoSeries5(10) = "⑩"
+|>kCtZH% r_;N t H&} pkrH~ NoSeriesRM(1) = "I"
{Fe[:\ NoSeriesRM(2) = "II"
g^ i&gNDx NoSeriesRM(3) = "III"
0tB0@Wj NoSeriesRM(4) = "IV"
+V^;.P</ NoSeriesRM(5) = "V"
xLZG:^(I NoSeriesRM(6) = "VI"
M_ w< m NoSeriesRM(7) = "VII"
[bN x^VP* NoSeriesRM(8) = "VIII"
*%t^;& x? NoSeriesRM(9) = "IX"
7;(UF= 4 NoSeriesRM(10) = "X"
r!a3\ep NoSeriesRM(11) = "XI"
%\Mo-Ow! \ NoSeriesRM(12) = "XII"
yD6[\'% NoSeriesRM(13) = "XIII"
f &wb NoSeriesRM(14) = "XIV"
Bv%GJ*>> NoSeriesRM(15) = "XV"
_1L![-ac NoSeriesRM(16) = "XVI"
3nn J8zQ f
[ ^Aw(o i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo)
{Wu$YWE*sx nSAdCJ;4 If i = vbNo Then
=+MPFhvg! Exit Sub
Y<ql49- X End If
X<
; f
)sp4Ie If Me.chkSuper.Value Then
~B(4q K1G Me.txtStatus.Text = "检查修改所有的上标格式"
m& ?r%x ""Q P% CheckSuperScript
qXtC^n@x ;H.^i|_/ End If
:e%Pvk 5=?\ 1`e1[ If Me.chkStyle.Value Then
&&RimoIeo Me.txtStatus.Text = "设置样式，请稍候...."
=-lb)Z"d DoEvents
WYYa /,{9. CeateOrModifyStyle
4J([6< End If
P0PWJ^+,+ c+nq] xOs' KX7 >^Bt&k t=O8f5Pf{ ClearDomain
(%W&4a1di ;<2 G :s6o"VkW g5 QZ0Qkj If Me.chkLIST.Value Then
JOLaP@IPT Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式"
FA3~|Zg 5K?IDt7A] ConvertListToOrdinary
l.bYE/F0& End If
nl,uuc
*; Yv!a88+A8M fG(SNNl+D Dim pType As String, trimpTEXT As String
e?=^;v%r If Me.chkNum.Value = True Then
]Y8<`;8/ Me.txtStatus.Text = "转换全角数字形式为半角"
J h[UtYb
5 ConvertWidth "１", "1"
zXxT%ZcCj DoEvents
!*. - `$x ConvertWidth "２", "2"
- kwXvYu\ DoEvents
r|PB* ` ConvertWidth "３", "3"
[ $n_6 DoEvents
oVe| M ss6 ConvertWidth "４", "4"
zEy N) DoEvents
Um-[ ~- ConvertWidth "５", "5"
K_ ~"} DoEvents
tX %5BTv ConvertWidth "６", "6"
`o8/(`a DoEvents
=k0_eX0 ConvertWidth "７", "7"
Jrpx}2'9:a DoEvents
K]" #C ConvertWidth "８", "8"
>R! jB]5 DoEvents
/j|G(vt5 ConvertWidth "９", "9"
JU5C}%Q 6 DoEvents
o,8T Dg ConvertWidth "０", "0"
aL&7 1^R, DoEvents
,lA s ConvertWidth "ａ", "a"
&_|#. DoEvents
0 C6-GKbZ ConvertWidth "ｂ", "b"
Fv<F}h? 6 DoEvents
"z=SO1 ConvertWidth "ｃ", "c"
bPt!yI: DoEvents
|! E) GahM ConvertWidth "ｄ", "d"
g:dH
~ > DoEvents
f-n1I^| ConvertWidth "ｅ", "e"
thM4vq DoEvents
ApV~( k)W ConvertWidth "ｆ", "f"
bNNr]h8y- DoEvents
y)!5R 3b ConvertWidth "ｇ", "g"
4'A!; ]: DoEvents
i,4>0o? ConvertWidth "ｈ", "h"
5 VAK:eB DoEvents
)MchsuF< ConvertWidth "ｉ", "i"
M={V|H0 DoEvents
|NC *7/} ConvertWidth "ｊ", "j"
`Kr,>sEAM DoEvents
mFaZio0GK ConvertWidth "ｋ", "k"
'd$P`Vw: DoEvents
^R
Fp8w( ConvertWidth "ｌ", "l"
^y1j.M@q DoEvents
m6CI{Sa](l ConvertWidth "ｍ", "m"
usCt#eZK DoEvents
#& Rw& ConvertWidth "ｎ", "n"
<\ :Yk ConvertWidth "ｏ", "o"
b8SHg^} ConvertWidth "ｐ", "p"
Ix=} +K/ ConvertWidth "ｑ", "q"
!F1N~6 f ConvertWidth "ｒ", "r"
a (b# ConvertWidth "ｓ", "s"
Y+*0~xm4 ConvertWidth "ｔ", "t"
5Qn
' ConvertWidth "ｕ", "u"
j<@lX^ ConvertWidth "ｖ", "v"
f;gw"onx8F ConvertWidth "ｗ", "w"
'*w00 ConvertWidth "ｘ", "x"
?Yk.$90 ConvertWidth "ｙ", "y"
7 Vo$(kj ConvertWidth "ｚ", "z"
?ztkE6 2t ConvertWidth "Ａ", "A"
OAkZKG| ConvertWidth "Ｂ", "B"
&NK,VB; ConvertWidth "Ｃ", "C"
n}G|/ v<
ConvertWidth "Ｄ", "D"
'JfdV%M ConvertWidth "Ｅ", "E"
&*G #H~\ ConvertWidth "Ｆ", "F"
8UyMVY ConvertWidth "Ｇ", "G"
pd;br8yE$@ ConvertWidth "Ｈ", "H"
Y
M\ K%rk ConvertWidth "Ｉ", "I"
$79=lEn, ConvertWidth "Ｊ", "J"
QpA/SmJ ConvertWidth "Ｋ", "K"
8a'.ZdqC? ConvertWidth "Ｌ", "L"
C 3],n ConvertWidth "Ｍ", "M"
E!l!OtFL ConvertWidth "Ｎ", "N"
% < *g!y ` ConvertWidth "Ｏ", "O"
I3mGo ConvertWidth "Ｐ", "P"
@u]rWVy;\[ ConvertWidth "Ｑ", "Q"
0ANZAX5 ConvertWidth "Ｒ", "R"
kDN:ep{/ ConvertWidth "Ｓ", "S"
*b/` Ya4 ConvertWidth "Ｔ", "T"
SO( NVJh ConvertWidth "Ｕ", "U"
g/+C@_&m ConvertWidth "Ｖ", "V"
Z}l3l`h! ConvertWidth "Ｗ", "W"
v+`N*\J_ ConvertWidth "Ｘ", "X"
Q
qvihd ConvertWidth "Ｙ", "Y"
\uC15s< ConvertWidth "Ｚ", "Z"
_5# y06Q ConvertWidth "^l", "^p"
f@DYN!Z_m ConvertWidth "（", "("
-~30)J=e` ConvertWidth "）", ")"
e`T H91@ Md2>3- End If
jW
l)cC 4 .= 3M With ActiveDocument
s,=i_gyPQ Dim tbl As Table
xt%7@/hiE For Each tbl In .Tables
s1NKLt tbl.Rows.Alignment = wdAlignRowCenter
> eB\(EP tbl.Range.Font.NameFarEast = "楷体"
ZUR6n>r tbl.Range.Font.NameAscii = "Times New Roman"
~ZEmULKkR tbl.Range.Font.Size = 10.5
*HO}~A%Lx Next
ahOM CZF| Set tbl = Nothing
ruzspS End With
3.W
@ } *q".-u!D[ L=8<B=QT$ With ActiveDocument
_:C9{aEZb $yYO_ZBiy For i = 1 To .TablesOfContents.Count
DV-;4AxxRq .TablesOfContents(i).Delete
v
` 7RCg` Next
|J} Mgb-4 [ uq$5u
4/1d&Sg s4SG[w!d paraTotal = .Paragraphs.Count
xScLVt<\e paraCounter = 1
f Tl<p&b a]/>ra 5{ LastTitle0No = 0
l q&wXi LastTitle1No = 0
qA $*YIlK LastTitle2No = 0
.#Z%1U %P. LastTitle3No = 0
GlT7b/JCG LastTitle4No = 0
^1aAjYFn LastTableNo = 0
m{uxI za LastFigureNo = 0
2hkRd>)&5 Hp|_6hO 2 Dim Sec As Long
% !>I*H Q&g^c2 Sec = InputBox("正文从第一节开始？", "节设置", 6)
"a"]o If Sec = 0 Then
$lIz{ySJv Exit Sub
{{MRELipW End If
" a1n_>#Fb 7 :3$Ey k = 0
ul2")HL]; Do While (paraCounter < paraTotal) And bContinue
rIh l.5Y k = k + 1
( ?{MEwHG If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then
"4H
+!r} Exit Do
@$c\d vO End If
RUT,Y4 b paraCounter = paraCounter + 1
mfo1+owT If k Mod 20 = 0 Then
}J1tdko# Me.lbCounter.Caption = paraCounter
%S n d\ DoEvents
yo
)%J End If
*c*0 PdV Loop
NchXt6$i9 } 36QsH8 (+ 3Wgl+]/ Do While (paraCounter < paraTotal) And bContinue
<'Wo@N7 M8Z2Pg\0 ParaText = Trim(.Paragraphs(paraCounter).Range.Text)
1ilBz9x*! ShapeHeight = 0
.0rh y2 ShapeWidth = 0
3G~@H>j Upd3-2kr&J CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth
M9@ri ^x
( %xwl Select Case ParaType
u1P aHgi$ Case "【】表格内容"
T {Uc:Z .Paragraphs(paraCounter).Style = "QLNU表格内容"
JJ'.(( Case "章"
kO{s^_qR^c LastTitle0No = LastTitle0No + 1
l0cA6b '新一章开始，复位其下属标题编号
C
#6dC0 LastTitle1No = 0
BT"42#7_ LastTitle2No = 0
,JN8f]a^"g LastTitle3No = 0
fCtPu 08{Z LastTitle4No = 0
ICkp$u^ %V{7DA&C k = Val(ttNo)
q51Uf_\/ If k = 0 Then '非数字编号章节
e\JojaV If ttNo <> NoSeries1(LastTitle0No) Then
*nsAgGKKM^ rText = "第" & NoSeries1(LastTitle0No) & ttString
9 F m"ei Me.ErrMsg.AddItem "章节编号错误：" & ParaText
!PJ 6%" End If
Kt|1&Gk Else
D]
~MC If Val(ttNo) <> LastTitle0No Then
ct,l^|0Hu8 rText = "第" & LastTitle0No & ttString
4NG?_D5& Me.ErrMsg.AddItem "章节编号错误：" & ParaText
glXZZ=j End If
;Uu(zhbj +g]yA3 End If
a|=x5`h04~ FE! lok '章段落设置
{0^&SI"5`E '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅
F
R!? #! .Paragraphs(paraCounter).Style = "QLNU章节"
$K'|0 .Paragraphs(paraCounter).Range.Select
u[/m|z Selection.EndKey unit:=wdLine
Zrr5csE tc = Replace(rText, vbCr, "")
sWblFvHqrU Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False
a5!Fv54 Case "一级标题"
)!:Lzi LastTitle1No = LastTitle1No + 1
,
NVsn '新一级标题开始，复位其下属标题编号
J6G(_(d LastTitle2No = 0
R&';Oro LastTitle3No = 0
$Gv9m
LastTitle4No = 0
Gz[fG ?0oUS+lU If ttNo <> NoSeries1(LastTitle1No) Then
J8)#PY[i4 rText = NoSeries1(LastTitle1No) & "、" & ttString
5
Ho^N1q Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText
)R
2. End If
A\#P*+k 0 MxcFvo*LCp pL%r,Y_^\x '一级标题段落设置 格式：一、标题内容
% v7[[U{T .Paragraphs(paraCounter).Range.Text = rText
_(
{A\}Q| .Paragraphs(paraCounter).Style = "QLNU一级标题"
Nn"+w|v[ev .Paragraphs(paraCounter).Range.Select
"=za??\K} Selection.EndKey unit:=wdLine
7C2&N yWJ tc = Replace(rText, vbCr, "")
^: * 1d
\ Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False
)}'U`'q Case "二级标题"
ZMLg;-T.&4 LastTitle2No = LastTitle2No + 1
n>`as '新二级标题开始，复位其下属标题编号
;cz|ss= LastTitle3No = 0
d[^~'V LastTitle4No = 0
e |D ;OM C h%m If ttNo <> NoSeries1(LastTitle2No) Then
w MP rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString
2hQ>: ErrMsg.AddItem "二级标题编号错误：" & ParaText
QZhj b End If
Vy,^)] Bv. `R0e& '二级标题段落设置 格式：(一)、标题内容
S (N\cw$ .Paragraphs(paraCounter).Range.Text = rText
9>r Pe1iv .Paragraphs(paraCounter).Style = "QLNU二级标题"
f'{]"^e= +_xOLi u
.Paragraphs(paraCounter).Range.Select
D"ehWLj Selection.EndKey unit:=wdLine
X2i}vjkY tc = Replace(rText, vbCr, "")
S^<g_ q Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 2 ", PreserveFormatting:=False
zyg
}F BC;: Case "三级标题"
\Z/)Y;|mi0 LastTitle3No = LastTitle3No + 1
3lq Mucr '新三级标题开始，复位其下属标题编号
GMZv RAu i LastTitle4No = 0
S&Ee,((E( u% n*gcY If Val(ttNo) <> LastTitle3No Then
-,{-bi rText = LastTitle3No & ". " & ttString
VA% Un,5h Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText
?9=9C"&s `TPOCxM Mo End If
;6{@^ '三级标题段落设置 格式：1. 标题内容
fH ?ha .Paragraphs(paraCounter).Range.Text = rText
t2iv(swTe .Paragraphs(paraCounter).Style = "QLNU三级标题"
U*P. :BvG .Paragraphs(paraCounter).Range.Select
4T <Lgb Selection.EndKey unit:=wdLine
R$Tp8G >j tc = Replace(rText, vbCr, "")
?8mlZ
X9C Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 3 ", PreserveFormatting:=False
(? ! ,p^ Case "四级标题"
!\;FNu8_. LastTitle4No = LastTitle4No + 1
S#Sb ] {]]|5
\ F If Val(ttNo) <> LastTitle4No Then
F0UVo rText = "(" & LastTitle4No & "). " & ttString
P7f,OY<@%o ErrMsg.AddItem "四级标题编号错误：" & ParaText
^F"iP7 ^T,Gu-2> End If
(%:>T
Q( '四级标题段落设置 格式：(1). 标题内容
d k<XzO~g .Paragraphs(paraCounter).Range.Text = rText
d@G}~&.| .Paragraphs(paraCounter).Style = "QLNU四级标题"
t/PlcV_M" .Paragraphs(paraCounter).Range.Select
_ _>.,gL7 Selection.EndKey unit:=wdLine
k8uvNLA)a
tc = Replace(rText, vbCr, "")
d/e|'MPX Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 4 ", PreserveFormatting:=False
5 `RiS]IO] &"mzwQX Case "表格标题"
Pv+5K*"7Cg LastTableNo = LastTableNo + 1
tpTAeQ*:d rJInj>|{= If ttNo <> CStr(LastTableNo) Then
F5qFYL; rText = "表" & LastTableNo & ". " & ttString
y tf b$;| ErrMsg.AddItem "表格编号错误：" & ParaText
~ E^, =4 }Lw>I94e End If
RTu4 @7XP @M8|(N % '表格名称段落设置 格式：表1. 表格名称
>xn}N6Rj2~ .Paragraphs(paraCounter).Style = "QLNU表格标题"
l?)ZJ3]a xe = Replace(rText, vbCr, "")
|s)?cpb .Paragraphs(paraCounter).Range.Select
FG!X "<he Selection.MoveEnd wdCharacter, -1 '选择范围包括行尾的换行符。
*8tI*Pus Selection.Range.Text = xe
R?EA Sc!b Selection.EndKey
([V V%ovZ
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False
yj(vkifEB !!nuAQ"E[ Case "表格首行"
y{a$y}7#X .Paragraphs(paraCounter).Style = "QLNU表格首行"
z]bwnJfd Case "图片标题"
*cg(
?yg LastFigureNo = LastFigureNo + 1
*79m^ *I0-O*Xr If ttNo <> CStr(LastFigureNo) Then
'iY*6<xS< rText = "图" & LastFigureNo & ". " & ttString
k %op>
& ErrMsg.AddItem "表格编号错误：" & ParaText
d@3}U6, ;eZ#b jw-d End If
E|$Oha[ '图片名称段落设置 格式：图1. 图名称
$CE[MZ&S .Paragraphs(paraCounter).Range.Text = rText
q0bHB_|wL .Paragraphs(paraCounter).Style = "QLNU图片标题"
OLj\
-w^ .Paragraphs(paraCounter).Range.Select
&h,5:u Selection.EndKey unit:=wdLine
% D`,k*X xe = Replace(rText, vbCr, "")
[J0 v&{)? Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False
02k4 N% Case "正文"
' 2-oh '正文名称段落设置
gxGrspqg .Paragraphs(paraCounter).Style = "QLNU正文"
|J~eLh[d Case "文献条目"
\OpoBXh With .Paragraphs(paraCounter)
U70]!EaT '.Range.Select
F("#^$ 'Selection.ClearFormatting
[|3>MZ2/ '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator 'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ”
9 2'wkS .Style = "QLNU参考文献"
= _8Tp~j End With
nD2, !71
Case "图表注解"
A;u" <KG? With .Paragraphs(paraCounter)
Px>va01n .Range.Font.NameFarEast = "楷体"
eb8w~ .Range.Font.NameAscii = "Times New Roman"
:p4 "IeKs .Range.Font.Size = 9 '小5号字
xT)psM'CL
l"zUv .Alignment = wdAlignParagraphCenter
5')8r ';, .LeftIndent = 0
'snYu!`z
.RightIndent = 0
8g
>b .FirstLineIndent = 0
1]T`n /d V .LineSpacing = 12
0J8K9rP;z .LineSpacingRule = wdLineSpaceExactly
Sj(F3wY .LineUnitAfter = 0
S-nlr@w8 .LineUnitBefore = 0
1Fi86 .OutlineLevel = wdOutlineLevelBodyText
2sp g?] .PageBreakBefore = False
9=/N|m8. .RightIndent = 0
CC3v%^81l^ .WordWrap = True
9Of FM9(: .LineUnitAfter = 0.5
K ZBrE$@%5 -n? g~(/P End With
$Vv}XMxw Case Else
._96*r=o '不作处理
5b6s4
ZyV End Select
$,hwU3RVxc ag4`n:1 '含有inlineshape的段落处理
? QDWuPhN If ShapeHeight > 30 Then
2`= 6 %s
.Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle '对有图片的段落设置为单倍行距
OlQ,Ce End If
D=)f
)- u' 'iLH `WE If (ShapeWidth + ShapeHeight) > 150 Then
U t)r&? .Paragraphs(paraCounter).Style = "QLNU图片段落"
l48k< End If
+t N &a @l UlY2 '段落计数器递
e|r0zw S paraCounter = paraCounter + 1
xDO7 A5 Me.lbCounter.Caption = "当前检测段落：" & paraCounter
@oG )LT Me.txtStatus.Text = ParaText
O;]?gj 1@ DoEvents
v}v 5 Loop
H_IGFZ Ch End With
vG2b:[W \BI/G msg = ""
)Os Lrq/ lKEa)KF[ For i = 0 To Me.ErrMsg.ListCount - 1
7CB#Y P?E msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i)
KIVH!2q; Next
kDz>r
#% EC?Efc+O ]^\8U2q} 7e&\{
* Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg
hD <f3_k Me.cmdCheck.Enabled = True
:'r6 TVDW Me.txtStatus.Visible = True
s-V
SH Me.lbParaType.Visible = False
L6i|:D32p !1uzX
Kb bContinue = False
&VWlt2-R0h End Sub
~
- F? Mc <Jp1 A#
%p 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)
Ok%}|/ P4 Dim pTEXT As String
)-/gLZsx [Id}4[={e pTEXT = ChKRange.Text
ELh3 ^ ^`qPs/b ParaType = "其它"
4o9$bv TitleString = pTEXT
ER{3,0U TitleNo = "N/A"
!@
YXZ Cj;/Uhs
shpCounter = ChKRange.InlineShapes.Count
1{2eY%+ C If shpCounter <> 0 Then
;</Twm;: MaxShpHeight = 0: TotalShpWidth = 0
c~dM`2J, For i = 1 To shpCounter
! ]Mc4!E k = ChKRange.InlineShapes(i).Height
_hCJ|Rrln l = ChKRange.InlineShapes(i).Width
swpnuuC- If k > MaxShpHeight Then
yD )"c . MaxShpHeight = k
YJ2ro-X End If
2#_38=K =@ TotalShpWidth = TotalShpWidth + l
u:` y] Next
9F + P@Kp If MaxShpHeight > 60 Or TotalShpWidth > 150 Then
Z# Lx_*p]Q Exit Sub
? 4)v`* End If
]R_G{% End If
u=qPzmywt q? ~Rnv '空行
twk&-:' If Len(pTEXT) <= 2 Then
chAan~r[* Exit Sub
$~'T
f>e End If
%>XN%t'6aT i!MwBYk O(OmGu4% '是否为表格中的文字
P?3{z="LzJ If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then
Eb.;^=x ParaType = "表格内容"
ui BTnG" k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber)
`!w^0k Z If k = 1 Then
8kW /DcLE ParaType = "表格首行"
PtKTm\,JL0 End If
N)43};e Exit Sub
O=jN&<rb End If
X$wehMBX i|\{\d '例外情况：脚注
|j_`
z@7( If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then
}&G]0hCT! ParaType = "脚注"
XSB
8z
Exit Sub
]X" / yAn End If
?G/ hJ?3 amB@N6* '例外情况：尾注
Wtv#h~jy9 If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then
$ehg@WK}. ParaType = "尾注"
Y~"9L|`f/ Exit Sub
->yeJTsE9 End If
"~p+0Xws9 r7)@M%A If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then
BGjb`U#%3 ParaType = "页眉页脚"
;WI] vn Exit Sub
cINHH !v End If
3DoRE2} '.p? 6k!K 5iWe-xQ> With regEX
?B4#f!X .Global = True
\OHv|8!EI@ TvrwVL) .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$"
jFj~]]j If regEX.Test(pTEXT) Then
=wA5P@ ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3")
<FmBa4ONU TitleString = regEX.Replace(pTEXT, "$3")
?TuI:dC TitleNo = regEX.Replace(pTEXT, "$1")
DA
LQ<iF ParaType = "章"
^&: 'NR Exit Sub
&
QY#3yj= End If
}#b
%"I0 c)1=U_6 1 .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$"
qiNliJ>40E If regEX.Test(pTEXT) Then
_F8T\f | ParaType = "一级标题"
=&0U`P$` regEX.Execute (pTEXT)
2;N@aZX ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3")
"r-l8 r, TitleString = regEX.Replace(pTEXT, "$3")
vO$ra5Z TitleNo = regEX.Replace(pTEXT, "$1")
7>x;B Exit Sub
Sa}D.SBg End If
w4:<fnOM 3%M.U)|+ '全角或半角括号中的数字
NdQ%:OKC .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$"
~Ob8i 1S> If regEX.Test(pTEXT) Then
v'nHFC+p ParaType = "二级标题"
i f@W
]% regEX.Execute (pTEXT)
iUNnPJh ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5")
5a $$95oL TitleString = regEX.Replace(pTEXT, "$5")
OKQLv+q5K) TitleNo = regEX.Replace(pTEXT, "$2")
9oq)X[ Exit Sub
yzc pG6 , End If
s -Y +x *j<@yG2\gP '阿拉伯数字 1. 2.
<"I?jgo .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$"
SLA#= K If regEX.Test(pTEXT) Then
RWahsJTu ParaType = "三级标题"
oO:LG%q regEX.Execute (pTEXT)
L<@&nx ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测
/`R dQ<($ TitleString = regEX.Replace(pTEXT, "$3")
%\yK5 V5 TitleNo = regEX.Replace(pTEXT, "$1")
&"j@79Ym1~ Exit Sub
/w~C~6z
@! End If
Jn,w)El s >0T3 '/k<H '全角或半角括号中的阿拉伯数字
@
Qo,p .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$"
om7`w
] If regEX.Test(pTEXT) Then
l @A"U)
A( ParaType = "四级标题"
mG}k 3e - regEX.Execute (pTEXT)
ma7fDo0,`h ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5")
kukaim>K TitleString = regEX.Replace(pTEXT, "$5")
A[ 1)!e TitleNo = regEX.Replace(pTEXT, "$2")
R ]=SWE}U Exit Sub
;Prg'R[o; End If
j_pw^I$C Z1]"[U[; '表格名称
[s %\.y(q .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$"
WLy7'3@ If regEX.Test(pTEXT) Then
)@c3##Zp) ParaType = "表格标题"
6{^*JC5nj regEX.Execute (pTEXT)
4qBY % 1 ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3"))
fm6]CU1^ TitleString = Trim(regEX.Replace(pTEXT, "$3"))
\ DyKtrnm% TitleNo = Trim(regEX.Replace(pTEXT, "$1"))
N<b D strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换
B*Cb6'Q Exit Sub
GI4oQcJ End If
3*\8p6G U$$3 'n '图片名称
T{~M iC6A .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$"
V~c(]K )- If regEX.Test(pTEXT) Then
m~Me^yt>} ParaType = "图片标题"
S&|VkZR) regEX.Execute (pTEXT)
mCrU//G ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3")
Spc&X72I TitleString = regEX.Replace(pTEXT, "$3")
Vw?P.4 TitleNo = regEX.Replace(pTEXT, "$1")
F`D 9Zfd Exit Sub
5 V rcR=?O End If
'WzUu MCx y<uE-4 '参考文献
P6E1^$e .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})" '[数字]、
t>@yv# If regEX.Test(pTEXT) Then
J=L` ]XE ParaType = "文献条目"
h*l4Y!7 'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4")
\I
xzdFF# 'TitleNo = regEX.Replace(pTEXT, "[$2] ")
n +d J c Exit Sub
XbXgU#% End If
[email protected] z"o.` n 8?KSQy$ prfx = Left(pTEXT, 2)
&U0WkW If prfx = "注：" Or prfx = "注:" Then
2?H@$-x> ParaType = "图表注解"
2HVCXegq Exit Sub
|QqWVelc End If
w}b<D#0XC KF4s
ee;; eHROBxH& ParaType = "正文"
'Ix5,^M}B Zr R+QV End With
)x9]xqoR End Sub
V*kzn
m * p"O* zj Sub ConvertListToOrdinary()
oP,RlR Dim st As Paragraph
R]V TV7D With ActiveDocument
sx90lsu For i = .Paragraphs.Count To 1 Step -1
]kH}lr
yG Set st = .Paragraphs(i)
\
>(zunL lst = st.Range.ListFormat.ListString
:28@J?jjO If lst <> "" Then
ujNt(7Cz st.Range.ListFormat.RemoveNumbers
6 DO0zNTY st.Range.InsertBefore lst & " "
S r[IoF) End If
,@,LD u Next
I`# EhH End With
DlS&qFs Set st = Nothing
}*OD M6 End Sub
= jBL'|k5 &{ hc Private Sub UserForm_Activate()
z}mvX .j7 Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节"
%8g$T6E[<2 Me.lbTotal.Font.Bold = True
-|$* l
Q Me.txtStatus.Visible = False
9OhR4 1B Me.cmdCheck.Enabled = True
2:n|x5\H _jk|}IB;X End Sub
c_[ JjG^?P T*p| 'Q` hF9B?@n?B Sub CheckSuperScript()
e)b r`CD% Selection.Find.ClearFormatting
o8mo=V4j Selection.Find.Replacement.ClearFormatting
,^M]yr
*~ With Selection.Find
cnC _#kp .Text = "[【\[［〖](*)[】\]〗］]"
4&H+hN{3 .Replacement.Text = "[\1]"
]uJM6QuQ .Replacement.Font.Superscript = True
` -5 cQ2>" '.Replacement.Font.Color = wdColorBlue
gBfX}EK7F .Forward = True
H7J`]nr6 .Wrap = wdFindContinue
~"RQ !&U .FORMAT = True
*+&z|Pwv[^ .MatchCase = False
lWIv(%/@ .MatchWholeWord = False
e8 v; D .MatchByte = False
w4`!Te .MatchAllWordForms = False
I@+lFG .MatchSoundsLike = False
Fv;u1Atiw
.MatchWildcards = True
7ia "u+Y End With
wbl ${@ 4 Selection.Find.Execute Replace:=wdReplaceAll
#[C<
J#; End Sub
I_K[!4~Kn i:R!T, Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
6O%=G3I bContinue = False
@<
VG8{ Set regEX = Nothing
)ZviS. End Sub
cyDiA(ot& DwT i_8m; Sub CeateOrModifyStyle()
V~JBZ}`TG< '
_RgxKp/d '
_82<| NN: Dim stl As Style
'>"`)- %d ZM9I0 Options.Pagination = False
^CO#QnB @ Mn-<5 1.% On Error Resume Next
a{5H33JA For Each stl In ActiveDocument.Styles
}t}38%1 i stl.Delete
5
7'q;I Next
\8
g. On Error GoTo 0
V5cb}xx %{=4Fa(Jux Set stl = Nothing
IBzHR[#,^ %~ ;nlDw DoEvents
;;D%
l^m+ On Error Resume Next
EP/&m|o|G ,7QBJ_-;QJ ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph
2c!h2$w fHW-Je7mG ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph
d|R
H G ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph
S_`W@cp[ G sR-#tV@ ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph
S|s3}]g 9 ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph
!Jh*a *I} @ 8 A{ 9i ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph
J: L -15 ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph
%+
/f'6kR ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph
g2!0 v B> ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph
9 Zs #Ky/ ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph
fYv ;TV>73 ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph
cvn- *Sj ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph
OE5 X8DqQe Cq
TH!'N ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph
iM4mkCdOO ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph
yIM.j;5:~5 ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph
1 VPg`+o ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph
#!(
Zn:[ ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph
b;SFI^
+'!h-x1y~ ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph
X9p+a, On Error GoTo 0
,ZLG 7e DoEvents
BYTXAZLb ;|2U f 'BaseStyle
3AX?B~s ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False
[B.W1 GL! With ActiveDocument.Styles("BaseStyle").Font
27}.s0{D .NameFarEast = "宋体"
9)1P+c-- .NameAscii = "Times New Roman"
y- D>xV)n .NameOther = "宋体"
&8R-C[A .Size = 10.5
Rv0-vH.n .Bold = wdUndefined
_a?wf!4>P .Italic = wdUndefined
oB hL}r .Subscript = wdUndefined
,P;8 }yQ .Subscript = wdUndefined
Oz_b3 r JkRG t Yq .Underline = wdUnderlineNone
=]8f"wAh* .UnderlineColor = wdColorAutomatic
7)g;Wd+H .StrikeThrough = False
R:SIs\%o .DoubleStrikeThrough = False
ADuZ } ] `#-p,NElV .Outline = False
oiIt3<BX .Emboss = False
H0 {Mlu9 .Shadow = False
dO Y lI`4 .Hidden = False
|p'_k(z } .SmallCaps = False
4S
d+"3M .AllCaps = False
>1_Dk7 E0D .Color = wdColorAutomatic
ke{DFq h .Engrave = False
1uKD&k%q .Scaling = 100
t sC z+M
P .Kerning = 1
}M;sz .Animation = wdAnimationNone
l6r%nHP @ .DisableCharacterSpaceGrid = False
{ mK pD .EmphasisMark = wdEmphasisMarkNone
zS&7[:IRs' End With
h #$ _<U With ActiveDocument.Styles("BaseStyle").ParagraphFormat
c%o5 E% .LeftIndent = 0
X20<r?^,, .RightIndent = 0
qp H j 4 .SpaceBefore = 0
$Ui]hA-:?y .SpaceBeforeAuto = False
7{?lEQ&UE .SpaceAfter = 0
(, ;MC/l .SpaceAfterAuto = False
Y} eZPG.h R4hav
.LineSpacingRule = wdLineSpaceSingle
yQ72v' .Alignment = wdAlignParagraphJustify
! hOOpZ f7 J@=!w[ v+ .WidowControl = False
}W^V^i ) .KeepWithNext = False
\JF57t}Zk .KeepTogether = False
tyBg7 dP .PageBreakBefore = False
o{s4.LKK
.NoLineNumber = False
Lh8# I&x UHTb 61Gs .FirstLineIndent = CentimetersToPoints(0)
e7)> U!9c9 .OutlineLevel = wdOutlineLevelBodyText
UMnR=~ . .CharacterUnitLeftIndent = 0
Br_3qJNVP .CharacterUnitRightIndent = 0
&utS\-;G .CharacterUnitFirstLineIndent = 0
1q;I7_{ 2 .LineUnitBefore = 0
<m|FccvQ .LineUnitAfter = 0
A- <.# .AutoAdjustRightIndent = True
3
hp
tP .DisableLineHeightGrid = True
/v<e$0~s< /3xFd)|Ds .FarEastLineBreakControl = True
!XG/,)A .WordWrap = True
s (l+{b & .Hyphenation = False
BxW||O|_N" q[T_*X3o .HangingPunctuation = True
0TuNA\Ug+ .HalfWidthPunctuationOnTopOfLine = True
rd f85%%7 .AddSpaceBetweenFarEastAndAlpha = True
8'
WLm .AddSpaceBetweenFarEastAndDigit = True
_R>s5|_ .BaseLineAlignment = wdBaselineAlignBaseline
+btP]?04 End With
x`j_d:C~G ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False
#t5JUi%in* ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll
;h*"E(P p ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese
*X"F : 7 ActiveDocument.Styles("BaseStyle").NoProofing = False
gK] T} IJL^dXCu '一级标题题样式
NK*:w *SOI ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
oW\Q>c7
= ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle"
dja9XWOg ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False
EX[l0]fj With ActiveDocument.Styles("QLNU一级标题").Font
fb;hf:B: .NameFarEast = "黑体"
Lx4H/[$6D .NameAscii = "Arial Black"
x< )!$cg .NameOther = "黑体"
,cl"1>lp .Name = "黑体"
+4p2KYO .Size = 16 '三号
2=/-d$ .Bold = True
dNS9<8JX .Italic = wdUndefined
\, X?K .Subscript = wdUndefined
&**.naSo .Superscript = wdUndefined
TLR Lng End With
RMs1{64: With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat
~a0d .dU (RI>aDG RH .LeftIndent = CentimetersToPoints(0)
r( `8A:#d .RightIndent = CentimetersToPoints(0)
8.
~
Euz .FirstLineIndent = CentimetersToPoints(0)
@Reh?]# v g/J^K*3] .LineSpacingRule = wdLineSpaceSingle
SO8|]Fk .Alignment = wdAlignParagraphCenter
w|3fioLs }&'yt97+ .WidowControl = True
7ZR0M&pX .KeepWithNext = True
t 's5~ .KeepTogether = True
bN< O<x1j .OutlineLevel = wdOutlineLevelBodyText
-&HoR!af p]J]<QaZD .LineUnitBefore = 0.5
Z:}2F^6 .LineUnitAfter = 0.5
o9(#KC?3 End With
g
tSHy*3] ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False
) 2*|WHO ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll
d3\l9R{} ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese
+eH=;8 ActiveDocument.Styles("QLNU一级标题").NoProofing = True
42H#n]Y DoEvents
=r@ie
>* U ;9- 4 J '二级
>u%[J!Y;; ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
P89Dg/P ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle"
y D=)&->Ra ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False
!*$'fn'bAA With ActiveDocument.Styles("QLNU二级标题").Font
d<^ 6hF .NameFarEast = "黑体"
j+ T\c2d .NameAscii = "Arial Narrow"
rkER` .NameOther = "黑体"
iI /'! 85 .Name = "黑体"
~"hAb2 .Size = 15 '小三号
QRn:=J%W W .Bold = False
& t @ .Outline = False
YpbdScz
.Italic = wdUndefined
J>& dWKM3 .Subscript = wdUndefined
<jg
wdbT"6 .Superscript = wdUndefined
Lq
H?3)
: End With
RM / s : With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat
e>s.mH6A .LeftIndent = CentimetersToPoints(0)
tL
9e~>,` .RightIndent = CentimetersToPoints(0)
|7 W6I$Xl .FirstLineIndent = CentimetersToPoints(0)
.Jnp{Tet YP@ ?j .LineSpacingRule = wdLineSpaceSingle
Y7IlqC`i .Alignment = wdAlignParagraphLeft
x,@O:e vb4G_ X0S .WidowControl = True
:EmMia-)J .KeepWithNext = True
g^|_ X1{ .KeepTogether = True
4pOc` .PageBreakBefore = False
4<!}4 .OutlineLevel = wdOutlineLevelBodyText
Mz#S5 s =V4_DJ(& .LineUnitBefore = 0.5
Kk"B501 .LineUnitAfter = 0.5
/ux#U]x 2* cKFv{ End With
+HVG5 l ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False
;/]c^y ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll
;L/T}!Dx ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese
K <fq=:I3 ActiveDocument.Styles("QLNU二级标题").NoProofing = True
1OJD\w c
DoEvents
v \L
Ip N'W >pU '三级标题样式
IcNI uv ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
=,1zl}PR ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle"
,4?| }xg ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False
}F9?*2\/ With ActiveDocument.Styles("QLNU三级标题").Font
7dL=E"WL .NameFarEast = "宋体"
3hpz.ISk .NameAscii = "Times New Roman"
<\#
.NameOther = "黑体"
W(3~F
2 .Name = "黑体"
:/?R9JVI .Size = 14 '四号
OW5|oG
.Bold = False
1\9BO:<K .Outline = False
j$/uJ` .Italic = wdUndefined
7H@Cy}a .Subscript = wdUndefined
P+ h<{%: * .Superscript = wdUndefined
h;h,dx End With
aABE= 9Y With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat
>0G}, S .LeftIndent = CentimetersToPoints(0)
P#'DG W&W0 .RightIndent = CentimetersToPoints(0)
?}>B4Z) .FirstLineIndent = CentimetersToPoints(0)
"q#kh,-C "NI>HO.U .LineSpacingRule = wdLineSpaceSingle
) a2m<"
.Alignment = wdAlignParagraphLeft
0.,&B5)
"{1} .WidowControl = True
^a0 -5 .KeepWithNext = True
d%|#m) .KeepTogether = True
-
G2M;]Cn .PageBreakBefore = False
[!|d[ .OutlineLevel = wdOutlineLevelBodyText
4~J1pcBno% Vu8-Cy>Q? .CharacterUnitLeftIndent = 0
[8(9.6f .CharacterUnitRightIndent = 0
J T+lWhy .CharacterUnitFirstLineIndent = 2
rD)v%vvr&` b J5z?? .LineUnitBefore = 0.5
' c\TMb. .LineUnitAfter = 0
`oI/;& End With
p9bxhnn| ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False
Ik2szXh[J ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll
7D1`^,? ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese
.J!
$,O@ ActiveDocument.Styles("QLNU三级标题").NoProofing = True
za 4B+&JJ DoEvents
7'l{I'Z [/`Hz]R '四级标题样式
4Fht (B| ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
*d*;M> ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle"
x>/@Z6Wxz ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False
%
QcG^R With ActiveDocument.Styles("QLNU四级标题").Font
'm.XmVZL% .NameFarEast = "宋体"
V,%5
hl'& .NameAscii = "Times New Roman"
D
+%k1 .NameOther = "宋体"
2nz'/
G .Name = "宋体"
29E@e]Y,` .Size = 12 '小四号
lb
XkZ , .Bold = True
x)Om[jZE .Outline = False
iZqFVr&JF .Italic = wdUndefined
oXOO 10 .Subscript = wdUndefined
}u$a PS<$! .Superscript = wdUndefined
F1]PYx$X End With
d}G."wnG9, With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat
i / U{dzZ V?pO ~q o .LeftIndent = CentimetersToPoints(0)
Zvw3C%In .RightIndent = CentimetersToPoints(0)
RwLdV+2\R` .FirstLineIndent = CentimetersToPoints(0)
/bj`%Q.n %b'VEd7 .LineSpacingRule = wdLineSpaceSingle
aLo>Yi .Alignment = wdAlignParagraphLeft
v-]-wNqT
pt;Sk?-1 .WidowControl = True
q|_ 5@Ly .KeepWithNext = True
Z["nY&.sI .KeepTogether = True
;eSf4_~ .PageBreakBefore = False
kj"_Y"q= .OutlineLevel = wdOutlineLevelBodyText
U@ QU8 {xx;zjt%}} .CharacterUnitLeftIndent = 0
[==Z1Q;= .CharacterUnitRightIndent = 0
79f
yn!Iz< .CharacterUnitFirstLineIndent = 2
wtick ~
) ]d;/6R+Vs .LineUnitBefore = 0
:JG}% .LineUnitAfter = 0
f v7g93 OX`GN#yl End With
\.-y
LS. ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False
iPL'JVPZ ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll
5 /VB'N#7s ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese
RJm8K,3# ActiveDocument.Styles("QLNU四级标题").NoProofing = True
bI0+J ) DoEvents
/hy!8c7 {Q3#]Vu '正文校式
17i@GnbNb ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle")
a5+v)F/= ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle"
zU= [Kc=$ ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False
@(5 RAYRV With ActiveDocument.Styles("QLNU正文").Font
l.'E\3Bo ,#FH8%Yf .NameFarEast = "宋体"
N= Yi : + .NameAscii = "Times New Roman"
u, k8i:JY .NameOther = "宋体"
C jb p- .Name = "宋体"
w%u[~T7OI -5*;J&.
.Size = 12 '小四号
yxq!. 72 8*) {*'bf .Bold = wdUndefined
/9^0YC;Y* .Italic = wdUndefined
by3kfY]4s .Subscript = wdUndefined
qMj
e,Y .Superscript = wdUndefined
0-O.*Q^ U.9nHo{ .Outline = False
5?Ao9Q]@ .Emboss = False
X-WvKH(=w .Shadow = False
K&oO+ G^f .Hidden = False
?UZ yu 4O% dfd%A"
I .DisableCharacterSpaceGrid = True
DcM+K@1E4^ End With
~}l,H:jk@ With ActiveDocument.Styles("QLNU正文").ParagraphFormat
9Qd'=JQl
+*~3"ww< .LeftIndent = CentimetersToPoints(0)
zL {@LHP .RightIndent = CentimetersToPoints(0)
1j-i n j` .FirstLineIndent = CentimetersToPoints(0)
eWs^[^c.< <p8y'KAlc .LineSpacingRule = wdLineSpaceExactly
s8 O+&^(U .LineSpacing = 20
`I<|*vW
u .Alignment = wdAlignParagraphLeft
"N"k8,LH J(*"S!q)6 .WidowControl = False
l3$?eGGM .KeepWithNext = False
^^(ZK 6 d .KeepTogether = False
7oSuLo= .PageBreakBefore = False
r>eXw5Pr7 .Hyphenation = False
/ 1GZN *I 7!r`DZ"yF .OutlineLevel = wdOutlineLevelBodyText
C#cEMKa U 9OF0=g mTbPz Z4 .CharacterUnitLeftIndent = 0
L(rjjkH .CharacterUnitRightIndent = 0
;] ew>P) .CharacterUnitFirstLineIndent = 2
wB GxJ\+M \Vq;j 1 .LineUnitBefore = 0
+\m!# CSA .LineUnitAfter = 0
a"N_zGf2$ .SpaceBefore = 0
yX mp] 9$ .SpaceAfter = 0
No+zw% l0E |pg5m*h .DisableLineHeightGrid = True
id9T[^h End With
aB_z4dqwU ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False
M:M<bz V u ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll
9_dsiM7CT ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese
? +!?$h ActiveDocument.Styles("QLNU正文").NoProofing = True
=ZL2 0<TeH DoEvents
2}#PDh n mw%_ yDZ { '图片段落样式
0 `=?ig
_ ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle")
5qko`r@# ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle"
:S2MS{>Mo ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False
t:n|0G( With ActiveDocument.Styles("QLNU图片段落").Font
\ OB3gnR .Size = 12 '小四号
$ {"St&( .Italic = wdUndefined
7K4%`O
.Subscript = wdUndefined
v2g+o KO] .Superscript = wdUndefined
,~w )@.
End With
@~ HD<K With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat
t)+dW~g (9%%^s]uPT .LeftIndent = CentimetersToPoints(0)
hi dweg*7 .RightIndent = CentimetersToPoints(0)
f>PU# D
@B .FirstLineIndent = CentimetersToPoints(0)
^ 9E(8D
D Q)8t;Kx .LineSpacingRule = wdLineSpaceSingle
P; [mw( .Alignment = wdAlignParagraphCenter
?2 Dz1#%D .KeepWithNext = True
GT0 'b ge .OutlineLevel = wdOutlineLevelBodyText
s2kynQ#a ] lTfi0}g_ .CharacterUnitLeftIndent = 0
9)X<}*(qo .CharacterUnitRightIndent = 0
1(a\$Di .CharacterUnitFirstLineIndent = 0
#$QY [rf=6 `Nr7N#g+u .LineUnitBefore = 0
[b'fz .LineUnitAfter = 0
Fb-TCq1y# End With
[G)S q; ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False
l"#,O$x"#@ ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll
Ep MEA1=& ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese
+r"$?bw ' ActiveDocument.Styles("QLNU图片段落").NoProofing = True
)2hoO_ l: DoEvents
rKq]zHgpo =Q/i < u Ss}0.5Bq '第X章
Wn5]2D\vkT ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
upKrr ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle"
jz0 \F,s ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False
wtyu"=
With ActiveDocument.Styles("QLNU章节标题").Font
bp _@e0 .NameFarEast = "黑体"
W1(zi P'6 .NameAscii = "Arial Black"
}(6k7{,Gw, .NameOther = "Arial Black"
ay.IKBXc .Name = "黑体"
d_hcv|% .Size = 16
| + ''d .Bold = True
W ,+91rup .UnderlineColor = wdColorAutomatic
c9
c Nlp .Outline = False
omu &:)
g .Italic = wdUndefined
sP7 (1)\ .Subscript = wdUndefined
f{oWd]eAhb .Superscript = wdUndefined
QkAwG[4 .Scaling = 100
C]cw@ :o% .DisableCharacterSpaceGrid = True
tDVdl^# End With
=7> ~u With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat
6;DP Gx .LineSpacingRule = wdLineSpaceSingle
b.+
\qaR .Alignment = wdAlignParagraphCenter
r Y.:}D .WidowControl = True
t p&iOP6O .KeepWithNext = True
9IV W bJ .KeepTogether = True
1C{n\_hR .PageBreakBefore = True
'@P[fS Q .OutlineLevel = wdOutlineLevelBodyText
gw^+[}U# <NO~TBH F .LeftIndent = CentimetersToPoints(0)
a4YyE LXe .RightIndent = CentimetersToPoints(0)
~Otf
" < .FirstLineIndent = CentimetersToPoints(0)
I&c#U+-A ' zKr(Gt8 .CharacterUnitLeftIndent = 0
/|f]L9)2< .CharacterUnitRightIndent = 0
L&%iY7sC` .CharacterUnitFirstLineIndent = 0
cx)
EFy. C~*m&,@TT^ .LineUnitBefore = 1
WBIS .LineUnitAfter = 0.5
hd' n" 4YC`dpO' .AutoAdjustRightIndent = False
i :7 2FVo .DisableLineHeightGrid = True
D Eh A8 .v .FarEastLineBreakControl = True
g
11K?3*%Q .WordWrap = True
2} -W@R End With
~sD 'pS ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False
E
83nEUs ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll
:z7!X.* ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese
v;7u"9t ActiveDocument.Styles("QLNU章节标题").NoProofing = True
3[4]G@ DoEvents
b :00w[" xl$ Qw' '表格标题
e ^QOn ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
J^cDa|j ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle"
)e j8vm ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False
I6_+3}Hm{ With ActiveDocument.Styles("QLNU表格标题").Font
Ns_d10rZ. .NameFarEast = "楷体"
!/SFEL@_B .NameAscii = "Arial"
b ;vO
` .Name = "楷体"
QNY{ p k .Size = 10.5
l(W3|W#P .Bold = True
o-_ a0j .Underline = wdUnderlineNone
t~Ax #H .Italic = wdUndefined
OJaU,vQ# .Subscript = wdUndefined
eNX-2S
.Superscript = wdUndefined
Z " u/8 .Color = wdColorAutomatic
!RI&FcK End With
CDhk!O.. With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat
@,vSRns K"6 1i:F .LineSpacingRule = wdLineSpaceSingle
VTU-'q .Alignment = wdAlignParagraphCenter
c-F& 4V .KeepWithNext = True
9 )qx0 .KeepTogether = True
{H74`-C)W .OutlineLevel = wdOutlineLevelBodyText
.xx9tP}Xy $6N. yk J .LeftIndent = CentimetersToPoints(0)
<Co h
&g_ .RightIndent = CentimetersToPoints(0)
;uy/Vc5,Y .FirstLineIndent = CentimetersToPoints(0)
QG.FW;/L, l3,|r QD .CharacterUnitLeftIndent = 0
'
BpRi N .CharacterUnitRightIndent = 0
DWG}}vN:& .CharacterUnitFirstLineIndent = 0
2#!D" F AyUVsIuPT= .LineUnitBefore = 1
~JJv 2 .LineUnitAfter = 0
;A_QI>> :Pv
{ E End With
p5\b&~
g ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False
-oj@ c
OZ ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll
(iFhn*/
E ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese
o <y7Ut ActiveDocument.Styles("QLNU表格标题").NoProofing = True
JT+P>\\];' DoEvents
pH%K4bV)8 Jx]`!dP3 '表格首行
N*#SY$!y ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle")
}PVB+i M ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False
4-MA !& With ActiveDocument.Styles("QLNU表格首行").Font
!VW#hc \A5 .NameFarEast = "楷体"
%Vq@WF .NameAscii = "Times New Roman"
|8"HTBb\CW .Name = "楷体"
_
i8}l d- .Size = 9
;%} .Bold = True
uB
BE!w_ .Underline = wdUnderlineNone
[(hENX}o : .Italic = wdUndefined
XcXd7 e .Subscript = wdUndefined
JG `QJ
% .Superscript = wdUndefined
%/7`G-a.B End With
/dAIg1ra With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat
O;~1 M3Ii .LineSpacingRule = wdLineSpaceSingle
P;GUGG*W .Alignment = wdAlignParagraphCenter
B!Y;VdX c!c
!;( .LeftIndent = CentimetersToPoints(0)
)u$A!+fo .RightIndent = CentimetersToPoints(0)
[M . Vu .FirstLineIndent = CentimetersToPoints(0)
YG_3@
`-< oKUJB.PF eL.S=" .CharacterUnitLeftIndent = -0.5
GZ"O%: d .CharacterUnitRightIndent = -0.5
Kf*+Ilq%L .CharacterUnitFirstLineIndent = -0.5
H5n" !! Lqt] .LineUnitBefore = 0
BmZd,}{ .LineUnitAfter = 0
hikun 2 .SpaceBefore = 0
f`Nu] #i .SpaceAfter = 0
L(L;z'3y @m6E*2Gg End With
+J2=\YO ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False
|<E% hf ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll
UX6-{
RP ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese
Cpl \ }Qn ActiveDocument.Styles("QLNU表格首行").NoProofing = True
"- 9YvB# DoEvents
u}$?r\H'(
q(C+D%xB '表格内容
w*?JW ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle")
<H.Ml>q:r ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False
CzgLgh;:T With ActiveDocument.Styles("QLNU表格内容").Font
j JW0a\0 .NameFarEast = "楷体"
+#O?sI# .NameAscii = "Times New Roman"
(Q@+W |~ .Name = "楷体"
: v]< h .Size = 9
g#e"BBm=A .Bold = False
<B)lV'!Bd .Underline = wdUnderlineNone
p&7>G-. .Italic = wdUndefined
F~m tE8 B: .Subscript = wdUndefined
Gh j[nsoC~ .Superscript = wdUndefined
+XsY*$O End With
P _9O8"W With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat
_.j KcDf .LineSpacingRule = wdLineSpaceSingle
{x+jFj. .Alignment = wdAlignParagraphCenter
^vzNs>eJ z~F!zigNAc .LeftIndent = CentimetersToPoints(0)
3Cpix,Dc .RightIndent = CentimetersToPoints(0)
qhogcAvE .FirstLineIndent = CentimetersToPoints(0)
h od|o1C& B!:(*lF .CharacterUnitLeftIndent = -0.5
G 2mv6xK' .CharacterUnitRightIndent = -0.5
[mhY_
Hmz] .CharacterUnitFirstLineIndent = -0.5
!cfn%+0 .LineUnitBefore = 0
fQ<V_loP.@ .LineUnitAfter = 0
pJqayz V .SpaceBefore = 0
J4<- C\=4 .SpaceAfter = 0
pl%ag~i5 End With
b[$>HB _Na ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False
U7OW)tUf ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll
MSA*XDnN ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese
Kh27[@ s ActiveDocument.Styles("QLNU表格首行").NoProofing = True
>q`G?9d2 DoEvents
+m"
iJW0 ZEB1()GB '图片标题
`H\ ^#Zu
ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
W>Zce="_gN ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle"
:U~
[%] ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False
BQ m H9g|2 With ActiveDocument.Styles("QLNU图片标题").Font
hHdC/mR
.NameFarEast = "楷体"
j0Q ;OKu .NameAscii = "Times New Roman"
M$w^g8F27H .Name = "楷体"
E@?jsN7 .Size = 10.5
JI.ad_IR .Bold = True
C@K@Tf K!M .Underline = wdUnderlineNone
PS>k67sI .Italic = wdUndefined
:g Ze> .Subscript = wdUndefined
UXd\Q'' .Superscript = wdUndefined
>LjvMj ] .Outline = False
SgJQH7N .Shadow = False
N-su BRnW .Color = wdColorAutomatic
IE3GM^7\ End With
_9<Ko.GVq With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat
2rA`y8g(L .LineSpacingRule = wdLineSpaceSingle
mFT[[Z# .Alignment = wdAlignParagraphCenter
@+\OoOK<L fPst<) .KeepWithNext = wdUndefined
='~C$ % .KeepTogether = True
DJeG
.OutlineLevel = wdOutlineLevelBodyText
>J4_/p>Qs A w83@U .LeftIndent = CentimetersToPoints(0)
~ (}zp<e| .RightIndent = CentimetersToPoints(0)
]R0^
}sI .FirstLineIndent = CentimetersToPoints(0)
zd r?1 = T\OLy
sc .CharacterUnitLeftIndent = 0
xD1w#FMlQs .CharacterUnitRightIndent = 0
7-)Y\D .CharacterUnitFirstLineIndent = 0
67d0JQTu na <g
/& .LineUnitBefore = 0
S
wQb" .LineUnitAfter = 0
*F=w MWa End With
\ OOj]gAe ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False
\i{=%[c ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll
Tmq:,.^ } ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese
J|s4c`= ActiveDocument.Styles("QLNU图片标题").NoProofing = True
<#:"vnm$j DoEvents
KnlVZn[3t k )4
'目录项
pCv=rK@ ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle")
.Emw ;+>
ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle"
GX\/2P7CZ ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False
Hq=RtW2 With ActiveDocument.Styles("QLNU目录项").Font
x }-r Ar .NameFarEast = "黑体"
oSxHTbp? .NameAscii = "Times New Roman"
C0'Tua' .NameOther = "Times New Roman"
fuQ? @F .Name = "黑体"
S53[K/dZo .Size = 10.5
#\w~(Nm- .Bold = False
.x}ImI .Italic = wdUndefined
"xw2@jGpG .Underline = wdUnderlineNone
BVG 3 T .Color = wdColorAutomatic
D>05F,a .Superscript = wdUndefined
* ,,D%
L .Subscript = wdUndefined
Fe: 0nr9; End With
HZR~r:_
i With ActiveDocument.Styles("QLNU目录项").ParagraphFormat
dw'%1g.113 aVd{XVE .LineSpacingRule = wdLineSpaceSingle
uRJLSt9m .Alignment = wdAlignParagraphLeft
fY \QI
= k0% 4&pU .WidowControl = False
]U]{5AA6 .KeepWithNext = False
*2@Ne[dYEF .KeepTogether = False
RzXxnx)]q .PageBreakBefore = False
I( pU_7mw .NoLineNumber = False
yt$V<8a .OutlineLevel = wdOutlineLevelBodyText
/ z6NJ2jb V"gnG](2l .LeftIndent = CentimetersToPoints(0)
%A?Ym33 .RightIndent = CentimetersToPoints(0)
U1B5gjN .FirstLineIndent = CentimetersToPoints(0)
Dg \fjuK9 w+ bMDp .CharacterUnitLeftIndent = 0
|Z z3X .CharacterUnitRightIndent = 0
y 2 &G0 y .CharacterUnitFirstLineIndent = 0
`XQM )A Yk[yG;W .LineUnitBefore = 0
C% l~qf1n .LineUnitAfter = 0
aM~M@wS End With
Z?X
^7 < ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False
pkhZW8O ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll
H+F'K
XP*K ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot
C) Mh ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese
6 :J @ ActiveDocument.Styles("QLNU目录项").NoProofing = True
/8lGP! z DoEvents
$$`}b^, / ]x! vPIyq '参考文献
0/;T\9 ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle")
jPhOk>m ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle"
Jo_h?{"L{ ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False
Z{ &PKS With ActiveDocument.Styles("QLNU参考文献").Font
JQ!D8Ut .NameFarEast = "宋体"
(Zx;GS .NameAscii = "Times New Roman"
#}l }1^$ .NameOther = "Times New Roman"
Z3 =t" .Name = "Times New Roman"
yjc:+Y{5' .Size = 12
R/U"]Rc .Bold = False
}wz )" .Italic = wdUndefined
\3Ys8umKq .Subscript = wdUndefined
C^]bXIb .Superscript = wdUndefined
v$lP?\P;}X .Underline = wdUnderlineNone
bNj| GIf .UnderlineColor = wdColorAutomatic
5{VrzzOK} .Color = wdColorAutomatic
" @DCQ .Engrave = False
u
J
GYXlLE End With
{}[S,L With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat
HX?5 O$<<N 9w (QM- u .LineSpacingRule = wdLineSpaceExactly
gQ h;4v .LineSpacing = 16
KR#Bj?fz-H .Alignment = wdAlignParagraphLeft
Gb\}e}TB[ .WidowControl = False
!ZH PR:k| .KeepWithNext = False
(:-=XR9
A` .KeepTogether = False
G
? H`9*y .PageBreakBefore = False
%/jm Q6z^ .OutlineLevel = wdOutlineLevelBodyText
$wAVM/u& :U^a0s %B .LeftIndent = CentimetersToPoints(0)
IYb@@Jz o .RightIndent = CentimetersToPoints(0)
W%@6D|^ .FirstLineIndent = CentimetersToPoints(0)
D:M0_4S &H`yDrg6U .CharacterUnitLeftIndent = 0
=]E;wWC .CharacterUnitRightIndent = 0
-7>vh|3 .CharacterUnitFirstLineIndent = -2
n"$D/XJO 1P@&xcvS\ .LineUnitBefore = 0
_"Y; E .LineUnitAfter = 0
=D<46T=(RB .SpaceBefore = 0
O]90 F .SpaceAfter = 0
0O|T
\E8 e P8piXG End With
9-I;' ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False
0(h *< g: ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll
t
:sKvJ ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS
c"v #d9 ActiveDocument.Styles("QLNU参考文献").NoProofing = True
{C[<7r uF ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese
oe# :EfT DoEvents
JmtU>2z\ /EA4-#uw '
/&K hk # ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle")
rU%\ 8T0f ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle"
Hi|' ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False
Wl?*AlFlk With ActiveDocument.Styles("QLNU论文题目").Font
;VNwx(1l` .NameFarEast = "黑体"
C
3 b .NameAscii = "Arial Black"
+UB+. 5P .NameOther = "Arial Black"
RV.*
_FG .Name = "Arial Black"
8it|yK.G@& .Size = 16
{eMu"< .Bold = False
Lr V)}1&5 .Italic = wdUndefined
JO1KkIV .Superscript = wdUndefined
[_#9 PH33 .Subscript = wdUndefined
}2-{4JIq} .Underline = wdUnderlineNone
mM&H; W .UnderlineColor = wdColorAutomatic
_\1 wLcFj .Color = wdColorAutomatic
X2/ `EN\ dq[j.Nmq End With
$*{PUj With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat
<$K%u ? .LineSpacingRule = wdLineSpaceSingle
|U>BXX
P .Alignment = wdAlignParagraphCenter
zsc8Lw
.WidowControl = True
`b+f^6SJn .KeepWithNext = True
#92 :h6 .KeepTogether = True
; a [56W .PageBreakBefore = True
J#!:Z8b .NoLineNumber = False
ym{?v Y
h .OutlineLevel = wdOutlineLevelBodyText
25o + ?Y<
3_+-t5 .LeftIndent = CentimetersToPoints(0)
y/'2WO[ .RightIndent = CentimetersToPoints(0)
%DbL|;z1 .FirstLineIndent = CentimetersToPoints(0)
Jr==AfxyT R4%!W~K .CharacterUnitLeftIndent = 0
D/"[ / ! .CharacterUnitRightIndent = 0
ZOi8)Y
~ .CharacterUnitFirstLineIndent = 0
]+{Cy\ *kR !Z`~=n 3bk .LineUnitBefore = 1
FU E/uh .LineUnitAfter = 1
ke!)C[^7z W -8<sv$b .BaseLineAlignment = wdBaselineAlignAuto
i\ X Ok! End With
,yNPD}@v> ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False
25 NZIal< ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll
HBXp#$dPc ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS
&NL =Bd ActiveDocument.Styles("QLNU论文题目").NoProofing = True
0bVtku K;G ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese
Ot`jjZ& ActiveDocument.Styles("QLNU论文题目").NoProofing = True
r*OSEzGUz DoEvents
}[SWt3qV1 |.0/~Xy- '中文摘要
mTwz&N
\ ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle")
{ %vX/Ek ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle"
'R C(ss1G ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False
-yy&q 9 With ActiveDocument.Styles("QLNU中文摘要").Font
jxm.x[1ki^ .NameFarEast = "宋体"
!LVWggk1 .NameAscii = "Times New Roman"
k:nr!Y< .NameOther = "Times New Roman"
C7[_#1Oz .Name = "Times New Roman"
a]Bm0gdrO .Size = 12
MLG%+@\ .Bold = wdUndefined
x@;XyQq .Superscript = wdUndefined
x}[email protected] .Subscript = wdUndefined
. R#p<"$I .Italic = wdUndefined
!-m (1 .Underline = wdUnderlineNone
)0
.gW .UnderlineColor = wdColorAutomatic
=)
$a>N .Color = wdColorAutomatic
E;fYL]j/oZ End With
u`xmF/jhQ With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat
W7c(]
tg. .LineSpacingRule = wdLineSpaceExactly
s =!
y%
.LineSpacing = 20
ICN>8|O`& .Alignment = wdAlignParagraphLeft
n{6XtIoYq HpC|dtro .WidowControl = False
snK $? 9vh .KeepWithNext = False
l`UJHX .KeepTogether = True
&jT>)MX Pu .PageBreakBefore = False
wWKC
.N .NoLineNumber = False
$pyM<:*L&< .OutlineLevel = wdOutlineLevelBodyText
zQMs
S DGz'Dn .LeftIndent = CentimetersToPoints(0)
ce0TQ .RightIndent = CentimetersToPoints(0)
C7dy{:y` .FirstLineIndent = CentimetersToPoints(0)
~*GJO74 (_^g:>)Cs .CharacterUnitLeftIndent = 0
?Lbw o<E .CharacterUnitRightIndent = 0
Ia=wf"JS) .CharacterUnitFirstLineIndent = 2
5 wmH3g#0 .LineUnitBefore = 0
0m(/hK .LineUnitAfter = 0
;e_dk 4_ :A g]^ot End With
V7G?i\> ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False
MRwls@z= ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll
4_ztIr w ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS
J^R))R= ActiveDocument.Styles("QLNU中文摘要").NoProofing = True
d+[yW7%J ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese
i/2OE&*O[ ActiveDocument.Styles("QLNU中文摘要").NoProofing = True
x }[/A;N ActiveDocument.Styles("QLNU中文摘要").Frame.Delete
Py^F},?J DoEvents
cpF\^[D y )X;g:w ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
w} c1zpa ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle"
m"t\@f ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False
fIu5d6;' With ActiveDocument.Styles("QLNU英文标题").Font
UeIu
-[R .NameFarEast = "黑体"
KdHR.;* .NameAscii = "Arial Narrow"
K Jo [!|. .Name = "Arial Narrow"
"WdGY*r .Size = 16
17I{_ C .Bold = True
Am '5| .Bold = wdUndefined
bIu '^ .Superscript = wdUndefined
R
rs?I,NV .Subscript = wdUndefined
<*3{Twa1T .Italic = wdUndefined
oJ ~ZzW [
d pd-s .Underline = wdUnderlineNone
E{[c8l2B .UnderlineColor = wdColorAutomatic
BNw^ _j1 .StrikeThrough = False
zW, m3~XX: .DoubleStrikeThrough = False
>eQ;\j End With
#o SQWC=T With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat
1mm/Ssw:C .LineSpacingRule = wdLineSpaceSingle
.]6
_ .Alignment = wdAlignParagraphCenter
*6s B$E_y .WidowControl = True
pk%I98! Jy .KeepWithNext = False
%<6oKE .KeepTogether = False
= QHW>v .PageBreakBefore = False
bg[k8*.:F .NoLineNumber = False
8 k9(iS .FirstLineIndent = CentimetersToPoints(0)
}{[H@uhjH .OutlineLevel = wdOutlineLevelBodyText
&P I}o {a.{x+!5I- .LeftIndent = CentimetersToPoints(0)
yv =LT~ .RightIndent = CentimetersToPoints(0)
odMjxWY .FirstLineIndent = CentimetersToPoints(0)
LyH8T'C~ ?7 e|gpQ| .CharacterUnitLeftIndent = 0
z6#N f, .CharacterUnitRightIndent = 0
6a[D]46y,2 .CharacterUnitFirstLineIndent = 0
X aW@CW 7 h?PVobe .LineUnitBefore = 1
Q6 @}t&k4C .LineUnitAfter = 1
b#(S DNo6 Tw/kD)u{ End With
GM
U.Kt ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False
c[}h( jkP ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll
S5*wUd*p# ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS
O&.^67\|
ActiveDocument.Styles("QLNU英文标题").NoProofing = True
:~3sW< P R ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese
[X ]\^
ActiveDocument.Styles("QLNU英文标题").NoProofing = True
"aHY] E{ ActiveDocument.Styles("QLNU英文标题").Frame.Delete
O`~G'l&@T DoEvents
H0Qpc<Z4/ Dq/[ g,( ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle")
:0$(umW@I" ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle"
\[Op:^S ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False
LKieOgX With ActiveDocument.Styles("QLNU英文摘要").Font
H=?v$!
i .NameFarEast = "宋体"
m3 C&QdjRp .NameAscii = "Arial"
ol^V@3[< .NameOther = "Arial"
}0 0mJ]H ( .Name = "Arial"
kbJ/7
.Size = 12
#Z;ziM: .Bold = wdUndefined
X+)68 .Italic = wdUndefined
\j !JRD+j .Superscript = wdUndefined
$IX>o&S@| .Subscript = wdUndefined
5 gARGA End With
r5%K2q{ g e)g ?IP4 With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat
$6}siU7s4 { :xINQ=}D .LineSpacingRule = wdLineSpaceExactly
izsAn"v
.LineSpacing = 20
O6LZ<}oUR U>7"BpC .Alignment = wdAlignParagraphJustify
[X0Wfb}{ zYO+;;*@ .WidowControl = False
mVfg+d( .KeepWithNext = False
qUA&XUJ .KeepTogether = False
M,"4r^%k .PageBreakBefore = False
4j|]=58 .NoLineNumber = False
d|k6#f-E LH@)((bi4v .OutlineLevel = wdOutlineLevelBodyText
XL c&7 ; 29q .LeftIndent = CentimetersToPoints(0)
767xCP .RightIndent = CentimetersToPoints(0)
+Gq h .FirstLineIndent = CentimetersToPoints(0)
IE.JIi^w ;Xg6'yxJ .CharacterUnitLeftIndent = 0
U~-Z`_@^- .CharacterUnitRightIndent = 0
KT~J@] ;Fb .CharacterUnitFirstLineIndent = 2
x^^; /%p kD
dY
i7g> .LineUnitBefore = 0
7r 07N' .LineUnitAfter = 1
A ^
$9[_ uNZJNrV% End With
b2u_1P\ ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False
!;.i#c_u ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll
+6 @".< ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS
u`dWU}m) ActiveDocument.Styles("QLNU英文摘要").NoProofing = False
>DVjO9Kf DoEvents
S1(. AI~ 3GUO Options.Pagination = True
fp|!LU Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....."
?1?D[7$ DoEvents
\!j{&cJ ActiveDocument.Repaginate
GQhzQM1HS n
F0$ End Sub
p/>}{Q )Y |C?<!6.QmV SoeL_#+^W
