Dim bContinue As Boolean
N$!
Vm(S M0K+ Vz= Dim regEX As New RegExp
(5h+b_eB Dim paraCounter As Long '全局段落计数，仅在主程序中可读写，其它过程函数应为只读
W.m2`] & qr'P0+|~5 Dim LastTitle0String As String, LastTitle0No As Long
dQ-:]T ( Dim LastTitle1String As String, LastTitle1No As Long
l<-0@(x) Dim LastTitle2String As String, LastTitle2No As Long
5Y#~+Im=[@ Dim LastTitle3String As String, LastTitle3No As Long
,M0#?j> Dim LastTitle4String As String, LastTitle4No As Long
~{$5JIpCm Dim LastTitle5String As String, LastTitle5No As Long
d>hLnz1O Dim LastTabelString As String, LastTableNo As Long
`nv82v Dim LastFigureString As String, LastFigureNo As Long
cyXnZs ?| DAVgP7h' Dim strSeperator As String
/SKgN{tWe snvixbN Sub ConvertWidth(fTEXT As String, rText As String)
wS;hC&~2 Selection.Find.ClearFormatting
- p*j9
z Selection.Find.Replacement.ClearFormatting
~JX+4~qT Selection.Find.Wrap = wdFindContinue
^G C 8^f Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText
d9 pZg=$8 DoEvents
I?X!v6 Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True
v]@ n'! End Sub
QLDld[ }%Vx2Q Sub ClearDomain()
C^fUhLVSZ^ With Selection.Find
eb=#{ .ClearFormatting
Sp\
7 .Replacement.ClearFormatting
u&Cu"-%=M .Wrap = wdFindContinue
wPQRm[O| Me.txtStatus.Text = "清除所有域代码"
&Xp <%[:
DoEvents
\9%RY]T K3 .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False
:\69N/uw` End With
eUEO~M2&U{ End Sub
4h$W4NJK ?bw1zYP Private Sub cmdCheck_Click()
wq>0W 4( bContinue = True
((
{4)5 } Dim NoSeries1(1 To 16) As String
V1 O]L
66 Dim NoSeries2(1 To 16) As String
:> o2UH Dim NoSeries5(1 To 16) As String
-+Gd <U$ Dim NoSeriesRM(1 To 16) As String
S r4/8BZ Dim paraTotal As Long, ParaText As String
xB|?}uS- Dim ttString As String, ttNo As String
u Tvck6 kpx2e2C| Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long
|#J!oBS! 4n}^1eQ 9 Me.txtStatus.Visible = True
R
d:wMy$ Me.lbParaType.Visible = True
Rdl^ -\BV Me.cmdCheck.Enabled = False
dU.H9\p &pN/+,0E g1(`a`M ~@ML>z 7 K!qV82b='{ Dim ParaType As String, rText As String
(4"Azo*~![ w ;
]~ 2$ Selection.WholeStory
hx :"'m5 Selection.NoProofing = True
M&ec%<lM p -wEPC 0 tm1 = Now
k*k 9hv? w<jlE8u ActiveWindow.View.Type = wdNormalView
^k}%k#) D)GD9MJ NoSeries1(1) = "一"
]vUTb9>{? NoSeries1(2) = "二"
0=I:VGC3 NoSeries1(3) = "三"
v J
fj1 f NoSeries1(4) = "四"
J`[He$7) NoSeries1(5) = "五"
57rH`UF XH NoSeries1(6) = "六"
.TKKjS%8 NoSeries1(7) = "七"
:GN7JxD# NoSeries1(8) = "八"
=plU3D2 NoSeries1(9) = "九"
>?) Df(n(9 NoSeries1(10) = "十"
tY0C& u2 NoSeries1(11) = "十一"
m)"wd$O^w NoSeries1(12) = "十二"
R^= [D#*]> NoSeries1(13) = "十三"
b^C2<' NoSeries1(14) = "十四"
"Oq>i9v;|$ NoSeries1(15) = "十五"
f+>g_Q NoSeries1(16) = "十六"
[.LbX`K: 6+
C7vG` NoSeries2(1) = "㈠"
qIg^R@ NoSeries2(2) = "㈡"
(C60HbL
NoSeries2(3) = "㈢"
[fl^1!3{ NoSeries2(4) = "㈣"
Hi Pd|D NoSeries2(5) = "㈤"
9xM7X? NoSeries2(6) = "㈥"
lbnH|;`$]m NoSeries2(7) = "㈦"
D&nVkZP> NoSeries2(8) = "㈧"
pHv~^L%= NoSeries2(9) = "㈨"
+X4/l"
| NoSeries2(10) = "㈩"
G;yh$n<" '/~j
!H4q9 NoSeries5(1) = "①"
o bt
Xtqew NoSeries5(1) = "②"
bqSp4TI NoSeries5(3) = "③"
vj4n=F,Z NoSeries5(4) = "④"
?) mM]2%% NoSeries5(5) = "⑤"
&C6Z{.3V NoSeries5(6) = "⑥"
,-.a! a NoSeries5(7) = "⑦"
:}3;z'2]l NoSeries5(8) = "⑧"
d!#qBn$*[ NoSeries5(9) = "⑨"
(f>~+-IL NoSeries5(10) = "⑩"
x$;kA}gy m+'vrxTY A i 5| N NoSeriesRM(1) = "I"
$i.)1.x NoSeriesRM(2) = "II"
6rg?0\A< NoSeriesRM(3) = "III"
zqs|~W]c NoSeriesRM(4) = "IV"
/qObXI NoSeriesRM(5) = "V"
+"F 9yb NoSeriesRM(6) = "VI"
EjFK zx NoSeriesRM(7) = "VII"
.vk|aIG NoSeriesRM(8) = "VIII"
>' e(|P4 NoSeriesRM(9) = "IX"
Dfl%Knl@J NoSeriesRM(10) = "X"
=.yKl*WV{ NoSeriesRM(11) = "XI"
yp\s Jc` NoSeriesRM(12) = "XII"
"?(N NoSeriesRM(13) = "XIII"
`AcT}. u NoSeriesRM(14) = "XIV"
g!.k> NoSeriesRM(15) = "XV"
8"KaW2/% NoSeriesRM(16) = "XVI"
uBqZ62{G RqE|h6/ i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo)
sEm064 #P5tTCM If i = vbNo Then
?h7(,39^> Exit Sub
^E= w3g& End If
7FvtWE* VmTPE5d If Me.chkSuper.Value Then
}RN&w ]< Me.txtStatus.Text = "检查修改所有的上标格式"
\&. ]!!Q u!D AeE CheckSuperScript
$G .w
s tC4 7P [b End If
7<7
/N Z<I A vr2MaY{h If Me.chkStyle.Value Then
%VmHw~xyF: Me.txtStatus.Text = "设置样式，请稍候...."
Z0Df~ @ DoEvents
s6.#uT7h
CeateOrModifyStyle
< P
#]U"?A End If
cr"AK"TQ MO-)j_o-Z {v~.zRW%]r xji2#S% ClearDomain
C3z#A3&J |Y|g T*v kSq1Q#Bxq w;4FN'
If Me.chkLIST.Value Then
7qT>wCVT Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式"
7-`iI(N< e9@7GaL`"S ConvertListToOrdinary
<{k r5 < End If
i! DO bj`mQMC c ]!Yb- Dim pType As String, trimpTEXT As String
+ht{ARX2( If Me.chkNum.Value = True Then
,+hH| $ Me.txtStatus.Text = "转换全角数字形式为半角"
uSU[Y,'x ConvertWidth "１", "1"
m[%*O#_ DoEvents
"*N=aHsj ConvertWidth "２", "2"
Yk!TQY4 DoEvents
3 F ke#t ConvertWidth "３", "3"
T~JE.Y3B3 DoEvents
ouf91<n ConvertWidth "４", "4"
M qG`P DoEvents
'98 0. ConvertWidth "５", "5"
v\3}5v%YI DoEvents
Q l.abU ConvertWidth "６", "6"
J8:f9a:|M DoEvents
6 0@]^g;$I ConvertWidth "７", "7"
M8}t`q[-& DoEvents
zf}X%tp ConvertWidth "８", "8"
Nv U~? WN DoEvents
M->$ 'Zgh` ConvertWidth "９", "9"
,sln 0 DoEvents
WPu{
]<pl ConvertWidth "０", "0"
6|AD]/t^K DoEvents
Qk
q9oZ ConvertWidth "ａ", "a"
KOHYeiry~A DoEvents
qt{
{q ConvertWidth "ｂ", "b"
!i77v,
(#| DoEvents
5^7q
2". ConvertWidth "ｃ", "c"
eV)'@ 8p DoEvents
sm>5n_Vw ConvertWidth "ｄ", "d"
QfHO3Y6h[ DoEvents
2!E@Gbhm5 ConvertWidth "ｅ", "e"
[mJmT-> DoEvents
csNB
\ ConvertWidth "ｆ", "f"
JOvRU DZ DoEvents
ubZcpqm?Q ConvertWidth "ｇ", "g"
afNqK~ DoEvents
AH l1{*
[ ConvertWidth "ｈ", "h"
*D6X&Hg&5 DoEvents
w\QMA3 ConvertWidth "ｉ", "i"
7 GVI={ b DoEvents
Q ConvertWidth "ｊ", "j"
Vp~c
$y+ DoEvents
di5>aAJ)D ConvertWidth "ｋ", "k"
i>}aQ:&^0 DoEvents
$bd2TVNV: ConvertWidth "ｌ", "l"
=vc8u&L2 DoEvents
:d ,]BB ConvertWidth "ｍ", "m"
~qj09 DoEvents
4A@77#:J5 ConvertWidth "ｎ", "n"
:^[HDI-[2 ConvertWidth "ｏ", "o"
oo{3-+ ? ConvertWidth "ｐ", "p"
!&b
wFO>P ConvertWidth "ｑ", "q"
vk] vtjf&% ConvertWidth "ｒ", "r"
9/_
F ConvertWidth "ｓ", "s"
'[email protected] ConvertWidth "ｔ", "t"
i6y$P6s ConvertWidth "ｕ", "u"
o2 vBY]Tj ConvertWidth "ｖ", "v"
bJ#]Xm (]D ConvertWidth "ｗ", "w"
1Zj NRg= ConvertWidth "ｘ", "x"
#FQkwX'g ConvertWidth "ｙ", "y"
k;W`6:Kjp ConvertWidth "ｚ", "z"
\WN ,. ConvertWidth "Ａ", "A"
S#wy+* ConvertWidth "Ｂ", "B"
r}]%(D](v ConvertWidth "Ｃ", "C"
QFYO_$1 Y) ConvertWidth "Ｄ", "D"
M)v 4>Rw+ ConvertWidth "Ｅ", "E"
*%,{<C,
Y ConvertWidth "Ｆ", "F"
H@%Y"iIUP ConvertWidth "Ｇ", "G"
eK=<a<tx ConvertWidth "Ｈ", "H"
a][QY1E@? ConvertWidth "Ｉ", "I"
fu]mxGPc ConvertWidth "Ｊ", "J"
\8e27#PJR ConvertWidth "Ｋ", "K"
jJO s`'~Q\ ConvertWidth "Ｌ", "L"
l=.h]]`; ConvertWidth "Ｍ", "M"
cN(Toj
'` ConvertWidth "Ｎ", "N"
sN%#e+(= ConvertWidth "Ｏ", "O"
>*FH JCe ConvertWidth "Ｐ", "P"
p3R: 3E6p ConvertWidth "Ｑ", "Q"
M7JQw/,xs ConvertWidth "Ｒ", "R"
s%c>Ge ConvertWidth "Ｓ", "S"
dqu+-43I | ConvertWidth "Ｔ", "T"
Sh+$w=vC ConvertWidth "Ｕ", "U"
JX! @j3 ConvertWidth "Ｖ", "V"
Y!C8@B$MR3 ConvertWidth "Ｗ", "W"
DbH"e ConvertWidth "Ｘ", "X"
O<EFm}Ae ConvertWidth "Ｙ", "Y"
^w(~gQ6|mP ConvertWidth "Ｚ", "Z"
\) ' o{l& ConvertWidth "^l", "^p"
'gQ0=6(\ ConvertWidth "（", "("
< yq
kJ ConvertWidth "）", ")"
aF
(L_ b!J%s End If
~R!M.gY[rK IVblS iFF With ActiveDocument
ZgD%*bH*B Dim tbl As Table
]#*S. r] For Each tbl In .Tables
6-oy%OnN tbl.Rows.Alignment = wdAlignRowCenter
mtunD;_Dek tbl.Range.Font.NameFarEast = "楷体"
o<Z tbl.Range.Font.NameAscii = "Times New Roman"
mIy|]e`SJ tbl.Range.Font.Size = 10.5
G &LOjd 2 Next
M 1
5_
Set tbl = Nothing
~ WO End With
iE8 AZgeu$:7p< k6b0&
il With ActiveDocument
]dj
W^C]94 f+K vym. For i = 1 To .TablesOfContents.Count
?0%3~E`l: .TablesOfContents(i).Delete
!/;/ X\d Next
! O~: t5"g 9`A L *`g'*R ;p_@%*JA x paraTotal = .Paragraphs.Count
k(bDj[0q^ paraCounter = 1
b2<((H =]swhF+l- LastTitle0No = 0
;)'@ kzi LastTitle1No = 0
Uzzt+I wm LastTitle2No = 0
o6 l
CP& LastTitle3No = 0
pSC\[%K LastTitle4No = 0
d[ 7B,l:RN LastTableNo = 0
yJRqX]MLA LastFigureNo = 0
PDi]zp9>H + <4gJoI Dim Sec As Long
*\ !>2
2* W7PL]5y& Sec = InputBox("正文从第一节开始？", "节设置", 6)
9>I&Z8J$M If Sec = 0 Then
9N@m><N84 Exit Sub
-\dcs? End If
b:6NVHb% N3rq8Rk k = 0
4J9VdEKk Do While (paraCounter < paraTotal) And bContinue
b$W~ w*O k = k + 1
](2\w9i% If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then
^_rBEyz@ Exit Do
I)YUGA5 End If
q@(M
D3OE paraCounter = paraCounter + 1
RNMd,?dj If k Mod 20 = 0 Then
^S %xaA9 Me.lbCounter.Caption = paraCounter
5z~O3QX DoEvents
F).7%YfY End If
fb*h.6^y9 Loop
ZCC T 6 1
8k- |T) $E Do While (paraCounter < paraTotal) And bContinue
{IgL H`@ yRyUOTK ParaText = Trim(.Paragraphs(paraCounter).Range.Text)
\)'5V!B|s ShapeHeight = 0
[0M`uf/ u ShapeWidth = 0
z9qF < m e\7AtlW" CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth
Krw' |< )kpN g:2p Select Case ParaType
$3'xb/3| Case "【】表格内容"
JV`"kk/ .Paragraphs(paraCounter).Style = "QLNU表格内容"
Qt+i0xd Case "章"
V<&^zIJUR LastTitle0No = LastTitle0No + 1
,%X"Caz '新一章开始，复位其下属标题编号
$2J[l t?% LastTitle1No = 0
fuQk}OW{ LastTitle2No = 0
nQar yL LastTitle3No = 0
/a7N :Z_Bz LastTitle4No = 0
=v:}{~M^$
epm ~ k = Val(ttNo)
\'9(zb vz9 If k = 0 Then '非数字编号章节
: 6[G;F7s If ttNo <> NoSeries1(LastTitle0No) Then
5 !Ho[ rText = "第" & NoSeries1(LastTitle0No) & ttString
? l>Ra0 Me.ErrMsg.AddItem "章节编号错误：" & ParaText
#9e 2+5s End If
ya'Ma<4 Else
4o 69t If Val(ttNo) <> LastTitle0No Then
rf=oH
} rText = "第" & LastTitle0No & ttString
%F2T`?t: Me.ErrMsg.AddItem "章节编号错误：" & ParaText
F6Ne?[b End If
9~5LKg7Ac -SlAt$I J End If
P| tNmv[; \TS.9 > \ '章段落设置
k((kx: '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅
Memb
`3 .Paragraphs(paraCounter).Style = "QLNU章节"
Y~Z&h?
H'} .Paragraphs(paraCounter).Range.Select
k@
So l6 Selection.EndKey unit:=wdLine
7I=vgT1F tc = Replace(rText, vbCr, "")
qp{3I("_ Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False
9'Cu9nR Case "一级标题"
pJo#7rxd6 LastTitle1No = LastTitle1No + 1
[O@U@bD9 '新一级标题开始，复位其下属标题编号
| <bZ*7G LastTitle2No = 0
+k{l]-)1 LastTitle3No = 0
Ov~vK\ LastTitle4No = 0
9
K~X+
N\ vtw97 G If ttNo <> NoSeries1(LastTitle1No) Then
's\rQ- TV rText = NoSeries1(LastTitle1No) & "、" & ttString
%% + @s Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText
aHkt K/ End If
9y
Y NX;C <El!,UBq< c1M *w9o '一级标题段落设置 格式：一、标题内容
ql I1<Jx .Paragraphs(paraCounter).Range.Text = rText
ufB9\yl{~ .Paragraphs(paraCounter).Style = "QLNU一级标题"
fi .Paragraphs(paraCounter).Range.Select
J;S Z"I' Selection.EndKey unit:=wdLine
SNrX(V::z tc = Replace(rText, vbCr, "")
gHox>r6.A Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False
R
q
.2 Case "二级标题"
qS/
'Kyp_ LastTitle2No = LastTitle2No + 1
'>
: %n '新二级标题开始，复位其下属标题编号
kIJ =]wU|v LastTitle3No = 0
Wiqk C#N LastTitle4No = 0
5;CqGzgoP TdL/tg! If ttNo <> NoSeries1(LastTitle2No) Then
y3Ul}mVhA rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString
'byao03 ErrMsg.AddItem "二级标题编号错误：" & ParaText
0
} |21YED End If
M Ui#3o\f '-V[t yE '二级标题段落设置 格式：(一)、标题内容
$VJE
&b .Paragraphs(paraCounter).Range.Text = rText
1B`Jv Ntd .Paragraphs(paraCounter).Style = "QLNU二级标题"
X&gXhr#dL\ \F9Hs R6 .Paragraphs(paraCounter).Range.Select
BmF tRbR Selection.EndKey unit:=wdLine
|[iEi tc = Replace(rText, vbCr, "")
j)mi~i*U Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 2 ", PreserveFormatting:=False
q
r F:=?`E gg&Dej2{ Case "三级标题"
IN=l|Q$8f LastTitle3No = LastTitle3No + 1
+ %H2;8{F '新三级标题开始，复位其下属标题编号
`,s0^?_ LastTitle4No = 0
:a *F>S! c|F2 6$rv If Val(ttNo) <> LastTitle3No Then
{ 4B7a6 rText = LastTitle3No & ". " & ttString
50^CILKo7 Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText
+:3p*x%1H a sL!@YE End If
yHnN7& '三级标题段落设置 格式：1. 标题内容
L"'L@ A|U .Paragraphs(paraCounter).Range.Text = rText
F>U*Wy .Paragraphs(paraCounter).Style = "QLNU三级标题"
(G 9Ku 8Y .Paragraphs(paraCounter).Range.Select
q@d6P~[-gj Selection.EndKey unit:=wdLine
GiKmB-HO tc = Replace(rText, vbCr, "")
|k<5yj4? Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 3 ", PreserveFormatting:=False
M5`wfF,j Case "四级标题"
>K
7]G?+7E LastTitle4No = LastTitle4No + 1
b
4CXif 7!A3PDAe If Val(ttNo) <> LastTitle4No Then
6)1xjE# rText = "(" & LastTitle4No & "). " & ttString
LDbo=w ErrMsg.AddItem "四级标题编号错误：" & ParaText
OyATb{`' fl71{jJ_ End If
?jn";: '四级标题段落设置 格式：(1). 标题内容
v03 ^ .Paragraphs(paraCounter).Range.Text = rText
_/5xtupxE .Paragraphs(paraCounter).Style = "QLNU四级标题"
o RHWb_$" .Paragraphs(paraCounter).Range.Select
[(iJj3s! Selection.EndKey unit:=wdLine
W:1GY# Pe tc = Replace(rText, vbCr, "")
S~\u]j^%y Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 4 ", PreserveFormatting:=False
U(\ ^!S1 eo<=Q|nI& Case "表格标题"
zvK ypx LastTableNo = LastTableNo + 1
kYu"`_n} !$!"$-5 If ttNo <> CStr(LastTableNo) Then
Dw&_6\F
@ rText = "表" & LastTableNo & ". " & ttString
vq RW^>~-B ErrMsg.AddItem "表格编号错误：" & ParaText
vJg^uf) Q@-
h End If
Eo Ow
u-{ Ql9
) '表格名称段落设置 格式：表1. 表格名称
cpQhg-LY| .Paragraphs(paraCounter).Style = "QLNU表格标题"
$`txU5#vs xe = Replace(rText, vbCr, "")
[p96H)8YU .Paragraphs(paraCounter).Range.Select
aq $adPtu Selection.MoveEnd wdCharacter, -1 '选择范围包括行尾的换行符。
y 2@8? Selection.Range.Text = xe
.xg, j{%( Selection.EndKey
ktiC*|fd Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False
|c:xK{Ik TN.&FDqC9 Case "表格首行"
qViolmDz .Paragraphs(paraCounter).Style = "QLNU表格首行"
D1~3 3; Case "图片标题"
N Bpf LastFigureNo = LastFigureNo + 1
c59l/qoz =aRE
If ttNo <> CStr(LastFigureNo) Then
p}
i5z_tS rText = "图" & LastFigureNo & ". " & ttString
/;9 ]LC.g ErrMsg.AddItem "表格编号错误：" & ParaText
|r/4
({n 3k* U/*
End If
ZZU"Q7`^ '图片名称段落设置 格式：图1. 图名称
;op 8r u .Paragraphs(paraCounter).Range.Text = rText
+\~ Mx>Cn .Paragraphs(paraCounter).Style = "QLNU图片标题"
g g QI .Paragraphs(paraCounter).Range.Select
YCu9dBeVS Selection.EndKey unit:=wdLine
/@9 -D
4 xe = Replace(rText, vbCr, "")
ZJ}|t Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False
Hv .C5mo Case "正文"
sRSy++FRF '正文名称段落设置
Zl7m:b2M .Paragraphs(paraCounter).Style = "QLNU正文"
ym6 gj#2m Case "文献条目"
bS*oFm@u With .Paragraphs(paraCounter)
r&D&xsbQ '.Range.Select
so }Kb3 n 'Selection.ClearFormatting
(Q6}N' T '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator 'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ”
X-J<gI(Y .Style = "QLNU参考文献"
vY(xH>Fd End With
Qi Q O>r Case "图表注解"
psAdYEGk! With .Paragraphs(paraCounter)
b;$j h .Range.Font.NameFarEast = "楷体"
WHv xBd .Range.Font.NameAscii = "Times New Roman"
qb$f ,E[ .Range.Font.Size = 9 '小5号字
`KJ BQ K QVQ?a&HYS .Alignment = wdAlignParagraphCenter
=@go;, " .LeftIndent = 0
O xr?y8C~ .RightIndent = 0
ns9a+QQ .FirstLineIndent = 0
y%xn(Bn .LineSpacing = 12
@(s"5i.`) .LineSpacingRule = wdLineSpaceExactly
YJ~3eZQ .LineUnitAfter = 0
Xw<N nvz6 .LineUnitBefore = 0
2Ls .OutlineLevel = wdOutlineLevelBodyText
5:~BGK&{ Y .PageBreakBefore = False
M;F&Ix .RightIndent = 0
:EZ"D#>y~
.WordWrap = True
uNG?`>4> .LineUnitAfter = 0.5
}| 4dEao\ 9`v[Jm% $m End With
[9xUMX^} Case Else
F<N{ x^ '不作处理
NR
Z>03w End Select
a%)-iL
X8& kV3Z
t@+ '含有inlineshape的段落处理
%SD=3UK6 If ShapeHeight > 30 Then
nh+f,HtSt .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle '对有图片的段落设置为单倍行距
|\S p IFH1 End If
8Qi@z Jq, 4O'X+dv^I If (ShapeWidth + ShapeHeight) > 150 Then
u7kw/_f .Paragraphs(paraCounter).Style = "QLNU图片段落"
1U< g End If
:{KoZd d`&F '段落计数器递
5b-: e? | paraCounter = paraCounter + 1
aC=D_JJ\ Me.lbCounter.Caption = "当前检测段落：" & paraCounter
E
T}Dh3A Me.txtStatus.Text = ParaText
Bj IKs~CT DoEvents
x1{gw 5: Loop
9?# L/ End With
xk$U+8K ({#M*=&" msg = ""
i& y bvTl s6J`i&uu For i = 0 To Me.ErrMsg.ListCount - 1
I:G4i}mA msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i)
"1Oe
bo2 Next
"=9kX`(1 y 2q ,> *B? 3erGTa[|q FZ^j|2.L* Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg
q+Cq&|4
?2 Me.cmdCheck.Enabled = True
%#,EqN Me.txtStatus.Visible = True
and)>$)| Me.lbParaType.Visible = False
sy;_%,}N sZ9VXnz24 bContinue = False
o `N /w End Sub
QL_9 a,R'r
Zqnwf 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)
enJgk ( Dim pTEXT As String
&?gvW//L2 x)Ls(Xh+g pTEXT = ChKRange.Text
QSq0{ ]7yr.4?a ParaType = "其它"
.#ASo!O5q TitleString = pTEXT
\,5OPSB TitleNo = "N/A"
,wE cRN w 1O,<JrE+- shpCounter = ChKRange.InlineShapes.Count
aZ{]t:] If shpCounter <> 0 Then
XUp'wP MaxShpHeight = 0: TotalShpWidth = 0
P85@G
2 For i = 1 To shpCounter
E T 2@dY~ k = ChKRange.InlineShapes(i).Height
jjrhl l = ChKRange.InlineShapes(i).Width
/vLdm-4 If k > MaxShpHeight Then
!*@sX7H MaxShpHeight = k
W6 U**
ir. End If
`c~J&@| TotalShpWidth = TotalShpWidth + l
_]# ^2S Next
;VAHgIpx; If MaxShpHeight > 60 Or TotalShpWidth > 150 Then
.# [== Exit Sub
~E tW B End If
& KS*rHgt? End If
~t-!{F vMB`TpZ '空行
oyeJ"E2 If Len(pTEXT) <= 2 Then
`gFE/i18 Exit Sub
,a Bo
p# End If
Dw6mSsC/ o)pso\; -%eBip,'yl '是否为表格中的文字
3.?kxac If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then
j6_tFJT ParaType = "表格内容"
qoXncdDHZ k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber)
^yo~C3 r~ If k = 1 Then
Gn8'h
TM ParaType = "表格首行"
n6Qs ug$z End If
#[C=LGi Exit Sub
l mRd l> End If
_pS
|b qF 1SGLA"r '例外情况：脚注
aX$Q} mgb If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then
,_(AiQK ParaType = "脚注"
F+3 }Gkn Exit Sub
chF@',9t End If
efu'PfZ`& |kXx9vGq@ '例外情况：尾注
M'D l_dx- If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then
hPB^|#} ParaType = "尾注"
` oq][| Exit Sub
FELDz7DYya End If
:]hNw1e F$k^px If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then
H${5pY_M ParaType = "页眉页脚"
s}3`%?,6y Exit Sub
?' :v): J} End If
J>XMaI})U <)dHe: BQ7p <{G With regEX
%2j R J .Global = True
{5,
]7 =]
/$ : w8 .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$"
}; ;Thfd If regEX.Test(pTEXT) Then
X5gI'
u ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3")
yxx'g+D* TitleString = regEX.Replace(pTEXT, "$3")
:_f5(N*{5o TitleNo = regEX.Replace(pTEXT, "$1")
TC+L\7 ParaType = "章"
B3V; Exit Sub
2aR <xcSg End If
-)p
S\$GC e
1$< ,.> .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$"
6S GV}d Ax If regEX.Test(pTEXT) Then
t/57LjV ParaType = "一级标题"
,p\ :Z3{ZH regEX.Execute (pTEXT)
(:P-ef$]C ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3")
[, )G\ TitleString = regEX.Replace(pTEXT, "$3")
^L@2%}6b` TitleNo = regEX.Replace(pTEXT, "$1")
< X b B; Exit Sub
?8G ggJC End If
d~
F 4 v{[:7]b_= '全角或半角括号中的数字
Oe["4C .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$"
4Lb!Au|Y If regEX.Test(pTEXT) Then
Sb& $ xWL ParaType = "二级标题"
Jb (CH4|7 regEX.Execute (pTEXT)
hE|W%~Jx ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5")
W#.+C6/ TitleString = regEX.Replace(pTEXT, "$5")
3 \B 28m TitleNo = regEX.Replace(pTEXT, "$2")
G)G
257K"~ Exit Sub
}@XokRk End If
qG<3H!Z!ky O
;dtz\ '阿拉伯数字 1. 2.
7B)m/%>3s .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$"
UqwU3 If regEX.Test(pTEXT) Then
f~0CpB*X ParaType = "三级标题"
;#Y'S K regEX.Execute (pTEXT)
<lo\7p$A ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测
O D O'!T- TitleString = regEX.Replace(pTEXT, "$3")
dz>2/' TitleNo = regEX.Replace(pTEXT, "$1")
n,_q 6/! Exit Sub
u9zEhfg8 End If
-/'_ XR@1 U7do,jCoa '全角或半角括号中的阿拉伯数字
N a $eeM .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$"
5mYX#//: If regEX.Test(pTEXT) Then
MoX~ZewWR ParaType = "四级标题"
DQ*T2 *L regEX.Execute (pTEXT)
e>] gC a ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5")
,ut-Di=6 TitleString = regEX.Replace(pTEXT, "$5")
kR,ry:J- TitleNo = regEX.Replace(pTEXT, "$2")
NtfzAz/ Exit Sub
^t TASK End If
(& UQ^ w$##GM=Tq '表格名称
MOi a] 5 .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$"
``?79 MJ5 If regEX.Test(pTEXT) Then
bQlv b ParaType = "表格标题"
V*< `!w regEX.Execute (pTEXT)
`i:DmIoz ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3"))
/L yoTBG TitleString = Trim(regEX.Replace(pTEXT, "$3"))
y<5RV>"Vg TitleNo = Trim(regEX.Replace(pTEXT, "$1"))
r V_i| strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换
Rl/5eE8 Exit Sub
a-bj! Rs End If
L
GdM40 tg%#W ` '图片名称
B8~JUGD .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$"
s W^e D; If regEX.Test(pTEXT) Then
{KGEv%
ParaType = "图片标题"
m 0 Geq. regEX.Execute (pTEXT)
K8bKTG \ ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3")
[Xyu_I-c TitleString = regEX.Replace(pTEXT, "$3")
SYE+A`a TitleNo = regEX.Replace(pTEXT, "$1")
<%iRa$i5 Exit Sub
VchI0KL? End If
dtT: ,& JuKG#F#, '参考文献
YLsOA`
5X .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})" '[数字]、
-Is;cbfLj/ If regEX.Test(pTEXT) Then
90 [6PSXk ParaType = "文献条目"
z o|
' 'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4")
I?&/J4o: 'TitleNo = regEX.Replace(pTEXT, "[$2] ")
?` lD|~ Exit Sub
F(?O7z"d End If
1p5n}| n muzTF
s= prfx = Left(pTEXT, 2)
qeUT]*
w If prfx = "注：" Or prfx = "注:" Then
,`
64t'g ParaType = "图表注解"
K'_qi8
Z Exit Sub
!*1 $j7`tP End If
B%^W$7
q v8} vk]b %;eD. If} ParaType = "正文"
L
s` [7w VtN1 [} End With
teKx^ 'c' End Sub
2rV]n ZccvZl ;b Sub ConvertListToOrdinary()
, UsY0 YC Dim st As Paragraph
\_]X+o; With ActiveDocument
xWnOOE$i For i = .Paragraphs.Count To 1 Step -1
]?6Pt: N2 Set st = .Paragraphs(i)
4OaU1Y[ lst = st.Range.ListFormat.ListString
fg)VO6Wo& If lst <> "" Then
'L@kZ st.Range.ListFormat.RemoveNumbers
:;hz!6! st.Range.InsertBefore lst & " "
Kcvst
C` End If
l@)`Q Next
C<Z{G% Qm End With
x fa- Set st = Nothing
lHUd<kEC End Sub
X`6"^
xme S54q?sb_ Private Sub UserForm_Activate()
N<PD
Q Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节"
64i
*_\UKe Me.lbTotal.Font.Bold = True
({OQ
JBC Me.txtStatus.Visible = False
.0 Kc|b=w Me.cmdCheck.Enabled = True
(QTF+~) nSv@F T'~z End Sub
0,/I2!dF? =%ok:+D] $ *Kr4vh Sub CheckSuperScript()
85T"(
Hh T Selection.Find.ClearFormatting
vh#81}@N7* Selection.Find.Replacement.ClearFormatting
6Hp+?mmh With Selection.Find
~ \]?5
nj .Text = "[【\[［〖](*)[】\]〗］]"
;
I;&O5Y .Replacement.Text = "[\1]"
BPuu m .Replacement.Font.Superscript = True
L</k+a?H! '.Replacement.Font.Color = wdColorBlue
%E
\zR/ .Forward = True
M>_ vsI^I' .Wrap = wdFindContinue
{vq| 0t\- .FORMAT = True
d%za6= M .MatchCase = False
QR2S67- .MatchWholeWord = False
M u i\E .MatchByte = False
9 {wRqY .MatchAllWordForms = False
CkV5PU .MatchSoundsLike = False
]t0St~qUL) .MatchWildcards = True
,g pZz$Ef( End With
w^"I R Selection.Find.Execute Replace:=wdReplaceAll
VI Huo
, End Sub
f DwK5? ?g9:xgkF
^ Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
r3B}d*v bContinue = False
@y '0_Y0-B Set regEX = Nothing
jsFfrS"* End Sub
DL*vF>v Kh$Q9$ Sub CeateOrModifyStyle()
!-t,r%CG '
Kl,NL]]4*5 '
AP1&TQ,& Dim stl As Style
eaAGlEW6J V3>tW,z Options.Pagination = False
H76iBJ66 Bd]k]v+ On Error Resume Next
|M&4[ka} For Each stl In ActiveDocument.Styles
g<N;31:c\ stl.Delete
;1HzY\d%< Next
p0[+Zm{#l On Error GoTo 0
xg}
Q~,: /9e?uC6 Set stl = Nothing
D 5bPF~q Q5^ #:uZ DoEvents
5a-x$Qb9 On Error Resume Next
lSg[7lt <2E|URo, # ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph
yQ)&u+r -.B lj<2ah ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph
iF9d?9TWl ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph
B[I9<4} YF)]B |I ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph
)n]" ~I^ ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph
_i_P@I<M|~ >%ovL8F ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph
pM^Z C ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph
[l3ys ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph
\ h"U+Bv7 ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph
v \[+ ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph
6w=`0r3hy ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph
w_f.\\1r ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph
kO5lLq E XEnu0 gr ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph
Pa6pq;4St ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph
1ysQvz ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph
}T0O~c{$i ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph
* bd3^mP ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph
q 3<kr<SP <.mH-Y5i ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph
t/}NX[q On Error GoTo 0
:KgH7s} DoEvents
Sbl = U $AT@r"
'BaseStyle
S,j. ?u*! ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False
q)mG6Su
d With ActiveDocument.Styles("BaseStyle").Font
zak|* _ .NameFarEast = "宋体"
@c-
.NameAscii = "Times New Roman"
Z\$M)e8n .NameOther = "宋体"
|r*)U( c` .Size = 10.5
| UlG@Mn .Bold = wdUndefined
"M
, 1ElQ .Italic = wdUndefined
-@e2/6Oi .Subscript = wdUndefined
D#AqZS> B .Subscript = wdUndefined
.faf
!3 d S=0DQ19 .Underline = wdUnderlineNone
i
y8J l .UnderlineColor = wdColorAutomatic
N+ak{3 .StrikeThrough = False
m<49<O6o .DoubleStrikeThrough = False
W#%s0EN<_ X Z . T%g .Outline = False
}jUsv8`}8R .Emboss = False
lxm/*^
.Shadow = False
9b&|'BBW .Hidden = False
z&WtPSyGj .SmallCaps = False
XC5/$3'M& .AllCaps = False
9vz\R-un .Color = wdColorAutomatic
ESNI$[` .Engrave = False
8P zGUn;\ .Scaling = 100
5f{P% x( .Kerning = 1
-OSj<m< .Animation = wdAnimationNone
qi B~ .DisableCharacterSpaceGrid = False
sO`
oapy .EmphasisMark = wdEmphasisMarkNone
(Vr%4Z8 End With
o K>(yC[ With ActiveDocument.Styles("BaseStyle").ParagraphFormat
2j: 0!% .LeftIndent = 0
4EHrd;| .RightIndent = 0
`sCn4-$8 .SpaceBefore = 0
Kxch.$hc, .SpaceBeforeAuto = False
FJDE4
8Vi .SpaceAfter = 0
^$5 0[ .SpaceAfterAuto = False
g@37t @I z)S6f79`Q .LineSpacingRule = wdLineSpaceSingle
LQHL4jRXU .Alignment = wdAlignParagraphJustify
PJcfiRa'jQ +U1
Ir5Lx .WidowControl = False
1$8@CT^m .KeepWithNext = False
BY.k.]/ .KeepTogether = False
<:V~_j6P0 .PageBreakBefore = False
jM &d i .NoLineNumber = False
Bb:C^CHIQm l2LLM {B .FirstLineIndent = CentimetersToPoints(0)
L;*
s-j6y .OutlineLevel = wdOutlineLevelBodyText
s/=% kCo .CharacterUnitLeftIndent = 0
+ID\u
<? .CharacterUnitRightIndent = 0
K8aqC{ .CharacterUnitFirstLineIndent = 0
h~m,0nGO .LineUnitBefore = 0
puJB&u"4L .LineUnitAfter = 0
)Xh }N .AutoAdjustRightIndent = True
+i!5<nn .DisableLineHeightGrid = True
HeO:=OE~> -? -XO<I .FarEastLineBreakControl = True
4; I\% qes .WordWrap = True
kzjuW .Hyphenation = False
g_1#if&
0_eqO'" .HangingPunctuation = True
a3>/B$pE .HalfWidthPunctuationOnTopOfLine = True
ICb!AsL .AddSpaceBetweenFarEastAndAlpha = True
HT6 [Z1 .AddSpaceBetweenFarEastAndDigit = True
+]s,VSL5` .BaseLineAlignment = wdBaselineAlignBaseline
58Ce>*~ End With
8f/KN h7#s ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False
GPGE7X' ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll
y-db CYMc ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese
_Z Sp$>)/ ActiveDocument.Styles("BaseStyle").NoProofing = False
B
ytx.[zbX t|$ jgM '一级标题题样式
J\r\_P@;c ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
8 ECX[fw ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle"
~g\~x ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False
+U2lwd!j With ActiveDocument.Styles("QLNU一级标题").Font
6,A|9UX=` .NameFarEast = "黑体"
&yvvea] .NameAscii = "Arial Black"
~PI
2G 9 .NameOther = "黑体"
*m}8L%<HT .Name = "黑体"
gL B(A\yG .Size = 16 '三号
f4h~c .Bold = True
=w! ik9 .Italic = wdUndefined
u MEM7$o .Subscript = wdUndefined
4%
^z=
% .Superscript = wdUndefined
Hi A E9 End With
a$ "nNm D? With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat
*^uK=CH1?( }! EVf .LeftIndent = CentimetersToPoints(0)
]:Gy]qkO .RightIndent = CentimetersToPoints(0)
~< ?Zj .FirstLineIndent = CentimetersToPoints(0)
-B H/)$-$ ,\s`T O .LineSpacingRule = wdLineSpaceSingle
I@MG ?ZQ .Alignment = wdAlignParagraphCenter
B=!!R]dxA @ QQ%09* .WidowControl = True
*qwN9b/! .KeepWithNext = True
J(l\VvK .KeepTogether = True
>I|8yqbfm .OutlineLevel = wdOutlineLevelBodyText
:YI5O/gsk? ?1D !%jfi .LineUnitBefore = 0.5
d
MH_:jb .LineUnitAfter = 0.5
u<Kowt<ci End With
| gA@WV-% ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False
Tb$))O} ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll
Zp> v ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese
>`\.i,X .D ActiveDocument.Styles("QLNU一级标题").NoProofing = True
9h amxi DoEvents
/[< F
f ==OU d6e} '二级
l S)^8 ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
^Hv&{r77 ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle"
&t^* 0/~
ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False
E.h With ActiveDocument.Styles("QLNU二级标题").Font
M
bWby' .NameFarEast = "黑体"
2n
,z`(= .NameAscii = "Arial Narrow"
PjeI&@ .NameOther = "黑体"
}6@E3z]AMO .Name = "黑体"
`Pvi+:6\Y .Size = 15 '小三号
$<v4c5r]O .Bold = False
6u0>3-[6OD .Outline = False
Hw o _;fV .Italic = wdUndefined
2%
s Z
aM .Subscript = wdUndefined
Jt=- > .Superscript = wdUndefined
%dzt'uz End With
o]q
~sJVk6 With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat
[UA*We 1 .LeftIndent = CentimetersToPoints(0)
nzC *mPX8 .RightIndent = CentimetersToPoints(0)
*S ag .FirstLineIndent = CentimetersToPoints(0)
P |t yyjO cu N9R G .LineSpacingRule = wdLineSpaceSingle
u%~'+= .Alignment = wdAlignParagraphLeft
Y(g_h:lf,] A?H#bRAs .WidowControl = True
y:RW:D& .KeepWithNext = True
TQ]gvi |m .KeepTogether = True
8>9Mh!t}(I .PageBreakBefore = False
'F d+1
3 .OutlineLevel = wdOutlineLevelBodyText
(oG YnN,2 hzsQK _;S .LineUnitBefore = 0.5
0f6o0@ .LineUnitAfter = 0.5
Byc;r-Q5V &VGV0K3 Dp End With
8Yh'/,o=L# ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False
]p`y ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll
bzFac5n)Q ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese
:C*}Y g ActiveDocument.Styles("QLNU二级标题").NoProofing = True
G*I DoEvents
DK74s >qo!#vJc
a '三级标题样式
V: D;? $Jl ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
-qc'J<*^4 ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle"
R iLl\S# ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False
t`Kpbfk With ActiveDocument.Styles("QLNU三级标题").Font
p^pd7)sBr .NameFarEast = "宋体"
QPVi& *8_ .NameAscii = "Times New Roman"
e *2^ .NameOther = "黑体"
= LNU%0m .Name = "黑体"
EB}B75)x .Size = 14 '四号
0]4X/u#N .Bold = False
Y~vk>ZC .Outline = False
SZF 8InyF .Italic = wdUndefined
I=kqkuW .Subscript = wdUndefined
:1A:g^n .Superscript = wdUndefined
p A OKy End With
]lwf6' With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat
Dd
r.6`V J .LeftIndent = CentimetersToPoints(0)
TcaW'&(K .RightIndent = CentimetersToPoints(0)
zR<{z .FirstLineIndent = CentimetersToPoints(0)
|*NLWN.ja) LP"g(D2'n .LineSpacingRule = wdLineSpaceSingle
,<U =
7<NU .Alignment = wdAlignParagraphLeft
O2Qmz=% b* n3Fej .WidowControl = True
ku5|cF*% .KeepWithNext = True
[ P
&B .KeepTogether = True
4Hz3 KKu .PageBreakBefore = False
/x??J4r0 .OutlineLevel = wdOutlineLevelBodyText
#c:s 2EL !-lI<$S: .CharacterUnitLeftIndent = 0
FBXktSg .CharacterUnitRightIndent = 0
I {89chi .CharacterUnitFirstLineIndent = 2
yMN JHiE/ AkQ(V .LineUnitBefore = 0.5
cy8>M))c .LineUnitAfter = 0
}_nBe
gv End With
g>VtPS5 y ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False
\p(S4?I7 ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll
.V
hU:_u ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese
ni/s/^ ActiveDocument.Styles("QLNU三级标题").NoProofing = True
_<(xjWp 8 DoEvents
R4'.QZ-x v 6
U !(x '四级标题样式
G<?RH"RZr ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
a51(ySC}<s ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle"
,/?J!W
@m ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False
cg8/v:B With ActiveDocument.Styles("QLNU四级标题").Font
I6^y` 2X .NameFarEast = "宋体"
Ak?9a_f .NameAscii = "Times New Roman"
1Vy8eI`4 .NameOther = "宋体"
Okci L] .Name = "宋体"
KR ( apO .Size = 12 '小四号
uVqc:Q" .Bold = True
lwQ!sH[M .Outline = False
{N2GRF~c-y .Italic = wdUndefined
h>`[p,o .Subscript = wdUndefined
t{]
6GlW .Superscript = wdUndefined
9
Zo s; End With
-s 0SQe{!_ With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat
|KhpF1/( ".>#Qp% .LeftIndent = CentimetersToPoints(0)
bo=H-d| .RightIndent = CentimetersToPoints(0)
mW"e .FirstLineIndent = CentimetersToPoints(0)
u& l ;\w dHY@V> D'- .LineSpacingRule = wdLineSpaceSingle
MLV]+H[mt .Alignment = wdAlignParagraphLeft
}ppApJT QZVyU 8j3 .WidowControl = True
o DZ Z .KeepWithNext = True
9K& $8aD .KeepTogether = True
Z;uKn Jh .PageBreakBefore = False
aH"d~Y^ .OutlineLevel = wdOutlineLevelBodyText
0XA\Ag\`G @ym:@<D .CharacterUnitLeftIndent = 0
K6->{!8]k .CharacterUnitRightIndent = 0
v c: kY .CharacterUnitFirstLineIndent = 2
vFe=AY<Rt| q] ="ek&_ .LineUnitBefore = 0
>Lcu .LineUnitAfter = 0
E <yQB39 &}u _e`A End With
a?y ucA ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False
1'hpg>U ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll
._0$#J S[ ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese
&u:U"j ActiveDocument.Styles("QLNU四级标题").NoProofing = True
"o- -MBq4 DoEvents
X?haHM#] 96\FJHt Z '正文校式
+PY V-@q ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle")
7**zb"#y ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle"
}@bp v ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False
Nf4@m|# With ActiveDocument.Styles("QLNU正文").Font
(')t >B1Z GG#-x$jK .NameFarEast = "宋体"
=#2%[kG q .NameAscii = "Times New Roman"
t%mi#Gh( .NameOther = "宋体"
~;HASHu .Name = "宋体"
- k0a((? w f ]Wm .Size = 12 '小四号
{Vu=qN x =_OJ
7K' .Bold = wdUndefined
\*MZ 1Q*x .Italic = wdUndefined
niS\0Z A .Subscript = wdUndefined
;rf {T[i .Superscript = wdUndefined
<W!T+sMQj 4m\Cc_:jO .Outline = False
oT}$N_gFT .Emboss = False
iX?j " =! .Shadow = False
1jx?zvE, .Hidden = False
e fyEzL !*c%Dj .DisableCharacterSpaceGrid = True
$~8gh>`] End With
q}_8i DO6 With ActiveDocument.Styles("QLNU正文").ParagraphFormat
SVa^:\"$ [ yFAUD
ro .LeftIndent = CentimetersToPoints(0)
\ ERBb. .RightIndent = CentimetersToPoints(0)
bD
v& ;Z .FirstLineIndent = CentimetersToPoints(0)
W
_[9 +I
Xr4M&3 .LineSpacingRule = wdLineSpaceExactly
([email protected] .LineSpacing = 20
KYTXf+ oh .Alignment = wdAlignParagraphLeft
Idu'+O4
_oZ3n2v}@ .WidowControl = False
e[fld,s .KeepWithNext = False
MTwzL<@$ .KeepTogether = False
0Y0z7A: .PageBreakBefore = False
htYfIy{5 w .Hyphenation = False
9+(b7L &DQ_qOKD .OutlineLevel = wdOutlineLevelBodyText
(Tq)!h35B
@^0} w k rv{ Wti[ .CharacterUnitLeftIndent = 0
"'DPb%o .CharacterUnitRightIndent = 0
&v]xYb)+< .CharacterUnitFirstLineIndent = 2
-n@,r%`UK 9uxoMjR- .LineUnitBefore = 0
jXx~
5 .LineUnitAfter = 0
tuH#Cy .SpaceBefore = 0
AIP0PJI3 .SpaceAfter = 0
sB0]lj-[Un &4wSX{c/P .DisableLineHeightGrid = True
R Q 8"vF# End With
6Lq8#{/]u ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False
&(< Gr0 ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll
:2
\NG} ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese
<e Y2}Ml ActiveDocument.Styles("QLNU正文").NoProofing = True
*vNA m(\N DoEvents
}Q[U4G h/5V~ :) '图片段落样式
&x ( D%+ ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle")
c
CjN8< ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle"
vm
xS^_I ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False
~p+
`pwjY1 With ActiveDocument.Styles("QLNU图片段落").Font
O4nA ?bA .Size = 12 '小四号
l )r^|9{ .Italic = wdUndefined
. &u
@-Vm .Subscript = wdUndefined
D8k >f ] .Superscript = wdUndefined
sfVzVS[ End With
<DqFfrpc With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat
aAcQmq TT K
z^.v` .LeftIndent = CentimetersToPoints(0)
&x
r (Kb .RightIndent = CentimetersToPoints(0)
UChLWf|' .FirstLineIndent = CentimetersToPoints(0)
A/ zAB3 cm!vuoB~~ .LineSpacingRule = wdLineSpaceSingle
hAgrs[OFj .Alignment = wdAlignParagraphCenter
rhF2U .KeepWithNext = True
:"Vmy. xq .OutlineLevel = wdOutlineLevelBodyText
& |IO+'_ D{7sfkcJ .CharacterUnitLeftIndent = 0
B|syb!g .CharacterUnitRightIndent = 0
W<#Kam :8e .CharacterUnitFirstLineIndent = 0
#x;d+Q@ /?>W\bP< .LineUnitBefore = 0
C^?/9\
.LineUnitAfter = 0
ht\_YiDg3 End With
-R9{Ak ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False
3
JlM{N6+ ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll
2n"-~'3\ ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese
;qzn _W ActiveDocument.Styles("QLNU图片段落").NoProofing = True
Cf 202pF3y DoEvents
Y xnZ0MY 9
n5uO[D Nt
tu)wr '第X章
s&%r? ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
4{,!'NA ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle"
)"Ujx`]4r ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False
Yi-,Pb?
With ActiveDocument.Styles("QLNU章节标题").Font
T 2?.o.&u .NameFarEast = "黑体"
,jnaa (n .NameAscii = "Arial Black"
7iy 2V
;} .NameOther = "Arial Black"
_+}o /449 .Name = "黑体"
r{* Qsaw .Size = 16
_or_Vw! .Bold = True
#.FhN x .UnderlineColor = wdColorAutomatic
'Q* .[aJt .Outline = False
KfK5e{yT .Italic = wdUndefined
&/Gf@[ .Subscript = wdUndefined
uKY1AC__ .Superscript = wdUndefined
/`qQWB5b .Scaling = 100
\1u^ ?cBd .DisableCharacterSpaceGrid = True
IM,d6lN6s End With
}V/iU_) With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat
Ut%{pc 7^F .LineSpacingRule = wdLineSpaceSingle
nr>Y j ?la .Alignment = wdAlignParagraphCenter
a/CY@ V- .WidowControl = True
f4`Nws-dP .KeepWithNext = True
ZXj* Vu$_4 .KeepTogether = True
9G1ZW=83 .PageBreakBefore = True
P e}
T .OutlineLevel = wdOutlineLevelBodyText
[:izej( \
'0Q/oU .LeftIndent = CentimetersToPoints(0)
>of9m
.RightIndent = CentimetersToPoints(0)
=BD |uIR .FirstLineIndent = CentimetersToPoints(0)
ow+_g R- &i805,lx .CharacterUnitLeftIndent = 0
(Ms0pm-#t .CharacterUnitRightIndent = 0
$;";i:H` .CharacterUnitFirstLineIndent = 0
_Kli~$c& M
?nJv f .LineUnitBefore = 1
N+]HJ`K .LineUnitAfter = 0.5
Y|#< kS Z@ec}`UO|u .AutoAdjustRightIndent = False
[$]-W$j+
.DisableLineHeightGrid = True
cNKGEm
;z .FarEastLineBreakControl = True
D3O)Tj@:}( .WordWrap = True
}Oe4wEYN) End With
{iQ4jJ` n ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False
kB?Uw#
ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll
?: 5/4YC
ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese
Eg4&D4TG p ActiveDocument.Styles("QLNU章节标题").NoProofing = True
{rF9[ S"h DoEvents
tI0 D{Xrc Rto/-I0l '表格标题
c ? Zi/7 ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
yJw.z#bB# ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle"
/+<G@+( ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False
A/ Sj>Y1j With ActiveDocument.Styles("QLNU表格标题").Font
M?m@o1\;W .NameFarEast = "楷体"
zo
]-,u .NameAscii = "Arial"
16ip:/5 .Name = "楷体"
fn5!Nr , .Size = 10.5
x=W5e
^0? .Bold = True
l:a#B
.Underline = wdUnderlineNone
D;:p6q}hT .Italic = wdUndefined
-LFk 7a .Subscript = wdUndefined
bvl!^xO] .Superscript = wdUndefined
P#:n Xc$ .Color = wdColorAutomatic
do.XMdit End With
iII%!f?{[ With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat
Q{
g{ (76tYt~I= .LineSpacingRule = wdLineSpaceSingle
F$s:
\ N .Alignment = wdAlignParagraphCenter
fG@]G9Z .KeepWithNext = True
&`g^b^i .KeepTogether = True
N D3|wQ`M0 .OutlineLevel = wdOutlineLevelBodyText
zq$0 ?vGd =Q# (2 .LeftIndent = CentimetersToPoints(0)
U @}r?!)"f .RightIndent = CentimetersToPoints(0)
;e 2D} .FirstLineIndent = CentimetersToPoints(0)
Nah\4-75& X4k|k> .CharacterUnitLeftIndent = 0
qP9`p4c8i .CharacterUnitRightIndent = 0
hBD
mC_\~ .CharacterUnitFirstLineIndent = 0
w s;|
fY 7 $Cv=8 .LineUnitBefore = 1
$m-@ICG# .LineUnitAfter = 0
b-#oE{(\' s?9`dv} P End With
gd0a,_`M ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False
nbv}Q-C ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll
S2
-J1 x2N ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese
Co/04F. ActiveDocument.Styles("QLNU表格标题").NoProofing = True
sZ"(#g ;3< DoEvents
Q0XSQ Ol qnU`Q{ '表格首行
D4{
<~/oBv ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle")
7<*g'6JG[ ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False
2p *!up( With ActiveDocument.Styles("QLNU表格首行").Font
2H1?f|0> .NameFarEast = "楷体"
NiVZ=wEp, .NameAscii = "Times New Roman"
(F*y27_u .Name = "楷体"
Eb&=$4c= .Size = 9
Xa g#ZT .Bold = True
: c:}_t{% .Underline = wdUnderlineNone
RRpCWc Iv" .Italic = wdUndefined
R,l*@3Q .Subscript = wdUndefined
b-J6{ =k^ .Superscript = wdUndefined
4^^=^c End With
}'p*C$ With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat
Sq`Zuu9t .LineSpacingRule = wdLineSpaceSingle
94lz?-j .Alignment = wdAlignParagraphCenter
0Y!~xyg/ /i"1e:cK .LeftIndent = CentimetersToPoints(0)
i66/2BUh. .RightIndent = CentimetersToPoints(0)
K:$G mV9o .FirstLineIndent = CentimetersToPoints(0)
WuQ;Da0+_F AgOti]`aR 0.~s>xXp .CharacterUnitLeftIndent = -0.5
h.xtkD)Y~ .CharacterUnitRightIndent = -0.5
i2
)$%M& .CharacterUnitFirstLineIndent = -0.5
QwnqysNx4 rLp0)Go .LineUnitBefore = 0
L7y EgYB .LineUnitAfter = 0
#Fh:z4 .SpaceBefore = 0
~ T=a]V .SpaceAfter = 0
OFZo"XtF S;u 2B_/ End With
7#P Q1UWl ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False
& <(&u`S ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll
h \6 t\_^\ ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese
&!>.)I` ActiveDocument.Styles("QLNU表格首行").NoProofing = True
<I{Yyl^ DoEvents
Q^'xVS_. =>e>
r~cW '表格内容
mW3 IR3 b ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle")
> =Na, D ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False
pWeD,!f With ActiveDocument.Styles("QLNU表格内容").Font
! ^aJS'aq .NameFarEast = "楷体"
m&- -$sr .NameAscii = "Times New Roman"
\ 5#
eBJ .Name = "楷体"
V zh\ 1cF .Size = 9
; YrmT9Jx6 .Bold = False
c O dgBi .Underline = wdUnderlineNone
Ki[&DvW: .Italic = wdUndefined
9$ixj kIg .Subscript = wdUndefined
- S%Uw .Superscript = wdUndefined
C jz(-018 End With
LP> GM=S#" With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat
NC"X{$o2 .LineSpacingRule = wdLineSpaceSingle
?0d#O_la
3 .Alignment = wdAlignParagraphCenter
Upc_"mkI. ;( Z9. .LeftIndent = CentimetersToPoints(0)
$F@ ,, * .RightIndent = CentimetersToPoints(0)
: TP\pH 7E .FirstLineIndent = CentimetersToPoints(0)
p-6T,' ) s[t?At-> .CharacterUnitLeftIndent = -0.5
{afIr1j/m .CharacterUnitRightIndent = -0.5
G4EuW *~ .CharacterUnitFirstLineIndent = -0.5
Dd:48sN:Jq .LineUnitBefore = 0
wYd{X 8$ .LineUnitAfter = 0
[n$6 T .SpaceBefore = 0
(I#3![q .SpaceAfter = 0
"i\^GK= End With
K*to my ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False
fHgvh&FU ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll
ZkF6AF ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese
*3(mNpi{_ ActiveDocument.Styles("QLNU表格首行").NoProofing = True
|Syulus DoEvents
we33GMxHl` 5~RR
_G '图片标题
: !wt/Y ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
cE *d (g ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle"
mfk^t` w_ ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False
Md*.q^: With ActiveDocument.Styles("QLNU图片标题").Font
2GR v%:rZ .NameFarEast = "楷体"
dSE"G>l8 .NameAscii = "Times New Roman"
5?>ES* .Name = "楷体"
NqN}] nu6 .Size = 10.5
(J.U{N v .Bold = True
N LSJ
D .Underline = wdUnderlineNone
* $Z?Owl7 .Italic = wdUndefined
3#{Al[ jq .Subscript = wdUndefined
5>fAO =u!Q .Superscript = wdUndefined
6&"GTK .Outline = False
)D7/[zb^ .Shadow = False
55zy]|F" .Color = wdColorAutomatic
-=2V4WU~ End With
%vRCs] With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat
Ime" }*9 .LineSpacingRule = wdLineSpaceSingle
+DYsBCVbag .Alignment = wdAlignParagraphCenter
ey`E
E/WV ~Vf
A .KeepWithNext = wdUndefined
E g_ram`\R .KeepTogether = True
|0V
Z1{=* .OutlineLevel = wdOutlineLevelBodyText
a6 "-, Kg $A
dBX}{ .LeftIndent = CentimetersToPoints(0)
Bh65qHQO .RightIndent = CentimetersToPoints(0)
H
;)B5C .FirstLineIndent = CentimetersToPoints(0)
+EH" A ]}9[ys .CharacterUnitLeftIndent = 0
ZtX
CPA! .CharacterUnitRightIndent = 0
n"Wlfd0 .CharacterUnitFirstLineIndent = 0
,-S Wrp`f (JT
273 .LineUnitBefore = 0
Ed1y%mR> .LineUnitAfter = 0
AK &=/ [U> End With
3yLJWHO%W ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False
8-x)8B ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll
PeJIa
%iE ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese
9[:TWvd ActiveDocument.Styles("QLNU图片标题").NoProofing = True
-7VQ {nC DoEvents
&&
b;Wr 3qy 4 nPg '目录项
,#j'~-5 ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle")
X?'pcYSL ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle"
5 i=C?W `' ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False
!d1a9los With ActiveDocument.Styles("QLNU目录项").Font
M AL;XcRR .NameFarEast = "黑体"
T1(*dVU? .NameAscii = "Times New Roman"
HnKXO .NameOther = "Times New Roman"
fN6n2*wr( .Name = "黑体"
g Cx#&
aXS .Size = 10.5
e. R9: .Bold = False
$-paY Q4 .Italic = wdUndefined
sE[
Yg8yAt .Underline = wdUnderlineNone
C sN^u H .Color = wdColorAutomatic
1/J6 <FVq .Superscript = wdUndefined
[-VIojs+u .Subscript = wdUndefined
1YtK+,mz End With
nPUD6<bF With ActiveDocument.Styles("QLNU目录项").ParagraphFormat
&W*^&0AV a: F\ 4x= .LineSpacingRule = wdLineSpaceSingle
b[ ~-b .Alignment = wdAlignParagraphLeft
@ e l 8Y/1+- .WidowControl = False
]&X}C{v)G .KeepWithNext = False
YVPLHwh/5 .KeepTogether = False
8;x0U`}Ez( .PageBreakBefore = False
]$I}r=
Em .NoLineNumber = False
wQ81wfr1: .OutlineLevel = wdOutlineLevelBodyText
- ]Q\G =G`g-E2 .LeftIndent = CentimetersToPoints(0)
H`rd b E .RightIndent = CentimetersToPoints(0)
H'&[kgnQ@ .FirstLineIndent = CentimetersToPoints(0)
W@D. /Th H 4<Q}([w .CharacterUnitLeftIndent = 0
s13 3N? .CharacterUnitRightIndent = 0
wv
^n# .CharacterUnitFirstLineIndent = 0
`pqT iV 7\yh<?`V8 .LineUnitBefore = 0
#g<6ISuf .LineUnitAfter = 0
r'MA$PiS' End With
]#vi/6\J ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False
P[tYu: ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll
&
mm!UJ ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot
ZKai*q4? ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese
U|x#'jGo' ActiveDocument.Styles("QLNU目录项").NoProofing = True
9A *gW j DoEvents
I5ZM U Cl!9/l?z '参考文献
-L!lJ ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle")
xL"O~ jTS ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle"
1o?uf
,H7O ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False
d-T pY*v With ActiveDocument.Styles("QLNU参考文献").Font
k `J|]99Wb .NameFarEast = "宋体"
-!
^D8^ s .NameAscii = "Times New Roman"
\sus L D .NameOther = "Times New Roman"
kq@~QI?9 .Name = "Times New Roman"
Y}
6 @ w .Size = 12
Pk;YM} .Bold = False
}
g%v<'K .Italic = wdUndefined
`Ay:; I .Subscript = wdUndefined
`i<Z<
<c> .Superscript = wdUndefined
"egpc*|] .Underline = wdUnderlineNone
e(Rbq8D .UnderlineColor = wdColorAutomatic
PJ ^qE| X .Color = wdColorAutomatic
y2=yh30L0E .Engrave = False
@4n>I+6*& End With
w8a49 Fv With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat
Nt/hF>"7 Z{ 1B:aW .LineSpacingRule = wdLineSpaceExactly
; RYIc0% .LineSpacing = 16
L[!
||5y .Alignment = wdAlignParagraphLeft
[Kaa {+,( .WidowControl = False
5<YL^m{/L .KeepWithNext = False
gj
I>tz} .KeepTogether = False
iU AY
.PageBreakBefore = False
'UM *7 .OutlineLevel = wdOutlineLevelBodyText
~ 7<M6F }
| .LeftIndent = CentimetersToPoints(0)
A# Y:VavQ? .RightIndent = CentimetersToPoints(0)
BAtjYPX'w .FirstLineIndent = CentimetersToPoints(0)
s;-AZr) <LN 7 +7} .CharacterUnitLeftIndent = 0
3c F8DN
h .CharacterUnitRightIndent = 0
P~%+KxwZQ .CharacterUnitFirstLineIndent = -2
`@#rAW D 5GGO: .LineUnitBefore = 0
"uFwsjz&B .LineUnitAfter = 0
nlA:C>= .SpaceBefore = 0
UqNUX?( .SpaceAfter = 0
'c# }^@G }b/P\1#z End With
bAwKmk9C ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False
uF<?y0t ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll
{(I":rt# ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS
4is s j$ ActiveDocument.Styles("QLNU参考文献").NoProofing = True
A WJA? ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese
Z58{Y C Y DoEvents
x_r*<?OZ SYa
O'c '
n]i#&[*A( ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle")
B<0Kl.V ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle"
[2E( 3`-u ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False
!s : e With ActiveDocument.Styles("QLNU论文题目").Font
h}kJ,n .NameFarEast = "黑体"
?:G 3U\M .NameAscii = "Arial Black"
8 |zOgn{ .NameOther = "Arial Black"
$m A2 AI .Name = "Arial Black"
%r8;i .Size = 16
ARE jS $
.Bold = False
< >728; /C .Italic = wdUndefined
YrV@k*O* .Superscript = wdUndefined
` 46z D
? .Subscript = wdUndefined
@_1cY#! .Underline = wdUnderlineNone
nv\K!wZI=b .UnderlineColor = wdColorAutomatic
'gHg&E9E& .Color = wdColorAutomatic
7Gy:T47T\@ h~ZLULW)B End With
~S\> F\v6' With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat
@0d "^
.LineSpacingRule = wdLineSpaceSingle
W#=,FZT .Alignment = wdAlignParagraphCenter
-& =d l_m .WidowControl = True
5{ bc&?" .KeepWithNext = True
N1 B$z3E * .KeepTogether = True
e5
}amrz .PageBreakBefore = True
_
j`tR : .NoLineNumber = False
8:> V'j .OutlineLevel = wdOutlineLevelBodyText
dqs ~K7O^E v*%52_ .LeftIndent = CentimetersToPoints(0)
SMzq,?-` .RightIndent = CentimetersToPoints(0)
2=/-,kO L_ .FirstLineIndent = CentimetersToPoints(0)
V@ [C=K <'N
:K@Cs .CharacterUnitLeftIndent = 0
Qj*.Z4ue .CharacterUnitRightIndent = 0
n 4
y]h .CharacterUnitFirstLineIndent = 0
*QV"o{V `.J17mQe" .LineUnitBefore = 1
'C]Y h
."u .LineUnitAfter = 1
z+- o}i >##Z} auY .BaseLineAlignment = wdBaselineAlignAuto
52zE -SY End With
,~D
V0#" ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False
"%\hDL; ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll
A+3SLB ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS
_54gqD2C,
ActiveDocument.Styles("QLNU论文题目").NoProofing = True
0[e!/*_V ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese
Rc
&m4|cw7 ActiveDocument.Styles("QLNU论文题目").NoProofing = True
LD1&8kJ*l DoEvents
9g>)7Ne aYDo0?kF' '中文摘要
UtP|< ]{ ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle")
hidQO h ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle"
;lvcg)}l ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False
,[)l>!0\H With ActiveDocument.Styles("QLNU中文摘要").Font
1GqSY|FSGp .NameFarEast = "宋体"
uxB` .NameAscii = "Times New Roman"
gn&Zt}@[ .NameOther = "Times New Roman"
Fk^N7EJ:$ .Name = "Times New Roman"
@`dlhz .Size = 12
Hf\sF(, ( .Bold = wdUndefined
;S '?l0 .Superscript = wdUndefined
gKQV 99 .Subscript = wdUndefined
+ @ ~WKa .Italic = wdUndefined
{M5t)-
.Underline = wdUnderlineNone
I]E 3&gnC .UnderlineColor = wdColorAutomatic
b?c/J {me .Color = wdColorAutomatic
n,2
End With
qR_>41JU" With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat
*mbzK*
.LineSpacingRule = wdLineSpaceExactly
mEsb_3?#+ .LineSpacing = 20
bwH[rT!n .Alignment = wdAlignParagraphLeft
}YV F
fi~ |`t 6lVO,Z .WidowControl = False
~UZ3 lN\E .KeepWithNext = False
E
2d'P .KeepTogether = True
H!&_Tv[ .PageBreakBefore = False
x~vNUyEN) .NoLineNumber = False
G!;PV^6x .OutlineLevel = wdOutlineLevelBodyText
cR_ pC
9z g,rmGu3v .LeftIndent = CentimetersToPoints(0)
7e AV2. .RightIndent = CentimetersToPoints(0)
OF+4M q .FirstLineIndent = CentimetersToPoints(0)
gWzslgO6 ~ > Q9 .CharacterUnitLeftIndent = 0
J=t}9.H~= .CharacterUnitRightIndent = 0
_+'!l'` .CharacterUnitFirstLineIndent = 2
@O koT: .LineUnitBefore = 0
DA.k8M .LineUnitAfter = 0
-z0;4O (K] 28 ` s+sH End With
;o9ixmT<-o ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False
YWvD+ ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll
p @nj6N.-- ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS
v"W*@7<`S ActiveDocument.Styles("QLNU中文摘要").NoProofing = True
qz{9ND| ) ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese
f:O bI ActiveDocument.Styles("QLNU中文摘要").NoProofing = True
ir/uHN@ ActiveDocument.Styles("QLNU中文摘要").Frame.Delete
@uldD"MJ<] DoEvents
{(!JYz~P *=.~PR6W{ ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
^'0N%`bY! ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle"
rM"27ud[`_ ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False
p CA`OP);= With ActiveDocument.Styles("QLNU英文标题").Font
(+[%^96 .NameFarEast = "黑体"
bWAa:
r .NameAscii = "Arial Narrow"
-v.\W y~\ .Name = "Arial Narrow"
7J!s"|VS .Size = 16
-(]C FnD_N .Bold = True
KE@+I.x .Bold = wdUndefined
&29jg_'W .Superscript = wdUndefined
^9:`D@Z+ .Subscript = wdUndefined
[`t ;or .Italic = wdUndefined
ao"2kqa)r 9$HBKcO .Underline = wdUnderlineNone
U/^#nU., .UnderlineColor = wdColorAutomatic
PXkpttIE]M .StrikeThrough = False
3ie
k >'T .DoubleStrikeThrough = False
^n
(FO,8c End With
(u} /( Ux With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat
} b&lHr'Uw .LineSpacingRule = wdLineSpaceSingle
uVCH<6Cp .Alignment = wdAlignParagraphCenter
}`g-eF >p .WidowControl = True
OtmDZ.t;` .KeepWithNext = False
_X~O 6e-! .KeepTogether = False
]i $0 s .PageBreakBefore = False
V<J1.8H
.NoLineNumber = False
BEvY& 3%l .FirstLineIndent = CentimetersToPoints(0)
6UuN
-7z!" .OutlineLevel = wdOutlineLevelBodyText
5dI=;L >D CV.|~K0O .LeftIndent = CentimetersToPoints(0)
tVEe) QX .RightIndent = CentimetersToPoints(0)
oDMPYkpTu .FirstLineIndent = CentimetersToPoints(0)
fy4
zBI@ $_E.D>5^%7 .CharacterUnitLeftIndent = 0
OyF=G^w .CharacterUnitRightIndent = 0
8c+V$rH_ .CharacterUnitFirstLineIndent = 0
& h I!mo nOvR, 6
.LineUnitBefore = 1
2cH RiRT .LineUnitAfter = 1
8qg%>ZU4d Sb /?<$> End With
Hf?@<4
ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False
r|u[36NmA ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll
XGR2L
DR ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS
mn?F;= qE ActiveDocument.Styles("QLNU英文标题").NoProofing = True
jRU
: un4 ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese
A- T-4I ActiveDocument.Styles("QLNU英文标题").NoProofing = True
`\62 iUN ActiveDocument.Styles("QLNU英文标题").Frame.Delete
>5Yn`Fc5 DoEvents
mi7?t/D1Z '-
YiV ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle")
t4_yp_ ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle"
5MaN
{ *)l ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False
)|xu5.F With ActiveDocument.Styles("QLNU英文摘要").Font
p%>sc .NameFarEast = "宋体"
J
W@6m .NameAscii = "Arial"
FL^ _)` .NameOther = "Arial"
z7bJV/f .Name = "Arial"
gZ$
8Y7 .Size = 12
Fm 0d0j .Bold = wdUndefined
tr [}F7n9 .Italic = wdUndefined
V%r`v%ktF .Superscript = wdUndefined
AAlc %d/9 .Subscript = wdUndefined
# dUKG8-HJ End With
S
F*C' rM
,e
$ With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat
e"% TU ,bl }@0A .LineSpacingRule = wdLineSpaceExactly
&/]en|f" .LineSpacing = 20
1fS &KO{a kk- <+R2 .Alignment = wdAlignParagraphJustify
>X$JeME3 {x_.QWe5 .WidowControl = False
dDpAS#'s\ .KeepWithNext = False
E(4c & .KeepTogether = False
UpG DLb f^ .PageBreakBefore = False
.Rk8qR
B .NoLineNumber = False
FT- .gi0 /=m A
VA .OutlineLevel = wdOutlineLevelBodyText
>nghFm z/ 1$G" .LeftIndent = CentimetersToPoints(0)
DJ, LQj .RightIndent = CentimetersToPoints(0)
:}zyd; Rc .FirstLineIndent = CentimetersToPoints(0)
C! *!n^qA >,{s Fc .CharacterUnitLeftIndent = 0
v"o"
W[ .CharacterUnitRightIndent = 0
hi1Ial\Y .CharacterUnitFirstLineIndent = 2
BqNeY<zB* >0{}tRm-P& .LineUnitBefore = 0
?l/6DT>e .LineUnitAfter = 1
dgkS5Q$/ LU MbRrD- End With
W/!P1M n ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False
?n `m ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll
[! $N Tt_ ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS
3
y}E*QE ActiveDocument.Styles("QLNU英文摘要").NoProofing = False
GpeW<%
\P DoEvents
7z4k5d<^_ #y:D{%Wp Options.Pagination = True
Bdt6 w(`^ Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....."
xR0T
' @q DoEvents
51
q|-d ActiveDocument.Repaginate
= UH3. iQgg[
) End Sub
_Hv+2E[4Z <b zzbR[F eUA] OF @
