Dim bContinue As Boolean
l iY/BkpH (h wzA
*(c Dim regEX As New RegExp
Sqp91[, Dim paraCounter As Long '全局段落计数，仅在主程序中可读写，其它过程函数应为只读
iYLg[J" }!K
# Dim LastTitle0String As String, LastTitle0No As Long
eYv^cbO@: Dim LastTitle1String As String, LastTitle1No As Long
;ab[YMkH Dim LastTitle2String As String, LastTitle2No As Long
!S<p"
Dim LastTitle3String As String, LastTitle3No As Long
&5HI Dim LastTitle4String As String, LastTitle4No As Long
OkRb3} Dim LastTitle5String As String, LastTitle5No As Long
glch 06 Dim LastTabelString As String, LastTableNo As Long
QHv]7&^rlj Dim LastFigureString As String, LastFigureNo As Long
EZWWv L I]HYqI Dim strSeperator As String
Z%?>H iy'o ^X#)'\T Sub ConvertWidth(fTEXT As String, rText As String)
:30daK o
Selection.Find.ClearFormatting
W(q K ?"s2 Selection.Find.Replacement.ClearFormatting
;R+Gf!1 Selection.Find.Wrap = wdFindContinue
I_B%F#X) Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText
):Fg {7b]n DoEvents
_Q #[IH9 Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True
m
<n
+1 End Sub
(Tq)!h35B
]f Y:+Ru Sub ClearDomain()
hzAuj0-A With Selection.Find
"'DPb%o .ClearFormatting
&v]xYb)+< .Replacement.ClearFormatting
-n@,r%`UK .Wrap = wdFindContinue
pp|$y\ZzB Me.txtStatus.Text = "清除所有域代码"
p_xJ KQS DoEvents
=&g:dX|q8 .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False
c:=HN-*vQ End With
g #P]72TQ End Sub
fbI5!i#lz iw.F8[}) Private Sub cmdCheck_Click()
"U9e) a0v bContinue = True
;- i)}< Dim NoSeries1(1 To 16) As String
#: EhGlq8 Dim NoSeries2(1 To 16) As String
}Q[U4G Dim NoSeries5(1 To 16) As String
h/5V~ :) Dim NoSeriesRM(1 To 16) As String
k Jz^\
Re Dim paraTotal As Long, ParaText As String
c
CjN8< Dim ttString As String, ttNo As String
^d>m `*px Fp B3SJ6 B Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long
Zq{gp1WC qW3XA$g|j' Me.txtStatus.Visible = True
+v%+E{F$+ Me.lbParaType.Visible = True
:tENn
r.9v Me.cmdCheck.Enabled = False
E.C=VfBW Zp/P/97p <OiH%:G/1 nVpDjUpN )l*3^kwL{U Dim ParaType As String, rText As String
]@_|A, ] M\ wCZG Selection.WholeStory
HZ(giAyjq Selection.NoProofing = True
FS7D L]YJ#5 tm1 = Now
bz:En'2>F Wu,=jL3?$A ActiveWindow.View.Type = wdNormalView
% M_F/ O 9a:(a b' NoSeries1(1) = "一"
&gh>'z;`r NoSeries1(2) = "二"
An]Vx<PD NoSeries1(3) = "三"
jz3f{~ NoSeries1(4) = "四"
U7LCd+Z 5X NoSeries1(5) = "五"
UnDX .W*2 NoSeries1(6) = "六"
pl}W|k W} NoSeries1(7) = "七"
"Ml#,kU<T NoSeries1(8) = "八"
e9\_H=t+ NoSeries1(9) = "九"
0}Kyj "-3 NoSeries1(10) = "十"
pw))9~ XU NoSeries1(11) = "十一"
a{e1g93} NoSeries1(12) = "十二"
>8NUji2I NoSeries1(13) = "十三"
VaonG]Ues NoSeries1(14) = "十四"
1<
b~=" NoSeries1(15) = "十五"
v?d`fd
NoSeries1(16) = "十六"
<'T DOYb HII@Ed f? NoSeries2(1) = "㈠"
4[Ko| NoSeries2(2) = "㈡"
:MYLap&L& NoSeries2(3) = "㈢"
6Po {tKU NoSeries2(4) = "㈣"
#.FhN x NoSeries2(5) = "㈤"
~- aUw}U NoSeries2(6) = "㈥"
{#t7l V'4 NoSeries2(7) = "㈦"
&/Gf@[ NoSeries2(8) = "㈧"
uKY1AC__ NoSeries2(9) = "㈨"
/`qQWB5b NoSeries2(10) = "㈩"
\1u^ ?cBd IM,d6lN6s NoSeries5(1) = "①"
"MPS&OK NoSeries5(1) = "②"
Ut%{pc 7^F NoSeries5(3) = "③"
nr>Y j ?la NoSeries5(4) = "④"
8&hxU@T~ NoSeries5(5) = "⑤"
x[&) \[t NoSeries5(6) = "⑥"
^Ux.s Q NoSeries5(7) = "⑦"
aEEb1Y NoSeries5(8) = "⑧"
4Qi-zNNB NoSeries5(9) = "⑨"
njNqUo> NoSeries5(10) = "⑩"
;5|d[r}k3 F.Bij8\ !;t6\Z8& NoSeriesRM(1) = "I"
h 1Y^+A_ NoSeriesRM(2) = "II"
(Ms0pm-#t NoSeriesRM(3) = "III"
$;";i:H` NoSeriesRM(4) = "IV"
_Kli~$c& M NoSeriesRM(5) = "V"
?nJv f NoSeriesRM(6) = "VI"
N+]HJ`K NoSeriesRM(7) = "VII"
Eb'M< ZY NoSeriesRM(8) = "VIII"
8XCT[X NoSeriesRM(9) = "IX"
2L.6!THG NoSeriesRM(10) = "X"
5HB* NoSeriesRM(11) = "XI"
uxX 3wY;M NoSeriesRM(12) = "XII"
X~*/ ~f NoSeriesRM(13) = "XIII"
PTQN.[bBh NoSeriesRM(14) = "XIV"
>kuu\ NoSeriesRM(15) = "XV"
zGL.+ @ NoSeriesRM(16) = "XVI"
DLq'V .M: ?: 5/4YC
i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo)
Eg4&D4TG p {rF9[ S"h If i = vbNo Then
f DXTedrG/ Exit Sub
Rto/-I0l End If
1vh[sKv9% A/ Sj>Y1j If Me.chkSuper.Value Then
M?m@o1\;W Me.txtStatus.Text = "检查修改所有的上标格式"
$|@-u0sv 1Fs a}UK CheckSuperScript
qus %?B{b} 1 yS: ` End If
ErQGVE;zk ' v(b^x<ZS If Me.chkStyle.Value Then
vgn,ZcX Me.txtStatus.Text = "设置样式，请稍候...."
x9]vhR/av DoEvents
A0ZU #"'/ CeateOrModifyStyle
dM -<aq End If
%xX b5aY X=jD^"- f(EO|d^u HbCcROl( ClearDomain
ey:%Zy
[~ i\>?b)a> ~A(^< h5n@SE>G If Me.chkLIST.Value Then
'~{kR=+ Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式"
# ]*d8
I,/E.cRV< ConvertListToOrdinary
8ys wi[ End If
+wGvY r
i"^ y y+ !%D;H ~mQ Dim pType As String, trimpTEXT As String
M>*xbBl If Me.chkNum.Value = True Then
R_80J=%0 Me.txtStatus.Text = "转换全角数字形式为半角"
6,l5Q
ConvertWidth "１", "1"
$}H,g}@0 DoEvents
nbv}Q-C ConvertWidth "２", "2"
*]Eyf") DoEvents
(V}?y:) ConvertWidth "３", "3"
7 $dibTER DoEvents
JGYJ;j{E] ConvertWidth "４", "4"
nx!+: P , DoEvents
!Ks<%;
rb ConvertWidth "５", "5"
I!Fd~g9I4 DoEvents
GG4FS ConvertWidth "６", "6"
Gfep m$*% DoEvents
B;<zA' 1 ConvertWidth "７", "7"
IR8qFWDZ DoEvents
VTO92E o ConvertWidth "８", "8"
<`BDN DoEvents
/RF&@NJE5 ConvertWidth "９", "9"
R,l*@3Q DoEvents
|/u ,6` ConvertWidth "０", "0"
k]c$SzJ> / DoEvents
}'p*C$ ConvertWidth "ａ", "a"
Sq`Zuu9t DoEvents
pe!"!xJE ConvertWidth "ｂ", "b"
0Y!~xyg/ DoEvents
AgOti]`aR ConvertWidth "ｃ", "c"
7Xh
;dJAF3 DoEvents
,H/BW`rL]# ConvertWidth "ｄ", "d"
{P ==6/<2o DoEvents
Gl4f:` ConvertWidth "ｅ", "e"
$%1oZ{&M DoEvents
=Nz;R2{@ ConvertWidth "ｆ", "f"
K;R!>p}t DoEvents
rwpH9\GE ConvertWidth "ｇ", "g"
a!&<jM DoEvents
z|<?=c2P ConvertWidth "ｈ", "h"
TOx@Y$_9Q8 DoEvents
BtF7P}:MGf ConvertWidth "ｉ", "i"
bW GMgC DoEvents
[ mo9? ConvertWidth "ｊ", "j"
=>e>
r~cW DoEvents
mW3 IR3 b ConvertWidth "ｋ", "k"
Rz<'& Z>; DoEvents
\mFgjP z ConvertWidth "ｌ", "l"
p3Ih K> DoEvents
ZQsVSz( 1 ConvertWidth "ｍ", "m"
,C^u8Z|T DoEvents
Q*9Y.W. 8 ConvertWidth "ｎ", "n"
@f#6N u ConvertWidth "ｏ", "o"
g
T0@pxl ConvertWidth "ｐ", "p"
$L72%T ConvertWidth "ｑ", "q"
fTG VG ConvertWidth "ｒ", "r"
@ n$/2y_. ConvertWidth "ｓ", "s"
Lo
O"d'{ ConvertWidth "ｔ", "t"
?0d#O_la
3 ConvertWidth "ｕ", "u"
8&y#LeM1TT ConvertWidth "ｖ", "v"
<,t6A?YoMP ConvertWidth "ｗ", "w"
k P=~L=cK ConvertWidth "ｘ", "x"
p-6T,' ) ConvertWidth "ｙ", "y"
QOv@rP/ ConvertWidth "ｚ", "z"
{afIr1j/m ConvertWidth "Ａ", "A"
G4EuW *~ ConvertWidth "Ｂ", "B"
e' 3y^Vg ConvertWidth "Ｃ", "C"
K{iC'^wP ConvertWidth "Ｄ", "D"
yh+.Yn=+ ConvertWidth "Ｅ", "E"
R E9 `T ConvertWidth "Ｆ", "F"
QRdh2YH` ConvertWidth "Ｇ", "G"
,UxAHCR~9 ConvertWidth "Ｈ", "H"
}n k [WW ConvertWidth "Ｉ", "I"
?V =#x.9 ConvertWidth "Ｊ", "J"
PSU}fo ConvertWidth "Ｋ", "K"
}4q1"iMlO ConvertWidth "Ｌ", "L"
N3\vd_D
( ConvertWidth "Ｍ", "M"
lG`%4}1 ConvertWidth "Ｎ", "N"
Md*.q^: ConvertWidth "Ｏ", "O"
2GR v%:rZ ConvertWidth "Ｐ", "P"
v+DXs!O{ ConvertWidth "Ｑ", "Q"
NqN}] nu6 ConvertWidth "Ｒ", "R"
(J.U{N v ConvertWidth "Ｓ", "S"
!)EYM&:Y ConvertWidth "Ｔ", "T"
kq> I?wg ConvertWidth "Ｕ", "U"
&i aS3x ConvertWidth "Ｖ", "V"
3#{Al[ jq ConvertWidth "Ｗ", "W"
*dx E
( dP ConvertWidth "Ｘ", "X"
cJ'OqV F ConvertWidth "Ｙ", "Y"
V?n=yg ConvertWidth "Ｚ", "Z"
0>ce~KU ConvertWidth "^l", "^p"
@lCyH(c% ConvertWidth "（", "("
]4,eCT ConvertWidth "）", ")"
ac o w }k @S mO8 End If
4
udW 6U $Oaxet PH With ActiveDocument
OyIIJ!( Dim tbl As Table
$A
dBX}{ For Each tbl In .Tables
p<\7" SB= tbl.Rows.Alignment = wdAlignRowCenter
H
;)B5C tbl.Range.Font.NameFarEast = "楷体"
+EH" A tbl.Range.Font.NameAscii = "Times New Roman"
rs0Wy
tbl.Range.Font.Size = 10.5
ZtX
CPA! Next
OgCz[QXr_ Set tbl = Nothing
HDj260a End With
^(Wu$\S A /PE L[Os V=H :`n3k With ActiveDocument
CTQJ =R" U<6+2y P For i = 1 To .TablesOfContents.Count
B| r' .TablesOfContents(i).Delete
!WTL:dk Next
)<
p
~
^ ]?ju L R|]n;*y z6 .^a-sU5 paraTotal = .Paragraphs.Count
D/Py?<n -B paraCounter = 1
#l!n BY ~ 5Rae?* XH LastTitle0No = 0
kTm}VTr
1 LastTitle1No = 0
!9_'_8 LastTitle2No = 0
a" L9jrVrw LastTitle3No = 0
yKC1h`2
LastTitle4No = 0
uP^u:'VjbH LastTableNo = 0
9`7>" [=P LastFigureNo = 0
9<5S!?JL pL2{zW`FDh Dim Sec As Long
nPUD6<bF _>4) q = Sec = InputBox("正文从第一节开始？", "节设置", 6)
I
M G^L If Sec = 0 Then
^
`bMF
sP Exit Sub
c6VyF=2q End If
<sls1, D"&Sd@a{ k = 0
">vi= Tr Do While (paraCounter < paraTotal) And bContinue
k\-h-0[| k = k + 1
A5 Lzd If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then
OU<v9`< Exit Do
YRU95K [ End If
L.: 8qY paraCounter = paraCounter + 1
ipS:)4QFxJ If k Mod 20 = 0 Then
-[[( Z x Me.lbCounter.Caption = paraCounter
?$VkMu$2k DoEvents
`pqT iV End If
m"wP]OQH*+ Loop
#g<6ISuf r'MA$PiS' &"^U=f@v Do While (paraCounter < paraTotal) And bContinue
P[tYu: _IWLC{%V ParaText = Trim(.Paragraphs(paraCounter).Range.Text)
b8glZb*$ ShapeHeight = 0
^95njE`>t` ShapeWidth = 0
#tA/ )Jvi eU8p;ajW!L CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth
l_Zx'm P+DIo7VTX Select Case ParaType
#Sg"/Cc Case "【】表格内容"
XJ7pX1nf .Paragraphs(paraCounter).Style = "QLNU表格内容"
;*WG9Y(W Case "章"
(QQkXlJ LastTitle0No = LastTitle0No + 1
I8uFMP '新一章开始，复位其下属标题编号
rl]K :8* LastTitle1No = 0
w YQEm LastTitle2No = 0
M[(pLYq: LastTitle3No = 0
od^ylg>K LastTitle4No = 0
<T]ey #@F.wV 0 k = Val(ttNo)
zpZfsn! If k = 0 Then '非数字编号章节
0B:
v0 R If ttNo <> NoSeries1(LastTitle0No) Then
0e1-ZP CDj rText = "第" & NoSeries1(LastTitle0No) & ttString
eg24.W9c Me.ErrMsg.AddItem "章节编号错误：" & ParaText
IRTD(7"oyp End If
e9>~mtx Else
MfO: BX@$ If Val(ttNo) <> LastTitle0No Then
IL`=r6 \ rText = "第" & LastTitle0No & ttString
gj
I>tz} Me.ErrMsg.AddItem "章节编号错误：" & ParaText
/O~Np|~ v End If
*q+X ?3 W:K '2 j End If
me-
uPm X!m
lC51 '章段落设置
lX"6m}~D '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅
*D.Ajd.G .Paragraphs(paraCounter).Style = "QLNU章节"
J X{_,2*$ .Paragraphs(paraCounter).Range.Select
a4pe wg' Selection.EndKey unit:=wdLine
9dWz3b1[
] tc = Replace(rText, vbCr, "")
YLuf2ja}X Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False
UqNUX?( Case "一级标题"
'c# }^@G LastTitle1No = LastTitle1No + 1
}b/P\1#z '新一级标题开始，复位其下属标题编号
M{4XNE]m LastTitle2No = 0
:aH5=@[!y LastTitle3No = 0
mv^X{T LastTitle4No = 0
}Eh &' tHK>w%|\R If ttNo <> NoSeries1(LastTitle1No) Then
l2I%$|)d rText = NoSeries1(LastTitle1No) & "、" & ttString
]J@-,FFC Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText
hw(\3h( ) End If
'.&Y)A6! K~B x,
ZF+vE '一级标题段落设置 格式：一、标题内容
Fu 5c_"! .Paragraphs(paraCounter).Range.Text = rText
P>(FCX .Paragraphs(paraCounter).Style = "QLNU一级标题"
m"QDc[^Ge .Paragraphs(paraCounter).Range.Select
%Aqf=R_^ Selection.EndKey unit:=wdLine
$lq.*UQ;0 tc = Replace(rText, vbCr, "")
(>NZYPw^3 Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False
RGrQ>'RL Case "二级标题"
g/VV 2^, LastTitle2No = LastTitle2No + 1
ck\W'Y*Q7 '新二级标题开始，复位其下属标题编号
/aIGq/;Y+a LastTitle3No = 0
m.< u !MI LastTitle4No = 0
[bRE=Zr$Ry S a
kew If ttNo <> NoSeries1(LastTitle2No) Then
4u+0 )< rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString
~H1< 8py\J ErrMsg.AddItem "二级标题编号错误：" & ParaText
MzD
osr3: End If
216$,4i );kD0FO1| '二级标题段落设置 格式：(一)、标题内容
3#Bb4\_v .Paragraphs(paraCounter).Range.Text = rText
y
G3aF( .Paragraphs(paraCounter).Style = "QLNU二级标题"
Keem \/ dqs ~K7O^E .Paragraphs(paraCounter).Range.Select
v*%52_ Selection.EndKey unit:=wdLine
V1~@ tc = Replace(rText, vbCr, "")
!F.h+&^D; Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 2 ", PreserveFormatting:=False
W/AF :2K@{~ 8r Case "三级标题"
*if
z@8C } LastTitle3No = LastTitle3No + 1
Q<gUu^rq '新三级标题开始，复位其下属标题编号
"c|Rpzs[ LastTitle4No = 0
5~j#Z (}u )]s<Czm% If Val(ttNo) <> LastTitle3No Then
%"eR0Lj+zq rText = LastTitle3No & ". " & ttString
K6sXw[V C[ Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText
YV!hlYOBi [: cvy[}v@ End If
um}q @ BU '三级标题段落设置 格式：1. 标题内容
0[e!/*_V .Paragraphs(paraCounter).Range.Text = rText
Rc
&m4|cw7 .Paragraphs(paraCounter).Style = "QLNU三级标题"
LD1&8kJ*l .Paragraphs(paraCounter).Range.Select
RB|i<`Z Selection.EndKey unit:=wdLine
tym:C7v%~ tc = Replace(rText, vbCr, "")
9\c]I0)3p Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 3 ", PreserveFormatting:=False
-$Df nAh Case "四级标题"
uY WD.]X;[ LastTitle4No = LastTitle4No + 1
GEA1y^b6" S_/S2(V" If Val(ttNo) <> LastTitle4No Then
D}LM(s3li7 rText = "(" & LastTitle4No & "). " & ttString
WgqSw %:$H ErrMsg.AddItem "四级标题编号错误：" & ParaText
y.c6r> } sRA2O/yKCE End If
P^Owg r=Y '四级标题段落设置 格式：(1). 标题内容
_+'!l'` .Paragraphs(paraCounter).Range.Text = rText
9)NKI02M| .Paragraphs(paraCounter).Style = "QLNU四级标题"
&lLfV a-l .Paragraphs(paraCounter).Range.Select
L!lmy&1 Selection.EndKey unit:=wdLine
8-B7_GoJ+B tc = Replace(rText, vbCr, "")
=$fz</S=J Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 4 ", PreserveFormatting:=False
tH44\~ .7
0 Case "表格标题"
kS8?N`2}LV LastTableNo = LastTableNo + 1
;RRw-|/Wm %1.F;-GdsW If ttNo <> CStr(LastTableNo) Then
ir/uHN@ rText = "表" & LastTableNo & ". " & ttString
@uldD"MJ<] ErrMsg.AddItem "表格编号错误：" & ParaText
{(!JYz~P m fN'+`r End If
vg 1J N"S[ w.a9}GC '表格名称段落设置 格式：表1. 表格名称
S#?2E8 .Paragraphs(paraCounter).Style = "QLNU表格标题"
cw
{TS xe = Replace(rText, vbCr, "")
WFh.oe8
.Paragraphs(paraCounter).Range.Select
q\ ]X1N Selection.MoveEnd wdCharacter, -1 '选择范围包括行尾的换行符。
&i(Ip'r Selection.Range.Text = xe
W(R~K - Selection.EndKey
f!`? _ Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False
?- v WNv Uq$/Q7 Case "表格首行"
[&P F ;)i .Paragraphs(paraCounter).Style = "QLNU表格首行"
k M{8zpn Case "图片标题"
#[bL9R5NC LastFigureNo = LastFigureNo + 1
7XK0vKmW3 )38%E;T{X If ttNo <> CStr(LastFigureNo) Then
)N8bO I rText = "图" & LastFigureNo & ". " & ttString
D
2kmBZ3 ErrMsg.AddItem "表格编号错误：" & ParaText
UaF~[toX c|;n)as9(% End If
Z$ JJ0X '图片名称段落设置 格式：图1. 图名称
0B7G: X0 .Paragraphs(paraCounter).Range.Text = rText
>Vjn]V5y .Paragraphs(paraCounter).Style = "QLNU图片标题"
Z )M
"`2Ur .Paragraphs(paraCounter).Range.Select
4&sf{t I Selection.EndKey unit:=wdLine
6UuN
-7z!" xe = Replace(rText, vbCr, "")
5dI=;L >D Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False
J\Pb/9M/ Case "正文"
oDMPYkpTu '正文名称段落设置
XhHgXVVGG< .Paragraphs(paraCounter).Style = "QLNU正文"
OyF=G^w Case "文献条目"
YE~IO5 With .Paragraphs(paraCounter)
}o*A>le '.Range.Select
gTXpaB< 'Selection.ClearFormatting
T \uIXL?3 '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator 'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ”
Q(nTL
WW .Style = "QLNU参考文献"
1 o%#kf End With
e ,/]]E/o Case "图表注解"
e;"J,7@ With .Paragraphs(paraCounter)
K F_fz .Range.Font.NameFarEast = "楷体"
n@RmH>" .Range.Font.NameAscii = "Times New Roman"
/*T^7Y&
.Range.Font.Size = 9 '小5号字
YWl#!"- kpIn_Ea .Alignment = wdAlignParagraphCenter
i[IFD]Xy!j .LeftIndent = 0
?$ e]K/* .RightIndent = 0
-smN}*3[ .FirstLineIndent = 0
0Eb4wupo .LineSpacing = 12
EXCE^
Vw .LineSpacingRule = wdLineSpaceExactly
$jg[6`L$ .LineUnitAfter = 0
: LY. C<8 .LineUnitBefore = 0
w\o6G7 .OutlineLevel = wdOutlineLevelBodyText
qBX_v5pvVA .PageBreakBefore = False
$t):r@L .RightIndent = 0
2c 0;P
#ol .WordWrap = True
5MaN
{ *)l .LineUnitAfter = 0.5
)|xu5.F p%>sc End With
~ p? ArZb Case Else
t -iXY0%& '不作处理
;v@ G End Select
eTvWkpK+ gGL
}FNH '含有inlineshape的段落处理
Lz. khE< If ShapeHeight > 30 Then
'7sf)0\:<p .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle '对有图片的段落设置为单倍行距
!q\=e@j-i End If
|p&EP2?T {MUi K 5: If (ShapeWidth + ShapeHeight) > 150 Then
<v|"eq} .Paragraphs(paraCounter).Style = "QLNU图片段落"
,s #~00C| End If
eV |N@ ]EX6Y '段落计数器递
D
OKe. k paraCounter = paraCounter + 1
;rT'~?q Me.lbCounter.Caption = "当前检测段落：" & paraCounter
S > ~
f. Me.txtStatus.Text = ParaText
w Wb>V&3 DoEvents
P\7*q l` Loop
p|t" 4HQ End With
/=m A
VA >nghFm msg = ""
z/ 1$G" DJ, LQj For i = 0 To Me.ErrMsg.ListCount - 1
uI7n {4W*x msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i)
w5HIR/kP Next
sip4,>,E $:F+Nf
8
0w3c8s. n9+33^ PT Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg
.C%
28f H Me.cmdCheck.Enabled = True
Z
v@nK%#J Me.txtStatus.Visible = True
'ztOl`I5V Me.lbParaType.Visible = False
:snO*Zg
\FVfV`x bContinue = False
(SBhU:^h End Sub
yDafNH a V 'bI 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)
M,]|L c h Dim pTEXT As String
<giBL L! v74 5F Iy< pTEXT = ChKRange.Text
\~
D(ww |:1{B1sqA ParaType = "其它"
'[
{<a Eo TitleString = pTEXT
ukSv70Ev
TitleNo = "N/A"
N; g@ly o X/~uF 9a'< shpCounter = ChKRange.InlineShapes.Count
xQu|D>kv87 If shpCounter <> 0 Then
E nM MaxShpHeight = 0: TotalShpWidth = 0
y!# -[K: For i = 1 To shpCounter
@Dh2@2`> k = ChKRange.InlineShapes(i).Height
1D*=ZkA) l = ChKRange.InlineShapes(i).Width
eO!9;dJ If k > MaxShpHeight Then
uAn}qrqE9 MaxShpHeight = k
b5NVQ8Mq End If
53])@Mmus TotalShpWidth = TotalShpWidth + l
e3p| g] Next
1hG # If MaxShpHeight > 60 Or TotalShpWidth > 150 Then
F^u12R) Exit Sub
y@3p5o9lv- End If
|sZqqgZ- End If
x s{pGQ6Q rm[C{Pn '空行
7Z< ~{eD, If Len(pTEXT) <= 2 Then
l
^lb ^"o Exit Sub
:-1|dE)U End If
Y $=jAN XIdh9)]^} 0B`X056|"| '是否为表格中的文字
j]BRf A If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then
Y,}_LS$f ParaType = "表格内容"
Jl/w P k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber)
=u< :'\_ If k = 1 Then
&?@C^0&QV ParaType = "表格首行"
~#pATPW@( End If
b7
QE Exit Sub
j7~FR{: j End If
MET9 r T g g
/`{ '例外情况：脚注
;V}:0{p If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then
_ %nz-I ParaType = "脚注"
w 9dkJ o Exit Sub
`6U!\D End If
|\,OlX, `L'g<VK; '例外情况：尾注
M1 3HD/~O If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then
vF27+/2+R ParaType = "尾注"
yix[zfQt0 Exit Sub
\R#SoOd End If
)'djqpM. %k!CjW3 If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then
a`!Jq' ParaType = "页眉页脚"
= s&Rk~2b/ Exit Sub
sK}AS;: End If
U) J
5K !"L.g u-' gQn%RPMh With regEX
U Y',n, .Global = True
C-&ymJC| 'FErk~}/4s .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$"
ax&
?Z5%a If regEX.Test(pTEXT) Then
y}?|+/ dN ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3")
|b TitleString = regEX.Replace(pTEXT, "$3")
{X ! OK3e TitleNo = regEX.Replace(pTEXT, "$1")
ETp?R WXX ParaType = "章"
#a8kA"X Exit Sub
r]3-}:vU End If
VXeO }>2S EgjJywNhd2 .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$"
QUrPV[JQ If regEX.Test(pTEXT) Then
&`r/+B_W ParaType = "一级标题"
2*: q$ c regEX.Execute (pTEXT)
9kL,69d2 ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3")
Cr.YSW g)4 TitleString = regEX.Replace(pTEXT, "$3")
s <O$
Y TitleNo = regEX.Replace(pTEXT, "$1")
en<~_|J Exit Sub
IO%kXF.[ End If
8SGaS& :X0L6y)u '全角或半角括号中的数字
-YA,Stc- .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$"
2cMC ZuO If regEX.Test(pTEXT) Then
@aIgif+v ParaType = "二级标题"
]S6Gz/4aV+ regEX.Execute (pTEXT)
R f:.'/<^ ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5")
NAR6
q{c TitleString = regEX.Replace(pTEXT, "$5")
aFnel8 TitleNo = regEX.Replace(pTEXT, "$2")
AC,
RS 7 Exit Sub
(> al-vZ6A End If
`b?uQ\#-M FdU]!GO- X '阿拉伯数字 1. 2.
XiW1X6 .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$"
=oBpS=<7 If regEX.Test(pTEXT) Then
s4|\cY`b- ParaType = "三级标题"
;l$$!PJ regEX.Execute (pTEXT)
Un6R) MVT ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测
QN:v4,$d TitleString = regEX.Replace(pTEXT, "$3")
8u[_t.y4m TitleNo = regEX.Replace(pTEXT, "$1")
i>m%hbAk Exit Sub
kK? SG3 End If
}Hg G<.H>
idI w7hi4 '全角或半角括号中的阿拉伯数字
I|@+ O# .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$"
UL+Txc If regEX.Test(pTEXT) Then
s3 >a ParaType = "四级标题"
-#v~;Ci regEX.Execute (pTEXT)
H"A%mrb ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5")
6nx\|F TitleString = regEX.Replace(pTEXT, "$5")
zHJCXTM TitleNo = regEX.Replace(pTEXT, "$2")
=X$ ieXq| Exit Sub
={BD*= i End If
)^j_O^T5 um2 a#6u o '表格名称
( 80 m '.X .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$"
/ R# zu_i If regEX.Test(pTEXT) Then
ula-o)S ParaType = "表格标题"
Kj4/fB regEX.Execute (pTEXT)
7 U enr9)M ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3"))
\@<7 Vo, TitleString = Trim(regEX.Replace(pTEXT, "$3"))
~7] V^tG TitleNo = Trim(regEX.Replace(pTEXT, "$1"))
86ao{l6l C strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换
Z
vysLHj Exit Sub
9zp!lw~;+ End If
^m>4<~/ *6Wiq5M>. '图片名称
\-\>JPO~< .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$"
1h, iWHC If regEX.Test(pTEXT) Then
1dH|/9 ParaType = "图片标题"
&LLU@ | regEX.Execute (pTEXT)
&.)=>2 ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3")
= xI;D,@S TitleString = regEX.Replace(pTEXT, "$3")
&K^0PzWWof TitleNo = regEX.Replace(pTEXT, "$1")
<:S qMf Exit Sub
- x End If
fQ<sq0' e\ :#rP$LSYC '参考文献
v] m/$X2 .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})" '[数字]、
DHO]RRGV If regEX.Test(pTEXT) Then
{;yO3];Hqw ParaType = "文献条目"
feej'l }F 'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4")
xT HD_?d 'TitleNo = regEX.Replace(pTEXT, "[$2] ")
qmrT d G Exit Sub
7({)ou x End If
f{sT*_at aacy5E prfx = Left(pTEXT, 2)
+-izC %G If prfx = "注：" Or prfx = "注:" Then
vm [lMx ParaType = "图表注解"
;+J x,{ ) Exit Sub
L:i&OCU2k End If
IskL$Y ^
8D*7{Q kCBtK?g ParaType = "正文"
0m@+ &X>w ! ]4u"e End With
T+Oqd\05.+ End Sub
)qWwh)\;! ,-UF 5U Sub ConvertListToOrdinary()
HbTVuf o Dim st As Paragraph
u ?^V4 +V With ActiveDocument
Bkcwl For i = .Paragraphs.Count To 1 Step -1
\6b~$\
~B Set st = .Paragraphs(i)
Rh=" <'d lst = st.Range.ListFormat.ListString
UK =ELvt] If lst <> "" Then
8g#$Y2P st.Range.ListFormat.RemoveNumbers
RT [p!xL st.Range.InsertBefore lst & " "
PgBEe
@. End If
&.A_d+K& Next
p Cz6 [*kC End With
8`4M4" lj Set st = Nothing
x YS81 End Sub
[|]J8o@u^ Hm-#Mpw Private Sub UserForm_Activate()
'/\ Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节"
mqSVd^ Me.lbTotal.Font.Bold = True
u64#,mC[* Me.txtStatus.Visible = False
1T^WMn:U Me.cmdCheck.Enabled = True
jv)+qmqo! Wg NA%.|, End Sub
A l$z.i?R FYAEM!dyy X 4;U4pU# Sub CheckSuperScript()
6= ?0&Bx& Selection.Find.ClearFormatting
s QDgNJbU Selection.Find.Replacement.ClearFormatting
W}(A8g#6 With Selection.Find
LlTD =tJ0 .Text = "[【\[［〖](*)[】\]〗］]"
#6 M] tr .Replacement.Text = "[\1]"
i
;FKnK .Replacement.Font.Superscript = True
BA;r%?MRL '.Replacement.Font.Color = wdColorBlue
B,>02EZ .Forward = True
BQu
|qr q .Wrap = wdFindContinue
'E| %l!xO .FORMAT = True
T.bFB+'E| .MatchCase = False
te@m#` p9 .MatchWholeWord = False
o m G2p .MatchByte = False
.D*Qu}
.MatchAllWordForms = False
4]d^L> .MatchSoundsLike = False
5KC Qvv\ .MatchWildcards = True
t@%w:*
& End With
OSu&vFKz Selection.Find.Execute Replace:=wdReplaceAll
j7I=2xnTWu End Sub
QkrQM&Im E7uIur=g! Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
<A3%1 82 bContinue = False
9b.
kso9. Set regEX = Nothing
?ANW I8'_j End Sub
K@.5
ghQ B Sub CeateOrModifyStyle()
g )hEzL0k '
@|gG3 '
!3b& S
4 Dim stl As Style
fc#9e9R {l I}a 8DP Options.Pagination = False
Iiy5;:CX:q {*xE+ | On Error Resume Next
pc`P;Eui For Each stl In ActiveDocument.Styles
8Km&3nCv$Q stl.Delete
d4y#n=HnnV Next
Mh%{cLM On Error GoTo 0
|$WHw*F^ *i" 9D: Set stl = Nothing
J0sD?V|{1~ 5`h 6oFxGp DoEvents
o/A G9|()4 On Error Resume Next
pqG> |#RG Fa("Gok[ ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph
?9 huuJ s7 2Kxb(q" ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph
u>>|ZP
e ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph
G(E1 c"? J= A)]YE ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph
%\'=Y/ yP ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph
Tm %5:/<8 O8;/oL4 U ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph
}?[];FB ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph
M9"Bx/ ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph
Q{/z>-X\x ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph
f ;E#CjlTL ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph
J( 1Tl ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph
4$-R|@,|_ ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph
w2B)$u e@3SF ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph
lm`* x=x ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph
=!TUf/O- ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph
Ez1eGPVr ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph
u]ms~rO ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph
-}7$;QK&a K^WDA]) ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph
d9{lj(2P On Error GoTo 0
BMp'
.9Qgm DoEvents
1RAkqw
<E _c>iux; 'BaseStyle
H/a gt ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False
n_kwtWX ( With ActiveDocument.Styles("BaseStyle").Font
P(T-2 Ux6 .NameFarEast = "宋体"
A
mZXU
b .NameAscii = "Times New Roman"
5/.W-Q\pl} .NameOther = "宋体"
g->*@%?<w> .Size = 10.5
"L>'X22ed .Bold = wdUndefined
>a"J);p .Italic = wdUndefined
/ -M:6 .Subscript = wdUndefined
`Vvi]>,cg` .Subscript = wdUndefined
hFV,FBsAO LnR>!0:c .Underline = wdUnderlineNone
4"&-a 1N .UnderlineColor = wdColorAutomatic
[6VB&
.StrikeThrough = False
' #Wx@ .DoubleStrikeThrough = False
4Kj.o c=sV"r? .Outline = False
:Xw|v2z%3 .Emboss = False
.n\JY;" .Shadow = False
CW1l;uwtU .Hidden = False
D||0c"E .SmallCaps = False
]J Yz(m[ .AllCaps = False
')xOL = w .Color = wdColorAutomatic
l7QxngWw .Engrave = False
p4T$(]7 .Scaling = 100
)z
L@h .Kerning = 1
+\=g&G, .Animation = wdAnimationNone
~RR!~q .DisableCharacterSpaceGrid = False
(]@ S<0 .EmphasisMark = wdEmphasisMarkNone
e-dkvPr End With
fe\lSGmf With ActiveDocument.Styles("BaseStyle").ParagraphFormat
ebA:Sq:w .LeftIndent = 0
]B/> =t "E .RightIndent = 0
[8QK @5[ .SpaceBefore = 0
ItVN,sVJb .SpaceBeforeAuto = False
YZ~MByu .SpaceAfter = 0
hBU)gP75 .SpaceAfterAuto = False
w =GMQ8 Y"FV#<9@7E .LineSpacingRule = wdLineSpaceSingle
/pMOinuO .Alignment = wdAlignParagraphJustify
66val" ^W O:?3B!wF .WidowControl = False
jE0oLEg& .KeepWithNext = False
>axeUd+@i .KeepTogether = False
H(y`[B,}* .PageBreakBefore = False
l>6tEO Xt .NoLineNumber = False
P@N+jS`Vf 2@ S}x@^ .FirstLineIndent = CentimetersToPoints(0)
< $zJi V
.OutlineLevel = wdOutlineLevelBodyText
[ CQR .CharacterUnitLeftIndent = 0
qO{z{@jo55 .CharacterUnitRightIndent = 0
1T|f<ChIF< .CharacterUnitFirstLineIndent = 0
8 lQ}- 8 .LineUnitBefore = 0
v , ")XPY .LineUnitAfter = 0
%`]+sg[i .AutoAdjustRightIndent = True
' ]k<' `b| .DisableLineHeightGrid = True
xs= ~N Lu#q o^ .FarEastLineBreakControl = True
56AC%_ g> .WordWrap = True
<Km9Mq .Hyphenation = False
t}+/GSwT ,X!6|l8 .HangingPunctuation = True
' i+L .HalfWidthPunctuationOnTopOfLine = True
5RP G3ppS .AddSpaceBetweenFarEastAndAlpha = True
xQs
xc .AddSpaceBetweenFarEastAndDigit = True
3 =enk0$ .BaseLineAlignment = wdBaselineAlignBaseline
Nb l&al@" End With
]p! { ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False
DI\=udN ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll
+bumWOQ' ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese
,YD7p= PY ActiveDocument.Styles("BaseStyle").NoProofing = False
*PF<J/Pr _xKn2 ?d8g '一级标题题样式
,`t+X=# ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
U F"%FF ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle"
Sa g)}6+ ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False
P%|~Ni_BTX With ActiveDocument.Styles("QLNU一级标题").Font
bZxN]6_
.NameFarEast = "黑体"
bq/Aopfr .NameAscii = "Arial Black"
yGR{-YwU! .NameOther = "黑体"
K P]ar
. .Name = "黑体"
"2 mPWRItO .Size = 16 '三号
R4p Pt .Bold = True
&y!?R$?b .Italic = wdUndefined
Lt*P& .Subscript = wdUndefined
Tpl]\L1v- .Superscript = wdUndefined
KF(H
>gs End With
%bnXZA2Sx With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat
}`qAb/Ov @&\Y:aRO%i .LeftIndent = CentimetersToPoints(0)
D4VDWv .RightIndent = CentimetersToPoints(0)
d:)#-x*h7 .FirstLineIndent = CentimetersToPoints(0)
o /N!l]r O`Tz^Q /D .LineSpacingRule = wdLineSpaceSingle
P&0eu .Alignment = wdAlignParagraphCenter
^xe+(83S2? 8'PZA,CW .WidowControl = True
t/;2rIx> .KeepWithNext = True
$a_y-lY .KeepTogether = True
sS -dHa .OutlineLevel = wdOutlineLevelBodyText
J?O0ixU vPDw22L;' .LineUnitBefore = 0.5
I=dG(?#7% .LineUnitAfter = 0.5
P%2v( End With
$toTMah
w
ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False
Zn b={hh ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll
V\`Z|'WIQD ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese
A.>mk59 8 ActiveDocument.Styles("QLNU一级标题").NoProofing = True
8w5}9}xF DoEvents
3E*|^* ]oP1c-GEk '二级
:[CV_ME.; ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
( d_z\U7l ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle"
NzgG7 7 > ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False
nH#>_R
(
With ActiveDocument.Styles("QLNU二级标题").Font
S=
4o@3%$ .NameFarEast = "黑体"
J ?o .NameAscii = "Arial Narrow"
o=Vs)8W .NameOther = "黑体"
9nR\7!_ .Name = "黑体"
.!3e$mhV .Size = 15 '小三号
Yg&(km m .Bold = False
Yw|v5/> .Outline = False
l*l*5hA .Italic = wdUndefined
A-!e$yz> .Subscript = wdUndefined
PYCN3s#Gi .Superscript = wdUndefined
aqON6|6K End With
=F+v+zP7P With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat
!Gmnck&+ .LeftIndent = CentimetersToPoints(0)
w<(ubR %$ .RightIndent = CentimetersToPoints(0)
h%/BZC^L]| .FirstLineIndent = CentimetersToPoints(0)
ZDW9H6ux i.mv`u Dm .LineSpacingRule = wdLineSpaceSingle
>V6 t
L;+ .Alignment = wdAlignParagraphLeft
J5{;+ysUMl
V_h&9]RL .WidowControl = True
AR [m+E .KeepWithNext = True
y C xYFi .KeepTogether = True
IR-n:
z .PageBreakBefore = False
JI>Y?1i0O .OutlineLevel = wdOutlineLevelBodyText
W %*#rcdq )c
e 6~ .LineUnitBefore = 0.5
jrp>Y: .LineUnitAfter = 0.5
I[?\ Or ?~o`mg End With
4p"' ox # ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False
gH//@`6 ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll
CXq[ VYM&X ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese
H$%MIBz >$ ActiveDocument.Styles("QLNU二级标题").NoProofing = True
D7hTn@I DoEvents
4Fg2/O_3 ]y@A
=n R '三级标题样式
Go%Z^pF3CO ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
rI>x'0Go* ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle"
6q^$}eOt ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False
G'JHimP2j With ActiveDocument.Styles("QLNU三级标题").Font
q %sZV> .NameFarEast = "宋体"
JX&U?Z .NameAscii = "Times New Roman"
;Fq mZjm .NameOther = "黑体"
ji ?Hw .Name = "黑体"
:;_
khno .Size = 14 '四号
M`Q$-#E:
.Bold = False
7D AP_ C .Outline = False
Jxvh; .Italic = wdUndefined
BA h'H&;V .Subscript = wdUndefined
D
/QLp3+o .Superscript = wdUndefined
<{#_;7h" End With
UBwl2Di With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat
h`6 (Oo| .LeftIndent = CentimetersToPoints(0)
E+\?ptw .RightIndent = CentimetersToPoints(0)
&qbEF3p^@ .FirstLineIndent = CentimetersToPoints(0)
i)x0 ]XF m}l) ;P^ .LineSpacingRule = wdLineSpaceSingle
f\2IKpF2 .Alignment = wdAlignParagraphLeft
GxhE5f; Vukb vBWPN .WidowControl = True
Kg 6J:HD49 .KeepWithNext = True
&GLDoLk6[ .KeepTogether = True
-_ 9k+AV .PageBreakBefore = False
k{2Gq1S { .OutlineLevel = wdOutlineLevelBodyText
\WiCI: *q
6XK_ .CharacterUnitLeftIndent = 0
~:Rbd9IB .CharacterUnitRightIndent = 0
s&$?m [w .CharacterUnitFirstLineIndent = 2
Q+Bl1xl PaKa bPY .LineUnitBefore = 0.5
P&Ke slk .LineUnitAfter = 0
/#00'(oD End With
mOJdx-q?r ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False
vbmt0d
f ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll
4v_Ac;
2m& ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese
`Abd=1nH ActiveDocument.Styles("QLNU三级标题").NoProofing = True
X,49(-~\ DoEvents
=NY;#J jn DXf '四级标题样式
-@XSDfy7S ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
PSJj$bt;<+ ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle"
d`/8Q9tQ ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False
* tv & = With ActiveDocument.Styles("QLNU四级标题").Font
t oA}0MI(: .NameFarEast = "宋体"
KkUK " Vc .NameAscii = "Times New Roman"
>J;TtNE: .NameOther = "宋体"
Z=&|__ +d .Name = "宋体"
ZS.=GjK .Size = 12 '小四号
Kt aoOe .Bold = True
Y#@D%
a 8 .Outline = False
@ZI S
v'F .Italic = wdUndefined
Ur+U
#} .Subscript = wdUndefined
~|" Vl<9 .Superscript = wdUndefined
"w? 0f[" End With
^Q#_ With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat
$+80V{J# %6q82}# ` .LeftIndent = CentimetersToPoints(0)
M nD}i&k[ .RightIndent = CentimetersToPoints(0)
@1o X&# .FirstLineIndent = CentimetersToPoints(0)
0BXr[%{` s" ,Ea* .LineSpacingRule = wdLineSpaceSingle
cq[9#@
4= .Alignment = wdAlignParagraphLeft
y7+@
v' >*EZZ\eU! .WidowControl = True
|Z>-<]p9g .KeepWithNext = True
@@ H/q .KeepTogether = True
4ior .PageBreakBefore = False
ykC3Z<pI. .OutlineLevel = wdOutlineLevelBodyText
^t3>Z|DiB^ '#c# .O .CharacterUnitLeftIndent = 0
[3X\"x5@V .CharacterUnitRightIndent = 0
`dm* vd .CharacterUnitFirstLineIndent = 2
|Y Lja87 X 2V+cre .LineUnitBefore = 0
_WNbuk0 .LineUnitAfter = 0
Gor 9 &aJ1 2B4.o *Q\ End With
@K <Onh` ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False
/Q st :q ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll
xuUEJ
a& ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese
pEwo}NS*H ActiveDocument.Styles("QLNU四级标题").NoProofing = True
Bv7FZK3 DoEvents
}-tJ .3Zw &-*l{"7p+% '正文校式
W/UA%We3+L ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle")
a6 gw6jQ ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle"
frcX 'M}% ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False
y^H5iB[SPL With ActiveDocument.Styles("QLNU正文").Font
Lyc6nP; F
Milp"L?B% .NameFarEast = "宋体"
a]P i2 :S .NameAscii = "Times New Roman"
b"$?(Y .NameOther = "宋体"
L ,R}l0kc .Name = "宋体"
)M<+?R$]; ,
>WH)+a .Size = 12 '小四号
.'=S1|_( d*tWFr|J- .Bold = wdUndefined
7@"X?uo%o .Italic = wdUndefined
p
l^;'|=M .Subscript = wdUndefined
^1 ){
@
( .Superscript = wdUndefined
KH,f'` +Kgl/Wg% .Outline = False
h r]+ 4!/ .Emboss = False
V%4P. y .Shadow = False
}36A eJ7L .Hidden = False
VKPE oy8H (RI)<zaK
; .DisableCharacterSpaceGrid = True
J%"5?)[z End With
Z =8&` With ActiveDocument.Styles("QLNU正文").ParagraphFormat
[.>=> KJ _ m%.4OXX"& .LeftIndent = CentimetersToPoints(0)
"&H'?N%9Up .RightIndent = CentimetersToPoints(0)
.QP`Qn6 (P .FirstLineIndent = CentimetersToPoints(0)
-n 7 @r - G>J .LineSpacingRule = wdLineSpaceExactly
oO;L l?~ .LineSpacing = 20
3!9JXq%Hl .Alignment = wdAlignParagraphLeft
~0,v Q
o1#3A .WidowControl = False
<6;M\:Y*T .KeepWithNext = False
jvQ^Vh!mC .KeepTogether = False
8Ze>
hEG .PageBreakBefore = False
$W|JQ h .Hyphenation = False
~j[?3E4L} 7KiraKb| .OutlineLevel = wdOutlineLevelBodyText
7l7VT?<: 5
Y&`Z J x"Ll/E)\v] .CharacterUnitLeftIndent = 0
Pt85q?- > .CharacterUnitRightIndent = 0
_xAru9=n^ .CharacterUnitFirstLineIndent = 2
vk|f"I KAZ<w~55c .LineUnitBefore = 0
s 4rva G@a .LineUnitAfter = 0
GDCp@%xW .SpaceBefore = 0
O^\:J 2I( .SpaceAfter = 0
D`QMlRzXy tC'#dU`=qY .DisableLineHeightGrid = True
z$1
|D{ End With
2W0nA t ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False
Xc NL\fl1 ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll
IwYfs]- ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese
g5# Lo Gc ActiveDocument.Styles("QLNU正文").NoProofing = True
1M`>;fjYa DoEvents
:JSxsA6 k Z4G%Ve[ '图片段落样式
=p@2[Uo ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle")
^GV'Y ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle"
(_#E17U)_ ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False
1
K}gX>F With ActiveDocument.Styles("QLNU图片段落").Font
7W}%ralkg .Size = 12 '小四号
NUM!'+H_h .Italic = wdUndefined
I+Fy)=DO9 .Subscript = wdUndefined
oC
"
[rn .Superscript = wdUndefined
274j7Y' End With
-Y+ pL vG* With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat
s2L]H vKnZ= =B .LeftIndent = CentimetersToPoints(0)
^nZ=B>Yn2 .RightIndent = CentimetersToPoints(0)
s:'>G;p .FirstLineIndent = CentimetersToPoints(0)
*
4J!@w ]+` K\G ^X .LineSpacingRule = wdLineSpaceSingle
jy0aKSn8 .Alignment = wdAlignParagraphCenter
l'm|* * .KeepWithNext = True
V^tD @N .OutlineLevel = wdOutlineLevelBodyText
GTB\95j] }o]}R#| .CharacterUnitLeftIndent = 0
H,c1&hb/w .CharacterUnitRightIndent = 0
Z5'^ H j1, .CharacterUnitFirstLineIndent = 0
V(kK2az .pZYPKMaE .LineUnitBefore = 0
1VYH:uGuAU .LineUnitAfter = 0
T7i>aM$+ End With
)7Hx <?P ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False
Z?S?O#FED ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll
zW\a)~ E ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese
Q^<
amM! ActiveDocument.Styles("QLNU图片段落").NoProofing = True
L[44D6V g DoEvents
@ *J bp ZzK^ bNx)0 {
(.@bT@ '第X章
Ag T)J ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
`~\SQ EY$ ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle"
<`-sS]=d} ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False
,(oolx"Xa With ActiveDocument.Styles("QLNU章节标题").Font
}{+?>!qD t .NameFarEast = "黑体"
*b~8`O pa` .NameAscii = "Arial Black"
\roJf&O } .NameOther = "Arial Black"
'9]?jkl .Name = "黑体"
jh z*Y}MX .Size = 16
M
p <r`PM2 .Bold = True
*# <%04f .UnderlineColor = wdColorAutomatic
bX[ZVE(L .Outline = False
KiG19R$ .Italic = wdUndefined
8Mtd}{Fw* .Subscript = wdUndefined
#:=c)[G8 .Superscript = wdUndefined
!DA4q3-U>> .Scaling = 100
v 9J1Hha# .DisableCharacterSpaceGrid = True
t0cS.hi End With
w)J-e gc With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat
i' CK/l.H .LineSpacingRule = wdLineSpaceSingle
"E7<S5 cr .Alignment = wdAlignParagraphCenter
vg?(0Gasm* .WidowControl = True
] UIN4E .KeepWithNext = True
B{0]v-w .KeepTogether = True
>4bw4
Z1 .PageBreakBefore = True
0X99D2c .OutlineLevel = wdOutlineLevelBodyText
(soTkH:# 7BF't!-2F .LeftIndent = CentimetersToPoints(0)
+
&b`QcH< .RightIndent = CentimetersToPoints(0)
1(!!EcU_ .FirstLineIndent = CentimetersToPoints(0)
m7e$ Z N`grr{*_ .CharacterUnitLeftIndent = 0
[(`T*c.#.X .CharacterUnitRightIndent = 0
bs]ret$?(q .CharacterUnitFirstLineIndent = 0
E+"INX7 Eln"RKCt}9 .LineUnitBefore = 1
qB7.LR*
' .LineUnitAfter = 0.5
Vk$zA<sw" T_, LK7D .AutoAdjustRightIndent = False
&tQ,2RT .DisableLineHeightGrid = True
PF!Q2t5c3 .FarEastLineBreakControl = True
G_[|N> .WordWrap = True
-NZj : N End With
u wWfL32 ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False
.$4D K* ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll
FWdSpaas Q ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese
4%p5X8|\ih ActiveDocument.Styles("QLNU章节标题").NoProofing = True
(J<@e!@NE DoEvents
n\*> m p ) ?i(Tc! '表格标题
7esG$sVj( ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
q`}Q[Li ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle"
42Vy#t/HC ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False
R 8\y|p#c With ActiveDocument.Styles("QLNU表格标题").Font
E[htNin.B~ .NameFarEast = "楷体"
rP;F h|w# .NameAscii = "Arial"
N"T~U\R .Name = "楷体"
J(M0t~RZ .Size = 10.5
X&M4 c5Li .Bold = True
oRy?Dx+H .Underline = wdUnderlineNone
akBR"y:~:H .Italic = wdUndefined
_ZD)#? .Subscript = wdUndefined
=}r&>|rrJ .Superscript = wdUndefined
!V@Y \M
d .Color = wdColorAutomatic
ui7 0| End With
& N*S
With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat
w_,. N!"GwH .LineSpacingRule = wdLineSpaceSingle
|R Ai6;
.Alignment = wdAlignParagraphCenter
\p@,+ -gX .KeepWithNext = True
q&Q* gEFK .KeepTogether = True
Y#{KGVT< .OutlineLevel = wdOutlineLevelBodyText
.rG Rdb JeUFCWm .LeftIndent = CentimetersToPoints(0)
.K}u`v T .RightIndent = CentimetersToPoints(0)
D/{Tl .FirstLineIndent = CentimetersToPoints(0)
0V}vVAa(B CH Wyy .CharacterUnitLeftIndent = 0
zG@9-s* L .CharacterUnitRightIndent = 0
tJ.LPgfZ .CharacterUnitFirstLineIndent = 0
KzeA+PI Si*Pi .LineUnitBefore = 1
\ fU {$ .LineUnitAfter = 0
b\gl9
"
X < 5[wP)K@ End With
I LF"m; ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False
k'%c| kx8U ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll
C + r--"Z ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese
U`<EpO{j| ActiveDocument.Styles("QLNU表格标题").NoProofing = True
x;Dr40wD@y DoEvents
D}cq_|mmn[ yKOf]m># '表格首行
xYM/{[ ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle")
Q-O:L ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False
m] N 4.J With ActiveDocument.Styles("QLNU表格首行").Font
i3;Z:,A4NN .NameFarEast = "楷体"
Ej 'a
G .NameAscii = "Times New Roman"
LD_a J^(d .Name = "楷体"
):LJ {. 0R .Size = 9
WU#bA|Cf .Bold = True
B Ibcm,YQ .Underline = wdUnderlineNone
>V87#E .Italic = wdUndefined
cKF02?)TX .Subscript = wdUndefined
j=dHgnVvj .Superscript = wdUndefined
na
$z\C\ End With
vxr3|2` With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat
9eGM6qW\_ .LineSpacingRule = wdLineSpaceSingle
kc|`VB8L .Alignment = wdAlignParagraphCenter
w:'$Uf8] xfO!
v> .LeftIndent = CentimetersToPoints(0)
T_jwj
N .RightIndent = CentimetersToPoints(0)
kZ`60X%wE .FirstLineIndent = CentimetersToPoints(0)
1. yw\ZC\ 5
;dg#hO 8DLR .CharacterUnitLeftIndent = -0.5
:
[aUpX= .CharacterUnitRightIndent = -0.5
XV %L6x .CharacterUnitFirstLineIndent = -0.5
Sqc*u&W Gk799SDL .LineUnitBefore = 0
;N ]ElwP
.LineUnitAfter = 0
Q` AJR$L .SpaceBefore = 0
evg i\" .SpaceAfter = 0
6$)Yqg`X mN3%;$ND7 End With
_=q)lt-UY ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False
wOHK
dQ' ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll
4^70r9hV9 ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese
\RMYaI^+; ActiveDocument.Styles("QLNU表格首行").NoProofing = True
N1P [&lR DoEvents
XuR!9x^5 EW#.)@- '表格内容
./5|i*ow ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle")
7 9:x>i= ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False
LL9Mt y, With ActiveDocument.Styles("QLNU表格内容").Font
X@af[J[cQ .NameFarEast = "楷体"
Ez<J+#)t .NameAscii = "Times New Roman"
a_QO) .Name = "楷体"
Jev@IORN\ .Size = 9
|%&WYm 6&# .Bold = False
.__X[Mzth3 .Underline = wdUnderlineNone
0
"pm7 .Italic = wdUndefined
pl
q$t/.U; .Subscript = wdUndefined
] =>vv;L .Superscript = wdUndefined
aKH\
8O4L5 End With
~O@V;y With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat
+Z)||MR" .LineSpacingRule = wdLineSpaceSingle
(.%:Q0i1 .Alignment = wdAlignParagraphCenter
<diI*H<G S:rW}r J .LeftIndent = CentimetersToPoints(0)
bi KpV? Dp .RightIndent = CentimetersToPoints(0)
i7e{REBXb .FirstLineIndent = CentimetersToPoints(0)
te" 8ZmJ q+gqa<kM .CharacterUnitLeftIndent = -0.5
GsqrKr bJ .CharacterUnitRightIndent = -0.5
rS(693kb .CharacterUnitFirstLineIndent = -0.5
X?4tOsd .LineUnitBefore = 0
A8c'CMEm .LineUnitAfter = 0
,W*<e- .SpaceBefore = 0
rm3 ~] .SpaceAfter = 0
s( Kf%ZoE End With
z56W5g2 ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False
YaSwn3i/@S ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll
8C4 Ty ms ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese
A3'i
- ActiveDocument.Styles("QLNU表格首行").NoProofing = True
8"8 sI DoEvents
lP9a * >=a z %+?\.oH '图片标题
,E)bS7W ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
~+3f8%
ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle"
{l *ps-fi ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False
)F4er ' With ActiveDocument.Styles("QLNU图片标题").Font
v hWj_\m .NameFarEast = "楷体"
m>zU wGYEu .NameAscii = "Times New Roman"
K Qub%`n .Name = "楷体"
qUpMq: Uw .Size = 10.5
Q(V c/ .Bold = True
gA~Ih .Underline = wdUnderlineNone
qMI %=@= .Italic = wdUndefined
J# :%| F% .Subscript = wdUndefined
tV# x{DN .Superscript = wdUndefined
J, {sRb% .Outline = False
1! vR
8. .Shadow = False
)2bPu[U .Color = wdColorAutomatic
Q6.},o End With
E@ t~juF! With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat
U 6.$F#n .LineSpacingRule = wdLineSpaceSingle
.f(x9|K^ .Alignment = wdAlignParagraphCenter
HpNf f0c 8
A %)m .KeepWithNext = wdUndefined
P_&2HA,I .KeepTogether = True
,a5I:V^\ .OutlineLevel = wdOutlineLevelBodyText
6wnfAli. Fm [,u .LeftIndent = CentimetersToPoints(0)
*]x]U >EF .RightIndent = CentimetersToPoints(0)
p_P'2mf .FirstLineIndent = CentimetersToPoints(0)
s'} oVx] pw- C=MY] .CharacterUnitLeftIndent = 0
d['BtVJ .CharacterUnitRightIndent = 0
YM1@B`yWE .CharacterUnitFirstLineIndent = 0
8@b@y|#]X -fG;`N5U .LineUnitBefore = 0
zJdlHa{ .LineUnitAfter = 0
#@y4/JS&2 End With
gR
~XkU ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False
~5cLI;4h ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll
Y#? Sqm( ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese
'Ur$
jW ActiveDocument.Styles("QLNU图片标题").NoProofing = True
lv$t p,+ DoEvents
ZZl)p\r 8#7z5:_ '目录项
g%9I+(?t ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle")
#MOEY |6 ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle"
=P0~=UP ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False
5 ^f>L2 With ActiveDocument.Styles("QLNU目录项").Font
5OKbW! .NameFarEast = "黑体"
61!R - .NameAscii = "Times New Roman"
2,NQ(c_c$ .NameOther = "Times New Roman"
O]^E%;(]}i .Name = "黑体"
aQinR
"o .Size = 10.5
]'T- 6 .Bold = False
7z F29gC .Italic = wdUndefined
+uv]dD *i .Underline = wdUnderlineNone
-] J V .Color = wdColorAutomatic
,pf<"^li .Superscript = wdUndefined
% G\rL.H| .Subscript = wdUndefined
BS+N End With
Q !S"=2 With ActiveDocument.Styles("QLNU目录项").ParagraphFormat
l4r09"S|V (kb^=kw#0 .LineSpacingRule = wdLineSpaceSingle
eCk}B$ 2 .Alignment = wdAlignParagraphLeft
&*MwKr<y `+]4C +w .WidowControl = False
_Y}(v( (; .KeepWithNext = False
#p=/P {* .KeepTogether = False
AX]lMe
.PageBreakBefore = False
a8Ci 7<V .NoLineNumber = False
<K4'|HU / .OutlineLevel = wdOutlineLevelBodyText
roW8 4x +XFF@h&=t .LeftIndent = CentimetersToPoints(0)
Z4E:Z}~'' .RightIndent = CentimetersToPoints(0)
F S1<f: .FirstLineIndent = CentimetersToPoints(0)
p jHUlQ }v@w(*)h: .CharacterUnitLeftIndent = 0
ivw2EEo, .CharacterUnitRightIndent = 0
fTV:QAa; .CharacterUnitFirstLineIndent = 0
= AZ>2P MlS<txFPS .LineUnitBefore = 0
v0= ^Hy m .LineUnitAfter = 0
XY0Gjo0 End With
~{U~9v^v ( ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False
Wl::tgU ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll
ur*1I/v ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot
{!'AR`| ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese
A9$q;8= < ActiveDocument.Styles("QLNU目录项").NoProofing = True
oh#6>| DoEvents
#D u1(R mm:\a-8j '参考文献
,}`II|.oB ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle")
>, 32~C ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle"
h
7I_{v8 ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False
"{L%5:H@ With ActiveDocument.Styles("QLNU参考文献").Font
3VA Lrb; .NameFarEast = "宋体"
d
t0?4 d .NameAscii = "Times New Roman"
\gj@O5rG P .NameOther = "Times New Roman"
1 ljgq]($ .Name = "Times New Roman"
<P}{0Y~@*W .Size = 12
!cp
,OrO\ .Bold = False
vPS
H .Italic = wdUndefined
A*MlK " .Subscript = wdUndefined
rJ9a @n, .Superscript = wdUndefined
DghX(rs_ .Underline = wdUnderlineNone
4wBMBCJ;P .UnderlineColor = wdColorAutomatic
K~v"%sG{` .Color = wdColorAutomatic
M<g>z6 .Engrave = False
A[=)Zw
" End With
ldi'@^ With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat
X m\tyLY J%3 S3C2*m .LineSpacingRule = wdLineSpaceExactly
4J-)+C/edx .LineSpacing = 16
;se-IDN .Alignment = wdAlignParagraphLeft
cKFzn+ .WidowControl = False
,j9 }VnW ) .KeepWithNext = False
duT2:~H2 .KeepTogether = False
nmS3 .PageBreakBefore = False
e l7P .OutlineLevel = wdOutlineLevelBodyText
^Zydy zOWbdd_zl .LeftIndent = CentimetersToPoints(0)
&[qL l .RightIndent = CentimetersToPoints(0)
M,q'
.FirstLineIndent = CentimetersToPoints(0)
. CrahV1G [S-NGip .CharacterUnitLeftIndent = 0
BNu zlR .CharacterUnitRightIndent = 0
jo{GPp} .CharacterUnitFirstLineIndent = -2
h p Lo T4o}5sq}S .LineUnitBefore = 0
&xrm;pO .LineUnitAfter = 0
&7|=8Z[o .SpaceBefore = 0
GfL}f9 .SpaceAfter = 0
Y
-o* d@ h^?[:XBeav End With
7PHvsd"]p ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False
5JIa?i>B ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll
]0V~ |<0c ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS
"7Zb)Ocb ActiveDocument.Styles("QLNU参考文献").NoProofing = True
qmtV k ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese
GkaIqBS DoEvents
> L?/Ph %d 76mQ$z e '
SYeCz(H>d ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle")
!|!: M Yn ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle"
lNls8@ ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False
HQ ^> ~ With ActiveDocument.Styles("QLNU论文题目").Font
u+z$+[lm!G .NameFarEast = "黑体"
_"## p .NameAscii = "Arial Black"
iV( B0z .NameOther = "Arial Black"
pkjL2 U : .Name = "Arial Black"
$zy
Y"yWRZ .Size = 16
@H1 pPr .Bold = False
}qi6 K-,oU .Italic = wdUndefined
rsOon2| .Superscript = wdUndefined
o @~XX@5l .Subscript = wdUndefined
u23^
* - .Underline = wdUnderlineNone
c*HS#C7' 2 .UnderlineColor = wdColorAutomatic
j?[fpN$ .Color = wdColorAutomatic
lmQ!q>N
y 3c]zDjV End With
}bAd@a9>3 With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat
L8/o9N1 .LineSpacingRule = wdLineSpaceSingle
CPF d 3 3 .Alignment = wdAlignParagraphCenter
Pm%ZzU .WidowControl = True
3Ki` W!C .KeepWithNext = True
I6 {}S6 .KeepTogether = True
k
IP~X V~ .PageBreakBefore = True
OZQ hT)nS] .NoLineNumber = False
ATk >:^n .OutlineLevel = wdOutlineLevelBodyText
dB^J }_wp Xv9kJ .LeftIndent = CentimetersToPoints(0)
.e"De- u .RightIndent = CentimetersToPoints(0)
Rfeiv .FirstLineIndent = CentimetersToPoints(0)
\,ir]e,1 W>bhSK V% .CharacterUnitLeftIndent = 0
qYGnebn@\ .CharacterUnitRightIndent = 0
9 k& lq$ .CharacterUnitFirstLineIndent = 0
%* vYX0W" % 7/XZQ .LineUnitBefore = 1
Uk6Y6mU V .LineUnitAfter = 1
ZRsD n
ZQ sE07 .BaseLineAlignment = wdBaselineAlignAuto
%:YON,1b=7 End With
p_!Y:\a5 ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False
4US8B=jk ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll
\*v}IO>2}) ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS
V.: a6>] ActiveDocument.Styles("QLNU论文题目").NoProofing = True
C ZxQ
z
ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese
XD z![s ActiveDocument.Styles("QLNU论文题目").NoProofing = True
T{{J'
_s5L DoEvents
r/Qq-1E
<!-8g! '中文摘要
H.v`JNs ( ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle")
KFCuv15w,3 ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle"
4Y Xtl +G ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False
9IN =m 5 With ActiveDocument.Styles("QLNU中文摘要").Font
3E y#? .NameFarEast = "宋体"
UVxE~801Y .NameAscii = "Times New Roman"
bhnm< RZ .NameOther = "Times New Roman"
K:46 5r: .Name = "Times New Roman"
y%v<Cp@R .Size = 12
TB*g$
* .Bold = wdUndefined
xXp\U'Ad~~ .Superscript = wdUndefined
%pt ul_(s' .Subscript = wdUndefined
s7D_fv4e .Italic = wdUndefined
_+wv3?
c" .Underline = wdUnderlineNone
9Rb-QI .UnderlineColor = wdColorAutomatic
FWq 6e, .Color = wdColorAutomatic
f(|qE( End With
9kH~+ With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat
/^P ^K .LineSpacingRule = wdLineSpaceExactly
t \Fc < .LineSpacing = 20
lk 1c 2 .Alignment = wdAlignParagraphLeft
#HJ F== B#B $w_z .WidowControl = False
~pX&>v\T .KeepWithNext = False
&s\$&%| .KeepTogether = True
0A9x9l9Wd .PageBreakBefore = False
rc F;Lp : .NoLineNumber = False
;7K5Bo .OutlineLevel = wdOutlineLevelBodyText
N 2L/A E )09M%fe .LeftIndent = CentimetersToPoints(0)
n
w Or .RightIndent = CentimetersToPoints(0)
"z=A=~~<{ .FirstLineIndent = CentimetersToPoints(0)
Op~sR ^ez Iwize,J~X .CharacterUnitLeftIndent = 0
9 K Ih}Q@P .CharacterUnitRightIndent = 0
pvDr&n9
.CharacterUnitFirstLineIndent = 2
NA]7qb%%< .LineUnitBefore = 0
*~lD;{2 .LineUnitAfter = 0
&z
1A-O
v A\i /@x5# End With
7iLm_#M ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False
o-lb/=K+ ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll
}Xrs"u, ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS
/Fk LZm ActiveDocument.Styles("QLNU中文摘要").NoProofing = True
fP&F$"o8 ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese
gupB8 .! ActiveDocument.Styles("QLNU中文摘要").NoProofing = True
&:S_ewJK7 ActiveDocument.Styles("QLNU中文摘要").Frame.Delete
jt S+y)2 DoEvents
T9*\I TA #CW]70H` ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
;=5V)1~i1; ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle"
NQ'^ z ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False
B5 C]4 With ActiveDocument.Styles("QLNU英文标题").Font
tURIDj%#p .NameFarEast = "黑体"
GWM2l?zOP .NameAscii = "Arial Narrow"
N#bWMZ" .Name = "Arial Narrow"
9bMM-~ .Size = 16
LCyci1\@ .Bold = True
{iYu
x;( .Bold = wdUndefined
2
3_<u]V .Superscript = wdUndefined
DcQ^V 4_ .Subscript = wdUndefined
jMzHs* : .Italic = wdUndefined
a_`E'BkgU \Y
Cj/tG8 .Underline = wdUnderlineNone
ig")bt3s5 .UnderlineColor = wdColorAutomatic
~V`D @-VND .StrikeThrough = False
I{_St8 .DoubleStrikeThrough = False
6pLB`1[v End With
"SNsO
f With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat
LJc
w- > .LineSpacingRule = wdLineSpaceSingle
o~NeS|a .Alignment = wdAlignParagraphCenter
}2:bYp YQ .WidowControl = True
p27A#Uu2} .KeepWithNext = False
l#\z
3"b .KeepTogether = False
fB3O zff .PageBreakBefore = False
wTf0O@``6H .NoLineNumber = False
83
412@& .FirstLineIndent = CentimetersToPoints(0)
_-o*3gmbQ .OutlineLevel = wdOutlineLevelBodyText
e%R+IH5i
HsR#dp+s~ .LeftIndent = CentimetersToPoints(0)
[{}9"zB$x0 .RightIndent = CentimetersToPoints(0)
prlB9,3|C .FirstLineIndent = CentimetersToPoints(0)
P>)-uLc~W oeDsJ6; .CharacterUnitLeftIndent = 0
-E2[P
W4$ .CharacterUnitRightIndent = 0
k {s#wJA .CharacterUnitFirstLineIndent = 0
T!"<Kv]J ^W_}Gd<-#Y .LineUnitBefore = 1
cEsBKaN .LineUnitAfter = 1
%,
K |v _-%
a y End With
(e= ksah3> ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False
W ;P1T"*A ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll
R`76Ae`R8 ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS
d;m Q=k
1 ActiveDocument.Styles("QLNU英文标题").NoProofing = True
p? iJ'K ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese
j72cS
Rv ActiveDocument.Styles("QLNU英文标题").NoProofing = True
?uU0NKZA ActiveDocument.Styles("QLNU英文标题").Frame.Delete
F} H!vh[ DoEvents
YUT"A{L 9(ZzwkD'> ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle")
C:
kl/9M@ ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle"
$- =aqUU ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False
Rb#Z'1D'G With ActiveDocument.Styles("QLNU英文摘要").Font
,H1J$=X' .NameFarEast = "宋体"
@Sq=#f/= .NameAscii = "Arial"
O .TFV. .NameOther = "Arial"
MeQ(,irr^ .Name = "Arial"
\#LKsQ
a .Size = 12
c5;YKON .Bold = wdUndefined
)@]-bPnv .Italic = wdUndefined
8kW9.
.Superscript = wdUndefined
Y@9L8 XNP> .Subscript = wdUndefined
(PsA [>F End With
s mIZ:L % nd3]&occ With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat
3a!/EP 7/PHg)&
.LineSpacingRule = wdLineSpaceExactly
|GdA0y\v*} .LineSpacing = 20
t<ftEJU"'w '8*gJ7] .Alignment = wdAlignParagraphJustify
R:E6E@T 3 [SN [faS .WidowControl = False
2}$Vi$
R .KeepWithNext = False
c`doR(oZ .KeepTogether = False
sx*1D9s_ .PageBreakBefore = False
u8+ <uWB .NoLineNumber = False
v
0rX/ mj k{ c ~ .OutlineLevel = wdOutlineLevelBodyText
}2`[email protected] 0a8nBo7A-X .LeftIndent = CentimetersToPoints(0)
p\+#`] Q7} .RightIndent = CentimetersToPoints(0)
/D1Bf:'( .FirstLineIndent = CentimetersToPoints(0)
gW/H#T, 2*K0~ b` .CharacterUnitLeftIndent = 0
h,FP,w;G .CharacterUnitRightIndent = 0
_N/]&|.. ! .CharacterUnitFirstLineIndent = 2
"sT`Dh r <e/O"6='Z .LineUnitBefore = 0
&Ei dc . .LineUnitAfter = 1
]DmqhK` GVn9=[r End With
Q Aygr4\X^ ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False
m9#u. Q* ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll
1yX&iO^d ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS
R#Bt !RNZ ActiveDocument.Styles("QLNU英文摘要").NoProofing = False
D.*JG7;=Z DoEvents
OiM{@ lmH!I )5 Options.Pagination = True
ni2H~{]z
Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....."
|i|YlWQS DoEvents
}^ ` {YD
ActiveDocument.Repaginate
"MoV*U2s, ]3d&S5zU End Sub
3-o ]H'6 M#<x2
ojW mNb+V /*x3
