Dim bContinue As Boolean }iKjef#J  
>niv>+!N  
Dim regEX As New RegExp 8D)1ZUx7`  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 sf2%WPK  
8/>.g.]  
Dim LastTitle0String As String, LastTitle0No As Long ;l!<A  
Dim LastTitle1String As String, LastTitle1No As Long m OUO)[6y  
Dim LastTitle2String As String, LastTitle2No As Long zp8x/,gwF  
Dim LastTitle3String As String, LastTitle3No As Long V$hL\`e  
Dim LastTitle4String As String, LastTitle4No As Long }o:LwxNO  
Dim LastTitle5String As String, LastTitle5No As Long #,z-Pj?O!  
Dim LastTabelString As String, LastTableNo As Long cVx SO`jZw  
Dim LastFigureString As String, LastFigureNo As Long KMi$0+  
j
z" >Kh.}  
Dim strSeperator As String AwG0E`SU  
[;ZCq!)>  
Sub ConvertWidth(fTEXT As String, rText As String) 8i[TeW"  
        Selection.Find.ClearFormatting ]^"Lc~w8&  
        Selection.Find.Replacement.ClearFormatting @H`jDaB9  
        Selection.Find.Wrap = wdFindContinue P0m9($JBD  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText |*t2IVwX  
        DoEvents S~:uOm2t\  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True zlEI_th:~  
End Sub g "Du]_,  
yQ/O[(  
Sub ClearDomain() X8m-5(uW  
        With Selection.Find VLm\PS   
            .ClearFormatting [4#HuO@h  
            .Replacement.ClearFormatting GkU_01C  
            .Wrap = wdFindContinue &UH0Tw4   
            Me.txtStatus.Text = "清除所有域代码" q`p0ul,n  
            DoEvents me2vR#  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False 4eB'mPor  
        End With @@*x/"GJG  
End Sub 4)e1K/PJ)  
K@= u F1?  
Private Sub cmdCheck_Click() n`Z}tQ%)o  
    bContinue = True 82,^Pu  
    Dim NoSeries1(1 To 16) As String X[.%[G|oj}  
    Dim NoSeries2(1 To 16) As String \Ebh6SRp\  
    Dim NoSeries5(1 To 16) As String 9 RDs`>v  
    Dim NoSeriesRM(1 To 16) As String By6O@ .\V  
    Dim paraTotal As Long, ParaText As String 1P"7.{  
    Dim ttString As String, ttNo As String Zocuc"j  
     AsE77AUA  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long #EUT"^:d  
J\+fkN<.  
    Me.txtStatus.Visible = True wA$?e}  
    Me.lbParaType.Visible = True qZ!kVrmg&  
    Me.cmdCheck.Enabled = False r4P%.YO+X  
     ng+sK  
     T&[6  
     R5e[cC8o .  
     L@O
>;zp;  
    Dim ParaType As String, rText As String mQ1  
     C<teZz8/w  
    Selection.WholeStory ;!f~  
    Selection.NoProofing = True H^kOwmSzh  
     c&bhb[  
    tm1 = Now KC}G_"f.$  
     *-=/" m  
        ActiveWindow.View.Type = wdNormalView jo&j<3i  
     J=Kv-@I>E  
    NoSeries1(1) = "一" f4pIF"U9>  
    NoSeries1(2) = "二" . t[u_tBL  
    NoSeries1(3) = "三" %pjY^tM/  
    NoSeries1(4) = "四" =LLpJ+  
    NoSeries1(5) = "五" F1BvDplQ>G  
    NoSeries1(6) = "六" fLs>|Rh  
    NoSeries1(7) = "七" fUf1G{4  
    NoSeries1(8) = "八" Vq0X:<9  
    NoSeries1(9) = "九" IN3-ZNx  
    NoSeries1(10) = "十" ZhCd**  
    NoSeries1(11) = "十一" N<SW $ o  
    NoSeries1(12) = "十二" pmBN?<  
    NoSeries1(13) = "十三" ! x
M=7Q k  
    NoSeries1(14) = "十四" j_,/U^Ws|f  
    NoSeries1(15) = "十五" !x-__[#  
    NoSeries1(16) = "十六" I*%3E.Z@g  
     =_=%1rI~  
    NoSeries2(1) = "㈠" OP+*%$wR  
    NoSeries2(2) = "㈡" K
Kk~vwW  
    NoSeries2(3) = "㈢" axmq/8X  
    NoSeries2(4) = "㈣" u\ 7Y _`8  
    NoSeries2(5) = "㈤" Z{vc6oj  
    NoSeries2(6) = "㈥" 1v:Ql\^cT  
    NoSeries2(7) = "㈦" Q^va+O  
    NoSeries2(8) = "㈧" TI8\qI W  
    NoSeries2(9) = "㈨" 6t7FklM%  
    NoSeries2(10) = "㈩" .Bkfe{^  
     lS Y "  
    NoSeries5(1) = "①" ZFMO;'m&  
    NoSeries5(1) = "②" L *\[;.mk  
    NoSeries5(3) = "③" 'V%w{ZiiV  
    NoSeries5(4) = "④"
%?n=In(F  
    NoSeries5(5) = "⑤" CC^]Y.9  
    NoSeries5(6) = "⑥" k(Xs&f `  
    NoSeries5(7) = "⑦" C+t3a@&|  
    NoSeries5(8) = "⑧" >y8>OJ?A7-  
    NoSeries5(9) = "⑨" Y.I~.66s  
    NoSeries5(10) = "⑩" 4
r_*: $g  
     4 ;_g9]  
     y(<{ e~  
    NoSeriesRM(1) = "I" e%pohHI  
    NoSeriesRM(2) = "II" ~m<K5K6 V  
    NoSeriesRM(3) = "III" V?yQm4  
    NoSeriesRM(4) = "IV" =U~53Tg  
    NoSeriesRM(5) = "V" H.iCYD_=  
    NoSeriesRM(6) = "VI" &V 7J5~_  
    NoSeriesRM(7) = "VII"  g4q{ ]  
    NoSeriesRM(8) = "VIII" f{2UL ?y  
    NoSeriesRM(9) = "IX" vbJdhaf  
    NoSeriesRM(10) = "X" <v9IK$J  
    NoSeriesRM(11) = "XI" #Q sJr_=  
    NoSeriesRM(12) = "XII" %`pi*/(  
    NoSeriesRM(13) = "XIII" xKBi".wA  
    NoSeriesRM(14) = "XIV" u
= dj3q  
    NoSeriesRM(15) = "XV" Kn$t_7AF^  
    NoSeriesRM(16) = "XVI" W2-l_{  
     5q@s6_"{  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) *>?N>f"  
     G)YmaHeI;[  
    If i = vbNo Then PdVY tK%  
        Exit Sub ncadVheKt  
    End If pvl];w  
     ;\}dQsX  
    If Me.chkSuper.Value Then !L;_ f'\)6  
        Me.txtStatus.Text = "检查修改所有的上标格式" E8PwA.  
     VTR4uT-  
        CheckSuperScript lFf>z}eLy  
         mEYfsO  
    End If au1 9Q*r9  
     Ln6emXqw  
    If Me.chkStyle.Value Then `0%;Gz%}  
        Me.txtStatus.Text = "设置样式，请稍候...." "4xo,JUf  
        DoEvents 0x5\{f  
        CeateOrModifyStyle XBX`L"0  
    End If ).GM0-y  
     4 /{pz$  
     Ie!">8."  
     lE% KzX?&  
    ClearDomain :55a9d1bL  
         Chl^LEN:  
     t c.|mIvw  
     13 L&f\b  
    If Me.chkLIST.Value Then 9ec ?L  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" jQ7;-9/~N  
     >q?{'#i /  
        ConvertListToOrdinary %VB
4/~ "  
    End If h3E}Sa(MQ:  
      +fM8  
     ;~r-P$kCY  
    Dim pType As String, trimpTEXT As String  7Oe$Ou  
    If Me.chkNum.Value = True Then AW\uE[kg  
        Me.txtStatus.Text = "转换全角数字形式为半角" }s?w-u+(c6  
        ConvertWidth "１", "1" SN")u  
        DoEvents VDv.N@)7  
        ConvertWidth "２", "2" |1H9,:*%  
        DoEvents \c{sG\ >  
        ConvertWidth "３", "3" 28M^F~0  
        DoEvents o3Yb2Nw  
        ConvertWidth "４", "4" /+B6oE>8  
        DoEvents _~tF2`,Y_p  
        ConvertWidth "５", "5" H(Wiy@cJn  
        DoEvents kz}Bc
F  
        ConvertWidth "６", "6" 416}# Mk  
        DoEvents X!6dg.n5  
        ConvertWidth "７", "7" s+_8U}R  
        DoEvents }LS.bQKqi,  
        ConvertWidth "８", "8" 8[,R4@  
        DoEvents -]}#Z:&  
        ConvertWidth "９", "9" 6qmV/DL  
        DoEvents P//nYPyzg  
        ConvertWidth "０", "0" XySkm2y  
        DoEvents %OHWGac"i  
        ConvertWidth "ａ", "a" (bsywM  
        DoEvents pk'd&.  
        ConvertWidth "ｂ", "b" I  m-M2n  
        DoEvents #a@jt  
        ConvertWidth "ｃ", "c" %j@/Tx/  
        DoEvents L Y4bn)Qf  
        ConvertWidth "ｄ", "d" 0iC5,  
        DoEvents cGo_qR/B(>  
        ConvertWidth "ｅ", "e" e]>=;Zn  
        DoEvents P()n=&XO6  
        ConvertWidth "ｆ", "f" n|T$3j)  
        DoEvents _IEbRVpb  
        ConvertWidth "ｇ", "g" %&H^UxC  
        DoEvents y+$vHnS/jC  
        ConvertWidth "ｈ", "h" @6|0H`kv  
        DoEvents @\gE{;a8  
        ConvertWidth "ｉ", "i" )@U~Li/+  
        DoEvents pUmT?N!  
        ConvertWidth "ｊ", "j" %AqI'ObC  
        DoEvents /g%RIzgW  
        ConvertWidth "ｋ", "k" E0HE@pqr  
        DoEvents vMX\q  
        ConvertWidth "ｌ", "l" /Dc54Un  
        DoEvents +B8oW3v# )  
        ConvertWidth "ｍ", "m" n(LO`
{  
        DoEvents U7/ =|Z  
        ConvertWidth "ｎ", "n" ;B2&#kot7  
        ConvertWidth "ｏ", "o" _ qOynW  
        ConvertWidth "ｐ", "p"
Nf* .r  
        ConvertWidth "ｑ", "q" ro?.w  
        ConvertWidth "ｒ", "r" =Gj~:|;$  
        ConvertWidth "ｓ", "s" F@ pf._c  
        ConvertWidth "ｔ", "t" pHoxw|'Y  
        ConvertWidth "ｕ", "u" RWu< dY#ym  
        ConvertWidth "ｖ", "v" |;aZi?Ek[  
        ConvertWidth "ｗ", "w" {C?$osrr  
        ConvertWidth "ｘ", "x" .L^j:2(L  
        ConvertWidth "ｙ", "y" jp}.W  
        ConvertWidth "ｚ", "z" N0$ uB"  
        ConvertWidth "Ａ", "A" w(S&X"~  
        ConvertWidth "Ｂ", "B" =^
Ws/k  
        ConvertWidth "Ｃ", "C" uk WL3  
        ConvertWidth "Ｄ", "D" 7)O+s/.P)  
        ConvertWidth "Ｅ", "E" uF3{FYM{I  
        ConvertWidth "Ｆ", "F" Q$:,N=%  
        ConvertWidth "Ｇ", "G" B k\KG  
        ConvertWidth "Ｈ", "H" iu{;|E  
        ConvertWidth "Ｉ", "I" GHLFn~z@XJ  
        ConvertWidth "Ｊ", "J" q~iEw#0-L  
        ConvertWidth "Ｋ", "K" AK'3N1l`  
        ConvertWidth "Ｌ", "L" BuAzO>=  
        ConvertWidth "Ｍ", "M" bhg6p$411
 
        ConvertWidth "Ｎ", "N" F#Pn]  
        ConvertWidth "Ｏ", "O" QCDica `+*  
        ConvertWidth "Ｐ", "P" 4/\Ynb.L  
        ConvertWidth "Ｑ", "Q" Je"XIhBr  
        ConvertWidth "Ｒ", "R" o[JZ>nm  
        ConvertWidth "Ｓ", "S" &\5bo=5V  
        ConvertWidth "Ｔ", "T" N|"q6M!ZL  
        ConvertWidth "Ｕ", "U" FncP,F$8   
        ConvertWidth "Ｖ", "V" vd^Z^cpip  
        ConvertWidth "Ｗ", "W" E.N>,N  
        ConvertWidth "Ｘ", "X" "5$p=|  
        ConvertWidth "Ｙ", "Y" ub1~+T'O
 
        ConvertWidth "Ｚ", "Z" o,_F;ZhE  
        ConvertWidth "^l", "^p" #/9Y}2G|]  
        ConvertWidth "（", "(" <WmjjD  
        ConvertWidth "）", ")" <jFov`^  
     F3q<j$y  
    End If *yZta:(w-W  
.*595SuF  
    With ActiveDocument dpge:Qhr  
        Dim tbl As Table MVQ6I/EA4  
        For Each tbl In .Tables Kx[+$Qt  
            tbl.Rows.Alignment = wdAlignRowCenter {@x-T  
            tbl.Range.Font.NameFarEast = "楷体" zmuRn4Nv  
            tbl.Range.Font.NameAscii = "Times New Roman" i *4v!(E  
            tbl.Range.Font.Size = 10.5 1S+T:n  
        Next XmVst*2=  
        Set tbl = Nothing \ %]lsml  
    End With Y>E` 7n  
     .!2 u#A  
     #jxPh!%9  
    With ActiveDocument 41.xi9V2  
         .bV^u  
        For i = 1 To .TablesOfContents.Count Q>\DM'{:4  
            .TablesOfContents(i).Delete v13\y^t  
        Next FW3E UC)P  
         d7&d FvG  
         6_rgRo&  
         R;U4a2~  
        paraTotal = .Paragraphs.Count e8_EB/)_Z  
        paraCounter = 1 j~+(#|  
         I3Z\]BI  
        LastTitle0No = 0 `x#}co  
        LastTitle1No = 0 i-WP#\s  
        LastTitle2No = 0 |_s,]:  
        LastTitle3No = 0 C[
KMaB  
        LastTitle4No = 0 (VCJn<@@  
        LastTableNo = 0 .DnG}884
 
        LastFigureNo = 0 }a UQ#x  
         9&kPcFX B  
        Dim Sec As Long (<Cg|*s  
         XdlA)0S)  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) pfl^GgP#  
        If Sec = 0 Then tK+JmbB\  
            Exit Sub [z_ztK1  
        End If #{k+^7aQ  
         M0vX9;J  
        k = 0 \Q|,0`  
        Do While (paraCounter < paraTotal) And bContinue u]9 #d^%V  
            k = k + 1 d}?KPJ{  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then ,N_V(Cx5pt  
                Exit Do Jfv'M<I  
            End If X g7xy>{]  
            paraCounter = paraCounter + 1 6>&(OV  
            If k Mod 20 = 0 Then "~Kph0-  
                Me.lbCounter.Caption = paraCounter PRyzvc~  
                DoEvents |XQ\c.A  
            End If ns/*WH&[x  
        Loop m^RO*n.  
         `4Z:qh+fJ  
         *cXi*7|=  
        Do While (paraCounter < paraTotal) And bContinue 0; w 4WJJ  
             z} r  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) Y2ON!Rno  
            ShapeHeight = 0 hDoFF8)c  
            ShapeWidth = 0 <O-R  
           \SgBI/L^  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth 4`V&Yqwl  
             j,i) ecZ>  
            Select Case ParaType J*%IvRg  
                Case "【】表格内容" "9vL+Hh  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" Gp?pSI,b.t  
                Case "章" &`]T#">  
                    LastTitle0No = LastTitle0No + 1 vy-(:aH7U  
                    '新一章开始，复位其下属标题编号 :UKc:JVNM  
                    LastTitle1No = 0 X}QcXc.d  
                    LastTitle2No = 0 }U}ppq0Eo  
                    LastTitle3No = 0 z-]ND  
                    LastTitle4No = 0 j39"iAn  
                     ]_!NmB_3  
                    k = Val(ttNo) 931GJA~g  
                    If k = 0 Then '非数字编号章节 w&hCtc  
                        If ttNo <> NoSeries1(LastTitle0No) Then ]}&HvrOld  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString d,'gh4C  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText ?aB%h |VA  
                        End If xA*6Z)Y  
                    Else x],XiSyp  
                        If Val(ttNo) <> LastTitle0No Then SFEDR?s  
                            rText = "第" & LastTitle0No & ttString )T slI  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText 80gOh:  
                        End If 0}:Wh&g  
                         5VVU%STP  
                    End If ET*:iioP  
                     uXA}" f2  
                    '章段落设置 7~N4~KAUS  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 &I{5f-o *  
                    .Paragraphs(paraCounter).Style = "QLNU章节" ( YZ2&  
                    .Paragraphs(paraCounter).Range.Select Oq}7q!H  
                    Selection.EndKey unit:=wdLine t="nmjQs  
                    tc = Replace(rText, vbCr, "") -
" r4  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False c4Q%MRR  
                Case "一级标题" AOqL&z
 
                    LastTitle1No = LastTitle1No + 1 VhnIr#L+  
                    '新一级标题开始，复位其下属标题编号 FId,/la  
                    LastTitle2No = 0  Lo)T  
                    LastTitle3No = 0 (II#9n)  
                    LastTitle4No = 0 :yw(Co]f  
                     PyQ\O*  
                    If ttNo <> NoSeries1(LastTitle1No) Then 0d0ga^O  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString 4zOFu/l6R  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText &g8Xjx&zj  
                    End If ']^]z".H  
                   #>z!ns  
                     |@'K]
$vZ*  
                    '一级标题段落设置  格式：一、标题内容 "{bc2#F  
                    .Paragraphs(paraCounter).Range.Text = rText I34 1s0  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" \^'-=8<*>  
                    .Paragraphs(paraCounter).Range.Select ),%@X  
                    Selection.EndKey unit:=wdLine Iy4REP|  
                    tc = Replace(rText, vbCr, "") T$DFTr\\  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False LS-_GslE7\  
                Case "二级标题" *
u[@C  
                    LastTitle2No = LastTitle2No + 1 %?/vC 6  
                    '新二级标题开始，复位其下属标题编号 e!k4Ij-]  
                    LastTitle3No = 0 (2RuQgO  
                    LastTitle4No = 0 V72?E%
d0  
                     u@Z6)r'  
                    If ttNo <> NoSeries1(LastTitle2No) Then NXS$w{^  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString /p}pdXS  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText vZqW,GDfXo  
                    End If P+e{,~o  
                     :hf%6N='kI  
                    '二级标题段落设置 格式：(一)、标题内容 au+:-Khm  
                    .Paragraphs(paraCounter).Range.Text = rText wr>6Go%  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" OSh'b$Z  
                     Psf{~ (Ii  
                    .Paragraphs(paraCounter).Range.Select :$XlYJrjK  
                    Selection.EndKey unit:=wdLine 0@ vzQ$  
                    tc = Replace(rText, vbCr, "") cw_B^f8^  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False DoN]v  
                 tI.ho  
                Case "三级标题" eQfXUpk3@I  
                    LastTitle3No = LastTitle3No + 1 u0ZMrIJ  
                    '新三级标题开始，复位其下属标题编号 3?+t%_[  
                    LastTitle4No = 0 ,RAP_I!_x  
                     *m'&<pg]X  
                    If Val(ttNo) <> LastTitle3No Then Ty;^3  
                            rText = LastTitle3No & ". " & ttString XHJ/211  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText 95/;II  
                         $P #KL//  
                    End If J0t_wMJa  
                    '三级标题段落设置 格式：1. 标题内容 9'vf2) "  
                    .Paragraphs(paraCounter).Range.Text = rText ]4FAbY2'h  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" Iq {/-,v  
                    .Paragraphs(paraCounter).Range.Select 3]&le[.  
                    Selection.EndKey unit:=wdLine ZlQ&m
  
                    tc = Replace(rText, vbCr, "") xaq/L:I<  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False UnZc9 6  
                Case "四级标题" 3CSw
cD  
                    LastTitle4No = LastTitle4No + 1 M pz9}[`3g  
                     SE M-t   
                    If Val(ttNo) <> LastTitle4No Then W$z^U)|t  
                            rText = "(" & LastTitle4No & "). " & ttString G2=dq  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText cA90FqUH  
                     _?Ly7*UML  
                    End If GN+,9  
                    '四级标题段落设置 格式：(1). 标题内容 B+c,3@)x  
                    .Paragraphs(paraCounter).Range.Text = rText g6][N{xW0  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" =ATQ2\T$m  
                    .Paragraphs(paraCounter).Range.Select ra
MtTL+  
                    Selection.EndKey unit:=wdLine 0OtUb:8LX  
                    tc = Replace(rText, vbCr, "") qzu(4*Gk6  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False )L"J?wTe  
                 b: I0Zv6  
                Case "表格标题" 1 a%1C`d  
                    LastTableNo = LastTableNo + 1 P;IM -]  
                     |uJjO>8]|  
                    If ttNo <> CStr(LastTableNo) Then !H9zd\wc  
                            rText = "表" & LastTableNo & ". " & ttString (|tR>R.Wxg  
                            ErrMsg.AddItem "表格编号错误：" & ParaText !Okl3 !f
C  
                   DKNcp8<J  
                    End If [|C  
                     M'NO M>8  
                    '表格名称段落设置 格式：表1. 表格名称 &5%~Qw..  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" E7<l^/<2S+  
                    xe = Replace(rText, vbCr, "") P (fWJ
VF7  
                    .Paragraphs(paraCounter).Range.Select ndvt $*  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 >5t]Zlb`  
                    Selection.Range.Text = xe "DecS:\  
                    Selection.EndKey MJn=  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False N=@8~{V.  
                 - C8VDjf9  
                Case "表格首行" ^>y|{;`  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" PoRP]Q*n  
                Case "图片标题" "2"2qZ*h}  
                    LastFigureNo = LastFigureNo + 1 0p*
Oxsy  
                     'SWK{t \4  
                    If ttNo <> CStr(LastFigureNo) Then AbX#wpp!  
                            rText = "图" & LastFigureNo & ". " & ttString :{-/b  
                            ErrMsg.AddItem "表格编号错误：" & ParaText v#5hK<9  
                   !]8QOn7=  
                    End If r;"Qu  
                    '图片名称段落设置 格式：图1. 图名称 ji5Nq +S2  
                    .Paragraphs(paraCounter).Range.Text = rText
J[\8:qE  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" fz+dOIU3\L  
                    .Paragraphs(paraCounter).Range.Select zpcO7AY~  
                    Selection.EndKey unit:=wdLine C&.Q|S2_  
                    xe = Replace(rText, vbCr, "") rFW,x_*_vP  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False IL%P\Zs  
                Case "正文" 6""i<oR  
                     '正文名称段落设置  {C%f~j  
                    .Paragraphs(paraCounter).Style = "QLNU正文" {@tO9pc`8  
               Case "文献条目" ]C-a[  
                    With .Paragraphs(paraCounter)  qt.=  
                        '.Range.Select PD^Cj?wm  
                        'Selection.ClearFormatting t YhNr  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” a0`(*#P  
                        .Style = "QLNU参考文献" 1E$^ul-v  
                    End With lQ2vQz-J  
               Case "图表注解" H_u%e*W  
                    With .Paragraphs(paraCounter) /!hxW}>^  
                        .Range.Font.NameFarEast = "楷体" Ol8Yf.e_  
                        .Range.Font.NameAscii = "Times New Roman" T7(U6yN  
                        .Range.Font.Size = 9 '小5号字 f!B\X*|  
                         Z..s /K{  
                        .Alignment = wdAlignParagraphCenter PJ)d5D%T  
                        .LeftIndent = 0 V$ "]f6  
                        .RightIndent = 0 c <X( S  
                        .FirstLineIndent = 0 MX|@
x~9W  
                        .LineSpacing = 12 ERfSJ  
                        .LineSpacingRule = wdLineSpaceExactly OXV9D:bIa  
                        .LineUnitAfter = 0 5^
N`
~  
                        .LineUnitBefore = 0 ;jmT5XzL  
                        .OutlineLevel = wdOutlineLevelBodyText 22EI`}"J  
                        .PageBreakBefore = False u)Vn7 zh  
                        .RightIndent = 0
8HWEObRY  
                        .WordWrap = True 6
MQyr2c  
                        .LineUnitAfter = 0.5 NLev(B:OQH  
                         3AcDW6x|  
                    End With C]krJse@  
                Case Else R]d934s  
                    '不作处理 2=n,{rkmj%  
            End Select yk2XfY  
             <07~EP  
            '含有inlineshape的段落处理 75c\.=G9q<  
            If ShapeHeight > 30 Then \IOF 9)F  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 $$T a  
            End If X$SXDb~G  
             DV!0zzJ  
            If (ShapeWidth + ShapeHeight) > 150 Then "l(<<Ha/  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" y# IUDnRJ  
            End If wf~n>e^e  
             *nHkK!d<N  
            '段落计数器递 ca:Vdrw`  
            paraCounter = paraCounter + 1 l0%7u  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter n?v$C:jLN  
            Me.txtStatus.Text = ParaText zy8D&7Ytf  
            DoEvents ]ia{N  
        Loop ~AcjB(  
    End With d.y-R#F_]  
     W"D>>]$|u  
    msg = "" &M#}?@!C  
     dF+:9iiAm  
    For i = 0 To Me.ErrMsg.ListCount - 1 7fW$jiw  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) HQc^ybX5  
    Next w#>CYP`0k6  
     Y>CZ  
     )yS S2  
     $T*g@]   
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg 2))pB/  
    Me.cmdCheck.Enabled = True 0w6"p>s>c  
    Me.txtStatus.Visible = True ^B(:Hv}G(:  
    Me.lbParaType.Visible = False JiX-t\V~  
     |1m2h]];Q  
    bContinue = False o
ox;8d4}y  
End Sub !Ic~_7"  
xp]_>WGq  
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) LP}'upv  
    Dim pTEXT As String t'HrI-x  
     jjg[v""3|  
    pTEXT = ChKRange.Text S"R(6:hkgu  
     PC& (1kJ  
    ParaType = "其它" 4z^VwKH\j  
    TitleString = pTEXT (_Rl f$D  
    TitleNo = "N/A" :?\Je+iA  
     !PEP`wEKdp  
    shpCounter = ChKRange.InlineShapes.Count mHc5NkvQC  
    If shpCounter <> 0 Then X7)B)r}AG  
        MaxShpHeight = 0: TotalShpWidth = 0 nO8e'&|  
        For i = 1 To shpCounter 'c$)}R I7  
            k = ChKRange.InlineShapes(i).Height xsx0Zo
vhY  
            l = ChKRange.InlineShapes(i).Width P2 z~U  
            If k > MaxShpHeight Then G=m18Bv{  
                MaxShpHeight = k `m-7L  
            End If KK/siG~O  
            TotalShpWidth = TotalShpWidth + l T{lK$j  
        Next ?b?YiK&yz  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then F2',3  
            Exit Sub er2#h  
        End If o_.`&Q6n  
    End If Gyy?cn6_  
      SB^xq  
    '空行 <1kK@m -E  
    If Len(pTEXT) <= 2 Then h:r:qk  
        Exit Sub YvFt*t
 
    End If 35~1$uRA  
     G@,XUP  
         #$u7:p [t  
    '是否为表格中的文字 i5czm?x  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then Wtp;se@#  
        ParaType = "表格内容" (q=),3/<pU  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) f<Yg_TG  
        If k = 1 Then {s?x NU  
            ParaType = "表格首行" nOU.=N v`  
        End If :\|<7n   
        Exit Sub ;2547b[]  
    End If 1j!{?t?  
     {BD G;e  
    '例外情况：脚注 !InC8+be  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then 8LGNV&Edg  
        ParaType = "脚注" *;~i\M9_  
        Exit Sub ?Nl@K/  
    End If l'Uj"9r,  
     KOhIk*AC'  
    '例外情况：尾注 y2>AbrJ  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then (CY#B
%*
 
        ParaType = "尾注" R(GL{Dh}L  
        Exit Sub 17!<8vIV$C  
    End If p9~$}!ua  
     +w(B9rH  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then l !JTM  
        ParaType = "页眉页脚"  o=C'u  
        Exit Sub OTWp,$YA=  
    End If 2E@y0[C?  
     2h`Tn{&1/  
     i0&W}Bb'  
    With regEX eJ60@ N\A  
        .Global = True ZP"Xn/L  
         jJe?pT]o  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" 8g3?@i  
        If regEX.Test(pTEXT) Then J|DY /v  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") Di&XDW/  
            TitleString = regEX.Replace(pTEXT, "$3") R- 1C#
R[  
            TitleNo = regEX.Replace(pTEXT, "$1") KKNQ+'?  
            ParaType = "章" BSyS DM  
            Exit Sub > |(L3UA9  
        End If \s,~|0_V  
         "?s  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" Eu$hC]w  
        If regEX.Test(pTEXT) Then mN1n/LNi  
            ParaType = "一级标题" RFLw)IWkL_  
            regEX.Execute (pTEXT) bA/'IF+  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") hfRxZ>O2  
            TitleString = regEX.Replace(pTEXT, "$3") +
sx$%N  
            TitleNo = regEX.Replace(pTEXT, "$1") 6Vu)   
            Exit Sub i: VMCNH  
        End If A0H6}53, $  
         e9rgJJ  
        '全角或半角括号中的数字 `4a9<bG  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" Dn+hI_"#_  
        If regEX.Test(pTEXT) Then !5>PZ{J  
            ParaType = "二级标题" dg@'5.ApPu  
            regEX.Execute (pTEXT) uQz!of%x  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") VH<-||X/4  
            TitleString = regEX.Replace(pTEXT, "$5") 4.q^r]m*  
            TitleNo = regEX.Replace(pTEXT, "$2") K8fC>iNbH  
            Exit Sub *Jg&:(#}<J  
        End If noO#o+ Jg#  
         >4nQ&b.u  
        '阿拉伯数字  1. 2. '_FxxLAO  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" Eb9n6Fg  
        If regEX.Test(pTEXT) Then b}Xh|0`b+  
            ParaType = "三级标题" 1krSX2L  
            regEX.Execute (pTEXT) Tvd: P^C  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 |_%q@EID  
            TitleString = regEX.Replace(pTEXT, "$3") GyQvodqD  
            TitleNo = regEX.Replace(pTEXT, "$1")
Z8\/Fb  
            Exit Sub HD>UTX`&mc  
        End If &Yd6w}8  
         Gw+pjSJL`  
        '全角或半角括号中的阿拉伯数字 C\}M_MD  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" r)[Xzn   
        If regEX.Test(pTEXT) Then F??gVa aj  
            ParaType = "四级标题" Er<!8;{?  
            regEX.Execute (pTEXT) @$5=4HA  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") ?~tx@k$;Es  
            TitleString = regEX.Replace(pTEXT, "$5") [s~6,w

z  
            TitleNo = regEX.Replace(pTEXT, "$2") ?I;PJj  
            Exit Sub 6K5mMu#4  
        End If TECp!`)j"  
         wfQImCZ>l  
        '表格名称 3?<LWrhV3  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" &|fWtl;43  
        If regEX.Test(pTEXT) Then mtVoA8(6  
            ParaType = "表格标题" O@`KGZEPY  
            regEX.Execute (pTEXT) *)s^+F 0  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) j -7aJj%  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) 4 z,/0  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) aJ J 6 3aJ  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 F+<Z%KuCu  
            Exit Sub MCl-er"]D  
        End If 4,?WNPqo  
         pLtK
:Z  
        '图片名称 %(:{TR  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$"
SL?YU(a  
        If regEX.Test(pTEXT) Then fY!9i5@'  
            ParaType = "图片标题" P}"uC `036  
            regEX.Execute (pTEXT) * 5(%'3
 
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") c2:oM<6|  
            TitleString = regEX.Replace(pTEXT, "$3") Y {|is2M9'  
            TitleNo = regEX.Replace(pTEXT, "$1") ev1:0P  
            Exit Sub n {..Q,z  
        End If  !x EGN@  
         m`Pk)c0  
        '参考文献 \/R  $p  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 wnH
fjF  
        If regEX.Test(pTEXT) Then H}gp`YW:4  
            ParaType = "文献条目" Te7xj8<  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") ;e6-*  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") b8|<O:]Hp  
            Exit Sub RSup_4A  
        End If S%df'bh$  
         fxc?+<P  
        prfx = Left(pTEXT, 2) L`"V_ "Q#0  
        If prfx = "注：" Or prfx = "注:" Then EAK[2?CY  
            ParaType = "图表注解" o~2 6<Lk  
            Exit Sub kQO-V 4z!  
        End If Koc5~qUY]  
         2Wr^#PY60  
         05o<fa2HE  
        ParaType = "正文" jt3=<&*Bm  
         RhkTN'vO  
    End With 'q1cc5(ueV  
End Sub "&@{f:+  
I8{ mkh  
Sub ConvertListToOrdinary() z+<ofZ(.  
    Dim st As Paragraph M[ ON2P;  
    With ActiveDocument o&>aYlXd  
        For i = .Paragraphs.Count To 1 Step -1 K7w U tg  
            Set st = .Paragraphs(i) xpBQ(6Y  
            lst = st.Range.ListFormat.ListString UHBMl>~z  
            If lst <> "" Then ZNJ<@K-  
                st.Range.ListFormat.RemoveNumbers u]&+TR  
                st.Range.InsertBefore lst & " " >O~   
            End If 6dhzx; A  
        Next ,91n  
    End With hp}JKj@  
    Set st = Nothing ]E#W[6'VtB  
End Sub 'ji|'x T  
=4g PoS  
Private Sub UserForm_Activate() a7jE*%f9  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" xMFEeSzl>S  
    Me.lbTotal.Font.Bold = True 3e)$<e  
    Me.txtStatus.Visible = False 2W}jbOy  
    Me.cmdCheck.Enabled = True g1)ZjABV  
)oy+-1dE  
End Sub piXL6V@c  
FA{(gib@9  
+QeA*L$~  
Sub CheckSuperScript() ;Swy5z0=ro  
    Selection.Find.ClearFormatting D&G^|: G  
    Selection.Find.Replacement.ClearFormatting uj+{ tc  
    With Selection.Find +-qa7  
        .Text = "[【\[［〖](*)[】\]〗］]" |g1Pr9{wy  
        .Replacement.Text = "[\1]" 6_>(9&g`zV  
        .Replacement.Font.Superscript = True 9s?gI4XN  
        '.Replacement.Font.Color = wdColorBlue p;~oIy\,  
        .Forward = True me$nP}%C&  
        .Wrap = wdFindContinue 'u6n,yRm  
        .FORMAT = True '~zi~Q7M  
        .MatchCase = False d2Ta&Md  
        .MatchWholeWord = False %uvA3N>  
        .MatchByte = False $J#Z`%B^y  
        .MatchAllWordForms = False \4>& zb4  
        .MatchSoundsLike = False 2Q;rSe._`  
        .MatchWildcards = True e<+b?@}=B  
    End With A+( + PfU  
    Selection.Find.Execute Replace:=wdReplaceAll x|)pZa  
End Sub =ba1::18  
YmLpGqNv  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) mQ2=t%  
    bContinue = False &FWz7O>1  
    Set regEX = Nothing ub MN  
End Sub <TgV
U.*  
?*'0;K13  
Sub CeateOrModifyStyle() NKl`IiGv  
' A[m<xtm5K  
' 9(lcQuE9  
Dim stl As Style s01=C3  
     $Ww.^ym  
    Options.Pagination = False <7`U1DR=  
     FSYs1Li_C  
    On Error Resume Next Hp[i8PJ  
    For Each stl In ActiveDocument.Styles M9?f`9  
        stl.Delete ,JfP$HJ  
    Next Tt4Q|"CJA  
    On Error GoTo 0 Q+s2S>U{v  
     -FW
^fGS+  
    Set stl = Nothing sK8sxy  
     ~vcua@  
    DoEvents nK#%Od{GF
 
    On Error Resume Next z
=Xh  
     <MoyL1=  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph $.4N@=s,?c  
     mSGpxZ,IE  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph dtig_s,)D  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph X2'XbG3  
     yJMo/!DZ  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph M"6J"s
 
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph @TJ  
     <,Mf[R2N>  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph 0bOT&Z^  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph ~cV";cD5  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph uw(Ml=  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph #44}Snz  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph zF(abQ0  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph ,s/laZ)V  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph tTT :r),}$  
     t+D= @"BZP  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph "^wIixOH5  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph 1p=bpJC  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph YKzfI9Y  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph yw{r:fy  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph 8Yo;oHk7  
     1'|g
xYT  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph / #zs  
    On Error GoTo 0 B qLL]%F  
    DoEvents Y$s4 *)%  
     gH*(1*  
    'BaseStyle dFmpx%+p  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False 2Sk"S/4}Z  
    With ActiveDocument.Styles("BaseStyle").Font J[c`Qq:&e  
        .NameFarEast = "宋体" 5..YC=_20  
        .NameAscii = "Times New Roman" #Y'ewu;qJ  
        .NameOther = "宋体" 35L\  
        .Size = 10.5 i`=%
X{9  
        .Bold = wdUndefined yT[=!M  
        .Italic = wdUndefined Hub K  
        .Subscript = wdUndefined I]BhkJ  
        .Subscript = wdUndefined 1\nzfxx
 
         t:b}Mo0  
        .Underline = wdUnderlineNone @mb'!r  
        .UnderlineColor = wdColorAutomatic ^fmuBe}d{  
        .StrikeThrough = False |Qn>K   
        .DoubleStrikeThrough = False eKf5orN  
         Z+=-)&L  
        .Outline = False w+a5/i@  
        .Emboss = False 4j(`koX_  
        .Shadow = False ElKMd  
        .Hidden = False PbFbihg  
        .SmallCaps = False p3e=~{v*  
        .AllCaps = False #/HZ[Vw  
        .Color = wdColorAutomatic T8d=@8g,%  
        .Engrave = False 4/OmgBo'  
        .Scaling = 100 _%#Uh#7P$  
        .Kerning = 1 F<Xtp8  
        .Animation = wdAnimationNone n%Oq"`w4  
        .DisableCharacterSpaceGrid = False [3x},KM  
        .EmphasisMark = wdEmphasisMarkNone }KT$J G?  
    End With $F NH:r<  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat %,e,KcP'  
        .LeftIndent = 0 E&f/*V
^  
        .RightIndent = 0 Lcf?VV}  
        .SpaceBefore = 0 x=kJlGT  
        .SpaceBeforeAuto = False <'\!  
        .SpaceAfter = 0 8fktk?|  
        .SpaceAfterAuto = False {a15s6'd  
         4*HBCzr7[  
        .LineSpacingRule = wdLineSpaceSingle Y*IKPnPot2  
        .Alignment = wdAlignParagraphJustify d
x+xs&  
         n3j_=(  
        .WidowControl = False
'S*]JZ1  
        .KeepWithNext = False =`UFg> -  
        .KeepTogether = False !M(SEIc4A  
        .PageBreakBefore = False *X^C+F  
        .NoLineNumber = False J P^\  
         ct<X
KqbI  
        .FirstLineIndent = CentimetersToPoints(0) x,|fb
lQz  
        .OutlineLevel = wdOutlineLevelBodyText 6C/Pu!Sx?  
        .CharacterUnitLeftIndent = 0 2*a9mi  
        .CharacterUnitRightIndent = 0 VF g(:  
        .CharacterUnitFirstLineIndent = 0 mP's4  
        .LineUnitBefore = 0 aU_l"+5>vq  
        .LineUnitAfter = 0 \fp'=&tp~a  
        .AutoAdjustRightIndent = True t+
\<i8  
        .DisableLineHeightGrid = True 2/\I/QkTs  
         A4Q{(z-?  
        .FarEastLineBreakControl = True sE ^YOT<  
        .WordWrap = True ta^$&$l  
        .Hyphenation = False 0.2stBw  
         ^f9@=I  
        .HangingPunctuation = True xzOn[.Fi  
        .HalfWidthPunctuationOnTopOfLine = True MhJA8|B6|  
        .AddSpaceBetweenFarEastAndAlpha = True ]c bXI  
        .AddSpaceBetweenFarEastAndDigit = True ~+V$0Q;L  
        .BaseLineAlignment = wdBaselineAlignBaseline "c.-`1,t  
    End With F>GPi!O  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False 'H#0-V"=  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll hBVm;`  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese 5.D0 1?k  
    ActiveDocument.Styles("BaseStyle").NoProofing = False +\?+
cXSc  
     <[u(il  
    '一级标题题样式 GVfRy@7n  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")  mA"[x_  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" w9n0p0xr<  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False 1(RRjT9  
    With ActiveDocument.Styles("QLNU一级标题").Font Ya(3Z_f+VZ  
        .NameFarEast = "黑体" J'tJY% `  
        .NameAscii = "Arial Black" &Pc.[k  
        .NameOther = "黑体" v*c"SI=@M=  
        .Name = "黑体" <":83RCS  
        .Size = 16              '三号 <PM.4B@  
        .Bold = True 8kvA^r`  
        .Italic = wdUndefined <j/wK]d*/  
        .Subscript = wdUndefined fxmY,{{  
        .Superscript = wdUndefined ?*ZQ:jH  
    End With 6ND*L
0  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat 3Tp8t6*nL  
         1Zi` \N4T  
        .LeftIndent = CentimetersToPoints(0) ]2YC7  
        .RightIndent = CentimetersToPoints(0) !;P[Y"h@r  
        .FirstLineIndent = CentimetersToPoints(0) \HG4i/V:h  
         l/"!}wF  
        .LineSpacingRule = wdLineSpaceSingle 2 /*z5  
        .Alignment = wdAlignParagraphCenter @Ae&1O;Z h  
         %LD(S*>7  
        .WidowControl = True 'Gamb+[  
        .KeepWithNext = True ^bfU>02Q6p  
        .KeepTogether = True PZO.$'L|7  
        .OutlineLevel = wdOutlineLevelBodyText v`G} sgn  
         5evk
_f  
        .LineUnitBefore = 0.5 y&bZai8WlE  
        .LineUnitAfter = 0.5 ,~DKU*A_~  
    End With L,ax^]  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False A/"2a55  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll 2%9L'-  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese pred{HEye  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True /Ak\Q5 O'3  
    DoEvents )rlkQ'DN  
     Db;>MWt+e  
    '二级 rY8(` a  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") H9(UzyN>i  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" |o*qZ}6  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False rBi6AM/  
    With ActiveDocument.Styles("QLNU二级标题").Font 6q!Q(_  
        .NameFarEast = "黑体"
d
BS_N/  
        .NameAscii = "Arial Narrow" 2#
#mVEo.(  
        .NameOther = "黑体" ] SLeWs  
        .Name = "黑体" G9GHBwT  
        .Size = 15        '小三号 yu&muCA  
        .Bold = False 6y57m;JW/  
        .Outline = False s^4wn:*$zd  
        .Italic = wdUndefined $!TMS&Wk  
        .Subscript = wdUndefined o*2Mjd]r  
        .Superscript = wdUndefined teC/Uf5  
    End With (44L8)I.D  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat Z9q4W:jyS  
        .LeftIndent = CentimetersToPoints(0) ` N R,8F  
        .RightIndent = CentimetersToPoints(0) #2$wI^O  
        .FirstLineIndent = CentimetersToPoints(0) S%B56|'  
         s,kY12<7m  
        .LineSpacingRule = wdLineSpaceSingle B-$zioZ  
        .Alignment = wdAlignParagraphLeft 7G*rxn"d  
         E9Dy)f]#W  
        .WidowControl = True W~a
|AU8]C  
        .KeepWithNext = True s@GE(Pu7  
        .KeepTogether = True _8-T?j**   
        .PageBreakBefore = False 9W_mSum
 
        .OutlineLevel = wdOutlineLevelBodyText ma!C:C9#J  
         w4_Xby)  
        .LineUnitBefore = 0.5 94|ZY}8|f  
        .LineUnitAfter = 0.5 7=Pj}x)  
         d$xvM  
    End With BUV4L5(  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False Bjj=UtI  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll 3<N2ehi?  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese NU+PG`Vb  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True 2oOos%0  
    DoEvents F!Cn'*  
     \I^"^'CP  
    '三级标题样式 T 1_B0H2  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 3x7fa^umR  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" D:?"Rf{)  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False  R0
F [  
    With ActiveDocument.Styles("QLNU三级标题").Font I+SfZ:q^  
        .NameFarEast = "宋体" _n{_\/A6f  
        .NameAscii = "Times New Roman" BwGOn)KL  
        .NameOther = "黑体" /q,=!&f2  
        .Name = "黑体" -#R`n'/  
        .Size = 14               '四号 R y(<6u0  
        .Bold = False ;' |CSjco  
        .Outline = False Fy!s$!\C0  
        .Italic = wdUndefined MgN;[4|[h  
        .Subscript = wdUndefined +nim47  
        .Superscript = wdUndefined @F*z/E}e  
    End With _[i.)8$7  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat V~Z)
^.6  
        .LeftIndent = CentimetersToPoints(0) U2tgBF?)A  
        .RightIndent = CentimetersToPoints(0) @ &rf?:  
        .FirstLineIndent = CentimetersToPoints(0)  uEG4^  
         j]`hy"  
        .LineSpacingRule = wdLineSpaceSingle QMmZvz\^  
        .Alignment = wdAlignParagraphLeft Gpcordt/  
         uFhPNR2l  
        .WidowControl = True qn{4AWmJ  
        .KeepWithNext = True &;p}HL,  
        .KeepTogether = True 9j5|o([J  
        .PageBreakBefore = False wZ69W$,p  
        .OutlineLevel = wdOutlineLevelBodyText %_CL/H   
         dm40qj  
        .CharacterUnitLeftIndent = 0 qFLt/ >  
        .CharacterUnitRightIndent = 0 .I
VKgQ B  
        .CharacterUnitFirstLineIndent = 2 nh80"Ny5  
         >{-rl@^H:  
        .LineUnitBefore = 0.5 -N5h`Ii7  
        .LineUnitAfter = 0 !'IZr{Y>  
    End With >Z
<ZT  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False 0NU3% 4?  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll o?~27   
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese UH;bg}=8  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True 9}Za_ZgG  
    DoEvents L{l}G,j<  
     -[pfLo  
    '四级标题样式 Ktvs*.?  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") /u`Opv&I
 
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" G#@#j]8  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False Z_<NUPE  
    With ActiveDocument.Styles("QLNU四级标题").Font [eBt Dc*w  
        .NameFarEast = "宋体" iTs"RW  
        .NameAscii = "Times New Roman" W(?J,8>  
        .NameOther = "宋体" L;A#N9  
        .Name = "宋体" #7]>ozKm  
        .Size = 12               '小四号 m=v.<+>  
        .Bold = True g\?07@Zd|  
        .Outline = False Z#[%JUYp'  
        .Italic = wdUndefined bY*_6SPK4  
        .Subscript = wdUndefined G`&P|xYg  
        .Superscript = wdUndefined k6GQH@y!  
    End With oHp"\Z
&  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat (n_.bSI  
         0;,Y_61  
        .LeftIndent = CentimetersToPoints(0) lw?C:-m  
        .RightIndent = CentimetersToPoints(0) 5dG+>7Iy}  
        .FirstLineIndent = CentimetersToPoints(0) HZS.%+2  
         w(X
}  
        .LineSpacingRule = wdLineSpaceSingle Raetz>rL  
        .Alignment = wdAlignParagraphLeft 6 b?K-)kL  
         .y_~mr&d  
        .WidowControl = True &B=z*m  
        .KeepWithNext = True [u J<]  
        .KeepTogether = True CdcBE.%<  
        .PageBreakBefore = False yB=R7E7  
        .OutlineLevel = wdOutlineLevelBodyText V$;`#J$\b  
         Y5B!*+h  
        .CharacterUnitLeftIndent = 0 'MB+cz+v  
        .CharacterUnitRightIndent = 0 rg#/kd<?[V  
        .CharacterUnitFirstLineIndent = 2 8wZ $Hq  
         odJE~\\hw  
        .LineUnitBefore = 0 !{ _:k%B  
        .LineUnitAfter = 0 =knLkbiq7,  
         RdL5VAD  
    End With DT6BFx  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False nw_|W)JVQ  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll 4ji'6JHPg  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese {{[@ X  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True 2`ERrh^i"  
    DoEvents +l!.<:sp  
     Z0D&ayzkh^  
    '正文校式  G;A  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") 3,{;wJ Z  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" dVGcth;  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False qoZAZ&|HI  
    With ActiveDocument.Styles("QLNU正文").Font l&"bm C:xr  
         '%:E4oI  
        .NameFarEast = "宋体" <Hz11 }<(  
        .NameAscii = "Times New Roman" xdY'i0fh  
        .NameOther = "宋体" B6\/xKmv?8  
        .Name = "宋体" 7~ZG"^k  
         wdV)M?  
        .Size = 12               '小四号 eb,QT\/G  
         kkj@!1q(wO  
        .Bold = wdUndefined QJ>=a./  
        .Italic = wdUndefined +iQ~ Y2Gh  
        .Subscript = wdUndefined #)#'^MZX  
        .Superscript = wdUndefined UYQ@ub  
         IM[=]j.?  
        .Outline = False ;A*sub  
        .Emboss = False 6z/&j} (  
        .Shadow = False W~i0.rg|>  
        .Hidden = False ^YfAsBs&  
         mz;ExV16  
        .DisableCharacterSpaceGrid = True &9.3-E47*  
    End With Z/v )^VR  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat #q9BU:  
         Vhb~kI!x  
        .LeftIndent = CentimetersToPoints(0) C:bA:O  
        .RightIndent = CentimetersToPoints(0) Do^yer~  
        .FirstLineIndent = CentimetersToPoints(0) [xDIK8d:I  
         XRyeEwA;pp  
        .LineSpacingRule = wdLineSpaceExactly upJy,|5  
        .LineSpacing = 20 KBI1t$  
        .Alignment = wdAlignParagraphLeft ;i+(Q%LO  
         %?qzP'  
        .WidowControl = False  :J)^gc  
        .KeepWithNext = False W=|'&UU Ul  
        .KeepTogether = False #>BC|/P}  
        .PageBreakBefore = False %$Q!'+YW  
        .Hyphenation = False >s,*=a  
         Y2N$&]O{  
        .OutlineLevel = wdOutlineLevelBodyText VeQ [A?pER  
         L=s8em]7l  
       (4`Tf*5hHa  
        .CharacterUnitLeftIndent = 0 $U. 2"  
        .CharacterUnitRightIndent = 0 L]BTX]  
        .CharacterUnitFirstLineIndent = 2 _+}hId  
         NA/Sv"7om  
        .LineUnitBefore = 0 d)XT> &  
        .LineUnitAfter = 0 /^&$ma\  
        .SpaceBefore = 0 ^r]-v++  
        .SpaceAfter = 0 ^<v.= 7cL0  
         irjHPuhcG  
        .DisableLineHeightGrid = True ~EYdEqS)  
    End With A,= R`m  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False |L-- j  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll T:CWxusL  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese ?o/p}6  
    ActiveDocument.Styles("QLNU正文").NoProofing = True *]kE3  
    DoEvents N5k9o:2  
     Yx ;j  
    '图片段落样式 q?L*Luu+  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") 0&r}
'f?  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" F0r5$Pl*  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False G`;mSq6i  
    With ActiveDocument.Styles("QLNU图片段落").Font =U:]x'g(  
        .Size = 12               '小四号 fg1uqS1rg  
        .Italic = wdUndefined ~Sd,Tu%:  
        .Subscript = wdUndefined &;GoCU Le  
        .Superscript = wdUndefined pH@yE Vf  
    End With y4!fu<[i  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat v{\~>1J{  
         +l7Bu}_?  
        .LeftIndent = CentimetersToPoints(0) [
r'hX#  
        .RightIndent = CentimetersToPoints(0) P5"B 7>L:  
        .FirstLineIndent = CentimetersToPoints(0) m5KLi &R  
         Gt!Hm(  
        .LineSpacingRule = wdLineSpaceSingle wc~9zh  
        .Alignment = wdAlignParagraphCenter = Q|s[F  
        .KeepWithNext = True o+R(ux"  
        .OutlineLevel = wdOutlineLevelBodyText .Dr7 YquW  
         AJRiwP|H+  
        .CharacterUnitLeftIndent = 0 )_kEy>YscZ  
        .CharacterUnitRightIndent = 0 y%YP  
        .CharacterUnitFirstLineIndent = 0 *t={9h  
         b~8&P_  
        .LineUnitBefore = 0 e+@.n  
        .LineUnitAfter = 0 R9+f^o`W  
    End With U[#q"'P|l  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False >S?7-2X  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll W^3'9nYU  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese ~ r$I&8  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True : R8+jO  
    DoEvents qrt2uE{K  
     % %2~%FVb  
     >4#\ U!  
    '第X章 *S Z]xrs  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") otP2qAI  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" $ WWi2cI;  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False .=c@ps  
    With ActiveDocument.Styles("QLNU章节标题").Font 0nlh0u8#  
        .NameFarEast = "黑体" L;KL
mxy#  
        .NameAscii = "Arial Black" DFGgyFay  
        .NameOther = "Arial Black" :+ "JPF4X  
        .Name = "黑体" -OfAl~ 4  
        .Size = 16 %]O#t<D  
        .Bold = True O9{A)b!HB  
        .UnderlineColor = wdColorAutomatic `WQpGBS_z_  
        .Outline = False xz,M>Ua  
        .Italic = wdUndefined BMhuM~?(  
        .Subscript = wdUndefined ({!*&DVu  
        .Superscript = wdUndefined A{')  
        .Scaling = 100 0XL[4[LdA  
        .DisableCharacterSpaceGrid = True '_g*I  
    End With \}Pr!tk!  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat i{J[;rV9  
        .LineSpacingRule = wdLineSpaceSingle )IE)a[wo  
        .Alignment = wdAlignParagraphCenter a$6pA@7}  
        .WidowControl = True z_z'3d.r7  
        .KeepWithNext = True VC!g,LU|-  
        .KeepTogether = True Z \-  
        .PageBreakBefore = True R
Zj06|r8  
        .OutlineLevel = wdOutlineLevelBodyText qEjsAL  
         b|`  
        .LeftIndent = CentimetersToPoints(0) _)#~D*3  
        .RightIndent = CentimetersToPoints(0) `R$bx 64  
        .FirstLineIndent = CentimetersToPoints(0) ^^)\|kW?  
         wp-3U}P2(  
        .CharacterUnitLeftIndent = 0 \l 3M\$oS>  
        .CharacterUnitRightIndent = 0 $g#d1u0q  
        .CharacterUnitFirstLineIndent = 0 `7',RUj|D  
         TR{dNO!q  
        .LineUnitBefore = 1 qZSW5lC0  
        .LineUnitAfter = 0.5 \z2d=
E  
         :!,.c$M  
        .AutoAdjustRightIndent = False :/NP8$~@j  
        .DisableLineHeightGrid = True ['0^gN$:e  
        .FarEastLineBreakControl = True eA/}$.R  
        .WordWrap = True x1:1Jj:  
    End With c;R.rV<  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False -ktYS(8&  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll Y XxWu8  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese Z,b^f Vw  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True T9'5V@  
    DoEvents HL!"U(_  
     HMR!XF&JjC  
    '表格标题  q0\$wI  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") @jD19=  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" Gv\fF;,R  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False q{)Q ?E  
    With ActiveDocument.Styles("QLNU表格标题").Font "QY~V{u5  
        .NameFarEast = "楷体" v/wR)9  
        .NameAscii = "Arial" .>(qZEF  
        .Name = "楷体" ,
k/<Nv;  
        .Size = 10.5 Ob-k`@_|  
        .Bold = True ]m^ECA$  
        .Underline = wdUnderlineNone UAdj[m61  
        .Italic = wdUndefined NW Pd~l+  
        .Subscript = wdUndefined iWn7vv/t  
        .Superscript = wdUndefined jbTyM"Y  
        .Color = wdColorAutomatic h3A|nd>\  
    End With F=kiYa}  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat ]g9n#$|.  
         aK9zw  
        .LineSpacingRule = wdLineSpaceSingle JhB$s  
        .Alignment = wdAlignParagraphCenter u\UI6/   
        .KeepWithNext = True '}NH$ KA  
        .KeepTogether = True ^#2Y4[@  
        .OutlineLevel = wdOutlineLevelBodyText e?-LB  
         f<3r;F7  
        .LeftIndent = CentimetersToPoints(0) :#W>lq@H  
        .RightIndent = CentimetersToPoints(0) 11yS2D   
        .FirstLineIndent = CentimetersToPoints(0) >[g'i+{  
         0'*'%Iga  
        .CharacterUnitLeftIndent = 0 g |4v>5Y  
        .CharacterUnitRightIndent = 0 2?owXcbx  
        .CharacterUnitFirstLineIndent = 0 5cl%>U  
         k:zGv  
        .LineUnitBefore = 1 ]^l-k@  
        .LineUnitAfter = 0 SCMZ-^b  
         m^,3jssdA  
    End With Qp>Q-+e0  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False ;V1e>?3  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll %w6lNl  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese _n< @Jk~  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True , u>K##X\  
    DoEvents rHgrCMW  
k8"[)lDc.  
    '表格首行 u+e.{Z!  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") DzCb'#   
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False &oiBMk`*  
    With ActiveDocument.Styles("QLNU表格首行").Font aeF^&F0  
        .NameFarEast = "楷体" !^A t{[U  
        .NameAscii = "Times New Roman" O<w7PS  
        .Name = "楷体" *yA.D
?  
        .Size = 9 i{/ nHrN  
        .Bold = True GP}+c8|2  
        .Underline = wdUnderlineNone .'N#qs_  
        .Italic = wdUndefined HLM"dmI   
        .Subscript = wdUndefined v_
@&#!u`  
        .Superscript = wdUndefined /?QBMI  
    End With y|Zj M  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat 4:v{\R  
        .LineSpacingRule = wdLineSpaceSingle \R<OT%8  
        .Alignment = wdAlignParagraphCenter *r]#jY4qx  
          '+C%]p  
        .LeftIndent = CentimetersToPoints(0) MT@Uu  
        .RightIndent = CentimetersToPoints(0) Z7R+'OC  
        .FirstLineIndent = CentimetersToPoints(0) NW;wy;;  
         '~'3x4B
o  
         OKzk\F6  
        .CharacterUnitLeftIndent = -0.5 aw/5#(1R  
        .CharacterUnitRightIndent = -0.5 tA{<)T  
        .CharacterUnitFirstLineIndent = -0.5 J)Td'iT(  
         R2[!h1nZ  
        .LineUnitBefore = 0 [p_C?hHO  
        .LineUnitAfter = 0 BLhuYuON  
        .SpaceBefore = 0 38
36Di:{  
        .SpaceAfter = 0 ZpY"P6
 
         :J+GodW  
    End With LIHf]+  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False SYTzJK@vZJ  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll r7p>`>_Q\  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese $(%t^8{a~G  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True  /=7[Q  
    DoEvents D$c4's`5  
5=Y\d,SS"  
    '表格内容 @;z}Hk0A  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") meV RdQ  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False gs77")K&  
    With ActiveDocument.Styles("QLNU表格内容").Font aG\B?pn-  
        .NameFarEast = "楷体" ktKT=(F&  
        .NameAscii = "Times New Roman"  Z@`HFZJ  
        .Name = "楷体" J&6]3x  
        .Size = 9 ub] w"N  
        .Bold = False -f:uNF]Ls  
        .Underline = wdUnderlineNone 7e&%R4{b  
        .Italic = wdUndefined 1e^-_Bo6'o  
        .Subscript = wdUndefined Zx]"2U#  
        .Superscript = wdUndefined ?2b9N~  
    End With ouUU(jj02  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat 2]*2b{gF,  
        .LineSpacingRule = wdLineSpaceSingle 3^zOG2  
        .Alignment = wdAlignParagraphCenter {%b-~& F9  
         ) 4'@=q  
        .LeftIndent = CentimetersToPoints(0) VIxcyp0X  
        .RightIndent = CentimetersToPoints(0) )Hy|K1  
        .FirstLineIndent = CentimetersToPoints(0) C R$5'#11)  
         oMi"X"C:q  
        .CharacterUnitLeftIndent = -0.5 1{V*(=Tp  
        .CharacterUnitRightIndent = -0.5 ZK]C!8\2|  
        .CharacterUnitFirstLineIndent = -0.5 /fc@=CO  
        .LineUnitBefore = 0 SLc'1{  
        .LineUnitAfter = 0 ]={{$}8.  
        .SpaceBefore = 0 {GiR-q{t  
        .SpaceAfter = 0 D*j\g
I  
    End With -.E<~(fad  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False Ie?C<(8Ul  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll r yO\$m  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese *l^%7Wrk  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True "L" 6jT  
    DoEvents ToVm]zPOUt  
qcfLA~y  
    '图片标题 _\LAWQ|M4[  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") vQ}llA h  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" Kq';[Yc  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False Ofg-gCF8  
    With ActiveDocument.Styles("QLNU图片标题").Font b=+'i  
        .NameFarEast = "楷体" !(Y23w*  
        .NameAscii = "Times New Roman" kSw.Q2ao  
        .Name = "楷体" *^u5?{$l(  
        .Size = 10.5 [nlW}1)46  
        .Bold = True IPnbR)[%  
        .Underline = wdUnderlineNone Fi qcM-Af4  
        .Italic = wdUndefined X^H)2 G>e  
        .Subscript = wdUndefined 6]^}GyM!  
        .Superscript = wdUndefined SpY%2Y.Dy  
        .Outline = False Pw'3ya8  
        .Shadow = False [?hc.COE  
        .Color = wdColorAutomatic # -
Ts]4v  
    End With u-7/4Y)c  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat Xu:Sh<:R  
        .LineSpacingRule = wdLineSpaceSingle PGHl:4`Es!  
        .Alignment = wdAlignParagraphCenter ;[@< ,  
         
3l 0>  
        .KeepWithNext = wdUndefined xGeRoW(X  
        .KeepTogether = True u1&pJLK0[  
        .OutlineLevel = wdOutlineLevelBodyText ;HJ|)PN5L  
         RW|3d<Fj  
        .LeftIndent = CentimetersToPoints(0) ~$i36"  
        .RightIndent = CentimetersToPoints(0) u#Qd`@p  
        .FirstLineIndent = CentimetersToPoints(0) >%.6n:\rG  
         BUcze\+  
        .CharacterUnitLeftIndent = 0 S:Ne g!`  
        .CharacterUnitRightIndent = 0 9_F2nmEv  
        .CharacterUnitFirstLineIndent = 0 !285=cxz  
         l7P~_X_)"  
        .LineUnitBefore = 0 yggQ4y6  
        .LineUnitAfter = 0 kGMI ?  
    End With X ] &Q^  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False GRb"jF>ut  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll rr#&0`]  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese (;'?56  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True ;p#)z/zZ  
    DoEvents ALiXT8q  
b^\u P  
    '目录项 T)]5k3{  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") DxT8;`I%  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" |}\et ecB  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False 2, ` =i
 
    With ActiveDocument.Styles("QLNU目录项").Font }cG
!93  
        .NameFarEast = "黑体" >T4.mB7+>  
        .NameAscii = "Times New Roman" ,r
{\aW@  
        .NameOther = "Times New Roman" snV,rZ  
        .Name = "黑体" ND7 gxt-B  
        .Size = 10.5 F"3PP ~  
        .Bold = False FHI`/  
        .Italic = wdUndefined 8hi|F\$_h  
        .Underline = wdUnderlineNone @%K@oDL  
        .Color = wdColorAutomatic -lm\~VZT3  
        .Superscript = wdUndefined W9T,1h5x  
        .Subscript = wdUndefined Cv|ya$}a  
    End With nj~1y')  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat k Q~*iY  
         W^q;=D6uh  
        .LineSpacingRule = wdLineSpaceSingle ^~2GhveBV  
        .Alignment = wdAlignParagraphLeft BXVmt!S5F  
         ".eD&oX{  
        .WidowControl = False { CkxUec  
        .KeepWithNext = False ,.uPlnB_  
        .KeepTogether = False nJ4i[j8  
        .PageBreakBefore = False V3-5:z  
        .NoLineNumber = False M yr [  
        .OutlineLevel = wdOutlineLevelBodyText /4]M*ls  
        
0Q=4{*:?  
        .LeftIndent = CentimetersToPoints(0) : \w\K:
 
        .RightIndent = CentimetersToPoints(0) l=ZhHON  
        .FirstLineIndent = CentimetersToPoints(0) 'tp1|n/1  
         0*q&)  
        .CharacterUnitLeftIndent = 0 ]w(i,iJ  
        .CharacterUnitRightIndent = 0 Z| Z447_  
        .CharacterUnitFirstLineIndent = 0 9Ay*'   
         >v`lsCGb  
        .LineUnitBefore = 0 a
yuj)]b  
        .LineUnitAfter = 0 b&Qj`j4]ZM  
    End With `X
nu("w)  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False s3W)hU)  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll )G0a72  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot Qj?FUxw  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese n97A'"'wz  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True %J?;@ G)r  
    DoEvents Cw`v\ 9  
     keEyE;O}u  
    '参考文献 -U(T  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") g&H6~ +\
 
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" &CFHH"OsT  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False |Gb"%5YD  
    With ActiveDocument.Styles("QLNU参考文献").Font }r6SV%]:  
        .NameFarEast = "宋体" VAF+\Cea=  
        .NameAscii = "Times New Roman" %^g BDlR^  
        .NameOther = "Times New Roman" w3c[t ~R8  
        .Name = "Times New Roman" DQd~!21\|  
        .Size = 12 /z*?:*  
        .Bold = False d$/BF&n  
        .Italic = wdUndefined =)(o(bfSKr  
        .Subscript = wdUndefined GH![rK  
        .Superscript = wdUndefined GM{m(Y  
        .Underline = wdUnderlineNone 2;NIUMAMM  
        .UnderlineColor = wdColorAutomatic Q uy5H  
        .Color = wdColorAutomatic z1?7}9~`0c  
        .Engrave = False r"SuE:
D  
    End With RiF~-;v&  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat T+m`a#  
         'c\zWmAZ  
        .LineSpacingRule = wdLineSpaceExactly Tz
1St{s\  
        .LineSpacing = 16 UjwA06  
        .Alignment = wdAlignParagraphLeft h&||Ql
1  
        .WidowControl = False EaG3:<>J  
        .KeepWithNext = False o-B9r+N  
        .KeepTogether = False c.Pyt  
        .PageBreakBefore = False 67Z|=B!7  
        .OutlineLevel = wdOutlineLevelBodyText JG
p~A#H&  
         ;$=`BI)  
        .LeftIndent = CentimetersToPoints(0) >z1RCQWju  
        .RightIndent = CentimetersToPoints(0) EUU9JnQhBJ  
        .FirstLineIndent = CentimetersToPoints(0) ig]*Z  
         ._"U{ f2V  
        .CharacterUnitLeftIndent = 0 eZ y)>.6Z  
        .CharacterUnitRightIndent = 0 V4}9f5FR  
        .CharacterUnitFirstLineIndent = -2 l njaHol0  
         !MNUp(:  
        .LineUnitBefore = 0 1"009/|  
        .LineUnitAfter = 0 v&%GK5j7O  
        .SpaceBefore = 0 nM1U=Du  
        .SpaceAfter = 0 xCD|UC46?X  
         [nxjPx9-  
    End With E% Ce/n  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False l.?R
7f  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll W\o(f W  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS Z+@"  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True NA>h$N  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese xXM`f0s@+]  
    DoEvents @!&\Z[",  
C".&m  
    ' l=[<gPE  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") ]L%qfy4  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" #[C|%uq  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False 0Np}O=>  
    With ActiveDocument.Styles("QLNU论文题目").Font aH e/MucK  
        .NameFarEast = "黑体" gd-4hR  
        .NameAscii = "Arial Black" UwrinkoeE  
        .NameOther = "Arial Black" a1B_w#?8  
        .Name = "Arial Black"  a= ;7  
        .Size = 16 B5aFt ;Vj  
        .Bold = False bN@V=C3  
        .Italic = wdUndefined ^wCjMi(sj  
        .Superscript = wdUndefined MOY.$M,1  
        .Subscript = wdUndefined wX" 6 S:  
        .Underline = wdUnderlineNone  d>}pz  
        .UnderlineColor = wdColorAutomatic %p)6m2Sb  
        .Color = wdColorAutomatic /i$E|[  
xxgS!J  
    End With @;M( oFS9  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat /pZLt)=P  
        .LineSpacingRule = wdLineSpaceSingle (Kd;l&8  
        .Alignment = wdAlignParagraphCenter c%
r?tKG6  
        .WidowControl = True 0#KDvCBJ  
        .KeepWithNext = True (X@JlAfB  
        .KeepTogether = True IL?3>$,  
        .PageBreakBefore = True pj G6v(zK  
        .NoLineNumber = False 0F6^[osqtl  
        .OutlineLevel = wdOutlineLevelBodyText v_"p)4
&'  
         7^#f<m;Ar!  
        .LeftIndent = CentimetersToPoints(0) y.26:c(  
        .RightIndent = CentimetersToPoints(0) ~cVFCM  
        .FirstLineIndent = CentimetersToPoints(0) u[d R*o0'  
         6]rIYc[,  
        .CharacterUnitLeftIndent = 0 1+v&SU  
        .CharacterUnitRightIndent = 0 M2_sxibI  
        .CharacterUnitFirstLineIndent = 0 Mb=vIk{Bf  
         4:=']C  
        .LineUnitBefore = 1 ]
d}Z2I'  
        .LineUnitAfter = 1 snOd 3Bw  
         >nkd U  
        .BaseLineAlignment = wdBaselineAlignAuto k:Sxs+)?1  
    End With ;(fDR8  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False L"A ,7@:Vd  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll pHEhB9_A!  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS h.ojj$f ,  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True RyKsM.   
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese Wo2TU!  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True (p'yya{(  
    DoEvents aErms-~  
     ,5HQHo@  
    '中文摘要 kMAQHpDD  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") b"t95qlL  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" :XEP:8  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False O E0w/{  
    With ActiveDocument.Styles("QLNU中文摘要").Font ao#{
N=mn  
        .NameFarEast = "宋体" c_<m8b{AEF  
        .NameAscii = "Times New Roman" =0TnH<`  
        .NameOther = "Times New Roman" qP6]}Aj]  
        .Name = "Times New Roman" R:P'QM   
        .Size = 12 DcE)6z#  
        .Bold = wdUndefined j{SRE1tqh  
        .Superscript = wdUndefined \%z#|oV#<  
        .Subscript = wdUndefined uA7~`78  
        .Italic = wdUndefined fGHYs  
        .Underline = wdUnderlineNone RrRrB"!8nR  
        .UnderlineColor = wdColorAutomatic \RyOexNZ  
        .Color = wdColorAutomatic p<*3mbgGO  
    End With W#E`h  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat OACRw%J:X{  
        .LineSpacingRule = wdLineSpaceExactly F]\(p=U.  
        .LineSpacing = 20 }20 Q`?  
        .Alignment = wdAlignParagraphLeft k{(R.gLZG  
         !*ct3{m  
        .WidowControl = False H%> E6rVB  
        .KeepWithNext = False "qjkwf)\  
        .KeepTogether = True wd2GKq!  
        .PageBreakBefore = False $Mm=5K%  
        .NoLineNumber = False ^&buX_nlO  
        .OutlineLevel = wdOutlineLevelBodyText /Pv d[oF  
         B>*zQb2:  
        .LeftIndent = CentimetersToPoints(0) }&Un8Rg"h  
        .RightIndent = CentimetersToPoints(0) AHc:6v^  
        .FirstLineIndent = CentimetersToPoints(0) -"[o|aa^  
         bO>q`%&  
        .CharacterUnitLeftIndent = 0 n~l9`4wJY  
        .CharacterUnitRightIndent = 0 :2iNw>z1  
        .CharacterUnitFirstLineIndent = 2 :#1{c^i%3  
        .LineUnitBefore = 0 NypM+y  
        .LineUnitAfter = 0 j}3Avu%  
         >Lx,<sE  
    End With #g*U\y  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False G=/a>{  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll Mh"DPt9@J  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS Q;W[$yv
W  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True Yb\t0:_  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese -U~]Bugvh  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True x1</%y5ev  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete htX;"R&  
    DoEvents i"Hec9Ri  
     \7rFfN3  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") D*BZp0x  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" AM  cHR=/  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False A}p mr  
    With ActiveDocument.Styles("QLNU英文标题").Font iZ %KHqG  
        .NameFarEast = "黑体" t+7h(?8L  
        .NameAscii = "Arial Narrow" ?TA%P6Lw  
        .Name = "Arial Narrow" 8TGO6oY+=  
        .Size = 16 9J h"1i>x2  
        .Bold = True a|rN %hA4  
        .Bold = wdUndefined UjxEbk5>^  
        .Superscript = wdUndefined e\%+~GUTC=  
        .Subscript = wdUndefined 5[}3j1  
        .Italic = wdUndefined 8+K=3=05#U  
         q&OF?z7H  
        .Underline = wdUnderlineNone 9W88_rE'e}  
        .UnderlineColor = wdColorAutomatic ["Mq  
        .StrikeThrough = False /~[+'  
        .DoubleStrikeThrough = False yoiKt; S  
    End With lx$]f)%~  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat /|V!2dQs"  
        .LineSpacingRule = wdLineSpaceSingle nXPl\|pXt  
        .Alignment = wdAlignParagraphCenter 6x|"1 G{  
        .WidowControl = True huFT_z_;;  
        .KeepWithNext = False nf=*KS\v  
        .KeepTogether = False ~sj'GEhEg  
        .PageBreakBefore = False jA_wOR7$  
        .NoLineNumber = False %Z9&zmO  
        .FirstLineIndent = CentimetersToPoints(0) ?,
uTH 4  
        .OutlineLevel = wdOutlineLevelBodyText <"
F\&M`G  
         {\z&`yD@  
        .LeftIndent = CentimetersToPoints(0) yW5/Y02  
        .RightIndent = CentimetersToPoints(0) w
ZB:7E%  
        .FirstLineIndent = CentimetersToPoints(0) 07 [%RG  
         |&OW_*l  
        .CharacterUnitLeftIndent = 0 )Be?axI  
        .CharacterUnitRightIndent = 0 idW
=  
        .CharacterUnitFirstLineIndent = 0 Xmr|k:z  
         BK`NPC$a  
        .LineUnitBefore = 1 I
,;@\  
        .LineUnitAfter = 1 JLo'=(  
         TP7'tb  
    End With \JmfQrBQ  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False XCr\Y`,Z@  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll IX@g].)C  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS /{@^
h#4M1  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True 4Gz5Ju  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese QP/%+[E.  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True D#Qfa
!=g  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete 7R9.g6j  
    DoEvents +c;/hM<IX.  
Bu
|Uz0Y  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") fd~a\5%e  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" C_xOk'091  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False nF$
n[:  
    With ActiveDocument.Styles("QLNU英文摘要").Font !lQGoXQ'4  
        .NameFarEast = "宋体" ;
^+#  
        .NameAscii = "Arial" W[Kv Qt3%  
        .NameOther = "Arial" YuufgPE*H  
        .Name = "Arial"  mG4$  
        .Size = 12 !-%fC g(B  
        .Bold = wdUndefined 7{F(NJUO1  
        .Italic = wdUndefined eS)2#=  
        .Superscript = wdUndefined gwVfiXR4  
        .Subscript = wdUndefined @!k\Ivd  
    End With /]7FX"  
     n[DQ5l
  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat 5@l[!Jl0k  
         {6H%4n  
        .LineSpacingRule = wdLineSpaceExactly n.9k<  
        .LineSpacing = 20 GVS-_KP\  
         |m{Q_zAB  
        .Alignment = wdAlignParagraphJustify MO}J  
         Z9Prw/8P  
        .WidowControl = False W=b<"z]RE  
        .KeepWithNext = False [MLJs-*   
        .KeepTogether = False 74f3a|vx/  
        .PageBreakBefore = False "9F] Wv/  
        .NoLineNumber = False lS1-e0,h1  
         )Dn~e#  
        .OutlineLevel = wdOutlineLevelBodyText }#0MJ6L  
         ~DY5`jV  
        .LeftIndent = CentimetersToPoints(0) qkQ_#  
        .RightIndent = CentimetersToPoints(0)
S%+,:kq  
        .FirstLineIndent = CentimetersToPoints(0) CUJP"u>8M  
         ,K4*0!TXP  
        .CharacterUnitLeftIndent = 0 ~q0g7?}&  
        .CharacterUnitRightIndent = 0 YbCqZqk  
        .CharacterUnitFirstLineIndent = 2 )D_ ZZPq_  
         DXX(qk)6  
        .LineUnitBefore = 0 1K(a=o[Ce  
        .LineUnitAfter = 1 h M{&
if
 
         r*$$82 s  
    End With &G63ReW7 @  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False Arvxl(R\4  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll P(iZGOKUs=  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS < 3?T^/8  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False "p]Fq,  
    DoEvents ~9#x/EG/  
_<Hx1l~  
    Options.Pagination = True 0u0<)gdX  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." X( Q*(_  
    DoEvents 9J>b6  
    ActiveDocument.Repaginate jvfVB'Tmr  
[t)omPy<c  
End Sub &qR1fbw"  

F.;G6  
b _Q:v
&