Dim bContinue As Boolean mkgGX|k;  
g?N~mca$  
Dim regEX As New RegExp 7?Q@Hj(:NT  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 pYZ6-s  
Ot}fGiio  
Dim LastTitle0String As String, LastTitle0No As Long DTmv2X  
Dim LastTitle1String As String, LastTitle1No As Long &7z79#1NS  
Dim LastTitle2String As String, LastTitle2No As Long WeDeD\zy  
Dim LastTitle3String As String, LastTitle3No As Long JwCv(1$GM  
Dim LastTitle4String As String, LastTitle4No As Long aEU [k>&  
Dim LastTitle5String As String, LastTitle5No As Long {6{y"8  
Dim LastTabelString As String, LastTableNo As Long +13h*  
Dim LastFigureString As String, LastFigureNo As Long z@;]Hy  
Y $xO&\&)  
Dim strSeperator As String d]1%/$v^  
?&;d#z*4  
Sub ConvertWidth(fTEXT As String, rText As String) <"A|Xv'Q  
        Selection.Find.ClearFormatting ?#; oqH<  
        Selection.Find.Replacement.ClearFormatting io:g]g  
        Selection.Find.Wrap = wdFindContinue Z0&^U# ]  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText 7jvy]5y8&~  
        DoEvents 88}+.-3t$  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True N<lejZ}!q  
End Sub NbOeF7cq+  
rMXIw  
Sub ClearDomain() I@Zd<Rn  
        With Selection.Find \{r-e  
            .ClearFormatting RrrW0<Ed  
            .Replacement.ClearFormatting h/~:}Bof  
            .Wrap = wdFindContinue t`NZ_w /  
            Me.txtStatus.Text = "清除所有域代码" 5tPBTS<<"L  
            DoEvents _svEPH U  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False ?CO\jW_ *n  
        End With f!6oW(r-L  
End Sub ?_mcg8A@@*  
2WQKj9iyN  
Private Sub cmdCheck_Click() hY 2nT  
    bContinue = True _Gs*4:  
    Dim NoSeries1(1 To 16) As String .N2yn`
  
    Dim NoSeries2(1 To 16) As String 3sG7G:4  
    Dim NoSeries5(1 To 16) As String !`5[(lm  
    Dim NoSeriesRM(1 To 16) As String Oop5 bg  
    Dim paraTotal As Long, ParaText As String lOIBX@K E  
    Dim ttString As String, ttNo As String V.zKjoky@  
     <!b~7sZkTc  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long q-s! hiK  
lyGQ6zlSn  
    Me.txtStatus.Visible = True q/y4HT,x  
    Me.lbParaType.Visible = True o ?nlnoe  
    Me.cmdCheck.Enabled = False 0#(K}9T)  
     5`qt82Qm  
     kk]f*[Zi5  
     #oRm-yDr  
     ,M2u (9  
    Dim ParaType As String, rText As String H.-jBFt}  
     XMhDx  
    Selection.WholeStory lv -z[  
    Selection.NoProofing = True @X`~r8&  
     3TUW+#[Gu  
    tm1 = Now AA][}lU:5  
     i9Fg  
        ActiveWindow.View.Type = wdNormalView [MSLVTR  
     .5Y%I;~v  
    NoSeries1(1) = "一" 9~+A<X]Hd  
    NoSeries1(2) = "二" bwh7.lDAl  
    NoSeries1(3) = "三" *hVbjI$  
    NoSeries1(4) = "四" n]M1'yU  
    NoSeries1(5) = "五" KrOoxrDcp  
    NoSeries1(6) = "六" s_]p6M  
    NoSeries1(7) = "七" d:/8P985  
    NoSeries1(8) = "八" F) w. q  
    NoSeries1(9) = "九" V ]b1cDx{  
    NoSeries1(10) = "十" @L^Fz$S
x  
    NoSeries1(11) = "十一" 5.gM] si  
    NoSeries1(12) = "十二" YnnpgR.  
    NoSeries1(13) = "十三" m-f"EFmP  
    NoSeries1(14) = "十四" TymE(,1  
    NoSeries1(15) = "十五" >!+.M9  
    NoSeries1(16) = "十六" GwiG..Y]&  
     rM<lPMr1*  
    NoSeries2(1) = "㈠" 3:Bwf)*  
    NoSeries2(2) = "㈡" 1I({2@C  
    NoSeries2(3) = "㈢" -H1mKZDPP  
    NoSeries2(4) = "㈣" B$~oZ'4v  
    NoSeries2(5) = "㈤" 89@\AjI  
    NoSeries2(6) = "㈥" o `?0D)/O  
    NoSeries2(7) = "㈦" ~3}Gu^@  
    NoSeries2(8) = "㈧" B;9"=0  
    NoSeries2(9) = "㈨" \s<7!NAE4  
    NoSeries2(10) = "㈩" {FzL@!||  
     qz7:jq3N-{  
    NoSeries5(1) = "①" J ytY6HF  
    NoSeries5(1) = "②" 36>pa  
    NoSeries5(3) = "③" [NcS[*qp  
    NoSeries5(4) = "④" 
IOA"O9;  
    NoSeries5(5) = "⑤" (Wkli:Lq  
    NoSeries5(6) = "⑥" ,h21 h?6  
    NoSeries5(7) = "⑦" M99#\0=/  
    NoSeries5(8) = "⑧" _^4\z*x  
    NoSeries5(9) = "⑨" qW]gp7jK4  
    NoSeries5(10) = "⑩" =H*}{'#  
     n^|;J*rD  
     Enee
\!@v  
    NoSeriesRM(1) = "I" t~pA2?9@  
    NoSeriesRM(2) = "II" vW4~\]  
    NoSeriesRM(3) = "III" "zW3dKVc  
    NoSeriesRM(4) = "IV" Ov3W;jD  
    NoSeriesRM(5) = "V" QS2J271E}  
    NoSeriesRM(6) = "VI" Zu(eYH=Q  
    NoSeriesRM(7) = "VII" J6x\_]1:*  
    NoSeriesRM(8) = "VIII" 3/IQ]8g"  
    NoSeriesRM(9) = "IX" j,Sg?&"%=  
    NoSeriesRM(10) = "X" 8r[ZGUV  
    NoSeriesRM(11) = "XI" `abQlBb*  
    NoSeriesRM(12) = "XII" ;9r Z{'i+|  
    NoSeriesRM(13) = "XIII" vQrce&  
    NoSeriesRM(14) = "XIV" [vki^M5i|Z  
    NoSeriesRM(15) = "XV" 1xK'1g72  
    NoSeriesRM(16) = "XVI" u#5/s8  
     #.O,JG#H  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) v-6"*EP  
     ht
c& !m  
    If i = vbNo Then \8\)5#?  
        Exit Sub xGbr>OqkTX  
    End If -_=0PW5{  
     MWf]U  
    If Me.chkSuper.Value Then v+-f pl&  
        Me.txtStatus.Text = "检查修改所有的上标格式" e;b,7Qw  
     eeIh }t>[  
        CheckSuperScript f`<j(.{9F
 
        
o?\)!_Z|  
    End If N[4v6GS  
     <%eY>E  
    If Me.chkStyle.Value Then t}
-[^|)7  
        Me.txtStatus.Text = "设置样式，请稍候...." <*L=u;  
        DoEvents Dd|}LV  
        CeateOrModifyStyle <4jQbY;  
    End If tf64<j6  
     zb9^ii$g  
     a2W}Wb+
 
     kTQ:k }%B  
    ClearDomain &d`T~fl|  
         Tk
s;,C  
     /nXp5g^6(  
     0z?b5D;  
    If Me.chkLIST.Value Then n<MMO=+bg  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" XfA3Ez,}  
     HE&,?vioy  
        ConvertListToOrdinary [+$l/dag  
    End If ${'gyD  
     J5LP#o(V  
     $,08y   
    Dim pType As String, trimpTEXT As String g+/%r91hZ  
    If Me.chkNum.Value = True Then !- f>*|@  
        Me.txtStatus.Text = "转换全角数字形式为半角" :1u>T3L.z  
        ConvertWidth "１", "1" <B

5^  
        DoEvents 1A^iUC5)  
        ConvertWidth "２", "2" bb;fV  
        DoEvents mY-Z$8r  
        ConvertWidth "３", "3" J*6I@_{/U  
        DoEvents 8)/i\=N3;  
        ConvertWidth "４", "4" 5A1oZ+C#  
        DoEvents WrbDB-uM  
        ConvertWidth "５", "5" T#Pz_ hAu  
        DoEvents hZnT`!iFE^  
        ConvertWidth "６", "6" 1!/+~J[ #  
        DoEvents 6QdNGpN  
        ConvertWidth "７", "7" |Hn[XRsf  
        DoEvents WO*yJ`9]  
        ConvertWidth "８", "8" 9 [DQ[bL  
        DoEvents dsD
oPo0!  
        ConvertWidth "９", "9" )6)|PzMQ'  
        DoEvents []Cvma1\  
        ConvertWidth "０", "0" BOJh-(>I  
        DoEvents (ohkM`83k  
        ConvertWidth "ａ", "a" TR z~rW k  
        DoEvents vl$! To9R"  
        ConvertWidth "ｂ", "b" 3(P^PP8  
        DoEvents z.16%@R  
        ConvertWidth "ｃ", "c" Pb?H
cg  
        DoEvents vy/U""w`  
        ConvertWidth "ｄ", "d" `XYT:'   
        DoEvents YVVX7hB  
        ConvertWidth "ｅ", "e" ';V(sRU@  
        DoEvents R#~}ZUk2  
        ConvertWidth "ｆ", "f" i]GBu  
        DoEvents vZ 4Z+;.  
        ConvertWidth "ｇ", "g" Gb61X6  
        DoEvents c5P52_@  
        ConvertWidth "ｈ", "h" etf ft8  
        DoEvents i=_leC)rl  
        ConvertWidth "ｉ", "i" Wq)'0U;{$  
        DoEvents 7UHqiA`L  
        ConvertWidth "ｊ", "j" ~J2-B2S!  
        DoEvents $oE 4q6b  
        ConvertWidth "ｋ", "k" Z_' %'&Y  
        DoEvents ^7q=E@[e
 
        ConvertWidth "ｌ", "l" o^RdVSkU;  
        DoEvents *pP"u::S  
        ConvertWidth "ｍ", "m" n ! qm  
        DoEvents nzy =0Ox[  
        ConvertWidth "ｎ", "n" cb&y8!ci~  
        ConvertWidth "ｏ", "o" &n<jpMB  
        ConvertWidth "ｐ", "p" QxnP+U~N  
        ConvertWidth "ｑ", "q" 5X&<+ {bX  
        ConvertWidth "ｒ", "r" N&NOh|YS  
        ConvertWidth "ｓ", "s" (Wr;:3i  
        ConvertWidth "ｔ", "t" R+]p -NI^  
        ConvertWidth "ｕ", "u" zcJ]US  
        ConvertWidth "ｖ", "v" 8DTk<5mW~  
        ConvertWidth "ｗ", "w" D{o1G?A  
        ConvertWidth "ｘ", "x" OxElvbM#  
        ConvertWidth "ｙ", "y" v,vTRrpK  
        ConvertWidth "ｚ", "z" iMx+y5O  
        ConvertWidth "Ａ", "A" q" wi.&|  
        ConvertWidth "Ｂ", "B" .Q"3[  
        ConvertWidth "Ｃ", "C" mDE{s",q/  
        ConvertWidth "Ｄ", "D" y- k?_$M  
        ConvertWidth "Ｅ", "E" Js+d4``W  
        ConvertWidth "Ｆ", "F" )xQxc.  
        ConvertWidth "Ｇ", "G" w|WZEu:0|  
        ConvertWidth "Ｈ", "H" !~UI~-i'  
        ConvertWidth "Ｉ", "I" hM\QqZFyp  
        ConvertWidth "Ｊ", "J" V$ 38  
        ConvertWidth "Ｋ", "K" ;0E"4(S.q1  
        ConvertWidth "Ｌ", "L" qq-&z6;$  
        ConvertWidth "Ｍ", "M" q^sMJ  
        ConvertWidth "Ｎ", "N" a2/r$Tgm  
        ConvertWidth "Ｏ", "O" $Br^c< y  
        ConvertWidth "Ｐ", "P" ]wne2WXE  
        ConvertWidth "Ｑ", "Q" s cR-|GuZ  
        ConvertWidth "Ｒ", "R" ,<hXNN  
        ConvertWidth "Ｓ", "S" &o"Hb=k<  
        ConvertWidth "Ｔ", "T" UTA0B&aB  
        ConvertWidth "Ｕ", "U" .u7
d  
        ConvertWidth "Ｖ", "V" T.ub!,Y  
        ConvertWidth "Ｗ", "W" 37p0*%a":  
        ConvertWidth "Ｘ", "X" d!8q+FI  
        ConvertWidth "Ｙ", "Y" qIjC -#a=m  
        ConvertWidth "Ｚ", "Z" B0p>'O2  
        ConvertWidth "^l", "^p" m?<8 ':  
        ConvertWidth "（", "(" W/oRt<:E  
        ConvertWidth "）", ")" ?Z4&j'z<  
     ?y<n^`  
    End If p8s2#+/  

 %W"\  
    With ActiveDocument I#eIm3Y?  
        Dim tbl As Table {\|? {8f  
        For Each tbl In .Tables gZM{]GQ  
            tbl.Rows.Alignment = wdAlignRowCenter hD<z^j+  
            tbl.Range.Font.NameFarEast = "楷体" mk\U wv  
            tbl.Range.Font.NameAscii = "Times New Roman" !qrF=a  
            tbl.Range.Font.Size = 10.5 |+6Z+-.Hg  
        Next ib zYY"D:  
        Set tbl = Nothing dMGu9k~u  
    End With @PwE om
`a  
     fH`1dU  
     ZfT%EPoZ:  
    With ActiveDocument k`g+  
         } Q1$v~  
        For i = 1 To .TablesOfContents.Count vlIdi@V  
            .TablesOfContents(i).Delete vzi= [ A  
        Next <eN>X:
_N  
         QN_5q5  
         344,mnAd  
         \(T;@r  
        paraTotal = .Paragraphs.Count 8g>jz 8  
        paraCounter = 1 D\ ({]oj]  
         _Fl]zs<  
        LastTitle0No = 0 7 vr)JT=  
        LastTitle1No = 0 #*S/Sh?Q  
        LastTitle2No = 0 6$PfX.Fh  
        LastTitle3No = 0 RB/[(4  
        LastTitle4No = 0 eE7Rd>  
        LastTableNo = 0 *XH?|SV  
        LastFigureNo = 0 K'?ab 0  
         |D]jdd@!a2  
        Dim Sec As Long c
cD+o$7LT  
         6FEtq,;0w  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) `m2F. ^qrr  
        If Sec = 0 Then 7]e]Y>wZap  
            Exit Sub /bCrpcH  
        End If pMt]wyKr  
         3kR- WgVF,  
        k = 0 b@YSrjJ  
        Do While (paraCounter < paraTotal) And bContinue eBU\&z[  
            k = k + 1 hph 3kfR  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then ]`m|A1(  
                Exit Do Va=0R   
            End If W[^XG\  
            paraCounter = paraCounter + 1 ]?``*{Zqy  
            If k Mod 20 = 0 Then 83R"!w1 8  
                Me.lbCounter.Caption = paraCounter l^$:R~gS  
                DoEvents ls*^3^O  
            End If QQ2xNNF[  
        Loop d,<ctd  
         e}[$ =  
         Dj!J 4uD  
        Do While (paraCounter < paraTotal) And bContinue t ?bq~!X  
             yE"hgdL  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) \!cqeg*53  
            ShapeHeight = 0 Y2<#%@%4  
            ShapeWidth = 0 ~fCD#D2KU  
           aF'Ik XG d  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth d0-}Xl  
             0RoI`>j'  
            Select Case ParaType }d.R=A9L
 
                Case "【】表格内容" =1yUH9\,b  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" ?9?0M A<[i  
                Case "章" Gw+z8^|C&}  
                    LastTitle0No = LastTitle0No + 1 )>\Ne~%  
                    '新一章开始，复位其下属标题编号 DVSYH{U4  
                    LastTitle1No = 0 S}Mxm2  
                    LastTitle2No = 0 (3]7[h7  
                    LastTitle3No = 0 AZl=w`;/O%  
                    LastTitle4No = 0 1&jX~'  
                     NmB0CbB  
                    k = Val(ttNo) (|U+(~PJ  
                    If k = 0 Then '非数字编号章节 >5^Z'!Z"  
                        If ttNo <> NoSeries1(LastTitle0No) Then fiw~"2 U  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString &OI=rvDmo  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText U7PA%  
                        End If Tr@`ozp8  
                    Else ZLL0 6p   
                        If Val(ttNo) <> LastTitle0No Then 4D58cR}  
                            rText = "第" & LastTitle0No & ttString J|xqfY@+  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText qk_ s"}sS  
                        End If Ch;EnN<  
                         qsJA|z&6x  
                    End If k9^P#l@p  
                     6Ir ?@O1'!  
                    '章段落设置 vpXS!o>/Sn  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 Q8:u1$
}  
                    .Paragraphs(paraCounter).Style = "QLNU章节" 42m`7uQ  
                    .Paragraphs(paraCounter).Range.Select VKN^gz  
                    Selection.EndKey unit:=wdLine ' J-(v  
                    tc = Replace(rText, vbCr, "") *EV
]8  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False <S\S @3  
                Case "一级标题" $~D`-+J  
                    LastTitle1No = LastTitle1No + 1 m@zxjIwT  
                    '新一级标题开始，复位其下属标题编号 $oxPmELtpe  
                    LastTitle2No = 0 J=\Y4- "  
                    LastTitle3No = 0 &)bar.vw/  
                    LastTitle4No = 0 *f4KmiQ~%  
                     *\joaw  
                    If ttNo <> NoSeries1(LastTitle1No) Then L3<XWpv  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString vxqMo9T  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText Qy6Avw/$  
                    End If Nju7!yVM_  
                   #Jm_~k  
                     ( j-( fS
 
                    '一级标题段落设置  格式：一、标题内容 CS"p[-0  
                    .Paragraphs(paraCounter).Range.Text = rText |fw+{f  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" tS!~>X  
                    .Paragraphs(paraCounter).Range.Select {g @ *jo&  
                    Selection.EndKey unit:=wdLine ,/d-o;W  
                    tc = Replace(rText, vbCr, "") N}dJ)<(2~  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False - TD6s:'  
                Case "二级标题" " g_\W  
                    LastTitle2No = LastTitle2No + 1 -9aht}Z  
                    '新二级标题开始，复位其下属标题编号 "\>3mVOb  
                    LastTitle3No = 0 3i s.c)  
                    LastTitle4No = 0 5T  
                     +i)1 jX<  
                    If ttNo <> NoSeries1(LastTitle2No) Then dUe"qH29s  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString S>"dUM  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText Y^6=_^  
                    End If {X"X.`p  
                     5X`.2q=d  
                    '二级标题段落设置 格式：(一)、标题内容 ax3:rl  
                    .Paragraphs(paraCounter).Range.Text = rText D6ck1pxkx  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" C&5T;=<jKO  
                     .qVdo+M%F  
                    .Paragraphs(paraCounter).Range.Select N`zHe*=[~  
                    Selection.EndKey unit:=wdLine gH_r'j  
                    tc = Replace(rText, vbCr, "")
*50Yk
f  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False 
mB1)!  
                 1%-?e``.
 
                Case "三级标题" hVGakp9WE  
                    LastTitle3No = LastTitle3No + 1 ;l`8w3fDt  
                    '新三级标题开始，复位其下属标题编号 <4O=[Q5S  
                    LastTitle4No = 0 _OrE{  
                     =vK(-h  
                    If Val(ttNo) <> LastTitle3No Then (+^1'?C8  
                            rText = LastTitle3No & ". " & ttString -Z;:_"&9  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText F8=6!Qj  
                         %hTe%(e  
                    End If H/L3w|2+  
                    '三级标题段落设置 格式：1. 标题内容 Ko%rB+d  
                    .Paragraphs(paraCounter).Range.Text = rText vW4f3(/  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" [j
![R  
                    .Paragraphs(paraCounter).Range.Select Uc6U!X  
                    Selection.EndKey unit:=wdLine aoJ&< vl3  
                    tc = Replace(rText, vbCr, "") \\/X+4|o'  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False  qy-B
Z%3  
                Case "四级标题" gf3/kll9  
                    LastTitle4No = LastTitle4No + 1 +QHhAA$  
                     *uv\V@ 0  
                    If Val(ttNo) <> LastTitle4No Then ]7VK&YfN  
                            rText = "(" & LastTitle4No & "). " & ttString '.d
W>7  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText UWusSi3+LG  
                     =Wjm_Rvk9  
                    End If Mq7|37(N[  
                    '四级标题段落设置 格式：(1). 标题内容 ~(&xBtg:}  
                    .Paragraphs(paraCounter).Range.Text = rText 9Q.j <  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" f a\cLC  
                    .Paragraphs(paraCounter).Range.Select z?gJHN<  
                    Selection.EndKey unit:=wdLine yqBu7E$X  
                    tc = Replace(rText, vbCr, "") &c\8`# 6  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False k,@1rOf  
                 KGI]W|T  
                Case "表格标题" de`6%%|  
                    LastTableNo = LastTableNo + 1 &1?Q]ZRp  
                     QWxQD'L'  
                    If ttNo <> CStr(LastTableNo) Then v$mA7|(t!  
                            rText = "表" & LastTableNo & ". " & ttString 6g.@I!j E  
                            ErrMsg.AddItem "表格编号错误：" & ParaText 8bK}&*z<  
                   19=Dd#Nf  
                    End If zh4o<f:-  
                     kh5V&%>?  
                    '表格名称段落设置 格式：表1. 表格名称 | 'z)RFqj  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" A{c6XQR~z  
                    xe = Replace(rText, vbCr, "") aSK$#Xeu  
                    .Paragraphs(paraCounter).Range.Select =k8
A7P  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 4B> l|%  
                    Selection.Range.Text = xe P,%|(qB
  
                    Selection.EndKey ~}M{[6!  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False PAc~p8S  
                 @eMyq1ZU  
                Case "表格首行" "Km`B1f`  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行"  e1IuobT  
                Case "图片标题" h5Z\9`f[  
                    LastFigureNo = LastFigureNo + 1 <y'ttxeS  
                     S\X_!|  
                    If ttNo <> CStr(LastFigureNo) Then !PQRlgcG  
                            rText = "图" & LastFigureNo & ". " & ttString %(e=Q^=  
                            ErrMsg.AddItem "表格编号错误：" & ParaText u(~s$EN l  
                   brVT  
                    End If N&ddO-r[s  
                    '图片名称段落设置 格式：图1. 图名称 Bo0y"W[+  
                    .Paragraphs(paraCounter).Range.Text = rText A%2!Hr  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" K{iayg!k  
                    .Paragraphs(paraCounter).Range.Select u3<])}I'  
                    Selection.EndKey unit:=wdLine zeua`j
Q  
                    xe = Replace(rText, vbCr, "") pTN_6=Y"  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False utTek5/  
                Case "正文" ^{Vm,nAQqs  
                     '正文名称段落设置 TxiJ?sDh*  
                    .Paragraphs(paraCounter).Style = "QLNU正文" r;'!qwr  
               Case "文献条目" 2 43DdIG$  
                    With .Paragraphs(paraCounter) es6e-y@e  
                        '.Range.Select j=gbUXv/  
                        'Selection.ClearFormatting [cH/Y2[  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” \UC4ai2MK  
                        .Style = "QLNU参考文献" mb/3 #)  
                    End With ~Ep
&:c4:D  
               Case "图表注解" .DX#:?@4@Y  
                    With .Paragraphs(paraCounter) P9'5=e@jB  
                        .Range.Font.NameFarEast = "楷体" ~kHir]jc
 
                        .Range.Font.NameAscii = "Times New Roman" z7K?rgH  
                        .Range.Font.Size = 9 '小5号字 O:U@m@7  
                         Qz<-xe`o8]  
                        .Alignment = wdAlignParagraphCenter 3gM{lS}h#  
                        .LeftIndent = 0 m&%N4Q~X>  
                        .RightIndent = 0 S2NsqHJr  
                        .FirstLineIndent = 0 2cDC6rul  
                        .LineSpacing = 12 Kr#=u~~M  
                        .LineSpacingRule = wdLineSpaceExactly 49#-\=<gt  
                        .LineUnitAfter = 0 "E8!{  
                        .LineUnitBefore = 0 mrbIoN==`  
                        .OutlineLevel = wdOutlineLevelBodyText 3a5H<3w_  
                        .PageBreakBefore = False K)14v;@  
                        .RightIndent = 0 :{AN@zC0\  
                        .WordWrap = True |/s.PNP2  
                        .LineUnitAfter = 0.5 ]MHQ"E?
  
                         ~W#f,mf  
                    End With F?dTCa  
                Case Else dn5v|[dJ  
                    '不作处理 kQb0pfYs  
            End Select YM;^c% _7  
             |-R::gm  
            '含有inlineshape的段落处理 _m&VdIPO  
            If ShapeHeight > 30 Then ^g0 Ig2'  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 DTJ  
            End If  ysa"f+/  
             cn#a/Hx  
            If (ShapeWidth + ShapeHeight) > 150 Then u)V*o  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" ENmo^O#,u  
            End If Z5U~g?  
             *[U:'o`67  
            '段落计数器递 ~\/ J&  
            paraCounter = paraCounter + 1 nJ?C4\#3  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter 4H,DG`[Mo  
            Me.txtStatus.Text = ParaText G]SE A  
            DoEvents oO|^ [b#  
        Loop PU>;4l  
    End With .dygp"*  
     m=K XMX  
    msg = "" ;klDt|%3j  
     >}I}9y+  
    For i = 0 To Me.ErrMsg.ListCount - 1 WDX?|q9rCt  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) 3}+/\:q*  
    Next =#u2Rx%V  
     H z6H,h  
     @N(jd($E  
     jn7}jWA  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg j NY8)w_  
    Me.cmdCheck.Enabled = True }Q%>Fv  
    Me.txtStatus.Visible = True :Hd<S  
    Me.lbParaType.Visible = False i" )_M|   
     +-Dd*yD6<  
    bContinue = False J8%|Gd0#4  
End Sub mSzwx/3"  
nqH^%/7)A@  
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) nFP2wvFM  
    Dim pTEXT As String EW!$D  
     M{S7ia"s  
    pTEXT = ChKRange.Text Brl6r8LGi  
     dnx}c4P  
    ParaType = "其它" /X:lt^?%I  
    TitleString = pTEXT V?"^Ff3m!  
    TitleNo = "N/A" a~%ej.)l  
     vW_A.iI"e  
    shpCounter = ChKRange.InlineShapes.Count A/
QVotcU  
    If shpCounter <> 0 Then pta%%8":  
        MaxShpHeight = 0: TotalShpWidth = 0 VgdkCdWRm_  
        For i = 1 To shpCounter }J*&()`  
            k = ChKRange.InlineShapes(i).Height ke%zp-2c
 
            l = ChKRange.InlineShapes(i).Width V":BAn  
            If k > MaxShpHeight Then )_=&)a1U  
                MaxShpHeight = k ?yz%r`;r  
            End If I45A$nV#Q  
            TotalShpWidth = TotalShpWidth + l 7Y)wu$!7}  
        Next qYh,No5\;t  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then ceOjuzY  
            Exit Sub daorKW4  
        End If RpXQi*c0  
    End If wv7jh~x(4  
     q!,d o2T  
    '空行 SUEw5qitB  
    If Len(pTEXT) <= 2 Then k@~-|\ooG  
        Exit Sub ZMe|fn  
    End If Y1~SGg7(@  
     5bw]cv$i  
         ky#6M? \  
    '是否为表格中的文字 `~}7k)F(  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then ~L1O\V i  
        ParaType = "表格内容" KZE.}8^%D  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) 8N`$7^^  
        If k = 1 Then fH.W kAE1  
            ParaType = "表格首行" y((_V%F}  
        End If `%Ghtm*  
        Exit Sub d5%*
^nMpY  
    End If .~8+s.y  
     /;0>*
ft4  
    '例外情况：脚注 J'EK5=H  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then {aL$vgYT1  
        ParaType = "脚注" TAi\#cnl(6  
        Exit Sub 98]t"ny [  
    End If yI%> w4Z  
     g IKm  
    '例外情况：尾注
\XN5
))  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then <d^7B9O?&w  
        ParaType = "尾注" Pjy?&;GvT  
        Exit Sub WU4i-@Bm8  
    End If [vi4,'wm  
     !$?@;}=  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then >R:+ml  
        ParaType = "页眉页脚" D6]$P%t9  
        Exit Sub (w-u"1&  
    End If iF0
a  
     pxbNeqK@p  
     g5V r2  
    With regEX 5 QeGx3'  
        .Global = True lEDHx[q  
         3oKGeB;Ja  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" Lwcw%M]  
        If regEX.Test(pTEXT) Then =, 0a3D6b  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") Rf^cw}jU  
            TitleString = regEX.Replace(pTEXT, "$3") 10rGA=x'(  
            TitleNo = regEX.Replace(pTEXT, "$1") F:g{rm[
  
            ParaType = "章" 8.^U6xA  
            Exit Sub s`J=:>9*  
        End If z]YhQIU4n8  
         &>jkfG  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" \,EPsQV0?  
        If regEX.Test(pTEXT) Then AN>`M?EQ  
            ParaType = "一级标题" >(rB[ZJ  
            regEX.Execute (pTEXT) L1xD$wl  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") =tNiIU  
            TitleString = regEX.Replace(pTEXT, "$3") _HK&KY  
            TitleNo = regEX.Replace(pTEXT, "$1") 5
{a( +'  
            Exit Sub VB\6SG  
        End If l!y _P  
         =s]{  
        '全角或半角括号中的数字 "{k )nr+7U  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" (0Qq rNs  
        If regEX.Test(pTEXT) Then 8_m9CQ6 i  
            ParaType = "二级标题" J){\h-4  
            regEX.Execute (pTEXT) t/1NTa  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5")  ]mj+*l5  
            TitleString = regEX.Replace(pTEXT, "$5") PPPwDsJ  
            TitleNo = regEX.Replace(pTEXT, "$2") =QfKDA  
            Exit Sub Vr1
|%*0Tv  
        End If :U q]~e  
         hN53=X:  
        '阿拉伯数字  1. 2. {t:N D  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" t4*A+"~j  
        If regEX.Test(pTEXT) Then #[W[|m  
            ParaType = "三级标题" \?^wu  
            regEX.Execute (pTEXT) 0q>lW &J  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 !S!03|  
            TitleString = regEX.Replace(pTEXT, "$3") 48Lmy<}*  
            TitleNo = regEX.Replace(pTEXT, "$1") ~K96y$ DTE  
            Exit Sub @,&m`qzd+  
        End If }Yl=lcvw  
         DxgT]F%  
        '全角或半角括号中的阿拉伯数字 ])L'Rk#4  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" -9I%  
        If regEX.Test(pTEXT) Then f5%&  
            ParaType = "四级标题" }#x3IE6'  
            regEX.Execute (pTEXT) }tZAU\z
 
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") zrO|L|F&P  
            TitleString = regEX.Replace(pTEXT, "$5") 1hyah.i]Y  
            TitleNo = regEX.Replace(pTEXT, "$2") +-\9'Q  
            Exit Sub uq%3;#[0  
        End If V^z;^mdd  
         ?v8k& q^q  
        '表格名称 D,j5k3< #  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$"  ;"^9 L  
        If regEX.Test(pTEXT) Then 7 !.8#A':  
            ParaType = "表格标题" ,rI |+  
            regEX.Execute (pTEXT) {Yk20Zn  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) $0SZlq>En  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) } XU:DE  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) ~k0)+D}  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 --YUiNh
h  
            Exit Sub uW~,H}E  
        End If 0|!<|N<  
         (VAL.v*  
        '图片名称 &U*J{OP
|  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" J_|}Xd)~t6  
        If regEX.Test(pTEXT) Then l&Ghs@>Kl  
            ParaType = "图片标题" ls\E%d  
            regEX.Execute (pTEXT) ^6oqq[$  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") t)Q@sKT6  
            TitleString = regEX.Replace(pTEXT, "$3") &i^NStqu  
            TitleNo = regEX.Replace(pTEXT, "$1") !#I/be]  
            Exit Sub ?1:/ 6  
        End If U_;J.{n  
         5{0>7c|.  
        '参考文献 ]~Vu-@ /}  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 8@KFln )[  
        If regEX.Test(pTEXT) Then 'F?Znd2L  
            ParaType = "文献条目" pf@}4PN}  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") Qf>Pb$c$U  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") 0r ; nz]'  
            Exit Sub Q|KD/s??  
        End If |Du13i4].&  
         jgKL88J*\  
        prfx = Left(pTEXT, 2) Ju7C?)x  
        If prfx = "注：" Or prfx = "注:" Then Ti|++oC/&  
            ParaType = "图表注解" X&?lDL7?  
            Exit Sub QeJ.o.m{  
        End If J<#`IaV  
         _`{{39 F  
         %OW9cqL>l  
        ParaType = "正文" F6c[v|
3  
         %Dls36F  
    End With Z_ gVYa  
End Sub z~e~K`S  
"ue$DyN  
Sub ConvertListToOrdinary() @nX2*j*u  
    Dim st As Paragraph nvK7*-  
    With ActiveDocument <lmJa#  
        For i = .Paragraphs.Count To 1 Step -1 Pd "mb~  
            Set st = .Paragraphs(i) !b->u_  
            lst = st.Range.ListFormat.ListString {dx /p-Tv  
            If lst <> "" Then P&3/nL$9N  
                st.Range.ListFormat.RemoveNumbers v6-~fcX0G  
                st.Range.InsertBefore lst & " " *.]E+MYi*  
            End If s|j<b#<xQ  
        Next Hq\E06S@  
    End With fEG3b#t N  
    Set st = Nothing <o7#?AcPu  
End Sub Z)i1?#  
H\+c'$  
Private Sub UserForm_Activate() u?3NBc$~A  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" x<j"DS}S)D  
    Me.lbTotal.Font.Bold = True pb6^sA%l  
    Me.txtStatus.Visible = False AV 5\W}  
    Me.cmdCheck.Enabled = True |id79qY7g  
kqvJ&7  
End Sub e_k _ty`  
u%
1k  
$:E}Nj]{&  
Sub CheckSuperScript() o-=d|dWG  
    Selection.Find.ClearFormatting if[o?6U4t  
    Selection.Find.Replacement.ClearFormatting
hAr[atu87  
    With Selection.Find XVDd1#h  
        .Text = "[【\[［〖](*)[】\]〗］]" @Du}   
        .Replacement.Text = "[\1]" E}' d,v#Z{  
        .Replacement.Font.Superscript = True QiE<[QP{g  
        '.Replacement.Font.Color = wdColorBlue #!Cter2  
        .Forward = True o+_/)c  
        .Wrap = wdFindContinue px}7If  
        .FORMAT = True -B
o~"q  
        .MatchCase = False T[XP\!z]B!  
        .MatchWholeWord = False d6@jEa-  
        .MatchByte = False 9g &Ch
9-/  
        .MatchAllWordForms = False ?hJsN  
        .MatchSoundsLike = False oUvk2]H  
        .MatchWildcards = True Ym.l@(  
    End With T E&Q6  
    Selection.Find.Execute Replace:=wdReplaceAll 7{^4 x#NO  
End Sub G(OT"+O,  
dHq )vs,L  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) RD$tc~@UB  
    bContinue = False QYTTP6 Gz+  
    Set regEX = Nothing wvmg)4
,  
End Sub "-QRkif  
PWk?8dL-  
Sub CeateOrModifyStyle() b;J0'o^G|  
' q_]   
' @>Ghfh>~D  
Dim stl As Style RQpIBsj  
     y+";  
    Options.Pagination = False f;Bfh3  
     i$JG^6,O  
    On Error Resume Next !jnqA Z  
    For Each stl In ActiveDocument.Styles Q_kT}6#(J=  
        stl.Delete .5!sOOs$P  
    Next b4)*<Zp`  
    On Error GoTo 0 ,M@m4bx  
     mbX)'. +L  
    Set stl = Nothing |pH* CCA  
     S $_Y
/x  
    DoEvents qbU1qF/  
    On Error Resume Next ~0F9x9V  
     [|[sYo  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph ~njbLUB  
     BgkB x  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph |J<pLz  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph C
l9SPz  
     Oh/b?|imG  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph [+'B
Q  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph g{v5mly  
     ikY]8BCc  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph hD$p ;LF  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph zyZok* s  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph C~KWH@  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph (~7 m"?  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph 6A$_&?  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph @4_rxu&  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph K=c=/`E  
     Sj0 ucnuHi  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph -4vHK!l  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph c+8>EU AW  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph  ^%5~;  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph " y~muE:.
 
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph !u53 3  
     5X`w&(]m  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph q: TT4MUj<  
    On Error GoTo 0 -7k|6"EwM  
    DoEvents H-_^TB  
     Tr+h$M1_Ja  
    'BaseStyle 5%QC ][,  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False M9Nk=s! 3  
    With ActiveDocument.Styles("BaseStyle").Font 5 dfe@$  
        .NameFarEast = "宋体" } $Hs;4|  
        .NameAscii = "Times New Roman" hY.e[+  
        .NameOther = "宋体" :kb 1}Wu  
        .Size = 10.5 {UdcX~\~  
        .Bold = wdUndefined /o|PA:6J  
        .Italic = wdUndefined X ;OsH  
        .Subscript = wdUndefined h0F0d^W.  
        .Subscript = wdUndefined # a(%(k S  
         T/GgF&i3  
        .Underline = wdUnderlineNone Zk/' \(5  
        .UnderlineColor = wdColorAutomatic `J>E9p<  
        .StrikeThrough = False 0q[p{_t`  
        .DoubleStrikeThrough = False s%N`  
         #QTfT&m+G}  
        .Outline = False ~m?74^ i  
        .Emboss = False rL%]S&M9  
        .Shadow = False obAs<nk  
        .Hidden = False YN%=Oq  
        .SmallCaps = False HJfQ]p'nK2  
        .AllCaps = False "ep`  
        .Color = wdColorAutomatic %tzN@  
        .Engrave = False GUu\dl9WA'  
        .Scaling = 100 X,WQ'|rC  
        .Kerning = 1 >'} Y1_S5  
        .Animation = wdAnimationNone O t *K+^I  
        .DisableCharacterSpaceGrid = False s-,=e  
        .EmphasisMark = wdEmphasisMarkNone T_
@[k  
    End With 0'yG1qG  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat C#U<k0R  
        .LeftIndent = 0 mUrS&&fu8  
        .RightIndent = 0 NK7H,V}T  
        .SpaceBefore = 0 `1fJ:b/M  
        .SpaceBeforeAuto = False FJsK5-  
        .SpaceAfter = 0 7P/?wv9+n*  
        .SpaceAfterAuto = False W;Ud<7<;Z  
         1V|< A  
        .LineSpacingRule = wdLineSpaceSingle &/>;LgN  
        .Alignment = wdAlignParagraphJustify V3>f*Z)xn  
         I&TTr7  
        .WidowControl = False Q7~'![(a  
        .KeepWithNext = False ),cQUB  
        .KeepTogether = False t7um [  
        .PageBreakBefore = False MkG`w,  
        .NoLineNumber = False yhcNE8mkQ/  
         ?G$Om  
        .FirstLineIndent = CentimetersToPoints(0) {{V;:+62  
        .OutlineLevel = wdOutlineLevelBodyText KInUe(g<9M  
        .CharacterUnitLeftIndent = 0 cBz!U8(  
        .CharacterUnitRightIndent = 0 ^))PCn_zb  
        .CharacterUnitFirstLineIndent = 0 7
tpAZ<{  
        .LineUnitBefore = 0 V!T^w
h;  
        .LineUnitAfter = 0 35Ai;mU'  
        .AutoAdjustRightIndent = True Ws-6W!Ib%  
        .DisableLineHeightGrid = True BIxV|\k  
         I~  \O  
        .FarEastLineBreakControl = True Rk($lW)  
        .WordWrap = True '1W!xQ }E  
        .Hyphenation = False f >mhFy  
         Js\-['`  
        .HangingPunctuation = True (KT38RhA  
        .HalfWidthPunctuationOnTopOfLine = True 4Qa@`  
        .AddSpaceBetweenFarEastAndAlpha = True 5^/,aI  
        .AddSpaceBetweenFarEastAndDigit = True R'Kt=.s<  
        .BaseLineAlignment = wdBaselineAlignBaseline >Z#uFt0<Pm  
    End With J)9 AnGWe  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False k$e D(cW$  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll 5h`m]#YEG  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese wGEWr2$  
    ActiveDocument.Styles("BaseStyle").NoProofing = False +1otn~(E  
     %f3c7\=C  
    '一级标题题样式 >I$B=  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") + ,@ FxZl  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" Pm$F2YrO3  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False On#;)35M  
    With ActiveDocument.Styles("QLNU一级标题").Font
&$mZ?%^C  
        .NameFarEast = "黑体" `Y\gSUhzS  
        .NameAscii = "Arial Black" 2[jL^XMM  
        .NameOther = "黑体" eWb0^8_  
        .Name = "黑体" F&=I7 i  
        .Size = 16              '三号 2y3?!
^$  
        .Bold = True 8weSrm  
        .Italic = wdUndefined U91 &|  
        .Subscript = wdUndefined x96qd%l/  
        .Superscript = wdUndefined R%>jJ[4\[  
    End With K :1g"  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat +7|  [b  
         8[8|*8xqs  
        .LeftIndent = CentimetersToPoints(0) F>(qOH.I  
        .RightIndent = CentimetersToPoints(0) @GN(]t&3  
        .FirstLineIndent = CentimetersToPoints(0) kQ@gO[hS  
         <Z{vC  
        .LineSpacingRule = wdLineSpaceSingle kCj`V2go  
        .Alignment = wdAlignParagraphCenter ]i-P-9PA4  
         7J bY}@  
        .WidowControl = True VZ\O9lD  
        .KeepWithNext = True P@qMJ}<j  
        .KeepTogether = True <+V-k|  
        .OutlineLevel = wdOutlineLevelBodyText 0CPxIF&  
         Yo>`h2C4  
        .LineUnitBefore = 0.5 d{er|$E?  
        .LineUnitAfter = 0.5 Ct4LkmD  
    End With )
.pO2lLF4  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False qBT_! )h   
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll 2>F
\
&  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese LtC~)R  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True L +L9Y}  
    DoEvents FX H0PK  
     %tT"`%(+  
    '二级 :]vA2  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") TQ; Z.)L  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" !\QeBd+  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False sW }<zGYd  
    With ActiveDocument.Styles("QLNU二级标题").Font :W~6F*A  
        .NameFarEast = "黑体" 3(1]FKZtt  
        .NameAscii = "Arial Narrow" 6ayy[5tW  
        .NameOther = "黑体" Z}|TW~J=  
        .Name = "黑体" T!MZ+Ph`F  
        .Size = 15        '小三号 ?n)Xw)]  
        .Bold = False )VNM/o%Q  
        .Outline = False lc]V\'e  
        .Italic = wdUndefined AT"!{Y "H  
        .Subscript = wdUndefined eymi2-a<  
        .Superscript = wdUndefined j7K5SS_]  
    End With H5~1g6b@  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat :.Y|I[\E%  
        .LeftIndent = CentimetersToPoints(0) 59V#FW
e-  
        .RightIndent = CentimetersToPoints(0) kW#S]fsfU  
        .FirstLineIndent = CentimetersToPoints(0) DhZ:#mM{  
         3)}(M
 
        .LineSpacingRule = wdLineSpaceSingle n'THe|:I  
        .Alignment = wdAlignParagraphLeft &=YSM.G  
         +wipfL~&S  
        .WidowControl = True b`$yqi<[  
        .KeepWithNext = True m; dm|4L^  
        .KeepTogether = True :*^:T_U  
        .PageBreakBefore = False d:A}CBTSY  
        .OutlineLevel = wdOutlineLevelBodyText +}P%HH]E/p  
         59.$ULQVMY  
        .LineUnitBefore = 0.5 J0=7'@(p  
        .LineUnitAfter = 0.5 85'nXYN{d  
         }i(q t&U;  
    End With rVY?6OMkd  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False djWcbC=g_  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll 2z4<N2!M  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese ) IQ*  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True ~e{H#*f&1/  
    DoEvents 3filAGR?  
     $H'8 #:[d_  
    '三级标题样式 d^PD#&"g  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") Re>AsnA[  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" 1n_;kaY  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False S@x}QQ|.  
    With ActiveDocument.Styles("QLNU三级标题").Font "u_i[[y  
        .NameFarEast = "宋体" tE@FvZC'=  
        .NameAscii = "Times New Roman" 1!vPc93 $$  
        .NameOther = "黑体" 5L F/5`  
        .Name = "黑体" |pJC:woq  
        .Size = 14               '四号 C\7u<2c  
        .Bold = False 7AFE-'S  
        .Outline = False 9z:K1   
        .Italic = wdUndefined 2Zy_5>~  
        .Subscript = wdUndefined 98GlhogWt  
        .Superscript = wdUndefined UVrQV$g!  
    End With u#1%P5r&X  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat *.oK I@  
        .LeftIndent = CentimetersToPoints(0) wzd`l?o,  
        .RightIndent = CentimetersToPoints(0) k}GjD2m  
        .FirstLineIndent = CentimetersToPoints(0) Ejv%,q/T(  
         ;+sl7qlA4  
        .LineSpacingRule = wdLineSpaceSingle ]fZ<`w8u}  
        .Alignment = wdAlignParagraphLeft "f4<B-9<$  
         t-WjL@$F/  
        .WidowControl = True {3
LA%xO  
        .KeepWithNext = True NetYg]8`  
        .KeepTogether = True o]<jZ_|gB  
        .PageBreakBefore = False Av o|v>  
        .OutlineLevel = wdOutlineLevelBodyText _K'7(d0z  
         PY?8[A+  
        .CharacterUnitLeftIndent = 0
yMb|I~k  
        .CharacterUnitRightIndent = 0 b(l0js  
        .CharacterUnitFirstLineIndent = 2 -ey)J +?t  
         @D)Z{=>{=5  
        .LineUnitBefore = 0.5 uVGa(4u}  
        .LineUnitAfter = 0 L1sqU-gt  
    End With {Bh("wg$Lk  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False B@ {&<  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll
} ~| k  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese 4jQ'+ 2it  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True P^pFqUL7#  
    DoEvents @D~B{Hg  
     Y&K <{\vE  
    '四级标题样式 Z&Ue|Z4Qt  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") &f-hG3/M  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" #;]2=
@  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False iwU[6A  
    With ActiveDocument.Styles("QLNU四级标题").Font \@K
~L4>  
        .NameFarEast = "宋体" wd/G|kNO  
        .NameAscii = "Times New Roman" Di>rO038  
        .NameOther = "宋体" V>Fesm"aq  
        .Name = "宋体" ;FU|7L$H  
        .Size = 12               '小四号 ;\qXbL7  
        .Bold = True ?Nf 5w  
        .Outline = False k^%2_ H  
        .Italic = wdUndefined qNxB{0(D  
        .Subscript = wdUndefined zzJja/mp  
        .Superscript = wdUndefined nU2V]-qY  
    End With Fi4UaJ3K  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat >^=gDJ\a  
         )s)_XL  
        .LeftIndent = CentimetersToPoints(0) pLnB)z?  
        .RightIndent = CentimetersToPoints(0) 7NJFWz!  
        .FirstLineIndent = CentimetersToPoints(0) |f\D>Y%)  
         wO7t!35  
        .LineSpacingRule = wdLineSpaceSingle Z.'syGuV  
        .Alignment = wdAlignParagraphLeft <J&7]6Z  
         XV>@B $hu  
        .WidowControl = True u`_*g^5q"  
        .KeepWithNext = True <*<U!J-i  
        .KeepTogether = True }$&xTW_  
        .PageBreakBefore = False M(enRs3`O  
        .OutlineLevel = wdOutlineLevelBodyText ]!Ou e_-;  
         $e }n  
        .CharacterUnitLeftIndent = 0 ,(N[*)G  
        .CharacterUnitRightIndent = 0 je%ldY]/@  
        .CharacterUnitFirstLineIndent = 2 !77NG4B  
         m2xBS!fm  
        .LineUnitBefore = 0 :HRT 
2I  
        .LineUnitAfter = 0 +6l]]*H  
         */(I[ p  
    End With ?'eq",c#4N  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False -R0/o7  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll <r~wZ}s  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese s9O2k}]  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True &J$##B  
    DoEvents xzm@ v(  
     jAC78n,Fi@  
    '正文校式 e4\dpvL  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") [ ny6W9  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" (?>cn_m  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False Z(e^iH  
    With ActiveDocument.Styles("QLNU正文").Font l+zb~  
         Y.sz|u 1  
        .NameFarEast = "宋体" _'!kuE,*1  
        .NameAscii = "Times New Roman" L%t@,O#,  
        .NameOther = "宋体" wfR&li{  
        .Name = "宋体" x GH 1epf  
         $i#?v  
        .Size = 12               '小四号 /:Lu_)5   
         8md*wEjk  
        .Bold = wdUndefined 6S1m<aH6  
        .Italic = wdUndefined _w!a`w*3  
        .Subscript = wdUndefined 8AL\ST51x"  
        .Superscript = wdUndefined bMm3F%FFq&  
         XN;&qR^j  
        .Outline = False gl8Ib<{  
        .Emboss = False %d2!\x%bG  
        .Shadow = False <{Q'&T  
        .Hidden = False S_b/DO  
         I4=Xb^Ux  
        .DisableCharacterSpaceGrid = True F}Srn
;V  
    End With `)Ky0&?  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat =lp1Z
>  
         $4m*kQ  
        .LeftIndent = CentimetersToPoints(0) *jITOR!uF`  
        .RightIndent = CentimetersToPoints(0) Zb_apjg[4  
        .FirstLineIndent = CentimetersToPoints(0) I4t*?  
         ?mv:neh  
        .LineSpacingRule = wdLineSpaceExactly `s"d]/85VW  
        .LineSpacing = 20 fThgK;Qy'U  
        .Alignment = wdAlignParagraphLeft pf& ag#nr  
         g`0moXz  
        .WidowControl = False tU@zhGb  
        .KeepWithNext = False s^hR\iY  
        .KeepTogether = False 3^,QIG  
        .PageBreakBefore = False -tLO.JK<  
        .Hyphenation = False tg\|?  
         ^YlI>_3s  
        .OutlineLevel = wdOutlineLevelBodyText e,gyQjJR  
         lG:kAtx4  
       3@<zg1.9-  
        .CharacterUnitLeftIndent = 0 |(%zb\#9  
        .CharacterUnitRightIndent = 0 ?X9UTOx  
        .CharacterUnitFirstLineIndent = 2 -SCM:j%h  
         :Ht;0|[H  
        .LineUnitBefore = 0 S,{tV=&m]  
        .LineUnitAfter = 0 r.yK,  
        .SpaceBefore = 0 KpHw-6"  
        .SpaceAfter = 0 h4)Bs\==mT  
         $_Nf-:D*  
        .DisableLineHeightGrid = True @S^ASDuQU7  
    End With xZ.!d.rn  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False fCw*$:O  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll `@Oa lg  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese MYdO jcN  
    ActiveDocument.Styles("QLNU正文").NoProofing = True *[}^[J x  
    DoEvents 91Z'  
     h8{(KRa6  
    '图片段落样式 .0p^W9  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") }m-"8\_D  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" =&nW~<- v  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False [}z,J"Un  
    With ActiveDocument.Styles("QLNU图片段落").Font -_N)E ))G  
        .Size = 12               '小四号  ZDt?j   
        .Italic = wdUndefined vFv3'b$;G  
        .Subscript = wdUndefined =QOg 6  
        .Superscript = wdUndefined i=S~(gp  
    End With r^fe4b  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat h6:#!Rg  
         |~0UM$OB^3  
        .LeftIndent = CentimetersToPoints(0) `3cCH  
        .RightIndent = CentimetersToPoints(0) !t#F/C  
        .FirstLineIndent = CentimetersToPoints(0) "i^ GmVn  
         Fhf<T`  
        .LineSpacingRule = wdLineSpaceSingle G`0
V)S  
        .Alignment = wdAlignParagraphCenter aZS7sV28  
        .KeepWithNext = True mtAE  
        .OutlineLevel = wdOutlineLevelBodyText g>J
LDQdc  
         A7Po 3n%Q  
        .CharacterUnitLeftIndent = 0 7 8 f$6J q  
        .CharacterUnitRightIndent = 0 ";Si
L{Z  
        .CharacterUnitFirstLineIndent = 0 -NJ!g/ >mM  
         U7h(`b  
        .LineUnitBefore = 0 jgv`>o%<W  
        .LineUnitAfter = 0 neZ.`"LV  
    End With 9=`Wp6Gmn  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False }baR5v  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll % Zjdl  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese pzZk\-0R  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True ?)D^~/ A  
    DoEvents 8\.b4FNJ  
     q5DEw&UZJ  
     S\i@s_  
    '第X章 tc+WWDP#"
 
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ~f\G68c  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" LeOP;#  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False 3uWkc3  
    With ActiveDocument.Styles("QLNU章节标题").Font 88s/Q0l  
        .NameFarEast = "黑体" }H> ^o9  
        .NameAscii = "Arial Black" 49H+(*@v@  
        .NameOther = "Arial Black" [iP#VM-N  
        .Name = "黑体" 80OtO#1y  
        .Size = 16 zi@]83SS#  
        .Bold = True aB~S?.l  
        .UnderlineColor = wdColorAutomatic 64>krmVIe  
        .Outline = False qet>1<  
        .Italic = wdUndefined <ABX0U[*  
        .Subscript = wdUndefined @(g_<@Jz  
        .Superscript = wdUndefined sgUud_r)4  
        .Scaling = 100 saf&dd  
        .DisableCharacterSpaceGrid = True W/$Zvl  
    End With KLWn?`  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat \3f&7wU  
        .LineSpacingRule = wdLineSpaceSingle $'rG-g!f\  
        .Alignment = wdAlignParagraphCenter "R>FqX6FB  
        .WidowControl = True W-Hoyn>?2  
        .KeepWithNext = True RE2&mYt  
        .KeepTogether = True :aCrX  
        .PageBreakBefore = True ')Y'c  
        .OutlineLevel = wdOutlineLevelBodyText e'%v1-&sP  
         2_^aw[-  
        .LeftIndent = CentimetersToPoints(0) Qn@Pd*DR  
        .RightIndent = CentimetersToPoints(0) rwLAW"0Qz  
        .FirstLineIndent = CentimetersToPoints(0) MK#wut  
         O^Q7b7}y  
        .CharacterUnitLeftIndent = 0 K<`osdp=&  
        .CharacterUnitRightIndent = 0 hj%ye~|~  
        .CharacterUnitFirstLineIndent = 0 : Qt  
         =@&cHY  
        .LineUnitBefore = 1 D\dWt1n  
        .LineUnitAfter = 0.5 ElhRF{R  
         AlE8Xu9UB  
        .AutoAdjustRightIndent = False :KJ pk:<  
        .DisableLineHeightGrid = True "hxN!,DEZ  
        .FarEastLineBreakControl = True /P|fB]p  
        .WordWrap = True bNs4 5hDP  
    End With 4`m~FNVS  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False <7SpEVQ  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll a' Ki;]q  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese x!LQxoNF  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True F
b22p6r  
    DoEvents S-Y=-"  
     *g}Yw  
    '表格标题 [epi#]m  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") \wcam`f
  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" E>'a,!QPv  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False % 2$/JZ  
    With ActiveDocument.Styles("QLNU表格标题").Font W]M)Q}:Y  
        .NameFarEast = "楷体" ygJr=_
iA9  
        .NameAscii = "Arial" ^
DeERB  
        .Name = "楷体" S{pXs&4O  
        .Size = 10.5 l/TjQ*
 
        .Bold = True 58\&/lYW  
        .Underline = wdUnderlineNone e
}/Lk5q!  
        .Italic = wdUndefined [qUN4x5b  
        .Subscript = wdUndefined TxjYrzC  
        .Superscript = wdUndefined klg2
5#t  
        .Color = wdColorAutomatic jp8@vdRg  
    End With x+ncc_2n&D  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat RqEH|EUZ  
         Un`^jw#_  
        .LineSpacingRule = wdLineSpaceSingle gI^oU4mq  
        .Alignment = wdAlignParagraphCenter R'EUV0KX>Y  
        .KeepWithNext = True X+L) -d  
        .KeepTogether = True %,S f1fUJ
 
        .OutlineLevel = wdOutlineLevelBodyText DI
+]D~N  
         c0B|F  
        .LeftIndent = CentimetersToPoints(0) 3$.deYa$R  
        .RightIndent = CentimetersToPoints(0) voP7"Dl[  
        .FirstLineIndent = CentimetersToPoints(0) A1'hlAGF  
         ('wY9kvL&  
        .CharacterUnitLeftIndent = 0 |8>3`w!  
        .CharacterUnitRightIndent = 0 lO&3{dOYE  
        .CharacterUnitFirstLineIndent = 0 1tTgP+  
         poGc a1  
        .LineUnitBefore = 1 gb ^?l~SS  
        .LineUnitAfter = 0 AjcX  N  
         IW 21T  
    End With ;<yd^Xs  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False _vSn`  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll m8'C_U^89  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese k.("3R6v:  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True :I -V_4b  
    DoEvents \%PaceH  
`>0MNmu  
    '表格首行 NI#X@  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") fkf1m:Ck h  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False 5;0g!&-t#  
    With ActiveDocument.Styles("QLNU表格首行").Font \^
ghdU  
        .NameFarEast = "楷体" JD@J[YY5R  
        .NameAscii = "Times New Roman" (" LQll9  
        .Name = "楷体" (?_S6HE  
        .Size = 9 1) ta  
        .Bold = True ];.pK  
        .Underline = wdUnderlineNone -F'b8:m  
        .Italic = wdUndefined 7K)6^r^  
        .Subscript = wdUndefined 4wC+S9I#E^  
        .Superscript = wdUndefined Bm&kk x.9P  
    End With ?]D"k4  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat 6"Bic rY  
        .LineSpacingRule = wdLineSpaceSingle \
fA{1  
        .Alignment = wdAlignParagraphCenter 3)-/
`iy#  
         d>;&9;)H  
        .LeftIndent = CentimetersToPoints(0) 7VcmVq}X  
        .RightIndent = CentimetersToPoints(0) I}Nd$P)>  
        .FirstLineIndent = CentimetersToPoints(0) MZ Aij  
         }ci# >  
         hX`}Q4(k  
        .CharacterUnitLeftIndent = -0.5 u[nyW3MZ  
        .CharacterUnitRightIndent = -0.5 s!n< }C  
        .CharacterUnitFirstLineIndent = -0.5 (Yp+bS(PU*  
         ,0x y\u  
        .LineUnitBefore = 0 ?A(Qy aKz  
        .LineUnitAfter = 0 pw7[y^[Qg  
        .SpaceBefore = 0 DXz}YIEC  
        .SpaceAfter = 0 x77l~=P+!  
         'F>'(XWWQ  
    End With fRg`UI4w}  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False XGP6L0j  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll Q+4Xs.#  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese t]7&\ihZi~  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True Y3Vlp/"rB"  
    DoEvents X[f=h=|  
n1!?"m!  
    '表格内容 #fT*]NN  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") UnI48Y  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False )Ke*JJaq  
    With ActiveDocument.Styles("QLNU表格内容").Font nX$XL=6mJ&  
        .NameFarEast = "楷体" 0-~\ W(  
        .NameAscii = "Times New Roman" 0a-:<zm  
        .Name = "楷体" D8 hr?:I9  
        .Size = 9 9U$EJN_G  
        .Bold = False PaV-F_2  
        .Underline = wdUnderlineNone /~x"wo  
        .Italic = wdUndefined vAyFmdJ^  
        .Subscript = wdUndefined =- _B:d;  
        .Superscript = wdUndefined f B9
;_z  
    End With >3z5
ww  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat jqPkc28  
        .LineSpacingRule = wdLineSpaceSingle 6iCr RjY*  
        .Alignment = wdAlignParagraphCenter 8\{^|y9-  
         I\Y
V des#  
        .LeftIndent = CentimetersToPoints(0) | WvUq  
        .RightIndent = CentimetersToPoints(0) C@ th O  
        .FirstLineIndent = CentimetersToPoints(0) h;6lK$!c  
         Q}-~O1  
        .CharacterUnitLeftIndent = -0.5 E<y
W\  
        .CharacterUnitRightIndent = -0.5 }CeCc0M  
        .CharacterUnitFirstLineIndent = -0.5 XC.%za8  
        .LineUnitBefore = 0 cA%%IL$R  
        .LineUnitAfter = 0 V<Z[ nq  
        .SpaceBefore = 0 e{m2l2Tx:  
        .SpaceAfter = 0 M5xCC!  
    End With v
4C{<8:X  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False =Zi2jL?On  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll JV;OGh>  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese [Q=dCX9%  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True um9_ru~  
    DoEvents fk_o@ G!0  
bV ZMW/w  
    '图片标题 g!-,]  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ]Dw]p!@  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" eImn+_ N3  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False rETRTp0HT  
    With ActiveDocument.Styles("QLNU图片标题").Font X7s `U5'l  
        .NameFarEast = "楷体" HttiX/2~  
        .NameAscii = "Times New Roman" #dM9pc jh  
        .Name = "楷体" zbq@pj)Qu  
        .Size = 10.5 '` pDngX  
        .Bold = True $@UN4B?y  
        .Underline = wdUnderlineNone Q+YRf3$  
        .Italic = wdUndefined 7)s^8+  
        .Subscript = wdUndefined jQ:OKh<Y  
        .Superscript = wdUndefined D1__n6g[  
        .Outline = False E9;|'Vy<E  
        .Shadow = False &197P7&o  
        .Color = wdColorAutomatic )B[0JrcE  
    End With N!g9*Z
 
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat !Q#{o^{Y~  
        .LineSpacingRule = wdLineSpaceSingle "HPB!)C8(  
        .Alignment = wdAlignParagraphCenter 9<KAXr#  
         K_dOq68_  
        .KeepWithNext = wdUndefined rF]h$Z8o  
        .KeepTogether = True ]\!?qsT3}  
        .OutlineLevel = wdOutlineLevelBodyText ;VWAf;U;B  
         By%=W5  
        .LeftIndent = CentimetersToPoints(0) iezO9`  
        .RightIndent = CentimetersToPoints(0) 'Fm
vu  
        .FirstLineIndent = CentimetersToPoints(0) [7[0^ad  
         fMOU
$0]$<  
        .CharacterUnitLeftIndent = 0 EVoEszR  
        .CharacterUnitRightIndent = 0 eut-U/3:#  
        .CharacterUnitFirstLineIndent = 0 9(@\&>)  
         V{JAB]?^  
        .LineUnitBefore = 0 V O3x~E  
        .LineUnitAfter = 0 mvq&Pj 1}L  
    End With s0PrbL% _`  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False D: erBMKv,  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll je!-J8{  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese i9/aAH
0  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True v8y1b%  
    DoEvents WL'P)lI5  
]C) 4  
    '目录项 9=U kV\m)  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") I :vs ;-  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" )b:7-}d  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False >uSy  
    With ActiveDocument.Styles("QLNU目录项").Font V3"=w&2]K  
        .NameFarEast = "黑体"  KQ~i<1&j  
        .NameAscii = "Times New Roman" %mZ{4<7  
        .NameOther = "Times New Roman" K

N*  
        .Name = "黑体" mya_4I m  
        .Size = 10.5 u
vrB5=u  
        .Bold = False hNzB4p  
        .Italic = wdUndefined 5O\*h;U 6  
        .Underline = wdUnderlineNone e
d<n9R  
        .Color = wdColorAutomatic ?]*^xL;x?  
        .Superscript = wdUndefined h=:Q-?n-  
        .Subscript = wdUndefined P'`r  
    End With [D!jv"  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat w
u)w   
         Rj4|Q:XG  
        .LineSpacingRule = wdLineSpaceSingle ^/r7@:  
        .Alignment = wdAlignParagraphLeft 1R,:  
          -4
cXRv]  
        .WidowControl = False DCZ\6WY1G)  
        .KeepWithNext = False |9B.mBoX  
        .KeepTogether = False rwI  
        .PageBreakBefore = False rY bpih=x  
        .NoLineNumber = False ~8]NK&J  
        .OutlineLevel = wdOutlineLevelBodyText ~-I+9F  
         RO.k]x6  
        .LeftIndent = CentimetersToPoints(0) YxP&7oq  
        .RightIndent = CentimetersToPoints(0) E160A5BTx  
        .FirstLineIndent = CentimetersToPoints(0) B&@?*^.  
         q}]XYys  
        .CharacterUnitLeftIndent = 0 nVi[  
        .CharacterUnitRightIndent = 0 9^j &VmF  
        .CharacterUnitFirstLineIndent = 0 `DC2gJKk%  
         V>b\[(=s  
        .LineUnitBefore = 0 IP(Vr7-v  
        .LineUnitAfter = 0 5=Di<!a;  
    End With m&?#;J|B$  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False ;UfCj5`Q)4  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll Cvf[/C+  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot h-%R<[  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese 8|" XSN  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True Rp5#clsy  
    DoEvents f`[R7Q5  
     %T~ig[GstX  
    '参考文献 DK$s&zf  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") Y*14v~\'  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" o|$AyS{1  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False f\jLqZY  
    With ActiveDocument.Styles("QLNU参考文献").Font THS.GvT9[  
        .NameFarEast = "宋体" #E&80#Z5  
        .NameAscii = "Times New Roman" Iu <?&9t  
        .NameOther = "Times New Roman" `b^Ru+(dM  
        .Name = "Times New Roman" ^pYxKU_O  
        .Size = 12 P qn@ST  
        .Bold = False & 9<+; */  
        .Italic = wdUndefined yrlf+tl  
        .Subscript = wdUndefined ,]d,-)KX8  
        .Superscript = wdUndefined /C6k+0ApMT  
        .Underline = wdUnderlineNone Wr( y)D<y}  
        .UnderlineColor = wdColorAutomatic uB]b}
"+l  
        .Color = wdColorAutomatic 8@tPm$  
        .Engrave = False D}mjN=Y  
    End With bdc&1I$  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat ?nmn1`UT  
         C<P%CG&;  
        .LineSpacingRule = wdLineSpaceExactly F~P%AjAx'  
        .LineSpacing = 16 4 XAQVq5  
        .Alignment = wdAlignParagraphLeft x = 5N3[5  
        .WidowControl = False 9_ dpR.  
        .KeepWithNext = False NB8/g0:=n&  
        .KeepTogether = False h]TQn
)X]  
        .PageBreakBefore = False lGOgN!?i  
        .OutlineLevel = wdOutlineLevelBodyText H(Z88.OM  
         k@'#@ t  
        .LeftIndent = CentimetersToPoints(0) ;NHt7p8SE  
        .RightIndent = CentimetersToPoints(0) Gy6l<:;  
        .FirstLineIndent = CentimetersToPoints(0) oIduxbAp  
         tfGHea)M  
        .CharacterUnitLeftIndent = 0 ]4pkcV P  
        .CharacterUnitRightIndent = 0 OEkN(wF  
        .CharacterUnitFirstLineIndent = -2 yI"6Da6|y  
         FGoy8+nB1M  
        .LineUnitBefore = 0 wf:OK[r9  
        .LineUnitAfter = 0 XR;eY: 89  
        .SpaceBefore = 0 dzDqZQY$  
        .SpaceAfter = 0 +>r/0b  
         1 =M ?GDc  
    End With +w+}b^4  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False SF>c\eTtx  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll QC9eUYe  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS  {PVWD7  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True i~{Ufi  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese }3OKC2K~  
    DoEvents |%' nVxc4r  
f>N!wgo[  
    ' 6Q${U7%7  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") IkGfnXJ  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" ~W{2 Jd  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False "\3B^ e,  
    With ActiveDocument.Styles("QLNU论文题目").Font J{k79v  
        .NameFarEast = "黑体" 6,0_)O}\b  
        .NameAscii = "Arial Black" ;oy-#p>N%  
        .NameOther = "Arial Black" e=+?K5q{P(  
        .Name = "Arial Black" *^:N.&]  
        .Size = 16 i*@<y/&'  
        .Bold = False iLkZ"X.'|1  
        .Italic = wdUndefined s;6CExH  
        .Superscript = wdUndefined P7{gfiB  
        .Subscript = wdUndefined <OIIoB?t  
        .Underline = wdUnderlineNone lp(8E6  
        .UnderlineColor = wdColorAutomatic x;8A!8w  
        .Color = wdColorAutomatic 4x 8)gE   
id1s3b;  
    End With ~x]jB  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat !lj| cT9  
        .LineSpacingRule = wdLineSpaceSingle bp~g;h*E2  
        .Alignment = wdAlignParagraphCenter R~S
;sJ& c  
        .WidowControl = True FW21 U<  
        .KeepWithNext = True Z7=`VNHc  
        .KeepTogether = True \Hn>oonph  
        .PageBreakBefore = True #~<0t(3Q  
        .NoLineNumber = False xo7Kn+ Kl  
        .OutlineLevel = wdOutlineLevelBodyText ,"HL~2:~  
         3U7
*>H  
        .LeftIndent = CentimetersToPoints(0) 1*@'-mj  
        .RightIndent = CentimetersToPoints(0) yge,8i)c  
        .FirstLineIndent = CentimetersToPoints(0) j4^97  
         !0vG|C;'  
        .CharacterUnitLeftIndent = 0 "-+\R}q$  
        .CharacterUnitRightIndent = 0 *tK\R&4,4s  
        .CharacterUnitFirstLineIndent = 0 T-U}QM_e  
         '2[albxSc  
        .LineUnitBefore = 1 Z)SY.iK.  
        .LineUnitAfter = 1 A}3=561F?5  
         n6BQk2l  
        .BaseLineAlignment = wdBaselineAlignAuto &2{tF  
    End With -(~!Jo_*'  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False s=0BMPDgm  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll ,}K7Dg^1  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS -@0GcUE:r  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True -De9_0#R  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese hMykf4  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True
HBu
[gh;b  
    DoEvents SUU !7Yd|  
     TzNn^ir=HX  
    '中文摘要 [E/\#4b  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") Y JJB.hR+  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" =g|IG [V  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False 6jC`8l:  
    With ActiveDocument.Styles("QLNU中文摘要").Font Ljp%CI[i  
        .NameFarEast = "宋体" CnG+Mc^  
        .NameAscii = "Times New Roman" B>0].CK`  
        .NameOther = "Times New Roman" ):b$xNn  
        .Name = "Times New Roman" (A~/'0/  
        .Size = 12 SAyufLEv,  
        .Bold = wdUndefined K*X_FJ  
        .Superscript = wdUndefined yFtd=AI'E  
        .Subscript = wdUndefined ^h"`}[+  
        .Italic = wdUndefined F!]lU`z)=  
        .Underline = wdUnderlineNone .O0+H+  
        .UnderlineColor = wdColorAutomatic 2AO~HxF  
        .Color = wdColorAutomatic i;_tI#:A  
    End With !BOY@$Y  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat \ cUC9/ b  
        .LineSpacingRule = wdLineSpaceExactly <w)r`D6  
        .LineSpacing = 20 @CZ T  
        .Alignment = wdAlignParagraphLeft \E*d\hrl{  
         /Sc l#4bW  
        .WidowControl = False
,#L=v]  
        .KeepWithNext = False g.zEn/SM  
        .KeepTogether = True r}mbXvn  
        .PageBreakBefore = False hHT_V2*  
        .NoLineNumber = False Stu4t==U  
        .OutlineLevel = wdOutlineLevelBodyText <U!`J[n%  
         ^HqY9QT2  
        .LeftIndent = CentimetersToPoints(0) ,Q HU_jt  
        .RightIndent = CentimetersToPoints(0) w-t8C=Z  
        .FirstLineIndent = CentimetersToPoints(0) vJ-q*qM1  
         Wb?8j M  
        .CharacterUnitLeftIndent = 0 LQngK7>  
        .CharacterUnitRightIndent = 0 >o7n+Rb:  
        .CharacterUnitFirstLineIndent = 2 $D | e>U  
        .LineUnitBefore = 0 < cqbUL  
        .LineUnitAfter = 0 3tZ]4ms}  
         P8*=Ls+-F  
    End With Dk(1}%0U/  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False 2gCX}4^3b  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll woD>!r>)  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS {ZI)nQ{  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True :[hgxJu+  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese Zf65 `K3  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True {6_|/KE9_  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete S|]X'f  
    DoEvents NqDHCI  
     WYEKf9}  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") (4dhuT  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" #]ypHVE  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False }Du}c3  
    With ActiveDocument.Styles("QLNU英文标题").Font \<y#R~7s  
        .NameFarEast = "黑体" 2&^]k`Aj6D  
        .NameAscii = "Arial Narrow" =A!@6Nw  
        .Name = "Arial Narrow" YW60q0:  
        .Size = 16 {O7X`'[  
        .Bold = True g!+|I  
        .Bold = wdUndefined /7t>TY
ip!  
        .Superscript = wdUndefined `m!j$,c.  
        .Subscript = wdUndefined w(/aiV  
        .Italic = wdUndefined Ns7(j-  
         CkdP#}f  
        .Underline = wdUnderlineNone t\%HX.8[;%  
        .UnderlineColor = wdColorAutomatic O4^8 jK}  
        .StrikeThrough = False PGLplXb#[S  
        .DoubleStrikeThrough = False 7:)n$,31FW  
    End With Pyb Z)5u  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat 8p@Piy{ p  
        .LineSpacingRule = wdLineSpaceSingle DW_1,:,?7l  
        .Alignment = wdAlignParagraphCenter TiO"xMX  
        .WidowControl = True dVi!Q@y+  
        .KeepWithNext = False r0,:J  
        .KeepTogether = False ~ =
=>pj  
        .PageBreakBefore = False (tZrw5@  
        .NoLineNumber = False BE_ay-  
        .FirstLineIndent = CentimetersToPoints(0) p4-o/8rO  
        .OutlineLevel = wdOutlineLevelBodyText 9&_<f}ou  
         !,V a(E|=  
        .LeftIndent = CentimetersToPoints(0) Z`KC%!8K  
        .RightIndent = CentimetersToPoints(0) v,4pp@8rv  
        .FirstLineIndent = CentimetersToPoints(0) -/g B|J  
         f-E("o  
        .CharacterUnitLeftIndent = 0 G}:lzOlM H  
        .CharacterUnitRightIndent = 0 :QB<?HaS'  
        .CharacterUnitFirstLineIndent = 0 oIb|*gX^  
         Od%"B\  
        .LineUnitBefore = 1 TTt#a6eJ  
        .LineUnitAfter = 1 PSZL2iGj9V  
         ^ml'?  
    End With hR Ue<0o:  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False qx4I_%  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll lMg+R<$~I  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS a+!tT!g&I  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True |,!
IZ- th  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese @++.F
Ef  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True .QN>z-YA6:  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete Bhp-jq'!B  
    DoEvents iTAx
=SG  
wT:b\km:!  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") )C cq4i  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" Ft;^g3N  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False -< &D  
    With ActiveDocument.Styles("QLNU英文摘要").Font w &(|e <  
        .NameFarEast = "宋体" i-6F:\;  
        .NameAscii = "Arial" !VI]oRgP  
        .NameOther = "Arial" 2|}+T6_q  
        .Name = "Arial" <oX7P69  
        .Size = 12 -U/c\-~fU  
        .Bold = wdUndefined Y<Fz)dQo  
        .Italic = wdUndefined h >s!K9  
        .Superscript = wdUndefined A#95&kJpy  
        .Subscript = wdUndefined -Ty*aov  
    End With 4bn(zyP  
     X  .5aMm  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat #R.-KUW:  
         ~R26  
        .LineSpacingRule = wdLineSpaceExactly ( 8c9 /7h  
        .LineSpacing = 20 _q{c##Kf  
         kT'u1q$3Vo  
        .Alignment = wdAlignParagraphJustify jg\Z;_!W  
         =y
yp?WmC8  
        .WidowControl = False */|9= $54  
        .KeepWithNext = False N,;5{y1;J  
        .KeepTogether = False viMzR(JU  
        .PageBreakBefore = False 8@2OJ=`[  
        .NoLineNumber = False I$0)Px%z  
         "huFA| `  
        .OutlineLevel = wdOutlineLevelBodyText kAC&S!n  
          oze&  
        .LeftIndent = CentimetersToPoints(0) 5&q8g;XiEM  
        .RightIndent = CentimetersToPoints(0) T 3pmVl  
        .FirstLineIndent = CentimetersToPoints(0) )>`G  
         m/y2WlcRx  
        .CharacterUnitLeftIndent = 0 }0X:F`Y-  
        .CharacterUnitRightIndent = 0 [3--(#R\}?  
        .CharacterUnitFirstLineIndent = 2 }` != m  
         |>JS!NM I  
        .LineUnitBefore = 0 `R=HKtr?  
        .LineUnitAfter = 1 A?t%e  
         9)gC6IiW  
    End With =MLcm^b  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False ,}))u0q+:  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll \8 h;K>=h  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS .P MZX%*v  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False OSf}Q=BL  
    DoEvents IuRmEL_Q_  
Q&eQQ6b^Ih  
    Options.Pagination = True <c,u3cp  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." ~ y;6W0x  
    DoEvents cQ"~\  
    ActiveDocument.Repaginate W>p-u6u%E|  
52,m:EhL  
End Sub @Q/-s9b  
 )8UWhl=  
(C@~3!AVa