Dim bContinue As Boolean
1GEE ^Eu 3N]pN<3@ Dim regEX As New RegExp
y~- ? Dim paraCounter As Long '全局段落计数，仅在主程序中可读写，其它过程函数应为只读
#G*z{BRQ
|;D[Al5AMc Dim LastTitle0String As String, LastTitle0No As Long
a'T|p)N.;T Dim LastTitle1String As String, LastTitle1No As Long
9MHb<~F Dim LastTitle2String As String, LastTitle2No As Long
ny=CtU!z Dim LastTitle3String As String, LastTitle3No As Long
sgC IY:8 Dim LastTitle4String As String, LastTitle4No As Long
];uvE? 55 Dim LastTitle5String As String, LastTitle5No As Long
U Ciq'^, Dim LastTabelString As String, LastTableNo As Long
1]hMA\x Dim LastFigureString As String, LastFigureNo As Long
'| FM|0~-J MH !C zV& Dim strSeperator As String
Pi8U}l
G; a?J U
( Sub ConvertWidth(fTEXT As String, rText As String)
t#P)KcWOt Selection.Find.ClearFormatting
Szg<;._J Selection.Find.Replacement.ClearFormatting
#Jm_~k Selection.Find.Wrap = wdFindContinue
'|]zBpz Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText
|f w+{f DoEvents
5n9F\T5 Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True
"%. #/!RG End Sub
w:umr# pg>P]a{ Sub ClearDomain()
"V9!srIC With Selection.Find
RisrU .ClearFormatting
!o .g2 .Replacement.ClearFormatting
MnX2sX| .Wrap = wdFindContinue
^ g4)aaBZ Me.txtStatus.Text = "清除所有域代码"
5m Fi)0={y DoEvents
@EZXPU .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False
g` h>:5] End With
+ u)' End Sub
(yX Vp2k N`zHe *=[~ Private Sub cmdCheck_Click()
!4 hs9 b bContinue = True
4uu*&B Dim NoSeries1(1 To 16) As String
u*9C(je Dim NoSeries2(1 To 16) As String
MiSFT5$v6 Dim NoSeries5(1 To 16) As String
Ab(bvS8r$ Dim NoSeriesRM(1 To 16) As String
mR0@R;,p Dim paraTotal As Long, ParaText As String
.
}=;]= Dim ttString As String, ttNo As String
3)3'-wu X,OxvmDm Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long
%
tJ?dlD' Z2$-},i Me.txtStatus.Visible = True
[j![R Me.lbParaType.Visible = True
<v2R6cj5 Me.cmdCheck.Enabled = False
3aDma/
D:F!;n9 *=sU+x&X 1i>)@{P&BN CI @I Dim ParaType As String, rText As String
UWusSi3+LG O! j@8~=' Selection.WholeStory
sP+S86
u Selection.NoProofing = True
P0z "Eq0S b u hxC5i% tm1 = Now
yqBu7E$X bX6*/N ActiveWindow.View.Type = wdNormalView
L9kSeBt 6C3y+@9 NoSeries1(1) = "一"
qb9%Y/xy NoSeries1(2) = "二"
v$m A7|(t! NoSeries1(3) = "三"
5S7Z]DXiT8 NoSeries1(4) = "四"
CY 7REF NoSeries1(5) = "五"
M 0"feq NoSeries1(6) = "六"
R -h7c!ko NoSeries1(7) = "七"
Tl1?5 NoSeries1(8) = "八"
#`W8-w NoSeries1(9) = "九"
XG [%oL NoSeries1(10) = "十"
/z'j:~`E NoSeries1(11) = "十一"
R1 wd Q8 q NoSeries1(12) = "十二"
MR C5c: ( NoSeries1(13) = "十三"
-!}1{
NoSeries1(14) = "十四"
1u` Z?
S( NoSeries1(15) = "十五"
% idn m NoSeries1(16) = "十六"
5$#<z1M.& z[k2&= c NoSeries2(1) = "㈠"
brVT NoSeries2(2) = "㈡"
LSfj7j` NoSeries2(3) = "㈢"
(*;u{m= NoSeries2(4) = "㈣"
MD
On; Af> NoSeries2(5) = "㈤"
au7BqV!uL NoSeries2(6) = "㈥"
{Ise ( > V NoSeries2(7) = "㈦"
\ agC Q& NoSeries2(8) = "㈧"
TxiJ?sDh* NoSeries2(9) = "㈨"
B#gmT 2L NoSeries2(10) = "㈩"
pE`( kD J\{)qJ *jp NoSeries5(1) = "①"
O^<6`k u NoSeries5(1) = "②"
y>#j4%D~4 NoSeries5(3) = "③"
y~d W=zO NoSeries5(4) = "④"
@%TQ/L^| NoSeries5(5) = "⑤"
Qz<-xe`o8] NoSeries5(6) = "⑥"
tT
v@8f NoSeries5(7) = "⑦"
E?zp?t:a NoSeries5(8) = "⑧"
2MC\~" L< NoSeries5(9) = "⑨"
F-R`'{ ka NoSeries5(10) = "⑩"
._R82 gy LNg1q1 P3 dHu]wog NoSeriesRM(1) = "I"
Ltj}>. + NoSeriesRM(2) = "II"
>2 |#b NoSeriesRM(3) = "III"
[L\w] 6 NoSeriesRM(4) = "IV"
"s* {0' jo NoSeriesRM(5) = "V"
!kIw835U NoSeriesRM(6) = "VI"
QxkfP % _g NoSeriesRM(7) = "VII"
iIT<{m&` NoSeriesRM(8) = "VIII"
"2h#i nS NoSeriesRM(9) = "IX"
O3_Mrn(R NoSeriesRM(10) = "X"
u)V* o NoSeriesRM(11) = "XI"
L"Gi~:z NoSeriesRM(12) = "XII"
/qC
YNwWH9 NoSeriesRM(13) = "XIII"
P o_9M4k
U NoSeriesRM(14) = "XIV"
Z b1v NoSeriesRM(15) = "XV"
a=J?[qrx NoSeriesRM(16) = "XVI"
0N}5 sF .dygp"* i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo)
4a 5n*6G! >}I}9y+ If i = vbNo Then
}+B7C2_\ Exit Sub
=#u2Rx%V End If
a}
/Vu" jn7} jWA If Me.chkSuper.Value Then
g Pf aiVY Me.txtStatus.Text = "检查修改所有的上标格式"
I)x:NF6JO <V, ?!}V CheckSuperScript
l?~ci
;lG mSzwx/3" End If
w iq{ Jo# EW!$D If Me.chkStyle.Value Then
UtutdkaS Me.txtStatus.Text = "设置样式，请稍候...."
dnx}c4P DoEvents
F>M$|Sc2 CeateOrModifyStyle
5 [3hw 4 End If
MPB6 %,^7J; a_ P[J8j G^R;~J*TDE ClearDomain
-Z Z$
1E X1-s,[ j' J!H5{7.efN pFK
|4u If Me.chkLIST.Value Then
GBQb({
Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式"
`%=Jsi0.Nq r:q#l~;^ ConvertListToOrdinary
:b>|U" ux End If
cC[n~OV <r kW 4 B -K Of Dim pType As String, trimpTEXT As String
-{wuF0f If Me.chkNum.Value = True Then
T/K.'92S Me.txtStatus.Text = "转换全角数字形式为半角"
$i1A470C ConvertWidth "１", "1"
<H p"ZCN DoEvents
bXfOZFzq) ConvertWidth "２", "2"
`8-aHPF- DoEvents
!G,$:t1-=V ConvertWidth "３", "3"
^Pf&C0xXv DoEvents
I> xB. $A ConvertWidth "４", "4"
gv,T<A?Z2 DoEvents
:}-u`K*
ConvertWidth "５", "5"
NWg\{a DoEvents
EzyIsp> _ ConvertWidth "６", "6"
<d^7B9O?&w DoEvents
yjO7/< 2 ConvertWidth "７", "7"
[vi4,'wm DoEvents
w(U/(C7R ConvertWidth "８", "8"
D 6]$P%t9 DoEvents
,dp?'_q { ConvertWidth "９", "9"
L7g& ]% DoEvents
v P4Ij ConvertWidth "０", "0"
$P -m6 DoEvents
Jv<)/Km` ConvertWidth "ａ", "a"
[0LqZ<\5 DoEvents
%(Ys-GeGr ConvertWidth "ｂ", "b"
nsp K. *? DoEvents
8. ^U6xA ConvertWidth "ｃ", "c"
zJ:r0Bt DoEvents
c-T
^
aR ConvertWidth "ｄ", "d"
gh}AD1TN] DoEvents
z|<oxF. ConvertWidth "ｅ", "e"
Z)A+ wM DoEvents
V[M#qZS ConvertWidth "ｆ", "f"
G"[pr%? DoEvents
OW}A48X[+ ConvertWidth "ｇ", "g"
StL[\9 ~: DoEvents
5% `Ul
ConvertWidth "ｈ", "h"
8_m9CQ6 i DoEvents
Ak1) ConvertWidth "ｉ", "i"
Zz-;jk X) DoEvents
@e,Zmx ConvertWidth "ｊ", "j"
O}-7 V5 DoEvents
_ PbfFY # ConvertWidth "ｋ", "k"
Mh|`XO.5I DoEvents
t4*A +"~j ConvertWidth "ｌ", "l"
%MJ7u } DoEvents
0q>lW &J ConvertWidth "ｍ", "m"
r8%,xA& DoEvents
qlJOb}$ I ConvertWidth "ｎ", "n"
lnWi E }F ConvertWidth "ｏ", "o"
{?y7' ConvertWidth "ｐ", "p"
QL2y,?Mz7 ConvertWidth "ｑ", "q"
j*u9+. ConvertWidth "ｒ", "r"
0_
\ g ConvertWidth "ｓ", "s"
\Ji2u GT ConvertWidth "ｔ", "t"
:\J bWj_j ConvertWidth "ｕ", "u"
SU'9+= _$ ConvertWidth "ｖ", "v"
xUpb1 R ConvertWidth "ｗ", "w"
C<t>m_t9 ConvertWidth "ｘ", "x"
m#$za7 ConvertWidth "ｙ", "y"
,rI
|+ ConvertWidth "ｚ", "z"
A4F D R# ConvertWidth "Ａ", "A"
} XU:D E ConvertWidth "Ｂ", "B"
1$VI\} ConvertWidth "Ｃ", "C"
E@6r{uZ # ConvertWidth "Ｄ", "D"
T:">,* | ConvertWidth "Ｅ", "E"
Iq ]6] ConvertWidth "Ｆ", "F"
m tQ{6u
ConvertWidth "Ｇ", "G"
GKhwn&qCKb ConvertWidth "Ｈ", "H"
^6oqq[$ ConvertWidth "Ｉ", "I"
s~ZFVi-i ConvertWidth "Ｊ", "J"
!#I/be] ConvertWidth "Ｋ", "K"
&n.uNe ConvertWidth "Ｌ", "L"
@!/fvP ConvertWidth "Ｍ", "M"
<57l|} 8
ConvertWidth "Ｎ", "N"
AdW2o|Uap ConvertWidth "Ｏ", "O"
9:i,WJO ConvertWidth "Ｐ", "P"
*.c9$`s ConvertWidth "Ｑ", "Q"
)x x/di ConvertWidth "Ｒ", "R"
|Du13i4].& ConvertWidth "Ｓ", "S"
,M& 0<k\ ConvertWidth "Ｔ", "T"
Ti|++oC/& ConvertWidth "Ｕ", "U"
> Mz|e(6 ConvertWidth "Ｖ", "V"
]3,.g)U*m ConvertWidth "Ｗ", "W"
r_,m\'~s ! ConvertWidth "Ｘ", "X"
\y`3Lh Y ConvertWidth "Ｙ", "Y"
)v{41sM+ ConvertWidth "Ｚ", "Z"
-xu.=n@, ConvertWidth "^l", "^p"
b y]|O ConvertWidth "（", "("
)UZ0gfx ConvertWidth "）", ")"
w LN2`ucC ZV] e- End If
@ 1&;R 0o$HC86w With ActiveDocument
*.]E+MYi* Dim tbl As Table
:2)1vQ H0L For Each tbl In .Tables
fEG3b#t N tbl.Rows.Alignment = wdAlignRowCenter
Gi2ad+Q H- tbl.Range.Font.NameFarEast = "楷体"
H\+c'$ tbl.Range.Font.NameAscii = "Times New Roman"
? < O tbl.Range.Font.Size = 10.5
T5jG II a Next
*t M7 > Set tbl = Nothing
{&E Z>r- End With
I/V )z9 z O5u{ $%%>n ^?? With ActiveDocument
)g:,_ 1s)| >_aio4j}r For i = 1 To .TablesOfContents.Count
.hlQ?\ .TablesOfContents(i).Delete
Qy^ z *s Next
rK QASRF5* px }7If Ipz
1+
#s' d 6@jEa- paraTotal = .Paragraphs.Count
#O9*$eMw paraCounter = 1
k\c &2T]W +#uNQ`1v LastTitle0No = 0
)*K<;WI WH LastTitle1No = 0
+ :]Aqyc\ LastTitle2No = 0
EPe]-C` LastTitle3No = 0
'<&E PUO LastTitle4No = 0
-)O kG#J@ LastTableNo = 0
PW k ?8dL- LastFigureNo = 0
y{`(|,[ @> Ghfh>~D Dim Sec As Long
&:;;u\ 5\ w=(c 9A Sec = InputBox("正文从第一节开始？", "节设置", 6)
.p(6' TYnI If Sec = 0 Then
mo# 0q&ZQ Exit Sub
HA9Nr.NqC@ End If
rbK#a)7 |aS~"lImh k = 0
Ku/H= Do While (paraCounter < paraTotal) And bContinue
: \:~y9X0 k = k + 1
Wz-3?EQ If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then
]opW; |{e Exit Do
!0OD(XT End If
[CDX C V-z paraCounter = paraCounter + 1
RZ|HwYG If k Mod 20 = 0 Then
g{ v5mly Me.lbCounter.Caption = paraCounter
.:Bwa DoEvents
zyZ ok*
s End If
<p^*Ydx Loop
nGv23R(?G B)"#/@!bHH [-E{}FL| Do While (paraCounter < paraTotal) And bContinue
sWsG,v_ ;<kZfx ParaText = Trim(.Paragraphs(paraCounter).Range.Text)
DrCWvpudd ShapeHeight = 0
:otY;n - ShapeWidth = 0
+f
X}O9 jom} _ CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth
\]U<h
ub hC|5e|S Select Case ParaType
@L[PW@:SZ Case "【】表格内容"
N[,VSO& .Paragraphs(paraCounter).Style = "QLNU表格内容"
{1Ju} =69 Case "章"
1 ;\]D9i LastTitle0No = LastTitle0No + 1
bB;~,W& E1 '新一章开始，复位其下属标题编号
(ET ;LH3 LastTitle1No = 0
P /c
Q1 LastTitle2No = 0
Z k/' \(5 LastTitle3No = 0
T2 :oWjC3$ LastTitle4No = 0
L}}=yh6r \!UF|mD^tG k = Val(ttNo)
~KA p\!, If k = 0 Then '非数字编号章节
HPt
Tv}l If ttNo <> NoSeries1(LastTitle0No) Then
qe5tcv}u rText = "第" & NoSeries1(LastTitle0No) & ttString
vo(g0Au) Me.ErrMsg.AddItem "章节编号错误：" & ParaText
<JL\?)}
n End If
~aJW"\{ Else
&G-#* OG If Val(ttNo) <> LastTitle0No Then
mUrS &&fu8 rText = "第" & LastTitle0No & ttString
nDHHYp Me.ErrMsg.AddItem "章节编号错误：" & ParaText
}uF[Ra End If
[$( sUc(% 5JBB+g End If
5q5 )uv" "x#]i aDjf '章段落设置
+36H%&! '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅
{cR_?Y@ .Paragraphs(paraCounter).Style = "QLNU章节"
? G$O m .Paragraphs(paraCounter).Range.Select
SY%A"bC Selection.EndKey unit:=wdLine
+{,N X tc = Replace(rText, vbCr, "")
a>o"^%x Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False
K
TG: I@|C Case "一级标题"
k4qLB1&, LastTitle1No = LastTitle1No + 1
z5XYpi_;[ '新一级标题开始，复位其下属标题编号
!,cQ'*<W8- LastTitle2No = 0
Z/2,al\ LastTitle3No = 0
f >mhFy LastTitle4No = 0
^>N8*=y Q
`.'-iq If ttNo <> NoSeries1(LastTitle1No) Then
jo9J%
v o rText = NoSeries1(LastTitle1No) & "、" & ttString
`z 9)YH Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText
2d-TU_JqX End If
VHXI@ UT* wGEWr2$ #4P8Rzl$/ '一级标题段落设置 格式：一、标题内容
> I$ B= .Paragraphs(paraCounter).Range.Text = rText
K #qoR /: .Paragraphs(paraCounter).Style = "QLNU一级标题"
:/o C:z\h .Paragraphs(paraCounter).Range.Select
{ 1+Cw?1d Selection.EndKey unit:=wdLine
K0tV'Ml#" tc = Replace(rText, vbCr, "")
i\t753<Ys Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False
xS= _yO9- Case "二级标题"
iYk' :iv}S LastTitle2No = LastTitle2No + 1
BZovtm3
E '新二级标题开始，复位其下属标题编号
D :=t*2-Iv LastTitle3No = 0
^cYStMjpy LastTitle4No = 0
\hs/D+MCk ppAmN0=G If ttNo <> NoSeries1(LastTitle2No) Then
b;S6'7Jf9 rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString
nd.57@*M ErrMsg.AddItem "二级标题编号错误：" & ParaText
H@K#|A=a End If
3p:=xL <+V -k| '二级标题段落设置 格式：(一)、标题内容
rHvF%o .Paragraphs(paraCounter).Range.Text = rText
_Zh2eXWdjM .Paragraphs(paraCounter).Style = "QLNU二级标题"
).pO2lLF4 R=!kbBK>\ .Paragraphs(paraCounter).Range.Select
> vUB%OLyP Selection.EndKey unit:=wdLine
R'rTE tc = Replace(rText, vbCr, "")
fv|]= e Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 2 ", PreserveFormatting:=False
QB!jLlg( `TUZZz Case "三级标题"
T>d\%*Q+B LastTitle3No = LastTitle3No + 1
wk" l[cH> '新三级标题开始，复位其下属标题编号
`_|aeoK_ LastTitle4No = 0
h,^BC^VU9- u3U4U
K If Val(ttNo) <> LastTitle3No Then
?n)Xw)] rText = LastTitle3No & ". " & ttString
>BBl 7 Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText
/+>) "D6' ZTN
(irK End If
+`ai 1-vw '三级标题段落设置 格式：1. 标题内容
59V#FWe- .Paragraphs(paraCounter).Range.Text = rText
BbF a=H. .Paragraphs(paraCounter).Style = "QLNU三级标题"
Hal7
MP .Paragraphs(paraCounter).Range.Select
Z;# %t. Selection.EndKey unit:=wdLine
~|h lE z tc = Replace(rText, vbCr, "")
b`$yqi<[ Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 3 ", PreserveFormatting:=False
lK0s=4c{ Case "四级标题"
G3G/ xC" LastTitle4No = LastTitle4No + 1
e|yX QTlvL W7t
>&3l If Val(ttNo) <> LastTitle4No Then
}*NF&PD5RU rText = "(" & LastTitle4No & "). " & ttString
Y=r!2u6 r~ ErrMsg.AddItem "四级标题编号错误：" & ParaText
*R BV'b )D;*DUtMVm End If
~e{H#*f&1/ '四级标题段落设置 格式：(1). 标题内容
=/[ltUKs:a .Paragraphs(paraCounter).Range.Text = rText
JjQ8|En .Paragraphs(paraCounter).Style = "QLNU四级标题"
yH^f\u0 .Paragraphs(paraCounter).Range.Select
:pRF*^eU Selection.EndKey unit:=wdLine
+#4]o
}6G tc = Replace(rText, vbCr, "")
tv0Ha A Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 4 ", PreserveFormatting:=False
T=WNBqKo] [!EXMpq' Case "表格标题"
^EF'TO$ LastTableNo = LastTableNo + 1
yf!,4SUkU :Zza)>l If ttNo <> CStr(LastTableNo) Then
kB o;h.[l rText = "表" & LastTableNo & ". " & ttString
-LTKpN`[@ ErrMsg.AddItem "表格编号错误：" & ParaText
wzd`l?o, I"-dTa End If
o+N MA
( mb&lCd ^- '表格名称段落设置 格式：表1. 表格名称
wq UQ "d .Paragraphs(paraCounter).Style = "QLNU表格标题"
k0L] R5W xe = Replace(rText, vbCr, "")
_pW_G 1U .Paragraphs(paraCounter).Range.Select
Av o|v> Selection.MoveEnd wdCharacter, -1 '选择范围包括行尾的换行符。
M i]I:ka Selection.Range.Text = xe
F+m[&MKL Selection.EndKey
-IadHX}]t Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False
[email protected] :}Ok$^5s Case "表格首行"
s.VA!@F5 .Paragraphs(paraCounter).Style = "QLNU表格首行"
$/+so;KD Case "图片标题"
} ~| k LastFigureNo = LastFigureNo + 1
l;OYUq~F
[ >f]@> If ttNo <> CStr(LastFigureNo) Then
/ prYSRn8 rText = "图" & LastFigureNo & ". " & ttString
<?YA,"~ ErrMsg.AddItem "表格编号错误：" & ParaText
9t?L\ _- O cc=Z End If
w d/G|kNO '图片名称段落设置 格式：图1. 图名称
3Hw[s0[$ .Paragraphs(paraCounter).Range.Text = rText
fxd0e;NAAh .Paragraphs(paraCounter).Style = "QLNU图片标题"
#n3ykzoqIX .Paragraphs(paraCounter).Range.Select
P>(P2~$Y" Selection.EndKey unit:=wdLine
q NxB{0(D xe = Replace(rText, vbCr, "")
W m
.
}Zh Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False
}x:0os Case "正文"
=s; M]: '正文名称段落设置
KVN"XqE4 .Paragraphs(paraCounter).Style = "QLNU正文"
7NJFWz! Case "文献条目"
?DPHo)w With .Paragraphs(paraCounter)
Z.'syGuV '.Range.Select
dQD$K| aUp 'Selection.ClearFormatting
: lgi>^ '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator 'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ”
Ow@v"L;jF! .Style = "QLNU参考文献"
)1lu=gc End With
]!O u
e_-; Case "图表注解"
)u*^@Wo With .Paragraphs(paraCounter)
GKZN}bOm\ .Range.Font.NameFarEast = "楷体"
*)'V vu< .Range.Font.NameAscii = "Times New Roman"
[k $
efwJ .Range.Font.Size = 9 '小5号字
=xL )$DTg) _7"5wB?|+ .Alignment = wdAlignParagraphCenter
)#C
mQXgG .LeftIndent = 0
zT[6eZ8m .RightIndent = 0
&J$# #B .FirstLineIndent = 0
(u&`Ij 9 .LineSpacing = 12
OX\$ nQ\o .LineSpacingRule = wdLineSpaceExactly
QB&BTT=! .LineUnitAfter = 0
T_LLJ}6M .LineUnitBefore = 0
$'{=R 45Z .OutlineLevel = wdOutlineLevelBodyText
71"+<C . .PageBreakBefore = False
n-J2/j .RightIndent = 0
dz-y}J11 .WordWrap = True
$ i# ?v .LineUnitAfter = 0.5
7
&U&E| 6S1m<aH6 End With
!:3. D, Case Else
+&5' uAe '不作处理
D."=k{r. End Select
~Y7dH
Dn Vn, >< g '含有inlineshape的段落处理
2'|8Q\,:4Z If ShapeHeight > 30 Then
Nmp
nJu|8 .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle '对有图片的段落设置为单倍行距
[=uIb._Wv End If
eg<pa'Hw
)h_8vO2 If (ShapeWidth + ShapeHeight) > 150 Then
(dqCa[ .Paragraphs(paraCounter).Style = "QLNU图片段落"
X%}nFg
qQ End If
^zr^ N?a `VT>M@i/ '段落计数器递
tU@zhGb paraCounter = paraCounter + 1
nlc.u}# Me.lbCounter.Caption = "当前检测段落：" & paraCounter
},@``&e Me.txtStatus.Text = ParaText
5M F#&v DoEvents
94/BG0 Loop
3<:jx~y> End With
!L$x:/R9M )OP){ / msg = ""
Q.Aa{d9e W0I4Vvh_" For i = 0 To Me.ErrMsg.ListCount - 1
8)j@aiF` msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i)
V
'.a)6 Next
$_Nf-:D*
4_^[=
p/R <RXw M6G2 2g-` ]Vqb Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg
ny
*i+4Mb Me.cmdCheck.Enabled = True
!*{q^IO9v& Me.txtStatus.Visible = True
Vzg=@A # Me.lbParaType.Visible = False
F< |t\KOW B^v8,;jZT bContinue = False
>IfV\ w32 End Sub
ZDt?j C!
9} 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)
zt ll} Dim pTEXT As String
r^fe 4b l \OL yQ pTEXT = ChKRange.Text
Dw6 fmyJ: F3M aqr y ParaType = "其它"
E4z)Mr# TitleString = pTEXT
(
?0`d TitleNo = "N/A"
>jg0s)RA' mtA E shpCounter = ChKRange.InlineShapes.Count
P8Qyhc If shpCounter <> 0 Then
Ib=x~za@n MaxShpHeight = 0: TotalShpWidth = 0
3Q^fVn$tk For i = 1 To shpCounter
Na{Y}0=^y k = ChKRange.InlineShapes(i).Height
jgv`>o%<W l = ChKRange.InlineShapes(i).Width
>u t" OL9J If k > MaxShpHeight Then
i^msjA
MaxShpHeight = k
M@et6aud;K End If
fmX!6Kv TotalShpWidth = TotalShpWidth + l
8\.b4FNJ Next
Yk!/o
w@. If MaxShpHeight > 60 Or TotalShpWidth > 150 Then
tc+WWDP#" Exit Sub
sD;M
!K_ End If
hX:"QXx End If
D{8PQ 2x> 3SttHu0X '空行
[iP#VM-N If Len(pTEXT) <= 2 Then
}; L ^w : Exit Sub
_}xd}QW End If
I: cg}JZ>| Y f@e=: @(g_<@Jz '是否为表格中的文字
b aV>N[F& If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then
uVE.,)xz ParaType = "表格内容"
GL Mm( k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber)
.B2]xfo"` If k = 1 Then
^x>Qf(b ParaType = "表格首行"
CusF
/> End If
j=RRfFg) Exit Sub
as yZe End If
2Os1 C}m q? qC '例外情况：脚注
'a6<ixgo0 If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then
%EbPI)yY3 ParaType = "脚注"
Zdc63fllM Exit Sub
Mj#-j/{x{5 End If
W !w, f; s$ENFp7P '例外情况：尾注
AlE8Xu9UB If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then
-a,-J]d0+ ParaType = "尾注"
"TyJP[/ Exit Sub
bNs4 5hDP End If
w' MGA V" \0Y0 If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then
^!<dgBNj ParaType = "页眉页脚"
nAIo{
F Exit Sub
s#~GH6/ End If
YHkcWz
GPz(j'jU H %J
aZ?( With regEX
NV#')+
Ba .Global = True
A7(M,4`6 QUPf *3Oy .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$"
C<t RU5| If regEX.Test(pTEXT) Then
cqk]NL`' ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3")
E{gv,cUM TitleString = regEX.Replace(pTEXT, "$3")
jvO3_Zt9 TitleNo = regEX.Replace(pTEXT, "$1")
k ZK//YN# ParaType = "章"
( 2zeG` Exit Sub
~@YQ,\Y End If
wA r~< F; a3 .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$"
vpa fru 4 If regEX.Test(pTEXT) Then
+\U]p_Fo3 ParaType = "一级标题"
lzoeST regEX.Execute (pTEXT)
O3+)qb!X ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3")
qsvpW%?aE TitleString = regEX.Replace(pTEXT, "$3")
OT+ Ee TitleNo = regEX.Replace(pTEXT, "$1")
=43d%N
Exit Sub
A |C_np^z2 End If
M,JA;a, _ !a4cjc ( '全角或半角括号中的数字
gV .f*E1C .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$"
#7\b\~5 If regEX.Test(pTEXT) Then
{~nvs4X ParaType = "二级标题"
#gI&lO*\gr regEX.Execute (pTEXT)
\kk!Dz*H ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5")
bx7\QU+ TitleString = regEX.Replace(pTEXT, "$5")
WQ.i$ID/ TitleNo = regEX.Replace(pTEXT, "$2")
n7+aM@G Exit Sub
aG
Ef#A End If
?C~X@sq g 9|qbKQ:[ '阿拉伯数字 1. 2.
{Ve
D@ .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$"
mo* '"/ If regEX.Test(pTEXT) Then
C1D !
V: ParaType = "三级标题"
Q!x` M 4 regEX.Execute (pTEXT)
+ l.|kkZ? ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测
e2Ww0IK!E TitleString = regEX.Replace(pTEXT, "$3")
_iq2([Bp L TitleNo = regEX.Replace(pTEXT, "$1")
2R] XH
0 Exit Sub
IW] *i?L End If
Ft$^x- d S" {GlRpd '全角或半角括号中的阿拉伯数字
lDlj+fK .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$"
FbBX}n If regEX.Test(pTEXT) Then
lY->ucS %P ParaType = "四级标题"
[88{@) regEX.Execute (pTEXT)
blmmm(|~| ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5")
2x6<8J8v* TitleString = regEX.Replace(pTEXT, "$5")
sh y
TitleNo = regEX.Replace(pTEXT, "$2")
~BtKd* ~* Exit Sub
,{pGP # End If
-+
' #*V a! ?.F_T9A '表格名称
jPpRsw> .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$"
iz$FcA] If regEX.Test(pTEXT) Then
)+*{Y$/U ParaType = "表格标题"
v}&#f &q! regEX.Execute (pTEXT)
UE
{,.s ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3"))
b^%?S8]h TitleString = Trim(regEX.Replace(pTEXT, "$3"))
gj Q=8 &i TitleNo = Trim(regEX.Replace(pTEXT, "$1"))
@?Fx strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换
[='p!7 z Exit Sub
s1Okoxh/!V End If
OF
IMi ^@ LjC6?a_?l '图片名称
0w'|d@*wV .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$"
'}T;
b} &s If regEX.Test(pTEXT) Then
s{cKBau ParaType = "图片标题"
2@4x"F]U; regEX.Execute (pTEXT)
-$OD }5ku# ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3")
Dw*Arc+3V TitleString = regEX.Replace(pTEXT, "$3")
PlF!cr7:4 TitleNo = regEX.Replace(pTEXT, "$1")
@7 )Z Exit Sub
2k+= kt End If
q`cEA<~S n'ehB%" '参考文献
[ h^f% .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})" '[数字]、
C# ZhsWS!b If regEX.Test(pTEXT) Then
6{ C Fe|XN ParaType = "文献条目"
l`G(O$ct 'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4")
Et)9 20 'TitleNo = regEX.Replace(pTEXT, "[$2] ")
_ r~+p Exit Sub
m:b^,2"g End If
6 TY){P w T t`L(oF prfx = Left(pTEXT, 2)
yS+ ( < If prfx = "注：" Or prfx = "注:" Then
,7t3>9 -M" ParaType = "图表注解"
z;U LQ Exit Sub
W\'Nv/L End If
D9,e3.?p xkF$D:s P g%X &f_@ ParaType = "正文"
_IC,9bbg {zY`h6d End With
u >81dO]H End Sub
E Z..^M 3 L#`7 FaM? Sub ConvertListToOrdinary()
XynU/Go, Dim st As Paragraph
FT<H ]Nf With ActiveDocument
(LRNU)vD7$ For i = .Paragraphs.Count To 1 Step -1
nZ&T8@m Set st = .Paragraphs(i)
pn|p(6 lst = st.Range.ListFormat.ListString
2ve
lH; If lst <> "" Then
&K+ st.Range.ListFormat.RemoveNumbers
ss/h[4h4h st.Range.InsertBefore lst & " "
7Nd*,DV_ End If
Q^[e /U, Next
p}96uaC1 End With
E]\D>[0O Set st = Nothing
KlY,NSlQ End Sub
lt{lH
at1 `i=Jj gG@ Private Sub UserForm_Activate()
^GE^Q\&D& Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节"
)\0Ug7]? Me.lbTotal.Font.Bold = True
bd,Uz% o_ Me.txtStatus.Visible = False
P8"6"}B;T Me.cmdCheck.Enabled = True
1 % asx'^ ,tcP=f dk] End Sub
<V7SSm k& WS$R?u ]cn/(U` Sub CheckSuperScript()
45?*:)l: Selection.Find.ClearFormatting
\C!%IR Selection.Find.Replacement.ClearFormatting
x(rd$oZO With Selection.Find
S@9w'upd .Text = "[【\[［〖](*)[】\]〗］]"
f3/SO+Me} .Replacement.Text = "[\1]"
Hde]DK,d .Replacement.Font.Superscript = True
Po'-z<}wS '.Replacement.Font.Color = wdColorBlue
>_&~!Y.Z= .Forward = True
+ .S#= .Wrap = wdFindContinue
wT
B)v ! .FORMAT = True
a3Z :C!|O' .MatchCase = False
*~"zV`*Q .MatchWholeWord = False
C usVW .MatchByte = False
?@3#c .MatchAllWordForms = False
&/ sGh0 .MatchSoundsLike = False
5 ze`IY .MatchWildcards = True
P{" WlJ End With
ay=KfY5
Selection.Find.Execute Replace:=wdReplaceAll
r hi
S End Sub
zt-'
SY 7fap* Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
caGML|DeI bContinue = False
#.<*; rB Set regEX = Nothing
6e -#XCR{ End Sub
BP wI8\V aUKh}) B Sub CeateOrModifyStyle()
9B qQ^`bu '
UN-T ^ '
'.]e._T Dim stl As Style
7vi i9Am7 $?[ 1#% Options.Pagination = False
cSY2#u|v yB0jL:|a On Error Resume Next
X!,#'&p& For Each stl In ActiveDocument.Styles
8FB\0LA!g stl.Delete
fndK/~?]H Next
c_@XQ&DC` On Error GoTo 0
[SCw<<l< <P+G7!KZ& Set stl = Nothing
T g3:V D C<r(-qO{5 DoEvents
;[;)P tFz\ On Error Resume Next
R#"U/ 8b>z xIS\4]F?r ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph
u^}7Vs
.
]# Y| ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph
/d{g lOk ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph
//#x K D ^;0~6uBEJr ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph
70'} f ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph
Gojl0
? 'dmp4VT3 ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph
"} S9`-Wd| ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph
)9;
(>cdl ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph
?l6>6a 7 ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph
)$ ofl%+ ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph
66I |0_ ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph
}s`jl` `PM ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph
r
{pI-$ ,"P5D&,_ ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph
S1D 9AcK ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph
)p^m}N 6M] ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph
4y|xUO: ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph
4( ` 2# ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph
cxtLy& C @m+pr\h( ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph
]NaMZ On Error GoTo 0
2(c<U6#C'l DoEvents
EO4 " Z@ji X)`(nj 'BaseStyle
=giM@MV ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False
:SpG&\+ With ActiveDocument.Styles("BaseStyle").Font
Y&?|k'7 .NameFarEast = "宋体"
N,WI{* .NameAscii = "Times New Roman"
d%}crM-KTL .NameOther = "宋体"
8vz_~p9%j .Size = 10.5
z1Bj_u{ .Bold = wdUndefined
#2_o[/&}x@ .Italic = wdUndefined
anHBy SI3 .Subscript = wdUndefined
hKk\Y{wv' .Subscript = wdUndefined
]I {qp~^#n 844tXMtPB\ .Underline = wdUnderlineNone
c
JU!zG .UnderlineColor = wdColorAutomatic
O, bfdc[g4 .StrikeThrough = False
3R)cbwL .DoubleStrikeThrough = False
PphR4 sIM j[$B\H .Outline = False
N oX_? .Emboss = False
m&Y; /kr .Shadow = False
5 ?V?
.Hidden = False
t x:rj6 -z .SmallCaps = False
#JJp:S~` .AllCaps = False
c [wQJc .Color = wdColorAutomatic
ATYQ6E[{MV .Engrave = False
O ,Pl7x%tK .Scaling = 100
zCK y`u . .Kerning = 1
GN
htnB .Animation = wdAnimationNone
s`8M%ZLu .DisableCharacterSpaceGrid = False
ka?IX9t\ .EmphasisMark = wdEmphasisMarkNone
w5dI k]T End With
v$gMLu= With ActiveDocument.Styles("BaseStyle").ParagraphFormat
% j[O&[s}
.LeftIndent = 0
Z$OF|ZZQ .RightIndent = 0
;4-p upK~% .SpaceBefore = 0
2x<Qt2" .SpaceBeforeAuto = False
,Az`6PW .SpaceAfter = 0
/RA1d<~$q .SpaceAfterAuto = False
]wkSAi5z* "!%w9 .LineSpacingRule = wdLineSpaceSingle
&%f
]-=~ .Alignment = wdAlignParagraphJustify
)8 "EI-/. }@ O| RkY .WidowControl = False
s
T
:tFK\ .KeepWithNext = False
!wLH&X$XT .KeepTogether = False
%{N$1ht^ .PageBreakBefore = False
nLFx/5sL .NoLineNumber = False
@e.OU(Bf G 1#Bb5q: .FirstLineIndent = CentimetersToPoints(0)
z:ru68 .OutlineLevel = wdOutlineLevelBodyText
AiyvHt .CharacterUnitLeftIndent = 0
f>\bUmk( .CharacterUnitRightIndent = 0
Vq\ . .!y .CharacterUnitFirstLineIndent = 0
PBxK
>a .LineUnitBefore = 0
v @$evmA .LineUnitAfter = 0
-!C
Y,'3 .AutoAdjustRightIndent = True
M5cOz|j/*R .DisableLineHeightGrid = True
Z30z<d,j $L<_uqSk .FarEastLineBreakControl = True
5 `{|[J_[ .WordWrap = True
?l\gh1{C .Hyphenation = False
%# Wg^l
' .T#y N\S1 .HangingPunctuation = True
_ e:5XQ .HalfWidthPunctuationOnTopOfLine = True
Kc JP^ .AddSpaceBetweenFarEastAndAlpha = True
c :?#zX .AddSpaceBetweenFarEastAndDigit = True
9I`Mm}v@ .BaseLineAlignment = wdBaselineAlignBaseline
Wvut) T End With
)}k?r5g ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False
O?j98H
Sya ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll
CfkNy[}= ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese
RS ||KA])J ActiveDocument.Styles("BaseStyle").NoProofing = False
L#7)X5a__ [x$eF~Kp '一级标题题样式
-CU7u=*b ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
O, ``\(P ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle"
s{"`=dKT ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False
F 653[[eQ With ActiveDocument.Styles("QLNU一级标题").Font
i">z8?qF .NameFarEast = "黑体"
hVT=j ?~ .NameAscii = "Arial Black"
`L"p)5H .NameOther = "黑体"
N1s $3Ul .Name = "黑体"
TzevC$m;z .Size = 16 '三号
;G4HMtL .Bold = True
L!8 - :)0b .Italic = wdUndefined
(2O} B.6 .Subscript = wdUndefined
[/+dHW| .Superscript = wdUndefined
I9*BENkR End With
zgq_0w~X With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat
"x:)$@ o/ x5
.LeftIndent = CentimetersToPoints(0)
=Xa cG}_ .RightIndent = CentimetersToPoints(0)
|oBdr yi .FirstLineIndent = CentimetersToPoints(0)
a! 0?L0_W& T4H oSei .LineSpacingRule = wdLineSpaceSingle
_M"$5
T .Alignment = wdAlignParagraphCenter
2#n$x*CY G> q{~HE1 .WidowControl = True
*&h XJJ[+ .KeepWithNext = True
7G>0,'XC
.KeepTogether = True
~P]HG;$?n .OutlineLevel = wdOutlineLevelBodyText
-h G 9 _} X`t8L h .LineUnitBefore = 0.5
Z0F>"Z _qn .LineUnitAfter = 0.5
TN |{P End With
l|ZzG4]+l ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False
9?}rp A`P ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll
H
z3 S^o7 ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese
$@u^Jt, ? ActiveDocument.Styles("QLNU一级标题").NoProofing = True
1VjeP
* DoEvents
qh)!| B -9H!j4]T? '二级
N}l]Ilm$34 ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
3Q*RR"3 ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle"
uZ0 $s$ ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False
S\
v&{ With ActiveDocument.Styles("QLNU二级标题").Font
n6%jhv9H .NameFarEast = "黑体"
;8;~ C " .NameAscii = "Arial Narrow"
tRUs Zl .NameOther = "黑体"
'a-5 U
TT .Name = "黑体"
*nsnX/e(- .Size = 15 '小三号
,8J*S .Bold = False
9$P l'>5 .Outline = False
F'5d\ v .Italic = wdUndefined
[#Nx> R Y .Subscript = wdUndefined
n7, 6a .Superscript = wdUndefined
?CUp&L0-" End With
: S+U}Sm[ With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat
?^yh5
.LeftIndent = CentimetersToPoints(0)
-YRL> ]1 .RightIndent = CentimetersToPoints(0)
Y%CL@G60 .FirstLineIndent = CentimetersToPoints(0)
/[ 0 /8f6 e@2Vn? 5 .LineSpacingRule = wdLineSpaceSingle
LHHDt<+B .Alignment = wdAlignParagraphLeft
vq0M[V y E!}-qbH^ .WidowControl = True
WW\)B -}T .KeepWithNext = True
dnX`
F5z d .KeepTogether = True
e}Af"LI .PageBreakBefore = False
vZ nO .OutlineLevel = wdOutlineLevelBodyText
|{ /O)3 wh7a| .LineUnitBefore = 0.5
Y3MR:{} .LineUnitAfter = 0.5
vn%U;} h[`Op#^x3 End With
Eps\iykB ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False
tFST.yT>zg ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll
bJ,=yB+0 ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese
[>J~M!yu:r ActiveDocument.Styles("QLNU二级标题").NoProofing = True
{ZsWZ J! DoEvents
eV CkPv * 0p>:r
U~ '三级标题样式
6B;_uIq5 ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
FvI0 J
ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle"
dVmAMQk.g ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False
{u_k\m[Y With ActiveDocument.Styles("QLNU三级标题").Font
4|Gs(^nU .NameFarEast = "宋体"
%*Z2Gef?H .NameAscii = "Times New Roman"
}PIGj} F/ .NameOther = "黑体"
;DgX"Uzm .Name = "黑体"
9CU6
o:'fW .Size = 14 '四号
ik:)-GV;s .Bold = False
3~3(G[w .Outline = False
dI0>m:RBz .Italic = wdUndefined
D 917[ <$ .Subscript = wdUndefined
pXT$Y8M .Superscript = wdUndefined
Fx88 R ! End With
f/[?5M[ With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat
;AL @<,8 .LeftIndent = CentimetersToPoints(0)
tCCi|*P
G .RightIndent = CentimetersToPoints(0)
iB`WXU .FirstLineIndent = CentimetersToPoints(0)
Ye=7Y57Nr |7Xpb
.LineSpacingRule = wdLineSpaceSingle
mKFHT .Alignment = wdAlignParagraphLeft
7E75s)KH !qGx (D{\ .WidowControl = True
(Q]Y>
' .KeepWithNext = True
4\'81"e i .KeepTogether = True
dG~B3xg;5i .PageBreakBefore = False
??%T .OutlineLevel = wdOutlineLevelBodyText
R A
uAIiQ d7K17KiC .CharacterUnitLeftIndent = 0
>->xhlL* .CharacterUnitRightIndent = 0
>*i8RqU .CharacterUnitFirstLineIndent = 2
#2vG_B<M) HAUTCX .LineUnitBefore = 0.5
-Is dU7} .LineUnitAfter = 0
M Xt + End With
]S2[e S
ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False
gS< {ekN ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll
pS@VLXZP ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese
:-W CW);N ActiveDocument.Styles("QLNU三级标题").NoProofing = True
J gv>$u DoEvents
`~+a=Q -^xKG'uth '四级标题样式
[U7,\o4w ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
OTHd1PSOu ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle"
k -DB~-L ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False
`# M.t);^ With ActiveDocument.Styles("QLNU四级标题").Font
U*fj5 .NameFarEast = "宋体"
}!7D F .NameAscii = "Times New Roman"
k$x
'v# .NameOther = "宋体"
8 8 =c3^ .Name = "宋体"
4 C9"Q,o%& .Size = 12 '小四号
:8| 3V~%m .Bold = True
*Qwhi&k .Outline = False
KRR^? .Italic = wdUndefined
|`;1p@w" .Subscript = wdUndefined
^sn>p}Tg .Superscript = wdUndefined
8qYG l ew, End With
%b%<g%@i With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat
f`]E]5? nIKT w .LeftIndent = CentimetersToPoints(0)
(kNTX hAr4 .RightIndent = CentimetersToPoints(0)
M^Ay,jK! .FirstLineIndent = CentimetersToPoints(0)
2l/5i]Tq +?txG HQq .LineSpacingRule = wdLineSpaceSingle
C\ >Mt .Alignment = wdAlignParagraphLeft
3k[<4- VJtTbt;> .WidowControl = True
f5qHBQ .KeepWithNext = True
D& 6Qk&> .KeepTogether = True
I
3,e)Z .PageBreakBefore = False
DoB3_=yJ+ .OutlineLevel = wdOutlineLevelBodyText
@C [|'[xQ G@<lwnvD*J .CharacterUnitLeftIndent = 0
\C2P{q/m .CharacterUnitRightIndent = 0
uZ?CVluP .CharacterUnitFirstLineIndent = 2
70*iJ^| U
<$xp .LineUnitBefore = 0
Wu;|(2I .LineUnitAfter = 0
|afK"N 7{ 6.
End With
o-<_X&"a|5 ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False
-j=& J8Za ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll
=2)$|KC ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese
/(pD^D ActiveDocument.Styles("QLNU四级标题").NoProofing = True
z,x"vK( DoEvents
OQ&D?2r 0uJzff!| '正文校式
DCzPm/#b ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle")
gsm^
{jB ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle"
)MW}!U9G ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False
}' 0Xz9/ l With ActiveDocument.Styles("QLNU正文").Font
,u^0V"hJ C2|2XL'l(C .NameFarEast = "宋体"
;Y&?ixx .NameAscii = "Times New Roman"
XaS_3d .NameOther = "宋体"
3$y L+%i .Name = "宋体"
@`8 B}
C NITx;iC .Size = 12 '小四号
z'D{:q q]%bd[zkz .Bold = wdUndefined
Fsj&/:
q .Italic = wdUndefined
^(JbJ@m/ .Subscript = wdUndefined
F j('l .Superscript = wdUndefined
N4DDH^h lR2;g:& H .Outline = False
L[r0 UXYLV .Emboss = False
+9F#~{v`4a .Shadow = False
KXfW&d(Pk .Hidden = False
>!F ,y3"5S r<N*N,~ .DisableCharacterSpaceGrid = True
^? xJpr%) End With
>^GCSPe With ActiveDocument.Styles("QLNU正文").ParagraphFormat
g E+OQWu K 0H!Ds9 .LeftIndent = CentimetersToPoints(0)
J6Nw- qF .RightIndent = CentimetersToPoints(0)
T*~)9o .FirstLineIndent = CentimetersToPoints(0)
"?&bh@P& 2965 7k8 .LineSpacingRule = wdLineSpaceExactly
#TwE??ms .LineSpacing = 20
& u\z
T
P .Alignment = wdAlignParagraphLeft
xt0j9{ p T`{MQ:s .WidowControl = False
I>o;
%}
.KeepWithNext = False
|(v=1 #i .KeepTogether = False
TZyQOjUu .PageBreakBefore = False
7kpW 1tjY .Hyphenation = False
0F'UFn>{ rAw1g,& .OutlineLevel = wdOutlineLevelBodyText
_`[6jhNa! |&'] ms5J
QLU; .& .CharacterUnitLeftIndent = 0
!Jn w_ ) .CharacterUnitRightIndent = 0
Y]Vc}-a(h .CharacterUnitFirstLineIndent = 2
Zw \V}uXI? <+,0 G` .LineUnitBefore = 0
HMd )64( .LineUnitAfter = 0
"Am0.c/ .SpaceBefore = 0
cB=u;$k@* .SpaceAfter = 0
3CPO ZZ Ic!83- .DisableLineHeightGrid = True
B2WX#/ lgd End With
4EbiCSo ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False
o"M^ sKz47 ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll
U (7P X`1 ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese
2Lgvy/uN ActiveDocument.Styles("QLNU正文").NoProofing = True
arL&^]JnZ, DoEvents
|Z| xM
tg3JU\ '图片段落样式
O t<%gj;^ ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle")
pv SFp-:_ ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle"
o`! :Q!+ ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False
Cfb-:e$0 With ActiveDocument.Styles("QLNU图片段落").Font
F+S#m3X .Size = 12 '小四号
''E c-b6Q- .Italic = wdUndefined
/O9EI'40) .Subscript = wdUndefined
E'6P>6l5 .Superscript = wdUndefined
DC7}Xly( End With
=U`c
}dhS With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat
K"$ky,tU F
<Z=%M3e .LeftIndent = CentimetersToPoints(0)
^WPV .RightIndent = CentimetersToPoints(0)
$KHD S:& .FirstLineIndent = CentimetersToPoints(0)
U%\2drM&] zN JyF;3 .LineSpacingRule = wdLineSpaceSingle
(kOv .Alignment = wdAlignParagraphCenter
Vn; ] ''_ .KeepWithNext = True
oHnpw U .OutlineLevel = wdOutlineLevelBodyText
()
;7+ I;:_25WGC .CharacterUnitLeftIndent = 0
gdN p2b .CharacterUnitRightIndent = 0
j&GKp t .CharacterUnitFirstLineIndent = 0
K): sq{ bl-s0Ax- .LineUnitBefore = 0
Nj 8)HR .LineUnitAfter = 0
$0 zL End With
|T&#"q,i9% ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False
Lb 4!N` l ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll
. tsB$,/ ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese
cs; Gk: ActiveDocument.Styles("QLNU图片段落").NoProofing = True
RUh{^3;~ DoEvents
u Aa>6R 7Apbi}")
PQ]N>'v- '第X章
%'O(Y{$Y. ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
B*N 8:u ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle"
lf# six ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False
M'7x:Uw; With ActiveDocument.Styles("QLNU章节标题").Font
)!72^rl .NameFarEast = "黑体"
ovFfTP<3V .NameAscii = "Arial Black"
s
>I}-=.(Q .NameOther = "Arial Black"
zZiV BUmE< .Name = "黑体"
dL)5~V8s .Size = 16
wuQkeWxJ .Bold = True
YWFHiB7x .UnderlineColor = wdColorAutomatic
f+AIxSw .Outline = False
`" Pd$jW .Italic = wdUndefined
"ZW* O{ .Subscript = wdUndefined
SX;IUvVE5 .Superscript = wdUndefined
y-k-E/V} .Scaling = 100
iO`f{?b .DisableCharacterSpaceGrid = True
Lr&BZM End With
-;z\BW5 y With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat
vdzC2T .LineSpacingRule = wdLineSpaceSingle
-
[j0B|cwG .Alignment = wdAlignParagraphCenter
{v(|_j&:o .WidowControl = True
)6WU&0>AU8 .KeepWithNext = True
Z3{Qtysuv3 .KeepTogether = True
3i~{
x[Jc .PageBreakBefore = True
! iqz 4E .OutlineLevel = wdOutlineLevelBodyText
u\?u}t v 75i)$}_1B .LeftIndent = CentimetersToPoints(0)
bNgcZ
V. .RightIndent = CentimetersToPoints(0)
J1t?Qj;f3 .FirstLineIndent = CentimetersToPoints(0)
*n5g";k| ABGL9;.8 .CharacterUnitLeftIndent = 0
o *'3N/D~ .CharacterUnitRightIndent = 0
WU_Q
7%+QS .CharacterUnitFirstLineIndent = 0
ep|u_|sB/r R8*4E0\ br .LineUnitBefore = 1
e~dU " .LineUnitAfter = 0.5
$y}Tbm ljmHX2p .AutoAdjustRightIndent = False
g' E^@1{ .DisableLineHeightGrid = True
/ KM+PeO .FarEastLineBreakControl = True
!<ucw WY, .WordWrap = True
5S bSz!s`$ End With
8~&v\GDkF ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False
t-/^ O ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll
(@9}FHJzi ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese
u}_q'=<\ ActiveDocument.Styles("QLNU章节标题").NoProofing = True
]d FWIvC DoEvents
2=RDAipf59 Jo]g{GX[ '表格标题
n2~rrQ
\/p ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
U qbE ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle"
%+}\i'j7 ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False
-xlI'gNg7 With ActiveDocument.Styles("QLNU表格标题").Font
3{z }[@N .NameFarEast = "楷体"
>EjBk nl .NameAscii = "Arial"
_qfdk@@g .Name = "楷体"
l|9`22 G .Size = 10.5
QH :i)v* .Bold = True
V,}cDT> .Underline = wdUnderlineNone
i8F~$6C .Italic = wdUndefined
(?(ahtT4T .Subscript = wdUndefined
Emo]I[<&q .Superscript = wdUndefined
UPsh Y .Color = wdColorAutomatic
de[_T%A End With
J u7AxTf~
With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat
[gDvAtTZ5 wqsnyP/m .LineSpacingRule = wdLineSpaceSingle
K\PS$ .Alignment = wdAlignParagraphCenter
EBm\rM8 .KeepWithNext = True
w *0T"hK .KeepTogether = True
h/ic-iH(> .OutlineLevel = wdOutlineLevelBodyText
ezeGw?/ TkykI .LeftIndent = CentimetersToPoints(0)
+8"H%#~ .RightIndent = CentimetersToPoints(0)
URwFN OM2 .FirstLineIndent = CentimetersToPoints(0)
= n!8>8d Sw ~<W%! ? .CharacterUnitLeftIndent = 0
N?p $ -{ .CharacterUnitRightIndent = 0
-xXM/3g1u .CharacterUnitFirstLineIndent = 0
E#OKeMK @ M-bE= .LineUnitBefore = 1
_G42|lA$/ .LineUnitAfter = 0
UNJ|J$T] qabM@+ m[ End With
IiL?@pIq ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False
+%^D) ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll
[z?XVl< ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese
2C>Px A6l ActiveDocument.Styles("QLNU表格标题").NoProofing = True
&q+ %OPV DoEvents
Z|.. hZG XOo N D
'表格首行
:iJ= 9 ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle")
TG($l2 ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False
%pdfGM 9g With ActiveDocument.Styles("QLNU表格首行").Font
aOOY_S
E .NameFarEast = "楷体"
aG!! z> .NameAscii = "Times New Roman"
uG<+IT|x .Name = "楷体"
g6S8@b))| .Size = 9
;J<kG@ .Bold = True
/D~ :Ufw .Underline = wdUnderlineNone
59LIK&w .Italic = wdUndefined
iJAW| dw} .Subscript = wdUndefined
^,50]uX_ .Superscript = wdUndefined
zuOIos
End With
7~
2X/ With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat
%PQC9{hUy$ .LineSpacingRule = wdLineSpaceSingle
H$ v4N8D8I .Alignment = wdAlignParagraphCenter
n*V^Q f l#%w,gX .LeftIndent = CentimetersToPoints(0)
F!U+IztZ .RightIndent = CentimetersToPoints(0)
cCwT0O#d .FirstLineIndent = CentimetersToPoints(0)
a)xN(xp## _-^@Jx[ r\yj$Gu>( .CharacterUnitLeftIndent = -0.5
6sntwT"? .CharacterUnitRightIndent = -0.5
7dLPy[8";t .CharacterUnitFirstLineIndent = -0.5
ky*-_ F4@h} T5) .LineUnitBefore = 0
SYyH_0N .LineUnitAfter = 0
"8N]1q:$4 .SpaceBefore = 0
uE>}>6)b .SpaceAfter = 0
xH0Bk<`V: @$aCUJ/mE End With
6w5 4+n ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False
V 9+7A ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll
OLv ( ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese
jtA
Yp3M-$ ActiveDocument.Styles("QLNU表格首行").NoProofing = True
3Vhm$y%Td DoEvents
1}N5WBp 'tOo0Zgc '表格内容
?x:\RNB/ ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle")
mZORV3bN ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False
} [1I_) With ActiveDocument.Styles("QLNU表格内容").Font
n1v%S"^ .NameFarEast = "楷体"
Z0x N 9S .NameAscii = "Times New Roman"
V'_^g7}l& .Name = "楷体"
.DT1Jvl .Size = 9
lA{Sr0f TP .Bold = False
?qdG)jo= .Underline = wdUnderlineNone
Ts^IA67&< .Italic = wdUndefined
UO</4WJ .Subscript = wdUndefined
sI`Lsd'V .Superscript = wdUndefined
/1h`O@VA End With
8d-; ;V With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat
25l6@7q. .LineSpacingRule = wdLineSpaceSingle
1T %Y:0 .Alignment = wdAlignParagraphCenter
kN`[Q$B ^v}Z5,a N .LeftIndent = CentimetersToPoints(0)
% rdW: .RightIndent = CentimetersToPoints(0)
WnLgpt2G .FirstLineIndent = CentimetersToPoints(0)
h76#HUBr! f/Grem .CharacterUnitLeftIndent = -0.5
V3$!`T}g4 .CharacterUnitRightIndent = -0.5
b )en/mz .CharacterUnitFirstLineIndent = -0.5
jHT 4I>\ .LineUnitBefore = 0
.hg<\-:_ .LineUnitAfter = 0
H
#J"' .SpaceBefore = 0
:u'X
~ID[ .SpaceAfter = 0
}y LdU|'W End With
; QR|v ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False
022YuqL<v ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll
gu /eC ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese
Gu V -[ ActiveDocument.Styles("QLNU表格首行").NoProofing = True
;} gvBI2e DoEvents
,YSQ og k1L GT& '图片标题
}Tu_?b`RUm ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
n #p6i ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle"
bFVz ; ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False
-]Z!_[MlDF With ActiveDocument.Styles("QLNU图片标题").Font
vROl}s; .NameFarEast = "楷体"
8doT`rI1 .NameAscii = "Times New Roman"
UX41/# 4 .Name = "楷体"
L:`|lc=^ .Size = 10.5
U# -&%|b$ .Bold = True
~1S7\e7{ .Underline = wdUnderlineNone
A~ '2ki5$g .Italic = wdUndefined
`kwyF27v] .Subscript = wdUndefined
B+jT|Y' .Superscript = wdUndefined
.!U `,)I .Outline = False
XU2 HWa .Shadow = False
nOk
X: 5 .Color = wdColorAutomatic
!}"npUgE End With
!__f With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat
Umv _{n` .LineSpacingRule = wdLineSpaceSingle
; G0~f9
.Alignment = wdAlignParagraphCenter
S5" xb K^J;iu 4 .KeepWithNext = wdUndefined
XEfTAW#7 .KeepTogether = True
t}cj8DC! .OutlineLevel = wdOutlineLevelBodyText
wC{ =o`v ~"gOq"y 5p .LeftIndent = CentimetersToPoints(0)
L -b~# .RightIndent = CentimetersToPoints(0)
u,PrEmy- .FirstLineIndent = CentimetersToPoints(0)
m,K\e H5, { Z .CharacterUnitLeftIndent = 0
=V"ags .CharacterUnitRightIndent = 0
L
FHyiIO .CharacterUnitFirstLineIndent = 0
@IB8(TZ5I "3Dvc7V .LineUnitBefore = 0
VDPqI+z .LineUnitAfter = 0
k5w+{iOh End With
|QAmN> 7U ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False
8 <^[ xe ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll
zO2 <Igb ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese
18}L89S> ActiveDocument.Styles("QLNU图片标题").NoProofing = True
bsr DoEvents
cOOPNa>5_ l2 gI2Cioa '目录项
&m'O :ZS2 ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle")
PX?tD:,[- ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle"
YC h!D dy ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False
iFF/[P With ActiveDocument.Styles("QLNU目录项").Font
1Lqs>* .NameFarEast = "黑体"
=WyAOgy} .NameAscii = "Times New Roman"
/#
0@C[9 .NameOther = "Times New Roman"
OA%.>^yb @ .Name = "黑体"
p J+>qy5 .Size = 10.5
/p<mD-:.M .Bold = False
\Y>^L{ .Italic = wdUndefined
1ikkm 7 .Underline = wdUnderlineNone
qlPjz*<h"H .Color = wdColorAutomatic
^[&*B#( .Superscript = wdUndefined
)09_CC!a .Subscript = wdUndefined
cn<9!2a End With
$ n n4 With ActiveDocument.Styles("QLNU目录项").ParagraphFormat
q<o A%yR 36J)O-Ti .LineSpacingRule = wdLineSpaceSingle
{
zlq 6z .Alignment = wdAlignParagraphLeft
7
; T S 4d!&.Qo9 .WidowControl = False
Z6K9E=%)c .KeepWithNext = False
t^8#
~o!% .KeepTogether = False
@a%,0 Wn .PageBreakBefore = False
LMsb TF@E .NoLineNumber = False
A"vI6u d> .OutlineLevel = wdOutlineLevelBodyText
-
CM; sXq :eHh } .LeftIndent = CentimetersToPoints(0)
xqP0Z) ,Ow .RightIndent = CentimetersToPoints(0)
~`*:E'/5k] .FirstLineIndent = CentimetersToPoints(0)
"9LPq m"86O:S#d .CharacterUnitLeftIndent = 0
],H%u2GE_ .CharacterUnitRightIndent = 0
MMhd -B1O& .CharacterUnitFirstLineIndent = 0
n0 !S;HH-
gJs~kQU .LineUnitBefore = 0
i;6\tK"! .LineUnitAfter = 0
pRMM1&H End With
5 kC#uk ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False
t,k9:p ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll
D@DK9 ?# ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot
5Tn4iyg;B ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese
[0/ ? (i| ActiveDocument.Styles("QLNU目录项").NoProofing = True
; wW6x DoEvents
(>WV) *eUL1
m8Y '参考文献
86R}G/>>e ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle")
-6+HA9zz@C ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle"
pNVao{::5 ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False
G|
3OB: With ActiveDocument.Styles("QLNU参考文献").Font
: JW~$4 .NameFarEast = "宋体"
"q#(}
1Zd .NameAscii = "Times New Roman"
y ,Dfqt .NameOther = "Times New Roman"
, LcMNP r .Name = "Times New Roman"
C$ZY=UXz!T .Size = 12
s15f <sp .Bold = False
>f`}CLsY .Italic = wdUndefined
s Uj#:X .Subscript = wdUndefined
f8[2$i*cL .Superscript = wdUndefined
yQou8P=% .Underline = wdUnderlineNone
c v#H .UnderlineColor = wdColorAutomatic
JN|<R%hy .Color = wdColorAutomatic
o<V-gS .Engrave = False
g] (m& O End With
<@JU0Z"a= With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat
#GWQ]r?
[POy" O .LineSpacingRule = wdLineSpaceExactly
>4h4t/G .LineSpacing = 16
y)s/\ l& .Alignment = wdAlignParagraphLeft
Ig
N,]y .WidowControl = False
e m>CSBx .KeepWithNext = False
Yd/qcC(& .KeepTogether = False
fF-V=Zf5 .PageBreakBefore = False
:^l*_v{ .OutlineLevel = wdOutlineLevelBodyText
;`F0
%0d !Z4,U Tu|Q .LeftIndent = CentimetersToPoints(0)
?$
Y E .RightIndent = CentimetersToPoints(0)
qIb(uF@l" .FirstLineIndent = CentimetersToPoints(0)
laFkOQI M~"]h:m&'v .CharacterUnitLeftIndent = 0
+X Y}- .CharacterUnitRightIndent = 0
dW: .CharacterUnitFirstLineIndent = -2
r 9 *{)" 0n(Q@O .LineUnitBefore = 0
~PoGuj2wA .LineUnitAfter = 0
0&5}[9?V' .SpaceBefore = 0
(\WePOy& .SpaceAfter = 0
5O*+5n
ve
K End With
vP,WV9Q1u ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False
*}mtVa_| ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll
RKj A`cJ ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS
-09<; U ActiveDocument.Styles("QLNU参考文献").NoProofing = True
(MxLw
:AV ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese
9wtl|s%A % DoEvents
\>YXPMIk j$8 ~M '
G i{1u}-0 ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle")
4pc =M R ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle"
]0`[L<_r ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False
t%FS 5 With ActiveDocument.Styles("QLNU论文题目").Font
'}!dRpx .NameFarEast = "黑体"
F." L{g .NameAscii = "Arial Black"
$&a`zffG .NameOther = "Arial Black"
D_, 2z .Name = "Arial Black"
SKcAZC .Size = 16
d]@9k G .Bold = False
0K#dWc}"a .Italic = wdUndefined
:;7q up .Superscript = wdUndefined
/iuk iWeW .Subscript = wdUndefined
CdEJ/G: .Underline = wdUnderlineNone
B<0lif| .UnderlineColor = wdColorAutomatic
[2&Fnmjk}X .Color = wdColorAutomatic
W?6RUyMC$T [q(7Jv End With
$6Ty~.RP5H With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat
<m )@~s?D .LineSpacingRule = wdLineSpaceSingle
Ue l*:c .Alignment = wdAlignParagraphCenter
;)cl Cm46 .WidowControl = True
,u\M7, a^ .KeepWithNext = True
@Z |cUHo .KeepTogether = True
kB :")$ .PageBreakBefore = True
fx_7B ( .NoLineNumber = False
vWj|[| <rX .OutlineLevel = wdOutlineLevelBodyText
F] ~`57 I[F.M}5:z .LeftIndent = CentimetersToPoints(0)
^l iyWl .RightIndent = CentimetersToPoints(0)
OSq"q-Q .FirstLineIndent = CentimetersToPoints(0)
D.\p7
NJ V qYe0-^=P .CharacterUnitLeftIndent = 0
w>m/c1 .CharacterUnitRightIndent = 0
4~1_%wb .CharacterUnitFirstLineIndent = 0
^M,Q<HL T> 1 E .LineUnitBefore = 1
Yoaz |7LS .LineUnitAfter = 1
KH[%HN5v { >4exyu6 .BaseLineAlignment = wdBaselineAlignAuto
T=>&`aZH End With
lYJ]W[! ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False
`FmI?:Cv ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll
rV1JJ.I ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS
) tsaDG-E ActiveDocument.Styles("QLNU论文题目").NoProofing = True
yfaXScbE ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese
UU A7m$F1 ActiveDocument.Styles("QLNU论文题目").NoProofing = True
J#JZ^59lOS DoEvents
AQ-PY vU~#6sl '中文摘要
}l_) d ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle")
i [FBll - ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle"
*8MU,6 ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False
D5U\~' {L With ActiveDocument.Styles("QLNU中文摘要").Font
cG ^
'Qm .NameFarEast = "宋体"
0iHK1Pt} .NameAscii = "Times New Roman"
Ai /a y# E .NameOther = "Times New Roman"
fe&K2C%bm .Name = "Times New Roman"
o[8Y %3 .Size = 12
H!
vvdp?Z .Bold = wdUndefined
> Y[{m $- .Superscript = wdUndefined
!O $EVl .Subscript = wdUndefined
IY :iGn8R .Italic = wdUndefined
|\,e9U> .Underline = wdUnderlineNone
h05
~ g .UnderlineColor = wdColorAutomatic
Q6DE|qnV
.Color = wdColorAutomatic
:~`E @`/ End With
LqU]&AAh With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat
!d"J,. ) .LineSpacingRule = wdLineSpaceExactly
`` zg |h .LineSpacing = 20
,.F,]m= .Alignment = wdAlignParagraphLeft
Gn&)*qCO <0Q`:'\.> .WidowControl = False
\|wV Ii .KeepWithNext = False
X hTp'2,] .KeepTogether = True
~>+}(%<, .PageBreakBefore = False
S . 1~# .NoLineNumber = False
cMtkdIO .OutlineLevel = wdOutlineLevelBodyText
+:oHI[1HG K
cY 2lTvx .LeftIndent = CentimetersToPoints(0)
jaNkWTm : .RightIndent = CentimetersToPoints(0)
"X }!j>- .FirstLineIndent = CentimetersToPoints(0)
)e Ub@ Eu >JnEhVRQJ9 .CharacterUnitLeftIndent = 0
("IRv>} 0 .CharacterUnitRightIndent = 0
*4WOmsj .CharacterUnitFirstLineIndent = 2
L,\ Yj .LineUnitBefore = 0
9[8?'`m .LineUnitAfter = 0
p
n'*w 1i ?p6+?\H End With
^oPf>\),C ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False
~
|fd=E% ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll
g.&&=T ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS
0M:.Jhp ActiveDocument.Styles("QLNU中文摘要").NoProofing = True
"-N%`UA ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese
'w!Hjq]$ ActiveDocument.Styles("QLNU中文摘要").NoProofing = True
&9TG&~(+ ActiveDocument.Styles("QLNU中文摘要").Frame.Delete
&Du !*V4A DoEvents
a0y;c@pkO 5\qoZs*e ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
%*:-4K ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle"
n,n]V$HFGh ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False
L?0dZY-" With ActiveDocument.Styles("QLNU英文标题").Font
+D$\^ <# .NameFarEast = "黑体"
^[d )Hk}L .NameAscii = "Arial Narrow"
.GkH^9THP .Name = "Arial Narrow"
r;}kw(ukC .Size = 16
a i}8+L8- .Bold = True
!3d +"tL
S .Bold = wdUndefined
a o\+%s .Superscript = wdUndefined
Qm ;ip E .Subscript = wdUndefined
/Nb& e .Italic = wdUndefined
gdHPi; F)
< f8F .Underline = wdUnderlineNone
- /KVZ .UnderlineColor = wdColorAutomatic
Fi1gM}>py .StrikeThrough = False
"(T @*"vX2 .DoubleStrikeThrough = False
;M\H#%G. End With
k\1q Jr With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat
d;)Im
" .LineSpacingRule = wdLineSpaceSingle
KxK$Y.y] .Alignment = wdAlignParagraphCenter
C:$ l H .WidowControl = True
[;#}Blb N .KeepWithNext = False
_s<eqCBV .KeepTogether = False
m9xO& @#vx .PageBreakBefore = False
O`~T:N| D .NoLineNumber = False
36.L1!d)pE .FirstLineIndent = CentimetersToPoints(0)
Q4q 3M=0 .OutlineLevel = wdOutlineLevelBodyText
" c}pY ^( Vc c/ .LeftIndent = CentimetersToPoints(0)
StaX~J6= .RightIndent = CentimetersToPoints(0)
c 7P "1 .FirstLineIndent = CentimetersToPoints(0)
[%z~0\lu8 z8jQaI]j .CharacterUnitLeftIndent = 0
tAc[r)xFw .CharacterUnitRightIndent = 0
V$ <
og .CharacterUnitFirstLineIndent = 0
VA .:'yQtJ vM|?;QM .LineUnitBefore = 1
#![b9~%WTh .LineUnitAfter = 1
7Bd vJ" Cc/?-0a2! End With
o= N=
W ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False
~kw[Aw3?D\ ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll
MQw{^6Z >1 ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS
LW0't}
z ActiveDocument.Styles("QLNU英文标题").NoProofing = True
w\s$ ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese
A2$:p$ [ ActiveDocument.Styles("QLNU英文标题").NoProofing = True
ImyB4welo ActiveDocument.Styles("QLNU英文标题").Frame.Delete
j<wWPv DoEvents
zeNvg/LI^ /dh w~| ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle")
pH' #v]" ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle"
ep>S$a*| ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False
U!^\DocAY With ActiveDocument.Styles("QLNU英文摘要").Font
:Uj+iYE8Z8 .NameFarEast = "宋体"
Ah) _mxK .NameAscii = "Arial"
.B_) w:oF .NameOther = "Arial"
vR-rCve$P .Name = "Arial"
|oC&;A .Size = 12
jZ7#xRt5w .Bold = wdUndefined
:C_\
.pA .Italic = wdUndefined
jQC6N#L .Superscript = wdUndefined
FC/m,D50oI .Subscript = wdUndefined
7*~
rhQ End With
w\8grEj Cf
J@| Rh With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat
kbBX\*{yh L :%;
Fx2 .LineSpacingRule = wdLineSpaceExactly
$kvF]|<bu .LineSpacing = 20
_~| j~QE] vw>O;u.]B .Alignment = wdAlignParagraphJustify
4 Z1- RS v8Bi 1,g .WidowControl = False
D8C@ x` .KeepWithNext = False
a[[u>oHyd .KeepTogether = False
<eI7xifD .PageBreakBefore = False
VQ{}S $jQ .NoLineNumber = False
thl{IU d]$z&E .OutlineLevel = wdOutlineLevelBodyText
=-1d m+P
O jr {z .LeftIndent = CentimetersToPoints(0)
(,[m}Qb?! .RightIndent = CentimetersToPoints(0)
%AXa(C\1 .FirstLineIndent = CentimetersToPoints(0)
Cd"O'<^Sb Iy6 "2$%a .CharacterUnitLeftIndent = 0
OjJKloy' .CharacterUnitRightIndent = 0
b~y1'|}g .CharacterUnitFirstLineIndent = 2
2.Th29] tB8X n O_c .LineUnitBefore = 0
a>(LFpVk } .LineUnitAfter = 1
}< 9*eAn` |9{l8`9}_ End With
W5<1 @ ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False
g\OPidY ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll
Ah iZ0W" ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS
CJ%bBL'. ActiveDocument.Styles("QLNU英文摘要").NoProofing = False
u
B~
/W DoEvents
$DJp|(8 .3 m^yo
c/ Options.Pagination = True
4%aODr 8 Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....."
? D2:'gg DoEvents
2_
< ActiveDocument.Repaginate
)PVX)2P_C 593
D/^}D End Sub
l5l: 'EY> (S&X??jfB5 yOxJx7uD
