Dim bContinue As Boolean $(
)>g>%
g0
[w-?f
Dim regEX As New RegExp <#.g=ay
Dim paraCounter As Long '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 "b[5]Y {
U
tkhCw/
Dim LastTitle0String As String, LastTitle0No As Long 0c &+|> !
Dim LastTitle1String As String, LastTitle1No As Long ; jP Xs
Dim LastTitle2String As String, LastTitle2No As Long ]4{H+rw
Dim LastTitle3String As String, LastTitle3No As Long ]9L
oZ)
Dim LastTitle4String As String, LastTitle4No As Long MDN-- p08
Dim LastTitle5String As String, LastTitle5No As Long Ymgw-NJ;(
Dim LastTabelString As String, LastTableNo As Long f::Dx1VcX
Dim LastFigureString As String, LastFigureNo As Long DlT{`
,Q,^3*HX9}
Dim strSeperator As String B *vM0
BY*Q_ Et
Sub ConvertWidth(fTEXT As String, rText As String) VpUAe Wb
Selection.Find.ClearFormatting >p/`;Kq@
Selection.Find.Replacement.ClearFormatting %\DX #.
Selection.Find.Wrap = wdFindContinue f?b"i A(6
Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText >7r!~+B"9'
DoEvents ^{{ q V
Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True /(T?j!nPE
End Sub l,: F
u>$t'
Sub ClearDomain() Qd6F H2Pl
With Selection.Find JRFtsio*
.ClearFormatting %S I'BJ
.Replacement.ClearFormatting 5;S.H#YOpO
.Wrap = wdFindContinue /=h` L ,
Me.txtStatus.Text = "清除所有域代码" f)!Z~t &
DoEvents % nIf)/2g
.Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False {$r[5%L\H
End With zzz3 Bq~
End Sub tDo"K3
F?cK- .
Private Sub cmdCheck_Click() ddo#P%sH '
bContinue = True +
#By* ;BJ
Dim NoSeries1(1 To 16) As String 2tLJU Z1
Dim NoSeries2(1 To 16) As String *H122njH+T
Dim NoSeries5(1 To 16) As String y]im Z4{/
Dim NoSeriesRM(1 To 16) As String hcc/=_hA
Dim paraTotal As Long, ParaText As String OZT.=^:A
Dim ttString As String, ttNo As String
W m|lSisY
S$3JMFA
Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long VX/#1S tC
"j -CZ\]U|
Me.txtStatus.Visible = True
7.T?#;'3
Me.lbParaType.Visible = True q; U,s)Uz^
Me.cmdCheck.Enabled = False HThcn1u~^b
:LTN!jj
7KPwQ?SjT
_|] x2xb)
-hV*EPQ/
Dim ParaType As String, rText As String V1?]|HTQcT
.B yu N
Selection.WholeStory <Qq*p
Selection.NoProofing = True ca}2TT&t
{[(h[MW#
tm1 = Now /> Nt[o[r
Tr|JYLwF
ActiveWindow.View.Type = wdNormalView fV:83|eQ
P$sxr
NoSeries1(1) = "一" b\ PgVBf9
NoSeries1(2) = "二" @6d[=!9
NoSeries1(3) = "三" )i<j XZ:O
NoSeries1(4) = "四" [V!tVDs&'o
NoSeries1(5) = "五" H[UlY?&+
NoSeries1(6) = "六" Ug`
djIL
NoSeries1(7) = "七" jtc~D L
NoSeries1(8) = "八" RyN s6
NoSeries1(9) = "九" :!/8 Hv
NoSeries1(10) = "十" fatf*}eln
NoSeries1(11) = "十一" f-d1KNY
NoSeries1(12) = "十二" `kr?j:g
NoSeries1(13) = "十三" {U1m.30n
NoSeries1(14) = "十四" &?vgP!d&M
NoSeries1(15) = "十五" w:l
"\Tm
NoSeries1(16) = "十六" Q^I\cAIB
vj*%Q(E6Pt
NoSeries2(1) = "㈠" W l1 6`9
NoSeries2(2) = "㈡" ,P Z ge
NoSeries2(3) = "㈢" cFv8 Od
NoSeries2(4) = "㈣" ?8 {"x8W;
NoSeries2(5) = "㈤" x :7IIvP
NoSeries2(6) = "㈥" !wp3!bLp
NoSeries2(7) = "㈦" 4s M.C9W
NoSeries2(8) = "㈧" 8] ikygt"
NoSeries2(9) = "㈨"
+ )?J
#g
NoSeries2(10) = "㈩" ~v83pu1!2s
?}7p"3j'z
NoSeries5(1) = "①" Th[dW<
NoSeries5(1) = "②" KU;9}!#
NoSeries5(3) = "③" 66 Tpi![
NoSeries5(4) = "④" gJhiGYx
NoSeries5(5) = "⑤" *qMY22 X
NoSeries5(6) = "⑥" WK U=.sY
NoSeries5(7) = "⑦" zT[!o
j7
NoSeries5(8) = "⑧" s 79r@])=
NoSeries5(9) = "⑨" >Se,;cB'/]
NoSeries5(10) = "⑩" *j-aXN/ $
<1%$Vq
+*^H#|!
NoSeriesRM(1) = "I" dTtSUA|V7"
NoSeriesRM(2) = "II" 1U\z5$V
NoSeriesRM(3) = "III" " Jr-J#gg
NoSeriesRM(4) = "IV" r GkyGz8>
NoSeriesRM(5) = "V" ^t"'rD-I
NoSeriesRM(6) = "VI" XlJZhc
NoSeriesRM(7) = "VII" \Roz$t-R|f
NoSeriesRM(8) = "VIII" {e 5= &A
NoSeriesRM(9) = "IX" - YV>j
NoSeriesRM(10) = "X" 4fzZ;2sl}
NoSeriesRM(11) = "XI" 4 OX^(
NoSeriesRM(12) = "XII" }&e5$lB
NoSeriesRM(13) = "XIII" >3_Gw4S*H
NoSeriesRM(14) = "XIV" # [a*rD%m
NoSeriesRM(15) = "XV" Bj~+WwD)QR
NoSeriesRM(16) = "XVI" kW (Bkuc)
X jX2]
i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) pNIf=lA
wPl%2
0t
If i = vbNo Then =2 kG%9
Exit Sub x m@_IL&P
End If \;-|-8Q
E"@w
ek.-
If Me.chkSuper.Value Then 2
FFD%O05
Me.txtStatus.Text = "检查修改所有的上标格式" ;6 w A"
Z/K{A`
CheckSuperScript 3,=6@U
bF(f*u
End If ,(4K4pN
!a<ng&H^U
If Me.chkStyle.Value Then \4 #W xZ
Me.txtStatus.Text = "设置样式，请稍候...." 6&-(&(
_
DoEvents gNhQD*+>{
CeateOrModifyStyle ;GI&lpKK
End If D0q ":WvE
$kKjgQ S(
K@#L)VT!
R$Q.sE
ClearDomain f9;(C4+
MS]r:X6
@o6L6Y0Naa
}{"fJ3] c^
If Me.chkLIST.Value Then gdoL yxQ
Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" X76e
&~
]fD}
^s3G
ConvertListToOrdinary /=, nGk>
End If f
{"
?%Ku#
HK
r
Mim-
Q|L ~=9
Dim pType As String, trimpTEXT As String s0_nLbWwO
If Me.chkNum.Value = True Then MWL%
Bz
Me.txtStatus.Text = "转换全角数字形式为半角" j+(I"h3
ConvertWidth "１", "1" {_Gs *<.
DoEvents 63A.@mL
ConvertWidth "２", "2" hzRYec(
DoEvents mQ=#nk$~g
ConvertWidth "３", "3" 7= DdrG<
DoEvents $\! 7 {6a
ConvertWidth "４", "4" IMfqiH)
DoEvents n}V_,:Z
ConvertWidth "５", "5" (~en
(
DoEvents )0R'(#
ConvertWidth "６", "6" 4H-'Dr=G
DoEvents 2|bn(QYz
ConvertWidth "７", "7" ?rup/4|
DoEvents QwJyY{O `
ConvertWidth "８", "8" W T}H>T
DoEvents ${)b[22":
ConvertWidth "９", "9" 9 E
6R0D}
DoEvents l (%1jC8
ConvertWidth "０", "0" +U.I( 83F
DoEvents Bnd [X
ConvertWidth "ａ", "a" J'2X&2
DoEvents -tNUMi'
ConvertWidth "ｂ", "b" 5^KWCS 7@
DoEvents [h:T*(R?
ConvertWidth "ｃ", "c" # u
+ v_
DoEvents 3H
m/(C
ConvertWidth "ｄ", "d" j w9b )
DoEvents @fV9
S"TcM
ConvertWidth "ｅ", "e" lPJ\-/>$z
DoEvents I9Fr5p-%O
ConvertWidth "ｆ", "f" .}`Ix'.
DoEvents 2>H24F
ConvertWidth "ｇ", "g" n}77##+R&C
DoEvents )tpL#J
ConvertWidth "ｈ", "h" e,5C8Q`Z
DoEvents A = {UL
ConvertWidth "ｉ", "i" U3:j'Su4H?
DoEvents O<e{
ConvertWidth "ｊ", "j" #!m.!?
O
DoEvents 6u}</>}
ConvertWidth "ｋ", "k" w'3iY,_ufC
DoEvents -)/$M(Pu"
ConvertWidth "ｌ", "l" $2el&I
DoEvents {u9}b x'<
ConvertWidth "ｍ", "m" t. '!`5G
DoEvents 65m"J'
ConvertWidth "ｎ", "n" I0 RvnMw
ConvertWidth "ｏ", "o" G/mX
q-
ConvertWidth "ｐ", "p" fg{n(TE"8
ConvertWidth "ｑ", "q" TBrPf-Xr
ConvertWidth "ｒ", "r" zA"`!}*
ConvertWidth "ｓ", "s" hiw|2Y&`
ConvertWidth "ｔ", "t" jZ3fKyp#
ConvertWidth "ｕ", "u" Y]5 l.SV
ConvertWidth "ｖ", "v" pXK^Y'2C!
ConvertWidth "ｗ", "w" 1>& ]R=
ConvertWidth "ｘ", "x" 0<B$ #8
ConvertWidth "ｙ", "y" v I)LB )Q
ConvertWidth "ｚ", "z" (Clkv
ConvertWidth "Ａ", "A" y#$CMf
-q^
ConvertWidth "Ｂ", "B" Uv~QUL3>
ConvertWidth "Ｃ", "C" eNu7~3k }
ConvertWidth "Ｄ", "D" _\HQvH
ConvertWidth "Ｅ", "E" ^<-
+@v*
ConvertWidth "Ｆ", "F" .-X8J t
ConvertWidth "Ｇ", "G" )tnh4WMh}
ConvertWidth "Ｈ", "H" w8D"CwS1Rx
ConvertWidth "Ｉ", "I" A nvRxb.e
ConvertWidth "Ｊ", "J" aoa)BNs
ConvertWidth "Ｋ", "K" \_6/vZ%-B
ConvertWidth "Ｌ", "L" ',4i
FuY
ConvertWidth "Ｍ", "M"
EUgs6[w 4
ConvertWidth "Ｎ", "N" @oad,=R&
ConvertWidth "Ｏ", "O" BI}Cg{^km
ConvertWidth "Ｐ", "P" H]jhAf<h
ConvertWidth "Ｑ", "Q" tlt*fH$ .
ConvertWidth "Ｒ", "R" HOh!Xcu
ConvertWidth "Ｓ", "S" wg]LVW}
ConvertWidth "Ｔ", "T" o\)F}j&b#=
ConvertWidth "Ｕ", "U" c:u 5\&~{
ConvertWidth "Ｖ", "V" bNoW?8bZ
ConvertWidth "Ｗ", "W" mo#04;VF
ConvertWidth "Ｘ", "X" Ji 0
tQV
ConvertWidth "Ｙ", "Y" Dl8;$~
ConvertWidth "Ｚ", "Z" P_#bo
w
ConvertWidth "^l", "^p" E\2%E@0#
ConvertWidth "（", "(" wIBO
^w\J
ConvertWidth "）", ")" ~BkCp pI
{& T_sw @[
End If K: Q< CQ2
AZ}Xj>=
With ActiveDocument b,%C{mC
Dim tbl As Table % -e 82J1
For Each tbl In .Tables y Ej^=pw
tbl.Rows.Alignment = wdAlignRowCenter ")HFYqP>9
tbl.Range.Font.NameFarEast = "楷体" g2/8~cn8z
tbl.Range.Font.NameAscii = "Times New Roman" k,F6Tx
tbl.Range.Font.Size = 10.5 #`X?=/q
Next *U\`CXn;
Set tbl = Nothing A6iq[b]
End With f8.gT49I
&q|K!5[k
fe#\TNeQJ[
With ActiveDocument H1(Uw:V8
x
7x\Y(@
For i = 1 To .TablesOfContents.Count QS]1daMIK<
.TablesOfContents(i).Delete LAe6`foW/
Next nL.<[]r
@[i4 ^
!o[7wKrXb
r_;N t
paraTotal = .Paragraphs.Count H&} pkrH~
paraCounter = 1 {Fe[:\
g^ i&gNDx
LastTitle0No = 0 ^Zy% fv,
LastTitle1No = 0 +V^;.P</
LastTitle2No = 0 xLZG:^(I
LastTitle3No = 0 M_ w< m
LastTitle4No = 0 [bN x^VP*
LastTableNo = 0 *%t^;& x?
LastFigureNo = 0 |WdPE@P
r!a3\ep
Dim Sec As Long %\Mo-Ow! \
yD6[\'%
Sec = InputBox("正文从第一节开始？", "节设置", 6) f &wb
If Sec = 0 Then Bv%GJ*>>
Exit Sub _1L![-ac
End If Z @@K[$
"4,?uPi
k = 0 ~ Pah oRS
Do While (paraCounter < paraTotal) And bContinue }t1a* z
k = k + 1
{ Z5nGG
If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then ?vHU #
Exit Do \K]0J H
End If -n<pPau2
paraCounter = paraCounter + 1 XJ5 .
If k Mod 20 = 0 Then g]yBA7/S"
Me.lbCounter.Caption = paraCounter 3% ;a)c;D
DoEvents ^J8lBLqe
End If 8d-t|HkN
Loop n`&U~s8w
bl(RyA gA
TSWM
|#u':
Do While (paraCounter < paraTotal) And bContinue 2q4<t:!
; Nj7qt
ParaText = Trim(.Paragraphs(paraCounter).Range.Text) zeC
RK+-
ShapeHeight = 0 {9aE 5kR
ShapeWidth = 0 "E?2xf|.
Y6L ~K?
CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth tlp@?(u
kO*$"w#X[p
Select Case ParaType @w !PaP
Case "【】表格内容" KC#q@InK
.Paragraphs(paraCounter).Style = "QLNU表格内容" T+k{W6
Case "章" 4G>
H
LastTitle0No = LastTitle0No + 1 r[Hc>wB v
'新一章开始，复位其下属标题编号 x&T [*i
LastTitle1No = 0 cFnDmt I:
LastTitle2No = 0 EJ:%}HhA
LastTitle3No = 0 *6F[t.Or
LastTitle4No = 0 &wE%<"aRAl
s)Cjc.Qs
k = Val(ttNo) zb<6
Ov
If k = 0 Then '非数字编号章节 `& sH-d4v
If ttNo <> NoSeries1(LastTitle0No) Then P{+T< bk|
rText = "第" & NoSeries1(LastTitle0No) & ttString V0XvJ
Me.ErrMsg.AddItem "章节编号错误：" & ParaText #@~+HC=
End If K8.!_
c
Else 6Yxh9*N~]
If Val(ttNo) <> LastTitle0No Then 6s/& BR
rText = "第" & LastTitle0No & ttString -rli(RR)|
Me.ErrMsg.AddItem "章节编号错误：" & ParaText zEy N)
End If Um-[ ~-
K_ ~"}
End If tX %5BTv
{_Rr 6
'章段落设置 =k0_eX0
'字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 -f> %+< k=
.Paragraphs(paraCounter).Style = "QLNU章节" 5m(^W[u `
.Paragraphs(paraCounter).Range.Select o;R2p $
Selection.EndKey unit:=wdLine z(^]J`+\
tc = Replace(rText, vbCr, "") vf%&4 \ ib
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False 28J^D MOW
Case "一级标题" r_ 6ZO&
LastTitle1No = LastTitle1No + 1 ,1CIBFY
'新一级标题开始，复位其下属标题编号 0h\smqm
LastTitle2No = 0 )vb*Ef
LastTitle3No = 0 %k?U9pj^
LastTitle4No = 0 .KUv( -
zSja/yq
If ttNo <> NoSeries1(LastTitle1No) Then l
+OFw)8od
rText = NoSeries1(LastTitle1No) & "、" & ttString :'l^kSP_*C
Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText :GP]P^M;G@
End If * 8_wYYH
pF Rg?-
~C`^6UQr/?
'一级标题段落设置 格式：一、标题内容 Pjjewy1}
^
.Paragraphs(paraCounter).Range.Text = rText | Aw%zw1@
.Paragraphs(paraCounter).Style = "QLNU一级标题" i||]V*5n
.Paragraphs(paraCounter).Range.Select scou% K
Selection.EndKey unit:=wdLine mFaZio0GK
tc = Replace(rText, vbCr, "") jesGV<`?l
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False =i*;VFc
Case "二级标题" B1C-J/J
LastTitle2No = LastTitle2No + 1 $$5aUI:$~$
'新二级标题开始，复位其下属标题编号 XkF%.hWo
LastTitle3No = 0 4 k _vdz
LastTitle4No = 0 H>B&|BO_[
91 g2A|
If ttNo <> NoSeries1(LastTitle2No) Then g^{@'}$
rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString &wCg\j_c
ErrMsg.AddItem "二级标题编号错误：" & ParaText UsQ+`\|
End If lqZ 5?BD1
c> RFdc:U
'二级标题段落设置 格式：(一)、标题内容 ssRbhlD/*1
.Paragraphs(paraCounter).Range.Text = rText s`'{I8'p/
.Paragraphs(paraCounter).Style = "QLNU二级标题" /}
WDU
CtAw
BQO
.Paragraphs(paraCounter).Range.Select kep/+ J-u
Selection.EndKey unit:=wdLine sN2p76KN
tc = Replace(rText, vbCr, "") dCk3;X U
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 2 ", PreserveFormatting:=False /%TI??PGu
DLMM/WJg@
Case "三级标题"
&NoS=(s,
LastTitle3No = LastTitle3No + 1 q~ZNd3O
'新三级标题开始，复位其下属标题编号 VAf1 " )pC
LastTitle4No = 0 9:1Q1,-i!-
+M$Q
=6/
If Val(ttNo) <> LastTitle3No Then ^ xh ;
rText = LastTitle3No & ". " & ttString fNt`?pW H
Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText ^ ALly2
)ZqTwEr@[
End If \BZhf?9U
'三级标题段落设置 格式：1. 标题内容 Te wb?:
.Paragraphs(paraCounter).Range.Text = rText `_R Tw5{
.Paragraphs(paraCounter).Style = "QLNU三级标题" 0ANZAX5
.Paragraphs(paraCounter).Range.Select kDN:ep{/
Selection.EndKey unit:=wdLine *b/` Ya4
tc = Replace(rText, vbCr, "") SO( NVJh
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 3 ", PreserveFormatting:=False oxkoA
Case "四级标题" Z}l3l`h!
LastTitle4No = LastTitle4No + 1 iIa'2+
X4E%2-m@'
If Val(ttNo) <> LastTitle4No Then .=;3d~.]
rText = "(" & LastTitle4No & "). " & ttString IS
2^g>T#1
ErrMsg.AddItem "四级标题编号错误：" & ParaText uPG4V 2
48qV >Gwf
End If DSk/q-'u
'四级标题段落设置 格式：(1). 标题内容 A?%H=>v $
.Paragraphs(paraCounter).Range.Text = rText C:C}5<fk x
.Paragraphs(paraCounter).Style = "QLNU四级标题" bc) ~k:
.Paragraphs(paraCounter).Range.Select cy3B({PLy
Selection.EndKey unit:=wdLine orfO^;qTY
tc = Replace(rText, vbCr, "") =L:4i\4
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 4 ", PreserveFormatting:=False Hx*;jpy(2
}O^zl#
Case "表格标题" Z9 9>5\k
LastTableNo = LastTableNo + 1 G ) 7;;
"*5hiTr8+
If ttNo <> CStr(LastTableNo) Then ytoo~n
rText = "表" & LastTableNo & ". " & ttString
ruzspS
ErrMsg.AddItem "表格编号错误：" & ParaText W DPb
!-VT
*q".-u!D[
End If bMMh|F
_:C9{aEZb
'表格名称段落设置 格式：表1. 表格名称 C/kW 0V7
.Paragraphs(paraCounter).Style = "QLNU表格标题" X{'q 24\F
xe = Replace(rText, vbCr, "") HO%wHiv1X
.Paragraphs(paraCounter).Range.Select (Cd\G=PK
Selection.MoveEnd wdCharacter, -1 '选择范围包括行尾的换行符。 K4;'/cS
Selection.Range.Text = xe V'T ,4
Selection.EndKey *ikc]wQr$
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False -Sx\Xi"<o=
yXF?H"h(
Case "表格首行" D+z?wuXk
.Paragraphs(paraCounter).Style = "QLNU表格首行" vbBc}G"w
Case "图片标题"
YWe"zz
LastFigureNo = LastFigureNo + 1 cmg ^J
#9xd[A : N
If ttNo <> CStr(LastFigureNo) Then WIf0z#JMJm
rText = "图" & LastFigureNo & ". " & ttString ~ZhraSI) G
ErrMsg.AddItem "表格编号错误：" & ParaText TXk?#G \o
Vle@4 ]M\
End If 6qaQ[XTxf
'图片名称段落设置 格式：图1. 图名称
$!(pF
.Paragraphs(paraCounter).Range.Text = rText aL%AQ B,
.Paragraphs(paraCounter).Style = "QLNU图片标题" pDcjwlA%
.Paragraphs(paraCounter).Range.Select #=f?0
UTA
Selection.EndKey unit:=wdLine T}P".kpb S
xe = Replace(rText, vbCr, "") dhr3,&+T2
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False rIh l.5Y
Case "正文" O0No'LVu
'正文名称段落设置 PGBQn#c<
.Paragraphs(paraCounter).Style = "QLNU正文" @$c\d vO
Case "文献条目" RUT,Y4 b
With .Paragraphs(paraCounter) V <@ o<R
'.Range.Select }J1tdko#
'Selection.ClearFormatting %S n d\
'.Range.Find.Execute findtext:=rText, replacewith:=strSeperator 'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” jvFTR'R)=
.Style = "QLNU参考文献" {v2|g
End With 5v}8org
Case "图表注解" ?zVL;gVWA
With .Paragraphs(paraCounter) &8_gRP
.Range.Font.NameFarEast = "楷体" ?yR&/ a
.Range.Font.NameAscii = "Times New Roman" O
J zs Q
.Range.Font.Size = 9 '小5号字 b7tOo7a H)
0[*qY@ m:Z
.Alignment = wdAlignParagraphCenter ? 1$fJ3
.LeftIndent = 0 5HO9 +i
.RightIndent = 0 z3M6V}s4
.FirstLineIndent = 0 @8^[!F
.LineSpacing = 12
Mo @C9Y0
.LineSpacingRule = wdLineSpaceExactly , %Up0Rr,
.LineUnitAfter = 0 c|62jY"$-2
.LineUnitBefore = 0 *B{j.{
p(
.OutlineLevel = wdOutlineLevelBodyText ,@3$X=),E
.PageBreakBefore = False ~-m "
.RightIndent = 0 dJ""XaHqf
.WordWrap = True xs:n\N
.LineUnitAfter = 0.5 )Z
qJh
\y)
End With >ByXB!Wi+
Case Else cw W odPNm
'不作处理 4^Q :
End Select R>"OXFaE
fKeT~z{ ~
'含有inlineshape的段落处理 qt
2d\f
If ShapeHeight > 30 Then Kt|1&Gk
.Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle '对有图片的段落设置为单倍行距 [7S } g
End If WjwLM2<nK7
WRDjh7~Efn
If (ShapeWidth + ShapeHeight) > 150 Then iN0nw]_*
.Paragraphs(paraCounter).Style = "QLNU图片段落" me ks
RcF
End If ugx%_x6
'-b*EZU8t
'段落计数器递 sHl>$Q evz
paraCounter = paraCounter + 1 ?Poq2
Me.lbCounter.Caption = "当前检测段落：" & paraCounter P2'DD 3
Me.txtStatus.Text = ParaText UHx
E)]J
DoEvents .j>hI="b
Loop e0@Y#7N62
End With C[Dav&=^F
)!:Lzi
msg = "" x,S
P'f cP
I=9!Rs(QF
For i = 0 To Me.ErrMsg.ListCount - 1
q^L <X)
msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) F^LZeF[#t
Next %\r!7@Q
xD[Gq%
c#]q^L\x
. ]7Qu;L
Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg <xC#@OZ
Me.cmdCheck.Enabled = True z0*_ ^MH
Me.txtStatus.Visible = True ? C g>h
Me.lbParaType.Visible = False e=;Af K
jR#~I@q^
bContinue = False {=-\|(Bx
End Sub Zg`Mz
_?
=xJKIu
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) wqW 0v\
Dim pTEXT As String 'hv k
>Ll$p 0W
pTEXT = ChKRange.Text L^4-5 `gj
ZRVT2VfN
ParaType = "其它" i'wAE:Xe
TitleString = pTEXT ;cz|ss=
TitleNo = "N/A" d[^~'V
|{ PI102
shpCounter = ChKRange.InlineShapes.Count C h%m
If shpCounter <> 0 Then Qtq
fG{
MaxShpHeight = 0: TotalShpWidth = 0 Eb>78k(3I)
For i = 1 To shpCounter y>|{YWbp?
k = ChKRange.InlineShapes(i).Height nn9wdt@.]
l = ChKRange.InlineShapes(i).Width mzc
4/<th
If k > MaxShpHeight Then njnDW~Snb
MaxShpHeight = k pBP.x#|
End If Ttc[Q]Ri
TotalShpWidth = TotalShpWidth + l D<X.\})Md
Next z2hc.29t
If MaxShpHeight > 60 Or TotalShpWidth > 150 Then A7`1-#
Exit Sub @%lBrM
End If @b~fIW_3>
End If L%c0 Z@[~
e^Ky<*Y
'空行 (N=5 .7"T
If Len(pTEXT) <= 2 Then ]&{ ci
Exit Sub XNb ZNaAd
End If tP%{P"g3^
01. &> Duw
RxN,^!OV
'是否为表格中的文字 4bJZmUb
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then -yg?V2
ParaType = "表格内容" %8M)2 ?E
k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) xOHgp=#D
If k = 1 Then Gkxj?) `
ParaType = "表格首行" Css l{B
End If \3jW ~FV
Exit Sub N**g]T
0`
End If n?urE-_
$gM8{.!
'例外情况：脚注 fb:j%1WF
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then A4?+T+#d
ParaType = "脚注"
ZzBQe
Exit Sub mA@Me7m}
End If !\;FNu8_.
(q7
Ry4-
'例外情况：尾注 {]]|5
\ F
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then
( nab
ParaType = "尾注" &0 BdUU+:<
Exit Sub Tl|:9_:t
End If ]UG*r%9
(V% `k'N7f
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then w L^%w9q-
ParaType = "页眉页脚" dN}#2Bo =
Exit Sub pdEiqLhH
End If hy T1xa
fiN3 xP]V
:4T("a5aM
With regEX {E0z@D) U-
.Global = True LJTQaItdqJ
[e4]"v` N
.Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" PeE/iZ.
If regEX.Test(pTEXT) Then V@Q K
ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") 1G'`2ATF*
TitleString = regEX.Replace(pTEXT, "$3") %F*|;o7 s
TitleNo = regEX.Replace(pTEXT, "$1") mTEx,
ParaType = "章" :BGA.
Exit Sub
d 'Axum@
End If rzI|?QaPi
!GQ\"Ufs>
.Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" NAzX". g
If regEX.Test(pTEXT) Then l?)ZJ3]a
ParaType = "一级标题" 7 +@qB]Bi<
regEX.Execute (pTEXT) FG!X "<he
ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") *8tI*Pus
TitleString = regEX.Replace(pTEXT, "$3") R?EA Sc!b
TitleNo = regEX.Replace(pTEXT, "$1") ([V V%ovZ
Exit Sub yj(vkifEB
End If N9<Ujom
b4""|P?L
'全角或半角括号中的数字 +/;*|
.Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" H<G4O02i_
If regEX.Test(pTEXT) Then F[!ckes<bB
ParaType = "二级标题" ?
[MsQQd~
regEX.Execute (pTEXT) kY&h ~Q
ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") `3'0I /d"z
TitleString = regEX.Replace(pTEXT, "$5") `[Y ngYw
TitleNo = regEX.Replace(pTEXT, "$2") X
*7\ lf2
Exit Sub !;!~n
`
End If 5 VA(tzmCt
=?(~ aV
'阿拉伯数字 1. 2. + EM_TTf4
.Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" :aIN9 ;
If regEX.Test(pTEXT) Then nPgeLG"00
ParaType = "三级标题" ,*@A X >
regEX.Execute (pTEXT) \rV
B5|D?
ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 N8`4veVBx'
TitleString = regEX.Replace(pTEXT, "$3") 7RvUH-S[
TitleNo = regEX.Replace(pTEXT, "$1") OcSEo7W
Exit Sub 6 Ik,zQL
End If hw Dbs[:
%&\ jOq~
'全角或半角括号中的阿拉伯数字 M8b4NF_&
.Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" =
0'q!}._!
If regEX.Test(pTEXT) Then 45H!;Q sk
ParaType = "四级标题" a3 >zo N
regEX.Execute (pTEXT) ^U8r0]9
ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5")
G^1b>K
TitleString = regEX.Replace(pTEXT, "$5") 9r2IuS0
TitleNo = regEX.Replace(pTEXT, "$2") `ZaT} # Y
Exit Sub
`: G %
End If {A o,t+j
35
*\_9/#
'表格名称 <_./SC
.Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" lRP1&FH0
If regEX.Test(pTEXT) Then 8g
>b
ParaType = "表格标题" ?n \*,{9
regEX.Execute (pTEXT) 0J8K9rP;z
ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) U#o'H @
TitleString = Trim(regEX.Replace(pTEXT, "$3")) {3Vk p5%l
TitleNo = Trim(regEX.Replace(pTEXT, "$1")) 1Fi86
strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 2sp g?]
Exit Sub j` /&r*zNq
End If Sm2>'C
^R$'eG 4L?
'图片名称 kV Rn`n0
.Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" X+ n`qiw q
If regEX.Test(pTEXT) Then ;*[9Q'lI*
ParaType = "图片标题" V=:_ d,
regEX.Execute (pTEXT) TjBY
4
ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") :b,^J&~/)1
TitleString = regEX.Replace(pTEXT, "$3") ~/tKMS6T
TitleNo = regEX.Replace(pTEXT, "$1") Zzl,gy70
Exit Sub Y3ZK%OyPR
End If U^Tp6vN d
ib0g3p-Lc
'参考文献 7a$ G@
.Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})" '[数字]、 W];EKj,3W
If regEX.Test(pTEXT) Then ^SfS~G Q
ParaType = "文献条目" H2-28XGc
'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") BD#.-xWV
'TitleNo = regEX.Replace(pTEXT, "[$2] ") 5Z Ab]F90
Exit Sub il:nXpM!
End If B )JM%r
2n`Lg4=
prfx = Left(pTEXT, 2) ~H }en6Rc
If prfx = "注：" Or prfx = "注:" Then HZ*0QgW\(5
ParaType = "图表注解" m!OMrZ%)}
Exit Sub www`=)A;
End If <39!G7ny
|k {-l!HI
s/1 #DM"
ParaType = "正文" Y#01o&f0n
u.|~$yP.!
End With 8S;CFyT\n
End Sub w n11\j&
5H:@ 8,B
Sub ConvertListToOrdinary() b r,+45:
Dim st As Paragraph 7>
Pgc
With ActiveDocument "MiD8wX-
For i = .Paragraphs.Count To 1 Step -1 ; W7Y2Md
Set st = .Paragraphs(i) )DUL)S
lst = st.Range.ListFormat.ListString /M OnNn V
If lst <> "" Then i$-#dc2qY
st.Range.ListFormat.RemoveNumbers !=*.$4
st.Range.InsertBefore lst & " " ]PNow S\
End If >LF&E M]
Next 7nHTlI1 b
End With
!)Rr]
~
Set st = Nothing e^ $j5jV
End Sub 4rU! 4l
IGAz
E(
Private Sub UserForm_Activate() .#5 l$['
Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" `$z)$VuP
Me.lbTotal.Font.Bold = True Jll-X\O`-
Me.txtStatus.Visible = False aP>37s
Me.cmdCheck.Enabled = True - &[z\"T
G(1 K9{i$
End Sub }o9 Aa0$*$
y^FOsr
tO.$+4a
Sub CheckSuperScript() S C
_|A9
Selection.Find.ClearFormatting 8Vt4HD 08
Selection.Find.Replacement.ClearFormatting "L2 m-e6
With Selection.Find " B@jfa%
.Text = "[【\[［〖](*)[】\]〗］]" 5QWNZJ&}d
.Replacement.Text = "[\1]" 5`E))?*"Pe
.Replacement.Font.Superscript = True =<<3Pkv7@
'.Replacement.Font.Color = wdColorBlue YbMssd2Yg
.Forward = True `HX3|w6W;
.Wrap = wdFindContinue r[Z q 3
.FORMAT = True ev>oC~>s
.MatchCase = False
c!uW}U_z
.MatchWholeWord = False ZcryAm:I
.MatchByte = False fV ZW[9[
.MatchAllWordForms = False (=T$_-Dj`}
.MatchSoundsLike = False ?Cci:Lin
.MatchWildcards = True | D.C!/69
End With c/u_KJFF-n
Selection.Find.Execute Replace:=wdReplaceAll n!N\zx8
End Sub ]i8c\UV \
Dr"/ 3xm
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) M'1HA
bContinue = False 04 y!\
Set regEX = Nothing ".2A9]_s
End Sub o+g4p:Mf
LI:T c7t
Sub CeateOrModifyStyle() w&lZ42(mF
' & (&
' xKJ>gr"w#
Dim stl As Style f(u&XuZ
\-.
Tg!Q6
Options.Pagination = False S@:B6](D$
g<[rH%\6fg
On Error Resume Next i G[ ?
]]
For Each stl In ActiveDocument.Styles :LV.G0)#
stl.Delete <uF [,
Next ^@}#m e@
On Error GoTo 0 >v0 :qN7|
pX<a2F P
Set stl = Nothing GH3#E*t+[
\/Ij7nD`l%
DoEvents Vf{2dZZ{1
On Error Resume Next *PM}"s
zd`=Ih2Wx
ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph R.7#zhC`4
-W T3)On
ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph TV{)n'aA
ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph u+% tPe
C;sgK
ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph ,sb1"^Wc
ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph M< qudi
nN ~GP"}
ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph 4S *,\ q]q
ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph EE%s
<_k`
ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph O2H/rFx4
ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph ]R Mb,hJ
ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph b4
~H3|
ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph mTEVF m
ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph \mXqak,y
LC'2q*:'
ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph o1YU _k<#
ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph d~[UXQC
ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph vO$ra5Z
ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph &jJc kT
ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph 0MpS4tW0=
A'DVJ9%xB
ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph w6EI{
On Error GoTo 0 9 )Yw
:
DoEvents X7e/:._SAH
NdQ%:OKC
'BaseStyle E8tD)=1
ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False
kQ }s/ *
With ActiveDocument.Styles("BaseStyle").Font YIDg'a+z
.NameFarEast = "宋体" / {G/|a
.NameAscii = "Times New Roman" z/vDgH!s
.NameOther = "宋体" dp^N_9$cdO
.Size = 10.5 a
W@oE
~`
.Bold = wdUndefined r69WD
.
.Italic = wdUndefined IH3FK!>6
.Subscript = wdUndefined VBx,iua w
.Subscript = wdUndefined `
45d"B
I
`)tK^ [,<W
.Underline = wdUnderlineNone
&`PbO
.UnderlineColor = wdColorAutomatic _
+KmNfR
.StrikeThrough = False
gNa#|
.DoubleStrikeThrough = False YkbO&~.
UpeQ OC
.Outline = False HtzMDGV<
.Emboss = False b|E/LKa
.Shadow = False #K`B<2+T
.Hidden = False q 22/_nSC
.SmallCaps = False YY!! <2_
.AllCaps = False $GF&x>]]
.Color = wdColorAutomatic zPQ$\$7xB
.Engrave = False =QiT)9q)
.Scaling = 100 kGD |c=K}
.Kerning = 1 3zb) "\(R
.Animation = wdAnimationNone nO@+s
F
.DisableCharacterSpaceGrid = False Mx
N]7
.EmphasisMark = wdEmphasisMarkNone <R ~KM=rL
End With d8.ajeN]o
With ActiveDocument.Styles("BaseStyle").ParagraphFormat ~_}4jnC
.LeftIndent = 0 d[U1.SN L
.RightIndent = 0 2k3 z'RLG
.SpaceBefore = 0 XZ@
>]P
.SpaceBeforeAuto = False q)Je.6$#X
.SpaceAfter = 0 _5h0@^m7y
.SpaceAfterAuto = False B,0+HoP
{U
P_i2`.
.LineSpacingRule = wdLineSpaceSingle cMtJy"kK
.Alignment = wdAlignParagraphJustify |Q u_E
n^6TP'r
.WidowControl = False #KJZR{
.KeepWithNext = False @}G|R\2P
.KeepTogether = False J3\)Jy
.PageBreakBefore = False M,L@k
.NoLineNumber = False 4sd-zl$Of
hgj0tIi/
.FirstLineIndent = CentimetersToPoints(0) i;HH !
TaN
.OutlineLevel = wdOutlineLevelBodyText 8D T@h8tA
.CharacterUnitLeftIndent = 0 <`mOU} 0 )
.CharacterUnitRightIndent = 0 *eoq=,O
.CharacterUnitFirstLineIndent = 0 nh|EZp]
.LineUnitBefore = 0 td/5Bmj
.LineUnitAfter = 0 {Pvr??"r
.AutoAdjustRightIndent = True W]~ZkQ|P
.DisableLineHeightGrid = True Ty}R^cy{d
#wD7 \X-f
.FarEastLineBreakControl = True u-M] A z-
.WordWrap = True ;8EjjF [>
.Hyphenation = False sWW\bK0B4
ok=40B99T
.HangingPunctuation = True U$
EM.ot
.HalfWidthPunctuationOnTopOfLine = True K-<n` zg3
.AddSpaceBetweenFarEastAndAlpha = True '5cZzC
2
.AddSpaceBetweenFarEastAndDigit = True 0nT%Slbih
.BaseLineAlignment = wdBaselineAlignBaseline J/gQ Q. s
End With a^*B5G1(&
ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False b.(XS?4o
ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll T`mEO\f
ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese ws().IZ
ActiveDocument.Styles("BaseStyle").NoProofing = False Dtt\~m;AR
,^!Zm^4,
'一级标题题样式 dAwS<5!
ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") \#_@qHAG
ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" 9!S^^;PN&
ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False <
[ w++F~
With ActiveDocument.Styles("QLNU一级标题").Font Fi k@hu
.NameFarEast = "黑体" d5q 4'6o,
.NameAscii = "Arial Black" U;>B7X;`E4
.NameOther = "黑体" j%Gbg J
.Name = "黑体" _6J<YQK
.Size = 16 '三号 " DzG Bu\
.Bold = True |3|wdzV
.Italic = wdUndefined DoTs9w|5
.Subscript = wdUndefined ;<VR2U`
.Superscript = wdUndefined PoY>5
End With aZC*7AK
With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat |N6mTB2
}9 FD/
.LeftIndent = CentimetersToPoints(0) zCM^r <Kr
.RightIndent = CentimetersToPoints(0) EUXV/QV{
.FirstLineIndent = CentimetersToPoints(0) g`
kZ T} h
k2wBy'M .'
.LineSpacingRule = wdLineSpaceSingle 4Q/r[x/&C
.Alignment = wdAlignParagraphCenter ~W /}:;
=*[, *A
.WidowControl = True I &cX8Tw
.KeepWithNext = True eAU"fu6d
.KeepTogether = True 0. (zTJ
.OutlineLevel = wdOutlineLevelBodyText yx 7loy$[
g)nXo:)&
.LineUnitBefore = 0.5 ]t7ClT)n!
.LineUnitAfter = 0.5 F94V 5_[
End With ;_w MW l0F
ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False U!
_sh<
ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll M;> ha,x
ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese $;ch82UiX
ActiveDocument.Styles("QLNU一级标题").NoProofing = True
Q{`@
G"'
DoEvents {!g?d<*
kEx8+2s=M
'二级 mf#fA2[
ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") h
X %s]"
ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" }P16Xb) p
ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False $T FTIk*uU
With ActiveDocument.Styles("QLNU二级标题").Font R$ v i!0
.NameFarEast = "黑体" x1:vUHwC
.NameAscii = "Arial Narrow" r8<JX5zyuo
.NameOther = "黑体" -D$3!ccX
.Name = "黑体"
Ckw83X
.Size = 15 '小三号 _4~k3%w\`l
.Bold = False 4g S[D
.Outline = False I_K[!4~Kn
.Italic = wdUndefined e=-YP8l
.Subscript = wdUndefined 6O%=G3I
.Superscript = wdUndefined *;Ak5.du
End With )ZviS.
With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat cyDiA(ot&
.LeftIndent = CentimetersToPoints(0) DwT i_8m;
.RightIndent = CentimetersToPoints(0) V~JBZ}`TG<
.FirstLineIndent = CentimetersToPoints(0) _RgxKp/d
_82<| NN:
.LineSpacingRule = wdLineSpaceSingle 8R
B DJ
.Alignment = wdAlignParagraphLeft %d ZM9I0
^ v#+PyW
.WidowControl = True yi&?d&rK
.KeepWithNext = True nO-d" S*
.KeepTogether = True Lq3( Z%
.PageBreakBefore = False 5
7'q;I
.OutlineLevel = wdOutlineLevelBodyText G) j
G!`I
V5cb}xx
.LineUnitBefore = 0.5 %{=4Fa(Jux
.LineUnitAfter = 0.5 IBzHR[#,^
M 3)v-
"
End With EmYO5Whi
ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False {kT#o3,>w6
ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll J,6!7a
ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese 3s#|Y,{?6R
ActiveDocument.Styles("QLNU二级标题").NoProofing = True Z<w,UvJa
DoEvents %!>k#F^S
W&WB@)ie
'三级标题样式 'o7R/`4KR
ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") a\.
//?
ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" nz }]C04:-
ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False BllDWKb
With ActiveDocument.Styles("QLNU三级标题").Font (tgEa{rPAP
.NameFarEast = "宋体" a
Yqqq|
.NameAscii = "Times New Roman" sn2r >m3
.NameOther = "黑体" x0y% \
.Name = "黑体" }FuV
Y><l
.Size = 14 '四号 .Y+mwvLpRG
.Bold = False !2/l9
SUi
.Outline = False
Cl%V^xTb
.Italic = wdUndefined BW+qp3 k\
.Subscript = wdUndefined |>M-+@g j
.Superscript = wdUndefined nm<L&11
End With aS3P(s L
With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat +'!h-x1y~
.LeftIndent = CentimetersToPoints(0) [>Ikitow
.RightIndent = CentimetersToPoints(0) ,ZLG 7e
.FirstLineIndent = CentimetersToPoints(0) $ 0ym_6n
Yjpb+}
.LineSpacingRule = wdLineSpaceSingle 3`mC"a b /
.Alignment = wdAlignParagraphLeft U$MWsDn
+k# mvPq
.WidowControl = True C+ }CU}
.KeepWithNext = True =mDy@%yx!
.KeepTogether = True wEZq kV
.PageBreakBefore = False m>g}IX&K'
.OutlineLevel = wdOutlineLevelBodyText Y}85J
:q]
_a?wf!4>P
.CharacterUnitLeftIndent = 0 oB hL}r
.CharacterUnitRightIndent = 0 ?S+/QyjcfJ
.CharacterUnitFirstLineIndent = 2 Oz_b3 r
JkRG t Yq
.LineUnitBefore = 0.5 j*zB
{ s
K
.LineUnitAfter = 0 7)g;Wd+H
End With ajf_)G5X P
ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False k?!TjBKm
ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll K'>P!R:El
ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese oiIt3<BX
ActiveDocument.Styles("QLNU三级标题").NoProofing = True H0 {Mlu9
DoEvents dO Y lI`4
|p'_k(z }
'四级标题样式 {LjK_J'
ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") `[w }hFl~q
ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" ke{DFq h
ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False 0 V{>)w!Fo
With ActiveDocument.Styles("QLNU四级标题").Font t sC z+M
P
.NameFarEast = "宋体" }M;sz
.NameAscii = "Times New Roman" l6r%nHP @
.NameOther = "宋体" { mK pD
.Name = "宋体" zS&7[:IRs'
.Size = 12 '小四号 h #$ _<U
.Bold = True @G^j8Nl+J}
.Outline = False O e0KAn
.Italic = wdUndefined kfH9Y%bOy
.Subscript = wdUndefined L
5hQdT/b$
.Superscript = wdUndefined 1c1e+
H
End With ]W89.><%14
With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat ^!zJf7(+<>
sE(X:[Am
.LeftIndent = CentimetersToPoints(0) 8^&fZL',
.RightIndent = CentimetersToPoints(0) >$d d 9|[
.FirstLineIndent = CentimetersToPoints(0) * fOS"-C L
q8&4=eV\A
.LineSpacingRule = wdLineSpaceSingle Zw3hp,P]
.Alignment = wdAlignParagraphLeft _N[^Hl`\
nS?S6G5h
.WidowControl = True |:`?A3^m#
.KeepWithNext = True S(q4OQ B{
.KeepTogether = True THegPD67J
.PageBreakBefore = False ~hxeD" w
.OutlineLevel = wdOutlineLevelBodyText z:@d@\$?
3<V.6'*k
.CharacterUnitLeftIndent = 0 2b{@]Fp
.CharacterUnitRightIndent = 0 Pl`Bd0
.CharacterUnitFirstLineIndent = 2 853]CK<
Vs2 v j
.LineUnitBefore = 0 WV9[DFU
.LineUnitAfter = 0 7lnM|nD
h8D tq5t4
End With 7$E2/@f
ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False M%nZu{
ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll o(S^1j5
ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese #d7)$ub
ActiveDocument.Styles("QLNU四级标题").NoProofing = True Th I
DoEvents Dg ?Ho2i h
LIm$Wl1U
'正文校式 0B#rq TEKu
ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") :Kt{t46)
ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" (7
]
\p
ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False 6|>" 0[4S
With ActiveDocument.Styles("QLNU正文").Font fSgGQ
D4
*X"F : 7
.NameFarEast = "宋体" 1t
uator
.NameAscii = "Times New Roman" [kU[}FT
.NameOther = "宋体" +'{:zN5m
.Name = "宋体" x3:ZB
X"]mR7k
.Size = 12 '小四号 v= 8~ZDY
AZBY, :>D
.Bold = wdUndefined :$) aME q
.Italic = wdUndefined ?CL
z@u~
.Subscript = wdUndefined )%-\hl]
.Superscript = wdUndefined b*$o[wO9
`UzCq06rJ1
.Outline = False ^@l5 u=
.Emboss = False OP\^c
.Shadow = False DU*Hnii
.Hidden = False K~9 jin
Rqv+N]
.DisableCharacterSpaceGrid = True j[Hg]
End With 1{Sx V
With ActiveDocument.Styles("QLNU正文").ParagraphFormat Mz % d _
\Ho#[k=y*/
.LeftIndent = CentimetersToPoints(0) qrORP3D@
.RightIndent = CentimetersToPoints(0) c qU$gKT
.FirstLineIndent = CentimetersToPoints(0) *
(_ON$+3
AmrJ_YP/t~
.LineSpacingRule = wdLineSpaceExactly 7ZR0M&pX
.LineSpacing = 20 8k*k
.Alignment = wdAlignParagraphLeft bN< O<x1j
-&HoR!af
.WidowControl = False p]J]<QaZD
.KeepWithNext = False Z:}2F^6
.KeepTogether = False o9(#KC?3
.PageBreakBefore = False g
tSHy*3]
.Hyphenation = False E(L^hZMc
d3\l9R{}
.OutlineLevel = wdOutlineLevelBodyText fitK2d
.5$V7t.t$\
QvyUd%e'5A
.CharacterUnitLeftIndent = 0 iIC9rso"Q1
.CharacterUnitRightIndent = 0 'p{Y{
$Q
.CharacterUnitFirstLineIndent = 2 a'L7y%
ir1RA mt%
.LineUnitBefore = 0 C $EFh4
.LineUnitAfter = 0 ) G F
.SpaceBefore = 0 Qcy+ {j]
.SpaceAfter = 0 eQ4B5B%j/x
_ 3-,3ia
.DisableLineHeightGrid = True cmC&s'/8`D
End With d,E/
9y\e
ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False ZS
7)(j$.
ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll `cy"-CJS
ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese s^x , S
ActiveDocument.Styles("QLNU正文").NoProofing = True S d/d [
DoEvents $4 fjSSB~
'
! 2
'图片段落样式 LO Yyj?^7
ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") K;(|v3g6
ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" y
p7,^l
ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False 9EY_R&Yq%
With ActiveDocument.Styles("QLNU图片段落").Font ^AC+nko *
.Size = 12 '小四号 )l/C_WEK
.Italic = wdUndefined r >
D[5B
.Subscript = wdUndefined 3k|~tVM
.Superscript = wdUndefined { U2| ):
End With V0wC@?
With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat %.r5E2'
u6CM RZ$
.LeftIndent = CentimetersToPoints(0) *?
orK o
.RightIndent = CentimetersToPoints(0) O,z%7> <
.FirstLineIndent = CentimetersToPoints(0) M KE[Yb?
Yru1@/;
.LineSpacingRule = wdLineSpaceSingle e^ K=8IW
.Alignment = wdAlignParagraphCenter 34 &$_0zn
.KeepWithNext = True iJ~iJ'vf
.OutlineLevel = wdOutlineLevelBodyText \ { E;u'F
WLA_YMlA
.CharacterUnitLeftIndent = 0 w NlV_
.CharacterUnitRightIndent = 0
=z7 Ay
.CharacterUnitFirstLineIndent = 0 62KW
HB9S
w2m lqy2L
.LineUnitBefore = 0 \H'CFAuF
.LineUnitAfter = 0 EXScqGa]
End With .bl/At3A
ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False ,J4a~fPf
ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll 5w -G]b
ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese YfYL?G
ActiveDocument.Styles("QLNU图片段落").NoProofing = True A 'P}mrY
DoEvents ~(L
<uFU V
U#^:f7-$.
rea}Uq+po
'第X章 )SO1P6
ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 1Y"y!\t7G
ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" yW7S
}I
ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False -2m Ogv
With ActiveDocument.Styles("QLNU章节标题").Font OAQ O J'
.NameFarEast = "黑体" $DMu~wwfG
.NameAscii = "Arial Black" " kJWWR
.NameOther = "Arial Black" P^ W$qy|
.Name = "黑体" E EnTq
.Size = 16 fn"jYSy
.Bold = True S7~l%G>]b
.UnderlineColor = wdColorAutomatic ?&t|?@
.Outline = False 2%, ' }Bus
.Italic = wdUndefined E`LIENm
.Subscript = wdUndefined 8`R}L
.Superscript = wdUndefined 2QQYXJ^
.Scaling = 100 f 0s<Y
.DisableCharacterSpaceGrid = True Zm'::+ tl
End With #._6lESK
With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat c`[uQXv
.LineSpacingRule = wdLineSpaceSingle 97@?Q
I}
.Alignment = wdAlignParagraphCenter c^/?VmCQ}
.WidowControl = True {b8 Y-
.KeepWithNext = True &-. eu
.KeepTogether = True =u1w\>( 2Y
.PageBreakBefore = True 3t}o0Ai9
.OutlineLevel = wdOutlineLevelBodyText ur_"
m+
1x 5CsmS
.LeftIndent = CentimetersToPoints(0) AhFI, x
.RightIndent = CentimetersToPoints(0) 0 GLB3I >
.FirstLineIndent = CentimetersToPoints(0) "7u"d4h-:(
J
}` $WL:
.CharacterUnitLeftIndent = 0 za 4B+&JJ
.CharacterUnitRightIndent = 0 YuZ
.CharacterUnitFirstLineIndent = 0 j~<iTLM
RO iX =i
.LineUnitBefore = 1 $/sZYsN~T
.LineUnitAfter = 0.5 x>/@Z6Wxz
%
QcG^R
.AutoAdjustRightIndent = False ?
Gu_UW
.DisableLineHeightGrid = True < EE+
S#z
.FarEastLineBreakControl = True [(ib9_`A'1
.WordWrap = True '/) _{Ly
End With t~=@r9`S
ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False qSs^}eN
ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll Z` Eb
L
ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese LFry?HO,D
ActiveDocument.Styles("QLNU章节标题").NoProofing = True `x^,k%
:4
DoEvents KPvYq?F>4
YSUH*i/%
'表格标题 At_Y$N:
ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") Uyf
IAC$S
ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" Bd]DhPhJ
ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False AG!a=ufc0
With ActiveDocument.Styles("QLNU表格标题").Font ?^A:~" ~
.NameFarEast = "楷体" (E] K)d
.NameAscii = "Arial" 74N\G1
.Name = "楷体"
61;5Y
o
.Size = 10.5 |a~&E@0c
.Bold = True W}i$f -K
.Underline = wdUnderlineNone 1OGv+b)
.Italic = wdUndefined > ]N0w
.Subscript = wdUndefined mI*>7?
.Superscript = wdUndefined vnOF$6n
.Color = wdColorAutomatic - D':7!@
End With r}M4()9L
With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat u+T, n
SYh
s
pB
.LineSpacingRule = wdLineSpaceSingle GHrT?zEX
.Alignment = wdAlignParagraphCenter u~Cqdr5
\l
.KeepWithNext = True uS10P7N}
.KeepTogether = True D,R2wNF
.OutlineLevel = wdOutlineLevelBodyText @G-k]IWi
g?Ty5~:lq
.LeftIndent = CentimetersToPoints(0) oN}j <6s
.RightIndent = CentimetersToPoints(0) :j p$X|
.FirstLineIndent = CentimetersToPoints(0)
F n Rxc
&:{yf=
.CharacterUnitLeftIndent = 0 dD2e"OIX
.CharacterUnitRightIndent = 0 wAwH8x LU
.CharacterUnitFirstLineIndent = 0 .j@n6RyN
[t\Mu}b
.LineUnitBefore = 1 Ljs(<Gm )-
.LineUnitAfter = 0 "k@/Z7=
#NxvLW/
End With G
U/k^ Qy
ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False }U1{&4Ph
ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll ju 6_L<
ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese !ef)Ra-W
ActiveDocument.Styles("QLNU表格标题").NoProofing = True PqeQe 5
DoEvents ^ x#RUv
X-^Oz@.>
'表格首行 CU M~*
ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") N.cRZm%
ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False x \{jWR%
With ActiveDocument.Styles("QLNU表格首行").Font JS.' v7
.NameFarEast = "楷体" s+t eYL#Zi
.NameAscii = "Times New Roman" B_G7F[/K
.Name = "楷体" \crmNH)3
.Size = 9 oU6g5
.Bold = True !a&F:Fbm
.Underline = wdUnderlineNone nff ]Y$FB
.Italic = wdUndefined {oC 69n:
.Subscript = wdUndefined T 1TZ+ \
.Superscript = wdUndefined P+l^ Ep8P
End With r_CN/ a
With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat ^]K)V
.LineSpacingRule = wdLineSpaceSingle Ceb i9R[
.Alignment = wdAlignParagraphCenter ;a77YL TQ
mq}
#{
.LeftIndent = CentimetersToPoints(0) WY UU-
.RightIndent = CentimetersToPoints(0) f
}e7g d]M
.FirstLineIndent = CentimetersToPoints(0) mT$tAwzTC{
cLF>Jvs*J
+ Rd{ ?)2~
.CharacterUnitLeftIndent = -0.5 I!#^F 1p1
.CharacterUnitRightIndent = -0.5 s'w 0pZqj
.CharacterUnitFirstLineIndent = -0.5 p ;01a
_!Q\Xn
.LineUnitBefore = 0 DEp:
vlW@
.LineUnitAfter = 0 X fDQx!gJ
.SpaceBefore = 0 FA GVpO[
.SpaceAfter = 0 `Hu ;Gdj=
,6)y4=8 L
End With (G;*B<|A
ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False LKG|S<s
ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll |n%N'-el
ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese ! (tJZ5
ActiveDocument.Styles("QLNU表格首行").NoProofing = True u _^ =]K;
DoEvents `215Llzk;
eW<hC (
'表格内容 Vp94mi#L }
ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") %'<
qhGJ
ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False hkc_>F]Hx
With ActiveDocument.Styles("QLNU表格内容").Font xef7mx
.NameFarEast = "楷体" Q)dns)_x
.NameAscii = "Times New Roman" ?' :'zT
.Name = "楷体" 0Jif.<
.Size = 9 :CHd\."%+1
.Bold = False T}On:*&
.Underline = wdUnderlineNone XV!EjD~q
.Italic = wdUndefined X28WQdP,7
.Subscript = wdUndefined Z@u mbyM
.Superscript = wdUndefined $~\qoW<
End With 0 pz
X!f1~
With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat L zy|<:K+$
.LineSpacingRule = wdLineSpaceSingle B75SLK:h=
.Alignment = wdAlignParagraphCenter 6g&nn A
p0@mumh
.LeftIndent = CentimetersToPoints(0) ,g.=vQm: ?
.RightIndent = CentimetersToPoints(0) Y5 pN KL
.FirstLineIndent = CentimetersToPoints(0) ]<_+uciP5[
<C xe t~x
.CharacterUnitLeftIndent = -0.5
/PS]AM
.CharacterUnitRightIndent = -0.5 &"0[7zgYQz
.CharacterUnitFirstLineIndent = -0.5 pr?(5{BL
.LineUnitBefore = 0 arr
cHf 4O
.LineUnitAfter = 0 k}g s;|_
.SpaceBefore = 0 |e(x< [s5
.SpaceAfter = 0 4 ETVyK|
End With GT0 'b ge
ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False );LwWKa
ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll :.^rWCL2
ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese 9)X<}*(qo
ActiveDocument.Styles("QLNU表格首行").NoProofing = True }_TdXY
#w\
DoEvents s o s &
`Nr7N#g+u
'图片标题 'IszS!kY
ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") E&2mF
g
ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" ,*{9
g6
ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False :=,lG ou
With ActiveDocument.Styles("QLNU图片标题").Font os`#: Ao5
.NameFarEast = "楷体" <0^L L
.NameAscii = "Times New Roman" gn 4 Sz")
.Name = "楷体" w 8oIq*
.Size = 10.5 $3:O}X>
.Bold = True &^b mZj !
.Underline = wdUnderlineNone K<D=QweOon
.Italic = wdUndefined ZS?4< lXF
.Subscript = wdUndefined !"
7ip 9a
.Superscript = wdUndefined B pl(s
+
.Outline = False P }$DCD<$U
.Shadow = False )?,X\/5
.Color = wdColorAutomatic w!/se;_H+w
End With aEC&#Q(]q
With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat FTZ a N1%`
.LineSpacingRule = wdLineSpaceSingle )R9QJSe
.Alignment = wdAlignParagraphCenter # F|w_P
Z3nmC-NE
.KeepWithNext = wdUndefined B)( ZR H
.KeepTogether = True /-&a]PJ
.OutlineLevel = wdOutlineLevelBodyText $@4(Lq1.
ADVHi3b
.LeftIndent = CentimetersToPoints(0) H{f
OAv1*
.RightIndent = CentimetersToPoints(0) )\Ay4 d
.FirstLineIndent = CentimetersToPoints(0) p#fV|2'
SXm Hn.?
.CharacterUnitLeftIndent = 0 JnZlz?}^
.CharacterUnitRightIndent = 0 OLgW .j:Ag
.CharacterUnitFirstLineIndent = 0 ugMf pT)
DM )%=C6<
.LineUnitBefore = 0 *D$Hd">X
.LineUnitAfter = 0 ? Y#x`DMh
End With a?X{k|;!7u
ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False }SF<. A
ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll b:>t1S Ul
ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese lG!We'?
ActiveDocument.Styles("QLNU图片标题").NoProofing = True %:7fAB,PA
DoEvents m}>#s3KPA
-PH!U H g
'目录项 9..! g:
ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") 9 ~C$C
ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" Oxhc!9F
ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False v`KYhqTUl
With ActiveDocument.Styles("QLNU目录项").Font Ok6c E
.NameFarEast = "黑体" '"<h;|
.NameAscii = "Times New Roman" *u`[2xmuYf
.NameOther = "Times New Roman" j?cE0
hz
.Name = "黑体" CLX!qw]@ +
.Size = 10.5 I^yInrRh5
.Bold = False bpWEF b'f
.Italic = wdUndefined *we*IhIP
.Underline = wdUnderlineNone
6.
6g9
.Color = wdColorAutomatic j5qrM_Chg
.Superscript = wdUndefined -H(\[{3{V
.Subscript = wdUndefined ]W>kbH Imz
End With 0!!z'm3
With ActiveDocument.Styles("QLNU目录项").ParagraphFormat ]2o? Gnn@
)M(-EDL>Qk
.LineSpacingRule = wdLineSpaceSingle ^SH8*7l7
.Alignment = wdAlignParagraphLeft mk&`dr
pz@wbu=($4
.WidowControl = False
2<' 1m{
.KeepWithNext = False )]a{cczL"
.KeepTogether = False |o I]
.PageBreakBefore = False A +J&(7N
.NoLineNumber = False #99 fFs`w
.OutlineLevel = wdOutlineLevelBodyText 8< Yqpb
&^!vi2$5}
.LeftIndent = CentimetersToPoints(0) ley : =(
.RightIndent = CentimetersToPoints(0) *# 2]`G)
.FirstLineIndent = CentimetersToPoints(0) (*\*7dIo
j6{9XIR o_
.CharacterUnitLeftIndent = 0 %I6c}*W
.CharacterUnitRightIndent = 0 ;`MKi5g
.CharacterUnitFirstLineIndent = 0 \z>L,U
@u }1 S1
.LineUnitBefore = 0 9Jhc5G
.LineUnitAfter = 0 5 U{}A\q
End With Y< drRK!
ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False 1'>wrGr
ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll 2wki21oY
ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot MehM hH
Y
ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese E[N3`"
ActiveDocument.Styles("QLNU目录项").NoProofing = True V]$J&aD
DoEvents @z1Yj"^Pm
y7)$~R):-
'参考文献 LU 7d\Ch
ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") DU>#eR0 G
ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" XAf,k&f3
ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False \9GJa"xA`
With ActiveDocument.Styles("QLNU参考文献").Font }Kc03Ue`%e
.NameFarEast = "宋体" op]H
F4
.NameAscii = "Times New Roman" S>s{
t=AY~
.NameOther = "Times New Roman" n_X)6 s
.Name = "Times New Roman" AqHH^adzA:
.Size = 12 MTxe5ob`$Q
.Bold = False P7
`sJ("#
.Italic = wdUndefined +Tug.[A
.Subscript = wdUndefined +:&,T s/
.Superscript = wdUndefined g1TMyIUt[
.Underline = wdUnderlineNone l;C00ZBOc
.UnderlineColor = wdColorAutomatic b/eJE
L
.Color = wdColorAutomatic P,/=c(5\}
.Engrave = False Nn%[J+F
End With u = u#6%
With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat S
x", Zb
:yTpjC-S]
.LineSpacingRule = wdLineSpaceExactly +vh 4I
.LineSpacing = 16 Z_qOQ%l
.Alignment = wdAlignParagraphLeft Pa-p9]gq
.WidowControl = False -*I Dzm
.KeepWithNext = False vw/L|b7G
.KeepTogether = False hLf<-NM
.PageBreakBefore = False W<AxctId
.OutlineLevel = wdOutlineLevelBodyText O0 VbKW0h3
vUU)zZB ~
.LeftIndent = CentimetersToPoints(0) 2,,t+8"`
.RightIndent = CentimetersToPoints(0) =6N%;2`84
.FirstLineIndent = CentimetersToPoints(0) #nOS7Q#uW
|wFfVDp
.CharacterUnitLeftIndent = 0 {BA1C
(
.CharacterUnitRightIndent = 0 2MapB
*
.CharacterUnitFirstLineIndent = -2 #o]/&T=N=
oju}0h
'1
.LineUnitBefore = 0 ~ojH$=K>d
.LineUnitAfter = 0 U)n+j}vi
.SpaceBefore = 0 KkJK5dZo
.SpaceAfter = 0 lSu\VCG
`Z 3p( G
End With -N3fhW#)
ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False (`
N@4w=
ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll ~T_4M
ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS TZ2-%k#
ActiveDocument.Styles("QLNU参考文献").NoProofing = True SQ_w~ '(
ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese I#m0 n%-[
DoEvents p*_^JU(<p
~RRp5x _
' ~r Wys=
ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") )_\ZUem
ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" '%2q'
LqSA
ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False vCB0 x:/
With ActiveDocument.Styles("QLNU论文题目").Font dfss_}R
.NameFarEast = "黑体" cy6lsJ"?
.NameAscii = "Arial Black" 1D6F
WYV8
.NameOther = "Arial Black" V#Hg+\{d
.Name = "Arial Black" < lBY
.Size = 16 B7 ^*xskH
.Bold = False ?Thh7#7LM
.Italic = wdUndefined O
~1vX9
.Superscript = wdUndefined ]N\J~Gm
.Subscript = wdUndefined \
LQ?s)~
.Underline = wdUnderlineNone TNHkHR[&
.UnderlineColor = wdColorAutomatic BmP!/i _
.Color = wdColorAutomatic A+ :X
AP8YY8,
End With l*`2 EJ
With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat QX]~| ?q
.LineSpacingRule = wdLineSpaceSingle i^2yq&uT(
.Alignment = wdAlignParagraphCenter /kLG/ry8l:
.WidowControl = True xKl!{A9$w
.KeepWithNext = True !BocF<U E
.KeepTogether = True ?=2
2@Q}g
.PageBreakBefore = True #BK3CD(&
.NoLineNumber = False <E TR6r
.OutlineLevel = wdOutlineLevelBodyText 8 )W{&#C>
iIe \m V
.LeftIndent = CentimetersToPoints(0) {O4y Y=G
.RightIndent = CentimetersToPoints(0) ,1}c% C*,Q
.FirstLineIndent = CentimetersToPoints(0) z,"fr%*,N
U;l!.mze
.CharacterUnitLeftIndent = 0 |NsrO8H
.CharacterUnitRightIndent = 0 {b<;?Du s^
.CharacterUnitFirstLineIndent = 0 M :4N'#`
w[bhm$SX]B
.LineUnitBefore = 1 ;E"TOC
.LineUnitAfter = 1 9HjtWQn
= % O @%v
.BaseLineAlignment = wdBaselineAlignAuto -f+U:/'.>v
End With > #
{,(8\
ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False QR+{Y p
ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll :U M tknV
ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS }5 2]
ActiveDocument.Styles("QLNU论文题目").NoProofing = True w*E0f?s
ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese {Gd<+tQg
ActiveDocument.Styles("QLNU论文题目").NoProofing = True am$-1+iX
DoEvents _.ny<r:g
'k ?%39
'中文摘要 ]W-7 U_
ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") Vh W F(*
ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" Oc|`<^m
ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False h] 6 "~ m
With ActiveDocument.Styles("QLNU中文摘要").Font VOj{&O2c
.NameFarEast = "宋体" b xU13ESv
.NameAscii = "Times New Roman" 7 fE
QD?C
.NameOther = "Times New Roman" / p_mFA]@
.Name = "Times New Roman" SP,#KyWP0)
.Size = 12 ?-y!FD}m&
.Bold = wdUndefined zO) >(E?
.Superscript = wdUndefined /n
9yv
.Subscript = wdUndefined LZ97nvK
.Italic = wdUndefined &K 1\"
.Underline = wdUnderlineNone m
kR1iY
.UnderlineColor = wdColorAutomatic eq|G\XJ
.Color = wdColorAutomatic w
A0 $d
End With \sUk71L` j
With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat o
IUjd
.LineSpacingRule = wdLineSpaceExactly XpFo SW#K
.LineSpacing = 20 O[tOpf@s.
.Alignment = wdAlignParagraphLeft Zi0B$3iOb
)@X
`B d
.WidowControl = False Vh.9/ $xQ
.KeepWithNext = False Guc~]
B
.KeepTogether = True w }OJ2^
.PageBreakBefore = False IwE{Zv r
.NoLineNumber = False ymIjm0jVh
.OutlineLevel = wdOutlineLevelBodyText ]7*Z'E
AS}
FRNIVx
.LeftIndent = CentimetersToPoints(0) eC9nOwp]xH
.RightIndent = CentimetersToPoints(0) A 11w{`EM
.FirstLineIndent = CentimetersToPoints(0) 1qR[& =/
2W}f|\8MX
.CharacterUnitLeftIndent = 0 px!TRb f
.CharacterUnitRightIndent = 0 :|GC~JElo5
.CharacterUnitFirstLineIndent = 2 HW{si]~q
.LineUnitBefore = 0 cVg! "
.LineUnitAfter = 0 &m>yY{ be
L=7 U#Q/DE
End With Eagl7'x
ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False ,}("es\b
ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll
*$t<H-U-
ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS cZ!%#A z
ActiveDocument.Styles("QLNU中文摘要").NoProofing = True dW32O2@-
ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese v-V#?+ #
ActiveDocument.Styles("QLNU中文摘要").NoProofing = True 9W JS.\G^
ActiveDocument.Styles("QLNU中文摘要").Frame.Delete u9 t@%H)lZ
DoEvents (Hr_gkGtM
KKfC^g
ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") Aj TkQ )
ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" 1kiS."77x
ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False ^*
xhbM;
With ActiveDocument.Styles("QLNU英文标题").Font U
_ -9rkUa
.NameFarEast = "黑体" @Gh?|d7b D
.NameAscii = "Arial Narrow" rj.] M6#
.Name = "Arial Narrow" K%XQdMv
.Size = 16 wTpjM@F?J|
.Bold = True b"au9:F4@7
.Bold = wdUndefined ; W/K7 }
.Superscript = wdUndefined j2U iZLuV
.Subscript = wdUndefined *K{-J*
.Italic = wdUndefined Ddf7wszW
jkPy e{j
.Underline = wdUnderlineNone Kc6p||<
.UnderlineColor = wdColorAutomatic qh KW6v
.StrikeThrough = False k63]Qf=5?N
.DoubleStrikeThrough = False 5$v,%~$Xds
End With pwiXA{
With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat 4QK~qAi
.LineSpacingRule = wdLineSpaceSingle Hcp)Q7 6X
.Alignment = wdAlignParagraphCenter OZ/P@`kN.f
.WidowControl = True {HJzhIgCf
.KeepWithNext = False FD}hw9VyF@
.KeepTogether = False NA%(ZRSg(
.PageBreakBefore = False nX@lR~g%F
.NoLineNumber = False ou r$Ka31
.FirstLineIndent = CentimetersToPoints(0) r[>=iim
.OutlineLevel = wdOutlineLevelBodyText SMMV$;O{9
/EN3>25"#
.LeftIndent = CentimetersToPoints(0) Px!M^
T!Pi
.RightIndent = CentimetersToPoints(0) <.DFa/G
.FirstLineIndent = CentimetersToPoints(0) *u2pk>y)
q`
l&G%
.CharacterUnitLeftIndent = 0 Fp)+>o T
.CharacterUnitRightIndent = 0 y+ZRh?2
.CharacterUnitFirstLineIndent = 0 Ca SoR
|
kIm)Um
.LineUnitBefore = 1 :YZqrcr}
.LineUnitAfter = 1 Ur`jmB
z!z+E%H^
End With ,qx;kJJ
ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False #E[{
ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll sHk,#EsKH
ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS m+f?+ c6
ActiveDocument.Styles("QLNU英文标题").NoProofing = True : MOr ?"
ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese 1eg/<4]hA
ActiveDocument.Styles("QLNU英文标题").NoProofing = True FC' v= *
ActiveDocument.Styles("QLNU英文标题").Frame.Delete JGJXV3AT
DoEvents ?!N@%R>5rN
y>:-6)pv
ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") `
>w4G|{
ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" IfGmA.O
ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False ]BY^.!Y
With ActiveDocument.Styles("QLNU英文摘要").Font %0>DjzYt
.NameFarEast = "宋体" % R18
.NameAscii = "Arial" #HMJBQ4v#
.NameOther = "Arial" 7e{w)m:A
.Name = "Arial" >S3, _@C
.Size = 12 ,
rvw E
.Bold = wdUndefined GI& XL'K&
.Italic = wdUndefined x*8l z\w
.Superscript = wdUndefined j k%MP6
.Subscript = wdUndefined !+& Rn\e%7
End With U]Iypl`l
u?OyvvpH
With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat WUVRwJ 5
S,K'y?6
.LineSpacingRule = wdLineSpaceExactly
_QD##`<
.LineSpacing = 20 Q7 dXTS4H
IZ<d~ [y
.Alignment = wdAlignParagraphJustify r%M.rYLG{
!`u
.WidowControl = False &"D *
.KeepWithNext = False UDJ{ iZ
.KeepTogether = False ]h(}%fk_
.PageBreakBefore = False E]^wsS>=
.NoLineNumber = False :# 1d;jx
XZ@;Tyn0,
.OutlineLevel = wdOutlineLevelBodyText a(+.rf;
Kt (Z&@
.LeftIndent = CentimetersToPoints(0) ZT
UaF4k j
.RightIndent = CentimetersToPoints(0) =}:9y6QR.
.FirstLineIndent = CentimetersToPoints(0) ^)r^k8y'
9?Vy F'r=
.CharacterUnitLeftIndent = 0 uQ^r 1 $#
.CharacterUnitRightIndent = 0 t0 [H_
.CharacterUnitFirstLineIndent = 2 X[Lwx.Ly8
we6kV-L.
.LineUnitBefore = 0 Q
(P'4XCm
.LineUnitAfter = 1 _\H MF
24ojjxz+
End With <<43 'N+
ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False X8F@U ^@
ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll ~0mO<0~
ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS {Vc%g a|E
ActiveDocument.Styles("QLNU英文摘要").NoProofing = False @yBg)1A
L
DoEvents '6^20rj
x%acWeV5
Options.Pagination = True 0P(U^ rkR~
Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." *z2G(Uac
DoEvents 0 ?)U?=>]p
ActiveDocument.Repaginate l 8I`%bu
I~LN)hqd o
End Sub Cu5fp.OS7
^DL}J>F9G
XIM!]
