Dim bContinue As Boolean T?NwSxGo
\MX>=
Dim regEX As New RegExp HrWXPac
A
Dim paraCounter As Long '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 3mpEF<
z
Fg`r:,(a
Dim LastTitle0String As String, LastTitle0No As Long NC l $vc;,
Dim LastTitle1String As String, LastTitle1No As Long 19&!#z
Dim LastTitle2String As String, LastTitle2No As Long Dy0cA| E
Dim LastTitle3String As String, LastTitle3No As Long O. @_2
Dim LastTitle4String As String, LastTitle4No As Long Vg&` f
Dim LastTitle5String As String, LastTitle5No As Long ]p@7[8}
Dim LastTabelString As String, LastTableNo As Long o+q4Vg9&
Dim LastFigureString As String, LastFigureNo As Long x^9W<
fHR1 ku y
Dim strSeperator As String N] } L*o&
w ,9$*=k
Sub ConvertWidth(fTEXT As String, rText As String) .\LWV=B
Selection.Find.ClearFormatting /V -7 u
Selection.Find.Replacement.ClearFormatting xlv:+
Selection.Find.Wrap = wdFindContinue N{
;
{<C9Z
Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText rJ KX4,
M
DoEvents =`Nnd@3v
Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True ~Og'IRf
End Sub
J1P82=$,
/Y%) Y
Sub ClearDomain() I?Eh
0f I
With Selection.Find 6HFA2~A
.ClearFormatting
XOV Z 'V
.Replacement.ClearFormatting J(g!>Sp!p
.Wrap = wdFindContinue u*}6)=+:
Me.txtStatus.Text = "清除所有域代码" B5P++aQ
DoEvents Z9 }qds6 y
.Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False sm4@ ywd>
End With q$~S?X5\
End Sub Fu!:8Wp!(
$A8eMJEp L
Private Sub cmdCheck_Click() )" =BbMfhu
bContinue = True p"JITH :G
Dim NoSeries1(1 To 16) As String hFyN|Dqhds
Dim NoSeries2(1 To 16) As String }DY^a'wJ-
Dim NoSeries5(1 To 16) As String boJQ3Xc
Dim NoSeriesRM(1 To 16) As String qS+'#Sn
Dim paraTotal As Long, ParaText As String SQW A{f
Dim ttString As String, ttNo As String :.DCRs$Q
Cf2rRH
Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long YtxBkKiJ2V
31<hn+pE &
Me.txtStatus.Visible = True 0XvMaQXQF
Me.lbParaType.Visible = True a( BWV?A
Me.cmdCheck.Enabled = False +!'6:F
W;O x H"eC
~)Ny8 Dh
OCY7 Bls4
2gb49y ~
Dim ParaType As String, rText As String ZLxe $.V_
hDjsGB|Fz
Selection.WholeStory _OHz 6ag
Selection.NoProofing = True 2m /1: 5
&=K-~!?
tm1 = Now _QkU
,[E
HC+
(FymV
ActiveWindow.View.Type = wdNormalView $Bkd C'D
6EP5n
NoSeries1(1) = "一" G2
xYa$&][
NoSeries1(2) = "二" E!C~*l]wJx
NoSeries1(3) = "三" f.Q ?-M
NoSeries1(4) = "四" 0'c<EJ
NoSeries1(5) = "五" ukzXQe;l1
NoSeries1(6) = "六" _av%`bb&z9
NoSeries1(7) = "七" bXC
;6xZV
NoSeries1(8) = "八" }us%G&A2u
NoSeries1(9) = "九" _dIv{ L!
NoSeries1(10) = "十" %~ZO Q%c1
NoSeries1(11) = "十一" S'B7C>i`#N
NoSeries1(12) = "十二" C(7 LwV
NoSeries1(13) = "十三" wa@X^]D8
NoSeries1(14) = "十四" `61 VP-r
NoSeries1(15) = "十五" M@
! {m
NoSeries1(16) = "十六" (*^_ wq-;
Kc}FMu
NoSeries2(1) = "㈠" ;'p X1T
NoSeries2(2) = "㈡" 8 mV`|2>
NoSeries2(3) = "㈢" eWW\m[k]}
NoSeries2(4) = "㈣" oI Qor
%z
NoSeries2(5) = "㈤" ~Se/uL;*
NoSeries2(6) = "㈥" FwmE1,
NoSeries2(7) = "㈦" on\0i{0l8
NoSeries2(8) = "㈧" T1\.~]-msb
NoSeries2(9) = "㈨" >eW HPO
NoSeries2(10) = "㈩" \ bd?
`."
a~ :'OW:Q
NoSeries5(1) = "①" !@p@u;djJ
NoSeries5(1) = "②" [ wr0TbtV
NoSeries5(3) = "③" Xp4pN{h e
NoSeries5(4) = "④" rq T@i(i
NoSeries5(5) = "⑤" N}pE{~Y
NoSeries5(6) = "⑥" By:A9 s
NoSeries5(7) = "⑦" 8&3+ =<U
NoSeries5(8) = "⑧" rM _8piD
NoSeries5(9) = "⑨" ^mkplp
a
NoSeries5(10) = "⑩" y = G
|!fl R? OU
.lOEQLt
NoSeriesRM(1) = "I" "otP^X.
NoSeriesRM(2) = "II" $ [M8G
NoSeriesRM(3) = "III" Cf@WjgR
NoSeriesRM(4) = "IV" <?2[]h:wp
NoSeriesRM(5) = "V" s{Ryh.IyI
NoSeriesRM(6) = "VI" 6 *tI~
NoSeriesRM(7) = "VII" M5[AA/@
NoSeriesRM(8) = "VIII" wvBJ?t,
NoSeriesRM(9) = "IX" ^#vWdOlt
NoSeriesRM(10) = "X"
QU8 ?/
NoSeriesRM(11) = "XI" h9 [ov)
NoSeriesRM(12) = "XII" ZY c)_Og
NoSeriesRM(13) = "XIII" lH T ?
NoSeriesRM(14) = "XIV" \; $j
"i&
NoSeriesRM(15) = "XV" !!DHfAV]
NoSeriesRM(16) = "XVI" Ko k
mylHu
,^`+mP
i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) =cX &H
o ju4.1
If i = vbNo Then !E4YUEY 6
Exit Sub KZsSTB 6J
End If ;~tKNytD`B
HwiG~'Ah9
If Me.chkSuper.Value Then YDz:;S p\
Me.txtStatus.Text = "检查修改所有的上标格式" 87r#; ND
xBl }=M?Qu
CheckSuperScript U43PHcv_
u2@:[:Ao
End If ,K,n{
3]
dl;^sn0s
If Me.chkStyle.Value Then $:{u F#
Me.txtStatus.Text = "设置样式，请稍候...." C[|jJ9VE,
DoEvents
AQ'~EbH(
CeateOrModifyStyle wRi
!eN?
End If z;2kKQZm
[;83
IoU}
o3qBRT0[R
bt-y6,> +E
ClearDomain _~-VH&g0R
3{]csZvW
|r%6;8A]i
1vx:`2 A4
If Me.chkLIST.Value Then 3 05()
Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" u\< z5O
SHIK=&\~-
ConvertListToOrdinary c K1r9ED|
End If b: +.Y$%F-
`G@ ]\)-!
HT[<~c
Dim pType As String, trimpTEXT As String A) /_:
If Me.chkNum.Value = True Then Rm & i"
Me.txtStatus.Text = "转换全角数字形式为半角" 118A6qyi
ConvertWidth "１", "1" I[c/)
N
DoEvents m!t B;:6
ConvertWidth "２", "2" 65)/ |j+
DoEvents |z-A;uL <
ConvertWidth "３", "3" C Rw.UC\
DoEvents TO- [6Pq#
ConvertWidth "４", "4" QZYD;&iY&
DoEvents Y'DI@
ConvertWidth "５", "5" FI Io{ru
DoEvents 3.xsCcmP
ConvertWidth "６", "6" E&7U |$
DoEvents >E^sZmY[f-
ConvertWidth "７", "7" -'*B%yy
DoEvents tF
O27z@
ConvertWidth "８", "8" &Plc
DoEvents Zb^0 EbV
ConvertWidth "９", "9" \L<Hy)l
DoEvents D0.7an6
ConvertWidth "０", "0" ) 8!""n~
DoEvents r@%-S!$
ConvertWidth "ａ", "a" 18zv]v
%
DoEvents Nw/4z$].J
ConvertWidth "ｂ", "b" ' [I?G6
DoEvents zL+jlUkE
ConvertWidth "ｃ", "c" L^Fni~
DoEvents g-bHf]'
ConvertWidth "ｄ", "d" g;UB+Y 247
DoEvents Cz#0Gh >1
ConvertWidth "ｅ", "e" eYO wdTrq
DoEvents J)"2^?!&B
ConvertWidth "ｆ", "f" 'W@X139zq
DoEvents )4bBR@QM
ConvertWidth "ｇ", "g" sV%<U-X
DoEvents <V5(5gx
ConvertWidth "ｈ", "h" 9h9 jS~h
DoEvents 4703\
HK
ConvertWidth "ｉ", "i" to|O]h2*U2
DoEvents P>9F(#u_(F
ConvertWidth "ｊ", "j"
|'aGj
DoEvents hV)D,oN3
ConvertWidth "ｋ", "k" bLhTgss] (
DoEvents .Wc<(pfa
ConvertWidth "ｌ", "l" V<*PaS..
DoEvents !NuiVC]
ConvertWidth "ｍ", "m" U_K"JO Z
DoEvents zN: VT&
ConvertWidth "ｎ", "n" 0L S, (v4
ConvertWidth "ｏ", "o" AVF(YD<U
ConvertWidth "ｐ", "p" wzwEYZN(q
ConvertWidth "ｑ", "q" ;%0$3a
ConvertWidth "ｒ", "r" P\pHos
ConvertWidth "ｓ", "s" m6a`Ok P
ConvertWidth "ｔ", "t" J NPEyC
ConvertWidth "ｕ", "u" 1I{vB eMj
ConvertWidth "ｖ", "v" 64fa0j~<*M
ConvertWidth "ｗ", "w" w/IYQ C\v
ConvertWidth "ｘ", "x" |a* V oMZ
ConvertWidth "ｙ", "y" SDwTGQ/0
ConvertWidth "ｚ", "z" *:{s|18Pj
ConvertWidth "Ａ", "A" hs! a'E
ConvertWidth "Ｂ", "B" &7VN?ox1
ConvertWidth "Ｃ", "C" ;}@.E@s%'
ConvertWidth "Ｄ", "D" ZUyG
}6)J
ConvertWidth "Ｅ", "E" "3(""0 Q
ConvertWidth "Ｆ", "F" ^ Vso`(Ss
ConvertWidth "Ｇ", "G" sf<S#;aYqn
ConvertWidth "Ｈ", "H" A,Wwt
[Qw
ConvertWidth "Ｉ", "I" TWZ* *S-
ConvertWidth "Ｊ", "J" #^|y0:
ConvertWidth "Ｋ", "K" 07P/A^Mkx
ConvertWidth "Ｌ", "L" ZX'q-JUv f
ConvertWidth "Ｍ", "M" ,.A@U* j
ConvertWidth "Ｎ", "N" &)zNu
ConvertWidth "Ｏ", "O" u!hY
bCB
ConvertWidth "Ｐ", "P" o^& u?F 9
ConvertWidth "Ｑ", "Q" jhgS@g=@ZC
ConvertWidth "Ｒ", "R" 2!Yq9,`
ConvertWidth "Ｓ", "S" :PE{ 2*
ConvertWidth "Ｔ", "T"
@tGju\E"o
ConvertWidth "Ｕ", "U" w9< <|ZaU
ConvertWidth "Ｖ", "V" I 8TqK
ConvertWidth "Ｗ", "W" op U=49 b
ConvertWidth "Ｘ", "X" WXV (R,*Tc
ConvertWidth "Ｙ", "Y" ^~9fQJNs
ConvertWidth "Ｚ", "Z" WK)hj{k
ConvertWidth "^l", "^p" eyUguA<lK\
ConvertWidth "（", "(" zo6 |1xq
ConvertWidth "）", ")" _2xNio&
[ uU"=H|
End If zl^ %x1G
qIS9.AL
With ActiveDocument BZ* ',\o
Dim tbl As Table O]3$$uI=QE
For Each tbl In .Tables ~_8Dv<"a
tbl.Rows.Alignment = wdAlignRowCenter ro fj&{w
tbl.Range.Font.NameFarEast = "楷体" Y3=5J\d!a
tbl.Range.Font.NameAscii = "Times New Roman" RtO3!dGT.
tbl.Range.Font.Size = 10.5 w I8
Next X'Q?Mh
Set tbl = Nothing ,h,OUo]LIY
End With f>!)y- 7
3q ujz)o
1 j"G~TM
With ActiveDocument
kw{dv E\K
'9 @ S
For i = 1 To .TablesOfContents.Count "{(|}Cds
.TablesOfContents(i).Delete = >CADTU
Next kl%%b"h'
o&0fvCpW
+O"!*
o@:${> jw
paraTotal = .Paragraphs.Count Q]$gw,H"6
paraCounter = 1 "jV :L
. );~H #
LastTitle0No = 0 n s n
LastTitle1No = 0 =1sGT;>
LastTitle2No = 0 f Gj YWw
LastTitle3No = 0 VzD LG LH
LastTitle4No = 0 Fn
xPM`Zx
LastTableNo = 0 `yF6 -F
LastFigureNo = 0 D+m#_'ocL
{*mf Is
Dim Sec As Long HVjN<H IqM
KCP$i@Pjv
Sec = InputBox("正文从第一节开始？", "节设置", 6) \A7{kI
If Sec = 0 Then 0Xo>f"2<f
Exit Sub |ecK~+
End If 2 tD{c^
9<
@n2Dt d
k = 0 /5:2g# S4
Do While (paraCounter < paraTotal) And bContinue ,2oF t\`.r
k = k + 1 f#mN x
If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then V6Z~#=EQ
Exit Do /Js A[}.6
End If #O 2g]YH
paraCounter = paraCounter + 1 >x?x3 #SX
If k Mod 20 = 0 Then 4fauI%kc
Me.lbCounter.Caption = paraCounter
IR JN
DoEvents X})5XYvA*
End If =r|e]4
Loop & pHSX
wN
NXU W
corNw+|/w
Do While (paraCounter < paraTotal) And bContinue *$e1Bv6
$
,Tp:. "
ParaText = Trim(.Paragraphs(paraCounter).Range.Text) ,5V w^@F
ShapeHeight = 0 {=K);z
ShapeWidth = 0 7[=\b L
q)j b9e
CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth HQ /D )D
X* 4C? v
Select Case ParaType )qSjI_qt5
Case "【】表格内容" W4Z8U0co
.Paragraphs(paraCounter).Style = "QLNU表格内容" >AK9F.
_z
Case "章" H=lzW_ (
LastTitle0No = LastTitle0No + 1 9*~bAgkWI
'新一章开始，复位其下属标题编号 9K!kU 6Gh
LastTitle1No = 0 ^ AhV1rBB
LastTitle2No = 0
=&T
%Jm}
LastTitle3No = 0 u00w'=pe)
LastTitle4No = 0 t 57M KDn
#q LsAw--Q
k = Val(ttNo) yz}ik^T
If k = 0 Then '非数字编号章节 \ k4tYL5
If ttNo <> NoSeries1(LastTitle0No) Then 7N: 3
rText = "第" & NoSeries1(LastTitle0No) & ttString \-Vja{J ]
Me.ErrMsg.AddItem "章节编号错误：" & ParaText >0F)^W?
End If tTEw"DL_-
Else O06 2c)vIY
If Val(ttNo) <> LastTitle0No Then [nc-~T+Mo
rText = "第" & LastTitle0No & ttString ej 91)3AO
Me.ErrMsg.AddItem "章节编号错误：" & ParaText hgg 8r#4q
End If 6v"WI@b4
r=6N ZoZ
End If ='A VI-go5
H 48YX(HI
'章段落设置 A@uU*]TqJ8
'字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 i+q t L3
.Paragraphs(paraCounter).Style = "QLNU章节"
m^!Kthq
.Paragraphs(paraCounter).Range.Select cN% r\
Selection.EndKey unit:=wdLine qu\cU(H|
tc = Replace(rText, vbCr, "") [>$?/DM
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False T.(C`/VM
Case "一级标题" '4K N
LastTitle1No = LastTitle1No + 1 =kzuU1s
'新一级标题开始，复位其下属标题编号
5ENU}0W
LastTitle2No = 0 2#
72B
LastTitle3No = 0 e"#QUc(
LastTitle4No = 0 N F "|*S
B4@1WZn<8
If ttNo <> NoSeries1(LastTitle1No) Then dNu?O>=
rText = NoSeries1(LastTitle1No) & "、" & ttString a =
*
'
Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText !;3hN$5
End If knfEb H
Mz7qC3Z
V8n z@
'一级标题段落设置 格式：一、标题内容 $E/N
.Paragraphs(paraCounter).Range.Text = rText *8 2+GY]
.Paragraphs(paraCounter).Style = "QLNU一级标题" v6U Gr4
.Paragraphs(paraCounter).Range.Select 7Pe<0K)s(
Selection.EndKey unit:=wdLine
d `gKF
tc = Replace(rText, vbCr, "") FEH+ PKSc
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False 'XJqh|G
Case "二级标题" ^'%Q>FVb
LastTitle2No = LastTitle2No + 1 ="p,~ivrz
'新二级标题开始，复位其下属标题编号 z:^ (#G{
LastTitle3No = 0 |LV}kG(2
LastTitle4No = 0 ;
,Nvg6c
<
]"Uy p
If ttNo <> NoSeries1(LastTitle2No) Then YsO3( HS
rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString ~xLo0EV "
ErrMsg.AddItem "二级标题编号错误：" & ParaText sU(<L0
End If Rp+Lu
&w!(.u DO
'二级标题段落设置 格式：(一)、标题内容 ]z O6ESH
.Paragraphs(paraCounter).Range.Text = rText r2%Qk
.Paragraphs(paraCounter).Style = "QLNU二级标题" z0H+Or
Tw,|ZA4XH
.Paragraphs(paraCounter).Range.Select M!Y Gv
Selection.EndKey unit:=wdLine Etn uEU
tc = Replace(rText, vbCr, "") 'yo-`nNFD
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 2 ", PreserveFormatting:=False j/t)=c
jl>jy6T
Case "三级标题" |&"/
u7^
LastTitle3No = LastTitle3No + 1 lY&Sx{ -
'新三级标题开始，复位其下属标题编号 \G0YLV~>P
LastTitle4No = 0 tWyl&,3?1
4 wKQs&:
If Val(ttNo) <> LastTitle3No Then `pb=y}
rText = LastTitle3No & ". " & ttString qTrM*/m:]L
Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText IG.!M@_
9 !_JV;2
End If U?%T~!
'三级标题段落设置 格式：1. 标题内容 ~|G`f\Ln"
.Paragraphs(paraCounter).Range.Text = rText D&o ~4Qvc]
.Paragraphs(paraCounter).Style = "QLNU三级标题" YEa<zhO8
.Paragraphs(paraCounter).Range.Select VS\| f'E
Selection.EndKey unit:=wdLine QE|x[?7e,!
tc = Replace(rText, vbCr, "") Or#KF6+ut
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 3 ", PreserveFormatting:=False 8 e5im ei
Case "四级标题" :}U jX|D
LastTitle4No = LastTitle4No + 1 C
xd^i
;Q8`5h
If Val(ttNo) <> LastTitle4No Then p;qFMzyS9
rText = "(" & LastTitle4No & "). " & ttString g@'2 :'\
ErrMsg.AddItem "四级标题编号错误：" & ParaText KV 8O k
K=!
C\T"I%
End If {[4.<|26
'四级标题段落设置 格式：(1). 标题内容 C{:U<q
.Paragraphs(paraCounter).Range.Text = rText wRdN(`;v
.Paragraphs(paraCounter).Style = "QLNU四级标题" NQx
x_3*4O
.Paragraphs(paraCounter).Range.Select cOf .z)kf6
Selection.EndKey unit:=wdLine n-9a 0_{k
tc = Replace(rText, vbCr, "") e Z]>;5
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 4 ", PreserveFormatting:=False XRm E
XU<XK9EA
Case "表格标题" &^`[$LtYd
LastTableNo = LastTableNo + 1 An_3DrUFV_
0.S7uH%"
If ttNo <> CStr(LastTableNo) Then -d 9L
rText = "表" & LastTableNo & ". " & ttString Quwq_ .DU
ErrMsg.AddItem "表格编号错误：" & ParaText \[G"/]J
3 *T/ 7\
End If
s)jNP\-
bE ,#,
'表格名称段落设置 格式：表1. 表格名称
f?r{Q
.Paragraphs(paraCounter).Style = "QLNU表格标题" EQe$~}[
xe = Replace(rText, vbCr, "") jR9;<qT/
.Paragraphs(paraCounter).Range.Select q[Tl#*P?y
Selection.MoveEnd wdCharacter, -1 '选择范围包括行尾的换行符。 #<y/m*Ota
Selection.Range.Text = xe "/G] M&
Selection.EndKey 7z_ZD0PxPc
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False ]SA Gh|+xl
p//mV H%
Case "表格首行" Z;z,dw
.Paragraphs(paraCounter).Style = "QLNU表格首行"
jM-7
Case "图片标题" I<Cm$8O?
LastFigureNo = LastFigureNo + 1 o5['5?i} /
^RE[5h6^q
If ttNo <> CStr(LastFigureNo) Then ~g9~D}48k'
rText = "图" & LastFigureNo & ". " & ttString riF-9
%i
ErrMsg.AddItem "表格编号错误：" & ParaText
PZvc4
3s?ZyQy
End If belBdxa{"
'图片名称段落设置 格式：图1. 图名称 n^rbc ;}
.Paragraphs(paraCounter).Range.Text = rText k.})3~F-
.Paragraphs(paraCounter).Style = "QLNU图片标题" >sdF :(JV&
.Paragraphs(paraCounter).Range.Select ~Y{]yBGoF
Selection.EndKey unit:=wdLine j >`FZKxp
xe = Replace(rText, vbCr, "") 1c x%+ -
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False W6`_ lGTj
Case "正文" <Qr*!-Kc6
'正文名称段落设置 _>)@6srC
.Paragraphs(paraCounter).Style = "QLNU正文" wz@[rMf
Case "文献条目" M?Fv'YE
With .Paragraphs(paraCounter) t<"`gM^|
'.Range.Select QkWEVL@uM
'Selection.ClearFormatting FRL;fF
'.Range.Find.Execute findtext:=rText, replacewith:=strSeperator 'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” )y6
.Style = "QLNU参考文献" [VL
q/lg*
End With H]*B5Jv~
Case "图表注解" gV$0J?Pr.
With .Paragraphs(paraCounter) < pXOE- G5
.Range.Font.NameFarEast = "楷体" N
A _8<B^
.Range.Font.NameAscii = "Times New Roman" _ +)n}Se
.Range.Font.Size = 9 '小5号字 EuA352x
lfG',hlI;
.Alignment = wdAlignParagraphCenter ,S
m?2<
.LeftIndent = 0 3DxgfP%n
.RightIndent = 0 $m-C6xC/
.FirstLineIndent = 0 V6+:g=@U-l
.LineSpacing = 12 4]E1x l
.LineSpacingRule = wdLineSpaceExactly <(~W g{
.LineUnitAfter = 0 V)4?y9xZv
.LineUnitBefore = 0 tk)}4b^\%j
.OutlineLevel = wdOutlineLevelBodyText (uX"n`Dk
.PageBreakBefore = False 3 g:P>(
.RightIndent = 0 I. Xbowl
.WordWrap = True ,$aqF<+;
.LineUnitAfter = 0.5 5z_Kkf?o
w11L@t[5W8
End With v9!] /]U^
Case Else I *f @M}
'不作处理 ,Y#f0
End Select 1FG"Ak}D
uhv _'Q
'含有inlineshape的段落处理 zsj]WP6 j
If ShapeHeight > 30 Then `Ba?4_>k
.Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle '对有图片的段落设置为单倍行距 c, ]fw2
End If VD $PoP
DZ $O%
If (ShapeWidth + ShapeHeight) > 150 Then 6mIeV0Q'
.Paragraphs(paraCounter).Style = "QLNU图片段落" s'd\"WaQV
End If Y9
Bk$$#\
~]Av$S
'段落计数器递 1vA J(O{-
paraCounter = paraCounter + 1 fGW~xul_
Me.lbCounter.Caption = "当前检测段落：" & paraCounter fh66Gn,
Me.txtStatus.Text = ParaText @$CPTv3e
DoEvents
1D2RhM%
Loop ,,1y0s0`
End With R&:Qy7"
>L8 & 6aU
msg = "" 0'Qvis[kt
D><^ 7nr%
For i = 0 To Me.ErrMsg.ListCount - 1 bSQj= |h1
msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) @ *uZ+$
Next +;*4.}
E(z|LS*3
&h .?~Ri
oA:`=f%\
Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg 6J eAXj1g+
Me.cmdCheck.Enabled = True EP90E^v ^
Me.txtStatus.Visible = True ![eY%2;<
Me.lbParaType.Visible = False :T>OJ"p
i5_l//]
bContinue = False VV#'d
End Sub h#dfh cU>
5
E 9R+N
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) >6W #v[
Dim pTEXT As String +QOK]NJN
Su[(IMw
pTEXT = ChKRange.Text EY.m,@{
B/ mfm 7
ParaType = "其它" Gu aF B[4
TitleString = pTEXT {%RwZ'
TitleNo = "N/A" IFZw54
Lo Y*,Aa&
shpCounter = ChKRange.InlineShapes.Count b \kA
If shpCounter <> 0 Then W<TfDEEa
MaxShpHeight = 0: TotalShpWidth = 0 _;/+8=
For i = 1 To shpCounter (dy: d^
k = ChKRange.InlineShapes(i).Height Y4lN xvY
l = ChKRange.InlineShapes(i).Width G)f!AuN=
If k > MaxShpHeight Then ] yWywa \
MaxShpHeight = k [ \%a7ji#
End If <u1` o`|-
TotalShpWidth = TotalShpWidth + l R:e cLbC
Next PBcb*7W
If MaxShpHeight > 60 Or TotalShpWidth > 150 Then z5D*UOy5M
Exit Sub C1qlB8(Wh>
End If meXwmO
End If @k# xr
bA'N2~.,
'空行 l>hvWK[ ?I
If Len(pTEXT) <= 2 Then yigq# h^
Exit Sub _KBa`lhE
End If &" 5Yt&{
2
S4SG\
>wFn|7\)s>
'是否为表格中的文字 U7e2NES
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then 0QW;=@)d
ParaType = "表格内容" d DAl n+
k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) ``@e7~F{
If k = 1 Then U'~]^F%eyu
ParaType = "表格首行" d+5v[x~'
End If Q4Qf/q;U
Exit Sub 'geN
dx
End If ;!7M<T$&
5`lVC$cP
'例外情况：脚注 ~BE=z:
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then I47s q z7
ParaType = "脚注" <xrya _R?
Exit Sub obv_?i1
End If &' y}L'
R((KAl]dL
'例外情况：尾注 b`J su! ?{
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then oMYZ^b^
ParaType = "尾注" aWP9i &
Exit Sub - (q7"h
End If \.GA" _y
rt?*eC1b+Z
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then S!^I<#d K
ParaType = "页眉页脚" MUCes3YJH
Exit Sub PCa0I^d
End If w4&\-S#
DK'S4%;Sp
i[z#5;x+<
With regEX ^&c &5S}
.Global = True Z^%HD B9^
W' Y(@
.Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" u6:$AA
If regEX.Test(pTEXT) Then /)dyAX(
ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") {Q`Q2'@
TitleString = regEX.Replace(pTEXT, "$3") 4af^SZ )l
TitleNo = regEX.Replace(pTEXT, "$1") lS!O(NzqE'
ParaType = "章" o3NB3@uj<
Exit Sub 7h:EU7
End If *iyc,f^w
8%a
^j\L
.Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" 9[
o $/x}
If regEX.Test(pTEXT) Then
/YvwQ
ParaType = "一级标题" 0,8RA_Ca}
regEX.Execute (pTEXT) >7 cDfv"
ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") 6(Ntt
TitleString = regEX.Replace(pTEXT, "$3") {d)L0KXK
TitleNo = regEX.Replace(pTEXT, "$1") \J;]g\
&I"
Exit Sub ;E!] /oY<
End If Q )8I(*
g:6
`1C
'全角或半角括号中的数字 1CJAFi>%D
.Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" [o7Qr?RN
If regEX.Test(pTEXT) Then =rkW325O
ParaType = "二级标题" !\OX}kHX5
regEX.Execute (pTEXT) s"2+H}u
ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") ivt ~ S
TitleString = regEX.Replace(pTEXT, "$5") rd =+[:7L
TitleNo = regEX.Replace(pTEXT, "$2") M!%|IKw
Exit Sub TQ%
F\@"
End If Sogt?]HB$
FJ{&R Ld
'阿拉伯数字 1. 2. 23a:q {R
.Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" =8"xQ>D62
If regEX.Test(pTEXT) Then \>{;,f
ParaType = "三级标题" Im]6-#(9\|
regEX.Execute (pTEXT) e) 87
&
7
ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 */|<5X;xIA
TitleString = regEX.Replace(pTEXT, "$3") S/l6
c P
TitleNo = regEX.Replace(pTEXT, "$1") D^U?!S&4~
Exit Sub ?V(+Cc
End If m6A\R KJ'
>McEuoZ x9
'全角或半角括号中的阿拉伯数字 _kBx2>qQ
.Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$"
hDBo
XIK
If regEX.Test(pTEXT) Then R+=wSG ]
ParaType = "四级标题" K(P.i^k
regEX.Execute (pTEXT) 9ES V [
ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") [d
qh-7
TitleString = regEX.Replace(pTEXT, "$5") C AN1 ~
TitleNo = regEX.Replace(pTEXT, "$2") [F{P0({%?
Exit Sub :o
iHf:
End If Wd ga(8t
a 6;5mx
'表格名称 I%B\Wy/j^
.Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" Q]$ pg 5O
If regEX.Test(pTEXT) Then e+<9Sh 7&
ParaType = "表格标题" cJM.Q_I}Y
regEX.Execute (pTEXT) X/ m
~^
ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) "{2niBx
TitleString = Trim(regEX.Replace(pTEXT, "$3")) ;0uiO .
TitleNo = Trim(regEX.Replace(pTEXT, "$1")) f9)0OHa
strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 \6ais K
Exit Sub >Nx4 +|
End If .S* sGa uM
%u2",eHCB
'图片名称 IABF_GwF
.Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" k[f_7lJ2
If regEX.Test(pTEXT) Then WYkh'sv >
ParaType = "图片标题" hZ "Sqm]
regEX.Execute (pTEXT) k[@/N+;")`
ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") /bo`@ !-#
TitleString = regEX.Replace(pTEXT, "$3") i|28:FJA
TitleNo = regEX.Replace(pTEXT, "$1") vY,D02 EMw
Exit Sub [N<rPHT
End If C 5e;U
H6/ gRv@
'参考文献 %c8@
.Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})" '[数字]、 2lqy <o
If regEX.Test(pTEXT) Then x,fL65 6t
ParaType = "文献条目" o*oFCR]j
'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") IlB*JJ nl
'TitleNo = regEX.Replace(pTEXT, "[$2] ") #%V+- b(
Exit Sub .S 4%Q9l
End If _g'x=VJF
+Y$EZL.A
prfx = Left(pTEXT, 2) {A)9ePgv!
If prfx = "注：" Or prfx = "注:" Then Y_~otoSoY
ParaType = "图表注解" o,@ (]e~
Exit Sub E@AV?@<sc
End If +
/" \.wYv
|.- Muv
% 'S[f
ParaType = "正文" )l`VE _(|
h
R6Pj"@0
End With D#^euNiWd
End Sub wyLyPJv
"z_},TCy
Sub ConvertListToOrdinary() d"Zyc(Jk
Dim st As Paragraph QFgKEUNgl
With ActiveDocument vTIRydg2b
For i = .Paragraphs.Count To 1 Step -1 Q^* 3 3
Set st = .Paragraphs(i) x+D ecO2
lst = st.Range.ListFormat.ListString s%RG_"l
If lst <> "" Then WF2t{<]^e
st.Range.ListFormat.RemoveNumbers r @
!
st.Range.InsertBefore lst & " " POX{ ;[SV
End If e{
*yV#Wl
Next v I,T1%llu
End With U~ M!T#\s
Set st = Nothing $\M];S=CY
End Sub wrs r U
_6g(C_m'T?
Private Sub UserForm_Activate() GR_caP
Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" K6|R ;r5e{
Me.lbTotal.Font.Bold = True x@[6u
Me.txtStatus.Visible = False $ ?|;w,%I
Me.cmdCheck.Enabled = True #q xo1uV(c
=F
%lx[9Ye
End Sub 4U u`1gtz
Zq5~M bldh
s#(%u t
Sub CheckSuperScript() jX^_(Kg
Selection.Find.ClearFormatting 5 Yww,s
Selection.Find.Replacement.ClearFormatting D'BGoVP
With Selection.Find O{Z${TC[
.Text = "[【\[［〖](*)[】\]〗］]" .1_kRy2*.
.Replacement.Text = "[\1]" eo.B0NZsF
.Replacement.Font.Superscript = True yM,Y8^
'.Replacement.Font.Color = wdColorBlue ) t CNp
.Forward = True 'rA(+-.M;
.Wrap = wdFindContinue \0&F'V
.FORMAT = True J93xxj
.MatchCase = False t 6lw KK
.MatchWholeWord = False w6pXF5ur>
.MatchByte = False o/oLL w
.MatchAllWordForms = False ntW1 )H'o
.MatchSoundsLike = False Pw5[X5.DX
.MatchWildcards = True aK
3'u
End With 77ztDQDtM
Selection.Find.Execute Replace:=wdReplaceAll $ +$l?2
End Sub <d >!%
KKWv V4u
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) b[: { \ !I
bContinue = False '|<S`,'#hg
Set regEX = Nothing H6U 5-
End Sub _rmKvSD%
<y&&{*KW8m
Sub CeateOrModifyStyle() w
N :"(mQ
' *kEzGgTzoS
' 'K#ndCGJ$
Dim stl As Style y*p02\)
E=`/}2
Options.Pagination = False FW|_8q?}<
%.onO0})
On Error Resume Next E]=>@EX
For Each stl In ActiveDocument.Styles 8(L6I%k*
stl.Delete V)vik
Next g!9|1 z
On Error GoTo 0 1I)oT -~
[1 O{yPV3s
Set stl = Nothing -Zp BYX5e_
$g/h=w@
DoEvents dP`B9>r
On Error Resume Next O~Bh(_R&
5G$
5d:[(
ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph C7DwA/$D
M}Xf<:g)
ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph ia_l P
ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph 4S[UJ%
v o%"(!
ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph s[t<2)i
ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph 2U( qyC
FZLx.3k4
ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph "\ =Phqw
ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph 1l
Cr?
ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph a,r
B7aD
ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph
Lw%_xRn)
ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph ,]]*}4[r
ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph PC|ul{[*}
ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph K 9y~
e
1aCpeD4|)
ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph o?6m/Klw6
ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph JYv<QsD
ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph C\B4 Uu6q
ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph <Y2$'ETD
ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph 4I&Mdt<^D
%%z
lqd"0
ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph 0m"Ni:KEf
On Error GoTo 0 -Tn %O|#K
DoEvents m/ID3_
GR4DxlX
'BaseStyle OHrzN ']
ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False "F6gV;{Bt
With ActiveDocument.Styles("BaseStyle").Font yc` *zLWh
.NameFarEast = "宋体" > >KCd
.NameAscii = "Times New Roman" ou- uZ"$,c
.NameOther = "宋体" _uXb>V*8
.Size = 10.5 `uH7~ r^
.Bold = wdUndefined / ?($W|9+l
.Italic = wdUndefined 9C0 #K\
.Subscript = wdUndefined
x*= 1C,C
.Subscript = wdUndefined &b7_%,Bx4
iRbe$v&N
.Underline = wdUnderlineNone E z-Q 'v(9
.UnderlineColor = wdColorAutomatic d325C w?
.StrikeThrough = False ' t5`Ni
.DoubleStrikeThrough = False , 2xv
b4WH37,lA
.Outline = False
"Mhn?PTq
.Emboss = False YP f?
.Shadow = False ,>8w|951'
.Hidden = False U4<c![Pp.
.SmallCaps = False n?;rWq"
.AllCaps = False Ks@c wY
.Color = wdColorAutomatic To5hVL<Ex"
.Engrave = False ic"8'Rwb
.Scaling = 100 $*T?}r>
.Kerning = 1 Vzo< ma^
.Animation = wdAnimationNone z^z`{B
.DisableCharacterSpaceGrid = False Vxu V`P lf
.EmphasisMark = wdEmphasisMarkNone }lT;?|n:h
End With DfP-(Lm)
With ActiveDocument.Styles("BaseStyle").ParagraphFormat -V;BkE76
.LeftIndent = 0 =I@I
.RightIndent = 0 P;mp)1C
.SpaceBefore = 0 aB?usVoS
.SpaceBeforeAuto = False \4^rb?B
.SpaceAfter = 0 egURRC!
.SpaceAfterAuto = False
V; CPn
#V%98| "
.LineSpacingRule = wdLineSpaceSingle c+ByEP4EG
.Alignment = wdAlignParagraphJustify ` 48Ql
VpSpj/\m)'
.WidowControl = False Kf*Dy:e
.KeepWithNext = False &I[` .:NJ
.KeepTogether = False Jazg n5
.PageBreakBefore = False ! ?/:p.
.NoLineNumber = False )%3T1
D/
RHMXPsj
.FirstLineIndent = CentimetersToPoints(0) 3 ?@6QcHl{
.OutlineLevel = wdOutlineLevelBodyText PMV,*`"9"A
.CharacterUnitLeftIndent = 0
L+(ng
.CharacterUnitRightIndent = 0 ~!!| #A)W
.CharacterUnitFirstLineIndent = 0 %^vT7c>
.LineUnitBefore = 0 nw0#gDI|
.LineUnitAfter = 0 n|LpM .
.AutoAdjustRightIndent = True M
+r!63T
.DisableLineHeightGrid = True $(Mz@#%
W)/^*,
Q7
.FarEastLineBreakControl = True K +3=gBU*w
.WordWrap = True XWyP' \
.Hyphenation = False m! ueqV"
\7"|' fz
.HangingPunctuation = True 4=MjyH|[Jx
.HalfWidthPunctuationOnTopOfLine = True mbGm a
.AddSpaceBetweenFarEastAndAlpha = True v {fcQb
.AddSpaceBetweenFarEastAndDigit = True qq]Iy =
.BaseLineAlignment = wdBaselineAlignBaseline
(6Z^0GL
End With ;}"Eqq :
ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False 5<R m{
ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll %S}uCqcAK
ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese $2L6:& .P,
ActiveDocument.Styles("BaseStyle").NoProofing = False y,3Zd Y"
Vm>E F~ r
'一级标题题样式 ]L7A$sTUQ
ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 7-!n-
ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" ;'= cNj
ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False |=m.eU
With ActiveDocument.Styles("QLNU一级标题").Font KP >9hEh
.NameFarEast = "黑体" V L$
T
.NameAscii = "Arial Black" W>)0=8#\
.NameOther = "黑体" a4=(z72xe
.Name = "黑体" +8T^q,
.Size = 16 '三号 G7Sw\wW
.Bold = True X3X_=qzc
.Italic = wdUndefined p2 {7+m
.Subscript = wdUndefined ]MosiMJF
.Superscript = wdUndefined y{>f^S<
End With Jt@
lH
With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat Cl]?qH*:
&Xqxuy
]J
.LeftIndent = CentimetersToPoints(0) gtZm Be=
.RightIndent = CentimetersToPoints(0) d#H9jg15e
.FirstLineIndent = CentimetersToPoints(0) 6 AGZ)gX
ABX%oZ7[|o
.LineSpacingRule = wdLineSpaceSingle - 6HwG fU
.Alignment = wdAlignParagraphCenter A>1$?A8Q
G~YZ(+V%~
.WidowControl = True kzDN(_<1
.KeepWithNext = True x9 %=d
.KeepTogether = True EN
2SI+
.OutlineLevel = wdOutlineLevelBodyText e12QYoh
UI+6\ 3
.LineUnitBefore = 0.5 pB 8 D
.LineUnitAfter = 0.5 ^hmV?a :Y
End With IrqM _OjC
ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False ]f0'YLG
ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll ,T<
JNd'
ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese 0f.j W O
ActiveDocument.Styles("QLNU一级标题").NoProofing = True Mz p<s<BX
DoEvents _!@:@e)yB{
yJq< &g
'二级 "J 1A9|
ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") jk03 Hd
ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" +*:mKx@Nw
ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False ExS5RV@v'
With ActiveDocument.Styles("QLNU二级标题").Font Y(.e e%;,
.NameFarEast = "黑体" E,}{ iqAb
.NameAscii = "Arial Narrow" : ~vodh
.NameOther = "黑体" _9
]:0bDUo
.Name = "黑体" '\tI|
.Size = 15 '小三号 {_-kwg{
"(
.Bold = False KBmO i
.Outline = False \7r0]& _
.Italic = wdUndefined Gl1XRNy C
.Subscript = wdUndefined 2Lf, ~EV
.Superscript = wdUndefined ,=P&{38\q
End With )Y7H@e\1
With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat 5mD8$% \8
.LeftIndent = CentimetersToPoints(0) 3 I_
^F&T
.RightIndent = CentimetersToPoints(0) |E v|A9J!
.FirstLineIndent = CentimetersToPoints(0) 'z(Y9%+a
>+P}S@
.LineSpacingRule = wdLineSpaceSingle c MXv
.Alignment = wdAlignParagraphLeft <gkE,e9
<m]0!ii
.WidowControl = True ^{4BcM 7eH
.KeepWithNext = True (WyNO QO'
.KeepTogether = True xR/CP.dg
.PageBreakBefore = False ZH_$Q$9
.OutlineLevel = wdOutlineLevelBodyText 8(L$a1#5W
Z~~6y6p
.LineUnitBefore = 0.5 "w'pIUQ3,
.LineUnitAfter = 0.5 Zj2 si
>u&D@7~c
End With >8e)V
;
ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False 1
:p'
ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll U]=yCEb8p
ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese Fo.Y
6/ }
ActiveDocument.Styles("QLNU二级标题").NoProofing = True I)Xf4F S@
DoEvents c\{N:S>
6 dRhK+|
'三级标题样式 Q&eyqk
ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") g Ed A
hfx
ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" S\g9 @g.
ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False Wi S3W;
With ActiveDocument.Styles("QLNU三级标题").Font F@i >l{C
.NameFarEast = "宋体" 7~e," ^>T
.NameAscii = "Times New Roman" ?e$&=FC0;
.NameOther = "黑体" AG@gO m
.Name = "黑体" ](w)e
p~;3
.Size = 14 '四号 Jr2yn{s=S
.Bold = False .B:ZyTI
.Outline = False <l{oE? N
.Italic = wdUndefined b &:v6#i
.Subscript = wdUndefined | Ns4^2
.Superscript = wdUndefined SIJ7 Y{\.
End With hG?y)g\A
With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat q !y . cyL
.LeftIndent = CentimetersToPoints(0) S4x9k{Xn
.RightIndent = CentimetersToPoints(0) ^l!SIu
.FirstLineIndent = CentimetersToPoints(0) 'f\9' v
u 2 s
.LineSpacingRule = wdLineSpaceSingle Lq2 Q:w'
.Alignment = wdAlignParagraphLeft .|
4P
:r
h;gc5"mG
.WidowControl = True w s'e
.KeepWithNext = True &<V U}c^!
.KeepTogether = True s6,~J F^
.PageBreakBefore = False 8t x*z"2S
.OutlineLevel = wdOutlineLevelBodyText .SD-6GVD
k83K2> ]
.CharacterUnitLeftIndent = 0 Z -PB CU
.CharacterUnitRightIndent = 0 ($[wCHU`!
.CharacterUnitFirstLineIndent = 2 T<AT&4
ep0,4!#FAO
.LineUnitBefore = 0.5 \/A.j|by,>
.LineUnitAfter = 0 W yL+HB}
End With m>>.N?
ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False z kQ[<
ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll K5""%O+
ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese yIMqQSt79z
ActiveDocument.Styles("QLNU三级标题").NoProofing = True k+3qX'fd
DoEvents
#&Sr;hAJ
C8N)!5(A
'四级标题样式 {@Mr7*u
ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") MmuT~d/
ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" ~wc :/UM|
ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False |c_qq Bd
With ActiveDocument.Styles("QLNU四级标题").Font +.G"oo l
.NameFarEast = "宋体" &p0e)o~Ux
.NameAscii = "Times New Roman" *b~6 B M$
.NameOther = "宋体" 0#q=-M/?`
.Name = "宋体" :+rGBkw1m
.Size = 12 '小四号 gYpMwC{*d
.Bold = True
xmW~R*^
.Outline = False ' W/M>!X
.Italic = wdUndefined Vz{+3vfra6
.Subscript = wdUndefined bOS)vt*V
.Superscript = wdUndefined c OYD N[k
End With 1>!LK_
With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat IK~&`n](>
D #ddx
.LeftIndent = CentimetersToPoints(0) ;JW_4;-
.RightIndent = CentimetersToPoints(0) d0 cL9&~qW
.FirstLineIndent = CentimetersToPoints(0) M6Fo.eeK3
cr7MvXF-
.LineSpacingRule = wdLineSpaceSingle y8Va>ul"U
.Alignment = wdAlignParagraphLeft /7Q|D sa
x0*{oP
.WidowControl = True -%K!R a\W
.KeepWithNext = True 8)i""OD@I
.KeepTogether = True E8Dh;j
.PageBreakBefore = False EE/mxN(<
.OutlineLevel = wdOutlineLevelBodyText AOf4y&B>q
!3ggQ G!e
.CharacterUnitLeftIndent = 0 ~/
%Xm<
.CharacterUnitRightIndent = 0 G
dgL}"*F
.CharacterUnitFirstLineIndent = 2 RaZ>.5
D
D:)Wr, 26
.LineUnitBefore = 0 nQ%HtXt;
.LineUnitAfter = 0 7*/{m K)
'`];=QY9pg
End With rr<E #w
ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False }[* '
ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll {|;a?] ?
ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese sE1cvAw9l
ActiveDocument.Styles("QLNU四级标题").NoProofing = True .8hI
ad
DoEvents gT+/nSrLV
/r}L_w
I
'正文校式
Dn- gP
ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") Uv^\[
ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" a QH6akH
ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False En5oi
With ActiveDocument.Styles("QLNU正文").Font ~6vz2DuB=
'6KvB
.NameFarEast = "宋体" M[u WX=
.NameAscii = "Times New Roman" lOIk$"Ne
.NameOther = "宋体" hy;VvAH 5
.Name = "宋体" }\pI`;*O|
/@os*c|je
.Size = 12 '小四号 ~MpikB f
_KT! OYH
.Bold = wdUndefined 4 #U}bN
.Italic = wdUndefined I G-\&
.Subscript = wdUndefined D} -.<
.Superscript = wdUndefined s6H'}[E<
#cbgp;,M{I
.Outline = False S{Y zHK
.Emboss = False 4
1_gak;
.Shadow = False 8H F^^Cva
.Hidden = False 6CJMQi,kn
GkIE;7#2kX
.DisableCharacterSpaceGrid = True ngY%T5-
End With ,Q`qnn&
With ActiveDocument.Styles("QLNU正文").ParagraphFormat IThd\#=
+)]YvZ6%[,
.LeftIndent = CentimetersToPoints(0) 4<s.|W`
.RightIndent = CentimetersToPoints(0) >}5?`.K~Q*
.FirstLineIndent = CentimetersToPoints(0) n|`3d~9$&
c :R ?da
.LineSpacingRule = wdLineSpaceExactly NnZW@ln"|
.LineSpacing = 20 b7Y g~Lw
.Alignment = wdAlignParagraphLeft Z$oy;j99y
{(73* -~$
.WidowControl = False Xtp8 ^4Va
.KeepWithNext = False KKeMi@N
.KeepTogether = False q76POytV|
.PageBreakBefore = False ]rcF/uQJ<n
.Hyphenation = False 2*Z2uV^
? ukw 6
T
.OutlineLevel = wdOutlineLevelBodyText ;C]Ufk
_ k-_&PR
49$P
.CharacterUnitLeftIndent = 0 Cj5mM[:s
.CharacterUnitRightIndent = 0 1MelHW
.CharacterUnitFirstLineIndent = 2 Z`Yt~{,Q
gN&i &%*!
.LineUnitBefore = 0 K^ - 1M?
.LineUnitAfter = 0 8:cbr/F<
.SpaceBefore = 0 `- NK:;^
.SpaceAfter = 0 T U%@_vYR
@Z)|_
.DisableLineHeightGrid = True 18g_v"6o
End With S0$^|/Sr
ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False %p Wn9
ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll %Bq~b$
ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese .UyE|t4
ActiveDocument.Styles("QLNU正文").NoProofing = True }r}*= ; Ea
DoEvents dZM^?rq
r8k (L{W
'图片段落样式 tDByOml8Ix
ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") |dRVSVN
ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" qA*~ B'
ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False !^J;S%MB:K
With ActiveDocument.Styles("QLNU图片段落").Font A~ya{^
}
.Size = 12 '小四号 f~IJ4T2#N
.Italic = wdUndefined W{p
}N
.Subscript = wdUndefined -(VJ, )8t2
.Superscript = wdUndefined LZ*8YNp1'
End With Bous d
With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat 5>532X(0
Ts iJK
.LeftIndent = CentimetersToPoints(0) ZbnAAbfKH
.RightIndent = CentimetersToPoints(0) yTm
\O UD
.FirstLineIndent = CentimetersToPoints(0) P<<$ o-a"
R! nf^*~
.LineSpacingRule = wdLineSpaceSingle +9)Jtm oL
.Alignment = wdAlignParagraphCenter p|UL<M9{a]
.KeepWithNext = True H DVimoOq
.OutlineLevel = wdOutlineLevelBodyText j0
=6B
lFBdiIw
.CharacterUnitLeftIndent = 0 gY}In+S
.CharacterUnitRightIndent = 0 %idBR7?`g
.CharacterUnitFirstLineIndent = 0 .6?"<zdPU
.hTqZvDa
.LineUnitBefore = 0 &$"#hGg
.LineUnitAfter = 0 9>}& d Q8
End With "gJ?LojB <
ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False \0$ +*ejz
ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll Z9{~t
ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese s.3"2waZ=T
ActiveDocument.Styles("QLNU图片段落").NoProofing = True %1z;l. c
DoEvents _0H oJ
:uL<UD,vu3
b|#=kPVgL}
'第X章 ,GbmL8P7Y
ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") }nx)|J*p
ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" O &%'j
ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False sEhvx +(
With ActiveDocument.Styles("QLNU章节标题").Font m_NX[>&Y3
.NameFarEast = "黑体" =C\Tl-$\f
.NameAscii = "Arial Black" H R>Y?B{
.NameOther = "Arial Black" $ {yc t
.Name = "黑体" rb?7i&-
.Size = 16 w$2q00R>
.Bold = True = C
%)(|
.UnderlineColor = wdColorAutomatic - Cf)`/
.Outline = False 1HJ:
?]
.Italic = wdUndefined 1 $E(8"l
.Subscript = wdUndefined ;p`1Y<d-O
.Superscript = wdUndefined ]8$8QQc<<5
.Scaling = 100 mvn- QP~"
.DisableCharacterSpaceGrid = True = ~^b
End With Spm 0`
With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat obb%@S`
.LineSpacingRule = wdLineSpaceSingle 1ni+)p >]
.Alignment = wdAlignParagraphCenter PN*
.9;5Z
.WidowControl = True ]lWqV
.KeepWithNext = True M!&Hn, 22
.KeepTogether = True Xr*I`BJ
.PageBreakBefore = True U ?[ (
.OutlineLevel = wdOutlineLevelBodyText ^z, 3 #gK
Pwh}hG1s a
.LeftIndent = CentimetersToPoints(0) Mw[3711v
.RightIndent = CentimetersToPoints(0) 8NN+Z<
.FirstLineIndent = CentimetersToPoints(0) r YUIFPN
9#8vPjXW}.
.CharacterUnitLeftIndent = 0 <T 2O^
.CharacterUnitRightIndent = 0 {q>%Sr]9
.CharacterUnitFirstLineIndent = 0 m$0W^u
">V&{a-C4
.LineUnitBefore = 1 (m]l -R
e
.LineUnitAfter = 0.5 o | $D| E
V"Q\7,_k.
.AutoAdjustRightIndent = False FW]tDGJOw
.DisableLineHeightGrid = True ~id6^#&>
.FarEastLineBreakControl = True wO?? "${OH
.WordWrap = True D%SOX N
End With *A-_*A
ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False ;QI9 OcE@/
ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll *P mZqe
ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese \C~X_/sg
ActiveDocument.Styles("QLNU章节标题").NoProofing = True mxNd
DoEvents IQqUFP$8 g
[6GYYu\
'表格标题 84ij4ZYe
ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") '/ Aq2
ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" TrI+F+;
ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False D(b01EQ;d
With ActiveDocument.Styles("QLNU表格标题").Font -cqE^qAdX
.NameFarEast = "楷体" qHt/,w='Q
.NameAscii = "Arial" ?Uql 30A
.Name = "楷体" x}G:n[B7_V
.Size = 10.5 '%$Vmf)=
.Bold = True ?kjQ_K
.Underline = wdUnderlineNone IZVP-
.Italic = wdUndefined .7iRV
.Subscript = wdUndefined 1 ?@
HOu
.Superscript = wdUndefined $] 7f1U_e
.Color = wdColorAutomatic O&!R7T
End With E@VQ xB7+
With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat B,b8\\^k|
tE*BZXBlm
.LineSpacingRule = wdLineSpaceSingle T(|'.&a
.Alignment = wdAlignParagraphCenter ;zCUx*{
.KeepWithNext = True mhbczVw
.KeepTogether = True 8SRR)O[)}
.OutlineLevel = wdOutlineLevelBodyText YQ0#j'}/
eOR Xyh\K
.LeftIndent = CentimetersToPoints(0) y
oW ~
.RightIndent = CentimetersToPoints(0) ~nZcA^b#DQ
.FirstLineIndent = CentimetersToPoints(0) qxZ
IH
s$Vl">9#
.CharacterUnitLeftIndent = 0 }#z1>y!#
.CharacterUnitRightIndent = 0 EJ:O 1
.CharacterUnitFirstLineIndent = 0 Nd8>p.iqO
$8^H k xy
.LineUnitBefore = 1 <q63?Ms'
.LineUnitAfter = 0 = =Gc%
-CPtYG[s
End With C'R9Nn'
ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False NuZ2,<~9
ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll ^ h=QpH
ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese
c ILS
ActiveDocument.Styles("QLNU表格标题").NoProofing = True *85N_+Wv!
DoEvents I}f`iBG
OGZD$j
'表格首行 O 9ex=m `L
ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") -wU] L5uP
ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False 96WzgHPWo
With ActiveDocument.Styles("QLNU表格首行").Font ~aC ?M&
.NameFarEast = "楷体" WJ{Iv] }9
.NameAscii = "Times New Roman" :a wt7lqv
.Name = "楷体" 3W1Lh~Av
.Size = 9 reu[rZ&
.Bold = True H'A N osv
.Underline = wdUnderlineNone C qd\n#d/~
.Italic = wdUndefined 91OxUVd
.Subscript = wdUndefined <J50 9j
.Superscript = wdUndefined Y ^^ 4n$
End With b6k`R4S3
With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat }*fBHzNN
.LineSpacingRule = wdLineSpaceSingle s5~k]"{j
.Alignment = wdAlignParagraphCenter C-M_:kQ[U
G`!x+FB
.LeftIndent = CentimetersToPoints(0) \Vc[/Qp7Bb
.RightIndent = CentimetersToPoints(0) ^O|f
w?,
.FirstLineIndent = CentimetersToPoints(0) (p]FI # y
~${~To8$CW
t]K20(FSN
.CharacterUnitLeftIndent = -0.5 H c mW
.CharacterUnitRightIndent = -0.5 MA
.;=T
.CharacterUnitFirstLineIndent = -0.5 e5_Hmuk|
o.Kn DY
.LineUnitBefore = 0 G,C`+1$ *
.LineUnitAfter = 0 _a09;C
.SpaceBefore = 0 ^s~)"2 g
.SpaceAfter = 0 Zue3Z{31T
2A_1 E \
End With U]hqRL
ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False <83Ky;ry
ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll SxF'2 ii
ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese
W NR]GI
ActiveDocument.Styles("QLNU表格首行").NoProofing = True EP:`l
DoEvents bBIh}aDN
qbyYNlXqm
'表格内容 , gV#x7IW
ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") n;Bb/Z!~
ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False W3:j Z:
With ActiveDocument.Styles("QLNU表格内容").Font { -A|f
.NameFarEast = "楷体" M
9)4ihK
.NameAscii = "Times New Roman" xG! ~T Q
.Name = "楷体" i6Z7O )V
.Size = 9 Vh-8pF t
.Bold = False a (U52dO,
.Underline = wdUnderlineNone 7FH(C`uKi
.Italic = wdUndefined 3.W[]zH/u
.Subscript = wdUndefined ^0]0ss;##R
.Superscript = wdUndefined ; Y/nS
End With 8}n< 3_
With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat -
2)k!5X=
.LineSpacingRule = wdLineSpaceSingle 8D.c."q
.Alignment = wdAlignParagraphCenter
[,;Y5#Y[5
KL \>-
.LeftIndent = CentimetersToPoints(0) BTAbDyH 5
.RightIndent = CentimetersToPoints(0) ~5
6&!4
.FirstLineIndent = CentimetersToPoints(0) } c
G)$E
rK gl:s j+
.CharacterUnitLeftIndent = -0.5 o z*;q]
.CharacterUnitRightIndent = -0.5 Pe`mZCd^
.CharacterUnitFirstLineIndent = -0.5 ~n=DI/AJ@-
.LineUnitBefore = 0 ni;)6,i
.LineUnitAfter = 0 ?/| Xie
.SpaceBefore = 0 8L gt
.SpaceAfter = 0 $J1`. Q>)4
End With = l(euBb
ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False ky2]% cw
ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll .x I Aep_
ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese i l^;2`]&
ActiveDocument.Styles("QLNU表格首行").NoProofing = True 4cQP+ n
DoEvents Ifm
QP s+f
1!uBzO6/$
'图片标题 _[rFnyC+0V
ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") o~$O$
ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" jNj;#C)
ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False x3n9 |Uud
With ActiveDocument.Styles("QLNU图片标题").Font !Yof%%m$;
.NameFarEast = "楷体" bM?gAY]mB8
.NameAscii = "Times New Roman" /8; m.J>bf
.Name = "楷体" WK|5:V8E
.Size = 10.5 h$5[ 04.Q
.Bold = True oAO{4xP
.Underline = wdUnderlineNone >pu4 G+M
.Italic = wdUndefined E#!N8fQ
.Subscript = wdUndefined V]| X
,G
.Superscript = wdUndefined xPZ
>vCg
.Outline = False |r ~ u7U\
.Shadow = False @)>Z +g
.Color = wdColorAutomatic ]I|(/+}M
End With X]y:uD{
With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat >XtfT '
.LineSpacingRule = wdLineSpaceSingle )j ;^3LiV3
.Alignment = wdAlignParagraphCenter #mV2VIX#Jv
<7P[)
X_
.KeepWithNext = wdUndefined AM+5_' S,
.KeepTogether = True
_X#R v2a
.OutlineLevel = wdOutlineLevelBodyText q7 PCMe
`W86]ut[
.LeftIndent = CentimetersToPoints(0) @gN"Q\;F
.RightIndent = CentimetersToPoints(0) ,HP }}K+S
.FirstLineIndent = CentimetersToPoints(0) *)K\&h<{
{ Zgd
.CharacterUnitLeftIndent = 0 ///Lg{ ie
.CharacterUnitRightIndent = 0 4iA F<|6s
.CharacterUnitFirstLineIndent = 0 $0$sM/
%
?R]`M_^&u!
.LineUnitBefore = 0 A8f.h5~9
.LineUnitAfter = 0 hs7!S+[.$$
End With 5L3+KkX@
ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False :k \#=u(
ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll 2E }vuw=c
ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese @43 psq1
ActiveDocument.Styles("QLNU图片标题").NoProofing = True .B]l@E-u
DoEvents oU|G74e 6
-
l X4;
'目录项 <0d2{RQ;
ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") gqS9 {K(f
ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" iC3z5_g*@
ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False "pkdZ
With ActiveDocument.Styles("QLNU目录项").Font hywcj\[
.NameFarEast = "黑体" nI6 gd%C
.NameAscii = "Times New Roman" !( lcUdBd
.NameOther = "Times New Roman" {+9RJmZg
.Name = "黑体" tp`1S+'~j
.Size = 10.5 qfsPX6]
.Bold = False i "&FW&W
.Italic = wdUndefined z}E_ wg
.Underline = wdUnderlineNone
ZiUb+;JA
.Color = wdColorAutomatic %`F;i)Zz
.Superscript = wdUndefined >'4A[$$4mM
.Subscript = wdUndefined 4r(0+SO
End With F! =l
r
With ActiveDocument.Styles("QLNU目录项").ParagraphFormat ;<Q%d~$xy}
8 m"k3:e^
.LineSpacingRule = wdLineSpaceSingle y,5 qY}P+
.Alignment = wdAlignParagraphLeft ",,# q
GK/Po51
.WidowControl = False 8>YF
}\D V
.KeepWithNext = False ]k!Xb
.KeepTogether = False -,
bnj^L
.PageBreakBefore = False ^m z 9sV
.NoLineNumber = False J P 4DV=}L
.OutlineLevel = wdOutlineLevelBodyText - rO34l
d?7?tL2
.LeftIndent = CentimetersToPoints(0) d-b04Q7DQ
.RightIndent = CentimetersToPoints(0) MZGhN
brd
.FirstLineIndent = CentimetersToPoints(0) Y,s EM%
EHUx~Q
.CharacterUnitLeftIndent = 0 $Ivjcs:
.CharacterUnitRightIndent = 0 o*Qa*<n
.CharacterUnitFirstLineIndent = 0 e |Ri
tA#Pc6zBuC
.LineUnitBefore = 0 w0!$ow.l
.LineUnitAfter = 0 1Ms]\<^j
End With u1/ >)_U
ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False coAXYn
ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll @` KYgjjH
ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot u%C oo
ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese AJ7w_'u=@
ActiveDocument.Styles("QLNU目录项").NoProofing = True f3O6&1D
DoEvents ]s=|+tz\V
<UGaIb
'参考文献 CyIlv0fd}
ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") )R7Sh51P
ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" H*0Y_H=
ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False ? Ek)" l
With ActiveDocument.Styles("QLNU参考文献").Font uG\~Hxqw7O
.NameFarEast = "宋体" -'Z Gc8)
.NameAscii = "Times New Roman" 2j+w5KvU
.NameOther = "Times New Roman" `n$A k5f
.Name = "Times New Roman" \:;M FG'
.Size = 12 AYnPxi
W|
.Bold = False k|-\[Yl .
.Italic = wdUndefined :7K
a4
.Subscript = wdUndefined ~/G)z?+E
.Superscript = wdUndefined ) lUS' I
.Underline = wdUnderlineNone h]<S0 /
.UnderlineColor = wdColorAutomatic !Ubm 586!
.Color = wdColorAutomatic *s4|'KS2o
.Engrave = False 2u$-( JfoS
End With -+ByK#<%
With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat {JfQQP&FV
k ]NZ%.
.LineSpacingRule = wdLineSpaceExactly i > 3`V6
.LineSpacing = 16 _^E NR k@
.Alignment = wdAlignParagraphLeft p{Q6g>?[
.WidowControl = False Um+ _ S@h
.KeepWithNext = False F;Q,cg M
.KeepTogether = False Dck/Ea
.PageBreakBefore = False d<-f:}^k0
.OutlineLevel = wdOutlineLevelBodyText :9QU\{2
HTh? &u\QG
.LeftIndent = CentimetersToPoints(0) EL~
$7 J
.RightIndent = CentimetersToPoints(0) h,{Q %sqO
.FirstLineIndent = CentimetersToPoints(0) Ze V@ X
uZ?P{E,K
.CharacterUnitLeftIndent = 0 rDFrreQP
.CharacterUnitRightIndent = 0 egu{}5
.CharacterUnitFirstLineIndent = -2 `4*I 1WZW
ox&5} &\
.LineUnitBefore = 0 8~(xi<"e
.LineUnitAfter = 0 `bQ_e Rw}
.SpaceBefore = 0 ,1ev2T
.SpaceAfter = 0 5Od%Jhtt
t2,II\K l
End With & ZD@-"@
ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False MT/jp x
ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll @JGmOwZ
ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS ]ogifnwv
ActiveDocument.Styles("QLNU参考文献").NoProofing = True m4m-JD |v
ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese Q:q0C
+T
DoEvents SrKit SG
e bze_:
' v*.R< - X:
ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") Y|R =^
=d\
ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" ndD>Oc}"3
ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False kx&JY9(&#
With ActiveDocument.Styles("QLNU论文题目").Font jq
H)o2"/
.NameFarEast = "黑体" SRfh{u
.NameAscii = "Arial Black" JwMRquQv
.NameOther = "Arial Black" 5az%yS
.Name = "Arial Black" IRbyW?/Xv
.Size = 16 btg= # u
.Bold = False ]0D- g2!|A
.Italic = wdUndefined <)ZQRE@
.Superscript = wdUndefined `%Fp'`ZM$8
.Subscript = wdUndefined Pk;w.
)kT
.Underline = wdUnderlineNone eJoM4v
.UnderlineColor = wdColorAutomatic D =ej%]@iw
.Color = wdColorAutomatic (m3hD)!+y
Ovt]3`U9J
End With qy|bOl
With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat EA~xxKq
.LineSpacingRule = wdLineSpaceSingle :-{"9cgF R
.Alignment = wdAlignParagraphCenter f AJyD`]Z
.WidowControl = True StJb-K/_cL
.KeepWithNext = True "=a3"/u
.KeepTogether = True Bj 7* 2}
.PageBreakBefore = True g !^N#o
.NoLineNumber = False 4<[?qd 3v=
.OutlineLevel = wdOutlineLevelBodyText jV2H61d
o(ow{S@=4
.LeftIndent = CentimetersToPoints(0) N1'"7eg/
.RightIndent = CentimetersToPoints(0) oB 1Qw'J
w
.FirstLineIndent = CentimetersToPoints(0) !*v%
s
xC Z_x$bk
.CharacterUnitLeftIndent = 0
J#` 7!
.CharacterUnitRightIndent = 0 :la i0>
D
.CharacterUnitFirstLineIndent = 0 ZFLmD|q#{
|!(8c>]Bo
.LineUnitBefore = 1 W5u5!L/
.LineUnitAfter = 1 k1,k 9BK
qlcd[Y*B
.BaseLineAlignment = wdBaselineAlignAuto = b%f@x_U1
End With yu6~: $%H
ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False L
$=R/ l
ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll kZF]BPh.
ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS IBN g2 Y
ActiveDocument.Styles("QLNU论文题目").NoProofing = True *fm?"0M5
ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese Q+1ot,R
ActiveDocument.Styles("QLNU论文题目").NoProofing = True w"0$cL3
DoEvents 0#NMNZ
9i\}
^ s2
'中文摘要 i6paNHi*
ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") jnqp"
Ult>
ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" k5< n:dS
ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False K#A&
With ActiveDocument.Styles("QLNU中文摘要").Font .
Z&5TK4I
.NameFarEast = "宋体" s{dm,|?Jl,
.NameAscii = "Times New Roman" )>M L7y
.NameOther = "Times New Roman" 0'd@8]|H
.Name = "Times New Roman" uL)MbM]
.Size = 12 zh) &6'S\
.Bold = wdUndefined 3}}/,pGSc
.Superscript = wdUndefined $tu
.Subscript = wdUndefined _-f LD
.Italic = wdUndefined !IOmJpl '
.Underline = wdUnderlineNone b=Nsz$[
.UnderlineColor = wdColorAutomatic )#AYb
.Color = wdColorAutomatic Z`*V9
End With "1s ]74
With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat 21OfTV-+3
.LineSpacingRule = wdLineSpaceExactly x[t? hl=:
.LineSpacing = 20 ftY&Q#[
.Alignment = wdAlignParagraphLeft w5z] =dN
}!
^h2)'7
.WidowControl = False `&NFl'l1C
.KeepWithNext = False 4>(K~v5;N
.KeepTogether = True 9SeGkwec?$
.PageBreakBefore = False m
ywx V
.NoLineNumber = False lB27Z}
.OutlineLevel = wdOutlineLevelBodyText 9
,f V
gp9O%g3'
.LeftIndent = CentimetersToPoints(0) 1le9YL1_g
.RightIndent = CentimetersToPoints(0) (m1m}* @
.FirstLineIndent = CentimetersToPoints(0) ai;!Q%B#Q
HJr/N)d
.CharacterUnitLeftIndent = 0 @zS/J,:v}
.CharacterUnitRightIndent = 0 _j+,'\B
.CharacterUnitFirstLineIndent = 2 d*+}_EV)Y3
.LineUnitBefore = 0 Lx- %y'P
.LineUnitAfter = 0 &3/`cl[+
4 Ah
F E@
End With 9-n]_AF`0
ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False .g/!u(iy
ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll ~"S5KroN
ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS \zJ^XpC
ActiveDocument.Styles("QLNU中文摘要").NoProofing = True )[hs#nKTh
ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese r5&c!b \
ActiveDocument.Styles("QLNU中文摘要").NoProofing = True _A]jiPq
ActiveDocument.Styles("QLNU中文摘要").Frame.Delete iY>x x~V
DoEvents 5tv*uz|fv
w8D8\`i!"
ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") _LF'0s*
ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" pXNhU88
ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False 6No.2Oo
With ActiveDocument.Styles("QLNU英文标题").Font _3
[E$Lg
.NameFarEast = "黑体" ;7Qe m&
.NameAscii = "Arial Narrow" I&|8
qx#
.Name = "Arial Narrow" Rb<|
<D+
.Size = 16 S*}GW-) oA
.Bold = True ^I/(9KP#
.Bold = wdUndefined M}jl \{
.Superscript = wdUndefined (NUXK
.Subscript = wdUndefined pjO
.Italic = wdUndefined jEKa9rt
Db2#QQ
.Underline = wdUnderlineNone 1%M^MT%&
.UnderlineColor = wdColorAutomatic mV]~}7*Y;
.StrikeThrough = False "^t7]=q
.DoubleStrikeThrough = False >]}VD "\
End With ~oOv/1v},
With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat B#."cg4VR
.LineSpacingRule = wdLineSpaceSingle qb nlD\
.Alignment = wdAlignParagraphCenter a?Om;-i2`S
.WidowControl = True \nOV2(FAT
.KeepWithNext = False w +rw<,u%
.KeepTogether = False toF6 Z
.PageBreakBefore = False [
2@Lc3<
.NoLineNumber = False &h [)nD
.FirstLineIndent = CentimetersToPoints(0) IF>v
-Z
.OutlineLevel = wdOutlineLevelBodyText AkjoD7.*
6AD&%v
.LeftIndent = CentimetersToPoints(0) @uC- dXA"
.RightIndent = CentimetersToPoints(0) akw:3 +`
.FirstLineIndent = CentimetersToPoints(0) Rt%Dps%
sUF5Y q:9
.CharacterUnitLeftIndent = 0 N+SA$wG
.CharacterUnitRightIndent = 0 b c
.Vy
.CharacterUnitFirstLineIndent = 0 Ge$& k
@lB1t=
D
.LineUnitBefore = 1 PvUY
Q>Kw
.LineUnitAfter = 1 9^S rOW6~
&\?{%xj
End With XF{2'x_R
ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False mp3 Dc
ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll #O^zA`D
ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS .WOF:Nu4
ActiveDocument.Styles("QLNU英文标题").NoProofing = True yMNOjs'c {
ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese WV} pE~
ActiveDocument.Styles("QLNU英文标题").NoProofing = True ^?%ThPo_
ActiveDocument.Styles("QLNU英文标题").Frame.Delete KI< x`b
DoEvents RW>F %P
lItr*,A]
ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") nb5%a
ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" 0T3r#zQ
ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False iv dPF dJ
With ActiveDocument.Styles("QLNU英文摘要").Font ?{Xp'D\z
.NameFarEast = "宋体" 0wBr_b!
.NameAscii = "Arial" 8Pom^QopK
.NameOther = "Arial" ICo Z<;p
.Name = "Arial" o\j<EQb.
.Size = 12 J!rZs kd
.Bold = wdUndefined #oG vxc7
.Italic = wdUndefined gKU*@`6G
.Superscript = wdUndefined j@JY -^~K5
.Subscript = wdUndefined $o\U q
End With EI9Yv>7 d{
Cyv_(Oh?dv
With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat kH=~2rwm
17Q*
<iCs
.LineSpacingRule = wdLineSpaceExactly ^1}ffE(3>
.LineSpacing = 20 ku^2 K
r'}#usB(
.Alignment = wdAlignParagraphJustify t
ORDtMM9+
x2i`$iNhmP
.WidowControl = False VAxk?P0j6
.KeepWithNext = False /9y'UKl7[
.KeepTogether = False 0g#?'sD
.PageBreakBefore = False jP @t!=
.NoLineNumber = False :Z
]E:f0P
0txSF^x
.OutlineLevel = wdOutlineLevelBodyText [0+5 Gx
/-pop]L
.LeftIndent = CentimetersToPoints(0) 0@f7`D
.RightIndent = CentimetersToPoints(0) mR{ %f?B
.FirstLineIndent = CentimetersToPoints(0) nDC5/xB
F7x< V=4{
.CharacterUnitLeftIndent = 0 '\m\$
{
.CharacterUnitRightIndent = 0 s|!b: Ms`
.CharacterUnitFirstLineIndent = 2 qfY=! |O
A&'HlI% J
.LineUnitBefore = 0 Jf2:[ Mq
.LineUnitAfter = 1 /=OSGIJzm
4ri)%dl1
End With J! eVw\6
ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False K3UG6S\ B
ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll Dc> )j s|"
ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS ,KibP_<%&P
ActiveDocument.Styles("QLNU英文摘要").NoProofing = False S67T:ARS
DoEvents ~?A,GalS
\;tKss!|
Options.Pagination = True QQjMC'
Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." .+AO3~Dg
DoEvents 8< ^6<c
ActiveDocument.Repaginate ( Gxv ?\
^?[^o\/@R
End Sub Vo2frWF$
eWx6$_|
[laX~(ND{
