Dim bContinue As Boolean ~zcHpxO^W
{cYS0%G o
Dim regEX As New RegExp =/|2f; Q
Dim paraCounter As Long '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 ?xb4y=P7
nO{ m2&r+
Dim LastTitle0String As String, LastTitle0No As Long \?|FB~.R y
Dim LastTitle1String As String, LastTitle1No As Long ! ^,<nP
Dim LastTitle2String As String, LastTitle2No As Long Kc%GxD`
Dim LastTitle3String As String, LastTitle3No As Long 1&wI*4
Dim LastTitle4String As String, LastTitle4No As Long t3w:!' Ato
Dim LastTitle5String As String, LastTitle5No As Long sK&[sN33
Dim LastTabelString As String, LastTableNo As Long oa K&!$S]
Dim LastFigureString As String, LastFigureNo As Long l1EI4Y9KG
]W7e2:Hra
Dim strSeperator As String 5 wT
e?
I 'qIc ?
Sub ConvertWidth(fTEXT As String, rText As String) `u *:wJsv
Selection.Find.ClearFormatting qZcRK9l]F1
Selection.Find.Replacement.ClearFormatting &* Aems{-
Selection.Find.Wrap = wdFindContinue +TWk}#G
Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText DO^K8~]
DoEvents g aq"+@fH
Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True +i
m >|
End Sub E &wz0d;gf
?FRuuAS
Sub ClearDomain() zS6oz =
With Selection.Find {cW%i:
.ClearFormatting t&
*K
.Replacement.ClearFormatting -/7[\S
.Wrap = wdFindContinue (9_O ||e e
Me.txtStatus.Text = "清除所有域代码" Avc9W[ 4
DoEvents qi& ;2Yv
.Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False qkg`4'rLg
End With Ha}
TdQ%
End Sub "E6*.EtTN#
t}! Y}D
Private Sub cmdCheck_Click() da
,Bnze0
bContinue = True B9&$sTAB
Dim NoSeries1(1 To 16) As String _UqE
-+&
Dim NoSeries2(1 To 16) As String v'vYN h
Dim NoSeries5(1 To 16) As String P`HDQ/^O
Dim NoSeriesRM(1 To 16) As String UP})j.z
Dim paraTotal As Long, ParaText As String l?UFe$9(
Dim ttString As String, ttNo As String >7[o=!^:4
{ +$zg g
Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long soTmKqj E
j&c YRKpz
Me.txtStatus.Visible = True |_Tp:][mf
Me.lbParaType.Visible = True f\{ynC2m
Me.cmdCheck.Enabled = False ~h <<-c
E;m-^dxc
L2L=~/LG
?KK
u1~a_
/jtU<u X
Dim ParaType As String, rText As String g Z^'h W-{
TrEo5
H ;
Selection.WholeStory !qQ B}sAf
Selection.NoProofing = True S=N3qBH6
[
|&V$
tm1 = Now V= ?qU&r<+
n' 42CE
ActiveWindow.View.Type = wdNormalView a9"1a'
lDV}vuM<4
NoSeries1(1) = "一" !I8m(a xW
NoSeries1(2) = "二" k|Syw A Tr
NoSeries1(3) = "三" 9 :ubPqt
NoSeries1(4) = "四" n;F/}:c_a
NoSeries1(5) = "五"
8vK$]e36
NoSeries1(6) = "六" mF@)l]UZ'
NoSeries1(7) = "七" $$ tFP"pZ
NoSeries1(8) = "八" C
=sEgtEI
NoSeries1(9) = "九" T"tR*2HwSd
NoSeries1(10) = "十" \a
.^5g
NoSeries1(11) = "十一" }+F&=-P)
NoSeries1(12) = "十二" &Se!AcvKF
NoSeries1(13) = "十三" b":3J)Y6.
NoSeries1(14) = "十四" GgNqc i,
NoSeries1(15) = "十五" +IM: jrT(
NoSeries1(16) = "十六" 2j UEL=+Y
FS1>
J%P
NoSeries2(1) = "㈠" C;EC4n+s
NoSeries2(2) = "㈡" \?VNr2
NoSeries2(3) = "㈢" )qL UHE=
NoSeries2(4) = "㈣" ptl
cG9d-
NoSeries2(5) = "㈤" 'T7=.Hq<4
NoSeries2(6) = "㈥" sb3k ? q
NoSeries2(7) = "㈦" !UV1OU
NoSeries2(8) = "㈧" {wNN p't7
NoSeries2(9) = "㈨" l0&Y",
vy
NoSeries2(10) = "㈩" H E'1Wa0r
}=fVO<R v
NoSeries5(1) = "①" :9O"?FE
NoSeries5(1) = "②" zBKfaQI,
NoSeries5(3) = "③" #AN ]mH
NoSeries5(4) = "④" DA(ur' D
NoSeries5(5) = "⑤" ?c;T4@mB
NoSeries5(6) = "⑥" v "K #
NoSeries5(7) = "⑦" TJhzyJ"t
NoSeries5(8) = "⑧" E;vF
:?|
NoSeries5(9) = "⑨" n$03 ##pf
NoSeries5(10) = "⑩" ~:ldGfb|
+pefk+
V(^aG=TaW:
NoSeriesRM(1) = "I" 'Wv`^{y <^
NoSeriesRM(2) = "II" ;
{ MK
NoSeriesRM(3) = "III" dP7nR1GS
NoSeriesRM(4) = "IV" EW :tb-%`
NoSeriesRM(5) = "V" r) SG!;X
NoSeriesRM(6) = "VI" Y!K5?kk
NoSeriesRM(7) = "VII" \uUd *
NoSeriesRM(8) = "VIII" FB\lUO)U\c
NoSeriesRM(9) = "IX" 'PBuf:9lN
NoSeriesRM(10) = "X" qI C9L"I
NoSeriesRM(11) = "XI" 6zf3A:]&{
NoSeriesRM(12) = "XII"
%^?yI
NoSeriesRM(13) = "XIII" L#}HeOEi[
NoSeriesRM(14) = "XIV" !gKz=-C
NoSeriesRM(15) = "XV" a(a 2xa
NoSeriesRM(16) = "XVI" XP |qY1
Bw`7ND}&
i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) K*]^0
@|i
f^
If i = vbNo Then @_L:W1[
Exit Sub >cV^f6fH
End If Ny6 daf3f
A;'*>NS
If Me.chkSuper.Value Then !VXs
yH3r5
Me.txtStatus.Text = "检查修改所有的上标格式" t
V:oBT*
p[J 8
r{'
CheckSuperScript M#?^uu'
it\U+xu
End If (=/%_jj
E;>Bc Pt5
If Me.chkStyle.Value Then O 7x'q<PFU
Me.txtStatus.Text = "设置样式，请稍候...." L
4x08 e
DoEvents 7F;dLd'
CeateOrModifyStyle #@v$`Df<
End If itpljh
97]$*&fH
"8%z,lHw
!i dQ-&
ClearDomain I.qP$ j
Ug1[pON k
Z{".(?+}1
y. A]un1
If Me.chkLIST.Value Then @8jc|X<A
Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" ,o{|W9
p T ;{05
ConvertListToOrdinary D#pZN,'
End If l[cBDNlrC;
(0c L!
N;;
u[>hs
\3k
Dim pType As String, trimpTEXT As String =ll{M{0Q]!
If Me.chkNum.Value = True Then c@ea
;Cv
Me.txtStatus.Text = "转换全角数字形式为半角" 5Y W.s
ConvertWidth "１", "1" v6$ }saTX
DoEvents 1/l;4~p7'
ConvertWidth "２", "2" RhPEda2
DoEvents Jy?#@ /~
ConvertWidth "３", "3" jb5nL`(j$
DoEvents Q
6)5*o8n
ConvertWidth "４", "4" n G+ L'SmI
DoEvents |rhCQ"H
ConvertWidth "５", "5" Onqd2'%<
DoEvents $ zR[2{bg
ConvertWidth "６", "6" 8!!iwmH{
DoEvents ^-Knx!z
ConvertWidth "７", "7" ,];4+&|8kW
DoEvents 5IsRIz[`TK
ConvertWidth "８", "8" y=H\Z/=
DoEvents <.N33 7!
ConvertWidth "９", "9" r{Stsha(
DoEvents @[ vwqPOL
ConvertWidth "０", "0" M
}H7`,@I
DoEvents V. f'C
w
ConvertWidth "ａ", "a" *@C ]\)
DoEvents vvDaL$
ConvertWidth "ｂ", "b" -y+u0,=p.
DoEvents Og8'K=O#
ConvertWidth "ｃ", "c" 4NN81~v 4
DoEvents aglW\L T^
ConvertWidth "ｄ", "d" GY[+HgT
DoEvents )HFl 0[vT
ConvertWidth "ｅ", "e" mDJg-B Q
DoEvents xwm-)~L4T
ConvertWidth "ｆ", "f" _Q
$D6+
DoEvents WL6p+sN'
ConvertWidth "ｇ", "g" "\: ZH[j
DoEvents \B$Q%\- PX
ConvertWidth "ｈ", "h" NETji:d
DoEvents ? # cX_
ConvertWidth "ｉ", "i" +~H mP Q
DoEvents qOi3`6LCV
ConvertWidth "ｊ", "j" w2mL L?P
DoEvents 82q_"y>6
ConvertWidth "ｋ", "k" bktw?{h
DoEvents 7ql&UIeQ
ConvertWidth "ｌ", "l" ,M)NC%0X
DoEvents DKzP)!B "
ConvertWidth "ｍ", "m" `Qc_]CWYH
DoEvents R 06zca
ConvertWidth "ｎ", "n" k\~A\UIYo
ConvertWidth "ｏ", "o" Kr*s]O
ConvertWidth "ｐ", "p" jxt^d
ConvertWidth "ｑ", "q" AVx 0a j
ConvertWidth "ｒ", "r" J6s55
v
ConvertWidth "ｓ", "s" 'h:[[D%H`
ConvertWidth "ｔ", "t" -H;%1y$A-
ConvertWidth "ｕ", "u" POouO/r$
ConvertWidth "ｖ", "v" 6$l6 >A
ConvertWidth "ｗ", "w" -nvK*r n>}
ConvertWidth "ｘ", "x" ,Z"l3~0\
ConvertWidth "ｙ", "y" qDPpGI-Y2e
ConvertWidth "ｚ", "z" @u WPo2
ConvertWidth "Ａ", "A" eL7rX"!
ConvertWidth "Ｂ", "B" u3Jsu=Nx-
ConvertWidth "Ｃ", "C" FQ72VY
ConvertWidth "Ｄ", "D" * Y hX6J1
ConvertWidth "Ｅ", "E" |RdiM&C7
ConvertWidth "Ｆ", "F" ~Xf&<&5d T
ConvertWidth "Ｇ", "G" qZ8 V/
ConvertWidth "Ｈ", "H" `c-(1 ;Jb
ConvertWidth "Ｉ", "I" Q.d Hg7+D
ConvertWidth "Ｊ", "J" o (OC3
ConvertWidth "Ｋ", "K" 5X'com?T
ConvertWidth "Ｌ", "L" ?pLKUA h
ConvertWidth "Ｍ", "M" DW,fh8 w
ConvertWidth "Ｎ", "N" \qU .?V[2
ConvertWidth "Ｏ", "O" A)X 'We
ConvertWidth "Ｐ", "P" .-0;:>
ConvertWidth "Ｑ", "Q" Mv O!p
ConvertWidth "Ｒ", "R" 6E
e U
iLd
ConvertWidth "Ｓ", "S" " * Qwaq_
ConvertWidth "Ｔ", "T" R\oas"
ConvertWidth "Ｕ", "U" 3}}#'5D
ConvertWidth "Ｖ", "V" ZV=)`E`I|
ConvertWidth "Ｗ", "W" -XSu;'4q
ConvertWidth "Ｘ", "X" GsG9;6c+u
ConvertWidth "Ｙ", "Y" qZ:-- ,9+
ConvertWidth "Ｚ", "Z" e+ZC<Bdh
ConvertWidth "^l", "^p" NV
F gRJ&
ConvertWidth "（", "(" ?b&~(,A{
ConvertWidth "）", ")" g@ ZZcBx
4*<27
End If nvyyV
\w
1HBdIWhHv.
With ActiveDocument 1Xv- e8M
Dim tbl As Table 4/rd r80
For Each tbl In .Tables @+S5"W
tbl.Rows.Alignment = wdAlignRowCenter jq4{UW'
tbl.Range.Font.NameFarEast = "楷体" &>!WhC16
tbl.Range.Font.NameAscii = "Times New Roman" 9%VN
zPzf
tbl.Range.Font.Size = 10.5 :h|nV
~
Next LAoX'^6
Set tbl = Nothing Q>FuNdUk
End With ) $wX~k
rdL>yT/A
p4|Zz:f
With ActiveDocument mB:I8g7
b;[u=9ez
For i = 1 To .TablesOfContents.Count
+bj[.
.TablesOfContents(i).Delete CDz-IQi
Next L% 7?o:
zqq$PaH*
h.\9a3B:r
b ~Qd9 Nf
paraTotal = .Paragraphs.Count [}/\W `C
paraCounter = 1 o~Im5j],*
igV4nL
LastTitle0No = 0 oXR%A 7
LastTitle1No = 0 #hBDOXH Pf
LastTitle2No = 0 ,a I0Aw
LastTitle3No = 0 a*8^M\ >m4
LastTitle4No = 0 8-HMKD#V
LastTableNo = 0 z]NN ^pIa
LastFigureNo = 0 NINaOs
n{~W s^d
Dim Sec As Long hE-u9i
8^H <dR
Sec = InputBox("正文从第一节开始？", "节设置", 6) SGU~ LW&
If Sec = 0 Then @ jE<V=?
Exit Sub 7@. UkBOx
End If }v [$uT-q
ya9V+/i7T_
k = 0 olC@nQ1c*
Do While (paraCounter < paraTotal) And bContinue 8: KlU(J
k = k + 1 C?FUc cI
If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then jocu=Se@
Exit Do y`~[R7E
End If !50Fue^JM
paraCounter = paraCounter + 1 Z
'%k`F
If k Mod 20 = 0 Then ZW}0{8Dk
Me.lbCounter.Caption = paraCounter . <|7BHL
DoEvents ~D4%7U"dv
End If 4g.y$
Loop | Wrf|%p
T/V 5pYl
o
<lS9 0J
Do While (paraCounter < paraTotal) And bContinue S*o%#ZJN
az (u=}
ParaText = Trim(.Paragraphs(paraCounter).Range.Text) 2 <aBUGA
ShapeHeight = 0 /lQGFLZL
ShapeWidth = 0 +yq Z \$ii
)ow|n^D($M
CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth #du!tx ( _
HDyus5g
Select Case ParaType \h%/Cp+p
Case "【】表格内容" ]Je A29
.Paragraphs(paraCounter).Style = "QLNU表格内容" O; qerE?i`
Case "章" 'w+T vOB
LastTitle0No = LastTitle0No + 1 aF:_ 1. LC
'新一章开始，复位其下属标题编号
*M t's[8
LastTitle1No = 0 .1yp}&e#
LastTitle2No = 0 -P09u82
LastTitle3No = 0 3N) b J
LastTitle4No = 0 5]WpH0kzO
[Ng#/QXk{
k = Val(ttNo) ,qgph^C
If k = 0 Then '非数字编号章节 rZDmZm?=
If ttNo <> NoSeries1(LastTitle0No) Then dpO ZqhRs.
rText = "第" & NoSeries1(LastTitle0No) & ttString g E/O 29Y
Me.ErrMsg.AddItem "章节编号错误：" & ParaText S-"&#OfWg<
End If )w8h2=l
Else pI>i1f=W
If Val(ttNo) <> LastTitle0No Then 9: bC{n
rText = "第" & LastTitle0No & ttString 6'e}!O
Me.ErrMsg.AddItem "章节编号错误：" & ParaText CL*i,9:NR
End If /\-qz$
VP$ `.y
End If oEE*H2l\
R}Ih~zw
'章段落设置 "28b&pm
'字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 R4< }kA,.
.Paragraphs(paraCounter).Style = "QLNU章节" F z_SID
.Paragraphs(paraCounter).Range.Select /5@V $c8
Selection.EndKey unit:=wdLine 9L}=xX`>?
tc = Replace(rText, vbCr, "") `0tzQ>ZQq
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False 21$YZlhJ
Case "一级标题" ( Ck |RojC
LastTitle1No = LastTitle1No + 1 AepAlnI@
'新一级标题开始，复位其下属标题编号 @<ba+z>"~4
LastTitle2No = 0 w. gI0`
LastTitle3No = 0 4VjP:
>*p
LastTitle4No = 0 m<>3GF,5bP
t)n!];
If ttNo <> NoSeries1(LastTitle1No) Then ZB'/D O=i
rText = NoSeries1(LastTitle1No) & "、" & ttString D >u1ngu
Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText M
@rknq@
End If C?e1 a9r
7m6@]S6
C@
` eYi
'一级标题段落设置 格式：一、标题内容 We#u-#k_O
.Paragraphs(paraCounter).Range.Text = rText r00 fvZyK
.Paragraphs(paraCounter).Style = "QLNU一级标题" D
7b<&D@
.Paragraphs(paraCounter).Range.Select sXm/+I^
Selection.EndKey unit:=wdLine *5k" v"NM(
tc = Replace(rText, vbCr, "") 6@-VLO))O
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False ? Sj3-*/?
Case "二级标题" 'aQ"&GX@
LastTitle2No = LastTitle2No + 1 C>q,c3s5
'新二级标题开始，复位其下属标题编号 3_W1)vd{
LastTitle3No = 0 m4{F-++dk
LastTitle4No = 0 **V^8'W<
\gRX:i#n
If ttNo <> NoSeries1(LastTitle2No) Then !M&L<0b:7e
rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString 3 T $gT
ErrMsg.AddItem "二级标题编号错误：" & ParaText /O1r=lv3Z
End If G J=<~S"
#A l.Itj
'二级标题段落设置 格式：(一)、标题内容 O_#Ag K<A
.Paragraphs(paraCounter).Range.Text = rText 33lD` 4 i+
.Paragraphs(paraCounter).Style = "QLNU二级标题" )8
ejT6r
[kx_Izi/T
.Paragraphs(paraCounter).Range.Select 48CLnyYiF
Selection.EndKey unit:=wdLine nz:I\yA
tc = Replace(rText, vbCr, "") gaaW:* *y
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 2 ", PreserveFormatting:=False 6 6x> *
Lrgv:n
Case "三级标题" 9x/HQ(1
LastTitle3No = LastTitle3No + 1 }qlU
'新三级标题开始，复位其下属标题编号 +(iM]L$Fw%
LastTitle4No = 0 n$Z@7r
=dD<[Iz6
If Val(ttNo) <> LastTitle3No Then TY[1jW~{r
rText = LastTitle3No & ". " & ttString
vgSs]g
Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText XSkN9LqZ
k=2]@K$%
End If MP\$_;&xB
'三级标题段落设置 格式：1. 标题内容 kAbRXID
.Paragraphs(paraCounter).Range.Text = rText k:nR'TI
.Paragraphs(paraCounter).Style = "QLNU三级标题" KH)(xB=
.Paragraphs(paraCounter).Range.Select 0FfBD[E:
Selection.EndKey unit:=wdLine 7@u0;5 p|
tc = Replace(rText, vbCr, "") W$7
db%qFx
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 3 ", PreserveFormatting:=False SF2A?L?}+
Case "四级标题" u+eA>{
LastTitle4No = LastTitle4No + 1 C`c;I7
)A9K9pZj
If Val(ttNo) <> LastTitle4No Then zhbp"yju7
rText = "(" & LastTitle4No & "). " & ttString N\ ?%944R
ErrMsg.AddItem "四级标题编号错误：" & ParaText 5|!x0H;
Ep/4o< N(
End If =e/{fUg8f
'四级标题段落设置 格式：(1). 标题内容 9^Q: l0|
.Paragraphs(paraCounter).Range.Text = rText
m!3L/ UZ
.Paragraphs(paraCounter).Style = "QLNU四级标题" a;J{'PHu
.Paragraphs(paraCounter).Range.Select `Q V}je
Selection.EndKey unit:=wdLine PR=:3-#R
tc = Replace(rText, vbCr, "") [#>ji+%=
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 4 ", PreserveFormatting:=False N.OC _H&
<JE-#i
Case "表格标题" & IVwm"
LastTableNo = LastTableNo + 1 ] %jlaXb
MhN)ZhsC
If ttNo <> CStr(LastTableNo) Then RwMK%^b
rText = "表" & LastTableNo & ". " & ttString 4]jN@@
ErrMsg.AddItem "表格编号错误：" & ParaText aJlSIw*Q,
B5>h@p-UV
End If l/,O9ur-
LC/9)Sh_n
'表格名称段落设置 格式：表1. 表格名称 D;. O # bS
.Paragraphs(paraCounter).Style = "QLNU表格标题" ,.t v#j|A
xe = Replace(rText, vbCr, "") O^v^GG=e;C
.Paragraphs(paraCounter).Range.Select TQDb\d8,f
Selection.MoveEnd wdCharacter, -1 '选择范围包括行尾的换行符。 S?Q4u!FC
Selection.Range.Text = xe E]` )
Selection.EndKey i.I iwe0G
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False lwhAF, '$
A-e#&pJ
Case "表格首行" jA R@?X
.Paragraphs(paraCounter).Style = "QLNU表格首行" e0%?;w-TL
Case "图片标题" Ml)~%ZbF
LastFigureNo = LastFigureNo + 1 euO!+ 9p
$F-qqkR$
If ttNo <> CStr(LastFigureNo) Then %pmo wo~{
rText = "图" & LastFigureNo & ". " & ttString YHN @?}T()
ErrMsg.AddItem "表格编号错误：" & ParaText S 8mqz.
S~fQ8t70
End If |[n-
H;0
'图片名称段落设置 格式：图1. 图名称 (.a: jL$
.Paragraphs(paraCounter).Range.Text = rText YRF%].A%2
.Paragraphs(paraCounter).Style = "QLNU图片标题" 0lR/6CB
.Paragraphs(paraCounter).Range.Select [$)C(1zY
Selection.EndKey unit:=wdLine l$D]*_ jc,
xe = Replace(rText, vbCr, "") ',k0 _n?t
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False v]|^.x:
Case "正文" rMIr&T
'正文名称段落设置 t6& 6kl
.Paragraphs(paraCounter).Style = "QLNU正文" `f`\j
-Lu
Case "文献条目" :Xc%_& )
With .Paragraphs(paraCounter) 6 ]^;
s1!
'.Range.Select [O
Bj2=
'Selection.ClearFormatting =s`\W7/;{-
'.Range.Find.Execute findtext:=rText, replacewith:=strSeperator 'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” !={Z]J
.Style = "QLNU参考文献" ]Ln 2|$R
End With Z.+-MN WV
Case "图表注解" Cdl#LVqs
With .Paragraphs(paraCounter) 09<O b[%h
.Range.Font.NameFarEast = "楷体" 9\RSJGx6
.Range.Font.NameAscii = "Times New Roman" |LA./%U
.Range.Font.Size = 9 '小5号字 *( @(9]B~
~TC z1UWV
.Alignment = wdAlignParagraphCenter ;u!qu$O
.LeftIndent = 0 f^il|Obzl
.RightIndent = 0 pOQ'k>!
.FirstLineIndent = 0 |i'V\"
hW
.LineSpacing = 12 zRPX
mu{t
.LineSpacingRule = wdLineSpaceExactly E+Z//)1Z
.LineUnitAfter = 0 qy=4zOOD#
.LineUnitBefore = 0 <@xp. Y
.OutlineLevel = wdOutlineLevelBodyText ;Pik},
.PageBreakBefore = False u9 rlNmf$
.RightIndent = 0 v;" [1w}
.WordWrap = True PV vNu5k
.LineUnitAfter = 0.5 4jefU}e9#
8qL *Nf
End With Qrjo@_+w!
Case Else VH7VJ [
'不作处理 |
Zx
End Select O, 6U pk
@0A7d
$J(
'含有inlineshape的段落处理 "M5P-l$p}
If ShapeHeight > 30 Then N%!8 I
.Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle '对有图片的段落设置为单倍行距 N*w/\|
End If w!o[pvyR$
u5^fiw]C
If (ShapeWidth + ShapeHeight) > 150 Then %7 h _D
.Paragraphs(paraCounter).Style = "QLNU图片段落" 44 ,: @
End If Ijq1ns_tx8
@.ebQR-:H
'段落计数器递 +c5z-X$^]
paraCounter = paraCounter + 1 !K^.r_0H.
Me.lbCounter.Caption = "当前检测段落：" & paraCounter r=6-kC!T9
Me.txtStatus.Text = ParaText W( IT s}O
DoEvents s 7re
Loop T{v(B["!$
End With {Y-<#U~iH
MjCD;I:C.
msg = "" o
%sBU
!a?$
For i = 0 To Me.ErrMsg.ListCount - 1 An cmSi
msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) 57IAH$n8o
Next (3YCe {
8B ;wn<O
6KPM4#61o
T6MlKcw,t
Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg =jIB5".
Me.cmdCheck.Enabled = True Lbk?( TL
Me.txtStatus.Visible = True S05+G}[$
Me.lbParaType.Visible = False _cdrz)T
^T`)ltI]V
bContinue = False 4d3]L`
f
End Sub ScU?T<u:i
=4cK9ac
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) 0FmYM@Wc
Dim pTEXT As String ?{l}35Q
.@
{ _QXx
pTEXT = ChKRange.Text n;8[WR)
W]MKc&R
ParaType = "其它" aOWW ..|
TitleString = pTEXT fCTdM+t
TitleNo = "N/A" braHWC'VYg
|F z/9+I
shpCounter = ChKRange.InlineShapes.Count J '9hzag
If shpCounter <> 0 Then NXsDn&&O
MaxShpHeight = 0: TotalShpWidth = 0 aP^,@RrL
For i = 1 To shpCounter ]b!o(5m
k = ChKRange.InlineShapes(i).Height ve[` 0
l = ChKRange.InlineShapes(i).Width $j*%}x~[
If k > MaxShpHeight Then } eh<F^
MaxShpHeight = k c'n EbelE
End If = #]^H c
TotalShpWidth = TotalShpWidth + l -b+VzVJ Z
Next |?{3&'`J8w
If MaxShpHeight > 60 Or TotalShpWidth > 150 Then ,K=\Y9l3
Exit Sub <6g{vNA
End If >aXyi3B
End If _4F(WC co
C o v,#j j
'空行 h<2
o5c|
If Len(pTEXT) <= 2 Then x
o2PxUO
Exit Sub ?t++IEoP
End If ;Ak<O [
n N1\
AE!DftI
'是否为表格中的文字 b ,"gBg
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then K|nh`r
ParaType = "表格内容" %D _2;
k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) I$ !rNfrs
If k = 1 Then yq+'O&+
ParaType = "表格首行" S0 ( ).2#
End If (A(7?eq
Exit Sub ek !x:G$'
End If !_CBf #0
gSQq
'例外情况：脚注 7l}P!xa&
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then vI3L <[W
ParaType = "脚注" 1'DD9d{ qN
Exit Sub ZGgKCCt
End If i[1K~yXq:
9x@( K|
'例外情况：尾注 9/3gF)I}
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then =.`(
KXT
ParaType = "尾注" Q qG f*
Exit Sub &}:'YK*X
End If S]&f+g}&w
SV#$Cf g
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then P34 UD:
ParaType = "页眉页脚" 8qGK"%{ ~
Exit Sub d_s=5+Yj
End If t E3#Uq
"F? p\I)(
%+gYZ v-
With regEX /f_w@TR\{
.Global = True <$bM*5sHF>
AsJN~<0h
.Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" CY~]lQ
If regEX.Test(pTEXT) Then uF Q;}k;}
ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") ax$ashFO/!
TitleString = regEX.Replace(pTEXT, "$3") 3)\jUVuj
TitleNo = regEX.Replace(pTEXT, "$1") &R+/Ie#0dz
ParaType = "章" G"P@AOw
Exit Sub w SoIU,I
End If _b8&$\>
h>\T1PM
.Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" Q ND{3Q
If regEX.Test(pTEXT) Then ZDEz&{3U;
ParaType = "一级标题" .l?sYe64S
regEX.Execute (pTEXT) x"xl3dRu
ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") J%ng8v5ex
TitleString = regEX.Replace(pTEXT, "$3") yh0zW
$
TitleNo = regEX.Replace(pTEXT, "$1") ?WPuTPw{
Exit Sub V45A>#?U
End If ap
hfzo
Vb^ P{F
'全角或半角括号中的数字 ..BIoSrj
.Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" ^o&3 +s} M
If regEX.Test(pTEXT) Then ~I[Z 2&I
ParaType = "二级标题" ybLl[K(D=
regEX.Execute (pTEXT) 8,iBG! RF
ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") r4&g~+ck
TitleString = regEX.Replace(pTEXT, "$5") V4I5PPz~
TitleNo = regEX.Replace(pTEXT, "$2") i AD'MB
Exit Sub 4/UY*Us&
End If D2N| A
Xg+
E
eg#
'阿拉伯数字 1. 2. (;DnL|"'8
.Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" 3!E*h0$}
If regEX.Test(pTEXT) Then kT6h}d^/^
ParaType = "三级标题" K|JpkEw
regEX.Execute (pTEXT) <q@/ Yy3 2
ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 |a
9d]^
TitleString = regEX.Replace(pTEXT, "$3") 2;h4$^`dt
TitleNo = regEX.Replace(pTEXT, "$1") j}9][Fm1*
Exit Sub FYPv:k
End If O[%"zO"S
/)RyRS8c
'全角或半角括号中的阿拉伯数字 x(oL\I_Z
.Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" .*\TG/ x
If regEX.Test(pTEXT) Then ]}7
FTMGbY
ParaType = "四级标题" !p$HS0c
regEX.Execute (pTEXT) eC`} oEz
ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") \Ps}1)w T
TitleString = regEX.Replace(pTEXT, "$5") '}#=I 9=ss
TitleNo = regEX.Replace(pTEXT, "$2") 4 WCWu}
Exit Sub J>_|hg=
End If 8@;|x2=y
5cj]Y)I-~
'表格名称 fz/Ee1T\
.Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" *_feD
+rq
If regEX.Test(pTEXT) Then $ 9bIUJ
ParaType = "表格标题" j9Qd
45
regEX.Execute (pTEXT) 2ZTz{|y
ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) >YG1sMV-J
TitleString = Trim(regEX.Replace(pTEXT, "$3")) wEd +Ds]$
TitleNo = Trim(regEX.Replace(pTEXT, "$1")) .\Gl)W
strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 9C&Xs nk
Exit Sub 6ub-NtVu
End If wUb5[m
s
Dq{h
'图片名称 A|jmp~@K)+
.Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" ,U`:IP/L
If regEX.Test(pTEXT) Then t &scvX h
ParaType = "图片标题" '-9B`O,&
regEX.Execute (pTEXT) s<3 cv
F<
ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") P5$d#Y(=
TitleString = regEX.Replace(pTEXT, "$3") sBUK v(U)
TitleNo = regEX.Replace(pTEXT, "$1") 2J?ON|2M
Exit Sub fny|^F]w
End If ~N
"rr.w
pJ8;7u
'参考文献 6/{V#.(
.Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})" '[数字]、 yM* CA,(c
If regEX.Test(pTEXT) Then TA;r
ParaType = "文献条目" eCejO59F9
'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") 2gP^+.
'TitleNo = regEX.Replace(pTEXT, "[$2] ") QuFzj`(
Exit Sub z~Zu >Q1u[
End If k;EG28
o[=h=&@5p
prfx = Left(pTEXT, 2) 2@7f^be
If prfx = "注：" Or prfx = "注:" Then _:dt8+T#
ParaType = "图表注解" =QdHji/sB
Exit Sub B%y?+4;zA
End If r 0m A
W5 l)mAv
%[3?v X
ParaType = "正文" ]QM{aSvXA
vNdMPu lr{
End With Ot,_=PP
End Sub N
R B>X
~x67v+I
Sub ConvertListToOrdinary() nsf.wHGZ"J
Dim st As Paragraph wXUP%i]i
=
With ActiveDocument sKE7U>mz|
For i = .Paragraphs.Count To 1 Step -1 :+?eF ^ 5
Set st = .Paragraphs(i) Ml-GAkgG
lst = st.Range.ListFormat.ListString (]c M ;
If lst <> "" Then |#OMrP+o i
st.Range.ListFormat.RemoveNumbers Buxn!s
st.Range.InsertBefore lst & " " `)i'1E [9
End If 0
0JH*I
Next wY$'KmNW
End With @34Z/%A
Set st = Nothing r .-U=ql
End Sub Pv-El+e!
m .:2G
Private Sub UserForm_Activate() v67utI SNI
Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" S"-q*!AhK
Me.lbTotal.Font.Bold = True Cu2eMUGt
Me.txtStatus.Visible = False op!ft/Yyb
Me.cmdCheck.Enabled = True k@}?!V*l
a4a/]q4T
End Sub R1,.H92
(i3V[H
o 8fB
Sub CheckSuperScript() lI,lR
Selection.Find.ClearFormatting Cd B sd
Selection.Find.Replacement.ClearFormatting 3)D' Yx
With Selection.Find `vbd7i
.Text = "[【\[［〖](*)[】\]〗］]" W~" 'a9H/
.Replacement.Text = "[\1]" sY|b y\-c
.Replacement.Font.Superscript = True w_
gFN% 8
'.Replacement.Font.Color = wdColorBlue XSfl'Fll D
.Forward = True 4c })LAwd&
.Wrap = wdFindContinue ;i;2cq
.FORMAT = True 9^yf'9S1
.MatchCase = False whH_<@!
.MatchWholeWord = False YJ6y]r
K2,
.MatchByte = False tr[(,kX
.MatchAllWordForms = False m!'moumL;
.MatchSoundsLike = False QmHj=s:x\
.MatchWildcards = True aL)}S%5o?
End With .(
)rb y
Selection.Find.Execute Replace:=wdReplaceAll $*k(h|XfwW
End Sub FCr^D$_w
dSdP]50M
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) %#AM }MWIa
bContinue = False &- 5`Oln
Set regEX = Nothing 5Q/&,NP
End Sub ^4G%*-
p* '%<3ml
Sub CeateOrModifyStyle() GbFtX\s+5j
' Ca2He}r`
' )Bz2-|\
Dim stl As Style cA,`!dG2,
$m
hIX A.
Options.Pagination = False ;FQ<4 PR$
[quT&E
On Error Resume Next zcqv0lM '
For Each stl In ActiveDocument.Styles !sTOo
stl.Delete w(, K
Next aLo^f= S
On Error GoTo 0 {pWb*~!k
Ur C>n
Set stl = Nothing ^ <$$h
Xl/ SDm_p
DoEvents Y5dt/8Jo
On Error Resume Next vHydqFi 9
X=1Po |
ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph E*B6
k!:
~]w|ULNa3|
ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph BB$(0mM^
ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph -(oFO'L bg
E%.w6-
ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph HpXQ D;
ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph e7O9q8b
"d
5nVO/
ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph J2_~iC&;s
ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph
c6 f=r
ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph pq T+lai)#
ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph T"bH{|:%*=
ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph T'W@fif
ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph 1QA{NAnu&
ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph !^Ly# $-X
+VSq [P
ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph SlaHhq3
ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph {M_*hR;lL
ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph d*B^pDf
ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph (GCe D-
ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph *ku}.n
eb#yCDIC
ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph tz^2?wO
On Error GoTo 0 8*bEs c|
DoEvents :cE6- Fv
Tr6J+hS
'BaseStyle Y^Y1re+}
ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False D4G* Wz8
With ActiveDocument.Styles("BaseStyle").Font z+5ZUS2~&
.NameFarEast = "宋体" av8\?xmo.$
.NameAscii = "Times New Roman" ,P>xpfdK
.NameOther = "宋体" Xn%t y@8
.Size = 10.5 :-[y
`/R
.Bold = wdUndefined _o +z#Fn z
.Italic = wdUndefined V7gv@<1<y
.Subscript = wdUndefined ?' 8(']/
.Subscript = wdUndefined )%zOq:{\5
q,Nhfo(
.Underline = wdUnderlineNone _8z ga
A
.UnderlineColor = wdColorAutomatic 7{BTtUMAC
.StrikeThrough = False ~K 2.T7=
.DoubleStrikeThrough = False 15l{
gbCW
4Ou5Vp&y
.Outline = False swTur
.Emboss = False lSG"c+iV
.Shadow = False o5(~nQ
.Hidden = False r3}Q1b&
.SmallCaps = False $b CN;yE
.AllCaps = False f,
i H M
.Color = wdColorAutomatic Gi +ZI{)
.Engrave = False c/'Cju W
.Scaling = 100 rlpbLO G`
.Kerning = 1 Lw1aG;5
.Animation = wdAnimationNone H6oU Ne
.DisableCharacterSpaceGrid = False 1; E^3j$
.EmphasisMark = wdEmphasisMarkNone AY(z9 &;6
End With Cu $mb}@
With ActiveDocument.Styles("BaseStyle").ParagraphFormat $sxm MP
.LeftIndent = 0 Ovhd%qV;Y
.RightIndent = 0 VpO+52&
.SpaceBefore = 0 >^Z==1
.SpaceBeforeAuto = False E9bc pup
.SpaceAfter = 0 Lu.C+zgQ
.SpaceAfterAuto = False sX
c|++
uE=pq<
.LineSpacingRule = wdLineSpaceSingle svWQk9d
.Alignment = wdAlignParagraphJustify }o:sU^Pwa
/>dH\KvN
.WidowControl = False xX :N-
.KeepWithNext = False =>m x>R`S
.KeepTogether = False H[DBL
.PageBreakBefore = False N?3BzI%?
.NoLineNumber = False nYb{?{_ca8
{/2
_"H3:
.FirstLineIndent = CentimetersToPoints(0) IQ] tcSQl
.OutlineLevel = wdOutlineLevelBodyText '
X9D( ?O
.CharacterUnitLeftIndent = 0 n85d
g
.CharacterUnitRightIndent = 0 ! uc"|S?
.CharacterUnitFirstLineIndent = 0 X~VJO|k pz
.LineUnitBefore = 0 -tH ^Deo
.LineUnitAfter = 0 05ZF>`g*
.AutoAdjustRightIndent = True %+bw2;a6
.DisableLineHeightGrid = True C[JGt 9{Y
xgQ&'&7l
.FarEastLineBreakControl = True 1
k \~%
.WordWrap = True \:5 M0
.Hyphenation = False g;eoH
~gi ,ky^!
.HangingPunctuation = True +?%L X4Y
.HalfWidthPunctuationOnTopOfLine = True 4Q? 3gA1
.AddSpaceBetweenFarEastAndAlpha = True 84f~.45
.AddSpaceBetweenFarEastAndDigit = True Pw|J([
.BaseLineAlignment = wdBaselineAlignBaseline .kqH}{hf
End With DQ`\H Y
ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False 9`FPV`/
ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll AM:lU
ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese xsERn F>`
ActiveDocument.Styles("BaseStyle").NoProofing = False xV\mS+#
(Wu J 9
'一级标题题样式 ^ V?W'~
ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") EG#mN pxE
ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" x!`~+f.6
ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False ]w5j?h" b
With ActiveDocument.Styles("QLNU一级标题").Font Z[GeU>?P
.NameFarEast = "黑体" sKniqWi
.NameAscii = "Arial Black" B.Y8O^rx
.NameOther = "黑体" &<Iz?AVr
.Name = "黑体" @x[Arx^?}
.Size = 16 '三号 }{S pV
.Bold = True rk)h_zN
.Italic = wdUndefined 40m>~I^q}
.Subscript = wdUndefined d) $B
.Superscript = wdUndefined ]b&O#D9
End With 7H$wpn
Zln
With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat B(ZK\]
mh i^zHpa
.LeftIndent = CentimetersToPoints(0) %SC%#_7
.RightIndent = CentimetersToPoints(0) d+L!s7
.FirstLineIndent = CentimetersToPoints(0) &fRZaq'2R
I=c}6
.LineSpacingRule = wdLineSpaceSingle tg"NWp6
.Alignment = wdAlignParagraphCenter +6;1.5Tc
ZQN% !2
.WidowControl = True pR c<U^Z.h
.KeepWithNext = True qgk C)
.KeepTogether = True +'ADN!(B_
.OutlineLevel = wdOutlineLevelBodyText
[eLU}4v{
;NPbEPL[5
.LineUnitBefore = 0.5 ,xOO R
.LineUnitAfter = 0.5 HlgkW& }c^
End With ~&%&Z
ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False L EJn
1
ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll Z~6PrM-M
ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese 5-B % 08T
ActiveDocument.Styles("QLNU一级标题").NoProofing = True V6a+VfH
DoEvents e .(
;-"'sEu}
'二级 E%e2$Kf D
ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") `&/ ~%>
ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" eZv G
ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False u?V
Tnsu
With ActiveDocument.Styles("QLNU二级标题").Font \Pt_5.bTs[
.NameFarEast = "黑体" X775j "<d
.NameAscii = "Arial Narrow" q
u+Zl1~$]
.NameOther = "黑体" *U:0c
;h
.Name = "黑体" #Nv)SCc
.Size = 15 '小三号 p;P
cD
.Bold = False BW{&A&j
.Outline = False Q$:>yveR*
.Italic = wdUndefined lr~c w#h*
.Subscript = wdUndefined Kn`-5{1B|
.Superscript = wdUndefined ATkx_1]KM-
End With Kq&JvY^
With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat qGhwbg
.LeftIndent = CentimetersToPoints(0) }WM!e"
.RightIndent = CentimetersToPoints(0) @mm~i~~KA
.FirstLineIndent = CentimetersToPoints(0) T(q/$p&q
m-AW}1:\f
.LineSpacingRule = wdLineSpaceSingle C p!Qd e
.Alignment = wdAlignParagraphLeft =&x
u"V
u0i;vO)MNt
.WidowControl = True i"OY =iw-N
.KeepWithNext = True /=+Bc=<lZ
.KeepTogether = True v?<Tkw ^F
.PageBreakBefore = False sV$Zf
`X)
.OutlineLevel = wdOutlineLevelBodyText Y
u e#
QQW]j;' ~
.LineUnitBefore = 0.5
R7NE= X4
.LineUnitAfter = 0.5 3c[< #] 8S
1 R, ?kUa
End With p`T,VU&.
ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False g'<ekY+V:
ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll q 7aH=dhw
ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese g"|/^G_6S
ActiveDocument.Styles("QLNU二级标题").NoProofing = True d45 mKla(V
DoEvents GI[XcK^*w
)^[PW&=W|x
'三级标题样式 +I[Hxf ~
ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") dA[S@ysvG
ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" g?> V4WF
ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False CMviR< .
With ActiveDocument.Styles("QLNU三级标题").Font
v7#`b}'W
.NameFarEast = "宋体" t(r}jU=qw
.NameAscii = "Times New Roman" 'E_~>
.NameOther = "黑体" c?7 Wjy
.Name = "黑体" 4fgYO]
.Size = 14 '四号 /
PTk296@
.Bold = False
.NRSBk
.Outline = False [e?vqm .
.Italic = wdUndefined XFJz\'{
.Subscript = wdUndefined mgI 7zJX
.Superscript = wdUndefined
6[S-%|f
End With 9 6j*F,{
With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat $G D@e0
.LeftIndent = CentimetersToPoints(0) yl UkVr
.RightIndent = CentimetersToPoints(0) Ns5'K^
.FirstLineIndent = CentimetersToPoints(0) Q/y"W,H#
+GFK!Pf
.LineSpacingRule = wdLineSpaceSingle
?8TIPz J
.Alignment = wdAlignParagraphLeft z z 2'h>
AB[#
.WidowControl = True oQ/ Dg+Xp
.KeepWithNext = True *sYvV,
.KeepTogether = True @*"H{xo.U
.PageBreakBefore = False p$!Q?&AV/
.OutlineLevel = wdOutlineLevelBodyText ! ~3zp L
8%#pv}
.CharacterUnitLeftIndent = 0 g;._Q
.CharacterUnitRightIndent = 0 `HV~.C
.CharacterUnitFirstLineIndent = 2 [;, X p/
) N kf'&
.LineUnitBefore = 0.5 I*OJPFZ^4
.LineUnitAfter = 0 1q N+AT
End With /A"UV\H`f
ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False m={TBV,L
ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll L)-1( e<x
ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese Fh
U* mAX)
ActiveDocument.Styles("QLNU三级标题").NoProofing = True NsUP0B}.
DoEvents ty-erdsP
@78%6KZ`i
'四级标题样式 fiZq C?(
ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") o@@,
}
ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" DWmViuZmL
ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False (\*+HZ`(Uu
With ActiveDocument.Styles("QLNU四级标题").Font Tt+E?C%Y
.NameFarEast = "宋体" !rPU5y *
.NameAscii = "Times New Roman" #@8JYzMq%
.NameOther = "宋体" SioP`*,}
.Name = "宋体" @; 0t+
.Size = 12 '小四号 {"n=t`E)3
.Bold = True YAJr@v+Ls
.Outline = False G{ 4lgkyy
.Italic = wdUndefined M#o'h c
.Subscript = wdUndefined -_+,HyJP
.Superscript = wdUndefined _n=,H
End With .xV^%e?H
With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat 3R)_'!R[B
CI+ @G XY
.LeftIndent = CentimetersToPoints(0) 3}gf %U]L
.RightIndent = CentimetersToPoints(0) b5t:" >wC
.FirstLineIndent = CentimetersToPoints(0) b1Fd]4H3P
ZJ'Tb<fP
.LineSpacingRule = wdLineSpaceSingle ! w2BD^V-
.Alignment = wdAlignParagraphLeft >Q% FW
&p_V<\(%
.WidowControl = True :WHbwu,L$
.KeepWithNext = True Kp?j\67S
.KeepTogether = True tVqc!][
.PageBreakBefore = False 0. lOSAq
.OutlineLevel = wdOutlineLevelBodyText
["M L&2|o
)9s
6(Iu
.CharacterUnitLeftIndent = 0 vD3j (d
.CharacterUnitRightIndent = 0 I`4k5KB;
.CharacterUnitFirstLineIndent = 2 ~LSD\+
Q@5v > `
.LineUnitBefore = 0 Gf\u%S!%
.LineUnitAfter = 0 a 1 .+L
P^J #;{R
End With C {2y*sx
ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False '
i<}/l
ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll K</="3
HK
ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese s8|F e_
ActiveDocument.Styles("QLNU四级标题").NoProofing = True t;L7H E@Y
DoEvents EU4j'1!&g<
;'P<#hM[$
'正文校式 a`_w9r+v
ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") {1m.d;(1
ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" .XPPd?R
ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False ' T%70)CM~
With ActiveDocument.Styles("QLNU正文").Font o7 1f<&1
zelM }/d
.NameFarEast = "宋体" E-"b":@:
.NameAscii = "Times New Roman" *wu|(t_ A
.NameOther = "宋体" vuO~^N]G
.Name = "宋体" WeE1 \
X\HP&;Wd
.Size = 12 '小四号 E)]RQ~jY?
'm|PSwB7
.Bold = wdUndefined X].Igb)2
.Italic = wdUndefined 87q ~
nk
.Subscript = wdUndefined Yu_`
>s o
.Superscript = wdUndefined FC
}r~syqA
q :-1 ul
.Outline = False /\ u1q <
.Emboss = False O ~&j}WN
.Shadow = False J8#3 ?Lp
.Hidden = False mt*/%>@7R
d6+{^v$#
.DisableCharacterSpaceGrid = True 8c5%~}kG
End With f3"sKL4|
With ActiveDocument.Styles("QLNU正文").ParagraphFormat p}d+L{"V
{bMOT*X=A
.LeftIndent = CentimetersToPoints(0) z,IUCNgM
.RightIndent = CentimetersToPoints(0) p$1y8Zbor
.FirstLineIndent = CentimetersToPoints(0) dO|n[/qL0
DxJY {e9
.LineSpacingRule = wdLineSpaceExactly &7L g) PG
.LineSpacing = 20 t# <(Q
.Alignment = wdAlignParagraphLeft dA=T+u
NW`L6wgl
.WidowControl = False %w#8t#[,6
.KeepWithNext = False KvkU]s_
.KeepTogether = False ^_!2-QY.~
.PageBreakBefore = False .qD=u1{p9
.Hyphenation = False z%44@TP
Y JMaIFt
.OutlineLevel = wdOutlineLevelBodyText *4?%Y8;bF6
6 6Bx,]"6
j,CVkA*DY
.CharacterUnitLeftIndent = 0 *D:uFo,xn
.CharacterUnitRightIndent = 0 |[/'W7TV%?
.CharacterUnitFirstLineIndent = 2 Tv /?-`Y
vd#BT $d?
.LineUnitBefore = 0 x{I,
gu|+
.LineUnitAfter = 0 ,pR.HCR#Y
.SpaceBefore = 0 I.h y"y2&
.SpaceAfter = 0 hhcO
]*
|eEXCn3{
.DisableLineHeightGrid = True =q?s B]n
End With )bR`uV9<
ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False Pe)SugCs
ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll B' !I{LC
ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese <-O^ol,fX
ActiveDocument.Styles("QLNU正文").NoProofing = True z-G*:DfgH
DoEvents {RHa1wc
#s3R4@{
'图片段落样式 MKZq*
ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") 9M Ug/
ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" akV-|v_
ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False B> V)6\
With ActiveDocument.Styles("QLNU图片段落").Font =L&dV]'4P
.Size = 12 '小四号 rkWiGiisM
.Italic = wdUndefined #Z1
<lAy
.Subscript = wdUndefined k5o{mWI b
.Superscript = wdUndefined 8 GW0w
End With erdA ?
With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat WI \jm&H r
$[{YE[a
.LeftIndent = CentimetersToPoints(0) / MV2#P@
.RightIndent = CentimetersToPoints(0) bguTWI8bk
.FirstLineIndent = CentimetersToPoints(0) L#Rj~&U
~U<=SyZYo
.LineSpacingRule = wdLineSpaceSingle 6![}Jvu>
.Alignment = wdAlignParagraphCenter H rI(uZ]
.KeepWithNext = True E4qQ
.OutlineLevel = wdOutlineLevelBodyText Bf8[(oc~
N%fDgK
.CharacterUnitLeftIndent = 0 #?klVK&e/
.CharacterUnitRightIndent = 0 RR[1mM
.CharacterUnitFirstLineIndent = 0 3fdqFJ O
~R
C\
.LineUnitBefore = 0 bo40s9"-*W
.LineUnitAfter = 0 `*w!S8} m;
End With "eZ~]m}L0
ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False ;kR +jC(
ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll (%SKTM
ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese cs7K^D;.V
ActiveDocument.Styles("QLNU图片段落").NoProofing = True X^7n/|%*.
DoEvents {I]>!V0j!
ak$D1#hY
p%ZAVd*|#V
'第X章 uow{a*q d6
ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") KSxZ4Y
ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" @ *n oma
ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False `=19iAp.
With ActiveDocument.Styles("QLNU章节标题").Font Ut
hM?g^
.NameFarEast = "黑体" 'l6SL -
<
.NameAscii = "Arial Black" :@K~>^+U
.NameOther = "Arial Black" ?eOw8Rom
.Name = "黑体" ;(Kj-,>
.Size = 16 uh&Qdy!I
.Bold = True ]qO*(m:}o
.UnderlineColor = wdColorAutomatic ?d`j}
.Outline = False ma e@
L
.Italic = wdUndefined x yy
EaB
.Subscript = wdUndefined 2g$;ZBHO|8
.Superscript = wdUndefined $n_ax\15
.Scaling = 100 IyoitIbLl
.DisableCharacterSpaceGrid = True 0i~?^sT'
End With "V{v*Aei0
With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat K-4 o_:F
.LineSpacingRule = wdLineSpaceSingle h_\OtoRa
.Alignment = wdAlignParagraphCenter p
"d _+
.WidowControl = True *IIuGtS
.KeepWithNext = True oN&U@N/>aU
.KeepTogether = True `{ ` W-C
.PageBreakBefore = True kadw1sYj
.OutlineLevel = wdOutlineLevelBodyText
,)Z1&J?
DQ hs tXX
.LeftIndent = CentimetersToPoints(0) ,| ~Pa
.RightIndent = CentimetersToPoints(0) ewVks>lbz
.FirstLineIndent = CentimetersToPoints(0) @
GXi{9
~%QI#s?|
.CharacterUnitLeftIndent = 0 rHJtNN8$k
.CharacterUnitRightIndent = 0 !;E{D
.CharacterUnitFirstLineIndent = 0 I
T gzD"d
Yk= 2ld;;
.LineUnitBefore = 1 3h**y
%^
.LineUnitAfter = 0.5 h1Logm+m
?v}S9z
.AutoAdjustRightIndent = False r;SOAucX
.DisableLineHeightGrid = True uL
|O <
.FarEastLineBreakControl = True L^e %oQ>s
.WordWrap = True k]~|!`
End With sPRo=LB
ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False Q&8epO |J
ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll Nc:0op PM
ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese }E#1Z\)
ActiveDocument.Styles("QLNU章节标题").NoProofing = True = PIarUJ
DoEvents w 3$9
_`+2e-
'表格标题 i9 v|*ZM"
ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") jq( QL%)_O
ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" _NN5e|t
ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False "J>8ZUP
With ActiveDocument.Styles("QLNU表格标题").Font
DMiB \o
.NameFarEast = "楷体" /kNSB;
.NameAscii = "Arial" ,nSapmg
.Name = "楷体" QS%t:,0lp
.Size = 10.5 9" f
.Bold = True -~ H?R
.Underline = wdUnderlineNone DT3koci(
.Italic = wdUndefined 1R"Z+tNB
.Subscript = wdUndefined =PYS5\k
.Superscript = wdUndefined y)mtSA8
.Color = wdColorAutomatic tb;u%{S
End With 9@wmngvM*Y
With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat <~n%=^knE
m(CAXq-t
.LineSpacingRule = wdLineSpaceSingle g]jCR*]
.Alignment = wdAlignParagraphCenter {9XQ~t"m^
.KeepWithNext = True +%? \#E QJ
.KeepTogether = True h7J 4 p
.OutlineLevel = wdOutlineLevelBodyText ub]" b[j\1
Tzr'3m_
.LeftIndent = CentimetersToPoints(0) |6 E
!wW
.RightIndent = CentimetersToPoints(0) Esdw^MGL2
.FirstLineIndent = CentimetersToPoints(0) :i oD *k
m O&zE;/[
.CharacterUnitLeftIndent = 0 n7pjj
.CharacterUnitRightIndent = 0 ^ wb 9 n
.CharacterUnitFirstLineIndent = 0 gfQ1p ?
`qhZZ{s)1U
.LineUnitBefore = 1 HleMzykF
.LineUnitAfter = 0
>;+q,U}
fF.sT7Az+
End With V?-SvQIk1
ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False ?6 //'bO:%
ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll b]
~
ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese >Do P2]
ActiveDocument.Styles("QLNU表格标题").NoProofing = True J=Hy oz+9
DoEvents li9>zjz
*}=z^;_oq
'表格首行 }xpo @(e
ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") :Hj #1-U
ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False V-x/lo]Co
With ActiveDocument.Styles("QLNU表格首行").Font XvI Y=~
.NameFarEast = "楷体" +u
;RF
Y^
.NameAscii = "Times New Roman" _zDf8hy
.Name = "楷体" . H9a
.Size = 9 FQM9>l@6)>
.Bold = True i
Ie{L-Na
.Underline = wdUnderlineNone {QVs[
J1
.Italic = wdUndefined 9YY*) 5eyD
.Subscript = wdUndefined zXM L<?w
.Superscript = wdUndefined :I8HRk
p
End With O6 n ]l
With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat c|Fu6LF a
.LineSpacingRule = wdLineSpaceSingle V vTi>2(.
.Alignment = wdAlignParagraphCenter 2<tU
Yz ? 8n
.LeftIndent = CentimetersToPoints(0) + I4s 0
.RightIndent = CentimetersToPoints(0) w3 jcit|
.FirstLineIndent = CentimetersToPoints(0) `Hd~H
h
I7ur
m.ejGm?
.CharacterUnitLeftIndent = -0.5 4nKlW_{,
.CharacterUnitRightIndent = -0.5 s3y" y_u
.CharacterUnitFirstLineIndent = -0.5 fr<V ])
Lc_cB`
.LineUnitBefore = 0 [ ps 5
.LineUnitAfter = 0 6xoCB/]
.SpaceBefore = 0 Wd?=RO`a
.SpaceAfter = 0 Aaz2._:/-m
yny1i9
y
End With ,tak{["
ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False gmN$}Gy}
ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll
liPa T
ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese e# (X++
G
ActiveDocument.Styles("QLNU表格首行").NoProofing = True t(p}0}Pp
DoEvents /ommM
;&$f~P Q
'表格内容 X9;51JV
ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") 9}z%+t8u
ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False U3BhoD#f\
With ActiveDocument.Styles("QLNU表格内容").Font 4P^CqD &i
.NameFarEast = "楷体" j bp?6G W
.NameAscii = "Times New Roman" _*CbtQb5
.Name = "楷体" o <Qt<*
.Size = 9 G(gZL%M6
.Bold = False Zw_'u=r
>
.Underline = wdUnderlineNone W|\
$}@>
.Italic = wdUndefined S#nW )=
.Subscript = wdUndefined Ue U`U
.Superscript = wdUndefined F
TWjIa/[
End With qe |U*K
2_
With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat &{g y{npQ
.LineSpacingRule = wdLineSpaceSingle <jG[
z69)
.Alignment = wdAlignParagraphCenter i!yE#zew
q,>4#J[2;s
.LeftIndent = CentimetersToPoints(0) ^w
z 2e
.RightIndent = CentimetersToPoints(0) 8dwKJ3*.
.FirstLineIndent = CentimetersToPoints(0) G{gc]7\=Cd
.q|k459oi
.CharacterUnitLeftIndent = -0.5 ,$ Xhw
r
.CharacterUnitRightIndent = -0.5 mb*|$ysPx
.CharacterUnitFirstLineIndent = -0.5 :H>0
/^Mg0
.LineUnitBefore = 0 s
PvjJ r"s
.LineUnitAfter = 0 7' Gk ip
.SpaceBefore = 0 2*a5pFkb
.SpaceAfter = 0 dz1kQ zOU*
End With <aQ5chf7
ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False tv%B=E!r
ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll U&0 RQ:B
ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese "x
O+
ActiveDocument.Styles("QLNU表格首行").NoProofing = True 6UM1>xq9A
DoEvents ~ nb1c:F
F
h+g@ u6
'图片标题 i JS7g
ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") -l ?\hmDl
ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" Iqq BUH
ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False =Y5_@} \0
With ActiveDocument.Styles("QLNU图片标题").Font
75;g|+
.NameFarEast = "楷体" C/MQY:X4
.NameAscii = "Times New Roman" \ `R8s_ S
.Name = "楷体" AA0\C_W0p
.Size = 10.5 ;),vUu,k
.Bold = True ] E^)d|_
.Underline = wdUnderlineNone
yaPx=^&
.Italic = wdUndefined WJy\{YAG
.Subscript = wdUndefined t"P:}ps{?
.Superscript = wdUndefined s&1}^'|
.Outline = False fndbGbl8p
.Shadow = False a?@ lX>Z
.Color = wdColorAutomatic v(p<88.!m
End With t]E@AJO K
With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat
QypUB
f
.LineSpacingRule = wdLineSpaceSingle {M c;B9W
.Alignment = wdAlignParagraphCenter P4fnBH4OQ
!Y10UmMu
.KeepWithNext = wdUndefined #]r'?GN
.KeepTogether = True >1$Vh=\OI
.OutlineLevel = wdOutlineLevelBodyText eu'S~c- l
R p0^Gwa
.LeftIndent = CentimetersToPoints(0) <[?ZpG
.RightIndent = CentimetersToPoints(0) Rd[^)q4d$w
.FirstLineIndent = CentimetersToPoints(0) rp=Y }
}#6~/
W
.CharacterUnitLeftIndent = 0 -|I _aOC@
.CharacterUnitRightIndent = 0 ,,]<f*N
.CharacterUnitFirstLineIndent = 0 iw{^nSD
\|CuTb;0
.LineUnitBefore = 0 MH |R @g
.LineUnitAfter = 0 L| ;WE=
End With +asO4'r
ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False K9 ek
ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll .0p'G }1
ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese tgY/8& $M
ActiveDocument.Styles("QLNU图片标题").NoProofing = True
{RI)I
DoEvents X n02p,,
Ho1 V)T>
'目录项 yz=aJ
v;
H
ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") 77-G*PI*I
ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" r?/!VO-*N
ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False } ^2'@y!(
With ActiveDocument.Styles("QLNU目录项").Font ,n$NF0^l
.NameFarEast = "黑体" k|^`0~E
.NameAscii = "Times New Roman" & l0L
W,Bx
.NameOther = "Times New Roman" Z29aRi
.Name = "黑体" O bc>f|l]
.Size = 10.5 O]KQ]zN
.Bold = False f o idneus
.Italic = wdUndefined ]I\9S{?
.Underline = wdUnderlineNone XrI$ @e*
.Color = wdColorAutomatic -6$GM J7
.Superscript = wdUndefined v1p^=" IHI
.Subscript = wdUndefined a}X. ewg
End With o{3>n" \w3
With ActiveDocument.Styles("QLNU目录项").ParagraphFormat j<)`|?@e(
3~?m?vj|Y
.LineSpacingRule = wdLineSpaceSingle 0cq
<!{ d
.Alignment = wdAlignParagraphLeft 51xf.iB
%DM0Z8P$B-
.WidowControl = False U: bnX51D4
.KeepWithNext = False "O~kIT?/v
.KeepTogether = False 1Cw
HGO
.PageBreakBefore = False g]E3+: 5dk
.NoLineNumber = False biENRJQ.
.OutlineLevel = wdOutlineLevelBodyText *Tr9pq%m
#I\" 'n5M
.LeftIndent = CentimetersToPoints(0) S|F:[ (WaM
.RightIndent = CentimetersToPoints(0) KxDp+]N]
.FirstLineIndent = CentimetersToPoints(0) gt\kT n."
Ey% KbvNv
.CharacterUnitLeftIndent = 0 xNjWo*y v
.CharacterUnitRightIndent = 0 a\&g;n8jA
.CharacterUnitFirstLineIndent = 0 Zgo%Jo
)r
?- _qj=
.LineUnitBefore = 0 &Tg~A 9y\
.LineUnitAfter = 0 %e:[[yq)G
End With 3Hi8=*
ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False vRH2[{ KQ9
ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll @@ cc /S
ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot }
L _Zmi$
ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese $g),|[ x+(
ActiveDocument.Styles("QLNU目录项").NoProofing = True tV h"C%Vkr
DoEvents L%+mD$@u
; ,s9jw
'参考文献 Pbt7 T
Q
ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") &@=W+A=c~
ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" [Y.=bfV!
ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False l#Vg=zrT
With ActiveDocument.Styles("QLNU参考文献").Font qG +PqK;
.NameFarEast = "宋体" M 0$E _*
.NameAscii = "Times New Roman" g .\%jDM
.NameOther = "Times New Roman" k 7:Z\RGy
.Name = "Times New Roman" ^bq,+1;@Q
.Size = 12 {W HK|l
.Bold = False y9.?5#aL
.Italic = wdUndefined O=6[/oc
'
.Subscript = wdUndefined r1 b"ta
.Superscript = wdUndefined W}#n .c4+
.Underline = wdUnderlineNone fk!9 ` p'
.UnderlineColor = wdColorAutomatic :6]qr 86
.Color = wdColorAutomatic +.Xi7x+#O
.Engrave = False MG~bDM4
End With <GF^VT|Ce
With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat v-wZHkdd1
3-'3w ,
.LineSpacingRule = wdLineSpaceExactly !j}L-1*{ l
.LineSpacing = 16 *%*B o9a/
.Alignment = wdAlignParagraphLeft "C?H:8W
.WidowControl = False uW2 q\
.KeepWithNext = False y CN?kH
G
.KeepTogether = False e^;%w#tEqI
.PageBreakBefore = False txE+A/>i9
.OutlineLevel = wdOutlineLevelBodyText d{"@<0i?
G Wv i
.LeftIndent = CentimetersToPoints(0) vM50H
.RightIndent = CentimetersToPoints(0) u60RuP&
.FirstLineIndent = CentimetersToPoints(0) Wb[k2V
g>l+oH[Tv|
.CharacterUnitLeftIndent = 0 iB` EJftI!
.CharacterUnitRightIndent = 0 -hc8IS
.CharacterUnitFirstLineIndent = -2 ).AMfBQ=;
J 5xMA-
.LineUnitBefore = 0 vm h>|N4a7
.LineUnitAfter = 0 | AiMx2
.SpaceBefore = 0 7C R6 ew~
.SpaceAfter = 0 3W{ !\
JKy~ '>Q
End With `j VRabZ0
ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False {
h
PB%
ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll <@Vf:`a!P>
ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS q@tym5
ActiveDocument.Styles("QLNU参考文献").NoProofing = True nxNHf3
ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese %> 5>wP
DoEvents LR'; c
R;
%0 i)l|
' Ubgn^ +AI
ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") Y[H7 69
ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" N, l"9>CF
ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False XUnw*3tPJ
With ActiveDocument.Styles("QLNU论文题目").Font /nn~&OU
.NameFarEast = "黑体" hRMy a#%-
.NameAscii = "Arial Black" uP(t+}dQ+3
.NameOther = "Arial Black" IUNr<w<
.Name = "Arial Black" K$w;|UJc
.Size = 16 gA%
A})
.Bold = False _3< P(w{
.Italic = wdUndefined Cy *.pzCi
.Superscript = wdUndefined r=~K#:66
.Subscript = wdUndefined g>k?03;
.Underline = wdUnderlineNone EiG5k.C@
.UnderlineColor = wdColorAutomatic DEbMb6 )U
.Color = wdColorAutomatic t=9f:,I$
/0$fYrg >J
End With tY:
Nq*@
With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat crN*eFeW
.LineSpacingRule = wdLineSpaceSingle <fF|AbC:
.Alignment = wdAlignParagraphCenter 1z4_QZZ.NG
.WidowControl = True C!c h
!E#
.KeepWithNext = True pWq+`|l$
.KeepTogether = True 'GT^araz
.PageBreakBefore = True r-yUWIr
S
.NoLineNumber = False :Z x|=
.OutlineLevel = wdOutlineLevelBodyText %V+"i_{m
TiF+rA{t
.LeftIndent = CentimetersToPoints(0) T] nAz<l),
.RightIndent = CentimetersToPoints(0) b%vIaP|]B
.FirstLineIndent = CentimetersToPoints(0) r)OiiD"
(\!?>T[En
.CharacterUnitLeftIndent = 0 -e_o p'`
.CharacterUnitRightIndent = 0 E
AZX
.CharacterUnitFirstLineIndent = 0 ZhoV,/\+
`(
w"{8laB
.LineUnitBefore = 1 >o O]S]W
.LineUnitAfter = 1 ?5/7
@V
!zllv tK4
.BaseLineAlignment = wdBaselineAlignAuto
{f@Q&(g
End With 5-y*]:g(
ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False I N.g
ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll h(<>s#=E
ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS ch25A<O<R.
ActiveDocument.Styles("QLNU论文题目").NoProofing = True >^G V
#z
ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese 3 W]gn8
ActiveDocument.Styles("QLNU论文题目").NoProofing = True V1pBKr)v
DoEvents 0{ ~2mgg h
:0QDV~bs
'中文摘要 l1KgPRmEP
ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") a(=lQ(v/?
ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" qDYNY`
ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False {dm>]@"S
With ActiveDocument.Styles("QLNU中文摘要").Font ,.}
%\GhY
.NameFarEast = "宋体" e([> sAx!1
.NameAscii = "Times New Roman" |xg _z&dX
.NameOther = "Times New Roman" kkWv# ,qwU
.Name = "Times New Roman" l#%7BGwzY
.Size = 12 a2tEp+7?
.Bold = wdUndefined g6;smtu_T
.Superscript = wdUndefined ^i_+ugJX
.Subscript = wdUndefined nj1o
!+9>$
.Italic = wdUndefined OM{ ^F=Ap
.Underline = wdUnderlineNone UoKVl-
.UnderlineColor = wdColorAutomatic m C`*#[
.Color = wdColorAutomatic Em^~OM3U$q
End With qw
?(^uZNW
With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat ^m&I^ \
.LineSpacingRule = wdLineSpaceExactly .a7RGT3]m
.LineSpacing = 20 ~LZrhwVj$
.Alignment = wdAlignParagraphLeft Rb. vyQ
>TY;l3ew
.WidowControl = False <U1T_fiBoc
.KeepWithNext = False Ff(};$/& W
.KeepTogether = True 9} m?E<6&
.PageBreakBefore = False T&+3Xi:
.NoLineNumber = False m#Z&05^
.OutlineLevel = wdOutlineLevelBodyText } Z FoCMM
d9BFeq8
.LeftIndent = CentimetersToPoints(0) 3T0~ k--
.RightIndent = CentimetersToPoints(0) B+mxM/U[c
.FirstLineIndent = CentimetersToPoints(0) ^D6
TeH
k sXQ}B E
.CharacterUnitLeftIndent = 0 q7f`:P9~
.CharacterUnitRightIndent = 0 elQjPv b
.CharacterUnitFirstLineIndent = 2 K@{0]6
.LineUnitBefore = 0 3Ovx)qKxd
.LineUnitAfter = 0 )G Alj;9A$
6<$.Z-,
End With ;Q^>F6+_m
ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False
Dmr*Lh~
ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll
{it}\[3
ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS 0<a|=
kZ
ActiveDocument.Styles("QLNU中文摘要").NoProofing = True /e |Lw4$@S
ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese BV:Ca 34&
ActiveDocument.Styles("QLNU中文摘要").NoProofing = True A [ncwJ
ActiveDocument.Styles("QLNU中文摘要").Frame.Delete `[g$EXX
DoEvents AU}kIm_+
lwrh4<~\,*
ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 2#sFY/@
ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" d&raHF*
ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False F8"J<VJ7
With ActiveDocument.Styles("QLNU英文标题").Font $
P 5K
.NameFarEast = "黑体" v_Sa0}K9
.NameAscii = "Arial Narrow" =CJ`0yDQ>
.Name = "Arial Narrow" yF? O+9R
A
.Size = 16 DXI4DM"15I
.Bold = True !%ju.Xs8
.Bold = wdUndefined Z, e|L4&
.Superscript = wdUndefined ] % HxzJ
.Subscript = wdUndefined m*A b<$y
.Italic = wdUndefined ?d^6ynzn
Mms|jF oQ
.Underline = wdUnderlineNone 6p*X8j3p W
.UnderlineColor = wdColorAutomatic Wc2&3p9 c
.StrikeThrough = False >
Zs!
.DoubleStrikeThrough = False ?]$<Ufr
End With 8 = TC 3]
With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat pu]U_Ll@
.LineSpacingRule = wdLineSpaceSingle r KUtTj
.Alignment = wdAlignParagraphCenter B=L!WGl<!
.WidowControl = True }DS%?6}Sy
.KeepWithNext = False d"0 6
gp
.KeepTogether = False GDSXBa*7
.PageBreakBefore = False wT\BA'VQ
.NoLineNumber = False (${ #l
.FirstLineIndent = CentimetersToPoints(0) J8p; 1-C"
.OutlineLevel = wdOutlineLevelBodyText 7@%qm|i>w
n:OXv}pv
.LeftIndent = CentimetersToPoints(0) #Iv KI+"
.RightIndent = CentimetersToPoints(0) $ wp>2
.FirstLineIndent = CentimetersToPoints(0) ]v
vA]e
R20 .dA_N
.CharacterUnitLeftIndent = 0 I
9qFXvqL
.CharacterUnitRightIndent = 0 Eu'E;*- f
.CharacterUnitFirstLineIndent = 0 yRyX lZC
b4-g
NF]Yt
.LineUnitBefore = 1 F
| BY]{
.LineUnitAfter = 1 <)wLxWalF
N6"sXw m
End With rz IWQ
Fv
ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False vJ}WNvncVF
ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll {)l Zfj}l
ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS L6PgWc;m
ActiveDocument.Styles("QLNU英文标题").NoProofing = True 4KtD
k
ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese KR?aL:RYb
ActiveDocument.Styles("QLNU英文标题").NoProofing = True ;mQ |+|F6X
ActiveDocument.Styles("QLNU英文标题").Frame.Delete )) f@9m
DoEvents Rw{'
O]Q*
T p?IK_
ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") ?Y3i-jY
ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" |ymW0gh7o$
ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False R}gdN-941
With ActiveDocument.Styles("QLNU英文摘要").Font 2A; i
.NameFarEast = "宋体" \-pwA j?
.NameAscii = "Arial" L%/>Le}VX
.NameOther = "Arial" #p>&|I
.Name = "Arial" Os'E 7;:1h
.Size = 12 kC%H E
.Bold = wdUndefined J< "K`|F
.Italic = wdUndefined dN3^PK
.Superscript = wdUndefined * @]wT '
.Subscript = wdUndefined #%@bZ f
End With q"<=^vi
9 d a=q
With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat Lw,}wM
5X
QUn!& 55
.LineSpacingRule = wdLineSpaceExactly [mu8V+8@d4
.LineSpacing = 20 !DFTg 4xb
JCn HEH
.Alignment = wdAlignParagraphJustify JxtzI2
<q!HY~"V
.WidowControl = False ]jxyaE&%4
.KeepWithNext = False 7HH@7vpJ^
.KeepTogether = False 5?SE?VC=t
.PageBreakBefore = False @I? ,!3`jS
.NoLineNumber = False UTh2? Rh/
zPp22
.OutlineLevel = wdOutlineLevelBodyText x5uz$g
@3KS
oA"^
.LeftIndent = CentimetersToPoints(0) v77UE"4|c
.RightIndent = CentimetersToPoints(0) 8c-ys-"#
.FirstLineIndent = CentimetersToPoints(0) ocWl]h].
nt$P A(Y
.CharacterUnitLeftIndent = 0
dx AGO(
.CharacterUnitRightIndent = 0 ]pBEoktp
.CharacterUnitFirstLineIndent = 2 y EfAa 6
81x/ bx@L%
.LineUnitBefore = 0 GqL&hbpi
.LineUnitAfter = 1 m_oUl(pk
p-{ 4 $W
End With \ YF@r7
ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False =Pw{1m|k
ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll 9;v3
(U+:
ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS = K} P fh
ActiveDocument.Styles("QLNU英文摘要").NoProofing = False Z,2?TT|p
DoEvents #1E4
R}B
pJ}U'*Z2
Options.Pagination = True Mb2a;s
Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." ;&=CZ 6vH
DoEvents yZ,pH1
ActiveDocument.Repaginate 8|)!E`TKSV
>8I~i:hn
End Sub O U7OX]h
d.~ns4bt9
Ebs] ]a>PO
