Dim bContinue As Boolean Lc#GBaJ
nZ'-3
Dim regEX As New RegExp ;=p3L<~c`K
Dim paraCounter As Long '全局段落计数,仅在主程序中可读写,其它过程函数应为只读 0,/I2!dF?
=%ok:+D]
Dim LastTitle0String As String, LastTitle0No As Long $*Kr4vh
Dim LastTitle1String As String, LastTitle1No As Long 85T"(
HhT
Dim LastTitle2String As String, LastTitle2No As Long @PT([1C
Dim LastTitle3String As String, LastTitle3No As Long `y|_hb
Dim LastTitle4String As String, LastTitle4No As Long OUk"aAo
Dim LastTitle5String As String, LastTitle5No As Long :pfLa2f+
Dim LastTabelString As String, LastTableNo As Long "2~L
Dim LastFigureString As String, LastFigureNo As Long -tZ~&
1"
$
niG)@*
Dim strSeperator As String @V&c=8)8
@j
xP3:s
Sub ConvertWidth(fTEXT As String, rText As String) AP:Q]A6}
Selection.Find.ClearFormatting *
'_(.Z:
Selection.Find.Replacement.ClearFormatting l0 8vF$k|d
Selection.Find.Wrap = wdFindContinue \$4 [qG=
Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText 9Vru
,7g
DoEvents mCyn:+
Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True R4y]<8}
End Sub IIG9&F$G
45?%D}
Sub ClearDomain() ZZn$N-
With Selection.Find
,v%'2[}
.ClearFormatting j'k
<
.Replacement.ClearFormatting uOO\!Hqq
.Wrap = wdFindContinue 1Q/=s,{u
Me.txtStatus.Text = "清除所有域代码" jF}-dfe
DoEvents #CV]S4/^
.Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False E<l/o5<nC
End With "Ccy
j/
End Sub iInWw"VbKe
RH.qbPjx
Private Sub cmdCheck_Click() F8S>Ld
bContinue = True 'u:-~nSX)
Dim NoSeries1(1 To 16) As String e }Mf
Dim NoSeries2(1 To 16) As String PjD9D.
Dim NoSeries5(1 To 16) As String N;']&f
Dim NoSeriesRM(1 To 16) As String e\em;GTy
Dim paraTotal As Long, ParaText As String p|C[T]J\@
Dim ttString As String, ttNo As String `*l aUn
0NeIQr1N_
Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long +CM>]Ze
5a-x$Qb9
Me.txtStatus.Visible = True +Bf?35LP
Me.lbParaType.Visible = True N=PSr4
Me.cmdCheck.Enabled = False N;`/>R4|I
lA pZC6Iwk
vc :%
gYCr,-_i
{h=gnR-9
Dim ParaType As String, rText As String )n]"~I^
_i_P@I<M|~
Selection.WholeStory >%ovL8F
Selection.NoProofing = True pM^ZC
[l3ys
tm1 = Now \h"U+Bv7
<5?pa3
ActiveWindow.View.Type = wdNormalView Ptc+ypTu
_u+ 7>
NoSeries1(1) = "一" Gl@{y (
NoSeries1(2) = "二" VV{>Kq+&,v
NoSeries1(3) = "三" P(3k1S
M
NoSeries1(4) = "四" 2t4\L
3
NoSeries1(5) = "五" /5<=m:
NoSeries1(6) = "六" WfD fj
NoSeries1(7) = "七" E.Q]X]q
NoSeries1(8) = "八" egvb#:zW?
NoSeries1(9) = "九" Z}TLk^_[
NoSeries1(10) = "十" #R>x]Nt}
NoSeries1(11) = "十一" m"T}em#
NoSeries1(12) = "十二" j^7A}fz
NoSeries1(13) = "十三" sH.=Faos
NoSeries1(14) = "十四" 9QaE)wt
NoSeries1(15) = "十五" hrm<!uKn
NoSeries1(16) = "十六" V)5K/U{
/O5&)%N
NoSeries2(1) = "㈠" =W &Mt
NoSeries2(2) = "㈡" 9O-2
NoSeries2(3) = "㈢" Wqkzj^;"G
NoSeries2(4) = "㈣" m):*>o55
NoSeries2(5) = "㈤" y^"@$
NoSeries2(6) = "㈥" X$;&Mdo.
NoSeries2(7) = "㈦" 64mg:ed&
NoSeries2(8) = "㈧" kU+|QBA@
NoSeries2(9) = "㈨" f4
qVUU
NoSeries2(10) = "㈩" 0,nz*UDk
8qqN0"{,
NoSeries5(1) = "①" RC/45:hZZ
NoSeries5(1) = "②" f1]zsn:
NoSeries5(3) = "③" _6Y+E"@zs
NoSeries5(4) = "④" f~F{@),acZ
NoSeries5(5) = "⑤" R8cOb*D
NoSeries5(6) = "⑥" P}]o$nWT
NoSeries5(7) = "⑦" 2E?!Q
I\O
NoSeries5(8) = "⑧" AN:yL
a!
NoSeries5(9) = "⑨" 4-t^?T:qF
NoSeries5(10) = "⑩" @ 5^nrB
j.ucv
!b"?l"C+u
NoSeriesRM(1) = "I" hLbWqF
NoSeriesRM(2) = "II" qVKdc*R-
NoSeriesRM(3) = "III" cT(6>@9@
NoSeriesRM(4) = "IV" {fnx=BaG
NoSeriesRM(5) = "V" r\d(*q3B
NoSeriesRM(6) = "VI" >MGWN
NoSeriesRM(7) = "VII" ^nK<t?KS
NoSeriesRM(8) = "VIII" zs~Tu
NoSeriesRM(9) = "IX" u4_QLf@I
NoSeriesRM(10) = "X" #1/~eIEY
NoSeriesRM(11) = "XI"
}DXG;L
NoSeriesRM(12) = "XII" \nt~K}a
NoSeriesRM(13) = "XIII" gfs;?vP
NoSeriesRM(14) = "XIV" 'f!U[Qatg
NoSeriesRM(15) = "XV" Z,/K$;YWo
NoSeriesRM(16) = "XVI" Z6rhInIY
~ney~Pz_
i = MsgBox("为了你的数据安全,请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗?", vbYesNo) j)2I+[aoB
d\ 8v
VZ
If i = vbNo Then f4fBUZ^ A
Exit Sub &iInru3
End If Lo~;pvv
'L7qf'RV
If Me.chkSuper.Value Then fz\Q>u'T
Me.txtStatus.Text = "检查修改所有的上标格式" WFiX=@SS
'S1u@p,q
CheckSuperScript
}b1FB<e]
:{2~s
End If #]x3(}3W
o]~\u{o#.
If Me.chkStyle.Value Then wS);KLe3
Me.txtStatus.Text = "设置样式,请稍候...." kDE-GX"Y
DoEvents h7
E~I
J
CeateOrModifyStyle |DV?5>>
End If ujRXAN@mC
fO$){(]^
mwo:+^v(
:{#O
ClearDomain v,S5C
#n'.a1R
b?l>vUgAg
@uH!n~QV
If Me.chkLIST.Value Then {g!
7K
Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" [Q0V5P~Q'
c7jmzo
ConvertListToOrdinary ^3TNj
End If {u/1ph-
a8f#q]TyQ
Lxwi"ndP
Dim pType As String, trimpTEXT As String >Jmla~A
If Me.chkNum.Value = True Then ?0_
<u4
Me.txtStatus.Text = "转换全角数字形式为半角" ly-(F2
ConvertWidth "1", "1" F?|Efpzow?
DoEvents \4L ur
ConvertWidth "2", "2" E?G'F3i
DoEvents HMCLJ/
ConvertWidth "3", "3" +bS\iw+
DoEvents iCPm7AU
ConvertWidth "4", "4" $uZmIu9Bi+
DoEvents pY`$k#5
ConvertWidth "5", "5" MzD1sWmK
DoEvents CtXbAcN2B
ConvertWidth "6", "6" G;3%k.{
DoEvents Td'Mc-/
ConvertWidth "7", "7" @^<odmM
DoEvents VD$5 Djq
ConvertWidth "8", "8" cvaG[N
F
DoEvents HbegdbTJ
ConvertWidth "9", "9" Ln4]uqMG.
DoEvents A<ds+0
ConvertWidth "0", "0" BYB4-,
DoEvents 16zReI(
ConvertWidth "a", "a" ]*#i_dho7
DoEvents KGYbPty}
ConvertWidth "b", "b" 8i154#l+\
DoEvents _6nAxm&x`%
ConvertWidth "c", "c" :Ln)j%&
DoEvents >[AmIYg
ConvertWidth "d", "d" 393c |8M
DoEvents (T_-`N|
ConvertWidth "e", "e" SvT0%2
DoEvents >UvP/rp
ConvertWidth "f", "f" 0+e=s0s.
DoEvents "esuLQC
ConvertWidth "g", "g" 3'Y-~^ml|
DoEvents >jX"
ConvertWidth "h", "h" '9z
W#b
DoEvents px<psR5
ConvertWidth "i", "i" -67Z!N
DoEvents pM?~AYWb
ConvertWidth "j", "j" =I`S7oF
DoEvents &{V|%u}v
ConvertWidth "k", "k" |n/;x$Cb
DoEvents hBjU(}\3
ConvertWidth "l", "l" 8f9wUPr
DoEvents t,?,T~#9
ConvertWidth "m", "m" } Bf@69
DoEvents LUbj^iQ9
ConvertWidth "n", "n" (dq_,LI
ConvertWidth "o", "o" `qc"JB
ConvertWidth "p", "p" TP
rq:"K
ConvertWidth "q", "q" u]Ku96!
ConvertWidth "r", "r" ,*J@ic7"
ConvertWidth "s", "s" uQIPnd(V
ConvertWidth "t", "t" F:!6B bC
ConvertWidth "u", "u" >$JE!.p%o
ConvertWidth "v", "v" Z*m^K%qJ
ConvertWidth "w", "w" )2Ei
<
ConvertWidth "x", "x" Z 2N6r6
ConvertWidth "y", "y" Hu"$)V
ConvertWidth "z", "z" F
qH)
)2
ConvertWidth "A", "A" +@QrGY
ConvertWidth "B", "B" Z)s
!p
ConvertWidth "C", "C" `eMZhYo
ConvertWidth "D", "D" }PBme'kP
ConvertWidth "E", "E" +})QTFV
ConvertWidth "F", "F" WT'-.UX m
ConvertWidth "G", "G" c!ZZMCs
ConvertWidth "H", "H" uu.X>agg
ConvertWidth "I", "I" [)Nt;|U
ConvertWidth "J", "J" rLsY_7!
ConvertWidth "K", "K" <= o<lRU
ConvertWidth "L", "L" 9wYm(7M6
ConvertWidth "M", "M" A|\A|8=b
ConvertWidth "N", "N" SBreA-2
ConvertWidth "O", "O" f~NS{gL*
ConvertWidth "P", "P" )8A.Wg4S;c
ConvertWidth "Q", "Q" x/DV>Nfn
ConvertWidth "R", "R" KL'1)G"OH
ConvertWidth "S", "S" +]eG=.
u
ConvertWidth "T", "T" M0w Uis:`
ConvertWidth "U", "U" N4vcd=uG#
ConvertWidth "V", "V" '2.ey33V
ConvertWidth "W", "W" e,JBz~CK*w
ConvertWidth "X", "X" h$&Tg_/'#D
ConvertWidth "Y", "Y" ij
$NTY=u
ConvertWidth "Z", "Z" ZAr6RRv ^
ConvertWidth "^l", "^p" @Chl>s
ConvertWidth "(", "(" 5@2Rl>B$
ConvertWidth ")", ")" ,)1C"'
]lwf6'
End If Dd
r.6`VJ
TcaW'&(K
With ActiveDocument KnkmGy
Dim tbl As Table ::>|[ND
For Each tbl In .Tables ,`bW(V
tbl.Rows.Alignment = wdAlignRowCenter :}e<
tbl.Range.Font.NameFarEast = "楷体" f'oTN!5WF
tbl.Range.Font.NameAscii = "Times New Roman" _L
HbP=B
tbl.Range.Font.Size = 10.5 MJ JC6:
Next p<
7rF_?W0
Set tbl = Nothing Cw,a)XB
End With <[k3x8H'
4
neZw'm
yv4x.cfI2W
With ActiveDocument ^
8}P_
9
3]63NY
For i = 1 To .TablesOfContents.Count 1m~|e.g_'`
.TablesOfContents(i).Delete WqA)V,E
Next }|Qh+{H*.
3Y)&[aj
k+9F;p7
8J3#(aBm
paraTotal = .Paragraphs.Count mD9Iao%4~
paraCounter = 1 HPt3WBRzS;
V
*@q< rQ
LastTitle0No = 0 IU8zidn&
LastTitle1No = 0 CtCReH03
LastTitle2No = 0 6\.g,>
LastTitle3No = 0 $5i\D
rs
LastTitle4No = 0 C~h#pAh
LastTableNo = 0 Gd
4S7JE
LastFigureNo = 0 ,/?J!W
@m
cg8/v:B
Dim Sec As Long I6^y` 2X
$mPR)T
Sec = InputBox("正文从第一节开始?", "节设置", 6) 05 6K)E
If Sec = 0 Then l$gJ^Wf2gY
Exit Sub ZWCsrV*;
End If l ms^|?
=3035{\
k = 0 *:CTIV5N0
Do While (paraCounter < paraTotal) And bContinue sWlxt qg
k = k + 1 }k VC]+
If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then NCKR<!(
Exit Do d~aTjf
End If j\>&]0-Iq
paraCounter = paraCounter + 1 p%$r\G-x
If k Mod 20 = 0 Then {'{}@CuA2
Me.lbCounter.Caption = paraCounter GJB+]b-
DoEvents N/o?\q8
End If }!iopu
Loop `,V&@}&"n
PA^*|^;Xh
xRWfZ3E
#
Do While (paraCounter < paraTotal) And bContinue jWUrw
;5/Se"Nd
ParaText = Trim(.Paragraphs(paraCounter).Range.Text) \
^(#b,k#
ShapeHeight = 0 :zU4K=kR
ShapeWidth = 0 SD^::bH
E!Q@AZ
CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth k9
r49lb
z\|<h=EU
Select Case ParaType >V^8<^?G
Case "【】表格内容" I0F[Z\U
.Paragraphs(paraCounter).Style = "QLNU表格内容" k M/:n
Case "章" lf(+]k30
LastTitle0No = LastTitle0No + 1 4BMu0["6|s
'新一章开始,复位其下属标题编号 ._0$#J S[
LastTitle1No = 0 &u:U"j
LastTitle2No = 0 "o--MBq4
LastTitle3No = 0 X?haHM#]
LastTitle4No = 0 96\FJHtZ
+PYV-@q
k = Val(ttNo) 7**zb"#y
If k = 0 Then '非数字编号章节 }@bp v
If ttNo <> NoSeries1(LastTitle0No) Then zu}uW,XH-
rText = "第" & NoSeries1(LastTitle0No) & ttString (')t>B1Z
Me.ErrMsg.AddItem "章节编号错误:" & ParaText GG#-x$jK
End If =#2%[kGq
Else t%mi#Gh(
If Val(ttNo) <> LastTitle0No Then ~;HASHu
rText = "第" & LastTitle0No & ttString XO;_F"H=
Me.ErrMsg.AddItem "章节编号错误:" & ParaText RhJ3>DL
End If l iY/BkpH
r.?dT |A
End If W>' DQB
Ov(k:"N
'章段落设置 pss')YP.
'字体大小:三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 570ja7C:
.Paragraphs(paraCounter).Style = "QLNU章节" Xn"#Zy_
.Paragraphs(paraCounter).Range.Select tXzuP_0
Selection.EndKey unit:=wdLine y;ey(
tc = Replace(rText, vbCr, "") Jj]<SWh
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False S_sHwObFu|
Case "一级标题" 4M"'B A<
LastTitle1No = LastTitle1No + 1 '{,JuX"n
'新一级标题开始,复位其下属标题编号 $D`Kz*/.
LastTitle2No = 0 |}77'w :
LastTitle3No = 0 dU-:#QV6
LastTitle4No = 0
2po8n_
bD
v&;Z
If ttNo <> NoSeries1(LastTitle1No) Then W
_[9
rText = NoSeries1(LastTitle1No) & "、" & ttString PlCw,=K8f
Me.ErrMsg.AddItem "一级标题编号错误:" & ParaText Oyb9
ql^
End If ^X#)'\T
Idu'+O4
_oZ3n2v}@
'一级标题段落设置 格式:一、标题内容 e[fld,s
.Paragraphs(paraCounter).Range.Text = rText MTwzL<@$
.Paragraphs(paraCounter).Style = "QLNU一级标题" r`ftflNh(
.Paragraphs(paraCounter).Range.Select htYfIy{5w
Selection.EndKey unit:=wdLine 9+(b7L
tc = Replace(rText, vbCr, "") &DQ_qOKD
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False w%wVB/(
Case "二级标题" @^0}wk
LastTitle2No = LastTitle2No + 1 rv{Wti[
'新二级标题开始,复位其下属标题编号 "'DPb%o
LastTitle3No = 0 &v]xYb)+<
LastTitle4No = 0 V
N-0hw/A
JXuks`:Q
If ttNo <> NoSeries1(LastTitle2No) Then jXx~
5
rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString tuH#Cy
ErrMsg.AddItem "二级标题编号错误:" & ParaText AIP0PJI3
End If HA
c"&#pG
\)*\$I\]
'二级标题段落设置 格式:(一)、标题内容 |+h x2?Nv
.Paragraphs(paraCounter).Range.Text = rText qi@Nz=t#HJ
.Paragraphs(paraCounter).Style = "QLNU二级标题" .P8m%$'N
-wUT@a
.Paragraphs(paraCounter).Range.Select ;-i)}<
Selection.EndKey unit:=wdLine xRZ K&vkKE
tc = Replace(rText, vbCr, "") {U9{*e$=
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 2 ", PreserveFormatting:=False tG]W!\C'h
`$"{-
Case "三级标题" 7IUJHc[R?
LastTitle3No = LastTitle3No + 1 ,M]W_\N~E
'新三级标题开始,复位其下属标题编号 =8vwaJ
LastTitle4No = 0 G9S3r3
[ !~8TF
If Val(ttNo) <> LastTitle3No Then fm#7}Y
rText = LastTitle3No & ". " & ttString 0]ai*\,W7~
Me.ErrMsg.AddItem "三级标题编号错误:" & ParaText ^Cp;#|g,
uaD+G:{[
End If `_&vvJPn@!
'三级标题段落设置 格式:1. 标题内容 c@lF*"4
.Paragraphs(paraCounter).Range.Text = rText s|WcJV
.Paragraphs(paraCounter).Style = "QLNU三级标题" nVpDjUpN
.Paragraphs(paraCounter).Range.Select )l*3^kwL{U
Selection.EndKey unit:=wdLine ]@_|A, ]
tc = Replace(rText, vbCr, "") yTc&C)Jba
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 3 ", PreserveFormatting:=False hXH+C-%{
Case "四级标题" Z{u]qI{l
LastTitle4No = LastTitle4No + 1 FS7D
P=_W{6
If Val(ttNo) <> LastTitle4No Then rxxVLW
rText = "(" & LastTitle4No & "). " & ttString 3Q&@l49q
ErrMsg.AddItem "四级标题编号错误:" & ParaText e<DcuF<ZS
oVl:g:K40
End If #Hy9;Q
'四级标题段落设置 格式:(1). 标题内容 mb'{@
.Paragraphs(paraCounter).Range.Text = rText )3F}IgD
.Paragraphs(paraCounter).Style = "QLNU四级标题" -R9{Ak
.Paragraphs(paraCounter).Range.Select l(MjLXw5
Selection.EndKey unit:=wdLine G=e'H-
tc = Replace(rText, vbCr, "") ;qzn_W
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 4 ", PreserveFormatting:=False Cf 202pF3y
YxnZ0MY
Case "表格标题" 9
n5uO[D
LastTableNo = LastTableNo + 1 5-4
dRs\e(H'
If ttNo <> CStr(LastTableNo) Then 4{,!'NA
rText = "表" & LastTableNo & ". " & ttString )"Ujx`]4r
ErrMsg.AddItem "表格编号错误:" & ParaText 'QpDx&~QP
UN<$F yb
End If ./tZ*sP:
HII@Ed f?
'表格名称段落设置 格式:表1. 表格名称 4[Ko|
.Paragraphs(paraCounter).Style = "QLNU表格标题" :MYLap&L&
xe = Replace(rText, vbCr, "") 6Po{tKU
.Paragraphs(paraCounter).Range.Select 1)u,%
Selection.MoveEnd wdCharacter, -1 '选择范围包括行尾的换行符。 ~- aUw}U
Selection.Range.Text = xe {#t7lV'4
Selection.EndKey lE+Duap:
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False a'q&[08
R<3 -!p1v
Case "表格首行" 3W[||V[r]<
.Paragraphs(paraCounter).Style = "QLNU表格首行" CT\rx>[J.6
Case "图片标题" s_Z5M2o
LastFigureNo = LastFigureNo + 1 -{oZK{a1
n1x3q/~
If ttNo <> CStr(LastFigureNo) Then %f\j)qw
rText = "图" & LastFigureNo & ". " & ttString ;<MHl[jJD
ErrMsg.AddItem "表格编号错误:" & ParaText OHY|< &*
OZKZv,
End If {Zs
EYUP
'图片名称段落设置 格式:图1. 图名称 8V
pmcGvc3
.Paragraphs(paraCounter).Range.Text = rText ,\T`gh
.Paragraphs(paraCounter).Style = "QLNU图片标题" v)vogtAQa
.Paragraphs(paraCounter).Range.Select p;%5o0{1
Selection.EndKey unit:=wdLine jJ
RaY3
xe = Replace(rText, vbCr, "") E.B6u, Te
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False D3tcwjXoW_
Case "正文" ?J|
'正文名称段落设置 75h]#k9\
.Paragraphs(paraCounter).Style = "QLNU正文" O*F= xG
Case "文献条目" p=[I;U-#H
With .Paragraphs(paraCounter) TPj,4&|
'.Range.Select
6 {`J I
'Selection.ClearFormatting Zirp_[KZ%
'.Range.Find.Execute findtext:=rText, replacewith:=strSeperator 'Replacetext 传回了编号及分隔符部分, 而StrSeperator传回了正确的格式与分隔符如“[15] ” OgK' ~j
.Style = "QLNU参考文献" A(XX2f!i
End With TCgW^iu
Case "图表注解" e6y!,My<
With .Paragraphs(paraCounter) cI6Td*vM
.Range.Font.NameFarEast = "楷体" Bi/E{k,
.Range.Font.NameAscii = "Times New Roman" xNJ*TA[+
.Range.Font.Size = 9 '小5号字 WK#c* rsij
tI0D{Xrc
.Alignment = wdAlignParagraphCenter Ix@nRc'
.LeftIndent = 0
dF&@
q,
.RightIndent = 0 yJw.z#bB#
.FirstLineIndent = 0 ZlMS=<hgFx
.LineSpacing = 12 A/Sj>Y1j
.LineSpacingRule = wdLineSpaceExactly #|V)>")
.LineUnitAfter = 0 p`"Ic2xPJ
.LineUnitBefore = 0 B90fUK2g
.OutlineLevel = wdOutlineLevelBodyText F${}n1D
.PageBreakBefore = False l>oJ^J
.RightIndent = 0 ubKp
P
%Z
.WordWrap = True R-k~\vCW
.LineUnitAfter = 0.5 ;Rxc(tR!n
wgQx.8 h>
End With x9]vhR/av
Case Else -23sm~`
'不作处理 f]Zj"Tt-
End Select ASSe;+yp
NwKj@Jos
'含有inlineshape的段落处理 *aYuuRx
If ShapeHeight > 30 Then ;wHyX)&X$
.Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle '对有图片的段落设置为单倍行距 &`g^b^i
End If ND3|wQ`M0
Z0 c|;
If (ShapeWidth + ShapeHeight) > 150 Then h5n@SE>G
.Paragraphs(paraCounter).Style = "QLNU图片段落" '~{kR=+
End If n"I{aJ]K
T0o0_R
'段落计数器递 MHCwjo"
paraCounter = paraCounter + 1 <pFbm
Me.lbCounter.Caption = "当前检测段落:" & paraCounter ^C2SLLgeJ
Me.txtStatus.Text = ParaText YvUV9qps~
DoEvents y?iW^>|?L=
Loop $m-@ICG#
End With b-#oE{(\'
s?9`dv}P
msg = "" gd0a,_`M
Rd@?2)Xm
For i = 0 To Me.ErrMsg.ListCount - 1 /mn'9=ks
msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) 02[*b
Next 7a4Z~r27/
7Zft]C?|@
Wq25,M'
b.
:2x4
Me.txtStatus.Text = "格式化完成!" & vbCrLf & "开始时间:" & tm1 & vbCrLf & "结束时间:" & Now & vbCrLf & msg e\ZV^h}TQ
Me.cmdCheck.Enabled = True I!Fd~g9I4
Me.txtStatus.Visible = True GG4FS
Me.lbParaType.Visible = False QNZ#SG8
`Gg,oCQg
bContinue = False 5z.Y}
End Sub
(
s51GRC
Q ~eh_>"
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) Eh *u6K)Z
Dim pTEXT As String ;6=*
E'
F:Yp1Wrb<
pTEXT = ChKRange.Text ?%T]V+40
DnCIfda2g
ParaType = "其它" bhKe"#m|S
TitleString = pTEXT ,W$&OD
TitleNo = "N/A" XCGK&OGI
R$2\Xl@qQF
shpCounter = ChKRange.InlineShapes.Count OP``+z>
If shpCounter <> 0 Then MdnapxuS
MaxShpHeight = 0: TotalShpWidth = 0 h.xtkD)Y~
For i = 1 To shpCounter rj2
9$d?Y9
k = ChKRange.InlineShapes(i).Height 1,n\Osd
l = ChKRange.InlineShapes(i).Width ] $F%
If k > MaxShpHeight Then [KEw5-=i@
MaxShpHeight = k Xk:_aJ
End If BWkT
Qd<t
TotalShpWidth = TotalShpWidth + l :?gp}.
Next DU@SXb
If MaxShpHeight > 60 Or TotalShpWidth > 150 Then ^_=bssaOd
Exit Sub aC3Qmo6?m
End If !#4b#l(e6
End If =|V#~p*
&'m&'wDt:
'空行 CSzu$Hnq
If Len(pTEXT) <= 2 Then >=Na,D
Exit Sub .sZ"|j9m
End If "!#KQ''R
1/=6s5vS}
\5#
eBJ
'是否为表格中的文字 k7nke^,|
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then !3ji]q;uF
ParaType = "表格内容" .aC/
g?U
k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) Lo
O"d'{
If k = 1 Then dp }z
G+
ParaType = "表格首行" ,H]S-uK~
End If }gQnr;lv
Exit Sub &8JK^zQq
End If Xz'o<S
5"L.C32
'例外情况:脚注 7!
/+[G
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then G[zVGqk
ParaType = "脚注" w*7wSP
Exit Sub iG{xDj{CKv
End If e'3y^Vg
i@ehD@.dH
'例外情况:尾注 FD8d-G
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then yh+.Yn=+
ParaType = "尾注" nYTPcT4x|
Exit Sub >B$B|g~
End If eB<R"Yvi
I
9sQPa
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then p%+'iDb
ParaType = "页眉页脚" |Syulus
Exit Sub =GC,1WVEqV
End If 5~RR
_G
:!wt/Y
wd2z=^S~
With regEX mfk^t`w_
.Global = True Md*.q^:
2GRv%:rZ
.Pattern = "^第([1-9]|1|2|3|4|5|6|7|8|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|.)+(.{1,30})$" V+$fh2t
If regEX.Test(pTEXT) Then 50Ov>(f@7
ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") 'On%p|s)H
TitleString = regEX.Replace(pTEXT, "$3") S0lt_~
TitleNo = regEX.Replace(pTEXT, "$1")
\[]4rXZN0
ParaType = "章" xH>j
Exit Sub =<r1sqf
End If +o K*5 Y
tf>"fU\P
.Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|.)+(.{1,40})$" {Ok]$0L
If regEX.Test(pTEXT) Then ($,qxPOn
ParaType = "一级标题" "8\2w]"
regEX.Execute (pTEXT) $g
}aH(vf
ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") CS;4ysNf
TitleString = regEX.Replace(pTEXT, "$3") dM;v39
TitleNo = regEX.Replace(pTEXT, "$1") Eu[/* t+l
Exit Sub n
}8}:3"
End If /Uni6O)oc
qy/t<2'
'全角或半角括号中的数字 ~6#O5plKc
.Pattern = "(^\(|()(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|))(、|\.|\s|。|.)*(.{1,40})$" eI/5foA
If regEX.Test(pTEXT) Then be
HEAQ
ParaType = "二级标题" T:*l+<?
regEX.Execute (pTEXT) ;IR.6k$;
ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") =F46v{la
TitleString = regEX.Replace(pTEXT, "$5") }(9ZME<(
TitleNo = regEX.Replace(pTEXT, "$2") OgCz[QXr_
Exit Sub RVh{wg
End If (JT
273
Ed1y%mR>
'阿拉伯数字 1. 2. YLb$/6gj6
.Pattern = "^([1-9]|1|2|3|4|5|6|7|8|9|0){1,2}(、|\.|\s|。|.)+(.{1,80})$" 7DWGYvv[
If regEX.Test(pTEXT) Then 8-x)8B
ParaType = "三级标题" PeJIa
%iE
regEX.Execute (pTEXT) 9[:TWvd
ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换,如需要可分成两步分别检测 SL`nt
TitleString = regEX.Replace(pTEXT, "$3") ?DKY;:dZF
TitleNo = regEX.Replace(pTEXT, "$1") 5p~hUP]tT
Exit Sub C/q!!
End If R|]n;*y
tcJN`N
'全角或半角括号中的阿拉伯数字 wT+\:y
.Pattern = "^(^\(|()([0-9]|0|1|2|3|4|5|6|7|8|9){1,2}(\)|))(、|\.|\s|。|.)*(.{1,80})$" [G"Va_A8
If regEX.Test(pTEXT) Then 2~%^y6lR
ParaType = "四级标题" pzeCdHF
regEX.Execute (pTEXT) kTm}VTr
1
ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") !9_'_8
TitleString = regEX.Replace(pTEXT, "$5") z2
mjm
TitleNo = regEX.Replace(pTEXT, "$2") 2u(G:cR
Exit Sub ggy9euWV
End If a
[E}o<{
h*\u0yD)
'表格名称 di37
.Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|.|\s]{1,9})(.{1,120})$" j7J'd?l
If regEX.Test(pTEXT) Then E^m;Ab=
ParaType = "表格标题" lLS7K8;4W
regEX.Execute (pTEXT) +77B656
ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) f%rZ2h)
TitleString = Trim(regEX.Replace(pTEXT, "$3")) M[QQi2:&
TitleNo = Trim(regEX.Replace(pTEXT, "$1")) rXq{WS`
strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么,但是发现传回的replacetext在修改Paragraph对象的Range.Text后,表格标题就会落入第一个单元格中,所以,只能用Paragraph.Range.Find.Execute方法替换 #j)"#1IE2W
Exit Sub <sls1,
End If D"&Sd@a{
">vi=Tr
'图片名称 k\-h-0[|
.Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|.)+(.{1,120})$" /Edq[5Ah
If regEX.Test(pTEXT) Then 9u%(9Ae
ParaType = "图片标题" kG`&Z
9P
regEX.Execute (pTEXT) FzG>iC}
ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") !gJw?(8"
TitleString = regEX.Replace(pTEXT, "$3") XmN8S_M>v
TitleNo = regEX.Replace(pTEXT, "$1") H4<Q}([w
Exit Sub m%s:4Z%=
End If &W{v(@
l\ VrD2j8
'参考文献 7\yh<?`V8
.Pattern = "^([\[|[])(\d+)([]|\]])([、|\.|\s|。|.]{0,1})" '[数字]、 #g<6ISuf
If regEX.Test(pTEXT) Then r'MA$PiS'
ParaType = "文献条目" ]#vi/6\J
'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") Sv!JA#Ag
'TitleNo = regEX.Replace(pTEXT, "[$2] ") WF<3
7"A@
Exit Sub ZKai*q4?
End If LHSbc!Y'.
x7/";L>
prfx = Left(pTEXT, 2) Hz>Dp
!
If prfx = "注:" Or prfx = "注:" Then @
I#uv|=N
ParaType = "图表注解" WJN)<+d
Exit Sub ^ U~
QQ
End If 9^@)R
ED
}ldpudU
#gXxBM
ParaType = "正文" o_03Io
~Bf
I8uFMP
End With rl]K:8*
End Sub i ;^Ya
\;JZt[
Sub ConvertListToOrdinary() 5t-,5
Dim st As Paragraph S1U[{R?,
With ActiveDocument `yO'-(@"gY
For i = .Paragraphs.Count To 1 Step -1 ,(N
N)Oj
Set st = .Paragraphs(i) TQ=HFs
~
lst = st.Range.ListFormat.ListString &_74h);2I:
If lst <> "" Then \}_,g
st.Range.ListFormat.RemoveNumbers KtHkLYOCG
st.Range.InsertBefore lst & " " w@LLxL>Y
End If aP#/%
Next "Cs36k
End With e9>~mtx
Set st = Nothing I:("f+
H
End Sub -_XTy!I
[Kaa{+,(
Private Sub UserForm_Activate() IL`=r6\
Me.lbTotal.Caption = "当前文章段落总数:" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节"
gj
I>tz}
Me.lbTotal.Font.Bold = True iU AY
Me.txtStatus.Visible = False ;*0?C'
h=
Me.cmdCheck.Enabled = True 8#/y`ul
R[@}Lg7+v
End Sub 45WJb+$
m~uT8R#$
ilAhw4A
Sub CheckSuperScript() U*?`tdXJ$
Selection.Find.ClearFormatting 13+.>
Selection.Find.Replacement.ClearFormatting V)P8w#,
With Selection.Find qQ8+gZG$R
.Text = "[【\[[〖](*)[】\]〗]]" fElFyOo+
.Replacement.Text = "[\1]" 9dWz3b1[
]
.Replacement.Font.Superscript = True YLuf2ja}X
'.Replacement.Font.Color = wdColorBlue 7mE9Z
o1
.Forward = True 9*r^1PRc
.Wrap = wdFindContinue
2OQ\ z;s
.FORMAT = True
gU1Pb]]
.MatchCase = False F6aC'<#/
.MatchWholeWord = False kT:I.,N
.MatchByte = False 8[D"
.MatchAllWordForms = False !;0K=~(Y^
.MatchSoundsLike = False o=Y'ns^a(
.MatchWildcards = True "F[7b!>R
End With SYa
O'c
Selection.Find.Execute Replace:=wdReplaceAll D"%>
End Sub lnRL^ }
BvUiH<-D
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) l]OzE-*$b
bContinue = False n#@Qd!uzM
Set regEX = Nothing ij;P5OA
End Sub ILqBa:J
^b.#4i(v
Sub CeateOrModifyStyle() KC)}Mzt6_
' 2f620
' b`@J"E}
Dim stl As Style 6@eF|GoP
/aIGq/;Y+a
Options.Pagination = False na"!"C
s3
E;[Uhh|78!
On Error Resume Next bkS"]q)>
For Each stl In ActiveDocument.Styles [bRE=Zr$Ry
stl.Delete pTXF^:8
Next Ov^##E
On Error GoTo 0 J_?v=dW`
uqLP$At
Set stl = Nothing B9Hib1<8
b'Km-'MtH
DoEvents
Nd&UWk^
On Error Resume Next 3#Bb4\_v
y
G3aF(
ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph n>w<v
M
3R0ioi 7
ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph Gr#3GvL
ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph IdK<:)Q
w 5?D]u
ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph gd*2*o$g(
ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph Hq!|r8@6
eW;3koE
ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph " m13HS
ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph 5{Q9n{dOh
ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph "c|Rpzs[
ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph 2t
Pf
Ig
ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph ,Vw>3|C
ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph A\#z<h[>
ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph ~9E_L?TW*
ncMz
Hw
ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph YV!hlYOBi
ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph [:cvy[}v@
ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph um}q@BU
ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph N$x&k$w R
ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph }pIn3B)
|Wjpnz
ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph Ih>s2nL
On Error GoTo 0 !?=U{^|7y
DoEvents Wky9wr:g
|0Xf":
'BaseStyle t"Ah]sD
ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False v; R2,`[W
With ActiveDocument.Styles("BaseStyle").Font Ri~$hs!
.NameFarEast = "宋体" 6)7cw8^
.NameAscii = "Times New Roman"
8;r#HtFM
.NameOther = "宋体" L9lJ4s
.Size = 10.5 @&
Bh!_TWc
.Bold = wdUndefined _{-[1-lN5_
.Italic = wdUndefined !&9(D^
.Subscript = wdUndefined ;j7G$s9
.Subscript = wdUndefined ]!&$&t8.
:mW<
E
.Underline = wdUnderlineNone %S'+x[4W
.UnderlineColor = wdColorAutomatic m(*rMO>_
.StrikeThrough = False I7~) q`
.DoubleStrikeThrough = False q=Vh"]0g
b $JS|
.Outline = False EO~L.E%W
.Emboss = False .ESvMK~x
.Shadow = False D:f=Z?L)>
.Hidden = False 7eju%d
.SmallCaps = False %qiVbm0
.AllCaps = False gdA2u;q
.Color = wdColorAutomatic *tgu@9b
.Engrave = False 8'%m!
.Scaling = 100 oeB'
{bG
.Kerning = 1 8|)^m[c&
.Animation = wdAnimationNone S_/S2(V"
.DisableCharacterSpaceGrid = False D}LM(s3li7
.EmphasisMark = wdEmphasisMarkNone _DH^ K9,9
End With X-(4/T+v
With ActiveDocument.Styles("BaseStyle").ParagraphFormat n\3
#69VY
.LeftIndent = 0 RB4 +"QUh
.RightIndent = 0 ,Gg;:)k\
.SpaceBefore = 0 ;81,1
Ie<~
.SpaceBeforeAuto = False -Ep#q&\
.SpaceAfter = 0 EK Vcz'w
.SpaceAfterAuto = False -z0;4O (K]
\2e^x
.LineSpacingRule = wdLineSpaceSingle N2"B\
.Alignment = wdAlignParagraphJustify tH44\~
&J
catI
.WidowControl = False kS8?N`2}LV
.KeepWithNext = False ;RRw-|/Wm
.KeepTogether = False o~)o/(>ox
.PageBreakBefore = False gXJBb+P
.NoLineNumber = False mO;QT
%9a3$OGZX
.FirstLineIndent = CentimetersToPoints(0) e6Y>Bk
.OutlineLevel = wdOutlineLevelBodyText %^L{K[}
.CharacterUnitLeftIndent = 0 yCvtglAJ4
.CharacterUnitRightIndent = 0 )*>wa%[-q
.CharacterUnitFirstLineIndent = 0 ,(pp+hNq
.LineUnitBefore = 0 ninWnQq
.LineUnitAfter = 0 \yC/OLXq
.AutoAdjustRightIndent = True 6#!CBY^{
.DisableLineHeightGrid = True zh*D2/r
#79[Qtkrhm
.FarEastLineBreakControl = True f!`?_
.WordWrap = True 5a$EXV
.Hyphenation = False *LU/3H|}
G(TFv\`vH
.HangingPunctuation = True C5Q!_x(
.HalfWidthPunctuationOnTopOfLine = True 6Eu(C]nC(
.AddSpaceBetweenFarEastAndAlpha = True #Pp:H/b
.AddSpaceBetweenFarEastAndDigit = True Dws)
4hH
.BaseLineAlignment = wdBaselineAlignBaseline )Wr_*>xj
End With RYjK4xT?Y/
ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False D
2kmBZ3
ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll UaF~[toX
ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese ?VmgM"'md
ActiveDocument.Styles("BaseStyle").NoProofing = False Z|%h-~
mXOI"B9Sq
'一级标题题样式 9K/EteS
ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") (8)9S6
ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" t`+A;%=K]
ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False |w}j!}u
With ActiveDocument.Styles("QLNU一级标题").Font bo/9k 4N3
.NameFarEast = "黑体" ]LUcOR
.NameAscii = "Arial Black" T7.Iqw3p
.NameOther = "黑体" @,TIw[p
.Name = "黑体" {0Y6jk>I
.Size = 16 '三号 Z17b=xJw
.Bold = True ]i$y;]f
.Italic = wdUndefined k#Sr;"
.Subscript = wdUndefined R`Z"ey@C
.Superscript = wdUndefined YE~IO5
End With IBo
With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat ypx~WXFK
6]Hwr_/tk
.LeftIndent = CentimetersToPoints(0) e,/]]E/o
.RightIndent = CentimetersToPoints(0) G
rp{
.
.FirstLineIndent = CentimetersToPoints(0) KF_fz
jDpA>{O[
.LineSpacingRule = wdLineSpaceSingle l|?tqCT ^h
.Alignment = wdAlignParagraphCenter 9hfg/3t('
={sjoMW
.WidowControl = True 1+uZF
.KeepWithNext = True "!V`_ S;
.KeepTogether = True 3NLn}
.OutlineLevel = wdOutlineLevelBodyText R~kO5jpW
c
'
wRGMP
.LineUnitBefore = 0.5 jts0ZFHc-
.LineUnitAfter = 0.5 in<.0v9w
End With gVfFEF.
ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False J<QZ)<T,&
ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll :5,~CtF5 `
ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese $jg[6`L$
ActiveDocument.Styles("QLNU一级标题").NoProofing = True :LY.C<8
DoEvents
Rzg;GH
m0TVi]v
'二级 jJ$B^Y"4
ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") !6%?VJB|b
ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" _d5:Y
ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False <@KIDZYC
With ActiveDocument.Styles("QLNU二级标题").Font <VKJ+
.NameFarEast = "黑体" rs{)4.I
.NameAscii = "Arial Narrow" ~p?ArZb
.NameOther = "黑体" L
AasmQ
.Name = "黑体" ;v@G
.Size = 15 '小三号 e^>>"tr
.Bold = False tfGs|x
.Outline = False Lz.khE<
.Italic = wdUndefined "Zgwe,#
.Subscript = wdUndefined W_`]7RO8
.Superscript = wdUndefined WJhTU@'
End With 7,+eG">0
With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat .EL3}6"A
.LeftIndent = CentimetersToPoints(0) W3tin3__
.RightIndent = CentimetersToPoints(0) oxlor,lw/
.FirstLineIndent = CentimetersToPoints(0) +ig%_QED[\
]EX6Y
.LineSpacingRule = wdLineSpaceSingle 6I
+0@,I
.Alignment = wdAlignParagraphLeft ]O"f%
{x_.QWe5
.WidowControl = True 7qB4_
.KeepWithNext = True ly17FLJ].
.KeepTogether = True UpGDLbf^
.PageBreakBefore = False .Rk8qR
B
.OutlineLevel = wdOutlineLevelBodyText hhy+bA}
I]v2-rB&-
.LineUnitBefore = 0.5 >nghFm
.LineUnitAfter = 0.5 z/1$G"
DJ,LQj
End With :}zyd;Rc
ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False C!*!n^qA
ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll >,{sFc
ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese v"o"
W[
ActiveDocument.Styles("QLNU二级标题").NoProofing = True hi1Ial\Y
DoEvents BqNeY<zB*
>0{}tRm-P&
'三级标题样式 ?l/6DT>e
ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") dgkS5Q$/
ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" LUMbRrD-
ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False W/!P1M n
With ActiveDocument.Styles("QLNU三级标题").Font ?n`m
.NameFarEast = "宋体" [! $NTt_
.NameAscii = "Times New Roman" 3
y}E*QE
.NameOther = "黑体" GpeW<%
\P
.Name = "黑体" 7z4k5d<^_
.Size = 14 '四号 #y:D{%Wp
.Bold = False Bdt6 w(`^
.Outline = False xR0T
'@q
.Italic = wdUndefined 51
q|-d
.Subscript = wdUndefined = UH3.
.Superscript = wdUndefined t^~vi'bB
End With kWXLncE
With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat <bzzbR[F
.LeftIndent = CentimetersToPoints(0) eUA]OF@
.RightIndent = CentimetersToPoints(0) wc;n=
%
.FirstLineIndent = CentimetersToPoints(0) e
c&Y2
4f[%Bb
.LineSpacingRule = wdLineSpaceSingle >>P5 4|&
.Alignment = wdAlignParagraphLeft +twoUn{#
>9&31wA_
.WidowControl = True Ds">eNq
.KeepWithNext = True DO*U7V02
.KeepTogether = True e
Wux
.PageBreakBefore = False f$xXR$mjf
.OutlineLevel = wdOutlineLevelBodyText Z
v@nK%#J
wsWFD xR
.CharacterUnitLeftIndent = 0 2CzhaO
.CharacterUnitRightIndent = 0 5CFNBb%Xy
.CharacterUnitFirstLineIndent = 2 W7qh1}_%
$9,&BW_*
.LineUnitBefore = 0.5 VV$t*9w
.LineUnitAfter = 0 O:wG/et
End With &W@2n&U.q
ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False {JgY-#R?{(
ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll QM0B6F
ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese {|?^@
ActiveDocument.Styles("QLNU三级标题").NoProofing = True WPL@v+
DoEvents a_>|Ny6{
UucI>E3?P{
'四级标题样式 Jp=fLo 9
ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ^?VQ$o2
ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" b"h'7C/
ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False JI5o~;}m
With ActiveDocument.Styles("QLNU四级标题").Font Gaix6@X6'
.NameFarEast = "宋体" $y8-JR
~
.NameAscii = "Times New Roman" rL{R=0
.NameOther = "宋体" kXSX<b<%
.Name = "宋体" 1|MR
XK
.Size = 12 '小四号 .T'@P7Hdx
.Bold = True 5daq}
hsQs
.Outline = False }<04\t?
.Italic = wdUndefined 3PNdc}h&#
.Subscript = wdUndefined y/Xs+ {x
.Superscript = wdUndefined 4nsJZo#S/
End With p'K`K\X
With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat ?R)]D:`
>$4#G)s
.LeftIndent = CentimetersToPoints(0) R@o&c%K"
.RightIndent = CentimetersToPoints(0) ,dIev<
.FirstLineIndent = CentimetersToPoints(0) U N9hZ>9
,
QcS[9$
.LineSpacingRule = wdLineSpaceSingle bE_8NA"2
.Alignment = wdAlignParagraphLeft m-Eh0Zl>Z
a `R%\@1
.WidowControl = True g_Z
tDxz
.KeepWithNext = True R*[sO*h\k
.KeepTogether = True jW'YQrj{<Y
.PageBreakBefore = False 3v8LzS3@
.OutlineLevel = wdOutlineLevelBodyText u.GnXuax
*LEy#N
.CharacterUnitLeftIndent = 0 n3a.)tcC
.CharacterUnitRightIndent = 0 *&NP?-E
.CharacterUnitFirstLineIndent = 2 CxFd/X,
RuPnWx!
.LineUnitBefore = 0 N[e,){v
.LineUnitAfter = 0 ;77K
HuevDy4
End With ` =>}*GS
ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False $v0,)ALi
ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll RxP H[7oZ
ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese VzP az\e
ActiveDocument.Styles("QLNU四级标题").NoProofing = True S+T/(-W
DoEvents BX >L7n
G4)~p!TSQ
'正文校式 ')"+ a^c
ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") \vA*dQ-
ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" za_b jE
ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False npdljL
N
With ActiveDocument.Styles("QLNU正文").Font }|DspO
sK}AS;:
.NameFarEast = "宋体" ue_
wuZi
.NameAscii = "Times New Roman" !"L.gu-'
.NameOther = "宋体" gQn%RPMh
.Name = "宋体" YWFE*wQ!
1$>+rW{a
.Size = 12 '小四号 'FErk~}/4s
R
BYhU55B
.Bold = wdUndefined f>N DtG.6
.Italic = wdUndefined b[74$W{
.Subscript = wdUndefined }Pcm'o_wT
.Superscript = wdUndefined <3;p>4gN
rW{!8FhI
.Outline = False ;k<dp7^
.Emboss = False
~non_pJ
.Shadow = False VXeO}>2S
.Hidden = False j6m;03<|
M-o'`e'
.DisableCharacterSpaceGrid = True QUrPV[JQ
End With 'R7 \
With ActiveDocument.Styles("QLNU正文").ParagraphFormat 2*:q$c
-> cL)
.LeftIndent = CentimetersToPoints(0) n#(pT3&
.RightIndent = CentimetersToPoints(0) C96/
.FirstLineIndent = CentimetersToPoints(0) k#].nQG
z#*.9/y\^R
.LineSpacingRule = wdLineSpaceExactly P%3pM*.
.LineSpacing = 20 _ \D%
.Alignment = wdAlignParagraphLeft y\?ey'o
#{cy(&cz
.WidowControl = False g>lZs
.KeepWithNext = False r_T)|||v
.KeepTogether = False 5'zXCHt
.PageBreakBefore = False ?KC(WaGJQ
.Hyphenation = False RzEzNV
U$OZkHA[
.OutlineLevel = wdOutlineLevelBodyText Tuln#<:
G
KBoSSnV&
R;< q<i_l
.CharacterUnitLeftIndent = 0 UqP{Cyy{
.CharacterUnitRightIndent = 0 XiW1X6
.CharacterUnitFirstLineIndent = 2 =oBpS=<7
s4|\cY`b-
.LineUnitBefore = 0 ;l$$!PJ
.LineUnitAfter = 0 l=~!'1@L}
.SpaceBefore = 0 |mEWN/@C
.SpaceAfter = 0 Su#0F0
M>AxVL
.DisableLineHeightGrid = True ]~TsmR[
End With `'YX>u/
ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False ^""edCs
ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll "aJHCi~l
ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese a1Fx|#!
mq
ActiveDocument.Styles("QLNU正文").NoProofing = True /DQYlNa
DoEvents &hOz(825r
S_ATsG*(
'图片段落样式 da$FY7
ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") p*
>z:=
ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" n!jmxl$
ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False :`bC3Mr
With ActiveDocument.Styles("QLNU图片段落").Font )Qbd/zd\U
.Size = 12 '小四号 aO'#!k*R
.Italic = wdUndefined gmGK3am
.Subscript = wdUndefined G/_IY;
.Superscript = wdUndefined um2a#6uo
End With "=h1gql'
With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat D-gH_ff<]9
.biq)Le
.LeftIndent = CentimetersToPoints(0) vSgT36ZF
.RightIndent = CentimetersToPoints(0) iGyetFqKw
.FirstLineIndent = CentimetersToPoints(0) ]VI^
hhf
t<H"J__&
.LineSpacingRule = wdLineSpaceSingle 4EB\R"rWXf
.Alignment = wdAlignParagraphCenter K`4lL5oH
.KeepWithNext = True @*6fEG{,q
.OutlineLevel = wdOutlineLevelBodyText TKDG+`TyZ
:Jd7q.
.CharacterUnitLeftIndent = 0 g)X3:=['
.CharacterUnitRightIndent = 0 \-\>JPO~<
.CharacterUnitFirstLineIndent = 0 c!6D{(sfh
1dH|/9
.LineUnitBefore = 0 .
~]|gg~
.LineUnitAfter = 0 l1+l@r\
End With 8w0~2-v.?V
ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False fUT[tkb/!
ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll +:MSY p
ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese VBhUh~:Om
ActiveDocument.Styles("QLNU图片段落").NoProofing = True ":!$Jnj,
DoEvents $RD~,<oEm
F? #3
-&Rv=q>
'第X章 NoI|Dz
ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") mQ[$U
ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" *;<fh,wOk
ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False QYH-"-)
With ActiveDocument.Styles("QLNU章节标题").Font yJA~4
.NameFarEast = "黑体" .t8)`MU6.
.NameAscii = "Arial Black" SI7rTJ]/
.NameOther = "Arial Black" S$mv(C
.Name = "黑体" 1NZ"\9=U
.Size = 16 >ahDc!Jyu
.Bold = True ;+Jx,{)
.UnderlineColor = wdColorAutomatic z0 "DbZ;d
.Outline = False Xaq;d'
.Italic = wdUndefined 8D*7{Q
.Subscript = wdUndefined GP};~
.Superscript = wdUndefined l]*RiK2AC
.Scaling = 100 q
W(@p`
.DisableCharacterSpaceGrid = True VvhfD2*T
End With QS#@xhH
With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat ;blL\|ch;
.LineSpacingRule = wdLineSpaceSingle ho\1[xS
.Alignment = wdAlignParagraphCenter ":]Xr!e
.WidowControl = True ^m\o(R
.KeepWithNext = True xl}rdnf}
.KeepTogether = True }[p{%:tP
.PageBreakBefore = True
1/DtF
.OutlineLevel = wdOutlineLevelBodyText }k^uup*{
'.A!IGsj
.LeftIndent = CentimetersToPoints(0) Ymut]`dX
.RightIndent = CentimetersToPoints(0) ]J7qsMw
.FirstLineIndent = CentimetersToPoints(0) PxkV[
nbS
+f3Rzx]
.CharacterUnitLeftIndent = 0 SuE~Wb5&
.CharacterUnitRightIndent = 0 [|]J8o@u^
.CharacterUnitFirstLineIndent = 0 v:O{"s
VPMu)1={:p
.LineUnitBefore = 1 5!c/J:z
.LineUnitAfter = 0.5 `+H=3`}X
u64#,mC[*
.AutoAdjustRightIndent = False xR+vu>f
.DisableLineHeightGrid = True jv)+qmqo!
.FarEastLineBreakControl = True WtM%(8Y[]
.WordWrap = True 9CDei~
End With 74%vNKzc~
ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False h<.5:a
ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll 0z8(9DlTc
ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese ptCF))Zm'
ActiveDocument.Styles("QLNU章节标题").NoProofing = True Eb3ZM#
DoEvents 8lyIL^
WogUILB
'表格标题 )%(ZFn}
ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ;UdM8+^/V]
ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" }Fe~XO`
ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False oF%m
With ActiveDocument.Styles("QLNU表格标题").Font wh:;G`6S
.NameFarEast = "楷体" o[C^z7WG0
.NameAscii = "Arial" i VSNara
.Name = "楷体" te@m#`p9
.Size = 10.5 {R1]tGOf
.Bold = True hRkCB
.Underline = wdUnderlineNone [,=?e
.Italic = wdUndefined Y=S0|!u
.Subscript = wdUndefined sI>w#1.m/&
.Superscript = wdUndefined IwyA4Ak Ru
.Color = wdColorAutomatic
s*uA3}j
End With g6M>S1oOO
With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat
rj4@
Liqo)m
.LineSpacingRule = wdLineSpaceSingle 5P,&VB8L
.Alignment = wdAlignParagraphCenter 8Pn
.KeepWithNext = True {##G.n\~
.KeepTogether = True +R'8$
.OutlineLevel = wdOutlineLevelBodyText is.t,&H4P]
Ob0sB@
.LeftIndent = CentimetersToPoints(0) aV;|2}q "
.RightIndent = CentimetersToPoints(0) ]7
HR
U6$
.FirstLineIndent = CentimetersToPoints(0) 8}QM~&&.
2yN!yIPR
.CharacterUnitLeftIndent = 0 !3b& S
4
.CharacterUnitRightIndent = 0 fc#9e9R
.CharacterUnitFirstLineIndent = 0 !0{SVsc)
85<k'>~L
.LineUnitBefore = 1 x9lA';})
.LineUnitAfter = 0 {*xE+ |
&;PxDlY5
End With l+ }
=D@l
ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False o}N@Q-i gq
ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll Gek?+|m
ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese *D]:{#C*
ActiveDocument.Styles("QLNU表格标题").NoProofing = True %YG?7PBB
DoEvents L
8 P0bNi
Q'<AV1<
'表格首行 EP>u%]#
ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") bZowc {!\
ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False :V/".K-:J
With ActiveDocument.Styles("QLNU表格首行").Font !I7$e&Uz@
.NameFarEast = "楷体" SmXoNiM"y
.NameAscii = "Times New Roman" wE
.H:q4&
.Name = "楷体" iI GK"}
.Size = 9 h:Pfiw]
.Bold = True HE}0_x.
.Underline = wdUnderlineNone F^dJ{<yX
.Italic = wdUndefined |Ajd$+3
.Subscript = wdUndefined Xaz "!
.Superscript = wdUndefined WK%cbFq(
End With 6-U_TV
With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat [&TF]az
.LineSpacingRule = wdLineSpaceSingle I9?\Jbqg
.Alignment = wdAlignParagraphCenter !BQt+4G7
@Q1!xA^S
.LeftIndent = CentimetersToPoints(0) v({O*OR
.RightIndent = CentimetersToPoints(0) *i"9D:
.FirstLineIndent = CentimetersToPoints(0) J0sD?V|{1~
t3L>@NWG
TmgC {_
.CharacterUnitLeftIndent = -0.5 /@LkH$
.CharacterUnitRightIndent = -0.5 e!u]l
.CharacterUnitFirstLineIndent = -0.5 OUv)`K
o"z()w~
.LineUnitBefore = 0 yR$_ZXsd
.LineUnitAfter = 0 T?3Q<[SmI
.SpaceBefore = 0 3vrVX<_
.SpaceAfter = 0 Nd(,oXa~
cy%M$O|hX5
End With @?B+|*cm
ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False {gD ED
ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll }?[];FB
ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese 5U84*RY
ActiveDocument.Styles("QLNU表格首行").NoProofing = True Q{/z>-X\x
DoEvents NaR} 0
H,>
}t
S
'表格内容 j0l{M
c5
ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle")
,,H5zmgA
ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False jcCAXk055
With ActiveDocument.Styles("QLNU表格内容").Font N&8$tJ(hhx
.NameFarEast = "楷体" k1Y\g'1
.NameAscii = "Times New Roman" 196aYLE
.Name = "楷体" `>"#d
?
,
.Size = 9 9<mMU:
.Bold = False GQ(Y#HSq
.Underline = wdUnderlineNone PT>b%7Of
.Italic = wdUndefined A7 RI&g
v5
.Subscript = wdUndefined teok*'b:
.Superscript = wdUndefined %. 1/#{
End With C4m+Ta%
With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat %"
iX3
.LineSpacingRule = wdLineSpaceSingle 1}VaBsEV
.Alignment = wdAlignParagraphCenter /?.?1-HM
A
mZXU
b
.LeftIndent = CentimetersToPoints(0) 5/.W-Q\pl}
.RightIndent = CentimetersToPoints(0) g->*@%?<w>
.FirstLineIndent = CentimetersToPoints(0) \h
~_<)
&xGdKH
.CharacterUnitLeftIndent = -0.5 =,XCjiBeC
.CharacterUnitRightIndent = -0.5 ;4O[/;i
.CharacterUnitFirstLineIndent = -0.5 80nEQT
y
.LineUnitBefore = 0 Du_5iuMh
.LineUnitAfter = 0 fJFNS
y
.SpaceBefore = 0 V]zZb-m=
.SpaceAfter = 0 rPk|2l,E,3
End With MlV(XG>'
ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False b++r#Q
g
ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll z5@XFaQ
ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese xe@e#9N$
ActiveDocument.Styles("QLNU表格首行").NoProofing = True BJ
UG<k
DoEvents rWht},-|1
lZk
z\
'图片标题 ,{*g
Q%7
ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
^J^,@Hf_
ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" .s{"NqRA
ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False UyGo0POW
With ActiveDocument.Styles("QLNU图片标题").Font Ts!'>_<Je
.NameFarEast = "楷体" s&73g0$$
.NameAscii = "Times New Roman" l b(
.Name = "楷体" L;V8c
.Size = 10.5 w:\}
B'u
.Bold = True n Bm ]?
.Underline = wdUnderlineNone +\=g&G,
.Italic = wdUndefined ~RR!~q
.Subscript = wdUndefined (]@S<0
.Superscript = wdUndefined -Y_,
.'ex
.Outline = False :1+Aj
(
.Shadow = False BA\aV
hmx
.Color = wdColorAutomatic t$BjJ -G
End With {!Qu(%
With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat <Jgcj4D
.LineSpacingRule = wdLineSpaceSingle yY VR]HH
.Alignment = wdAlignParagraphCenter fD!c t;UK
6A"$9sj6
.KeepWithNext = wdUndefined J3yK^@&&
.KeepTogether = True c7mKE`
.OutlineLevel = wdOutlineLevelBodyText Y"FV#<9@7E
sH6;__e
.LeftIndent = CentimetersToPoints(0) eo+<@83
.RightIndent = CentimetersToPoints(0) 66val"^W
.FirstLineIndent = CentimetersToPoints(0) -XYvjW,|
~[CFs'`(2
.CharacterUnitLeftIndent = 0 EL,k z8
.CharacterUnitRightIndent = 0 z:Am1B
.CharacterUnitFirstLineIndent = 0 7|}4UXr7y
\%7*@&
.LineUnitBefore = 0 1EU4/6!C
.LineUnitAfter = 0 /
End With TP
p]UG
ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False %a/3*vz/I%
ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll GDLw_usV
ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese 1T|f<ChIF<
ActiveDocument.Styles("QLNU图片标题").NoProofing = True 8lQ}-8
DoEvents v,")XPY
<8WFaP3,
'目录项 217G[YE-
ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") x/,;:S
ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" snaAn?I4
ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False Yjoe|
With ActiveDocument.Styles("QLNU目录项").Font 9E7G%-
.NameFarEast = "黑体" D!`;vZ\>
.NameAscii = "Times New Roman" 4 OPY
.NameOther = "Times New Roman" TpU\IQ
.Name = "黑体" Q}#Je.;
.Size = 10.5 '#6eUb
.Bold = False #-yCR
.Italic = wdUndefined PVb[E03
.Underline = wdUnderlineNone t:10
.Color = wdColorAutomatic >)M{^
.Superscript = wdUndefined sq$v6x sl
.Subscript = wdUndefined :T-DxP/
End With ;21D^e
With ActiveDocument.Styles("QLNU目录项").ParagraphFormat 3)G~ud
g Wtc3
.LineSpacingRule = wdLineSpaceSingle Odwe1q&
.Alignment = wdAlignParagraphLeft Xs2}n^#i
0B.Gt&Oal
.WidowControl = False UF"%FF
.KeepWithNext = False )oIh?-WL
.KeepTogether = False P%|~Ni_BTX
.PageBreakBefore = False s#?ZwD,=
.NoLineNumber = False ?V6,>e_+
.OutlineLevel = wdOutlineLevelBodyText ]N'3jf`W
-6[DQB
.LeftIndent = CentimetersToPoints(0) #/>TuJc
.RightIndent = CentimetersToPoints(0) HA'~1$#z
.FirstLineIndent = CentimetersToPoints(0) UA<Fxt
]-gyXE1.r
.CharacterUnitLeftIndent = 0 FGDVBUY@
.CharacterUnitRightIndent = 0
r!R-3LO0s
.CharacterUnitFirstLineIndent = 0 ggDT5hb
;UQza ]i
.LineUnitBefore = 0 }`qAb/Ov
.LineUnitAfter = 0 @&\Y:aRO%i
End With D4VDWv
ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False oC5h-4~
ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll 5`^@k<
ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot aHN"I
ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese kcfT|@:MK"
ActiveDocument.Styles("QLNU目录项").NoProofing = True 868X/lL
DoEvents Vk{;g
\_Bj"K
'参考文献 6n]
+(=
ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") "3RFyi
ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" fZiAl7b!
ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False !!C/($
With ActiveDocument.Styles("QLNU参考文献").Font vPDw22L;'
.NameFarEast = "宋体" |5 V0_79
.NameAscii = "Times New Roman" x9YQd69
.NameOther = "Times New Roman" <YvXyIs
.Name = "Times New Roman" 01A{\O1$j
.Size = 12 C]!2
.Bold = False GLsa]}m,9
.Italic = wdUndefined
>9H^r\
.Subscript = wdUndefined ]oP1c-GEk
.Superscript = wdUndefined ?[JP[
qS
.Underline = wdUnderlineNone UWT%0t_T
.UnderlineColor = wdColorAutomatic /l$enexSt
.Color = wdColorAutomatic %,\JTN|g|A
.Engrave = False yd;e;Bb7*
End With >
~o-6g
With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat &jJu=6 U
B
t6"%u3W8M
.LineSpacingRule = wdLineSpaceExactly zsp%Cz7T
.LineSpacing = 16 ?X@!jB,Pv
.Alignment = wdAlignParagraphLeft 7P1Pk?pxy
.WidowControl = False ) H,Xkex
.KeepWithNext = False z:\9t[e4
.KeepTogether = False x3y+=aj
.PageBreakBefore = False Tz1^"tx9
.OutlineLevel = wdOutlineLevelBodyText >V6t
L;+
=UKxf
.LeftIndent = CentimetersToPoints(0) s|\)Y*B`
.RightIndent = CentimetersToPoints(0)
V_h&9]RL
.FirstLineIndent = CentimetersToPoints(0) 1'&.6{)P
Y5aG^wE[:
.CharacterUnitLeftIndent = 0 E0ED[d,
.CharacterUnitRightIndent = 0 9,?~dx
.CharacterUnitFirstLineIndent = -2 O,r;-t4vYU
g<Z :`00|
.LineUnitBefore = 0 ?~o`mg
.LineUnitAfter = 0 3"x_Y
.SpaceBefore = 0 Bve|+c6W
.SpaceAfter = 0 *qzdt^[ xo
+p%3pnj:K
End With bv4umL /
ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False {;{U@Z
ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll z$Jm1l
ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS P)vD?)Q
ActiveDocument.Styles("QLNU参考文献").NoProofing = True FJ
3S
ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese eIvZhi
DoEvents ;FqmZjm
*D|a`R!Y
' %n|
ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") :9hGL
ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" i.E2a)
ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False ^`cv6;)
With ActiveDocument.Styles("QLNU论文题目").Font ~$y"Ldrp
.NameFarEast = "黑体" <D a-rv8
.NameAscii = "Arial Black" \OW:-
.NameOther = "Arial Black" 8 W
.Name = "Arial Black" A4"TJZBg}
.Size = 16 @}
Ig*@
.Bold = False 5_(\Cd<#
.Italic = wdUndefined BgXZr,?
.Superscript = wdUndefined cC-8.2
.Subscript = wdUndefined RRja{*R
.Underline = wdUnderlineNone e\6H.9=
.UnderlineColor = wdColorAutomatic fOi
Rstci
.Color = wdColorAutomatic <&\ng^Z$
a&'9[9E1
End With ^+yz}YFM
With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat JVoC2Z<
.LineSpacingRule = wdLineSpaceSingle -DkD*64wu
.Alignment = wdAlignParagraphCenter ;+~5XLk
.WidowControl = True 6 - 3?&+
.KeepWithNext = True g}W`LIasv
.KeepTogether = True I0
mp[6
.PageBreakBefore = True 8"&!3_
.NoLineNumber = False |S!RQ-CF
.OutlineLevel = wdOutlineLevelBodyText ):K%
GxhE5f;
.LeftIndent = CentimetersToPoints(0) |u>V>
PN
.RightIndent = CentimetersToPoints(0) $M}"u[Qq
.FirstLineIndent = CentimetersToPoints(0) }2]|*?1,
AMyg>n!
.CharacterUnitLeftIndent = 0 33
~MP;
.CharacterUnitRightIndent = 0 /"e@rnn
.CharacterUnitFirstLineIndent = 0 uZld9u
Q+Bl1xl
.LineUnitBefore = 1 rD}g9?ut
.LineUnitAfter = 1 p)
SW(pS
rn-bfzoDS
.BaseLineAlignment = wdBaselineAlignAuto Z:{|
?4
End With &. =8Q?
ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False lrE"phYk
ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll =NY;#Jjn
ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS {]\7
M|9\
ActiveDocument.Styles("QLNU论文题目").NoProofing = True naR<
ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese @\?HlGWEf
ActiveDocument.Styles("QLNU论文题目").NoProofing = True /5sn*,
DoEvents K+~?yOQj
nL?P/ \
'中文摘要 Z=&|__+d
ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") H q6%$!q
ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" UV2W~g
ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False v-#,@&Uwq
With ActiveDocument.Styles("QLNU中文摘要").Font qxI$F
.NameFarEast = "宋体" Ae7FtJO
.NameAscii = "Times New Roman" ]zYIblpde
.NameOther = "Times New Roman" lc
<V_8
.Name = "Times New Roman" DzR,ou
.Size = 12 <6(0ZO%,C!
.Bold = wdUndefined Ts.2\-+3
.Superscript = wdUndefined myj/93p}`b
.Subscript = wdUndefined Fn5BWV
.Italic = wdUndefined ^=x/:0
.Underline = wdUnderlineNone |Z>-<]p9g
.UnderlineColor = wdColorAutomatic N}5
.Color = wdColorAutomatic li[[AAWVm
End With Y*BmBRN
With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat yhKH}
kR
.LineSpacingRule = wdLineSpaceExactly uUjjAGZ
.LineSpacing = 20 .'`aX
7{\
.Alignment = wdAlignParagraphLeft 0PkX-.
X2V+cre
.WidowControl = False Ur@'X-
.KeepWithNext = False }2h~o~
.KeepTogether = True ;XTP^W!6f
.PageBreakBefore = False A
f
-{'
.NoLineNumber = False ;e[-t/SI
.OutlineLevel = wdOutlineLevelBodyText $Z;0/\r%
H7\EvIM=
.LeftIndent = CentimetersToPoints(0) 9wI1/>
.RightIndent = CentimetersToPoints(0) =XWi+')
.FirstLineIndent = CentimetersToPoints(0) `Y(/G"]
e8gD(T
.CharacterUnitLeftIndent = 0 "C0oFRk
.CharacterUnitRightIndent = 0 Nz]\%c/-
.CharacterUnitFirstLineIndent = 2 H
~$a6T"&
.LineUnitBefore = 0 U|y+k`
.LineUnitAfter = 0 )P,jpE8
zb9$
End With 0<P
-`|X
ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False N:d" {k
ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll f-23.]`v
ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS Y]Xal
ActiveDocument.Styles("QLNU中文摘要").NoProofing = True Z&21gN
ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese +1cK (Si
ActiveDocument.Styles("QLNU中文摘要").NoProofing = True 0&w.QoZY(
ActiveDocument.Styles("QLNU中文摘要").Frame.Delete K(Cv9YQ
DoEvents W{0<ro`
H>W A?4
ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") Gb
MSO
ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" 4K4?Q+?
ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False .IG(Y!cB
With ActiveDocument.Styles("QLNU英文标题").Font "4
ovMan
.NameFarEast = "黑体" ^WVr@6
.NameAscii = "Arial Narrow" ,7/N=mz
.Name = "Arial Narrow" evn ]n
.Size = 16 9cj:'KG)!
.Bold = True >Ks|yNJ
.Bold = wdUndefined
TYB^CVSZ
.Superscript = wdUndefined ~A6QX8a
.Subscript = wdUndefined RE*SdazY?
.Italic = wdUndefined /gPn2e;
]^.#d
.Underline = wdUnderlineNone /r]IY.
.UnderlineColor = wdColorAutomatic .ipYZg'V
.StrikeThrough = False hB|LW^@v
.DoubleStrikeThrough = False v'DL >Y
End With XRaq\a`=:
With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat cQN}z
Ke
.LineSpacingRule = wdLineSpaceSingle SFh6'v'1N@
.Alignment = wdAlignParagraphCenter ,H.q%!{h_
.WidowControl = True ya|7hz{
.KeepWithNext = False C9*'.~
.KeepTogether = False G-T:7
.PageBreakBefore = False y&SueU=
.NoLineNumber = False n32BHOVE
.FirstLineIndent = CentimetersToPoints(0) }t]CDa_n
.OutlineLevel = wdOutlineLevelBodyText y=q\1~]Z
~xzRx$vU
.LeftIndent = CentimetersToPoints(0) ^OYar(
.RightIndent = CentimetersToPoints(0) G#K=n
.FirstLineIndent = CentimetersToPoints(0) x==%BBnO%
4m%_#J{
.CharacterUnitLeftIndent = 0 b~cN#w
#
.CharacterUnitRightIndent = 0 #,$d!l @
.CharacterUnitFirstLineIndent = 0 4egq Y0A
{HQ?
.LineUnitBefore = 1 6R#
f 8
.LineUnitAfter = 1 7]G3yt->
`F(KM '
End With 7zy6`OP
ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False iGm[fxQ|
ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll UB=I>
ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS EAx@a%
ActiveDocument.Styles("QLNU英文标题").NoProofing = True gwT"o
ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese mO]>(^c
ActiveDocument.Styles("QLNU英文标题").NoProofing = True Oi=kL{DG:s
ActiveDocument.Styles("QLNU英文标题").Frame.Delete ?mrG^TV^+r
DoEvents &|55:Y87
!7Ta Vx}`(
ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") dRt]9gIsx
ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" 4WDh8U
ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False 7X1T9'jI2
With ActiveDocument.Styles("QLNU英文摘要").Font #=+d;RdlW
.NameFarEast = "宋体" `|Tr"xavf
.NameAscii = "Arial" gNN{WFHQX:
.NameOther = "Arial" nKufVe
.Name = "Arial" p)Z$q2L
.Size = 12 <{7B ^'
.Bold = wdUndefined C:zK{+
.Italic = wdUndefined >8HcCG
.Superscript = wdUndefined ^qYJx
.Subscript = wdUndefined vMDV%E S1t
End With 91e&-acA
2et7Vw
With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat X8p-VCkV
:SziQQ
.LineSpacingRule = wdLineSpaceExactly WOR~tS
.LineSpacing = 20 leX&py
E_7N^htv
.Alignment = wdAlignParagraphJustify XkOsnI8n
Bo_Ivhe[m
.WidowControl = False GuNzrKDr
.KeepWithNext = False OZs^c2
W
.KeepTogether = False ti3T?_
.PageBreakBefore = False KK}^E_v
.NoLineNumber = False }M * Oo
0Ocy$
.OutlineLevel = wdOutlineLevelBodyText -+-@Yq$
WFULQQ*
.LeftIndent = CentimetersToPoints(0) GR Rv0M
.RightIndent = CentimetersToPoints(0) Hj$JXo[U
.FirstLineIndent = CentimetersToPoints(0) Z6A*9m
HTvA]-AuM
.CharacterUnitLeftIndent = 0 R/xeC [r
.CharacterUnitRightIndent = 0 >
QDmSy*&
.CharacterUnitFirstLineIndent = 2 (
{5LB4
!A,]
.LineUnitBefore = 0 z45ImItH
.LineUnitAfter = 1 iLNKC'
oaM $<
End With k*[["u^u]
ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False =gw'MA
ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll %sbDH
ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS [n44;
ActiveDocument.Styles("QLNU英文摘要").NoProofing = False seB ^o}
DoEvents iE!\)7y
6/Q'o5>NL:
Options.Pagination = True j"9bt GX
Me.txtStatus.Text = "样式修改完成,重新进行分页,请稍候....." 5iwJdm
DoEvents yk,o*g
ActiveDocument.Repaginate u-$(TyDEl|
E~3wdOZv1
End Sub 6`+dP"@
"VRcR
I|@%|s
TW