Dim bContinue As Boolean ]H*=Z:riu
~drNlt9jf
Dim regEX As New RegExp .T2I]d
Dim paraCounter As Long '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 "=)`*"rr
5Dd;?T>
Dim LastTitle0String As String, LastTitle0No As Long 9hQ{r 2
Dim LastTitle1String As String, LastTitle1No As Long MH-,+-Eq
Dim LastTitle2String As String, LastTitle2No As Long G}x^PJJt
Dim LastTitle3String As String, LastTitle3No As Long m"5gzH
Dim LastTitle4String As String, LastTitle4No As Long "|H0 X#
Dim LastTitle5String As String, LastTitle5No As Long >jIc/yEYKI
Dim LastTabelString As String, LastTableNo As Long c'C2V9t
Dim LastFigureString As String, LastFigureNo As Long NUseYU``
psBBiHB[L
Dim strSeperator As String `CB T ZG09
6/ ) A6Tt
Sub ConvertWidth(fTEXT As String, rText As String) qp8;=Nfa
Selection.Find.ClearFormatting * ^]ba>
Selection.Find.Replacement.ClearFormatting Yi3DoaS;"
Selection.Find.Wrap = wdFindContinue P^z)]K#sw
Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText 5;+Bl@zGu
DoEvents )Lq FZ~B
Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True Qoc-ZC"<6
End Sub U8z,N1]r*`
}_S]!AWz
Sub ClearDomain() p}\!"&,^m
With Selection.Find :\Dm=Q\
.ClearFormatting B
RT2 =}A
.Replacement.ClearFormatting (< t)5 ?@%
.Wrap = wdFindContinue 4_eq@'9-q
Me.txtStatus.Text = "清除所有域代码" V3S`8VI
DoEvents ^"I!+Teb
.Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False G!uxpZ
End With ,k4
(b
End Sub )DW; Gc
te_D
,
Private Sub cmdCheck_Click() Mh\c +1MFs
bContinue = True ]`x~v 4JU
Dim NoSeries1(1 To 16) As String B7
T+a
Dim NoSeries2(1 To 16) As String ]dH; +3 }
Dim NoSeries5(1 To 16) As String E;SF f
Dim NoSeriesRM(1 To 16) As String ? :,j9:m?
Dim paraTotal As Long, ParaText As String
eL*Edl| #
Dim ttString As String, ttNo As String
zcc]5 >
;iWCV& >w
Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long fjf\/%
U3>G9g>^B
Me.txtStatus.Visible = True L=>N#QR7
Me.lbParaType.Visible = True RN;Tqq):
Me.cmdCheck.Enabled = False Ag-*D
H0
o_S8fHqjt
H"s ey +-
(,k=mF
&j $ k58mX
Dim ParaType As String, rText As String #gP\q?5O v
UaB!,vs3st
Selection.WholeStory _nF _Rp
S
Selection.NoProofing = True 5E] I
= 619+[fK
tm1 = Now L3S,*LnA
gBN;j
ActiveWindow.View.Type = wdNormalView %q@@0qenv
8Vp"}(Q
NoSeries1(1) = "一" Lgy }Gm8u5
NoSeries1(2) = "二" I#0$5a},u^
NoSeries1(3) = "三" .Q7z<Q
NoSeries1(4) = "四" iq py5
NoSeries1(5) = "五" (_D#gr{S=
NoSeries1(6) = "六" hhpH)Bi=
NoSeries1(7) = "七" V@F~Cx
NoSeries1(8) = "八" 4r %NtX Aa
NoSeries1(9) = "九" i4l?q#X
NoSeries1(10) = "十" z`W$/tw"
NoSeries1(11) = "十一" uKplPze?
NoSeries1(12) = "十二" z;LntQZp-
NoSeries1(13) = "十三" K-/fq=z
NoSeries1(14) = "十四" !.!Ervi!N
NoSeries1(15) = "十五" ?6|EAKJ`lK
NoSeries1(16) = "十六" P+JYs
*ZRQ4i[+
NoSeries2(1) = "㈠" 9
HuE'(wQ
NoSeries2(2) = "㈡" r
d6?;K0
NoSeries2(3) = "㈢" K.k=\N
NoSeries2(4) = "㈣" 9 ItsK
NoSeries2(5) = "㈤" S;=
D/)[mr
NoSeries2(6) = "㈥" .- w*&Hd7b
NoSeries2(7) = "㈦" fz%u
rbJR
NoSeries2(8) = "㈧" 8"? t6Z;5
NoSeries2(9) = "㈨" VrHFM(RNe
NoSeries2(10) = "㈩" a"}?{
+ % 0+
NoSeries5(1) = "①" 6D>o( b2
NoSeries5(1) = "②" r'j*f"uAm
NoSeries5(3) = "③" 0 @>3f R
NoSeries5(4) = "④" a`}HFHm\2,
NoSeries5(5) = "⑤" $?7}4u,
NoSeries5(6) = "⑥" z5 ?xmffB
NoSeries5(7) = "⑦" >R6Me *VR
NoSeries5(8) = "⑧"
*v 6'I-#
NoSeries5(9) = "⑨" XWk^$ "
NoSeries5(10) = "⑩" L(iWFy1& T
AV?*r-vWL.
)
Limt<S
NoSeriesRM(1) = "I" h4]yIM `8d
NoSeriesRM(2) = "II" tH$Z_( 5
NoSeriesRM(3) = "III" w%kx Y5q
NoSeriesRM(4) = "IV" l+@NjZGm<
NoSeriesRM(5) = "V" N=(rl#<
NoSeriesRM(6) = "VI" ,+f '%)s_x
NoSeriesRM(7) = "VII" ]kr OPM/
NoSeriesRM(8) = "VIII" Bb
m 1&d#
NoSeriesRM(9) = "IX" E0w>c'kH
NoSeriesRM(10) = "X" 1L3L!@
NoSeriesRM(11) = "XI" hD"Tjd` P
NoSeriesRM(12) = "XII" S%'t
)tt,
NoSeriesRM(13) = "XIII" M!,WU[mP
NoSeriesRM(14) = "XIV" y'{0|Xj
NoSeriesRM(15) = "XV" |[0|j/V%O
NoSeriesRM(16) = "XVI" w zF"^CJ
;s{rJG{inG
i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) R/iXO~/"J
Y.ic=<0H
If i = vbNo Then (sZ B-
Exit Sub jZ)1]Q2
End If x.!%'{+ {
Rgg(rF=K6
If Me.chkSuper.Value Then d+l@hgz~
Me.txtStatus.Text = "检查修改所有的上标格式" ^ ;M!u8 [
' y1=Z
CheckSuperScript f"S^:F 0
60 *=Bs%b
End If (@]{=q<
m)&2zV/Q
If Me.chkStyle.Value Then 8uNq353
Me.txtStatus.Text = "设置样式，请稍候...." zXB.)4T
DoEvents r'"H8>UZ%
CeateOrModifyStyle |
iU#!+zY
End If J 5~bs* a8
TRa|}JaI"
8^2Q ~{i
,?728 pfw
ClearDomain hl8[A-d(R
% ZZ\Xj
AFy f7^^k
\ qK h9
If Me.chkLIST.Value Then P@)z Nik[
Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" ! fY'^Ya?
E` BL3+k Q
ConvertListToOrdinary 0 }
uH
End If G o8 m
7D<M\l8G
PKk_9Xd
Dim pType As String, trimpTEXT As String Hq OzArp3
If Me.chkNum.Value = True Then (Zp'|hx8o
Me.txtStatus.Text = "转换全角数字形式为半角" .:E%cL
+h
ConvertWidth "１", "1" )D Y?Y-n
DoEvents
S'q (Qo
ConvertWidth "２", "2" zl$'W=[rFs
DoEvents 074)(X&:x
ConvertWidth "３", "3" c&ymVB?G:1
DoEvents cZi /bIh
ConvertWidth "４", "4" V|Smk;G
DoEvents n"* A.
ConvertWidth "５", "5" dG\dGSZ\
h
DoEvents ki39$A'8
ConvertWidth "６", "6" {eL XVNR7R
DoEvents 40+~;20
ConvertWidth "７", "7" h",kA(+P
DoEvents YjAwt;%-D
ConvertWidth "８", "8" Q! WXFS
DoEvents S U04q+
ConvertWidth "９", "9" y]+q mNw"+
DoEvents B\`
4TU}kE
ConvertWidth "０", "0" }<m9w\pA
DoEvents /g@!#Dt
ConvertWidth "ａ", "a" ;
&$djP
DoEvents XI@;;>D1=U
ConvertWidth "ｂ", "b" +TL5yuA
DoEvents p xjb^GZ0
ConvertWidth "ｃ", "c" SRyAW\*LWU
DoEvents ~m'PAC "Q$
ConvertWidth "ｄ", "d" a%cCR=s=
DoEvents |4UW.dGHPo
ConvertWidth "ｅ", "e" >yiK&LW^?
DoEvents sSU p 7V
ConvertWidth "ｆ", "f" XX+%:,G
DoEvents `*^
f =y
ConvertWidth "ｇ", "g" T|[zk.8=E
DoEvents G[GSt`LVS`
ConvertWidth "ｈ", "h" zyTeF~_
DoEvents 4vC
{ G.
ConvertWidth "ｉ", "i" yal T6
DoEvents sk6C/
'0:
ConvertWidth "ｊ", "j" _4 6
y
DoEvents &c% ;Lo
ConvertWidth "ｋ", "k" =c:K(N qL
DoEvents ~"xc
3(h
ConvertWidth "ｌ", "l" O8qA2@,
DoEvents N$i!25F`
ConvertWidth "ｍ", "m"
xj\! Sn2
DoEvents [_q3 02
ConvertWidth "ｎ", "n" jt=%o a
ConvertWidth "ｏ", "o" 3w6}%=)$8
ConvertWidth "ｐ", "p" eT0Y
p
ConvertWidth "ｑ", "q" +/E`u|%|\]
ConvertWidth "ｒ", "r" {FNmYneh?6
ConvertWidth "ｓ", "s" J4EQhu Q
ConvertWidth "ｔ", "t" 4CCtLHb
ConvertWidth "ｕ", "u" +G)L8{F
Y(
ConvertWidth "ｖ", "v" ?hHVa wt
ConvertWidth "ｗ", "w" j&~`H:= E
ConvertWidth "ｘ", "x" K?`Fpg (
ConvertWidth "ｙ", "y" (hr*.NS#
ConvertWidth "ｚ", "z" [,J
UC<
ConvertWidth "Ａ", "A" $DBJ"8n2
ConvertWidth "Ｂ", "B" ~qekM> z
ConvertWidth "Ｃ", "C" DvhJkdLB>
ConvertWidth "Ｄ", "D" >NDI<9<'0}
ConvertWidth "Ｅ", "E" n B>C3e
ConvertWidth "Ｆ", "F" 1ayL*tr
ConvertWidth "Ｇ", "G" sF[7pE
ConvertWidth "Ｈ", "H" 2[z FKK
ConvertWidth "Ｉ", "I" $}+t|`*q8]
ConvertWidth "Ｊ", "J" :(ni/,~Q
ConvertWidth "Ｋ", "K" _9*3Mr)2N
ConvertWidth "Ｌ", "L" ,ELbm
ConvertWidth "Ｍ", "M" 9\y\{DHd
ConvertWidth "Ｎ", "N" [M?'N w/[S
ConvertWidth "Ｏ", "O" vr/*z euA
ConvertWidth "Ｐ", "P" [TRHcz n
ConvertWidth "Ｑ", "Q" zg>4/10P1q
ConvertWidth "Ｒ", "R" ai 0am
ConvertWidth "Ｓ", "S" ROb 2g|YXG
ConvertWidth "Ｔ", "T" d.>Zn?u4L
ConvertWidth "Ｕ", "U" @'P\c
ConvertWidth "Ｖ", "V" &V"9[
0
ConvertWidth "Ｗ", "W" a*/%EP3
ConvertWidth "Ｘ", "X" \\}tD@V"
ConvertWidth "Ｙ", "Y" ?QR13l(
ConvertWidth "Ｚ", "Z" <u`m4w
ConvertWidth "^l", "^p" 2Tt ^^Lb
ConvertWidth "（", "(" !
X5n'1&
ConvertWidth "）", ")" F)XO5CBK
I 8M^]+c
End If w8~B@}%
},#@q_E
With ActiveDocument 20h+^R3{Z
Dim tbl As Table +9yV'd>U
For Each tbl In .Tables 4TX~]tEyky
tbl.Rows.Alignment = wdAlignRowCenter NFsj
~6F#
tbl.Range.Font.NameFarEast = "楷体" {5 ` =){
tbl.Range.Font.NameAscii = "Times New Roman" Y~,ZBl,
tbl.Range.Font.Size = 10.5 L{&5Ets
Next ?Pbh&!
Set tbl = Nothing ,0k3Qi%
End With & -.NkW @
PLoD^3uG)
[ H|ifi
With ActiveDocument \ ?EnTu.
jxeZ,w o
For i = 1 To .TablesOfContents.Count /fh[_!qN
.TablesOfContents(i).Delete O S?S$y
Next 9\ f%+?p
ey!QAEg"X1
4+?d0
iTUOJ3V7i
paraTotal = .Paragraphs.Count 5=@q!8a*
paraCounter = 1 ~IQ3B $4H&
,Kl6vw8Htg
LastTitle0No = 0 :$ qa
LastTitle1No = 0 7UnB]- :.
LastTitle2No = 0 A-S!Z2m\
LastTitle3No = 0 A*b >@>2
LastTitle4No = 0 s o=Ux2
LastTableNo = 0 'Twvk U"
LastFigureNo = 0 N./l\NtZ
Cg#@JuwHa
Dim Sec As Long *M^(A}+O
3IB||oN$T
Sec = InputBox("正文从第一节开始？", "节设置", 6) L JW0UF|
If Sec = 0 Then Lfr>y_i;F
Exit Sub dkUh[yo"H
End If MbbKo-7
F$
O>
.g cLA
k = 0 \A#YL1hh
Do While (paraCounter < paraTotal) And bContinue >/J!:Htk+K
k = k + 1 iC(&U YL
If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then #" &<^
Exit Do <e)u8+(
End If 5,vw%F-m
paraCounter = paraCounter + 1 u /6b.hD O
If k Mod 20 = 0 Then mqrV:3}
Me.lbCounter.Caption = paraCounter V)q|U6R
DoEvents k
z{_H`5.
End If 7^bde<0
Loop D^dos`L0b
3+~m 9:9
R-[t 4
BHn
Do While (paraCounter < paraTotal) And bContinue m0M;f+^
`%@| sK2
ParaText = Trim(.Paragraphs(paraCounter).Range.Text) SyL :=N Z
ShapeHeight = 0 cr vq]J5
ShapeWidth = 0 @3g$H[}
Cr&,* lUo
CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth dAba'|Y
/u &{=nU
Select Case ParaType xr
yXO(
Case "【】表格内容" 1[4
2f#
.Paragraphs(paraCounter).Style = "QLNU表格内容" E'KKR1t
Case "章" N g,< 4;
LastTitle0No = LastTitle0No + 1 E=3UaYr
'新一章开始，复位其下属标题编号 `PH]_]:%
LastTitle1No = 0 S:F8` Gh
LastTitle2No = 0 D2N<a= #
LastTitle3No = 0 Aq3.%,X2H
LastTitle4No = 0 {)K H%
u*w'.5l
k = Val(ttNo) T>P[ 0`*)
If k = 0 Then '非数字编号章节 iCX Ki7
If ttNo <> NoSeries1(LastTitle0No) Then Rlyx& C8
rText = "第" & NoSeries1(LastTitle0No) & ttString SOg>0VH)
Me.ErrMsg.AddItem "章节编号错误：" & ParaText vHmsS\\~9
End If 0c F +4,5
Else Z4VNm1qs
If Val(ttNo) <> LastTitle0No Then K3* 8-Be
rText = "第" & LastTitle0No & ttString zqJ0pDS
Me.ErrMsg.AddItem "章节编号错误：" & ParaText r
P1FM1"M
End If ~[[(_C3
!TwH;#U w
End If B QxU~s
J>w3>8!>7
'章段落设置 -mfd ngp3
'字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 0D==0n
.Paragraphs(paraCounter).Style = "QLNU章节" Z) qts=
.Paragraphs(paraCounter).Range.Select XSBh+ )0Ww
Selection.EndKey unit:=wdLine G _1`NyI
tc = Replace(rText, vbCr, "") =sFLzAu8
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False F'Lav? ^
Case "一级标题" |i~Ab!*8n
LastTitle1No = LastTitle1No + 1 f5tkv<) %
'新一级标题开始，复位其下属标题编号 LFwRTY,G
LastTitle2No = 0 .S{>?2
LastTitle3No = 0 &\p=s.y?j
LastTitle4No = 0 ]:g;S,{
A(2!.Y
2?*
If ttNo <> NoSeries1(LastTitle1No) Then EEI !pi
rText = NoSeries1(LastTitle1No) & "、" & ttString S W; %2
Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText rb_FBa%
End If ca6kqh"
0YsBAfRG
1w~@'ZyU
'一级标题段落设置 格式：一、标题内容 Hzdyf
Z!jR
.Paragraphs(paraCounter).Range.Text = rText @hV F}ybp
.Paragraphs(paraCounter).Style = "QLNU一级标题" mN^/
.Paragraphs(paraCounter).Range.Select G_cWp D/
Selection.EndKey unit:=wdLine MGbl-,]
tc = Replace(rText, vbCr, "") hO?RsYJ.F
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False + 7~u_J
Case "二级标题" #Y>os3 ]
LastTitle2No = LastTitle2No + 1 q'9}Hz
'新二级标题开始，复位其下属标题编号 v{2euOFE
LastTitle3No = 0 RX\l4H5;
LastTitle4No = 0 .5AyB9 a%&
+ C aA%u
If ttNo <> NoSeries1(LastTitle2No) Then %p d-{KR
rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString XLq%nVBM8\
ErrMsg.AddItem "二级标题编号错误：" & ParaText kZU
v/]Y.
End If }<=4A\LZ
P/?' ea
'二级标题段落设置 格式：(一)、标题内容 99/`23YL
.Paragraphs(paraCounter).Range.Text = rText Z]^Ooy[pb
.Paragraphs(paraCounter).Style = "QLNU二级标题" rY:A LA
]/cVlpZ{f
.Paragraphs(paraCounter).Range.Select ,GVD.whUl
Selection.EndKey unit:=wdLine 4z*An}ol]
tc = Replace(rText, vbCr, "") n 97pxD_74
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 2 ", PreserveFormatting:=False 0D.qc8/V4.
a}
p}G\b|
Case "三级标题" 77?D
~N[
LastTitle3No = LastTitle3No + 1 L `6 R
'新三级标题开始，复位其下属标题编号 =[Z uE0c
LastTitle4No = 0 aMq|xH Z
TQ`4dVaf
If Val(ttNo) <> LastTitle3No Then ]>T4 \?aC
rText = LastTitle3No & ". " & ttString 3;-P (G@
Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText &)Z!A*w]
6 {j}Z*)m
End If iD"9,1@~n
'三级标题段落设置 格式：1. 标题内容 A8jj]J+
.Paragraphs(paraCounter).Range.Text = rText N*$L #L$*
.Paragraphs(paraCounter).Style = "QLNU三级标题" jM 07&o]D
.Paragraphs(paraCounter).Range.Select }]B H
"
Selection.EndKey unit:=wdLine Kh' 7 N!
tc = Replace(rText, vbCr, "") Li2 -G
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 3 ", PreserveFormatting:=False I}hY @
Case "四级标题" {37v.4d;
LastTitle4No = LastTitle4No + 1 3@*orm>em
2leTEs5aK`
If Val(ttNo) <> LastTitle4No Then CtO;_ ;eD'
rText = "(" & LastTitle4No & "). " & ttString *p !F+"
ErrMsg.AddItem "四级标题编号错误：" & ParaText *=
;M',nx
vCe]i B
End If mh7J PbX|
'四级标题段落设置 格式：(1). 标题内容 p*ic@ n*G
.Paragraphs(paraCounter).Range.Text = rText Z
8 xKg
.Paragraphs(paraCounter).Style = "QLNU四级标题" E9]\ I> v
.Paragraphs(paraCounter).Range.Select :GBM`f@
Selection.EndKey unit:=wdLine 1;FtQn vH
tc = Replace(rText, vbCr, "") 8~@?cy1j!
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 4 ", PreserveFormatting:=False fBw"<J{
~u^MRe|`
Case "表格标题" }#D+} Mo!,
LastTableNo = LastTableNo + 1 a 9H^e<g
S#[w).7
If ttNo <> CStr(LastTableNo) Then l2|[
rText = "表" & LastTableNo & ". " & ttString {1VMwAN j
ErrMsg.AddItem "表格编号错误：" & ParaText WJ[ybzV j
GUH-$rA
End If !M*$p Qi}
^$VH~i &
'表格名称段落设置 格式：表1. 表格名称 sngM4ikhs
.Paragraphs(paraCounter).Style = "QLNU表格标题" PgMU|O7To
xe = Replace(rText, vbCr, "") c8<qn+=%?
.Paragraphs(paraCounter).Range.Select b,r{wrLe )
Selection.MoveEnd wdCharacter, -1 '选择范围包括行尾的换行符。 e{
RhMjX<D
Selection.Range.Text = xe RASPOc/]
Selection.EndKey i"Z
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False I/vQP+w O
zMI_8lNz
Case "表格首行" IizPu4
|
.Paragraphs(paraCounter).Style = "QLNU表格首行" r&0IhE
Case "图片标题" e]Q bC "
LastFigureNo = LastFigureNo + 1 =Ul{#R
z
fFiFS\''V
If ttNo <> CStr(LastFigureNo) Then S?BI)shmg
rText = "图" & LastFigureNo & ". " & ttString yZc_PC`
ErrMsg.AddItem "表格编号错误：" & ParaText umJ!j &(
+J;T = p
End If *rH# k?
'图片名称段落设置 格式：图1. 图名称 Op>l~{{
{
.Paragraphs(paraCounter).Range.Text = rText e0 &x?U*/
.Paragraphs(paraCounter).Style = "QLNU图片标题" }\Ri:&?
.Paragraphs(paraCounter).Range.Select uJ@C-/BD!M
Selection.EndKey unit:=wdLine #*|Gp_l+%
xe = Replace(rText, vbCr, "") [,?5}'we
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False XtP5IN\S
Case "正文" *+rWn *L
'正文名称段落设置 q7kE+z
.Paragraphs(paraCounter).Style = "QLNU正文" lD41+x 7
Case "文献条目" D.:6X'hp
With .Paragraphs(paraCounter) U5!~ @XjG>
'.Range.Select ?VRf5 Cr-
'Selection.ClearFormatting kh5VuXpe
'.Range.Find.Execute findtext:=rText, replacewith:=strSeperator 'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” p?idl`?^3
.Style = "QLNU参考文献" L[r x s[7~
End With
d")TH 3pG
Case "图表注解" ra]lC7<H
With .Paragraphs(paraCounter) q!!gn1PT(T
.Range.Font.NameFarEast = "楷体" y c:y}"
.Range.Font.NameAscii = "Times New Roman" 2b89th
.Range.Font.Size = 9 '小5号字 DGrk}
@q/E)M?
.Alignment = wdAlignParagraphCenter LEn+0^hX
.LeftIndent = 0 1/J3 9Y~+
.RightIndent = 0 >Y 8\I
.FirstLineIndent = 0
f:u3fL
.LineSpacing = 12 sO$X5S C9
.LineSpacingRule = wdLineSpaceExactly \&#IK9x{
.LineUnitAfter = 0 j.O+e|kxU
.LineUnitBefore = 0 EH
~t<
.OutlineLevel = wdOutlineLevelBodyText 7^<{aE:
.PageBreakBefore = False c hs] ,7R
.RightIndent = 0 :SJxG&Pm=~
.WordWrap = True S:Y
QVj
.LineUnitAfter = 0.5 =+
vl+h
q> 5 K:5
End With 40$ - ]i
Case Else H:5- S
'不作处理 Q XL HQ_V
End Select , SB5"
e4mAKB
s!
'含有inlineshape的段落处理 =b_/_b$q
If ShapeHeight > 30 Then EZb_8<DH
.Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle '对有图片的段落设置为单倍行距 ~M Mv+d88
End If (Rs052m1
{,Z-GJ
If (ShapeWidth + ShapeHeight) > 150 Then L<H zPg
.Paragraphs(paraCounter).Style = "QLNU图片段落" (J
I[y"2
End If $z
\H*
i8X z'Sw07
'段落计数器递 B$D7} =|kc
paraCounter = paraCounter + 1 ~Kiu "
g
Me.lbCounter.Caption = "当前检测段落：" & paraCounter 0T7c =5z4W
Me.txtStatus.Text = ParaText UY~N4IR8
DoEvents < ?{ic2j#
Loop yO*HJpc
End With al@Hr*
'
`2l
j{N
msg = "" `E:&a]ul
OGWZq(c"6
For i = 0 To Me.ErrMsg.ListCount - 1 J *nWCL
msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) J<h! H
Next I;GbS`
pr.+r?la]
h*B7UzCg
/+JH nedK
Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg 5e|yW0o
Me.cmdCheck.Enabled = True 2|}`?bY]i`
Me.txtStatus.Visible = True -.t/c
}a#
Me.lbParaType.Visible = False 2uT"LW/( H
8m"(T-wb6{
bContinue = False \.K4tY+ V
End Sub D4IP$pAD
;&OV V+y
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) -POsbb>
Dim pTEXT As String Dhze2q)o
Pk/3oF
pTEXT = ChKRange.Text PHU$<>
Zp qb0ro
ParaType = "其它" 2Y1y;hCK
TitleString = pTEXT /^rJ`M[;
TitleNo = "N/A" MfG8=H2#|
X')t6DQ( I
shpCounter = ChKRange.InlineShapes.Count c5- 56 Q
If shpCounter <> 0 Then ["N_t:9I
MaxShpHeight = 0: TotalShpWidth = 0 GJj} |+|
For i = 1 To shpCounter DNu- Ce%
k = ChKRange.InlineShapes(i).Height +rWcfXOHM
l = ChKRange.InlineShapes(i).Width ^SvGSx i
If k > MaxShpHeight Then /{%p%Q[X
MaxShpHeight = k g|=
1U
End If - J]j=
TotalShpWidth = TotalShpWidth + l .9V hDrCK
Next }-N4D"d4o
If MaxShpHeight > 60 Or TotalShpWidth > 150 Then _2~+
%{/m,
Exit Sub '4e,
e|r
End If .g?Ppma
End If H{U(Rt]K
wY xk[)&Y
'空行 kkU#0p? 7
If Len(pTEXT) <= 2 Then 'izv[{!n{
Exit Sub 5KgAY;|
End If r(OH
z{wZLqG
,vs# (d6 G
'是否为表格中的文字 q#_<J1) z
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then WWgJ !Uz
ParaType = "表格内容" uWDWf5@
k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) _h^er+d!_
If k = 1 Then mV++7DY
ParaType = "表格首行" 5
iZx
-M
End If PFI^+';
Exit Sub c
Ta$t :K@
End If H84Zg/ ^
Lu5lpeSQ
'例外情况：脚注 mPJ@hr%3
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then 34c+70x7
ParaType = "脚注" }F4%5g
o
Exit Sub =Ohro '
End If tb/`*Yl @
_ZHDr[
'例外情况：尾注 *6/OLAkyF
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then (;cKv
ParaType = "尾注" c@|f'V4
Exit Sub WbJ
End If BK)3b6L=%
Wf{&D>
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then 7!PU}[
:
ParaType = "页眉页脚" ]47! Zo,
Exit Sub 3 4:Y_*
End If 5a%i%+;N
ZO8r8
[
L#MgoBXr
With regEX ap wA
.Global = True iT=h }>
1TlMB
.Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" WG
A"e
If regEX.Test(pTEXT) Then )~be<G( a
ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") =<[M$"S7d6
TitleString = regEX.Replace(pTEXT, "$3") L2>
)HG
TitleNo = regEX.Replace(pTEXT, "$1") -58Sb"f
ParaType = "章"
7RCVqc"
Exit Sub w:h([q4X
End If qlm7eS "sy
Y. KJP ?
.Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" THy{r_dx
If regEX.Test(pTEXT) Then oCSJ<+[(C
ParaType = "一级标题" 0lLg uBW@
regEX.Execute (pTEXT) ,Q,3^v-
ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") N~v K8j@
TitleString = regEX.Replace(pTEXT, "$3") * 3# RS
TitleNo = regEX.Replace(pTEXT, "$1") Y,M 2 D
Exit Sub MmH(d p+
End If Q P 7N# mh
_jM+;=f
'全角或半角括号中的数字 mt\pndTy7!
.Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" [vn"r^P
If regEX.Test(pTEXT) Then yW@YW_2;4
ParaType = "二级标题" &Pe[kCO]
regEX.Execute (pTEXT) }m93AL_y
ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") zn#lFPj12
TitleString = regEX.Replace(pTEXT, "$5") auHP^O> 4L
TitleNo = regEX.Replace(pTEXT, "$2") * hli
nQKs
Exit Sub Wxzh'c#\8
End If 9 S/X ,|i
Q`! <2i;
'阿拉伯数字 1. 2. D!rD-e
.Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" ;T3}#Q*qC
If regEX.Test(pTEXT) Then \2[sUY<W
ParaType = "三级标题" rYO ~/N
regEX.Execute (pTEXT) S
N ;1F
ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 PwC^
]e
TitleString = regEX.Replace(pTEXT, "$3") Nn{/ _QG
TitleNo = regEX.Replace(pTEXT, "$1") ks7id[~&iY
Exit Sub ODCv^4}9
End If Rja>N)MzBf
3B5 `Y
'全角或半角括号中的阿拉伯数字 @m+FAdA 0
.Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" 0) Q*u
If regEX.Test(pTEXT) Then so_^%)
gdJ
ParaType = "四级标题" UL0n>Wa5
regEX.Execute (pTEXT) Yv" -_
ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") 1xj w=
TitleString = regEX.Replace(pTEXT, "$5") >uR;^ B5m
TitleNo = regEX.Replace(pTEXT, "$2") f{+X0Oj
Exit Sub GsiT!OP]y
End If {)
wl`mw3
M5 c
*v s
'表格名称 mk[<=k~
.Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" =VGRM#+D
If regEX.Test(pTEXT) Then .(Tf$V
ParaType = "表格标题" j ygKw+C
regEX.Execute (pTEXT) O2S{*D={
ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) G dv{SCV
TitleString = Trim(regEX.Replace(pTEXT, "$3")) paZcTC
TitleNo = Trim(regEX.Replace(pTEXT, "$1")) qdxDR
2]U
strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 c F}9ldc
Exit Sub T854}RX[{
End If plgiQr #
|vY|jaV }
'图片名称 C
j:
.Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" ?7dV:]%~2
If regEX.Test(pTEXT) Then TGzs| -
ParaType = "图片标题" PBb'`PV
regEX.Execute (pTEXT) 4%*`' o$_
ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") rnQ 9uNAu
TitleString = regEX.Replace(pTEXT, "$3") [E;
~Y_l
TitleNo = regEX.Replace(pTEXT, "$1") ,:pKNWY)Q
Exit Sub )F m'i&F_
End If V oo _
?
PJ2m4ulY
'参考文献 sfR0wEqI
.Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})" '[数字]、 wpa^] l
If regEX.Test(pTEXT) Then ;aImz*1%t
ParaType = "文献条目" rq
|
>z .
'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4")
u"-."_
'TitleNo = regEX.Replace(pTEXT, "[$2] ") DEt;$>tl
5
Exit Sub 9d8 U@=
End If 7'RU\0QG
(d# W 3
prfx = Left(pTEXT, 2) K }8wCS F
If prfx = "注：" Or prfx = "注:" Then / vAA]n8
ParaType = "图表注解" 9M7Wlx2
Exit Sub Z&5 cJk
W
End If \
m g
Y0g6 zHk7
$!K,5^+
ParaType = "正文" kY#sQz}8
+t}<e(
End With $: qrh66
End Sub b X4]/4%
FB
n .
4
Sub ConvertListToOrdinary() Idr|-s%l6'
Dim st As Paragraph YzYj/,?r
With ActiveDocument eb7~\|9l1i
For i = .Paragraphs.Count To 1 Step -1 8_{XrTw(
Set st = .Paragraphs(i) 0pA> w8 mh
lst = st.Range.ListFormat.ListString e!P]$em|1E
If lst <> "" Then Y |L]#
st.Range.ListFormat.RemoveNumbers gs
Vm)mkd
st.Range.InsertBefore lst & " " /JmWiBQIn
End If 5](,N^u{):
Next M7c53fz
End With # N'_~:H
Set st = Nothing v7mg8'
End Sub k @B n}r
[t"#4[
Private Sub UserForm_Activate() 9ZG__R3B1\
Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" ]]/p.#oD,
Me.lbTotal.Font.Bold = True r-ljT<f%J[
Me.txtStatus.Visible = False "tz`@3,5dN
Me.cmdCheck.Enabled = True oD_#oX5\
^K[[:7 Aem
End Sub k!{h]D0
Rip[
|V mQ
Sub CheckSuperScript() Eg0qY\'
Selection.Find.ClearFormatting cWp5pGIzfp
Selection.Find.Replacement.ClearFormatting D`
NQEt"(
With Selection.Find Vm%0436wOY
.Text = "[【\[［〖](*)[】\]〗］]" 1G
63eH)!
.Replacement.Text = "[\1]" crU]P $a
.Replacement.Font.Superscript = True 79} Qj7
'.Replacement.Font.Color = wdColorBlue m-'+)lB
.Forward = True ]lA.?
.Wrap = wdFindContinue {oRR]>
.FORMAT = True 3`{[T17
.MatchCase = False Jqqt@5Ni
.MatchWholeWord = False m-R ` (
.MatchByte = False zqm/<]A*l
.MatchAllWordForms = False +A<7:`sO
.MatchSoundsLike = False _Sult;y"u
.MatchWildcards = True 4n/CS AT1
End With '/@i}
digf
Selection.Find.Execute Replace:=wdReplaceAll @.l?V6g9T
End Sub q@}tv =}
iQz
c$y^,9
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 6mC% zXR5
bContinue = False ;xjw'%n,
Set regEX = Nothing /igbn
End Sub *7K)J8kq
s` o _ER
Sub CeateOrModifyStyle() xcC^9BAj
' aKw7m= {
' 6Lz:J:Q)
Dim stl As Style `:5W 1D(
gkld}t*U
Options.Pagination = False AUPTt c`#Y
<%=@Ue
On Error Resume Next E\XD~
For Each stl In ActiveDocument.Styles Mf`@X[-;
stl.Delete H)NT2@%{P
Next 92g&,W b
On Error GoTo 0 v}&J*}_XZ
hA 387?
Set stl = Nothing W)2ZeH*
bf$4Z: Y
DoEvents e'&<DE
)
On Error Resume Next ;{ESo?$*
zwdi$rM5
ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph RaAvPIJa |
NXdT"O=P
ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph \ O+Hmi^
ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph k[/`G5
yA^+<u z}
ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph OB\j
q!"
ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph ThYHVJ[;
eG% Q
3 h
ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph HKYJgx
ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph +t p@ Tb
ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph RhI>Ak;-
ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph LAv!s/ O$=
ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph hlBqcOpkKg
ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph C%;J9(r
ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph 5db9C}0
cfUG)-]P~
ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph ! f*t9 I9Q
ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph Tw!_=zy(Gw
ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph i`EG80\[Z
ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph sU ;aA0kz
ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph ( kZ 2 D
H6i;MQ
ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph j/w*2+&v
On Error GoTo 0 R 2dCp|6A
DoEvents {WN??ey s,
]L9$JTGF`w
'BaseStyle |v= */e
ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False CYN")J8V
With ActiveDocument.Styles("BaseStyle").Font 'L ]k \GO
.NameFarEast = "宋体" [+>cW0a
.NameAscii = "Times New Roman" 2qDVAq^@
.NameOther = "宋体" kUQdi%3yY;
.Size = 10.5 A9ru]|?
.Bold = wdUndefined Y1L7s H 9
.Italic = wdUndefined 0uS6F8x@
.Subscript = wdUndefined _2nNCu (
.Subscript = wdUndefined K)TMr" j\
8aa`0X/6
.Underline = wdUnderlineNone N.|uPq$R
.UnderlineColor = wdColorAutomatic
Un{ 9reX5
.StrikeThrough = False j4!o BSp
.DoubleStrikeThrough = False {{Z3M
> Q
[ h~#5x
.Outline = False > kG: MJj
.Emboss = False o;7_*=i
.Shadow = False .?;"iv+
.Hidden = False Ap9 %5:]
.SmallCaps = False uDsof?z
.AllCaps = False "78BApjWT6
.Color = wdColorAutomatic *)um^O
.Engrave = False 8eZ^)9m
.Scaling = 100 75RQ\_zDu
.Kerning = 1 AOR(1Q yo
.Animation = wdAnimationNone 992cy2,Fb
.DisableCharacterSpaceGrid = False P> i lRb
.EmphasisMark = wdEmphasisMarkNone S '%!KGVe
End With ys Td'J
With ActiveDocument.Styles("BaseStyle").ParagraphFormat `Y.Q{5Y
.LeftIndent = 0 hT[w" &3
.RightIndent = 0 "D.`:9sk0
.SpaceBefore = 0 cA25FD
.SpaceBeforeAuto = False D|X@aUp 8}
.SpaceAfter = 0 +4m~D`fqt[
.SpaceAfterAuto = False !&@!:=X,
F! ~o J
.LineSpacingRule = wdLineSpaceSingle mNnt9F3Eq
.Alignment = wdAlignParagraphJustify ~+bS D<!b
_.K<#S
.WidowControl = False f> jAu;S
.KeepWithNext = False nZ~J &QK-
.KeepTogether = False ip2B vN&
.PageBreakBefore = False ;8>
TD&]{
.NoLineNumber = False guk
Ka
Evb %<`gd
.FirstLineIndent = CentimetersToPoints(0) S_Ug=8r4
.OutlineLevel = wdOutlineLevelBodyText a29 rD$
.CharacterUnitLeftIndent = 0 Nt
P=m
@
.CharacterUnitRightIndent = 0 &l2C-(
.CharacterUnitFirstLineIndent = 0 v= "2p8@F
.LineUnitBefore = 0 ?;?$\ b=
.LineUnitAfter = 0 0v'FE35~s
.AutoAdjustRightIndent = True 6@cT;=W;xj
.DisableLineHeightGrid = True V] 0~BV
ul[+vpH9
.FarEastLineBreakControl = True ahx*T i/ e
.WordWrap = True \EOPlyf8x
.Hyphenation = False 0ZjinWkR[
D?}K|z LQ
.HangingPunctuation = True e$=0.GWT
.HalfWidthPunctuationOnTopOfLine = True wEMg~Hh
.AddSpaceBetweenFarEastAndAlpha = True H\@@iK=
.AddSpaceBetweenFarEastAndDigit = True -KFozwr5/
.BaseLineAlignment = wdBaselineAlignBaseline /GMT
End With y fCdK-9+B
ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False m { C
ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll GsvB5i
ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese ~91) DNaE
ActiveDocument.Styles("BaseStyle").NoProofing = False FvV:$ V|
Bd-@@d.H<
'一级标题题样式 B3-;]6
ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") Z{spo=
ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" ?s5hck hh
ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False dMjAG7U
With ActiveDocument.Styles("QLNU一级标题").Font OAd}#R\U
.NameFarEast = "黑体" ucgp=bye
.NameAscii = "Arial Black" :
/941?%M
.NameOther = "黑体" )|CF)
T-
.Name = "黑体" U sBtk
.Size = 16 '三号 J:JkX>n%k=
.Bold = True ?(P3ZTk?.
.Italic = wdUndefined l[Rl:k!
.Subscript = wdUndefined MP F;P&6
.Superscript = wdUndefined V
j"B/@
End With Qlgii_?#@
With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat .m_ -L
Y-
y%=t((.Z
.LeftIndent = CentimetersToPoints(0) 3( `NHS
~h
.RightIndent = CentimetersToPoints(0) [SX> b"L
.FirstLineIndent = CentimetersToPoints(0) )%=oJ!)
;&MI
M`&$
.LineSpacingRule = wdLineSpaceSingle ecG,[1];
.Alignment = wdAlignParagraphCenter g Q~X;'
~x 0x.-^A
.WidowControl = True b$G &i'd
.KeepWithNext = True 89X`U)W s
.KeepTogether = True cuW&X9\m,
.OutlineLevel = wdOutlineLevelBodyText s'^"s_j
sQ>L3F
;A`
.LineUnitBefore = 0.5 X!ad~bt
.LineUnitAfter = 0.5 NY9\a[[^[8
End With S6bW?8`
ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False @?\[M9yK
ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll i\z ,)xp
ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese >{huaN B
ActiveDocument.Styles("QLNU一级标题").NoProofing = True mu#
a
DoEvents jj8h >"d
B0#JX
MX9
'二级 2/ v9
ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") l~i&r?,]^
ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" 6
s1lf!
ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False +-+%6 O<C
With ActiveDocument.Styles("QLNU二级标题").Font yp.\KLq8)
.NameFarEast = "黑体" {t1 ;icu
.NameAscii = "Arial Narrow" #gd`X|<Ch
.NameOther = "黑体" Jx_B jkF
.Name = "黑体" A q:1
.Size = 15 '小三号 >)p8^jX
.Bold = False y?*4SLy
.Outline = False D4e!A@LJ
.Italic = wdUndefined |Wzdu2T
.Subscript = wdUndefined Zcg@]Sx(I
.Superscript = wdUndefined
f=/IwMpn
End With j65qIw_Z
With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat f hS4Gb_
.LeftIndent = CentimetersToPoints(0) TS H Q>kP
.RightIndent = CentimetersToPoints(0) -OP JB:7Z
.FirstLineIndent = CentimetersToPoints(0) ^P
!} "
\ C.s%m
.LineSpacingRule = wdLineSpaceSingle L!
DK2,
.Alignment = wdAlignParagraphLeft fkmN?CU{1%
vS_Ji<W~E
.WidowControl = True w YIlp
.KeepWithNext = True ae`6hW2
.KeepTogether = True \c.MIDp"
.PageBreakBefore = False +ZK12D}
.OutlineLevel = wdOutlineLevelBodyText
X23#y7:
uDXRw*rT v
.LineUnitBefore = 0.5 ,2?S ua/LD
.LineUnitAfter = 0.5 CBvvvgI o
sAec*Q(R
End With 7U _OUUg
ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False mcFJ__3MAV
ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll %
A8dO+W
ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese @XR N#_{
ActiveDocument.Styles("QLNU二级标题").NoProofing = True }:2G D0Ru
DoEvents B6gn(w3
, / bv3pE
'三级标题样式 ]E !
b&
ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") l'0fRQc
ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" 01/yog
ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False sp'f>F2]
With ActiveDocument.Styles("QLNU三级标题").Font Nn]|#lLP
.NameFarEast = "宋体" m "y_@Jk
.NameAscii = "Times New Roman" jdWA)N}kDG
.NameOther = "黑体" 9C2
DW,?
.Name = "黑体" -U# e
.Size = 14 '四号
ROc)L CA
.Bold = False `;vJ\$-<
.Outline = False 8)
1+j>OQ
.Italic = wdUndefined ^a+H`RD
.Subscript = wdUndefined |E#+X
.Superscript = wdUndefined Iu r b?
End With WY 'QhieH
With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat ;+-D g3
.LeftIndent = CentimetersToPoints(0) ql_GN[c/
.RightIndent = CentimetersToPoints(0) q"O4}4`
.FirstLineIndent = CentimetersToPoints(0) b6y/o48
(h3f$
.LineSpacingRule = wdLineSpaceSingle u~y0H
.Alignment = wdAlignParagraphLeft "{F
e
*8?0vkZZ2
.WidowControl = True r[ }5<S Q
.KeepWithNext = True m^M sp:T,
.KeepTogether = True
Y3RaR
9
.PageBreakBefore = False y m~
.OutlineLevel = wdOutlineLevelBodyText \Q m1+tg
F T/STI
.CharacterUnitLeftIndent = 0
E +$%88
.CharacterUnitRightIndent = 0
12Jm SvD
.CharacterUnitFirstLineIndent = 2 PH]/*LEj
_cw~N
p
.LineUnitBefore = 0.5 XFv) ]_G
.LineUnitAfter = 0 3!:?OUhx
End With aH!2zC\:T
ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False ub, GF?9
ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll 1Ff
Sqd
ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese ZN `D!e6
ActiveDocument.Styles("QLNU三级标题").NoProofing = True WQ>y;fi5/{
DoEvents (_aM26s
+M^+qt;]V
'四级标题样式 \2Atm,#4
ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
ndCH
Whi
ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" +J<igb!S
ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False X zF-g*e
With ActiveDocument.Styles("QLNU四级标题").Font P U JkC
.NameFarEast = "宋体" 6Yu&'[?H$
.NameAscii = "Times New Roman" F&= X/
.NameOther = "宋体" { * &Wc Os
.Name = "宋体" #
'&&&_Hu3
.Size = 12 '小四号 O h{ >xg
.Bold = True rE[:j2HF
.Outline = False Ns}
BE H
.Italic = wdUndefined ^;@Q3~DpP%
.Subscript = wdUndefined $63_* 9
.Superscript = wdUndefined ]
e O25,6
End With Pv3rDQ/Yt|
With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat ta'{S=^j
+i0j 3.
.LeftIndent = CentimetersToPoints(0) 2LqJ.HH
.RightIndent = CentimetersToPoints(0) d=v{3*a_4,
.FirstLineIndent = CentimetersToPoints(0) mufJ @Y S#
\p%,g& ^ x
.LineSpacingRule = wdLineSpaceSingle ;Or]x ?-
.Alignment = wdAlignParagraphLeft 7I 0[Ii
H;.${u^lhd
.WidowControl = True pDloew
.KeepWithNext = True )E hR
qX9
.KeepTogether = True Op2@En|d
.PageBreakBefore = False J e1'0h9d
.OutlineLevel = wdOutlineLevelBodyText z&a>cjt_;
9nrmz>es|-
.CharacterUnitLeftIndent = 0 xh) h#p.
.CharacterUnitRightIndent = 0 %{*A@jQsg
.CharacterUnitFirstLineIndent = 2 EO:
VH
< bbC &O\
.LineUnitBefore = 0 2:4:Q[{A
.LineUnitAfter = 0 e [
9
UcI;(Va
End With 9\J.AAk~/
ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False o M~;du
ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll ,K>q{H ^
ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese LI`H,2Km
ActiveDocument.Styles("QLNU四级标题").NoProofing = True ( +w>hCI
DoEvents cU
&oXN*$/dlJ
'正文校式 7i@vj7K
ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") @cC@(M~Ru
ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" 41Nm+$m
ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False _ a`J>~$
With ActiveDocument.Styles("QLNU正文").Font {dF_ =`.
;?K>dWf3f
.NameFarEast = "宋体" &u}]3E'-k
.NameAscii = "Times New Roman" { `>;I
.NameOther = "宋体" {I:nza
.Name = "宋体" , u&K(Z%
3 J !J#
.Size = 12 '小四号 nQ 5N\RAZ
W8><
.Bold = wdUndefined t<DZW#
.Italic = wdUndefined J% mtlA
.Subscript = wdUndefined
P
1>?crw
.Superscript = wdUndefined [d^ [Y:I'\
r]<?,xx [
.Outline = False ] QJWqY
.Emboss = False dPmtU{E<M
.Shadow = False J'H}e F`
.Hidden = False 2C59fXfd
)@,zG(t5;
.DisableCharacterSpaceGrid = True !x@3U^${
End With Wn kI i,<
With ActiveDocument.Styles("QLNU正文").ParagraphFormat > o_cf*nx
dtDT^~
.LeftIndent = CentimetersToPoints(0) KW 78J~u+
.RightIndent = CentimetersToPoints(0) 2k]Jkd, E
.FirstLineIndent = CentimetersToPoints(0) \zMx~-2oN
dum(T
.LineSpacingRule = wdLineSpaceExactly (aTpBXGr=
.LineSpacing = 20 j
: $Ruy
.Alignment = wdAlignParagraphLeft zS<idy F`
XK=-$ 2 n
.WidowControl = False li7"{+ct
.KeepWithNext = False #x|IEjoa
.KeepTogether = False 76B A1x+G
.PageBreakBefore = False %~ $coZY^
.Hyphenation = False (ibj~g?U,
Sz'H{?"
.OutlineLevel = wdOutlineLevelBodyText GJo`9
Gj ka %
1[k.ap n
.CharacterUnitLeftIndent = 0 wk[4Qsk<
.CharacterUnitRightIndent = 0 MLk%U 4
.CharacterUnitFirstLineIndent = 2 OS]FGD3a
p1`" ) $
.LineUnitBefore = 0 =_:Mx'7
.LineUnitAfter = 0 z1vSt[s
.SpaceBefore = 0 > %B7/l$
.SpaceAfter = 0 kmZ
U;Z
7~
=r9-&G
.DisableLineHeightGrid = True lV ra&5
End With
I/`\>Hk
ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False WTX!)H6Zv
ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll N* NGC!p`N
ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese t8_i[Hw6D
ActiveDocument.Styles("QLNU正文").NoProofing = True ! a!^'2
DoEvents k X8Ey
>9i%Yuy](
'图片段落样式 V|`w/P9g4
ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") 5`QN<4?%
ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" t[=teB v<
ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False e X3|<Bf
With ActiveDocument.Styles("QLNU图片段落").Font >tQ$V<YB
.Size = 12 '小四号 FNy-&{P2
.Italic = wdUndefined kl[Jt)"4@
.Subscript = wdUndefined Y U6D;
.Superscript = wdUndefined <]wQ;14;H
End With d m`:']?
With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat 55K(] %t
<[Y@
<
.LeftIndent = CentimetersToPoints(0) z 5q(
.RightIndent = CentimetersToPoints(0) $_orxu0W
.FirstLineIndent = CentimetersToPoints(0) <C{uodFll
9JBVG~m+
.LineSpacingRule = wdLineSpaceSingle l`(pV ;{W
.Alignment = wdAlignParagraphCenter bb}$7v`G
.KeepWithNext = True -?Kd[Ma
.OutlineLevel = wdOutlineLevelBodyText 8=Aoj% l#
&++t
p5
.CharacterUnitLeftIndent = 0 ] rM HO
.CharacterUnitRightIndent = 0 Fsi;[be$A
.CharacterUnitFirstLineIndent = 0 7:Be.(a
B +<i=w
.LineUnitBefore = 0 q2}6lf,J
K
.LineUnitAfter = 0 5q 95.rw
End With Dxp.b$0t
ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False ^nGKuW7\
ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll @ ?CEi#-
ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese jx[g;7~X
ActiveDocument.Styles("QLNU图片段落").NoProofing = True =?oYEO7
DoEvents
KnxK9
%XiF7<A &
uz'MUT(68
'第X章 m$!Ex}2
ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") RQQ\y`h`
ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" *DS>#x@3*i
ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False sHn-#SGm
With ActiveDocument.Styles("QLNU章节标题").Font mh" 9V5T
.NameFarEast = "黑体" ,WgEl 4
.NameAscii = "Arial Black" C] GW u~QF
.NameOther = "Arial Black" -kkp Ew\
.Name = "黑体" R
Y ";SfYb
.Size = 16 V \Sl->:
.Bold = True ^6i,PRScS
.UnderlineColor = wdColorAutomatic B82SAV/O
.Outline = False E*G {V j
.Italic = wdUndefined Q=n2frW(T
.Subscript = wdUndefined Zy &?.d[z
.Superscript = wdUndefined /P
koqA,
.Scaling = 100 K1
_#Jhz
.DisableCharacterSpaceGrid = True Q8?:L<A
End With D\-D ~G]x
With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat gBd@4{y6C.
.LineSpacingRule = wdLineSpaceSingle Uf\,U8U B
.Alignment = wdAlignParagraphCenter ['JIMcD
.WidowControl = True (_ Ky' .
.KeepWithNext = True |Q*OA
.KeepTogether = True 1 Q6~O2a
.PageBreakBefore = True 4KnrQ -D
.OutlineLevel = wdOutlineLevelBodyText nz_1Fu>g|
ka?EXF:
.LeftIndent = CentimetersToPoints(0) G/y;o3/[Z
.RightIndent = CentimetersToPoints(0) :/~TV
.FirstLineIndent = CentimetersToPoints(0)
u.9syr
>^ TcO
.CharacterUnitLeftIndent = 0 IEeh9:Km
.CharacterUnitRightIndent = 0
i=AQ1X\s
.CharacterUnitFirstLineIndent = 0 :{'%I#k2
uB>OS 1=
.LineUnitBefore = 1 ;JV(!8[
.LineUnitAfter = 0.5 Qoom[@$
rGUu K0L&
.AutoAdjustRightIndent = False '8V>:dy>
.DisableLineHeightGrid = True . g8db d
.FarEastLineBreakControl = True MYMg/>f[
.WordWrap = True cZ l/8?dj}
End With y|2y! &o,!
ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False :V
ZXI#([
ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll }
3JOC!;;
ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese y\@INA^
ActiveDocument.Styles("QLNU章节标题").NoProofing = True E9~}%&
DoEvents #2*6e sP
X|Rw;FY
'表格标题 l,@rB+u
ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") MR}h}JEx0
ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" kH " > (f
ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False .ovG_O
With ActiveDocument.Styles("QLNU表格标题").Font 9`Zwa_Tni
.NameFarEast = "楷体" pWOK~=t
.NameAscii = "Arial" \?~cJMN
.Name = "楷体" *EllE+M{n
.Size = 10.5 ( Y:?qy
.Bold = True N
GL,j\(~7
.Underline = wdUnderlineNone U C..)9
.Italic = wdUndefined +XoY@|Djd
.Subscript = wdUndefined hzV= 7
.Superscript = wdUndefined TS49{^d$
.Color = wdColorAutomatic +Vw]DLWR
End With k r ga!,I
With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat " [`/J?W
6
O|
rI>D
.LineSpacingRule = wdLineSpaceSingle .)[0yW &
.Alignment = wdAlignParagraphCenter
Y"UB\_=
.KeepWithNext = True 2k W*Z7@D
.KeepTogether = True [/GCy0jk
.OutlineLevel = wdOutlineLevelBodyText D V=xqC6}
;nbbKQ]u
.LeftIndent = CentimetersToPoints(0) :e!
3-#H
.RightIndent = CentimetersToPoints(0) =l+~}/7'Z
.FirstLineIndent = CentimetersToPoints(0) ,ocAB;K
d$#DXLA\P
.CharacterUnitLeftIndent = 0 g\A kf
.CharacterUnitRightIndent = 0 (Q[(] dfc
.CharacterUnitFirstLineIndent = 0 I 'e`?H t
vNSeNS@jxC
.LineUnitBefore = 1 ,}a'h4C
.LineUnitAfter = 0 D]NJ ^.X
gH:+$FA
End With x't@M c
ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False Ux+UcBKm-
ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll $b`~K M O
ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese B'8T+qvA
ActiveDocument.Styles("QLNU表格标题").NoProofing = True qLa6c 2o,
DoEvents v&r\Z @%
M&J $9X
'表格首行 0 + 3{fD/
ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") '@G=xYR
ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False ?~=5 x
With ActiveDocument.Styles("QLNU表格首行").Font u}eLf'^ZCe
.NameFarEast = "楷体" {vox
x&UX
.NameAscii = "Times New Roman" <Wa7$ h F
.Name = "楷体" G ^2%F 5@
.Size = 9 -W.bOr
.Bold = True "a=dx|
Z
.Underline = wdUnderlineNone h)pYV>!d
.Italic = wdUndefined Y^-D'2P]P
.Subscript = wdUndefined DW >|'w %
.Superscript = wdUndefined |<!xD
iB
End With
YES-,;ZQ'
With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat xV>sc;PEb
.LineSpacingRule = wdLineSpaceSingle I~) A!vp
.Alignment = wdAlignParagraphCenter 8Bwm+LYr-
J?_-Dg(=
.LeftIndent = CentimetersToPoints(0) ,KFF[z
.RightIndent = CentimetersToPoints(0) rt C:3fDy
.FirstLineIndent = CentimetersToPoints(0) cxpG6c
e_3($pj
&@fW6},iW
.CharacterUnitLeftIndent = -0.5 ^k5# {?I
.CharacterUnitRightIndent = -0.5 Zr|z!S?aSC
.CharacterUnitFirstLineIndent = -0.5 9^1li2z k{
l9vJ]
.LineUnitBefore = 0 M~P h/
.LineUnitAfter = 0 ,&iZ*6=X?0
.SpaceBefore = 0 "5b4fQ
;x
.SpaceAfter = 0 P]<15 l
n0%5mTU N
End With nXAGwU8a
ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False o|Kd\<r Y
ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll wuKr 9W9Xa
ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese z6uHe{|
ActiveDocument.Styles("QLNU表格首行").NoProofing = True \%Lj !\
DoEvents b:(t22m#?
PaZd^0'!Z
'表格内容 Hd89./v`:
ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle")
ES ? 6
ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False >TG#
With ActiveDocument.Styles("QLNU表格内容").Font `9
mc+
.NameFarEast = "楷体" e {805^X}
.NameAscii = "Times New Roman" T 07 AH
.Name = "楷体" k~IRds@G
.Size = 9 DyM<aT
.Bold = False 3='Kii=LA
.Underline = wdUnderlineNone
0s .X
.Italic = wdUndefined K8 Hj)$E61
.Subscript = wdUndefined <K {|#ND#
.Superscript = wdUndefined EFz Pt?l
End With pIl [)
%F
With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat {Y1&GO;
.LineSpacingRule = wdLineSpaceSingle
, )PpE&
.Alignment = wdAlignParagraphCenter a3c43!J?M
$ 9
k5a
.LeftIndent = CentimetersToPoints(0) -7(,*1Tk
.RightIndent = CentimetersToPoints(0) 8/ zv3.+[
.FirstLineIndent = CentimetersToPoints(0) "w{$d&+?ag
wj 15Og?
.CharacterUnitLeftIndent = -0.5 X6so)1jJ
.CharacterUnitRightIndent = -0.5 6wH:jd 9,
.CharacterUnitFirstLineIndent = -0.5 Wiere0 2*
.LineUnitBefore = 0 Q9{f'B
.LineUnitAfter = 0 o(eh.
.SpaceBefore = 0 ) *nZ6Cg'
.SpaceAfter = 0 r j/1AK
End With Eu2(#z 6eW
ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False 'H-hp
ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll EqF>=5*
ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese FE3uNfQs|
ActiveDocument.Styles("QLNU表格首行").NoProofing = True u x
bL oE
DoEvents 3,)[Q?nKD
y1#*c$ O
'图片标题 Mk8k,"RG&Z
ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") (CrP6]=
ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" m ;{(U Z
ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False \JDxN
With ActiveDocument.Styles("QLNU图片标题").Font 'c# AGi9
.NameFarEast = "楷体" 46gDoSS
.NameAscii = "Times New Roman" !dOp LUh l
.Name = "楷体" (N?nOOQ
.Size = 10.5 ih(A l<IS
.Bold = True & {=}U
.Underline = wdUnderlineNone %hi] oz
.Italic = wdUndefined Gs U.Lkf
.Subscript = wdUndefined 9yWSlbPr]
.Superscript = wdUndefined ~mC>G 4y$a
.Outline = False a^7QHYJ6
.Shadow = False [E)&dl_k
.Color = wdColorAutomatic dZuPR
End With :4[_&]H
With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat 21 z@-&Oq
.LineSpacingRule = wdLineSpaceSingle E'^ny4gL
.Alignment = wdAlignParagraphCenter 8f>v[SQ"
T TD#ovo'
.KeepWithNext = wdUndefined DqA$%b
yyE
.KeepTogether = True N14Q4v-*x
.OutlineLevel = wdOutlineLevelBodyText ?D[' >Rzu
(g 0U v.*
.LeftIndent = CentimetersToPoints(0) Wn&9R
j
.RightIndent = CentimetersToPoints(0) 2[i(XG{/
.FirstLineIndent = CentimetersToPoints(0) hCob^o
3u/ GrsF
.CharacterUnitLeftIndent = 0 K)GpQ|4:<
.CharacterUnitRightIndent = 0 _*-b0 }T
.CharacterUnitFirstLineIndent = 0 @`XbM7D 5
wo9`-o6
.LineUnitBefore = 0 fE1VTGfd:
.LineUnitAfter = 0
+Ou<-EQV
End With OlX#1W]
ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False t@!A1Vr@
ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll aj]pN,g@N
ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese \d-9Ndp
nf
ActiveDocument.Styles("QLNU图片标题").NoProofing = True lm|s%
DoEvents %J+k.UrM
/Nns3oE
'目录项 j+[oZfH
ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") 1pP q)}=+
ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" E&>;a!0b]
ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False ?KG4Z
With ActiveDocument.Styles("QLNU目录项").Font N5 mhs#
.NameFarEast = "黑体" XwDt8TxL
.NameAscii = "Times New Roman" A u"BDP
.NameOther = "Times New Roman" <.:mp1,8V
.Name = "黑体" !im%t9
.Size = 10.5 t(1gJZs>kX
.Bold = False 85B B{ T;
.Italic = wdUndefined zI CAV -&
.Underline = wdUnderlineNone x\ 8gb#8
.Color = wdColorAutomatic EpK7VW
.Superscript = wdUndefined oF_
'<\ly=
.Subscript = wdUndefined R~BFZF>:
End With sN ZOm $
With ActiveDocument.Styles("QLNU目录项").ParagraphFormat Z_s]2y1
{EJ+
.LineSpacingRule = wdLineSpaceSingle C:z7R" yj
.Alignment = wdAlignParagraphLeft lcXo>
+>Pq]{Uf1j
.WidowControl = False B$MHn?
.KeepWithNext = False dQ
Lo,S8(
.KeepTogether = False 0u
bf] Z
.PageBreakBefore = False 8i
Ew;I_
.NoLineNumber = False \qJ cs'D
.OutlineLevel = wdOutlineLevelBodyText y\R-=Am".
BO0Y#f
s
.LeftIndent = CentimetersToPoints(0) `$ pJ2S
.RightIndent = CentimetersToPoints(0) vHN/~ k#
.FirstLineIndent = CentimetersToPoints(0) `d4;T|f+=
jQ['f\R
.CharacterUnitLeftIndent = 0 MbeK{8~E%l
.CharacterUnitRightIndent = 0 {7.uwIW.1
.CharacterUnitFirstLineIndent = 0 `KUL 4) g~
#>2cfZ`6'J
.LineUnitBefore = 0 ,.AXQ#~&`
.LineUnitAfter = 0 GW2v&Ul7(
End With \`W8 #fob
ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False zS '{F>
w
ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll A> 6_h1
ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot rh T!8dTk
ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese b6g/SIae
ActiveDocument.Styles("QLNU目录项").NoProofing = True x\pygzQ/
DoEvents *
yGlX[
1;HL=
F
'参考文献 ihD|e&
ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") Rm Q>.?
ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" mh35S!I3I^
ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False G0(A ~Q"
With ActiveDocument.Styles("QLNU参考文献").Font )h1 `?q:5
.NameFarEast = "宋体" J9P\D !
.NameAscii = "Times New Roman" $]MOAj"LH
.NameOther = "Times New Roman" tR(L>ZG{
.Name = "Times New Roman"
j]m| }n
.Size = 12 !, {-q)'D
.Bold = False ~*L@|?
.Italic = wdUndefined
3v3`d+;&
.Subscript = wdUndefined \~.el Kw<U
.Superscript = wdUndefined 99~ZZG
.Underline = wdUnderlineNone 0aGAF ]
.UnderlineColor = wdColorAutomatic @%!Gj{
.Color = wdColorAutomatic U["IXR#
.Engrave = False 3935cxT1U
End With z8
K#G%,:
With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat P_(< ?0
l
40$9./fe)
.LineSpacingRule = wdLineSpaceExactly 5uU{!JuSa
.LineSpacing = 16 n1)]. `
.Alignment = wdAlignParagraphLeft T#a6X;9P
.WidowControl = False 6>b'
g
~I
.KeepWithNext = False NN~PWy1opa
.KeepTogether = False :Yn{:%p
.PageBreakBefore = False G$ s=P
.OutlineLevel = wdOutlineLevelBodyText ~R7{gCqdr
tD])&0"(
.LeftIndent = CentimetersToPoints(0) ,irc=0M(
.RightIndent = CentimetersToPoints(0) CJ [e^K{
.FirstLineIndent = CentimetersToPoints(0) A:*$r Hbzl
hA+;eXy/
.CharacterUnitLeftIndent = 0 v1$ }JX
.CharacterUnitRightIndent = 0 AjINO}b
.CharacterUnitFirstLineIndent = -2 tDtqTB}
LG'1^W{a
.LineUnitBefore = 0 zKGr(9I
.LineUnitAfter = 0 ^+Njz{rpG
.SpaceBefore = 0 t![972.&
.SpaceAfter = 0 PMe 3Or@
|T{ZDJ+
End With zwK$ q=-:
ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False ;0}C2Cz'
ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll :AyZe7:(D
ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS -l{ wB"
ActiveDocument.Styles("QLNU参考文献").NoProofing = True rLcXo %w
ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese ZK8DziO
DoEvents \3whM6tK
@}{Fw;,(7n
' Fl++rUT
ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") 5D>cbzP@
ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" 9mEhZ"
ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False N|w;wF!3
With ActiveDocument.Styles("QLNU论文题目").Font 'Me(qpsq
.NameFarEast = "黑体" GuQ#
.NameAscii = "Arial Black" `tm(3pJ
.NameOther = "Arial Black" }R`}Ey|{
.Name = "Arial Black" jR {t=da
.Size = 16 j&0t!f.Rv
.Bold = False _#w5h X cu
.Italic = wdUndefined C3b<Wa])
.Superscript = wdUndefined L>!MEMqm
.Subscript = wdUndefined j 2 jUrl
.Underline = wdUnderlineNone Hr/J6kyB)
.UnderlineColor = wdColorAutomatic X:W}S/
.Color = wdColorAutomatic mWuhXY^Q
B |S X?X
End With <n0j'P>1
With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat =h}PL22
.LineSpacingRule = wdLineSpaceSingle :s|xa u=
.Alignment = wdAlignParagraphCenter 4}H f"L[ l
.WidowControl = True n;k
B_i*l
.KeepWithNext = True EI@e p~
.KeepTogether = True ]CgZt' h{
.PageBreakBefore = True RMa#z [{0
.NoLineNumber = False $B
`bsJ
.OutlineLevel = wdOutlineLevelBodyText uN 6xOq/
94.M 8
.LeftIndent = CentimetersToPoints(0) aW b5w
.RightIndent = CentimetersToPoints(0) Zk0? =f?j
.FirstLineIndent = CentimetersToPoints(0) J=ot& %
a2H_8iQ!
.CharacterUnitLeftIndent = 0 Job& qW9W`
.CharacterUnitRightIndent = 0 Hzc ^fC
.CharacterUnitFirstLineIndent = 0 =GLMdhD]
v [> 8<z8
.LineUnitBefore = 1 tfjb G;R
.LineUnitAfter = 1 I2C1
mV
!D e U8.%
.BaseLineAlignment = wdBaselineAlignAuto ,J'@e+jV
End With >|JMvbje
ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False [bd?$ q i
ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll #e6x _o|
ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS 7` t ,
ActiveDocument.Styles("QLNU论文题目").NoProofing = True rH [Eh8j,
ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese }:+P{
ActiveDocument.Styles("QLNU论文题目").NoProofing = True E9j(%kQ2
DoEvents #b{;)C fL
X a[lX8$zL
'中文摘要 g= s2t"&
ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") g'V,K\TG
ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" bc\?y2
3
ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False !}HT&N8[r
With ActiveDocument.Styles("QLNU中文摘要").Font ^7C,GaDsn
.NameFarEast = "宋体" }j,G)\g#
.NameAscii = "Times New Roman" 2^&5D,}0
.NameOther = "Times New Roman" Wl3fR[ @3Q
.Name = "Times New Roman" yj9 Ad*.
.Size = 12 #4!6pMW(&7
.Bold = wdUndefined 1JN/ oq;
.Superscript = wdUndefined kYkck]|
.Subscript = wdUndefined B F] +fs`
.Italic = wdUndefined UbSD?Ew@35
.Underline = wdUnderlineNone [?#-JIZ3T
.UnderlineColor = wdColorAutomatic G _?qY#"(
.Color = wdColorAutomatic iD2>-yf
End With * JVJKqed
With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat zu vP\Y=V`
.LineSpacingRule = wdLineSpaceExactly Xj21:IM R
.LineSpacing = 20 q|e<b
.Alignment = wdAlignParagraphLeft n/IDq$/P
r
5&?-G
.WidowControl = False I)4NCjcCw
.KeepWithNext = False !Ly1!;<
.KeepTogether = True 9R4q^tGR\
.PageBreakBefore = False Zy > W2(<
.NoLineNumber = False 7,3v,N|
.OutlineLevel = wdOutlineLevelBodyText 2|LkCu)~,"
R= *vPS
.LeftIndent = CentimetersToPoints(0) x[2 eA!NC
.RightIndent = CentimetersToPoints(0) t8-LPq
.FirstLineIndent = CentimetersToPoints(0)
&r
V
9|//_4]
.CharacterUnitLeftIndent = 0
}Yp]A
.CharacterUnitRightIndent = 0 sB`zk[ R;
.CharacterUnitFirstLineIndent = 2 2LH.I f
.LineUnitBefore = 0 }pv<<7}|
.LineUnitAfter = 0 2graLJ?9Z
,y/N^^\
End With jI807g+
ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False +6 x:+9S
ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll <(caY37o6)
ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS eh$T
3_#q
ActiveDocument.Styles("QLNU中文摘要").NoProofing = True ow,=M%x"0
ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese ZAMS;e+e
ActiveDocument.Styles("QLNU中文摘要").NoProofing = True L!kbDbqn
ActiveDocument.Styles("QLNU中文摘要").Frame.Delete ; ,:w % .
DoEvents DKqO5e\l8@
;EfREfk
ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") j~Ubpf
ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" P3V }cGZ
ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False )"<:Md$7
With ActiveDocument.Styles("QLNU英文标题").Font L@6T~
.NameFarEast = "黑体" S|ADu ]H(
.NameAscii = "Arial Narrow" c (0Ez@
.Name = "Arial Narrow" :@+@vM;gh
.Size = 16 wGnFDkCNz
.Bold = True 5[ $jrG\!
.Bold = wdUndefined "_e /O&-cH
.Superscript = wdUndefined )UG<KcdI
.Subscript = wdUndefined z=VL|Du1OT
.Italic = wdUndefined '>r"+X^W
!,>9?(
.Underline = wdUnderlineNone o^~KAB7
.UnderlineColor = wdColorAutomatic <US!XMrCg
.StrikeThrough = False pc<A
,?
.DoubleStrikeThrough = False ;]SP~kG
End With @0q* 50
With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat Q
GDfX
_
.LineSpacingRule = wdLineSpaceSingle gNzamorv[
.Alignment = wdAlignParagraphCenter C?%Oi:Gi&
.WidowControl = True [7SR2^uf<j
.KeepWithNext = False Mhze !!
.KeepTogether = False xGymQ|y84
.PageBreakBefore = False j0[
9Cj^%c
.NoLineNumber = False JV9Ft,xk
.FirstLineIndent = CentimetersToPoints(0) MM4Eq>F/
.OutlineLevel = wdOutlineLevelBodyText A+ F@JpV
e5fzV.' 5
.LeftIndent = CentimetersToPoints(0) > v ]-B"Y
.RightIndent = CentimetersToPoints(0) n7K\\|X
.FirstLineIndent = CentimetersToPoints(0) l DhuL;9e
XRR`GBI
.CharacterUnitLeftIndent = 0 L\X 2Olfz1
.CharacterUnitRightIndent = 0 < 5#}EiT5
.CharacterUnitFirstLineIndent = 0 Y/<
],1U
&(HI
BF'O
.LineUnitBefore = 1 HCKj8-*
.LineUnitAfter = 1 Fs) m;C
kc70HrG
End With b n <}
ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False v"G) G)*z
ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll z[ ml;?
ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS 1\+d 5Q0
ActiveDocument.Styles("QLNU英文标题").NoProofing = True NI?YUhg>
ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese "+J[7p}`@
ActiveDocument.Styles("QLNU英文标题").NoProofing = True *Ldno`1O
ActiveDocument.Styles("QLNU英文标题").Frame.Delete $WK~|+"{>
DoEvents 4vR IJ}nQ
NKb,>TO
ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") {F+i
L&e)
ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle"
dz Z 75
ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False ' fP`ET5
With ActiveDocument.Styles("QLNU英文摘要").Font rui]_Fn]I
.NameFarEast = "宋体" :i:M7 }r
.NameAscii = "Arial" ~b.e9FhdA
.NameOther = "Arial" ]AzDkKj
.Name = "Arial" | WMq&-$D
.Size = 12 N b@zn0A(;
.Bold = wdUndefined F^|4nBd*ub
.Italic = wdUndefined QAh6!<.;@
.Superscript = wdUndefined au 5qbP
.Subscript = wdUndefined ]QAMCu(>
End With 9 ~$' ?
S?Z"){
With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat F%>`?NG+c
?_7^MP>
.LineSpacingRule = wdLineSpaceExactly
,\n%e '
.LineSpacing = 20 VCUEz R0
seo.1.Da2
.Alignment = wdAlignParagraphJustify \4|o5, +(@
ygquQhf5
.WidowControl = False j -j,0!T~b
.KeepWithNext = False iZ-"l3) D
.KeepTogether = False eC41PQ3=1'
.PageBreakBefore = False Yn }Ivg
.NoLineNumber = False >
H(o=39s
|*W E@L5
.OutlineLevel = wdOutlineLevelBodyText IF$*6
,v.z
fbK`A?5K
.LeftIndent = CentimetersToPoints(0) !o& b: 7
.RightIndent = CentimetersToPoints(0) * (sFr E
.FirstLineIndent = CentimetersToPoints(0) OAXF=V F#
s4{WPU9
.CharacterUnitLeftIndent = 0 1 ojy _
.CharacterUnitRightIndent = 0 b^]@8I[M
.CharacterUnitFirstLineIndent = 2 /xcl0oe(
<rpXhcR
.LineUnitBefore = 0 n:wZL&ZV0
.LineUnitAfter = 1 Da"GYEC
/{d5$(Y"
End With 1ti 4 ZM
ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False W{v -(pW
ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll y6S:[Z{~A
ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS 1W
+Q cK4k
ActiveDocument.Styles("QLNU英文摘要").NoProofing = False Z,jK(7D(
DoEvents S
2SJFp
L
H`z '7&/
Options.Pagination = True @d86l.=
Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." Xi!`+N4
DoEvents Fz4g:8qdA
ActiveDocument.Repaginate '+ cPx\ 4
R
s)Nz< d
End Sub K-b'jP\
q!P{a^Fnc
9! sR}
