Dim bContinue As Boolean
E'iE#He Om3Ayk} Dim regEX As New RegExp
hBgE%#`s Dim paraCounter As Long '全局段落计数，仅在主程序中可读写，其它过程函数应为只读
r@G*Fx8Z jIh1)*]054 Dim LastTitle0String As String, LastTitle0No As Long
F^,:p.ihm< Dim LastTitle1String As String, LastTitle1No As Long
?sfqg gi Dim LastTitle2String As String, LastTitle2No As Long
g*k)ws Dim LastTitle3String As String, LastTitle3No As Long
:!gNOR6Lh Dim LastTitle4String As String, LastTitle4No As Long
&raqrY|V Dim LastTitle5String As String, LastTitle5No As Long
/t5)& Dim LastTabelString As String, LastTableNo As Long
'g#%> Dim LastFigureString As String, LastFigureNo As Long
T(|'.&a OB>Hiy
Dim strSeperator As String
\J LGw1F RpdUR*K9x Sub ConvertWidth(fTEXT As String, rText As String)
*-VRkS-G Selection.Find.ClearFormatting
y r (g/0 Selection.Find.Replacement.ClearFormatting
q4RO
uE|d Selection.Find.Wrap = wdFindContinue
{C | R@S Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText
.?}M(mL DoEvents
5 xH=w: Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True
+C~h( End Sub
0U42QEG2 6w.E Sm Sub ClearDomain()
q,v<:sS9T With Selection.Find
$8^H k xy .ClearFormatting
3%v)!dTa<^ .Replacement.ClearFormatting
8/e-?2l .Wrap = wdFindContinue
bY_'B5$.^2 Me.txtStatus.Text = "清除所有域代码"
:Cq73:1\B DoEvents
<G})$f'x2 .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False
_^ hg7&dF End With
D fs^W{YA End Sub
zB
.cOMx -^&=I3bp Private Sub cmdCheck_Click()
I}f`iBG bContinue = True
SYJO3cY Dim NoSeries1(1 To 16) As String
:{ u`qi Dim NoSeries2(1 To 16) As String
IDct!53~ Dim NoSeries5(1 To 16) As String
c~0kZ A6 Dim NoSeriesRM(1 To 16) As String
VL%. maj Dim paraTotal As Long, ParaText As String
.Fb#j+Lq Dim ttString As String, ttNo As String
<k
B:`&X<\ < 4r8H-(% Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long
~yv7[`+Tgg fCt|8,-H Me.txtStatus.Visible = True
%;`Kd}CO Me.lbParaType.Visible = True
Xh e& "rM Me.cmdCheck.Enabled = False
ljFq ;!I5 @SX%q&- *)m:u : ki1(b]rf ;| Cd q Dim ParaType As String, rText As String
Dka,v P&`%VW3E Selection.WholeStory
c 4z&HQd Selection.NoProofing = True
+p 6Ty2rz Ejug2q tm1 = Now
]r`;89:s> (p]FI # y ActiveWindow.View.Type = wdNormalView
*-0s
` rC "vGh/sXW NoSeries1(1) = "一"
N{J
1C6 NoSeries1(2) = "二"
Q2
q~m8( NoSeries1(3) = "三"
i/:L^SQAq NoSeries1(4) = "四"
la[
pA NoSeries1(5) = "五"
\, R; NoSeries1(6) = "六"
U[C>Aoze NoSeries1(7) = "七"
_a09;C NoSeries1(8) = "八"
20Zxv! NoSeries1(9) = "九"
%
/:1eE`!S NoSeries1(10) = "十"
^'QO!{7f NoSeries1(11) = "十一"
M}]
*j NoSeries1(12) = "十二"
MQ,K%_m8 NoSeries1(13) = "十三"
[@@{z9c NoSeries1(14) = "十四"
Yp\n= #$[ NoSeries1(15) = "十五"
}M4dze NoSeries1(16) = "十六"
EP:`l A6(D o]M NoSeries2(1) = "㈠"
O_QDjxj^rZ NoSeries2(2) = "㈡"
N+&uR!:.C NoSeries2(3) = "㈢"
o3 0C\ NoSeries2(4) = "㈣"
z'l$;9(y NoSeries2(5) = "㈤"
Q68~D.V%r NoSeries2(6) = "㈥"
t:wBh'K~R8 NoSeries2(7) = "㈦"
r1!1u7dr
t NoSeries2(8) = "㈧"
1UP
{j`-K| NoSeries2(9) = "㈨"
yr\ClIU NoSeries2(10) = "㈩"
l7`{ O/hN h<9vm[ . NoSeries5(1) = "①"
Jn+ -G4h$ NoSeries5(1) = "②"
[?K>s>it NoSeries5(3) = "③"
n#!c!EfG NoSeries5(4) = "④"
w=KfkdAJ*/ NoSeries5(5) = "⑤"
77\+V 0cF NoSeries5(6) = "⑥"
8}n< 3_ NoSeries5(7) = "⑦"
-
2)k!5X= NoSeries5(8) = "⑧"
1$
Hou
NoSeries5(9) = "⑨"
|5u~L#P NoSeries5(10) = "⑩"
<]Td7-n oh5 'Isb$ yD"]:ts3 NoSeriesRM(1) = "I"
99y WUC, NoSeriesRM(2) = "II"
} c
G)$E NoSeriesRM(3) = "III"
rK gl:s j+ NoSeriesRM(4) = "IV"
t/|0"\ p NoSeriesRM(5) = "V"
|>Q>d8|k NoSeriesRM(6) = "VI"
9'MGv *Ho NoSeriesRM(7) = "VII"
aM5]c c% NoSeriesRM(8) = "VIII"
h@RpS8!Bi NoSeriesRM(9) = "IX"
n)yDep]$G NoSeriesRM(10) = "X"
E/cV 59 NoSeriesRM(11) = "XI"
fcq8aW/z_ NoSeriesRM(12) = "XII"
bjVk9XvH6 NoSeriesRM(13) = "XIII"
ky2]% cw NoSeriesRM(14) = "XIV"
I\*6
> NoSeriesRM(15) = "XV"
UL[,A+X8D NoSeriesRM(16) = "XVI"
=lAjQt SkuR~ ! i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo)
!Z_+H<fi+I =g+}4P If i = vbNo Then
('x]@ Exit Sub
!wp1Df[ End If
$R DlM x3n9 |Uud If Me.chkSuper.Value Then
suE K;Bk9 Me.txtStatus.Text = "检查修改所有的上标格式"
|WB-N g > 0HH#JW CheckSuperScript
&S4*x|-C& /&Q{B f End If
.\_ ):j* ;nS
F\X(;{ If Me.chkStyle.Value Then
|z)s9B;:#i Me.txtStatus.Text = "设置样式，请稍候...."
p]L]=-( qI DoEvents
Kx9u|fp5 CeateOrModifyStyle
2^[dy>[y0 End If
|r ~ u7U\ !!\}-r^y% h,c*: izP )t ClearDomain
#mV2VIX#Jv puPI ^6y% q>_<\|?%x jG>W+lq If Me.chkLIST.Value Then
L[<#>/NPy Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式"
O9daeIF0# k;\gYb%L ConvertListToOrdinary
s)Y1%# End If
^ ]9K>} oC`F1!SfOO Pn!~U] A$% Dim pType As String, trimpTEXT As String
$0$sM/
% If Me.chkNum.Value = True Then
7y$\|WG?!r Me.txtStatus.Text = "转换全角数字形式为半角"
!E$$ FvL ConvertWidth "１", "1"
0AHQ(+Ap DoEvents
^kfqw0! ConvertWidth "２", "2"
Wt/;iq" DoEvents
}y6)d. ConvertWidth "３", "3"
Kk^* #vR DoEvents
*2
Pr1U ConvertWidth "４", "4"
<,
CrE5Pl DoEvents
biHacm
ConvertWidth "５", "5"
||hQ*X<m> DoEvents
t7b y OMC ConvertWidth "６", "6"
prZ
,4\ DoEvents
M5{#!d}^D ConvertWidth "７", "7"
mx^Ga=:
? DoEvents
"Not /
8J ConvertWidth "８", "8"
w_{tS\ DoEvents
^QN c!{ `
ConvertWidth "９", "9"
+q&Hj|;8r DoEvents
s 4bV0k ConvertWidth "０", "0"
I|rb"bG DoEvents
?^voA.Bv< ConvertWidth "ａ", "a"
i "&FW&W DoEvents
#*bmwb*i ConvertWidth "ｂ", "b"
| Gic79b DoEvents
4Ly>x>b < ConvertWidth "ｃ", "c"
)$] lf } DoEvents
vRe{B7}p; ConvertWidth "ｄ", "d"
u Z
6krI DoEvents
o 2
ng
ConvertWidth "ｅ", "e"
lpG%rN! DoEvents
_mSefPl ConvertWidth "ｆ", "f"
Z3]I^i
FI DoEvents
",,# q ConvertWidth "ｇ", "g"
GK/Po51 DoEvents
m!7%5=Fc ConvertWidth "ｈ", "h"
H,} &=SCk DoEvents
C*mVM!D);! ConvertWidth "ｉ", "i"
)-
W 1Wtom DoEvents
F! !HwI ConvertWidth "ｊ", "j"
u"h/ERCa DoEvents
6*i ** ConvertWidth "ｋ", "k"
Cd*h4Q]S DoEvents
t5{P'v9J ConvertWidth "ｌ", "l"
c)#P} Ai DoEvents
t@!n?j
I ConvertWidth "ｍ", "m"
EHUx~Q
DoEvents
JmCMF q B9 ConvertWidth "ｎ", "n"
O c L7] b0 ConvertWidth "ｏ", "o"
vH+g*A0S< ConvertWidth "ｐ", "p"
gsL=_#
? ConvertWidth "ｑ", "q"
{KgA
V
ConvertWidth "ｒ", "r"
:|;@FkQ ConvertWidth "ｓ", "s"
w(@r-2D" ConvertWidth "ｔ", "t"
Ay(p~U;gN* ConvertWidth "ｕ", "u"
>._d2.Q' ConvertWidth "ｖ", "v"
@` KYgjjH ConvertWidth "ｗ", "w"
i}vJI}S.$ ConvertWidth "ｘ", "x"
-leX|U}k ConvertWidth "ｙ", "y"
l@);U%\pS ConvertWidth "ｚ", "z"
B@F@,? K4% ConvertWidth "Ａ", "A"
r *K ConvertWidth "Ｂ", "B"
;TL.QN/l ConvertWidth "Ｃ", "C"
@jn&Wf? ConvertWidth "Ｄ", "D"
Cu7{>" ConvertWidth "Ｅ", "E"
H*0Y_H= ConvertWidth "Ｆ", "F"
BAQ- 1kSz ConvertWidth "Ｇ", "G"
= Pv_,% ConvertWidth "Ｈ", "H"
6U{A6hH] ConvertWidth "Ｉ", "I"
hC2Fup1 @ ConvertWidth "Ｊ", "J"
y?OP- 27y ConvertWidth "Ｋ", "K"
dJR[9T_OF ConvertWidth "Ｌ", "L"
Z1 Ne p ! ConvertWidth "Ｍ", "M"
irQ'Rm [ ConvertWidth "Ｎ", "N"
wqo:gW_ ConvertWidth "Ｏ", "O"
r,;ca6>5H ConvertWidth "Ｐ", "P"
~/G)z?+E ConvertWidth "Ｑ", "Q"
ZPZh6^cc ConvertWidth "Ｒ", "R"
+Kk1[fh-
ConvertWidth "Ｓ", "S"
8 #4K@nm5 ConvertWidth "Ｔ", "T"
Vg'R=+Wb ConvertWidth "Ｕ", "U"
poBeEpbs ConvertWidth "Ｖ", "V"
uo `R ConvertWidth "Ｗ", "W"
m|q,i xg ConvertWidth "Ｘ", "X"
WJq>%<# ConvertWidth "Ｙ", "Y"
I/7!5Z* ConvertWidth "Ｚ", "Z"
9 w-\
K] ConvertWidth "^l", "^p"
G[KjK$.Ts? ConvertWidth "（", "("
E !!,JnU ConvertWidth "）", ")"
[Vs\r&qL x^K4&'</ End If
jz8u'y [n7 %}@iz(*}> With ActiveDocument
{VAih-y Dim tbl As Table
P3 "R2- For Each tbl In .Tables
?W'z5'| tbl.Rows.Alignment = wdAlignRowCenter
@bg9
}Z%\h tbl.Range.Font.NameFarEast = "楷体"
vX:}tir[ tbl.Range.Font.NameAscii = "Times New Roman"
k o@ej
^ tbl.Range.Font.Size = 10.5
h ~>1 -T8 Next
m[}P Set tbl = Nothing
`N\ ^JAGW End With
akv i^]x P}4&J ^ g`pq* D With ActiveDocument
^xHKoOTj[ h,{Q %sqO For i = 1 To .TablesOfContents.Count
ZxvH1qx8 .TablesOfContents(i).Delete
YF{MXK} Next
C&z!="hMhR
8$NVVw]2, _ ^FC 9 b ~zSs ws. paraTotal = .Paragraphs.Count
S1$^ _S
= paraCounter = 1
W'4/cO
S# ]] h/
LastTitle0No = 0
%"`p&aE : LastTitle1No = 0
^BF}wQb :j LastTitle2No = 0
8Qg{@#Wr LastTitle3No = 0
xJ3C^b%H LastTitle4No = 0
8xB-cE LastTableNo = 0
jC&fnt,O LastFigureNo = 0
]ogifnwv t/[lA=0 )2 Dim Sec As Long
WX4sTxJK *duG/?>P Sec = InputBox("正文从第一节开始？", "节设置", 6)
uq3pk3
)W9 If Sec = 0 Then
J2qsZ
Exit Sub
k>ErD v8 End If
ndD>Oc}"3 ]({ -vG\m k = 0
`Moo WG Do While (paraCounter < paraTotal) And bContinue
u
8o ! k = k + 1
b^HDN(v If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then
RQ E]=N Exit Do
<);q,|eh2 End If
]1++$E j paraCounter = paraCounter + 1
+;W %v7 %< If k Mod 20 = 0 Then
-jJhiaJ$< Me.lbCounter.Caption = paraCounter
d 7^
` DoEvents
= n,;S W End If
^{"i eVn Loop
q=3>ij {v U =J5lo Z Su.0|0# Do While (paraCounter < paraTotal) And bContinue
Mqr]e#"o ]+:yfDtZd ParaText = Trim(.Paragraphs(paraCounter).Range.Text)
P3Ql[ 2 ShapeHeight = 0
EA~xxKq ShapeWidth = 0
:-{"9cgF R -H%v6E%yh CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth
}sxs- O_;BZzT Select Case ParaType
(
}b~}X9 Case "【】表格内容"
N|i>|2EB .Paragraphs(paraCounter).Style = "QLNU表格内容"
UC+Qn Case "章"
0~U 0s3 LastTitle0No = LastTitle0No + 1
[WDza Rzd '新一章开始，复位其下属标题编号
i\CA6I LastTitle1No = 0
s* GZOz LastTitle2No = 0
^ = C> LastTitle3No = 0
wm@j(h4 LastTitle4No = 0
]~;*9`:
J#` 7! k = Val(ttNo)
3#t9pI4 If k = 0 Then '非数字编号章节
k^}[+IFJ If ttNo <> NoSeries1(LastTitle0No) Then
|*?N#0s5h rText = "第" & NoSeries1(LastTitle0No) & ttString
p8,=K< Me.ErrMsg.AddItem "章节编号错误：" & ParaText
2BC!,e$Z End If
[ bnu
DS Else
Ubu&$4a If Val(ttNo) <> LastTitle0No Then
~DD
_n rText = "第" & LastTitle0No & ttString
s:_hsmc" Me.ErrMsg.AddItem "章节编号错误：" & ParaText
]\yB,
End If
W|2^yO,dX IBN g2 Y End If
*fm?"0M5 Fizrsr 6% '章段落设置
JA4 Zg*7I '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅
437Wy+Q|e .Paragraphs(paraCounter).Style = "QLNU章节"
wKpGJ&
{ .Paragraphs(paraCounter).Range.Select
!sX$?P%U Selection.EndKey unit:=wdLine
eP2Q2C8g tc = Replace(rText, vbCr, "")
|V5BL<4 Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False
>Cr"q* Case "一级标题"
-o+t
&m LastTitle1No = LastTitle1No + 1
<4TI;yy6? '新一级标题开始，复位其下属标题编号
<~m qb=qA$ LastTitle2No = 0
XEiVs\) G LastTitle3No = 0
0'd@8]|H LastTitle4No = 0
uL)MbM] ()6% 1zCO If ttNo <> NoSeries1(LastTitle1No) Then
[6TI_U ~ rText = NoSeries1(LastTitle1No) & "、" & ttString
~ n<|f Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText
<qR$ `mLN End If
]L~z9) a>GA=r
6Y2,fW8i, '一级标题段落设置 格式：一、标题内容
^x& x|ckR! .Paragraphs(paraCounter).Range.Text = rText
| +;ZC y .Paragraphs(paraCounter).Style = "QLNU一级标题"
c^=
q(V .Paragraphs(paraCounter).Range.Select
%ZoJu Selection.EndKey unit:=wdLine
{APfSD_4 tc = Replace(rText, vbCr, "")
SGl|{+(A Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False
'`upSJ;e Case "二级标题"
R"OT&:0/ LastTitle2No = LastTitle2No + 1
b ]]k\b '新二级标题开始，复位其下属标题编号
4&NB xe LastTitle3No = 0
Q%O9DCi LastTitle4No = 0
a >fA-@ ,P <I<QYu If ttNo <> NoSeries1(LastTitle2No) Then
.Vt|;
P} rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString
?`TJ0("z" ErrMsg.AddItem "二级标题编号错误：" & ParaText
I~l_ky|a ! End If
2- L-=0 L@\t]
~ '二级标题段落设置 格式：(一)、标题内容
|6d:k~p .Paragraphs(paraCounter).Range.Text = rText
#w L(<nE .Paragraphs(paraCounter).Style = "QLNU二级标题"
W^elzN(
bpsyO>lx/ .Paragraphs(paraCounter).Range.Select
0c>>:w20D Selection.EndKey unit:=wdLine
b#I,Z+0ry tc = Replace(rText, vbCr, "")
Lx- %y'P Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 2 ", PreserveFormatting:=False
&3/`cl[+ 4 Ah
F E@ Case "三级标题"
Wqv7 LastTitle3No = LastTitle3No + 1
$MasYi '新三级标题开始，复位其下属标题编号
`G ":y[Q LastTitle4No = 0
>IQ&*Bb m LajiZ Bf If Val(ttNo) <> LastTitle3No Then
^:?z7m rText = LastTitle3No & ". " & ttString
!&OdbRHM Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText
ScJ:F-@> iY>x x~V End If
( &m1* '三级标题段落设置 格式：1. 标题内容
cPIy D?c .Paragraphs(paraCounter).Range.Text = rText
wp:$Tq a$ .Paragraphs(paraCounter).Style = "QLNU三级标题"
xLIyh7$t .Paragraphs(paraCounter).Range.Select
!}c D e12 Selection.EndKey unit:=wdLine
pW ~;B*hF tc = Replace(rText, vbCr, "")
pXNhU88 Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 3 ", PreserveFormatting:=False
KdR\a&[MA Case "四级标题"
ub 2'|CYw LastTitle4No = LastTitle4No + 1
n^QDMyC;I ~6#mVP5sU) If Val(ttNo) <> LastTitle4No Then
{Q/@ Y.~< rText = "(" & LastTitle4No & "). " & ttString
fp ||<B ErrMsg.AddItem "四级标题编号错误：" & ParaText
!& c%!
* 9>+>s ?IgK End If
=x w:@(]{ '四级标题段落设置 格式：(1). 标题内容
t>]W+Lx#
.Paragraphs(paraCounter).Range.Text = rText
` T[yyOL/ .Paragraphs(paraCounter).Style = "QLNU四级标题"
T2-x 1Sw_ .Paragraphs(paraCounter).Range.Select
1%M^MT%& Selection.EndKey unit:=wdLine
mV]~}7*Y; tc = Replace(rText, vbCr, "")
Yaq0mef0 Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 4 ", PreserveFormatting:=False
x75;-q ,dba:D= l Case "表格标题"
5%S5*c6B D LastTableNo = LastTableNo + 1
3D c^lfn b5g^{bzwu If ttNo <> CStr(LastTableNo) Then
{;bec%pq0 rText = "表" & LastTableNo & ". " & ttString
vasw@Uto) ErrMsg.AddItem "表格编号错误：" & ParaText
W{IP}mM ])pX)(a End If
~b8.]Z ^ E2
' Al6^C '表格名称段落设置 格式：表1. 表格名称
G%gdI3h1Z
.Paragraphs(paraCounter).Style = "QLNU表格标题"
|\B\IPs{%' xe = Replace(rText, vbCr, "")
Nj6Np ^@sH .Paragraphs(paraCounter).Range.Select
~(m6dPm$}m Selection.MoveEnd wdCharacter, -1 '选择范围包括行尾的换行符。
aJm5`az) Selection.Range.Text = xe
ZHen: Selection.EndKey
sUF5Y q:9 Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False
N+SA$wG b c
.Vy Case "表格首行"
>`3 0 ib .Paragraphs(paraCounter).Style = "QLNU表格首行"
*QW.#y>"j Case "图片标题"
yq3"VFh3d LastFigureNo = LastFigureNo + 1
>pt I!\ i} A f?&VD4K If ttNo <> CStr(LastFigureNo) Then
,hK
=x rText = "图" & LastFigureNo & ". " & ttString
xG~-. ErrMsg.AddItem "表格编号错误：" & ParaText
JBQ>"X^ 7TAoWD3
End If
.f!'> _ '图片名称段落设置 格式：图1. 图名称
IwFf 8?
3 .Paragraphs(paraCounter).Range.Text = rText
FIn )O-< .Paragraphs(paraCounter).Style = "QLNU图片标题"
JF &$'
.Paragraphs(paraCounter).Range.Select
>VjtKSN Selection.EndKey unit:=wdLine
Y\!:/h]E& xe = Replace(rText, vbCr, "")
lItr*,A] Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False
nb5%a Case "正文"
0T3r#zQ '正文名称段落设置
BvlY\^ .Paragraphs(paraCounter).Style = "QLNU正文"
^R\5'9K! Case "文献条目"
Zo- Au With .Paragraphs(paraCounter)
unL1/JY z '.Range.Select
yPbOiA*lHz 'Selection.ClearFormatting
J
mF`
5 '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator 'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ”
T5 ~Qfl?Y .Style = "QLNU参考文献"
a vS 9 "e End With
oi3Ix7 Case "图表注解"
-NG9?sI\U With .Paragraphs(paraCounter)
jbOzbxR? .Range.Font.NameFarEast = "楷体"
-eSI"To L< .Range.Font.NameAscii = "Times New Roman"
"z.!h(Eq .Range.Font.Size = 9 '小5号字
\l6mX In=> p*P0 <01Z .Alignment = wdAlignParagraphCenter
:\#]uDT2= .LeftIndent = 0
W6B o\UK .RightIndent = 0
YVY(uq)d .FirstLineIndent = 0
[t^%d 9@t .LineSpacing = 12
t
ORDtMM9+ .LineSpacingRule = wdLineSpaceExactly
x2i`$iNhmP .LineUnitAfter = 0
VAxk?P0j6 .LineUnitBefore = 0
t[%=[pJHW .OutlineLevel = wdOutlineLevelBodyText
[-[|4|CnOm .PageBreakBefore = False
RkdAzv!Y7 .RightIndent = 0
RAyR&p .WordWrap = True
/7*qa G .LineUnitAfter = 0.5
c NN_KA 1?+)T%" End With
9 DX
u*} Case Else
RmN\;G?} '不作处理
,U r~DXY End Select
d@|j>Z )fZ5.W8UE] '含有inlineshape的段落处理
HSl$ U0 If ShapeHeight > 30 Then
s|!b: Ms` .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle '对有图片的段落设置为单倍行距
qfY=! |O End If
uuh vd h= _ )^n[_E If (ShapeWidth + ShapeHeight) > 150 Then
;LT#/t)}< .Paragraphs(paraCounter).Style = "QLNU图片段落"
DA4!-\bt@ End If
a7NX~9 g U|h@Pw z '段落计数器递
Pb D|7IM paraCounter = paraCounter + 1
Q!%CU8!`& Me.lbCounter.Caption = "当前检测段落：" & paraCounter
r52,f%nlm Me.txtStatus.Text = ParaText
E{9{%J DoEvents
$PbN=@ Loop
[/t/694 End With
4d'tK
^X "ZVBn!
msg = ""
S4~;bsSx ZoC?9=k For i = 0 To Me.ErrMsg.ListCount - 1
^_Z Qf msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i)
nuv$B > Next
Vo2frWF$ .uagD[${ Z@i MG
]*;+ U6/? Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg
B<'V7#L_ Me.cmdCheck.Enabled = True
fs]Zw mA^ Me.txtStatus.Visible = True
4sK|l |W Me.lbParaType.Visible = False
HNoh B4vt ~pSD| WX bContinue = False
DPtyC
gH End Sub
e$(i!G) +FVcrL@ 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)
eEe8T=mD Dim pTEXT As String
>Q\H1|? H "?
-&>V- pTEXT = ChKRange.Text
?t. ?f`(| J=]w$e ?.P ParaType = "其它"
cfe[6N TitleString = pTEXT
L {CHAV kV TitleNo = "N/A"
FkE CY 1J *wW#
e shpCounter = ChKRange.InlineShapes.Count
>|I3h5\M If shpCounter <> 0 Then
!r!Mq~X<= MaxShpHeight = 0: TotalShpWidth = 0
zsRN\U For i = 1 To shpCounter
j'0*|f ^z k = ChKRange.InlineShapes(i).Height
`Tsfsc N l = ChKRange.InlineShapes(i).Width
vrW9<{
If k > MaxShpHeight Then
v
DOeBw
= MaxShpHeight = k
7#|NQ=yd End If
! xqG-rd
' TotalShpWidth = TotalShpWidth + l
8UL:C?eY
Next
&FvN z If MaxShpHeight > 60 Or TotalShpWidth > 150 Then
GrQAho Exit Sub
8QZk0
O End If
?y45# Tk] End If
t_VHw'~" SS~Txt75m '空行
+Vf|YLbhJ If Len(pTEXT) <= 2 Then
C1rCKKh Exit Sub
=v5(*$"pd" End If
iii$)4 V
r@< ; (U dDp"/ '是否为表格中的文字
s9GPDfZ
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then
w)8@Tu:Q ParaType = "表格内容"
o_* |`E k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber)
$BBfsaJPT If k = 1 Then
~ pdf' ParaType = "表格首行"
|)Joxq R End If
\
T]"pE+8l Exit Sub
.y2<2eW End If
zB]T 5] Z/RUrYeb '例外情况：脚注
( &hX8
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then
'}YX pB ParaType = "脚注"
Iq}h}Wd Exit Sub
>a-+7{}; End If
u# UeJu O ng <`2XgU '例外情况：尾注
ez5 `B$$ If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then
ta 6 WZu ParaType = "尾注"
'IW+"o Exit Sub
246lFx G . End If
w./EJk KI rqh,BkQ0t If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then
Oc'z?6axWv ParaType = "页眉页脚"
zXf+ie o Exit Sub
&{=~)>h End If
o%9>elOju % Z5k8 m[7:p{
With regEX
Gf ]s?J^a .Global = True
X9gC2iSs] Sf'5/9<DW+ .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$"
EIEq[`h If regEX.Test(pTEXT) Then
O.}gG6u5 ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3")
YXg
uw7%\ TitleString = regEX.Replace(pTEXT, "$3")
CC-:d Nb TitleNo = regEX.Replace(pTEXT, "$1")
\+~4t ParaType = "章"
?Ru`ma\; Exit Sub
v!U# C[a^ End If
i:8^:(i aQmL=9 .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$"
@>:07 ]Dxo If regEX.Test(pTEXT) Then
DVcu*UVw ParaType = "一级标题"
A7RX2
regEX.Execute (pTEXT)
l?1!h2z% ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3")
v#+w<gRq TitleString = regEX.Replace(pTEXT, "$3")
9G8QzIac TitleNo = regEX.Replace(pTEXT, "$1")
xR&,QrjQG Exit Sub
;VFr5.*x End If
XP^ 6*}H.* hCvn(f '全角或半角括号中的数字
pz
IMj_ .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$"
-pGt ; If regEX.Test(pTEXT) Then
*f#4S_ws` ParaType = "二级标题"
k"7eHSy, regEX.Execute (pTEXT)
*_wef/== ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5")
@
:4Kk
4g1 TitleString = regEX.Replace(pTEXT, "$5")
Y) *l w TitleNo = regEX.Replace(pTEXT, "$2")
rlIEch^wZ Exit Sub
.- Lqo=o\ End If
U?lu@5 ^Z 7h0'R k '阿拉伯数字 1. 2.
Wkk Nyg, .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$"
#rr-4$w+ If regEX.Test(pTEXT) Then
fDqXM;a" ParaType = "三级标题"
2!otVz! Mh regEX.Execute (pTEXT)
2* L/c- ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测
$B?7u@>, TitleString = regEX.Replace(pTEXT, "$3")
rWs5s!l, TitleNo = regEX.Replace(pTEXT, "$1")
ge oN4 Exit Sub
VfcQibm End If
FVmg &[
. 66 Xt=US '全角或半角括号中的阿拉伯数字
D)sEAfvX .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$"
85{vz|(': If regEX.Test(pTEXT) Then
%UJ4wm ParaType = "四级标题"
u .=; A# regEX.Execute (pTEXT)
_z 5C
plO ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5")
l.W:6", w TitleString = regEX.Replace(pTEXT, "$5")
yrs3 `/ TitleNo = regEX.Replace(pTEXT, "$2")
L K~, Exit Sub
KUyJ"q<W End If
ZtLn *M &P3 vcB '表格名称
h^ *{chm] .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$"
ibc/x v2 If regEX.Test(pTEXT) Then
w;$ +7 ParaType = "表格标题"
RM+E regEX.Execute (pTEXT)
,6S 8s ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3"))
ui{_w @ o TitleString = Trim(regEX.Replace(pTEXT, "$3"))
U.F65KaKF TitleNo = Trim(regEX.Replace(pTEXT, "$1"))
M<srJ8|' strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换
bN&da
[K Exit Sub
g\)z!DQ] End If
MX0B$yc$ nu<!/O '图片名称
7:<Ed"rdE .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$"
RGLA }| If regEX.Test(pTEXT) Then
_D4}[` ParaType = "图片标题"
%S#"pKE6 R regEX.Execute (pTEXT)
R*0F) M ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3")
7dJaWD:& TitleString = regEX.Replace(pTEXT, "$3")
"y0 A<-
~ TitleNo = regEX.Replace(pTEXT, "$1")
!v L :P2 Exit Sub
y)E2=JQA/ End If
8W>l(w9M !gf3%!% '参考文献
:GYv9OG .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})" '[数字]、
//@=Q!MW If regEX.Test(pTEXT) Then
VC (|t} L4 ParaType = "文献条目"
~&:R\ 'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4")
[AzN&yACE 'TitleNo = regEX.Replace(pTEXT, "[$2] ")
Z :+#3.4$3 Exit Sub
vr v*k End If
%4Zy1{yKs_ B ,Brmn prfx = Left(pTEXT, 2)
y21uv p' If prfx = "注：" Or prfx = "注:" Then
$\!;*SSj ParaType = "图表注解"
5U jQLB Exit Sub
i|^6s87"N2 End If
uP]o39b;V vNSf:5H$ 1W[(+TZ&s ParaType = "正文"
FO = 1P7 w0Y %}7 End With
Y%l3SB,5L End Sub
OP}p; ( ?& m] du#6 Sub ConvertListToOrdinary()
5,ahKB8 Dim st As Paragraph
<R>ZG"m { With ActiveDocument
vB*oI~< For i = .Paragraphs.Count To 1 Step -1
6{X>9hD Set st = .Paragraphs(i)
K:@=W1 lst = st.Range.ListFormat.ListString
y}HC\A77uD If lst <> "" Then
}2,#[m M st.Range.ListFormat.RemoveNumbers
@EZONKT st.Range.InsertBefore lst & " "
p ri{vveN@ End If
q*nz4QTOE Next
Zwns|23n End With
p d3&AsU Set st = Nothing
UJ$:5*S=u End Sub
n^02@Aw RA I& ;" Private Sub UserForm_Activate()
p&mtKLv Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节"
tlgvBRH > Me.lbTotal.Font.Bold = True
30E v" Me.txtStatus.Visible = False
3]es$ Jy Me.cmdCheck.Enabled = True
Sg>0P*K@ +yH~G9u( End Sub
7 ~nCK j]"xck u/c3omY"# Sub CheckSuperScript()
9 lJj/ Selection.Find.ClearFormatting
CH it
Selection.Find.Replacement.ClearFormatting
"\r~,S{: With Selection.Find
^(*O$N*# .Text = "[【\[［〖](*)[】\]〗］]"
/*^|5>-`i1 .Replacement.Text = "[\1]"
SqF.DB~ .Replacement.Font.Superscript = True
9 /(c cj '.Replacement.Font.Color = wdColorBlue
a&"*U
Jk<? .Forward = True
2] G$6H .Wrap = wdFindContinue
( v:ek_ .FORMAT = True
u/'s d t .MatchCase = False
Wb )l8[= .MatchWholeWord = False
qjzW9yV+ .MatchByte = False
i(iP}: 3 .MatchAllWordForms = False
D])YP0|} .MatchSoundsLike = False
:&)/v
q .MatchWildcards = True
a
BH1J]_ End With
/ +`<X%^U Selection.Find.Execute Replace:=wdReplaceAll
'a^tL[rLP1 End Sub
jY+S,l D /t)c fFM Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
8I 0T u bContinue = False
b|o!&9 Yyr Set regEX = Nothing
~!9Px j* End Sub
zN)\2 .<^Y E% Sub CeateOrModifyStyle()
.{ a2z*o '
S!W/K!wf
'
]\,uF8gg) Dim stl As Style
r Ob "S* T}Vpy` Options.Pagination = False
{FY[|:Cp AWXpA1( On Error Resume Next
+JS/Z5dl+} For Each stl In ActiveDocument.Styles
xe
vP2pYG: stl.Delete
M2Fj)w2
Next
f bTw6Fde$ On Error GoTo 0
/8t+d.r;/ S} Cp&}G{P Set stl = Nothing
3,L3C9V' H&Y{jqua DoEvents
X/K)kIi On Error Resume Next
cN lY=L >-5 Gt ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph
-Dxhq&
}Y ##FN q#F ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph
/NX7Vev ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph
tlL n
,nB3c5X)| ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph
Guw|00w,Q$ ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph
33'lZ ubV 8{SU?MHQLE ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph
UW[{d/.wC ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph
q,+kPhHEgy ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph
g)?g7{&?>? ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph
~!:S p_y ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph
E+ 3yN\X( ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph
;GFB@I@
ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph
auTT v J =/JF-#n/MA ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph
!aw#',r8m ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph
|EV\a[ ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph
=Z .V+ 4+ ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph
l()MYuLNV ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph
"=\_++ L\wpS1L( ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph
/dJ)TW(Ir On Error GoTo 0
=l
2Dm DoEvents
x3 6 #x ]Zz G!7 'BaseStyle
G h[`q7B
Q ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False
AYA&& b With ActiveDocument.Styles("BaseStyle").Font
F:o # .NameFarEast = "宋体"
;i9<y8Dha .NameAscii = "Times New Roman"
Oqpl2Y" / .NameOther = "宋体"
,o@~OTja* .Size = 10.5
R 4$
Q3vcH .Bold = wdUndefined
14n="-9 .Italic = wdUndefined
~/jxB)t .Subscript = wdUndefined
WCmNibj .Subscript = wdUndefined
b}Hl$V(uD BT #=Xh .Underline = wdUnderlineNone
' q<EZ { .UnderlineColor = wdColorAutomatic
yC 7Vb
P .StrikeThrough = False
hdr}! w V .DoubleStrikeThrough = False
"G9'm lA n+gDP .Outline = False
VMZ]n%XRXW .Emboss = False
f./m7TZ .Shadow = False
G9n /S=R? .Hidden = False
o47 f .SmallCaps = False
v V6Lp .AllCaps = False
SAG` ^t .Color = wdColorAutomatic
Xvj=*wg\Y .Engrave = False
?(/j< ,m^ .Scaling = 100
mDF"&.(j .Kerning = 1
u@Cf*VPK .Animation = wdAnimationNone
Uy59zB2|= .DisableCharacterSpaceGrid = False
nz(q)"A .EmphasisMark = wdEmphasisMarkNone
FfxX)p1t End With
yI.}3y{^5 With ActiveDocument.Styles("BaseStyle").ParagraphFormat
*M&VqG4P9w .LeftIndent = 0
;j>Vt?:Pw .RightIndent = 0
N`<4:v[P
.SpaceBefore = 0
De
nt? .SpaceBeforeAuto = False
$TA 6S+ .SpaceAfter = 0
V(2j*2R! .SpaceAfterAuto = False
xa{<R+LR ?l,
X!o6 .LineSpacingRule = wdLineSpaceSingle
En,)} yI .Alignment = wdAlignParagraphJustify
MO~~=]Y' @bW[J .WidowControl = False
5Hwo)S]r .KeepWithNext = False
EN-H4F .KeepTogether = False
\%Ah^U)gS .PageBreakBefore = False
o\]: !#r{T .NoLineNumber = False
UGmuX:@y76 d]7|v
r] .FirstLineIndent = CentimetersToPoints(0)
c/=y*2,zo .OutlineLevel = wdOutlineLevelBodyText
=l8!VJa .CharacterUnitLeftIndent = 0
88#qu. .CharacterUnitRightIndent = 0
i,'Ka[6
.CharacterUnitFirstLineIndent = 0
yD[zzEuQ .LineUnitBefore = 0
O[(?.9 .LineUnitAfter = 0
xdL/0 N3 .AutoAdjustRightIndent = True
cN uHXaWp .DisableLineHeightGrid = True
\[email protected]'M C^/ -lc .FarEastLineBreakControl = True
[EmOA.6 .WordWrap = True
S0N2rU .Hyphenation = False
^5;vx C '-zh
\a .HangingPunctuation = True
b@ wBR9 s .HalfWidthPunctuationOnTopOfLine = True
?{"XrQw .AddSpaceBetweenFarEastAndAlpha = True
fys5-1@-p .AddSpaceBetweenFarEastAndDigit = True
x A& .BaseLineAlignment = wdBaselineAlignBaseline
v;fJM5PA End With
^)OZ`u8 ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False
%9QMzz5 ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll
e|b~[|;*= ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese
WO.0K5nfk ActiveDocument.Styles("BaseStyle").NoProofing = False
&R'w-0k_ [Y2 2Wi '一级标题题样式
ntj`+7mw ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
QOT) x4 !) ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle"
$AA~]'O>6: ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False
%wt2F-u With ActiveDocument.Styles("QLNU一级标题").Font
~IlF*Zz#}6 .NameFarEast = "黑体"
:T7
? .NameAscii = "Arial Black"
<o&o=Y8 .NameOther = "黑体"
-v;n"Zy1 .Name = "黑体"
h"u<E\g .Size = 16 '三号
5@ bc(H .Bold = True
dU ,)TKQ .Italic = wdUndefined
kUn2RZ6$# .Subscript = wdUndefined
>P \h,1 .Superscript = wdUndefined
&\1'1`N1 End With
.Na&I)udX. With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat
,C{^`Bk-W 0~+NB-L} .LeftIndent = CentimetersToPoints(0)
X(GmiH /E .RightIndent = CentimetersToPoints(0)
NV} RRs .FirstLineIndent = CentimetersToPoints(0)
- yC:? k<YtoV .LineSpacingRule = wdLineSpaceSingle
+ z:CZ(fb
.Alignment = wdAlignParagraphCenter
Vl{~@G, @ c Q(}^KO .WidowControl = True
|
jahpji6 .KeepWithNext = True
G Sz @rDGY .KeepTogether = True
|;A9A's .OutlineLevel = wdOutlineLevelBodyText
y Y>-MoF/t Qj
6gg .LineUnitBefore = 0.5
cW)Oi^q%o2 .LineUnitAfter = 0.5
YVB %
kKv{ End With
<$jKy 3@ ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False
<I7(eh6d ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll
L289'Gzg ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese
Yz j%{fkh ActiveDocument.Styles("QLNU一级标题").NoProofing = True
,4H;P/xsb DoEvents
I!f
B1aq- =5y`(0 I`U '二级
Jo{ zy ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
tS\=<T ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle"
y)3~]h\a ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False
T[0V%Br{d+ With ActiveDocument.Styles("QLNU二级标题").Font
X0y?<G1( a .NameFarEast = "黑体"
"_K}r I6(t .NameAscii = "Arial Narrow"
(O8,zqP9l .NameOther = "黑体"
L w>-7) .Name = "黑体"
87^ :<\pp .Size = 15 '小三号
C9<4~IM
w .Bold = False
T&1-eq >l .Outline = False
brg"
:V1a .Italic = wdUndefined
SkiJ pMN .Subscript = wdUndefined
ycgfZ 3K .Superscript = wdUndefined
81 g9ZV(4 End With
'8 )Wd"[ With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat
N9 i}p^F<_ .LeftIndent = CentimetersToPoints(0)
>j50
;</ .RightIndent = CentimetersToPoints(0)
:O9P(X* .FirstLineIndent = CentimetersToPoints(0)
owE<7TGPI? wVgi+P .LineSpacingRule = wdLineSpaceSingle
C( -[ Y! .Alignment = wdAlignParagraphLeft
2c}B
3<c*v/L{C\ .WidowControl = True
9t{|_G .KeepWithNext = True
O.*jR`l .KeepTogether = True
YF} 9k .PageBreakBefore = False
{UB%(E[Mr .OutlineLevel = wdOutlineLevelBodyText
O6yP
qG *j wL'o ImE .LineUnitBefore = 0.5
Ln
~4mN^ .LineUnitAfter = 0.5
=m`l%V[
.aNO( /kO End With
uuu\f*< ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False
f %2%T'Q ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll
R{*_1cyW ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese
r_L
u~y| ActiveDocument.Styles("QLNU二级标题").NoProofing = True
f;. SSiT DoEvents
^DBD63 N" h ZoC _\ '三级标题样式
\Y*!f|=of ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
fd4;mc1T ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle"
A)8rk_92Q ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False
c}\
' x5:o With ActiveDocument.Styles("QLNU三级标题").Font
/ ^w"' ' .NameFarEast = "宋体"
d,)}+G .NameAscii = "Times New Roman"
o;3j:# 3 | .NameOther = "黑体"
B-!guf
rnY .Name = "黑体"
eh$G.-2N .Size = 14 '四号
y0,Ft/D .Bold = False
<O ;&qT*b .Outline = False
saatU;V .Italic = wdUndefined
8)N0S% B .Subscript = wdUndefined
k_]\(myq .Superscript = wdUndefined
~6p5H}'H1 End With
F?7u~b|@{ With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat
__ 8 &Jv\ .LeftIndent = CentimetersToPoints(0)
/sy-;JDnsu .RightIndent = CentimetersToPoints(0)
z4 CJn[m9 .FirstLineIndent = CentimetersToPoints(0)
FyCBN tCv $zdd=.!KiK .LineSpacingRule = wdLineSpaceSingle
aT&t_^[] .Alignment = wdAlignParagraphLeft
vx'l> @]k X$/E> I .WidowControl = True
f, |QAj=a .KeepWithNext = True
sNL+F .KeepTogether = True
I?^aCnU .PageBreakBefore = False
x'@W=P 7 .OutlineLevel = wdOutlineLevelBodyText
$h,d?
.u6w $( S*GF$S .CharacterUnitLeftIndent = 0
neF8V"-u& .CharacterUnitRightIndent = 0
PmHd9 ^C .CharacterUnitFirstLineIndent = 2
eaEbH2J P"b8!k?
.LineUnitBefore = 0.5
Ujf, 6=M .LineUnitAfter = 0
8Bq- 0=E End With
R0{ Qy*YQ` ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False
cI5N"U@yN ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll
TZe+<~4*i% ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese
9 +}cE**=d ActiveDocument.Styles("QLNU三级标题").NoProofing = True
UL&} s_ DoEvents
+ a-D#^ 2; '}_=kp'X '四级标题样式
Qe_+r(3)k ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
$Jc q7E~ ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle"
o
WI!u 5 ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False
X1Qr _o-BR With ActiveDocument.Styles("QLNU四级标题").Font
\UOm]z .NameFarEast = "宋体"
Q.yb
4 .NameAscii = "Times New Roman"
6_WmCtvF .NameOther = "宋体"
i&JpM] N .Name = "宋体"
mKM,kY .Size = 12 '小四号
iecWa:(' .Bold = True
-!l^ ]MU .Outline = False
<P - $RX .Italic = wdUndefined
DacN {r"3 .Subscript = wdUndefined
SgiDh dE .Superscript = wdUndefined
IAYACmlN& End With
DE%fF,Hk3 With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat
1DUb
[ W8 Hoj8okP .LeftIndent = CentimetersToPoints(0)
$|k%@Q > .RightIndent = CentimetersToPoints(0)
E
$ { J .FirstLineIndent = CentimetersToPoints(0)
fTcY"A,2 8yn4}`Nc@ .LineSpacingRule = wdLineSpaceSingle
?H`j>]%& .Alignment = wdAlignParagraphLeft
^;+[8:Kb )Bo]=ZTJ^ .WidowControl = True
7SaiS_{: .KeepWithNext = True
R }
1W .KeepTogether = True
DY8(g=TI|1 .PageBreakBefore = False
P7Xg{L&@. .OutlineLevel = wdOutlineLevelBodyText
#G[t X6gU Y17hOKc` .CharacterUnitLeftIndent = 0
" CM ucK .CharacterUnitRightIndent = 0
40u7fojg2 .CharacterUnitFirstLineIndent = 2
JRXRi*@ _C20 +PMO .LineUnitBefore = 0
i0\)%H
:z .LineUnitAfter = 0
K U $`!h 6(Vhtr2( * End With
iUTU*E l> ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False
88+
=F
XG ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll
Hte[TRb M ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese
19p8B& ActiveDocument.Styles("QLNU四级标题").NoProofing = True
B[CA
5Ry DoEvents
4Ac}(N5D@ LX\)8~dp '正文校式
zZ: xEc ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle")
z|I0-1tAK ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle"
pl|h>4af ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False
} -74 f With ActiveDocument.Styles("QLNU正文").Font
UU[H@ym# 2 L:$aZ .NameFarEast = "宋体"
Tpb"uBiXoo .NameAscii = "Times New Roman"
D^|9/qm$ .NameOther = "宋体"
H'Nq#K .Name = "宋体"
4^[
/=J} `Ug t vo .Size = 12 '小四号
tF^g<)S;t o,1Dqg4P3 .Bold = wdUndefined
t!jYu<P .Italic = wdUndefined
Kk=LXmL2 .Subscript = wdUndefined
~g7m 3 .Superscript = wdUndefined
P3!Atnv2 ywO mQc
Z .Outline = False
J1X~vQAe .Emboss = False
d*2u}1Jo8 .Shadow = False
FIS "Z( .Hidden = False
V#L'7">VP _%B/!)v .DisableCharacterSpaceGrid = True
6Cv.5V hx End With
w
G8
nw; With ActiveDocument.Styles("QLNU正文").ParagraphFormat
e\D|
o?v gqfDa cDJL .LeftIndent = CentimetersToPoints(0)
>g]ON9CGH .RightIndent = CentimetersToPoints(0)
a ~opE!|m .FirstLineIndent = CentimetersToPoints(0)
IX WQ ) B$?^wo .LineSpacingRule = wdLineSpaceExactly
6W eM rWx .LineSpacing = 20
5]d{6Nc3
P .Alignment = wdAlignParagraphLeft
q_sE w~~@! 7 \X$7 .WidowControl = False
<: :VCA % .KeepWithNext = False
GJ,a RI .KeepTogether = False
+Ofa#^5);K .PageBreakBefore = False
hO3 { .Hyphenation = False
5$%XvM cI:-Z{M7z .OutlineLevel = wdOutlineLevelBodyText
&iBNO,v '#q4Bc1 t"|DWC* .CharacterUnitLeftIndent = 0
H O*YBL .CharacterUnitRightIndent = 0
:RiF3h( .CharacterUnitFirstLineIndent = 2
oQ\&}@(V y^R4I_* z .LineUnitBefore = 0
35_)3 R) .LineUnitAfter = 0
0e16Ow6\!1 .SpaceBefore = 0
'1-maM \r .SpaceAfter = 0
APq7 f8t lL0
M^Nv .DisableLineHeightGrid = True
8I.VJ3Q
End With
,EI:gLH ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False
nxfoW y ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll
&I/qG`W ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese
Bd#
TUy
ActiveDocument.Styles("QLNU正文").NoProofing = True
e)b%`ntF DoEvents
^_W40/c3 /8c&Axuv '图片段落样式
<<,>S&/ ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle")
X{\jK]O ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle"
4-^[%&>} ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False
.T8K-<R With ActiveDocument.Styles("QLNU图片段落").Font
"VTF}#Uo .Size = 12 '小四号
Qnt5HSSt .Italic = wdUndefined
4MLH+/e .Subscript = wdUndefined
:h*a
rT4{ .Superscript = wdUndefined
y'
[LNp V End With
(%'9CfPx With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat
50$W0L$ wd+K`I/v7h .LeftIndent = CentimetersToPoints(0)
?aWx(dVQ .RightIndent = CentimetersToPoints(0)
]iVLHVqz .FirstLineIndent = CentimetersToPoints(0)
d :rGyA] S-c ^eLzQ .LineSpacingRule = wdLineSpaceSingle
Ilq=wPD}j .Alignment = wdAlignParagraphCenter
`
>U?v .KeepWithNext = True
" r$ /
.OutlineLevel = wdOutlineLevelBodyText
[E|uY]DR 5FOqv=6S .CharacterUnitLeftIndent = 0
tJ'iX>9 I .CharacterUnitRightIndent = 0
T$P -<s .CharacterUnitFirstLineIndent = 0
-[heV| $; pr rT:Y .LineUnitBefore = 0
x)oRSsv!Tr .LineUnitAfter = 0
UQPU"F7. End With
s`;f 2B/| ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False
9 <\`nm ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll
J 'Sm0 ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese
h/m6)m.D ActiveDocument.Styles("QLNU图片段落").NoProofing = True
3i=Iu0 DoEvents
`]<`$71w W5 ec B<,YPS8w '第X章
tTuX\;G ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
JN(-.8< ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle"
bK*~ol ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False
,b|-rU\ With ActiveDocument.Styles("QLNU章节标题").Font
8@eOT zm .NameFarEast = "黑体"
zK;XF N#U^ .NameAscii = "Arial Black"
Vte EDL /w .NameOther = "Arial Black"
fYX<d%?7 .Name = "黑体"
?fK1 .Size = 16
p pN} k)m .Bold = True
+}JM&bfK .UnderlineColor = wdColorAutomatic
\Y5W!.(%w .Outline = False
Bp_wnd .Italic = wdUndefined
GLUUY
0 .Subscript = wdUndefined
m3 -9b" .Superscript = wdUndefined
#ekM "p .Scaling = 100
Mu&x_&| .DisableCharacterSpaceGrid = True
6N " l{! End With
DNP@ A4~ With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat
eR;!(Oy=A .LineSpacingRule = wdLineSpaceSingle
MKg,!TELe .Alignment = wdAlignParagraphCenter
'*T]fND4 .WidowControl = True
uQ3[Jz`y .KeepWithNext = True
@dEiVF`4: .KeepTogether = True
:L:&t,X .PageBreakBefore = True
4 b,N8 .OutlineLevel = wdOutlineLevelBodyText
:dwt
1> 4XJiI
a? .LeftIndent = CentimetersToPoints(0)
OZ(dpV9.S .RightIndent = CentimetersToPoints(0)
J2M(1g)t9 .FirstLineIndent = CentimetersToPoints(0)
%!|O.xxRR ]?K.
S6 .CharacterUnitLeftIndent = 0
Ed-M7#wY .CharacterUnitRightIndent = 0
z]@6fM[ .CharacterUnitFirstLineIndent = 0
/nQ`& q 0xMj=3'] .LineUnitBefore = 1
$[ z y .LineUnitAfter = 0.5
RE"^
)- L:R<e#kgS .AutoAdjustRightIndent = False
$kPHxD!" .DisableLineHeightGrid = True
\?lz&< .FarEastLineBreakControl = True
DL8x": ; .WordWrap = True
rx!=q8=0R End With
fZ{[]dn[ ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False
caq} &A]C ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll
(S /F)? ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese
bw S*]!* ActiveDocument.Styles("QLNU章节标题").NoProofing = True
c0rk<V%5+ DoEvents
j-b* C2l |J>WC}g@n '表格标题
Im?LIgt$ ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
|yY`s6Uq ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle"
(K<9h L+X ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False
g0R[xOS|
With ActiveDocument.Styles("QLNU表格标题").Font
KoBW}x9Jp .NameFarEast = "楷体"
jn dGiMA .NameAscii = "Arial"
}NCL>l;q .Name = "楷体"
.*5 Z"Q['G .Size = 10.5
]A+o>#n}x .Bold = True
MesRa
( .Underline = wdUnderlineNone
EL D!{bMT .Italic = wdUndefined
qJv[MBjk3B .Subscript = wdUndefined
zP) ~a .Superscript = wdUndefined
,6"l (]0 .Color = wdColorAutomatic
Zv!{{XO2; End With
C9~~O~7x With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat
.\:J~( 57I}R
MT" .LineSpacingRule = wdLineSpaceSingle
4N>>+]MWc .Alignment = wdAlignParagraphCenter
\'v(Xp6
.KeepWithNext = True
N4!<Xj .KeepTogether = True
)!W45"l-3M .OutlineLevel = wdOutlineLevelBodyText
E"PcrWB& 4. qtp ` .LeftIndent = CentimetersToPoints(0)
9A$m$ .RightIndent = CentimetersToPoints(0)
`/IKdO*!S .FirstLineIndent = CentimetersToPoints(0)
v"O5u%P n/Dp"4H%q .CharacterUnitLeftIndent = 0
(< c7<_-H .CharacterUnitRightIndent = 0
tWP O]3hW .CharacterUnitFirstLineIndent = 0
)"<8K}%! \>Zvev!s
.LineUnitBefore = 1
B80aw>M .LineUnitAfter = 0
ajH"Jy3A 0C$vS`s& End With
k$i'v:c|:i ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False
~) ]} 91p ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll
q3w1GD
ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese
~r*P]*51x ActiveDocument.Styles("QLNU表格标题").NoProofing = True
04@cLDX8uB DoEvents
U1R4x!ym4 n"D ?I '表格首行
9
c3E+ ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle")
\2e0|)aF6 ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False
L
3XB"A# With ActiveDocument.Styles("QLNU表格首行").Font
, xsH|xW .NameFarEast = "楷体"
8Ogv9 .NameAscii = "Times New Roman"
3 HC .Name = "楷体"
| U' I/A .Size = 9
= ;L*<I .Bold = True
Ym8}ZW- .Underline = wdUnderlineNone
H)(jh .Italic = wdUndefined
rofNZ;nu .Subscript = wdUndefined
p( LZ)7/ .Superscript = wdUndefined
Gc,_v3\ End With
iCQ>@P]nE With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat
KY9n2u&4 .LineSpacingRule = wdLineSpaceSingle
A%bCMP .Alignment = wdAlignParagraphCenter
XNH4vG
| C NrII sJ .LeftIndent = CentimetersToPoints(0)
I PCGt{B~ .RightIndent = CentimetersToPoints(0)
sM2MLh 'D .FirstLineIndent = CentimetersToPoints(0)
LHYLC>J Z;DCI-Wg 6 W2hr2Zy9 .CharacterUnitLeftIndent = -0.5
A[N
{ .CharacterUnitRightIndent = -0.5
,!Q V>= .CharacterUnitFirstLineIndent = -0.5
_lxco=qd=% HIvZQQW| .LineUnitBefore = 0
@%ECj)u`O .LineUnitAfter = 0
S?0$? w? .SpaceBefore = 0
~Ci{3j :] .SpaceAfter = 0
,_
2x{0w:> 6g:|*w End With
#ToK$8 ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False
A#y@`} ]!' ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll
k;^
: ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese
^TdZ*($5 ActiveDocument.Styles("QLNU表格首行").NoProofing = True
8p^B hd DoEvents
~/
#1G. H V!/:53 '表格内容
L,_.$ 1d ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle")
e@<?zS 6 ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False
1Y j~fb( With ActiveDocument.Styles("QLNU表格内容").Font
y/_XgPfWU .NameFarEast = "楷体"
%&<LNEiUN .NameAscii = "Times New Roman"
C(?blv-vM0 .Name = "楷体"
0y#Ih {L .Size = 9
g_.^O$} .Bold = False
t T%/r, .Underline = wdUnderlineNone
*f+: <=i .Italic = wdUndefined
EG<s_d? .Subscript = wdUndefined
M[]A2'fS .Superscript = wdUndefined
*C | End With
chI.{Rj With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat
?h8{xa5b .LineSpacingRule = wdLineSpaceSingle
>l5$ 9wO .Alignment = wdAlignParagraphCenter
Lxl_"k G [:EvTY .LeftIndent = CentimetersToPoints(0)
iw?I .RightIndent = CentimetersToPoints(0)
(R}ii}& .FirstLineIndent = CentimetersToPoints(0)
2t#L:vY 9J- b6, .CharacterUnitLeftIndent = -0.5
S~OhtHwK .CharacterUnitRightIndent = -0.5
ssQ BSbx .CharacterUnitFirstLineIndent = -0.5
%yS 3&Ju .LineUnitBefore = 0
~l E _L1-c .LineUnitAfter = 0
IVxWxM*N< .SpaceBefore = 0
e ]8,:Gd( .SpaceAfter = 0
N:5[,O<m_ End With
[U{UW4 ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False
rRF
AD{5) ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll
W 7No ls{ ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese
Q / x8 #X ActiveDocument.Styles("QLNU表格首行").NoProofing = True
1
OaXo! DoEvents
afG{lWE) qt e>r '图片标题
kAYb
!h[` ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
8MwK. H[U ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle"
i b6^x:HGU ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False
aptY6lGv-| With ActiveDocument.Styles("QLNU图片标题").Font
?\= /$ Gt .NameFarEast = "楷体"
2'0K WYM .NameAscii = "Times New Roman"
15\Ph[6g .Name = "楷体"
MjL)IgT .Size = 10.5
7 A$B{ .Bold = True
io2)1cE&f .Underline = wdUnderlineNone
e &< yX .Italic = wdUndefined
30j|D3- .Subscript = wdUndefined
Ukz;0q .Superscript = wdUndefined
kLSrj\6I[ .Outline = False
E2w
z(,@ .Shadow = False
#;KsJb)N. .Color = wdColorAutomatic
HfNDD| Zz End With
W&Y"K)` With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat
vG41C k1 .LineSpacingRule = wdLineSpaceSingle
uzr\oj+> .Alignment = wdAlignParagraphCenter
eD
Kxn8+(H V&{MQWy .KeepWithNext = wdUndefined
S::=85[>z .KeepTogether = True
^C)n$L>C0 .OutlineLevel = wdOutlineLevelBodyText
A#wEuX=[ }ut]\
]b .LeftIndent = CentimetersToPoints(0)
7E$&2U^Js .RightIndent = CentimetersToPoints(0)
NPnHH:\; .FirstLineIndent = CentimetersToPoints(0)
K,ej%Vtz /u<nLj 1 .CharacterUnitLeftIndent = 0
=qVP] 9 .CharacterUnitRightIndent = 0
OW;tT=ql .CharacterUnitFirstLineIndent = 0
z ,SYw &S 6 ,ANNj .LineUnitBefore = 0
LaFZ?7@|} .LineUnitAfter = 0
}GwVKAjP End With
g2cVZ!GIj ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False
V<Z'(UI ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll
] ,etZ%z& ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese
d tStTT ActiveDocument.Styles("QLNU图片标题").NoProofing = True
~:4kU/] DoEvents
P yC0Q\$% >H][.@LyR '目录项
k `KGB ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle")
8,T4lb<< ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle"
U\@A _
B ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False
f>j wN@ ( With ActiveDocument.Styles("QLNU目录项").Font
UPU+ver .NameFarEast = "黑体"
;U =q-t b .NameAscii = "Times New Roman"
Ch
rY"
.NameOther = "Times New Roman"
E$s/]wnr[ .Name = "黑体"
zt24qTKL .Size = 10.5
M)-6T{[IT .Bold = False
g\fhp{gWB .Italic = wdUndefined
a l MYk .Underline = wdUnderlineNone
J97R0 .Color = wdColorAutomatic
Qq&
W3 .Superscript = wdUndefined
lJ;J~> .Subscript = wdUndefined
XUMX* End With
@e xey With ActiveDocument.Styles("QLNU目录项").ParagraphFormat
C]u' ,9, &7mW9] .LineSpacingRule = wdLineSpaceSingle
c,EBF\r8* .Alignment = wdAlignParagraphLeft
E\7
m< 'R ;zTuKex~ .WidowControl = False
= JLh ?Wx .KeepWithNext = False
AEirj / .KeepTogether = False
, $*IzL~ .PageBreakBefore = False
xg`h 40c .NoLineNumber = False
jR ~DToQ .OutlineLevel = wdOutlineLevelBodyText
+ !t} h+~P"i}&\ .LeftIndent = CentimetersToPoints(0)
}Nj97 R .RightIndent = CentimetersToPoints(0)
iO w3MfO .FirstLineIndent = CentimetersToPoints(0)
H;ZH qcUX , :n|
?7 .CharacterUnitLeftIndent = 0
W[bmzvJ_X .CharacterUnitRightIndent = 0
\`.F\ Z .CharacterUnitFirstLineIndent = 0
@r^ !{ E`\8Tq O .LineUnitBefore = 0
-[ 7O 7 ' .LineUnitAfter = 0
M+>`sj End With
gApoX0nrv ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False
) P&9A)8 ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll
+ZsX*/TOn ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot
`bI) <B ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese
#EO1`9f48x ActiveDocument.Styles("QLNU目录项").NoProofing = True
>T3H qYX5W DoEvents
U%B(5cC JNI>VP[c '参考文献
\5
pu|2 u ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle")
Nt`b;X& ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle"
I_)*)d44_ ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False
}alj[) With ActiveDocument.Styles("QLNU参考文献").Font
8 3~ i:+; .NameFarEast = "宋体"
_cH
@I?B .NameAscii = "Times New Roman"
'1SG(0 .NameOther = "Times New Roman"
j F"YTr6 .Name = "Times New Roman"
P@}P k .Size = 12
0X|_^"! .Bold = False
= v~1qWX .Italic = wdUndefined
]DG?R68D Q .Subscript = wdUndefined
w? vVVA .Superscript = wdUndefined
+%>:0mT .Underline = wdUnderlineNone
^ZeJ[t&!# .UnderlineColor = wdColorAutomatic
|k 2" _ .Color = wdColorAutomatic
km5~Gc} .Engrave = False
BG`s6aC|z< End With
8;P2A\ X With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat
&[R8Q|1 j K<sC F[ .LineSpacingRule = wdLineSpaceExactly
2RtHg_d_l .LineSpacing = 16
9<E g}Ic .Alignment = wdAlignParagraphLeft
j`*N,*ha .WidowControl = False
4Cb9%Q0 .KeepWithNext = False
m4w ') r~ .KeepTogether = False
yTM 3^R( .PageBreakBefore = False
\ YJy#2
K .OutlineLevel = wdOutlineLevelBodyText
t@oK~ Nr eJ8]g49mD6 .LeftIndent = CentimetersToPoints(0)
/TQ}}
YVw .RightIndent = CentimetersToPoints(0)
l3o#@sz: .FirstLineIndent = CentimetersToPoints(0)
5A eQQU 5A Bhj* 7 .CharacterUnitLeftIndent = 0
sRHA."A!8 .CharacterUnitRightIndent = 0
\t4tiCw .CharacterUnitFirstLineIndent = -2
0'Z\O
zJlQ_U- ! .LineUnitBefore = 0
imL_lw^? .LineUnitAfter = 0
j=+"Qz/hr_ .SpaceBefore = 0
l]!9$ .SpaceAfter = 0
\u Od ALZ F N[R(SLbL End With
8y'; \(; ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False
X&
m'.PA ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll
)ukpJ z"" ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS
gY AF'? ActiveDocument.Styles("QLNU参考文献").NoProofing = True
:& XH?/Wi ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese
2(!fg4#+ DoEvents
; ;s* Ohh T $ 4P_* '
Rf %HIAVE ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle")
)v B2!H/
ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle"
;$j7H&UNQj ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False
"VxWj}+] With ActiveDocument.Styles("QLNU论文题目").Font
H5 >hx { .NameFarEast = "黑体"
.0HZNWRtb .NameAscii = "Arial Black"
4 {GU6v)f .NameOther = "Arial Black"
h~Q)Uy5N(D .Name = "Arial Black"
Y$8JM .Size = 16
{U!St@ .Bold = False
R>@uY( >dJ .Italic = wdUndefined
\$*$= '6" .Superscript = wdUndefined
VObrlOkp .Subscript = wdUndefined
( n{w g(R .Underline = wdUnderlineNone
XEM'}+d .UnderlineColor = wdColorAutomatic
[`=LTBt .Color = wdColorAutomatic
\kam c A `\| ssC8u End With
&fP XU*l4 With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat
)u ?' ; .LineSpacingRule = wdLineSpaceSingle
N[|Nxm0z/C .Alignment = wdAlignParagraphCenter
&:B<Q$g# .WidowControl = True
1t[j"CG(o .KeepWithNext = True
&xZy
M@ .KeepTogether = True
R5_i15< .PageBreakBefore = True
kdx
y\
jA .NoLineNumber = False
JWP*>\P .OutlineLevel = wdOutlineLevelBodyText
qa >Ay|92e l7[7_iB&E .LeftIndent = CentimetersToPoints(0)
XJ0 {
.RightIndent = CentimetersToPoints(0)
JOn yrks .FirstLineIndent = CentimetersToPoints(0)
+?D6T!) rEZ8eeB[3 .CharacterUnitLeftIndent = 0
lG<hlYckv .CharacterUnitRightIndent = 0
vC;]jJb: .CharacterUnitFirstLineIndent = 0
N)8HR9[! p4
u5mM .LineUnitBefore = 1
#<7O08 : .LineUnitAfter = 1
)x,8D ~p' AF,BwL N .BaseLineAlignment = wdBaselineAlignAuto
%i0?UpA End With
m(O
vD! ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False
wmr-}Y!9u% ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll
n_D8 JF ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS
'Yy&G\S ActiveDocument.Styles("QLNU论文题目").NoProofing = True
N6 oq 90G ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese
@gGRm ActiveDocument.Styles("QLNU论文题目").NoProofing = True
^D67y % DoEvents
h:\ol y\ B ZK`O/ '中文摘要
/nx'Z0&+X ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle")
]1-z! B 4K ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle"
}A$WO {2 ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False
<oMUQ*OtV With ActiveDocument.Styles("QLNU中文摘要").Font
ITuq/qts]A .NameFarEast = "宋体"
c8 K3 .&P6 .NameAscii = "Times New Roman"
_1Z=q.sC
.NameOther = "Times New Roman"
?ne_m:J[ .Name = "Times New Roman"
[
t]X/O3< .Size = 12
C R<`ZNuWz .Bold = wdUndefined
!{^\1QK .Superscript = wdUndefined
E9! N >0 .Subscript = wdUndefined
-]G(ms;}/Y .Italic = wdUndefined
<m sxHw .Underline = wdUnderlineNone
\g)Xt?w0Wo .UnderlineColor = wdColorAutomatic
XkKC!
.Color = wdColorAutomatic
!7B\Xl'S End With
_#$9 y1bd With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat
wt }9B[ .LineSpacingRule = wdLineSpaceExactly
2N c>6 .LineSpacing = 20
7Ob *Yv=[ .Alignment = wdAlignParagraphLeft
1 [nG} 96Wp!]* .WidowControl = False
}}{!u0N},V .KeepWithNext = False
k5d\ w@G"~ .KeepTogether = True
1{"ll
D .PageBreakBefore = False
N^?9ZO .NoLineNumber = False
Ip utF<p .OutlineLevel = wdOutlineLevelBodyText
lVH<lp_ZtK Pj#'}ru! .LeftIndent = CentimetersToPoints(0)
w[Gh+L30=5 .RightIndent = CentimetersToPoints(0)
pj|pcv ^ .FirstLineIndent = CentimetersToPoints(0)
or ;f&![
w s
0UF ym 8 .CharacterUnitLeftIndent = 0
?@6b>='! .CharacterUnitRightIndent = 0
R614#yn-+ .CharacterUnitFirstLineIndent = 2
i@"e,7mSG .LineUnitBefore = 0
]Z<_ " F .LineUnitAfter = 0
Z@D*1 \TG= gW(gJ;
L,% End With
em@EDMvI ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False
|tMn={ ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll
[Bb utGvj ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS
U
$&hZ_A ActiveDocument.Styles("QLNU中文摘要").NoProofing = True
e59dVFug.U ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese
XhU @W}} ActiveDocument.Styles("QLNU中文摘要").NoProofing = True
Si}HX!s ActiveDocument.Styles("QLNU中文摘要").Frame.Delete
G1T^a>tj4 DoEvents
<g8K})P I{0 k ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
7J$b$P0} ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle"
"L"150Ih ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False
Nf,Z; 5 e With ActiveDocument.Styles("QLNU英文标题").Font
Y
o0FUj .NameFarEast = "黑体"
` r Y2up#% .NameAscii = "Arial Narrow"
ZsP2>%" .Name = "Arial Narrow"
{C*\O)Gep .Size = 16
)YW<" $s .Bold = True
DsD zkwJE .Bold = wdUndefined
6&v? ) o .Superscript = wdUndefined
2+ 8# H. .Subscript = wdUndefined
)(Iy <Y?# .Italic = wdUndefined
DdV'c@rq + ]bCq
=6ZKR .Underline = wdUnderlineNone
WUdKLx %F .UnderlineColor = wdColorAutomatic
%n0;[sD0A .StrikeThrough = False
][PzgzG
.DoubleStrikeThrough = False
JYqSL)Ta*t End With
OIb With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat
C}g9'jY .LineSpacingRule = wdLineSpaceSingle
cRvvzX .Alignment = wdAlignParagraphCenter
"T/> d%O1b .WidowControl = True
1-SVCk
- .KeepWithNext = False
$.6K!x{( .KeepTogether = False
8am`6;O:! .PageBreakBefore = False
d?idTcgs .NoLineNumber = False
9W*+SlH@ ! .FirstLineIndent = CentimetersToPoints(0)
qf'm=efRyu .OutlineLevel = wdOutlineLevelBodyText
beY=g7| #PL EPB .LeftIndent = CentimetersToPoints(0)
-!q u"A: .RightIndent = CentimetersToPoints(0)
nHFrG
=o, .FirstLineIndent = CentimetersToPoints(0)
vP!GJX &n5 Weoj|0|t .CharacterUnitLeftIndent = 0
&6 - k#r .CharacterUnitRightIndent = 0
> Vb@[ .CharacterUnitFirstLineIndent = 0
,M !t m7 >/f_F6ay# .LineUnitBefore = 1
6" T ['6:j .LineUnitAfter = 1
EER`?Sa( D?jk$^p~m# End With
?q2j3e[> ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False
"pxzntY| ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll
k4J8O3E ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS
3 {Nbp ActiveDocument.Styles("QLNU英文标题").NoProofing = True
z:Sigo_z[ ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese
_hf4A8ak ActiveDocument.Styles("QLNU英文标题").NoProofing = True
mbl]>JsQD ActiveDocument.Styles("QLNU英文标题").Frame.Delete
,n,
RFa DoEvents
xk~I N%\ Lju7,/UD ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle")
84z TCX ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle"
/ RZR} ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False
%9 C@ Xl With ActiveDocument.Styles("QLNU英文摘要").Font
JF9yVE - .NameFarEast = "宋体"
;d.K_P .NameAscii = "Arial"
~0"p*?^ .NameOther = "Arial"
!#ri5{od .Name = "Arial"
I&c ~8Dw .Size = 12
5} ie]/[| .Bold = wdUndefined
eS/B24;* .Italic = wdUndefined
H1 4Ic.& .Superscript = wdUndefined
9D\4n .Subscript = wdUndefined
! {,F~i9 End With
AT
Zhr.
H }'"Gr%jf( With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat
;|%dY{L-
,"-Rf<q/ .LineSpacingRule = wdLineSpaceExactly
A?5E2T1L%. .LineSpacing = 20
YE u 1#N ` D7C?M#j] .Alignment = wdAlignParagraphJustify
F7 m?xy t5k!W7C .WidowControl = False
}]1BO .KeepWithNext = False
5`/@N{ e .KeepTogether = False
!4"sX+z9 .PageBreakBefore = False
<hnCUg1
.NoLineNumber = False
UUo;`rkT XK(`mEi
.OutlineLevel = wdOutlineLevelBodyText
-a Gcf]6 +#@"*yj3 .LeftIndent = CentimetersToPoints(0)
=]R3& ]#n .RightIndent = CentimetersToPoints(0)
^he=)rBb? .FirstLineIndent = CentimetersToPoints(0)
u#7+U\ '&O/g <Z}q .CharacterUnitLeftIndent = 0
_G
Qz!YA .CharacterUnitRightIndent = 0
W" "*ASi .CharacterUnitFirstLineIndent = 2
@*N )i?> S&C 1 TC .LineUnitBefore = 0
u),Qa=Wp .LineUnitAfter = 1
\/7i-B]G7 A?Q a 4i End With
YKZrEP 4^ ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False
_#e&t"@GS ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll
- "*r ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS
23(=Xp3;> ActiveDocument.Styles("QLNU英文摘要").NoProofing = False
%WG9 dYdS DoEvents
Z!xVgM{ bSwWszd~ Options.Pagination = True
-u!qrJ*Z Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....."
v;#=e$%}MO DoEvents
v <\A% ActiveDocument.Repaginate
c47")2/yO .Jb$l$5'w End Sub
q}uHFp/J ^62|d UnDgu4#R`A
