Dim bContinue As Boolean
^AP PWQUl 7;0$UYDU* Dim regEX As New RegExp
K??(>0Qr}r Dim paraCounter As Long '全局段落计数，仅在主程序中可读写，其它过程函数应为只读
3i1e1 Lj1 EG=~0j ~ Dim LastTitle0String As String, LastTitle0No As Long
fsd,q?{a: Dim LastTitle1String As String, LastTitle1No As Long
K(bid0 Y Dim LastTitle2String As String, LastTitle2No As Long
7i(U?\A;. Dim LastTitle3String As String, LastTitle3No As Long
vb^/ DMhz Dim LastTitle4String As String, LastTitle4No As Long
O #[+=
^ Dim LastTitle5String As String, LastTitle5No As Long
~Q<
h,P Dim LastTabelString As String, LastTableNo As Long
rBNl%+ sB Dim LastFigureString As String, LastFigureNo As Long
#r{`Iv ?nn `Hj{XIOx Dim strSeperator As String
)Pr*\<C ld 6,Aj5jG Sub ConvertWidth(fTEXT As String, rText As String)
!<` }m E!: Selection.Find.ClearFormatting
3O % u? Selection.Find.Replacement.ClearFormatting
$TU)O^c Selection.Find.Wrap = wdFindContinue
['1JN UX Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText
:
&! >.Y DoEvents
jm~(O
Lg Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True
< zUU` End Sub
[fVtQ@-S! )0F\[Jl} Sub ClearDomain()
)X-~+X91 S With Selection.Find
M PSoRA: h .ClearFormatting
X{2))t%
.Replacement.ClearFormatting
t<sy7e=' .Wrap = wdFindContinue
Py?EA*(d# Me.txtStatus.Text = "清除所有域代码"
d3% 1 P)
DoEvents
QN!.~> .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False
lJZ-*"9 V End With
T
h"0 Cc) End Sub
g+CTF 67 >v1E ;-ZA Private Sub cmdCheck_Click()
$:&?!>H bContinue = True
MZ9{*y[z Dim NoSeries1(1 To 16) As String
F"2rX& W Dim NoSeries2(1 To 16) As String
6k14 xPj Dim NoSeries5(1 To 16) As String
T\
}? Dim NoSeriesRM(1 To 16) As String
dt -EY Dim paraTotal As Long, ParaText As String
H# P)n
R
M Dim ttString As String, ttNo As String
kFCjko 9hoTxWpmy Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long
x.gRTR`7( `{1` >5 Me.txtStatus.Visible = True
(jQ]<q%P Me.lbParaType.Visible = True
/ eFudMl Me.cmdCheck.Enabled = False
R^t
)~\d Hzos$1DJ <$m=@@qg d:|(l^]{r UC@ &! kM Dim ParaType As String, rText As String
x[%z \ a-nf5w>&q Selection.WholeStory
`8 Q3= ^)3 Selection.NoProofing = True
e* 2ay1c 2VSs#z! tm1 = Now
x !)[l; PH,MZ "Z% ActiveWindow.View.Type = wdNormalView
!\e&7sV~Q /%O+]#$`0 NoSeries1(1) = "一"
G'>?/l# NoSeries1(2) = "二"
E]Wnl\Be NoSeries1(3) = "三"
}v zZWe NoSeries1(4) = "四"
z 'iA j NoSeries1(5) = "五"
-s ] NoSeries1(6) = "六"
Xgq-r $O2X NoSeries1(7) = "七"
z>n<+tso NoSeries1(8) = "八"
'V H%cz* NoSeries1(9) = "九"
|q0MM^%" NoSeries1(10) = "十"
o XKH , r NoSeries1(11) = "十一"
ZmT
N NoSeries1(12) = "十二"
q ER dQ~M, NoSeries1(13) = "十三"
SM3qPlsF NoSeries1(14) = "十四"
^Ob#B!= NoSeries1(15) = "十五"
3WH"NC-O< NoSeries1(16) = "十六"
g 7>p, |j i={ NoSeries2(1) = "㈠"
4q<LNvJA NoSeries2(2) = "㈡"
xRTr< j0s NoSeries2(3) = "㈢"
CqF= 5z:A NoSeries2(4) = "㈣"
KDt@Xi 6|| NoSeries2(5) = "㈤"
W_]Su NoSeries2(6) = "㈥"
Y$ tg
z) NoSeries2(7) = "㈦"
<OYy ;s NoSeries2(8) = "㈧"
oh>X/uj NoSeries2(9) = "㈨"
^
W/,Z` NoSeries2(10) = "㈩"
FrPpRe %! hSBR9g NoSeries5(1) = "①"
C3m](% ? NoSeries5(1) = "②"
:#yjg1aej NoSeries5(3) = "③"
-;VKtBXP</ NoSeries5(4) = "④"
y[L7=Td NoSeries5(5) = "⑤"
\W^+aNbv=8 NoSeries5(6) = "⑥"
_dg2i|yP< NoSeries5(7) = "⑦"
d5b \kR r NoSeries5(8) = "⑧"
7&I+mw/ X NoSeries5(9) = "⑨"
Yh^~4S? NoSeries5(10) = "⑩"
(YOp 6[iu CMOZ jg,oGtRz NoSeriesRM(1) = "I"
0u,OW NoSeriesRM(2) = "II"
,7wxVR%Ys NoSeriesRM(3) = "III"
T[$! ^WT NoSeriesRM(4) = "IV"
$ U~3$*R NoSeriesRM(5) = "V"
aWtyY[= NoSeriesRM(6) = "VI"
O(
P
,! NoSeriesRM(7) = "VII"
Kz v*` NoSeriesRM(8) = "VIII"
^N{L au NoSeriesRM(9) = "IX"
hvc%6A\nm NoSeriesRM(10) = "X"
=%wwepz 6 NoSeriesRM(11) = "XI"
_b ~XBn NoSeriesRM(12) = "XII"
*{/L7])gm NoSeriesRM(13) = "XIII"
\QpH~&QIS NoSeriesRM(14) = "XIV"
.bwK G`F NoSeriesRM(15) = "XV"
.1O
NoSeriesRM(16) = "XVI"
NZj_7j|o9 NrC (.*?m i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo)
>icL, n"] GQU 9UXe If i = vbNo Then
Gp
< 7
i5 Exit Sub
%cPz>PTW@ End If
muD7+rn?& Hcts ^zm2u If Me.chkSuper.Value Then
IV#kF}9
$ Me.txtStatus.Text = "检查修改所有的上标格式"
+N~?_5lv\s 'Fe1]B"Y CheckSuperScript
)isJ^ *6y Ru1I,QvCj" End If
=|@%5&.P oH[4<K> If Me.chkStyle.Value Then
z } L3// Me.txtStatus.Text = "设置样式，请稍候...."
&n|S:" B DoEvents
h` 1{tu CeateOrModifyStyle
y)5U*\b End If
&n5Lc` )ifEgBT 2f;fdzjk8K aa:97w~s0 ClearDomain
aP%& -W$D| jl!rCOLt4
]+ \]2`? 5>o <! 0g If Me.chkLIST.Value Then
3`W=rIMli Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式"
z /
YF7wrx
{;iG}j K ConvertListToOrdinary
Q%x | End If
`2 vv8cg^ f/_RtOSw xj1FCT2 Dim pType As String, trimpTEXT As String
a N87 ^ [ If Me.chkNum.Value = True Then
!jV}sp<Xp Me.txtStatus.Text = "转换全角数字形式为半角"
zsQhydTR ConvertWidth "１", "1"
7DG{|%\HF DoEvents
)$h<9 e ConvertWidth "２", "2"
A; pVi;7 DoEvents
W~TT`%[ ConvertWidth "３", "3"
P[l? DoEvents
6NvdFss'A{ ConvertWidth "４", "4"
) \iO wA DoEvents
[c{/0* ConvertWidth "５", "5"
FIB 9W@oao DoEvents
g?(h{r` ConvertWidth "６", "6"
k8]uy2R6} DoEvents
";I|\ T ConvertWidth "７", "7"
R V*7? y%3 DoEvents
E"E Bj7<s ConvertWidth "８", "8"
3C=| DoEvents
SBj9sFZ ConvertWidth "９", "9"
k"J [mT$b DoEvents
qre.^6x ConvertWidth "０", "0"
&=seI c>x@ DoEvents
q yfw$$X ConvertWidth "ａ", "a"
D"5u N0Z DoEvents
?1r>t"e5 ConvertWidth "ｂ", "b"
"R"7'sJ MI DoEvents
(sngq{*%%z ConvertWidth "ｃ", "c"
hXvg<Rf DoEvents
7y4!K$c$ ConvertWidth "ｄ", "d"
rUb`_ W@ DoEvents
tkN5 |
95 ConvertWidth "ｅ", "e"
~AD%aHR DoEvents
/uTU
*Oe ConvertWidth "ｆ", "f"
]5!}S-uJq DoEvents
:HDl-8]Lw ConvertWidth "ｇ", "g"
0a #2 Lo DoEvents
dkz79G}e ConvertWidth "ｈ", "h"
t-xw= &!w DoEvents
s'&/8RR ConvertWidth "ｉ", "i"
}d,
iA FG DoEvents
uC _&?
ConvertWidth "ｊ", "j"
2{<5?Op DoEvents
Y #'?
3 ConvertWidth "ｋ", "k"
JN 9
W:X. DoEvents
f}4bnu3 ConvertWidth "ｌ", "l"
jKOjw#N DoEvents
CC(At.dd ConvertWidth "ｍ", "m"
RJ#xq#l DoEvents
;8Z\bHQ> ConvertWidth "ｎ", "n"
zi^T ?<t ConvertWidth "ｏ", "o"
l9U ^[;D ConvertWidth "ｐ", "p"
[email protected]|fV ConvertWidth "ｑ", "q"
L_>j
SP ConvertWidth "ｒ", "r"
LK
" 47 ConvertWidth "ｓ", "s"
!y8/El ConvertWidth "ｔ", "t"
kc0YWW Q-: ConvertWidth "ｕ", "u"
4Fm T.P ConvertWidth "ｖ", "v"
(6xrs_ea ConvertWidth "ｗ", "w"
C?U V3 ConvertWidth "ｘ", "x"
YS}uJ&WoF ConvertWidth "ｙ", "y"
H.8f-c-4we ConvertWidth "ｚ", "z"
07zbx6:t ConvertWidth "Ａ", "A"
m=Z1DJG ConvertWidth "Ｂ", "B"
0>uMR{ # ConvertWidth "Ｃ", "C"
RhJ{#G~:% ConvertWidth "Ｄ", "D"
N2 !HkUy2 ConvertWidth "Ｅ", "E"
LuM[*_8 ConvertWidth "Ｆ", "F"
n4albG4 ConvertWidth "Ｇ", "G"
qusX]Tst z ConvertWidth "Ｈ", "H"
E^I
|%F ConvertWidth "Ｉ", "I"
{b|:q>Be8 ConvertWidth "Ｊ", "J"
A4}6hG# ConvertWidth "Ｋ", "K"
gAy,uP~, ConvertWidth "Ｌ", "L"
$'
SWH+G ConvertWidth "Ｍ", "M"
sqAZjf
y@ ConvertWidth "Ｎ", "N"
vd@ _LcK ConvertWidth "Ｏ", "O"
ryd*Ha">I ConvertWidth "Ｐ", "P"
gFJ.
p ConvertWidth "Ｑ", "Q"
=Q % F~ ConvertWidth "Ｒ", "R"
IF<?TYy=3B ConvertWidth "Ｓ", "S"
67 Z.aaXD1 ConvertWidth "Ｔ", "T"
%p5 %Fs`sd ConvertWidth "Ｕ", "U"
mk)F3[ ke ConvertWidth "Ｖ", "V"
r!qr 'Ht< ConvertWidth "Ｗ", "W"
+="?[: ConvertWidth "Ｘ", "X"
Iz'*^{Ssm ConvertWidth "Ｙ", "Y"
])dq4\Bw ConvertWidth "Ｚ", "Z"
hOI| #(- ConvertWidth "^l", "^p"
R$'0<y8E*] ConvertWidth "（", "("
gm**9]k ^{ ConvertWidth "）", ")"
oW:p6d I}5#!s< {& End If
/65ddt 0]tr&BLl* With ActiveDocument
={Bcbj{ Dim tbl As Table
MuzlUW ] For Each tbl In .Tables
P4{8pO]B tbl.Rows.Alignment = wdAlignRowCenter
6}aIb .j tbl.Range.Font.NameFarEast = "楷体"
xWY%-CWY. tbl.Range.Font.NameAscii = "Times New Roman"
kPN:m ow tbl.Range.Font.Size = 10.5
uG1)cm
B} Next
LY}9$1G] Set tbl = Nothing
D^( Nijl9U End With
YT)jBS~& b)+;#m 5*.JXx E;U With ActiveDocument
j@jaFsX | faqOG
Ab For i = 1 To .TablesOfContents.Count
(Rqn)<<2 .TablesOfContents(i).Delete
Ap&Bwo 8b Next
JXG%Cx!2} S#IlWU 3},0b8}; ;\P\0pI50 paraTotal = .Paragraphs.Count
OT6uAm+\7_ paraCounter = 1
y.$/ni Q% alQMPQVin LastTitle0No = 0
#G[S LastTitle1No = 0
_7j-y 9V LastTitle2No = 0
OK{_WTCe> LastTitle3No = 0
LKCj@N dV LastTitle4No = 0
[ P5+}@t LastTableNo = 0
),#%jc
2_^ LastFigureNo = 0
Wb* A};wE IMaa#8, Dim Sec As Long
MfJ;":]O!
< cQ)*~hN Sec = InputBox("正文从第一节开始？", "节设置", 6)
3)jFv7LAU If Sec = 0 Then
0n5{Wr$ Exit Sub
Fa}3UVm End If
:'*;>P
.( @dl{ .,J k = 0
f(Vr &X Do While (paraCounter < paraTotal) And bContinue
[TUy><Z k = k + 1
uJ Q#l\t If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then
d QD YN_ Exit Do
F iZe4{(p End If
9#K,@X5 j paraCounter = paraCounter + 1
?:D#\4=US If k Mod 20 = 0 Then
p^QEk~qw Me.lbCounter.Caption = paraCounter
{+CW_ce DoEvents
q; &\77i$ End If
#S?xR qkc Loop
-;5WMX 6 /U
|@sw4 Czj]jA(0f Do While (paraCounter < paraTotal) And bContinue
H Aq #r
\,oXTm ParaText = Trim(.Paragraphs(paraCounter).Range.Text)
q*`1<9{H ShapeHeight = 0
\-X Qo ShapeWidth = 0
)%8 ;C]G; ~p9nAACU CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth
z8HOig? |"4+~z%/9! Select Case ParaType
zGtWyXP Case "【】表格内容"
a[ Pyxx_K .Paragraphs(paraCounter).Style = "QLNU表格内容"
:#CQQ
*@ Case "章"
wc&%icF*cr LastTitle0No = LastTitle0No + 1
MHh>~Y(h '新一章开始，复位其下属标题编号
3q{op9_T7 LastTitle1No = 0
8Z Y F% LastTitle2No = 0
KI* erK
[d LastTitle3No = 0
)f#raXa5+ LastTitle4No = 0
Ne{2fV>8Ay [PVem
k = Val(ttNo)
4/6?wX If k = 0 Then '非数字编号章节
HYd&.*41rE If ttNo <> NoSeries1(LastTitle0No) Then
13+f ^ rText = "第" & NoSeries1(LastTitle0No) & ttString
%Vf3r9
z Me.ErrMsg.AddItem "章节编号错误：" & ParaText
@'go?E)f End If
99G
zh X _ Else
zcF`Z {&+ If Val(ttNo) <> LastTitle0No Then
60
D0z rText = "第" & LastTitle0No & ttString
$ yd "bJK Me.ErrMsg.AddItem "章节编号错误：" & ParaText
8 ZmU(m End If
Ly e^G% { S
;pKL,d>r End If
iUNlNl ? A .]o&S} '章段落设置
CC?L~/gPN '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅
)Sz 2D[@n .Paragraphs(paraCounter).Style = "QLNU章节"
rCOH*m& .Paragraphs(paraCounter).Range.Select
s L; Selection.EndKey unit:=wdLine
l* ~ ".q;S tc = Replace(rText, vbCr, "")
BSe{HmDq Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False
'@~\( SH Case "一级标题"
/Y NV LastTitle1No = LastTitle1No + 1
;ps 0wswX '新一级标题开始，复位其下属标题编号
+4 8a..4sN LastTitle2No = 0
r&$r=f< LastTitle3No = 0
Fj q~^_8 LastTitle4No = 0
7x 6q:4Ep\ 9$ ]I3k If ttNo <> NoSeries1(LastTitle1No) Then
ccUI\!TD{/ rText = NoSeries1(LastTitle1No) & "、" & ttString
{#-I;I: Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText
}6U`/"RfcO End If
0A]+9@W; 2)_Zz~
P^f 5somoV B '一级标题段落设置 格式：一、标题内容
_J|cJ %F>% .Paragraphs(paraCounter).Range.Text = rText
BZ2frG\0&I .Paragraphs(paraCounter).Style = "QLNU一级标题"
9j[lr${A .Paragraphs(paraCounter).Range.Select
^oykimYI- Selection.EndKey unit:=wdLine
Z/ Vb _ tc = Replace(rText, vbCr, "")
w(>mP9Cb Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False
fdU`+[ _ Case "二级标题"
]Ut fI LastTitle2No = LastTitle2No + 1
[(*ObvEF '新二级标题开始，复位其下属标题编号
&bh% >
[ LastTitle3No = 0
B,2o A]W"S LastTitle4No = 0
mmN!=mf* }f/xMp-Y If ttNo <> NoSeries1(LastTitle2No) Then
+(a}S$C rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString
Sbf+ ;:D ErrMsg.AddItem "二级标题编号错误：" & ParaText
UEm~5,>$0 End If
- w>2!@8
l,}^<P] '二级标题段落设置 格式：(一)、标题内容
`5J`
<BPs .Paragraphs(paraCounter).Range.Text = rText
\J]qd4tF .Paragraphs(paraCounter).Style = "QLNU二级标题"
/w5~ O: #Cj$;q{! .Paragraphs(paraCounter).Range.Select
{*#}"/:8K Selection.EndKey unit:=wdLine
>gj%q$@ tc = Replace(rText, vbCr, "")
J5i$D0K[ Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 2 ", PreserveFormatting:=False
C r A7lu' BQ[,(T`+R
Case "三级标题"
& CtWWKS" LastTitle3No = LastTitle3No + 1
`~~.0QC '新三级标题开始，复位其下属标题编号
.ty^ k@J|] LastTitle4No = 0
pn5A6
# TGSUbBgU If Val(ttNo) <> LastTitle3No Then
!YM;5vte+ rText = LastTitle3No & ". " & ttString
,WvCslZ Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText
>~+'V.CNW at N%c sA0 End If
{pzu 1* '三级标题段落设置 格式：1. 标题内容
5V"Fy&}: .Paragraphs(paraCounter).Range.Text = rText
$|0?$U7 ! .Paragraphs(paraCounter).Style = "QLNU三级标题"
5 e P0W# .Paragraphs(paraCounter).Range.Select
} `X.^}oe Selection.EndKey unit:=wdLine
,McwPHEMB tc = Replace(rText, vbCr, "")
\A~ r~ Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 3 ", PreserveFormatting:=False
0$saDmED Case "四级标题"
}DCR(p rD LastTitle4No = LastTitle4No + 1
$e99[y@ m VSaC If Val(ttNo) <> LastTitle4No Then
Or({|S9d2 rText = "(" & LastTitle4No & "). " & ttString
V~9vf*X ErrMsg.AddItem "四级标题编号错误：" & ParaText
QTy xx f@G3,u!]i End If
<B3v4 f '四级标题段落设置 格式：(1). 标题内容
kdr?I9kwW .Paragraphs(paraCounter).Range.Text = rText
Kuj*U'ed7t .Paragraphs(paraCounter).Style = "QLNU四级标题"
$qvk9 B0E .Paragraphs(paraCounter).Range.Select
=|Q7k +b Selection.EndKey unit:=wdLine
q? 9x0L tc = Replace(rText, vbCr, "")
U]8
@ Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 4 ", PreserveFormatting:=False
Ao2m" ym o ?9k{ Case "表格标题"
lZ
\Si LastTableNo = LastTableNo + 1
G!%Cc0d"7 G $P|F6
If ttNo <> CStr(LastTableNo) Then
"OdR"M(G\ rText = "表" & LastTableNo & ". " & ttString
~F{u4p7{N ErrMsg.AddItem "表格编号错误：" & ParaText
/:<.Cn>- $ts%SD M End If
u U |fCwQt #]g9O ?0$ '表格名称段落设置 格式：表1. 表格名称
)bl''
yO .Paragraphs(paraCounter).Style = "QLNU表格标题"
z~ Ec * xe = Replace(rText, vbCr, "")
+"~~; J$ .Paragraphs(paraCounter).Range.Select
@u4q\G\ Selection.MoveEnd wdCharacter, -1 '选择范围包括行尾的换行符。
?E6*Ef Selection.Range.Text = xe
Pc{0Js5VzE Selection.EndKey
Q?1'
JF!G Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False
`S&$y4|Vs | Z"5zL10 Case "表格首行"
<`rl[C{ .Paragraphs(paraCounter).Style = "QLNU表格首行"
`1 tD&te0 Case "图片标题"
RD$"ft]Vc LastFigureNo = LastFigureNo + 1
/d1
B-I ox}LC, ! If ttNo <> CStr(LastFigureNo) Then
MO1t 0My c rText = "图" & LastFigureNo & ". " & ttString
;Wo\MN ErrMsg.AddItem "表格编号错误：" & ParaText
iJ7?6 )\ 2O*(F> >dT End If
xlhc`wdm '图片名称段落设置 格式：图1. 图名称
t V]BcDp .Paragraphs(paraCounter).Range.Text = rText
96 ozt UK .Paragraphs(paraCounter).Style = "QLNU图片标题"
dx<KZR$!V .Paragraphs(paraCounter).Range.Select
yv2&K=rZp Selection.EndKey unit:=wdLine
=9LeFrz xe = Replace(rText, vbCr, "")
& rsNB:! Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False
2V-zmyJs5 Case "正文"
zG[GyyAQ '正文名称段落设置
L_k'r\L .Paragraphs(paraCounter).Style = "QLNU正文"
`.0WK Case "文献条目"
8M"0o}wx With .Paragraphs(paraCounter)
> f ! '.Range.Select
|q(
.j4[i 'Selection.ClearFormatting
7,pn0,HI '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator 'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ”
0_A|K >7 .Style = "QLNU参考文献"
$@wTc End With
n c0!ag Case "图表注解"
A3;}C+K With .Paragraphs(paraCounter)
!_ng_,J .Range.Font.NameFarEast = "楷体"
X} -) io .Range.Font.NameAscii = "Times New Roman"
@$e!|.{1q .Range.Font.Size = 9 '小5号字
< c X\|dM U}=o3 u .Alignment = wdAlignParagraphCenter
;q3"XLV(T[ .LeftIndent = 0
(,i&pgVZ .RightIndent = 0
aYmC LLj .FirstLineIndent = 0
*h H\H
.LineSpacing = 12
,g"[7Za .LineSpacingRule = wdLineSpaceExactly
)S,Rx .LineUnitAfter = 0
Kgb 3>r .LineUnitBefore = 0
;I#f:UQ .OutlineLevel = wdOutlineLevelBodyText
gbl`_t/ .PageBreakBefore = False
8}Qmhm`_j= .RightIndent = 0
IpRdGT02 .WordWrap = True
R
_c!
,y .LineUnitAfter = 0.5
p>O>^
R )J['0DUrZK End With
\dq}nOsX* Case Else
;QiSz=DyA '不作处理
~zcHpxO^W End Select
d/m.VnW AW X Bk+ '含有inlineshape的段落处理
aj$#8l |zu If ShapeHeight > 30 Then
nO{ m2&r+ .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle '对有图片的段落设置为单倍行距
-=+@/@n V End If
E\X:VQ9 BnB]]<gO" If (ShapeWidth + ShapeHeight) > 150 Then
G< 8d=} .Paragraphs(paraCounter).Style = "QLNU图片段落"
) vK Zs: End If
5Y#W$Fx($R 5*n3*rbU: '段落计数器递
h" /y$ paraCounter = paraCounter + 1
o-m9}pV Me.lbCounter.Caption = "当前检测段落：" & paraCounter
K).Gj2 $ Me.txtStatus.Text = ParaText
{e1ak g. DoEvents
V1 H3} Loop
[ q% Rx!L End With
qZcRK9l]F1 {FrcpcrQa msg = ""
7a0kat '\ Lwzk<+>w^ For i = 0 To Me.ErrMsg.ListCount - 1
<6djdr1:b msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i)
8,l~e8 & Next
JF+E.-fy$ )[c@5z
y~* ]{/1F:bcQ Avc9W[ 4 Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg
H/v|H}d; Me.cmdCheck.Enabled = True
;:%*h2 Me.txtStatus.Visible = True
"E6*.EtTN# Me.lbParaType.Visible = False
fBi6%
#
qr K\f bContinue = False
pI>[^7 End Sub
Q.$|TbVfds '; \v:dP 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)
P`HDQ/^O
Dim pTEXT As String
D=0^" 7K s
aj%[Gsy pTEXT = ChKRange.Text
;ye5HlH}. ?_ V oO ParaType = "其它"
y>5??q TitleString = pTEXT
9?IvSv}z TitleNo = "N/A"
3O'6 Ae qoo +=eh! shpCounter = ChKRange.InlineShapes.Count
BSMM3jXb If shpCounter <> 0 Then
whoQA
}X> MaxShpHeight = 0: TotalShpWidth = 0
n@`:"j%s_ For i = 1 To shpCounter
/jtU<u X k = ChKRange.InlineShapes(i).Height
'&O
J hLE l = ChKRange.InlineShapes(i).Width
TrEo5
H ; If k > MaxShpHeight Then
Hkv4 ^| MaxShpHeight = k
.wb[ cCUQ End If
S] O0zv^} TotalShpWidth = TotalShpWidth + l
k v>rv3 7u Next
x e!([^l& If MaxShpHeight > 60 Or TotalShpWidth > 150 Then
z"vI-~,YU Exit Sub
v"LH^!/ End If
SFiK_; End If
kw gsf5[ Y]33:c_;Mo '空行
GjfPba4> If Len(pTEXT) <= 2 Then
d<@SRHP( Exit Sub
k,kr 7'Q End If
$1F$3 "k l, [c
R?v lO>9Q]S< '是否为表格中的文字
0[O ."9 If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then
/4!.G#DLQ ParaType = "表格内容"
j$5S_]2 k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber)
u@{z
xYn If k = 1 Then
FS1>
J%P ParaType = "表格首行"
8q5
`A Gl End If
y;r{0lTB Exit Sub
I_k!'zR[N End If
4 ^jIV!
V Vp.&X 8 '例外情况：脚注
[lj C S If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then
L2jjkyX] ParaType = "脚注"
I\,m6 =q Exit Sub
\%!
t2=J
! End If
GlPd)m` ?uBZ"^' '例外情况：尾注
N Qdz]o If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then
RM(MCle} ParaType = "尾注"
\a}_=O Exit Sub
v "K # End If
?}tWI7KI X;vfbF If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then
.Z0$KQ'iy ParaType = "页眉页脚"
_Z>I"m Exit Sub
icw (y(W End If
;
{ MK e-`=?tct Pcs62aE With regEX
Y!K5?kk .Global = True
{+SshT>J P#ro;3S3y .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$"
&-h z&/A, If regEX.Test(pTEXT) Then
x&N!S U6 ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3")
%^?yI TitleString = regEX.Replace(pTEXT, "$3")
jMP!/t
:w TitleNo = regEX.Replace(pTEXT, "$1")
X S& oW ParaType = "章"
XP |qY1 Exit Sub
Hx|<NS0}_ End If
'20
S oVp @_L:W1[ .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$"
q"uP
%TN If regEX.Test(pTEXT) Then
RY4b <i3 ParaType = "一级标题"
6bacU#0o regEX.Execute (pTEXT)
MB:VACCr ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3")
2l YA % n TitleString = regEX.Replace(pTEXT, "$3")
p3L0
'rY|+ TitleNo = regEX.Replace(pTEXT, "$1")
J,
&
B Exit Sub
[JzOsi~R End If
{=q$k=ib
2`ED?F68gH '全角或半角括号中的数字
itpljh .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$"
@'ln)RT, If regEX.Test(pTEXT) Then
'/[9Xwh9 ParaType = "二级标题"
\(.])I>)eh regEX.Execute (pTEXT)
d${RZ}/ ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5")
uh8+Y%V
p TitleString = regEX.Replace(pTEXT, "$5")
1yg 5d9 TitleNo = regEX.Replace(pTEXT, "$2")
#zL0P>P'a Exit Sub
J
: T End If
1vG]-T3VC c@ea
;Cv '阿拉伯数字 1. 2.
O*:8gu'Y2 .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$"
B/n/b i8T If regEX.Test(pTEXT) Then
RhPEda2 ParaType = "三级标题"
KVC$o+<'`% regEX.Execute (pTEXT)
`PH*tdYrh ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测
iax6o+OG| TitleString = regEX.Replace(pTEXT, "$3")
qtQB}r8 TitleNo = regEX.Replace(pTEXT, "$1")
^-Knx!z Exit Sub
Z`9yGaTO End If
F-g 7 * IdzrQP '全角或半角括号中的阿拉伯数字
@=0O' XM .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$"
`O'@TrI If regEX.Test(pTEXT) Then
`Qrrnq ParaType = "四级标题"
eKT'd#o2R regEX.Execute (pTEXT)
G =Qslrtg ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5")
O6Gg?j TitleString = regEX.Replace(pTEXT, "$5")
}p < p( TitleNo = regEX.Replace(pTEXT, "$2")
G9_M~N%a Exit Sub
`
~.0PnHf End If
i,h)
>.fN@8[ '表格名称
aV 6l"A] .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$"
,O;+fhUJ( If regEX.Test(pTEXT) Then
u QYBq)p| ParaType = "表格标题"
0nDlqy6b1b regEX.Execute (pTEXT)
_Q
$D6+ ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3"))
)}KQtkU8: TitleString = Trim(regEX.Replace(pTEXT, "$3"))
;Bs^+R7 TitleNo = Trim(regEX.Replace(pTEXT, "$1"))
NETji:d strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换
!6 k{]v Exit Sub
j. m(Z} End If
, id`=L= 7H=^~J '图片名称
FX6 *` .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$"
dl
%KD8 If regEX.Test(pTEXT) Then
bn
s([F ParaType = "图片标题"
#;#r4sJwU regEX.Execute (pTEXT)
Du*O| ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3")
jl:dKL@ TitleString = regEX.Replace(pTEXT, "$3")
jxt^d TitleNo = regEX.Replace(pTEXT, "$1")
pH'1be{K Exit Sub
J6s55
v End If
'h:[[D%H` _s&sA2r< '参考文献
POouO/r$ .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})" '[数字]、
%mv9+WJN. If regEX.Test(pTEXT) Then
u{/!BCKE ParaType = "文献条目"
qDPpGI-Y2e 'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4")
c/g"/ICs 'TitleNo = regEX.Replace(pTEXT, "[$2] ")
2Y+8!4^L
a Exit Sub
FQ72VY End If
&7gE=E(M - A\J:2a| prfx = Left(pTEXT, 2)
+E nJy
li If prfx = "注：" Or prfx = "注:" Then
, XZ[L?
> ParaType = "图表注解"
o (OC3 Exit Sub
-54 End If
7fB:wPlG; X` QfOs#\ N;.cZp2 ParaType = "正文"
Lh M{d 6E
e U
iLd End With
!{L6
4qI End Sub
dE _ I=v ?_NhR Sub ConvertListToOrdinary()
QCI-YJ&o Dim st As Paragraph
@$ea-fK?? With ActiveDocument
d_5wMK6O6 For i = .Paragraphs.Count To 1 Step -1
-bq\2Yc$] Set st = .Paragraphs(i)
=}G `i** lst = st.Range.ListFormat.ListString
<<Fk[qMA If lst <> "" Then
E7*z
.3 st.Range.ListFormat.RemoveNumbers
6 }vPwI st.Range.InsertBefore lst & " "
B_B~Y8=3` End If
:e&P's=
Next
I2b\[d End With
#&hu-gM V Set st = Nothing
abvA*| End Sub
9%VN
zPzf [P*w$Hn Private Sub UserForm_Activate()
TAbC-T.E V Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节"
tvC7LL NP< Me.lbTotal.Font.Bold = True
j})6O! L. Me.txtStatus.Visible = False
p4|Zz:f Me.cmdCheck.Enabled = True
cE*Gd^ b;[u=9ez End Sub
m;v/(d> CDz-IQi 4I [g{S
nF Sub CheckSuperScript()
lIN`1vX ( Selection.Find.ClearFormatting
Xu 1tN9:oE Selection.Find.Replacement.ClearFormatting
p:,(r{*? With Selection.Find
xV
h-Mx+M .Text = "[【\[［〖](*)[】\]〗］]"
f"0{e9
O]2 .Replacement.Text = "[\1]"
vk:m >?( .Replacement.Font.Superscript = True
S"Q$ Ol" '.Replacement.Font.Color = wdColorBlue
nsq7,
%5 .Forward = True
y?|JB f .Wrap = wdFindContinue
D/jS4'$vA .FORMAT = True
JQ*C F(9 .MatchCase = False
fRT Q5V .MatchWholeWord = False
sf|[oD .MatchByte = False
quB .A7~^= .MatchAllWordForms = False
LZ@4,Uj .MatchSoundsLike = False
\mt0mv;c .MatchWildcards = True
d45JT?qg& End With
FuYV}C Selection.Find.Execute Replace:=wdReplaceAll
XG5mfKMt+ End Sub
|!\(eLR9> ijYSYX@ Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
YdI|xu>0A^ bContinue = False
4Qr16,Us Set regEX = Nothing
ZW}0{8Dk
End Sub
$=j}JX}z kCRP?sj Sub CeateOrModifyStyle()
>F zu]G4] '
j}=$2|}8{ '
kpkN G Q2 Dim stl As Style
az (u=} <%(nF+rQA" Options.Pagination = False
F:8cd^d~u +yq Z \$ii On Error Resume Next
/&>6#3df- For Each stl In ActiveDocument.Styles
Um
k9 stl.Delete
BO b#9r Next
f1'N Wec On Error GoTo 0
x. 7Ln9 Y%UfwbX!g Set stl = Nothing
K"cN`Kj<*- <B;l).[6 DoEvents
r )cG ee On Error Resume Next
-Kj^ l3w 0ih=<@1 K ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph
[Hn4&PET i0($@6Lh ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph
Z[baQO ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph
(R*K)(Nw[ F3 \' WQh ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph
FuNc#n> ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph
CL*i,9:NR c}II " P ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph
uvK1gJrA) ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph
f$x\~y<[ ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph
)g9&fGYf ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph
i;
1aobG ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph
bBkF,`/f$ ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph
:[iWl8 ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph
'3f"#fF6 21$YZlhJ ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph
_|x b)_ ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph
9=D\xBd|w ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph
w. gI0` ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph
9PA\Eo|Yb ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph
JkazB1h ZB'/D O=i ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph
A0SE zX({[ On Error GoTo 0
-.| V S|y DoEvents
'Iw eN (u81p 'BaseStyle
'AX/?Srd ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False
+$:bzo_u With ActiveDocument.Styles("BaseStyle").Font
D
7b<&D@ .NameFarEast = "宋体"
:7t~p
&J .NameAscii = "Times New Roman"
5MH\Gq e7 .NameOther = "宋体"
? Sj3-*/? .Size = 10.5
ocCC63J .Bold = wdUndefined
KZ/U2.{O< .Italic = wdUndefined
m4{F-++dk .Subscript = wdUndefined
yz}Agc4.I .Subscript = wdUndefined
F:.rb
Ei W6t" n_%?" .Underline = wdUnderlineNone
LYPjdp2>"o .UnderlineColor = wdColorAutomatic
G J=<~S" .StrikeThrough = False
@, D 3$P8} .DoubleStrikeThrough = False
)W!8,e+% )8
ejT6r .Outline = False
)mi Y>7K .Emboss = False
48CLnyYiF .Shadow = False
|->{N U Z{ .Hidden = False
(&4aebkZO .SmallCaps = False
Lrgv:n .AllCaps = False
lzz rzx^ .Color = wdColorAutomatic
` 1F[.DdF .Engrave = False
f%0^89 ) .Scaling = 100
"VxZ
nT .Kerning = 1
,[}5 @cS .Animation = wdAnimationNone
Gxu&o%x [ .DisableCharacterSpaceGrid = False
h&\%~LO. .EmphasisMark = wdEmphasisMarkNone
bv`gjR End With
-b "7WBl With ActiveDocument.Styles("BaseStyle").ParagraphFormat
;7"}
I .LeftIndent = 0
8B C F.y .RightIndent = 0
W$7
db%qFx .SpaceBefore = 0
{O,D9 < .SpaceBeforeAuto = False
q1sK:)Hu+ .SpaceAfter = 0
x mx
fXW .SpaceAfterAuto = False
zhbp"yju7 0 !yvcviw .LineSpacingRule = wdLineSpaceSingle
woJO0hHR .Alignment = wdAlignParagraphJustify
UXVjRY`M.\ 6LRI~*F= 3 .WidowControl = False
HDU tLU d .KeepWithNext = False
a;J{'PHu .KeepTogether = False
.L[WvAo .PageBreakBefore = False
i $H aE)qZ .NoLineNumber = False
Q}~of}h/ L-\-wXg% .FirstLineIndent = CentimetersToPoints(0)
iha{(- .OutlineLevel = wdOutlineLevelBodyText
=.,]} .CharacterUnitLeftIndent = 0
Yhl {' .CharacterUnitRightIndent = 0
77
- Jx`C .CharacterUnitFirstLineIndent = 0
PDaHY .LineUnitBefore = 0
e Oa:%{Kj .LineUnitAfter = 0
$}0q=Lg%wv .AutoAdjustRightIndent = True
zXQ o pQ1 .DisableLineHeightGrid = True
oR>o/$z$)g /T`L;YE .FarEastLineBreakControl = True
[Q &{#%M .WordWrap = True
|e@9Y DZ .Hyphenation = False
B#'TF?HUEn pqO} =*v@ .HangingPunctuation = True
K^bzZa+a .HalfWidthPunctuationOnTopOfLine = True
[H-,zY .AddSpaceBetweenFarEastAndAlpha = True
S+>1yvr), .AddSpaceBetweenFarEastAndDigit = True
jy`jxOoG~Z .BaseLineAlignment = wdBaselineAlignBaseline
>
;}np
F> End With
w*`5b!+/ ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False
r-
0BLq]~{ ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll
k ;PQVF&E ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese
5;5;bB o~ ActiveDocument.Styles("BaseStyle").NoProofing = False
AK\X{>$a! d:C- '一级标题题样式
_IJPZ'Hr ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
Q6Z%T.1 ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle"
w4U]lg<}E ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False
SovK|b & With ActiveDocument.Styles("QLNU一级标题").Font
l
\7 N R .NameFarEast = "黑体"
4Y5Q>2D} .NameAscii = "Arial Black"
B RF=TL5Z .NameOther = "黑体"
fyIL/7hzf4 .Name = "黑体"
w *[i!i .Size = 16 '三号
9E^IEwq ' .Bold = True
bj4cW\b( .Italic = wdUndefined
`T2RaWR4= .Subscript = wdUndefined
Mi&,64< .Superscript = wdUndefined
h(!x&kZq. End With
8`Fo
^c=j With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat
} 5i
0R 6%Ap/zvCZ> .LeftIndent = CentimetersToPoints(0)
BX&bhWYGFX .RightIndent = CentimetersToPoints(0)
6>ZUx}vYj .FirstLineIndent = CentimetersToPoints(0)
EzOO6 yC ZV:R; .LineSpacingRule = wdLineSpaceSingle
DytH } U"
.Alignment = wdAlignParagraphCenter
kD:O$8[J8 6r/NdI .WidowControl = True
aObWd5~ .KeepWithNext = True
4*W ??(=j .KeepTogether = True
Uj&2'>MJ$ .OutlineLevel = wdOutlineLevelBodyText
E+Z//)1Z v#
ab2 .LineUnitBefore = 0.5
i8pM,Ppi~ .LineUnitAfter = 0.5
O1I R+"0 End With
_?&$ @c ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False
{s!DRc]ln ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll
ZKTOif} ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese
UA$
X jP ActiveDocument.Styles("QLNU一级标题").NoProofing = True
n5 dFp%k DoEvents
preKg $U Q':x i;?Kt '二级
@O9 .~6 ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
la N:H mR8 ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle"
~;O|
$xL ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False
.VN
"j With ActiveDocument.Styles("QLNU二级标题").Font
)O~LXK=b .NameFarEast = "黑体"
@.ebQR-:H .NameAscii = "Arial Narrow"
v'0A$`w` .NameOther = "黑体"
Ovh
.Name = "黑体"
z?`&HU Nf .Size = 15 '小三号
>oi`% V .Bold = False
\G }EI|Wo .Outline = False
#UL:#pY .Italic = wdUndefined
uc9t0]o=h .Subscript = wdUndefined
/,dc
r* .Superscript = wdUndefined
x'_I{$C & End With
^
l|{*oj2 With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat
6KPM4#61o .LeftIndent = CentimetersToPoints(0)
:5hKE(3Q .RightIndent = CentimetersToPoints(0)
@s RRcP~ .FirstLineIndent = CentimetersToPoints(0)
T X.YTU K5gh7 .LineSpacingRule = wdLineSpaceSingle
BYuF$[3ya& .Alignment = wdAlignParagraphLeft
+@[T0cXp Xwy0dXko .WidowControl = True
1 zIFQ@ .KeepWithNext = True
3
/V&PDC*' .KeepTogether = True
.w3.zZ0[ .PageBreakBefore = False
9 lE[oAC .OutlineLevel = wdOutlineLevelBodyText
{pMbkA Q@ aOWW ..| .LineUnitBefore = 0.5
\xG> >A% .LineUnitAfter = 0.5
LcS\#p #s] J '9hzag End With
]T Q2PVN2 ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False
R=P=?U. ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll
4eTfb ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese
>2l1t}"\ ActiveDocument.Styles("QLNU二级标题").NoProofing = True
xrDHXqH DoEvents
} eh<F^ 89T xd9X '三级标题样式
= #]^H c ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
-b+VzVJ Z ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle"
|?{3&'`J8w ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False
,K=\Y9l3 With ActiveDocument.Styles("QLNU三级标题").Font
<6g{vNA .NameFarEast = "宋体"
>aXyi3B .NameAscii = "Times New Roman"
,> lOmyh .NameOther = "黑体"
C o v,#j j .Name = "黑体"
h<2
o5c| .Size = 14 '四号
?t++IEoP .Bold = False
;Ak<O [ .Outline = False
n N1\ .Italic = wdUndefined
AE!DftI .Subscript = wdUndefined
b ,"gBg .Superscript = wdUndefined
gV@FT|j!i End With
%D _2; With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat
Yl%1e|WV .LeftIndent = CentimetersToPoints(0)
Jm&7&si7 .RightIndent = CentimetersToPoints(0)
`s93P^% .FirstLineIndent = CentimetersToPoints(0)
a;J
B8 0zfh:O .LineSpacingRule = wdLineSpaceSingle
:U_k*9z}= .Alignment = wdAlignParagraphLeft
p>Dv&fX N9hs<b+N_ .WidowControl = True
_$%.F| : .KeepWithNext = True
6Mu_9UAl` .KeepTogether = True
P6'Oe|+' .PageBreakBefore = False
R GF anP .OutlineLevel = wdOutlineLevelBodyText
_7es_w}R KDr?< "2L .CharacterUnitLeftIndent = 0
a^_ \ #,} .CharacterUnitRightIndent = 0
nNJU@<|
{* .CharacterUnitFirstLineIndent = 2
%suSZw` F#_JcEE .LineUnitBefore = 0.5
Oz(0$c .LineUnitAfter = 0
u;p.:{' End With
SyFw ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False
pEgQ)
9\
ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll
m
" ' ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese
21'I-j ActiveDocument.Styles("QLNU三级标题").NoProofing = True
3D
L7
DoEvents
94 58.!3 ^`>,~$Q '四级标题样式
B M5+;h ! ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
d-Vttxa6 ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle"
3lzjY.]Pgv ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False
,:POo^!/fT With ActiveDocument.Styles("QLNU四级标题").Font
Hx[YHu
KL^ .NameFarEast = "宋体"
&n kYJi(! .NameAscii = "Times New Roman"
3)\jUVuj .NameOther = "宋体"
Qgx9J
J> .Name = "宋体"
("0 7t/|| .Size = 12 '小四号
_b8&$\> .Bold = True
Q\.~cIw_AQ .Outline = False
AjBwj5K .Italic = wdUndefined
.l?sYe64S .Subscript = wdUndefined
| #9Nu9ak .Superscript = wdUndefined
C(-w A End With
?WPuTPw{ With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat
EH{m~x[Ei 0Oy.&C T .LeftIndent = CentimetersToPoints(0)
..BIoSrj .RightIndent = CentimetersToPoints(0)
eV:I ::: .FirstLineIndent = CentimetersToPoints(0)
-7E)u &?N1-?BjM .LineSpacingRule = wdLineSpaceSingle
q6DuLFatc* .Alignment = wdAlignParagraphLeft
KMC] < d-/{@
.WidowControl = True
lz2B,# .KeepWithNext = True
i AD'MB .KeepTogether = True
PyQt8Q lz .PageBreakBefore = False
pQv`fr
= .OutlineLevel = wdOutlineLevelBodyText
T
DOOq;+ k4:$LFw@ .CharacterUnitLeftIndent = 0
(jb9U k_t .CharacterUnitRightIndent = 0
`{w.OK .CharacterUnitFirstLineIndent = 2
#1fT\aP
j}9][Fm1* .LineUnitBefore = 0
[email protected].5Ep .LineUnitAfter = 0
|R$V[ q.sErr[zc End With
to9~l"n.s ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False
!p$HS0c ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll
y4sKe:@2 ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese
n E.w ActiveDocument.Styles("QLNU四级标题").NoProofing = True
32h}+fd
DoEvents
1 ; _t u %N5gQXg '正文校式
) CgKZ" ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle")
@BQJKPF
* ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle"
x\( @ v ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False
4 mj\wBp With ActiveDocument.Styles("QLNU正文").Font
>YG1sMV-J 0u[Vd:()v( .NameFarEast = "宋体"
.*FBr7rE\ .NameAscii = "Times New Roman"
8<V6W F`e .NameOther = "宋体"
='r86vq .Name = "宋体"
9N1Uv,OtB Gy}WZ9{
.Size = 12 '小四号
P?| F+RoX$ -u)f@e .Bold = wdUndefined
|2RoDW .Italic = wdUndefined
Zo$ ,{rl .Subscript = wdUndefined
\j
C[|LM& .Superscript = wdUndefined
$sF'Sr{)y y04md A6< .Outline = False
~N
"rr.w .Emboss = False
oDz%K?29% .Shadow = False
bY`
b3 .Hidden = False
TCShS}q;% %L;z ~C .DisableCharacterSpaceGrid = True
WX.6 | End With
Nr~9] S With ActiveDocument.Styles("QLNU正文").ParagraphFormat
`^ FAD VF#2I %R* .LeftIndent = CentimetersToPoints(0)
NTq#'O) f .RightIndent = CentimetersToPoints(0)
F)fCj^ zL .FirstLineIndent = CentimetersToPoints(0)
|,YyuCQcL[ O7<- - .LineSpacingRule = wdLineSpaceExactly
=QdHji/sB .LineSpacing = 20
B%y?+4;zA .Alignment = wdAlignParagraphLeft
+yC ]f
b W5 l)mAv .WidowControl = False
%[3?v X .KeepWithNext = False
]QM{aSvXA .KeepTogether = False
2rxZN\gyL .PageBreakBefore = False
_(A9k{ .Hyphenation = False
$z1W0 GSl vT: k .OutlineLevel = wdOutlineLevelBodyText
'7BJ . KWu
c*! Eo
h4#fZ\N .CharacterUnitLeftIndent = 0
sA^_I6>M" .CharacterUnitRightIndent = 0
iakqCjV .CharacterUnitFirstLineIndent = 2
dU4 h cf\PG&S .LineUnitBefore = 0
@34Z/%A .LineUnitAfter = 0
}jL_/gvgy .SpaceBefore = 0
<HY K9{Q .SpaceAfter = 0
Cn
\5Vyrl @:2<cn` .DisableLineHeightGrid = True
>.sdLA Si End With
k@}?!V*l ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False
a4a/]q4T ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll
C1V
: _- ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese
R0 yPmh,{ ActiveDocument.Styles("QLNU正文").NoProofing = True
M:[rH DoEvents
&P2tzY' Q4~ /Tl ; '图片段落样式
!u)>XS^E ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle")
KImBQ2 ^Tu ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle"
gteG*p i ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False
8]G With ActiveDocument.Styles("QLNU图片段落").Font
U2hPsF4f .Size = 12 '小四号
!V%h0OE\ .Italic = wdUndefined
whH_<@! .Subscript = wdUndefined
cx+w_D9b! .Superscript = wdUndefined
tccw0 End With
QmHj=s:x\ With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat
v w.rkAGY f&=WgITa .LeftIndent = CentimetersToPoints(0)
FCr^D$_w .RightIndent = CentimetersToPoints(0)
4O I''i .FirstLineIndent = CentimetersToPoints(0)
2Ra} &ie 5Q/&,NP
.LineSpacingRule = wdLineSpaceSingle
HACY .Alignment = wdAlignParagraphCenter
v8{ jEAK .KeepWithNext = True
*8I+D>x .OutlineLevel = wdOutlineLevelBodyText
kdq<)>" OEZ`5 "j .CharacterUnitLeftIndent = 0
N*^iOm]Y .CharacterUnitRightIndent = 0
hq[:U?!Tt .CharacterUnitFirstLineIndent = 0
s t7\k]J\ to2#PXf]y .LineUnitBefore = 0
N~=,RPjq .LineUnitAfter = 0
K^z u{`S End With
DfPC@`
k ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False
h4iz(* ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll
g$^:2MT"aQ ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese
NA :_yA" ActiveDocument.Styles("QLNU图片段落").NoProofing = True
\zx &5a
# DoEvents
{zck Y (u_?#Pj
X 7O.?I#
76 '第X章
S]"U(JmW\ ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
P0mY/b BU ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle"
MbT;]Bo ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False
l_q=@y With ActiveDocument.Styles("QLNU章节标题").Font
pq T+lai)# .NameFarEast = "黑体"
>$/<~j] .NameAscii = "Arial Black"
uGoySt&;( .NameOther = "Arial Black"
w4AA4 u .Name = "黑体"
Bd++G'F Z .Size = 16
UnE[FYx .Bold = True
~10 > mg .UnderlineColor = wdColorAutomatic
s^& Oh*SP* .Outline = False
=/ #+, .Italic = wdUndefined
eb#yCDIC .Subscript = wdUndefined
^Rpy5/d .Superscript = wdUndefined
4uX|2nJ2!; .Scaling = 100
w=;Jj7}L .DisableCharacterSpaceGrid = True
} CM< / End With
$~;h}I With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat
)'1rZb5 .LineSpacingRule = wdLineSpaceSingle
1H-d<G0) .Alignment = wdAlignParagraphCenter
RV=Z$ .WidowControl = True
.="/n 8B .KeepWithNext = True
vvi [+$M .KeepTogether = True
7] 8nW!h; .PageBreakBefore = True
JmP[ 9" .OutlineLevel = wdOutlineLevelBodyText
HxAN&g *: u4KP;_,m .LeftIndent = CentimetersToPoints(0)
~K 2.T7= .RightIndent = CentimetersToPoints(0)
78MQ oG< .FirstLineIndent = CentimetersToPoints(0)
v1j&oA}$. pzcl@ .CharacterUnitLeftIndent = 0
kq4ii`zi8 .CharacterUnitRightIndent = 0
!
^ DQX=1 .CharacterUnitFirstLineIndent = 0
id?B<OM rYK GBo8" .LineUnitBefore = 1
?cB:1?\j .LineUnitAfter = 0.5
<i$ud&D \/8oua_) .AutoAdjustRightIndent = False
]?<=DHn .DisableLineHeightGrid = True
6T rtulm .FarEastLineBreakControl = True
, _iR .WordWrap = True
>^Z==1 End With
p"dK,A5#) ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False
x| =]Xxco ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll
O;6am++M@ ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese
qib4DT$v-6 ActiveDocument.Styles("QLNU章节标题").NoProofing = True
6rll0c~ DoEvents
\UEO$~Km ~lQ<#*wl '表格标题
B )`@E4i ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
!7>~=n_,L. ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle"
0 |ch RX ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False
}o d5kK; With ActiveDocument.Styles("QLNU表格标题").Font
Ep CT !e .NameFarEast = "楷体"
+ t
JEG: .NameAscii = "Arial"
JFOXrRR=d .Name = "楷体"
|Bhj L, .Size = 10.5
05ZF>`g* .Bold = True
{aoG60N .Underline = wdUnderlineNone
L5R
Be .Italic = wdUndefined
1
k \~% .Subscript = wdUndefined
isR)^fI| .Superscript = wdUndefined
45(n!" u65 .Color = wdColorAutomatic
O/ ih9 , End With
\1MMz Z4rf With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat
oD8X]R,
H = lMs1}S9 .LineSpacingRule = wdLineSpaceSingle
,3,(/%=k .Alignment = wdAlignParagraphCenter
(X?et
& .KeepWithNext = True
)Kbz gmLr .KeepTogether = True
v*lj>)L .OutlineLevel = wdOutlineLevelBodyText
XIRvIwO mzbMX
< .LeftIndent = CentimetersToPoints(0)
Ls2g#+ .RightIndent = CentimetersToPoints(0)
*>,# 'C2 .FirstLineIndent = CentimetersToPoints(0)
y{#9&ct& DlF6tcoI .CharacterUnitLeftIndent = 0
sKniqWi .CharacterUnitRightIndent = 0
B.Y8O^rx .CharacterUnitFirstLineIndent = 0
&<Iz?AVr '\wZKY VN .LineUnitBefore = 1
}1BpIqee .LineUnitAfter = 0
gNaB^I Y 2JR$
End With
~a
06x^=j ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False
Y7GHIzX ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll
n:P++ ^ j ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese
G9AQIU%ii ActiveDocument.Styles("QLNU表格标题").NoProofing = True
0ME.O + DoEvents
Mrly(*!U"@ ZD#{h J- '表格首行
E5. @=U,c ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle")
1=Y pNXX ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False
W&s@2y?rF With ActiveDocument.Styles("QLNU表格首行").Font
LQ{z}Ay .NameFarEast = "楷体"
qgk C) .NameAscii = "Times New Roman"
g+pj1ycw/ .Name = "楷体"
D=_FrEM_IA .Size = 9
9>!B .Z?!# .Bold = True
)+dd .Underline = wdUnderlineNone
=;m;r!,K .Italic = wdUndefined
d#cEAy .Subscript = wdUndefined
i 7jI(VvB^ .Superscript = wdUndefined
8-g eBlCE, End With
&<$YR~g5j$ With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat
5~H}%W,P .LineSpacingRule = wdLineSpaceSingle
;0JK>c
]# .Alignment = wdAlignParagraphCenter
f2,\B6+ H6 V!W\:s .LeftIndent = CentimetersToPoints(0)
9~|hG o .RightIndent = CentimetersToPoints(0)
F- l!i / .FirstLineIndent = CentimetersToPoints(0)
=g^k$ Rc >!BZ>G2 X775j "<d .CharacterUnitLeftIndent = -0.5
;vp[J&= .CharacterUnitRightIndent = -0.5
q'CtfmI`r= .CharacterUnitFirstLineIndent = -0.5
yr[HuwU jA,| .P> .LineUnitBefore = 0
%Q. | qyq .LineUnitAfter = 0
lr~c w#h* .SpaceBefore = 0
BWev(SF{Ny .SpaceAfter = 0
vcz?;lg 0UN65JBuD End With
t +h}hL ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False
<d]
t{M62W ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll
b Sm*/Q ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese
<F&53N&Zc ActiveDocument.Styles("QLNU表格首行").NoProofing = True
){FXonVP DoEvents
8=DZ; ]XD. @lu` oyM '表格内容
b3^d!#KVM ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle")
(>M@Ukam: ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False
"jA?s9 With ActiveDocument.Styles("QLNU表格内容").Font
<wj}y0( .NameFarEast = "楷体"
X{-901J1 .NameAscii = "Times New Roman"
Sc,a jT .Name = "楷体"
BW5! @D2 .Size = 9
qt,;Yxx#^ .Bold = False
-,pw[R .Underline = wdUnderlineNone
%O02xr= .Italic = wdUndefined
P +
(q38f[ .Subscript = wdUndefined
hNUkaP .Superscript = wdUndefined
$e/[!3CASP End With
4) z* Vux With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat
%WO4 uOi:@ .LineSpacingRule = wdLineSpaceSingle
_ d* QA{ .Alignment = wdAlignParagraphCenter
jrL V \(p 0s o27k
.LeftIndent = CentimetersToPoints(0)
a F5=k: k .RightIndent = CentimetersToPoints(0)
N*6lyF
cg .FirstLineIndent = CentimetersToPoints(0)
p)YI8nW 2/f!{lz ]( .CharacterUnitLeftIndent = -0.5
?7cT$ /4 .CharacterUnitRightIndent = -0.5
V}p o .CharacterUnitFirstLineIndent = -0.5
TBu[3X% .LineUnitBefore = 0
Ojs ^-R_ .LineUnitAfter = 0
[`_-;/Gx2 .SpaceBefore = 0
+xojn v .SpaceAfter = 0
n"|1A..^ End With
$G D@e0 ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False
*^s^{0Ad ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll
>O/1Lpl.3 ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese
% P HYJc ActiveDocument.Styles("QLNU表格首行").NoProofing = True
vQsI^p DoEvents
z z 2'h> &!0%"4 '图片标题
-;W`0 k^ ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
@*"H{xo.U ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle"
QvvH/u ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False
p8|u 0/;k With ActiveDocument.Styles("QLNU图片标题").Font
c^ W \0 .NameFarEast = "楷体"
HWOOw&^< .NameAscii = "Times New Roman"
1azj%WY .Name = "楷体"
V m]u- R`{ .Size = 10.5
A#x_>fV .Bold = True
< Nl L, .Underline = wdUnderlineNone
xk@fBa } .Italic = wdUndefined
W*.6'u)9 .Subscript = wdUndefined
s%Ir h;Bs .Superscript = wdUndefined
ty-erdsP .Outline = False
(GB*+@ .Shadow = False
:7 OhplI .Color = wdColorAutomatic
DWmViuZmL End With
"C'T>^qw* With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat
||o :A .LineSpacingRule = wdLineSpaceSingle
D{G~7 P\. .Alignment = wdAlignParagraphCenter
&N|`Q (QXS qg9VK'3o .KeepWithNext = wdUndefined
2x<4& ^ .KeepTogether = True
0o_wy1O1, .OutlineLevel = wdOutlineLevelBodyText
xQ ~N1Y2W F _z1ey`t .LeftIndent = CentimetersToPoints(0)
-E,p[Sp .RightIndent = CentimetersToPoints(0)
Jt|W
%`X>D .FirstLineIndent = CentimetersToPoints(0)
L1u(\zw vq-# %o .CharacterUnitLeftIndent = 0
z=pGu_`2 .CharacterUnitRightIndent = 0
! w2BD^V- .CharacterUnitFirstLineIndent = 0
>Q% FW &p_V<\(% .LineUnitBefore = 0
Ew>lk9 La( .LineUnitAfter = 0
1vUW$)?X End With
0. lOSAq ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False
#{x4s? ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll
fYUbr"Oe ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese
Io \tZXB ActiveDocument.Styles("QLNU图片标题").NoProofing = True
M\6u4p!G! DoEvents
iiD }2y b i[ 40p!~ '目录项
hjx= ? ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle")
D+( '1E ? ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle"
P)rz%,VF+ ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False
s8|F e_ With ActiveDocument.Styles("QLNU目录项").Font
@8"cT- .NameFarEast = "黑体"
d[$YTw .NameAscii = "Times New Roman"
.g52p+Z# .NameOther = "Times New Roman"
a`_w9r+v .Name = "黑体"
(M nK
\^Y .Size = 10.5
>NjgLJh .Bold = False
tA {?-5 .Italic = wdUndefined
}4XXNY H .Underline = wdUnderlineNone
;|AyP .Color = wdColorAutomatic
B ~7]x;8h .Superscript = wdUndefined
-'~6 1=PD .Subscript = wdUndefined
1YJ@9
*l End With
E)]RQ~jY? With ActiveDocument.Styles("QLNU目录项").ParagraphFormat
(bD'SWE
VK3e(7 b .LineSpacingRule = wdLineSpaceSingle
=x5k5NIF .Alignment = wdAlignParagraphLeft
SJ).L.Cm6 (ioJ G-2u .WidowControl = False
Rb
l4aB+ .KeepWithNext = False
J8#3 ?Lp .KeepTogether = False
*7G5\[gI$ .PageBreakBefore = False
.$N8cYu0 .NoLineNumber = False
3 Q~zli: .OutlineLevel = wdOutlineLevelBodyText
]o2 Z 14 ?
H7?>ZE .LeftIndent = CentimetersToPoints(0)
aa,^+^ J .RightIndent = CentimetersToPoints(0)
^zVW 3 Y q .FirstLineIndent = CentimetersToPoints(0)
>v1ajI>O&{ &l
_NCo2 .CharacterUnitLeftIndent = 0
4)+L(KyB2 .CharacterUnitRightIndent = 0
9KDm<Q-mf .CharacterUnitFirstLineIndent = 0
Rn5{s3?F~2 YW'l),Z .LineUnitBefore = 0
xF])NZy| .LineUnitAfter = 0
qJY EsI2M End With
`z~L 0h ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False
r(DW,xoK0 ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll
3iBUIv ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot
7]lUPLsl ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese
*!&,)'' ActiveDocument.Styles("QLNU目录项").NoProofing = True
vd#BT $d? DoEvents
@D7/u88| 53O}`xX!6 '参考文献
.kZ<Q]
Vk ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle")
08F~6e6a8 ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle"
j V~+=(w) ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False
+puF0]TR,i With ActiveDocument.Styles("QLNU参考文献").Font
1y7Fv
D~ v .NameFarEast = "宋体"
)A=&3Ui)ab .NameAscii = "Times New Roman"
z-G*:DfgH .NameOther = "Times New Roman"
bPUldkB: .Name = "Times New Roman"
Ys+NIV#Q .Size = 12
<z
R
CT .Bold = False
p n(y4we .Italic = wdUndefined
3"p 'WZ> .Subscript = wdUndefined
rkWiGiisM .Superscript = wdUndefined
:3.!?mOe2 .Underline = wdUnderlineNone
;Wedj\Kkp .UnderlineColor = wdColorAutomatic
erdA ? .Color = wdColorAutomatic
WI \jm&H r .Engrave = False
$[{YE[a End With
/ MV2#P@ With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat
9Je+|+s] C jZIBMGc .LineSpacingRule = wdLineSpaceExactly
F@rx/3
[ .LineSpacing = 16
IUSV\ X9 .Alignment = wdAlignParagraphLeft
j+NsNIJq .WidowControl = False
N%fDgK .KeepWithNext = False
a}5/?/ .KeepTogether = False
&"mWi-Mpl .PageBreakBefore = False
Pm== m9 .OutlineLevel = wdOutlineLevelBodyText
H.#zbKj +!eh\.u|] .LeftIndent = CentimetersToPoints(0)
_l{_n2D- .RightIndent = CentimetersToPoints(0)
@\|Fd) .FirstLineIndent = CentimetersToPoints(0)
%%qg<iO_ 4v;KtD;M .CharacterUnitLeftIndent = 0
:[!b";pR .CharacterUnitRightIndent = 0
p%ZAVd*|#V .CharacterUnitFirstLineIndent = -2
N.dcQQ_iS RLR\*dL1 .LineUnitBefore = 0
A!IZIT5)m .LineUnitAfter = 0
E5
uk<e_ .SpaceBefore = 0
<P0&!yN .SpaceAfter = 0
Bz4;R9_%I ;(Kj-,> End With
rB}2F*eT ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False
^C70b)68 ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll
[,Fu2j] ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS
Ob@HzXH ActiveDocument.Styles("QLNU参考文献").NoProofing = True
buA/G-<e ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese
R7 ^ f|/l DoEvents
't'2z +r$ M 9 '
2* TPW ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle")
nZ 8jBCh ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle"
]7J* (,sp ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False
qTI_'q With ActiveDocument.Styles("QLNU论文题目").Font
^\7GFpc .NameFarEast = "黑体"
U)] }EgpF .NameAscii = "Arial Black"
z4wG]]Kh* .NameOther = "Arial Black"
@H61 ^K< .Name = "Arial Black"
\JBPZ~N3 .Size = 16
"P8 ( R .Bold = False
m
e2$ R>@ .Italic = wdUndefined
(Z?g^kjq) .Superscript = wdUndefined
Eu`K2_b .Subscript = wdUndefined
p61F@=EL .Underline = wdUnderlineNone
~ As_O6JI .UnderlineColor = wdColorAutomatic
?v}S9z .Color = wdColorAutomatic
r;SOAucX uL
|O < End With
8om)A0S With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat
k@^T< Ci .LineSpacingRule = wdLineSpaceSingle
37
d-! .Alignment = wdAlignParagraphCenter
oL
-udH .WidowControl = True
tLzKM+Ct# .KeepWithNext = True
= PIarUJ .KeepTogether = True
g
[c ^7 .PageBreakBefore = True
|C}= 1 .NoLineNumber = False
jq( QL%)_O .OutlineLevel = wdOutlineLevelBodyText
e~PAi8B 5 !a^'J bb .LeftIndent = CentimetersToPoints(0)
H' %#71 .RightIndent = CentimetersToPoints(0)
Nbd[xs- lw .FirstLineIndent = CentimetersToPoints(0)
y 4Lh:; tG*HUN?* .CharacterUnitLeftIndent = 0
gzEcdDD .CharacterUnitRightIndent = 0
5q
_n 69b .CharacterUnitFirstLineIndent = 0
tb;u%{S 51Q
~/ .LineUnitBefore = 1
x bD]EC .LineUnitAfter = 1
DvY)n<U1qA >(C5 &3^ .BaseLineAlignment = wdBaselineAlignAuto
H&uh$y@ End With
s7s@!~
ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False
p P^5y{ ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll
!XQ)>T^G5 ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS
*&tv(+P ActiveDocument.Styles("QLNU论文题目").NoProofing = True
Mu/hTTiNx ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese
|6 E
!wW
ActiveDocument.Styles("QLNU论文题目").NoProofing = True
.0
5x=28n% DoEvents
aPm2\Sq$ <F ?UdMT4y '中文摘要
Vu;z|L ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle")
J7p?9 ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle"
Vw+RR
i ( ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False
X][=(l!;w7 With ActiveDocument.Styles("QLNU中文摘要").Font
fF.sT7Az+ .NameFarEast = "宋体"
!NTt' 4/F{ .NameAscii = "Times New Roman"
PE<(eIr .NameOther = "Times New Roman"
RSBk^ .Name = "Times New Roman"
zszx~LSvIT .Size = 12
li9>zjz .Bold = wdUndefined
S)x5.vo^ .Superscript = wdUndefined
7.bP
Pr& .Subscript = wdUndefined
V-x/lo]Co .Italic = wdUndefined
x,UP7=6 .Underline = wdUnderlineNone
qL~|bfN .UnderlineColor = wdColorAutomatic
. H9a .Color = wdColorAutomatic
b}J,&eYD End With
jf=\\*64r4 With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat
E(Zm6 ~ .LineSpacingRule = wdLineSpaceExactly
zXM L<?w .LineSpacing = 20
t)hi j&wzu .Alignment = wdAlignParagraphLeft
A>%mJ 3M 8y'.H21:; .WidowControl = False
VF:95F;@ .KeepWithNext = False
cBQ+`DXn5c .KeepTogether = True
!YIW8SP) .PageBreakBefore = False
`Hd~H .NoLineNumber = False
6"/4@?
.OutlineLevel = wdOutlineLevelBodyText
]}L tf,9 s3y" y_u .LeftIndent = CentimetersToPoints(0)
tf6 Zz[ .RightIndent = CentimetersToPoints(0)
y=LN| vkQ .FirstLineIndent = CentimetersToPoints(0)
6xoCB/] 0,j!* .CharacterUnitLeftIndent = 0
e`zCz`R .CharacterUnitRightIndent = 0
,D2nUk .CharacterUnitFirstLineIndent = 2
U
U@ .LineUnitBefore = 0
Y?\PU{ O .LineUnitAfter = 0
DhN<e7 c` ,tak{[" End With
2X6L'!= ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False
'M,O(utGv ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll
o_n 3. O = ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS
JzmX~|=Xi ActiveDocument.Styles("QLNU中文摘要").NoProofing = True
;&$f~P Q ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese
b{}ao ActiveDocument.Styles("QLNU中文摘要").NoProofing = True
9}z%+t8u ActiveDocument.Styles("QLNU中文摘要").Frame.Delete
eDY)i9"W DoEvents
PLRMW 2 _*CbtQb5 ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
3u[5T|D' ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle"
!7Nz_d~n ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False
23/;W| With ActiveDocument.Styles("QLNU英文标题").Font
sE! $3|Q .NameFarEast = "黑体"
1!Afq}| .NameAscii = "Arial Narrow"
"mc ] ^ O .Name = "Arial Narrow"
o8fY!C) .Size = 16
-
*v)sP"@ .Bold = True
r*{`_G=1
.Bold = wdUndefined
T+4 1, .Superscript = wdUndefined
2k!4oVUN .Subscript = wdUndefined
*+_+Z DU .Italic = wdUndefined
hkx (r5o a V#phP .Underline = wdUnderlineNone
_
qU-@Y$ .UnderlineColor = wdColorAutomatic
w+iI a y .StrikeThrough = False
a;=IOQ .DoubleStrikeThrough = False
dz1kQ zOU* End With
>1 hhz With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat
Wv]ODEd .LineSpacingRule = wdLineSpaceSingle
5IfC8drAs .Alignment = wdAlignParagraphCenter
6UM1>xq9A .WidowControl = True
N)4R.} .KeepWithNext = False
TNlOj a: .KeepTogether = False
lPw`KW .PageBreakBefore = False
Z6 E_Y? .NoLineNumber = False
qm< mw"] .FirstLineIndent = CentimetersToPoints(0)
xM![ .OutlineLevel = wdOutlineLevelBodyText
qK]Om6 a~ AA0\C_W0p .LeftIndent = CentimetersToPoints(0)
&/(JIWc1su .RightIndent = CentimetersToPoints(0)
e*M-y C .FirstLineIndent = CentimetersToPoints(0)
{'yr)(:2M + P<#6<gR .CharacterUnitLeftIndent = 0
iH8V] % .CharacterUnitRightIndent = 0
MzE1he1 .CharacterUnitFirstLineIndent = 0
~L:H]_8F l wY"BPl]b .LineUnitBefore = 1
#'BPW<Ob .LineUnitAfter = 1
% Ot*k%F @.L /HXu-P End With
!v q|*8 ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False
#]r'?GN ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll
p\ DSFB ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS
4@
QR2K| ActiveDocument.Styles("QLNU英文标题").NoProofing = True
.JV y }^Q\ ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese
KpT
=tw cK ActiveDocument.Styles("QLNU英文标题").NoProofing = True
rp=Y } ActiveDocument.Styles("QLNU英文标题").Frame.Delete
?{\h`+A DoEvents
i':a|#e> 6N[X:F
3`, ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle")
\|CuTb;0 ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle"
c^stfFE & ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False
ydMSL25<+ With ActiveDocument.Styles("QLNU英文摘要").Font
K9 ek .NameFarEast = "宋体"
q^ h/64F .NameAscii = "Arial"
lYS*{i1^ ' .NameOther = "Arial"
yw >Frb5p .Name = "Arial"
i5SDy(?r .Size = 12
ijgm-1ECk3 .Bold = wdUndefined
5]zH!>-F .Italic = wdUndefined
myF/_o&Ty .Superscript = wdUndefined
} ^2'@y!( .Subscript = wdUndefined
1 0^FfwRfM End With
*d9RD~Ee
U#|6n , With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat
Z qX p f u}89v1._Jn .LineSpacingRule = wdLineSpaceExactly
q 4Mv2SPT
.LineSpacing = 20
d<[L^s9 f$qkb$?]} .Alignment = wdAlignParagraphJustify
38GZ_ z}r s7,D}Zz .WidowControl = False
._q<~_~R .KeepWithNext = False
~-#Jcw$+n= .KeepTogether = False
9-!G Ya'Z .PageBreakBefore = False
'xGTaKlm, .NoLineNumber = False
.R)uk 51;[R8'w .OutlineLevel = wdOutlineLevelBodyText
a\}`
f=T A2SDEVU .LeftIndent = CentimetersToPoints(0)
L~C:1VG5 .RightIndent = CentimetersToPoints(0)
-_= m j .FirstLineIndent = CentimetersToPoints(0)
A Wd,qldv nO#x " .CharacterUnitLeftIndent = 0
e-#V s{?|r .CharacterUnitRightIndent = 0
+'wO:E1( w .CharacterUnitFirstLineIndent = 2
`><E J'h &0]5zQ .LineUnitBefore = 0
vRH2[{ KQ9 .LineUnitAfter = 1
qB3E *MQ`&;Qa, End With
tV h"C%Vkr ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False
] !n3j=* ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll
AcHeZb8b ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS
f{2I2kJr ActiveDocument.Styles("QLNU英文摘要").NoProofing = False
#7@p DoEvents
Dt(x
j}[tC GP;N1/ = Options.Pagination = True
^I) +u>fJ Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....."
ij 1YV2v DoEvents
N_/+B]r }T ActiveDocument.Repaginate
qfjUJ/ a'A<'(yv End Sub
;SX~u*`R fk!9 ` p' z bg GK7
