Dim bContinue As Boolean
M:{Aq&. (S?Y3l | Dim regEX As New RegExp
rv(?%h`
Dim paraCounter As Long '全局段落计数，仅在主程序中可读写，其它过程函数应为只读
9$Z 0mz k Qj;{Z*l%+ Dim LastTitle0String As String, LastTitle0No As Long
tV`=o$` Dim LastTitle1String As String, LastTitle1No As Long
q :TNf\/o Dim LastTitle2String As String, LastTitle2No As Long
g+4y^x(X@1 Dim LastTitle3String As String, LastTitle3No As Long
~^V&n`*7D Dim LastTitle4String As String, LastTitle4No As Long
Dr
kTM< Dim LastTitle5String As String, LastTitle5No As Long
L"%SU Dim LastTabelString As String, LastTableNo As Long
w $6Z}M1d Dim LastFigureString As String, LastFigureNo As Long
R-j*fO} GP K\nz} Dim strSeperator As String
DegbjqZ# cO*g4VL"[ Sub ConvertWidth(fTEXT As String, rText As String)
8ZVQM7O Selection.Find.ClearFormatting
a
\1QnCy Selection.Find.Replacement.ClearFormatting
.W qqP Selection.Find.Wrap = wdFindContinue
Lr D@QBT Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText
j}eb
_K+I DoEvents
DkEv1]6JI_ Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True
L;%w{,Ji End Sub
~(ke'`gJ0- e5>'H!) Sub ClearDomain()
V7Cnu:0_ With Selection.Find
x lS*9>Ij .ClearFormatting
f4b9o[,s2e .Replacement.ClearFormatting
P .m@|w&.K .Wrap = wdFindContinue
. Mb[j1L^ Me.txtStatus.Text = "清除所有域代码"
ur\6~'l4 DoEvents
L|T?,^ .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False
Rbf6/C End With
,
:#bo]3 End Sub
32 <D9_ Qk:Lo*! Private Sub cmdCheck_Click()
mG j)Zrx> bContinue = True
5M~{MdF|. Dim NoSeries1(1 To 16) As String
P,{Q k~iu Dim NoSeries2(1 To 16) As String
p@su:B2Rl Dim NoSeries5(1 To 16) As String
2C
O/K_Q Dim NoSeriesRM(1 To 16) As String
KU/r"lMNlU Dim paraTotal As Long, ParaText As String
'R79,)|;[ Dim ttString As String, ttNo As String
#BUq;5
7TMq#Pb Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long
d"9tP&
Q >8"Svt$ Me.txtStatus.Visible = True
M% \ T5 Me.lbParaType.Visible = True
b4e~Z Me.cmdCheck.Enabled = False
su1
lv# SQ_?4 s:: j)m U`b_ 3!{imQ T P3&s<mh Dim ParaType As String, rText As String
D4!;*2t lx%c&~.DiB Selection.WholeStory
# dWz,e3 Selection.NoProofing = True
tF`L]1r> y9 {7+] tm1 = Now
`
Npa/ Q THp_ dTD ActiveWindow.View.Type = wdNormalView
"/aZ*mkjfJ Xb%q9Z NoSeries1(1) = "一"
K=[7 <b,:3 NoSeries1(2) = "二"
\5r^D|Rp} NoSeries1(3) = "三"
9:USxFM NoSeries1(4) = "四"
z3tx]Ade NoSeries1(5) = "五"
6( b N *. NoSeries1(6) = "六"
[Y
.8C$0 NoSeries1(7) = "七"
@|anu&Hm NoSeries1(8) = "八"
x z8e1M NoSeries1(9) = "九"
ltNC ti{Q NoSeries1(10) = "十"
iWf+wC| NoSeries1(11) = "十一"
G&g;R OgY NoSeries1(12) = "十二"
0+FPAqX NoSeries1(13) = "十三"
E(r_mF7: NoSeries1(14) = "十四"
V#7,vas NoSeries1(15) = "十五"
,= u; 1 NoSeries1(16) = "十六"
XIl <rN@- N>H@vt~ NoSeries2(1) = "㈠"
yxt"vm;
NoSeries2(2) = "㈡"
L7C ;l,ot NoSeries2(3) = "㈢"
|IcW7( NoSeries2(4) = "㈣"
F]
c\Qt NoSeries2(5) = "㈤"
"[_j8,t` NoSeries2(6) = "㈥"
.`OU\LA NoSeries2(7) = "㈦"
F}_b7 |^ NoSeries2(8) = "㈧"
,TQec:B NoSeries2(9) = "㈨"
XjG S.&'I NoSeries2(10) = "㈩"
>&P M' k k<<
x}= NoSeries5(1) = "①"
VhUWws3E NoSeries5(1) = "②"
m^3x%ENZ NoSeries5(3) = "③"
\) ~d,M}kK NoSeries5(4) = "④"
!/XNp QP NoSeries5(5) = "⑤"
,<Q NoSeries5(6) = "⑥"
pW V_KS NoSeries5(7) = "⑦"
d?*] /ZiR NoSeries5(8) = "⑧"
PlkZ)S7C NoSeries5(9) = "⑨"
6<];}M_{ NoSeries5(10) = "⑩"
H0af u)$, |H?t+Dyn)q + `
|A/w NoSeriesRM(1) = "I"
s:3[#&PQpN NoSeriesRM(2) = "II"
.Fo#Dmq3 NoSeriesRM(3) = "III"
"JB4 Uaa NoSeriesRM(4) = "IV"
)UKX\nD"0 NoSeriesRM(5) = "V"
-#|;qFD] NoSeriesRM(6) = "VI"
l )%PvLbL NoSeriesRM(7) = "VII"
Tx;a2:6\[ NoSeriesRM(8) = "VIII"
7?Wte&C];p NoSeriesRM(9) = "IX"
..)J6L5 l NoSeriesRM(10) = "X"
( s3k2Z NoSeriesRM(11) = "XI"
E!9WZY NoSeriesRM(12) = "XII"
k H.dtg_ NoSeriesRM(13) = "XIII"
A(Fn U: NoSeriesRM(14) = "XIV"
FCE y1^ u NoSeriesRM(15) = "XV"
[CJ<$R ! NoSeriesRM(16) = "XVI"
^K? -+ U]cXE1c>F i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo)
qbv\uYow3k 7iP+!e }$. If i = vbNo Then
o}rG:rhIh Exit Sub
h9) S&Sk{s End If
ybBmg'198 |R}=HsYey If Me.chkSuper.Value Then
>w
S 'z]T9 Me.txtStatus.Text = "检查修改所有的上标格式"
e(0OZ_ w nI*.(+h CheckSuperScript
<fUo@]Lv
io4<HN End If
Cyg2o<O@ ) E^S+ps If Me.chkStyle.Value Then
V`I4 "}M1 Me.txtStatus.Text = "设置样式，请稍候...."
7}kJp%- DoEvents
! ?g+'
OM CeateOrModifyStyle
VQ 9A/DH/ End If
E-z5mX.2
=^4Z ]d ;st0Ekni) oYqH l1cs ClearDomain
;,f\Wf"BW ~|+ ~/ *ub2dH4/ m +(Cl#+ If Me.chkLIST.Value Then
y :;.r : Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式"
@2>UR9j k =! Q ConvertListToOrdinary
{MgRi 7 End If
xKUL}>8 6
VEB2F n28JWkK8 Dim pType As String, trimpTEXT As String
[dJ!JT/X{ If Me.chkNum.Value = True Then
PgkU~68` Me.txtStatus.Text = "转换全角数字形式为半角"
Ob$``31{s ConvertWidth "１", "1"
w(oK DoEvents
hF2e-- ConvertWidth "２", "2"
M"3"6U/ e DoEvents
, PlH| ConvertWidth "３", "3"
,H]%4
@]|o DoEvents
6w^P{%ul ConvertWidth "４", "4"
( /]' e} DoEvents
Z8SwW<{ $ ConvertWidth "５", "5"
2v{WX DoEvents
FLi' }C ConvertWidth "６", "6"
& A0OYV3i. DoEvents
z< % P" ConvertWidth "７", "7"
N
r
4}x7 DoEvents
6
5g ov or ConvertWidth "８", "8"
%f]#P8V P DoEvents
Aw#<: 6- ConvertWidth "９", "9"
_uIS[%4g DoEvents
FZi@h ConvertWidth "０", "0"
Sm'Tz&! DoEvents
h( | T. ConvertWidth "ａ", "a"
K\K& K ~Z DoEvents
Hyb(.hl Zh ConvertWidth "ｂ", "b"
}3#\vn0gT DoEvents
4XpWDfa.} ConvertWidth "ｃ", "c"
BSm"]!D8* DoEvents
, L <JG ConvertWidth "ｄ", "d"
]+D@ E2E DoEvents
rB[
J*5v ConvertWidth "ｅ", "e"
#mQ@4k9i DoEvents
J K/{I k F ConvertWidth "ｆ", "f"
6K.2VY# DoEvents
As,` ($= ConvertWidth "ｇ", "g"
6v)TCj/ DoEvents
SQN?[v ConvertWidth "ｈ", "h"
N 5
?bfl Y DoEvents
^k6_j\5j ConvertWidth "ｉ", "i"
?ko#N?hgI DoEvents
D3o,2E(o ConvertWidth "ｊ", "j"
] ?DU 8 DoEvents
B>2R-pa4~ ConvertWidth "ｋ", "k"
` Ig5*X4| DoEvents
V*?cMJ_G ConvertWidth "ｌ", "l"
F^%w%E\ DoEvents
_b&|0j :Ud ConvertWidth "ｍ", "m"
m+c-"arIpA DoEvents
uxfh?gsL ConvertWidth "ｎ", "n"
)iN
;1> ConvertWidth "ｏ", "o"
f}-'67*Y ConvertWidth "ｐ", "p"
Hx.|5n,5 ConvertWidth "ｑ", "q"
Q|_F
P: ConvertWidth "ｒ", "r"
~]KdsT(=_ ConvertWidth "ｓ", "s"
k|;a"56F ConvertWidth "ｔ", "t"
JxVGzb`8 ConvertWidth "ｕ", "u"
Vl_6nY; ConvertWidth "ｖ", "v"
gFaZ ._ ConvertWidth "ｗ", "w"
}1#m+ (; ConvertWidth "ｘ", "x"
Hv;xaT<}V
ConvertWidth "ｙ", "y"
GHv6UIe& ConvertWidth "ｚ", "z"
x=*&#; Y| ConvertWidth "Ａ", "A"
*Soi ConvertWidth "Ｂ", "B"
R$&; ConvertWidth "Ｃ", "C"
m. <_WXH ConvertWidth "Ｄ", "D"
B!RfPk1B<* ConvertWidth "Ｅ", "E"
u zZ|0 ConvertWidth "Ｆ", "F"
U^PXpNQ' ConvertWidth "Ｇ", "G"
o#qdgZ ConvertWidth "Ｈ", "H"
<F
9-$_m ConvertWidth "Ｉ", "I"
Hx#YN*\.M ConvertWidth "Ｊ", "J"
qTuR[( ConvertWidth "Ｋ", "K"
Mq>
4! ConvertWidth "Ｌ", "L"
6"-$WUlg ConvertWidth "Ｍ", "M"
nb_/1 {F ConvertWidth "Ｎ", "N"
$ f :uBhM ConvertWidth "Ｏ", "O"
r^
r+h[V ConvertWidth "Ｐ", "P"
_}R$h=YD ConvertWidth "Ｑ", "Q"
^6W} ZLp ConvertWidth "Ｒ", "R"
k~[jk5te ConvertWidth "Ｓ", "S"
LK'(OZ ConvertWidth "Ｔ", "T"
H{}&|;0 ConvertWidth "Ｕ", "U"
+ #IUn ConvertWidth "Ｖ", "V"
P+CV4; Xz ConvertWidth "Ｗ", "W"
p $Tk;;wm ConvertWidth "Ｘ", "X"
j97+'AK X ConvertWidth "Ｙ", "Y"
^|/mn!7wD ConvertWidth "Ｚ", "Z"
?mH=3
:~ ConvertWidth "^l", "^p"
ifn=De3+ ConvertWidth "（", "("
zhJeTctRz ConvertWidth "）", ")"
O nXo0PV/( o#m31* o End If
{i t.F4. D6ZHvY8R With ActiveDocument
MdBmq/[O Dim tbl As Table
oG,>Pk For Each tbl In .Tables
O,%UNjx9K tbl.Rows.Alignment = wdAlignRowCenter
mE~ WE+lw9 tbl.Range.Font.NameFarEast = "楷体"
y [Vd*8 tbl.Range.Font.NameAscii = "Times New Roman"
u&~Xgq5[ tbl.Range.Font.Size = 10.5
5_9`v@-4_ Next
}3z3GU8Q- Set tbl = Nothing
X'OpR End With
k0V ri$x
u$?! A'EI1_3{ With ActiveDocument
{K|?i9 K +`>7cy%cZ For i = 1 To .TablesOfContents.Count
m>uG{4< - .TablesOfContents(i).Delete
MHwfJ {"zo Next
W|< c [S KM &P5 } 8^_:9
&) i -ssb| r paraTotal = .Paragraphs.Count
' o&d!
paraCounter = 1
S* l/
Sa@ D`XXR}8V LastTitle0No = 0
;@; a eu LastTitle1No = 0
w
UvE LastTitle2No = 0
? 2}%Rb39 LastTitle3No = 0
S?v/diK ]J LastTitle4No = 0
H; `F}qQ3 LastTableNo = 0
l,|Llb LastFigureNo = 0
C PZ{ S K}jhm
"y Dim Sec As Long
Fo3*PcUv ,i_+Z
|Ls Sec = InputBox("正文从第一节开始？", "节设置", 6)
;f%@s1u If Sec = 0 Then
=1[_#Moc6 Exit Sub
Zfs-M) End If
8~U
^G[! ?0~g1"Y-*K k = 0
ykQb;ZP8jh Do While (paraCounter < paraTotal) And bContinue
qT
?{ }I k = k + 1
~W @d F~r If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then
OP!R>| Exit Do
(aYu[ML End If
`n>/MY paraCounter = paraCounter + 1
cyNE} If k Mod 20 = 0 Then
O/eZ1YAC Me.lbCounter.Caption = paraCounter
?;tPqOs& DoEvents
z$&B7? End If
|5flvkid Loop
s8
WB!x {t Y%i<~"k CD J@Tdp Do While (paraCounter < paraTotal) And bContinue
rl.K{Uad | V(sCF ParaText = Trim(.Paragraphs(paraCounter).Range.Text)
7nPg2K& ShapeHeight = 0
59nRk}^$se ShapeWidth = 0
]*NYuE gc @,<jPR. CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth
/3)\^Pof HD< $0M| Select Case ParaType
#JYl%= #, Case "【】表格内容"
C2<TR PT .Paragraphs(paraCounter).Style = "QLNU表格内容"
:s_o'8z7L Case "章"
q%,86A> LastTitle0No = LastTitle0No + 1
knO
X5UnS '新一章开始，复位其下属标题编号
gb,ZN^3<- LastTitle1No = 0
ltOS()[X LastTitle2No = 0
g:uVl;> LastTitle3No = 0
P 0\`4Cr! LastTitle4No = 0
!$n@:W / bofI0f}5. k = Val(ttNo)
La6
9or If k = 0 Then '非数字编号章节
&_3#W.w~Z If ttNo <> NoSeries1(LastTitle0No) Then
@*rMMy 4 rText = "第" & NoSeries1(LastTitle0No) & ttString
|2'WSAWG Me.ErrMsg.AddItem "章节编号错误：" & ParaText
jA "}\^%3 End If
D@p{EH Else
fDYTupKXH If Val(ttNo) <> LastTitle0No Then
POk5+^ rText = "第" & LastTitle0No & ttString
R\cx-h* Me.ErrMsg.AddItem "章节编号错误：" & ParaText
Um/l{:S End If
OK4 r ) :G6 C WE End If
09 McUR@ 3^KR{N p '章段落设置
9{(q[C5m '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅
# j7&2L .Paragraphs(paraCounter).Style = "QLNU章节"
i).Vu}W#S .Paragraphs(paraCounter).Range.Select
MO0t Selection.EndKey unit:=wdLine
yoGG[l2k>s tc = Replace(rText, vbCr, "")
& *tL)qKDc Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False
=9TwBr.CJ Case "一级标题"
DD/ B\ LastTitle1No = LastTitle1No + 1
`Fcr `[ '新一级标题开始，复位其下属标题编号
"(jD*\8x LastTitle2No = 0
bB0/ FiY7o LastTitle3No = 0
0;x&\x7K LastTitle4No = 0
W7C1\'T
~> )>hy) If ttNo <> NoSeries1(LastTitle1No) Then
_#M4zO 7 rText = NoSeries1(LastTitle1No) & "、" & ttString
a6zWg7 PN Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText
5ppr ;Q aB End If
,i6U* Qc Wg ~_ i=hx '一级标题段落设置 格式：一、标题内容
m s3" .Paragraphs(paraCounter).Range.Text = rText
7x.j:{2 .Paragraphs(paraCounter).Style = "QLNU一级标题"
yVVyWte, .Paragraphs(paraCounter).Range.Select
Dlz0*eHD Selection.EndKey unit:=wdLine
v,opyTwG| tc = Replace(rText, vbCr, "")
$<nD-4p Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False
O!>#q4&] Case "二级标题"
xV
sI#`<a LastTitle2No = LastTitle2No + 1
h% >ZN-K) '新二级标题开始，复位其下属标题编号
#
Ey_.4S LastTitle3No = 0
,fiV xn Q LastTitle4No = 0
qJ5b ;= F&`%L#s| If ttNo <> NoSeries1(LastTitle2No) Then
L V ]10v6 rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString
&W3srJo ErrMsg.AddItem "二级标题编号错误：" & ParaText
t[;-gi,, End If
5OPvy,e6 G5
|nt#> '二级标题段落设置 格式：(一)、标题内容
#e =E .Paragraphs(paraCounter).Range.Text = rText
L_ T+KaQCH .Paragraphs(paraCounter).Style = "QLNU二级标题"
^PC;fn,I 7%$3`4i`O .Paragraphs(paraCounter).Range.Select
<FR!x#!
Selection.EndKey unit:=wdLine
f#Ud=& >j tc = Replace(rText, vbCr, "")
o5Rv xGN Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 2 ", PreserveFormatting:=False
x ?rd9c / \qzTo Case "三级标题"
.Erv\lv* LastTitle3No = LastTitle3No + 1
l ?b*T#uIk '新三级标题开始，复位其下属标题编号
'_Q';T_n99 LastTitle4No = 0
)Ko~6 .:5H z(,j)". If Val(ttNo) <> LastTitle3No Then
+P +h$gQ rText = LastTitle3No & ". " & ttString
Lo}T%0"G Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText
rR
^o "*HEXru#B End If
^:$ShbX"P '三级标题段落设置 格式：1. 标题内容
cxQ %tL+S& .Paragraphs(paraCounter).Range.Text = rText
XFWE^*e=B .Paragraphs(paraCounter).Style = "QLNU三级标题"
@-
0mE_$[ .Paragraphs(paraCounter).Range.Select
OI0@lSAo
< Selection.EndKey unit:=wdLine
'I}wN5` tc = Replace(rText, vbCr, "")
@/N]_2@8; Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 3 ", PreserveFormatting:=False
v6wg,,T Case "四级标题"
n gJ{az LastTitle4No = LastTitle4No + 1
]):>9 q$C '
Hj([N If Val(ttNo) <> LastTitle4No Then
fg , vTpBk rText = "(" & LastTitle4No & "). " & ttString
<
}.!G>X ErrMsg.AddItem "四级标题编号错误：" & ParaText
45
BpZ~- E|oOd<z End If
{|0Y
cL '四级标题段落设置 格式：(1). 标题内容
OK-*TPrc .Paragraphs(paraCounter).Range.Text = rText
T+gH38! e .Paragraphs(paraCounter).Style = "QLNU四级标题"
YHY*dk*|C .Paragraphs(paraCounter).Range.Select
yzl}!& E Selection.EndKey unit:=wdLine
)b%zYD9p tc = Replace(rText, vbCr, "")
QxbG-B^)= Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 4 ", PreserveFormatting:=False
x8c>2w;6x^ toU<InN Case "表格标题"
EqBTN07dZS LastTableNo = LastTableNo + 1
v.sjWF @+
T33X)h% If ttNo <> CStr(LastTableNo) Then
O9<oq rText = "表" & LastTableNo & ". " & ttString
sSk qU ErrMsg.AddItem "表格编号错误：" & ParaText
?Vh#Gr }Q9+krrow End If
7wY0JS$fz rmC7!^ / '表格名称段落设置 格式：表1. 表格名称
Rxr?T- .Paragraphs(paraCounter).Style = "QLNU表格标题"
c M<08-:v xe = Replace(rText, vbCr, "")
4Wvefq" .Paragraphs(paraCounter).Range.Select
dEI!r1 ~n Selection.MoveEnd wdCharacter, -1 '选择范围包括行尾的换行符。
[_ uT+q3 Selection.Range.Text = xe
GbQg(%2F Selection.EndKey
"9X!Ewm"P Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False
Pd; 8<UMk Kv:.bHN} Case "表格首行"
pI. 8Ip_r .Paragraphs(paraCounter).Style = "QLNU表格首行"
u^i3 @JuX Case "图片标题"
n'j}u LastFigureNo = LastFigureNo + 1
:)4c_51 ` Z:<wB#G If ttNo <> CStr(LastFigureNo) Then
n``9H 91 rText = "图" & LastFigureNo & ". " & ttString
#Ry
Ta
/L ErrMsg.AddItem "表格编号错误：" & ParaText
)Pc>+} D 2[1t
)EW End If
F.@|-wq& '图片名称段落设置 格式：图1. 图名称
p1.3)=T .Paragraphs(paraCounter).Range.Text = rText
B7Zi|-F .Paragraphs(paraCounter).Style = "QLNU图片标题"
+~:OUR*> .Paragraphs(paraCounter).Range.Select
b&Laxki Selection.EndKey unit:=wdLine
2dB]Lw@s xe = Replace(rText, vbCr, "")
K:VZ#U(_ Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False
B> S> t5$ Case "正文"
C
Qmozh- '正文名称段落设置
^U*1_|Jh .Paragraphs(paraCounter).Style = "QLNU正文"
\J#&]o)Y Case "文献条目"
;;C2t&( With .Paragraphs(paraCounter)
uvR l`"Y '.Range.Select
x|c_( 'Selection.ClearFormatting
Hj `\Fm*A '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator 'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ”
cdGBo4 .Style = "QLNU参考文献"
V_e End With
RU/SJ 1wM" Case "图表注解"
I#]p k! With .Paragraphs(paraCounter)
(!efaj .Range.Font.NameFarEast = "楷体"
>o3R~ [ .Range.Font.NameAscii = "Times New Roman"
4MzPm ~Ct .Range.Font.Size = 9 '小5号字
}}rp/16 e7-IqQA{3C .Alignment = wdAlignParagraphCenter
9@mvG^ .LeftIndent = 0
5yj# 9H .RightIndent = 0
\"L0d1DK) .FirstLineIndent = 0
+T4}wm .LineSpacing = 12
Q`;eI
a6U .LineSpacingRule = wdLineSpaceExactly
WWOt>C~zV .LineUnitAfter = 0
r=7!S 8' .LineUnitBefore = 0
jS8
B:> .OutlineLevel = wdOutlineLevelBodyText
[#G*GAa6* .PageBreakBefore = False
^wwS`vPb .RightIndent = 0
@J qo'\~& .WordWrap = True
M0?%r` .LineUnitAfter = 0.5
ly_8p63- A>mk0P)~Q End With
G^.tAO5:f Case Else
>lyE@S s
A '不作处理
0r i End Select
8<ev5a
f SXE@\Afj '含有inlineshape的段落处理
(c"!&&S^ = If ShapeHeight > 30 Then
q
\fyp\z .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle '对有图片的段落设置为单倍行距
=[ Z3]#h End If
G;[O~N3n. l,3,$ If (ShapeWidth + ShapeHeight) > 150 Then
darbL_1 .Paragraphs(paraCounter).Style = "QLNU图片段落"
5}! 36SO\ End If
5:5d=7WX ^
uwth '段落计数器递
Aeo=m}C; paraCounter = paraCounter + 1
9x8Vsd Me.lbCounter.Caption = "当前检测段落：" & paraCounter
%BT]h3dcSS Me.txtStatus.Text = ParaText
u~JR]
T DoEvents
^^n (s_g Loop
u
i$4 End With
Bu?Qy z2O m6}_kzFz msg = ""
!mB
`F C
L`w r~E2u For i = 0 To Me.ErrMsg.ListCount - 1
O
9M?Wk
: msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i)
E`C !q
X> Next
suFk<^3 f#m@eb wq!9wk9 f8=qnY2j Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg
W/ WP }QM Me.cmdCheck.Enabled = True
MU2kA&LH Me.txtStatus.Visible = True
"^ BA 5 Me.lbParaType.Visible = False
L:mE)Xq2 % WXl * bContinue = False
Z(t O]tQE End Sub
Nq\)o {<1 CR2.kuM0~ 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)
,{msJyacmR Dim pTEXT As String
v@8SMOe % * 8;< w~ pTEXT = ChKRange.Text
U 0~BcFpD c; -N RvVb ParaType = "其它"
F$| :'#KN TitleString = pTEXT
/YU8L TitleNo = "N/A"
x?u@
j7[ -)Vy)hD, shpCounter = ChKRange.InlineShapes.Count
bwP@ }(K If shpCounter <> 0 Then
f}4A ,%:1 MaxShpHeight = 0: TotalShpWidth = 0
H INk&)FC For i = 1 To shpCounter
c&wiTvRV k = ChKRange.InlineShapes(i).Height
!wfUD2 K1 l = ChKRange.InlineShapes(i).Width
aaN/HE_ If k > MaxShpHeight Then
k\*?<g MaxShpHeight = k
HkhZB^_V End If
vlZmmQeJm TotalShpWidth = TotalShpWidth + l
V
EsM Next
b\o> 4T If MaxShpHeight > 60 Or TotalShpWidth > 150 Then
Ie=gI+2 Exit Sub
xx7&y !_ End If
uV@' 898%5 End If
s6 (md<r Q)M-f;O '空行
Q*1'k %7 If Len(pTEXT) <= 2 Then
^-mW k?> Exit Sub
_5(p=Zc End If
matm>3n *<SXzJ( ,)J>8e V '是否为表格中的文字
C!+PBk [9 If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then
qp#Euq6 ParaType = "表格内容"
]GCw3r(! k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber)
-b8SaLak If k = 1 Then
)D'# >!Y ParaType = "表格首行"
z[R
dM#L End If
i[FYR;C Exit Sub
{}iS5[H] End If
@"/H
er !Y7$cU &
'例外情况：脚注
'Z9UqEGV If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then
DKem;_6OQ ParaType = "脚注"
/YJBRU2 Exit Sub
0c!^=( End If
pr4y*!|Y$ )1@%!fr '例外情况：尾注
n&|N=zh If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then
; !t?* ParaType = "尾注"
b2[U3)|oO Exit Sub
1uG)U)y/Q End If
N =T } w\N\J^5,Q If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then
SK@ p0: ParaType = "页眉页脚"
Z,O-P9jC Exit Sub
ya^8mp- End If
/0|1xHs fG
s\R] >t'A1`W With regEX
0]MD ?6 - .Global = True
+_S0 yENAc sv .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$"
j;D$qd'J If regEX.Test(pTEXT) Then
7
<]YK`a2d ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3")
T@ #?{eA TitleString = regEX.Replace(pTEXT, "$3")
Z(R0IW TitleNo = regEX.Replace(pTEXT, "$1")
<
]+Mdy ParaType = "章"
:
) B1|1 Exit Sub
C0Fd< |[ End If
xt "-Jmox 0L#i c61U .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$"
=ONM#DxH If regEX.Test(pTEXT) Then
-JPkC(V7] ParaType = "一级标题"
<n~.X<6V' regEX.Execute (pTEXT)
g N [t ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3")
4tUt"N TitleString = regEX.Replace(pTEXT, "$3")
@W$ha
y TitleNo = regEX.Replace(pTEXT, "$1")
S*J\YcqSC Exit Sub
ed_+bCNy End If
88[u^aC ;/ ?w-)n? '全角或半角括号中的数字
yIngenr$ .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$"
EK0~ 3HSZ If regEX.Test(pTEXT) Then
3W#E$^G_v ParaType = "二级标题"
6biR5&Y5U& regEX.Execute (pTEXT)
4t/ ?b ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5")
nec}grA TitleString = regEX.Replace(pTEXT, "$5")
$9X?LGUz TitleNo = regEX.Replace(pTEXT, "$2")
h?B1Emlq Exit Sub
#^9k&t#!6 End If
.v'`TD).6 EowzEGq!a5 '阿拉伯数字 1. 2.
0CXXCa7! .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$"
:5T=y @ If regEX.Test(pTEXT) Then
<Uf`'X\e6 ParaType = "三级标题"
bXXX-X c regEX.Execute (pTEXT)
R~[~(`/S ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测
a&)!zhVP TitleString = regEX.Replace(pTEXT, "$3")
;YMg 4Cs TitleNo = regEX.Replace(pTEXT, "$1")
}opMf6`w Exit Sub
8==M{M/eM End If
/Lm~GmPt :(yu t '全角或半角括号中的阿拉伯数字
di9OQ*6a7 .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$"
[cznhIvyO If regEX.Test(pTEXT) Then
CAom4 Sp' ParaType = "四级标题"
0nB[Udk? regEX.Execute (pTEXT)
0_+
& [g} ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5")
5|Z8UzL TitleString = regEX.Replace(pTEXT, "$5")
qIQ
61>< TitleNo = regEX.Replace(pTEXT, "$2")
cwtlOg Exit Sub
*HGhm04F{ End If
@H+L1H% 9n B|$o.$5 '表格名称
yuJ>xsM .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$"
7j&EQm5\9 If regEX.Test(pTEXT) Then
7w8 UnPuM ParaType = "表格标题"
;E.f% regEX.Execute (pTEXT)
mQ`2c:Rn&7 ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3"))
s] ;P< TitleString = Trim(regEX.Replace(pTEXT, "$3"))
e m )%U TitleNo = Trim(regEX.Replace(pTEXT, "$1"))
N1. 1 strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换
um_J%v6ER Exit Sub
\awkt!Wa
End If
8d Fqwpw8 *f>\X[wN '图片名称
\QF0(*!! .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$"
S&] r6 ss If regEX.Test(pTEXT) Then
W$;qh B ParaType = "图片标题"
Gx}`_[- regEX.Execute (pTEXT)
gV h&c 4 ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3")
T9]0/> TitleString = regEX.Replace(pTEXT, "$3")
A8ef=ljM? TitleNo = regEX.Replace(pTEXT, "$1")
Eaxsg Exit Sub
3k(tv U+eC End If
_29 wQn@ ] Q{'4,J-w '参考文献
p$jAq~C .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})" '[数字]、
Yl"CIgt If regEX.Test(pTEXT) Then
2*#i/SE_ ParaType = "文献条目"
g"Ueo'd* 'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4")
U @n5:d= 'TitleNo = regEX.Replace(pTEXT, "[$2] ")
W ;+()vC Exit Sub
K `<HZK End If
8JF<SQ :Mh\;e
prfx = Left(pTEXT, 2)
wpi$-i` If prfx = "注：" Or prfx = "注:" Then
Jm g9|g!f ParaType = "图表注解"
_FcTY5."S Exit Sub
f5un7,m End If
(3! 6nQj-t ZUS5z+o e<a*@
P, ParaType = "正文"
]vs}-go (&r`
l&0 End With
d]^ m^ End Sub
"%a<+D W(4 $.uZ) Sub ConvertListToOrdinary()
$ o\z4_I Dim st As Paragraph
5/h-H r With ActiveDocument
CQa8I2VF
( For i = .Paragraphs.Count To 1 Step -1
AL,7rYZG$ Set st = .Paragraphs(i)
r%ebC lst = st.Range.ListFormat.ListString
L Yd:S If lst <> "" Then
7gB?rJHV, st.Range.ListFormat.RemoveNumbers
FeO1%#2<y st.Range.InsertBefore lst & " "
xJU]py~o End If
.8 %b;b Next
bqA `oR b\ End With
S&Xl Mu Set st = Nothing
[uHC
AP End Sub
mT UoFXX[ t?PqfVSq Private Sub UserForm_Activate()
Buh}+n2]5 Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节"
:&'jh/vRN Me.lbTotal.Font.Bold = True
&.s.g\ Me.txtStatus.Visible = False
UQ7]hX9
Me.cmdCheck.Enabled = True
r7R.dD /. a8ouk7 G End Sub
p9u'nDi 3RvD
X p c?}G;$ Sub CheckSuperScript()
>b=."i Selection.Find.ClearFormatting
&n
I>`Q' Selection.Find.Replacement.ClearFormatting
PeqW+Q. With Selection.Find
.j^BW r .Text = "[【\[［〖](*)[】\]〗］]"
}' Y)"8AIA .Replacement.Text = "[\1]"
Q 3^h .Replacement.Font.Superscript = True
+ r;t] '.Replacement.Font.Color = wdColorBlue
`zw % .Forward = True
rKFnivGT .Wrap = wdFindContinue
yZgWFf.X .FORMAT = True
qnWM %k .MatchCase = False
>qr/1mW .MatchWholeWord = False
mf{M- (6' .MatchByte = False
t6mv .MatchAllWordForms = False
y06*
*f) .MatchSoundsLike = False
xfI0P0+ .MatchWildcards = True
/BQqg0 8@L End With
B]() Selection.Find.Execute Replace:=wdReplaceAll
*l"CIG' End Sub
UA2 KY}pz5 *x]*% Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
* V\.6,^v bContinue = False
]$9y 7Bhj. Set regEX = Nothing
/je
$+ End Sub
5p:BHw;%; oaPWe M+
Sub CeateOrModifyStyle()
2fu<s^9dh '
YwF&-~mp7n '
Yo' Y-h# Dim stl As Style
$0 vT_ lz<'
L.
. Options.Pagination = False
P2aFn=f Cc%{e9e* On Error Resume Next
(jj`}Qe3U For Each stl In ActiveDocument.Styles
=H;'.!77Hx stl.Delete
f sw[ R0B Next
!Qb uOvw On Error GoTo 0
p'%S{v@5(( |#< z\u } Set stl = Nothing
U.I
w/T-5 |3T2}oh rr DoEvents
C,$o+q*)W9 On Error Resume Next
G8%VL^;O*5 >1Hv c7DP ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph
`sso Wn4 |&W4Dk n ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph
G7v<Q,s ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph
%D:VcY9OC hxM{}}. E ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph
oPni4^g i ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph
#Ktk[ "6 _kMHF ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph
}+pwSjsno ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph
T`U p%5Dk ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph
hi/d%lNZ ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph
x0ipk} ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph
%*npL Di ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph
' 7oCWHq[ ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph
K?! W9lUq wuYak"KX ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph
6_u!{ ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph
V]+y*b.60 ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph
_6r[m sH" ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph
rTVv6:L ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph
%g@\S R. 0!ZaR 6 ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph
" JLE On Error GoTo 0
%Y=r5'6l DoEvents
c^pQitPv [r3sk24 'BaseStyle
"a~r'+'< ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False
_,aFQ^]'9 With ActiveDocument.Styles("BaseStyle").Font
4 uMMf .NameFarEast = "宋体"
^-- R#$X .NameAscii = "Times New Roman"
ob2_=hQnC .NameOther = "宋体"
'\op$t / .Size = 10.5
Y%0rji .Bold = wdUndefined
T
lkhI .Italic = wdUndefined
z[<Na3] .Subscript = wdUndefined
qpCaW0]7 .Subscript = wdUndefined
&oHr]=xA lMu-,Z=" .Underline = wdUnderlineNone
:Rv+Bm .UnderlineColor = wdColorAutomatic
ji\ LC%U- .StrikeThrough = False
$Mw Bt .DoubleStrikeThrough = False
h^Yh~84T z \ONw M l .Outline = False
FGyrDRDwC .Emboss = False
1y1:<t .Shadow = False
V V}"zc^ .Hidden = False
x7<l*WQ .SmallCaps = False
#\^=3A|b .AllCaps = False
#V]8 FW .Color = wdColorAutomatic
v^s ?=9 .Engrave = False
' /6f2[%Y" .Scaling = 100
_b -g^#L% .Kerning = 1
G"-V6CA[ .Animation = wdAnimationNone
`5wiXsNjLY .DisableCharacterSpaceGrid = False
c_+fA .EmphasisMark = wdEmphasisMarkNone
U\qbr.< End With
4^:dmeMZ` With ActiveDocument.Styles("BaseStyle").ParagraphFormat
L?j
<KW .LeftIndent = 0
<8kCmuGlk .RightIndent = 0
R 13k2jLSQ .SpaceBefore = 0
41Q)w=hoN .SpaceBeforeAuto = False
>Ovz; .SpaceAfter = 0
% 33O)<? .SpaceAfterAuto = False
S,Q^M
)$ G!I5Er0pdy .LineSpacingRule = wdLineSpaceSingle
DeNWh 2 .Alignment = wdAlignParagraphJustify
.$W} z;?jKE p .WidowControl = False
?6&G:Uz/ .KeepWithNext = False
6|f8DX%3V .KeepTogether = False
gzSm=6Qw0 .PageBreakBefore = False
8,[ *BgeX .NoLineNumber = False
YLA(hg|
q. Jx|x .FirstLineIndent = CentimetersToPoints(0)
JU5,\3Lz# .OutlineLevel = wdOutlineLevelBodyText
i V ?8'^ .CharacterUnitLeftIndent = 0
I ZLCwaW .CharacterUnitRightIndent = 0
H!X*29nX .CharacterUnitFirstLineIndent = 0
:{Z%dD .LineUnitBefore = 0
bCC &5b .LineUnitAfter = 0
HpIi- Es7C .AutoAdjustRightIndent = True
!> +Lre@ .DisableLineHeightGrid = True
p"~@q} 3 - ry .FarEastLineBreakControl = True
v@yqTZ .WordWrap = True
p=> +3 .Hyphenation = False
( 2L ,m JBJ?|}5k4c .HangingPunctuation = True
O{\<Izm`D .HalfWidthPunctuationOnTopOfLine = True
Q$]1juqg .AddSpaceBetweenFarEastAndAlpha = True
Hf_
p
e .AddSpaceBetweenFarEastAndDigit = True
uuF~+=.| .BaseLineAlignment = wdBaselineAlignBaseline
/|U bYe, End With
|Z
ifrkD= ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False
=EA @ ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll
vf<Dqy <M. ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese
047PlS ActiveDocument.Styles("BaseStyle").NoProofing = False
;y@zvec4 1D8S }=5& '一级标题题样式
4xal m ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
bf2n%- &9g ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle"
L / WRVc6 ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False
O NcL hwH With ActiveDocument.Styles("QLNU一级标题").Font
BxlhCu .NameFarEast = "黑体"
Et-|[ eL .NameAscii = "Arial Black"
JLo E)\Mi .NameOther = "黑体"
piIz ff .Name = "黑体"
z2, NWmP|w .Size = 16 '三号
n Xb_\ 9E .Bold = True
-#/ DK .Italic = wdUndefined
2
V \hG?< .Subscript = wdUndefined
Je 9Z:s[ .Superscript = wdUndefined
#4LTUVH End With
Nv;'Ys P With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat
,%xat`d3,3 7]5~ml3: .LeftIndent = CentimetersToPoints(0)
J>#yA0QD2 .RightIndent = CentimetersToPoints(0)
bDh 4p ]lm .FirstLineIndent = CentimetersToPoints(0)
PyHL`PZZ )z z{~Cf .LineSpacingRule = wdLineSpaceSingle
}93FWo. .Alignment = wdAlignParagraphCenter
v*JKLA v< 2,OcH .WidowControl = True
z@\mn .KeepWithNext = True
H\<0{#F .KeepTogether = True
A&v Qtd .OutlineLevel = wdOutlineLevelBodyText
Z"w}`&TC$^ #<m2Xo?d] .LineUnitBefore = 0.5
(0LA. aBIf .LineUnitAfter = 0.5
04v
~ K End With
2|RoN)% ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False
#Y-_ kQV* ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll
~~k0&mK|Q ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese
wG)[Ik6: ActiveDocument.Styles("QLNU一级标题").NoProofing = True
d$+0 ;D4E DoEvents
Z> Rshtg uTrzC+\aU '二级
i(.PkYkaq ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
q8/k $5E ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle"
/`aPV"$M ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False
<im}R9eJ1 With ActiveDocument.Styles("QLNU二级标题").Font
r^rk@W;[ .NameFarEast = "黑体"
7z E1>. .NameAscii = "Arial Narrow"
( )ldn?v .NameOther = "黑体"
/@&o%I3h .Name = "黑体"
=X[?d/[ .Size = 15 '小三号
o(l %k},a .Bold = False
= B;qy7? .Outline = False
s Iaehe'B .Italic = wdUndefined
_1$ Y\Y .Subscript = wdUndefined
udr|6EjD. .Superscript = wdUndefined
}u0&> k|y End With
*,O3@,+>H With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat
w ?nSQBz$ .LeftIndent = CentimetersToPoints(0)
_]Ob)RUVH .RightIndent = CentimetersToPoints(0)
hH;i_("i(h .FirstLineIndent = CentimetersToPoints(0)
G@jx&#v =+DhLH}8 .LineSpacingRule = wdLineSpaceSingle
$[MAm)c:]{ .Alignment = wdAlignParagraphLeft
3y2L! &'z hmuh q:<f .WidowControl = True
B|9XqQ EI .KeepWithNext = True
?^7X2 u$nm .KeepTogether = True
5{1=BZftZ .PageBreakBefore = False
jHatUez4O .OutlineLevel = wdOutlineLevelBodyText
7MJ\*+T|03 edlf++r~ .LineUnitBefore = 0.5
\21Gg%W5AE .LineUnitAfter = 0.5
:cXN
Fu\C .Sa=VC?EZ End With
NhF"% ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False
?g@X+!RB ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll
HEa7!h[a' ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese
gP d , ActiveDocument.Styles("QLNU二级标题").NoProofing = True
u =~`5vA DoEvents
, `a8@ ){,M v:#+T '三级标题样式
})uyq_nz ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
Y@MxKK uj ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle"
FrLv%tK| ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False
\fI05GZ With ActiveDocument.Styles("QLNU三级标题").Font
kqo4
v;
r .NameFarEast = "宋体"
N;!!*3a9= .NameAscii = "Times New Roman"
})(robBkA .NameOther = "黑体"
W[Z[o+ 7pK .Name = "黑体"
|{ZdA r.; .Size = 14 '四号
f qWme:x .Bold = False
j%Uoi
gi .Outline = False
k_?OEkgUh .Italic = wdUndefined
&P35\q .Subscript = wdUndefined
\{a5]G(4s .Superscript = wdUndefined
z}$.A9yn End With
/6y{
?0S With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat
+N2ILE8[< .LeftIndent = CentimetersToPoints(0)
&><b/,] .RightIndent = CentimetersToPoints(0)
3N2 d@R .FirstLineIndent = CentimetersToPoints(0)
I7Abf7>*Q +t g${3ti_ .LineSpacingRule = wdLineSpaceSingle
7aPA+gA/ .Alignment = wdAlignParagraphLeft
ta x:9j|~ NzM ,0q .WidowControl = True
).e}.Z6[i` .KeepWithNext = True
yqtHlz% .KeepTogether = True
q?]K
Z_a .PageBreakBefore = False
4sH?8
5=j .OutlineLevel = wdOutlineLevelBodyText
+eLL )uk QpoC-4F .CharacterUnitLeftIndent = 0
D88IU9V&n .CharacterUnitRightIndent = 0
OBF-U]?Y .CharacterUnitFirstLineIndent = 2
7' {Vh{. rqm":N8@ .LineUnitBefore = 0.5
u:l<NWF^ .LineUnitAfter = 0
TPKD'@:x End With
^x^(Rk}| ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False
q%v el.L]% ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll
pSYEC, 0B ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese
[ fvjvN` ActiveDocument.Styles("QLNU三级标题").NoProofing = True
P ( Y\l DoEvents
CMv8n@ry -* J !Ws(9 '四级标题样式
? `kZ 6$ ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
/"~UGn]R ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle"
%i?v)EW ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False
swJ QwY With ActiveDocument.Styles("QLNU四级标题").Font
{KEmGHC4R .NameFarEast = "宋体"
$cm 9xW& .NameAscii = "Times New Roman"
=kK%,Mr .NameOther = "宋体"
m,]9\0GUd .Name = "宋体"
pbWjTI $ .Size = 12 '小四号
dShGIH? .Bold = True
ty%,T.@e .Outline = False
q3K}2g .Italic = wdUndefined
\ZE
=WvnhZ .Subscript = wdUndefined
}m Ub1b .Superscript = wdUndefined
[[';Hi^ End With
Qr6PkHU With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat
UYW'pV V
joVC$ZX .LeftIndent = CentimetersToPoints(0)
C,LosA d .RightIndent = CentimetersToPoints(0)
.XkVdaX .FirstLineIndent = CentimetersToPoints(0)
eC6wrpZO #67 7,dn .LineSpacingRule = wdLineSpaceSingle
I};*O6D` .Alignment = wdAlignParagraphLeft
*1_Ef). +/ M%%:>mY .WidowControl = True
TK~ KM .KeepWithNext = True
;3bUgI}.J .KeepTogether = True
~>~qA0m"m .PageBreakBefore = False
,69547#o .OutlineLevel = wdOutlineLevelBodyText
em- <V5fb U. $Th_ .CharacterUnitLeftIndent = 0
@*UV|$~(Q .CharacterUnitRightIndent = 0
:c8d([)$ .CharacterUnitFirstLineIndent = 2
# M!1W5# K,U 8 vc .LineUnitBefore = 0
o Qo5y_o~ .LineUnitAfter = 0
|}<Gz+E> })J}7@VPO End With
G) Y,*., ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False
]P>XXE;[ ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll
|*-<G3@ ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese
n:1Ijh
1 ActiveDocument.Styles("QLNU四级标题").NoProofing = True
`}bvbvmA DoEvents
H(M{hfa| }
*qj,8-9 '正文校式
;, \!&o6 ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle")
+~y>22
Zfg ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle"
42}8es.aa
ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False
*uy<Om With ActiveDocument.Styles("QLNU正文").Font
Ra
H1aS( PQh s^D .NameFarEast = "宋体"
[U"/A1p .NameAscii = "Times New Roman"
&rX#A@= .NameOther = "宋体"
;mwnAO .Name = "宋体"
^7=7V0>,: &" J; .Size = 12 '小四号
N qz6_! WA:r 4V .Bold = wdUndefined
\ptjnwC^O .Italic = wdUndefined
n:k4 t .Subscript = wdUndefined
P46Q3 EE
.Superscript = wdUndefined
/s=veiH K" X" 2c1o .Outline = False
# ##>0( n .Emboss = False
[/n@BK .Shadow = False
vE GI .Hidden = False
M#m;jJqON Z`ww[Tbv~ .DisableCharacterSpaceGrid = True
5nsoWqnE8 End With
Y B2gxZ With ActiveDocument.Styles("QLNU正文").ParagraphFormat
b&LAk -}[ )Z['=+ s% .LeftIndent = CentimetersToPoints(0)
L2~'Z'q .RightIndent = CentimetersToPoints(0)
g+<[1;[- .FirstLineIndent = CentimetersToPoints(0)
E7aG&K a1_ o .LineSpacingRule = wdLineSpaceExactly
Jo~fri([%Q .LineSpacing = 20
:rjfAe=s .Alignment = wdAlignParagraphLeft
/ Bh*M H 3 5L0 CM .WidowControl = False
vP? T .KeepWithNext = False
&CN(PZv .KeepTogether = False
]H\tz@
& .PageBreakBefore = False
{0-rnSjC .Hyphenation = False
-R\dg S3 m&'!^{av .OutlineLevel = wdOutlineLevelBodyText
MPw?Hp M *-Vr=e<8 x7G*xHJ .CharacterUnitLeftIndent = 0
Z;RUxe|<k .CharacterUnitRightIndent = 0
o[+t}hC[ .CharacterUnitFirstLineIndent = 2
1 v,R<1)& DGS,iRLnA .LineUnitBefore = 0
D& ~%w! .LineUnitAfter = 0
u3pFH( .SpaceBefore = 0
$z 5kA9 .SpaceAfter = 0
HSAr6h LG X+_ " .DisableLineHeightGrid = True
b`=g# B| End With
wp>
z04
ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False
WBm)Q#1 : ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll
rK:cUW0]X ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese
DZ`m{l3H ActiveDocument.Styles("QLNU正文").NoProofing = True
r `h".=oD DoEvents
UEfY'%x <c!gg7@pm '图片段落样式
urCTP.F ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle")
=_ b
/ g ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle"
zEukE A^9` ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False
/4+(e I7 With ActiveDocument.Styles("QLNU图片段落").Font
kOq8zYU| .Size = 12 '小四号
mo(>
SnS< .Italic = wdUndefined
W}MN-0 .Subscript = wdUndefined
# h4FLF_w .Superscript = wdUndefined
oDi+\0 End With
G'(rjH>q With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat
uI%7jA~@ WY!4^<|w" .LeftIndent = CentimetersToPoints(0)
CXyb8z4/+ .RightIndent = CentimetersToPoints(0)
;YW@ 3F-h .FirstLineIndent = CentimetersToPoints(0)
[+ xsX*+ A=p'`]Yld .LineSpacingRule = wdLineSpaceSingle
<yBa5m@/ .Alignment = wdAlignParagraphCenter
PB8g4-?p6 .KeepWithNext = True
u |.7w 2 .OutlineLevel = wdOutlineLevelBodyText
g%!U7CM6h R:R<Xt N`5 .CharacterUnitLeftIndent = 0
)58 ~2vR .CharacterUnitRightIndent = 0
[ K'gv Lt1 .CharacterUnitFirstLineIndent = 0
WW &Wh<4 _:p-\Oo. .LineUnitBefore = 0
P +OS .LineUnitAfter = 0
kLU-4W 5t End With
s;*
UP ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False
$60`Hh 4/ ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll
['sNk[-C ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese
Vf P\)Rl ActiveDocument.Styles("QLNU图片段落").NoProofing = True
gw[Eu >I DoEvents
9|v%bO +{I" e,Nk ,u)jZ7 '第X章
oM
Z94 , 3 ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
$AE5n >ZD$ ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle"
=adHP|
S ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False
j0a=v}j3 With ActiveDocument.Styles("QLNU章节标题").Font
(j?? .NameFarEast = "黑体"
%b4tyX:N0 .NameAscii = "Arial Black"
rPGj+wL5- .NameOther = "Arial Black"
FU
>K iBV# .Name = "黑体"
a_?b < .Size = 16
BzO,(bd!PI .Bold = True
`.3@Ki~$# .UnderlineColor = wdColorAutomatic
/wt7KL- I .Outline = False
?2dI8bG .Italic = wdUndefined
fmc \Li .Subscript = wdUndefined
P Je_qP .Superscript = wdUndefined
^ m&P0 .Scaling = 100
)7o? }"I .DisableCharacterSpaceGrid = True
Vp|?R65S* End With
3 2%Fdz1S With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat
[)~1Lu .LineSpacingRule = wdLineSpaceSingle
2 l^_OrE! .Alignment = wdAlignParagraphCenter
K5 BL4N .WidowControl = True
G'PZ=+!XO/ .KeepWithNext = True
y) CvlI .KeepTogether = True
eNVuw: Q+ .PageBreakBefore = True
_*Z3,*~"X .OutlineLevel = wdOutlineLevelBodyText
!U 1
vW}H A>2 _I) .LeftIndent = CentimetersToPoints(0)
7Zd g314 .RightIndent = CentimetersToPoints(0)
`8RKpZv& .FirstLineIndent = CentimetersToPoints(0)
g=@d!]Z~[ 9:-7.^`P .CharacterUnitLeftIndent = 0
4nh=Dq[ .CharacterUnitRightIndent = 0
@|Yn~PwKs .CharacterUnitFirstLineIndent = 0
/sT?p=[. k{N!}%*2 .LineUnitBefore = 1
b.@4yW .LineUnitAfter = 0.5
f% )9!qeW ms&1P .AutoAdjustRightIndent = False
0< vJ *z|_ .DisableLineHeightGrid = True
} e+`Kx
y .FarEastLineBreakControl = True
A1,q 3<<D% .WordWrap = True
l!&ik9 m End With
*KY:U&*
ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False
xz.Jmv ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll
xdM'v{N#m ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese
- C3 [:g ActiveDocument.Styles("QLNU章节标题").NoProofing = True
vg D+Y DoEvents
HG?+b DF4CB# '表格标题
NlKVl~_ C ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
.SER,],P ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle"
{B4qeG5 ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False
rVl 8?u y With ActiveDocument.Styles("QLNU表格标题").Font
Sp:w _;{# .NameFarEast = "楷体"
hd~#I<
8;2 .NameAscii = "Arial"
18QqZ,t .Name = "楷体"
gBc
s .Size = 10.5
CE c(2q+%i .Bold = True
#5z0~M g-X .Underline = wdUnderlineNone
qxu3y+po] .Italic = wdUndefined
[W G\w j. .Subscript = wdUndefined
dM = &?g .Superscript = wdUndefined
VwPoQ9pIS
.Color = wdColorAutomatic
liH#=C8l*% End With
{5<fvMO!6 With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat
]7
S f) wL="p) TO. .LineSpacingRule = wdLineSpaceSingle
bp= r ]nO .Alignment = wdAlignParagraphCenter
NjOUe?BQ .KeepWithNext = True
seB mhe5qR .KeepTogether = True
jHn7H)F 8 .OutlineLevel = wdOutlineLevelBodyText
e(|Z<6 2%`=
LGQC .LeftIndent = CentimetersToPoints(0)
=&$z
Nc4h .RightIndent = CentimetersToPoints(0)
/(51\RYkir .FirstLineIndent = CentimetersToPoints(0)
P~ =yT W ?Y,^Mo c: .CharacterUnitLeftIndent = 0
/:(A9b-B .CharacterUnitRightIndent = 0
}_XiRm< .CharacterUnitFirstLineIndent = 0
Z_ m<x! 4\
Xaou2V[ .LineUnitBefore = 1
x;z=[eE .LineUnitAfter = 0
Mh5
>
hD 1Z @sh>X| End With
:=ek~s.UV ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False
UF#!6"C@ ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll
9*ZlNZ
ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese
/]!2 k9u\ ActiveDocument.Styles("QLNU表格标题").NoProofing = True
9 ,`i[Dzp DoEvents
igk<]AwxS TEd 5&Z '表格首行
T>rmm7F ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle")
M>p<1`t-& ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False
/r"
< :+ With ActiveDocument.Styles("QLNU表格首行").Font
PDuBf&/e .NameFarEast = "楷体"
.7g h2 K .NameAscii = "Times New Roman"
d8w3Oz 54 .Name = "楷体"
~o"=4q`> .Size = 9
UgS`{&b36 .Bold = True
:ZIa .Underline = wdUnderlineNone
o9 "? z .Italic = wdUndefined
$m2#oI 'D .Subscript = wdUndefined
DR}I+<*%aD .Superscript = wdUndefined
1*dN. v:5 End With
&|#[.ti1 With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat
kex V~Q .LineSpacingRule = wdLineSpaceSingle
?<C(ga .Alignment = wdAlignParagraphCenter
n v@z;#& 3,{eH6,O7M .LeftIndent = CentimetersToPoints(0)
7)r]h? .RightIndent = CentimetersToPoints(0)
0
h!Du| ? .FirstLineIndent = CentimetersToPoints(0)
r D SYR\cg D^ U S2B T[k$ [ .CharacterUnitLeftIndent = -0.5
&TQ~!ZMOR" .CharacterUnitRightIndent = -0.5
<a @7's .CharacterUnitFirstLineIndent = -0.5
0 h*Le Z6i~Dy3 .LineUnitBefore = 0
Jl`^`Yv .LineUnitAfter = 0
J *$%d1 .SpaceBefore = 0
S, AxrQc .SpaceAfter = 0
4hwb]
Yz
"}*D,[C5e End With
5 k3m"* ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False
b2UDP W ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll
gI ;"P kN ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese
C`g
"Mk8 ActiveDocument.Styles("QLNU表格首行").NoProofing = True
:#^qn|{e DoEvents
eQu(3 sYb 8$\j| mN '表格内容
L4m Vk ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle")
:1j8!R5 ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False
xS/W}-dPv With ActiveDocument.Styles("QLNU表格内容").Font
Jp]?tlT .NameFarEast = "楷体"
-
GPJ,S V> .NameAscii = "Times New Roman"
`M6"=)twu .Name = "楷体"
yef\Y3X .Size = 9
jo<x rn\ .Bold = False
c2M .Underline = wdUnderlineNone
2RX]~} .Italic = wdUndefined
EXr2d" .Subscript = wdUndefined
;98b SR/ .Superscript = wdUndefined
a- rR` End With
3U{
mC}F With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat
eb\S pdM6 .LineSpacingRule = wdLineSpaceSingle
Mp|Jt .Alignment = wdAlignParagraphCenter
',0:/jSz e>Z& 0lV: .LeftIndent = CentimetersToPoints(0)
<Q9l'u]3$c .RightIndent = CentimetersToPoints(0)
y2#>a8SRS .FirstLineIndent = CentimetersToPoints(0)
rtJER?A kWZY+jyt P .CharacterUnitLeftIndent = -0.5
dnoF)(d&Cm .CharacterUnitRightIndent = -0.5
B\c_GX Uw .CharacterUnitFirstLineIndent = -0.5
?I[8rzBWU .LineUnitBefore = 0
z0< E3t .LineUnitAfter = 0
WT<}3(S'? .SpaceBefore = 0
O?Bf (y .SpaceAfter = 0
CE`]X;#y End With
K_)~&Cu*' ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False
nXLz <wE ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll
F8?2+w@P ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese
V RQ`-# ActiveDocument.Styles("QLNU表格首行").NoProofing = True
[email protected] Hl DoEvents
/x ?@M n> M8X6 !"B$Y '图片标题
[8sY E h ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
.b3h?R*& ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle"
I$t8Ko._" ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False
[q2:d^_FA With ActiveDocument.Styles("QLNU图片标题").Font
h{^v756L .NameFarEast = "楷体"
u NyN[U .NameAscii = "Times New Roman"
y%i9 b&gDd .Name = "楷体"
OA&'T*)-A6 .Size = 10.5
:C} I6v= .Bold = True
3&^hf^yg .Underline = wdUnderlineNone
x:MwM? .Italic = wdUndefined
))|d~m .Subscript = wdUndefined
Jq &Hz$L| .Superscript = wdUndefined
8c)GUx .Outline = False
yogavCD9b/ .Shadow = False
{kk% _q .Color = wdColorAutomatic
t[`LG)
End With
l[$GOLeS With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat
?pW 1}: z
.LineSpacingRule = wdLineSpaceSingle
.T9$O]:o .Alignment = wdAlignParagraphCenter
72OqXa* l&+O*=#Hh .KeepWithNext = wdUndefined
@-dGZ 5 .KeepTogether = True
v}j5G,
[- .OutlineLevel = wdOutlineLevelBodyText
2j%=o?me^p Hp=BnN .LeftIndent = CentimetersToPoints(0)
o{,I O! q .RightIndent = CentimetersToPoints(0)
M\m:H3[ .FirstLineIndent = CentimetersToPoints(0)
A
r]*?:4y[ *gwlW/%Fz .CharacterUnitLeftIndent = 0
FE!jN-#
.CharacterUnitRightIndent = 0
qKfUm:7Q_ .CharacterUnitFirstLineIndent = 0
MrHJ)x"hy ;m7G8)I .LineUnitBefore = 0
Ra|P5 .LineUnitAfter = 0
M=Ze)X\E*' End With
'cpm 4mT ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False
zX_F+"]THt ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll
Q`9c /vPU ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese
I2$DlEke ActiveDocument.Styles("QLNU图片标题").NoProofing = True
Xs052c|s DoEvents
1,+<|c)T? K`K v .4 '目录项
^^"zjl*^ ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle")
aK riO ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle"
6
H P 66B ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False
)hrsA&1w
With ActiveDocument.Styles("QLNU目录项").Font
4)w,gp .NameFarEast = "黑体"
@@o J@; .NameAscii = "Times New Roman"
3O2G+G2 .NameOther = "Times New Roman"
r&4Xf# QD6 .Name = "黑体"
tVAo o-% .Size = 10.5
] H !ru .Bold = False
'r]6 GC8Z$ .Italic = wdUndefined
L8h3kT .Underline = wdUnderlineNone
F}u'A,Hc .Color = wdColorAutomatic
(uvQ/! .Superscript = wdUndefined
Q&]|W
Xv .Subscript = wdUndefined
(Ut8pa+yX End With
9Y.(xp &vw With ActiveDocument.Styles("QLNU目录项").ParagraphFormat
!YA X .e (a_bU5) .LineSpacingRule = wdLineSpaceSingle
5,gT|4|B\g .Alignment = wdAlignParagraphLeft
D5c
8sB u?`{s88_mF .WidowControl = False
~6t!)QATnp .KeepWithNext = False
S=r0tao,!v .KeepTogether = False
ruGJZAhIA^ .PageBreakBefore = False
l{dsm1#W~ .NoLineNumber = False
e&z@yy$
.OutlineLevel = wdOutlineLevelBodyText
; R+>}6 `#ruZM066 .LeftIndent = CentimetersToPoints(0)
#!F>cez .RightIndent = CentimetersToPoints(0)
tC'E#2 .FirstLineIndent = CentimetersToPoints(0)
'z8FU~oU S<i1t[E @W .CharacterUnitLeftIndent = 0
MTtx|L\4 .CharacterUnitRightIndent = 0
uM` i!7} .CharacterUnitFirstLineIndent = 0
,<%uG6/",g wI|h9q1U .LineUnitBefore = 0
^5E9p@d"J .LineUnitAfter = 0
4C 3_ gm End With
3LET zsJ ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False
IrL%0&*h S ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll
v
^h:E ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot
6NX#= A ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese
VEh9N ActiveDocument.Styles("QLNU目录项").NoProofing = True
6U ! P8q DoEvents
i"a3POV> ^_ch%3}Im '参考文献
DSwb8q ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle")
[L+*pW+$\. ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle"
-fPi
HKJ ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False
AE7 7i,Xa With ActiveDocument.Styles("QLNU参考文献").Font
?-)!dl%N .NameFarEast = "宋体"
\:
J=tAC .NameAscii = "Times New Roman"
L=#NUNiXr .NameOther = "Times New Roman"
[=(8yUV' G .Name = "Times New Roman"
'd$RNqe .Size = 12
} e$ .Bold = False
~-zIB=TyK .Italic = wdUndefined
XZKlE
F ? .Subscript = wdUndefined
Wz' !stcp .Superscript = wdUndefined
nnj<k5 .Underline = wdUnderlineNone
Kz42 AC .UnderlineColor = wdColorAutomatic
M MFg{8 .Color = wdColorAutomatic
jvB[bS`<H .Engrave = False
0beP7} $ End With
`Qo3 7B2 With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat
X=# us7W} Jo\MDyb ] .LineSpacingRule = wdLineSpaceExactly
|) !f".` .LineSpacing = 16
1jd{AqHl .Alignment = wdAlignParagraphLeft
N 5*Q nb8 .WidowControl = False
kZG .Id .KeepWithNext = False
yIK
pyyC9H .KeepTogether = False
Vr},+Rj .PageBreakBefore = False
v`,!wS
.OutlineLevel = wdOutlineLevelBodyText
$! *>5".A PN 93.G(W .LeftIndent = CentimetersToPoints(0)
"HJ^>%ia
.RightIndent = CentimetersToPoints(0)
@KL&vm(F$ .FirstLineIndent = CentimetersToPoints(0)
0fewMS* CO`)XB6W .CharacterUnitLeftIndent = 0
BjfVNF;hk: .CharacterUnitRightIndent = 0
|;US)B8}*Z .CharacterUnitFirstLineIndent = -2
cK1^jH<| $b|LZE\bU. .LineUnitBefore = 0
Csuasi3]1d .LineUnitAfter = 0
6HK1? .SpaceBefore = 0
:u,. (INB .SpaceAfter = 0
4 -tC=>>wc s0' haU End With
Vq+7 /+2" ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False
[bHm-X] ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll
7{}E{ / ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS
^Ye
(b7Gd ActiveDocument.Styles("QLNU参考文献").NoProofing = True
@\&j3A ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese
eY :"\c3
DoEvents
<Ja&z M d2UidDU5qa '
1M&Lb. J6 ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle")
qhY+<S9 ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle"
(O+d6oT=Z2 ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False
j_2g*lQ7a With ActiveDocument.Styles("QLNU论文题目").Font
$L= Dky7 .NameFarEast = "黑体"
X\Bl?
F
.NameAscii = "Arial Black"
!=:>y WQ .NameOther = "Arial Black"
l4 8$8Mgrr .Name = "Arial Black"
Ts
!g=F .Size = 16
h]s6)tI I .Bold = False
44*#qLN .Italic = wdUndefined
gw"c Xny .Superscript = wdUndefined
3l?|+sU >O .Subscript = wdUndefined
Hq}g1?b .Underline = wdUnderlineNone
1]:,Xa+|S .UnderlineColor = wdColorAutomatic
SvSO?H!- .Color = wdColorAutomatic
>"2jCR $/ [gBf1,bK End With
zTcz+3x With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat
!-}Q{<2@W .LineSpacingRule = wdLineSpaceSingle
&"%Ws{Qn] .Alignment = wdAlignParagraphCenter
A8& @Vxdz .WidowControl = True
t?>}0\1 .KeepWithNext = True
h,Hr0^? .KeepTogether = True
`6VnL ) .PageBreakBefore = True
QWOPCoU et .NoLineNumber = False
X0
|U?Ib? .OutlineLevel = wdOutlineLevelBodyText
3tf_\E+mIi Vbv^@Kp .LeftIndent = CentimetersToPoints(0)
u9@B& .RightIndent = CentimetersToPoints(0)
B9NUafK= .FirstLineIndent = CentimetersToPoints(0)
cIw X sx
0FcDO5 ia .CharacterUnitLeftIndent = 0
sR9$=91` .CharacterUnitRightIndent = 0
= "$w8iRU .CharacterUnitFirstLineIndent = 0
CBd%}il ,Cy X*k8o .LineUnitBefore = 1
)<V!lsUx'- .LineUnitAfter = 1
<CVX[R]U } 9\_s* .BaseLineAlignment = wdBaselineAlignAuto
mj'~-$5T End With
Nl YFS?5 ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False
5&s6(?,Eu ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll
Vx<{cHQQ ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS
<)TIj6 ActiveDocument.Styles("QLNU论文题目").NoProofing = True
$^fF}y6N ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese
+=J $:/&U ActiveDocument.Styles("QLNU论文题目").NoProofing = True
s8,YQ5- DoEvents
x 4v:67_^ 5Hu[* '中文摘要
@}4>:\e s ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle")
#`
3Q4 ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle"
~Yd[&vpQ ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False
n0 l|7:Mk With ActiveDocument.Styles("QLNU中文摘要").Font
XDCm .NameFarEast = "宋体"
vE ) N6Ss .NameAscii = "Times New Roman"
)r46I $]> .NameOther = "Times New Roman"
Hes!uy .Name = "Times New Roman"
l{7}3Am6 .Size = 12
Ll=G+cw6P .Bold = wdUndefined
hhPQ.{]> .Superscript = wdUndefined
{nmu(E P .Subscript = wdUndefined
q #3T
L< .Italic = wdUndefined
y7UU'
k` .Underline = wdUnderlineNone
-
2L(])t6 .UnderlineColor = wdColorAutomatic
# QwX|x{ .Color = wdColorAutomatic
r7W.}n * End With
z~h ?"' With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat
^)9/Wz _x .LineSpacingRule = wdLineSpaceExactly
#k9&OS? .LineSpacing = 20
Dh`&B .Alignment = wdAlignParagraphLeft
SOR\oZ7 dQIF '== 6 .WidowControl = False
aaU4Jl?L .KeepWithNext = False
[UXVL}t k .KeepTogether = True
K uwh A-IL .PageBreakBefore = False
#-YbZ .NoLineNumber = False
IQ<G . .OutlineLevel = wdOutlineLevelBodyText
*}C%z( t, %m-dU .LeftIndent = CentimetersToPoints(0)
:(XyiF<Ud .RightIndent = CentimetersToPoints(0)
5Yv*f: .FirstLineIndent = CentimetersToPoints(0)
"^z%|uXkf G@DNV3Cc .CharacterUnitLeftIndent = 0
68?&`/t .CharacterUnitRightIndent = 0
ZOfv\(iJ; .CharacterUnitFirstLineIndent = 2
[l^XqD D4 .LineUnitBefore = 0
AHs%?5YTY; .LineUnitAfter = 0
X >7Pqn' Z~SAlh T End With
-E\G3/*51 ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False
{o Y"CZ2 ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll
* N$XQ {o ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS
TI3xt- / ActiveDocument.Styles("QLNU中文摘要").NoProofing = True
g
sm%4>sc ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese
:4
zPYG o ActiveDocument.Styles("QLNU中文摘要").NoProofing = True
Xd:{. AXW ActiveDocument.Styles("QLNU中文摘要").Frame.Delete
XcoX8R%U DoEvents
%B C%fVdP ]@9W19=P!P ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
p|-> z ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle"
P WS8Dpb ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False
Cl3vp_ With ActiveDocument.Styles("QLNU英文标题").Font
A~Sc ] M .NameFarEast = "黑体"
R7rM$|n=o .NameAscii = "Arial Narrow"
"&SE!3*m`I .Name = "Arial Narrow"
Y[L,rc/j .Size = 16
PV,Z@qm@^ .Bold = True
AT
I=&O` .Bold = wdUndefined
o+hp#e .Superscript = wdUndefined
dsw^$R} .Subscript = wdUndefined
q}Po)IUT`5 .Italic = wdUndefined
=k<b* 8 RTVU3 fw .Underline = wdUnderlineNone
s7yKx g+`{ .UnderlineColor = wdColorAutomatic
R^` }DlHX .StrikeThrough = False
=b$g_+ .DoubleStrikeThrough = False
)>h3IR End With
D-@6 hWh~ With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat
&PPnI(s^K .LineSpacingRule = wdLineSpaceSingle
uH$hMg .Alignment = wdAlignParagraphCenter
5P <"I[" .WidowControl = True
B)7 :*Kj .KeepWithNext = False
=T3{! \tH .KeepTogether = False
4e>f}u 5 .PageBreakBefore = False
e*'bY;8lo .NoLineNumber = False
4OM
]8I! .FirstLineIndent = CentimetersToPoints(0)
F
MCA~N .OutlineLevel = wdOutlineLevelBodyText
vfqXHc
unj ?M4ig_ .LeftIndent = CentimetersToPoints(0)
/{buFX2"} .RightIndent = CentimetersToPoints(0)
{P?Ge .FirstLineIndent = CentimetersToPoints(0)
sRT5i9TQ @XG1d)sE .CharacterUnitLeftIndent = 0
hvTc( 0;mB .CharacterUnitRightIndent = 0
*1v3x:pQ' .CharacterUnitFirstLineIndent = 0
agfDx ^, P4"BX*x .LineUnitBefore = 1
H$ nzyooh .LineUnitAfter = 1
qWK} 9HR1m 3 End With
@{qcu\sZ ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False
!Dc?9W!b ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll
HAE$Np|>a ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS
e;=R8i ActiveDocument.Styles("QLNU英文标题").NoProofing = True
xKL(:ePS ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese
ds(X[7XGW
ActiveDocument.Styles("QLNU英文标题").NoProofing = True
*H/)S 5 ActiveDocument.Styles("QLNU英文标题").Frame.Delete
aT2%Az@j DoEvents
Uot(3p!S6 _K?v^oM# ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle")
R5b,/>^'A ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle"
W\B@0Is o ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False
gAvNm[=wD2 With ActiveDocument.Styles("QLNU英文摘要").Font
):G+*3yb .NameFarEast = "宋体"
Tg
O]q4 .NameAscii = "Arial"
p rO&"t
> .NameOther = "Arial"
x 3'ANw6E .Name = "Arial"
, +BFpN' .Size = 12
o!h::j0,~ .Bold = wdUndefined
)xc1Lsrr9 .Italic = wdUndefined
Ow?~+)
4 .Superscript = wdUndefined
=UO7!vr;[ .Subscript = wdUndefined
]NaH *\q End With
1y [~xxgE I|*<[/)]y With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat
x!I@cP#O N@0/=B[n .LineSpacingRule = wdLineSpaceExactly
ZWyf.VJ .LineSpacing = 20
Z5r
L .a&
rY Puo .Alignment = wdAlignParagraphJustify
dj0
84q7 |7|'J Ty .WidowControl = False
sifj
mNP .KeepWithNext = False
GKg #nXS .KeepTogether = False
dW/(#KP/+ .PageBreakBefore = False
9Q(Lnu .NoLineNumber = False
*RJD^hu _ @\-`>J .OutlineLevel = wdOutlineLevelBodyText
B[sI7D>Y SKf
;Fe
.LeftIndent = CentimetersToPoints(0)
@&H Lm^j2O .RightIndent = CentimetersToPoints(0)
% m lH .FirstLineIndent = CentimetersToPoints(0)
*9KT @"v |C./gdq .CharacterUnitLeftIndent = 0
SgQmR #5 .CharacterUnitRightIndent = 0
w@P86'< v .CharacterUnitFirstLineIndent = 2
|LIcq0Z l{r HXST| .LineUnitBefore = 0
b6e 2a/x .LineUnitAfter = 1
nUq@`G Ld:-S,2 End With
g[b;1$ ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False
;(E]mbV'= ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll
6G4~ -_ ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS
a)Ht (*/B ActiveDocument.Styles("QLNU英文摘要").NoProofing = False
M Ir[_ DoEvents
M& Q&be
84 h{yh}04P1 Options.Pagination = True
9_*3xu<7i Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....."
ow (YgM>t DoEvents
@?tR-L<u ActiveDocument.Repaginate
rr1,Ijh{D :p<:0W2! End Sub
S5m.oHJI* : [?7,/w ^,'KmZm=
