Dim bContinue As Boolean
>d27[% gB{]yA"(' Dim regEX As New RegExp
J]|6l/i Dim paraCounter As Long '全局段落计数，仅在主程序中可读写，其它过程函数应为只读
=hugnX<9 TM/ |K|_ Dim LastTitle0String As String, LastTitle0No As Long
/ UaNYv / Dim LastTitle1String As String, LastTitle1No As Long
1fO2)$Y Dim LastTitle2String As String, LastTitle2No As Long
S4 k^&$; Dim LastTitle3String As String, LastTitle3No As Long
liCCc;&B; Dim LastTitle4String As String, LastTitle4No As Long
`Dz]z_
Dim LastTitle5String As String, LastTitle5No As Long
5}X<(q( Dim LastTabelString As String, LastTableNo As Long
h$aew63 Dim LastFigureString As String, LastFigureNo As Long
7>t$<J RP`GG+K Dim strSeperator As String
_
r^90 p-Rm,xyL% Sub ConvertWidth(fTEXT As String, rText As String)
n $O
.> Selection.Find.ClearFormatting
^T}}4I_Y Selection.Find.Replacement.ClearFormatting
N'eQ>2>O@ Selection.Find.Wrap = wdFindContinue
+;:aG6q+ Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText
9
N*S-Po= DoEvents
~.4W,QLuD Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True
^:cb
$9F End Sub
j h1 bn VNr Sub ClearDomain()
KB %j ! ? With Selection.Find
$K6?(x_ .ClearFormatting
B~V<n&< .Replacement.ClearFormatting
+B` 'P9Zk@ .Wrap = wdFindContinue
"5o;z@(
Me.txtStatus.Text = "清除所有域代码"
4+/
fP DoEvents
&e HM#as .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False
\N`fWh8& End With
')P2O\YS End Sub
{m_ A1D/_ 9* -pden
l Private Sub cmdCheck_Click()
\'s$ZN$ k bContinue = True
J3lG"Ww Dim NoSeries1(1 To 16) As String
+
4V1>e+ Dim NoSeries2(1 To 16) As String
r}_Lb.1] Dim NoSeries5(1 To 16) As String
F=
_uNq Dim NoSeriesRM(1 To 16) As String
eN<>#: ` Dim paraTotal As Long, ParaText As String
.y %pGi Dim ttString As String, ttNo As String
0.J1!RIK/ ^(dGO)/ Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long
Xc8= 2n vB{; N
Me.txtStatus.Visible = True
&A
Qg'| Me.lbParaType.Visible = True
up+.@h{ Me.cmdCheck.Enabled = False
fW5" 4, /`4v"f0V &prdlh=UE ~{1/* &P ]/ZA/: Oa+ Dim ParaType As String, rText As String
C}(<PN T $tD
CS Selection.WholeStory
G!!- +n< Selection.NoProofing = True
cotxo?)Zv v2M
"b?Q tm1 = Now
HsjELbH |n|U;|'^ ActiveWindow.View.Type = wdNormalView
zJnL< Q 3r~>~ueZ NoSeries1(1) = "一"
5T$9'5V7 NoSeries1(2) = "二"
1EC -e|M. NoSeries1(3) = "三"
iioct_7,g< NoSeries1(4) = "四"
{2} tPT[a( NoSeries1(5) = "五"
Qfkh0DX
B NoSeries1(6) = "六"
9:9N)cNvfX NoSeries1(7) = "七"
Tsm)&$JI8 NoSeries1(8) = "八"
n=<NFkeX NoSeries1(9) = "九"
.q5J^/kr NoSeries1(10) = "十"
vi[#? ;pkF NoSeries1(11) = "十一"
B^8
ZoF NoSeries1(12) = "十二"
r3+<r<gs NoSeries1(13) = "十三"
3 :]{(@J NoSeries1(14) = "十四"
+ AcKB82 NoSeries1(15) = "十五"
*}
*!+C3 NoSeries1(16) = "十六"
q:`77 eD*?q7 NoSeries2(1) = "㈠"
L~*|,h NoSeries2(2) = "㈡"
klK-,J NoSeries2(3) = "㈢"
};|! Lhl+ NoSeries2(4) = "㈣"
n V!2Dfd NoSeries2(5) = "㈤"
p |&ZJ@3 NoSeries2(6) = "㈥"
r,` Z.A NoSeries2(7) = "㈦"
_Hz~HoNU NoSeries2(8) = "㈧"
$' A4RVVT NoSeries2(9) = "㈨"
X[GIOPDx NoSeries2(10) = "㈩"
,h%D4EV x a'
IX yj NoSeries5(1) = "①"
1&X}1 NoSeries5(1) = "②"
SWNU1x{,c\ NoSeries5(3) = "③"
KXoL,)Hl NoSeries5(4) = "④"
ysSjc NoSeries5(5) = "⑤"
L?=#*4t NoSeries5(6) = "⑥"
U Lp)T`P NoSeries5(7) = "⑦"
fbh6Ls/ NoSeries5(8) = "⑧"
d'N(w7-Y NoSeries5(9) = "⑨"
[+hy_Nc$ NoSeries5(10) = "⑩"
vh9kwJyT XPHQAo[(s x !#Ma NoSeriesRM(1) = "I"
G t^|+[gD NoSeriesRM(2) = "II"
9 0 NoSeriesRM(3) = "III"
8BYIxHHz NoSeriesRM(4) = "IV"
ewb* ?In NoSeriesRM(5) = "V"
egZyng
pB NoSeriesRM(6) = "VI"
cPA~eZbX NoSeriesRM(7) = "VII"
Nk lz_ ] NoSeriesRM(8) = "VIII"
JwN}Jm NoSeriesRM(9) = "IX"
eVqM=%
Q NoSeriesRM(10) = "X"
R4#;<) NoSeriesRM(11) = "XI"
nuf@}W>y NoSeriesRM(12) = "XII"
$l#v/(uFa NoSeriesRM(13) = "XIII"
}Kv h`@CiJ NoSeriesRM(14) = "XIV"
>:w?qEaE NoSeriesRM(15) = "XV"
+G*"jI8W NoSeriesRM(16) = "XVI"
XAjd
%Xv< tyc8{t#Z i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo)
y;,=a jrF jGO9 n If i = vbNo Then
MxM]( ew~7 Exit Sub
O{lIs_1.Z End If
VqcBwJ!?p =8$| _ If Me.chkSuper.Value Then
~/^y.Ss WM Me.txtStatus.Text = "检查修改所有的上标格式"
:[y]p7;{f 5xh!f%6 CheckSuperScript
a(PjcQ4dY Y5n z?a End If
HBt|}uZ?6i .@y{ )/ If Me.chkStyle.Value Then
?ada>"~GR_ Me.txtStatus.Text = "设置样式，请稍候...."
^-gfib|VGe DoEvents
,bB( 24LD CeateOrModifyStyle
/HB+ami, End If
lTa1pp
Zw tP}Xhn` R(M}0JRm 8k u?
W ClearDomain
Hnfvo*6d.e pY^pTWs( 1U717u kVV\*"9y If Me.chkLIST.Value Then
g g erh# Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式"
J|n(dVen/ R'S c ConvertListToOrdinary
J y]FrSm^ End If
$cRc ap <'r0r/0g? [NQmL=l Dim pType As String, trimpTEXT As String
GLo\q
:5A If Me.chkNum.Value = True Then
NY4!TOp Me.txtStatus.Text = "转换全角数字形式为半角"
;): 8yBMk ConvertWidth "１", "1"
4fu'QZ (} DoEvents
lr 9=OlH ConvertWidth "２", "2"
Ty`-r5 DoEvents
z[WC7hvU ConvertWidth "３", "3"
DBQOxryP>o DoEvents
"sFW ~Y ConvertWidth "４", "4"
8 # 6\+R DoEvents
oUl=l}qnD ConvertWidth "５", "5"
L@7Qs6G2u DoEvents
.i
MnWW ConvertWidth "６", "6"
]WTf< W< DoEvents
_L$)2sl1R ConvertWidth "７", "7"
Bj;\mUsk DoEvents
x7vq?fP0n ConvertWidth "８", "8"
Vh 2Bz DoEvents
Lf5%M|o.) ConvertWidth "９", "9"
"n
VK< V d DoEvents
1Z\(:ab13 ConvertWidth "０", "0"
\9046An DoEvents
+n@f'a"> ConvertWidth "ａ", "a"
}BA9Ka#% DoEvents
x^z
dTMNhw ConvertWidth "ｂ", "b"
Z1VC5* K DoEvents
CkRyzF ConvertWidth "ｃ", "c"
IO}+[%ptc* DoEvents
%GM>u2baw ConvertWidth "ｄ", "d"
gsnP !2cR DoEvents
n"(7dl? ConvertWidth "ｅ", "e"
/m97CC#+ DoEvents
+2-
qlU ConvertWidth "ｆ", "f"
ZrFr `L5F; DoEvents
o^6jyb!j ConvertWidth "ｇ", "g"
y:qx5M i DoEvents
*y)4D[
z- ConvertWidth "ｈ", "h"
3Z_t%J5QZ$ DoEvents
%p<$|' ConvertWidth "ｉ", "i"
# .~ga7Q DoEvents
d/l, C4p ConvertWidth "ｊ", "j"
(F/HU" C DoEvents
L30>| g ConvertWidth "ｋ", "k"
uQ{=o]sy DoEvents
:lgHL3yl ConvertWidth "ｌ", "l"
0LS -i% 0 DoEvents
aL88E
ConvertWidth "ｍ", "m"
$kD
7y5 DoEvents
%,33gZzf ConvertWidth "ｎ", "n"
f_oq1 W)9 ConvertWidth "ｏ", "o"
]PeLcB ConvertWidth "ｐ", "p"
S
<2}8D ConvertWidth "ｑ", "q"
)\8URc| J ConvertWidth "ｒ", "r"
uK"^*NEC'; ConvertWidth "ｓ", "s"
qpoquWZ ConvertWidth "ｔ", "t"
66/ Z\H^d ConvertWidth "ｕ", "u"
Hr(6TLNw ConvertWidth "ｖ", "v"
I|H,)!Z ConvertWidth "ｗ", "w"
DP|TIt ,Rl ConvertWidth "ｘ", "x"
DYc.to- ConvertWidth "ｙ", "y"
$2Ka u 1 ConvertWidth "ｚ", "z"
I%SuT7"Do ConvertWidth "Ａ", "A"
4S'[\ZJO ConvertWidth "Ｂ", "B"
PoJmW^:} ConvertWidth "Ｃ", "C"
ojX%R U ConvertWidth "Ｄ", "D"
U ?^OD ConvertWidth "Ｅ", "E"
Nfr:`$k ConvertWidth "Ｆ", "F"
;?0_Q3IML ConvertWidth "Ｇ", "G"
- &@]M>r@ ConvertWidth "Ｈ", "H"
Q6u{@$(/N ConvertWidth "Ｉ", "I"
:qBGe1Sv( ConvertWidth "Ｊ", "J"
p`\3if' ConvertWidth "Ｋ", "K"
D)y{{g*Lnm ConvertWidth "Ｌ", "L"
9H>BWjS ConvertWidth "Ｍ", "M"
^ )|&| ConvertWidth "Ｎ", "N"
[w,(EE ConvertWidth "Ｏ", "O"
?2/ uSG| ConvertWidth "Ｐ", "P"
FH4u$ g+ ConvertWidth "Ｑ", "Q"
p=2 zS.
ConvertWidth "Ｒ", "R"
<} &7 a s ConvertWidth "Ｓ", "S"
{nTG~d ConvertWidth "Ｔ", "T"
Dh2#$[/@1 ConvertWidth "Ｕ", "U"
S
c$gnUYD{ ConvertWidth "Ｖ", "V"
wjL
|Z8 ConvertWidth "Ｗ", "W"
DUqJ y*F( ConvertWidth "Ｘ", "X"
xsYE=^uv ConvertWidth "Ｙ", "Y"
4 ^4d9?c ConvertWidth "Ｚ", "Z"
j+
$ M?Z^ ConvertWidth "^l", "^p"
7LG+$LEz ConvertWidth "（", "("
IeZ&7u ConvertWidth "）", ")"
b9 `i Z oL#xDG End If
~
W@X- hBjVe?{ With ActiveDocument
Gv;
;!sZ Dim tbl As Table
p
7s@%scp For Each tbl In .Tables
vT%qILTrQf tbl.Rows.Alignment = wdAlignRowCenter
Bw6 L; Vu tbl.Range.Font.NameFarEast = "楷体"
)Ea8{m! tbl.Range.Font.NameAscii = "Times New Roman"
~ eHRlXL' tbl.Range.Font.Size = 10.5
y">fN0{< Next
J6DnPaw-G Set tbl = Nothing
yE}BfU { . End With
FtN}]@F I
|Z/`9T :"V ujvFX With ActiveDocument
10?qjjb&
^,+nef?= For i = 1 To .TablesOfContents.Count
XjxPIdX_H .TablesOfContents(i).Delete
mqdO u{kQ Next
^/k , n"iNKR>nW $.wA?`1aSk ,6DD=w 0r paraTotal = .Paragraphs.Count
Mxo6fn6-46 paraCounter = 1
!Ri
r&gF /oFc 03d LastTitle0No = 0
*
flW L LastTitle1No = 0
R0vww_ fz LastTitle2No = 0
`v~!H\q LastTitle3No = 0
B=r0?%DX"1 LastTitle4No = 0
m*`cuSU|o LastTableNo = 0
cI3 y LastFigureNo = 0
lw s(
/a*c i =-8@ Dim Sec As Long
~> PgJ ^G !Qcir&]C> Sec = InputBox("正文从第一节开始？", "节设置", 6)
R+d<
fe If Sec = 0 Then
YwGH G{?e Exit Sub
te) n{K", End If
mGO >""<:
aV<^IxE; k = 0
\04mLI Jr9 Do While (paraCounter < paraTotal) And bContinue
fSjs?zd ` k = k + 1
T(JuL<PB If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then
6%E~p0)i% Exit Do
<F QFv
IKg End If
j AQU~Ol_ paraCounter = paraCounter + 1
_PV*lK= If k Mod 20 = 0 Then
"?P[9x} Me.lbCounter.Caption = paraCounter
9^au$KoU DoEvents
vnTq6:f#M End If
G,=F<TnI' Loop
[]"=]f{1}; Q70b EHLA e{0L%%2K Do While (paraCounter < paraTotal) And bContinue
f|#8 qiUS Z ^*NnL.' ParaText = Trim(.Paragraphs(paraCounter).Range.Text)
tfA}`*$s ShapeHeight = 0
Z["BgEJ ShapeWidth = 0
./7v",#*.' yc[(lq.^n CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth
\"'\MA K^aj@2K{ Select Case ParaType
+RS$5NLH Case "【】表格内容"
>ukQ, CE~ .Paragraphs(paraCounter).Style = "QLNU表格内容"
9KyZEH;pY Case "章"
e=7W 7^"_ LastTitle0No = LastTitle0No + 1
8 aZ$5^z '新一章开始，复位其下属标题编号
9_UN.] LastTitle1No = 0
R]Ek}1~? LastTitle2No = 0
=-Nsc1& LastTitle3No = 0
-TTs.O8P|< LastTitle4No = 0
%l]Rh/VPn? wd wp9 r k = Val(ttNo)
> fH*XP>( If k = 0 Then '非数字编号章节
MxTmWsaW If ttNo <> NoSeries1(LastTitle0No) Then
nVX g,Jl rText = "第" & NoSeries1(LastTitle0No) & ttString
;%W dvnW Me.ErrMsg.AddItem "章节编号错误：" & ParaText
781]THY= End If
7TpRCq# Else
ddoFaQ8 If Val(ttNo) <> LastTitle0No Then
c" +zgP rText = "第" & LastTitle0No & ttString
O:e#!C8^ Me.ErrMsg.AddItem "章节编号错误：" & ParaText
+xZQJeKb
End If
O# : &*Mv w4,]2Ccn. End If
j=9ze op
% AWT"Y4Ie '章段落设置
e #M iaX '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅
6{.J:S9n
.Paragraphs(paraCounter).Style = "QLNU章节"
Oc~aW3*A( .Paragraphs(paraCounter).Range.Select
4sIX O Selection.EndKey unit:=wdLine
(ii( yz| tc = Replace(rText, vbCr, "")
M &f#wQ Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False
{fU?idY)c Case "一级标题"
4-V)_U#8 LastTitle1No = LastTitle1No + 1
HxIo A '新一级标题开始，复位其下属标题编号
`|EH[W&y LastTitle2No = 0
t8/%D gu LastTitle3No = 0
B?3juyB`-- LastTitle4No = 0
krjN7& ~RInN +N# If ttNo <> NoSeries1(LastTitle1No) Then
r|fO7 PD rText = NoSeries1(LastTitle1No) & "、" & ttString
SO3cY#i
z" Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText
Vo M 6 End If
(' 4wXD]C _ B[ WY ! Mo`^ t '一级标题段落设置 格式：一、标题内容
MwAJ( .Paragraphs(paraCounter).Range.Text = rText
!y. $ J< .Paragraphs(paraCounter).Style = "QLNU一级标题"
|` "? .Paragraphs(paraCounter).Range.Select
Y\( ;!o0a Selection.EndKey unit:=wdLine
aMJ;bQD
tc = Replace(rText, vbCr, "")
\ha-"Aqze3 Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 1 ", PreserveFormatting:=False
$P n
LG]X Case "二级标题"
h/K@IA d LastTitle2No = LastTitle2No + 1
W5Zqgsy($F '新二级标题开始，复位其下属标题编号
}Eh*x Ota LastTitle3No = 0
C
) ?uE' LastTitle4No = 0
Kam]Mn' #wjH4DT If ttNo <> NoSeries1(LastTitle2No) Then
c`jDW S rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString
^N- 'xy ErrMsg.AddItem "二级标题编号错误：" & ParaText
=cn~BnowY End If
YB5dnS"n 7"cv|6y| '二级标题段落设置 格式：(一)、标题内容
0x ~`5h .Paragraphs(paraCounter).Range.Text = rText
3D_"y Z
.Paragraphs(paraCounter).Style = "QLNU二级标题"
f4"4Z
V
cr ah+j!e .Paragraphs(paraCounter).Range.Select
:gf;} Selection.EndKey unit:=wdLine
6t7fa< tc = Replace(rText, vbCr, "")
2h q>T
& 8 Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 2 ", PreserveFormatting:=False
XYAm
J b\giJ1NJB Case "三级标题"
"Pj}E=!k LastTitle3No = LastTitle3No + 1
0
iR R{a< '新三级标题开始，复位其下属标题编号
/ M@ PO" LastTitle4No = 0
YeyGN <
lj\#'G3 If Val(ttNo) <> LastTitle3No Then
V!& P(YO: rText = LastTitle3No & ". " & ttString
L/i( KF{ Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText
>1ZJ{s e eFFc 9'o End If
D:JS)+] '三级标题段落设置 格式：1. 标题内容
sS9%3i/ > .Paragraphs(paraCounter).Range.Text = rText
r~>,$[|n}) .Paragraphs(paraCounter).Style = "QLNU三级标题"
wf9z"B .Paragraphs(paraCounter).Range.Select
wkBL=a Selection.EndKey unit:=wdLine
$ r79n- tc = Replace(rText, vbCr, "")
sV2iITF p Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 3 ", PreserveFormatting:=False
?WHy0x20 Case "四级标题"
K5`Rk" s LastTitle4No = LastTitle4No + 1
FN?3XNp. <2< 87 PU If Val(ttNo) <> LastTitle4No Then
OipqoI2 rText = "(" & LastTitle4No & "). " & ttString
QVtM.oi!Q ErrMsg.AddItem "四级标题编号错误：" & ParaText
e&1 \'Zq?> URw 5U1 End If
AVFjBybu9 '四级标题段落设置 格式：(1). 标题内容
BJ5}GX! .Paragraphs(paraCounter).Range.Text = rText
af'@h: .Paragraphs(paraCounter).Style = "QLNU四级标题"
w4 %AJmt .Paragraphs(paraCounter).Range.Select
m@\ZHbq Selection.EndKey unit:=wdLine
<
kP+eD tc = Replace(rText, vbCr, "")
W&C-/O,m
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC """ & tc & """ \l 4 ", PreserveFormatting:=False
CW`!}yu% -5k2j^r; Case "表格标题"
iM5vrz`n LastTableNo = LastTableNo + 1
`@XehSQ c!wtf,F If ttNo <> CStr(LastTableNo) Then
.'d2J> ~N rText = "表" & LastTableNo & ". " & ttString
O+"ac /r ErrMsg.AddItem "表格编号错误：" & ParaText
.Dw,"VHP }ZzLs/v%X End If
K)N 0,Qwu x_!ZycEa '表格名称段落设置 格式：表1. 表格名称
]db@RbaH .Paragraphs(paraCounter).Style = "QLNU表格标题"
PJ
q yvbD xe = Replace(rText, vbCr, "")
Lh ap4: .Paragraphs(paraCounter).Range.Select
o@k84+tn( Selection.MoveEnd wdCharacter, -1 '选择范围包括行尾的换行符。
^E,1V5 Selection.Range.Text = xe
R#eg^7HfX Selection.EndKey
0m)&Y FZ[( Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False
Phs-(3 1*UN sEr Case "表格首行"
AIZBo@x g .Paragraphs(paraCounter).Style = "QLNU表格首行"
:2y"3azxk Case "图片标题"
&tE.6^F LastFigureNo = LastFigureNo + 1
op @i GC+ zwr\ :Hu4 If ttNo <> CStr(LastFigureNo) Then
6+` tn rText = "图" & LastFigureNo & ". " & ttString
, }J_:\j ErrMsg.AddItem "表格编号错误：" & ParaText
+iA=y=;blH n7l%gA* End If
e:-8k_0| '图片名称段落设置 格式：图1. 图名称
aE/D*.0NI .Paragraphs(paraCounter).Range.Text = rText
e;ty !)] .Paragraphs(paraCounter).Style = "QLNU图片标题"
8l>CR#%@C .Paragraphs(paraCounter).Range.Select
cdTsRS;E Selection.EndKey unit:=wdLine
4["&O=:d xe = Replace(rText, vbCr, "")
s'u(B]E Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE " & """" & xe & """", PreserveFormatting:=False
Vmi{X b]< Case "正文"
p]ivf '正文名称段落设置
X?o(
b/F - .Paragraphs(paraCounter).Style = "QLNU正文"
ln<]-)&C Case "文献条目"
! '0S0a8 With .Paragraphs(paraCounter)
z$[C#5+2 '.Range.Select
s>%Pd7:
'Selection.ClearFormatting
Bs!4H2@{(] '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator 'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ”
TH?9< C-C
.Style = "QLNU参考文献"
Uyx&E?SlEq End With
r;gP}H ? Case "图表注解"
= yXs?y" With .Paragraphs(paraCounter)
'
\~^TF i .Range.Font.NameFarEast = "楷体"
-F1-
e+= .Range.Font.NameAscii = "Times New Roman"
YnTB&GPxl .Range.Font.Size = 9 '小5号字
Zyy
e%Ly #YK5WTn5 .Alignment = wdAlignParagraphCenter
{{!Y] \2S .LeftIndent = 0
~?U*6P)o .RightIndent = 0
)/ |6'L-2 .FirstLineIndent = 0
kWW w<c
A .LineSpacing = 12
SEd5)0X^ .LineSpacingRule = wdLineSpaceExactly
`xz&Scil .LineUnitAfter = 0
6`\ ya@ .LineUnitBefore = 0
L*JPe"N -e .OutlineLevel = wdOutlineLevelBodyText
2]WE({P .PageBreakBefore = False
x f,5R9g/ .RightIndent = 0
uf' 4 ' .WordWrap = True
+ WDq =S .LineUnitAfter = 0.5
G>z,#Xt .p&Yr%
~ End With
0Kv
Vw rWJ Case Else
.}`hCt08 '不作处理
]Pc^#=(R0 End Select
Qa `hR :i*JnlvZ '含有inlineshape的段落处理
IL!=mZ>2O If ShapeHeight > 30 Then
tIuoD+A
W .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle '对有图片的段落设置为单倍行距
`<fh+* End If
t"AzI8O sl|_=oXT If (ShapeWidth + ShapeHeight) > 150 Then
HeA{3s .Paragraphs(paraCounter).Style = "QLNU图片段落"
ycr"Y| End If
glUo7^ay7 P Q U]l"A '段落计数器递
Q-eCHr) paraCounter = paraCounter + 1
ux-CpI Me.lbCounter.Caption = "当前检测段落：" & paraCounter
!;
v~^#M]~ Me.txtStatus.Text = ParaText
cAuY4RV DoEvents
B'we ok
Loop
x\@*6 0o End With
!GK$[9 tE"Si<[]H$ msg = ""
L,]=vba'$
p{Sh F. For i = 0 To Me.ErrMsg.ListCount - 1
]v 29 Rx msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i)
f CcD&<% Next
K : LL_, K_/ B?h ~;#MpG;e 6}dR$*= Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg
Is.WZY a Me.cmdCheck.Enabled = True
Es' Um,ku Me.txtStatus.Visible = True
P?ep] Me.lbParaType.Visible = False
%N ARyz '0t- ]NAc bContinue = False
C)RBkcb End Sub
z/]q)`G ,/,9j{|"j 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)
pa<q ZZ Dim pTEXT As String
mpay^.(% O'DW5hBL0 pTEXT = ChKRange.Text
9#/(N#> #exss=as/ ParaType = "其它"
7;} l\VXHm TitleString = pTEXT
H+ C6[W= TitleNo = "N/A"
9NpD!A&64< 7^: 4A' shpCounter = ChKRange.InlineShapes.Count
\%A%s*1 If shpCounter <> 0 Then
m7qqY
MaxShpHeight = 0: TotalShpWidth = 0
Tpr tE.mP For i = 1 To shpCounter
V H^AcO k = ChKRange.InlineShapes(i).Height
lmCZ8 j(FF l = ChKRange.InlineShapes(i).Width
$2#7 D*
Rx If k > MaxShpHeight Then
ktH8as^54! MaxShpHeight = k
C+V*
Fh3 End If
SUtf[6 TotalShpWidth = TotalShpWidth + l
M>H=z#C>/A Next
`\Unpp\I If MaxShpHeight > 60 Or TotalShpWidth > 150 Then
E~hzh /,34 Exit Sub
[_6 &N. End If
53O J-m%a End If
Mi7y&~, }_OM$nzj '空行
pchBvly+0 If Len(pTEXT) <= 2 Then
#-# NqX: Exit Sub
1|Q
vN1? End If
=XY] x .ln8|;% GdmmrfXB '是否为表格中的文字
&h~aChJ If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then
k(s;,B\ ParaType = "表格内容"
C Ac
%f9!3 k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber)
3OqX/z, If k = 1 Then
j 6)Y
ParaType = "表格首行"
|M~ON= End If
!~iGu\y Exit Sub
O&Z' r End If
yy2I2Bv xytr2V ]aV '例外情况：脚注
"$^0%- If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then
=y]$0nh ParaType = "脚注"
Ug"rJMZG Exit Sub
?.bnIwQe End If
z ; }6f g!J0L7 i| '例外情况：尾注
C;rG]t^% If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then
n(;:*<Rh ParaType = "尾注"
@R2at Exit Sub
_^ t-9 End If
-uR72f y2yKm1<Ru< If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then
GA3sRFZdQ ParaType = "页眉页脚"
xFF r Exit Sub
F}
DUEDND* End If
)Hw:E71h2 TH1B#Y#<J 6[dur'x With regEX
7"v$- W y .Global = True
GG6% bF u5E]t9~Pq .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$"
mDMt5(. If regEX.Test(pTEXT) Then
kODK@w
V- ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3")
j |(Z#3J TitleString = regEX.Replace(pTEXT, "$3")
g /+oZU TitleNo = regEX.Replace(pTEXT, "$1")
w
YNloU ParaType = "章"
;?L\Fz(< Exit Sub
'c `
jyn End If
h
y-cG% f (Xx n\*S .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$"
LXfCmc9|Z If regEX.Test(pTEXT) Then
1yqoA * ParaType = "一级标题"
{
1lO regEX.Execute (pTEXT)
K % g;NW ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3")
/CX VLl8~ TitleString = regEX.Replace(pTEXT, "$3")
-8Ti*: TitleNo = regEX.Replace(pTEXT, "$1")
)mN9(Ob! Exit Sub
`$R A< 3 End If
+|RB0}hFS- DPDe>3Mi[ '全角或半角括号中的数字
/!&R9!6
: .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$"
\NL+} cL/ If regEX.Test(pTEXT) Then
.0y%5wz8j ParaType = "二级标题"
WQePSU regEX.Execute (pTEXT)
3sm M,fi ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5")
P\R27Jd TitleString = regEX.Replace(pTEXT, "$5")
9@VO+E$7L TitleNo = regEX.Replace(pTEXT, "$2")
i6PM<X,{; Exit Sub
fP-|+
Ty O End If
N
X6nQ 6LUC!Sh '阿拉伯数字 1. 2.
8HErE< _( .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$"
d]v+mVAyE If regEX.Test(pTEXT) Then
^>$P)=O:v ParaType = "三级标题"
r0dDHj
~F regEX.Execute (pTEXT)
I=Zx"'Um ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测
<,%:
TitleString = regEX.Replace(pTEXT, "$3")
M: SO2Czz TitleNo = regEX.Replace(pTEXT, "$1")
?pGkk=,KB Exit Sub
V M=+afY5M End If
& *,:1=p #;tT8[Ewuw '全角或半角括号中的阿拉伯数字
o4^Fo
p .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$"
e 9$C#D> D If regEX.Test(pTEXT) Then
z4U9n'{ ParaType = "四级标题"
x^= M6;: regEX.Execute (pTEXT)
OEgI_= B ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5")
M#j N-ix TitleString = regEX.Replace(pTEXT, "$5")
Ukphd$3J= TitleNo = regEX.Replace(pTEXT, "$2")
m~l
F`? Exit Sub
%Kb9tHg
End If
pxINw>
\Qv df*w>xS '表格名称
v:_B kHN' .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$"
&XLD S=j If regEX.Test(pTEXT) Then
f"5g>[ 1 ParaType = "表格标题"
pd@; b5T regEX.Execute (pTEXT)
wsfd8T4 ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3"))
JWO= !^ TitleString = Trim(regEX.Replace(pTEXT, "$3"))
4&^9Wklj TitleNo = Trim(regEX.Replace(pTEXT, "$1"))
|QZ 58)> strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换
]o/| na* Exit Sub
p9ZXbAJ{ End If
[IBQ vL o >D '图片名称
!fk ep= .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$"
=!MY4&YX If regEX.Test(pTEXT) Then
\' li ParaType = "图片标题"
:Ao!ls' = regEX.Execute (pTEXT)
!
T9]/H? ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3")
Wsj=!Obc TitleString = regEX.Replace(pTEXT, "$3")
l5t2\Fl TitleNo = regEX.Replace(pTEXT, "$1")
-p,x&h,p Exit Sub
$ChK]v
6C End If
T=Z.U$ v"DL'@$Ut{ '参考文献
qCMl!g' .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})" '[数字]、
_GtBP'iN If regEX.Test(pTEXT) Then
b`mj_b ParaType = "文献条目"
vwGeD|Fb5 'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4")
9ptFG]lZ 'TitleNo = regEX.Replace(pTEXT, "[$2] ")
*wbZ;rfF Exit Sub
hP@(6X," End If
A7XnHPIw D^F{u Dlb prfx = Left(pTEXT, 2)
b3$k9dmxV+ If prfx = "注：" Or prfx = "注:" Then
u=+q$ Q] ParaType = "图表注解"
\k8rxW Exit Sub
/\d$/~BFi End If
=([av7 ^U7OMl4Usq Y}R}-+bD/ ParaType = "正文"
dfj\RIV8 B0UJq./` End With
;&;W
T End Sub
gQWd&)'muf 7 6fIC Sub ConvertListToOrdinary()
2(YPz|~ W Dim st As Paragraph
6vz k\n With ActiveDocument
JcO08n For i = .Paragraphs.Count To 1 Step -1
!$qKb_#nC Set st = .Paragraphs(i)
HRa@ lst = st.Range.ListFormat.ListString
w Fn[9_`* If lst <> "" Then
]rBM5~ st.Range.ListFormat.RemoveNumbers
&lc8G st.Range.InsertBefore lst & " "
& ~sfYW End If
} /^C|iS7 Next
[Gr*,nVvB End With
k)(Biz398E Set st = Nothing
e_3CSx8Cc End Sub
j dqj=Yc mz7l'4']+ Private Sub UserForm_Activate()
WgR4Ix^L# Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节"
u62 )QJE Me.lbTotal.Font.Bold = True
S5=Udd" Me.txtStatus.Visible = False
Kf,-4) Me.cmdCheck.Enabled = True
|01? w | V rP}#3I End Sub
dWRrG- ' pb;")Q' 5"Kx9n| Sub CheckSuperScript()
ZFh +x@ Selection.Find.ClearFormatting
b
B Selection.Find.Replacement.ClearFormatting
(X[2TT3j! With Selection.Find
*e"a0 .Text = "[【\[［〖](*)[】\]〗］]"
$A \m>*@ .Replacement.Text = "[\1]"
ffDc 6*.Q .Replacement.Font.Superscript = True
8%{q%+ '.Replacement.Font.Color = wdColorBlue
i^z`"3#LE .Forward = True
< a rZbM .Wrap = wdFindContinue
!m fJpJ .FORMAT = True
!E\[SjY@J .MatchCase = False
ztM<J+ .MatchWholeWord = False
Bo_ym36N .MatchByte = False
'md0] R| .MatchAllWordForms = False
@!tVr3;N$ .MatchSoundsLike = False
Bd0eC#UGkQ .MatchWildcards = True
f>Td)s1
M End With
v[k5.\No Selection.Find.Execute Replace:=wdReplaceAll
o,Z{ w" End Sub
6iezLG
5 Mio>{%/ Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
N> Jw bContinue = False
W=}Okq)x9I Set regEX = Nothing
25{ uz End Sub
obClBO)@Y Xo5$X 7m
Sub CeateOrModifyStyle()
}2>"<) '
5t:8.%<UK '
tV;% J4E' Dim stl As Style
Al"3 kRJJ cSP*f0n,eo Options.Pagination = False
/)|X.D M+
+0zhS On Error Resume Next
> R^@Ww;|q For Each stl In ActiveDocument.Styles
l3i,K^Y L stl.Delete
(g8*d^u#PO Next
j#A%q"]8 On Error GoTo 0
L-i>R:N4 m7]hJ ,0 Set stl = Nothing
3C>q h{z" >%b\yl%0 DoEvents
`i!wq&1g7 On Error Resume Next
&M &{yc*% Sq]pQ8 ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph
!4#"!Md4o i\} :hU-U ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph
`\ $8`Zb; ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph
8pZ< 9t' MEZ{j%-a ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph
Y0uvT7+[hi ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph
KlxN~/gyik d 4{FDqto ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph
7G2PMe;$m ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph
0Dv JZ|e ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph
h#YD~!aJ ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph
Q %=YM4 ;
ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph
P8yIegPY ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph
KpZ:Nh$ ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph
T8 J4C=?/ B;zt#H4 ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph
FVWfDQ$&v ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph
Z)<
wv&K ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph
Rhgj&4 ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph
&vUq}r%P ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph
n[+'OU[ 8Cf|*C+_' ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph
q ojXrSb"y On Error GoTo 0
"l~Ci7& !a DoEvents
x!TZ0fq0 6o&ZIY J9k 'BaseStyle
]Tp U"JD ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False
q%3<Juq~$ With ActiveDocument.Styles("BaseStyle").Font
PBqy F .NameFarEast = "宋体"
T3J'f jY .NameAscii = "Times New Roman"
c- ]fKj7 .NameOther = "宋体"
$K}.
+`vVO .Size = 10.5
&K%aw
.Bold = wdUndefined
oY9FK{ .Italic = wdUndefined
%n?vJ#aX% .Subscript = wdUndefined
5fjd{Y[k .Subscript = wdUndefined
o=+Z.-q $< %B#axL .Underline = wdUnderlineNone
mNmUUj9z .UnderlineColor = wdColorAutomatic
:Hy] .StrikeThrough = False
7v~ j=Z> .DoubleStrikeThrough = False
`$;+ g ,
ZXiRw)rM .Outline = False
Ggm` ~fS .Emboss = False
3 x *z\VJ .Shadow = False
>wON\N0V_ .Hidden = False
XJ\hd, R .SmallCaps = False
| w &~g9 .AllCaps = False
E0f{iO ;} .Color = wdColorAutomatic
xh9q g0d .Engrave = False
H?rg5TI0 .Scaling = 100
y2Bh?>pg .Kerning = 1
Y>6.t"?Q^ .Animation = wdAnimationNone
BNm4k 7
]M .DisableCharacterSpaceGrid = False
Pi6C/$
K .EmphasisMark = wdEmphasisMarkNone
{ShgJ ;! Q End With
h BMH)aU With ActiveDocument.Styles("BaseStyle").ParagraphFormat
_kraMQ> .LeftIndent = 0
3Kq`<B~% .RightIndent = 0
JNU/`JN9f .SpaceBefore = 0
m)>&ZIXa .SpaceBeforeAuto = False
r#876.JK .SpaceAfter = 0
n2-0.
Er .SpaceAfterAuto = False
Fe=8O ^\ Q4'C;<\@(Q .LineSpacingRule = wdLineSpaceSingle
; 2`sN
.Alignment = wdAlignParagraphJustify
?Hz2 -Cn =yi OJyx .WidowControl = False
UGKaOol. .KeepWithNext = False
Mhpdao s .KeepTogether = False
'&yg {n .PageBreakBefore = False
~5aE2w0K .NoLineNumber = False
^QL 877 @"87F{! .FirstLineIndent = CentimetersToPoints(0)
mw$
Y .OutlineLevel = wdOutlineLevelBodyText
|Ur"za;%@ .CharacterUnitLeftIndent = 0
fv'4f$U .CharacterUnitRightIndent = 0
b[^{)$( .CharacterUnitFirstLineIndent = 0
fib#CY .LineUnitBefore = 0
ROAI9sW0 .LineUnitAfter = 0
**;p (CI .AutoAdjustRightIndent = True
loOOmHhJ& .DisableLineHeightGrid = True
70gg 4BS ZW4aY}~)$ .FarEastLineBreakControl = True
J1F{v)T '? .WordWrap = True
D, ;\F,p .Hyphenation = False
YcM;S dSK 0h(8 .HangingPunctuation = True
6 49 != .HalfWidthPunctuationOnTopOfLine = True
f?UzD#50D .AddSpaceBetweenFarEastAndAlpha = True
I44s(G1j l .AddSpaceBetweenFarEastAndDigit = True
Di(9]: + .BaseLineAlignment = wdBaselineAlignBaseline
%_)zWl
N End With
F@W*\3) ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False
i.a _C'<$ ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll
S3 \jcgrS ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese
/p`&;/V| ActiveDocument.Styles("BaseStyle").NoProofing = False
7XAvd- Epjff@ 7A '一级标题题样式
'x%x'9OP ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
e<+<lj " ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle"
vs9?+3 ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False
4MvC]_& With ActiveDocument.Styles("QLNU一级标题").Font
d,#.E@Po .NameFarEast = "黑体"
Mg J5B(
c .NameAscii = "Arial Black"
n'w,n1z7 .NameOther = "黑体"
c. K = (y* .Name = "黑体"
7Ua7A .Size = 16 '三号
"~+.Af .Bold = True
f =:.BR{ .Italic = wdUndefined
/'&; Q7!) .Subscript = wdUndefined
V0i9DK|! .Superscript = wdUndefined
fj']?a! m End With
RXSf,O With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat
a|qsQ'1,; 2W$lQ;iO .LeftIndent = CentimetersToPoints(0)
!vqC+o>@
.RightIndent = CentimetersToPoints(0)
q? z> .FirstLineIndent = CentimetersToPoints(0)
LsTffIP s;.=5wcvi? .LineSpacingRule = wdLineSpaceSingle
s@@1
*VQ .Alignment = wdAlignParagraphCenter
'1+.t$"/tU $ Xf (^K .WidowControl = True
nB@UKX .KeepWithNext = True
R 1zC.m .KeepTogether = True
!k&)EWP? .OutlineLevel = wdOutlineLevelBodyText
KFhG ( ! q6hC .LineUnitBefore = 0.5
F8mC?fb K9 .LineUnitAfter = 0.5
oK+Lzb\d{M End With
4 br 6
$ ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False
TUTe9;) ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll
d]B= *7] ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese
[#b2%G1 ActiveDocument.Styles("QLNU一级标题").NoProofing = True
ExhL[1E DoEvents
\ aKd5@ W '/>et '二级
3VO:+mT ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
aC\4}i< ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle"
<0j{ $. ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False
?Myh 7 With ActiveDocument.Styles("QLNU二级标题").Font
F? ]N8W .NameFarEast = "黑体"
pM$ @m] .NameAscii = "Arial Narrow"
7sV /_3H+ .NameOther = "黑体"
2<6j1D^jM .Name = "黑体"
x mo&![P .Size = 15 '小三号
5w3Fqu>39? .Bold = False
BQ rL7y .Outline = False
sBW3{uK .Italic = wdUndefined
h8v>zNf' .Subscript = wdUndefined
9YKDguG .Superscript = wdUndefined
o0Gx%99' End With
X0i3 _RVa With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat
Da,Tav%b .LeftIndent = CentimetersToPoints(0)
s-D?) .RightIndent = CentimetersToPoints(0)
mnQ'X-q3iO .FirstLineIndent = CentimetersToPoints(0)
d<T%`:s< oXal .LineSpacingRule = wdLineSpaceSingle
`i Yc<N` .Alignment = wdAlignParagraphLeft
__\P`S_ \+B?}P8N*l .WidowControl = True
{8CWWfHCD .KeepWithNext = True
3E|;r
_;
8 .KeepTogether = True
[X"k >
Sq .PageBreakBefore = False
UzQ$B> f .OutlineLevel = wdOutlineLevelBodyText
ZgYZwc&- ~
=.CTm]vf .LineUnitBefore = 0.5
PdE>@0X?M .LineUnitAfter = 0.5
qo;)X0 N rK=6]j(K End With
!#}>Hv^N ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False
IC~ljy]y_ ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll
I'_v{k5ZI ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese
ww,Z )m ActiveDocument.Styles("QLNU二级标题").NoProofing = True
zixE Mi[8 DoEvents
:JV\){P
Q"}s>]k3_ '三级标题样式
i\x~iP&F$ ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
\qq-smcM- ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle"
d6b.z P ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False
$WaZ_kt With ActiveDocument.Styles("QLNU三级标题").Font
5 si}i'in .NameFarEast = "宋体"
n
<R \w''x .NameAscii = "Times New Roman"
]Z@k|Nw .NameOther = "黑体"
%C *^ :\y .Name = "黑体"
rg)h 5G .Size = 14 '四号
Slx2 z%'> .Bold = False
PrnrXl
S .Outline = False
}~zO+Wf2 .Italic = wdUndefined
,U=E[X=H .Subscript = wdUndefined
e V;me>, .Superscript = wdUndefined
c E76L%O End With
>
>V&yJ_ With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat
2ksA.,UB^9 .LeftIndent = CentimetersToPoints(0)
i^/54 .RightIndent = CentimetersToPoints(0)
h 6Q WH .FirstLineIndent = CentimetersToPoints(0)
qi\n] I 6VR[)T% .LineSpacingRule = wdLineSpaceSingle
]P3 [.$z .Alignment = wdAlignParagraphLeft
2%YXc| gGT <Jwo?[a .WidowControl = True
Lk nV qZ|k .KeepWithNext = True
^, wnp@ .KeepTogether = True
uPU#c\ .PageBreakBefore = False
yYX :huw .OutlineLevel = wdOutlineLevelBodyText
Oxa5Kfpa >d%VDjk . .CharacterUnitLeftIndent = 0
Z< ]VTo .CharacterUnitRightIndent = 0
~3 @*7B5Q .CharacterUnitFirstLineIndent = 2
_E
x?Xk fv ?45f .LineUnitBefore = 0.5
pGkef0p@ .LineUnitAfter = 0
DTy/jaK End With
pt})JMm ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False
I~RcOiL) ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll
_S5gcPcF" ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese
!; WbOnLP ActiveDocument.Styles("QLNU三级标题").NoProofing = True
.<w)Bmh DoEvents
/djACA dXZP[ K# '四级标题样式
DQ_ 2fX~) ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
cjY@Ot*i$ ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle"
2oB?Dn ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False
r$DZk
Mue With ActiveDocument.Styles("QLNU四级标题").Font
ND,`Q jmZ .NameFarEast = "宋体"
<.$,`m,
.NameAscii = "Times New Roman"
NbDda/7ki .NameOther = "宋体"
4x]NU t .Name = "宋体"
s`vSt*
]K .Size = 12 '小四号
6/7F">@j .Bold = True
,%8$D-4#_ .Outline = False
-tP.S1D .Italic = wdUndefined
^pw7o6} .Subscript = wdUndefined
A$m<@%Sz .Superscript = wdUndefined
Q
X):T#^V End With
ha>SZnKD{ With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat
~XQ$aRl& FO^24p .LeftIndent = CentimetersToPoints(0)
IUawdB5CB .RightIndent = CentimetersToPoints(0)
LUul7y'" .FirstLineIndent = CentimetersToPoints(0)
LDX y}hm) !E0fGh .LineSpacingRule = wdLineSpaceSingle
y:9?P~ .Alignment = wdAlignParagraphLeft
T{Hf P g RU-
g .WidowControl = True
uu@<&.r\C .KeepWithNext = True
G5u meqYC .KeepTogether = True
<G9< "{ .PageBreakBefore = False
p">WK<N .OutlineLevel = wdOutlineLevelBodyText
m5qCq9Y
2}!R
T .CharacterUnitLeftIndent = 0
.EzSSU7n) .CharacterUnitRightIndent = 0
L9J;8+ge .CharacterUnitFirstLineIndent = 2
sL
mW\\kA> o16~l]Z|f .LineUnitBefore = 0
.+ uVgSN .LineUnitAfter = 0
$Sw, hb % &1$~m0 End With
S)Mby ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False
Nuq(4Yf1W
ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll
X|)Il8 ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese
I+~\
w N ActiveDocument.Styles("QLNU四级标题").NoProofing = True
l #y gb|=x DoEvents
@>Ek '~m k(9s+0qe '正文校式
@Yarz1 ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle")
+gNX7xuY ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle"
J[o${^ ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False
%IU 4\ZY> With ActiveDocument.Styles("QLNU正文").Font
@?M; 'xMbB `D"1
gD}{A .NameFarEast = "宋体"
=W |vOfy .NameAscii = "Times New Roman"
](n
69XX_ .NameOther = "宋体"
'A1E^rl]= .Name = "宋体"
8J^d7uC PHQcst
W .Size = 12 '小四号
E6Q91Wz9f A t|h t .Bold = wdUndefined
' tSnH&c .Italic = wdUndefined
0STk)> 3$- .Subscript = wdUndefined
v?{vg?vI .Superscript = wdUndefined
Xky@[Td* 4K'|DO|dH .Outline = False
(xQI($Wq*M .Emboss = False
U,d2DAv t .Shadow = False
o{g@Nk'f .Hidden = False
-s33m]a; T7s+9CE .DisableCharacterSpaceGrid = True
iz(m3k:w End With
L: ^ Y@[f With ActiveDocument.Styles("QLNU正文").ParagraphFormat
,i;9[4 QMX 7_7xL(F/ .LeftIndent = CentimetersToPoints(0)
8_Jj + .RightIndent = CentimetersToPoints(0)
4V>vg2
d .FirstLineIndent = CentimetersToPoints(0)
BArJ"t*/z ^T+<!k .LineSpacingRule = wdLineSpaceExactly
D/*vj| .LineSpacing = 20
*Ji 9%IA .Alignment = wdAlignParagraphLeft
!,R s)Gb!-`` .WidowControl = False
9<w=),R`8 .KeepWithNext = False
/t5g"n3 .KeepTogether = False
rNxG0 ^k( .PageBreakBefore = False
YpiRF + G
.Hyphenation = False
F *.
/D~K
W
n6,U=$3 .OutlineLevel = wdOutlineLevelBodyText
flPZ lL 1
3\Sh $Uy#/MX .CharacterUnitLeftIndent = 0
fGG
9zB6 .CharacterUnitRightIndent = 0
9M nem* .CharacterUnitFirstLineIndent = 2
A` =]RJ L*IU0Jy> .LineUnitBefore = 0
b sMC#xT .LineUnitAfter = 0
epYj+T
.SpaceBefore = 0
KG-UW .SpaceAfter = 0
o
KlF5I wNbTM.@ .DisableLineHeightGrid = True
pBvo M={2! End With
ko>M&/^ ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False
g\qX7nIH? ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll
Ipg\9*c` ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese
XWc|[>iO ActiveDocument.Styles("QLNU正文").NoProofing = True
y]MWd#U DoEvents
,A^L=+ y^, "gD '图片段落样式
_3I3AG0e ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle")
%qONJP ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle"
4fD` M(wv ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False
<BQ% 8 } With ActiveDocument.Styles("QLNU图片段落").Font
Jfe~ ,cI .Size = 12 '小四号
z 3Zu C{ .Italic = wdUndefined
Le_CIk 5YL .Subscript = wdUndefined
#'#4hJ*YC .Superscript = wdUndefined
Y'?Izn b End With
P mC8
2" With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat
VD Pxue \2(MpB\_6! .LeftIndent = CentimetersToPoints(0)
?3n=m%W,J* .RightIndent = CentimetersToPoints(0)
A?\h|u< .FirstLineIndent = CentimetersToPoints(0)
0: HC;J 2,+@# q .LineSpacingRule = wdLineSpaceSingle
;g6 nHek .Alignment = wdAlignParagraphCenter
D .
77WjwQ .KeepWithNext = True
pDP3 3`OFh .OutlineLevel = wdOutlineLevelBodyText
& 8zk3 +$'e4EwqV .CharacterUnitLeftIndent = 0
rT o%=0P .CharacterUnitRightIndent = 0
^sJ1 ^LT .CharacterUnitFirstLineIndent = 0
,,XS;X? )!BB/'DRQ .LineUnitBefore = 0
gca|?t t .LineUnitAfter = 0
B>R*
f C@g End With
Yo>%s4_ , ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False
uA C hu ] ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll
3SmqXPOw ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese
1o(+r R<h9 ActiveDocument.Styles("QLNU图片段落").NoProofing = True
ZjE~W>pkQ DoEvents
|_!PD$i- <.: 5Vx(Aw Lax9
"xI '第X章
9'D8[p% ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
#3YdjU3 w ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle"
;.L!%$0i# ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False
zj%cd; With ActiveDocument.Styles("QLNU章节标题").Font
Ni&,g .NameFarEast = "黑体"
G &m>Ov$#& .NameAscii = "Arial Black"
bx1G
CD .NameOther = "Arial Black"
_Wq7U1v` .Name = "黑体"
:U7;M}0 .Size = 16
kWI]fZ_n .Bold = True
='KPT1dW* .UnderlineColor = wdColorAutomatic
$&bU2 ] .Outline = False
kVy"+ ZebK .Italic = wdUndefined
9t W3!O^_ .Subscript = wdUndefined
#@IQlqJfY7 .Superscript = wdUndefined
"sC$%D<oc .Scaling = 100
O2/%mFS. .DisableCharacterSpaceGrid = True
Lqg7D\7j End With
_CHKh*KHML With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat
x/pC%25 .LineSpacingRule = wdLineSpaceSingle
5/* )+ .Alignment = wdAlignParagraphCenter
FLw[Mg:L .WidowControl = True
[''=>< .KeepWithNext = True
;<86P3 S .KeepTogether = True
GcPB'`!M .PageBreakBefore = True
)kFme =
; .OutlineLevel = wdOutlineLevelBodyText
\XZU'JIO }ZxW"5oq .LeftIndent = CentimetersToPoints(0)
5L/Yi .RightIndent = CentimetersToPoints(0)
*sIi$1vHu .FirstLineIndent = CentimetersToPoints(0)
|L*6x
S[ R/yPZO-U .CharacterUnitLeftIndent = 0
hLu
&lY .CharacterUnitRightIndent = 0
ytg7p 5{!i .CharacterUnitFirstLineIndent = 0
R65;oJh 4& #vU(-H .LineUnitBefore = 1
^XtHF|%0T .LineUnitAfter = 0.5
77)OW $G \ro~-n+ o .AutoAdjustRightIndent = False
+SP! R[a .DisableLineHeightGrid = True
cKaL K#~ .FarEastLineBreakControl = True
Z?vY3) .WordWrap = True
4X<Oux* End With
3 t~X: ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False
4KN0i ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll
Z#H@BWN7 ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese
/^nP_ID ActiveDocument.Styles("QLNU章节标题").NoProofing = True
':5U& DoEvents
0%v ixR52 # Lu4OSM+ '表格标题
IO?~b X P ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
e,P Q)1
ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle"
"-G.V#zI ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False
bfcD5:q With ActiveDocument.Styles("QLNU表格标题").Font
m~ b#:4D3 .NameFarEast = "楷体"
h}Fu"zK .NameAscii = "Arial"
<!$j9) ~x .Name = "楷体"
w CqE4i .Size = 10.5
z1z =P%WK .Bold = True
{6REfY
c .Underline = wdUnderlineNone
6,sR
avs .Italic = wdUndefined
F0DPS:c .Subscript = wdUndefined
P 1M|f4* .Superscript = wdUndefined
rCV$N&rK .Color = wdColorAutomatic
T iwHLb9 End With
GA( {r
i With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat
!H2C9l:rd Lqy|DJ% .LineSpacingRule = wdLineSpaceSingle
\Qe'?LRu{ .Alignment = wdAlignParagraphCenter
Ut0qr kqF .KeepWithNext = True
qdg= Imx .KeepTogether = True
r%O rH-T .OutlineLevel = wdOutlineLevelBodyText
5<0Yh#_ r>n8`W .LeftIndent = CentimetersToPoints(0)
& 1\u#LU .RightIndent = CentimetersToPoints(0)
hg)!m\g .FirstLineIndent = CentimetersToPoints(0)
fSm?27_ `K1PGibV .CharacterUnitLeftIndent = 0
aTmX!! .CharacterUnitRightIndent = 0
_Eet2;9 .CharacterUnitFirstLineIndent = 0
',v0vyO8 p]atH<^; K .LineUnitBefore = 1
3/]f4D{MMY .LineUnitAfter = 0
s2,`eV DR#3njjEC End With
#$9U=^Z[ ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False
sIP6GWK$ ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll
?etj.\q6
ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese
9 &?tQ"@x ActiveDocument.Styles("QLNU表格标题").NoProofing = True
Iwd"f
DoEvents
7!]k#|u &@Ji+ '表格首行
hfVzzVX: ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle")
:Map,]]B_ ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False
dA3`b*nC With ActiveDocument.Styles("QLNU表格首行").Font
FuRn%)DA5 .NameFarEast = "楷体"
iX&Z .NameAscii = "Times New Roman"
J-HabHv
.Name = "楷体"
[C*X k{e .Size = 9
6PVl Z .Bold = True
oW` *FD .Underline = wdUnderlineNone
F<XD^sO .Italic = wdUndefined
^;v.ytO* .Subscript = wdUndefined
#RsIxpc .Superscript = wdUndefined
-M(58/y End With
5cv,
>{~5 With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat
@5uyUSt] .LineSpacingRule = wdLineSpaceSingle
YQlpk@X`2 .Alignment = wdAlignParagraphCenter
qCv}+d) :{ e`$kz .LeftIndent = CentimetersToPoints(0)
zXA= se0U .RightIndent = CentimetersToPoints(0)
|2+c D R .FirstLineIndent = CentimetersToPoints(0)
*
S+7BdP
^+Y GSg7 lW@:q04Z$ .CharacterUnitLeftIndent = -0.5
CVn;RF6 .CharacterUnitRightIndent = -0.5
yDl5t-0` .CharacterUnitFirstLineIndent = -0.5
JJ= ~o@|c @)FXG~C* .LineUnitBefore = 0
|G5=>W .LineUnitAfter = 0
5wVi{P5+ .SpaceBefore = 0
c{ r6a=C .SpaceAfter = 0
Av\ 0GqF [NR0] #h End With
NWq [22X
| ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False
#EwRb<'Em ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll
'
JXN*YO ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese
**
"s~ ActiveDocument.Styles("QLNU表格首行").NoProofing = True
D0"yZ p} DoEvents
I=Lj_UF4 M\x7=*\ '表格内容
)xXrs^
ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle")
Nc^b8&
2J ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False
P-
*R N
With ActiveDocument.Styles("QLNU表格内容").Font
]MBJ" 1F .NameFarEast = "楷体"
_'o^@v: .NameAscii = "Times New Roman"
X]f#w .Name = "楷体"
P7^TRrMF .Size = 9
rSzXa4m( .Bold = False
FL*w( Br. .Underline = wdUnderlineNone
~=aI2( b .Italic = wdUndefined
/3b
ca !O .Subscript = wdUndefined
QyBK*uNdV .Superscript = wdUndefined
%E= ,H?9&> End With
$(!D/b vJ With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat
lqwJ
F & .LineSpacingRule = wdLineSpaceSingle
wHDF TIDI .Alignment = wdAlignParagraphCenter
2 T
{-J!k e=NQY8? .LeftIndent = CentimetersToPoints(0)
mSqk[
Ig\ .RightIndent = CentimetersToPoints(0)
Z2Y583 D .FirstLineIndent = CentimetersToPoints(0)
;U5x'}%0] <CdG[Ih .CharacterUnitLeftIndent = -0.5
c"_H% x<[ .CharacterUnitRightIndent = -0.5
omDi<- .CharacterUnitFirstLineIndent = -0.5
FkkZyCqZ` .LineUnitBefore = 0
o
Q!g!xz .LineUnitAfter = 0
KfN`ZZ< .SpaceBefore = 0
#gr+%=S'6C .SpaceAfter = 0
R&d _ WB4w End With
\1c`) ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False
& dH
m!b ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll
i(TDJ@} ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese
+
P<w<GfQ ActiveDocument.Styles("QLNU表格首行").NoProofing = True
1]zyME DoEvents
}G0.Lq+a )r-| T&Sn '图片标题
gEe W1:AB ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
CuGOjQ-k~ ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle"
pR^Y|
NG! ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False
88X*:Kf?: With ActiveDocument.Styles("QLNU图片标题").Font
jmwQc& .NameFarEast = "楷体"
;#Bh_f .NameAscii = "Times New Roman"
}][|]/s?42 .Name = "楷体"
]((
>i%%~ .Size = 10.5
LxYM "_1A; .Bold = True
p{pzOMi6 .Underline = wdUnderlineNone
k}owEBsn} .Italic = wdUndefined
0 C
i"tA3" .Subscript = wdUndefined
V-o`L`(F` .Superscript = wdUndefined
c&iK+qvh{ .Outline = False
B3k ],k .Shadow = False
wr6xuoH .Color = wdColorAutomatic
AfbA.- End With
~dX@5+Gd With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat
t,as{.H{h .LineSpacingRule = wdLineSpaceSingle
clU3#8P!= .Alignment = wdAlignParagraphCenter
4N^ Qd3[d d1LTyzLr .KeepWithNext = wdUndefined
JCMEhI6d* .KeepTogether = True
hghto
\G5Y .OutlineLevel = wdOutlineLevelBodyText
r
z>zdj5} E;+OD&| .LeftIndent = CentimetersToPoints(0)
DqC }f# .RightIndent = CentimetersToPoints(0)
pOe` *2[ .FirstLineIndent = CentimetersToPoints(0)
Yi! >8 E* DVQ3~ .CharacterUnitLeftIndent = 0
D -\'P31 .CharacterUnitRightIndent = 0
s Gm(Aax*0 .CharacterUnitFirstLineIndent = 0
8Nl|\3nl- (2a "W` .LineUnitBefore = 0
Z6
|'k:R8 .LineUnitAfter = 0
^_"q`71Dk End With
qCFXaj
ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False
F(kRAe; ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll
cbHn\m)J, ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese
kJ5?BdvM& ActiveDocument.Styles("QLNU图片标题").NoProofing = True
?tM]. \ DoEvents
@):NNbtA SwmPP- n '目录项
M`,Z#)Af ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle")
R< YY f^y ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle"
oKqFZ,m[ ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False
28L'7 With ActiveDocument.Styles("QLNU目录项").Font
h,RUL .NameFarEast = "黑体"
{83He@ .NameAscii = "Times New Roman"
(YWc%f4 .NameOther = "Times New Roman"
P+c Fp7nC .Name = "黑体"
QR-R5XNT[ .Size = 10.5
h[v3G<C ~r .Bold = False
mQ
`r`DW .Italic = wdUndefined
I3y4O^? .Underline = wdUnderlineNone
jgfP|oD .Color = wdColorAutomatic
q .K$b .Superscript = wdUndefined
lPSD Y&`P .Subscript = wdUndefined
R@{/
$ p: End With
,h(+\^
?, With ActiveDocument.Styles("QLNU目录项").ParagraphFormat
C%7 ,#}[U/ U=<.P;+f9 .LineSpacingRule = wdLineSpaceSingle
i)^ZH#G p .Alignment = wdAlignParagraphLeft
uL{~(?U $ x~ Esu}x7 .WidowControl = False
Bv|9{:1%X} .KeepWithNext = False
1RO gUJ; .KeepTogether = False
*,=+R$ .PageBreakBefore = False
.j$bCKXGx .NoLineNumber = False
NCh(-E .OutlineLevel = wdOutlineLevelBodyText
# ;KG6I E 9;WOqBD .LeftIndent = CentimetersToPoints(0)
7bW!u*v-c .RightIndent = CentimetersToPoints(0)
&_x/Dzu!z .FirstLineIndent = CentimetersToPoints(0)
,0u 0 ' y5t Ap .CharacterUnitLeftIndent = 0
j`&i4K: .CharacterUnitRightIndent = 0
vrEaNT$J- .CharacterUnitFirstLineIndent = 0
S5JR`o
+53zI |I .LineUnitBefore = 0
WT? U~.U .LineUnitAfter = 0
/8-VC "
End With
1
H@rNa
m& ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False
%' g-%2C? ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll
.KMi)1L) ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot
lM]),}
ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese
GZ>% &^E ActiveDocument.Styles("QLNU目录项").NoProofing = True
u$ / ]59 DoEvents
#?d#s19s }u*@b10 '参考文献
Oh85*3 ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle")
&@Gu~) ^( ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle"
s 7cyo
] ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False
-{sv3|P> With ActiveDocument.Styles("QLNU参考文献").Font
|ssIUJ .NameFarEast = "宋体"
$}c@S0%P" .NameAscii = "Times New Roman"
(+v*u ]w4 .NameOther = "Times New Roman"
\36;csu .Name = "Times New Roman"
sNpBTG@{l .Size = 12
=id $ .Bold = False
v/6,
eIz .Italic = wdUndefined
'|R@k_nx .Subscript = wdUndefined
cNB$g )` .Superscript = wdUndefined
z7}zf@Y-qv .Underline = wdUnderlineNone
80" =Qu{s .UnderlineColor = wdColorAutomatic
8q LgB
.Color = wdColorAutomatic
Xr6 !b:UX .Engrave = False
u! FSXX< End With
2 g8P$+;
With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat
?cxK ~Y\ Yt<PKs#E .LineSpacingRule = wdLineSpaceExactly
;Z~.54Pf{d .LineSpacing = 16
sWCm[HpG .Alignment = wdAlignParagraphLeft
0mi[|~x= .WidowControl = False
e BRP%<=>D .KeepWithNext = False
zi&d .KeepTogether = False
JF\viMfR .PageBreakBefore = False
U@AfRUF& .OutlineLevel = wdOutlineLevelBodyText
3jVm[c5%] e9~4wt .LeftIndent = CentimetersToPoints(0)
N jyIwo0 .RightIndent = CentimetersToPoints(0)
]|BSX-V.%i .FirstLineIndent = CentimetersToPoints(0)
; S M^ %>U*A .CharacterUnitLeftIndent = 0
hd
BC ^n .CharacterUnitRightIndent = 0
NKh {iSLm .CharacterUnitFirstLineIndent = -2
aw~EK0yU
g>-[-z$E3 .LineUnitBefore = 0
bHT @]`@@ .LineUnitAfter = 0
`ha:Gf .SpaceBefore = 0
.qPfi]
ty .SpaceAfter = 0
swgBPJ"? ti2_kYq End With
ASU\O3%% ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False
pNWp3+a' ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll
n^)9QQ ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS
>^ar$T;Ys ActiveDocument.Styles("QLNU参考文献").NoProofing = True
Z|GkM 5QH: ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese
nY0UnlB` DoEvents
qiryC7 .E "{xv|C<*n '
P&^7wud-sb ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle")
[$Bb'],k ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle"
E.bbIV6mQ ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False
aM}"DY-_
h With ActiveDocument.Styles("QLNU论文题目").Font
(` Mz.VN .NameFarEast = "黑体"
R51!j>[fqM .NameAscii = "Arial Black"
twS3J)UH .NameOther = "Arial Black"
Cb-E<W&2D .Name = "Arial Black"
O o .Qz
.Size = 16
1}M.}G2u/ .Bold = False
qP'g}Pc .Italic = wdUndefined
#iDFGkK / .Superscript = wdUndefined
`v{X@ x .Subscript = wdUndefined
A>2p/iMc .Underline = wdUnderlineNone
BT#g?=n#` .UnderlineColor = wdColorAutomatic
E,:pIw
.Color = wdColorAutomatic
z$5C(! ) j}* +-.YF End With
F7l:*r,O With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat
# Kr.!uD .LineSpacingRule = wdLineSpaceSingle
@h,$&=HY .Alignment = wdAlignParagraphCenter
OIT;fKl9 .WidowControl = True
( t[' .KeepWithNext = True
bD-Em#> .KeepTogether = True
B\& Ka <r .PageBreakBefore = True
?0%TE\I8 .NoLineNumber = False
[ LDzR7vnf .OutlineLevel = wdOutlineLevelBodyText
eV%bJkt. `R?W @,@' .LeftIndent = CentimetersToPoints(0)
itgO#(g$Q .RightIndent = CentimetersToPoints(0)
xJGeIh5 .FirstLineIndent = CentimetersToPoints(0)
p>O< "X@ .u?$h0u5 .CharacterUnitLeftIndent = 0
nv{4
U}&P .CharacterUnitRightIndent = 0
PCfs6.*5Mf .CharacterUnitFirstLineIndent = 0
e;[8 GE.
5z>\'a1U .LineUnitBefore = 1
3) 0~: .LineUnitAfter = 1
B9-[wg#0G jdf@lb=5 l .BaseLineAlignment = wdBaselineAlignAuto
04d$_1:}a End With
]*U') ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False
w8ld* z ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll
4T E ?mh} ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS
-y.AJ~ T ActiveDocument.Styles("QLNU论文题目").NoProofing = True
9?c ^~77 ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese
_?c.3+;s ActiveDocument.Styles("QLNU论文题目").NoProofing = True
[![ (h % DoEvents
.)zISa*Xy n "Vd"}sU. '中文摘要
!c($ C ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle")
_q4m7C< ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle"
Q0_W<+` ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False
$
3B? With ActiveDocument.Styles("QLNU中文摘要").Font
Cw
5K* .NameFarEast = "宋体"
@v=q,A8_ .NameAscii = "Times New Roman"
EQ $9Ia Y. .NameOther = "Times New Roman"
D
d O ' .Name = "Times New Roman"
Ny LnE .Size = 12
L:Eb(z/D .Bold = wdUndefined
,?/<fxIY .Superscript = wdUndefined
lM"7 Z .Subscript = wdUndefined
KHN
,SB .Italic = wdUndefined
e_ -/p`9 .Underline = wdUnderlineNone
d~ 8~RT2
m .UnderlineColor = wdColorAutomatic
l $ 9, .Color = wdColorAutomatic
ptQ (7N End With
jtY~- @* With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat
1iDo$]TEK .LineSpacingRule = wdLineSpaceExactly
9-6_:N> .LineSpacing = 20
H12@12v .Alignment = wdAlignParagraphLeft
W10fjMC}^ O+j:L .WidowControl = False
1z:N$O _v .KeepWithNext = False
J,Ap9HJt .KeepTogether = True
H\bIO!vb .PageBreakBefore = False
GA}^Rh`T- .NoLineNumber = False
Q>yt O'v
1 .OutlineLevel = wdOutlineLevelBodyText
_AbEQ\P{ aB'@8[]z .LeftIndent = CentimetersToPoints(0)
9#6/c .RightIndent = CentimetersToPoints(0)
NvZ?e .FirstLineIndent = CentimetersToPoints(0)
MT0{hsuK9 N
Z`hy>LF^ .CharacterUnitLeftIndent = 0
g AP}KR#T .CharacterUnitRightIndent = 0
IBh~(6 .CharacterUnitFirstLineIndent = 2
&Z!2xfQy> .LineUnitBefore = 0
vD vGT <d .LineUnitAfter = 0
cvfAa#tq> <DS6-y End With
E%B Gf}h ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False
dR :iUw:V ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll
]S geZ07 ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS
D0i30p` ActiveDocument.Styles("QLNU中文摘要").NoProofing = True
eMzCAO ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese
8l0
(6x$ ActiveDocument.Styles("QLNU中文摘要").NoProofing = True
}C.{+U ActiveDocument.Styles("QLNU中文摘要").Frame.Delete
|hoZ : DoEvents
o hlV c%a [+z:^a1?V ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
s\!vko'M ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle"
]H2
aYi $ ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False
V p{5Kxq With ActiveDocument.Styles("QLNU英文标题").Font
mO.U )tL[ .NameFarEast = "黑体"
,[ L$ .NameAscii = "Arial Narrow"
] '/]j .Name = "Arial Narrow"
q04Dj-2< .Size = 16
jRAL(r| .Bold = True
zmRK%a( .Bold = wdUndefined
2A+,. S_!x .Superscript = wdUndefined
q(Q9FonU .Subscript = wdUndefined
2,0F8=L .Italic = wdUndefined
n.R hA-O [email protected]5[q0: .Underline = wdUnderlineNone
UUqj?'Nv .UnderlineColor = wdColorAutomatic
5zOSb$; .StrikeThrough = False
au* jMcq .DoubleStrikeThrough = False
koZp~W- End With
>,Z{wxz J With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat
^i\1c-/ .LineSpacingRule = wdLineSpaceSingle
aM!# .Alignment = wdAlignParagraphCenter
DA ~ELje^j .WidowControl = True
I1 O?)x~ .KeepWithNext = False
y@_?3m7B= .KeepTogether = False
K/cK6Yr .PageBreakBefore = False
RiG!TTa
b .NoLineNumber = False
q2vz #\A? .FirstLineIndent = CentimetersToPoints(0)
O %e.u>=4% .OutlineLevel = wdOutlineLevelBodyText
w}q"y+=Z: q/79'>`|ai .LeftIndent = CentimetersToPoints(0)
2z3A"HrlA .RightIndent = CentimetersToPoints(0)
z?[DW* .FirstLineIndent = CentimetersToPoints(0)
=i?,y +< _9r{W65s .CharacterUnitLeftIndent = 0
zX `RN )C .CharacterUnitRightIndent = 0
2zu~#qU[)M .CharacterUnitFirstLineIndent = 0
{m:R v&T f34&:xz2U .LineUnitBefore = 1
ArK9E!`^ .LineUnitAfter = 1
; bE6Y]"Rz G. TX1 End With
wP?q5r5 ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False
\'*`te:{ ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll
K~T\q_ZPZ ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS
cyg>h X{U ActiveDocument.Styles("QLNU英文标题").NoProofing = True
a*y mBGF ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese
ku8c ) ActiveDocument.Styles("QLNU英文标题").NoProofing = True
n^#L B* q ActiveDocument.Styles("QLNU英文标题").Frame.Delete
V" iLeC DoEvents
ypo=y/! ~7'.{VrU ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle")
+to9].O7y ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle"
H_nJST<v` ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False
rK|&u
v*b With ActiveDocument.Styles("QLNU英文摘要").Font
F9r*ZyNlx .NameFarEast = "宋体"
8ZfIh .NameAscii = "Arial"
P^W47
SO .NameOther = "Arial"
ZQA
C
&: .Name = "Arial"
=]"|x7'! .Size = 12
] i2\2MTW8 .Bold = wdUndefined
m28w4
.Italic = wdUndefined
Y pj)6d .Superscript = wdUndefined
A8 G lE .Subscript = wdUndefined
mC(t;{ End With
} 4%)m *DzPkaYD> With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat
" SqKS,J .+h
pxZ .LineSpacingRule = wdLineSpaceExactly
Dj(7'jT .LineSpacing = 20
# HYkzjb kH -b! .Alignment = wdAlignParagraphJustify
:j4
[_9\ 3HR]T Q%r .WidowControl = False
yVzg<%CR^ .KeepWithNext = False
!J l0Eu .KeepTogether = False
`wd* &vl .PageBreakBefore = False
|LH*)GrD*t .NoLineNumber = False
~W{h-z%q Ct+% .OutlineLevel = wdOutlineLevelBodyText
vyGL n Qe.kN dT+_ .LeftIndent = CentimetersToPoints(0)
,6 \f4/ .RightIndent = CentimetersToPoints(0)
uiA:(2AQ .FirstLineIndent = CentimetersToPoints(0)
cLC7U?- ',Pk>f]AB- .CharacterUnitLeftIndent = 0
R QNi&zX/ .CharacterUnitRightIndent = 0
^I?y\:. .CharacterUnitFirstLineIndent = 2
% 6.jh#C Q}]kw} b .LineUnitBefore = 0
1G.gPx[ .LineUnitAfter = 1
!5!$h` g tta0sJ8 i End With
1:UC\ WW ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False
[d>yo_iB ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll
F:GKnbY ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS
*Bsmn!_cB{ ActiveDocument.Styles("QLNU英文摘要").NoProofing = False
\zL
7 j 4 DoEvents
>Fk `h=Wd I.1l Options.Pagination = True
vK`h; Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....."
v=-3 ,C DoEvents
J5 ( D7rp# ActiveDocument.Repaginate
,s&~U<Z h xJgxM End Sub
w{EU 9C iDc|9"|Tf3 #q.G_-H4J@
