Dim bContinue As Boolean XT_BiZ%l5O
?-'Q-\j
Dim regEX As New RegExp M !OI :v
Dim paraCounter As Long '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 :<IW'
Q<``}:y|>
Dim LastTitle0String As String, LastTitle0No As Long F]?$Q'U
Dim LastTitle1String As String, LastTitle1No As Long |,&!Q$<un
Dim LastTitle2String As String, LastTitle2No As Long Tm^zo Vi
Dim LastTitle3String As String, LastTitle3No As Long T }] Ao
Dim LastTitle4String As String, LastTitle4No As Long *id|za|:k
Dim LastTitle5String As String, LastTitle5No As Long ^NLKX5
Q
Dim LastTabelString As String, LastTableNo As Long 0KT{K(
Dim LastFigureString As String, LastFigureNo As Long h?YjG^'9
9e :E% 2
Dim strSeperator As String iVu+ct-iv
A?|cJ"N
Sub ConvertWidth(fTEXT As String, rText As String) l7J_s?!j
Selection.Find.ClearFormatting JT^ E `<nn
Selection.Find.Replacement.ClearFormatting 1y"37;x
Selection.Find.Wrap = wdFindContinue e@,,;YO#4
Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText I}v'n{5(
DoEvents {Q(6
.0R
Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True L{f P_DIa
End Sub rb \Ohv\
|2 wff?
Sub ClearDomain() gkk < -j'
With Selection.Find Da-(D<[0
.ClearFormatting ,em6wIq,
.Replacement.ClearFormatting 5\Y/s o=
.Wrap = wdFindContinue $'FPst8Q<
Me.txtStatus.Text = "清除所有域代码" t1Khf
DoEvents =3SL&
:8
.Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False JkxS1
End With c)6Y.[).
End Sub Z#o\9/{(R
L
kq>> ?T=
Private Sub cmdCheck_Click() _@prv7e
bContinue = True c8"I]Qc7
Dim NoSeries1(1 To 16) As String Nyqm0C6m^
Dim NoSeries2(1 To 16) As String S c~kO4
Dim NoSeries5(1 To 16) As String ZJ[ Uz_%W
Dim NoSeriesRM(1 To 16) As String fZ
g*@RR
Dim paraTotal As Long, ParaText As String A#
M
Dim ttString As String, ttNo As String BtHvfoT
RLHe;-*b]I
Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long MthThsr7
F5<{-{Ky
Me.txtStatus.Visible = True fF[ g%?w
Me.lbParaType.Visible = True 4l`g AE$
Me.cmdCheck.Enabled = False f|^f^Hu:{
H@j ^ ,
#!D5DK@+
t2Y~MyT/
o"1us75P
Dim ParaType As String, rText As String nG%j4r ;
ycAQP
z}=I
Selection.WholeStory #Aa
n v
Selection.NoProofing = True 8rpN2M 3h
] VYl Eqe
tm1 = Now VDmd+bvJV
ToJru
ActiveWindow.View.Type = wdNormalView
B-gr2-
!Z'm@,+
NoSeries1(1) = "一" T&2
3Pf 1
NoSeries1(2) = "二" M7> \Qk
NoSeries1(3) = "三" (
L6` _)
NoSeries1(4) = "四" !3&vgvr
NoSeries1(5) = "五" %-'U9e KN
NoSeries1(6) = "六" !yI)3;$*
NoSeries1(7) = "七" (P>vI'
NoSeries1(8) = "八" YYvs~?bAy
NoSeries1(9) = "九" 8c|IGC
NoSeries1(10) = "十" gwY
d4
NoSeries1(11) = "十一" o V!9B -<
NoSeries1(12) = "十二" #EM'=Q%TO
NoSeries1(13) = "十三" X*yl% V
NoSeries1(14) = "十四" zm .2L
NoSeries1(15) = "十五" #dfW 1@m
NoSeries1(16) = "十六" 4 z`5W,
Hf-F-~ E
NoSeries2(1) = "㈠" pq&c] 8H
NoSeries2(2) = "㈡" h B+ t
pa
NoSeries2(3) = "㈢" BmJ?VJ}Y
NoSeries2(4) = "㈣" 5#F+-9r
NoSeries2(5) = "㈤" z*[Z:
NoSeries2(6) = "㈥" &^7)yS+C
NoSeries2(7) = "㈦" 5
UM [Iz
NoSeries2(8) = "㈧" 4#YklVm
NoSeries2(9) = "㈨" <C{5(=X{
NoSeries2(10) = "㈩" H= y-Y_R
d?P
aZz{4
NoSeries5(1) = "①" zXC In
NoSeries5(1) = "②" j&mL]'Zy
NoSeries5(3) = "③" &4[iC/}
NoSeries5(4) = "④" =%
JDo
NoSeries5(5) = "⑤" A{o{o++
NoSeries5(6) = "⑥" Bm7G U`j"
NoSeries5(7) = "⑦" I^|bQ3sor
NoSeries5(8) = "⑧" ]1[;A$7
NoSeries5(9) = "⑨" "}EbA3
NoSeries5(10) = "⑩" ?hu 9c
U+i[r&{gb
E{ ,O}
NoSeriesRM(1) = "I" UiEB?X]-l'
NoSeriesRM(2) = "II" %% >?<4t
NoSeriesRM(3) = "III" Vi|jkyC8
NoSeriesRM(4) = "IV" F3' X
NoSeriesRM(5) = "V" #"M Pe4
NoSeriesRM(6) = "VI" yEny2q}
NoSeriesRM(7) = "VII" *3K"Kc2
NoSeriesRM(8) = "VIII" fytx({I
.a
NoSeriesRM(9) = "IX" G9[-|[j^N
NoSeriesRM(10) = "X" ^
>p [b
NoSeriesRM(11) = "XI" ,{50zx2
NoSeriesRM(12) = "XII" .0|J+D
NoSeriesRM(13) = "XIII" )-{Qa\6(%
NoSeriesRM(14) = "XIV" m&%b;%,J
NoSeriesRM(15) = "XV" !jW32$YTR
NoSeriesRM(16) = "XVI" L' pZ
bcs!4
i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) w g1pt1 `
?f`-&c;
If i = vbNo Then !T{g& f
Exit Sub
wm8x1+P
End If <Gw< (M
<<1oc{i
If Me.chkSuper.Value Then 8dh Y"&
Me.txtStatus.Text = "检查修改所有的上标格式" ;hvXFU
Vel;t< 1
CheckSuperScript 31C]TdJ
7GUJ&U) J
End If {EUH #':
!tdfTf$
If Me.chkStyle.Value Then :qp"Ao{M
Me.txtStatus.Text = "设置样式，请稍候...." M5V1j(URE
DoEvents &F}+U#H
CeateOrModifyStyle $OD5t5eTsM
End If A!kyga6F5
|@ HdTGD
|Q; o 538
jb2:O,+ !
ClearDomain F%d"gF0qu
c" 7pf
T
f)x}_dw%
`Vi:r9|P
If Me.chkLIST.Value Then 9-^p23.@[j
Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" iFA"m;$
@7=D ]yu
ConvertListToOrdinary QA(,K}z~^S
End If M::iU_
J4g;~#_19
1#<E]<='t
Dim pType As String, trimpTEXT As String |7$h@KF=S
If Me.chkNum.Value = True Then h;KK6*Z*$E
Me.txtStatus.Text = "转换全角数字形式为半角" hI8C XG
ConvertWidth "１", "1" pQ Y >
DoEvents NLl~/smMS
ConvertWidth "２", "2" #U}U>4'
DoEvents 's?
F ip
ConvertWidth "３", "3" uLM_KZ
DoEvents ? Q3~n ^
ConvertWidth "４", "4" 3>" h*U#
DoEvents eNFUjDm
ConvertWidth "５", "5" @;}H<&"
DoEvents (<X dj ^v
ConvertWidth "６", "6" wjJ1Psnx
DoEvents
Ag6
(
ConvertWidth "７", "7" +_dYfux
DoEvents 2&fwr>!$
ConvertWidth "８", "8" z)>{O 3
DoEvents tl5IwrF6;
ConvertWidth "９", "9" C
#&6p0U
DoEvents e;5Lv9?C8
ConvertWidth "０", "0" :g
q@/COo(
DoEvents ([-=NT}Aq
ConvertWidth "ａ", "a" b2e a0
DoEvents *"\Q ~ #W
ConvertWidth "ｂ", "b" syf"{bBe
DoEvents
1}E@lOc
ConvertWidth "ｃ", "c" Z5 L1^
DoEvents 8!GLw-kb
ConvertWidth "ｄ", "d" lKUm_; m
DoEvents tJPRR_nZv
ConvertWidth "ｅ", "e" ..!-)q'?
DoEvents \2xBOe-a]
ConvertWidth "ｆ", "f" )<F\IM
DoEvents ? myXG92
ConvertWidth "ｇ", "g" rb'Gv e W[
DoEvents
7y Te]O
ConvertWidth "ｈ", "h" 8$ k XC+
DoEvents Ib8i#D V
ConvertWidth "ｉ", "i" n;-r
W;Z O
DoEvents EiN)TB^]
ConvertWidth "ｊ", "j" \q |PHl
DoEvents +[
/r
^C
ConvertWidth "ｋ", "k" z nO00qX
DoEvents f](uc(8Z
ConvertWidth "ｌ", "l" >}{-!
DoEvents &R*5;/
!
ConvertWidth "ｍ", "m" k)V%.Eobf
DoEvents *v ^"4
ConvertWidth "ｎ", "n" 5
]l7 Z35
ConvertWidth "ｏ", "o" \] A;EwC4C
ConvertWidth "ｐ", "p" %i>
e
ConvertWidth "ｑ", "q" ~x"79=!W
ConvertWidth "ｒ", "r" vqOLSE"t*O
ConvertWidth "ｓ", "s" xPup?oP >
ConvertWidth "ｔ", "t" c/Yi0Rl)
ConvertWidth "ｕ", "u" 5I1J)K;
ConvertWidth "ｖ", "v" '5/}MMT
ConvertWidth "ｗ", "w" oQ nk+> }%
ConvertWidth "ｘ", "x" bV*zMoD#
ConvertWidth "ｙ", "y" Q'% o;z*
ConvertWidth "ｚ", "z" vGwD~R
ConvertWidth "Ａ", "A" vfUfrk@D~
ConvertWidth "Ｂ", "B" s C_UalOC_
ConvertWidth "Ｃ", "C" U/!&K s
nT
ConvertWidth "Ｄ", "D" 6QXQ<ah"
ConvertWidth "Ｅ", "E" [=6~"!P}
ConvertWidth "Ｆ", "F" m`IQ+, e
ConvertWidth "Ｇ", "G" wrYQ=u#Z
ConvertWidth "Ｈ", "H" ~hslLUE
ConvertWidth "Ｉ", "I" $3.vVnc
ConvertWidth "Ｊ", "J" {IHK< aW
ConvertWidth "Ｋ", "K" H#6^-6;/
ConvertWidth "Ｌ", "L" lp-Zx[#`}C
ConvertWidth "Ｍ", "M" cC^C7AAq^
ConvertWidth "Ｎ", "N" j&
iL5J;
ConvertWidth "Ｏ", "O" G5#}Ed4
ConvertWidth "Ｐ", "P" F
ssEs!#
ConvertWidth "Ｑ", "Q" P`dHR;Y0
ConvertWidth "Ｒ", "R" Y;F
R"~^
ConvertWidth "Ｓ", "S" Df~p 'N-$
ConvertWidth "Ｔ", "T" RIEv*2_O
ConvertWidth "Ｕ", "U" ,Kf8T9z`
ConvertWidth "Ｖ", "V" |p -R9A*>h
ConvertWidth "Ｗ", "W" |c GeL[
ConvertWidth "Ｘ", "X" J%:/<uC mZ
ConvertWidth "Ｙ", "Y" Vnj/ >e 3
ConvertWidth "Ｚ", "Z" vj&5`
ConvertWidth "^l", "^p" %Rep6=K*$
ConvertWidth "（", "(" } FiN 7#
ConvertWidth "）", ")" h+~df(S.
!NLvo _[Y
End If hdtnC29$
*;e@t4
With ActiveDocument yCCw< ?
Dim tbl As Table 1DLG]-j}
For Each tbl In .Tables 2{B ( j&{
tbl.Rows.Alignment = wdAlignRowCenter .q`H` (QM
tbl.Range.Font.NameFarEast = "楷体" 4ylDD|) rO
tbl.Range.Font.NameAscii = "Times New Roman" xY'qm8V
tbl.Range.Font.Size = 10.5 _*o u o<x
Next ,&&M|,NQ&s
Set tbl = Nothing M
:Y*Tb6w
End With nH>V D a
V<2fPDZ
Eu/y">;v#
With ActiveDocument #;LMtDaL
)ko{S[
gG
For i = 1 To .TablesOfContents.Count Kq 4<l
.TablesOfContents(i).Delete <cv2-?L{
Next :~3{oZGX&
W0MnGzZ
H<
Kk j
M"5!s,
paraTotal = .Paragraphs.Count EKeh>3;?
paraCounter = 1 ).}k6v[4)
P%@rH@^Y
LastTitle0No = 0 [s{r$!Gl
LastTitle1No = 0 n R\n \
LastTitle2No = 0 R mW fV
LastTitle3No = 0 25a#eDbqi
LastTitle4No = 0 W x?&igh
LastTableNo = 0 \q|7,S,5
LastFigureNo = 0 rW~?0
8| e$
Dim Sec As Long 6{ +_T
*rn] /w8ZW
Sec = InputBox("正文从第一节开始？", "节设置", 6) 5Z6-R}uXk
If Sec = 0 Then l IV xW+
Exit Sub '"w}gx
End If .D,?u"fk|
L;S*.Ol>
k = 0 x , Vh
Do While (paraCounter < paraTotal) And bContinue ;eW'}&|LV
k = k + 1 qE`:b0FT
If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then KT];SF ^Y
Exit Do i=1 }lk q
End If mvTyx7 h=
paraCounter = paraCounter + 1 ,t%CK!8
If k Mod 20 = 0 Then w,![; wG
Me.lbCounter.Caption = paraCounter Vv]$\`d#
DoEvents }-{ b$6]
End If |Sr\jUIWn
Loop e-i YJ?
2 rO)qjiH
K)Z
kj"y
Do While (paraCounter < paraTotal) And bContinue J7ktfyQ0W
IQw
%| ^
ParaText = Trim(.Paragraphs(paraCounter).Range.Text) BLwfm+ m"
ShapeHeight = 0 X vu)
ShapeWidth = 0 PPC Tc|G
<,@H;|mZ
CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth
Y$x"4=~
'EL ||
Select Case ParaType y
Tw',N{
Case "【】表格内容" YO(:32S
.Paragraphs(paraCounter).Style = "QLNU表格内容" 6mBDd>`0
Case "章" 'l'
X^LMD
LastTitle0No = LastTitle0No + 1 nR o=J5tY
'新一章开始，复位其下属标题编号 *"ykTqa
LastTitle1No = 0 V Z2.w4b
LastTitle2No = 0 OgKWgvy
LastTitle3No = 0 chO'Q+pw
LastTitle4No = 0 =s0g2Zv"\
~TG39* m
k = Val(ttNo) 4\1wyN /}M
If k = 0 Then '非数字编号章节 r}R^<y@I
If ttNo <> NoSeries1(LastTitle0No) Then WbQhl sc:
rText = "第" & NoSeries1(LastTitle0No) & ttString ]M~8 @K
Me.ErrMsg.AddItem "章节编号错误：" & ParaText E5*-;>2c
End If 8Da( tS
Else i0'Xy> l
If Val(ttNo) <> LastTitle0No Then }2Cd1RnS
rText = "第" & LastTitle0No & ttString cB ab2/
Me.ErrMsg.AddItem "章节编号错误：" & ParaText @TA8^ND
End If MOP]\ypn
g HvW
e
End If z [qdmx^
abICoP1zQ
'章段落设置 7sud/* +F
'字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 Ehb?CnV#J
.Paragraphs(paraCounter).Style = "QLNU章节" TZh\#dp4l
.Paragraphs(paraCounter).Range.Select :/@k5#DY
Selection.EndKey unit:=wdLine Mu '^OX82
tc = Replace(rText, vbCr, "") C|4 U78f{
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False Bw 3F7W~l
Case "一级标题" }
%!FMXe
LastTitle1No = LastTitle1No + 1 No kXE
'新一级标题开始，复位其下属标题编号 gH i~
nEH
LastTitle2No = 0 dd \bI_
LastTitle3No = 0 gb=80 s0
LastTitle4No = 0 66~ e~F}z
|"
CJ
If ttNo <> NoSeries1(LastTitle1No) Then !K3i -zY
rText = NoSeries1(LastTitle1No) & "、" & ttString H_ ?;h-Y]
Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText }c`
?0FQ
End If ^91sl5c8yD
W>Mse[6`c
@[d#mz
'一级标题段落设置 格式：一、标题内容 oUQGLl!V
.Paragraphs(paraCounter).Range.Text = rText ;23=p=/h
.Paragraphs(paraCounter).Style = "QLNU一级标题" ezcS[r
.Paragraphs(paraCounter).Range.Select 3Vc T7y*{P
Selection.EndKey unit:=wdLine ?eL='>Ne
tc = Replace(rText, vbCr, "") 9 m\ )\/V
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False k40Ep(M}
Case "二级标题" 7szls71/=
LastTitle2No = LastTitle2No + 1 v#<\:|XAg
'新二级标题开始，复位其下属标题编号 #
#k #q=4
LastTitle3No = 0 {A]k%74-a
LastTitle4No = 0 =MT j4VXh"
_kn]#^ucCe
If ttNo <> NoSeries1(LastTitle2No) Then .L ojzx
rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString |h^K M
ErrMsg.AddItem "二级标题编号错误：" & ParaText g|ql 5jW
End If =<[7J] %
< Gr9^C
'二级标题段落设置 格式：(一)、标题内容 >.J'L5
x$
.Paragraphs(paraCounter).Range.Text = rText .-. q3ib
.Paragraphs(paraCounter).Style = "QLNU二级标题" 6Cl+ KcJH
|`w$|pm=
.Paragraphs(paraCounter).Range.Select ljup#:n
Selection.EndKey unit:=wdLine 9U2
Px$E
tc = Replace(rText, vbCr, "") Lzh 9DYU6
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 2 ", PreserveFormatting:=False K4j@j}zK9I
@Pxw hlxa
Case "三级标题" h'B9|Cm
LastTitle3No = LastTitle3No + 1 PM~bM3Ei
'新三级标题开始，复位其下属标题编号 kF+ZW%6N
LastTitle4No = 0 e >
ar
j';n8|Y9
If Val(ttNo) <> LastTitle3No Then iD%qy /I/
rText = LastTitle3No & ". " & ttString f\h%; X
Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText Hs[}l_gYn
4@DVc7\x$
End If 968Ac} OA
'三级标题段落设置 格式：1. 标题内容
*-9#
/Cp
.Paragraphs(paraCounter).Range.Text = rText B ;eW/#`
.Paragraphs(paraCounter).Style = "QLNU三级标题" tCWJSi`IJ
.Paragraphs(paraCounter).Range.Select rGTWcJ
Selection.EndKey unit:=wdLine )UR1E ?'
tc = Replace(rText, vbCr, "") T?H\&2CLT
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 3 ", PreserveFormatting:=False cJP'ShnCh
Case "四级标题" 4dW3'"R"L
LastTitle4No = LastTitle4No + 1 d@-wi%,^
>65
TkAp
If Val(ttNo) <> LastTitle4No Then + jp|Y ?6Z
rText = "(" & LastTitle4No & "). " & ttString HR[ Q
?rg
ErrMsg.AddItem "四级标题编号错误：" & ParaText qPsyqn ?Y|
?N4A9W
9
End If "w*@R 8v
'四级标题段落设置 格式：(1). 标题内容 McEmd.S<n
.Paragraphs(paraCounter).Range.Text = rText
LsQ s:O
.Paragraphs(paraCounter).Style = "QLNU四级标题" w`M]0'zls
.Paragraphs(paraCounter).Range.Select LkaG8#m1R
Selection.EndKey unit:=wdLine wX-RQ[ 2X
tc = Replace(rText, vbCr, "") d4ic9u*D
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 4 ", PreserveFormatting:=False H \r `7
54=}GnZN
Case "表格标题" s,84* 6u
LastTableNo = LastTableNo + 1 -"F0eV+y
mYX56,b}5
If ttNo <> CStr(LastTableNo) Then z8b
_ _%Br
rText = "表" & LastTableNo & ". " & ttString iH[E=
6*
ErrMsg.AddItem "表格编号错误：" & ParaText "YuZ fL`bb
q z=yMIy=
End If pAEN XC\,
ha_@Yqg h
'表格名称段落设置 格式：表1. 表格名称 hgj CXl
.Paragraphs(paraCounter).Style = "QLNU表格标题" LPq2+:JpS
xe = Replace(rText, vbCr, "") \C| ;F
.Paragraphs(paraCounter).Range.Select Qqp)@uM^
Selection.MoveEnd wdCharacter, -1 '选择范围包括行尾的换行符。 9U]pH%.9
Selection.Range.Text = xe 6/|U
Selection.EndKey 7. %f01/i
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False %h0D)6 j
a
]>V ZOet
Case "表格首行" )j\r,9<K+5
.Paragraphs(paraCounter).Style = "QLNU表格首行" BpH|/7
Case "图片标题" ]a)IMIh;
LastFigureNo = LastFigureNo + 1 (Ar?QwP9>
F
b1
EMVu
If ttNo <> CStr(LastFigureNo) Then PM
@XtL7J
rText = "图" & LastFigureNo & ". " & ttString N].4"0Jv-D
ErrMsg.AddItem "表格编号错误：" & ParaText 9^oo-,Su_
e d_m +NM
End If :ezA+=E
Ng
'图片名称段落设置 格式：图1. 图名称 =Wj{]&`
.Paragraphs(paraCounter).Range.Text = rText [d0%.+U
.Paragraphs(paraCounter).Style = "QLNU图片标题" _~ v-:w
.Paragraphs(paraCounter).Range.Select #De(*&y2
Selection.EndKey unit:=wdLine Q5g,7ac8L
xe = Replace(rText, vbCr, "") 3KtAK9PT
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False m6-76ma,hi
Case "正文" _=uviMuE
'正文名称段落设置
pXssh
.Paragraphs(paraCounter).Style = "QLNU正文" P!5Z]+B#
Case "文献条目" .
/Y&\ <
With .Paragraphs(paraCounter) -zprNQW
'.Range.Select o1U}/y+R\
'Selection.ClearFormatting 6 0'6/3
'.Range.Find.Execute findtext:=rText, replacewith:=strSeperator 'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” #
2d,U\_
.Style = "QLNU参考文献" U%L
-NMe
End With D^n xtuT*
Case "图表注解" 1c'79YU
With .Paragraphs(paraCounter) [ 4Y[?)7
.Range.Font.NameFarEast = "楷体" +
hpSxdAz4
.Range.Font.NameAscii = "Times New Roman" C+`xx('N9
.Range.Font.Size = 9 '小5号字 \F[
n`C"Is
{-Yee[d<?
.Alignment = wdAlignParagraphCenter 3a%xn 4P
.LeftIndent = 0 Cgo9rC~]
.RightIndent = 0 [1<(VyJ}ye
.FirstLineIndent = 0 U>oW~Z
.LineSpacing = 12 Ex 6o=D2
.LineSpacingRule = wdLineSpaceExactly .U<F6I:<md
.LineUnitAfter = 0 t{~@ I
.LineUnitBefore = 0 NJ<N %hcjK
.OutlineLevel = wdOutlineLevelBodyText E$w#+.QP
.PageBreakBefore = False D
0
.RightIndent = 0 97!H`|u <
.WordWrap = True 3i6h"Wu`n
.LineUnitAfter = 0.5
^=k {~
cu<y8
:U<
End With (X*9w##x(
Case Else 6>s=Ci ZB
'不作处理 ikr7DBLt
End Select F% }7cm2
]s _@n!
'含有inlineshape的段落处理 "i&fp:E0
If ShapeHeight > 30 Then vuZf#\zh}
.Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle '对有图片的段落设置为单倍行距
"tKNlHBu'
End If A9t8`|1"%H
F, zG;_
If (ShapeWidth + ShapeHeight) > 150 Then ~*,Wj?~+7
.Paragraphs(paraCounter).Style = "QLNU图片段落" p/N 62G
End If PzLJ/QER
w m19T7*L
'段落计数器递 b]w[*<f?
paraCounter = paraCounter + 1 =C#*!N73
Me.lbCounter.Caption = "当前检测段落：" & paraCounter 0#<WOns1
Me.txtStatus.Text = ParaText ( :iPm<
DoEvents a/ 34WFC
Loop %w$ mS G
End With |f<9miNu
Khr Fg1|
msg = "" E.9^&E}PG
B7|c`7x(
For i = 0 To Me.ErrMsg.ListCount - 1 Z&A0hI4d
msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) @/LiR>,
Next kAeNQRjR
X>}@EHT
`&H04x"Y$>
fL2 ^\dB ;
Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg 6i| ~7 md,
Me.cmdCheck.Enabled = True y[7C% W j
Me.txtStatus.Visible = True [$;,Ua-mt
Me.lbParaType.Visible = False iyc$)"w
9l#gMFkn I
bContinue = False V; k#})_-
End Sub s0 47"Q
$.9 +{mz
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) P0)AU i
Dim pTEXT As String %uua_&#)
vnL?O8`c
pTEXT = ChKRange.Text hD*(AJ
D!S8oKW
ParaType = "其它" ).Q[!lly
TitleString = pTEXT /w0w* n H
TitleNo = "N/A" 8]HY. $E
[ T-*/}4$
shpCounter = ChKRange.InlineShapes.Count pD[pTMG@$
If shpCounter <> 0 Then 5*B tb#:
MaxShpHeight = 0: TotalShpWidth = 0 (V!0'9c
For i = 1 To shpCounter } YRO'Q{
k = ChKRange.InlineShapes(i).Height ~~@y_e[N#l
l = ChKRange.InlineShapes(i).Width C;pti r1G;
If k > MaxShpHeight Then -qfnUh
MaxShpHeight = k |WBZ N1W)
End If Ts#pUoE~+H
TotalShpWidth = TotalShpWidth + l y`6\L$c
Next pu#[p a
If MaxShpHeight > 60 Or TotalShpWidth > 150 Then 9ZhDZ~)p,
Exit Sub fQO
""qh
End If =6fB*bNk]
End If ]hL:33
BtzYA"
'空行 bf(+ld q
If Len(pTEXT) <= 2 Then js
-2"I
Exit Sub jccO sG9;_
End If 94y9W#
?;_O
9
]=|P <F
'是否为表格中的文字 ~pRs-
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then nSH
Nis
ParaType = "表格内容" :mP9^Do2;
k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) 0X#+#[W
If k = 1 Then T=>vh
*J
ParaType = "表格首行" qEZ!2R^`G
End If \OT6L'l],
Exit Sub Mb1 wYh
End If ~XKZXGw
G%$}WA] |
'例外情况：脚注 5/,Qz>QE[
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then @%:E }
ParaType = "脚注" p jd o|
Exit Sub 8RU.}P D
End If @<a|
ni<[G0#T
'例外情况：尾注 `|,Bm|~:
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then pr/'J!{^
ParaType = "尾注" \f<z*!,D$
Exit Sub zQ
_z7FJCB
End If cl _T F[n?
UhdqY]
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then 5x2L (l-2
ParaType = "页眉页脚" "O``7HA}
Exit Sub Fo(y7$33*
End If "|hlDe<
Hr&Ere8.4p
S2Vx e@b)
With regEX ` .$ &T7
.Global = True Wt:~S/l
Cx,-_
.Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" dWUUxKC
If regEX.Test(pTEXT) Then %i595Ij-]
ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") { m'AY)
TitleString = regEX.Replace(pTEXT, "$3") Sk$K qHX(
TitleNo = regEX.Replace(pTEXT, "$1") +!><5
ParaType = "章" u-:MVEm
Exit Sub _N @(Y :
End If ly=a>} F_
xj7vI&u.
.Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" /=@e &e
If regEX.Test(pTEXT) Then J)Ol"LXV
ParaType = "一级标题" MOeoU1Hn
regEX.Execute (pTEXT) t H,sql)
ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") {!r#f(?uT
TitleString = regEX.Replace(pTEXT, "$3") h 1* FPsc
TitleNo = regEX.Replace(pTEXT, "$1") S e Oy7
Exit Sub 1f R P1
End If \?d TH:v/E
]VDn'@uM
'全角或半角括号中的数字 `,P
>mp)uU
.Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" 7 OWsHlU
If regEX.Test(pTEXT) Then X|' 2R^V.
ParaType = "二级标题" C99&L3bz^(
regEX.Execute (pTEXT) +|0 t
ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") Mt=R*M}D0
TitleString = regEX.Replace(pTEXT, "$5")
kIX)oD}c
TitleNo = regEX.Replace(pTEXT, "$2")
#Z0-8 <\
Exit Sub \OY}GR Kt
End If @ h9K
9DPb|+O-
'阿拉伯数字 1. 2. 2lo:a{}j
.Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" TL'0
T,Jo
If regEX.Test(pTEXT) Then djGs~H>;U_
ParaType = "三级标题" }^ ,q#'
regEX.Execute (pTEXT) %/!+(7
D
ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 WN\PX!K9
TitleString = regEX.Replace(pTEXT, "$3") O"iak
TitleNo = regEX.Replace(pTEXT, "$1")
QAUykS8
Exit Sub {Zl4C;c
End If 1mix+.d
t#~XL CE
'全角或半角括号中的阿拉伯数字 zofx+g\(W
.Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" `O
n(v
If regEX.Test(pTEXT) Then &(7$&Q
ParaType = "四级标题" =Epq%,4nG
regEX.Execute (pTEXT) Why"G1`
ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") d' OGVN
TitleString = regEX.Replace(pTEXT, "$5") H?{ MRe
TitleNo = regEX.Replace(pTEXT, "$2") _A3 X 6
Exit Sub
/B[}I}X
End If JnHNkCaU
6KO(j/Gwp
'表格名称 x,uBJ
.Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" xl,ryc3J
If regEX.Test(pTEXT) Then abSq2*5K
ParaType = "表格标题" * :S~C
regEX.Execute (pTEXT) Tyd
h9I
ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) G Ft1
TitleString = Trim(regEX.Replace(pTEXT, "$3")) -N4z-ozhC
TitleNo = Trim(regEX.Replace(pTEXT, "$1")) g}Mi9Kp
strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 ]x_F{&6U8
Exit Sub Ld~ q1*7J
End If x_W3sS]ej
Wn~ZA#
'图片名称 .1{l[[= W
.Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" bw5T2wYZ
If regEX.Test(pTEXT) Then K ~3Ebr
ParaType = "图片标题" )qd= {
regEX.Execute (pTEXT) Cm410 =b
ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") 37j Q'O
U
TitleString = regEX.Replace(pTEXT, "$3") =f `=@]
TitleNo = regEX.Replace(pTEXT, "$1") x`L+7,&n
Exit Sub TzY *;
End If 'kEG. Oq7
WUY,. 8
'参考文献 w5(yCyNp~
.Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})" '[数字]、 bl$j%gI%,
If regEX.Test(pTEXT) Then }hq^+fC?
ParaType = "文献条目" dm& /K
4c
'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") Z'ao[CG
'TitleNo = regEX.Replace(pTEXT, "[$2] ") HU9p !I.
Exit Sub *IqVY&
End If ,5.
<oDH
& g$rrpTzv
prfx = Left(pTEXT, 2) 6klD22b 2$
If prfx = "注：" Or prfx = "注:" Then ,Z5Fea
ParaType = "图表注解" n.ct ]+L
Exit Sub ^/<|f
,2
End If
Fs )
sUV>@UMnu
=y<0 UU
ParaType = "正文" 4m\([EO
Km"&m T $
End With {$|/|*
End Sub *m&%vj.Kc
#D0W7 a
Sub ConvertListToOrdinary() 63C(Tp"
Dim st As Paragraph `) 2 [ST
With ActiveDocument 0 Az/fzJlz
For i = .Paragraphs.Count To 1 Step -1 ])UwC-l
Set st = .Paragraphs(i) gmDR{loX
lst = st.Range.ListFormat.ListString @ t|3gF$X
If lst <> "" Then H`gb}? 9R
st.Range.ListFormat.RemoveNumbers 0E RsMnU'
st.Range.InsertBefore lst & " " O]bKNA.5
End If C5
;wf3
Next yKlU6t&`
G
End With 5zVQ;;
9
Set st = Nothing B j= @&;
End Sub .R\p[rv&
/tzlbI]z
Private Sub UserForm_Activate() `-u7 I
Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" FJF3B)Va|
Me.lbTotal.Font.Bold = True ,2_w=<hq
Me.txtStatus.Visible = False tvT4S
Me.cmdCheck.Enabled = True RJwb@r<v
k}s+ ca!B
End Sub D:)~%wu Lt
BjvdnbJg
Z/c_kf[
Sub CheckSuperScript() XR+rT
Selection.Find.ClearFormatting +(y>qd
Selection.Find.Replacement.ClearFormatting "/!'9na{QL
With Selection.Find <r3Jf}%tT
.Text = "[【\[［〖](*)[】\]〗］]" 03F3q4 "
.Replacement.Text = "[\1]" dE GX3 -
.Replacement.Font.Superscript = True MH Fa Sl
'.Replacement.Font.Color = wdColorBlue 2NYi-@mr
.Forward = True & +] x;K
.Wrap = wdFindContinue vzcz<i )
.FORMAT = True P=Puaz5&{
.MatchCase = False o X@nP?\
.MatchWholeWord = False {lMq cK
.MatchByte = False >j:|3 atb
.MatchAllWordForms = False YuA7r" c
.MatchSoundsLike = False 82s 5VQ6
.MatchWildcards = True 5QOZ%9E&M
End With U3+A MVnB
Selection.Find.Execute Replace:=wdReplaceAll 3a9u"8lG
End Sub >3!DOv
b|6 !EGh
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) ,ex
]$fQ'
bContinue = False *F|+2?a:$
Set regEX = Nothing 5;(0 $4I
End Sub }_]As}E
}k| g%H J
Sub CeateOrModifyStyle() w?S8@|MK
' p+)C$ 2YK
' z'*ml ?
Dim stl As Style pND48 g
;
2m_H*1 HJ
Options.Pagination = False g&kH'fR 8
a P_3C_
On Error Resume Next F3 Y<ZbxT
For Each stl In ActiveDocument.Styles g}YToOs
stl.Delete ?yf_
Dt
Next vbedk+dd?A
On Error GoTo 0 zsQF,7/}B
{KsVK4\r
Set stl = Nothing %z2oDAjX
P8IRH#ED
DoEvents b*`fLrqV.
On Error Resume Next 7PA=)a\
!?6.!2
ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph +[_gyLN<5b
A6Q c;v+
ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph &1~Re.* B
ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph yi|:}K$
Lrlk*
ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph hg4J2
m
ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph =EWD
|<
) G|"jFP
ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph cCk1'D|X[e
ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph l@#b;M/
ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph :v#8O~
ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph %UB
Poq
ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph [WYJrk.
ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph , 8~dz
ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph m|mG;8}pI
[NjajA~z>F
ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph Bd8hJA
ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph tI'e ctn
ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph 9\:w8M X'
ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph GRy4cb2
ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph w~]} acP
3<3t;&e
ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph QY =QQG
On Error GoTo 0 $82zy q
DoEvents Kn. iyR
Cc *
|Zw
'BaseStyle 7>
)l{7
ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False |v eBq0U
With ActiveDocument.Styles("BaseStyle").Font .T{U^0 )
.NameFarEast = "宋体" %uW <
.NameAscii = "Times New Roman" leR" j
.NameOther = "宋体" 4L!e=>as"1
.Size = 10.5 )Yrr%f`\
.Bold = wdUndefined -CwWs~!
.Italic = wdUndefined oW8;^u
.Subscript = wdUndefined }FZp 840
.Subscript = wdUndefined h~ZNHSP:
=@%MV(
.Underline = wdUnderlineNone gsi<S6DQ8
.UnderlineColor = wdColorAutomatic 0OEtU5lf`y
.StrikeThrough = False i
l7 !}
.DoubleStrikeThrough = False ;2B PPZ
Nl=+.d6 Qo
.Outline = False \wTW?>o Z
.Emboss = False kHZKj!!R
.Shadow = False 0$!.c~
.Hidden = False 5uzpTNAMM1
.SmallCaps = False TZkTz
P
[
.AllCaps = False Xz"
JY
.Color = wdColorAutomatic h ;jsH!
.Engrave = False NXi ,5
.Scaling = 100 kr6:{\DU:B
.Kerning = 1 $:P[v+Uy
.Animation = wdAnimationNone N]* !8
.DisableCharacterSpaceGrid = False x7Eeb!s0f,
.EmphasisMark = wdEmphasisMarkNone y^ 3,X_ 0
End With 0 oQ/J:
With ActiveDocument.Styles("BaseStyle").ParagraphFormat WV j&0
.LeftIndent = 0 iKY-; YK
.RightIndent = 0 _4O[[~
.SpaceBefore = 0 uQ-WTz|*
.SpaceBeforeAuto = False :ECw
\_"0$
.SpaceAfter = 0 fq{I $syY
.SpaceAfterAuto = False r^e-.,+
Z"+(L O!
.LineSpacingRule = wdLineSpaceSingle f&f[La
.Alignment = wdAlignParagraphJustify '&+Z ,
IK85D>00T
.WidowControl = False |O2|`"7
.KeepWithNext = False "1AjCHZ
.KeepTogether = False r!>es;R8
.PageBreakBefore = False Qve`k< Cj"
.NoLineNumber = False =\*S' Ded
JW2W>6Dgv[
.FirstLineIndent = CentimetersToPoints(0) b\H/-7<
.OutlineLevel = wdOutlineLevelBodyText Xp.|.)Od
.CharacterUnitLeftIndent = 0 WI%zr2T
.CharacterUnitRightIndent = 0 L{zamVQG
.CharacterUnitFirstLineIndent = 0 oA[2)BU
.LineUnitBefore = 0 4U:DJ_GN
.LineUnitAfter = 0 Y/#:) (&@
.AutoAdjustRightIndent = True k#BU7Exij
.DisableLineHeightGrid = True H9/XW6W,"w
XNy:0C
.FarEastLineBreakControl = True Af$0 o=".
.WordWrap = True g}^4^88=a
.Hyphenation = False H#_}^cGPR=
5QNBB|X@
.HangingPunctuation = True S|tA[klh
.HalfWidthPunctuationOnTopOfLine = True (Jm(}X]sh[
.AddSpaceBetweenFarEastAndAlpha = True ?NQD #
.AddSpaceBetweenFarEastAndDigit = True 3KbUHSx
.BaseLineAlignment = wdBaselineAlignBaseline A=y24m
End With N IO;
ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False 4D0( Fl
ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll 9.^-us1
ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese @b4b{d5 [
ActiveDocument.Styles("BaseStyle").NoProofing = False Id; mn}+~
zp}yiE! bl
'一级标题题样式 ^o,y5 ,
ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") [Q7`RB
ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" oVAOGHE
ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False L>eQ*311
With ActiveDocument.Styles("QLNU一级标题").Font Gt?!E6^
!
.NameFarEast = "黑体" !Mm+bWn=mB
.NameAscii = "Arial Black" 1i ?gvzrq
.NameOther = "黑体" _ak.G=
.Name = "黑体" 9
<y
/Wv
.Size = 16 '三号 3~#Z E;>#
.Bold = True <1v{[F_
.Italic = wdUndefined `>$g y/N
.Subscript = wdUndefined 5B_-nYJDt
.Superscript = wdUndefined `Nc`xO?
End With !x+MVJ]
With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat &?&'
"c{;m
W5 M
]
.LeftIndent = CentimetersToPoints(0) (8+.# 1!*
.RightIndent = CentimetersToPoints(0) 3ZLr"O1l )
.FirstLineIndent = CentimetersToPoints(0) @w+WLeJ$40
)WzGy ~p8K
.LineSpacingRule = wdLineSpaceSingle " 87O4
#$
.Alignment = wdAlignParagraphCenter ~]jx
+6k]
8.6no
.WidowControl = True (v9!g#
.KeepWithNext = True 8uD8or
.KeepTogether = True yN%3w0v
.OutlineLevel = wdOutlineLevelBodyText zS#f%{
*)2x&~T*|
.LineUnitBefore = 0.5 Z:W')N d(
.LineUnitAfter = 0.5 yO n H&Jj
End With })h'""i&xn
ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False )cf p(16
ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll bf&.rJ0
ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese 7] R6
ActiveDocument.Styles("QLNU一级标题").NoProofing = True 6yV5Yjs
DoEvents r! cNc
bgkbw
E
'二级 e<&_tx
ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 9J't[(
u|u
ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" mg/C U x
ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False e/g<<f -
With ActiveDocument.Styles("QLNU二级标题").Font U0lqGEZ
.NameFarEast = "黑体" vY8 WqG]
.NameAscii = "Arial Narrow" 1)nM#@%](h
.NameOther = "黑体" s:qxAUi\/
.Name = "黑体" T9&,v<f
.Size = 15 '小三号 '` BjRg57]
.Bold = False ~GsH8yA_P
.Outline = False e)fJd*P
.Italic = wdUndefined y$+!%y*
.Subscript = wdUndefined yHV^a0e7EH
.Superscript = wdUndefined TW;|G'}$
End With v]UU&Jq8U
With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat !8H!F j`|j
.LeftIndent = CentimetersToPoints(0) S}XB
|
.RightIndent = CentimetersToPoints(0) .2 N_?
.FirstLineIndent = CentimetersToPoints(0)
!;BZ# tF&
o +PQ;Dl
.LineSpacingRule = wdLineSpaceSingle &z{dr ~
.Alignment = wdAlignParagraphLeft <ls i.x\y<
R] V~IDs
.WidowControl = True VuYWb)@
.KeepWithNext = True 6z%&A]6k:
.KeepTogether = True OgzGkc@A
.PageBreakBefore = False
oi%5t)VsS
.OutlineLevel = wdOutlineLevelBodyText 0`aHwt/F
][T9IAn
.LineUnitBefore = 0.5 \{Ox@
.LineUnitAfter = 0.5 "RR./e)h
4okHAv8;
End With ==r ?
ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False , 4
h! "c
ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll dT*f-W
ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese Y,<WX
v
ActiveDocument.Styles("QLNU二级标题").NoProofing = True v)v{QNQp^
DoEvents o}j_eH l{
]DL>
.<] d
'三级标题样式 KBUAdpU8
ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ePIly)=X
ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" =PeW$q+
ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False 59"Nn\}3gE
With ActiveDocument.Styles("QLNU三级标题").Font soFvrl^Ql+
.NameFarEast = "宋体" .j+2x[`l
.NameAscii = "Times New Roman" ~7)rKHau
.NameOther = "黑体" Q} k_#w
.Name = "黑体" `SSP53R(0
.Size = 14 '四号 Q9Xm b2LN
.Bold = False =]2RC1#}e
.Outline = False wd2P/y42;;
.Italic = wdUndefined \6nQ-S_
.Subscript = wdUndefined ~0Q\Lp);
.Superscript = wdUndefined <Bob#Tf
~
End With Xm
0&U?dZB
With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat pU'`9f Li_
.LeftIndent = CentimetersToPoints(0) GSUOMy[M-
.RightIndent = CentimetersToPoints(0) .lNnY
8<
.FirstLineIndent = CentimetersToPoints(0) VLwJ6?.f'
c DEe?WS
.LineSpacingRule = wdLineSpaceSingle <7sF<KD
.Alignment = wdAlignParagraphLeft ps{&WT3a
q^T&A[hMPx
.WidowControl = True *cb
D&R\
.KeepWithNext = True }(vOaD|k =
.KeepTogether = True 3>:zo:;
.PageBreakBefore = False { 8|Z}?I
.OutlineLevel = wdOutlineLevelBodyText MFCbx>#
80R= r
.CharacterUnitLeftIndent = 0 ZQJw2LA gO
.CharacterUnitRightIndent = 0 )KTWLr;
.CharacterUnitFirstLineIndent = 2 qAuUe=w%p
4IGQ,RTB
.LineUnitBefore = 0.5 hz>yv@ 1
.LineUnitAfter = 0 %yS`C"ZQ)
End With
0N}
wD-
ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False F?+Uar|-a
ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll Cx1Sh#9
ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese }y -AoG
ActiveDocument.Styles("QLNU三级标题").NoProofing = True F(J!dG5#
DoEvents Kr+Bt y
?L ~=Z\H
'四级标题样式 4p/V6kr&r
ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 2C
8L\
ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" D3ZT''
ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False S3Jyg N*
With ActiveDocument.Styles("QLNU四级标题").Font /hA}9+/
.NameFarEast = "宋体" "cz]bCr8
.NameAscii = "Times New Roman" OA8b_k~
.NameOther = "宋体" Hi4@
! ]
.Name = "宋体" ^0 ,&R\e+
.Size = 12 '小四号 %l]rQjV-
.Bold = True p1`' 1`.3
.Outline = False h>`'\qy
.Italic = wdUndefined W0r5D9k
.Subscript = wdUndefined 7p"~:1hU
.Superscript = wdUndefined KWZNu &)
End With ! A ydhe
With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat
m%[2x#
+ 'YSpJ
.LeftIndent = CentimetersToPoints(0) bW 79<T'+
.RightIndent = CentimetersToPoints(0) C>(M+qXL+
.FirstLineIndent = CentimetersToPoints(0) ;MdK 3c
j)lM:vXR
.LineSpacingRule = wdLineSpaceSingle /n<Ncf
.Alignment = wdAlignParagraphLeft e4NX\tCpw
%(wsG Nd
.WidowControl = True cvLcre% >A
.KeepWithNext = True dM @k(9|
.KeepTogether = True BR0p0%
.PageBreakBefore = False *M**h-p2'
.OutlineLevel = wdOutlineLevelBodyText a Gzdur
CH R?i 1e
.CharacterUnitLeftIndent = 0 ah&plaVzC
.CharacterUnitRightIndent = 0 $4ZDT]n
.CharacterUnitFirstLineIndent = 2 w1!\L_::Y
]a Ma*fF
.LineUnitBefore = 0 "l2N_xX;
.LineUnitAfter = 0 )u v$tnP*
s"^YW+HMb
End With gWU(uBS
ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False L-X
_b3E\
ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll F" #3
s=
ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese JwG5#CFu^
ActiveDocument.Styles("QLNU四级标题").NoProofing = True uvK%d\ d
DoEvents L^ jC&
dF
N4GIb 6
'正文校式 {u[K
^G
ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") 9Av- ;!]
ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" / EAQ.vxI
ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False . AQ3zpy5B
With ActiveDocument.Styles("QLNU正文").Font AQBx
k[
]qP}\+:
.NameFarEast = "宋体" l.W 1$g
.NameAscii = "Times New Roman" 1wH/ #K
.NameOther = "宋体" =w>>7u$4
.Name = "宋体" `
a<|CcUGU
Ul~}@^m]4}
.Size = 12 '小四号 B #V 4
"=5 vgg3
.Bold = wdUndefined @SMy0:c:
.Italic = wdUndefined GT`<jzAi Q
.Subscript = wdUndefined =ym~=
S
.Superscript = wdUndefined 7_d#XKz@
9[]"%6
.Outline = False vEee/+1?
.Emboss = False #lVl?F+~
.Shadow = False %w|3:
.Hidden = False bU +eJU_%
cE8 _keR~
.DisableCharacterSpaceGrid = True MsiC!j.-
End With 7!QXh;u
With ActiveDocument.Styles("QLNU正文").ParagraphFormat YI(OrR;V
{CyPcD'$s
.LeftIndent = CentimetersToPoints(0) PFn[[~5V
.RightIndent = CentimetersToPoints(0) MH~qfH>K
.FirstLineIndent = CentimetersToPoints(0) }Us$y0W\
*]UEF_
.LineSpacingRule = wdLineSpaceExactly 4 >tYMyLt0
.LineSpacing = 20 x `|tT%q@l
.Alignment = wdAlignParagraphLeft y7L4jO9h
gS o(PW)
.WidowControl = False +`vZg^_c`
.KeepWithNext = False t;~`Lm@hY
.KeepTogether = False EA{*%9 A
.PageBreakBefore = False a*wJcJTpV"
.Hyphenation = False Vgb>3]SU
qFsg&<
.OutlineLevel = wdOutlineLevelBodyText k~EPVJh"
-H]f@|AOw
Y
Z2VP
.CharacterUnitLeftIndent = 0 8J(zWV7 r
.CharacterUnitRightIndent = 0 ?Dp^dR
.CharacterUnitFirstLineIndent = 2 {,mR M DEy
l?<z1Acd&
.LineUnitBefore = 0 RlPByG5 K
.LineUnitAfter = 0 Oj|p`Dzh
.SpaceBefore = 0 n[w,x;
.SpaceAfter = 0 L" ^366M!
TXOW /{B
.DisableLineHeightGrid = True W2LblZE!
End With oX]1>#5UMg
ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False Q1&dB{L
ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll +Q#Qu0_
ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese Y GO 7lar
ActiveDocument.Styles("QLNU正文").NoProofing = True F>-@LOqHy
DoEvents Ak-7} i
,ce^"yG
'图片段落样式 .nY6[2am
ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") eJ\j{-
ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" \
iE9&3Ie
ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False pxnUe1=
With ActiveDocument.Styles("QLNU图片段落").Font 5 9J $SE
.Size = 12 '小四号 Y,Zv0-"
.Italic = wdUndefined qN,FX# DP
.Subscript = wdUndefined 9TN5|x
.Superscript = wdUndefined g[+Q~/yq
End With CH+&
With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat f?I *`~k
.Qw@H#dtW
.LeftIndent = CentimetersToPoints(0) O)Dw<j)
.RightIndent = CentimetersToPoints(0) ^ {+:w:g
.FirstLineIndent = CentimetersToPoints(0) >\x
39B
*t*&Q /W
.LineSpacingRule = wdLineSpaceSingle =X'7V}Q}
.Alignment = wdAlignParagraphCenter "^e?E:( 3
.KeepWithNext = True DczF0Ow
.OutlineLevel = wdOutlineLevelBodyText "}aM*(l+\
M[N.H9
.CharacterUnitLeftIndent = 0 KIl. ?_61O
.CharacterUnitRightIndent = 0 eu|q
{p
.CharacterUnitFirstLineIndent = 0 ]M"'qC3g
&B,& *Lp
.LineUnitBefore = 0 r{jD, x2
.LineUnitAfter = 0 '9Odw@tp
End With >"{zrw Nq
ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False /{)cI^
9
ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll cQ ;
Ry!$
ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese *xVAm 7_v
ActiveDocument.Styles("QLNU图片段落").NoProofing = True LsZ! ':LN
DoEvents A|OC?NZY
"LaX_0t)
X35U!1Y\
'第X章 ^ nZ2p$
ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") %~(i[Ur;
ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" ;+KgujfU
ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False [MP :Eeg
With ActiveDocument.Styles("QLNU章节标题").Font O,Gn2Do
.NameFarEast = "黑体" [)0 k}
.NameAscii = "Arial Black" g*imswj7
.NameOther = "Arial Black" 'm? x2$u8
.Name = "黑体" exKmK!FT
.Size = 16 & _hCs![
.Bold = True u` 2k6.-
.UnderlineColor = wdColorAutomatic 0BD((oNg
.Outline = False '*Mb
.s"
.Italic = wdUndefined ;<R_ j%*
.Subscript = wdUndefined 9
+Hb`
.Superscript = wdUndefined ga9:*G!b{)
.Scaling = 100 iC2nHZ*,
.DisableCharacterSpaceGrid = True tBUQf*B
End With A+E@OO w*~
With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat Ui;s.f
.LineSpacingRule = wdLineSpaceSingle
I_s(yO4pw
.Alignment = wdAlignParagraphCenter :R\v# ) C
.WidowControl = True ?bDae%>.d,
.KeepWithNext = True QNwAuH T
.KeepTogether = True 0\ ^2HjsJ
.PageBreakBefore = True F@K;A%us)
.OutlineLevel = wdOutlineLevelBodyText fzG1<Gem
&nw ~gSe
.LeftIndent = CentimetersToPoints(0) fR;_6?p*B
.RightIndent = CentimetersToPoints(0) u (`A ?H:
.FirstLineIndent = CentimetersToPoints(0) C}EDl2
(,y/nc=GN
.CharacterUnitLeftIndent = 0 ,PxQ[CGg
.CharacterUnitRightIndent = 0 7f,W zv V
.CharacterUnitFirstLineIndent = 0 ?^ 5*[H
qyfxT Q5
.LineUnitBefore = 1 ~y^lNgujO
.LineUnitAfter = 0.5 * %BI*p
&bK$!8Z
.AutoAdjustRightIndent = False ~o5iCt;w
.DisableLineHeightGrid = True 2/N*Uk 0
.FarEastLineBreakControl = True cHct |Z
u
.WordWrap = True jn Y3G
End With l;kZS
ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False {# _ C
ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll nQ3goVRFP
ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese %-|q3 ^s
ActiveDocument.Styles("QLNU章节标题").NoProofing = True eakIK+-21y
DoEvents x}j41E}
S ylsp%A
'表格标题 DCUq.q)
ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") dph6aN(49
ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" '
uw&f;/E
ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False agD.J)v \
With ActiveDocument.Styles("QLNU表格标题").Font )B4c; O4t
.NameFarEast = "楷体" cBf{R^>Fd
.NameAscii = "Arial" Q
kpmPQK
.Name = "楷体" kovzB]
.Size = 10.5 _oVA0@#n
.Bold = True 2` qXD fD`
.Underline = wdUnderlineNone ha~s<
I
.Italic = wdUndefined J :(\o=5 5
.Subscript = wdUndefined n9-[z2n
.Superscript = wdUndefined Yk&{VXU<
.Color = wdColorAutomatic <ft9B05*
End With uNBhVsM6<
With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat Y\\nJ uJo
S6X<3L`FfH
.LineSpacingRule = wdLineSpaceSingle
N)Kr4GC
.Alignment = wdAlignParagraphCenter H2cc).8 "
.KeepWithNext = True aC 0Jfo
.KeepTogether = True 4 Z )]Cq*3
.OutlineLevel = wdOutlineLevelBodyText 1e
} 3L2rC
b<7 qmg3
.LeftIndent = CentimetersToPoints(0) cLP @0`^H
.RightIndent = CentimetersToPoints(0) e1Hx"7ew_
.FirstLineIndent = CentimetersToPoints(0) %;? 3A#
1 R9/AP
.CharacterUnitLeftIndent = 0 H E '8
.CharacterUnitRightIndent = 0 1=.kH[R
.CharacterUnitFirstLineIndent = 0 ib w;BU
XjU; oh4:.
.LineUnitBefore = 1 +[9"M+4-
.LineUnitAfter = 0 1zW6Pb
r!iuwE@
End With ~- i?=
ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False /=} vP ey
ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll ~C
x2Q4E
ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese tpK4 gjf
ActiveDocument.Styles("QLNU表格标题").NoProofing = True Ma#-'J
DoEvents KVy5/A/8c
$c47cJO)W
'表格首行 h h}E Dnx
ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") XS/TYdXB8
ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False zxdO3I
With ActiveDocument.Styles("QLNU表格首行").Font 0VPa;{i/
.NameFarEast = "楷体" |_m;@.44?U
.NameAscii = "Times New Roman" W7"sWaOhW
.Name = "楷体" u;}B4Rx
.Size = 9 5Oq ;V: 7
.Bold = True e[!>ezaIY
.Underline = wdUnderlineNone u)pBFs
<dn
.Italic = wdUndefined KIJ[ cIw
.Subscript = wdUndefined )>p6h]]a
.Superscript = wdUndefined 2jC\yY |PN
End With ;d40:q<
With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat "FS.&&1(
.LineSpacingRule = wdLineSpaceSingle yG4MqR)J
.Alignment = wdAlignParagraphCenter DboqFh#]=h
|p
Y0IqO
.LeftIndent = CentimetersToPoints(0) ztpb/9J9
.RightIndent = CentimetersToPoints(0) fh<G& E8
p
.FirstLineIndent = CentimetersToPoints(0) SiT & p
{jG` l$$
.5xg;Qg\Y
.CharacterUnitLeftIndent = -0.5 :[3\jLrc
.CharacterUnitRightIndent = -0.5 UkV] F]
.CharacterUnitFirstLineIndent = -0.5 J Y16|ia
T7'$A!c
.LineUnitBefore = 0 `_) dEu
.LineUnitAfter = 0 ic#drpl,
.SpaceBefore = 0 ;v\n[
.SpaceAfter = 0 mo$*KNW%\
i-b7
End With c qp#1oM4M
ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False &pz8v WCk
ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll >m!.l{*j>N
ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese ~]W8NaQB(
ActiveDocument.Styles("QLNU表格首行").NoProofing = True FU3B;Fn^Z(
DoEvents hNy S
<
.!3 yy
'表格内容 p.|;
k%c7
ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") 'h6RZK G T
ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False bP@ _4Dy
With ActiveDocument.Styles("QLNU表格内容").Font gId+hxFa:r
.NameFarEast = "楷体" Efl +`6`J
.NameAscii = "Times New Roman" 06$9Uz9
.Name = "楷体" ?#m5$CFp
.Size = 9 ,V?,I9qf
.Bold = False h@d
m:=ul
.Underline = wdUnderlineNone YSi
f`W!
.Italic = wdUndefined a=dN.OB}F7
.Subscript = wdUndefined B" v=Fr[
.Superscript = wdUndefined |?kH ]Trr
End With p3' +"sFU
With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat 8 Hn{CJ~ '
.LineSpacingRule = wdLineSpaceSingle _T$\$v$ {
.Alignment = wdAlignParagraphCenter u'p J 9>sC
H"l'E9k.&p
.LeftIndent = CentimetersToPoints(0) - C+vmY*@
.RightIndent = CentimetersToPoints(0) b.;W|$ .
.FirstLineIndent = CentimetersToPoints(0) qT4s* kq
r
GZo4uwG@a
.CharacterUnitLeftIndent = -0.5 :ux`*,z h
.CharacterUnitRightIndent = -0.5 p%-9T>og
.CharacterUnitFirstLineIndent = -0.5 W]OT=6u8o
.LineUnitBefore = 0 2Mda'T8
.LineUnitAfter = 0 L')zuI
.SpaceBefore = 0 +|;I Iwo
.SpaceAfter = 0 Y')+/<Q2E
End With aJ5R0Y ,
ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False ,+&j/0U
ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll YBP{4Rl
ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese DV l: s
ActiveDocument.Styles("QLNU表格首行").NoProofing = True W% ud nJ
DoEvents Apn#o2
Eqc$*=
'图片标题 9@06]EI_
ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") :*1w;>o)n
ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" 9':$!Eoq
ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False ($kwlj~c
With ActiveDocument.Styles("QLNU图片标题").Font ~7
Tz Ub
.NameFarEast = "楷体" KX`,7-
.NameAscii = "Times New Roman" }Urt DXhA
.Name = "楷体" uM8gfY)OI
.Size = 10.5 wah`
.Bold = True NL 37Y{b
.Underline = wdUnderlineNone Up&q#vqIj
.Italic = wdUndefined d}Om?kn
.Subscript = wdUndefined k s}o9[D3
.Superscript = wdUndefined U?QO'H 5
.Outline = False O]>`B{
.Shadow = False &bRH(yF
.Color = wdColorAutomatic j*{bM{~T<
End With %}[??R0
With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat YaU A}0cW
.LineSpacingRule = wdLineSpaceSingle $/H'Dt6x
.Alignment = wdAlignParagraphCenter ]!N 5jbA@
q}jf&xUWzH
.KeepWithNext = wdUndefined kokkZd7!
.KeepTogether = True X#y l8k_
.OutlineLevel = wdOutlineLevelBodyText -)@.D>HsOt
U VT8TN-T
.LeftIndent = CentimetersToPoints(0) \<} nn?~n
.RightIndent = CentimetersToPoints(0) %0 4n,&mg
.FirstLineIndent = CentimetersToPoints(0) Ar==@777j
v6:DA#0
.CharacterUnitLeftIndent = 0 BlUY9`VWh@
.CharacterUnitRightIndent = 0 QVpZ
A,
.CharacterUnitFirstLineIndent = 0 $$@Tg kg?o
CvN~
.LineUnitBefore = 0 LsXYvX
.LineUnitAfter = 0 sAN
#j
{
End With Tx5L
ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False e9d~Xi16KY
ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll FyEl @ }W
ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese WxFjpJt
ActiveDocument.Styles("QLNU图片标题").NoProofing = True uOQ5.S+
DoEvents SxDE3A-:
CS/-:>s%
'目录项 &BgaFx**
ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") oa|0=
ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" "{k3~epYaN
ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False D fea<5~^z
With ActiveDocument.Styles("QLNU目录项").Font ( nh!tC
.NameFarEast = "黑体" VsC]z,
oV
.NameAscii = "Times New Roman" S,H{\c
.NameOther = "Times New Roman" C N"c
.Name = "黑体" gT.-C f{
.Size = 10.5 MD7
[}cB
.Bold = False yrjm0BM#
.Italic = wdUndefined
-AX3Rnv^!
.Underline = wdUnderlineNone u2 t<auE9^
.Color = wdColorAutomatic .<.qRq-
.Superscript = wdUndefined Fv
9Z'#t
.Subscript = wdUndefined jhLh~.
8
End With "hfwj`U
With ActiveDocument.Styles("QLNU目录项").ParagraphFormat $sJn:
8z
m{*l 6`dF
.LineSpacingRule = wdLineSpaceSingle RA6D dqT~
.Alignment = wdAlignParagraphLeft /y 0 )r.R
)~`
zjVx_
.WidowControl = False !cZsIcI e
.KeepWithNext = False Ssj'1[%
.KeepTogether = False NQAnvX;
.PageBreakBefore = False jK =[
.NoLineNumber = False 4v>V7T.
.OutlineLevel = wdOutlineLevelBodyText
1} 6pq 2
_KFKx3<m!
.LeftIndent = CentimetersToPoints(0) wb}tN7~Y;
.RightIndent = CentimetersToPoints(0) vzw\f
.FirstLineIndent = CentimetersToPoints(0) ",}VB8K
b %kh:NV{S
.CharacterUnitLeftIndent = 0 ,"'agg:St
.CharacterUnitRightIndent = 0 /dfZ>k8
.CharacterUnitFirstLineIndent = 0 t`AD9
H"\!
"#7 i-?=
.LineUnitBefore = 0 ^ !9b#Ja
.LineUnitAfter = 0 1jL?z6S
End With Ol? 2Qy.2)
ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False E Y>A(
ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll n'ro5D
ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot h@J`:KO
ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese `&_qK~&/X
ActiveDocument.Styles("QLNU目录项").NoProofing = True Z|W=.RdA;
DoEvents 4Q
d g t*
x\jHk}Buj
'参考文献 4Z_.Jdu w
ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") ;Gi w7a)
ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" 8 <^,<?
ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False -K
j CPc
With ActiveDocument.Styles("QLNU参考文献").Font EP[
g q
.NameFarEast = "宋体" \; 3r
.NameAscii = "Times New Roman" ty78)XI
.NameOther = "Times New Roman" y hIg)/?L
.Name = "Times New Roman" =4zsAa
.Size = 12 R8 m/N t2
.Bold = False AKpux,@xB
.Italic = wdUndefined 9K49<u0O
.Subscript = wdUndefined $H#&.IjY
.Superscript = wdUndefined r#XDgZtI
.Underline = wdUnderlineNone vl#/ 8]0!
.UnderlineColor = wdColorAutomatic :* 'i\
.Color = wdColorAutomatic 8p
FSm>
.Engrave = False $\bH 5|Hk]
End With P
,i)A
With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat 2d._X$fx7
nX N0~,+
.LineSpacingRule = wdLineSpaceExactly 7@sWT <P
.LineSpacing = 16 G2A pm`/ y
.Alignment = wdAlignParagraphLeft $OT:J
.WidowControl = False C>+U
Z
.KeepWithNext = False &0#qy
9wx
.KeepTogether = False T.pPQH__
.PageBreakBefore = False F
Jz jS;
.OutlineLevel = wdOutlineLevelBodyText !
>:O3*/
C.@zV t
.LeftIndent = CentimetersToPoints(0) zm e:U![
.RightIndent = CentimetersToPoints(0) t~AesHZpk
.FirstLineIndent = CentimetersToPoints(0) oqj3Q
1
Rwr0$_A
.CharacterUnitLeftIndent = 0 b &JPLUr
.CharacterUnitRightIndent = 0 pTTif|c
.CharacterUnitFirstLineIndent = -2 _ehU:3L`s
=3"Nn4Z
.LineUnitBefore = 0 ESs)|t h
.LineUnitAfter = 0 j.z#
fU
.SpaceBefore = 0 DGU$3w
.SpaceAfter = 0 yR`-rJb V
0`x<sjG\q
End With yqK82z5U*R
ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False WDZEnauE
ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll ?eu=0|d
ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS '1w<<?vX?
ActiveDocument.Styles("QLNU参考文献").NoProofing = True #zXDh3%]a
ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese L^=>)\R2$[
DoEvents xH=&={
r h!4 1
' {[$p}#7Y
ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") ! yxb<
ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" 4uz\Me(
ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False [J^,_iN[.
With ActiveDocument.Styles("QLNU论文题目").Font iz'8P-]K>
.NameFarEast = "黑体" :70oO}0m.
.NameAscii = "Arial Black" *) w p
.NameOther = "Arial Black" }LM_VZ j
.Name = "Arial Black" .VUZ4e
.Size = 16 `mMD e
.Bold = False q
g>i8 V
.Italic = wdUndefined Rl,B !SF
.Superscript = wdUndefined 3{%/1>+x5
.Subscript = wdUndefined 3oSQe"
.Underline = wdUnderlineNone t Sg#2
.UnderlineColor = wdColorAutomatic os2yiF",
.Color = wdColorAutomatic PC9:n
ee
%B~`bUHjq
End With X)yTx8v4
With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat !XFN/-Q ,
.LineSpacingRule = wdLineSpaceSingle !{4p+peqJV
.Alignment = wdAlignParagraphCenter n h IITfJJ
.WidowControl = True n\ IVpgP
.KeepWithNext = True \F>
*d!^C
.KeepTogether = True o6q Q zk
.PageBreakBefore = True q)P<lKi
.NoLineNumber = False v7ae^iU
.OutlineLevel = wdOutlineLevelBodyText #[A/zH|xvV
9@h>_1RJz
.LeftIndent = CentimetersToPoints(0) 5'o.v^l
.RightIndent = CentimetersToPoints(0) 8^^al!0K~
.FirstLineIndent = CentimetersToPoints(0) G q 8/xxt
!PO(B
fd
.CharacterUnitLeftIndent = 0 H&GM q5)B
.CharacterUnitRightIndent = 0 2Two|E
.CharacterUnitFirstLineIndent = 0 aqMZ%~7
H[Qh* pq2
.LineUnitBefore = 1 6@T_1
.LineUnitAfter = 1 Jjy}m0)#W_
Y)uNzb6R
.BaseLineAlignment = wdBaselineAlignAuto 97
1qr
End With 6s Pd")%G
ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False N+r~\[N\9
ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll eZUK<&0x5
ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS -F *j`
ActiveDocument.Styles("QLNU论文题目").NoProofing = True H
fRxgA @
ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese "aP/214Ul
ActiveDocument.Styles("QLNU论文题目").NoProofing = True >V]> h&`
DoEvents bD r 'W
P017y&X
'中文摘要 MM97$
ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") c`iSe$ eS
ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" -<|E bh d3
ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False p@!"x({@l
With ActiveDocument.Styles("QLNU中文摘要").Font I($u
L@$
.NameFarEast = "宋体" Pd3t~1TaW
.NameAscii = "Times New Roman" M0 ^r!f>O
.NameOther = "Times New Roman" t >8t|t+
.Name = "Times New Roman" *kDXx&7B$
.Size = 12 _gc2h@x1O
.Bold = wdUndefined D.H
Ap+lx
.Superscript = wdUndefined x $Lt?'
.Subscript = wdUndefined E
djh*
.Italic = wdUndefined XL +kEZ|3
.Underline = wdUnderlineNone /kn t 5
.UnderlineColor = wdColorAutomatic E&97;VH
.Color = wdColorAutomatic r
p
_G.C
End With = U^B,q
With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat ? 56Zw"89
.LineSpacingRule = wdLineSpaceExactly *fjarZu
.LineSpacing = 20 :cOwTW?Fj
.Alignment = wdAlignParagraphLeft bT8BJY%+
U Wu |w
.WidowControl = False Vbwbc5m}
.KeepWithNext = False p}j{ <y
.KeepTogether = True ~:JK Xa?
.PageBreakBefore = False ^m5{:\
Xk
.NoLineNumber = False QJv,@@mu
.OutlineLevel = wdOutlineLevelBodyText sT/pA^rnnR
lRO4-
y
.LeftIndent = CentimetersToPoints(0) HVC
\(h,)i
.RightIndent = CentimetersToPoints(0) x.d9mjLN8m
.FirstLineIndent = CentimetersToPoints(0) ln3.TR*
C&" 8A\we
.CharacterUnitLeftIndent = 0 h IGa
);g
.CharacterUnitRightIndent = 0 $H_4Y-xOi
.CharacterUnitFirstLineIndent = 2 {!=I GFe
.LineUnitBefore = 0 ok7 DI
.LineUnitAfter = 0 au GN~"n^
R+^/(Ws'<
End With p HWo l!
ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False @]OI( B
ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll #|'8 O
ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS -5E<B mM
ActiveDocument.Styles("QLNU中文摘要").NoProofing = True p<jH UG4?'
ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese /]YK:7*98
ActiveDocument.Styles("QLNU中文摘要").NoProofing = True !{SE m"J^
ActiveDocument.Styles("QLNU中文摘要").Frame.Delete QJ$]~)w?H
DoEvents 0a(*/u
\f+R!
ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") KYlWV<sR
ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" mhcJ0\@_
ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False 7}nOF{RH]
With ActiveDocument.Styles("QLNU英文标题").Font ~>C!l k
.NameFarEast = "黑体" ntj
Und&v\
.NameAscii = "Arial Narrow" #M_
QSD}&
.Name = "Arial Narrow" yqoi
2J:
.Size = 16 zis-}K<
.Bold = True 4=1lyw
.Bold = wdUndefined UH[ YH;3O
.Superscript = wdUndefined ;aD_^XY
.Subscript = wdUndefined bjR&bIA:
.Italic = wdUndefined /a]+x L
& ??)gMM[
.Underline = wdUnderlineNone Y}4dW'
.UnderlineColor = wdColorAutomatic `pLp+#1
`R
.StrikeThrough = False PZ"xW0"-
.DoubleStrikeThrough = False |ejrE,~1vb
End With eNXpRvY
With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat YrB-;R 1+
.LineSpacingRule = wdLineSpaceSingle S;CT:kG6Y{
.Alignment = wdAlignParagraphCenter }3+q}_3
.WidowControl = True xE + Go
.KeepWithNext = False X-t4irZ)
.KeepTogether = False ;E*ozKpm
.PageBreakBefore = False l =' lV]
.NoLineNumber = False zO! `sPP
.FirstLineIndent = CentimetersToPoints(0) `5>IvrzXrK
.OutlineLevel = wdOutlineLevelBodyText XbHcd8N T
0}aJCJ9sx=
.LeftIndent = CentimetersToPoints(0) RzyEA3L'
.RightIndent = CentimetersToPoints(0) .}Xkr+
+]
.FirstLineIndent = CentimetersToPoints(0) |FKo}>4
* A_
.CharacterUnitLeftIndent = 0 xNjA>S\]W5
.CharacterUnitRightIndent = 0 *aTM3k)Zs
.CharacterUnitFirstLineIndent = 0 +[*UC"
YXBS!89m
.LineUnitBefore = 1 {VI%]n{M
.LineUnitAfter = 1 \Ud2]^D=
;1"K79
End With 8l?]UFM>C
ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False Va9vDb6
ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll jP+4 'O!s[
ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS 4$_8#w B1&
ActiveDocument.Styles("QLNU英文标题").NoProofing = True Ju:=-5r"'
ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese "b2Mk-qP
ActiveDocument.Styles("QLNU英文标题").NoProofing = True Q9rE_} Z
ActiveDocument.Styles("QLNU英文标题").Frame.Delete Q y15TJ
DoEvents GF
k?Qf{u
!N!M
NsyDz
ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") -"(e*&TJ#
ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" mTcLocx
ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False +L_.XToq-
With ActiveDocument.Styles("QLNU英文摘要").Font b5yb~ ;0
.NameFarEast = "宋体" mv + .5X
.NameAscii = "Arial" q.MM|;_u`
.NameOther = "Arial" }p&aI?- B
.Name = "Arial" EQ7c
K63
.Size = 12 S>**hM U%
.Bold = wdUndefined Ef7 Kx49I
.Italic = wdUndefined Z5N uLB'
.Superscript = wdUndefined b"x:IDW qG
.Subscript = wdUndefined Z3[,X w
End With g zw[ ^d
"ebn0<cZ
With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat o6{XT.z5qx
%d*}:295
.LineSpacingRule = wdLineSpaceExactly B [y1RI|9
.LineSpacing = 20 {\ .2h
,ll!19y
.Alignment = wdAlignParagraphJustify ukri7 n*
DNL
TJrN
.WidowControl = False ` 3<#DZ;!
.KeepWithNext = False &\1Dy}:
.KeepTogether = False QAu^]1 ;
.PageBreakBefore = False A~h8 >zz*
.NoLineNumber = False }
1c5#Ym
'X`
\vTxB
.OutlineLevel = wdOutlineLevelBodyText 9#_49euy|P
X2o5Hc)l<
.LeftIndent = CentimetersToPoints(0) uE/q
r a
A
.RightIndent = CentimetersToPoints(0) {9P<G]Z
.FirstLineIndent = CentimetersToPoints(0) m.lNKIknQ
#&D J3(T
.CharacterUnitLeftIndent = 0 K)^.96{/@
.CharacterUnitRightIndent = 0 NbgP, -
.CharacterUnitFirstLineIndent = 2 \QHM7C T
!n
! ~Bw
.LineUnitBefore = 0 6g$+ ))g
.LineUnitAfter = 1 \*_qP*vq@
}~\J7R'
End With {!x-kF_
ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False VeCp z[r
ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll a3p|>M6E
ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS :<nL9y jt
ActiveDocument.Styles("QLNU英文摘要").NoProofing = False &(wik#S
DoEvents Z #\
\NfR
d[ {=/~0
Options.Pagination = True .k[Ptx>
Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." `G H6$\:
DoEvents $BNn 1C8[
ActiveDocument.Repaginate |Z!C`G[
)Q9 J,
End Sub ]jM D'vg^b
vR:t4EJ `
pvcf_w`n
