Dim bContinue As Boolean
ezgP
\ct >5'C<jc C Dim regEX As New RegExp
e4j:IK> Dim paraCounter As Long '全局段落计数，仅在主程序中可读写，其它过程函数应为只读
/*B-y$WQk G?#[email protected] Dim LastTitle0String As String, LastTitle0No As Long
&r;-=ASYzV Dim LastTitle1String As String, LastTitle1No As Long
[ ; Dim LastTitle2String As String, LastTitle2No As Long
bb}|"m . Dim LastTitle3String As String, LastTitle3No As Long
q`{crY30 Dim LastTitle4String As String, LastTitle4No As Long
1#gveHm]-G Dim LastTitle5String As String, LastTitle5No As Long
}L'BzSU@G Dim LastTabelString As String, LastTableNo As Long
4D0=3Vy
Dim LastFigureString As String, LastFigureNo As Long
:Bz*vH ofC=S$wX Dim strSeperator As String
Q+ $+{g-8 S[n ;u-U Sub ConvertWidth(fTEXT As String, rText As String)
H?m9HBDpn Selection.Find.ClearFormatting
B_aLqB]U Selection.Find.Replacement.ClearFormatting
U4w^eWzP Selection.Find.Wrap = wdFindContinue
OB.TAoH: Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText
mr,IP=e~ DoEvents
xi
%u) p Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True
T/X[q7O~~4 End Sub
nc
u qo'r ,Hlbl}.ls Sub ClearDomain()
eR$qw#%c * With Selection.Find
x4r\cL1! .ClearFormatting
1 }%vZE2 .Replacement.ClearFormatting
,Tvfn`;( .Wrap = wdFindContinue
j;WZ[g#t Me.txtStatus.Text = "清除所有域代码"
>\+c@o[ DoEvents
[ ]}E-
V .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False
dmgoVF_qR End With
g+bc4eU End Sub
]N!8U_U3 >WVo s 4 Private Sub cmdCheck_Click()
J-P>
~
L" bContinue = True
-hZlFAZi Dim NoSeries1(1 To 16) As String
/xUTm=w7u Dim NoSeries2(1 To 16) As String
: D\M.A Dim NoSeries5(1 To 16) As String
&Egw94l Dim NoSeriesRM(1 To 16) As String
)! Jo7SR Dim paraTotal As Long, ParaText As String
q@1b{q#C5 Dim ttString As String, ttNo As String
@!1o +x ]4^9Tw6
_b Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long
z' z_6]5 Z@4 BTA Me.txtStatus.Visible = True
S8(Y+jgk;a Me.lbParaType.Visible = True
\vjIw{ Me.cmdCheck.Enabled = False
...|S]a ('hr;s= x\z* iv Il J!jq p%/ Z Dim ParaType As String, rText As String
( P%{Tab (&H-v'a}3 Selection.WholeStory
3MPm LV#f Selection.NoProofing = True
[K1RP. 0hVw=KDO9: tm1 = Now
V^sZXdDNL dUegHBw_`R ActiveWindow.View.Type = wdNormalView
Q`j!$r P-[6'mw` NoSeries1(1) = "一"
x|g>Zd/n NoSeries1(2) = "二"
*~Y U0o NoSeries1(3) = "三"
j *B ,b4 NoSeries1(4) = "四"
n d_+g2x' NoSeries1(5) = "五"
__dSEOGoe NoSeries1(6) = "六"
&FH zd / NoSeries1(7) = "七"
5?9K%x'b NoSeries1(8) = "八"
!VBl/ aU@ NoSeries1(9) = "九"
dT?/9JIv NoSeries1(10) = "十"
|=&[sC NoSeries1(11) = "十一"
b*i_'k}*<g NoSeries1(12) = "十二"
O10,h(O NoSeries1(13) = "十三"
)z zZYs&| NoSeries1(14) = "十四"
>r J9^ rS NoSeries1(15) = "十五"
>NwS0j$j@ NoSeries1(16) = "十六"
[Q9#44@{S; !6{; z/Hy NoSeries2(1) = "㈠"
lgWEB3f
. NoSeries2(2) = "㈡"
qS1byqq78l NoSeries2(3) = "㈢"
W@Et NoSeries2(4) = "㈣"
'
5`w5swbc NoSeries2(5) = "㈤"
xF.n=z NoSeries2(6) = "㈥"
E }LYO: NoSeries2(7) = "㈦"
lR3 `4bHA NoSeries2(8) = "㈧"
9ozN$ : NoSeries2(9) = "㈨"
YflM*F` NoSeries2(10) = "㈩"
}TfZ7~o[ |h}/#qhR NoSeries5(1) = "①"
9f1,E98w_ NoSeries5(1) = "②"
*m)+|v} NoSeries5(3) = "③"
uJhB>/Og NoSeries5(4) = "④"
,/*L|M/
&5 NoSeries5(5) = "⑤"
Y_'3pX, NoSeries5(6) = "⑥"
4BF
\- lq~ NoSeries5(7) = "⑦"
%P@V7n NoSeries5(8) = "⑧"
di $\\ Ah NoSeries5(9) = "⑨"
v o<'7, NoSeries5(10) = "⑩"
}rK9M$2]u h \dq]yOl i286 J. NoSeriesRM(1) = "I"
jiw5>RNt NoSeriesRM(2) = "II"
xDJ@ MW# NoSeriesRM(3) = "III"
H%y!lR{c^D NoSeriesRM(4) = "IV"
!( 2rU @. NoSeriesRM(5) = "V"
%
{"
v^4 NoSeriesRM(6) = "VI"
c"F3[mrff NoSeriesRM(7) = "VII"
)zn`qaHK@e NoSeriesRM(8) = "VIII"
t*J *?Ma NoSeriesRM(9) = "IX"
m/TjXA8_ NoSeriesRM(10) = "X"
"Bn8WT2? NoSeriesRM(11) = "XI"
Fq>tl 64A NoSeriesRM(12) = "XII"
L{PH8Xl _ NoSeriesRM(13) = "XIII"
mcO/V-\5' NoSeriesRM(14) = "XIV"
<Cv 6wC= NoSeriesRM(15) = "XV"
>(T)9fKF NoSeriesRM(16) = "XVI"
W@S>
#3,
g }\ G@7Q i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo)
X^Dklqqy W5a7HkM If i = vbNo Then
5A Fy6Ab Exit Sub
eI99itDQ End If
&}}UdJ` ^phgNzD If Me.chkSuper.Value Then
+8p4\l$ <` Me.txtStatus.Text = "检查修改所有的上标格式"
d!>.$| b m ^?a / CheckSuperScript
tAPn? d5 l5;
SY End If
F{,<6/ayRz lJly
fN If Me.chkStyle.Value Then
.: dy d Me.txtStatus.Text = "设置样式，请稍候...."
y(81| c# DoEvents
#7(?B{i CeateOrModifyStyle
P qU jBP\ End If
ZDn5d% %BBM
%Lj T)N_ ~f| 0o-. m ClearDomain
VDy2 !0 =emcs% oJ4OVfknD #POVu|Y;h If Me.chkLIST.Value Then
Y8l
8B> Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式"
L?h'^*F H} 4gKu8G ConvertListToOrdinary
~F; ~ End If
qK=uSL o\+ g+v.rmX ou V%*<Ki Dim pType As String, trimpTEXT As String
{"e)Jj_= If Me.chkNum.Value = True Then
>`{B Me.txtStatus.Text = "转换全角数字形式为半角"
% )o'9 ConvertWidth "１", "1"
GQ -fEIi{ DoEvents
yzI`&?
P2 ConvertWidth "２", "2"
YL[n85l>1 DoEvents
^qR2 !fwm< ConvertWidth "３", "3"
};/;L[,G DoEvents
*.F^`]yz ConvertWidth "４", "4"
)SjhOvm DoEvents
H<N$z 3k ConvertWidth "５", "5"
b9Fd}WZz DoEvents
9Su4nt `i ConvertWidth "６", "6"
v^A4%e<8^r DoEvents
k4i*80 ConvertWidth "７", "7"
JJE?!Yvc DoEvents
(Mzv"F N] ConvertWidth "８", "8"
xOY
%14%Y DoEvents
Dt]N&E#\D ConvertWidth "９", "9"
@}{lp'8FYi DoEvents
mc
FSWmq ConvertWidth "０", "0"
|J:|56kVZq DoEvents
^mp#7OL ConvertWidth "ａ", "a"
E^K<b7 DoEvents
r%=} e++^% ConvertWidth "ｂ", "b"
M_BG :P5 DoEvents
B
r`a;y T ConvertWidth "ｃ", "c"
,y>Sq
+ DoEvents
"39\@Ow ConvertWidth "ｄ", "d"
h&|PHI DoEvents
r3; @ ConvertWidth "ｅ", "e"
>v?&&FhHK< DoEvents
a%g |E'\Jw ConvertWidth "ｆ", "f"
v~.nP}
E^ DoEvents
\5
S^~(iL ConvertWidth "ｇ", "g"
uE'O}Y95 DoEvents
7o WT6Qa5 ConvertWidth "ｈ", "h"
Nv[MU@Tv DoEvents
>(
.GIR
ConvertWidth "ｉ", "i"
lq'ML g DoEvents
m.6O%jD ConvertWidth "ｊ", "j"
f\+ E&p. DoEvents
\- `,fat ConvertWidth "ｋ", "k"
C
9{8!fYp DoEvents
70Z#Ej ConvertWidth "ｌ", "l"
u2 a#qU5* DoEvents
uCB>".'kM ConvertWidth "ｍ", "m"
fex<9'e DoEvents
ahoXQ8c:\} ConvertWidth "ｎ", "n"
Bz+zEXBC ConvertWidth "ｏ", "o"
'r 0kX|| ConvertWidth "ｐ", "p"
'zo]
f ConvertWidth "ｑ", "q"
U\'HB.P
\ ConvertWidth "ｒ", "r"
_-+x zdGvX ConvertWidth "ｓ", "s"
=Ts5\1sc> ConvertWidth "ｔ", "t"
n Y)H-u^ ConvertWidth "ｕ", "u"
3u,C I! ConvertWidth "ｖ", "v"
|$:y8H'J ConvertWidth "ｗ", "w"
; <NK ConvertWidth "ｘ", "x"
?zP/i(1y ConvertWidth "ｙ", "y"
|^09ny| ConvertWidth "ｚ", "z"
{3LAK[ C ConvertWidth "Ａ", "A"
-xVp}RLT ConvertWidth "Ｂ", "B"
R ]LuZN ConvertWidth "Ｃ", "C"
.91 @T. ConvertWidth "Ｄ", "D"
P$7i>(?( ConvertWidth "Ｅ", "E"
(,`R >D k ConvertWidth "Ｆ", "F"
.Ld{QPa ConvertWidth "Ｇ", "G"
w,)O*1't ConvertWidth "Ｈ", "H"
y&&%%3 ConvertWidth "Ｉ", "I"
3bN]2\ ConvertWidth "Ｊ", "J"
* "qS ConvertWidth "Ｋ", "K"
(/ qOY ConvertWidth "Ｌ", "L"
E:$EK_?:t ConvertWidth "Ｍ", "M"
; }>g/lw ConvertWidth "Ｎ", "N"
(&osR|/Tq
ConvertWidth "Ｏ", "O"
hj4mbL ConvertWidth "Ｐ", "P"
*DUP$@}k ConvertWidth "Ｑ", "Q"
_TbQjE&6 ConvertWidth "Ｒ", "R"
;udV"7C ConvertWidth "Ｓ", "S"
UE\Z ] t! ConvertWidth "Ｔ", "T"
'qy
LQ:6 ConvertWidth "Ｕ", "U"
V zTHW5B ConvertWidth "Ｖ", "V"
%a\L^w)Xn ConvertWidth "Ｗ", "W"
Kg;u.4.-M ConvertWidth "Ｘ", "X"
%iq8dAW% ConvertWidth "Ｙ", "Y"
WeiDg,]e$b ConvertWidth "Ｚ", "Z"
4roqD;5|~| ConvertWidth "^l", "^p"
G^%FP!'D? ConvertWidth "（", "("
63PSYj(y ConvertWidth "）", ")"
ASU.VY =F <bAZ End If
]. E/s(p ud
grZ/w] With ActiveDocument
g1 5~+;33N Dim tbl As Table
a\l?7Jr For Each tbl In .Tables
QW QJSz5 tbl.Rows.Alignment = wdAlignRowCenter
)W,.xP tbl.Range.Font.NameFarEast = "楷体"
1=@csO_yn tbl.Range.Font.NameAscii = "Times New Roman"
e YQPK? jo tbl.Range.Font.Size = 10.5
cF V[k'F Next
3 BQZ[%0@ Set tbl = Nothing
o|cx? End With
V] 0T P#
zB68% *,FU*z i With ActiveDocument
nl)l:A+q8 VFI\2n` For i = 1 To .TablesOfContents.Count
P P-U. .TablesOfContents(i).Delete
"xdu h3/~= Next
I<+i
87= FGey%:p9$ =pk5'hBAi +bDBc?HZ{$ paraTotal = .Paragraphs.Count
+5i~ }Q! paraCounter = 1
W/@- i|v rNN
,! LastTitle0No = 0
7 .y35y LastTitle1No = 0
f`vu+nw LastTitle2No = 0
H.)Y*zK0. LastTitle3No = 0
n@te.,?A" LastTitle4No = 0
M 8NWQ^Y LastTableNo = 0
e
2_p7
LastFigureNo = 0
F%ffnEJg %y|L'C,ge" Dim Sec As Long
]8+
D j;yKL-ycB Sec = InputBox("正文从第一节开始？", "节设置", 6)
UP .4# 1I
If Sec = 0 Then
Q) [DSM Exit Sub
V'^E'[Dd{ End If
0&$,?CL?
]tx/t^&/\u k = 0
vrq5 +K&|| Do While (paraCounter < paraTotal) And bContinue
E=#
O|[= k = k + 1
IQ\5!e If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then
w!|jL
$5L Exit Do
i9+qU End If
Y/<`C paraCounter = paraCounter + 1
+R2+?v6 If k Mod 20 = 0 Then
BqtUL_jm Me.lbCounter.Caption = paraCounter
l.Q.G<ol DoEvents
(jp!q ,) End If
<8iu :nR Loop
^JM O POm b!4Z~d0= wLa8&E [ Do While (paraCounter < paraTotal) And bContinue
PJF1+I.%c# }h+{>{2j ParaText = Trim(.Paragraphs(paraCounter).Range.Text)
/~1Ew ShapeHeight = 0
7U1^=Y@t} ShapeWidth = 0
K0fuN)C Dq[Z0"8 CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth
5"9 '=LV~ 1smKU9B2) Select Case ParaType
N?s`a;Q[=
Case "【】表格内容"
.LI(2lP .Paragraphs(paraCounter).Style = "QLNU表格内容"
<~teD[1k" Case "章"
q}|_]R_y LastTitle0No = LastTitle0No + 1
Ib(G!oO:E- '新一章开始，复位其下属标题编号
s H(io LastTitle1No = 0
=&t]R?
F LastTitle2No = 0
!O 0{ .k LastTitle3No = 0
=/e$Rp LastTitle4No = 0
J 3QL%# )}$]~
f4R k = Val(ttNo)
3lsfT-|Wt& If k = 0 Then '非数字编号章节
2|A?9aE%0 If ttNo <> NoSeries1(LastTitle0No) Then
2DNB?,uP,' rText = "第" & NoSeries1(LastTitle0No) & ttString
S;^'Ek"Z. Me.ErrMsg.AddItem "章节编号错误：" & ParaText
M(U<H;Csk End If
x8!uI)#tS Else
@j<Q2z^ If Val(ttNo) <> LastTitle0No Then
]%2y`Jrl^W rText = "第" & LastTitle0No & ttString
QAzwNXE+ Me.ErrMsg.AddItem "章节编号错误：" & ParaText
L_sDbAT~< End If
z'&tmje[? q:MSV{k End If
E_ D0Nm%n _;mA(j '章段落设置
-q30tO. '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅
'm^]X3y* .Paragraphs(paraCounter).Style = "QLNU章节"
b6NGhkr'\ .Paragraphs(paraCounter).Range.Select
lBzfBmEB Selection.EndKey unit:=wdLine
+z|@K=d#| tc = Replace(rText, vbCr, "")
0[ZB ^ Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False
eb>jT: Case "一级标题"
#b9V&/ln LastTitle1No = LastTitle1No + 1
xnOd$] '新一级标题开始，复位其下属标题编号
<nU8.?\?~ LastTitle2No = 0
.
e_VPKF| LastTitle3No = 0
?0tm{qP LastTitle4No = 0
e<$s~ UXv @]Y EOk- If ttNo <> NoSeries1(LastTitle1No) Then
7{lWg x rText = NoSeries1(LastTitle1No) & "、" & ttString
}2hU7YWt Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText
43,baeG End If
B|K^:LUk9 2jF}n*[OW h? Lp9 VF '一级标题段落设置 格式：一、标题内容
]@!3os,CNF .Paragraphs(paraCounter).Range.Text = rText
u<JkP <"S .Paragraphs(paraCounter).Style = "QLNU一级标题"
/ ?'FSWDU .Paragraphs(paraCounter).Range.Select
<Rfx`mn Selection.EndKey unit:=wdLine
2.
q\!V}yQ tc = Replace(rText, vbCr, "")
&3$FkU^F6 Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False
0at['zw Case "二级标题"
#.{ddY{ LastTitle2No = LastTitle2No + 1
m .68c taa '新二级标题开始，复位其下属标题编号
}R! t/ 8K LastTitle3No = 0
?kULR0uL+ LastTitle4No = 0
@|:yK|6O \0n<6^y If ttNo <> NoSeries1(LastTitle2No) Then
"&C>=
rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString
qVssw* GDB ErrMsg.AddItem "二级标题编号错误：" & ParaText
dUL*~%2I End If
0 TaN # Vg(FF " '二级标题段落设置 格式：(一)、标题内容
9]vy#a# .Paragraphs(paraCounter).Range.Text = rText
k$|g)
[RE .Paragraphs(paraCounter).Style = "QLNU二级标题"
g (C/J9J `ES+$ O> .Paragraphs(paraCounter).Range.Select
a +^,EY Selection.EndKey unit:=wdLine
H`s[=Y,m tc = Replace(rText, vbCr, "")
xW|8-q Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 2 ", PreserveFormatting:=False
z |8zNt Ug E[Q2ZqhgbP Case "三级标题"
4_-L1WH LastTitle3No = LastTitle3No + 1
NG8 F'=< '新三级标题开始，复位其下属标题编号
q"i]&dMr LastTitle4No = 0
K;ocs?rk / { >Hn:jW<. If Val(ttNo) <> LastTitle3No Then
G
2`hE X% rText = LastTitle3No & ". " & ttString
O%f{\F
r Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText
=I0J1Ob a@ ^)?cH!z End If
K'f^=bc I '三级标题段落设置 格式：1. 标题内容
wb>"'% .Paragraphs(paraCounter).Range.Text = rText
3BSZz%va .Paragraphs(paraCounter).Style = "QLNU三级标题"
sI MN""@Y^ .Paragraphs(paraCounter).Range.Select
yqC158 P Selection.EndKey unit:=wdLine
:JU$
6 tc = Replace(rText, vbCr, "")
lnGg1/ Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 3 ", PreserveFormatting:=False
sI6I5 Case "四级标题"
2^%O%Pc LastTitle4No = LastTitle4No + 1
g:s|D
hE[ ~^PNMZk If Val(ttNo) <> LastTitle4No Then
>Cam6L J rText = "(" & LastTitle4No & "). " & ttString
O^n\lik ErrMsg.AddItem "四级标题编号错误：" & ParaText
8g {;o 7
}.1}yz^y End If
WmOu#5*; '四级标题段落设置 格式：(1). 标题内容
<v!jS=T .Paragraphs(paraCounter).Range.Text = rText
^CK
D[s .Paragraphs(paraCounter).Style = "QLNU四级标题"
J"-/ok(<@ .Paragraphs(paraCounter).Range.Select
@KRia{
Selection.EndKey unit:=wdLine
+ 2w<V0V_ tc = Replace(rText, vbCr, "")
_*cKu>,O Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 4 ", PreserveFormatting:=False
0oe2X1.% ~ike&k { Case "表格标题"
`! xI!Y\ LastTableNo = LastTableNo + 1
2 sj:
&][R 6rM{r> If ttNo <> CStr(LastTableNo) Then
Wuk !\<T{ rText = "表" & LastTableNo & ". " & ttString
RivhEc1h% ErrMsg.AddItem "表格编号错误：" & ParaText
\opcn\vW L2c\i End If
'Ck:=V%}g F:sUGM, '表格名称段落设置 格式：表1. 表格名称
.u'MMe>^ .Paragraphs(paraCounter).Style = "QLNU表格标题"
Zr zv'; xe = Replace(rText, vbCr, "")
Jn%Etz- .Paragraphs(paraCounter).Range.Select
L|nFN}da Selection.MoveEnd wdCharacter, -1 '选择范围包括行尾的换行符。
T$sm }= Selection.Range.Text = xe
DVt^ O [ Selection.EndKey
ehLn+tg Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False
p|em_!H"SH _>b k'V7 Case "表格首行"
b2H -D!YO^ .Paragraphs(paraCounter).Style = "QLNU表格首行"
l.(|& U~ Case "图片标题"
>)HKruSW. LastFigureNo = LastFigureNo + 1
a'g&1N0Rc MEu{'[C If ttNo <> CStr(LastFigureNo) Then
T 0qM " rText = "图" & LastFigureNo & ". " & ttString
>2v< ;. ErrMsg.AddItem "表格编号错误：" & ParaText
u2IU/z8
^ d@tf+_Ih End If
6n| ][! f '图片名称段落设置 格式：图1. 图名称
DyCkz"1S .Paragraphs(paraCounter).Range.Text = rText
}~p%e2< .Paragraphs(paraCounter).Style = "QLNU图片标题"
[_`@ V4 .Paragraphs(paraCounter).Range.Select
3:)_ oHq Selection.EndKey unit:=wdLine
_U9.u#>s V xe = Replace(rText, vbCr, "")
0 +k..l Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False
Re
s4;C Case "正文"
>S8
n 8U '正文名称段落设置
BSL+Gjj~} .Paragraphs(paraCounter).Style = "QLNU正文"
%f?Zg44 Case "文献条目"
-q(*)N5. 2 With .Paragraphs(paraCounter)
^Rtxef '.Range.Select
a)L|kux;l 'Selection.ClearFormatting
;U3K@_ '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator 'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ”
h;@>E:4Tg .Style = "QLNU参考文献"
VUO e7c= End With
=?_:h`} Case "图表注解"
SW5n?Qj3- With .Paragraphs(paraCounter)
`d Wnu3r; .Range.Font.NameFarEast = "楷体"
sm{/S *3 .Range.Font.NameAscii = "Times New Roman"
p(cnSvg .Range.Font.Size = 9 '小5号字
$wyPGok I%b5a`
7 .Alignment = wdAlignParagraphCenter
^%m{yf# .LeftIndent = 0
2.^C IJ c
.RightIndent = 0
b`JS& E .FirstLineIndent = 0
96S$Y~G# & .LineSpacing = 12
&?TXsxf1Zh .LineSpacingRule = wdLineSpaceExactly
WM%w_,Z .LineUnitAfter = 0
1h#/8 X .LineUnitBefore = 0
"T h ;YJu .OutlineLevel = wdOutlineLevelBodyText
$KhD>4^ jL .PageBreakBefore = False
7j HrLsB .RightIndent = 0
j{johV+`8 .WordWrap = True
+~|Jn_:A f .LineUnitAfter = 0.5
("YWJJ'H BSy{"K*M End With
fQ 1D p Case Else
; K,5qs '不作处理
W*?qOq
{ End Select
mmG]|Cl@ A
H=%6oT2 '含有inlineshape的段落处理
Z ;[xaP\S If ShapeHeight > 30 Then
m2&Vm~Py6b .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle '对有图片的段落设置为单倍行距
RN}joKV End If
hUX8j9N> KEdqA/F> If (ShapeWidth + ShapeHeight) > 150 Then
C$$Zwg y .Paragraphs(paraCounter).Style = "QLNU图片段落"
i3pOGa< End If
4l>U13~# VrWQ] L '段落计数器递
*^Ro I paraCounter = paraCounter + 1
'blMwD{0&\ Me.lbCounter.Caption = "当前检测段落：" & paraCounter
=A ~5?J= Me.txtStatus.Text = ParaText
~ Ye nH DoEvents
B%`| W@v Loop
Q`{Vs:8X End With
]+b?J0|P< s:cJF msg = ""
s8 u ` v1 .Yvy37n(( For i = 0 To Me.ErrMsg.ListCount - 1
76] Z~^Y msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i)
=* {7 G*tS Next
!/ dH "h A-d<[@d0 s8'!1rHd [XH,~JZJj Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg
ko|M
2 \ Me.cmdCheck.Enabled = True
]o8yZ x Me.txtStatus.Visible = True
IwOL1\'T4 Me.lbParaType.Visible = False
p8"C`bCf (XlvPcTi bContinue = False
BS ?i!Bm 7 End Sub
stMxlG"d 0:-z+`RHE 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)
R+!oPWfb Dim pTEXT As String
Ov4=!o= 'n^? DPvD pTEXT = ChKRange.Text
Udf\;G@ 45 x4JG ParaType = "其它"
!P
t4 \ TitleString = pTEXT
CEBu[TT/9 TitleNo = "N/A"
L,!\PV| l8:!{I?s= shpCounter = ChKRange.InlineShapes.Count
zo(
"v*d*q If shpCounter <> 0 Then
_
nz
^+ MaxShpHeight = 0: TotalShpWidth = 0
,
%qP For i = 1 To shpCounter
F/,6Jh k = ChKRange.InlineShapes(i).Height
X]n`YF7 l = ChKRange.InlineShapes(i).Width
$5\!ws<cZ If k > MaxShpHeight Then
wp'[AR} MaxShpHeight = k
KS1udH^Zc End If
! &cfX/y8 TotalShpWidth = TotalShpWidth + l
yE
.st9m Next
HR?bnkv|id If MaxShpHeight > 60 Or TotalShpWidth > 150 Then
=M9R~J! Exit Sub
gI9nxy End If
,\i,2<hz. End If
;JgSA&'e 2
E?]!9T~| '空行
SL`; `// If Len(pTEXT) <= 2 Then
-0BxZ AW= Exit Sub
deq5u > End If
!VXy67 a8v\H8@X JG&E"j#q '是否为表格中的文字
}2 \Hg If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then
C1(RgY| ParaType = "表格内容"
+t&+f7 k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber)
.JTRFk{W If k = 1 Then
:' xZF2 ParaType = "表格首行"
bK
sEXS End If
,
9"du Exit Sub
sva-Sd8 End If
e@]m @ X$G:3uoN '例外情况：脚注
xwW(WHdC] If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then
.mg0L\ ParaType = "脚注"
\){_\{& Exit Sub
+>AVxV=A# End If
9 G"4w` P X}5"ZLa7l '例外情况：尾注
&x=_n' If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then
u\
/TR#b ParaType = "尾注"
Ut C<TBr Exit Sub
#f;6Ia># End If
mM2I P[$idRS& If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then
f="Zpl W ParaType = "页眉页脚"
o(
mA(h Exit Sub
Z\]LG4N? End If
65VTKlDD 8N$Xq\Da+> }eI9me@Aa With regEX
q&O9W?E8dG .Global = True
j=G wAgV evE .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$"
f3^qO
9R If regEX.Test(pTEXT) Then
vO53?vN[m9 ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3")
`sy_'`i>X TitleString = regEX.Replace(pTEXT, "$3")
O_GHvLO= TitleNo = regEX.Replace(pTEXT, "$1")
/?0|hi<_$ ParaType = "章"
gwsOw [;k Exit Sub
B.smQt End If
L>&{<M_ >|gXE> .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$"
ZsCwNZR If regEX.Test(pTEXT) Then
O*lIZ ,!n ParaType = "一级标题"
wDSw cNS regEX.Execute (pTEXT)
b|G~0[g ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3")
68w~I7
D> TitleString = regEX.Replace(pTEXT, "$3")
GMkni'pV TitleNo = regEX.Replace(pTEXT, "$1")
Vq/hk Exit Sub
{ .0I!oWv End If
qT
:`F 0v6Z 4Ahpo '全角或半角括号中的数字
1(*+_TvZ .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$"
J5O/c
,?g If regEX.Test(pTEXT) Then
;CoD5F! ParaType = "二级标题"
Tr4\ `a-i regEX.Execute (pTEXT)
|/c-~|% ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5")
~IP
A TG TitleString = regEX.Replace(pTEXT, "$5")
5\O&pz@D TitleNo = regEX.Replace(pTEXT, "$2")
@[`]w`9Q7 Exit Sub
;Jb% 2?+=! End If
^|vP").aQm k]P 'D
. '阿拉伯数字 1. 2.
m(
dW["8D .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$"
9b&;4Yq!f If regEX.Test(pTEXT) Then
pIug$Ke_% ParaType = "三级标题"
ke KsL rd regEX.Execute (pTEXT)
lp5'-Jo ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测
gNZ"Kr o6 TitleString = regEX.Replace(pTEXT, "$3")
>WJQxL4 TitleNo = regEX.Replace(pTEXT, "$1")
O'xp" e, Exit Sub
Sn
7 h$ End If
"vkM*H P 44 w
"U%+ '全角或半角括号中的阿拉伯数字
I2NMn5> .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$"
@3 + If regEX.Test(pTEXT) Then
0LP0q9S:9 ParaType = "四级标题"
9eE
FX7 regEX.Execute (pTEXT)
??|, wI
Rz ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5")
WX`wz>KK^ TitleString = regEX.Replace(pTEXT, "$5")
a;kiAJ' TitleNo = regEX.Replace(pTEXT, "$2")
d_f*'M2Gv Exit Sub
F9tWJJ Usr End If
ME$J?3r AAuwE&Gg '表格名称
#6mw CA| .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$"
Im};wJ& If regEX.Test(pTEXT) Then
=Lb(N61 ParaType = "表格标题"
oK<H/76x regEX.Execute (pTEXT)
j~ =<O<P ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3"))
BT
^=p TitleString = Trim(regEX.Replace(pTEXT, "$3"))
[#SO} '1n TitleNo = Trim(regEX.Replace(pTEXT, "$1"))
n=0^ 8QQ
strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换
UF\k0oLz Exit Sub
beT[7uVj_ End If
+afkpvj8 D8xE"6T> '图片名称
0B2f[A .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$"
Q,tjODc6n If regEX.Test(pTEXT) Then
tu@- +< * ParaType = "图片标题"
s<:) ;-t L regEX.Execute (pTEXT)
#Aj#C> ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3")
!}c\u TitleString = regEX.Replace(pTEXT, "$3")
a@9W'/?igk TitleNo = regEX.Replace(pTEXT, "$1")
x%T^:R
Exit Sub
O-pH~E End If
q$ s)( D iAPGP -<6 '参考文献
iCGHcN^3 .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})" '[数字]、
^JY:$)4[" If regEX.Test(pTEXT) Then
Lm.N
{NV' ParaType = "文献条目"
@Jlsx0i}} 'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4")
`#r/L@QI 'TitleNo = regEX.Replace(pTEXT, "[$2] ")
V`i (vC( Exit Sub
n:?a=xY End If
5p-vSWr ! 9"L!A,&
' prfx = Left(pTEXT, 2)
jROh3kq If prfx = "注：" Or prfx = "注:" Then
c=a;<,Rzb ParaType = "图表注解"
,6f6r Exit Sub
_{}^]ZB End If
us
u{1&g %m/5!
" jaVx9FR + ParaType = "正文"
h Y *^rY' {A%&D^o) End With
:xO43z End Sub
Uxe ]T hOs~/bM Sub ConvertListToOrdinary()
VP ?Q $?a Dim st As Paragraph
C\;%IGn With ActiveDocument
{}gL*2:EW$ For i = .Paragraphs.Count To 1 Step -1
Nv=% R Set st = .Paragraphs(i)
C.H(aX)7 lst = st.Range.ListFormat.ListString
Ei
Dpy#f} If lst <> "" Then
\q^ dhY>) st.Range.ListFormat.RemoveNumbers
Z^J)]UL/ st.Range.InsertBefore lst & " "
<h<_''+ End If
(Hmh b}H Next
[iyhrc:@ End With
1gvh6eE
F Set st = Nothing
=%u=m a; End Sub
!:uh? RW B{S^t\T$ Private Sub UserForm_Activate()
naeppBo Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节"
31%3&B:Ts Me.lbTotal.Font.Bold = True
+(w9! 5?F Me.txtStatus.Visible = False
yM( ezb Me.cmdCheck.Enabled = True
f {\[+ >
?i!d00X End Sub
C nD3 %% ]/%CTD(O x
#|t#N% Sub CheckSuperScript()
OU^I/TU Selection.Find.ClearFormatting
m1tc="j Selection.Find.Replacement.ClearFormatting
An,Tun X With Selection.Find
D$D;'Kij .Text = "[【\[［〖](*)[】\]〗］]"
DGz}d,ie .Replacement.Text = "[\1]"
,wHlU-% .Replacement.Font.Superscript = True
Lm0q/d2|\X '.Replacement.Font.Color = wdColorBlue
j.V7`x .Forward = True
s%m?Yh3 .Wrap = wdFindContinue
qjf4G[]! .FORMAT = True
63t '|9^5 .MatchCase = False
mM+^v[= .MatchWholeWord = False
V4W(> g .MatchByte = False
`}}|QP5xG .MatchAllWordForms = False
NID2 $ p .MatchSoundsLike = False
V.yDZ
" .MatchWildcards = True
5twG2p8 End With
{n<1uh9~$8 Selection.Find.Execute Replace:=wdReplaceAll
`Cy;/95m End Sub
f,3K;S-he: |h(( SreO Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
|y ?W#xb bContinue = False
>=1UhHFNI Set regEX = Nothing
P`_Q-vu End Sub
l~@ -oE YW8Odm Sub CeateOrModifyStyle()
\!0~$?_)P '
K!-iD aVI '
n2["Ln mO Dim stl As Style
Y]B 9*^d< & ##JZ Options.Pagination = False
=^zOM6E1ZF u=#_8e(9Z On Error Resume Next
YPw =iF] For Each stl In ActiveDocument.Styles
h<WTN _i} stl.Delete
z}* L*Sk Next
|
+<o(Q( On Error GoTo 0
y>r^ MQ u2 U+uD@yA Set stl = Nothing
k4^!"~<+0 Jx
Rn)D DoEvents
]*{tno On Error Resume Next
0nR_I^ jT-tsQ ., ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph
=;?Maexp3$ 78]( ZYJV ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph
6HpiG` ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph
H4M`^r@)' cz$*6P<9J ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph
F7=&
CW 0 ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph
q _:7uQ 0Yr-Q;O<f ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph
_gCi@uXS3 ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph
7Fb!
;W#X ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph
e4 .G9( ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph
Q[aBxy
( ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph
BG]|iHi ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph
=RlAOgJ ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph
5<oV>|*@ { lXnv(3j3*s ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph
)S @TYzdAN ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph
ag
!q:6& ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph
Eqx |k-<a ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph
,twm)%caU ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph
Z[\nyj _sCzee&uQ ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph
!4$o*{9Lx: On Error GoTo 0
_M- PF$ DoEvents
iTCY $)J S3c%</' 'BaseStyle
C
}:_&^DQ ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False
^c){N-G With ActiveDocument.Styles("BaseStyle").Font
? 8S~R .NameFarEast = "宋体"
Dd)L~`k{) .NameAscii = "Times New Roman"
1t#|MH
?U_ .NameOther = "宋体"
edlsS}8^ .Size = 10.5
O tR .Bold = wdUndefined
=Zaw>p*H .Italic = wdUndefined
i/,IG+4vI .Subscript = wdUndefined
T @r%~z .Subscript = wdUndefined
;PMy9 H 'W~6-c9y .Underline = wdUnderlineNone
Y}r UVn .UnderlineColor = wdColorAutomatic
@4]dv > Z .StrikeThrough = False
&>}f\ch/ .DoubleStrikeThrough = False
XIp>PcU^ IBh?vh .Outline = False
E/>k vs% .Emboss = False
^ Vj F W .Shadow = False
uC 2{
Mmy .Hidden = False
` EVy .SmallCaps = False
#[~f 6s9D .AllCaps = False
l<s6U u" .Color = wdColorAutomatic
;\Pq .Engrave = False
[*Vo`WgbD .Scaling = 100
okbW. ~ .Kerning = 1
j3/K;U/SGJ .Animation = wdAnimationNone
%
+M,FgW .DisableCharacterSpaceGrid = False
Qf}}/k|)k .EmphasisMark = wdEmphasisMarkNone
<bh !w f6; End With
r +i=P_p With ActiveDocument.Styles("BaseStyle").ParagraphFormat
QnIF{T S= .LeftIndent = 0
R^ JtWjJR .RightIndent = 0
.wQM_RZJ .SpaceBefore = 0
GVM)-Dp] .SpaceBeforeAuto = False
Dq*O8* #* .SpaceAfter = 0
z3yAb"1Hg .SpaceAfterAuto = False
n55s7wzM !L@a
;L .LineSpacingRule = wdLineSpaceSingle
[|L~" BB .Alignment = wdAlignParagraphJustify
H4ancmy D<bH RtP .WidowControl = False
3lef
B
A7 .KeepWithNext = False
QU)AgF[ .KeepTogether = False
G"*ch$: .PageBreakBefore = False
[-3x *?Ju .NoLineNumber = False
@$ o^(my Ve[&_
(fP .FirstLineIndent = CentimetersToPoints(0)
6CNxb .OutlineLevel = wdOutlineLevelBodyText
y,$zSPJCi .CharacterUnitLeftIndent = 0
9aY}+hgb# .CharacterUnitRightIndent = 0
V_=7q=9mV .CharacterUnitFirstLineIndent = 0
?]58{O(?c .LineUnitBefore = 0
f; ,^
]mw .LineUnitAfter = 0
'77
Gg .AutoAdjustRightIndent = True
:b(Nrj&TQ[ .DisableLineHeightGrid = True
"!PN + gB xG,L*3c{o .FarEastLineBreakControl = True
0Ny M| .WordWrap = True
;2,Q:&`
.Hyphenation = False
zj#8@gbh+ l}9E0^ AS .HangingPunctuation = True
q_h/zPuH' .HalfWidthPunctuationOnTopOfLine = True
5
r&n .AddSpaceBetweenFarEastAndAlpha = True
BPypjS0?8 .AddSpaceBetweenFarEastAndDigit = True
TsI%M .BaseLineAlignment = wdBaselineAlignBaseline
JZoH -
End With
'w`9lIax ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False
cGv
`% ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll
B>e},! ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese
p+xjYU4^C ActiveDocument.Styles("BaseStyle").NoProofing = False
JcW< <7R '2S?4Z '一级标题题样式
"jP{m; p ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
2zb V9Bhq ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle"
Uc]s WcR ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False
`4t*H>:y With ActiveDocument.Styles("QLNU一级标题").Font
W 7q! F .NameFarEast = "黑体"
OUtMel_ .NameAscii = "Arial Black"
$1bzsB|^ .NameOther = "黑体"
RjGJfN { .Name = "黑体"
5_Oxl 6# .Size = 16 '三号
}r ;#|=HR .Bold = True
T^
RYN .Italic = wdUndefined
Q ;2n .Subscript = wdUndefined
~JDVoS;>jU .Superscript = wdUndefined
nztnU9OG End With
[^\HP] *Q{ With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat
,V ) |A=ml 91
} kBj .LeftIndent = CentimetersToPoints(0)
I
8 .RightIndent = CentimetersToPoints(0)
kaNK@a=e|/ .FirstLineIndent = CentimetersToPoints(0)
PKX
Tj6hj) ac/<N% .LineSpacingRule = wdLineSpaceSingle
C+aL8_(R .Alignment = wdAlignParagraphCenter
/jd.< r=_I *nV*WU S3 .WidowControl = True
=_vW7-H .KeepWithNext = True
'a=QCO
0 .KeepTogether = True
d0G d5% .OutlineLevel = wdOutlineLevelBodyText
3;wOA4ur *#sY-G d .LineUnitBefore = 0.5
KO= H!Em\l .LineUnitAfter = 0.5
@[hD;xO End With
~ x g#6%<= ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False
4So
,m0v ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll
w72\' ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese
^eCMATE ActiveDocument.Styles("QLNU一级标题").NoProofing = True
k6^!G " DoEvents
n4DK LAl )L$)qfQ~x '二级
]+@I] \S4 ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
^7V{nT@H3 ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle"
80Z'1'u0 ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False
^ <+V[ =X With ActiveDocument.Styles("QLNU二级标题").Font
ZKoISuM .NameFarEast = "黑体"
}+GIrEDI
d .NameAscii = "Arial Narrow"
{3|h^h_R .NameOther = "黑体"
B x ru7E" .Name = "黑体"
I_iXu ;UX .Size = 15 '小三号
W XJ%hA .Bold = False
nT/Az g .Outline = False
_{y4
N0 .Italic = wdUndefined
oNIt<T .Subscript = wdUndefined
M I R))j; .Superscript = wdUndefined
o@DlK` End With
kZ<"hsh,Y' With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat
y"Jma`Vjq .LeftIndent = CentimetersToPoints(0)
1p
COLC%1 .RightIndent = CentimetersToPoints(0)
g I@I.=y .FirstLineIndent = CentimetersToPoints(0)
l]Q<BV qn TW?c9Z5 .LineSpacingRule = wdLineSpaceSingle
Kb*X2#;* .Alignment = wdAlignParagraphLeft
3mLtnRX[m Ag0)> PD^ .WidowControl = True
eBg:[4 4V .KeepWithNext = True
{7LNQGiJ .KeepTogether = True
:o}LJc)| .PageBreakBefore = False
XjU/7Q .OutlineLevel = wdOutlineLevelBodyText
5HW'n hE ~cb7]^#u1l .LineUnitBefore = 0.5
# 4;(^`? .LineUnitAfter = 0.5
CP6xyXOlPB Ec l/2 End With
@ wx ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False
\EQCR[7qu7 ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll
Yjh02wo ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese
Y]: Ch (Q ActiveDocument.Styles("QLNU二级标题").NoProofing = True
#A9rI;"XI DoEvents
;.&k zzvJ 9"b
=W@ '三级标题样式
EOzw&M];r ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
ko`.nSZ-k ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle"
uN9J?j*ir ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False
uu;1B.
[b With ActiveDocument.Styles("QLNU三级标题").Font
e>!=)6[* .NameFarEast = "宋体"
:a'[ 4w .NameAscii = "Times New Roman"
E}8wnrxf .NameOther = "黑体"
,p9
>/)l .Name = "黑体"
_?c7{ .Size = 14 '四号
\jHIjFwQ
.Bold = False
dNT<![X\ .Outline = False
!A&>E eai .Italic = wdUndefined
m53~Ysq< .Subscript = wdUndefined
9?4:},FRmE .Superscript = wdUndefined
zF#:Uc`C5U End With
m-MfFEZ With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat
2rG$.cGN" .LeftIndent = CentimetersToPoints(0)
rtZEK:.# .RightIndent = CentimetersToPoints(0)
Q; 0 g .FirstLineIndent = CentimetersToPoints(0)
I|vfxf fW3NH7aUG .LineSpacingRule = wdLineSpaceSingle
@XN|R .Alignment = wdAlignParagraphLeft
hmr 2(f%U )^LiAL h .WidowControl = True
+$
0wBU .KeepWithNext = True
NRDXWscb .KeepTogether = True
]T1\gv1 ~ .PageBreakBefore = False
zL/r V< .OutlineLevel = wdOutlineLevelBodyText
J6RzN' j UA(&_ -C\ .CharacterUnitLeftIndent = 0
ECr}7R% .CharacterUnitRightIndent = 0
Q>
J9M` a .CharacterUnitFirstLineIndent = 2
%SN"<O! Wr;9Mz&{ .LineUnitBefore = 0.5
W?R@ eq.9 .LineUnitAfter = 0
b+e9P i* \ End With
J @^Ypq ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False
v)%0`%nSR ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll
((mR' A|` ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese
t lpTq \; ActiveDocument.Styles("QLNU三级标题").NoProofing = True
1Y(NxC0P=g DoEvents
,V.Bzf%=O ^H~g7&f9?N '四级标题样式
{&0u:
ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
2d JP|T9H ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle"
] Wx?k7T ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False
VrnZrQj< With ActiveDocument.Styles("QLNU四级标题").Font
0vrx5E! .NameFarEast = "宋体"
9 y{R_ .NameAscii = "Times New Roman"
# -8%g{ .NameOther = "宋体"
#(G"ya .Name = "宋体"
L(t!C~3 .Size = 12 '小四号
o&:'MwU .Bold = True
sz+%4T
.Outline = False
Fu[< zA^ .Italic = wdUndefined
w>TTu:
7 .Subscript = wdUndefined
G tpBd40" .Superscript = wdUndefined
H_d^Xk QZ End With
]jgMN7 With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat
BL1d= %2 R M992XXd .LeftIndent = CentimetersToPoints(0)
/#g
P#Z% .RightIndent = CentimetersToPoints(0)
D /b
F .FirstLineIndent = CentimetersToPoints(0)
MW J}
o3(
:R0 .LineSpacingRule = wdLineSpaceSingle
f yhBfA:u .Alignment = wdAlignParagraphLeft
b&2 N7 % ! YENJJ .WidowControl = True
k B-]SD# .KeepWithNext = True
w,eW?b
.KeepTogether = True
KK,
t !a .PageBreakBefore = False
{B7${AE .OutlineLevel = wdOutlineLevelBodyText
w5 *
Z\t5 |wGmu&fY .CharacterUnitLeftIndent = 0
,U ?^u% .CharacterUnitRightIndent = 0
lAJ P X .CharacterUnitFirstLineIndent = 2
\x<i6&. bO+]1nZ. .LineUnitBefore = 0
*IWWD\U .LineUnitAfter = 0
6 }>CPi# a9g~(#?a End With
FqXE6^ ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False
(DY&{vudF ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll
k]9+/ $ ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese
*~Sv\L ActiveDocument.Styles("QLNU四级标题").NoProofing = True
\IO<V9^L DoEvents
@!p0<&R@x =;~*YD(%/ '正文校式
\% |%C ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle")
D Af0bh" ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle"
?(Ytc) ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False
O 4'/C]B 2 With ActiveDocument.Styles("QLNU正文").Font
) m(!lDz3 (Q}ByX .NameFarEast = "宋体"
=[
nuesP' .NameAscii = "Times New Roman"
BI+x6S>d .NameOther = "宋体"
c;.jo?RR2 .Name = "宋体"
n<e1 =L =2e {T J/ .Size = 12 '小四号
,C0D|q4/!. <ZjT4>< .Bold = wdUndefined
fxknfgbg .Italic = wdUndefined
=hi{J
M .Subscript = wdUndefined
AwWo,Y399h .Superscript = wdUndefined
=
buarxk ,Rdw]O
.Outline = False
;. Y-e
Q, .Emboss = False
: 22)` ;0 .Shadow = False
o^v]d7I8b .Hidden = False
. ,<w _= Y T'ol k .DisableCharacterSpaceGrid = True
z^u*e End With
] ]XXcQ,A With ActiveDocument.Styles("QLNU正文").ParagraphFormat
_f"KB=A_x YT}ZLx .LeftIndent = CentimetersToPoints(0)
o'K= X E .RightIndent = CentimetersToPoints(0)
tP4z#0r2 .FirstLineIndent = CentimetersToPoints(0)
g9@H4y6fe= G>,43S!< .LineSpacingRule = wdLineSpaceExactly
REWW(.3o .LineSpacing = 20
!p!^[/9"c .Alignment = wdAlignParagraphLeft
@ )Nw>/; o Q#z U0K* ^ .WidowControl = False
@K\ hgaQ .KeepWithNext = False
A f Y ]i .KeepTogether = False
"P
yG;N!W .PageBreakBefore = False
?10L
*PD@ .Hyphenation = False
y
'Ah*h 1
xjWD30 .OutlineLevel = wdOutlineLevelBodyText
mjKu\7
F bMB*9<c~ ~Z' /b|x<3 .CharacterUnitLeftIndent = 0
G124 ! ^ .CharacterUnitRightIndent = 0
%>Mcme>(W .CharacterUnitFirstLineIndent = 2
5Zn: $?7 TlD^ EJG .LineUnitBefore = 0
5O[\gd- .LineUnitAfter = 0
qyzH*#d=Cf .SpaceBefore = 0
&[P(}??Y\ .SpaceAfter = 0
\1<8'at Egmp8:nZl@ .DisableLineHeightGrid = True
TgA>( HcO End With
B["jndyr ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False
}U|0F#0$
ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll
Q[)3r
,D ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese
6'Q*SO;1gh ActiveDocument.Styles("QLNU正文").NoProofing = True
H utQx DoEvents
8(g}/%1mt3 & Gs/#2XQ '图片段落样式
sGG
q~7 ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle")
';xp+,'}\ ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle"
a%r ( F ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False
l f#5X)V With ActiveDocument.Styles("QLNU图片段落").Font
@6b4YV
h .Size = 12 '小四号
Dg*'n .Italic = wdUndefined
jE
n 9T .Subscript = wdUndefined
r-o+NV .Superscript = wdUndefined
W:hTRq End With
-+[~eqRB With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat
lJdrrR)w
g lUd4`r" .LeftIndent = CentimetersToPoints(0)
'0v]?mM .RightIndent = CentimetersToPoints(0)
BAojP1}+, .FirstLineIndent = CentimetersToPoints(0)
M)3'\x : l~mj>$ .LineSpacingRule = wdLineSpaceSingle
zMh`Uqid .Alignment = wdAlignParagraphCenter
'm0_pM1:D .KeepWithNext = True
|f1Rh B .OutlineLevel = wdOutlineLevelBodyText
QL :Qzr[ Yf_/c*t\5 .CharacterUnitLeftIndent = 0
Ffig0K+ ` .CharacterUnitRightIndent = 0
,*8)aZ1 k .CharacterUnitFirstLineIndent = 0
d) GR]^=r UJ><B" .LineUnitBefore = 0
F
},kfCFF .LineUnitAfter = 0
|k#EYf#Y End With
%E[ $np> ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False
# J^ >7v ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll
E+cx 8( ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese
|?
rO ActiveDocument.Styles("QLNU图片段落").NoProofing = True
=!u]t &
yv DoEvents
\%_sL#? P q1 j hISYtNWjd" '第X章
b 9VI(s> ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
/0b7"Kr ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle"
.EZ8yJj1Q ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False
|lN=q44I With ActiveDocument.Styles("QLNU章节标题").Font
+/ ?oyC+Z .NameFarEast = "黑体"
? (M$r\\ .NameAscii = "Arial Black"
)JY#8,{w .NameOther = "Arial Black"
iy|;xBI, .Name = "黑体"
`jec|i@oO .Size = 16
;@qQ^!g2 .Bold = True
. |@ 2Uf .UnderlineColor = wdColorAutomatic
IZuP{7p$ .Outline = False
is=x6G*r .Italic = wdUndefined
q);oO\< .Subscript = wdUndefined
C!Jy;Z=+u .Superscript = wdUndefined
+
wfZFJ:1l .Scaling = 100
Wr`<bLq1vs .DisableCharacterSpaceGrid = True
[9yd29pQ] End With
+mN8uU~(kx With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat
: -$TD('F
.LineSpacingRule = wdLineSpaceSingle
9<.8mW^68 .Alignment = wdAlignParagraphCenter
.Hg{$SAC(w .WidowControl = True
~( :$c3\ .KeepWithNext = True
G "
i xw .KeepTogether = True
@(IA:6 GN .PageBreakBefore = True
b^
A7R{G7 .OutlineLevel = wdOutlineLevelBodyText
ZB]234`0 eoJ*?v .LeftIndent = CentimetersToPoints(0)
Bf;<3k)5. .RightIndent = CentimetersToPoints(0)
xVT l .FirstLineIndent = CentimetersToPoints(0)
J;ycA F ~ 8S5Q{[ ! .CharacterUnitLeftIndent = 0
%4})_h?j .CharacterUnitRightIndent = 0
- .K'rW .CharacterUnitFirstLineIndent = 0
k ~4
o`eA udPLWrPF\ .LineUnitBefore = 1
!-t"}^) .LineUnitAfter = 0.5
.
LeS- f8-~&N/_R .AutoAdjustRightIndent = False
>M^:x-mib .DisableLineHeightGrid = True
?*6Q ;.f< .FarEastLineBreakControl = True
Fb ~h{ .WordWrap = True
*ZIX76y<!A End With
}(oWXwFb&W ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False
u q A!#E ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll
|h6, .#n ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese
,YRBYK: ActiveDocument.Styles("QLNU章节标题").NoProofing = True
/ 2MhP=, DoEvents
h+}{FB 29 JsEnhE}] '表格标题
"n{JH9sA: ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
w$j6 !z ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle"
4#W*f3d[@: ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False
bl{W{?QI With ActiveDocument.Styles("QLNU表格标题").Font
%qEp{itq .NameFarEast = "楷体"
yq!peFu .NameAscii = "Arial"
[LrO"9q( .Name = "楷体"
2OjU3z<J .Size = 10.5
Gn4XVzB`O .Bold = True
VVfTFi< .Underline = wdUnderlineNone
`Om
W# \ .Italic = wdUndefined
r @PVSH/ .Subscript = wdUndefined
9 2~$Qa\S! .Superscript = wdUndefined
O&s
U Pv .Color = wdColorAutomatic
GK1P7Qy?V End With
@2` nBtk With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat
n`! 6EaD O S1f}< .LineSpacingRule = wdLineSpaceSingle
";^_ [n .Alignment = wdAlignParagraphCenter
%S^ :5#9 .KeepWithNext = True
pc QgWjfS .KeepTogether = True
qDgy7kkQ .OutlineLevel = wdOutlineLevelBodyText
nI] zRd uC T8^l}Y
B .LeftIndent = CentimetersToPoints(0)
bK{ V jXF .RightIndent = CentimetersToPoints(0)
[E/. r{S .FirstLineIndent = CentimetersToPoints(0)
{kvxz ?v`24p3PC .CharacterUnitLeftIndent = 0
v 1/ Y0 .CharacterUnitRightIndent = 0
+BE _t(%p" .CharacterUnitFirstLineIndent = 0
}GH C u 1 GPBqF .LineUnitBefore = 1
HkY#i;%N .LineUnitAfter = 0
3 K q /V_ ?xuWha@: End With
2b Fr8FUt- ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False
dh1 N/[ ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll
;zd.KaS
ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese
, eSpt #M ActiveDocument.Styles("QLNU表格标题").NoProofing = True
\+&)9 !K DoEvents
)~`UDaj_ 0}po74x*r '表格首行
Yp\Y]pym ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle")
nZM]EWn ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False
At ! @Rc With ActiveDocument.Styles("QLNU表格首行").Font
M"-.D;sa1 .NameFarEast = "楷体"
dF5y'
R' .NameAscii = "Times New Roman"
]YOWCFAQot .Name = "楷体"
OGO\u# .Size = 9
- Rx;"J.H .Bold = True
?Ss ~!38 .Underline = wdUnderlineNone
&8I*N6p:%/ .Italic = wdUndefined
B~b
='jN .Subscript = wdUndefined
,$ U~<Zd .Superscript = wdUndefined
T7o7t5* End With
40z1Qkmaey With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat
"sWsK
% .LineSpacingRule = wdLineSpaceSingle
C=2DxdZG .Alignment = wdAlignParagraphCenter
P 6({wx <9c{Kt.5( .LeftIndent = CentimetersToPoints(0)
7 0EH~ .RightIndent = CentimetersToPoints(0)
]@~%i=. 7 .FirstLineIndent = CentimetersToPoints(0)
d.
ZfK "U$](k.<VA "p+JME( .CharacterUnitLeftIndent = -0.5
$LcMG,8%_ .CharacterUnitRightIndent = -0.5
h 92KU .CharacterUnitFirstLineIndent = -0.5
X~/-,oV=A '&$zgK9T? .LineUnitBefore = 0
$GHi9aj_P .LineUnitAfter = 0
#o,FVYYj .SpaceBefore = 0
4vNH"72P .SpaceAfter = 0
U
l3xeu \f=kQbM End With
g Sf > +| ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False
:B\ $7+$v ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll
7 4&{GCL ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese
/2MZH ActiveDocument.Styles("QLNU表格首行").NoProofing = True
w
c\`2( DoEvents
; P$ _:-C tY:,9eh7B '表格内容
sHPj_d# ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle")
ab#z&jg! ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False
Aj(y]p8 With ActiveDocument.Styles("QLNU表格内容").Font
[+="I
& .NameFarEast = "楷体"
OX?E3 <8` .NameAscii = "Times New Roman"
B>sQcZ: .Name = "楷体"
5Zmc3&vRl .Size = 9
^ >
?C .Bold = False
t_ Rj1U .Underline = wdUnderlineNone
s#8T46? .Italic = wdUndefined
oFT1d .Subscript = wdUndefined
cob??|,\m .Superscript = wdUndefined
?mN!9/DIc End With
kq([c r With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat
8k+k\V{ .LineSpacingRule = wdLineSpaceSingle
`?f<hIJoz .Alignment = wdAlignParagraphCenter
L\!Oj5 D *IeG>% .LeftIndent = CentimetersToPoints(0)
4,?beA .RightIndent = CentimetersToPoints(0)
O}j@+p%M .FirstLineIndent = CentimetersToPoints(0)
@ZrNV*&< Bwu?DK .CharacterUnitLeftIndent = -0.5
f1?%p)C .CharacterUnitRightIndent = -0.5
tu /
4 .CharacterUnitFirstLineIndent = -0.5
`$F B[Z} & .LineUnitBefore = 0
-B(p8 YH .LineUnitAfter = 0
2fNNdxdbT .SpaceBefore = 0
=NSunW ! .SpaceAfter = 0
):A.A,skf End With
EQX<<x" ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False
0fK#:6 ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll
[;o>q;75Jz ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese
x(p/9$.# ActiveDocument.Styles("QLNU表格首行").NoProofing = True
BuUM~k&SY DoEvents
G:
` So
`cIe qp '图片标题
e E (+ ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
CrG!8} ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle"
o 9(x\g ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False
&}K%F)S With ActiveDocument.Styles("QLNU图片标题").Font
*pAB dP+ .NameFarEast = "楷体"
P>$+X rTE .NameAscii = "Times New Roman"
} J2f$l>R .Name = "楷体"
InRcIQT .Size = 10.5
hh2& FI .Bold = True
u9u'5xAO .Underline = wdUnderlineNone
;0NJX)GL .Italic = wdUndefined
MXjN ./ .Subscript = wdUndefined
\ Co
Z+ .Superscript = wdUndefined
t< RPDQ> .Outline = False
)-Z*/uF^ .Shadow = False
e@S\7Ks .Color = wdColorAutomatic
A
PrrUo End With
xMa9 o With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat
k ~F ,n .LineSpacingRule = wdLineSpaceSingle
J)|I/8!# .Alignment = wdAlignParagraphCenter
1=ZQRJW0B hS>=p O+y .KeepWithNext = wdUndefined
P0U&+^W"9 .KeepTogether = True
}lCQ+s ! .OutlineLevel = wdOutlineLevelBodyText
ln":j?` C~'.3Q 6 .LeftIndent = CentimetersToPoints(0)
B\%
Gp} .RightIndent = CentimetersToPoints(0)
73_-7'^mQ .FirstLineIndent = CentimetersToPoints(0)
d`% 7Pk Xq "Es .CharacterUnitLeftIndent = 0
+_QcLuV, .CharacterUnitRightIndent = 0
[57`V &c5 .CharacterUnitFirstLineIndent = 0
BB :: zBg .[s6PzQy .LineUnitBefore = 0
7]i6 Gk
.LineUnitAfter = 0
Dtyw]| L\H End With
J HV ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False
GiXs`Yt| ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll
c?aOX/C' ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese
$ f||!g ActiveDocument.Styles("QLNU图片标题").NoProofing = True
9xE_Awlc85 DoEvents
& PFq (4 madb l0[y. '目录项
TI0=nfj ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle")
91DevizXx ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle"
{xTh!ih2 - ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False
1/6}E]-F With ActiveDocument.Styles("QLNU目录项").Font
~:| V,1 .NameFarEast = "黑体"
[HQ/MkP-Z .NameAscii = "Times New Roman"
Xg\u nUHa .NameOther = "Times New Roman"
J,s:CBCGL .Name = "黑体"
NRspi_&4J .Size = 10.5
%b~ND?nn- .Bold = False
6&L;Sw#Dg .Italic = wdUndefined
: #so"O .Underline = wdUnderlineNone
_a_T`fE&de .Color = wdColorAutomatic
+}:2DXy@ .Superscript = wdUndefined
NL2D, .Subscript = wdUndefined
fZ^ad1 o End With
'-$cvH7_ With ActiveDocument.Styles("QLNU目录项").ParagraphFormat
%:Y(x$Qy ] ;HCt=I~ .LineSpacingRule = wdLineSpaceSingle
0%,?z`UY .Alignment = wdAlignParagraphLeft
5KIhk`S #&?}h)Jr' .WidowControl = False
Ll VbY=EX7 .KeepWithNext = False
jM-5aj[K .KeepTogether = False
sM%l:Fv .PageBreakBefore = False
jE8}Ho_#) .NoLineNumber = False
;lt8~ea .OutlineLevel = wdOutlineLevelBodyText
qv |}>wU ]86*k %
A .LeftIndent = CentimetersToPoints(0)
09 { s' .RightIndent = CentimetersToPoints(0)
-rT#Wi .FirstLineIndent = CentimetersToPoints(0)
: )kHXOb. 2Uu!_n}tNF .CharacterUnitLeftIndent = 0
][YuJUK8 .CharacterUnitRightIndent = 0
:@@m'zF<; .CharacterUnitFirstLineIndent = 0
"|R75m,Id 7s;;2<k;_ .LineUnitBefore = 0
D G&aFmC .LineUnitAfter = 0
=E U;%f End With
a:4!z;2
| ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False
WGyPyG#Fl ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll
d#W^S[[ ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot
P^U.VXY} ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese
Uv~|Xj 4. ActiveDocument.Styles("QLNU目录项").NoProofing = True
,4B8?0sH| DoEvents
4$U^)\06W $1Wb`$ '参考文献
YN 7`18u ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle")
Xn>>hzj-x? ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle"
ZCMH?> ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False
"D
KrQ,L With ActiveDocument.Styles("QLNU参考文献").Font
6z:/ma^
.NameFarEast = "宋体"
Lv Z',u} .NameAscii = "Times New Roman"
#.C2_MN> .NameOther = "Times New Roman"
!X M*y .Name = "Times New Roman"
WMWUP ZsGS .Size = 12
WLta{A? .Bold = False
`tXd?E/e .Italic = wdUndefined
>;VZB/ d .Subscript = wdUndefined
( )f
) .Superscript = wdUndefined
Q
;5A~n .Underline = wdUnderlineNone
$D D esy3 .UnderlineColor = wdColorAutomatic
;>F1?5 P{ .Color = wdColorAutomatic
u1d%w
OY .Engrave = False
-"^xg" End With
yJ6g{#X4K< With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat
PzhC *" i} u g;~dhe~ .LineSpacingRule = wdLineSpaceExactly
;vbM C74J# .LineSpacing = 16
:JZV= @<T .Alignment = wdAlignParagraphLeft
(.L?sDQ</z .WidowControl = False
[/l&:)5W> .KeepWithNext = False
\+0l #t$ .KeepTogether = False
oq|`;k .PageBreakBefore = False
,) aUp4* .OutlineLevel = wdOutlineLevelBodyText
8!@}\ 6qM )_?h;wh 84 .LeftIndent = CentimetersToPoints(0)
d>Nh<PqH6 .RightIndent = CentimetersToPoints(0)
w m9wnAy .FirstLineIndent = CentimetersToPoints(0)
|ZXz &Xor Tks"GlE*D .CharacterUnitLeftIndent = 0
<P@O{Xi+K .CharacterUnitRightIndent = 0
/FC(d5I .CharacterUnitFirstLineIndent = -2
{)
sE;p- TmM~uc7mj .LineUnitBefore = 0
7KJ0>0 ~Et .LineUnitAfter = 0
i M9^. .SpaceBefore = 0
G)_Zls2 ; .SpaceAfter = 0
m}S }fH( L]&y[/\E1 End With
<(V~eo
e ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False
:_ =YH+bZ ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll
<=w!: ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS
PSX
o" ActiveDocument.Styles("QLNU参考文献").NoProofing = True
WT3g31 ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese
4gWlSm) DoEvents
_N>#/v)Yi S/RChg_L5 '
"CREls, ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle")
e ~cg
(. ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle"
VUz+ _) ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False
>$)~B 4 With ActiveDocument.Styles("QLNU论文题目").Font
,|,kU 0xXz .NameFarEast = "黑体"
-(ST .NameAscii = "Arial Black"
1?.NJ<)F .NameOther = "Arial Black"
Kltqe5 .Name = "Arial Black"
tF./Jx]_ .Size = 16
u`Y~r<?P( .Bold = False
v "o@q2f_ .Italic = wdUndefined
cqW(9A|8 .Superscript = wdUndefined
F V,aQ# .Subscript = wdUndefined
BMV\@Sg .Underline = wdUnderlineNone
NzeiGj .UnderlineColor = wdColorAutomatic
) |AxQPd .Color = wdColorAutomatic
9]1LwX!M2 vF>]9sMv End With
Z+[W@ 5q With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat
s#")hMJQ .LineSpacingRule = wdLineSpaceSingle
$H]NC-\+> .Alignment = wdAlignParagraphCenter
rw 0s$~' .WidowControl = True
|`V=hqe{ .KeepWithNext = True
W"CG&. .KeepTogether = True
'op_GW .PageBreakBefore = True
iM6(bmc. .NoLineNumber = False
S 2W@;XvV .OutlineLevel = wdOutlineLevelBodyText
.~q>e*8AH $j v"$0Fc .LeftIndent = CentimetersToPoints(0)
ZvO1 =*
J, .RightIndent = CentimetersToPoints(0)
NA`8 ^PZ .FirstLineIndent = CentimetersToPoints(0)
WN#2<XjG W/CZ/Mc .CharacterUnitLeftIndent = 0
ra_v+HR7 .CharacterUnitRightIndent = 0
#JXXq%4
@ .CharacterUnitFirstLineIndent = 0
vb`aV<Mh H I:YgKs)[ .LineUnitBefore = 1
'*
/$66| .LineUnitAfter = 1
F2EX7Crj acQHqR .BaseLineAlignment = wdBaselineAlignAuto
B ?y[ %i End With
\C$cbI =;+ ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False
_{eA8J(A<
ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll
%=\*OIhl ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS
vL^ +X`.td ActiveDocument.Styles("QLNU论文题目").NoProofing = True
? du*ITim ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese
w* o2lg9 ActiveDocument.Styles("QLNU论文题目").NoProofing = True
|zd5P DoEvents
v\?l+-A? y 4mpcI '中文摘要
{LCKt/Z>P ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle")
6K=}n] n ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle"
DZEq(>mn ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False
N%1nii With ActiveDocument.Styles("QLNU中文摘要").Font
UFUEY/ q .NameFarEast = "宋体"
yF |+oTp .NameAscii = "Times New Roman"
8s-X
H .NameOther = "Times New Roman"
"ctZ"* .Name = "Times New Roman"
OK47Q{.gh .Size = 12
4T
v=sP .Bold = wdUndefined
=A$ d)& .Superscript = wdUndefined
(NJ .\m .Subscript = wdUndefined
oEj$
xm_} .Italic = wdUndefined
q9a6s {, .Underline = wdUnderlineNone
GMoz$c6n_ .UnderlineColor = wdColorAutomatic
v$5D&T
v .Color = wdColorAutomatic
TqOH (= { End With
jc#gn& 4C With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat
#T H(:I=[ .LineSpacingRule = wdLineSpaceExactly
(N)>?r@n` .LineSpacing = 20
t)~$p# NS .Alignment = wdAlignParagraphLeft
b^P\Q s*m R\/tKZJjb .WidowControl = False
3a=\$x@ .KeepWithNext = False
P_75-0G .KeepTogether = True
crSqbL .PageBreakBefore = False
s~ o\ j/ .NoLineNumber = False
bqx2lQf,_ .OutlineLevel = wdOutlineLevelBodyText
@ e$EwCV, nQa:t. rC .LeftIndent = CentimetersToPoints(0)
) p:+!sX( .RightIndent = CentimetersToPoints(0)
}1lZW"{e[ .FirstLineIndent = CentimetersToPoints(0)
~@[<y1g?nG
=Mxu,A
.CharacterUnitLeftIndent = 0
uss!E!_%, .CharacterUnitRightIndent = 0
!67xN?b .CharacterUnitFirstLineIndent = 2
$&Z#2
X. .LineUnitBefore = 0
imhE=6{ .LineUnitAfter = 0
GJHJ? ^% P7l3ZH( g End With
bT|-G2g7Z ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False
p1mAoVxR ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll
Sl% 6F! ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS
}nO%q6|\V ActiveDocument.Styles("QLNU中文摘要").NoProofing = True
7 `c! ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese
:_,3")-v ActiveDocument.Styles("QLNU中文摘要").NoProofing = True
}jdmeD: ActiveDocument.Styles("QLNU中文摘要").Frame.Delete
y |3("&)"S DoEvents
HMmVfGp] r)Ml-r = ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
iWW
>]3Q ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle"
Pj{I} 4P` ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False
`gJ$fTi& With ActiveDocument.Styles("QLNU英文标题").Font
P.1Z@HC .NameFarEast = "黑体"
)a `kL, .NameAscii = "Arial Narrow"
e#F3KLSL` .Name = "Arial Narrow"
3v `@*
* .Size = 16
uf:'"7V7 .Bold = True
* !3qO^b? .Bold = wdUndefined
,^eOwWV .Superscript = wdUndefined
Q:b0 ! .Subscript = wdUndefined
Hc8!cATQ k .Italic = wdUndefined
{/>uc,8O $'<$:;4b3 .Underline = wdUnderlineNone
%,aSD#l`f .UnderlineColor = wdColorAutomatic
EV-# E .StrikeThrough = False
U9awN&1([ .DoubleStrikeThrough = False
&yOl}?u End With
wL6G&6]</W With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat
l k
/Ke .LineSpacingRule = wdLineSpaceSingle
&Mt0Qa[ .Alignment = wdAlignParagraphCenter
, E$
f" .WidowControl = True
W%o! m,zFM .KeepWithNext = False
[6/8O .KeepTogether = False
i<=2 L?[.I .PageBreakBefore = False
2d
YU .NoLineNumber = False
Ap |g[J .FirstLineIndent = CentimetersToPoints(0)
Z
J1@z. .OutlineLevel = wdOutlineLevelBodyText
LZE9]Gd L&uPNcZ`- .LeftIndent = CentimetersToPoints(0)
I#7H)^us .RightIndent = CentimetersToPoints(0)
U:[CcN/~3 .FirstLineIndent = CentimetersToPoints(0)
0(&Rm R Ra:UnA .CharacterUnitLeftIndent = 0
s%6L94\t .CharacterUnitRightIndent = 0
@uG/2'B( .CharacterUnitFirstLineIndent = 0
[
<k&]Kv }ov>b2H#< .LineUnitBefore = 1
R9QW%!:,\2 .LineUnitAfter = 1
B7o US}M -mLu!32I< End With
%Q;:n Vt ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False
kqq1;Kd ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll
$*Wa A`(U ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS
eW}
-UeT ActiveDocument.Styles("QLNU英文标题").NoProofing = True
gi)C5
J4
ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese
fGe"1MfU ActiveDocument.Styles("QLNU英文标题").NoProofing = True
lZ <D,& ActiveDocument.Styles("QLNU英文标题").Frame.Delete
7| j
rk DoEvents
%dhrXK5 SxcE@WM ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle")
;M\Cw.%![ ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle"
5~E {bW$ ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False
-@B6 $XWL With ActiveDocument.Styles("QLNU英文摘要").Font
L%- ENk .NameFarEast = "宋体"
(|3?wX'2U .NameAscii = "Arial"
HIfi 18 .NameOther = "Arial"
M8y|L m}o .Name = "Arial"
R"\(a .Size = 12
9F~5H t .Bold = wdUndefined
U b4)x .Italic = wdUndefined
wjT#D|soI .Superscript = wdUndefined
!X-ThKEq .Subscript = wdUndefined
\]\ h ,Y8 End With
Ea0EG> Y WH fl|e With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat
t? =V<Yd1 cH Vu6I?h .LineSpacingRule = wdLineSpaceExactly
7vI
ROK~ .LineSpacing = 20
~S sfkM" ~~I]SI k{ .Alignment = wdAlignParagraphJustify
^$RpP+d Ay% ]l| Gm .WidowControl = False
=G
eGlI6 .KeepWithNext = False
f rV_5yK' .KeepTogether = False
=2vZqGO30 .PageBreakBefore = False
q~*|Wd'& .NoLineNumber = False
P4c}@Mq3 t~!ag#3['. .OutlineLevel = wdOutlineLevelBodyText
|It{L0=U q^<;B Y .LeftIndent = CentimetersToPoints(0)
Ln/*lLIOb .RightIndent = CentimetersToPoints(0)
rhGB l`(B .FirstLineIndent = CentimetersToPoints(0)
XIl#0-E0X `FX?P`\@I .CharacterUnitLeftIndent = 0
s:z .CharacterUnitRightIndent = 0
x`'s .CharacterUnitFirstLineIndent = 2
O<dC vH BIg2`95F| .LineUnitBefore = 0
m2 ph8KC .LineUnitAfter = 1
VMNdC} fWF!% |L End With
O~6AX)|&= ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False
[[]NnWJ ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll
u9]M3> ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS
XjxI@VXzUV ActiveDocument.Styles("QLNU英文摘要").NoProofing = False
??++0<75 DoEvents
ft iAty0n r]w y-
GT Options.Pagination = True
'] _7Xa' Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....."
?iHcY, DoEvents
q 1u_
r ActiveDocument.Repaginate
sAZL,w T ?`Ha\go End Sub
<xH!
Yskc /1= x8Sb vB5mOXGN q
