Dim bContinue As Boolean
@UCI^a~w C?@vB M} Dim regEX As New RegExp
VW^6 qf/, Dim paraCounter As Long '全局段落计数，仅在主程序中可读写，其它过程函数应为只读
W- Q:G=S- Cz=HxU80J Dim LastTitle0String As String, LastTitle0No As Long
^V sX9 Dim LastTitle1String As String, LastTitle1No As Long
_t<&#D~ Dim LastTitle2String As String, LastTitle2No As Long
dQ6:c7hp>D Dim LastTitle3String As String, LastTitle3No As Long
+2%ih ! Dim LastTitle4String As String, LastTitle4No As Long
q$)$?" Dim LastTitle5String As String, LastTitle5No As Long
z-<091, Dim LastTabelString As String, LastTableNo As Long
P" +!mSe^~ Dim LastFigureString As String, LastFigureNo As Long
0TA{E-A D<}z7W- Dim strSeperator As String
Kx.' ^y &Y Q Sub ConvertWidth(fTEXT As String, rText As String)
no Y~fq/U Selection.Find.ClearFormatting
:;[pl|}tM Selection.Find.Replacement.ClearFormatting
KL:x!GsV5e Selection.Find.Wrap = wdFindContinue
tL0<xGI5^ Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText
,lK= m~ DoEvents
<a/TDW Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True
""cnZZ5 ) End Sub
U ObI&*2 shjc`Tqm Sub ClearDomain()
^LfN6{ With Selection.Find
)eFXjn HN .ClearFormatting
=O= 0 D .Replacement.ClearFormatting
x]
[/9e .Wrap = wdFindContinue
'n`+R~Kkh Me.txtStatus.Text = "清除所有域代码"
W}&[p=PAS DoEvents
RlH|G .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False
b-pZrnZ! End With
DG&
({vy End Sub
V1Yab# ^z&eD, Private Sub cmdCheck_Click()
z%xWP&3%" bContinue = True
S~BBBD Dim NoSeries1(1 To 16) As String
{)j~5m.,/o Dim NoSeries2(1 To 16) As String
{"X n` @Y Dim NoSeries5(1 To 16) As String
hdky:2^3 Dim NoSeriesRM(1 To 16) As String
#+)AI f Dim paraTotal As Long, ParaText As String
[RtTi <F^ Dim ttString As String, ttNo As String
t)|*-= "YU<CO;4VV Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long
ovv
<7` l ;"v&? Me.txtStatus.Visible = True
GE;S5 X]X Me.lbParaType.Visible = True
VO#x+u]/ Me.cmdCheck.Enabled = False
3IXa i)6U g)7~vm2/, D^cv
8 8< l,cnM r^.W NQQ+l0txI Dim ParaType As String, rText As String
lJaR,, ~{Gbu oH Selection.WholeStory
zTtn`j$ Selection.NoProofing = True
W;~ f86 5 m 8 0e^ tm1 = Now
(,Zy 2wr= on?<3 eED ActiveWindow.View.Type = wdNormalView
X}T/6zk W\mj?R NoSeries1(1) = "一"
E`#m0Q(8 NoSeries1(2) = "二"
`Y
Hn L4 NoSeries1(3) = "三"
I'&#p
OB NoSeries1(4) = "四"
x*}41;j}C NoSeries1(5) = "五"
<A{|=2< NoSeries1(6) = "六"
yW: :
` NoSeries1(7) = "七"
A*d Pw. NoSeries1(8) = "八"
^)$
(Fe< NoSeries1(9) = "九"
12
y=Eh NoSeries1(10) = "十"
oNW.-g NT NoSeries1(11) = "十一"
e qvbDva^ NoSeries1(12) = "十二"
}DH3_M!
NoSeries1(13) = "十三"
0 p 6 NoSeries1(14) = "十四"
T:
zO9C/ NoSeries1(15) = "十五"
uTsxSkHb/ NoSeries1(16) = "十六"
a=(D`lQ8 Lhg4fuos@) NoSeries2(1) = "㈠"
[
j'L *j NoSeries2(2) = "㈡"
N?cvQR{r9 NoSeries2(3) = "㈢"
L $R"?O7 NoSeries2(4) = "㈣"
= MQpYX NoSeries2(5) = "㈤"
!*2cK>` NoSeries2(6) = "㈥"
+NIq}fZn9 NoSeries2(7) = "㈦"
SU,S1C_q8 NoSeries2(8) = "㈧"
ZL!,s# NoSeries2(9) = "㈨"
Jb
T+w \o NoSeries2(10) = "㈩"
Z)
nB >R9Q| NoSeries5(1) = "①"
P2HR4`c NoSeries5(1) = "②"
0,~f"Dyqy NoSeries5(3) = "③"
_5<d'fBd NoSeries5(4) = "④"
a7?z{ssEi NoSeries5(5) = "⑤"
l%vX$Kw NoSeries5(6) = "⑥"
XO[S(q NoSeries5(7) = "⑦"
;bz|)[4/ NoSeries5(8) = "⑧"
F@m]Imn5Dx NoSeries5(9) = "⑨"
{wU br ^ NoSeries5(10) = "⑩"
:H9\nU1
iBCZx>![; Q;9 -aZ.H NoSeriesRM(1) = "I"
MA}~bfB NoSeriesRM(2) = "II"
]=X6*
E*/E NoSeriesRM(3) = "III"
tK@|sZ>3\ NoSeriesRM(4) = "IV"
-Ky<P<@ezm NoSeriesRM(5) = "V"
Y
j[M>v NoSeriesRM(6) = "VI"
%6A."sePO NoSeriesRM(7) = "VII"
_+c' z NoSeriesRM(8) = "VIII"
Po(Y',xI[ NoSeriesRM(9) = "IX"
Hzm<KQ
g NoSeriesRM(10) = "X"
x`7Ch3`4} NoSeriesRM(11) = "XI"
:bBLP7eyV NoSeriesRM(12) = "XII"
Q 7< %_a NoSeriesRM(13) = "XIII"
M%(B6};J NoSeriesRM(14) = "XIV"
@9,=|kxK NoSeriesRM(15) = "XV"
p~(+4uA NoSeriesRM(16) = "XVI"
r Ga@!^hk N.\?"n i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo)
UZ csMM KH Eb
8vnB# If i = vbNo Then
T@K=
* p Exit Sub
OS$
}ej\ End If
<x&0a$I Ynn:, If Me.chkSuper.Value Then
0tA
~Y26 Me.txtStatus.Text = "检查修改所有的上标格式"
tX'`4!{@+ Sq#AnD6To CheckSuperScript
@#HB6
B
h%4aL38 End If
VU8EjuOetb Ej_ >*^b If Me.chkStyle.Value Then
"LwLTPC2 Me.txtStatus.Text = "设置样式，请稍候...."
F4M )x` DoEvents
}s+ t*z CeateOrModifyStyle
\"]KF8c^_ End If
e" =/zZH3 y]3`U
UvXD gMXs&`7P o%EzK;Df ClearDomain
&xhwx>C`K &,v- AL$:Q 2@TgeV0Y[ jl-2 )< If Me.chkLIST.Value Then
l=|>9,La Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式"
IP?15l w qV;E% XkkS ConvertListToOrdinary
@=
E~` End If
L{pz)')I X`/GiYTu @`Fv}RY{ Dim pType As String, trimpTEXT As String
}~I( e If Me.chkNum.Value = True Then
b#uNdq3 Me.txtStatus.Text = "转换全角数字形式为半角"
^)J2tpr;]= ConvertWidth "１", "1"
#%Hk-a=>)# DoEvents
RIC\f_Dv ConvertWidth "２", "2"
ko-3`hX` DoEvents
o7gY j\ ConvertWidth "３", "3"
"0*yD[2 DoEvents
$,Eb(j ConvertWidth "４", "4"
h#hx(5"6 DoEvents
^$F Nu~ |K ConvertWidth "５", "5"
!
qVuhad. DoEvents
/Pbytu);ds ConvertWidth "６", "6"
fnXYp
! DoEvents
+ 6noQYe ConvertWidth "７", "7"
m!22tpb DoEvents
(-}:'5 |Yj ConvertWidth "８", "8"
n8p vzlj1 DoEvents
]izrr ConvertWidth "９", "9"
'iY~F 0U DoEvents
}Z="}Dg|T ConvertWidth "０", "0"
%rFR:w`{ DoEvents
(M0"I1g|w ConvertWidth "ａ", "a"
)2z<5 ` DoEvents
l w\+!}8( ConvertWidth "ｂ", "b"
Oy}^|MFfA DoEvents
wDQ@$T^vh ConvertWidth "ｃ", "c"
9f #~RY|#m DoEvents
M&Q zsVH ConvertWidth "ｄ", "d"
Q,ez AE DoEvents
xL&evG# ConvertWidth "ｅ", "e"
eeVDU$*e= DoEvents
$&25hvK , ConvertWidth "ｆ", "f"
pwF +
ZNo DoEvents
8ln{!,j; ConvertWidth "ｇ", "g"
%>p[;>jW DoEvents
/EIQMZuYp ConvertWidth "ｈ", "h"
*|gY7Av* DoEvents
]!c59%f= ConvertWidth "ｉ", "i"
]QU
9|1 DoEvents
en C/@){~ ConvertWidth "ｊ", "j"
J# >)+ DoEvents
f 7R/i ConvertWidth "ｋ", "k"
O'M o/
u1- DoEvents
x5 w5 xw ConvertWidth "ｌ", "l"
1'NJ[
C` DoEvents
lr*p\vH ConvertWidth "ｍ", "m"
lQS(\}N DoEvents
jj,CBNo( ConvertWidth "ｎ", "n"
;\]& k ConvertWidth "ｏ", "o"
"h@=O
c ConvertWidth "ｐ", "p"
N!PPL"5z
ConvertWidth "ｑ", "q"
'c&[ kMR ConvertWidth "ｒ", "r"
R\a6 #u3 ConvertWidth "ｓ", "s"
'2S/FOb ConvertWidth "ｔ", "t"
Cy frnU8g ConvertWidth "ｕ", "u"
E ,kDy: ConvertWidth "ｖ", "v"
cyMvjzzRN ConvertWidth "ｗ", "w"
t)kc`3i<A ConvertWidth "ｘ", "x"
#O
RZk6e ConvertWidth "ｙ", "y"
K N Y ConvertWidth "ｚ", "z"
V GY x( ConvertWidth "Ａ", "A"
' iM#iA 8 ConvertWidth "Ｂ", "B"
ndmsXls ConvertWidth "Ｃ", "C"
r*
q ConvertWidth "Ｄ", "D"
(U{,D1 ? ConvertWidth "Ｅ", "E"
Z bW!c1s{ ConvertWidth "Ｆ", "F"
R7o'V* d ConvertWidth "Ｇ", "G"
[S~/l m ConvertWidth "Ｈ", "H"
adcH3 rV ConvertWidth "Ｉ", "I"
zb]e {$q2C ConvertWidth "Ｊ", "J"
z|F38(%JJN ConvertWidth "Ｋ", "K"
U F&B7r ConvertWidth "Ｌ", "L"
sH' IA~7 ConvertWidth "Ｍ", "M"
&%UZ"CcA ConvertWidth "Ｎ", "N"
6%a9%I s!O ConvertWidth "Ｏ", "O"
q"48U.}T ConvertWidth "Ｐ", "P"
?v
z[Zi ConvertWidth "Ｑ", "Q"
]x1;uE?1J ConvertWidth "Ｒ", "R"
%jE0Z4\ ConvertWidth "Ｓ", "S"
`<3%`4z/ ConvertWidth "Ｔ", "T"
a 1>T z ConvertWidth "Ｕ", "U"
/Hs\`Kg"! ConvertWidth "Ｖ", "V"
~GLWhe -
ConvertWidth "Ｗ", "W"
P5JE = &M ConvertWidth "Ｘ", "X"
w4Uo-zr@ ConvertWidth "Ｙ", "Y"
}ed{8"bj ConvertWidth "Ｚ", "Z"
:[:*kbWN- ConvertWidth "^l", "^p"
|C"zK ConvertWidth "（", "("
2M+}o"g ConvertWidth "）", ")"
_v#Vf*# rNK<p3=7) End If
9bQD"%ha=d \N% L-%^ With ActiveDocument
bA- /"'Vp9 Dim tbl As Table
4 <j 7F4 For Each tbl In .Tables
aMJW__ , tbl.Rows.Alignment = wdAlignRowCenter
S.zY0 tbl.Range.Font.NameFarEast = "楷体"
;b5^ ) S tbl.Range.Font.NameAscii = "Times New Roman"
s v.?C pE tbl.Range.Font.Size = 10.5
DL*&e|:q Next
8I}A Tc
Set tbl = Nothing
]Sey|/@D End With
*| 9: y$}o{VE{x h S 9^Bi With ActiveDocument
GI<3L K\ E5$Fhc For i = 1 To .TablesOfContents.Count
w61*jnvi@ .TablesOfContents(i).Delete
/;5/7Bvj Next
_,<@II
*/APe # .iV-Y *3< uv&4
A,h paraTotal = .Paragraphs.Count
1`sTGNo paraCounter = 1
s
$JO3-) O[|_
~v:^ LastTitle0No = 0
w)Xn MyD(P LastTitle1No = 0
;=UkTn}N?l LastTitle2No = 0
kt# t-N;}x LastTitle3No = 0
e#AmtheZR LastTitle4No = 0
xr
Zzfg LastTableNo = 0
S"cim\9xP LastFigureNo = 0
hAV@/oQ Ihd{ tmr< Dim Sec As Long
y]okOEV0
nb\pB l Sec = InputBox("正文从第一节开始？", "节设置", 6)
h3[x ZJO If Sec = 0 Then
1 )H;}%[ Exit Sub
[ KDNKK End If
.T1n"TfsGO cCuK?3V4K k = 0
uhm 3}mWv Do While (paraCounter < paraTotal) And bContinue
wpI"kk_@@ k = k + 1
&R))c|>OT& If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then
(F j"< Exit Do
>g;995tG End If
FfX*bqy paraCounter = paraCounter + 1
V"|`Z}XW If k Mod 20 = 0 Then
7<*,O&![ | Me.lbCounter.Caption = paraCounter
AZE DoEvents
^H!45ph?Jc End If
S-[ S?&c` Loop
T8BewO=} ]i/Bq!d l ATWa/"l(H- Do While (paraCounter < paraTotal) And bContinue
,_UTeW6M :'4 ", ParaText = Trim(.Paragraphs(paraCounter).Range.Text)
eMLcm ZJR ShapeHeight = 0
+w2 ` ShapeWidth = 0
}0C v J4 cX#U_U~d CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth
#Y0ru9 sd _DG8V Select Case ParaType
Sc?q}tt^C Case "【】表格内容"
Fr_6pEH]} .Paragraphs(paraCounter).Style = "QLNU表格内容"
V6bjVd9|Z Case "章"
=`k' , V _ LastTitle0No = LastTitle0No + 1
?sW}<8\ '新一章开始，复位其下属标题编号
O'{g{ LastTitle1No = 0
6VtN4c .Q LastTitle2No = 0
T<% %f.x[s LastTitle3No = 0
Ck:+F+7_v LastTitle4No = 0
^&lkh@Y1q m@W>ku
k = Val(ttNo)
M2nWvU$ If k = 0 Then '非数字编号章节
3>6rO4, If ttNo <> NoSeries1(LastTitle0No) Then
2@!B;6*8q rText = "第" & NoSeries1(LastTitle0No) & ttString
4iv&!hAc; Me.ErrMsg.AddItem "章节编号错误：" & ParaText
k#n% at.g End If
hvc3n>
Y[} Else
!A:d9 k If Val(ttNo) <> LastTitle0No Then
I_Omv{&u rText = "第" & LastTitle0No & ttString
_/J`v`}G Me.ErrMsg.AddItem "章节编号错误：" & ParaText
U/A
[al End If
[NK&s:wMk n }dLf
g * End If
Ae;mU[MK / HPX JRQBE '章段落设置
]G~Z'fs<( '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅
L%<DLe^P`l .Paragraphs(paraCounter).Style = "QLNU章节"
z~th{4#E ; .Paragraphs(paraCounter).Range.Select
\b}%A&Ij Selection.EndKey unit:=wdLine
@Hl+]arU h tc = Replace(rText, vbCr, "")
LvC
X(yjZ* Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False
C^fn[plL Case "一级标题"
oL7F^34; LastTitle1No = LastTitle1No + 1
o;u~Yg '新一级标题开始，复位其下属标题编号
*mz -g7 LastTitle2No = 0
P7epBWqDP LastTitle3No = 0
LMNm G]#! LastTitle4No = 0
Khh}flRy T7^?j :kJ/ If ttNo <> NoSeries1(LastTitle1No) Then
} "&Ye rText = NoSeries1(LastTitle1No) & "、" & ttString
F+]cFx,/ Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText
+*IRI/KUD End If
X.V4YmZ- ; Cw l: Js&.p9S2 '一级标题段落设置 格式：一、标题内容
bZ #5\L
2 .Paragraphs(paraCounter).Range.Text = rText
-'
=?Hs. .Paragraphs(paraCounter).Style = "QLNU一级标题"
; Kh!OBZFo .Paragraphs(paraCounter).Range.Select
3i#'osq Selection.EndKey unit:=wdLine
h!7Lvh`o tc = Replace(rText, vbCr, "")
+q%b'!&Q Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False
c=D~hz N Case "二级标题"
92ngSaNC LastTitle2No = LastTitle2No + 1
B dP+>Ij '新二级标题开始，复位其下属标题编号
oS~;>] W LastTitle3No = 0
*#1J LastTitle4No = 0
/z )Nz2W hOYP~OR If ttNo <> NoSeries1(LastTitle2No) Then
" H]R\x
p rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString
ovZ!} ErrMsg.AddItem "二级标题编号错误：" & ParaText
(v&iXD5t End If
V0G[f}tm' 6 $K@s '二级标题段落设置 格式：(一)、标题内容
!xU[BCbfYV .Paragraphs(paraCounter).Range.Text = rText
Y(Y#H$w .Paragraphs(paraCounter).Style = "QLNU二级标题"
]QQeUxi K,,'{j 2#f .Paragraphs(paraCounter).Range.Select
& @ ${@ Selection.EndKey unit:=wdLine
,F n-SrB: tc = Replace(rText, vbCr, "")
tF6-@T\ 6 Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 2 ", PreserveFormatting:=False
y@<&A~Cl^ A zVv- !Y Case "三级标题"
Hb[P|pPT LastTitle3No = LastTitle3No + 1
t)mc~M9w '新三级标题开始，复位其下属标题编号
S4pEBbV^n LastTitle4No = 0
}/4),W@< L9]d$ r" If Val(ttNo) <> LastTitle3No Then
('
2Z&5 rText = LastTitle3No & ". " & ttString
C%|m[,Gx Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText
;u=%Vn"2a U_RWqKL End If
_Nh`-R%B) '三级标题段落设置 格式：1. 标题内容
FQ0PXY
h .Paragraphs(paraCounter).Range.Text = rText
pq:[ ` .Paragraphs(paraCounter).Style = "QLNU三级标题"
F<^f6z8 .Paragraphs(paraCounter).Range.Select
rN,T}M= 2 Selection.EndKey unit:=wdLine
Fd<eh(g9P tc = Replace(rText, vbCr, "")
/I:&P Pff Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 3 ", PreserveFormatting:=False
z0UtKE^b Case "四级标题"
Y8h 96 LastTitle4No = LastTitle4No + 1
R7A:K]iJ5 dU2:H} If Val(ttNo) <> LastTitle4No Then
6#Rco%07zI rText = "(" & LastTitle4No & "). " & ttString
<O.|pJus ErrMsg.AddItem "四级标题编号错误：" & ParaText
6),!sO?
7~SnY\B| End If
S~>R} = '四级标题段落设置 格式：(1). 标题内容
B}J0 d .Paragraphs(paraCounter).Range.Text = rText
et/v/Hvw1 .Paragraphs(paraCounter).Style = "QLNU四级标题"
@aP1[( m .Paragraphs(paraCounter).Range.Select
/iL*) Selection.EndKey unit:=wdLine
TiR00# b tc = Replace(rText, vbCr, "")
x.sC 015Id Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 4 ", PreserveFormatting:=False
A1*\ \[ agq4Zy Case "表格标题"
i v.G LastTableNo = LastTableNo + 1
,20l` : ^ v+p@k If ttNo <> CStr(LastTableNo) Then
f@k.4aS rText = "表" & LastTableNo & ". " & ttString
G_M8? G0 ErrMsg.AddItem "表格编号错误：" & ParaText
^b4i9n,t1 y&V'GhW!dd End If
0lOR.}]q 5?0~7^de '表格名称段落设置 格式：表1. 表格名称
` fE'$2 .Paragraphs(paraCounter).Style = "QLNU表格标题"
cdN =HM~I xe = Replace(rText, vbCr, "")
r[wjE`Z/T .Paragraphs(paraCounter).Range.Select
f`iDF+h<6 Selection.MoveEnd wdCharacter, -1 '选择范围包括行尾的换行符。
xz~Y
%Y|Z Selection.Range.Text = xe
_M^^0 kf Selection.EndKey
[ c
XS k Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False
MY
^o0N {gxP_> Case "表格首行"
e-%q!F(Bf .Paragraphs(paraCounter).Style = "QLNU表格首行"
/!N=@z) Case "图片标题"
h^,av^lg^ LastFigureNo = LastFigureNo + 1
w&e3# p c& K` t If ttNo <> CStr(LastFigureNo) Then
@1 i<=
r rText = "图" & LastFigureNo & ". " & ttString
=G !]_d0 ErrMsg.AddItem "表格编号错误：" & ParaText
Cu_-QE 7EVB|gTp End If
|7Q e
{ '图片名称段落设置 格式：图1. 图名称
yb>R(y .Paragraphs(paraCounter).Range.Text = rText
nb ?(zDJ8 .Paragraphs(paraCounter).Style = "QLNU图片标题"
c7.M\f P
.Paragraphs(paraCounter).Range.Select
~[f
`oC Selection.EndKey unit:=wdLine
bz1AmNZG xe = Replace(rText, vbCr, "")
Y[W :Zhl; Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False
(/[email protected][1 Case "正文"
IZGRQmi" '正文名称段落设置
K & %8w .Paragraphs(paraCounter).Style = "QLNU正文"
";/ogFi Case "文献条目"
t*)!BZ With .Paragraphs(paraCounter)
U\ !9dhx '.Range.Select
D G|v' # 'Selection.ClearFormatting
c|K:oi,z '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator 'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ”
2qQ;U?:q .Style = "QLNU参考文献"
5hh6;) End With
Xkk 8#Y": Case "图表注解"
5#y_ EpL" With .Paragraphs(paraCounter)
;%k C?Vzi .Range.Font.NameFarEast = "楷体"
B4 5#-V .Range.Font.NameAscii = "Times New Roman"
B*9?mcP\ .Range.Font.Size = 9 '小5号字
P#V}l'j(<a %m |1LI( .Alignment = wdAlignParagraphCenter
S
E(c_ sX .LeftIndent = 0
>x6 )AH. .RightIndent = 0
i5|)|x3 .FirstLineIndent = 0
h6}rOchj .LineSpacing = 12
+"1-W> HV .LineSpacingRule = wdLineSpaceExactly
y(#6nG@S .LineUnitAfter = 0
wk{]eD% .LineUnitBefore = 0
F%.UpV, .OutlineLevel = wdOutlineLevelBodyText
aMVq%{ U .PageBreakBefore = False
`xZ,*G7(* .RightIndent = 0
s< Fp17 .WordWrap = True
7 fXJP5j .LineUnitAfter = 0.5
Xq<_r^ ~Orz<%k. End With
+~= j3U Case Else
m/;fY>}3 '不作处理
R&$f
WV;' End Select
itg"dGDk y.s\MWvv>u '含有inlineshape的段落处理
!R@jbM If ShapeHeight > 30 Then
-w f>N: .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle '对有图片的段落设置为单倍行距
X\>/'fC$ End If
oS} f r? rU(-R@[" If (ShapeWidth + ShapeHeight) > 150 Then
U$S{j&? .Paragraphs(paraCounter).Style = "QLNU图片段落"
abCxB ^5VL End If
#N%j9 KUpj.[5 qo '段落计数器递
G(ZEP.h`u paraCounter = paraCounter + 1
KT7R0 v Me.lbCounter.Caption = "当前检测段落：" & paraCounter
\}X[0ct2! Me.txtStatus.Text = ParaText
*_P'> V#p DoEvents
c]i;0j? Dl Loop
^ 8Y BW<9 End With
,gM:s}l!dJ Vol }wc msg = ""
Cs\jPh;" ,6o tm For i = 0 To Me.ErrMsg.ListCount - 1
yb)qg]2 msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i)
ru~!;xT Next
PIdGis5G :G] t=vr1 !R gj'{ ?b" 'w Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg
8'NT_NPNb Me.cmdCheck.Enabled = True
dK0
H.| Me.txtStatus.Visible = True
x 0#u2j?zj Me.lbParaType.Visible = False
-f1lu*3\ e {3%- bContinue = False
~)zxIO! End Sub
\(&&ed: B79
~-,Yh 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)
hc|#JS2H@y Dim pTEXT As String
m &z(2yb1 o,S(;6pDJ pTEXT = ChKRange.Text
~N7;.
3 7 6{0Mp rY ParaType = "其它"
0F. S[!I TitleString = pTEXT
U9*< dR TitleNo = "N/A"
URt+MTU[ !6z{~Z: shpCounter = ChKRange.InlineShapes.Count
;*ni%|K If shpCounter <> 0 Then
)eqF21\ MaxShpHeight = 0: TotalShpWidth = 0
N
1.fV - For i = 1 To shpCounter
7#Uzz"^ k = ChKRange.InlineShapes(i).Height
6'.)z ,ts l = ChKRange.InlineShapes(i).Width
F/[m.!Eo If k > MaxShpHeight Then
jc\y{ I\ MaxShpHeight = k
P,(_y 8 End If
Rg+# (y TotalShpWidth = TotalShpWidth + l
Z@%A(nZ_ Next
EEo I| If MaxShpHeight > 60 Or TotalShpWidth > 150 Then
9MQjSNYzo Exit Sub
b`% !\I End If
Mz86bb^J End If
j(}pUV B k+J63+obd '空行
F,Ve, 7kh If Len(pTEXT) <= 2 Then
IYHN
N Exit Sub
UJ(UzKq8 End If
UoUQ6I j >>"@ 0tO tR2%oT>h '是否为表格中的文字
#sk~L21A If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then
>
yVp1Se ParaType = "表格内容"
ruyQ}b:zS k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber)
2 m} bddS If k = 1 Then
bUds E 1f ParaType = "表格首行"
O%6D2d End If
.}uri1k"@k Exit Sub
* dk(<g=fM End If
FvO,* r 9 U0iV
E+)Bt '例外情况：脚注
$o9@ ?2 If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then
Jr= fc*f ParaType = "脚注"
HL dHyK/S Exit Sub
^~6gk S
} End If
T LF'7ufq rl&.|;5uH; '例外情况：尾注
Koj9]2<0 If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then
atmW? Z ParaType = "尾注"
^FVmP d*1 Exit Sub
4% |r$E/TQ End If
#{^qBP[ 71ab&V il If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then
2?v }w<Ydl ParaType = "页眉页脚"
y y[ Y= Exit Sub
uu"hu||0_ End If
Xr'b {& cSNeWJKA
6 8R-;cBT With regEX
A)Rh
B i .Global = True
|sl^4'Ghc mdo$d-d& .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$"
SqdI($F\: If regEX.Test(pTEXT) Then
r vK%m_r ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3")
cMoJHC,! TitleString = regEX.Replace(pTEXT, "$3")
7$t['2j3 TitleNo = regEX.Replace(pTEXT, "$1")
K
V ParaType = "章"
]0[ot$Da6 Exit Sub
OVc)PMp End If
g!o2vTt5
ls7P$qq .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$"
>oaL -01i If regEX.Test(pTEXT) Then
^ ".6~{ ParaType = "一级标题"
Bu+?N%CBi regEX.Execute (pTEXT)
ZU;j
z[} ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3")
+_u~Np TitleString = regEX.Replace(pTEXT, "$3")
L GVy4D TitleNo = regEX.Replace(pTEXT, "$1")
)C mH C3 Exit Sub
Fs(S!;
End If
lV$#>2Hh5 p=zT Y7L '全角或半角括号中的数字
)qOcx
I .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$"
[tElt4uG If regEX.Test(pTEXT) Then
F%af05L[ ParaType = "二级标题"
LR\8M(rtvH regEX.Execute (pTEXT)
B#35)QI ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5")
5tzO=g O[ TitleString = regEX.Replace(pTEXT, "$5")
R@ /"B?`(f TitleNo = regEX.Replace(pTEXT, "$2")
):}A Quy] Exit Sub
N8x.D-=gG End If
g5u4|+70 %tZrP$DQ '阿拉伯数字 1. 2.
B@VAXmCaoV .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$"
12_ 7UWZ" If regEX.Test(pTEXT) Then
45$aq~%as ParaType = "三级标题"
]*Q,~uV^| regEX.Execute (pTEXT)
&%8 IBT ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测
{MTtj4$ TitleString = regEX.Replace(pTEXT, "$3")
'
I !/I TitleNo = regEX.Replace(pTEXT, "$1")
N93R (x)% Exit Sub
eT ]*c?" End If
e=eip?p T
eO'E<@ '全角或半角括号中的阿拉伯数字
^tI&5S]nE .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$"
+P,ic*Kq * If regEX.Test(pTEXT) Then
^U96p0H"T ParaType = "四级标题"
m|t\w|B2 regEX.Execute (pTEXT)
@A(jo 32 ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5")
t}? -ao TitleString = regEX.Replace(pTEXT, "$5")
zK{ } TitleNo = regEX.Replace(pTEXT, "$2")
vy2"B ch Exit Sub
o;#8
=q End If
r .6?
| t5u#[* '表格名称
,"{e$|iY .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$"
53pT{2]zAi If regEX.Test(pTEXT) Then
bNiJ"k<pN ParaType = "表格标题"
0IA' 5) regEX.Execute (pTEXT)
qDz[=6BF ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3"))
KrHKM 3< TitleString = Trim(regEX.Replace(pTEXT, "$3"))
Uj3HAu TitleNo = Trim(regEX.Replace(pTEXT, "$1"))
o^//|]H3Y strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换
C*B5"s" Exit Sub
" v
c
4QH$ End If
<*-8E(a H*P+>j& '图片名称
{6wXDZxv .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$"
%y*'bS If regEX.Test(pTEXT) Then
ccp9nX v ParaType = "图片标题"
Z,81L3#6 regEX.Execute (pTEXT)
`PvS+>q ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3")
u47`&\ TitleString = regEX.Replace(pTEXT, "$3")
\ pTv;( TitleNo = regEX.Replace(pTEXT, "$1")
Kv<mDA! Exit Sub
64 `l?F End If
kBk 2mM Z v\qyDZ VV '参考文献
i~R+ g3oi .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})" '[数字]、
! hEZ V&y If regEX.Test(pTEXT) Then
m\bmBK"I ParaType = "文献条目"
Sm?|, C3V 'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4")
s0/m qZ]s 'TitleNo = regEX.Replace(pTEXT, "[$2] ")
f5l\3oL Exit Sub
jp@X,H ES End If
V B T 66kV Aayd3Ph0% prfx = Left(pTEXT, 2)
.tyV =B:h If prfx = "注：" Or prfx = "注:" Then
H\N} 0^ ea ParaType = "图表注解"
MpvG F7H Exit Sub
8 G|?R#& End If
: yq2
XE%r }9
#GJ:x` q;IuV&B
ParaType = "正文"
; C(5lD&\5 m}z Xy\ End With
D%c^j9' 1 End Sub
qt/6o|V +7n vy^m Sub ConvertListToOrdinary()
n<<arO"cv Dim st As Paragraph
SW+;%+ ` With ActiveDocument
bFlI:R&< For i = .Paragraphs.Count To 1 Step -1
-yg;,nCg Set st = .Paragraphs(i)
]KXyi;n2 lst = st.Range.ListFormat.ListString
p=Le oc 1 If lst <> "" Then
DIWyv- st.Range.ListFormat.RemoveNumbers
D/%v/mpj$ st.Range.InsertBefore lst & " "
Bss *-K]
End If
:(tKc 3
z Next
jO|`aUY Tf End With
OYn
5k6 Set st = Nothing
?i\V^3S n$ End Sub
Gm =&[ ?} Q u7ML]e?z Private Sub UserForm_Activate()
FeQo,a Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节"
^P/OH uDL Me.lbTotal.Font.Bold = True
js r) Me.txtStatus.Visible = False
jVN=_Y}\ Me.cmdCheck.Enabled = True
m qUDve( G \,B*$3
End Sub
-vk/z+-^! d{@'&?tj pS7 y3(_ Sub CheckSuperScript()
JP
{`^c Selection.Find.ClearFormatting
<w8H[y"c Selection.Find.Replacement.ClearFormatting
Gl45HyY_ With Selection.Find
@H( 7Mt .Text = "[【\[［〖](*)[】\]〗］]"
0Q8iX) .Replacement.Text = "[\1]"
qQO*:_ezzk .Replacement.Font.Superscript = True
qe(C>qjMbG '.Replacement.Font.Color = wdColorBlue
2Ur&_c6 P .Forward = True
hN gT/y8 .Wrap = wdFindContinue
!W0 JT#0 .FORMAT = True
-eS r .MatchCase = False
/6yVbo " .MatchWholeWord = False
\u[5O@v# .MatchByte = False
LmJ _$?o .MatchAllWordForms = False
"{H{-`Ni .MatchSoundsLike = False
_^zs( .MatchWildcards = True
m(kv: 5<> End With
~| ZAS] Selection.Find.Execute Replace:=wdReplaceAll
T
g3MPa#g End Sub
3pL4 Zhf ^^tTA^ Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
>1]hR)Ip bContinue = False
,@ f |t& Set regEX = Nothing
2Dvq3VbiO" End Sub
^T1caVb|> _FS #~z'j Sub CeateOrModifyStyle()
nmE
H/a '
,1JQjsR '
T2 )CiR-b Dim stl As Style
yv>uzb`N XpK
Y# Options.Pagination = False
[Fk |m1i! _4#7 ? p On Error Resume Next
5nceOG8 For Each stl In ActiveDocument.Styles
<mTo54g stl.Delete
uk,9N Next
A =e1uBGA On Error GoTo 0
M
0RA&
7Tr '<(A Set stl = Nothing
rLD1Cpeb,w 0# 1~'e DoEvents
j l 7> On Error Resume Next
{c?{M.R >J;J&]Olf ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph
o\W>$$EXD F 3!6}u\F ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph
-u~:Gd*l0 ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph
`r=^{Y ~yXDN4s ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph
1=+S'_j ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph
B (71
I; ?6vGE~ MuR ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph
j3w~2q"r ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph
"S{GjOlEDF ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph
&~.|9P/45 ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph
(]mBAQ #hw ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph
M^l%*QF[,q ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph
1n2Pr'|s ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph
A`vRUl,c
= t`}=~/#`X ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph
' '9K(p6 ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph
K( MZ!>{ ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph
A9Ea}v9: ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph
SI6?b1;-:F ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph
||cI~qg 2X BHo ( ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph
Qt'3v"S>) On Error GoTo 0
4>Ht _B<< DoEvents
E<B/ 5g! Gl{2"!mt= 'BaseStyle
,{iMF
(Nj ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False
(mi=I3A( With ActiveDocument.Styles("BaseStyle").Font
z/5TYv)S .NameFarEast = "宋体"
FR50y+h^$ .NameAscii = "Times New Roman"
=Ldf#8J .NameOther = "宋体"
Ls|)SiXrY .Size = 10.5
'd QGb-<_< .Bold = wdUndefined
~9!@BL\ .Italic = wdUndefined
0.!vp?
.Subscript = wdUndefined
%|/\Qu .Subscript = wdUndefined
.{;RJ:O j" ;L { .Underline = wdUnderlineNone
]x& R=)P .UnderlineColor = wdColorAutomatic
pkG8g5(w .StrikeThrough = False
(Y&gse1}! .DoubleStrikeThrough = False
;/23C
FYM gQhYM7NP{5 .Outline = False
<|WXFjn .Emboss = False
2 WKIO|' .Shadow = False
k ?3mFWc .Hidden = False
2}P{7flDY .SmallCaps = False
FDBNKQV .AllCaps = False
_ !"[Zr .Color = wdColorAutomatic
{KTZSs $n .Engrave = False
9 XS>;<"2 .Scaling = 100
t]3:vp5N] .Kerning = 1
o4rf[.z .Animation = wdAnimationNone
I )% bOK] .DisableCharacterSpaceGrid = False
S>HfyZ&P c .EmphasisMark = wdEmphasisMarkNone
I)3LJK
End With
-ImO y| With ActiveDocument.Styles("BaseStyle").ParagraphFormat
fWg 3gRI .LeftIndent = 0
rf^IJY[ .RightIndent = 0
Zn|lL0 b{q .SpaceBefore = 0
<dS I"C< .SpaceBeforeAuto = False
0 >(hiT y< .SpaceAfter = 0
ed/
"O gA .SpaceAfterAuto = False
gHL:X W^ ,HE{&p2y .LineSpacingRule = wdLineSpaceSingle
Ttb ?x<)+8 .Alignment = wdAlignParagraphJustify
N1:)Z`r n ]l
3
)u .WidowControl = False
j~Ci*'*L .KeepWithNext = False
NQ '|M .KeepTogether = False
Y?oeP^V'u .PageBreakBefore = False
/^~)iTwH .NoLineNumber = False
:W-xsw NS x-~) .FirstLineIndent = CentimetersToPoints(0)
44^jE{,9 .OutlineLevel = wdOutlineLevelBodyText
Ho%%voJBS .CharacterUnitLeftIndent = 0
54]UfmT%I .CharacterUnitRightIndent = 0
WT 5 2 .CharacterUnitFirstLineIndent = 0
b83m'`vRM .LineUnitBefore = 0
^' sy hI\ .LineUnitAfter = 0
rP(;^8l" .AutoAdjustRightIndent = True
0 '5N[Bvp .DisableLineHeightGrid = True
{c
$8?6 V2m=
m}HQ .FarEastLineBreakControl = True
GIkVU6Q} .WordWrap = True
A}uW y^w .Hyphenation = False
(LVzE_` Aba%QQQ .HangingPunctuation = True
#; P- *P .HalfWidthPunctuationOnTopOfLine = True
@Ko}Td&E( .AddSpaceBetweenFarEastAndAlpha = True
[w FK!? .AddSpaceBetweenFarEastAndDigit = True
Zwtz )ZII .BaseLineAlignment = wdBaselineAlignBaseline
W$D:mw7 End With
@%MGLR{pH ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False
sA"B/C|(g ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll
.q 4FGPWz ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese
^|h.B$_F, ActiveDocument.Styles("BaseStyle").NoProofing = False
gZz5P>^ o|s|Wm x>u '一级标题题样式
4Dd]:2|D ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
gazX2P[D ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle"
&$pQ Jf ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False
j3?@p5E( With ActiveDocument.Styles("QLNU一级标题").Font
ob)c0Pz .NameFarEast = "黑体"
>IKIe .NameAscii = "Arial Black"
k_OzkEM9! .NameOther = "黑体"
` a
pCu .Name = "黑体"
zP!j {y4w .Size = 16 '三号
8X\":l: .Bold = True
w0.;86 <MV .Italic = wdUndefined
>\lBbq a#
.Subscript = wdUndefined
H7 {kl .Superscript = wdUndefined
'2p,0Bk9i End With
d(D|rf,av With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat
(
~>-6Nb 5 1q*=4O
.LeftIndent = CentimetersToPoints(0)
cGg ~+R2P .RightIndent = CentimetersToPoints(0)
){tT
B .FirstLineIndent = CentimetersToPoints(0)
)h%tEY$AJ -OgC. 6 .LineSpacingRule = wdLineSpaceSingle
)\izL]=!t .Alignment = wdAlignParagraphCenter
*u >[ Wjd_|K ui .WidowControl = True
{I$zm
VG .KeepWithNext = True
5G#2#Al(F
.KeepTogether = True
l n09_Lr .OutlineLevel = wdOutlineLevelBodyText
k <LFH( P>] *pD .LineUnitBefore = 0.5
Og2w]
B[
.LineUnitAfter = 0.5
x)kp*^/ End With
0bQ"s*K ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False
.T~Oc'wGo ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll
8(:O5# ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese
nG|
NRp
ActiveDocument.Styles("QLNU一级标题").NoProofing = True
:{#w-oC>6P DoEvents
.k5&C/jv 3qp\jh=FE '二级
vWYU'_= ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
`y&
2Bf ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle"
hus9Zv4 ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False
_ 6sSS\ With ActiveDocument.Styles("QLNU二级标题").Font
-zm-|6[Wi .NameFarEast = "黑体"
l8DZ2cw] .NameAscii = "Arial Narrow"
Ez^wK~ .NameOther = "黑体"
kbx4I? .Name = "黑体"
N/B-u)?\: .Size = 15 '小三号
7a%)/ )<D .Bold = False
<)oW .Outline = False
}K 2fwE .Italic = wdUndefined
u-wj\ BU .Subscript = wdUndefined
2B=BRVtSs .Superscript = wdUndefined
W_]onq 6 End With
#/>OW2Ny With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat
pc]( .LeftIndent = CentimetersToPoints(0)
U ,\t2z .RightIndent = CentimetersToPoints(0)
/yO0Z1G .FirstLineIndent = CentimetersToPoints(0)
6l(HD([_p b5%T)hn= .LineSpacingRule = wdLineSpaceSingle
Kl :x?"g) .Alignment = wdAlignParagraphLeft
Xf|I=XK Bh q]h .WidowControl = True
#t&L}=G{% .KeepWithNext = True
H7Ee0T(` .KeepTogether = True
yzL6 oU-{& .PageBreakBefore = False
P[gYENQ .OutlineLevel = wdOutlineLevelBodyText
jQ P2[\ f5t/= /6>F .LineUnitBefore = 0.5
M+M\3U .LineUnitAfter = 0.5
Bc?KAK #<R6!"TNoz End With
sH{(=N ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False
yt `K^07@ ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll
8SO(pw9 ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese
T^nOv2@, ActiveDocument.Styles("QLNU二级标题").NoProofing = True
E*UE?4FSw| DoEvents
T5TA kEVl H' )8p;~{} '三级标题样式
@t#Ju1Y ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
=?1B|hdo ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle"
I KeO&]k ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False
Cl!qd h6 With ActiveDocument.Styles("QLNU三级标题").Font
rhwjsC6 .NameFarEast = "宋体"
6"c(5#H .NameAscii = "Times New Roman"
kfs[* ku .NameOther = "黑体"
6L&_(/{Uw .Name = "黑体"
Cfst)[j .Size = 14 '四号
zhC5%R &n/ .Bold = False
Z2I2 [pA .Outline = False
mA\}zLw+r9 .Italic = wdUndefined
3c[TPD_: .Subscript = wdUndefined
{ 60U6n .Superscript = wdUndefined
bR83N End With
8]% e[ With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat
AbOF/ g)C .LeftIndent = CentimetersToPoints(0)
\
UiITP< .RightIndent = CentimetersToPoints(0)
lD1m <AC .FirstLineIndent = CentimetersToPoints(0)
>+ku:<Hw%. ks(BS k4 .LineSpacingRule = wdLineSpaceSingle
zHQSx7Ow 5 .Alignment = wdAlignParagraphLeft
EpH\;25u ~d=Y98'xS .WidowControl = True
/baSAoh/e .KeepWithNext = True
Zopi;O J .KeepTogether = True
^[hx`Rh`t .PageBreakBefore = False
Gs NZr=;C .OutlineLevel = wdOutlineLevelBodyText
p) m0\ &^K,"a{ .CharacterUnitLeftIndent = 0
Uf\U~ wM< .CharacterUnitRightIndent = 0
j:'8yFi_ .CharacterUnitFirstLineIndent = 2
qbD[<T 9at_F'> R .LineUnitBefore = 0.5
=a_ >") .LineUnitAfter = 0
:sJQ r._L End With
2j-^F ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False
D ~t ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll
P^m&oH5]EG ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese
![aa@nOSa ActiveDocument.Styles("QLNU三级标题").NoProofing = True
,uCgC4EP DoEvents
CdNb&
Nyz JR
4fJG '四级标题样式
#HmZe98[% ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
!TP KD ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle"
63pd W/\j ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False
1c*Xm MB With ActiveDocument.Styles("QLNU四级标题").Font
]R]%c*tA .NameFarEast = "宋体"
L<ET"&b;4 .NameAscii = "Times New Roman"
'0jn|9l58 .NameOther = "宋体"
ze#r/j;sw .Name = "宋体"
_ v3VUm# .Size = 12 '小四号
rc7^~S] 5 .Bold = True
*f3? 0w .Outline = False
Pb
l#ieZM .Italic = wdUndefined
7E\k97#G .Subscript = wdUndefined
:$& v4IW .Superscript = wdUndefined
/ yTPb End With
H ie With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat
lw_PQ4Hp G Y+li { .LeftIndent = CentimetersToPoints(0)
}9 I,p$ .RightIndent = CentimetersToPoints(0)
{*K7P> & .FirstLineIndent = CentimetersToPoints(0)
#b$qtp!, G9r~ O#=gy .LineSpacingRule = wdLineSpaceSingle
lWk/vj<5 .Alignment = wdAlignParagraphLeft
$VUX?ii$7= +E
}q0GV .WidowControl = True
9 kLA57 .KeepWithNext = True
+Z=DvKsT
J .KeepTogether = True
?4YLt|sn .PageBreakBefore = False
"<yJ<lS&> .OutlineLevel = wdOutlineLevelBodyText
.%
+y_.l k[5:]5lp+ .CharacterUnitLeftIndent = 0
&O^t]7 .CharacterUnitRightIndent = 0
em?Q4t .CharacterUnitFirstLineIndent = 2
>AUzsQ u \o~'Jz .LineUnitBefore = 0
`E8D5'tt .LineUnitAfter = 0
)i$KrN6 e# z#bz2< End With
# 9 p|aS\ ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False
4~z-&>% ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll
F0/!+ho ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese
rE9Nt9
} ActiveDocument.Styles("QLNU四级标题").NoProofing = True
NWII?X#T} DoEvents
x^)W}p" \JIyJ8FleC '正文校式
>|g(/@IO ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle")
K4Hu0 ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle"
]q 3.^F ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False
K5}0!_)G With ActiveDocument.Styles("QLNU正文").Font
"g&hsp+i"A hf< [$B .NameFarEast = "宋体"
w7QYWf' .NameAscii = "Times New Roman"
O c%W_Gb7 .NameOther = "宋体"
k83S.*9Mx .Name = "宋体"
E{{Kz r2$ CK(`]-q>, .Size = 12 '小四号
WXe]Q b
g =&roL7ps .Bold = wdUndefined
s- JS[ .Italic = wdUndefined
#]@|mf
q .Subscript = wdUndefined
ygYy [IZ .Superscript = wdUndefined
yUEvva O*ER3
.Outline = False
Y@2yV(m)o .Emboss = False
-Rbv#Y .Shadow = False
E$USam .Hidden = False
Gm-V/[29R z2[{3Kd* .DisableCharacterSpaceGrid = True
EM,= R End With
q:u,)6
With ActiveDocument.Styles("QLNU正文").ParagraphFormat
5
N:IH@ J1@skj4#\~ .LeftIndent = CentimetersToPoints(0)
1}3tpO; .RightIndent = CentimetersToPoints(0)
<j:@ iP
.FirstLineIndent = CentimetersToPoints(0)
KLgg([ ;2l|0 : .LineSpacingRule = wdLineSpaceExactly
`zsooA
Gt .LineSpacing = 20
;={3H_{3 .Alignment = wdAlignParagraphLeft
F
$1f8U8 \"6?*L|] .WidowControl = False
)w,<XJhg` .KeepWithNext = False
Yp EH(tq .KeepTogether = False
#N;McF;W .PageBreakBefore = False
5Tq*]Z E .Hyphenation = False
lwm
9gka K#xL- .OutlineLevel = wdOutlineLevelBodyText
nt$
q< 57 0?O$->t V{n7KhN~Y! .CharacterUnitLeftIndent = 0
%'.3t|zH .CharacterUnitRightIndent = 0
%{&,5|8 .CharacterUnitFirstLineIndent = 2
v:]z -zU w[OUGn' .LineUnitBefore = 0
9E}JtLg T .LineUnitAfter = 0
QVo>Uit .SpaceBefore = 0
#O^%u,mJj .SpaceAfter = 0
$) m$ c5! CI^s~M > .DisableLineHeightGrid = True
Y ]bS=*q End With
Ih)4.lLcKn ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False
Q A
X3*%h ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll
QM@zy ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese
z"f+;1 ActiveDocument.Styles("QLNU正文").NoProofing = True
PP8627uP DoEvents
h`f $]_c w$"^)E G,7 '图片段落样式
#|=Q5"wU ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle")
fw)Q1"| ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle"
[G'
+s ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False
}/M muPp With ActiveDocument.Styles("QLNU图片段落").Font
)
(0=w4 .Size = 12 '小四号
]Eq wDw4 .Italic = wdUndefined
bL/DjsZ@ .Subscript = wdUndefined
Tb\<e3Te_ .Superscript = wdUndefined
5:(/k\9+yv End With
F(|XJN With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat
u9 N /9 2 =uwGIF .LeftIndent = CentimetersToPoints(0)
%a']T X .RightIndent = CentimetersToPoints(0)
@;}vK=6L .FirstLineIndent = CentimetersToPoints(0)
/h9v'Y}c P~s u]+ .LineSpacingRule = wdLineSpaceSingle
__}ut+H^5p .Alignment = wdAlignParagraphCenter
G%viWWTY .KeepWithNext = True
!wTrWD! .OutlineLevel = wdOutlineLevelBodyText
i(>
WeC+ |!{ Y :f; .CharacterUnitLeftIndent = 0
8&yI1XM| .CharacterUnitRightIndent = 0
U'@ ![Fp .CharacterUnitFirstLineIndent = 0
17-B'Gl!<% GI6]Ecc .LineUnitBefore = 0
B_
bZa .LineUnitAfter = 0
y% O^Zm1 End With
:Q8*MJ3&V ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False
`RXlqj#u ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll
~bsdy2&/q ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese
Q hdG(`PY~ ActiveDocument.Styles("QLNU图片段落").NoProofing = True
0X5b32 DoEvents
z `jLKPP!= Z{x)v5yh2V /h8100 '第X章
% _nmv ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
c2-oFLNP= ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle"
Vllx v6/_ ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False
d .%2QkL With ActiveDocument.Styles("QLNU章节标题").Font
EVP{7 }K1 .NameFarEast = "黑体"
%F\.1\&eE .NameAscii = "Arial Black"
]A%~bQ7 .NameOther = "Arial Black"
2}15FXgN
.Name = "黑体"
k~)@D|
? .Size = 16
Z" $iB-] .Bold = True
k/1 S7X[ .UnderlineColor = wdColorAutomatic
L8(2or .Outline = False
v2k@yx t( .Italic = wdUndefined
[9G=x[ .Subscript = wdUndefined
e8S4= W .Superscript = wdUndefined
s"R5'W\U .Scaling = 100
%<fs \J^k .DisableCharacterSpaceGrid = True
TjHt:%7. End With
3!{Tw6A8( With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat
8Oz9 Uc G .LineSpacingRule = wdLineSpaceSingle
oX7_v_:J\R .Alignment = wdAlignParagraphCenter
5=
T$h ;O .WidowControl = True
(__$YQ - .KeepWithNext = True
#4
<=Ira5 .KeepTogether = True
}
42Hhu7j .PageBreakBefore = True
YdyTt5- .OutlineLevel = wdOutlineLevelBodyText
snYeo?|b o2[$X ONTl .LeftIndent = CentimetersToPoints(0)
d:"7Tw2v+ .RightIndent = CentimetersToPoints(0)
Q ]e]\J .FirstLineIndent = CentimetersToPoints(0)
|K9*><P?)2 *Qyu
QF .CharacterUnitLeftIndent = 0
e$/y ~! .CharacterUnitRightIndent = 0
~F%sO'4! .CharacterUnitFirstLineIndent = 0
b[<L
l% K F}=_"
IkZ .LineUnitBefore = 1
2 9
cx( .LineUnitAfter = 0.5
LW k/h 1 n|Ts:>`V .AutoAdjustRightIndent = False
2MmH O2 .DisableLineHeightGrid = True
s R/y | .FarEastLineBreakControl = True
Xk\IO0GF .WordWrap = True
NF7 End With
o`G6! ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False
Sw h\^/B8 ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll
-[}Aka,f! ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese
>~_z#2PA ActiveDocument.Styles("QLNU章节标题").NoProofing = True
~'F.t B DoEvents
k(o(:-+x Kg`P@ '表格标题
e=3C*+lq\ ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
uIBN
!\j ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle"
+\$c_ 9|C+ ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False
rgDl%X2B With ActiveDocument.Styles("QLNU表格标题").Font
2_ 1RJ .NameFarEast = "楷体"
*,t/IA| .NameAscii = "Arial"
e4|a^lS; .Name = "楷体"
p=3t!3
.Size = 10.5
U ({N'y= .Bold = True
P+BGCc%);B .Underline = wdUnderlineNone
:zY;eJK m .Italic = wdUndefined
n.t5:SW .Subscript = wdUndefined
4ETHaIiWp .Superscript = wdUndefined
%a
FZbLK .Color = wdColorAutomatic
Z_fwvcZ?05 End With
B):ZX# With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat
JI
cm$ 6TTu[*0NT .LineSpacingRule = wdLineSpaceSingle
"U+c`V=w .Alignment = wdAlignParagraphCenter
Y=?{TX=6<[ .KeepWithNext = True
(H"{r .KeepTogether = True
<v/aquLN .OutlineLevel = wdOutlineLevelBodyText
4>OS2b`.; $41<ldJ .LeftIndent = CentimetersToPoints(0)
Zu2`IzrG# .RightIndent = CentimetersToPoints(0)
v|K IVBkbT .FirstLineIndent = CentimetersToPoints(0)
/GX>L) mG$N%`aG .CharacterUnitLeftIndent = 0
HB`'S7Q .CharacterUnitRightIndent = 0
.)=*Yr M .CharacterUnitFirstLineIndent = 0
`Ns Q&G N;,zPW a
.LineUnitBefore = 1
&nwS7n1eb .LineUnitAfter = 0
? 8/r= ) _\ ;l%& End With
M?DZShkV_ ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False
)Ly ~\* ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll
$2+s3) ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese
_>BYU PY ActiveDocument.Styles("QLNU表格标题").NoProofing = True
; u [:J DoEvents
HEAW](s v(GnG '表格首行
nCQ".G ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle")
$-u c#5 7 ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False
y5F"JjQAa With ActiveDocument.Styles("QLNU表格首行").Font
[oXSjLQ m[ .NameFarEast = "楷体"
9HEqB0|ZRu .NameAscii = "Times New Roman"
w, up`W7, .Name = "楷体"
?PqkC&o[q .Size = 9
(>E/C^T c% .Bold = True
QT
z
N .Underline = wdUnderlineNone
^$}O?y7O .Italic = wdUndefined
RyU8{-q .Subscript = wdUndefined
bI|{TKKN&P .Superscript = wdUndefined
}V*?~.R End With
'J3yJ{ With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat
L>mM 6$l .LineSpacingRule = wdLineSpaceSingle
` &bF@$(( .Alignment = wdAlignParagraphCenter
4_ypFuS ^ ,]nRnI^ .LeftIndent = CentimetersToPoints(0)
6212*Z_Af
.RightIndent = CentimetersToPoints(0)
Wp+lI1 t .FirstLineIndent = CentimetersToPoints(0)
." gq[0_YS %hN(79:g b8Z_o N5! .CharacterUnitLeftIndent = -0.5
mZc; n.$U .CharacterUnitRightIndent = -0.5
^/$dSXKF .CharacterUnitFirstLineIndent = -0.5
63J3NwFt ?i V}U .LineUnitBefore = 0
ID`Ot{ y .LineUnitAfter = 0
.c&&@>m@. .SpaceBefore = 0
h Ypj .SpaceAfter = 0
dNY'uv&Y $ _;rqTk]g End With
L)&^Pu ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False
~5h4 Gy) ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll
ij#v_~g3 ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese
o tfmM]f ActiveDocument.Styles("QLNU表格首行").NoProofing = True
^#C+l DoEvents
YtKT3u:x rk4KAX_[ '表格内容
o5 ~VT!'[ ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle")
w\ 0vP ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False
Ph%ylS/T{ With ActiveDocument.Styles("QLNU表格内容").Font
_'1 7C / .NameFarEast = "楷体"
VcXr!4
M .NameAscii = "Times New Roman"
[s`B0V`04 .Name = "楷体"
xf/
K+ .Size = 9
,A7:zxnc.V .Bold = False
bCr
W'}:de .Underline = wdUnderlineNone
mtkZF{3Jx .Italic = wdUndefined
bcjh3WP .Subscript = wdUndefined
QV. >Cy .Superscript = wdUndefined
#d3_7rI0V End With
pdER#7Tq With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat
QH4m7M@ni .LineSpacingRule = wdLineSpaceSingle
-s!J3DB .Alignment = wdAlignParagraphCenter
i 7PS=]TK\ 5z9hcQAS .LeftIndent = CentimetersToPoints(0)
4H;7GNu .RightIndent = CentimetersToPoints(0)
)/JVp> .FirstLineIndent = CentimetersToPoints(0)
U, 7 ,Y
jjL .CharacterUnitLeftIndent = -0.5
}!k?.(hpE .CharacterUnitRightIndent = -0.5
2O@ON/ .CharacterUnitFirstLineIndent = -0.5
XR9kxTuk .LineUnitBefore = 0
}yn%_KQ0 .LineUnitAfter = 0
!/ tV}.* .SpaceBefore = 0
$GU
s\ .SpaceAfter = 0
qoH:_o8ClO End With
y9]7LETv\M ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False
R+0gn/a[ G ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll
YpXd5;' ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese
-?:8s v*X ActiveDocument.Styles("QLNU表格首行").NoProofing = True
0^Vw^]
w DoEvents
AzF*4x qTRP2rH,L& '图片标题
tmoCy0qWz ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
rPBsr<k#5 ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle"
SmD#hE[ ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False
rir,|y, With ActiveDocument.Styles("QLNU图片标题").Font
E2dS@!]V .NameFarEast = "楷体"
v ;5-1 .NameAscii = "Times New Roman"
pfIK9>i .Name = "楷体"
t#_6
GL .Size = 10.5
d }fd^x/ .Bold = True
A'7Y{oPHX .Underline = wdUnderlineNone
t( V 2 .Italic = wdUndefined
Gey-8 .Subscript = wdUndefined
9eq)WI/ .Superscript = wdUndefined
PX_9i@ZG .Outline = False
j^8HTa0Cy| .Shadow = False
h*D -Vo .Color = wdColorAutomatic
-zMvpe-am& End With
sk<S`J,M/_ With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat
l3u+ fE,;_ .LineSpacingRule = wdLineSpaceSingle
"%+||IyW .Alignment = wdAlignParagraphCenter
=WI3#<vDG X
Uh&an$ .KeepWithNext = wdUndefined
":
BZZ\! .KeepTogether = True
Oi& 9FS .OutlineLevel = wdOutlineLevelBodyText
X]2Ib '( .sQV0jF { .LeftIndent = CentimetersToPoints(0)
U MBeY[ ? .RightIndent = CentimetersToPoints(0)
Z:,\FB_U .FirstLineIndent = CentimetersToPoints(0)
'YG P42# dc 4XX5Z .CharacterUnitLeftIndent = 0
U&:-Vf~& .CharacterUnitRightIndent = 0
{+cx} ` .CharacterUnitFirstLineIndent = 0
Qj1%'wWG >T*BEikC .LineUnitBefore = 0
~,} ;FI .LineUnitAfter = 0
0PFC %x End With
1|-C(UW> ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False
Qi dI ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll
T"3LO[j+ ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese
q GR1$\] ActiveDocument.Styles("QLNU图片标题").NoProofing = True
5wh(Qdib DoEvents
0
%,W5w 04=RoYMM '目录项
8 7 B$ ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle")
'_ Pb\
jK ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle"
*oIIcE4g7 ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False
e 2N F. With ActiveDocument.Styles("QLNU目录项").Font
)'g4Ty .NameFarEast = "黑体"
*y|w9 r p .NameAscii = "Times New Roman"
]AM*9 ! .NameOther = "Times New Roman"
~N| aCi-X .Name = "黑体"
ZVJ6 {DS/ .Size = 10.5
ro
AHkI .Bold = False
NX(
IX6^y .Italic = wdUndefined
g8&& W_BI .Underline = wdUnderlineNone
*^7^g!=z2 .Color = wdColorAutomatic
*c/| / .Superscript = wdUndefined
,wg (}y' .Subscript = wdUndefined
R\n@q_!`X End With
}j1;0 kb? With ActiveDocument.Styles("QLNU目录项").ParagraphFormat
>
2/j
6tP!( .LineSpacingRule = wdLineSpaceSingle
<3tf(?*,k] .Alignment = wdAlignParagraphLeft
i$3#/*Y7_L .Wp(@l'Hd .WidowControl = False
fj( WH L .KeepWithNext = False
}*%=C!m4R! .KeepTogether = False
s0vcGh#w .PageBreakBefore = False
2Hx*kh2 .NoLineNumber = False
k5tyOk .OutlineLevel = wdOutlineLevelBodyText
DwFvM0O6\ s"nntC .LeftIndent = CentimetersToPoints(0)
G@~e :v) .RightIndent = CentimetersToPoints(0)
5N6R%2,A .FirstLineIndent = CentimetersToPoints(0)
s nx we d^$cx(2$D .CharacterUnitLeftIndent = 0
g(s}R ? .CharacterUnitRightIndent = 0
WdC7C K .CharacterUnitFirstLineIndent = 0
sA: /!9 +/n]9l]#h .LineUnitBefore = 0
;sf'"UnL .LineUnitAfter = 0
tRc 3<> End With
KYKF$@
<G ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False
W^ask[46R ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll
bOrE8
6v: ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot
X"g, QqDD ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese
XAF]B,h= ActiveDocument.Styles("QLNU目录项").NoProofing = True
R6>*n!*D@ DoEvents
y |*4XF<b [a$1{[|) '参考文献
X 2| Z! ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle")
9" 1=um= ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle"
uQW[2f ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False
oz:J.<j24Z With ActiveDocument.Styles("QLNU参考文献").Font
.3Smqwm=Y .NameFarEast = "宋体"
<?8cVLW} O .NameAscii = "Times New Roman"
Gv 8Z .NameOther = "Times New Roman"
C'l\4ij)7 .Name = "Times New Roman"
{[NQD3=+F .Size = 12
F$JA
IL{W .Bold = False
&.z-itiV .Italic = wdUndefined
OEbZs-: .Subscript = wdUndefined
v [x 5 @$ .Superscript = wdUndefined
h<?I?ZR0$ .Underline = wdUnderlineNone
n31nORx50 .UnderlineColor = wdColorAutomatic
Ue,eEer .Color = wdColorAutomatic
_h=h43'3 .Engrave = False
X,o ]tgg= End With
5HL>2
e[ With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat
GO ][`zZJ] 2 y8FP# .LineSpacingRule = wdLineSpaceExactly
{ /?{UbU .LineSpacing = 16
F/A)2 H_ .Alignment = wdAlignParagraphLeft
G+C{_o#3 .WidowControl = False
T} XJFV .KeepWithNext = False
4U)%JK.ta .KeepTogether = False
^dxy%*Z/ .PageBreakBefore = False
.g}Y!
l .OutlineLevel = wdOutlineLevelBodyText
F3Vvqt*2 j `3IizN2 .LeftIndent = CentimetersToPoints(0)
P iR`4Tu .RightIndent = CentimetersToPoints(0)
O f-gG~ .FirstLineIndent = CentimetersToPoints(0)
@N> rOA p{r{}iYI .CharacterUnitLeftIndent = 0
^( C,LVP< .CharacterUnitRightIndent = 0
(lYC2i_b# .CharacterUnitFirstLineIndent = -2
ko!aX;K
ji ,`? .LineUnitBefore = 0
ao2o!-?!t .LineUnitAfter = 0
A"+t[0$. .SpaceBefore = 0
YWi Y[ .SpaceAfter = 0
G8^b9xoA+. QiRx2Z*\ End With
\4 t;{_ ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False
X88I|Z'HIh ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll
[ CU8%%7 ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS
pAN$
c " ActiveDocument.Styles("QLNU参考文献").NoProofing = True
Cd p_niF ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese
ih:%U DoEvents
/
dX,]OFm 5=8_Le '
+'` ^ N ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle")
.fhfO @ ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle"
l>HB 0o ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False
#LwDs,J :
With ActiveDocument.Styles("QLNU论文题目").Font
u |$GOSD .NameFarEast = "黑体"
=PL y^% .NameAscii = "Arial Black"
&\/}.rF .NameOther = "Arial Black"
\4*i;a.kU .Name = "Arial Black"
a,M/i&.e` .Size = 16
(@\0P H0 .Bold = False
]Qx-f*
D6 .Italic = wdUndefined
Xa>c ]j .Superscript = wdUndefined
F>@z&a}( .Subscript = wdUndefined
NH 1|_2 .Underline = wdUnderlineNone
X)9|ZF2` .UnderlineColor = wdColorAutomatic
4HXNu, T' .Color = wdColorAutomatic
)s 1
Ei 9J 4=* ml}RP End With
q> #P | With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat
Uf[Gs/!NV .LineSpacingRule = wdLineSpaceSingle
^'sOWIzeiY .Alignment = wdAlignParagraphCenter
_ 1$+S0G; .WidowControl = True
;]/cCi .KeepWithNext = True
)@.ODW;` .KeepTogether = True
J/ vcP .PageBreakBefore = True
<lPHeO<^] .NoLineNumber = False
:KRe==/ .OutlineLevel = wdOutlineLevelBodyText
tjm@+xs yaX%<KBa\ .LeftIndent = CentimetersToPoints(0)
Xd~li fF .RightIndent = CentimetersToPoints(0)
DshRH>7s8 .FirstLineIndent = CentimetersToPoints(0)
)[t3-' @(tuE .CharacterUnitLeftIndent = 0
FEA/}*2F .CharacterUnitRightIndent = 0
i2Gh!5]f .CharacterUnitFirstLineIndent = 0
3URrK[%x` +w@/$datI .LineUnitBefore = 1
U.W Mu% .LineUnitAfter = 1
O} lqY?0* etP`q:6^c .BaseLineAlignment = wdBaselineAlignAuto
n^epC>a" b End With
0R,Y [).U ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False
$:D hK ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll
KiNluGNt ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS
}
/Iw]!lK2 ActiveDocument.Styles("QLNU论文题目").NoProofing = True
<jVk}gi)Jp ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese
VK4" ActiveDocument.Styles("QLNU论文题目").NoProofing = True
3_ =:^Z DoEvents
P(zquKm = OA7$z[ '中文摘要
,76n
DXy` ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle")
iF+50d ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle"
N _.`5I;e ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False
@
|~D?&<\ With ActiveDocument.Styles("QLNU中文摘要").Font
r3Ih]|FK# .NameFarEast = "宋体"
|qibO \_ .NameAscii = "Times New Roman"
GlXzH1wZ .NameOther = "Times New Roman"
{y:+rh&
.Name = "Times New Roman"
MS%h`Ypo .Size = 12
yucbEDO. .Bold = wdUndefined
UFa 00t^5 .Superscript = wdUndefined
'D
H_ih Z .Subscript = wdUndefined
BQ~&gy{ .Italic = wdUndefined
!un_JZD .Underline = wdUnderlineNone
gi\UNT9x .UnderlineColor = wdColorAutomatic
FC YZ9L5uF .Color = wdColorAutomatic
j%*<W> O End With
`&/ zOMp With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat
l)1ySX&BU .LineSpacingRule = wdLineSpaceExactly
~x +24/qT .LineSpacing = 20
,rQPs .Alignment = wdAlignParagraphLeft
@ j4~`~8 Zxv{qbF .WidowControl = False
9n".Q-V;k .KeepWithNext = False
B;L^!sLP
.KeepTogether = True
h"Q&E'0d .PageBreakBefore = False
Aa%ks+1 .NoLineNumber = False
H*dQT y, .OutlineLevel = wdOutlineLevelBodyText
SRk-3 : fbW#6:Y .LeftIndent = CentimetersToPoints(0)
`qbsDfq@ .RightIndent = CentimetersToPoints(0)
#+P)X_i` .FirstLineIndent = CentimetersToPoints(0)
&T-udgR9 W
3i X;-Z .CharacterUnitLeftIndent = 0
( e(<4-& .CharacterUnitRightIndent = 0
4\8k~ # .CharacterUnitFirstLineIndent = 2
I
An/ ?3a~ .LineUnitBefore = 0
Yr+ghl/ V .LineUnitAfter = 0
K <Y-/t !1?Nc}T0Q& End With
9 D mQ ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False
.aR$ou,7 ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll
nr{ }yQ u ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS
V6
,59 ActiveDocument.Styles("QLNU中文摘要").NoProofing = True
B3Esfk ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese
F (:] lM| ActiveDocument.Styles("QLNU中文摘要").NoProofing = True
u:4?$%r B ActiveDocument.Styles("QLNU中文摘要").Frame.Delete
wsfn>w?!V DoEvents
p s?B;P j,JGs[A ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
^ S`c-N ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle"
V|dKKb[Lve ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False
We#O' m With ActiveDocument.Styles("QLNU英文标题").Font
=
P {]3K .NameFarEast = "黑体"
)8Sm}aC .NameAscii = "Arial Narrow"
W?auY_+P .Name = "Arial Narrow"
o//PlG
~ .Size = 16
{R. @EFkZ .Bold = True
FY]z *= .Bold = wdUndefined
[P W*|U .Superscript = wdUndefined
9Fxz9_ i .Subscript = wdUndefined
%"RgW\s[R .Italic = wdUndefined
"7a;Ap q* ! .k .Underline = wdUnderlineNone
*
Y
Y:JLe .UnderlineColor = wdColorAutomatic
Q1@V?`rkS{ .StrikeThrough = False
[mk !]
r .DoubleStrikeThrough = False
r `/tb^ End With
} u..m$h With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat
G ;pxB,4s5 .LineSpacingRule = wdLineSpaceSingle
E%+1^
L .Alignment = wdAlignParagraphCenter
7":0CU% % .WidowControl = True
X<" W@ .KeepWithNext = False
-T-h~5 .KeepTogether = False
c=HL
6v< .PageBreakBefore = False
;zvg] % .NoLineNumber = False
)<jT;cT!& .FirstLineIndent = CentimetersToPoints(0)
=2[cpF] .OutlineLevel = wdOutlineLevelBodyText
u7<s_M3%N +hS}msu' .LeftIndent = CentimetersToPoints(0)
[ &FWR .RightIndent = CentimetersToPoints(0)
E>?T<!r~j .FirstLineIndent = CentimetersToPoints(0)
<)(S To N;\by<snN .CharacterUnitLeftIndent = 0
)zVD!eG_9 .CharacterUnitRightIndent = 0
C_Z[ul .CharacterUnitFirstLineIndent = 0
f M )R O7 8>K2[cPD .LineUnitBefore = 1
i
'9 .LineUnitAfter = 1
j^Z3 l*yJU3PW End With
mYzq[p_|j ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False
F/w!4,'<?5 ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll
r0\cgCn ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS
G%K<YyAP ActiveDocument.Styles("QLNU英文标题").NoProofing = True
'
rdg ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese
nPUq+cXy]C ActiveDocument.Styles("QLNU英文标题").NoProofing = True
&wZ:$ lK#o ActiveDocument.Styles("QLNU英文标题").Frame.Delete
Lw.N3!e
[ DoEvents
5 lC "10 R :v` \ ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle")
<%Re!y@OL ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle"
)f0t
"lk ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False
< F Cr
L With ActiveDocument.Styles("QLNU英文摘要").Font
Si]8*> }-B .NameFarEast = "宋体"
aKC3T- .NameAscii = "Arial"
;dYpdy .NameOther = "Arial"
a 4! AvG .Name = "Arial"
S\jN:o#b .Size = 12
n2H2 G_-L[ .Bold = wdUndefined
x3my8'h@ .Italic = wdUndefined
=X2
EF .Superscript = wdUndefined
+x0-hRD .Subscript = wdUndefined
q-}J0vu\K End With
U vOB`Vj 8ESBui3; With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat
,*V{g pC7 @cF
aYI .LineSpacingRule = wdLineSpaceExactly
g=:C/>g .LineSpacing = 20
|&TRN1 I
Xf@YV .Alignment = wdAlignParagraphJustify
N|h}'p @T r8.4 .WidowControl = False
w_I}FPT<(: .KeepWithNext = False
d&0^AvM@ .KeepTogether = False
kqA`d .PageBreakBefore = False
"sRR:wzQu .NoLineNumber = False
HtIM 8z#/ ( U V8M\ .OutlineLevel = wdOutlineLevelBodyText
#.%;U' #O 4>Q 6!" .LeftIndent = CentimetersToPoints(0)
8<uKzb(O: .RightIndent = CentimetersToPoints(0)
@hWt.qO
3s .FirstLineIndent = CentimetersToPoints(0)
G?d28p',. dYJW`Q;j.| .CharacterUnitLeftIndent = 0
B;':Eaa@ .CharacterUnitRightIndent = 0
*Ta*0Fr=9| .CharacterUnitFirstLineIndent = 2
ZuF-$]oL& ,.f GZ4 .LineUnitBefore = 0
kf$0}T ` .LineUnitAfter = 1
gKS0!U O.*, e End With
J%_
:A" ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False
W 6~B~L ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll
*/RtN`dh ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS
@&d/}Mx"t ActiveDocument.Styles("QLNU英文摘要").NoProofing = False
fN>o465I6 DoEvents
:nw4K(:f pFD L5 Options.Pagination = True
H 6*d#! Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....."
W!z=AL{ DoEvents
F,`y_71< ActiveDocument.Repaginate
i3>7R'q> nlK"2/W End Sub
o$YL\ <qp Zcv1%hI O- &>D c
