Dim bContinue As Boolean 09u@-
p8MPn>h<
Dim regEX As New RegExp Vnq&lz%QqC
Dim paraCounter As Long '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 :s OsG&y
|
\~!o N
Dim LastTitle0String As String, LastTitle0No As Long Vpkk
iN
Dim LastTitle1String As String, LastTitle1No As Long [P23.`G~J
Dim LastTitle2String As String, LastTitle2No As Long 9AdA|/WV
Dim LastTitle3String As String, LastTitle3No As Long ({AqL#x`u
Dim LastTitle4String As String, LastTitle4No As Long C_DXg-a2lu
Dim LastTitle5String As String, LastTitle5No As Long P
G/xX
H
Dim LastTabelString As String, LastTableNo As Long =XT}&D 6
Dim LastFigureString As String, LastFigureNo As Long [6Gb@jG
ueazAsk3g
Dim strSeperator As String U#!f^@&AB
eE-
@dU?
Sub ConvertWidth(fTEXT As String, rText As String) ,] ,dOIOwn
Selection.Find.ClearFormatting A5> ,e|
Selection.Find.Replacement.ClearFormatting ENi@R\
p
Selection.Find.Wrap = wdFindContinue <U()
*0
Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText -F| C6m!
DoEvents ^h@1t FF
Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True ^.@BD4/RPt
End Sub ;4 O N
WwM/M!98J
Sub ClearDomain() 2aUy1*aM
With Selection.Find IvyBK]{|
.ClearFormatting KoNJ;YiKtN
.Replacement.ClearFormatting !
uyC$8V*l
.Wrap = wdFindContinue Pb^Mc <j
Me.txtStatus.Text = "清除所有域代码" *^&2L,w
DoEvents ,s,VOyr @F
.Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False &qP&=( $
End With 6-<>P E2
End Sub
KDX34Fr1
^/kn#1H
7&
Private Sub cmdCheck_Click() ?R} a,k
bContinue = True )tyhf(p6
Dim NoSeries1(1 To 16) As String jQ s "8[=s
Dim NoSeries2(1 To 16) As String ES l</"<J
Dim NoSeries5(1 To 16) As String #A2)]XvY
Dim NoSeriesRM(1 To 16) As String )!&7X L[
Dim paraTotal As Long, ParaText As String %kJ_o* "
Dim ttString As String, ttNo As String tb-:9*2j-
g"iLhm` L
Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long Yw\PmRL"p
A<VNt tgG
Me.txtStatus.Visible = True }vbs6u
Me.lbParaType.Visible = True ,1+)qv#|i
Me.cmdCheck.Enabled = False _# /zH~V%
o4"7i 9+g
@dzO{ )
>f$
>Odqe
ZsP
T!l,
Dim ParaType As String, rText As String ED={OZD8
4j'cXxo
Selection.WholeStory u xd5 XS
Selection.NoProofing = True MZX-<p+
7 5LIQ!G|=
tm1 = Now Z'vGX,:
VS lIeZ
ActiveWindow.View.Type = wdNormalView _8CE|<Cn
_ cY!\'
NoSeries1(1) = "一" 26,!HmtC
NoSeries1(2) = "二" / b_C9'S
NoSeries1(3) = "三" TYQ7jt0=.-
NoSeries1(4) = "四" @ sAT#[j
NoSeries1(5) = "五" IE-c^'W=}m
NoSeries1(6) = "六" D^knN-nZ*
NoSeries1(7) = "七" Sb&[V>!2^
NoSeries1(8) = "八" AVys`{*c
NoSeries1(9) = "九" ?m?DAd~ZY
NoSeries1(10) = "十" ']hB_ 4v
NoSeries1(11) = "十一" Uva
b*9vX
NoSeries1(12) = "十二" DhwFD8tT
NoSeries1(13) = "十三" HNRZ59Yyq
NoSeries1(14) = "十四" B9RB/
vHH
NoSeries1(15) = "十五"
RTW4r9~'
NoSeries1(16) = "十六" *c+Kqz-
.'y] Ea
NoSeries2(1) = "㈠" yqm^4)Dp
NoSeries2(2) = "㈡" $=iV
)-
NoSeries2(3) = "㈢" Tc DkKa
NoSeries2(4) = "㈣" aD1G\*AFJ
NoSeries2(5) = "㈤" ;oQ*g d
NoSeries2(6) = "㈥" L/,W
NoSeries2(7) = "㈦" E K)7g~
NoSeries2(8) = "㈧" XJ|CC.]1u
NoSeries2(9) = "㈨" I'h6!N"
NoSeries2(10) = "㈩" q.l" Y#d
2?9SM@nAY
NoSeries5(1) = "①" jcWv&u|
NoSeries5(1) = "②" z;_fO>u:
NoSeries5(3) = "③" JEK 6Ms;)A
NoSeries5(4) = "④" _BV'J92.
NoSeries5(5) = "⑤"
w34&
m
NoSeries5(6) = "⑥" B%c):`w8]
NoSeries5(7) = "⑦" %C!u/:.Kv
NoSeries5(8) = "⑧" ",c(cYVW
NoSeries5(9) = "⑨" n'yC- ;
NoSeries5(10) = "⑩" h$Z_r($b
w
>:~Ev]
s ^]F4'
NoSeriesRM(1) = "I" k#I4^
NoSeriesRM(2) = "II" M Hv 2r
NoSeriesRM(3) = "III" e[HP]$\
NoSeriesRM(4) = "IV" JwNG`M Gc
NoSeriesRM(5) = "V" \)=X=yn2
NoSeriesRM(6) = "VI" ?]'Rz\70
NoSeriesRM(7) = "VII" yE(> R(^
NoSeriesRM(8) = "VIII" 5{Xld,zw
NoSeriesRM(9) = "IX" F8J;L](Dq
NoSeriesRM(10) = "X" q89#Ftkt
NoSeriesRM(11) = "XI" DL5`A?/
NoSeriesRM(12) = "XII" "-'w,g
NoSeriesRM(13) = "XIII" DA_ [pR
NoSeriesRM(14) = "XIV" 4|Dxyb>pS
NoSeriesRM(15) = "XV" Q3 M;'m
NoSeriesRM(16) = "XVI" tTT./-*0
^gwVh~j
i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) MjAF&bD^
)2|'`
If i = vbNo Then {jX
h/`
Exit Sub `[<j5(T
End If cvR|qHNX
5h9`lS2
If Me.chkSuper.Value Then .`OyC'
Me.txtStatus.Text = "检查修改所有的上标格式" GB1[`U%
<m"yPi3TY
CheckSuperScript S(^*DV
q^
{ Xn-G
End If !4 4 )=xW
dsKEWZ
=
If Me.chkStyle.Value Then aN7VGc
Me.txtStatus.Text = "设置样式，请稍候...." #HD$=ECcw
DoEvents ZqHh$QBD
9
CeateOrModifyStyle V=pg9KR!T
End If 0Dj<-n{9
jJc?/1 jv
W 2VH? -Gw
,!BiB*
ClearDomain *<yKT$(+_
(%huWW
j
T [
`t?,
ef\Pu\'U
If Me.chkLIST.Value Then 5 G@z l
Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" &wbe^Wp
]>NP?S
)R
ConvertListToOrdinary ;&Q8xC2
End If fA!uSqR$V
2,c{Z$\kn
IS` 1}i$1%
Dim pType As String, trimpTEXT As String w z-9+VN6
If Me.chkNum.Value = True Then !\
Y85o>JU
Me.txtStatus.Text = "转换全角数字形式为半角" NrE& w H:
ConvertWidth "１", "1" O Xy>Tlv
DoEvents rzH*| B0g
ConvertWidth "２", "2" Y|t] bb
DoEvents }+K SZ,
ConvertWidth "３", "3"
qm-G=EX
DoEvents E?o1&( 2p
ConvertWidth "４", "4" _7(>0GY
DoEvents #2thg{5
ConvertWidth "５", "5" N 4$!V}pp
DoEvents f?wn;;z`
ConvertWidth "６", "6" G 2]/g
DoEvents 2f8fA'|O
ConvertWidth "７", "7" / c1=`OJ
DoEvents }yup`R
ConvertWidth "８", "8" w
f!?'*
DoEvents zPp?D_t
ConvertWidth "９", "9" PiMW 29B^
DoEvents ?lJm}0>
ConvertWidth "０", "0" +'9l 2DI;
DoEvents #/NZ0IbHk
ConvertWidth "ａ", "a" 7q>WO
DoEvents lE~5 b
ConvertWidth "ｂ", "b" nYJ)M
AG@
DoEvents w /$4
Rv+S
ConvertWidth "ｃ", "c" qEC -'sl<
DoEvents {{c/:FTEU
ConvertWidth "ｄ", "d" ozZW7dv eU
DoEvents cD&53FPXC
ConvertWidth "ｅ", "e" !Pf_
he
DoEvents 'u }|~u?m
ConvertWidth "ｆ", "f" TFbMrIF
DoEvents >=|Dir
ConvertWidth "ｇ", "g" F V8 K_xj
DoEvents G9 92{B
ConvertWidth "ｈ", "h" A " t ~
)
DoEvents \IL/?J
5d
ConvertWidth "ｉ", "i" *ip2|2G$
DoEvents hr&&"d {s
ConvertWidth "ｊ", "j" */iD68r|-
DoEvents 5Z]z ul@+*
ConvertWidth "ｋ", "k" ;/$=!9^sZ
DoEvents P9~7GFas|
ConvertWidth "ｌ", "l" zY\pZG
DoEvents q -%;~LF
ConvertWidth "ｍ", "m" bce>DLF
DoEvents /3F4t
V
ConvertWidth "ｎ", "n" fD3}s#M*G
ConvertWidth "ｏ", "o" %./ vh=5)
ConvertWidth "ｐ", "p" 5?+ECxPt
ConvertWidth "ｑ", "q" gTE/g'3
ConvertWidth "ｒ", "r" UP s*{m
ConvertWidth "ｓ", "s" xS%Z
ConvertWidth "ｔ", "t" z; 6 Tp
ConvertWidth "ｕ", "u" H#IJ&w|
ConvertWidth "ｖ", "v" jM8e2z3
ConvertWidth "ｗ", "w" \|\ D
c0p}
ConvertWidth "ｘ", "x" -lr)z=
})
ConvertWidth "ｙ", "y" $Q,Fr;
B
ConvertWidth "ｚ", "z" hqW4.|&\c
ConvertWidth "Ａ", "A" D9
~jMcX
ConvertWidth "Ｂ", "B" nUi
4! |r
ConvertWidth "Ｃ", "C" L~_3BX
ConvertWidth "Ｄ", "D" 8X":,s!
ConvertWidth "Ｅ", "E" h }&WBN
ConvertWidth "Ｆ", "F" %xtTh]s
ConvertWidth "Ｇ", "G" x SFY8
ConvertWidth "Ｈ", "H" $Hcp.J[ O
ConvertWidth "Ｉ", "I" }W{rDc kv
ConvertWidth "Ｊ", "J" C~PrIM ?
ConvertWidth "Ｋ", "K" ezRhSN?
ConvertWidth "Ｌ", "L" ^z #' o
ConvertWidth "Ｍ", "M" ~|e?@3_G
ConvertWidth "Ｎ", "N" pi) 7R:i
ConvertWidth "Ｏ", "O" V!#+Ti/w4
ConvertWidth "Ｐ", "P" \ct) /
ConvertWidth "Ｑ", "Q" .i[rd4MCK
ConvertWidth "Ｒ", "R" 1|)l6#hOL
ConvertWidth "Ｓ", "S" i3~"qbU%z[
ConvertWidth "Ｔ", "T" Y4cIYUSc
ConvertWidth "Ｕ", "U" B#RwW,
ConvertWidth "Ｖ", "V" hu (h'
ConvertWidth "Ｗ", "W" okfGd=
&
ConvertWidth "Ｘ", "X" <aJdm!6
ConvertWidth "Ｙ", "Y" x8i;u H\8
ConvertWidth "Ｚ", "Z" >U\,(VB
ConvertWidth "^l", "^p" n?vw|'(}
ConvertWidth "（", "(" gUf-1#g4\`
ConvertWidth "）", ")" +cQGX5 K
\}SA{)
End If }gQ FWT
hs IC5@s3
With ActiveDocument )N`a4p
Dim tbl As Table \ .+.V K
For Each tbl In .Tables C8qA+dri
tbl.Rows.Alignment = wdAlignRowCenter +}H2 |vP
tbl.Range.Font.NameFarEast = "楷体" Kh<xQ:eMy
tbl.Range.Font.NameAscii = "Times New Roman" <[O8 {9j
tbl.Range.Font.Size = 10.5 _5 'OQ'P2
Next ZS0=xS5q)
Set tbl = Nothing J;|r00M
End With OfC0
lb:c
ydo"H9NOS
hGm JG,H
With ActiveDocument Jh2eo+/%
R)% Jr.U
For i = 1 To .TablesOfContents.Count KE3/s
w0
.TablesOfContents(i).Delete EoM }Co
Next 5$o]D
yyke"D
}oH A@o5
H)&6I33`
paraTotal = .Paragraphs.Count {3@lvoDT
paraCounter = 1 <11
pk
'\qd{mM\r
LastTitle0No = 0 w
'?xewx
LastTitle1No = 0 M>hHTa?W
LastTitle2No = 0 dI'cZt~n
LastTitle3No = 0 NF`WA -W8@
LastTitle4No = 0 =Nn&$h l
LastTableNo = 0 %N 8/g ]`7
LastFigureNo = 0 Ox ;q +5
Fm(~Vt;%u
Dim Sec As Long o<
@b]ukl&
f\O) +Vc
Sec = InputBox("正文从第一节开始？", "节设置", 6)
PZZTRgVc
If Sec = 0 Then 0PIiG-o9
Exit Sub o@T xDG
End If /fCj;8T3o
EgO=7?(pW
k = 0 &{${ Fq
Do While (paraCounter < paraTotal) And bContinue 5y07@x
k = k + 1 b0
))->&2
If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then MW|Qop[
Exit Do @+LkGrDP
End If p!^ .;c
paraCounter = paraCounter + 1 xQV5- VoFC
If k Mod 20 = 0 Then ("(:w YR%
Me.lbCounter.Caption = paraCounter DJ?kQ
DoEvents Ei!5Q
ya>
End If ~ B0L7}d
Loop r8\"'4B1
j0b?dKd
a n K7j2
Do While (paraCounter < paraTotal) And bContinue P$z8TD CH
}HB)%C50.
ParaText = Trim(.Paragraphs(paraCounter).Range.Text) 8 x$BbK
ShapeHeight = 0 smEKQHB
ShapeWidth = 0 U 2k^X=yl
^E
_`M:~
CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth CAg\-*P|
b|F_]i T
Select Case ParaType
=ML6"jr
Case "【】表格内容" 6x%uWZa'
.Paragraphs(paraCounter).Style = "QLNU表格内容" sM)qzO2wh
Case "章" K)5' Jp@
LastTitle0No = LastTitle0No + 1 0Lcd@3XL
'新一章开始，复位其下属标题编号 ~~eR,H Yk
LastTitle1No = 0 ({=:
N
LastTitle2No = 0 ~IvAnwQ'
LastTitle3No = 0 T_ ifDQX;
LastTitle4No = 0 z(]1425 0
kfa RN ^
k = Val(ttNo) k fER
If k = 0 Then '非数字编号章节 A<ca 9g3
If ttNo <> NoSeries1(LastTitle0No) Then =fmM=@!$<
rText = "第" & NoSeries1(LastTitle0No) & ttString ]O
Nf;RH
Me.ErrMsg.AddItem "章节编号错误：" & ParaText dKyJ.p
End If _^cDB1I ?
Else t}LV[bj1u
If Val(ttNo) <> LastTitle0No Then 8z&7wO
rText = "第" & LastTitle0No & ttString &| ( 'z\k
Me.ErrMsg.AddItem "章节编号错误：" & ParaText ~nk{\ rWO
End If ~ _C[~-
bQG2tDvu[
End If )-$Od2u2c
t ,#9i#q#
'章段落设置 .{+<o
'字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 ]k~k6#),;
.Paragraphs(paraCounter).Style = "QLNU章节" p%) 1(R8qM
.Paragraphs(paraCounter).Range.Select KKm &~^ c
Selection.EndKey unit:=wdLine VfAC&3 %M
tc = Replace(rText, vbCr, "") \Z0-o&;w
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False J@RhbsZn
Case "一级标题" tRU+ 6D
<w
LastTitle1No = LastTitle1No + 1 Mx<V ;GPm
'新一级标题开始，复位其下属标题编号 P_11N9C
LastTitle2No = 0 -V@vY42
LastTitle3No = 0 7FL! ([S5i
LastTitle4No = 0 zbsdK
'PW~4f/m
If ttNo <> NoSeries1(LastTitle1No) Then J6Uo+0S
rText = NoSeries1(LastTitle1No) & "、" & ttString PLDg' 4DMg
Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText h$[}lZDg
End If j:'s bU
F oY_5/
SP][xdN7
'一级标题段落设置 格式：一、标题内容 QixEMX4<
.Paragraphs(paraCounter).Range.Text = rText f\CJ |tKX
.Paragraphs(paraCounter).Style = "QLNU一级标题" ] h3~>8<
.Paragraphs(paraCounter).Range.Select F9rx m
Selection.EndKey unit:=wdLine S]3K5Z|
tc = Replace(rText, vbCr, "") rlSar$
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False v%O KOrJ
Case "二级标题" ^Glmg}>q
LastTitle2No = LastTitle2No + 1 Zt: .+.dV
'新二级标题开始，复位其下属标题编号 sE87}Lz
LastTitle3No = 0 4B>N[#- 0=
LastTitle4No = 0 le%&r
w?^qAj(*d
If ttNo <> NoSeries1(LastTitle2No) Then bdh6ii
rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString N
)Fy#6
ErrMsg.AddItem "二级标题编号错误：" & ParaText %00KOM :
End If QDCu
\T)2J|mW
'二级标题段落设置 格式：(一)、标题内容 -r%4,4
.Paragraphs(paraCounter).Range.Text = rText ! 6yo D
.Paragraphs(paraCounter).Style = "QLNU二级标题" JWhi*
je
1fBj21zG
.Paragraphs(paraCounter).Range.Select .&O}/B
Selection.EndKey unit:=wdLine df_hmkyj
tc = Replace(rText, vbCr, "") cVjs-Xf7D%
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 2 ", PreserveFormatting:=False ;Z]i$Vi_r
JvFd2@
Case "三级标题" *?'n A{a)E
LastTitle3No = LastTitle3No + 1 hwkm'$}
'新三级标题开始，复位其下属标题编号 7b7~
D +b
LastTitle4No = 0 9 4bmK V_
WW33ZJ
If Val(ttNo) <> LastTitle3No Then f 7B)iI!
rText = LastTitle3No & ". " & ttString
0BF'@r";
Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText 'TWZ@8h~
3!_X FV
End If EA.4 m3
'三级标题段落设置 格式：1. 标题内容 R;+vE'&CO
.Paragraphs(paraCounter).Range.Text = rText 0k"n;:KM8
.Paragraphs(paraCounter).Style = "QLNU三级标题" W]E6<y'
.Paragraphs(paraCounter).Range.Select K
F^5 C
Selection.EndKey unit:=wdLine )x gOl*D
tc = Replace(rText, vbCr, "") 7x8/Vz@\
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 3 ", PreserveFormatting:=False jOL $k iW0
Case "四级标题" !1
:%!7
LastTitle4No = LastTitle4No + 1 C
f@~W)K
+3]1AJa
If Val(ttNo) <> LastTitle4No Then px6 [1'|g
rText = "(" & LastTitle4No & "). " & ttString ,CiN@T \&
ErrMsg.AddItem "四级标题编号错误：" & ParaText M
V dX
m\QUt ;
End If ?wzE+
p-
'四级标题段落设置 格式：(1). 标题内容 (]*
Ro 8
.Paragraphs(paraCounter).Range.Text = rText S?p WxHR]
.Paragraphs(paraCounter).Style = "QLNU四级标题" ``*iK
.Paragraphs(paraCounter).Range.Select '?]B ui
Selection.EndKey unit:=wdLine &'{6 _-kh
tc = Replace(rText, vbCr, "") 1<y(8 C6
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 4 ", PreserveFormatting:=False
\.c
z~b5K\/1B
Case "表格标题" =7{n 2
LastTableNo = LastTableNo + 1 &''lOS|
A1Tk6i<F1
If ttNo <> CStr(LastTableNo) Then ;.$ AhjqiP
rText = "表" & LastTableNo & ". " & ttString "G. L)oD
ErrMsg.AddItem "表格编号错误：" & ParaText N y_d
d:08@~#
End If ~DYUI#x
e
UMOV ]h
'表格名称段落设置 格式：表1. 表格名称 b1An2 e[
.Paragraphs(paraCounter).Style = "QLNU表格标题" ;Fw{p{7<
xe = Replace(rText, vbCr, "") \;&WF1d`ac
.Paragraphs(paraCounter).Range.Select VJW%y)_[
Selection.MoveEnd wdCharacter, -1 '选择范围包括行尾的换行符。 U .?N
Selection.Range.Text = xe ;a@%FWc
Selection.EndKey ] %A mX-U
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False T,z 7U2O
aLZza "W
Case "表格首行" AE`z~L,
.Paragraphs(paraCounter).Style = "QLNU表格首行" .Jk[thyU
Case "图片标题" , y%!s27
LastFigureNo = LastFigureNo + 1 !S6zC >
_a?c,<
A
If ttNo <> CStr(LastFigureNo) Then +T]/4"^M
rText = "图" & LastFigureNo & ". " & ttString )l 0\T F
ErrMsg.AddItem "表格编号错误：" & ParaText HCOv<k
)b^yAzL?
End If MTm}qx@L
'图片名称段落设置 格式：图1. 图名称 fTb&k;'LR<
.Paragraphs(paraCounter).Range.Text = rText IM-O<T6r[N
.Paragraphs(paraCounter).Style = "QLNU图片标题" P)7:G?OTx
.Paragraphs(paraCounter).Range.Select 7
l Q@I}i
Selection.EndKey unit:=wdLine $oF0[ }S
xe = Replace(rText, vbCr, "") )anprhc
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False X2CpA;#;7l
Case "正文" \NE~k)`4j%
'正文名称段落设置 cJ[ gCS
.Paragraphs(paraCounter).Style = "QLNU正文" H@ab]&
Case "文献条目" h- )tW J c
With .Paragraphs(paraCounter)
W=zHD
9
'.Range.Select WI @l2`X
'Selection.ClearFormatting S\
$ =b_.
'.Range.Find.Execute findtext:=rText, replacewith:=strSeperator 'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” #0OW 0:Q
.Style = "QLNU参考文献" )"W__U0
End With tzH~[n,
Case "图表注解" zfS0M
With .Paragraphs(paraCounter) a=m4)tjk
.Range.Font.NameFarEast = "楷体" WC2sRv4]3
.Range.Font.NameAscii = "Times New Roman" 44e:K5;]7
.Range.Font.Size = 9 '小5号字 3zC<k2B
hnOo T? V
.Alignment = wdAlignParagraphCenter dM n0nc+
.LeftIndent = 0 ~kHWh8\b:
.RightIndent = 0 p7H0| >
.FirstLineIndent = 0 D(bQFRBY6"
.LineSpacing = 12 =3
K}]3f
.LineSpacingRule = wdLineSpaceExactly Ife/:v
.LineUnitAfter = 0 : SBB3G)|
.LineUnitBefore = 0 &l nr? y^
.OutlineLevel = wdOutlineLevelBodyText 6 ZvGD}/
.PageBreakBefore = False mdzUL
d5J
.RightIndent = 0 MaMP7O|W
.WordWrap = True |HT5G=dw
.LineUnitAfter = 0.5
C/34K(
B=vBJC)
End With
]7+9>V
Case Else eK8y'VY
'不作处理 j
P(|pz
End Select c,
IAz
7T[Kjn^{Oj
'含有inlineshape的段落处理 2
'>
If ShapeHeight > 30 Then X*'i1)_ h
.Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle '对有图片的段落设置为单倍行距 c p| q
End If P* =M?:Jb,
Whd.AaD\
If (ShapeWidth + ShapeHeight) > 150 Then r}? uZ"]=?
.Paragraphs(paraCounter).Style = "QLNU图片段落" r.WQ6h/eZ5
End If mKTE%ls H
z89!\Q
'段落计数器递 `i~kW
paraCounter = paraCounter + 1 H3Ws$vl9n
Me.lbCounter.Caption = "当前检测段落：" & paraCounter `MD%VHQ9U
Me.txtStatus.Text = ParaText w|t}.u
DoEvents hj4!* c
Loop =Oyn<
End With t4Q&^AC
ut SW>
msg = "" 0Y|
"Bo9k
[2*?b/q3J
For i = 0 To Me.ErrMsg.ListCount - 1 <V}
ec1
msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) t,D7X1W
Next ?$v*_*:2h
t3P$UR %
Pk2=*{:W
w
qx9
Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg }\#u~ k!l
Me.cmdCheck.Enabled = True QOT|6)Yb
Me.txtStatus.Visible = True (^!$m7
Me.lbParaType.Visible = False ;RR\ Hwix
V -X *e
bContinue = False Vt4KG+zm
End Sub 7 XM:4whw
}BFX7X
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) -l(G"]tRB
Dim pTEXT As String Bp:PAy
$
[S)A0O
pTEXT = ChKRange.Text g
\;,NW^
]Lb Fh5;s
ParaType = "其它" Fy#y.jK9v
TitleString = pTEXT 8uh^%La8b.
TitleNo = "N/A" ~<.%sVwE
ZovF]jf k
shpCounter = ChKRange.InlineShapes.Count k-CW?=
If shpCounter <> 0 Then xLN$!9t
MaxShpHeight = 0: TotalShpWidth = 0 9-ei#|Vnt[
For i = 1 To shpCounter #(Xv\OE
k = ChKRange.InlineShapes(i).Height @ z s.M-F
l = ChKRange.InlineShapes(i).Width kleE\ 8_
If k > MaxShpHeight Then Z;'5A2
MaxShpHeight = k Iu V7~w
End If s~i 73Qk/
TotalShpWidth = TotalShpWidth + l _P}wO8
Next >
f\$~cp
If MaxShpHeight > 60 Or TotalShpWidth > 150 Then {JGXdp:SB
Exit Sub Rz03he
End If 7T69tQZ<
End If $ j(laD#AR
;Q.'u
'空行 . DrGr:UW
If Len(pTEXT) <= 2 Then QgF2 f/;!
Exit Sub 8x~'fzf;Sq
End If u{J\X$]
$cSmub ZK
f %[0}.wp
'是否为表格中的文字 Xd 5 vNmQn
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then } 5b
,u6
ParaType = "表格内容" Q8h0:Q
k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) Z [Q jl*
If k = 1 Then (C9{|T+h
ParaType = "表格首行" dy"7Wl]hi7
End If k-jlYHsA
Exit Sub ~rfUqM]I
End If o;[cApiQ,2
* 8% nbR
'例外情况：脚注 R+&{lc
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then e'd x
Y(
ParaType = "脚注" ']C" 'b
Exit Sub } q?*13iy(
End If P*!~Z *"
Tebu?bj
'例外情况：尾注 ^ }k qAm r
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then z
k m#w
ParaType = "尾注" ,DIr&5>p2
Exit Sub P P{s&(
End If KFhnv`a.0
rnSrkn"j{
If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then *KYh_i
ParaType = "页眉页脚" 1sNZ l&
Exit Sub ]^>RBegJBO
End If K3;~
|U-l
7X{@$>+S
E51'TT9
With regEX =Sjf-o1 V
.Global = True J ]ri|a
E0t%]?1
.Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" v;.w*x8Jw
If regEX.Test(pTEXT) Then fG" 4\A
ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3")
qZ<|A%WQ
TitleString = regEX.Replace(pTEXT, "$3") XjFaP {
TitleNo = regEX.Replace(pTEXT, "$1") eW\C@>K e
ParaType = "章" Nm{J=`
Exit Sub w,zm$s ^
End If jJ7 " 9
ecdM+kP
.Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" o>^ @s4t
If regEX.Test(pTEXT) Then F 9J9zs*,
ParaType = "一级标题" ?m bI6fYv
regEX.Execute (pTEXT)
M2Zk1Z
ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") p)c"xaTP#F
TitleString = regEX.Replace(pTEXT, "$3") jBr3Ay@<
TitleNo = regEX.Replace(pTEXT, "$1") 3g Q2wP*K
Exit Sub %) /Bl.{}<
End If 'GF <_3I2l
=`EVg>+^
'全角或半角括号中的数字 ?
4v"y@v
.Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" ]N^ >>k
If regEX.Test(pTEXT) Then |'QgL0?
ParaType = "二级标题" mV;)V8'
regEX.Execute (pTEXT) R^VmNj
ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") Hd $ {I",
TitleString = regEX.Replace(pTEXT, "$5") ;s^F:O
TitleNo = regEX.Replace(pTEXT, "$2") [A'9sxG
Exit Sub tGw QUn
End If vSv:!5*
{fxytiH8
'阿拉伯数字 1. 2. h[& \ OD,P
.Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" '>Uip+'
If regEX.Test(pTEXT) Then 82P#C4c
+d
ParaType = "三级标题"
[P3
Z"&
regEX.Execute (pTEXT) zlhU[J}"1|
ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 )Im3';qt
TitleString = regEX.Replace(pTEXT, "$3") i Qa=4'9;
TitleNo = regEX.Replace(pTEXT, "$1") F7&Oc)f"B
Exit Sub 2
# _ i_j
End If H=@S+4_bK
Ksb55cp`
'全角或半角括号中的阿拉伯数字 g{e@I;F
.Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" \E8CC>Jd
If regEX.Test(pTEXT) Then 2PViY,V|
ParaType = "四级标题" >>.4@
regEX.Execute (pTEXT) +5N09$f;R
ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") mQ=nU
TitleString = regEX.Replace(pTEXT, "$5") _zG[ b/:p
TitleNo = regEX.Replace(pTEXT, "$2") 5e
>qBw8t
Exit Sub OV `#/QL
End If =
KJ_LE~)
oTb4 T=
'表格名称 a=r^?q'/
.Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" {s3 j}&
If regEX.Test(pTEXT) Then |>dqZ_ )v
ParaType = "表格标题" }&Ul(HR
regEX.Execute (pTEXT) xlm:erP
ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) -&0H Atc
TitleString = Trim(regEX.Replace(pTEXT, "$3")) Cl mz}F
TitleNo = Trim(regEX.Replace(pTEXT, "$1")) AcIw;
c:
strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 tD+K4
^
Exit Sub P"s7}cl
End If &\5%C\0Z<
@u 1mC\ G
'图片名称 EMw
biGV
.Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" vq8&IL
If regEX.Test(pTEXT) Then i{MzQE+_^
ParaType = "图片标题" t}fU 2Yb
regEX.Execute (pTEXT) D8=a + !l-
ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") f}:W1&LhI?
TitleString = regEX.Replace(pTEXT, "$3") dk.VH!uVb
TitleNo = regEX.Replace(pTEXT, "$1") iUOGuiP
Exit Sub qM
9> x:V
End If < /li<
1
4*?JU
v
'参考文献 (;2]`D [x
.Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})" '[数字]、 VI;) VJbq
If regEX.Test(pTEXT) Then 0#!Z1:Y
ParaType = "文献条目" 87OX:6
'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") ]cP$aixd
'TitleNo = regEX.Replace(pTEXT, "[$2] ") ~+
anI
Exit Sub *k
!zdV
End If MB"<^ZX
icXeB_&cS
prfx = Left(pTEXT, 2) te
b /
If prfx = "注：" Or prfx = "注:" Then y r
q) {W
ParaType = "图表注解" F2C v,&'
Exit Sub pVC ; ''E
End If lQt* LWd[
5@`DS-7h
de q L
ParaType = "正文" a3B^RbDP&8
I`[s(C>3
@
End With 8gXf4A(N
End Sub 9 UcSQ"D
x0ICpt{;
Sub ConvertListToOrdinary() e) kVS }e?
Dim st As Paragraph W XX08"
With ActiveDocument o F=UjA
For i = .Paragraphs.Count To 1 Step -1 (k<__W c_t
Set st = .Paragraphs(i) U,tWLX$@
lst = st.Range.ListFormat.ListString ,7^,\ ,-m
If lst <> "" Then X @^"@
st.Range.ListFormat.RemoveNumbers :M \3.7q
st.Range.InsertBefore lst & " " q":0\ar&QT
End If 4L/8Hj#g
Next jB0ED0)wX
End With ]oE :p
Set st = Nothing k(R&`
End Sub A>Xt 5vk+
89l{h8R
Private Sub UserForm_Activate() |YK4V(5x
Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" .WpvDDUK3
Me.lbTotal.Font.Bold = True C^9
bur/
Me.txtStatus.Visible = False r=: o$e
Me.cmdCheck.Enabled = True 4qg]
oiT
}Oe9Zq
End Sub zf?U q
5 u^;7
1
^<v]x;
3
Sub CheckSuperScript() 1'YksuYx6f
Selection.Find.ClearFormatting L<O" 36R
Selection.Find.Replacement.ClearFormatting V"W)u#4,
With Selection.Find (db4.G+ 0
.Text = "[【\[［〖](*)[】\]〗］]" k%h%mz
.Replacement.Text = "[\1]" MzCZj
.Replacement.Font.Superscript = True w<G'gi]
'.Replacement.Font.Color = wdColorBlue xYD.j ~
.Forward = True
A9C
.Wrap = wdFindContinue 4qmaL+Q
.FORMAT = True ">'`{mXew
.MatchCase = False O_[]+5.TX
.MatchWholeWord = False H<C+ rAIb
.MatchByte = False =(]||1 .
.MatchAllWordForms = False ]?n~?dD{]
.MatchSoundsLike = False #_4 JTGJ
.MatchWildcards = True t.6gyrV7><
End With |<w
Z;d
Selection.Find.Execute Replace:=wdReplaceAll p'YNj3&u
End Sub Z >F5rkJ
;ei qzdP
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) I; 3Uzv
bContinue = False dx[kG
Set regEX = Nothing 6dQ]=];
End Sub YfUUb V
:Wmio\
Sub CeateOrModifyStyle() "&N1$$
' & dvL`
' MP%pEUomev
Dim stl As Style jjU("b=
NiO|Aki{
Options.Pagination = False r^$WX@ t&
*pKj6x
On Error Resume Next -A;4""
For Each stl In ActiveDocument.Styles RMO6k bfP
stl.Delete N
Uq'96 {Y
Next 2:Rxyg@'
On Error GoTo 0 EP}NT)z,{
DgRA\[c
Set stl = Nothing oK{H
<79
'qnnZ
E
DoEvents k5TPzm=y{
On Error Resume Next n ;0x\Q|S
8[mj*^P
ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph ;sfk @e c
wwh)B92Y5
ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph h ;Se.{
ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph rul w6vTB(
H/BU2s a
ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph 5Q.z#]L g
ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph t9+ME|
5$Aiez~tBq
ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph O*y@4AR"S
ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph _)F0o C {
ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph DTp| he
ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph xH/Pw? ^
ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph EE[JXoke
ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph HA::(cXL
ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph /6d :l>4
\<4Hp_ 2?
ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph 3m59EI-p
ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph )R]gJ_ ,c
ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph e+7x &-+
ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph )ku w&SH,
ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph [m{uJ dj\
X/
- u$c
ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph XY1b_uY
On Error GoTo 0 BuIly&qbm<
DoEvents wC4:OJ[d
oCR-KR>{Q
'BaseStyle Fmux#}Z
ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False ;,Q6AS!
With ActiveDocument.Styles("BaseStyle").Font t}2$no?
.NameFarEast = "宋体" *w_f-YoXp
.NameAscii = "Times New Roman" d@0&
.NameOther = "宋体" (&A
Bfm/t
.Size = 10.5 Q2 @Ugt$
.Bold = wdUndefined [sweN]b6F
.Italic = wdUndefined OX*5 yT{
.Subscript = wdUndefined u @eKh3!
.Subscript = wdUndefined s2M|ni=
{ehAF=C
.Underline = wdUnderlineNone SM@RELA'Lb
.UnderlineColor = wdColorAutomatic h ! UB#-
.StrikeThrough = False kG70j{gf
.DoubleStrikeThrough = False
GPVqt"TY
u=9)A9
.Outline = False [Csv/
.Emboss = False M~#%
[?iU
.Shadow = False 2* 9rhOK*
.Hidden = False CxW -lU3G`
.SmallCaps = False ~ f:jI1(}
.AllCaps = False O]N
8Q H
.Color = wdColorAutomatic 3^J~ts{*
.Engrave = False =x3ZQA
.Scaling = 100 Vs~!
\<?
.Kerning = 1 9;k!dM
.Animation = wdAnimationNone F ^)SQ%xx
.DisableCharacterSpaceGrid = False a
54qv^I
S
.EmphasisMark = wdEmphasisMarkNone *>
f-UNV
End With o,;Hb4Eu
With ActiveDocument.Styles("BaseStyle").ParagraphFormat KD)+& 69
.LeftIndent = 0 s0bWg$
.RightIndent = 0 gBCO>nJws
.SpaceBefore = 0
|jwN 8@
.SpaceBeforeAuto = False + ZxG<1&
.SpaceAfter = 0 *
g;4?_f
.SpaceAfterAuto = False <4QOj W
1} h''p
.LineSpacingRule = wdLineSpaceSingle :KL5A1{
.Alignment = wdAlignParagraphJustify A3=$I&!%
^lYa9k
.WidowControl = False qH-':|h7
.KeepWithNext = False f*Dy>sw
.KeepTogether = False Bk9 ? =
.PageBreakBefore = False bcCCvV}6WZ
.NoLineNumber = False M4m90C;dq
% HK \
.FirstLineIndent = CentimetersToPoints(0) }9,^=g -
.OutlineLevel = wdOutlineLevelBodyText ,}hJ )
.CharacterUnitLeftIndent = 0 MEZc/Ru-[
.CharacterUnitRightIndent = 0 _]~=
Kjp
.CharacterUnitFirstLineIndent = 0 &T) h9fyc
.LineUnitBefore = 0 7) y9% -}
.LineUnitAfter = 0 c _faW
.AutoAdjustRightIndent = True O.g!k"nas&
.DisableLineHeightGrid = True g<"k\qs7
/>E:}1}{
.FarEastLineBreakControl = True Jf|6 FQo&
.WordWrap = True ON~K( O2g(
.Hyphenation = False E8Q Y6 gKF
#Z.2g].
.HangingPunctuation = True 5,n{-V
.HalfWidthPunctuationOnTopOfLine = True :Kt'Fm,s?
.AddSpaceBetweenFarEastAndAlpha = True A]k-bX= s
.AddSpaceBetweenFarEastAndDigit = True c5e
wG
.BaseLineAlignment = wdBaselineAlignBaseline aE'nW@YL.
End With Z}*{4V`R
ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False 6xsB#v*
ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll %Yi^{Z
rM
ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese %x G3z7;
ActiveDocument.Styles("BaseStyle").NoProofing = False }|W n6X
y@? t[A#v
'一级标题题样式 GDUOUl&
ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") d#*n@@V4
ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" Z?}yPs Ob
ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False KqH_?r`
With ActiveDocument.Styles("QLNU一级标题").Font hR1n@/nh
.NameFarEast = "黑体" a6&+>\o
.NameAscii = "Arial Black" S66. .sa
.NameOther = "黑体" D D]e0 pa
.Name = "黑体" O3>m,v
.Size = 16 '三号 L1i:hgq0]
.Bold = True -B l !s^-'
.Italic = wdUndefined "X7;^yY
.Subscript = wdUndefined @|c fF T
W
.Superscript = wdUndefined KnjowK
End With C0b OPn
With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat Xzp!X({
}c o*%F{ 1
.LeftIndent = CentimetersToPoints(0) ca{u"n
.RightIndent = CentimetersToPoints(0) *He%%pk
.FirstLineIndent = CentimetersToPoints(0) Z<,$Xv L
%Qc5 _ of
.LineSpacingRule = wdLineSpaceSingle 78[5@ U
.Alignment = wdAlignParagraphCenter MPg"n-g*
B}YpIb]d
.WidowControl = True Qs o"jYl<
.KeepWithNext = True CS<,qvLpL
.KeepTogether = True |`50Tf\J
.OutlineLevel = wdOutlineLevelBodyText 3?rYt:Uf!
JO `KNI
.LineUnitBefore = 0.5 ZC\&n4~7
.LineUnitAfter = 0.5 c ii]-%J}c
End With &bO5+[
ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False rIg5Wc
d
ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll ~&
?{hd.
ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese 8A 3
pYW-
ActiveDocument.Styles("QLNU一级标题").NoProofing = True Xob,jo}a
DoEvents UZ"jQJQ
Z1t?+v+Ro*
'二级 Q5:8$
C}+
ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") e<;^P( g`E
ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" t@(`24
ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False H ^< LnYZ
With ActiveDocument.Styles("QLNU二级标题").Font _,m|gr ,S
.NameFarEast = "黑体" KS6H`Mm}/
.NameAscii = "Arial Narrow" [`eqma
.NameOther = "黑体" fEB>3hI
.Name = "黑体"
UFLN/
.Size = 15 '小三号 6mH -- !j
.Bold = False D<35FD,
.Outline = False #kt3l59Ty
.Italic = wdUndefined XW*,Lo5>H\
.Subscript = wdUndefined ' `K-rvF,C
.Superscript = wdUndefined :~1sF_
End With aN/0'V|&ym
With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat
=]auP{AlE
.LeftIndent = CentimetersToPoints(0) ^*f Z
.RightIndent = CentimetersToPoints(0) J"&jR7-9
.FirstLineIndent = CentimetersToPoints(0) 1 ynjDin<
ojA i2uz
.LineSpacingRule = wdLineSpaceSingle zAxscD f'
.Alignment = wdAlignParagraphLeft 3Wl,T5}{
GvCB3z
.WidowControl = True I|#1u7X%]
.KeepWithNext = True j.FW*iX1C
.KeepTogether = True 1sT%g}w@|
.PageBreakBefore = False *Ou )P9~-L
.OutlineLevel = wdOutlineLevelBodyText a9=pZ1QAG
gPu0j4 &-
.LineUnitBefore = 0.5 V
#Px
.LineUnitAfter = 0.5 } 9qbF+b
v_$'!i$
End With 1 JIo,7
ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False =(^-s Jk
ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll > (.V(]{3y
ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese A"`^A brm
ActiveDocument.Styles("QLNU二级标题").NoProofing = True
0E k + }`
DoEvents Zs s `##
3bGJ?hpp
'三级标题样式 2unaK<1s
ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") GkT:7`
|C
ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" Qmk}smvH
ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False .-Xp]>f,
With ActiveDocument.Styles("QLNU三级标题").Font }zkMo ?
.NameFarEast = "宋体" 6_s_2cr
.NameAscii = "Times New Roman"
69o,T`B
.NameOther = "黑体" HZH zjrx
.Name = "黑体" <e
s>FD
.Size = 14 '四号 mimJ_=]DC
.Bold = False y[ W<vb+F
.Outline = False covr0 N)
.Italic = wdUndefined tL;!!vg#V
.Subscript = wdUndefined F;Lg
w^1!
.Superscript = wdUndefined EM.7,;|N
End With d\R]>
With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat H*Tc.Ie
.LeftIndent = CentimetersToPoints(0) r[TTG0|
.RightIndent = CentimetersToPoints(0) b& l/)DU
.FirstLineIndent = CentimetersToPoints(0) JF vVRGWB
D_HE! fl
.LineSpacingRule = wdLineSpaceSingle *XCid_{(
.Alignment = wdAlignParagraphLeft 9
EE},D
/_`f b)f
.WidowControl = True
qXH\e|
.KeepWithNext = True .K n )sD1
.KeepTogether = True nlfu y[oX
.PageBreakBefore = False 45u\v2,C3
.OutlineLevel = wdOutlineLevelBodyText x'.OLXx>
*/|Vyp-
.CharacterUnitLeftIndent = 0 "XU
M$:D
.CharacterUnitRightIndent = 0 ?)ROQ1-#@
.CharacterUnitFirstLineIndent = 2 kYVn4Wq
XU 3v#Du
.LineUnitBefore = 0.5 bHi0N@W!vG
.LineUnitAfter = 0 0(Hhb#WDh\
End With s L9,+
ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False z/,qQVv=}4
ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll I\BcG(hlJ
ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese 1%;o-
F@
ActiveDocument.Styles("QLNU三级标题").NoProofing = True NiCH $+c\
DoEvents Jx:t(oUR+
):Vz v
'四级标题样式 $p)7k
ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") VGVZ`|
ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle"
7h3#5Y
ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False *7g gw[~
With ActiveDocument.Styles("QLNU四级标题").Font QB Nnvg4v
.NameFarEast = "宋体" G9/5KW}-
.NameAscii = "Times New Roman" x1$:u6YD22
.NameOther = "宋体" [`_ZlC
.Name = "宋体" \1AtB c&
.Size = 12 '小四号 4 r&S&^
.Bold = True B4<W%lm
.Outline = False >z` ^Q [
.Italic = wdUndefined h27awO
Q
.Subscript = wdUndefined [&Z3+/lR*
.Superscript = wdUndefined Z ]1=nSv
End With TH`zp
]0
With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat {x+"Ru~7,
Nf#8V|
.LeftIndent = CentimetersToPoints(0) |7K[+aK
.RightIndent = CentimetersToPoints(0) ]$StbBP
.FirstLineIndent = CentimetersToPoints(0) D};zPf@!p
~1NK@=
7T
.LineSpacingRule = wdLineSpaceSingle ;}t
EU'&
.Alignment = wdAlignParagraphLeft lR^OS*v
#9{9T"ed
.WidowControl = True : DxC jv
.KeepWithNext = True Z=B6f u*
.KeepTogether = True Y SvZ7G(m>
.PageBreakBefore = False J<
E"ZoY
.OutlineLevel = wdOutlineLevelBodyText VPKoBJ&
.)7r /1o
.CharacterUnitLeftIndent = 0 ^st.bzg+[
.CharacterUnitRightIndent = 0 fVU9?^0/)9
.CharacterUnitFirstLineIndent = 2 ># q2KXh
y
C]xYn)
.LineUnitBefore = 0 *q ?-M"K
.LineUnitAfter = 0 ,<^7~d{{3m
C^o9::ER
End With n>_EE w2/
ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False @wy&Z
ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll 7#
/c7
ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese 6(Qr!<
ActiveDocument.Styles("QLNU四级标题").NoProofing = True \8~P3M":c
DoEvents S~8w- lG!
b)SU8z!NV&
'正文校式 "71,vUW
ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") $/*6tsR
ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" #SHmAB
ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False A
?DgeSm
With ActiveDocument.Styles("QLNU正文").Font T[z]~MJL
f1a >C
.NameFarEast = "宋体" urlwn*!^s
.NameAscii = "Times New Roman" 3
e19l!B
.NameOther = "宋体" y ;!q E~!3
.Name = "宋体" LEq"g7YH
PP {CK
4
.Size = 12 '小四号 bN ,>,hj
nPW?DbH +
.Bold = wdUndefined ]8}+%P,Q
.Italic = wdUndefined LIo3a38n?y
.Subscript = wdUndefined )w{bT]
.Superscript = wdUndefined m#D+Yh/y{n
(6aSDx
Sc
.Outline = False d ,Fj|}S
.Emboss = False \k#|[d5W
.Shadow = False ' THcO*<
.Hidden = False H O^3v34ZO
,~R`@5+
.DisableCharacterSpaceGrid = True JYY:~2
End With P <$)v5f
With ActiveDocument.Styles("QLNU正文").ParagraphFormat pzo9?/-
wIrjWU2
.LeftIndent = CentimetersToPoints(0) ];-DqK'
.RightIndent = CentimetersToPoints(0) wH=L+bA>a
.FirstLineIndent = CentimetersToPoints(0) Y: ~A-_
aKLA_ -E
.LineSpacingRule = wdLineSpaceExactly +s*OZ6i [
.LineSpacing = 20 UN~dzA~V
.Alignment = wdAlignParagraphLeft OX"^a $
WcCJ;z:S?k
.WidowControl = False hnQDm$k
.KeepWithNext = False ^V
DJGBk
.KeepTogether = False Nh I&w
l
.PageBreakBefore = False
>|)ia5#
.Hyphenation = False ,&DK*LT8U
BZ] 6W/0
.OutlineLevel = wdOutlineLevelBodyText d 6$,iw@>^
ElAho3 W
UBmD
3|Zo
.CharacterUnitLeftIndent = 0 M~0A-* N
.CharacterUnitRightIndent = 0 q(i^sE[y
.CharacterUnitFirstLineIndent = 2 LqH<HGMFD
2(-J9y|
.LineUnitBefore = 0 73-*| @6
.LineUnitAfter = 0
c]#+W@ $
.SpaceBefore = 0 z/JoU je
.SpaceAfter = 0 (1
"unP-
Q^&oXM'x/i
.DisableLineHeightGrid = True Kk}|[\fW
End With ~*3obZ2>2
ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False hPC t-
ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll h\oAW?^
ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese ){AtV&{$
ActiveDocument.Styles("QLNU正文").NoProofing = True ~ wMdk9RQ
DoEvents x>>#<hOz[
A9*( O)
'图片段落样式 6@7K
\${
ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") F
S3MR9
ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" 4Y):d!'b
ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False c) d*[OI8
With ActiveDocument.Styles("QLNU图片段落").Font X{n7)kgL
.Size = 12 '小四号 uCc
.dluU
.Italic = wdUndefined jRswGMx
.Subscript = wdUndefined %idn7STJ}
.Superscript = wdUndefined r'kUU] j9
End With CQf<En|1
With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat >-2eZ(n)"
n{>Ge,enP0
.LeftIndent = CentimetersToPoints(0) I)xB I~x
.RightIndent = CentimetersToPoints(0) m;=wQYFr{I
.FirstLineIndent = CentimetersToPoints(0) @}#" o
r/X4Hy0!lT
.LineSpacingRule = wdLineSpaceSingle
Wc}opp
.Alignment = wdAlignParagraphCenter Ywj=6 + ;
.KeepWithNext = True S$CO T)7
.OutlineLevel = wdOutlineLevelBodyText uHBEpqC %
7x/S4Gs'4
.CharacterUnitLeftIndent = 0 K[wOK
.CharacterUnitRightIndent = 0 Q 9(J$_:
.CharacterUnitFirstLineIndent = 0 -BY'E$]4
1'skCR|!<
.LineUnitBefore = 0 $Hx00
h o
.LineUnitAfter = 0 0_}^IiG
End With 9,?\hBEu
ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False U~~Y'R\ NU
ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll [0_JS 2KE
ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese KGMX >t'
ActiveDocument.Styles("QLNU图片段落").NoProofing = True i6" /GSA
DoEvents a@|/D\C
]=s!cfu
i+/:^ tc;
'第X章 U({2 0
ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") C
m~h\+"
ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" +Za ew679
ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False h'i8o>7
With ActiveDocument.Styles("QLNU章节标题").Font b#**`Y
.NameFarEast = "黑体" AM L8.wJ
.NameAscii = "Arial Black" +3HukoR(
.NameOther = "Arial Black" ;(a\F
.Name = "黑体" HT]v S}s
.Size = 16 u!k]Q#2ZR
.Bold = True f8ap+
][
.UnderlineColor = wdColorAutomatic Q^^.@FU"x
.Outline = False \JJ > y
.Italic = wdUndefined oYYns%r
}{
.Subscript = wdUndefined k,EI+lC X
.Superscript = wdUndefined 0jS"PH?
[
.Scaling = 100 }pE8G#O&
.DisableCharacterSpaceGrid = True 3Y\7+975m
End With - nWs@\
With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat K !X>k
.LineSpacingRule = wdLineSpaceSingle _ %HpB=
.Alignment = wdAlignParagraphCenter }E01B_T9z
.WidowControl = True *cjH]MQ0Ak
.KeepWithNext = True J{GtH[
.KeepTogether = True ep"YGx[V
.PageBreakBefore = True
5^Gv! XW
.OutlineLevel = wdOutlineLevelBodyText w#?@ulr]d
lpW|GFG
.LeftIndent = CentimetersToPoints(0) Bg^ k~NX%
.RightIndent = CentimetersToPoints(0) T Y|5O!
<
.FirstLineIndent = CentimetersToPoints(0) Wvhg:vup
kmJ {(y)w
.CharacterUnitLeftIndent = 0 u9
WQ0.
.CharacterUnitRightIndent = 0 x^U
E4$oo
.CharacterUnitFirstLineIndent = 0 @W\y#5"B
2<d l23
.LineUnitBefore = 1 Mo+ mO&B
.LineUnitAfter = 0.5 br!:g]Vh
FiTP-~
.AutoAdjustRightIndent = False tMN^"sjf*
.DisableLineHeightGrid = True DzZ)a
E
.FarEastLineBreakControl = True M7Pvc%\)
.WordWrap = True 0D[D;MW
End With P ;&rh U^[
ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False R 3MbTg
ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll d x=\Pq
ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese 0nko n3H
ActiveDocument.Styles("QLNU章节标题").NoProofing = True QN %w\ JXS
DoEvents |!r.p_Zt
2gn*B$ a
'表格标题 V:M$-6jv
ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") vYh_<Rp5
ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" #z|\AmZ\
ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False (Bta vE
With ActiveDocument.Styles("QLNU表格标题").Font dcFqK ~
.NameFarEast = "楷体" bYr; ~
^
.NameAscii = "Arial" 3xhv ~be
.Name = "楷体" =F!D
waZ
.Size = 10.5 ];bl;BP
.Bold = True
G P"(+5
.Underline = wdUnderlineNone rm7$i9DH2
.Italic = wdUndefined oB
9t&yM
.Subscript = wdUndefined btq`[gAF \
.Superscript = wdUndefined 8\Y/?$on
.Color = wdColorAutomatic wi#]*\N\9
End With aBPaC=g{HO
With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat n@LR?
=AFTB<7- ^
.LineSpacingRule = wdLineSpaceSingle `O-LM e
.Alignment = wdAlignParagraphCenter {HV$hU+_)Q
.KeepWithNext = True E"j u<q/Q
.KeepTogether = True P]bq9!{1
.OutlineLevel = wdOutlineLevelBodyText :n3)vK
QjW7XVxB#N
.LeftIndent = CentimetersToPoints(0) O[p;IG`
.RightIndent = CentimetersToPoints(0) q!i Mc
.FirstLineIndent = CentimetersToPoints(0) p_!;N^y.
JHY0 J
&4s
.CharacterUnitLeftIndent = 0 Qm| Q0u
.CharacterUnitRightIndent = 0 PZ/ g
D
.CharacterUnitFirstLineIndent = 0 0>
pOP
,&S ^R yc
.LineUnitBefore = 1 ^!]Hm&.a
.LineUnitAfter = 0 5xZ *U
;4jRsirx9
End With MC.,n$O}6
ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False ,`7;S,f
ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll )"
H$1
ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese Onr#p4U T
ActiveDocument.Styles("QLNU表格标题").NoProofing = True A>"v1Wk
DoEvents S~" 1q 0
Zk+J= Cwq}
'表格首行 7m;2M]BRi
ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") ILt95 l
ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False { VC4rA
With ActiveDocument.Styles("QLNU表格首行").Font SnK j:|bV
.NameFarEast = "楷体" #;bpxz1lR9
.NameAscii = "Times New Roman" F+ ;{s(wx
.Name = "楷体" >wK ^ W{
.Size = 9 #4(/#K 1j
.Bold = True c65_E<5Z
.Underline = wdUnderlineNone SrV+Ox
.Italic = wdUndefined Te%'9-jk
.Subscript = wdUndefined :kycIM]s
.Superscript = wdUndefined 1v TncU!
End With I0 y+,~\
With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat ZeD""vJRY
.LineSpacingRule = wdLineSpaceSingle q% Eze
.Alignment = wdAlignParagraphCenter @= [/bG
@MfuV4
*
.LeftIndent = CentimetersToPoints(0) &a?&G'?
.RightIndent = CentimetersToPoints(0) aqvt$u8
.FirstLineIndent = CentimetersToPoints(0) {;(X#vK}9
KKm0@Y
myT z
.CharacterUnitLeftIndent = -0.5 =d/ \8\4
.CharacterUnitRightIndent = -0.5 W)"PYC4
.CharacterUnitFirstLineIndent = -0.5 !HA[:-JCz
(>qX>
.LineUnitBefore = 0 VjU;[
.LineUnitAfter = 0 Wt +, 6Cq
.SpaceBefore = 0 <!.'"*2
.SpaceAfter = 0 @l9 qH1
m1 7 8S3
End With k^q}F%UV
ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False <BIj
a
ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll e^g3J/aU
ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese 15Vb`Vf`N
ActiveDocument.Styles("QLNU表格首行").NoProofing = True *|n::9
DoEvents W_EM
k
^ 7`"wj14
'表格内容 [/#c9RA
ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") (7RxCo=X
ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False 2e}${NZN
With ActiveDocument.Styles("QLNU表格内容").Font /^~3Ib8Fw+
.NameFarEast = "楷体" V:h-K `~ /
.NameAscii = "Times New Roman" W4yNET%l,
.Name = "楷体" GS |sx
.Size = 9 '3Ir(]Wfd
.Bold = False @Taj++ua
.Underline = wdUnderlineNone fI%+
.Italic = wdUndefined 7<Fp3N 3
.Subscript = wdUndefined Wxl^f?I`:
.Superscript = wdUndefined kJ6=T6s
End With . xT8@]
With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat !FweXFl
.LineSpacingRule = wdLineSpaceSingle _S:6;_bz
.Alignment = wdAlignParagraphCenter e";r_J3w
qvz2u]IOw
.LeftIndent = CentimetersToPoints(0) hWK}] gF
.RightIndent = CentimetersToPoints(0) 7%Zl^c
>q
.FirstLineIndent = CentimetersToPoints(0) `nc cRy< l
0N3 cC4!
.CharacterUnitLeftIndent = -0.5 wiWpz
Jz
.CharacterUnitRightIndent = -0.5 \Q"o\:IoIT
.CharacterUnitFirstLineIndent = -0.5 DpIv <m]
.LineUnitBefore = 0
so|5HR|
.LineUnitAfter = 0 > ;',U<Wd
.SpaceBefore = 0 \F%5T RoC
.SpaceAfter = 0 =z'w-ARy
End With <{7CS=)
ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False r}O K3J
ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll U^4
/rbQ
ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese &sL(|>N
ActiveDocument.Styles("QLNU表格首行").NoProofing = True N =K|Nw
DoEvents N9r} nqCN
^(I4Do~}
'图片标题 -k{n"9a9?
ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") lkf(t&vL
2
ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" 66<3zadJZU
ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False CW k#Amt.
With ActiveDocument.Styles("QLNU图片标题").Font ]%I cUd}
.NameFarEast = "楷体" ~U&,hFSPY
.NameAscii = "Times New Roman" -UaUFJa8K&
.Name = "楷体" @sly-2{e1
.Size = 10.5 yH>`Kbf T
.Bold = True - |
mWi
.Underline = wdUnderlineNone 0$3\D S<E
.Italic = wdUndefined @psyO]D=j%
.Subscript = wdUndefined 16MRLDhnD
.Superscript = wdUndefined {aI8p }T
.Outline = False
NLFSw
.Shadow = False 2= X 2M
.Color = wdColorAutomatic >9c$2d|>
End With 3 X$)cZQ
With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat 8P r H"pI
.LineSpacingRule = wdLineSpaceSingle Y :C 7S~
.Alignment = wdAlignParagraphCenter ZCi~4&Z#
>W"g
r]R<
.KeepWithNext = wdUndefined 8~?3: IZ
.KeepTogether = True E6n3[Z
.OutlineLevel = wdOutlineLevelBodyText q10gKVJum
"Mgx5d
.LeftIndent = CentimetersToPoints(0) =>Y b~r71
.RightIndent = CentimetersToPoints(0) <}b`2/wP
.FirstLineIndent = CentimetersToPoints(0) xwa5dtcn
g
Zam.g>{]
.CharacterUnitLeftIndent = 0 ZdHfZ3)dB
.CharacterUnitRightIndent = 0 mLU4R Q}5
.CharacterUnitFirstLineIndent = 0 PL/as3O^A
SU OuayE
.LineUnitBefore = 0 f3e# .jan
.LineUnitAfter = 0 E"5
z T1d
End With $: " r$7
ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False U@+
@Mc
ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll 0es[!
ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese <v;;:RB6
c
ActiveDocument.Styles("QLNU图片标题").NoProofing = True u2
a
U0k:
DoEvents k"|4
LPv[
*6~ODiB
'目录项 X l#P@60
ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") I|lz;i} $
ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" JqTkN Ki/s
ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False *)k}@tY
With ActiveDocument.Styles("QLNU目录项").Font 2g1[ E_?
.NameFarEast = "黑体" V 6"<lK8"
.NameAscii = "Times New Roman" `_sc_Y|C!
.NameOther = "Times New Roman" i"%
X[ (U7
.Name = "黑体" vCT5do"C&
.Size = 10.5 M}NmA
.Bold = False
R6~x
!
.Italic = wdUndefined ?Y2ZqI
.Underline = wdUnderlineNone !%x8!;za
.Color = wdColorAutomatic ^"\ jIP
.Superscript = wdUndefined e2Sm.
H '
.Subscript = wdUndefined UKp- *YukT
End With zVe@`gc
With ActiveDocument.Styles("QLNU目录项").ParagraphFormat t3K7W2bz
b:/ ;
.LineSpacingRule = wdLineSpaceSingle }l&Uh &B`
.Alignment = wdAlignParagraphLeft 0 Vv 6B 2<
AOQimjW9a
.WidowControl = False J& }/Xw)
.KeepWithNext = False lk{
.KeepTogether = False \o9-[V#Gm
.PageBreakBefore = False 6\ /x
.NoLineNumber = False D/jB .
.OutlineLevel = wdOutlineLevelBodyText Ei2 Y)_
yiGq?WA7
.LeftIndent = CentimetersToPoints(0) Z^,C><Yt
.RightIndent = CentimetersToPoints(0) an^"_#8DA@
.FirstLineIndent = CentimetersToPoints(0) 2b xkZS]
fk4 s19;?
.CharacterUnitLeftIndent = 0 `;b@a<Wl
.CharacterUnitRightIndent = 0 /*g3TbUs
.CharacterUnitFirstLineIndent = 0 egboLqn
`O
( e c
.LineUnitBefore = 0 zu&5[XL
.LineUnitAfter = 0 /2-S /,a
End With X-9>;Mb
~y
ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False / <WB%O
ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll n'=-bj`
ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot Et ty{r
}
ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese y0>asl
ActiveDocument.Styles("QLNU目录项").NoProofing = True A_1cM#4
DoEvents tWQ_.,ld
7P O3{ I
'参考文献 8R Wfv}:X
ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") cVJ"^wgBt
ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" VTySKY+
ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False |cStN[97%
With ActiveDocument.Styles("QLNU参考文献").Font {~>?%]tf
.NameFarEast = "宋体" emOd<C1A
.NameAscii = "Times New Roman" K^`3 Bg
.NameOther = "Times New Roman" ?F20\D\V
.Name = "Times New Roman" [H z_x(t26
.Size = 12 C4],7"Sw
.Bold = False w\k |^
.Italic = wdUndefined E ZaWEW
.Subscript = wdUndefined 0 F-X.Dq
.Superscript = wdUndefined TSqfl/UI
.Underline = wdUnderlineNone
$A"kHS7T
.UnderlineColor = wdColorAutomatic s42M[BW]
.Color = wdColorAutomatic M3@Wb@
.Engrave = False duB
{ 1
End With jW*| Mu>2
With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat *JE%bQ2Q
?| '+5$
.LineSpacingRule = wdLineSpaceExactly
@#K19\dQ
.LineSpacing = 16 R/r)l<X@
.Alignment = wdAlignParagraphLeft 84^ '^nd
.WidowControl = False Ov"]&e(I[
.KeepWithNext = False R;&C6S
.KeepTogether = False \ "B?'Ep;
.PageBreakBefore = False QU^*(HGip
.OutlineLevel = wdOutlineLevelBodyText A<l 8CWv[
D].!u {##
.LeftIndent = CentimetersToPoints(0) Jm$. $B&I
.RightIndent = CentimetersToPoints(0) tGnBx)J|
.FirstLineIndent = CentimetersToPoints(0) ~4h<nc
a AZS^S4v
.CharacterUnitLeftIndent = 0 bqp6cg\p
.CharacterUnitRightIndent = 0 S[!K
.CharacterUnitFirstLineIndent = -2 l
T~RH0L
zb.^ _A
.LineUnitBefore = 0 :b)IDcW&j:
.LineUnitAfter = 0 =; Gw=m(
.SpaceBefore = 0 3Yf&F([t
.SpaceAfter = 0 J#vIz Q
o&P}GcEIw
End With n
4Nb,)M
ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False O,R5csMh
ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll n/#zx:d?
ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS P'f
=r%
ActiveDocument.Styles("QLNU参考文献").NoProofing = True 5ckL=q"+/
ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese }S51yDV G_
DoEvents {'VP_ZS1v
~> &7~N8
' zY~
ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") O6Bs!0,
ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" @5N^^B
ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False nf& P Dv1
With ActiveDocument.Styles("QLNU论文题目").Font }&D~P>1
.NameFarEast = "黑体" XlUM ~(7+v
.NameAscii = "Arial Black" C,7
d
.NameOther = "Arial Black" qd#?8
.Name = "Arial Black" O=UX e]D
.Size = 16 0X@! i3eu
.Bold = False _@9[c9bO
.Italic = wdUndefined vN:gu\^-
.Superscript = wdUndefined 3~Od2nk(x
.Subscript = wdUndefined \"Z^{Y[,;
.Underline = wdUnderlineNone L;zwqdI
.UnderlineColor = wdColorAutomatic V(_OyxeC{2
.Color = wdColorAutomatic i2KN^"v?N
{Vw+~8
End With X.hU23w
With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat z<aB GG
.LineSpacingRule = wdLineSpaceSingle I Wcgh`8
.Alignment = wdAlignParagraphCenter $Llv6<B
.WidowControl = True YXI_ '
.KeepWithNext = True v+uq
.KeepTogether = True ,?k[<C
.PageBreakBefore = True XWN
ra
.NoLineNumber = False D ]Q,~Y&'
.OutlineLevel = wdOutlineLevelBodyText f =@'F=
G n"]<8yl~
.LeftIndent = CentimetersToPoints(0) Fb=(FQ2Y?
.RightIndent = CentimetersToPoints(0) \ MBbZB9@
.FirstLineIndent = CentimetersToPoints(0) s tuj,8
bA}9He1
.CharacterUnitLeftIndent = 0 HA& 7
ybl
.CharacterUnitRightIndent = 0 )3 # gpM
.CharacterUnitFirstLineIndent = 0 {Q],rv|;
H'k $<S
.LineUnitBefore = 1 _+PiaJ&'
.LineUnitAfter = 1 sC
>_ulkoa
I^"ou M9}Q
.BaseLineAlignment = wdBaselineAlignAuto #\s*>Z
End With ir/m. ~?
ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False /ivcqVu]
ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll K
;\~otR^
ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS VuA7rIF$66
ActiveDocument.Styles("QLNU论文题目").NoProofing = True `i5U&K. 7
ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese MuX p*s3[
ActiveDocument.Styles("QLNU论文题目").NoProofing = True W Ll_;BgN
DoEvents ^hq+
L ^$^
FsQeyh>
'中文摘要
"%fh`4y3\
ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") .j?`U[V%a
ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" MCOiB <L6
ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False u3 k%
With ActiveDocument.Styles("QLNU中文摘要").Font abiZ"?(
.NameFarEast = "宋体" Cbu /7z
.NameAscii = "Times New Roman" $/;D8P5/&=
.NameOther = "Times New Roman" t80s(e
.Name = "Times New Roman" fB^h2
.Size = 12 a (AKVk\
.Bold = wdUndefined e$]`
.Superscript = wdUndefined Py* ( %
.Subscript = wdUndefined f%vJmpg
.Italic = wdUndefined HT&CbEa4'
.Underline = wdUnderlineNone /(I
V+
.UnderlineColor = wdColorAutomatic ~hK7(K
.Color = wdColorAutomatic uQh dg4
End With m(CW3:|
With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat Z(DCR/U=(>
.LineSpacingRule = wdLineSpaceExactly 0VsQ$4'V^
.LineSpacing = 20 d 90
.Alignment = wdAlignParagraphLeft o V"d%ks
6.
N ?=R
.WidowControl = False ro|mW P0
.KeepWithNext = False xC N6?
.KeepTogether = True YXCltM
E
.PageBreakBefore = False Zjis0a]v~k
.NoLineNumber = False _M'WTe
.OutlineLevel = wdOutlineLevelBodyText fkf69,+"]
kQ~2mU
.LeftIndent = CentimetersToPoints(0) Mo?eVtZ
.RightIndent = CentimetersToPoints(0) Gl8D
GELl;
.FirstLineIndent = CentimetersToPoints(0) E;!pK9wL|
4 =/5
.CharacterUnitLeftIndent = 0 ;1qE:x}'H
.CharacterUnitRightIndent = 0 <xM$^r)
.CharacterUnitFirstLineIndent = 2 7P1G^)
.LineUnitBefore = 0 ;pe1tp
.LineUnitAfter = 0 Z]
?Tx2|7
U\aP
End With )9/.K'o,dy
ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False HYVSi 3[
ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll +B(x:hzY 9
ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS j"(o>b v7
ActiveDocument.Styles("QLNU中文摘要").NoProofing = True t Gt/=~n9
ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese wM.z/r \p
ActiveDocument.Styles("QLNU中文摘要").NoProofing = True EmrUzaGD
ActiveDocument.Styles("QLNU中文摘要").Frame.Delete %smQ`
u|
DoEvents ?LJ$:
u
( Z:(f~;
ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") *+(t2!yFmE
ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" cs[_TJo
ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False ?88k`T'EI
With ActiveDocument.Styles("QLNU英文标题").Font m 2c>RCq
.NameFarEast = "黑体" TdGda'C
.NameAscii = "Arial Narrow" W P7 RX|7
.Name = "Arial Narrow" 8VG6~>ux'>
.Size = 16 'Cv,:Q
.Bold = True 1 & G0;
.Bold = wdUndefined AI
KLJvte
.Superscript = wdUndefined \8j 5b+
.Subscript = wdUndefined }/tT=G]91
.Italic = wdUndefined MJ5Ymt a
o95)-Wb
.Underline = wdUnderlineNone S1jI8 #z}_
.UnderlineColor = wdColorAutomatic MT BHFjXO
.StrikeThrough = False cr GFU?8
.DoubleStrikeThrough = False z4t.- 9(C
End With )Ve
-) rZ
With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat
[/dGOl+
.LineSpacingRule = wdLineSpaceSingle [5[}2 B_t
.Alignment = wdAlignParagraphCenter ?%RAX CK
.WidowControl = True xPBSJhla
.KeepWithNext = False fP 1V1ao
.KeepTogether = False L8OW@)|
.PageBreakBefore = False $+(Df|)
.NoLineNumber = False (Hk4~v6pqC
.FirstLineIndent = CentimetersToPoints(0) [z XK S |
.OutlineLevel = wdOutlineLevelBodyText <Q57}[$*)
'{]1!yMh
.LeftIndent = CentimetersToPoints(0) )ph* *g
.RightIndent = CentimetersToPoints(0) UN ;9h9
.FirstLineIndent = CentimetersToPoints(0) K:!){a[
/V'^$enK!}
.CharacterUnitLeftIndent = 0 -CV_yySc
.CharacterUnitRightIndent = 0 J%Vcv BaJm
.CharacterUnitFirstLineIndent = 0 Xjb 4dip
a=ye!CN^
.LineUnitBefore = 1 ?O(@B T
.LineUnitAfter = 1 wyzx9`5~d
b"D? @dGB,
End With EY3x o-H
ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False }YV,uJH[
ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll Ah^0 FU%!g
ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS 8: # \g
ActiveDocument.Styles("QLNU英文标题").NoProofing = True ? :StFlie
ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese ~ZrSoVP=
ActiveDocument.Styles("QLNU英文标题").NoProofing = True (EW<Ggi
ActiveDocument.Styles("QLNU英文标题").Frame.Delete ggluQG A
DoEvents u&4CXv=
[3$L}m
ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") 2MT_5j5[N
ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" fZ QL!j4
ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False FHz tF$Z
With ActiveDocument.Styles("QLNU英文摘要").Font x"g-ok LN
.NameFarEast = "宋体" `
=ocr8c
.NameAscii = "Arial" EY~b,MI L4
.NameOther = "Arial" sk ' < K5~
.Name = "Arial" D l C\sm
.Size = 12 (<M^C>pldf
.Bold = wdUndefined dA,irb I0W
.Italic = wdUndefined }"}
z7Xb0
.Superscript = wdUndefined Q 6>7{\8l
.Subscript = wdUndefined un*Ptc2%
End With 'u 9,L FO
nsT]Yxo%M
With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat jbQ N<`!
3k YVk
.LineSpacingRule = wdLineSpaceExactly g%C!)UbT
.LineSpacing = 20 E l f '
1
2!-?
.Alignment = wdAlignParagraphJustify $}&r.=J".
)-qWcf?
.WidowControl = False (CUrFZT$
.KeepWithNext = False '5^$v{
.KeepTogether = False g)Ep'd-w"
.PageBreakBefore = False N5W;Zx]
.NoLineNumber = False -dRnozs6W
$H0diwl9R
.OutlineLevel = wdOutlineLevelBodyText NO$n-<ag
7JC^+ rk
.LeftIndent = CentimetersToPoints(0) GCrIa Z
.RightIndent = CentimetersToPoints(0) ]JGh[B1gh
.FirstLineIndent = CentimetersToPoints(0) 2bJqZ ,@
3C:!\R
.CharacterUnitLeftIndent = 0 K)-Gv|*
t
.CharacterUnitRightIndent = 0 Th!.=S{Y5
.CharacterUnitFirstLineIndent = 2 N=2BrKb)o
M't~/&D#
.LineUnitBefore = 0 T >pz/7gb
.LineUnitAfter = 1 rbC4/ 9G\
j[E8C$lW
End With f/1soGA
ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False c L+-- $L
ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll U2Uf69R
ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS v %?y5w
ActiveDocument.Styles("QLNU英文摘要").NoProofing = False Oup5LH!sW
DoEvents cZ8lRVaWW
"h@|XI
Options.Pagination = True 8PN/*Sa
Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." ~Te9Lq |
DoEvents ] lBe
ActiveDocument.Repaginate "zN2+X"&
`2Wt A_
End Sub _ :R Q9x'
Z)V m,ng
^{ Kj{M22
