Dim bContinue As Boolean $Ith8p~  
^'Z?BK  
Dim regEX As New RegExp G9|w  o)N  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 Ld9YbL:  
d41DcgG'j(  
Dim LastTitle0String As String, LastTitle0No As Long f~rq)2V:  
Dim LastTitle1String As String, LastTitle1No As Long p-S&Wq  
Dim LastTitle2String As String, LastTitle2No As Long $GI
jWlAh  
Dim LastTitle3String As String, LastTitle3No As Long :g+5cs  
Dim LastTitle4String As String, LastTitle4No As Long G9YfJ?I  
Dim LastTitle5String As String, LastTitle5No As Long c97?+Y^  
Dim LastTabelString As String, LastTableNo As Long O'i!}$=g  
Dim LastFigureString As String, LastFigureNo As Long Dus [N< w  
eF06B'uL  
Dim strSeperator As String U?[_ d  
j{`C|zg  
Sub ConvertWidth(fTEXT As String, rText As String) rZi\  
        Selection.Find.ClearFormatting "J
_#6q*  
        Selection.Find.Replacement.ClearFormatting )*CDufRFz  
        Selection.Find.Wrap = wdFindContinue `zw^ WbCO{  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText Rt6(y #dF  
        DoEvents r2xXS&9!|  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True 6!;eJYj,  
End Sub 1[
4)Sq?  
N}/|B}  
Sub ClearDomain() l`wF;W !  
        With Selection.Find d'okX
CG  
            .ClearFormatting "{@Q..hxC  
            .Replacement.ClearFormatting m) -DrbE  
            .Wrap = wdFindContinue oR1HJ2>Z1  
            Me.txtStatus.Text = "清除所有域代码" [d3i_^\  
            DoEvents A#@9|3  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False e6(Pw20)s  
        End With je[1>\3W  
End Sub q\r@x-&g+  
;WqWD
-C  
Private Sub cmdCheck_Click() GI ;  
    bContinue = True d OYEl<!J  
    Dim NoSeries1(1 To 16) As String )UoF *vC(  
    Dim NoSeries2(1 To 16) As String })#SjFq<V  
    Dim NoSeries5(1 To 16) As String `alQmGUZ
 
    Dim NoSeriesRM(1 To 16) As String 3$yOv"`  
    Dim paraTotal As Long, ParaText As String y+"6Y14  
    Dim ttString As String, ttNo As String c(j|xQ\pE  
     ';>A=m9(4%  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long q-lejVS(g  
Y48 MCL  
    Me.txtStatus.Visible = True <| kS`y  
    Me.lbParaType.Visible = True |Q\O% cb  
    Me.cmdCheck.Enabled = False bZKlQ<sI  
     F3Y/Miw  
     h't! 1u  
     dU"ca|u  
     yd>b2 M  
    Dim ParaType As String, rText As String <8,,pOb  
     N6%wHNYZ  
    Selection.WholeStory $.0l%
$7  
    Selection.NoProofing = True OBm#E}  
     S!r,p
};  
    tm1 = Now [v V5@nP:  
     er44s^$  
        ActiveWindow.View.Type = wdNormalView ;&2f{  
     {}A1[Y|  
    NoSeries1(1) = "一" N,
?4,+Hc-  
    NoSeries1(2) = "二" g)M"C x.  
    NoSeries1(3) = "三" |Vj@;+/j  
    NoSeries1(4) = "四" u &qFE=5:  
    NoSeries1(5) = "五" pOKs VS%fT  
    NoSeries1(6) = "六" 6 *GR_sMm  
    NoSeries1(7) = "七" =U- w!uW  
    NoSeries1(8) = "八" >[A7oH  
    NoSeries1(9) = "九" S5(VdMd"^  
    NoSeries1(10) = "十" Xk]:]pl4W  
    NoSeries1(11) = "十一" _s%;GWj  
    NoSeries1(12) = "十二" {)5tov1  
    NoSeries1(13) = "十三" a:V2(nY  
    NoSeries1(14) = "十四" yOdh?:Imv  
    NoSeries1(15) = "十五" e,cSB!7  
    NoSeries1(16) = "十六" P =jRof$  
     Hdxon@,+cd  
    NoSeries2(1) = "㈠" [/+}E X  
    NoSeries2(2) = "㈡" ":meys6t#  
    NoSeries2(3) = "㈢" m5'nqy F  
    NoSeries2(4) = "㈣" `v"p""_H  
    NoSeries2(5) = "㈤" }9FAM@x1K&  
    NoSeries2(6) = "㈥" m(0c|-  
    NoSeries2(7) = "㈦" *]#(?W.$w  
    NoSeries2(8) = "㈧" H-g CY|W  
    NoSeries2(9) = "㈨" d>wpG^"w  
    NoSeries2(10) = "㈩" >DSD1i+
N  
      qH9bo-6  
    NoSeries5(1) = "①" 1<(('
H  
    NoSeries5(1) = "②" ,ej89  
    NoSeries5(3) = "③" # ^q87y  
    NoSeries5(4) = "④" a^5.gfzA  
    NoSeries5(5) = "⑤" y~Ts9AE  
    NoSeries5(6) = "⑥" t8:QK9|1  
    NoSeries5(7) = "⑦" B_3:.1>"BM  
    NoSeries5(8) = "⑧" {n'+P3\T:  
    NoSeries5(9) = "⑨" '&+5L.  
    NoSeries5(10) = "⑩" 9[@K4&  
     'lIj89h<E  
     sWKe5@-o0  
    NoSeriesRM(1) = "I" E/:mO~1< c  
    NoSeriesRM(2) = "II" HVLj(_ A  
    NoSeriesRM(3) = "III" Q8GI;`Rb  
    NoSeriesRM(4) = "IV" AS-%I+ A  
    NoSeriesRM(5) = "V" 5B)z}g^h  
    NoSeriesRM(6) = "VI" <u Kd)l  
    NoSeriesRM(7) = "VII" g[%^OT#  
    NoSeriesRM(8) = "VIII" ->S# `"@$  
    NoSeriesRM(9) = "IX" @GyxO
c@6  
    NoSeriesRM(10) = "X" S@^o=B]]  
    NoSeriesRM(11) = "XI" V\
6V&_  
    NoSeriesRM(12) = "XII" D9 \!97  
    NoSeriesRM(13) = "XIII" >&Ios<67g  
    NoSeriesRM(14) = "XIV" CEXD0+\q  
    NoSeriesRM(15) = "XV" gZW(z  
    NoSeriesRM(16) = "XVI" N, SbJ Z  
     =g3o@WD/G  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) j0q:i}/U,  
     7ZR0cJw;  
    If i = vbNo Then BufXnMh.  
        Exit Sub ,3P@5Ef  
    End If DPg\y".4Y&  
     QMQ\y8E  
    If Me.chkSuper.Value Then s)BB(vQ]6  
        Me.txtStatus.Text = "检查修改所有的上标格式" 0vjlSHS;`.  
     0n)99Osq(u  
        CheckSuperScript lq_( au.  
         *2^+QKDG  
    End If ui .riD[,O  
     7mBH#Q)  
    If Me.chkStyle.Value Then eR|u']Em>T  
        Me.txtStatus.Text = "设置样式，请稍候...." E},^,65  
        DoEvents ]Dd}^khv  
        CeateOrModifyStyle AQU^7O  
    End If $sS;#r0  
     G}V5PEF]`  
     J`d_=C?J  
     dVKctt'C  
    ClearDomain Muay6b?  
         BTAt9Z8qK  
     : pkOZ+t  
     cME|Lg(J$  
    If Me.chkLIST.Value Then ( C~
u.  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" }|9!|Q  
     u_*DS-  
        ConvertListToOrdinary {4^NZTjd@  
    End If LLD#)Jl{?  
     7]F@g}8  
     'Z}3XVZEN  
    Dim pType As String, trimpTEXT As String m3']/}xHO  
    If Me.chkNum.Value = True Then 3[r9v!l  
        Me.txtStatus.Text = "转换全角数字形式为半角" (ptk!u6  
        ConvertWidth "１", "1" f j:q>}V  
        DoEvents 0=erf62=  
        ConvertWidth "２", "2" !3;KC"o  
        DoEvents aUYq~E tj  
        ConvertWidth "３", "3" ggL^*MV  
        DoEvents MY w3+B+Jj  
        ConvertWidth "４", "4" o$rA;^2X  
        DoEvents D3(rD]c0{  
        ConvertWidth "５", "5" AA &>6JB{  
        DoEvents DOB#PI[/  
        ConvertWidth "６", "6" EFdo-.Ax  
        DoEvents s%/x3anz=  
        ConvertWidth "７", "7" <_ruVy0]  
        DoEvents YW7Pimks  
        ConvertWidth "８", "8" vhE^jS<Tg  
        DoEvents A9;!\Wo  
        ConvertWidth "９", "9" CBKLct>  
        DoEvents Usl963A#'F  
        ConvertWidth "０", "0" UpFm3gKF  
        DoEvents 4Je[!X@C  
        ConvertWidth "ａ", "a" HS@ EV iht  
        DoEvents Y9r##r+  
        ConvertWidth "ｂ", "b" 4T??8J-J  
        DoEvents 0@LC8Bz+'  
        ConvertWidth "ｃ", "c" h6;vOd~%  
        DoEvents $i9</Es P  
        ConvertWidth "ｄ", "d" X"EZpJ'W  
        DoEvents |6o!]~&e$1  
        ConvertWidth "ｅ", "e" w^Atd|~gi  
        DoEvents q445$ndCT  
        ConvertWidth "ｆ", "f" (kmrWx= $  
        DoEvents e$l*s/"0t  
        ConvertWidth "ｇ", "g" #gcv])to  
        DoEvents n]x%xnt  
        ConvertWidth "ｈ", "h"
&G$K.q  
        DoEvents iY;>LJmp  
        ConvertWidth "ｉ", "i" `)TuZP_)  
        DoEvents DcRvZH  
        ConvertWidth "ｊ", "j" i}
=n6  
        DoEvents EGw;IFj)  
        ConvertWidth "ｋ", "k" k;(r:k^  
        DoEvents S3N+9*iK  
        ConvertWidth "ｌ", "l" svRYdInBNu  
        DoEvents e.Gjp{  
        ConvertWidth "ｍ", "m" }l<:^lX  
        DoEvents YwU[kr-i  
        ConvertWidth "ｎ", "n" 9NC?J@&B  
        ConvertWidth "ｏ", "o" TMw6 EM  
        ConvertWidth "ｐ", "p" (,I9 |  
        ConvertWidth "ｑ", "q" ,TlYQ/j%h  
        ConvertWidth "ｒ", "r" 8Xx4W^*_  
        ConvertWidth "ｓ", "s" ,JqCxb9  
        ConvertWidth "ｔ", "t" `_+%  
        ConvertWidth "ｕ", "u" #D
 ]P3  
        ConvertWidth "ｖ", "v" E@/*
eJ  
        ConvertWidth "ｗ", "w" PR3&LI;B*  
        ConvertWidth "ｘ", "x" KbGz3O'u  
        ConvertWidth "ｙ", "y" t->I# t7  
        ConvertWidth "ｚ", "z" nw,XA0M3  
        ConvertWidth "Ａ", "A" /I48jO^2  
        ConvertWidth "Ｂ", "B" sL4j@Lt  
        ConvertWidth "Ｃ", "C" mkuK$Mj  
        ConvertWidth "Ｄ", "D" _@@.VmZL  
        ConvertWidth "Ｅ", "E" 
yN{TcX  
        ConvertWidth "Ｆ", "F" n`.JI(|  
        ConvertWidth "Ｇ", "G" M{4U%lk  
        ConvertWidth "Ｈ", "H" _~.S~;o!b  
        ConvertWidth "Ｉ", "I" = Q~@
dP  
        ConvertWidth "Ｊ", "J" 3Q!)bMv \  
        ConvertWidth "Ｋ", "K" z2U^z
*n{  
        ConvertWidth "Ｌ", "L" XP^ [,)E  
        ConvertWidth "Ｍ", "M" %?m_;iv  
        ConvertWidth "Ｎ", "N" aL^ 58My&  
        ConvertWidth "Ｏ", "O" :y1,
OR/k  
        ConvertWidth "Ｐ", "P" {v}BtZ  
        ConvertWidth "Ｑ", "Q" xU;/LJ6  
        ConvertWidth "Ｒ", "R" Qpocj:  
        ConvertWidth "Ｓ", "S" S~hoAl"xb/  
        ConvertWidth "Ｔ", "T" KXT9Wt=  
        ConvertWidth "Ｕ", "U" ni?5h5-  
        ConvertWidth "Ｖ", "V" VM}7 ~  
        ConvertWidth "Ｗ", "W" sH51 .JG  
        ConvertWidth "Ｘ", "X" RMs+pN<5  
        ConvertWidth "Ｙ", "Y" `qm$2  
        ConvertWidth "Ｚ", "Z" L/xTW  
        ConvertWidth "^l", "^p" Y6RbRcJw  
        ConvertWidth "（", "(" }!QVcu"+t/  
        ConvertWidth "）", ")" [79iC$8B|  
     ["WWaCcx  
    End If LhC
wZ1  
BFswqp:  
    With ActiveDocument :YCB23368"  
        Dim tbl As Table T!X`"rI  
        For Each tbl In .Tables -8Q}*Z  
            tbl.Rows.Alignment = wdAlignRowCenter !rTkH4!_  
            tbl.Range.Font.NameFarEast = "楷体" cnz+%Y N  
            tbl.Range.Font.NameAscii = "Times New Roman" 2#Du5d   
            tbl.Range.Font.Size = 10.5 ]{ir^[A6  
        Next v(P5)R,  
        Set tbl = Nothing dZ|x `bIgs  
    End With 821;;]H  
     z#*>u   
     YB]{gm2  
    With ActiveDocument L>&9+<-B  
         ST1c`0e  
        For i = 1 To .TablesOfContents.Count G]zyx"0Sqb  
            .TablesOfContents(i).Delete [w{x+6uX'  
        Next LV@tt&|N  
         cvVv-L<[S`  
         i\dd  
         dLbSvK<(I  
        paraTotal = .Paragraphs.Count r!;wKO  
        paraCounter = 1 s<{) X$  
         ^l{q{O7U$  
        LastTitle0No = 0 k!py*noy  
        LastTitle1No = 0 x5R|,bY  
        LastTitle2No = 0 _c>8y  
        LastTitle3No = 0 KsQn%mxS  
        LastTitle4No = 0 pEq }b+-  
        LastTableNo = 0 I~Q G  
        LastFigureNo = 0 o&MOcy D  
         2" u,f  
        Dim Sec As Long R1~wzy  
         nLY(%):(P  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) qFXx/FZ  
        If Sec = 0 Then MW|R )gt  
            Exit Sub W!V-m  
        End If ?$.JgG%Z+g  
         w>wzV=R  
        k = 0 7;9 Jn  
        Do While (paraCounter < paraTotal) And bContinue j:7AVnt  
            k = k + 1 R!rj:f!>  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then .`jYrW-k  
                Exit Do #z =$*\u  
            End If heScIe N^`  
            paraCounter = paraCounter + 1 W H%EC$  
            If k Mod 20 = 0 Then X16vvs jw5  
                Me.lbCounter.Caption = paraCounter a5?Yh<cJ  
                DoEvents 1#KBf[0  
            End If 0M!GoqaA  
        Loop zs.@=Z"  
         t!\B6!Fo  
         wwE3N[  
        Do While (paraCounter < paraTotal) And bContinue k:8NOx|s"  
             =Q#d0Q  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) ;r}yeISf  
            ShapeHeight = 0 dy]ZS<Hz8G  
            ShapeWidth = 0 D"CU J?  
           |4rq j1*U  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth NA+7ey6  
             ,</Kn~b  
            Select Case ParaType y I}>  
                Case "【】表格内容" Hc
M/  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" et=i@PB)  
                Case "章" RT<HiVr`  
                    LastTitle0No = LastTitle0No + 1 ;)q"X>FMZe  
                    '新一章开始，复位其下属标题编号 3fxc
H  
                    LastTitle1No = 0 rgF4 W8  
                    LastTitle2No = 0 (_=R<:  
                    LastTitle3No = 0 Y+{jG(rg.F  
                    LastTitle4No = 0 d:{}0hmxI  
                     3.6Gh
|7  
                    k = Val(ttNo) `_SV1|=="8  
                    If k = 0 Then '非数字编号章节 nh+Hwj#( x  
                        If ttNo <> NoSeries1(LastTitle0No) Then fZb}-  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString uM,R+)3  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText uyvjo)T  
                        End If $"ACg!=M  
                    Else Lk.tEuj=82  
                        If Val(ttNo) <> LastTitle0No Then dOVu D(  
                            rText = "第" & LastTitle0No & ttString %D3Asw/5a  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText N(%(B  
                        End If F *1w8+  
                         n(W&GSj|u9  
                    End If sh*/wM  
                     \. a7
F4h  
                    '章段落设置 KNjU!Z/4  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 t==\D?Rt  
                    .Paragraphs(paraCounter).Style = "QLNU章节" C!U$<_I\2  
                    .Paragraphs(paraCounter).Range.Select !8&EkXTw,  
                    Selection.EndKey unit:=wdLine =w/AJ%6  
                    tc = Replace(rText, vbCr, "") |nBs(>b  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False B Q2N_*v  
                Case "一级标题" Xi;<O&+  
                    LastTitle1No = LastTitle1No + 1 aSMoee@!  
                    '新一级标题开始，复位其下属标题编号 ]CDUHz  
                    LastTitle2No = 0 mrBK{@n  
                    LastTitle3No = 0 3mhjwgP<nn  
                    LastTitle4No = 0 Py#TXzEcC  
                     o4jh n[Fx  
                    If ttNo <> NoSeries1(LastTitle1No) Then "c+$GS  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString 7^C&2k5G  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText M(vX.kF  
                    End If fr`Q 5!0  
                   {DZ xK(  
                     a n0n8l  
                    '一级标题段落设置  格式：一、标题内容 $LVzhQlD  
                    .Paragraphs(paraCounter).Range.Text = rText xlH3t&i7  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" (4| R}jv  
                    .Paragraphs(paraCounter).Range.Select \1hQ7:f;\  
                    Selection.EndKey unit:=wdLine S6Y:Z0  
                    tc = Replace(rText, vbCr, "") K>TEt5  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False 2I283%xr  
                Case "二级标题" ueEf>0  
                    LastTitle2No = LastTitle2No + 1 e,MgR\F}  
                    '新二级标题开始，复位其下属标题编号 =1y~Qlu  
                    LastTitle3No = 0 "^)GnK +-  
                    LastTitle4No = 0 qWJHb Dd  
                     t N4-<6  
                    If ttNo <> NoSeries1(LastTitle2No) Then 2"c5<  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString Yl=-
j  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText 3H|drj:KV  
                    End If R'8S)'l  
                     8nwps(3  
                    '二级标题段落设置 格式：(一)、标题内容 M 5$JBnN  
                    .Paragraphs(paraCounter).Range.Text = rText 3taGb>15  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" TfHL'u9B  
                     GT\yjrCd  
                    .Paragraphs(paraCounter).Range.Select `g<0FQA  
                    Selection.EndKey unit:=wdLine 0rvB jlFT  
                    tc = Replace(rText, vbCr, "") *c 9S.  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False bd H+M?k  
                 GK;IY=8W  
                Case "三级标题" }X. Fm'`  
                    LastTitle3No = LastTitle3No + 1 SgssNv  
                    '新三级标题开始，复位其下属标题编号 p`EgMzVO,  
                    LastTitle4No = 0 ^7yaMB!  
                     {yDQncq'^  
                    If Val(ttNo) <> LastTitle3No Then gq@8Z AWn  
                            rText = LastTitle3No & ". " & ttString 8tVSa i8[  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText +X`&VO6~  
                         eAStpG"*  
                    End If 11c\C Iu  
                    '三级标题段落设置 格式：1. 标题内容 7$x%A &]  
                    .Paragraphs(paraCounter).Range.Text = rText 9bhubx\^/  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" o]]sm}3N  
                    .Paragraphs(paraCounter).Range.Select 2A:&Cqo  
                    Selection.EndKey unit:=wdLine ;y-:)7J  
                    tc = Replace(rText, vbCr, "") @$iZ9x6t  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False tEt
46]{  
                Case "四级标题" m6#a{  
                    LastTitle4No = LastTitle4No + 1 n w_s:  
                     #M4LG; B  
                    If Val(ttNo) <> LastTitle4No Then .PV(MV  
                            rText = "(" & LastTitle4No & "). " & ttString al9( 9)  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText qOIVuzi*  
                     UA(4mbz+  
                    End If Uq~b4X$  
                    '四级标题段落设置 格式：(1). 标题内容 Z}{]/=h  
                    .Paragraphs(paraCounter).Range.Text = rText 3Yo)K  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" H>},{ z  
                    .Paragraphs(paraCounter).Range.Select ":q+"*fy  
                    Selection.EndKey unit:=wdLine ;WAa4r>  
                    tc = Replace(rText, vbCr, "") ?J-
\}X  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False EM`'=<)V  
                 5{#s<%b.  
                Case "表格标题" jFip-=T{4  
                    LastTableNo = LastTableNo + 1 mX!*|$bs  
                     /nv+*+Q?d  
                    If ttNo <> CStr(LastTableNo) Then +v$W$s&b-h  
                            rText = "表" & LastTableNo & ". " & ttString hA;Ai:8  
                            ErrMsg.AddItem "表格编号错误：" & ParaText %hlgLM  
                   5=I"bnIU  
                    End If 9hssIZO  
                     yz,0 S'U  
                    '表格名称段落设置 格式：表1. 表格名称 }Q@~_3,UJ  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" n_:EWm$\  
                    xe = Replace(rText, vbCr, "") [4aw*M1z}.  
                    .Paragraphs(paraCounter).Range.Select +25=u|#4r  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 e=aU9v L  
                    Selection.Range.Text = xe 9C=*>I27?  
                    Selection.EndKey wS+!>Q_]w  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False <sw=:HU  
                 *}T|T%L4)  
                Case "表格首行" j dz IU  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" v??$z#1F3  
                Case "图片标题" f( Dtv  
                    LastFigureNo = LastFigureNo + 1 'sNiJ>  
                     /Kq'3[d8  
                    If ttNo <> CStr(LastFigureNo) Then M2c7|  
                            rText = "图" & LastFigureNo & ". " & ttString BO7XN;  
                            ErrMsg.AddItem "表格编号错误：" & ParaText oz]&=>$1I  
                   }!?RB v'W  
                    End If q"oNFHYPDs  
                    '图片名称段落设置 格式：图1. 图名称
D[}^G5  
                    .Paragraphs(paraCounter).Range.Text = rText ;)wk^W  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" TD%L`Gk  
                    .Paragraphs(paraCounter).Range.Select RWX!d54&  
                    Selection.EndKey unit:=wdLine GgnR*DVP$  
                    xe = Replace(rText, vbCr, "") <1B+@  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False a>rDJw:  
                Case "正文" &,=FPlTC=  
                     '正文名称段落设置 42p1P6d  
                    .Paragraphs(paraCounter).Style = "QLNU正文" !|j|rYi-  
               Case "文献条目" BoST?"&}'  
                    With .Paragraphs(paraCounter) qj `C6_?  
                        '.Range.Select \q3ui}-9  
                        'Selection.ClearFormatting Dyc XJ3eQ  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” Dv L8}dz  
                        .Style = "QLNU参考文献" #HW< @E  
                    End With co1aG,>"q  
               Case "图表注解" d0C _:_  
                    With .Paragraphs(paraCounter) ;<thEWH;Y  
                        .Range.Font.NameFarEast = "楷体" VumM`SH  
                        .Range.Font.NameAscii = "Times New Roman" 17,mqXX>  
                        .Range.Font.Size = 9 '小5号字 X/90S2=P  
                        
O|
)b$H_  
                        .Alignment = wdAlignParagraphCenter hvQXYo>TZx  
                        .LeftIndent = 0 Lq1?Y  
                        .RightIndent = 0 biBMd(6  
                        .FirstLineIndent = 0 pPag@L  
                        .LineSpacing = 12 rGXUV`5Na  
                        .LineSpacingRule = wdLineSpaceExactly yTh%[k  
                        .LineUnitAfter = 0 -%gEND-AP  
                        .LineUnitBefore = 0 .G vk5Wn  
                        .OutlineLevel = wdOutlineLevelBodyText (vX<Bh  
                        .PageBreakBefore = False psc Fb$b  
                        .RightIndent = 0 Pqw<nyC.  
                        .WordWrap = True $IjI{%  
                        .LineUnitAfter = 0.5 Pr(@&:v:  
                         U*E)y7MY  
                    End With )J0h\k y  
                Case Else 2
  
                    '不作处理 =6O*AJ  
            End Select %?aq1 =B  
             GBWL0'COV  
            '含有inlineshape的段落处理 >T c\~l  
            If ShapeHeight > 30 Then Kd58'$  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 j;7E+Yp  
            End If zH6@v+gb  
             s@5~HyeI  
            If (ShapeWidth + ShapeHeight) > 150 Then 9j
X_Eoxy
 
                .Paragraphs(paraCounter).Style = "QLNU图片段落" { 7c'%e  
            End If )p1~Jx(\  
             YYPJ(o\  
            '段落计数器递 #p55/54ZI  
            paraCounter = paraCounter + 1 m{?f,Q=u@  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter kP^A~ZO.  
            Me.txtStatus.Text = ParaText M8<
Vd1-5  
            DoEvents -`eB4j'7  
        Loop 3u4Q!U%(D  
    End With 3fB]uq+eD%  
     {j;` wN  
    msg = "" ;^0rY)&  
     {V[}#Mf  
    For i = 0 To Me.ErrMsg.ListCount - 1 B>m*!n:l  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) <Z<meB[g  
    Next OG$v"Yf~  
     S4[#[w`=  
     T_=WX_h $  
     k4hk* 0Jq  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg k.K#i /t  
    Me.cmdCheck.Enabled = True &e;Qabwxva  
    Me.txtStatus.Visible = True l"1D'Hk  
    Me.lbParaType.Visible = False I[v`)T'_{  
     CswKT9  
    bContinue = False FMI1[|:;  
End Sub a!-J=\>9  
' |B3@9<  
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) 1^E5VG1[  
    Dim pTEXT As String s.Bb@Jq  
     N$IA~)  
    pTEXT = ChKRange.Text 3l41"5Fy&  
     ,7c Rd}1Y  
    ParaType = "其它" RLMn&j|?e  
    TitleString = pTEXT Qubu;[0+a  
    TitleNo = "N/A" <F;+A{M)  
     qIQRl1Tw;V  
    shpCounter = ChKRange.InlineShapes.Count m&gB;g3:  
    If shpCounter <> 0 Then SY[3O   
        MaxShpHeight = 0: TotalShpWidth = 0 qt*+ D  
        For i = 1 To shpCounter {\%I;2X  
            k = ChKRange.InlineShapes(i).Height g#^MO]pY  
            l = ChKRange.InlineShapes(i).Width h9CTcWGt  
            If k > MaxShpHeight Then z BTW&  
                MaxShpHeight = k .(.
<  
            End If 3\Q9>>  
            TotalShpWidth = TotalShpWidth + l y%;o  
        Next qy)~
OBY  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then dt,Z^z+"E  
            Exit Sub mfaU_ Vo&  
        End If ^]D1 ':  
    End If _p+E(i 9  
     QDV+(  
    '空行 b=_k)h+l  
    If Len(pTEXT) <= 2 Then LybaE~=  
        Exit Sub 5B4/2q=  
    End If %K-8DL8|(  
     G$MEVfd"
 
         h_S>
Q  
    '是否为表格中的文字 H~nZ=`P9&  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then D\9-/p  
        ParaType = "表格内容" P/|1,Sk  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) &JqaI Jh
 
        If k = 1 Then \3^ue0  
            ParaType = "表格首行" ,xVA J6_#  
        End If e@anX^M;  
        Exit Sub m egTp  
    End If )y;7\-K0  
     i2c|_B  
    '例外情况：脚注 htR.p7&Tn  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then O0xqA\  
        ParaType = "脚注" ,!^5w,P:   
        Exit Sub QAp]cE1ew  
    End If KNd<8{'.  
     RK &>!^  
    '例外情况：尾注 $Oy&POe  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then \|HNFxT`  
        ParaType = "尾注" ktx| c19  
        Exit Sub FA$32*v  
    End If <?5|(Q"@:  
     j]<K%lwp  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then HOF xOBV  
        ParaType = "页眉页脚" SeDk/}/~e  
        Exit Sub L*[3rqER  
    End If OQB7C0+ &  
     H(K PU1lDw  
     O .ce= E  
    With regEX y^`JWs,  
        .Global = True 2wIJ;rh  
         bIyg7X)/  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" 7<;oz30G!L  
        If regEX.Test(pTEXT) Then  qrw  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") -[ gT}{k!  
            TitleString = regEX.Replace(pTEXT, "$3") ,r;xH}tbi  
            TitleNo = regEX.Replace(pTEXT, "$1") =(D"(OsQ/  
            ParaType = "章" 'u;O2$  
            Exit Sub XDPgl=~  
        End If &k%>u[Bo  
         QO(F%&v++  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" bNVeL$'  
        If regEX.Test(pTEXT) Then A8*zB=C  
            ParaType = "一级标题" ?`rAO# 1  
            regEX.Execute (pTEXT) &4S2fWx  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") ">z3i`#C'  
            TitleString = regEX.Replace(pTEXT, "$3") `>)Ge](oN  
            TitleNo = regEX.Replace(pTEXT, "$1") N\ !  
            Exit Sub :vG0 l\  
        End If ChG7>4:\  
         o!":mJy  
        '全角或半角括号中的数字 ^zQI_ydG  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" -LszaMR}  
        If regEX.Test(pTEXT) Then Lm2)3;ei  
            ParaType = "二级标题" &tAYF_}  
            regEX.Execute (pTEXT) }0Ns&6)xG  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") ~<n.5q %Z  
            TitleString = regEX.Replace(pTEXT, "$5") #Ir?v  
            TitleNo = regEX.Replace(pTEXT, "$2") Dz6xx?  
            Exit Sub Coe/4!$M  
        End If /0XMQy  
         m\0_1 #(  
        '阿拉伯数字  1. 2. pLtw|S'4  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" ()l3X.t,$  
        If regEX.Test(pTEXT) Then +)"Rv%.  
            ParaType = "三级标题" E6-*2U)k+  
            regEX.Execute (pTEXT) ji1vLu4|t  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 l9&k!kF`  
            TitleString = regEX.Replace(pTEXT, "$3") /z*Z+OT2  
            TitleNo = regEX.Replace(pTEXT, "$1") C$1W+(  
            Exit Sub 4F6aPo2  
        End If */n8T]s  
         A+0-pF2D  
        '全角或半角括号中的阿拉伯数字 @CmKF  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" 4A!]kj5T  
        If regEX.Test(pTEXT) Then K8&;B)VT>  
            ParaType = "四级标题" 3wq<@dRv4  
            regEX.Execute (pTEXT) X&?s:A  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") #6<1 =I'j  
            TitleString = regEX.Replace(pTEXT, "$5") `z0q:ME  
            TitleNo = regEX.Replace(pTEXT, "$2") lnyf
Aq}w  
            Exit Sub F. SB_S<'  
        End If 8$ u"92  
         LsuOmB|^  
        '表格名称 K 8_v5  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" N8dxgh!,  
        If regEX.Test(pTEXT) Then fyb;*hgu  
            ParaType = "表格标题" ! I0xq"  
            regEX.Execute (pTEXT) Pp tuXq%U  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) SULFAf <  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) JN|6+.GG  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) _o$jk8jOjW  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 Z%qtAPd  
            Exit Sub aY > v  
        End If
mnsl$H_4S  
         2.Qz"YDh =  
        '图片名称 nJ2x;';lA  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" QE\ [EI2  
        If regEX.Test(pTEXT) Then zR^Gy"  
            ParaType = "图片标题" 96(Mu% l  
            regEX.Execute (pTEXT) Tz,9>uN  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") Oti*"dV\::  
            TitleString = regEX.Replace(pTEXT, "$3") |2u=3#Jp  
            TitleNo = regEX.Replace(pTEXT, "$1") Zob/H+]  
            Exit Sub j,+]tHC-  
        End If sjg`4^!wDD  
         I'BhN#GhX  
        '参考文献 *kl  :/#  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 F`QViZ'n>#  
        If regEX.Test(pTEXT) Then _NsEeKU  
            ParaType = "文献条目" k_=yb^6[U  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") !{t|z=Qg  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") - |g"q|  
            Exit Sub Ey|_e3Lf[  
        End If 5o dT\>Sn  
         f|~{j(.v  
        prfx = Left(pTEXT, 2) !ka* rd  
        If prfx = "注：" Or prfx = "注:" Then 7PX`kI  
            ParaType = "图表注解" 4?'vP'  
            Exit Sub 7t:RQ`$:  
        End If 1 &9|~">{C  
         EyE#x_A  
         _xp8*2~-  
        ParaType = "正文" Z)#UCoK!c  
         w31 Ox1>s  
    End With 0B]q /G(  
End Sub 9_?
xAJ  
y(p_Un m  
Sub ConvertListToOrdinary() Z,.Hz\y1D  
    Dim st As Paragraph ^Fco 'nlM  
    With ActiveDocument "^n,(l*4x  
        For i = .Paragraphs.Count To 1 Step -1 YOD.y!.zq7  
            Set st = .Paragraphs(i) E=p+z"Ui  
            lst = st.Range.ListFormat.ListString Zp9. ~&4o-  
            If lst <> "" Then \:WWrY8&  
                st.Range.ListFormat.RemoveNumbers %'=*utOxy  
                st.Range.InsertBefore lst & " " a4__1N^Qj  
            End If c>B1cR  
        Next PC#^L$cg}  
    End With V}#X'~Ob  
    Set st = Nothing IT_I.5*A2  
End Sub :pqUUZ6x&  
Go)$LC0Mi  
Private Sub UserForm_Activate() =Xh)34q  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" 9qB0F_xl  
    Me.lbTotal.Font.Bold = True @owneSD qN  
    Me.txtStatus.Visible = False I4X9RYB6c  
    Me.cmdCheck.Enabled = True S%i^`_=Q  
T$xBH  
End Sub tNi>TkC}`  
V*uE83x1  
>CqzC8JF  
Sub CheckSuperScript() !w
fW0?eu  
    Selection.Find.ClearFormatting 'p&,'+x  
    Selection.Find.Replacement.ClearFormatting No'?8+i  
    With Selection.Find MYWkEv7  
        .Text = "[【\[［〖](*)[】\]〗］]" 6:7[>|o kQ  
        .Replacement.Text = "[\1]" vA1YyaB  
        .Replacement.Font.Superscript = True Cku"vVw,  
        '.Replacement.Font.Color = wdColorBlue ,_Z(!| rW  
        .Forward = True "d_wu#fO)  
        .Wrap = wdFindContinue 5QMra5Nk  
        .FORMAT = True _qxI9Q}<"  
        .MatchCase = False JNfL jfE)<  
        .MatchWholeWord = False L=4+rshl!_  
        .MatchByte = False 5 8bW  
        .MatchAllWordForms = False {ar qcILr  
        .MatchSoundsLike = False KhHFJo[8sf  
        .MatchWildcards = True  <OMwi9  
    End With "La;$7ds  
    Selection.Find.Execute Replace:=wdReplaceAll  8s0+6{vW  
End Sub "]+g5G  
f<Hi=Qpm  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) O,Q.-  
    bContinue = False WEimJrAn  
    Set regEX = Nothing T }}2J/sj  
End Sub j<B9
$8x&  
qz-QVY,  
Sub CeateOrModifyStyle() 5`QcPDp{z  
' N T`S)P*?  
' /o;M ?Nt6  
Dim stl As Style ~|V^IJZ22  
     hxO}'`:  
    Options.Pagination = False j~Aq-8R=  
     L(Y1ey9x  
    On Error Resume Next h+FM?ct6}  
    For Each stl In ActiveDocument.Styles w7V\_^&Id  
        stl.Delete f2i:I1 p("  
    Next )D, KG_7l  
    On Error GoTo 0 sS>b}u+v#!  
     Qd[_W^QI  
    Set stl = Nothing o}OY,P  
     pjWRd_
h.  
    DoEvents 0ns\:2)cEB  
    On Error Resume Next |1U_5w  
     kJWg},-\  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph zfeT>S+  
     >NRppPqL  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph d~LoHp  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph J7`mEL> ?  
     FlBhCZ|
^  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph 2?JV "O=  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph [0 F~e  
     Z7;V}[wie  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph ;A*SuFbV  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph \#{PV\x:Nn  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph zw/AZLS  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph 5?
kfE  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph /T w{JO#Q  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph ZSC*{dD$E  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph v`HER6  
     Ax;[Em?
I  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph Z[oF4 z   
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph ju"z  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph ,QY$:f<  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph 2B ]q1>a!  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph 9P?
0D  
     1qRquY  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph z0[XI7KK  
    On Error GoTo 0 JE?rp1.  
    DoEvents *NmY]  
     h.jJAVPi  
    'BaseStyle q<JCgO-F<  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False UerbNz|  
    With ActiveDocument.Styles("BaseStyle").Font }aZuCe_  
        .NameFarEast = "宋体" i+Z)`  
        .NameAscii = "Times New Roman" cm< #zu3~S  
        .NameOther = "宋体" b(iF0U>&  
        .Size = 10.5 7*!7EBb  
        .Bold = wdUndefined XcVN{6-z  
        .Italic = wdUndefined 'NEl`v*<P  
        .Subscript = wdUndefined 1)ue-(o5  
        .Subscript = wdUndefined B>,eHXW  
         \Z[
1m[{  
        .Underline = wdUnderlineNone 4ax{Chn  
        .UnderlineColor = wdColorAutomatic vrnvv?HPrR  
        .StrikeThrough = False ?[ xgt)  
        .DoubleStrikeThrough = False T6U/}&{O  
         (%my:\>l  
        .Outline = False <^5!]8*O  
        .Emboss = False oP&/>GmXL  
        .Shadow = False x[(6V'  
        .Hidden = False &9L4 t%As  
        .SmallCaps = False aSzI5J]/=  
        .AllCaps = False !+GYu;_  
        .Color = wdColorAutomatic v@_ 1V  
        .Engrave = False 2Y vr|] \8  
        .Scaling = 100 C= ~c`V5>r  
        .Kerning = 1 uUH4vUa  
        .Animation = wdAnimationNone *]$B 9zVs!  
        .DisableCharacterSpaceGrid = False U'fP  
        .EmphasisMark = wdEmphasisMarkNone XB)D".\  
    End With )9]a  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat J2bvHxb Rd  
        .LeftIndent = 0 M.W X&;>  
        .RightIndent = 0 XUqorE  
        .SpaceBefore = 0 t#k]K]  
        .SpaceBeforeAuto = False (bsx|8[  
        .SpaceAfter = 0 p5G'})x  
        .SpaceAfterAuto = False m=dNJF  
         (2g a:}K  
        .LineSpacingRule = wdLineSpaceSingle QJ|@Y(KV0  
        .Alignment = wdAlignParagraphJustify 9`tK9  
         f9.?+.^_  
        .WidowControl = False R'>!1\?Iq  
        .KeepWithNext = False !J$r|IX5  
        .KeepTogether = False ,>;21\D  
        .PageBreakBefore = False sh<Q2X  
        .NoLineNumber = False
i}-uK,^  
         ma.84~m  
        .FirstLineIndent = CentimetersToPoints(0) 17LhgZs&  
        .OutlineLevel = wdOutlineLevelBodyText Y6` xb`  
        .CharacterUnitLeftIndent = 0 =+zDE0Qs  
        .CharacterUnitRightIndent = 0 Z>hTL_|]a{  
        .CharacterUnitFirstLineIndent = 0 4&iQ
o'  
        .LineUnitBefore = 0 VmS_(bM  
        .LineUnitAfter = 0 #-/W?kD  
        .AutoAdjustRightIndent = True S,#1^S  
        .DisableLineHeightGrid = True iQ'*QbP'Z  
         4Uy%wB  
        .FarEastLineBreakControl = True Ez3fL&*  
        .WordWrap = True Qs6<(zaqkt  
        .Hyphenation = False #[+# bw_6  
         F9K%f&0
a  
        .HangingPunctuation = True  :Sq]|)  
        .HalfWidthPunctuationOnTopOfLine = True uO%0rKW  
        .AddSpaceBetweenFarEastAndAlpha = True g6GkA.!X$  
        .AddSpaceBetweenFarEastAndDigit = True 1Cr&6't  
        .BaseLineAlignment = wdBaselineAlignBaseline :gVUk\)  
    End With po| Ux`u  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False |cvU2JI@  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll "-~7lY%  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese W__ArV2Z_  
    ActiveDocument.Styles("BaseStyle").NoProofing = False +jm,nM9  
     kwI``7g8*e  
    '一级标题题样式 0dchOUj  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 8Q'Emw |  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" Y|>dS8f;4  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False \TV  
    With ActiveDocument.Styles("QLNU一级标题").Font [&)]-2w2  
        .NameFarEast = "黑体" {)[o*+9  
        .NameAscii = "Arial Black"  LgqQr6y"  
        .NameOther = "黑体" v=U<exM6%  
        .Name = "黑体" ij"~]I  
        .Size = 16              '三号 V=O52?8  
        .Bold = True a=z] tTs4  
        .Italic = wdUndefined A;oHji#*  
        .Subscript = wdUndefined Abc{<4 z0?  
        .Superscript = wdUndefined >B BV/C'9  
    End With Q]ersA8 V>  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat AGlBvRX7e  
         g`XngRb|j  
        .LeftIndent = CentimetersToPoints(0) i'IT,jz!  
        .RightIndent = CentimetersToPoints(0) Hfcp qa  
        .FirstLineIndent = CentimetersToPoints(0) {{G)Ry* pb  
         Pfd1[~,  
        .LineSpacingRule = wdLineSpaceSingle ~k"+5b
Ha*  
        .Alignment = wdAlignParagraphCenter 7sot?gF  
         broLC5hbQU  
        .WidowControl = True t R^f]+Up  
        .KeepWithNext = True z0z@LA4k6@  
        .KeepTogether = True >!963>DR  
        .OutlineLevel = wdOutlineLevelBodyText x~5uc$  
         "Ep"$d  
        .LineUnitBefore = 0.5 As:O|!F  
        .LineUnitAfter = 0.5 d$t"Vp  
    End With vObZ|>.J~O  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False Fr9/TI  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll 2HX/@ERhmu  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese 70'OS:J=\  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True J4Gzp~{  
    DoEvents j*{0<hZb}  
     s,z~qL6&  
    '二级 PL/g| 
;  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ;Afz`Se1@  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" PX:#+ bq1  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False M\ATT%b:  
    With ActiveDocument.Styles("QLNU二级标题").Font djd/QA
fSC  
        .NameFarEast = "黑体" ,06Sm]4L,  
        .NameAscii = "Arial Narrow" 6u[fCGi%  
        .NameOther = "黑体" VYk:c`E  
        .Name = "黑体" w"hd_8cO  
        .Size = 15        '小三号 $7x2TiAL  
        .Bold = False ]Q^)9uE\D  
        .Outline = False ;%tFi  
        .Italic = wdUndefined <b 5DX  
        .Subscript = wdUndefined YT\`R  
        .Superscript = wdUndefined S 'a- E![  
    End With F/5&:e?( )  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat =[B\50]  
        .LeftIndent = CentimetersToPoints(0) Ji4p6$ .j-  
        .RightIndent = CentimetersToPoints(0) _$~>O7  
        .FirstLineIndent = CentimetersToPoints(0) .u-a+ac<  
         YQMWhC,8hy  
        .LineSpacingRule = wdLineSpaceSingle tl#sCf!c  
        .Alignment = wdAlignParagraphLeft Kk3+ ]W<  
         (3Db}Hnn  
        .WidowControl = True m1$tf ^  
        .KeepWithNext = True V9c.(QY|f  
        .KeepTogether = True '&IGdB I  
        .PageBreakBefore = False vFPY|Vzh  
        .OutlineLevel = wdOutlineLevelBodyText DT-VxF6 h  
         MIMC( <  
        .LineUnitBefore = 0.5 {6i|"5_j  
        .LineUnitAfter = 0.5 9LR=>@Z  
         `#""JTA"  
    End With PR:k--)D  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False 9`in r.:  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll zakhJ  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese Pv -4psdw  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True N} EKV  
    DoEvents .-gJS-.c  
     |iM,bs  
    '三级标题样式 57\ 0MQO  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") #{i*9'  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" -3Kh >b)  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False 9&+]YYCS-  
    With ActiveDocument.Styles("QLNU三级标题").Font }7 N6nZj`  
        .NameFarEast = "宋体" U4D7@KY +m  
        .NameAscii = "Times New Roman" n`Q@<op  
        .NameOther = "黑体" q lc@$  
        .Name = "黑体" \8vP"Kr  
        .Size = 14               '四号 \Kl 20?  
        .Bold = False i%2u>Ni^  
        .Outline = False i|:!I)(lh  
        .Italic = wdUndefined gx&es\  
        .Subscript = wdUndefined Q,U0xGGz  
        .Superscript = wdUndefined G m~ ./-  
    End With JEjxY&  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat \"l z,bT  
        .LeftIndent = CentimetersToPoints(0) sf*4|P }  
        .RightIndent = CentimetersToPoints(0) rXx#<7`  
        .FirstLineIndent = CentimetersToPoints(0) ,H=k5WA4m  
         uwe#&V-  
        .LineSpacingRule = wdLineSpaceSingle T{dQ4 c  
        .Alignment = wdAlignParagraphLeft ZW4
f "  
         & 3#7>
oQ  
        .WidowControl = True U^m#!hp  
        .KeepWithNext = True 3>O|i2U  
        .KeepTogether = True m2]N%Y  
        .PageBreakBefore = False 'l*X?ccKy  
        .OutlineLevel = wdOutlineLevelBodyText F*72g)hVh  
         f{BF%;  
        .CharacterUnitLeftIndent = 0 \ .xS  
        .CharacterUnitRightIndent = 0 3j7FG%\  
        .CharacterUnitFirstLineIndent = 2 4fLRl-)  
         (W1$+X  
        .LineUnitBefore = 0.5 cu!%aM,/<-  
        .LineUnitAfter = 0 4Aj~mA  
    End With )[rVg/m  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False c1YDln  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll q}U+BTCZ  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese Al>d 21U  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True *22Vc2[i;  
    DoEvents : |'(T[~L  
     Tzq@ic#!B  
    '四级标题样式 wgl<JO  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") jJ$\WUQ.  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" d$
!Q6ux;  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False $xO8?  
    With ActiveDocument.Styles("QLNU四级标题").Font qTsy'y;Z   
        .NameFarEast = "宋体" ~\":o:qyc  
        .NameAscii = "Times New Roman" IJ^~,+  
        .NameOther = "宋体" b:==:d:0s  
        .Name = "宋体" 3?Pg ;  
        .Size = 12               '小四号 5`h$^l/  
        .Bold = True o'2eSm0H  
        .Outline = False b3A0o*  
        .Italic = wdUndefined $n<a`PdH  
        .Subscript = wdUndefined 35\ |#2qw6  
        .Superscript = wdUndefined BT7{]2?&V  
    End With $1f2'_ `8~  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat <-VBb[M#  
         *EWWN?d  
        .LeftIndent = CentimetersToPoints(0) k:0j;\Sx  
        .RightIndent = CentimetersToPoints(0) c^}y9% 4c  
        .FirstLineIndent = CentimetersToPoints(0) <4}m:  
         0Lo8pe`DH  
        .LineSpacingRule = wdLineSpaceSingle '*J+mZtN  
        .Alignment = wdAlignParagraphLeft R%UTYRLUn  
         L(y70T  
        .WidowControl = True qb>ULP0  
        .KeepWithNext = True K[[~G1Z  
        .KeepTogether = True (< +A w7  
        .PageBreakBefore = False ON2o^-%=  
        .OutlineLevel = wdOutlineLevelBodyText 4@9Pd &I  
         Fh#QS'[  
        .CharacterUnitLeftIndent = 0 {npm9w<;  
        .CharacterUnitRightIndent = 0 [.#nM   
        .CharacterUnitFirstLineIndent = 2 TgiZ % G  
         *,\v|]fc  
        .LineUnitBefore = 0 'D\X$^
J^  
        .LineUnitAfter = 0 X^\D"fmE.  
         oE '
P  
    End With +_GS@)L`%  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False nI:M!j5s`  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll ?I+L  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese 4]o+)d.`(  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True ">}6i9o  
    DoEvents qTJhYxm  
     nCQtn%j't  
    '正文校式 y:'Ns$+  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") )Q2IYCj{  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" :[0 R F^2}  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False 5B=uvp|Y  
    With ActiveDocument.Styles("QLNU正文").Font ]]j^  
         Pn,I^Ej.  
        .NameFarEast = "宋体" \^)i!@v  
        .NameAscii = "Times New Roman" &8$v~  
        .NameOther = "宋体" *b{IWOSe^  
        .Name = "宋体" Iz0$T.T  
         >Hf {Mx{<  
        .Size = 12               '小四号 aTcz5g0"  
         sfF~
k-  
        .Bold = wdUndefined 1!z{{H;W  
        .Italic = wdUndefined !se1W5ke#  
        .Subscript = wdUndefined @KQ>DBWQM  
        .Superscript = wdUndefined eiMP:  
         '=dQ$fs  
        .Outline = False 1 Pk+zBJ$  
        .Emboss = False %8*:VR  
        .Shadow = False 7FC!^)x1  
        .Hidden = False BH:A]#_{  
         BA@E  
        .DisableCharacterSpaceGrid = True |ADf~-AY  
    End With u/=hueR<^  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat "&6vFmr  
         ^r~[3NT  
        .LeftIndent = CentimetersToPoints(0) o=rR^Z$G   
        .RightIndent = CentimetersToPoints(0) }3 xkA  
        .FirstLineIndent = CentimetersToPoints(0) :>FN|fz  
         ~$J;yo
~  
        .LineSpacingRule = wdLineSpaceExactly EGXvz)y  
        .LineSpacing = 20 t;* zr*  
        .Alignment = wdAlignParagraphLeft 2Q6;SF"Z  
         _3Eo{^  
        .WidowControl = False ng}C$d . I  
        .KeepWithNext = False K(;qdIr  
        .KeepTogether = False )re<NE&M  
        .PageBreakBefore = False 9$)&b\D  
        .Hyphenation = False [)"\Aq  
         `~XksyT  
        .OutlineLevel = wdOutlineLevelBodyText =gVMt  
         |]7c&`  
       j iKHx_9P  
        .CharacterUnitLeftIndent = 0 BUXE s0]Lv  
        .CharacterUnitRightIndent = 0 Xm#W}Y'  
        .CharacterUnitFirstLineIndent = 2 'z|Da&d P  
         ZJDV'mC}  
        .LineUnitBefore = 0 /4x\}qvU  
        .LineUnitAfter = 0 nxZz{&  
        .SpaceBefore = 0 v>8.TE~2  
        .SpaceAfter = 0 'K7\[if{  
         A8-[EBkK  
        .DisableLineHeightGrid = True 3x~7N  
    End With r=Xo;d*TE  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False e,%|sAs[  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll x,gk]
Cf  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese r8 9o  
    ActiveDocument.Styles("QLNU正文").NoProofing = True j_<qnBe Q  
    DoEvents 8T1`9IT
l:  
     5r5on#
O&  
    '图片段落样式 {$8+n::  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") lHM+<Z  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" 5wue2/gl  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False Spn[:u@  
    With ActiveDocument.Styles("QLNU图片段落").Font Skr(C5T  
        .Size = 12               '小四号 yCQvo(V[F  
        .Italic = wdUndefined p%DU1+SA  
        .Subscript = wdUndefined OxHcoNrz  
        .Superscript = wdUndefined IxbQ6  
    End With o`YBz~2  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat I=!kPuw  
         !v8
R(  
        .LeftIndent = CentimetersToPoints(0) x?S86,RW  
        .RightIndent = CentimetersToPoints(0) )Cy>'l*Og7  
        .FirstLineIndent = CentimetersToPoints(0) s#^0[ Rt  
         ~.T|n =  
        .LineSpacingRule = wdLineSpaceSingle jg ]KE8(  
        .Alignment = wdAlignParagraphCenter i-|N6J  
        .KeepWithNext = True ZiPeP  
        .OutlineLevel = wdOutlineLevelBodyText ?lC>E[  
         [* <x)  
        .CharacterUnitLeftIndent = 0 gmVN(K}SR5  
        .CharacterUnitRightIndent = 0 =@U5/J  
        .CharacterUnitFirstLineIndent = 0 :E9pdx+  
         NjIPHM$g  
        .LineUnitBefore = 0 J 8 KiL  
        .LineUnitAfter = 0 coXg]bUKo  
    End With URb8[~dR:  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False JwI99I'  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll \c2x udU  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese B_[efM<R$  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True A4zI1QF  
    DoEvents O#D{:H_dD>  
     k8?._1t  
     W&hW N9iR  
    '第X章 cKTjQJ#  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") U'=8:&  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" ,5W7a  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False u8c@q'_  
    With ActiveDocument.Styles("QLNU章节标题").Font 6{6hz8  
        .NameFarEast = "黑体" y8YsS4E^Q  
        .NameAscii = "Arial Black" ;"M6}5dQ4  
        .NameOther = "Arial Black" qA>#;UTp  
        .Name = "黑体" Y_CYx  
        .Size = 16 8dR `T}  
        .Bold = True CcQc!`YC  
        .UnderlineColor = wdColorAutomatic }+@!c%TCx~  
        .Outline = False y i$+rPF1  
        .Italic = wdUndefined /9br&s$B  
        .Subscript = wdUndefined ?^U?ua6  
        .Superscript = wdUndefined x,C8):\t`B  
        .Scaling = 100 r D@*x
MW  
        .DisableCharacterSpaceGrid = True L6h<B :l  
    End With 6Z|h>H5a  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat 7qqzL_d>  
        .LineSpacingRule = wdLineSpaceSingle d5^^h<'  
        .Alignment = wdAlignParagraphCenter 8i',~[  
        .WidowControl = True :i&]J$^;  
        .KeepWithNext = True !q&Td  
        .KeepTogether = True ^6 wWv&G[8  
        .PageBreakBefore = True S<7!<]F-  
        .OutlineLevel = wdOutlineLevelBodyText `,}7LfY  
         P*KIk~J  
        .LeftIndent = CentimetersToPoints(0) ~dS15E4-Pp  
        .RightIndent = CentimetersToPoints(0) Lg<h54X  
        .FirstLineIndent = CentimetersToPoints(0) NgTB4I8P  
         ~cc }yDe  
        .CharacterUnitLeftIndent = 0 4aArxJ  
        .CharacterUnitRightIndent = 0 /4T
6Z[=s  
        .CharacterUnitFirstLineIndent = 0 PhyIea  
         ( v*xW.  
        .LineUnitBefore = 1 T\9[PX<  
        .LineUnitAfter = 0.5 /ZyMD(_J  
         xt|^~~ /  
        .AutoAdjustRightIndent = False SZH`-xb!+5  
        .DisableLineHeightGrid = True DQGrXMpV0  
        .FarEastLineBreakControl = True wN.
S]  
        .WordWrap = True GL?b!4xx  
    End With }||u{[  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False YZ>L_$:q  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll LK DfV  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese 0`"oR3JY  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True z)M#9oAM  
    DoEvents p3vf7eqn  
     NVRzthg%c_  
    '表格标题 PA'&]piPl:  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") #1-WiweO  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" e,|gr"$/  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False 1["i,8zB  
    With ActiveDocument.Styles("QLNU表格标题").Font o8X_uKEI  
        .NameFarEast = "楷体" *H!BThf t4  
        .NameAscii = "Arial" sJZ2e6?n  
        .Name = "楷体" Q/g!h}>(.  
        .Size = 10.5 rfk{$g  
        .Bold = True wQG?)aaM  
        .Underline = wdUnderlineNone t*hy"e{*a  
        .Italic = wdUndefined Y#}qXXZ>]  
        .Subscript = wdUndefined !=eNr<:V.  
        .Superscript = wdUndefined QF/ULW0G!  
        .Color = wdColorAutomatic 4'z)J1M  
    End With .e7tq\k  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat 'Q=;I  
         KO"/  
        .LineSpacingRule = wdLineSpaceSingle Rq|6d M6H  
        .Alignment = wdAlignParagraphCenter _M%>Qm  
        .KeepWithNext = True y"yo\IDW  
        .KeepTogether = True b- - tl@H  
        .OutlineLevel = wdOutlineLevelBodyText wp@_4Iq1$  
         m[eqTh4*  
        .LeftIndent = CentimetersToPoints(0) Il [~  
        .RightIndent = CentimetersToPoints(0) 9s<4`oa  
        .FirstLineIndent = CentimetersToPoints(0) P4@`C{F5m  
         ~vz%I^xW  
        .CharacterUnitLeftIndent = 0 %T]$kF++&  
        .CharacterUnitRightIndent = 0 Z3JUYEAS  
        .CharacterUnitFirstLineIndent = 0 %
tP*
_d:  
         lU doMm  
        .LineUnitBefore = 1 J
$}]p  
        .LineUnitAfter = 0 Srx:rUCv  
         _tHhS@  
    End With Gko"iO#  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False > -OOU  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll X$5  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese nYSe 0w  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True nG<oae6z"  
    DoEvents /<)Vd  
*k7BE_&*0Z  
    '表格首行 m%6VwV7U  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") j{lurb)y  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False A'#d:lOA  
    With ActiveDocument.Styles("QLNU表格首行").Font TVcA%]y{;  
        .NameFarEast = "楷体" "}v.>L<P  
        .NameAscii = "Times New Roman" ?#w} S%  
        .Name = "楷体" 7?yS>(VmT  
        .Size = 9 !'H$08Ql}  
        .Bold = True
Xr <H^X  
        .Underline = wdUnderlineNone AJ%E.+@=r  
        .Italic = wdUndefined '4uu@?!dVk  
        .Subscript = wdUndefined |R
L#BKC`  
        .Superscript = wdUndefined u9~5U9]O%6  
    End With b*Y Wd3  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat \96\!7$@O  
        .LineSpacingRule = wdLineSpaceSingle :&wb+tV  
        .Alignment = wdAlignParagraphCenter US$$ADq  
         ;mEn@@{  
        .LeftIndent = CentimetersToPoints(0) y@!M<#SEzG  
        .RightIndent = CentimetersToPoints(0) ?JZ$M  
        .FirstLineIndent = CentimetersToPoints(0) jRjeL'"G  
         ;j%I1k%A  
         e@vtJaSu  
        .CharacterUnitLeftIndent = -0.5 RiQ]AsTtl  
        .CharacterUnitRightIndent = -0.5 k\[(;9sf.  
        .CharacterUnitFirstLineIndent = -0.5 42
]7N3:'  
         6C2~0b   
        .LineUnitBefore = 0 Y'iI_cg  
        .LineUnitAfter = 0 |'z8>1  
        .SpaceBefore = 0 u{DEOhtI4  
        .SpaceAfter = 0 o
6vn l  
         s$Vv  
    End With ~5+RK16  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False MS\ vrq'_  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll  U${W3Ra  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese ~yJ2@2I  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True 4`
i8m  
    DoEvents {A/^;
X{N^  
(=^KP7  
    '表格内容 ~)f^y!PMQ  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") e ymv/  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False
bg Ux &3  
    With ActiveDocument.Styles("QLNU表格内容").Font FGi7KV=N  
        .NameFarEast = "楷体" b7>'ARdbzX  
        .NameAscii = "Times New Roman" 3q73L<f  
        .Name = "楷体" ['o ueOg  
        .Size = 9 -Fd&rq:GB(  
        .Bold = False {R ),7U8  
        .Underline = wdUnderlineNone +4-T_m/W/  
        .Italic = wdUndefined yD~,+
}0)  
        .Subscript = wdUndefined |^l_F1+w  
        .Superscript = wdUndefined Ms|c"?se  
    End With mcQL>7ts  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat  p?f\/  
        .LineSpacingRule = wdLineSpaceSingle l(NQk> w  
        .Alignment = wdAlignParagraphCenter A SHU0v  
         AY5iTbL1  
        .LeftIndent = CentimetersToPoints(0) Z$/76  
        .RightIndent = CentimetersToPoints(0) u79- B-YW^  
        .FirstLineIndent = CentimetersToPoints(0) ai-s9r'MI?  
         iv>MIdIm  
        .CharacterUnitLeftIndent = -0.5 _e@8E6#ce  
        .CharacterUnitRightIndent = -0.5 :m<&Ff}  
        .CharacterUnitFirstLineIndent = -0.5 67iI wY*8'  
        .LineUnitBefore = 0 xuvW6Q;  
        .LineUnitAfter = 0 U1r]e%df)  
        .SpaceBefore = 0 ?C[?dg{n  
        .SpaceAfter = 0 5csh8i'V  
    End With XY| y1L 3[  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False 12lX-~[["  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll +7b8ye  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese f7a4E+}  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True (|BY<Ac3  
    DoEvents Mq$K[]F  
Jx5`0?  
    '图片标题 ]i#p2?BR  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") jn5xYKv  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" esJ7#G xt  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False yIL=jzm`7  
    With ActiveDocument.Styles("QLNU图片标题").Font ! $$>D"  
        .NameFarEast = "楷体" j"nOxs  
        .NameAscii = "Times New Roman" tQ{/9bN?P  
        .Name = "楷体" 83c2y;|8  
        .Size = 10.5 bvtpqI QZ  
        .Bold = True W#bYz{s.  
        .Underline = wdUnderlineNone r+bGZ  
        .Italic = wdUndefined ] "_c-=  
        .Subscript = wdUndefined {[2o  
        .Superscript = wdUndefined O#U maNj/  
        .Outline = False 5z_d$.CIc  
        .Shadow = False Qel)%|dOn  
        .Color = wdColorAutomatic 8)0]cX  
    End With 0<%$lr  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat @N4~|`?U  
        .LineSpacingRule = wdLineSpaceSingle -qj[ck(y  
        .Alignment = wdAlignParagraphCenter ^ 0.8-RT  
         2#7|zhgb  
        .KeepWithNext = wdUndefined N; }$!sNIm  
        .KeepTogether = True Dylm=ZZa  
        .OutlineLevel = wdOutlineLevelBodyText \o!3TK"N  
         lfj
5?y  
        .LeftIndent = CentimetersToPoints(0) W q<t+E[  
        .RightIndent = CentimetersToPoints(0) gko=5|c,@  
        .FirstLineIndent = CentimetersToPoints(0) fF)Q;~_VA  
         .j:,WF<"l5  
        .CharacterUnitLeftIndent = 0 N_T5sZ\  
        .CharacterUnitRightIndent = 0 +b-ON@9]J`  
        .CharacterUnitFirstLineIndent = 0 tkctwjD  
         w~u{"E$  
        .LineUnitBefore = 0 2X
l+}M.:Y  
        .LineUnitAfter = 0 ~W21%T+  
    End With $Er=i }`  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False `xzKRId0  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll c;kU|_  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese w!"L\QT  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True |H t5a.  
    DoEvents `0NU c)`  
&DMC\R*j  
    '目录项 (S!UnBb&  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") ==[(Mn,%d  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" Q~]oN  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False itzUq,T  
    With ActiveDocument.Styles("QLNU目录项").Font ^^V3nT2rR3  
        .NameFarEast = "黑体" (%fQhQ  
        .NameAscii = "Times New Roman" }i!+d,|f  
        .NameOther = "Times New Roman" eS!]. .%y  
        .Name = "黑体" Hi09?AX  
        .Size = 10.5 geR :FO;\  
        .Bold = False 57 q=  
        .Italic = wdUndefined eJo" Z  
        .Underline = wdUnderlineNone E /H%q|q  
        .Color = wdColorAutomatic ,4H? +|!  
        .Superscript = wdUndefined Rv&"h_"t  
        .Subscript = wdUndefined ? uYO]!VC  
    End With bJ_rU35s>  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat 'u<e<hU  
         `9
r{z;UQ  
        .LineSpacingRule = wdLineSpaceSingle sYS 8]JU  
        .Alignment = wdAlignParagraphLeft U"7o;q  
         6RbDc*  
        .WidowControl = False t,9+G<)>H  
        .KeepWithNext = False )P(S:x'b0  
        .KeepTogether = False =c@hE'{
 
        .PageBreakBefore = False Y_Gd_+oJ  
        .NoLineNumber = False  Lw\u{E@  
        .OutlineLevel = wdOutlineLevelBodyText y[XD=j  
         YcA. Bn|as  
        .LeftIndent = CentimetersToPoints(0) WPRk>j  
        .RightIndent = CentimetersToPoints(0) ^i8,9T'=  
        .FirstLineIndent = CentimetersToPoints(0) b23A&1X  
         h*VDd3[#  
        .CharacterUnitLeftIndent = 0  NAD^1
0  
        .CharacterUnitRightIndent = 0 "0!h-bQN  
        .CharacterUnitFirstLineIndent = 0 H=BI%Z  
         %<>:$4U@]  
        .LineUnitBefore = 0  zjUQ]  
        .LineUnitAfter = 0 IMWt!#vuY  
    End With 5$=[x!x  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False %"f85VfZ  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll ;$
iT]S  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot ]00so`  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese sg,\!'  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True 'm Zv5?  
    DoEvents "zcAYg^U  
     ,w~3K%B4  
    '参考文献 7 {92_xRL  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") ~ =u8H  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" U:*rlA@_.  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False aLg,-@  
    With ActiveDocument.Styles("QLNU参考文献").Font Z+k) N  
        .NameFarEast = "宋体" fDsT@W,K  
        .NameAscii = "Times New Roman" "zq'nV=  
        .NameOther = "Times New Roman" h-PJC/>  
        .Name = "Times New Roman" lf`ULY4{  
        .Size = 12 5&8BO1V.  
        .Bold = False B[ ZQn]y  
        .Italic = wdUndefined :XY%@n  
        .Subscript = wdUndefined &MpLm&  
        .Superscript = wdUndefined PaSwfjOnqr  
        .Underline = wdUnderlineNone
a Y)vi$;]  
        .UnderlineColor = wdColorAutomatic =CFjG)L  
        .Color = wdColorAutomatic {>hxmn   
        .Engrave = False c \??kQH  
    End With 9^!.!%6O$  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat }K)AjZ  
         'aEK{#en  
        .LineSpacingRule = wdLineSpaceExactly ;((t|  
        .LineSpacing = 16 0Ye/
 
        .Alignment = wdAlignParagraphLeft $}(Z]z}O;  
        .WidowControl = False QT+kCN  
        .KeepWithNext = False d`= ~8`  
        .KeepTogether = False ^P9mJ:  
        .PageBreakBefore = False us.[wp'Sh  
        .OutlineLevel = wdOutlineLevelBodyText ~S('\h)1  
         sR/Yv  
        .LeftIndent = CentimetersToPoints(0) eI ( S)q  
        .RightIndent = CentimetersToPoints(0) ?>+
uO0*S  
        .FirstLineIndent = CentimetersToPoints(0) )"\= _E#  
         >I S4  
        .CharacterUnitLeftIndent = 0 "#E Z  
        .CharacterUnitRightIndent = 0 -dovk?'Gj  
        .CharacterUnitFirstLineIndent = -2 ;:=j{,&dl[  
         LhAN( [  
        .LineUnitBefore = 0 OFr"RGW"  
        .LineUnitAfter = 0 a>vxox) %  
        .SpaceBefore = 0 9C \}bT  
        .SpaceAfter = 0 V30w`\1A  
         ;cVK2'  
    End With &n| <NF  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False YA,.C4=s  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll MX]#|hEeQ  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS 7D<Aa?cv_l  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True ^!B]V>L-  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese GgEg(AT  
    DoEvents <9&GOaJ  
>aJmRA-C}  
    ' gR!hN.I  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") )s>|;K{  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" 8(n>99VVK  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False 5{ yg  
    With ActiveDocument.Styles("QLNU论文题目").Font Zw)=Y.y!  
        .NameFarEast = "黑体" _i ztQ78  
        .NameAscii = "Arial Black" M;XU"8  
        .NameOther = "Arial Black" #om Gj&  
        .Name = "Arial Black" #fF5O2E'3  
        .Size = 16 Vl$RMW@Ds  
        .Bold = False Vb?wwx7=  
        .Italic = wdUndefined (^~a1@f,J  
        .Superscript = wdUndefined
GOxP{d?  
        .Subscript = wdUndefined #!_4ZX  
        .Underline = wdUnderlineNone <,DMD  
        .UnderlineColor = wdColorAutomatic f=91 Z_M  
        .Color = wdColorAutomatic JPTLh{/  
F7<M{h5s  
    End With =A5i84y.2u  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat pImq<Z  
        .LineSpacingRule = wdLineSpaceSingle (A2ga):Pk  
        .Alignment = wdAlignParagraphCenter h*^JFZb  
        .WidowControl = True s>L-0vG  
        .KeepWithNext = True IsT}T}p,t  
        .KeepTogether = True M+")*Opq  
        .PageBreakBefore = True cWnEp';.  
        .NoLineNumber = False YN)qMI_`A  
        .OutlineLevel = wdOutlineLevelBodyText }'vQUGu8z  
         rWWpP<  
        .LeftIndent = CentimetersToPoints(0) |34k;l]E  
        .RightIndent = CentimetersToPoints(0) Jhj ]`$J  
        .FirstLineIndent = CentimetersToPoints(0) ]iTP5~8U
 
         |m\7/&@<  
        .CharacterUnitLeftIndent = 0 hD#Mhy5h  
        .CharacterUnitRightIndent = 0 kR1 12J9P  
        .CharacterUnitFirstLineIndent = 0 w)<.v+u.
Y  
         c@,1?q1 bv  
        .LineUnitBefore = 1 ,sj(g/hg  
        .LineUnitAfter = 1 .?#Q(eLj  
         f]10^y5&  
        .BaseLineAlignment = wdBaselineAlignAuto )PR`irw  
    End With L__{U_p  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False }{:Jj/d p  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll yUcU-pQ  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS W ~MNst?  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True E<LH-_$  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese G-D}J2r=F  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True +mG"m hF  
    DoEvents X7*ossv  
     [.l,#-vp  
    '中文摘要 j7);N  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") YP!}Bf  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" A]iT uu5p  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False DPY+{5
q2  
    With ActiveDocument.Styles("QLNU中文摘要").Font 9/8+ R%  
        .NameFarEast = "宋体" e lM<S3  
        .NameAscii = "Times New Roman" IHW s<U  
        .NameOther = "Times New Roman" 6 [bQ'Ir^8  
        .Name = "Times New Roman" \gT({XU?  
        .Size = 12 |9i [*]  
        .Bold = wdUndefined }qGd*k0F0  
        .Superscript = wdUndefined vZQraY nJ  
        .Subscript = wdUndefined M%jR`qVFg.  
        .Italic = wdUndefined -^_^ByJe  
        .Underline = wdUnderlineNone yuq o ^i  
        .UnderlineColor = wdColorAutomatic -c8h!.Q$  
        .Color = wdColorAutomatic [2Y@O7;nI  
    End With M.SF}U  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat .HTRvE`X  
        .LineSpacingRule = wdLineSpaceExactly TyO
]|Q5  
        .LineSpacing = 20 .`KzA]& #  
        .Alignment = wdAlignParagraphLeft D Q4O  
         ^VzhjKSu  
        .WidowControl = False p}~Sgi  
        .KeepWithNext = False CNV^,`FX  
        .KeepTogether = True fvta<  
        .PageBreakBefore = False ,4,Bc<  
        .NoLineNumber = False b!-=L&V  
        .OutlineLevel = wdOutlineLevelBodyText "w 4^i!\  
        
'ym Mu}q  
        .LeftIndent = CentimetersToPoints(0) v#9 i|  
        .RightIndent = CentimetersToPoints(0) @}^VA9ULK  
        .FirstLineIndent = CentimetersToPoints(0) l^tRy_T:-  
         vx$DKQK@l\  
        .CharacterUnitLeftIndent = 0 tHqa%  
        .CharacterUnitRightIndent = 0 bOYM-\ {y  
        .CharacterUnitFirstLineIndent = 2 E}zGY2Xx  
        .LineUnitBefore = 0 \1?'JdN  
        .LineUnitAfter = 0 u=PLjrB~}  
         pQZ`dS\  
    End With .5SYN-@  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False >`WQxkpy  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll c;KMox/  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS iqoMQ7%  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True Wt5
pK[JV  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese guCCu2OTA%  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True owa&HW/_  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete &n?RKcH}d  
    DoEvents g9Dynm5  
     0WZd$  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") "KCG']DF  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" Ta3* G  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False yz>S($u  
    With ActiveDocument.Styles("QLNU英文标题").Font C5KUIOg  
        .NameFarEast = "黑体" o=![+g  
        .NameAscii = "Arial Narrow" t\:=|t,  
        .Name = "Arial Narrow" AH#a+<;a  
        .Size = 16 %Ze7
d&  
        .Bold = True  Bvj  
        .Bold = wdUndefined y]!#$C /  
        .Superscript = wdUndefined _^?_Vb  
        .Subscript = wdUndefined c=-qbG0`  
        .Italic = wdUndefined >C{8}Lg-.  
         3 %BI+1&T_  
        .Underline = wdUnderlineNone 8YPX8d8u  
        .UnderlineColor = wdColorAutomatic $? Z}hU  
        .StrikeThrough = False 6%9 kc+ 9  
        .DoubleStrikeThrough = False LGtw4'yr  
    End With _`*G71PS  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat u>] )q7s  
        .LineSpacingRule = wdLineSpaceSingle K{Nj-Rqd  
        .Alignment = wdAlignParagraphCenter > B;YYj~f}  
        .WidowControl = True s,mt%^
x[  
        .KeepWithNext = False B)d 4]]4\\  
        .KeepTogether = False rw 2i_,.*~  
        .PageBreakBefore = False non5e)w3@  
        .NoLineNumber = False 4K~>  
        .FirstLineIndent = CentimetersToPoints(0) ;*Mr(#R  
        .OutlineLevel = wdOutlineLevelBodyText |A
|K);  
         /&qE,>hd.+  
        .LeftIndent = CentimetersToPoints(0) ^!O!HMX0  
        .RightIndent = CentimetersToPoints(0) Bs '=YK$  
        .FirstLineIndent = CentimetersToPoints(0) o*~=NoR  
         B$OV^iwxK  
        .CharacterUnitLeftIndent = 0 [@pumH
>   
        .CharacterUnitRightIndent = 0 <v\$r2C*  
        .CharacterUnitFirstLineIndent = 0 $Ups9pQ  
         Q
Xa2qxTc  
        .LineUnitBefore = 1 FBrh!vQ<  
        .LineUnitAfter = 1 /Aw@26  
         =(R3-['QIb  
    End With <h|&7  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False x'G_z_<V  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll ]l=CiG4!M  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS Y#P!<Q>}  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True bO('y@)X  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese 4"nYxL"<4  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True =~ ,2E;#X  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete 00-2u~D&  
    DoEvents S%?%06$  
pL*aU=FjQ  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") J`; 9Z  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" }YiFiGf,  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False RP 6<#tq,  
    With ActiveDocument.Styles("QLNU英文摘要").Font 00>knCe6  
        .NameFarEast = "宋体" y(a>Y! dgU  
        .NameAscii = "Arial" JS?%zj&@  
        .NameOther = "Arial" EpT^r8I  
        .Name = "Arial" ([SJ6ff]&  
        .Size = 12 5|}u25J  
        .Bold = wdUndefined 'aeuL1mz  
        .Italic = wdUndefined s[7/w[&  
        .Superscript = wdUndefined b'4}=Xpn  
        .Subscript = wdUndefined Aj/EaIq  
    End With ;i [;%  
     zII^Ny8D  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat lN"@5(5%  
         Fo0s<YlS-  
        .LineSpacingRule = wdLineSpaceExactly L6jwJwD
 
        .LineSpacing = 20 V<}chLd,  
         vXM{)
  
        .Alignment = wdAlignParagraphJustify -U7,~z  
         3
l j^I  
        .WidowControl = False Q7zpu/5?  
        .KeepWithNext = False PgP\v-.  
        .KeepTogether = False NTGWI$  
        .PageBreakBefore = False d|gfp:Z`a  
        .NoLineNumber = False qx0F*EH|  
         4UPxV"H  
        .OutlineLevel = wdOutlineLevelBodyText SpIiM u(  
         -) +B!"1  
        .LeftIndent = CentimetersToPoints(0) 6#:V3 ;  
        .RightIndent = CentimetersToPoints(0) FLG{1dS  
        .FirstLineIndent = CentimetersToPoints(0) BNO+-ob-  
         Vvv;m5.  
        .CharacterUnitLeftIndent = 0 =RM]/O9  
        .CharacterUnitRightIndent = 0 |NTqJ j  
        .CharacterUnitFirstLineIndent = 2 ,t*H:
*  
         wZ`*C mr  
        .LineUnitBefore = 0 "ChJR[4 @  
        .LineUnitAfter = 1 szqR1A  
         d&ff1(j(  
    End With w}97`.Kt!n  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False pI_:3D xe  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll zTq"kxn'  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS @bAuR  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False 3_&s'sG5  
    DoEvents e?o/H  
^@Qc!(P  
    Options.Pagination = True 0\k{v  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." 8h=K S   
    DoEvents +T,0,^*  
    ActiveDocument.Repaginate yYTO p^  
tp"eXA0n  
End Sub 3<1x>e2nT  
b`GKGqbJ  
eT2Tg5Etc