Dim bContinue As Boolean b\H~Ot[i  
Mx[tE?!2  
Dim regEX As New RegExp &eyFApM[Z  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 KJJ8P`Kx  
(;cb gHo%}  
Dim LastTitle0String As String, LastTitle0No As Long [+>$'Du  
Dim LastTitle1String As String, LastTitle1No As Long ,I'Y)SLx  
Dim LastTitle2String As String, LastTitle2No As Long !d%OoRSU'  
Dim LastTitle3String As String, LastTitle3No As Long oZP:}= F  
Dim LastTitle4String As String, LastTitle4No As Long N\ GBjr-d  
Dim LastTitle5String As String, LastTitle5No As Long /.Gx n0  
Dim LastTabelString As String, LastTableNo As Long CEZ*a 0}=  
Dim LastFigureString As String, LastFigureNo As Long 7&OU!gp  
!P#lTyz  
Dim strSeperator As String 8tLkJOu  
RIb< 7  
Sub ConvertWidth(fTEXT As String, rText As String) $wC]S4C  
        Selection.Find.ClearFormatting }_XKO\   
        Selection.Find.Replacement.ClearFormatting &vd9\Pp  
        Selection.Find.Wrap = wdFindContinue .(nq"&u-*  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText 'sz
kn0  
        DoEvents d\xh>o  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True 4*d_2:|u  
End Sub @ttcFX1:W  
Cv~t~  
Sub ClearDomain() sd.:PE <  
        With Selection.Find Q!|. ,?V  
            .ClearFormatting 9A)( K,  
            .Replacement.ClearFormatting ow%s_yV]R  
            .Wrap = wdFindContinue c\"oj&>A  
            Me.txtStatus.Text = "清除所有域代码" rVFAwbR  
            DoEvents 8`9!ocrM  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False j{S\X'?   
        End With xlS t  
End Sub swe6AQ-  
,8EeSnI  
Private Sub cmdCheck_Click() a)[tkjU  
    bContinue = True W<v?D6dFq  
    Dim NoSeries1(1 To 16) As String ka*VQXk*  
    Dim NoSeries2(1 To 16) As String lvcX}{>\  
    Dim NoSeries5(1 To 16) As String v"=^?5B  
    Dim NoSeriesRM(1 To 16) As String q<.^DO~$L  
    Dim paraTotal As Long, ParaText As String )T 3y,*  
    Dim ttString As String, ttNo As String !dSY?1>U<  
     "k5 C?~  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long HrWXPac A  
a!xKS8-S==  
    Me.txtStatus.Visible = True ) Q]kUG#`  
    Me.lbParaType.Visible = True aW$7:<A{  
    Me.cmdCheck.Enabled = False &+JV\  
     nBZqhtr  
     GS \-  
     *>zr'Tt,W  
     '<$(*  
    Dim ParaType As String, rText As String GP[;+xMBh  
     S\s1}`pNm  
    Selection.WholeStory 7@|(z:uw   
    Selection.NoProofing = True l% K9K
e  
     o
+q4Vg9&  
    tm1 = Now e,|"9OK  
     vQYd!DSh  
        ActiveWindow.View.Type = wdNormalView %GjF;dJ  
     d),@&MSN  
    NoSeries1(1) = "一" rsy'ZVLUj  
    NoSeries1(2) = "二" `N ;!=7y7Y  
    NoSeries1(3) = "三" .\LWV=B  
    NoSeries1(4) = "四" NTls64AS.  
    NoSeries1(5) = "五" V'\4sPt  
    NoSeries1(6) = "六" qEX59v  
    NoSeries1(7) = "七" N{ ; {<C9Z  
    NoSeries1(8) = "八" P[aB}<1f0  
    NoSeries1(9) = "九" hH`yQG Z  
    NoSeries1(10) = "十" 1,9RfYV  
    NoSeries1(11) = "十一" ~Og'IRf  
    NoSeries1(12) = "十二" <fWho%eOK  
    NoSeries1(13) = "十三" +2MsyA?6_  
    NoSeries1(14) = "十四" :n{rVn}G  
    NoSeries1(15) = "十五" {#0B~Zr  
    NoSeries1(16) = "十六" NNb17=q_v  
     sw8Ic
\vT  
    NoSeries2(1) = "㈠" +TA(crD  
    NoSeries2(2) = "㈡" ,HYz-sK.  
    NoSeries2(3) = "㈢" __'Z0?.4#  
    NoSeries2(4) = "㈣" %\%1EZQ%  
    NoSeries2(5) = "㈤" Xq+7l5LP  
    NoSeries2(6) = "㈥" *cq#>r
N  
    NoSeries2(7) = "㈦" qdvGBdF  
    NoSeries2(8) = "㈧" sm4@ywd>  
    NoSeries2(9) = "㈨" FL"IPX;
S  
    NoSeries2(10) = "㈩" Ui'~d(F  
     Fu!:8Wp!(  
    NoSeries5(1) = "①" <`~]P$  
    NoSeries5(1) = "②" pBh[F5  
    NoSeries5(3) = "③" c;BQ$je}  
    NoSeries5(4) = "④" h$4V5 V  
    NoSeries5(5) = "⑤" :G,GHU'/78  
    NoSeries5(6) = "⑥" #](ML:!  
    NoSeries5(7) = "⑦" E+UOuf*(  
    NoSeries5(8) = "⑧" zxTm`Dh;[
 
    NoSeries5(9) = "⑨" el5F>)  
    NoSeries5(10) = "⑩" &3S;5{7_e  
     9F ).i  
     bP(V#6IJ8  
    NoSeriesRM(1) = "I" OA&NWAm4  
    NoSeriesRM(2) = "II" oI/@w  
    NoSeriesRM(3) = "III" ]oXd|[G  
    NoSeriesRM(4) = "IV" `Nc3I\tCM  
    NoSeriesRM(5) = "V" ?r2Im5N  
    NoSeriesRM(6) = "VI" 31<hn+pE&  
    NoSeriesRM(7) = "VII" l4v)tV~  
    NoSeriesRM(8) = "VIII" E&GUg/d  
    NoSeriesRM(9) = "IX" ,TeDJ\k  
    NoSeriesRM(10) = "X" yV=hi?f-[V  
    NoSeriesRM(11) = "XI" JrYpZ.Nh  
    NoSeriesRM(12) = "XII" !fyE Hk  
    NoSeriesRM(13) = "XIII" ^7~=+0cF]  
    NoSeriesRM(14) = "XIV" ;x|4Tm  
    NoSeriesRM(15) = "XV" JxNjyw  
    NoSeriesRM(16) = "XVI" A\.k['!  
     l?Bv9k.^?  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) ZLxe$.V_  
     JwxI8Pi*y  
    If i = vbNo Then ir3iW*5k  
        Exit Sub C7eaioW$  
    End If a}El!7RO0  
     Pg|q{
fc  
    If Me.chkSuper.Value Then ^kt# [N  
        Me.txtStatus.Text = "检查修改所有的上标格式" X7Cou6r  
     VS1gg4tCv  
        CheckSuperScript [&3G `8hY  
          @X  
    End If laKMQLtv  
     #^%Rk'W  
    If Me.chkStyle.Value Then _f{'&YhUU  
        Me.txtStatus.Text = "设置样式，请稍候...." ezC55nm  
        DoEvents ?)5}v4b  
        CeateOrModifyStyle ]J?5qR:xCy  
    End If %ktU 51o  
     q
yQPR  
     nu4GK}xI  
     ukzXQe;l1  
    ClearDomain /!d,f4n  
         >x(^g~i  
     bXC ;6xZV  
     
x{5I  
    If Me.chkLIST.Value Then Q3_ia5 `O  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" FV!  
     U_Emp[  
        ConvertListToOrdinary FzFY2h;n]B  
    End If @fPiGu`L  
     &.K=,+0_R/  
     I`p44}D3  
    Dim pType As String, trimpTEXT As String * .n9D  
    If Me.chkNum.Value = True Then 8!S="_  
        Me.txtStatus.Text = "转换全角数字形式为半角" (:vY:-\ bO  
        ConvertWidth "１", "1" #oJ9BgDry  
        DoEvents Z
sNUT4  
        ConvertWidth "２", "2" 3Akb|r  
        DoEvents N;;!ObVHnP  
        ConvertWidth "３", "3" ;'p X1T  
        DoEvents 2gg5:9  
        ConvertWidth "４", "4" d+[hB4!l2  
        DoEvents >=r0
94<  
        ConvertWidth "５", "5" nke [}Hqf  
        DoEvents W(a=ev2sa  
        ConvertWidth "６", "6" ) l0=jb  
        DoEvents /XtxgO\T.  
        ConvertWidth "７", "7" M I/9?B  
        DoEvents 2Q-kD?PO,  
        ConvertWidth "８", "8" *`=V"nXw$|  
        DoEvents ]ZHC*r2i  
        ConvertWidth "９", "9" Bn-%).-ED  
        DoEvents .'L@$]!G  
        ConvertWidth "０", "0" ?N&"WL^|  
        DoEvents SN\;&(
?G  
        ConvertWidth "ａ", "a" b?h"a<7  
        DoEvents [ {f{E  
        ConvertWidth "ｂ", "b" P;mmK&&  
        DoEvents i,$*+2Z  
        ConvertWidth "ｃ", "c" y85GKysT  
        DoEvents f)?s.DvUB  
        ConvertWidth "ｄ", "d" u`R  
        DoEvents s <Ag8U8  
        ConvertWidth "ｅ", "e" cQS}pQyYN  
        DoEvents D.
)R8X  
        ConvertWidth "ｆ", "f" rM_8piD  
        DoEvents V)_mo/D!D  
        ConvertWidth "ｇ", "g" D9 ,~Fc  
        DoEvents :,LX3,  
        ConvertWidth "ｈ", "h" {*yhiE,  
        DoEvents L`yS'  
        ConvertWidth "ｉ", "i" wNcf7/ky  
        DoEvents *"q~z  
        ConvertWidth "ｊ", "j" 3 #^xxEu  
        DoEvents $ [M8G  
        ConvertWidth "ｋ", "k" QR\qGhQ ~  
        DoEvents .' 3;Z'%"g  
        ConvertWidth "ｌ", "l" <?2[]h:wp  
        DoEvents Go+f0aig  
        ConvertWidth "ｍ", "m" f L ' 42  
        DoEvents Y]^[|e8   
        ConvertWidth "ｎ", "n" | t3_E  
        ConvertWidth "ｏ", "o" +Y'(,J  
        ConvertWidth "ｐ", "p" "72 _Sw  
        ConvertWidth "ｑ", "q" US@ak4Y6Z  
        ConvertWidth "ｒ", "r" ~~&8I!r e  
        ConvertWidth "ｓ", "s" QU8?/  
        ConvertWidth "ｔ", "t" .2Y"=|NdA  
        ConvertWidth "ｕ", "u" ^Me__Y  
        ConvertWidth "ｖ", "v" ZYc)_Og  
        ConvertWidth "ｗ", "w" $*`fn{2  
        ConvertWidth "ｘ", "x" RVlC8uJ;P  
        ConvertWidth "ｙ", "y" li$(oA2  
        ConvertWidth "ｚ", "z" W29@`93  
        ConvertWidth "Ａ", "A" oypX.nye_  
        ConvertWidth "Ｂ", "B" CQ"5bnR  
        ConvertWidth "Ｃ", "C" :&9#p%/  
        ConvertWidth "Ｄ", "D" pV<18CaJ  
        ConvertWidth "Ｅ", "E" [gqV}Y"Md  
        ConvertWidth "Ｆ", "F" maXQG&.F  
        ConvertWidth "Ｇ", "G" ppmDmi~X  
        ConvertWidth "Ｈ", "H" !xA;(<K[^  
        ConvertWidth "Ｉ", "I" =uMoX -  
        ConvertWidth "Ｊ", "J" `hY%<L sI  
        ConvertWidth "Ｋ", "K" !C&}e8M|eX  
        ConvertWidth "Ｌ", "L" E{(7]Wri  
        ConvertWidth "Ｍ", "M" 1
g^N7YF  
        ConvertWidth "Ｎ", "N" ]*  ':  
        ConvertWidth "Ｏ", "O" xzAyE5GL>  
        ConvertWidth "Ｐ", "P" nhiCV
>@y  
        ConvertWidth "Ｑ", "Q" p/4GO
U5g  
        ConvertWidth "Ｒ", "R" &5~bJ]P  
        ConvertWidth "Ｓ", "S" svHs&v  
        ConvertWidth "Ｔ", "T" +p>tO\mo  
        ConvertWidth "Ｕ", "U" !1-:1Whz8  
        ConvertWidth "Ｖ", "V" G%Wjtrpj  
        ConvertWidth "Ｗ", "W" AW%^Xt  
        ConvertWidth "Ｘ", "X" FJ}/g ?  
        ConvertWidth "Ｙ", "Y" {6 C!^ 5  
        ConvertWidth "Ｚ", "Z" z;2kKQZm  
        ConvertWidth "^l", "^p" LmseY(i N  
        ConvertWidth "（", "(" BQ2DQ7
q  
        ConvertWidth "）", ")" bTb|@  
     q: ?6  
    End If &,3.V+Sz  
j@&F[r  
    With ActiveDocument gR?=z}`@p  
        Dim tbl As Table cQA;Y!Q#  
        For Each tbl In .Tables tb"
UGa  
            tbl.Rows.Alignment = wdAlignRowCenter ja
FBz&P/#  
            tbl.Range.Font.NameFarEast = "楷体" .ie\3q)  
            tbl.Range.Font.NameAscii = "Times New Roman" "b|qyT* Sl  
            tbl.Range.Font.Size = 10.5 W7_X=>l  
        Next qMmh2a&  
        Set tbl = Nothing . /rNq!*a  
    End With A)/_:  
     OF2*zU7M  
     m';:):  
    With ActiveDocument ?R#-
gvX%  
         h/QZcA  
        For i = 1 To .TablesOfContents.Count ,4)zn6tC  
            .TablesOfContents(i).Delete !%_}Rv!JT  
        Next *)T},|Gc  
         _@ev(B  
         l)4KX{Rz{A  
         '>@evrG  
        paraTotal = .Paragraphs.Count z|< 6y~5,  
        paraCounter = 1 ")i4w{_y  
         TMT65X!  
        LastTitle0No = 0 7??+8T#n*  
        LastTitle1No = 0 j_j~BXhIS  
        LastTitle2No = 0 >E^sZmY[f-  
        LastTitle3No = 0 -'*B
%yy  
        LastTitle4No = 0 /MosE,7l  
        LastTableNo = 0 Oz-X}eM  
        LastFigureNo = 0 K*d+
pImrV  
         L|u\3.:  
        Dim Sec As Long Dc}-wnga  
         Pz:,q~  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) ^R! qxSj  
        If Sec = 0 Then !Hr~B.f7  
            Exit Sub 9V9K3xWn  
        End If dE%rQE7'  
         HX7"w   
        k = 0 zL+jlUkE
 
        Do While (paraCounter < paraTotal) And bContinue +YI/(ko=  
            k = k + 1 W{*U#:Jx1  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then ~Yb5FYE  
                Exit Do
j[F
\f>  
            End If  &)T5V  
            paraCounter = paraCounter + 1 `DUM
TFcMX  
            If k Mod 20 = 0 Then Z[[qW f  
                Me.lbCounter.Caption = paraCounter l*e*jA_>:7  
                DoEvents x3
2hO;  
            End If s%1O}X$c  
        Loop 5.q2<a :  
         )4toBDg"  
         ^"(CZvq  
        Do While (paraCounter < paraTotal) And bContinue to|O]h2*U2  
             a{GPAzO+  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text)  |'aGj  
            ShapeHeight = 0 `gDpb.=Y  
            ShapeWidth = 0 N! 
}p  
           v1oq[+  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth SRRqIQz  
             b>er'U  
            Select Case ParaType iT227v!s  
                Case "【】表格内容" ^yb3L1y  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" nxS|]  
                Case "章" bzF>Efza  
                    LastTitle0No = LastTitle0No + 1 5N @k9x  
                    '新一章开始，复位其下属标题编号 B8:G1r5G/  
                    LastTitle1No = 0 8Mf6*G#Y  
                    LastTitle2No = 0 NhU~'k  
                    LastTitle3No = 0 ~a^mLnY@  
                    LastTitle4No = 0 J NPEyC  
                     1I{vBeMj  
                    k = Val(ttNo) Fw )#[  
                    If k = 0 Then '非数字编号章节 zn@<>o8hU  
                        If ttNo <> NoSeries1(LastTitle0No) Then -r@fLkwg  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString }~DlOvsq  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText #.'0DWT\-  
                        End If )+OI}  
                    Else ^<}9#q/rt  
                        If Val(ttNo) <> LastTitle0No Then wqkD
 
                            rText = "第" & LastTitle0No & ttString {P&{+`sov  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText G%jgr"]\z  
                        End If
@@-n/9>vs  
                          iVu  
                    End If !KKkw
4  
                     MX2]Q  
                    '章段落设置 YC8wo1;Y!  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 V|gW%Z,j  
                    .Paragraphs(paraCounter).Style = "QLNU章节" :k*'MU}  
                    .Paragraphs(paraCounter).Range.Select lmi,P-Q  
                    Selection.EndKey unit:=wdLine PzMJ^H{  
                    tc = Replace(rText, vbCr, "") 
&)zNu  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False u!hY bCB  
                Case "一级标题" o^&u?F9  
                    LastTitle1No = LastTitle1No + 1 p.A_,iE  
                    '新一级标题开始，复位其下属标题编号 O3/][\  
                    LastTitle2No = 0 MxQhkY-=  
                    LastTitle3No = 0 ]w`)"{j5m  
                    LastTitle4No = 0 ;4 >YPH  
                     WYSqnmi  
                    If ttNo <> NoSeries1(LastTitle1No) Then #>iBu:\J  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString ;|}N\[fk%]  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText Ti$G2dBO  
                    End If c@7d4Jz  
                   2Tec#eYe  
                     PV$)k>H-  
                    '一级标题段落设置  格式：一、标题内容 )CJXkzOX  
                    .Paragraphs(paraCounter).Range.Text = rText bA!n;  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" LmWZ43Z"@  
                    .Paragraphs(paraCounter).Range.Select /99S<U2ej  
                    Selection.EndKey unit:=wdLine 8Wqh 8$  
                    tc = Replace(rText, vbCr, "") m!Cvd9X=  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False mvgsf(a*'  
                Case "二级标题" Q3[MzIk 4  
                    LastTitle2No = LastTitle2No + 1 rofj&{w  
                    '新二级标题开始，复位其下属标题编号 Y3=5J\d!a  
                    LastTitle3No = 0 )S@e&a|  
                    LastTitle4No = 0 ABb,] %  
                     lR5[UKr  
                    If ttNo <> NoSeries1(LastTitle2No) Then b 5<&hN4g  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString b+Vfi9<  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText <`rmQ`(}s  
                    End If c!*yxzs\  
                     CT1@J-np  
                    '二级标题段落设置 格式：(一)、标题内容 .ZQD`SRrI  
                    .Paragraphs(paraCounter).Range.Text = rText T$rhz)_q  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" uatY:GSR  
                     Q6)Wh6Cm  
                    .Paragraphs(paraCounter).Range.Select M(8dK
j1+  
                    Selection.EndKey unit:=wdLine M15Ce)oB1(  
                    tc = Replace(rText, vbCr, "") : fMQ,S0  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False Zgy~Y0Di  
                 Heh.CD)Q  
                Case "三级标题" E6JfSH
#  
                    LastTitle3No = LastTitle3No + 1 =z^2KH  
                    '新三级标题开始，复位其下属标题编号 @+Yql  
                    LastTitle4No = 0 -<H\VT%98
 
                     !xk`o
W  
                    If Val(ttNo) <> LastTitle3No Then ~tx|C3A`d  
                            rText = LastTitle3No & ". " & ttString Fn xPM`Zx  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText `yF6-F  
                         J=7.-R|t  
                    End If [$M=+YRHMW  
                    '三级标题段落设置 格式：1. 标题内容 iZY4+
X  
                    .Paragraphs(paraCounter).Range.Text = rText (KxI*  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" -Pt.  
                    .Paragraphs(paraCounter).Range.Select G5*"P!@6  
                    Selection.EndKey unit:=wdLine M$_E:u&D  
                    tc = Replace(rText, vbCr, "") *U>"_h T0  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False 6Cw+  
                Case "四级标题" k
b3>q($  
                    LastTitle4No = LastTitle4No + 1 -UY5T@as  
                     yC\dM1X  
                    If Val(ttNo) <> LastTitle4No Then Voy
1  
                            rText = "(" & LastTitle4No & "). " & ttString V6Z~#=EQ  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText /JsA[}.6  
                     #O 2g]YH  
                    End If >x?x3#SX  
                    '四级标题段落设置 格式：(1). 标题内容 4fauI%kc  
                    .Paragraphs(paraCounter).Range.Text = rText y_mTO4\C2  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" K|L&mL&8  
                    .Paragraphs(paraCounter).Range.Select " GRR,7A  
                    Selection.EndKey unit:=wdLine PWciD '!  
                    tc = Replace(rText, vbCr, "") ;> hRj!  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False ;QO3^P}  
                 J([Y4Em5  
                Case "表格标题" rebnV&-  
                    LastTableNo = LastTableNo + 1 ,5V w^@F  
                     {=K);z  
                    If ttNo <> CStr(LastTableNo) Then <<'%2q5  
                            rText = "表" & LastTableNo & ". " & ttString MrjgV+P}[  
                            ErrMsg.AddItem "表格编号错误：" & ParaText abMB-  
                   +FomAs1*f  
                    End If GdN9bA&,  
                     \ SCi\j/a(  
                    '表格名称段落设置 格式：表1. 表格名称 xmVW6 ,<?  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" %#t*3[  
                    xe = Replace(rText, vbCr, "") dCA| )  
                    .Paragraphs(paraCounter).Range.Select 'h}(>%  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 Lb]!TOl  
                    Selection.Range.Text = xe .`p,pt;  
                    Selection.EndKey ~:FF"T>  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False d?:KEi-<7  
                 K@%o$S?>z_  
                Case "表格首行" 3JYhF)G  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" mrmm@?  
                Case "图片标题" OSoIH`tA  
                    LastFigureNo = LastFigureNo + 1 B(|*
u  
                     uA-1VwW+N  
                    If ttNo <> CStr(LastFigureNo) Then |7%has3"  
                            rText = "图" & LastFigureNo & ". " & ttString u,RR|/@  
                            ErrMsg.AddItem "表格编号错误：" & ParaText O06 2c)vIY  
                   .*}!XKp0j  
                    End If Cv[_ N%3[  
                    '图片名称段落设置 格式：图1. 图名称 ,3XlX(P  
                    .Paragraphs(paraCounter).Range.Text = rText R?{f:,3R  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" AQ%B&Q(V1  
                    .Paragraphs(paraCounter).Range.Select =/5^/vwg Y  
                    Selection.EndKey unit:=wdLine elJ?g &"  
                    xe = Replace(rText, vbCr, "") <+y%k~("  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False 5Ve`j,`=<  
                Case "正文" ^4/   
                     '正文名称段落设置 uB=DC'lkg  
                    .Paragraphs(paraCounter).Style = "QLNU正文" eI,'7u4q  
               Case "文献条目" TWSqn'<E  
                    With .Paragraphs(paraCounter) 8k{Kn
H  
                        '.Range.Select E)3Ah!  
                        'Selection.ClearFormatting ygK@\JHn  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” =kzuU1s  
                        .Style = "QLNU参考文献" 5ENU}0W  
                    End With rEHlo[7^
 
               Case "图表注解" <)$&V*\  
                    With .Paragraphs(paraCounter) .;\uh$c  
                        .Range.Font.NameFarEast = "楷体" UuS6y9@v  
                        .Range.Font.NameAscii = "Times New Roman" F(O"S@  
                        .Range.Font.Size = 9 '小5号字 MO^Q 8v  
                         joz0D!-"#  
                        .Alignment = wdAlignParagraphCenter Ztl?*zL  
                        .LeftIndent = 0 &x?m5%^l  
                        .RightIndent = 0 M^ZEAZi  
                        .FirstLineIndent = 0 knn9s0'Q  
                        .LineSpacing = 12 CdZ. T/x  
                        .LineSpacingRule = wdLineSpaceExactly h+rW%`B  
                        .LineUnitAfter = 0 2Tp@;[!3  
                        .LineUnitBefore = 0 gV}c4>v(  
                        .OutlineLevel = wdOutlineLevelBodyText Nl]_Ie6  
                        .PageBreakBefore = False FEH+ PKSc  
                        .RightIndent = 0 ~P7zg!p/q  
                        .WordWrap = True (H^)wDb  
                        .LineUnitAfter = 0.5 0Q7|
2{  
                         E"%dO  
                    End With shgZru  
                Case Else ZH)Jq^^RI  
                    '不作处理 {x,d9I  
            End Select A)#w~X4  
             n\ 'PNB  
            '含有inlineshape的段落处理 |.*nq  
            If ShapeHeight > 30 Then sU(<L0  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 Rp+Lu  
            End If ARUzEo gcf  
             DD5cUlOSu  
            If (ShapeWidth + ShapeHeight) > 150 Then _Z>ny&  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" u>ZH-nw O  
            End If +~K) ~  
             Qz4eQlWhp  
            '段落计数器递 
,ZI#p6  
            paraCounter = paraCounter + 1 B?%e-xV-  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter R XN0v@V  
            Me.txtStatus.Text = ParaText j/t
)=c  
            DoEvents IayF<y,8  
        Loop Tnv,$KOhs  
    End With :F8h}\a*  
     s%QCdU ]  
    msg = "" 1%$t;R  
     |.z4
VJi4  
    For i = 0 To Me.ErrMsg.ListCount - 1 oeYUsnsbi  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) W7W(jMH  
    Next qTrM*/m:]L  
     w=_q<1a  
     5BJn_<  
     .],:pL9d  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg .[r1Qz7G  
    Me.cmdCheck.Enabled = True vA"LV+@  
    Me.txtStatus.Visible = True ){LU>MW{&  
    Me.lbParaType.Visible = False +H:}1sT;n  
     
gy1R.SN  
    bContinue = False ;il+C!6zpf  
End Sub ;V?3Hwl  
LC7%Bfn!  
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) {SF'YbY  
    Dim pTEXT As String CwM1 _3cE  
     -x{@D{Q%  
    pTEXT = ChKRange.Text g@'2 :'\  
     ?8qN8rk^+  
    ParaType = "其它" C2CR#b=)i  
    TitleString = pTEXT }Ug$d>\  
    TitleNo = "N/A" Nwj M=GG  
     Up1n0
  
    shpCounter = ChKRange.InlineShapes.Count G#Kw6
 
    If shpCounter <> 0 Then b@S~ =  
        MaxShpHeight = 0: TotalShpWidth = 0 x4i&;S P 0  
        For i = 1 To shpCounter !hFzIp  
            k = ChKRange.InlineShapes(i).Height j#~ S"t  
            l = ChKRange.InlineShapes(i).Width pocXQEg$]  
            If k > MaxShpHeight Then IyEfisOK?  
                MaxShpHeight = k O7
]kcA  
            End If 2:RFPK  
            TotalShpWidth = TotalShpWidth + l shD4";8*@  
        Next U3jnH  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then Aj8zFt]  
            Exit Sub Quwq_.DU  
        End If 63(XCO  
    End If 4T6: C?V  
     i#NtiZ.t=  
    '空行 Kv)Kn8df  
    If Len(pTEXT) <= 2 Then 5yyc0UG  
        Exit Sub :N!s@6  
    End If 5)Z:J  
     ;}lsD1S:  
         O5MV&Zb(  
    '是否为表格中的文字 Wf3{z D~  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then 1#3eY?Nb  
        ParaType = "表格内容" 0Bt>JbGs4  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) [!C!R$AMa  
        If k = 1 Then b
")O#v.  
            ParaType = "表格首行" $O&N  
        End If _?]W%R|  
        Exit Sub m 7S`u  
    End If nA(5p?D+YB  
     DUSQh+C  
    '例外情况：脚注 l_s#7.9$  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then ~g9~D}48k'  
        ParaType = "脚注" v^J'] p  
        Exit Sub DS+BX`i%#p  
    End If p"7]zq]'  
     ^6gEL~m|]  
    '例外情况：尾注 OHwH(}H?  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then 6i;q=N$'  
        ParaType = "尾注" n%;4Fm
?  
        Exit Sub ~W-l|-eogz  
    End If LSR0yCU  
     `z`=!1  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then f8\DAN  
        ParaType = "页眉页脚" K8
/jfm  
        Exit Sub VnqcpJ  
    End If 'C=(?H)M  
     1+"d-`'Z2O  
     Scug wSB  
    With regEX U'^ G-@  
        .Global = True X(O:y^sX}  
         r0wAh/J|  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" Ng1bjq}E2  
        If regEX.Test(pTEXT) Then *0 vRVlYf  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") <isU D6TC  
            TitleString = regEX.Replace(pTEXT, "$3")  @ EURp  
            TitleNo = regEX.Replace(pTEXT, "$1") H
h%"  
            ParaType = "章" m70AWG  
            Exit Sub g*Pn_Yo[.  
        End If Z`f?7/"B  
         odDVdVx0  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" j<QK1d17  
        If regEX.Test(pTEXT) Then uaYI3w@^  
            ParaType = "一级标题" '[HBKn$`  
            regEX.Execute (pTEXT) 6-~ZOMlV  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") Wv%F^(R7  
            TitleString = regEX.Replace(pTEXT, "$3")  Ci 'V  
            TitleNo = regEX.Replace(pTEXT, "$1") <00nu'Ex1v  
            Exit Sub $VjMd f  
        End If :]4s ;q:m  
         QL @SE@"  
        '全角或半角括号中的数字 /oZvm  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" k&M~yb  
        If regEX.Test(pTEXT) Then 1h|qxYO  
            ParaType = "二级标题" b'C#]DorE  
            regEX.Execute (pTEXT) <I*N=;7  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") p(-EtxP  
            TitleString = regEX.Replace(pTEXT, "$5") V*r/0|vd  
            TitleNo = regEX.Replace(pTEXT, "$2") m7`S@qG  
            Exit Sub *ZV3]ig2$  
        End If Ga+Cb2$  
         Lxn-M5RPQ  
        '阿拉伯数字  1. 2. qfdL *D  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" @#*{* S8  
        If regEX.Test(pTEXT) Then S'`G7ht  
            ParaType = "三级标题" PdEPDyFkh  
            regEX.Execute (pTEXT) pI.~j]*:{  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 z}iz~WZ  
            TitleString = regEX.Replace(pTEXT, "$3") :`K2?;DC8  
            TitleNo = regEX.Replace(pTEXT, "$1") G*=&yx."E  
            Exit Sub M1]w0~G  
        End If Xq_hC"s  
         i03=Af3  
        '全角或半角括号中的阿拉伯数字 P^ht$)Y  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" GDs/U1[*  
        If regEX.Test(pTEXT) Then uP$i2Cy  
            ParaType = "四级标题" 7Le-f  
            regEX.Execute (pTEXT) tJ*/5k &  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") d04gmc&*  
            TitleString = regEX.Replace(pTEXT, "$5") \[|X^8j  
            TitleNo = regEX.Replace(pTEXT, "$2") Xgl %2'  
            Exit Sub 0$NzRPbH  
        End If x?]fHin_  
         Y O|hwhe_  
        '表格名称 P T~F^8,)  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" mML B?I  
        If regEX.Test(pTEXT) Then Lp3pJE  
            ParaType = "表格标题" cuI&Q?+c}  
            regEX.Execute (pTEXT) w#_7,*6]  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3"))  )y6  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) [VL q/lg*  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) W4qnXD1n  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换
;1s;"  
            Exit Sub ~.6% %1?  
        End If }8ESp3~e_  
         T *S)U ;  
        '图片名称 g6x QQ,q=l  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" mKE'l'9A_  
        If regEX.Test(pTEXT) Then lfG',hlI;  
            ParaType = "图片标题" m<LzgX  
            regEX.Execute (pTEXT) EiP N44(  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") xnJ#}-.7  
            TitleString = regEX.Replace(pTEXT, "$3") |9F-ZH~6  
            TitleNo = regEX.Replace(pTEXT, "$1") oCLM'\  
            Exit Sub K47.zu  
        End If aK(e%Ed t"  
         vXZP>  
        '参考文献 [vz2< genn  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 QpiDBJCL  
        If regEX.Test(pTEXT) Then 3g:P>(  
            ParaType = "文献条目" Sj:c {jyJd  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") ,$aqF<+;  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") 5z_Kkf?o  
            Exit Sub xOr"3;^  
        End If 1
NG[   
         xSO5?eR"u  
        prfx = Left(pTEXT, 2) +3M1^:  
        If prfx = "注：" Or prfx = "注:" Then DZ $O%  
            ParaType = "图表注解" 6mIeV0Q'  
            Exit Sub OlptO60{ ]  
        End If Y9 Bk$$#\  
         l^%52m@{  
         _RS CyV  
        ParaType = "正文" /XA*:8~!  
         hhhxsGyv  
    End With \ [M4[Qlq  
End Sub 4#t=%}  
6(7dr?^eGT  
Sub ConvertListToOrdinary() ,&s"f4Mft  
    Dim st As Paragraph o.Bbb=*rZ  
    With ActiveDocument r
[^O 7  
        For i = .Paragraphs.Count To 1 Step -1 [z*1#lj S  
            Set st = .Paragraphs(i) t8;nP[`  
            lst = st.Range.ListFormat.ListString _mQ j
=  
            If lst <> "" Then @*uZ+$  
                st.Range.ListFormat.RemoveNumbers +;*4.}  
                st.Range.InsertBefore lst & " " E(z|LS*3  
            End If &h
.?~Ri  
        Next "Er8RUJA  
    End With /!.]Y8yEH  
    Set st = Nothing FW)~e*@8=  
End Sub =EH/~NGk  
In;P33'p  
Private Sub UserForm_Activate() I)9,  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" a<]vHC7  
    Me.lbTotal.Font.Bold = True arS@l<79  
    Me.txtStatus.Visible = False t\PSB  
    Me.cmdCheck.Enabled = True 6OJhF7\0&  
3[?;s}61  
End Sub {iCX?Sb  
n 4cos  
0W_u"UY$c  
Sub CheckSuperScript() Qs?p)3qp  
    Selection.Find.ClearFormatting =s*4y$%
I  
    Selection.Find.Replacement.ClearFormatting w_;$ahsu~  
    With Selection.Find W6r3v)~  
        .Text = "[【\[［〖](*)[】\]〗］]" +VJyGbOcC  
        .Replacement.Text = "[\1]" (=Oo=8\  
        .Replacement.Font.Superscript = True ynf!1!4  
        '.Replacement.Font.Color = wdColorBlue fN21[Jv3  
        .Forward = True (]VY==t~  
        .Wrap = wdFindContinue _PQk<QZ  
        .FORMAT = True ay`R jT  
        .MatchCase = False Au{b1n  
        .MatchWholeWord = False [\%a7ji#
 
        .MatchByte = False <u1`o`|-  
        .MatchAllWordForms = False R:ecLbC  
        .MatchSoundsLike = False ;TK$?hrv*1  
        .MatchWildcards = True '|*e4n  
    End With JV8*;n%}-  
    Selection.Find.Execute Replace:=wdReplaceAll V}~',o<m  
End Sub J l{My^I5  
sPl3JP&s  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) %sPq*w.  
    bContinue = False x8C *  
    Set regEX = Nothing h0A
%KL  
End Sub *.VNyay  
\/nSRAk  
Sub CeateOrModifyStyle() 91nB?8ZE6,  
' `Tk~?aY  
' ]r%fAmj  
Dim stl As Style *y` (^kyS  
     jLY$P<u?%P  
    Options.Pagination = False Ls3r( Tf  
     3<[q>7X  
    On Error Resume Next d+5v[x~'  
    For Each stl In ActiveDocument.Styles S\GxLW@x  
        stl.Delete 'geN  dx  
    Next ka{!' ^  
    On Error GoTo 0 5`lVC$cP  
     c+O:n:L  
    Set stl = Nothing (^_INy*  
     O%aHQL%Sz  
    DoEvents tO D}&  
    On Error Resume Next r gi4>  
     9
+8N-LZ  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph *+00  
     k!x`cp  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph f]C^{Uk#  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph +tG'  
     M"msLz  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph T-x9IoE  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph 1=z\,~b  
     aZ|S$-}  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph x^cJ~e2  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph L$"pk{'  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph K$s{e0 79  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph 3Tc90p l*t  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph yt
V[x  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph 83aWMmA(1  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph ! t{  
     79k+R9m  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph !9.\A:G  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph <^W5UU#Pg  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph {Q`Q2'@  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph A 6E~GJa  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph [By|3bI  
     H|MAbx 7  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph G,1g~h%I$  
    On Error GoTo 0 _Kh8 <$h  
    DoEvents t1$pl6&,  
     v-"nyy-&Z  
    'BaseStyle IJ:JH=8  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False r Cz,XYV  
    With ActiveDocument.Styles("BaseStyle").Font cFq2 6( e  
        .NameFarEast = "宋体" >
7cDfv"  
        .NameAscii = "Times New Roman" 6(Ntt  
        .NameOther = "宋体"  H =&K_  
        .Size = 10.5 KFa Yn  
        .Bold = wdUndefined LY#V)f  
        .Italic = wdUndefined m%.[|sZ3EM  
        .Subscript = wdUndefined ICc:k%wE7  
        .Subscript = wdUndefined %WX^']p  
         uu>R)iTQ%S  
        .Underline = wdUnderlineNone o,?h}@  
        .UnderlineColor = wdColorAutomatic ; 0M"T[c  
        .StrikeThrough = False ?+%bEZ`  
        .DoubleStrikeThrough = False 7xO~v23oe  
         znIS2{p/`  
        .Outline = False 3;!!`R>e  
        .Emboss = False ^ ]+vtk  
        .Shadow = False w6-<HPW<S  
        .Hidden = False F[)tg#}@G  
        .SmallCaps = False myd:"u,}9  
        .AllCaps = False F ^m;xy  
        .Color = wdColorAutomatic tbfwgK
 
        .Engrave = False ZXIz.GFy+  
        .Scaling = 100 M!%|IKw  
        .Kerning = 1 I= cayR  
        .Animation = wdAnimationNone Sogt?]HB$  
        .DisableCharacterSpaceGrid = False FJ{&R Ld  
        .EmphasisMark = wdEmphasisMarkNone ^V]IPGV  
    End With f|3LeOyz  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat X+N8r^&  
        .LeftIndent = 0 }KNBqPo4B  
        .RightIndent = 0 ^7t1'A8e<  
        .SpaceBefore = 0 6['o^>\}f  
        .SpaceBeforeAuto = False ()n2 KT  
        .SpaceAfter = 0 YOA)paq+  
        .SpaceAfterAuto = False #>sIXY  
         U]9k,#  
        .LineSpacingRule = wdLineSpaceSingle 6!;D],,"#.  
        .Alignment = wdAlignParagraphJustify 6.[3N~pq  
         b?,=|H  
        .WidowControl = False ?N@[R];  
        .KeepWithNext = False 1F+JyZK}w  
        .KeepTogether = False K*p3#iB  
        .PageBreakBefore = False 5{vuN)K3  
        .NoLineNumber = False glBS|b$\:  
         CAN1~  
        .FirstLineIndent = CentimetersToPoints(0) [F{P0({%?  
        .OutlineLevel = wdOutlineLevelBodyText m9-=Y{&/  
        .CharacterUnitLeftIndent = 0 Wdga(8t  
        .CharacterUnitRightIndent = 0 g+(Y)9h&  
        .CharacterUnitFirstLineIndent = 0 {K: ]dO  
        .LineUnitBefore = 0 8,e%=7h_e  
        .LineUnitAfter = 0 x`2du/ C  
        .AutoAdjustRightIndent = True K `A8N  
        .DisableLineHeightGrid = True I\Cg-&e  
         s3K!~v\L]  
        .FarEastLineBreakControl = True
Fr(;C>  
        .WordWrap = True O.8k [Ht  
        .Hyphenation = False k/BlkjlNE  
         VtGZB3  
        .HangingPunctuation = True 8]bLp  
        .HalfWidthPunctuationOnTopOfLine = True "3_GFq  
        .AddSpaceBetweenFarEastAndAlpha = True K <50>uG  
        .AddSpaceBetweenFarEastAndDigit = True k[f_7lJ2  
        .BaseLineAlignment = wdBaselineAlignBaseline WYkh'sv >  
    End With XPnHi@x  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False O]j<$GG!  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll m3&b )O7  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese eF' l_*  
    ActiveDocument.Styles("BaseStyle").NoProofing = False #3A|Z=,
5  
     n?9FJOqi  
    '一级标题题样式 ;Sp/N4+   
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") :-(qqC:  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" $e{}SQ;fW  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False 2R;#XmK
S  
    With ActiveDocument.Styles("QLNU一级标题").Font +% K~HYN  
        .NameFarEast = "黑体" ),^pi?  
        .NameAscii = "Arial Black"  }_7   
        .NameOther = "黑体" .kgt?r  
        .Name = "黑体" .Sv/0&O  
        .Size = 16              '三号 QiJ  
        .Bold = True k-)Ls~#+  
        .Italic = wdUndefined l 3 jlKB  
        .Subscript = wdUndefined 10bv%ZX7  
        .Superscript = wdUndefined }KEr@h,N  
    End With 'q@vTM'-  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat E@AV?@<sc  
         ToD_9i }6  
        .LeftIndent = CentimetersToPoints(0) >Pvz5Hf/wW  
        .RightIndent = CentimetersToPoints(0) %'S
[f  
        .FirstLineIndent = CentimetersToPoints(0) )l`VE_(|  
         h R6Pj"@0  
        .LineSpacingRule = wdLineSpaceSingle &VG  
        .Alignment = wdAlignParagraphCenter e_cK#9+  
         J6<O|ng::  
        .WidowControl = True N:
Ir63X*#  
        .KeepWithNext = True D6C h6i5$  
        .KeepTogether = True QUh` kt(E  
        .OutlineLevel = wdOutlineLevelBodyText k^zU;  
         dyohs_  
        .LineUnitBefore = 0.5 "^Y zHq6  
        .LineUnitAfter = 0.5 WF2t{<]^e  
    End With r@ !  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False uH[:R vC0  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll _1~pG)y$U  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese Q\btl/?  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True wt
i  
    DoEvents @Qp#Tg<'  
     tZu1jBO_Q4  
    '二级 aP"
!}*  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") Hxleh><c-  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" Jje!*?&8X  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False Py?Q::  
    With ActiveDocument.Styles("QLNU二级标题").Font vF/wV'Kk  
        .NameFarEast = "黑体" JU)k+:\a  
        .NameAscii = "Arial Narrow" jvo^I$|2h  
        .NameOther = "黑体" $I4Wl:(~}  
        .Name = "黑体" JY~CMR5#.O  
        .Size = 15        '小三号 m1xR uj]  
        .Bold = False KleiX7  
        .Outline = False o7eWL/1  
        .Italic = wdUndefined #Jr4LQ@A9  
        .Subscript = wdUndefined FPM l;0{  
        .Superscript = wdUndefined tk>J mcTw  
    End With o^r\7g6\  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat 0sB[]E|7[s  
        .LeftIndent = CentimetersToPoints(0) 0s RcA-9  
        .RightIndent = CentimetersToPoints(0) D_`NCnYG  
        .FirstLineIndent = CentimetersToPoints(0) 'rA(+-.M;  
         :H+8E5  
        .LineSpacingRule = wdLineSpaceSingle X} g3[  
        .Alignment = wdAlignParagraphLeft k+Z2)j"  
         z<.? 8bd  
        .WidowControl = True {kr14l*2  
        .KeepWithNext = True g}L>k}I?!W  
        .KeepTogether = True >2X-98,  
        .PageBreakBefore = False cmU>A721  
        .OutlineLevel = wdOutlineLevelBodyText : LT'#Q8  
         & x_ #zN]  
        .LineUnitBefore = 0.5 Z#YNL-x  
        .LineUnitAfter = 0.5 !0F+qzGG7  
         MV07RjeS  
    End With |IS$Om  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False QX-n l~  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll t+{vbS0  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese cS Qb3}a\  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True b`F]oQ_*  
    DoEvents xV=Tmu6l  
     yhs:.h  
    '三级标题样式 ,_Kr}RH  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") hVui.]  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" {Byh:-e<  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False %E"Z &_3{  
    With ActiveDocument.Styles("QLNU三级标题").Font G.PRPl  
        .NameFarEast = "宋体" {w7/M]m-  
        .NameAscii = "Times New Roman" *%E\mu,,c  
        .NameOther = "黑体" ?nq%'<^^  
        .Name = "黑体" E=`/
}2  
        .Size = 14               '四号 H8 xhE~'t  
        .Bold = False P+QL||>L  
        .Outline = False  T;V!>W37  
        .Italic = wdUndefined qdxaP% p2  
        .Subscript = wdUndefined 'g3T'2"`5  
        .Superscript = wdUndefined |"+Ufw^  
    End With q%dbx:y#  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat 9[sOh<W  
        .LeftIndent = CentimetersToPoints(0) l[rK)PM  
        .RightIndent = CentimetersToPoints(0) P%N)]b<c*  
        .FirstLineIndent = CentimetersToPoints(0) +[_3h9BK  
         $g/h=w@  
        .LineSpacingRule = wdLineSpaceSingle NB+/S;`  
        .Alignment = wdAlignParagraphLeft O~Bh(_R&  
         5G$ 5d:[(  
        .WidowControl = True !Lw]aHb  
        .KeepWithNext = True M}Xf<:g)  
        .KeepTogether = True 5HIQw9g6  
        .PageBreakBefore = False NCl@C$W
9q  
        .OutlineLevel = wdOutlineLevelBodyText VKf&}u/  
         W+5. lf=2>  
        .CharacterUnitLeftIndent = 0 5}c8v2R:B  
        .CharacterUnitRightIndent = 0 d[ XMQX  
        .CharacterUnitFirstLineIndent = 2 \f)GW$`  
          G8!|Lo  
        .LineUnitBefore = 0.5 HxcL3Bh$~}  
        .LineUnitAfter = 0 OkfxX&n  
    End With w4M;e;8m[U  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False Qkhor-f0  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll 3rj Kwh7  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese TwI'XMO;A  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True +w"?q'SnF  
    DoEvents U3Z-1G~*r  
     q alrG2  
    '四级标题样式 C\B4Uu6q  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") BRM!g9  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" 4I&Mdt<^D  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False %%z lqd"0  
    With ActiveDocument.Styles("QLNU四级标题").Font 5pK _-:?  
        .NameFarEast = "宋体" l5\
V4  
        .NameAscii = "Times New Roman" `csZ*$ 7  
        .NameOther = "宋体" NRgVNE  
        .Name = "宋体" O%N.;Ve  
        .Size = 12               '小四号 VqxK5  
        .Bold = True ;47z.i&T  
        .Outline = False (.VS&Kv#U  
        .Italic = wdUndefined G=SMz+z  
        .Subscript = wdUndefined !&NrbiuN  
        .Superscript = wdUndefined )a
x>*  
    End With ={+8jQqi1  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat JbQY{z!  
         ;mvVo-r*q  
        .LeftIndent = CentimetersToPoints(0) {8oGWQgrj  
        .RightIndent = CentimetersToPoints(0) * ^V?u  
        .FirstLineIndent = CentimetersToPoints(0) |(.%
`BTD  
         =%7s0l3z  
        .LineSpacingRule = wdLineSpaceSingle ge<D}6GQ  
        .Alignment = wdAlignParagraphLeft F\L!.B  
         ivyaGAF}+o  
        .WidowControl = True _l"nwE
s  
        .KeepWithNext = True RB BmGZ  
        .KeepTogether = True 3!vzkBr  
        .PageBreakBefore = False ,>8w|951'  
        .OutlineLevel = wdOutlineLevelBodyText -4zV yW S<  
         n?;rWq"  
        .CharacterUnitLeftIndent = 0 Ks@cwY  
        .CharacterUnitRightIndent = 0 6U.|0mG[  
        .CharacterUnitFirstLineIndent = 2 ic"8'Rwb  
         Vu=/<;-N  
        .LineUnitBefore = 0 ~E!kx  
        .LineUnitAfter = 0 UGj |)/  
         t,IOq[Vtk  
    End With ra>2<  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False ]5Dh<QY&.  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll _(I6o  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese -6~.;M 5  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True C+[)^2M{  
    DoEvents ]V_A4D f  
     Bv'%$}}-  
    '正文校式 aT( _c/t.  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") Z#bO}!  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" #<ST.f@*  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False +jyGRSo  
    With ActiveDocument.Styles("QLNU正文").Font RS l*u[fB  
         44|tCB`  
        .NameFarEast = "宋体" o]<9wc:FZ  
        .NameAscii = "Times New Roman" B?- poB&  
        .NameOther = "宋体" 4e#$-V   
        .Name = "宋体" u6Lx3  
         !?/:p.  
        .Size = 12               '小四号 32j}ep.*  
         %OHZOs  
        .Bold = wdUndefined 7 )rL<+  
        .Italic = wdUndefined Dad$_%  
        .Subscript = wdUndefined E)ZL+(  
        .Superscript = wdUndefined a@d 15CN  
         X8R`C0   
        .Outline = False aWJj@',_  
        .Emboss = False ,&qC R sw  
        .Shadow = False X2rKH$<g  
        .Hidden = False
i7e6lC  
         "H<us?r{  
        .DisableCharacterSpaceGrid = True u3GBAjPsIk  
    End With y&-QLX L  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat B4wRwrVI>  
         PP>6  
        .LeftIndent = CentimetersToPoints(0) f'H|K+bO  
        .RightIndent = CentimetersToPoints(0) I[d<SHo  
        .FirstLineIndent = CentimetersToPoints(0) n|LpM.  
         %W)pZN}  
        .LineSpacingRule = wdLineSpaceExactly ]bY]YNt{7]  
        .LineSpacing = 20 r[H8;&EL  
        .Alignment = wdAlignParagraphLeft 7.6L1srV  
         rp{|{>'`.q  
        .WidowControl = False q! ?*M?Oz  
        .KeepWithNext = False (Bd'Pj]:  
        .KeepTogether = False dR
nf  
        .PageBreakBefore = False 2vX
$:4  
        .Hyphenation = False Dfa3&##{  
         \Z&Nd;o   
        .OutlineLevel = wdOutlineLevelBodyText 7t:tS7{}  
         'A3skznX{  
       G3%Ju=  
        .CharacterUnitLeftIndent = 0 $|.8@ nj  
        .CharacterUnitRightIndent = 0 lM{fld  
        .CharacterUnitFirstLineIndent = 2 P(TBFu  
         2wHbhW[  
        .LineUnitBefore = 0 +38R#2JV  
        .LineUnitAfter = 0 ;}"Eqq:  
        .SpaceBefore = 0 ?1a9k@[t  
        .SpaceAfter = 0 Xq&BL,lS  
         m<#12#D  
        .DisableLineHeightGrid = True F_jHi0A  
    End With AyOibnoZ2E  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False [!-gb+L  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll vIbM@Y4 '?  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese L/V^#$  
    ActiveDocument.Styles("QLNU正文").NoProofing = True 3m`>D e  
    DoEvents Z>Mv$F"p:  
      7-!n-  
    '图片段落样式 fyA-*)oHv  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") <7`zc7c]#  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" e)g&q'O  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False nGkS
S _X  
    With ActiveDocument.Styles("QLNU图片段落").Font Mjy:k|aY"  
        .Size = 12               '小四号 =4a:)g'  
        .Italic = wdUndefined OmO#} k<  
        .Subscript = wdUndefined \'4~@  
        .Superscript = wdUndefined ?'9IgT[*  
    End With "cP g_-n  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat ]p3f54!  
         L
zNfMvh  
        .LeftIndent = CentimetersToPoints(0) C?T\5}h  
        .RightIndent = CentimetersToPoints(0) *^~ =/:  
        .FirstLineIndent = CentimetersToPoints(0) #c>GjUJ.w  
         W% -XN  
        .LineSpacingRule = wdLineSpaceSingle gtZmBe=  
        .Alignment = wdAlignParagraphCenter d#H9jg15e  
        .KeepWithNext = True |#kY_d)10  
        .OutlineLevel = wdOutlineLevelBodyText ABX%oZ7[|o  
         "8{A4N1B5  
        .CharacterUnitLeftIndent = 0 ]b!n ;{5  
        .CharacterUnitRightIndent = 0 yy7(')wKO  
        .CharacterUnitFirstLineIndent = 0 .'gm2  
         y~@zfJ5/^  
        .LineUnitBefore = 0 ;54NQB3L  
        .LineUnitAfter = 0 dQ.#8o=  
    End With AXW.`~ 4  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False 9ziFjP+1  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll O'mcN*  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese Y}N\|*ye-  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True U`mX f#D  
    DoEvents D5D *$IC  
     "+- 'o+  
     0f.jW O  
    '第X章 Mzp<s<BX  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") {YzCgf  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" yJq<&g  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False "J1A9|  
    With ActiveDocument.Styles("QLNU章节标题").Font yXJ25Axb  
        .NameFarEast = "黑体" L ,dh$F   
        .NameAscii = "Arial Black" 89g a+#7  
        .NameOther = "Arial Black" YcN|L&R.  
        .Name = "黑体" -HG.GA  
        .Size = 16  MK=oGzK  
        .Bold = True nQjpJ /=  
        .UnderlineColor = wdColorAutomatic .qO4ceW2-~  
        .Outline = False -}|L<~  
        .Italic = wdUndefined :^v Q 4/,  
        .Subscript = wdUndefined ehr-o7](  
        .Superscript = wdUndefined % D  
        .Scaling = 100 1 _?8OU  
        .DisableCharacterSpaceGrid = True 6FA+qYSV  
    End With EIg~^xK  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat Qs6Vu)U=  
        .LineSpacingRule = wdLineSpaceSingle <$0is:]  
        .Alignment = wdAlignParagraphCenter Og/aTR<;=  
        .WidowControl = True |Ev|A9J!  
        .KeepWithNext = True 'z(Y9%+a  
        .KeepTogether = True q[,p#uJ]  
        .PageBreakBefore = True 3SP";3 +  
        .OutlineLevel = wdOutlineLevelBodyText gwRB6m$  
         2@
<_,'  
        .LeftIndent = CentimetersToPoints(0) m-
vn5OX  
        .RightIndent = CentimetersToPoints(0) Yi*F;V  
        .FirstLineIndent = CentimetersToPoints(0) yx :^*/  
         Mh.1KI[t  
        .CharacterUnitLeftIndent = 0 K8;SE!  
        .CharacterUnitRightIndent = 0 1^![8>u"  
        .CharacterUnitFirstLineIndent = 0 <\~v$
=G  
         >.d/@3 '  
        .LineUnitBefore = 1 ,PTM'O@aU#  
        .LineUnitAfter = 0.5 ,X4+i8Yc  
         %o0b~R  
        .AutoAdjustRightIndent = False ahg:mlaob  
        .DisableLineHeightGrid = True h*k V@Dc  
        .FarEastLineBreakControl = True IR6W'vA  
        .WordWrap = True ~oa}gJl:}-  
    End With c\{N:S>  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False 6dRhK+|  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll Q&eyqk   
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese sFTAE1|  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True )8@ -  
    DoEvents ?
,>3uD#  
     olE(#}7V  
    '表格标题 zjQ746<&)i  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") dFy$w=  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" @M5+12FYt  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False Q[biy{(b8  
    With ActiveDocument.Styles("QLNU表格标题").Font \9)5b8  
        .NameFarEast = "楷体" i6'=]f'{  
        .NameAscii = "Arial" p"ZvA^d\  
        .Name = "楷体" <l{oE?N  
        .Size = 10.5 EAGvP&~P  
        .Bold = True 4XjwU`  
        .Underline = wdUnderlineNone [a2]_]E%  
        .Italic = wdUndefined =:gKh  
        .Subscript = wdUndefined .h-mFcjy  
        .Superscript = wdUndefined | ys5.|  
        .Color = wdColorAutomatic aDF@AS  
    End With iBSM \ n  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat +'<PW+U$  
         u2 s  
        .LineSpacingRule = wdLineSpaceSingle #'_# t/u  
        .Alignment = wdAlignParagraphCenter da7"Q{f+  
        .KeepWithNext = True @N4_){s*  
        .KeepTogether = True $[>{s9E  
        .OutlineLevel = wdOutlineLevelBodyText hCcI]#S&  
         nK1eh@a9Qv  
        .LeftIndent = CentimetersToPoints(0) gwoe1:F:J  
        .RightIndent = CentimetersToPoints(0) WigtTAh4  
        .FirstLineIndent = CentimetersToPoints(0) NPT-d  
         _O`p(6  
        .CharacterUnitLeftIndent = 0 z1mB Hz6  
        .CharacterUnitRightIndent = 0 PR %)3  
        .CharacterUnitFirstLineIndent = 0 J\L'HIs  
         Z7a@$n3h  
        .LineUnitBefore = 1 i1vz{Tc  
        .LineUnitAfter = 0 0)ohab  
         _QL|pLf-  
    End With V*j l  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False .<%tu 0  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll ba|xf@=&  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese &n6{wtBP  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True IA2VesHb  
    DoEvents D$hQ-K  
lYG`)#T  
    '表格首行 _z@/~M(  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") L|CdTRgRCB  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False ;llPM`)  
    With ActiveDocument.Styles("QLNU表格首行").Font v  -}f P  
        .NameFarEast = "楷体" atTR6%!6  
        .NameAscii = "Times New Roman" 8;@y\0  
        .Name = "楷体" P0l fK}  
        .Size = 9 "cKD#  
        .Bold = True ?+t;\   
        .Underline = wdUnderlineNone \f9WpAY  
        .Italic = wdUndefined 8RMM97@1Q  
        .Subscript = wdUndefined >dl5^  
        .Superscript = wdUndefined dk|LC-]`A  
    End With lL)f-
8DX  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat T+Z[&|  
        .LineSpacingRule = wdLineSpaceSingle %R0 Wq4}  
        .Alignment = wdAlignParagraphCenter /ox7$|Jyr  
         ieZ$@3#&z  
        .LeftIndent = CentimetersToPoints(0) NUV">i.(  
        .RightIndent = CentimetersToPoints(0) $6rm;UH  
        .FirstLineIndent = CentimetersToPoints(0) B$
eM  
         Q,KNZxT, q  
         tvI<Why\p  
        .CharacterUnitLeftIndent = -0.5 OcTWq  
        .CharacterUnitRightIndent = -0.5 w2 Y%yjCV  
        .CharacterUnitFirstLineIndent = -0.5 k&$ov  
         os/h~,=  
        .LineUnitBefore = 0 Hr?lRaV  
        .LineUnitAfter = 0 z%8`F%2  
        .SpaceBefore = 0 # e?B  
        .SpaceAfter = 0 ^Arv6kD,  
         COh#/-`\1  
    End With C+ NN.5No  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False tbS hSbj  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll W=+n|1  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese {-4+=7Sg1  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True yB UQ!4e  
    DoEvents Bb/if:XS  
L7rgkxI7k*  
    '表格内容 RE>Q5#
|c  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") \3JCFor/  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False 1Wpu  
    With ActiveDocument.Styles("QLNU表格内容").Font X30tO>  
        .NameFarEast = "楷体" Tbi?AJa}  
        .NameAscii = "Times New Roman" Fv^zSoi2  
        .Name = "楷体" qp})4XTv  
        .Size = 9 *yhA8fJ  
        .Bold = False 4Zbn8GpC  
        .Underline = wdUnderlineNone jIs>>  
        .Italic = wdUndefined v"k ?e  
        .Subscript = wdUndefined !Cr3>tA  
        .Superscript = wdUndefined ojM'8z0Hn  
    End With 5#.m 'a)  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat <:9ts@B  
        .LineSpacingRule = wdLineSpaceSingle ^~~Rto)Y  
        .Alignment = wdAlignParagraphCenter mw"FQ?bJ  
         //7YtK6  
        .LeftIndent = CentimetersToPoints(0) w-K A~  
        .RightIndent = CentimetersToPoints(0) ]?y~;-^  
        .FirstLineIndent = CentimetersToPoints(0)  S_P&Fv  
         OJ&'Z}LB  
        .CharacterUnitLeftIndent = -0.5 I$; `^z  
        .CharacterUnitRightIndent = -0.5 V4,Gt]4  
        .CharacterUnitFirstLineIndent = -0.5 cGlN*GJ*H  
        .LineUnitBefore = 0 <m-(B"FX  
        .LineUnitAfter = 0 )\1>)BJq  
        .SpaceBefore = 0 ##jJaSxG  
        .SpaceAfter = 0 2I
B{FO/  
    End With PuNL%D  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False <x}wy+SG  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll 5A0]+)5E8  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese `etw[#~N  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True %~Yo{4mHs  
    DoEvents t%qep|  
clvg5{^q[  
    '图片标题 4S26TgY  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ^Q8yb*MN  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" o/{`\4  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False oMbd1uus  
    With ActiveDocument.Styles("QLNU图片标题").Font s<YN*~  
        .NameFarEast = "楷体" ,JwX*L<:  
        .NameAscii = "Times New Roman" NY.Cr.}  
        .Name = "楷体" Ey=2zo^F  
        .Size = 10.5 & #PPXwmR  
        .Bold = True MLd;UHU  
        .Underline = wdUnderlineNone *u+DAg'&  
        .Italic = wdUndefined r&LZH.$oh  
        .Subscript = wdUndefined |4@cX<d.  
        .Superscript = wdUndefined 4/(#masIL  
        .Outline = False 0D,@^vw bK  
        .Shadow = False U"G
xXrl  
        .Color = wdColorAutomatic A%D'Z85 -  
    End With u"0{) ,  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat B?j t?  
        .LineSpacingRule = wdLineSpaceSingle kY]"3a  
        .Alignment = wdAlignParagraphCenter i@rt
t M  
         Y<T0yl?  
        .KeepWithNext = wdUndefined m*y&z'e\  
        .KeepTogether = True p/Ul[7A4e  
        .OutlineLevel = wdOutlineLevelBodyText :E")Zw&sW3  
         u9"kF  
        .LeftIndent = CentimetersToPoints(0) @aS)=|Ls\  
        .RightIndent = CentimetersToPoints(0) SJiQg-+<Uf  
        .FirstLineIndent = CentimetersToPoints(0) JBpV'_"]  
         1V2]@VQF  
        .CharacterUnitLeftIndent = 0 c,1 G+.
 
        .CharacterUnitRightIndent = 0 7!J-/#!  
        .CharacterUnitFirstLineIndent = 0 M(C">L]8  
         0nt@}\j  
        .LineUnitBefore = 0 "1a;);S=*)  
        .LineUnitAfter = 0 \TP$2i%W  
    End With 9`f@"%h  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False -64lf-<  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll V(`
]hH0;T  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese (.#nl}fA  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True g (w/  
    DoEvents ~R|9|k  
J1w[gf]J  
    '目录项 n-9xfn0U~#  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") 2;Z 0p PR&  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" 3_@G{O)e  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False \ /sF:~=  
    With ActiveDocument.Styles("QLNU目录项").Font J b|mXNcL  
        .NameFarEast = "黑体" ~CJYQFt  
        .NameAscii = "Times New Roman" 0Mq 6yu^  
        .NameOther = "Times New Roman" o+R. u}|  
        .Name = "黑体" 34]%d<
;A  
        .Size = 10.5 G)K9la<p  
        .Bold = False 6vZt43"m?\  
        .Italic = wdUndefined 9`E-dr9  
        .Underline = wdUnderlineNone i|[S5QXCh  
        .Color = wdColorAutomatic L7[X|zmy*x  
        .Superscript = wdUndefined [y$j9  
        .Subscript = wdUndefined 7~ILRj5Nq  
    End With ?~]>H A:  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat OC`QD5  
         8*"rZh}'  
        .LineSpacingRule = wdLineSpaceSingle W|)(|W  
        .Alignment = wdAlignParagraphLeft ir"* iL=  
         1w6.  
        .WidowControl = False 6l=M;B7:i  
        .KeepWithNext = False 2%*|fF}I  
        .KeepTogether = False (''$'5~  
        .PageBreakBefore = False vatx+)  
        .NoLineNumber = False 5@""_n&FV  
        .OutlineLevel = wdOutlineLevelBodyText C=M?  
         CVi<~7Am\  
        .LeftIndent = CentimetersToPoints(0) mr
X}\p  
        .RightIndent = CentimetersToPoints(0) MEDskvBG  
        .FirstLineIndent = CentimetersToPoints(0) ) +*@AME  
         ^S3A10f,  
        .CharacterUnitLeftIndent = 0 @$_rEdwi  
        .CharacterUnitRightIndent = 0 ~V|KT}H  
        .CharacterUnitFirstLineIndent = 0 _GRv  
         g9! dpP  
        .LineUnitBefore = 0 :r[W'h_%  
        .LineUnitAfter = 0 pvI&-D #}  
    End With Lp~ c  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False >E{#HPpBi  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll "F04c|oR<X  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot &<m WA]cAL  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese C[^a/P`i  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True v UJ sFR  
    DoEvents I(F1S,7  
     ((n5';|N  
    '参考文献 69[w/\  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") 7?)m(CFy  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" $K;_Wf  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False !Q\X)C  
    With ActiveDocument.Styles("QLNU参考文献").Font '
[0 3L9  
        .NameFarEast = "宋体" g(M(Hn7  
        .NameAscii = "Times New Roman" (d1V1t2r6  
        .NameOther = "Times New Roman" I*%&)Hj~  
        .Name = "Times New Roman" /o~ @VF:  
        .Size = 12 06Sqn3MB  
        .Bold = False b49|4   
        .Italic = wdUndefined t^dakL  
        .Subscript = wdUndefined 3Ro7M=]  
        .Superscript = wdUndefined InTKdr^ P  
        .Underline = wdUnderlineNone CAcOWwDm  
        .UnderlineColor = wdColorAutomatic O7E;W| ]  
        .Color = wdColorAutomatic a^(S!I  
        .Engrave = False 8'>.#vyMGv  
    End With oo"JMD)  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat i,\t]EJA
U  
         hnlU,p&y3  
        .LineSpacingRule = wdLineSpaceExactly zkw 0jX~  
        .LineSpacing = 16 :6qU SE  
        .Alignment = wdAlignParagraphLeft wpJ^}+kF  
        .WidowControl = False
'Sm/t/g"|  
        .KeepWithNext = False ^2P;CAjj-  
        .KeepTogether = False T749@!v`z  
        .PageBreakBefore = False bi,rMgW  
        .OutlineLevel = wdOutlineLevelBodyText k B$lkl\C  
        
5LnB]dW  
        .LeftIndent = CentimetersToPoints(0) 47$-5k30
 
        .RightIndent = CentimetersToPoints(0) Va&KIHw  
        .FirstLineIndent = CentimetersToPoints(0) $=QNGC2+  
         N$L& |4r  
        .CharacterUnitLeftIndent = 0 zhD`\&G.  
        .CharacterUnitRightIndent = 0 bt.K<Y0  
        .CharacterUnitFirstLineIndent = -2 \["1N-q b  
         ZzwZ,(  
        .LineUnitBefore = 0 Fvcq^uZ  
        .LineUnitAfter = 0 \L&qfMjW"Z  
        .SpaceBefore = 0 7~QwlU3n<F  
        .SpaceAfter = 0 ~6pCO
S}  
         WcQ ZFtW  
    End With 9;'>\ImI  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False D <$j`r  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll rQAbN
6  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS u&Ie%@:h9R  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True E}E7VQjM  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese :X]lXock
0  
    DoEvents 4c9-[KKCV  
p2M?pV  
    ' ZnxOa  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") .XZ 71E  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" `3H?*\<(
 
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False \3 O-}n1S  
    With ActiveDocument.Styles("QLNU论文题目").Font j.e`i p  
        .NameFarEast = "黑体" Bil;@,Z#  
        .NameAscii = "Arial Black" Qt)7m
f  
        .NameOther = "Arial Black" C[HE4xF6  
        .Name = "Arial Black" 4 g/<).1<b  
        .Size = 16 H znI R  
        .Bold = False w 96j,rEC  
        .Italic = wdUndefined NiU tH  
        .Superscript = wdUndefined gDjd{+LUo  
        .Subscript = wdUndefined %u<&^8EL+#  
        .Underline = wdUnderlineNone ?.|wfBI  
        .UnderlineColor = wdColorAutomatic 1-ndJ@Wlz  
        .Color = wdColorAutomatic w2RESpi  
F\YcSDM  
    End With =[O<.'aG-  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat gGceK^#  
        .LineSpacingRule = wdLineSpaceSingle FlM.Du  
        .Alignment = wdAlignParagraphCenter mDe+ M{/  
        .WidowControl = True jtlDSf#  
        .KeepWithNext = True 5Od(J5`  
        .KeepTogether = True co(fGp#!  
        .PageBreakBefore = True _dB0rsCnU%  
        .NoLineNumber = False xw/h~:NT  
        .OutlineLevel = wdOutlineLevelBodyText V9);kD  
         O=9VX  
        .LeftIndent = CentimetersToPoints(0) +5seT}h  
        .RightIndent = CentimetersToPoints(0) B_6v'=7]  
        .FirstLineIndent = CentimetersToPoints(0) !S$oaCxM  
         *U5>j#,  
        .CharacterUnitLeftIndent = 0 KD<; ?oN<O  
        .CharacterUnitRightIndent = 0 z;Gbqr?{{  
        .CharacterUnitFirstLineIndent = 0 \3@2rW"5  
         8EVF<@{]  
        .LineUnitBefore = 1 Z"PDOwj5  
        .LineUnitAfter = 1 N1B$G  
         HtS1N}@  
        .BaseLineAlignment = wdBaselineAlignAuto h)aWerzL  
    End With lFzQG:k@  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False /s-jR]#VA  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll 4jue_jsle  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS cC(ubUR  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True {{#a%O  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese /ltP@*bo  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True b{ ubp  
    DoEvents ML9T(th6v  
     tkUW)ScJ  
    '中文摘要 NUO,"Bqq
 
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") n=Z[w5  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" ?
geWR_Z  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False 2e D\_IW  
    With ActiveDocument.Styles("QLNU中文摘要").Font jwtXI\@MS  
        .NameFarEast = "宋体" :@z5& h  
        .NameAscii = "Times New Roman" fQ?n(
 
        .NameOther = "Times New Roman" +{ ,w#@  
        .Name = "Times New Roman" <o"D/<XnB3  
        .Size = 12 M<|~MR  
        .Bold = wdUndefined hr 6LB&d_  
        .Superscript = wdUndefined lpX p)r+  
        .Subscript = wdUndefined \!4ghev3  
        .Italic = wdUndefined T(fR/~:z?  
        .Underline = wdUnderlineNone LQ&d|giA  
        .UnderlineColor = wdColorAutomatic D aqy+:  
        .Color = wdColorAutomatic 4<K ,w{
I  
    End With {/[?YTDU  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat Wy0a2Ve  
        .LineSpacingRule = wdLineSpaceExactly j#.-MfB  
        .LineSpacing = 20 @a7(*
<".  
        .Alignment = wdAlignParagraphLeft >8{`q!=|~  
         SS<+fWXE  
        .WidowControl = False x4 A TK  
        .KeepWithNext = False 2+G:04eS,e  
        .KeepTogether = True "Ee/q:`  
        .PageBreakBefore = False IQ27FV|3  
        .NoLineNumber = False $dWl A<u  
        .OutlineLevel = wdOutlineLevelBodyText ]$` s}BN  
         sou$qKoG01  
        .LeftIndent = CentimetersToPoints(0) =.=. \K  
        .RightIndent = CentimetersToPoints(0) 7;#dX~>@{  
        .FirstLineIndent = CentimetersToPoints(0) xF:poi  
         1rzq$,O  
        .CharacterUnitLeftIndent = 0 C">=2OO  
        .CharacterUnitRightIndent = 0 "Jv,QTIcS  
        .CharacterUnitFirstLineIndent = 2 w[$Wpae  
        .LineUnitBefore = 0 `peJ s~V  
        .LineUnitAfter = 0 :Y)kKq d  
         FlA$G3  
    End With ,uD*FSp>  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False 5 /eS1NJ@  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll 9gIJX?  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS 1Qc(<gM  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True Y=wP3q  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese "x)pp  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True gQcr'[[a  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete yK2*~T,6@  
    DoEvents DF&jZ[##  
     F|3FvxA  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") rF j)5~  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" s }R:
q  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False < c4RmnA  
    With ActiveDocument.Styles("QLNU英文标题").Font 4 d1Y\  
        .NameFarEast = "黑体" \gW\Sa ^  
        .NameAscii = "Arial Narrow" T`2fPxM:cZ  
        .Name = "Arial Narrow" S:GUR6g8D  
        .Size = 16 k:uuJ|  
        .Bold = True uB)6\fkTB  
        .Bold = wdUndefined R?e7#HsJ  
        .Superscript = wdUndefined 9j>sRE1  
        .Subscript = wdUndefined RU ,N_GV
 
        .Italic = wdUndefined NbK?Dg8WJG  
         ~uD;_Y=u)r  
        .Underline = wdUnderlineNone laRKt"A  
        .UnderlineColor = wdColorAutomatic :+V1682u  
        .StrikeThrough = False {XUfxNDf  
        .DoubleStrikeThrough = False e4_aKuA  
    End With 0 VgnN
  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat pQ2)M8 gf  
        .LineSpacingRule = wdLineSpaceSingle
&oEq&  
        .Alignment = wdAlignParagraphCenter Q*J ~wuE2  
        .WidowControl = True N?<@o2{  
        .KeepWithNext = False NS/L! "g  
        .KeepTogether = False YKS'#F2  
        .PageBreakBefore = False (Vv[  
        .NoLineNumber = False (P!reYyM  
        .FirstLineIndent = CentimetersToPoints(0) 6+d"3-R.  
        .OutlineLevel = wdOutlineLevelBodyText qYrGe  
         igbb=@Q
BJ  
        .LeftIndent = CentimetersToPoints(0) ;[\2/$-  
        .RightIndent = CentimetersToPoints(0) zSM7x  
        .FirstLineIndent = CentimetersToPoints(0) "5DAGMU  
         r.G/f{=<@  
        .CharacterUnitLeftIndent = 0 aFm]?75  
        .CharacterUnitRightIndent = 0 .j'IYlv/P  
        .CharacterUnitFirstLineIndent = 0 :?XHZ
  
         rL+n$p X-  
        .LineUnitBefore = 1 m ?tnk?oX  
        .LineUnitAfter = 1 9P>S[=  
         Vv"wf;#  
    End With h.+&=s!Nsy  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False =$z$VbBv  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll _e@qv;*  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS zinl.8Uk  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True 7JwWM2N?V  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese (7#lN  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True v i.AzO  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete <TROs!x$a  
    DoEvents ~ M>z O#U6  
 O,,n  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") Xm[r#IA  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" jW 0z|jr  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False _G*x :<  
    With ActiveDocument.Styles("QLNU英文摘要").Font XGl13@=O  
        .NameFarEast = "宋体" |+=:x]#vV  
        .NameAscii = "Arial" pnw4QQ9  
        .NameOther = "Arial" x$b[m20  
        .Name = "Arial" <T% hfW
 
        .Size = 12 z00:59M4  
        .Bold = wdUndefined nv[Sb%/  
        .Italic = wdUndefined =gv/9ce)3  
        .Superscript = wdUndefined /!uBk3x:  
        .Subscript = wdUndefined (cew:z H  
    End With *A9{H>Vq  
     9: |K]y  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat %v)'`|i  
         ^
znv[  
        .LineSpacingRule = wdLineSpaceExactly O]LuL&=s y  
        .LineSpacing = 20 d/zX
%  
         k{w^MOHNg  
        .Alignment = wdAlignParagraphJustify l@F e(^5E  
         Zdg{{|mm  
        .WidowControl = False oK1[_ko|  
        .KeepWithNext = False 2o5<nGn  
        .KeepTogether = False 
c]
0  
        .PageBreakBefore = False -
&$%m)wN  
        .NoLineNumber = False RV*Zi\-X  
         `Qk R  
        .OutlineLevel = wdOutlineLevelBodyText K?m:.ZM  
         )Ua2x@j'C@  
        .LeftIndent = CentimetersToPoints(0) v#2qwd3x  
        .RightIndent = CentimetersToPoints(0) BW\5RIWwE5  
        .FirstLineIndent = CentimetersToPoints(0) p00Bg o  
         m@2xC,@  
        .CharacterUnitLeftIndent = 0 67:<X(u+!  
        .CharacterUnitRightIndent = 0 Ln%_8yth  
        .CharacterUnitFirstLineIndent = 2 %((3'le  
         ' >3RZ&O  
        .LineUnitBefore = 0 @Lv_\^2/}  
        .LineUnitAfter = 1 ~u&O  
         ~\IDg/9Cj  
    End With CN>};>WlG  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False Q&'Nr3H#tZ  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll %}5"5\Zz  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS r.5Js*VX!  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False "J:NW_U  
    DoEvents VC tiZ4  
%+"AF+c3r  
    Options.Pagination = True M!DoR6  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." fw};.M  
    DoEvents l"!;Vkg.5  
    ActiveDocument.Repaginate Kqu7DZ+W  
Ph_m'fbf  
End Sub Kd1\D!#!6  
WbzL!zLd!  
)Bvu[rUy  

姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 emO!6]0gJ  
k_ `S[  

引用

引用第20楼newport93于06-14-2010 13:47发表的  :  Bqgw%_  
Nh-*Gt?  
老五，I 服了U。 P=z':4,M}  
5toNEDN  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 Ob+c*@KiW  

xGPv3TLH^