Dim bContinue As Boolean (KvROV);  
[ sd;`xk  
Dim regEX As New RegExp @( n^T  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 &3J@BMYp  
]%Zz \Q  
Dim LastTitle0String As String, LastTitle0No As Long =]3tUD  
Dim LastTitle1String As String, LastTitle1No As Long R |KD&!~Z  
Dim LastTitle2String As String, LastTitle2No As Long FKe,qTqa  
Dim LastTitle3String As String, LastTitle3No As Long D&HV6#  
Dim LastTitle4String As String, LastTitle4No As Long 29XL$v],  
Dim LastTitle5String As String, LastTitle5No As Long '+j} >Q  
Dim LastTabelString As String, LastTableNo As Long G,;,D9jO7  
Dim LastFigureString As String, LastFigureNo As Long jqr1V_3(  
0Z{j>=$  
Dim strSeperator As String s,a}?W  
5k|9gICyd*  
Sub ConvertWidth(fTEXT As String, rText As String) E^U0f/5 m  
        Selection.Find.ClearFormatting 5U_H>oD  
        Selection.Find.Replacement.ClearFormatting 5SkW-+$  
        Selection.Find.Wrap = wdFindContinue fO#vF.k%  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText k+1|I)z  
        DoEvents |yo\R{&6  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True \M'-O YH_[  
End Sub Y.^=]-n,  
64:fs?H  
Sub ClearDomain() m7T)m0  
        With Selection.Find /%lZu^  
            .ClearFormatting p}[zt#v  
            .Replacement.ClearFormatting fib}b?vk  
            .Wrap = wdFindContinue :$MG*/Q  
            Me.txtStatus.Text = "清除所有域代码" 0ZQ'_g|%  
            DoEvents 5q"ON)x  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False ktDC/8
  
        End With [pVamE  
End Sub _)]CzBRq\6  
Wu)>U  
Private Sub cmdCheck_Click() `K,1K  
    bContinue = True |lv|!]qAma  
    Dim NoSeries1(1 To 16) As String dL|+d:v  
    Dim NoSeries2(1 To 16) As String Zw wqSyuGf  
    Dim NoSeries5(1 To 16) As String d#2$!z#  
    Dim NoSeriesRM(1 To 16) As String !n^OM?.
4  
    Dim paraTotal As Long, ParaText As String Fs[aa#v4B  
    Dim ttString As String, ttNo As String 'l,V* 5L  
     {mB0rKVm  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long &~CY]PN.  
d;n."+=[x  
    Me.txtStatus.Visible = True qC'{;ko  
    Me.lbParaType.Visible = True _=|vgc  
    Me.cmdCheck.Enabled = False a#T]*(Yq)  
     2Pc%fuC  
     \@&_>us  
     d\ |!Hg,  
     /  g 2b  
    Dim ParaType As String, rText As String klUQkz |<a  
     y^o@"IYu3  
    Selection.WholeStory A<;SnXm  
    Selection.NoProofing = True O{ /q-~_  
     r H~" 4  
    tm1 = Now +**!@uY  
     H4]Ul eU  
        ActiveWindow.View.Type = wdNormalView HYmn:?H  
     h<~7"ON hV  
    NoSeries1(1) = "一" FZ8b7nJ)4m  
    NoSeries1(2) = "二" [5Lz/ix=  
    NoSeries1(3) = "三" wj[$9UJb  
    NoSeries1(4) = "四" ]~Y<o  
    NoSeries1(5) = "五" Rb
3V^;i  
    NoSeries1(6) = "六" q\H[am  
    NoSeries1(7) = "七" ExRe:^yU\  
    NoSeries1(8) = "八" NY?;erX  
    NoSeries1(9) = "九" N>>uCkC  
    NoSeries1(10) = "十" ws^4?O  
    NoSeries1(11) = "十一" dK>7fy;mv  
    NoSeries1(12) = "十二" "fq{Y~F%`  
    NoSeries1(13) = "十三" @?"h !fyu  
    NoSeries1(14) = "十四" #pcP!  
    NoSeries1(15) = "十五" r1fGJv1!o  
    NoSeries1(16) = "十六" ~)(\6^&=|  
     S;]*)i,v  
    NoSeries2(1) = "㈠" ]vuwkn+)  
    NoSeries2(2) = "㈡" Hr$QLtr  
    NoSeries2(3) = "㈢" GKcv<G208  
    NoSeries2(4) = "㈣" XV^1tX>f{  
    NoSeries2(5) = "㈤" h,"4SSL  
    NoSeries2(6) = "㈥" SM@QUAXO  
    NoSeries2(7) = "㈦" ,-z9 #t  
    NoSeries2(8) = "㈧" tnLAJ+-M  
    NoSeries2(9) = "㈨" fA89|NTSUh  
    NoSeries2(10) = "㈩" ^wS5>lf7p  
     |*`Z*6n  
    NoSeries5(1) = "①" /> 4"~q)  
    NoSeries5(1) = "②" +Jr|z\  
    NoSeries5(3) = "③" 0@AAulRl  
    NoSeries5(4) = "④" Zdn~`Q{  
    NoSeries5(5) = "⑤" "W(Q %1!Wi  
    NoSeries5(6) = "⑥" fw[y+Bi& ?  
    NoSeries5(7) = "⑦" |g
*XK6  
    NoSeries5(8) = "⑧" wb~@7,D  
    NoSeries5(9) = "⑨" =Fdg/X1  
    NoSeries5(10) = "⑩" 4 {9B9={  
     puT'y  
     ~H!S,"n^,P  
    NoSeriesRM(1) = "I" %Z*sU/^  
    NoSeriesRM(2) = "II" MTUn3;c/  
    NoSeriesRM(3) = "III"
N<DGw?Rl  
    NoSeriesRM(4) = "IV" n[(Qr9  
    NoSeriesRM(5) = "V" &5:tn=E  
    NoSeriesRM(6) = "VI" '? jlH0;  
    NoSeriesRM(7) = "VII" m>SErxU(z  
    NoSeriesRM(8) = "VIII" Uk\Id~xLV  
    NoSeriesRM(9) = "IX" |.wEm;Bz  
    NoSeriesRM(10) = "X" &?h,7 D;A  
    NoSeriesRM(11) = "XI" B2ec@]uD`  
    NoSeriesRM(12) = "XII" `7H4Y&E  
    NoSeriesRM(13) = "XIII" xZV1k~C  
    NoSeriesRM(14) = "XIV" p0pWzwTG3  
    NoSeriesRM(15) = "XV" VWO9=A*Y|  
    NoSeriesRM(16) = "XVI" _SA5e3#   
     xCtm Xo  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) 0 U
s5  
     ;V<fB/S.=+  
    If i = vbNo Then 0:b2(^]bg  
        Exit Sub cYqfsd# B  
    End If *&f$K1p  
     Gdg"gi!4  
    If Me.chkSuper.Value Then -ig6w.%lk  
        Me.txtStatus.Text = "检查修改所有的上标格式" /JT#^Y  
     3N_"rNKD  
        CheckSuperScript D1&A,2wO  
         @/k@WhFZ  
    End If Bm]8m=p  
     o;?/HE%,[  
    If Me.chkStyle.Value Then S%`0'lzzj  
        Me.txtStatus.Text = "设置样式，请稍候...." 'R_g">B.  
        DoEvents (64yg  
        CeateOrModifyStyle ~}<DG1!  
    End If rl0<Ls  
     ZI=v.wa  
     6"}?.E$  
     T*KMksjxm`  
    ClearDomain 5YrBW:_OI  
         @lvyDu6e  
     5#K
4bA  
     Pi A0]>  
    If Me.chkLIST.Value Then Qca&E`~Q  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" jRL<JZ1N  
     3d|9t9v  
        ConvertListToOrdinary )&!&AlLn  
    End If h9eMcCU  
     :^(>YAyHj^  
     4rrSb*
  
    Dim pType As String, trimpTEXT As String p QizJ6  
    If Me.chkNum.Value = True Then D::rGB?.b  
        Me.txtStatus.Text = "转换全角数字形式为半角" >KJ+-QuO&  
        ConvertWidth "１", "1" 4^URX>nx8  
        DoEvents 8(* [Fe9  
        ConvertWidth "２", "2" r\/+Oa'  
        DoEvents 9V5 -
%Iv  
        ConvertWidth "３", "3" 50={%R  
        DoEvents F+u|HiYG  
        ConvertWidth "４", "4" ttu&@ =  
        DoEvents p/h Rk<K6  
        ConvertWidth "５", "5" ^_m9KA  
        DoEvents 73){K?R  
        ConvertWidth "６", "6" tToTx f~  
        DoEvents 71\xCSI1w&  
        ConvertWidth "７", "7" @9"J|}  
        DoEvents `]W|8M  
        ConvertWidth "８", "8" ~ yX2\i"  
        DoEvents f!JS= N?3  
        ConvertWidth "９", "9" 8]LD]h)B"  
        DoEvents +>PX&F  
        ConvertWidth "０", "0" =kuMWaD  
        DoEvents l'eyq}&  
        ConvertWidth "ａ", "a" =W'Ae,&  
        DoEvents [KxF'mz9  
        ConvertWidth "ｂ", "b" RU\ /j%^  
        DoEvents IC7M$  
        ConvertWidth "ｃ", "c" S9
#)A->  
        DoEvents k1!@^A  
        ConvertWidth "ｄ", "d" qT^I?g"!  
        DoEvents %Z1N;g0  
        ConvertWidth "ｅ", "e" uS^Ipxe\  
        DoEvents ,2W8=ON  
        ConvertWidth "ｆ", "f" bcYF\@};  
        DoEvents MNV% =G  
        ConvertWidth "ｇ", "g" hvaSH69*m  
        DoEvents Gn&4V}F  
        ConvertWidth "ｈ", "h" ,I,\ml  
        DoEvents Gy(=706  
        ConvertWidth "ｉ", "i" @mfEKU!  
        DoEvents Q 7?#=N?  
        ConvertWidth "ｊ", "j" /gG"v5]  
        DoEvents ^U!0-y  
        ConvertWidth "ｋ", "k" JeE;V![  
        DoEvents O<V4HUW  
        ConvertWidth "ｌ", "l" yNTK
.  
        DoEvents E@b(1@  
        ConvertWidth "ｍ", "m" [W7CXZDd  
        DoEvents hq #?kN  
        ConvertWidth "ｎ", "n" GN2Sn`;  
        ConvertWidth "ｏ", "o" 9th,VnD0  
        ConvertWidth "ｐ", "p" G nG>7f[v  
        ConvertWidth "ｑ", "q" pfI"36 ]F  
        ConvertWidth "ｒ", "r" gN"7be&J  
        ConvertWidth "ｓ", "s" =
y-
@AU8  
        ConvertWidth "ｔ", "t" T~='5iy|  
        ConvertWidth "ｕ", "u" J Px~VnE%%  
        ConvertWidth "ｖ", "v" a0#J9O_  
        ConvertWidth "ｗ", "w" GI1  
        ConvertWidth "ｘ", "x" GmP@;[H"  
        ConvertWidth "ｙ", "y" 1
.6:#  
        ConvertWidth "ｚ", "z" c??mL4$'N  
        ConvertWidth "Ａ", "A" {yExQbN  
        ConvertWidth "Ｂ", "B" (UxW;  
        ConvertWidth "Ｃ", "C" hzvd t  
        ConvertWidth "Ｄ", "D" Pjc Tx +  
        ConvertWidth "Ｅ", "E" <S r  
        ConvertWidth "Ｆ", "F" >m$ 1+30X  
        ConvertWidth "Ｇ", "G" f=9|b  
        ConvertWidth "Ｈ", "H" .Fp4: e  
        ConvertWidth "Ｉ", "I" SBS3?hw  
        ConvertWidth "Ｊ", "J" r%+V8o  
        ConvertWidth "Ｋ", "K" \7'+h5a  
        ConvertWidth "Ｌ", "L" {Ja!~N;3  
        ConvertWidth "Ｍ", "M" aYSCw3C <  
        ConvertWidth "Ｎ", "N" - RU=z!{  
        ConvertWidth "Ｏ", "O" D bz3;t  
        ConvertWidth "Ｐ", "P" :n-]>Q>5=k  
        ConvertWidth "Ｑ", "Q" VFys.=  
        ConvertWidth "Ｒ", "R" Uw7h=UQh  
        ConvertWidth "Ｓ", "S" q0zr E5  
        ConvertWidth "Ｔ", "T" >o=-$gz`  
        ConvertWidth "Ｕ", "U" T]c%!&^_  
        ConvertWidth "Ｖ", "V" n~V  ]Z  
        ConvertWidth "Ｗ", "W" Sb82}$sO  
        ConvertWidth "Ｘ", "X" &:`U&06q  
        ConvertWidth "Ｙ", "Y" @8I4[TE  
        ConvertWidth "Ｚ", "Z" nX`u[ks  
        ConvertWidth "^l", "^p" AQwdw>I-FX  
        ConvertWidth "（", "(" (R("H/6xs  
        ConvertWidth "）", ")" +csi[c)3E  
     bXNk%W[n  
    End If U3dwI:cG  
#e$5d>j(  
    With ActiveDocument (:
>,u*x%  
        Dim tbl As Table Ptdpj)oi&Q  
        For Each tbl In .Tables W}mn}gTQ  
            tbl.Rows.Alignment = wdAlignRowCenter q1KZ5G)6GJ  
            tbl.Range.Font.NameFarEast = "楷体" [
wzb<"kW  
            tbl.Range.Font.NameAscii = "Times New Roman" R)m'lMi|  
            tbl.Range.Font.Size = 10.5 k5kxQhPf  
        Next z.;ez}6%V  
        Set tbl = Nothing +O?KNZ  
    End With e-EUf
 
     lp^<3o*1  
     Xx>X5Fy  
    With ActiveDocument mUikA9u5=  
         #*UN
>X  
        For i = 1 To .TablesOfContents.Count V: TM]  
            .TablesOfContents(i).Delete P`cq H(
 
        Next |3KLk?2  
         XcUwr  
         TtTj28k7  
         ?m\t|/0Q  
        paraTotal = .Paragraphs.Count 7x%R:^*4  
        paraCounter = 1 bl&nhI)w  
         #$8%
w  
        LastTitle0No = 0 &n8_0|gK  
        LastTitle1No = 0 wLnf@&jQ%  
        LastTitle2No = 0 $cU!m(SILQ  
        LastTitle3No = 0 m3/O.DY%0  
        LastTitle4No = 0 dx@-/^.  
        LastTableNo = 0 5lUF7:A>#  
        LastFigureNo = 0 M]2]\km  
         m0a?LY  
        Dim Sec As Long !'9Feoez  
          x5- }h*  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) VL` z[|e @  
        If Sec = 0 Then v: OR   
            Exit Sub =h5H~G5AT  
        End If .E8_Oz  
         o9dY9o+Z  
        k = 0 kZGRxp9  
        Do While (paraCounter < paraTotal) And bContinue SSWP~ t  
            k = k + 1 I!Z_[M  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then 0i\M,TNf*  
                Exit Do 2so!  
            End If U ^5Kz-5.  
            paraCounter = paraCounter + 1 2`N, ,  
            If k Mod 20 = 0 Then 7%|~>   
                Me.lbCounter.Caption = paraCounter A"dR{8&0  
                DoEvents %/zbgS`  
            End If "ozr+:#\  
        Loop T~##,qQ  
         i\r Du^VQ  
         &keR~~/  
        Do While (paraCounter < paraTotal) And bContinue ]Hefm?9*^  
             FwkuC09tI  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) M:[ %[+6  
            ShapeHeight = 0 ?WqT[MnK  
            ShapeWidth = 0 Ku}Z  
           (<xfCH F5  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth A#J`;5!Sc  
             gL*>[@RO  
            Select Case ParaType @a0DT=>dT  
                Case "【】表格内容" SPY|K  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" aGtf z)  
                Case "章" U`NjPZe5^  
                    LastTitle0No = LastTitle0No + 1 dQA'($  
                    '新一章开始，复位其下属标题编号 D!Pq4'd(  
                    LastTitle1No = 0 %1xb,g KO  
                    LastTitle2No = 0 +b3RkkC  
                    LastTitle3No = 0 _n50C"X=&(  
                    LastTitle4No = 0 AW!?"xdZ  
                     ,NyY>~+  
                    k = Val(ttNo) T^k7o^N>  
                    If k = 0 Then '非数字编号章节 TU,s*D&e  
                        If ttNo <> NoSeries1(LastTitle0No) Then q!u~jI9j  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString '
O_3)x5  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText m4hg'<<V  
                        End If nz=GlO'[  
                    Else /)}
q Xx&  
                        If Val(ttNo) <> LastTitle0No Then b)qo
h^  
                            rText = "第" & LastTitle0No & ttString E%,^Yvh/  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText `-J%pEIza  
                        End If f$Fhf?'  
                         i/`m`qdg  
                    End If L>aLqQ3  
                     qGB{7-ru  
                    '章段落设置 j2StXq3  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 ?kH8Lw~{5W  
                    .Paragraphs(paraCounter).Style = "QLNU章节" H2jgO?l;!  
                    .Paragraphs(paraCounter).Range.Select 2j}\3Pi  
                    Selection.EndKey unit:=wdLine  L(|N[#  
                    tc = Replace(rText, vbCr, "") 3yU.& k  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False _M`--.{\O[  
                Case "一级标题" 7'W%blg !V  
                    LastTitle1No = LastTitle1No + 1 ~O oidKT  
                    '新一级标题开始，复位其下属标题编号 9CWF{"  
                    LastTitle2No = 0 g+
Sbl  
                    LastTitle3No = 0 ( +Q&[E"87  
                    LastTitle4No = 0 iXVe.n  
                     Uyg5i[&X@  
                    If ttNo <> NoSeries1(LastTitle1No) Then /-_h1.!   
                            rText = NoSeries1(LastTitle1No) & "、" & ttString $!-c-0ub  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText 8m\7*l^D:  
                    End If IYS)7`{]  
                   r")`Ph@yp  
                     rrBsb -
 
                    '一级标题段落设置  格式：一、标题内容 }J:U=HJ  
                    .Paragraphs(paraCounter).Range.Text = rText ( u\._Gwsx  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" v4`"1Ss,K  
                    .Paragraphs(paraCounter).Range.Select #FCnA  
                    Selection.EndKey unit:=wdLine c4^ks&)'  
                    tc = Replace(rText, vbCr, "") '$ =>  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False %7IugHH9y  
                Case "二级标题" 4~Vx3gEV:  
                    LastTitle2No = LastTitle2No + 1 l3Q(TH~I  
                    '新二级标题开始，复位其下属标题编号 t\k$};qJ  
                    LastTitle3No = 0 %,}A@H,  
                    LastTitle4No = 0 t4zkt!`B  
                     /'l{E  
                    If ttNo <> NoSeries1(LastTitle2No) Then pz\ +U7  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString lhAX;s&9  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText _/-jX  
                    End If z<U-#k7nz  
                     7vrl'^1  
                    '二级标题段落设置 格式：(一)、标题内容 ?mFv0_!O
 
                    .Paragraphs(paraCounter).Range.Text = rText CYs,`  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" [B#R94  
                     _VRpI)mu  
                    .Paragraphs(paraCounter).Range.Select 93("oBd[s(  
                    Selection.EndKey unit:=wdLine 4ew" %Cs*  
                    tc = Replace(rText, vbCr, "") 5HkKurab  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False ~962i#&4  
                 t^R][Ay&  
                Case "三级标题" jjw`Dto&  
                    LastTitle3No = LastTitle3No + 1 8*#R]9  
                    '新三级标题开始，复位其下属标题编号 'g=  
                    LastTitle4No = 0 F;4vPbH+  
                     RI 5yF  
                    If Val(ttNo) <> LastTitle3No Then Zw 5Ni Xj  
                            rText = LastTitle3No & ". " & ttString a!7A_q8M  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText Sq/ qu-%X  
                         ;g5m0l5  
                    End If ~J wb`g.  
                    '三级标题段落设置 格式：1. 标题内容 c[wla<dO*  
                    .Paragraphs(paraCounter).Range.Text = rText 0WZ_7C?  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" (2J: #  
                    .Paragraphs(paraCounter).Range.Select fk6%XO  
                    Selection.EndKey unit:=wdLine 8dZS i  
                    tc = Replace(rText, vbCr, "") cl[BF'.H  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False la0BiLzb]  
                Case "四级标题" iNtaDX|%/  
                    LastTitle4No = LastTitle4No + 1 Y)0*b5?1r  
                     "d#Y}@*~ o  
                    If Val(ttNo) <> LastTitle4No Then O`x;,6Vr  
                            rText = "(" & LastTitle4No & "). " & ttString A }G7l?V&  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText V@e?#iz  
                     xW)2<m6C&  
                    End If CrC^1K  
                    '四级标题段落设置 格式：(1). 标题内容 7~^GA.92  
                    .Paragraphs(paraCounter).Range.Text = rText .h@rLorm>  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" %Gz0^[+  
                    .Paragraphs(paraCounter).Range.Select jnKWZ/R  
                    Selection.EndKey unit:=wdLine nm5cpnNl  
                    tc = Replace(rText, vbCr, "") ZkRx1S"m  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False Fq~yL!#!  
                 =n5zM._S-  
                Case "表格标题" J%v=yBC2  
                    LastTableNo = LastTableNo + 1 #%iDT6  
                     p{amC ;cI$  
                    If ttNo <> CStr(LastTableNo) Then TN!j13,  
                            rText = "表" & LastTableNo & ". " & ttString 3G,Oba[$<  
                            ErrMsg.AddItem "表格编号错误：" & ParaText 9YIM'q>`v  
                   `#F{Waww'  
                    End If ;4R$g5-4X  
                    
+Mo9kC  
                    '表格名称段落设置 格式：表1. 表格名称 vM*-D{  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" 591>rh)  
                    xe = Replace(rText, vbCr, "") p Dx1z|@z  
                    .Paragraphs(paraCounter).Range.Select DBW[{DE  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 c}Ft^Il  
                    Selection.Range.Text = xe Z&Pg"a?\  
                    Selection.EndKey `<``8  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False S!jTyY7e  
                 E4`
N-3
 
                Case "表格首行" Q('r<v96  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" X@+{5%  
                Case "图片标题" m[?E  
                    LastFigureNo = LastFigureNo + 1 &S{RGXj_  
                     L-jJg,eY  
                    If ttNo <> CStr(LastFigureNo) Then J*yf2&lI5  
                            rText = "图" & LastFigureNo & ". " & ttString qON|4+
~u%  
                            ErrMsg.AddItem "表格编号错误：" & ParaText u)X=Qm)  
                   &zl|87M  
                    End If H[s(e56z  
                    '图片名称段落设置 格式：图1. 图名称 3}TaF~  
                    .Paragraphs(paraCounter).Range.Text = rText ck ]Do !h  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" BZ94NOOdw  
                    .Paragraphs(paraCounter).Range.Select ~
-4{B  
                    Selection.EndKey unit:=wdLine dA@]!  
                    xe = Replace(rText, vbCr, "") YSr9VpqWV  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False lGPUIoUo  
                Case "正文" [;4g  
                     '正文名称段落设置 c]x1HvPE  
                    .Paragraphs(paraCounter).Style = "QLNU正文" f2Klt6"9  
               Case "文献条目" .b3Qfxc>  
                    With .Paragraphs(paraCounter) aktU$Wbwl  
                        '.Range.Select B:b5UD  
                        'Selection.ClearFormatting NPhhD& W_  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” Y_;#UU689  
                        .Style = "QLNU参考文献" B8.P
n  
                    End With ?i7%x,g(Z  
               Case "图表注解" B6u /mo<  
                    With .Paragraphs(paraCounter) bR*-Ht+wd  
                        .Range.Font.NameFarEast = "楷体" ?]|\4]zV  
                        .Range.Font.NameAscii = "Times New Roman" 1->dMm}G[  
                        .Range.Font.Size = 9 '小5号字 ocqU=^ta  
                         {C 6=[  
                        .Alignment = wdAlignParagraphCenter \f]k 
CB  
                        .LeftIndent = 0 wKtl+}}  
                        .RightIndent = 0 x5,++7Tz  
                        .FirstLineIndent = 0 C]O(T2l{l  
                        .LineSpacing = 12 W]"zctE  
                        .LineSpacingRule = wdLineSpaceExactly q MfT>rH  
                        .LineUnitAfter = 0 oX#Q<2z*  
                        .LineUnitBefore = 0 -[*,^Ti`  
                        .OutlineLevel = wdOutlineLevelBodyText Q8:Has  
                        .PageBreakBefore = False Yl4^AR&  
                        .RightIndent = 0 &oP+$;Y  
                        .WordWrap = True ^W`<gR  
                        .LineUnitAfter = 0.5 D"Bl:W'?j  
                         k$R~R-'  
                    End With wxR,OR  
                Case Else =e/9&993  
                    '不作处理 b*;Si7-  
            End Select WZ-s--n#  
             j`JMeCG=Ee  
            '含有inlineshape的段落处理 Jj>?GAir  
            If ShapeHeight > 30 Then $:=A'd2  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 iZ#!O*>  
            End If 0[RL>;
D:  
             q!{y&.&\  
            If (ShapeWidth + ShapeHeight) > 150 Then 4,bv)Im+ `  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" Eza`Z` ^el  
            End If 54gBJEhg  
             p#ol*m5wE  
            '段落计数器递 [>+4^&  
            paraCounter = paraCounter + 1 yQ_B)b  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter hv`~?n)D66  
            Me.txtStatus.Text = ParaText (|[2J3ZET  
            DoEvents )JDs\fUE  
        Loop <":;+Ng+  
    End With *?5*m+  
     H
bj,[$Jb  
    msg = "" qW$<U3u}  
     -E^vLB)O  
    For i = 0 To Me.ErrMsg.ListCount - 1 l7XUXbYp&=  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) b(*!$EB  
    Next iQ tNAj  
     ;;_,~pI?k  
     a=1NE
D'  
     6CV* Z\b  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg RJL2J]*S  
    Me.cmdCheck.Enabled = True =}lh_  
    Me.txtStatus.Visible = True W3]_m8,Z  
    Me.lbParaType.Visible = False X\]L=>]C  
     5m*iE*+  
    bContinue = False \kp8S'qVo  
End Sub Pj#<K%Bz  
j| v%)A  
Sub CheckPara(ByRef ChKRange As Range, ParaType As String, ReplaceTEXT As String, TitleString As String, TitleNo As String, shpCounter As Long, MaxShpHeight As Long, TotalShpWidth As Long) X@$f$=  
    Dim pTEXT As String ]mo-rhDsM  
     Upc+Ukw  
    pTEXT = ChKRange.Text nG,A@/N  
     |8&,b`Gfo  
    ParaType = "其它" wg7V-+@i  
    TitleString = pTEXT X}=n:Ql'YY  
    TitleNo = "N/A" X>1,!I9  
     "W=AB&  
    shpCounter = ChKRange.InlineShapes.Count 3)F|*F3R  
    If shpCounter <> 0 Then (X $=Q6  
        MaxShpHeight = 0: TotalShpWidth = 0 ;9[fonk  
        For i = 1 To shpCounter W^0w  
            k = ChKRange.InlineShapes(i).Height q 0$,*[PH  
            l = ChKRange.InlineShapes(i).Width O}+.U<V  
            If k > MaxShpHeight Then G<At_YS  
                MaxShpHeight = k 3*]eigi)  
            End If Uddr~2%(  
            TotalShpWidth = TotalShpWidth + l v/Py"hQ  
        Next 9E
zj"  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then HTVuStM8  
            Exit Sub
whmdcVh.  
        End If [=" e ziM{  
    End If -d~4A  
     b=g8eMm  
    '空行 Lrta/SU*  
    If Len(pTEXT) <= 2 Then _g+JA3sIJ  
        Exit Sub d:ARf  
    End If xAqb\|$^  
     "oTHq]Ku  
         E[2m&3&  
    '是否为表格中的文字 un)4eo!7  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then OP~Hdo
cB  
        ParaType = "表格内容" M}`B{]lLz  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) I3=%h  
        If k = 1 Then G^~k)6v=m  
            ParaType = "表格首行" Ov};e  
        End If $:cE ^8K  
        Exit Sub D2< fw#  
    End If qOe+ZAJ{%N  
     C\3y
{s  
    '例外情况：脚注 E.r>7`E  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then '{a/2
l  
        ParaType = "脚注" c2h{6;bfY  
        Exit Sub 1%EBd%`#  
    End If %@wJ`F2a_  
     w:%o?pKet1  
    '例外情况：尾注 T?:Rdo!:u  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then A'j;\ `1  
        ParaType = "尾注" {J{+FFsr(  
        Exit Sub $LKI T0  
    End If cWEE%  
     ~?D4[D|sB  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then hLI`If/+K  
        ParaType = "页眉页脚" T e.Y#lCT$  
        Exit Sub b1^vd@(lx  
    End If qmnZAk  
     |2?'9<  
     t`WB;o!  
    With regEX *}
]Nf  
        .Global = True ~c8?>oN(  
         ||T2~Q*:y  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" ;Yx)tWQI  
        If regEX.Test(pTEXT) Then sc|_Q/`\.  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") W0(_~  
            TitleString = regEX.Replace(pTEXT, "$3") ?{\nf7Y  
            TitleNo = regEX.Replace(pTEXT, "$1") 3[\iQ*d }B  
            ParaType = "章" | h`0u'#  
            Exit Sub Ky|88~}:C9  
        End If 8B7cBkl:  
         Y,GU%[+  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" u\E?Y[1  
        If regEX.Test(pTEXT) Then u}>#Eb  
            ParaType = "一级标题" TMAJb+@l:  
            regEX.Execute (pTEXT) LUG;(Fko  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") 2VF%@p  
            TitleString = regEX.Replace(pTEXT, "$3") Fw/6?:C}O6  
            TitleNo = regEX.Replace(pTEXT, "$1") /mXBvY  
            Exit Sub AjmVc])  
        End If vqnw#U4`  
         ?5U2D%t  
        '全角或半角括号中的数字 Ao&\EcIOT  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" 
!,l9@eJQ  
        If regEX.Test(pTEXT) Then g'pK  
            ParaType = "二级标题" 3;)>Fs;  
            regEX.Execute (pTEXT) VGfMN|h  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") B.wYHNNV  
            TitleString = regEX.Replace(pTEXT, "$5") |M>eEE*F<  
            TitleNo = regEX.Replace(pTEXT, "$2") yW+yg{Gg:  
            Exit Sub FqkDKTS\&  
        End If oeKHqP wg  
         H9KKed47d/  
        '阿拉伯数字  1. 2. 7Ilm{@b=  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" kd=GCO  
        If regEX.Test(pTEXT) Then {s)+R[?m<o  
            ParaType = "三级标题" #hW;Ju73  
            regEX.Execute (pTEXT) VcAue!MN  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 p`mS[bxv!  
            TitleString = regEX.Replace(pTEXT, "$3") 8yRJD[/S  
            TitleNo = regEX.Replace(pTEXT, "$1") stG~AC  
            Exit Sub {p)",)td  
        End If _9faBrzd  
         IYqBQnX}oM  
        '全角或半角括号中的阿拉伯数字 R?v>Q` Qi  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" *"R|4"uy  
        If regEX.Test(pTEXT) Then ]Oh@,V8  
            ParaType = "四级标题" $.C=H[QC  
            regEX.Execute (pTEXT) * 1T&  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") aHs^tPg  
            TitleString = regEX.Replace(pTEXT, "$5") {_b%/eR1  
            TitleNo = regEX.Replace(pTEXT, "$2") TK5K_V*7  
            Exit Sub ;6gDV`Twy  
        End If il}%7b-  
         z3`-plE  
        '表格名称 4,..kSA3iw  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" w3#Wh|LQ-  
        If regEX.Test(pTEXT) Then ?f#y1m  
            ParaType = "表格标题" g+DzscIT  
            regEX.Execute (pTEXT) s4G|_==  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) F|F]970  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) T#M,~lD  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) cmBB[pk\  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 L=c!:p|7)  
            Exit Sub wihH?~]  
        End If bsuus R9W  
         3j,Q`+l/6d  
        '图片名称 6$fHtJD:  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" 'Hc-~l>D  
        If regEX.Test(pTEXT) Then 6S\C}U/  
            ParaType = "图片标题" ]P#XVDn+;  
            regEX.Execute (pTEXT) -d8TD*^  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") ^:6{22C{  
            TitleString = regEX.Replace(pTEXT, "$3")  u*e.yN  
            TitleNo = regEX.Replace(pTEXT, "$1") #?5 (o  
            Exit Sub ~;Ov-^tp  
        End If WF2}-NU"  
         @*}D$}aR'V  
        '参考文献 <!L>Exh&r  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 {xwm^p(f  
        If regEX.Test(pTEXT) Then 0FGe=$vD  
            ParaType = "文献条目" k xP-,MD  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") l-K9LTd  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") HqI t74+  
            Exit Sub "XB[|#&  
        End If jH19k}D  
         2GFLnz  
        prfx = Left(pTEXT, 2) |w_7_J2
 
        If prfx = "注：" Or prfx = "注:" Then +IrLDsd  
            ParaType = "图表注解" =2
[7
 E  
            Exit Sub t]>Lh>G  
        End If lFa02p0  
         r9X? PA0f  
         z|=}1;(.  
        ParaType = "正文" nFE4qm  
         JQ}$Aqk  
    End With :Mb%A  
End Sub W^fuScG)c  
L~ _9_9c  
Sub ConvertListToOrdinary() E8>Rui@9  
    Dim st As Paragraph 7Ok;Lt!x  
    With ActiveDocument h lkn%  
        For i = .Paragraphs.Count To 1 Step -1 g1XZ5P} f  
            Set st = .Paragraphs(i) .nG#co"r}3  
            lst = st.Range.ListFormat.ListString q/4YS0CqE  
            If lst <> "" Then 3l)hyVf&  
                st.Range.ListFormat.RemoveNumbers "vXxv'0\f  
                st.Range.InsertBefore lst & " " Rz(QC\(  
            End If 8S>&WR%jH]  
        Next W"):-Wq  
    End With *j]9vktH  
    Set st = Nothing AP [|Ta  
End Sub W4hbK9y  
M9EfU  
Private Sub UserForm_Activate() T^:UBjK6t{  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" 8'~[pMn`  
    Me.lbTotal.Font.Bold = True OTC!wI g  
    Me.txtStatus.Visible = False bx<RV7>0  
    Me.cmdCheck.Enabled = True Dp vk\t  
pcau}5 .  
End Sub 0.dgoq3u  

'
pm2n0  
LAVAFlK5  
Sub CheckSuperScript() /3A^I{e74  
    Selection.Find.ClearFormatting W)9K`hM6  
    Selection.Find.Replacement.ClearFormatting Em?d*z  
    With Selection.Find VGtC)mG8)  
        .Text = "[【\[［〖](*)[】\]〗］]" _8"O$w  
        .Replacement.Text = "[\1]" }tsYJlh5  
        .Replacement.Font.Superscript = True eK.e|z|  
        '.Replacement.Font.Color = wdColorBlue aD=a,  
        .Forward = True y|CP;:f;  
        .Wrap = wdFindContinue >"gf3rioW  
        .FORMAT = True f-}[_Y%;  
        .MatchCase = False :{qv~&+C  
        .MatchWholeWord = False )A!>=2M`  
        .MatchByte = False !xP8#|1  
        .MatchAllWordForms = False s
W)Zi  
        .MatchSoundsLike = False EG0WoUX|  
        .MatchWildcards = True a-l;vDs  
    End With ~
(x;5{  
    Selection.Find.Execute Replace:=wdReplaceAll L~(_x"uXd  
End Sub HU
%o6cw  
HH
iT]S9  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) +#GQ,  
    bContinue = False 8d?g]DEN)6  
    Set regEX = Nothing Z^V6K3GSz-  
End Sub kHXL8k#T  
?z}=B  
Sub CeateOrModifyStyle() cU ?0(z7  
' =3q/F7-  
' n9@ of  
Dim stl As Style Wm_4avXtO  
     [PQ?#:r  
    Options.Pagination = False ,z3{u162  
     hy}8Aji&  
    On Error Resume Next 0|2%vh>J  
    For Each stl In ActiveDocument.Styles ~2<7ZtV=  
        stl.Delete 5nv<^>[J  
    Next uIcn{RZ_z  
    On Error GoTo 0 >2~+.WePu  
     R>,:A%?^b5  
    Set stl = Nothing 0dhF&*h|L  
     u`y><w4i  
    DoEvents i-bJS6  
    On Error Resume Next Of{/t1o?  
     MxSM@3v(  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph 1c<=A!"{  
     )E6;-rD0^+  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph 3= 
xhoRX  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph cs T2B[f9D  
     m_=$0m J$  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph \zieyE  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph ^\\Tx*#i  
     RRmLd/(  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph ~\=1'D^6CK  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph @kk4]:,w  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph d@ Y}SWTB  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph /J04^6  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph {LX.iH 9}l  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph QA2borfy  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph XEn*?.e  
     Sl-v W  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph I?"q/Ub~h  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph '&.#  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph &C_'p{G  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph ._8KsuJG  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph R<sJ^n
x  
     4D['^q  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph T32+3wb"I  
    On Error GoTo 0 (7XCA,KTGI  
    DoEvents &8%e\W\K:/  
     '3TW [!m  
    'BaseStyle V6t,BJjS  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False %6L^ 2 X  
    With ActiveDocument.Styles("BaseStyle").Font Vl_:c75"  
        .NameFarEast = "宋体" ~.A)bp  
        .NameAscii = "Times New Roman" @?=|Y  
        .NameOther = "宋体" 'a$Gv&fu  
        .Size = 10.5 Mr?Xp(.}G  
        .Bold = wdUndefined YhOlxON
 
        .Italic = wdUndefined b7
!Qn}  
        .Subscript = wdUndefined HHq_ P/'  
        .Subscript = wdUndefined m>4ahue$  
         6b%WHLUeT  
        .Underline = wdUnderlineNone {.Z}5K  
        .UnderlineColor = wdColorAutomatic JL\w_v  
        .StrikeThrough = False .mDM[e@'  
        .DoubleStrikeThrough = False [|P!{?A43|  
        
8'
<- :KG  
        .Outline = False 9so6WIWc  
        .Emboss = False @fs`=lL/  
        .Shadow = False `D`sr[3n  
        .Hidden = False (S xR`QP?,  
        .SmallCaps = False q-]`CW]n  
        .AllCaps = False x%+aKZ(m)  
        .Color = wdColorAutomatic ta`N8vnf  
        .Engrave = False ,Y|^^?'j Q  
        .Scaling = 100 T.Ryy"%F  
        .Kerning = 1 }b=}uiR#  
        .Animation = wdAnimationNone u}!@ ,/)  
        .DisableCharacterSpaceGrid = False e *@{%S  
        .EmphasisMark = wdEmphasisMarkNone si&S%4(  
    End With MS0Fl|YA  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat ##@$|6  
        .LeftIndent = 0 0KMctPT]p  
        .RightIndent = 0 COTp  
        .SpaceBefore = 0  `)GrwfC  
        .SpaceBeforeAuto = False 356>QW'm  
        .SpaceAfter = 0  PZ{Dv'C  
        .SpaceAfterAuto = False {Z h>mHW3  
         0{dz5gUde  
        .LineSpacingRule = wdLineSpaceSingle K$M^gh0  
        .Alignment = wdAlignParagraphJustify )K,F]fc+O  
         N@O8\oQG  
        .WidowControl = False UNPezHaz  
        .KeepWithNext = False %Eb%V($  
        .KeepTogether = False 3l3+A+n  
        .PageBreakBefore = False 1AG=%F|.  
        .NoLineNumber = False Z9575CI<  
         e=4+$d  
        .FirstLineIndent = CentimetersToPoints(0) AZa6Cw  
        .OutlineLevel = wdOutlineLevelBodyText 7<%<Ff@^)O  
        .CharacterUnitLeftIndent = 0 D[_|*9BC  
        .CharacterUnitRightIndent = 0 |tv" B@`  
        .CharacterUnitFirstLineIndent = 0 BNd^qB ?  
        .LineUnitBefore = 0 Vs
%|pIV
 
        .LineUnitAfter = 0 {?J/c{=/P  
        .AutoAdjustRightIndent = True z"+Mrew  
        .DisableLineHeightGrid = True OfctoPP _0  
         L
]d-hs  
        .FarEastLineBreakControl = True "I=\[l8t  
        .WordWrap = True 0PU8#2pR  
        .Hyphenation = False D8>
enum  
         Nluv/?<  
        .HangingPunctuation = True Z^]|o<.<I  
        .HalfWidthPunctuationOnTopOfLine = True @y82L8G/  
        .AddSpaceBetweenFarEastAndAlpha = True {e+- vl  
        .AddSpaceBetweenFarEastAndDigit = True @J5Jpt*IE  
        .BaseLineAlignment = wdBaselineAlignBaseline *uo'VJI7_,  
    End With TF 
'U  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False = M]iIWQ@`  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll 4'-|UPhx  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese g.'yZvaP  
    ActiveDocument.Styles("BaseStyle").NoProofing = False Si_%Rr&jW  
     n|b5? 3  
    '一级标题题样式 x9x E&  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") z)z{3rR|PW  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" 4m*M,#mV  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False 5aln>1x>hn  
    With ActiveDocument.Styles("QLNU一级标题").Font d?:=PH  
        .NameFarEast = "黑体" F)
+{AQL  
        .NameAscii = "Arial Black" _~q?
_'kx  
        .NameOther = "黑体" Pu"R,a  
        .Name = "黑体" %]I ZLJ  
        .Size = 16              '三号 p/U+ 0f  
        .Bold = True rS4@1`/R  
        .Italic = wdUndefined 6B@CurgB  
        .Subscript = wdUndefined .&9 i  
        .Superscript = wdUndefined IkrF/$r  
    End With PH> b-n  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat hQ(q
bt{e  
         VQ0fS!5'  
        .LeftIndent = CentimetersToPoints(0) SB5&A_tr  
        .RightIndent = CentimetersToPoints(0) %{/%mJoX  
        .FirstLineIndent = CentimetersToPoints(0) hSFn8mpXT  
         3t<a $i
 
        .LineSpacingRule = wdLineSpaceSingle NzU,va N  
        .Alignment = wdAlignParagraphCenter _~rI+lA  
         !- N6l6N  
        .WidowControl = True /9zE^YcT  
        .KeepWithNext = True ^|/](  
        .KeepTogether = True ]da^xWK  
        .OutlineLevel = wdOutlineLevelBodyText Ma8_:7`>O  
         }~"hC3
w  
        .LineUnitBefore = 0.5 lu#LCG-.  
        .LineUnitAfter = 0.5 {dL?rQ>5L  
    End With ZTU&,1Y;  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False )(tM/r4`c&  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll "y_#7K  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese 2Fz|fW_  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True LJOr!rWi  
    DoEvents X=Ys<TM,  
     (y?ITz9  
    '二级 {_Lgtu  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") p=C%Hmd5E  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" #% of;mJv  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False H"C[&r  
    With ActiveDocument.Styles("QLNU二级标题").Font Wm);C~Le  
        .NameFarEast = "黑体" 6I!7c^]t  
        .NameAscii = "Arial Narrow" -S$1Yn  
        .NameOther = "黑体" mwY IJy[  
        .Name = "黑体" c%[#~;E  
        .Size = 15        '小三号 $&<uT  
        .Bold = False K]j0_~3
s  
        .Outline = False i
thewup  
        .Italic = wdUndefined +V{7")px6  
        .Subscript = wdUndefined g8w2Vz2/  
        .Superscript = wdUndefined /F4pb]U!*  
    End With "=6 v&G]U4  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat _UT$,0u_i  
        .LeftIndent = CentimetersToPoints(0) .\8X[%K9nc  
        .RightIndent = CentimetersToPoints(0) !'j?.F$}  
        .FirstLineIndent = CentimetersToPoints(0) ^=:9)CNw(  
         7<jZ`qdq_  
        .LineSpacingRule = wdLineSpaceSingle +,yK;^b  
        .Alignment = wdAlignParagraphLeft x5QaM.+=J  
         /Nr*`l  
        .WidowControl = True .Wq@gV  
        .KeepWithNext = True t=u Qb=  
        .KeepTogether = True ?{U m  
        .PageBreakBefore = False ZR$'u%+g'  
        .OutlineLevel = wdOutlineLevelBodyText o99pHW(E  
         5Q 'i2*j  
        .LineUnitBefore = 0.5 rp6q?3=g  
        .LineUnitAfter = 0.5 >0dv+8M n  
         zH>hx5,k'X  
    End With jMbC Y07v  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False
^{xeij/  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll vjQb%/LWl  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese !! 4Qj  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True c-g)eV|)S  
    DoEvents Kh4$ wwn  
     E[O<S B I  
    '三级标题样式 ' j6gG  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") hUD7_arKF  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" f]G>(V=i  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False !^v5-xO?rP  
    With ActiveDocument.Styles("QLNU三级标题").Font k51Eyy50(  
        .NameFarEast = "宋体" ~}!3G  
        .NameAscii = "Times New Roman" <`jLY)sw  
        .NameOther = "黑体" +8v9flh  
        .Name = "黑体" u$D*tqxG  
        .Size = 14               '四号 Fe.t/amS/  
        .Bold = False N gLU$ /y;  
        .Outline = False
`u.t[  
        .Italic = wdUndefined bu=?N  
        .Subscript = wdUndefined 6<N
5_1  
        .Superscript = wdUndefined 6m VuyI  
    End With w,O
,W[C  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat lip[n;Ir>  
        .LeftIndent = CentimetersToPoints(0) xB@|LtdO9;  
        .RightIndent = CentimetersToPoints(0) l3Lyea:  
        .FirstLineIndent = CentimetersToPoints(0) 4n %?Y
Q[t  
         uP<0WCN  
        .LineSpacingRule = wdLineSpaceSingle kN%MP6?J  
        .Alignment = wdAlignParagraphLeft W`"uu.~f  
         gqR)IVk>%  
        .WidowControl = True ?7M.o  
        .KeepWithNext = True 2_ :n  
        .KeepTogether = True 0<8XI>.3D  
        .PageBreakBefore = False eeHP&1= 7  
        .OutlineLevel = wdOutlineLevelBodyText 70l
fb`  
         }?&k a$rI  
        .CharacterUnitLeftIndent = 0 "Tm[t?FMbe  
        .CharacterUnitRightIndent = 0 v^ /Q 8Q  
        .CharacterUnitFirstLineIndent = 2 ,R$u?c0>'&  
         nOQa_G]Gz  
        .LineUnitBefore = 0.5 PG8^.)]M  
        .LineUnitAfter = 0 `60gFVu  
    End With `xz<>g9e  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False M:P0m6ie  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll TZtjbD>B  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese }l K3-2P k  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True }BiiE%a  
    DoEvents e5.h ?  
     L:(1ZS  
    '四级标题样式 Ug:\  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") *]h`KxuO  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" dgDy5{_  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False ,
ZQZ}`x(  
    With ActiveDocument.Styles("QLNU四级标题").Font [HN|\afz  
        .NameFarEast = "宋体" 0Qv T
 
        .NameAscii = "Times New Roman" !r`,=
jK"  
        .NameOther = "宋体" 0W3 i()  
        .Name = "宋体" ifo7%XPcg  
        .Size = 12               '小四号 i 9g>9  
        .Bold = True 50 A^bbid  
        .Outline = False 4QIE8f Y  
        .Italic = wdUndefined n39t}`WIl  
        .Subscript = wdUndefined >Bs#Xb_B]  
        .Superscript = wdUndefined l tkI}h,e  
    End With \o\nr!=k  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat k"g._|G  
         V97,1`  
        .LeftIndent = CentimetersToPoints(0) U|HB=BP  
        .RightIndent = CentimetersToPoints(0) CiR%Ujf  
        .FirstLineIndent = CentimetersToPoints(0) mKT>,M  
         it>r+%  
        .LineSpacingRule = wdLineSpaceSingle LGc&o]k  
        .Alignment = wdAlignParagraphLeft }gkM^*$:%  
         xr7+$:>a  
        .WidowControl = True Hg9CZMko  
        .KeepWithNext = True (_4;') 9  
        .KeepTogether = True JT9N!CGZ  
        .PageBreakBefore = False Dw7vv]+ S  
        .OutlineLevel = wdOutlineLevelBodyText tX!nsm1  
         ,v&L:a  
        .CharacterUnitLeftIndent = 0 Ew S!]h?  
        .CharacterUnitRightIndent = 0 >|6iR%"f#  
        .CharacterUnitFirstLineIndent = 2 i5 >+}$1  
         f30Pi1/h=c  
        .LineUnitBefore = 0 +525 {Tj  
        .LineUnitAfter = 0 n!6Z]\8~$  
         y7S4d~&  
    End With hLDA]s
 
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False |7B!^ K  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll rC
S#{x  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese RUr=fEH  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True goJ|oi  
    DoEvents NxVw!TsR  
     /)xlJUq  
    '正文校式 7 Sa1;%R  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") QI]Ih  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" 
BS&;n  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False 2"fO6!hh  
    With ActiveDocument.Styles("QLNU正文").Font Dfd-^ N!  
         \uME+NF  
        .NameFarEast = "宋体" kQaSbpNmH  
        .NameAscii = "Times New Roman" k|BHnj  
        .NameOther = "宋体" EZ.!rh~+  
        .Name = "宋体" 1
5$4&=O  
         c8Q]!p+Yp  
        .Size = 12               '小四号 :L_BG)dM  
         T6pLoaKu  
        .Bold = wdUndefined *cTO7$\[  
        .Italic = wdUndefined _/S?#   
        .Subscript = wdUndefined D0mI09=GtQ  
        .Superscript = wdUndefined #wc \T  
         -dv%H{  
        .Outline = False l;sy0S"DO]  
        .Emboss = False w'X]M#Q><  
        .Shadow = False .bVmqR`  
        .Hidden = False ;.wX@  
         *_ +7ni  
        .DisableCharacterSpaceGrid = True w#N?l!5  
    End With )RYG%  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat =&!HwOnp  
         $ n,Z  
        .LeftIndent = CentimetersToPoints(0) (~)%Fo9X"  
        .RightIndent = CentimetersToPoints(0) <`!PCuR  
        .FirstLineIndent = CentimetersToPoints(0) QQe;1O  
         c9j*n;Q  
        .LineSpacingRule = wdLineSpaceExactly `VQb-V  
        .LineSpacing = 20 uY< H#k  
        .Alignment = wdAlignParagraphLeft 9'x)M?{8  
         O)kg BrB  
        .WidowControl = False )2DQ>cm  
        .KeepWithNext = False f'q 28lVf  
        .KeepTogether = False "xAWG$b  
        .PageBreakBefore = False xyH/e* a  
        .Hyphenation = False CSV;+,Vv  
         q8:{Nk  
        .OutlineLevel = wdOutlineLevelBodyText p"*y58  
         mp~
{W  
       @<M*qK1h  
        .CharacterUnitLeftIndent = 0 'cNKjL;  
        .CharacterUnitRightIndent = 0 hI
pKJ&hm  
        .CharacterUnitFirstLineIndent = 2 cL8#S>>u.  
         NNG}M(/V  
        .LineUnitBefore = 0 wh:1PP  
        .LineUnitAfter = 0 ?EU\}N J
 
        .SpaceBefore = 0 51# "3S  
        .SpaceAfter = 0 g\GdkiI
j  
         -Q;#sJ?  
        .DisableLineHeightGrid = True ~|wos-nM  
    End With MHL("v(@B  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False hF3&i=;.  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll [!^-J}^g~\  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese Jti(b*~  
    ActiveDocument.Styles("QLNU正文").NoProofing = True >)_ojDO  
    DoEvents T\VNqs@  
     0)Rw|(Fpo]  
    '图片段落样式 ecOy6@UDY  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") *?yJkJ"  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" 0W`LVue  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False .+y>8h3{  
    With ActiveDocument.Styles("QLNU图片段落").Font Px5t,5xT8  
        .Size = 12               '小四号 sA9&/p/  
        .Italic = wdUndefined mL~z~w*s  
        .Subscript = wdUndefined o5\b'hR*#  
        .Superscript = wdUndefined 8hA^`Y  
    End With M,3wmW&d6  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat u@p?  
         wA`"\MWm  
        .LeftIndent = CentimetersToPoints(0) hNXBVIL<&  
        .RightIndent = CentimetersToPoints(0) 4$,,Ppn  
        .FirstLineIndent = CentimetersToPoints(0) NZu)j["  
         BIf^~jAER%  
        .LineSpacingRule = wdLineSpaceSingle 0aR,H[r[?  
        .Alignment = wdAlignParagraphCenter AGYm';z3  
        .KeepWithNext = True PN$ .X"D8  
        .OutlineLevel = wdOutlineLevelBodyText vRA ',(](  
         7%OKH<i\2<  
        .CharacterUnitLeftIndent = 0 BpO9As 1um  
        .CharacterUnitRightIndent = 0 q Q7w&9r.M  
        .CharacterUnitFirstLineIndent = 0 kC$&:\Rh  
         j%<}jw[2  
        .LineUnitBefore = 0 4gdY`}8b^}  
        .LineUnitAfter = 0 )a=/8ofe  
    End With yBLUNIr  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False bg?"I
Lpk  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll ig0u^BC  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese +:6Ii9GN  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True FVF-:C
 
    DoEvents V 'X;jC  
     5j"1z1_&  
     t ]c{c#N/  
    '第X章 Lc<eRVNd,  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 'mdMq=VI  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" +Ra3bjl  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False 'f/Lv@]a  
    With ActiveDocument.Styles("QLNU章节标题").Font JO@Bf  
        .NameFarEast = "黑体" ql5x2n  
        .NameAscii = "Arial Black" )[&_scSa  
        .NameOther = "Arial Black" TO;.eN!sv  
        .Name = "黑体" Uz%Z &K  
        .Size = 16 ?IX!+>.H  
        .Bold = True ? 81X  
        .UnderlineColor = wdColorAutomatic ZX b}91rzt  
        .Outline = False lEPAP|~uw  
        .Italic = wdUndefined R*1kR|*_)  
        .Subscript = wdUndefined o@lWBfB*%e  
        .Superscript = wdUndefined j1Yq5`ia  
        .Scaling = 100 /T0nLp`gi  
        .DisableCharacterSpaceGrid = True p4VqV6LwD  
    End With ;]CVb`d  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat Aox3s?  
        .LineSpacingRule = wdLineSpaceSingle |0bc$ZY:  
        .Alignment = wdAlignParagraphCenter y?30_#[dN  
        .WidowControl = True lf>nbv
p  
        .KeepWithNext = True BbJkdt7  
        .KeepTogether = True +TN9ujL6@  
        .PageBreakBefore = True :^C'<SY2Gs  
        .OutlineLevel = wdOutlineLevelBodyText ^T4Ay=~{  
         ,6
<"  
        .LeftIndent = CentimetersToPoints(0) oJ*1>7[J  
        .RightIndent = CentimetersToPoints(0) h5|.Et  
        .FirstLineIndent = CentimetersToPoints(0) (#(Or  
         -%IcYz
yA  
        .CharacterUnitLeftIndent = 0 TrE3S'EU#R  
        .CharacterUnitRightIndent = 0 yy2Ie  
        .CharacterUnitFirstLineIndent = 0 q}L+/
+b  
         FM^9
}*  
        .LineUnitBefore = 1 AyE\fY5  
        .LineUnitAfter = 0.5 
Gie@JX  
         c\cZ]RZ  
        .AutoAdjustRightIndent = False XeUC0K[D  
        .DisableLineHeightGrid = True v4*rPGv  
        .FarEastLineBreakControl = True $2z _{@Z  
        .WordWrap = True )_jSG5k  
    End With ~ 3
WL)%  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False 1 [z'G)v  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll 5 HV)[us  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese `GQ{*_-  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True NWmtwS+@  
    DoEvents OQlG+|  
     *QE<zt  
    '表格标题 9x~-*8aw  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") y no('1B@  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" j?(!^ _!m  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False <o:@dS  
    With ActiveDocument.Styles("QLNU表格标题").Font 6k])KlJ2;  
        .NameFarEast = "楷体" 9w;?-  
        .NameAscii = "Arial" U;xF#e  
        .Name = "楷体" TbE:||r?^  
        .Size = 10.5 s[3fqdLP&  
        .Bold = True (7$$;  
        .Underline = wdUnderlineNone ySdN;d:q  
        .Italic = wdUndefined /jD-\,:L}  
        .Subscript = wdUndefined j! #OG  
        .Superscript = wdUndefined d<o.o?Vc  
        .Color = wdColorAutomatic >tRHNB_  
    End With ^E>CGGS4  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat `T!#@&+  
         d-!<C7O}  
        .LineSpacingRule = wdLineSpaceSingle {LE&ylE  
        .Alignment = wdAlignParagraphCenter Y'"N"$n'_  
        .KeepWithNext = True !ZtSbOC'  
        .KeepTogether = True I#A2)V0P)  
        .OutlineLevel = wdOutlineLevelBodyText _; ]e@  
         h.tY 'F  
        .LeftIndent = CentimetersToPoints(0) NVIWWX9?  
        .RightIndent = CentimetersToPoints(0) 5K56!*Y  
        .FirstLineIndent = CentimetersToPoints(0)
o96:4j4  
         e`U Qz$4!  
        .CharacterUnitLeftIndent = 0 O ++/ry%k  
        .CharacterUnitRightIndent = 0 p5]_}I`+2  
        .CharacterUnitFirstLineIndent = 0 ,8K'
F  
         eE:&qy^  
        .LineUnitBefore = 1 {_ V0  
        .LineUnitAfter = 0 e(\I_  
         1]4^V7y  
    End With whc[@Tyx  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False ;q#]-^  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll k1
N$+h ;\  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese V+B71\x<  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True iL?iz?+.%@  
    DoEvents b ^V'BC3  
)ctr"&-  
    '表格首行 6p<`h^  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") s_wUM)!  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False W=-|`  
    With ActiveDocument.Styles("QLNU表格首行").Font @YL} km&Fw  
        .NameFarEast = "楷体" 2P~)I)3V  
        .NameAscii = "Times New Roman" KS>$`ax,
  
        .Name = "楷体" hCc0sRp  
        .Size = 9 )3E,D~1e%  
        .Bold = True )Id2GV~2B  
        .Underline = wdUnderlineNone /NBTvTI  
        .Italic = wdUndefined H:oQ  
        .Subscript = wdUndefined X:q_c=X  
        .Superscript = wdUndefined @Jv# fr  
    End With #n})X,ip2  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat !Rw&DFU  
        .LineSpacingRule = wdLineSpaceSingle g
T1P*N;v  
        .Alignment = wdAlignParagraphCenter )r!e2zc=Q  
         6* r cR]  
        .LeftIndent = CentimetersToPoints(0) "G?9b  
        .RightIndent = CentimetersToPoints(0) Px4/O~bLk  
        .FirstLineIndent = CentimetersToPoints(0) RR25Q.c  
         ,jh~;, w2  
         NCt
~9xS.  
        .CharacterUnitLeftIndent = -0.5 RtF8A5ys  
        .CharacterUnitRightIndent = -0.5 i+(GNcg2  
        .CharacterUnitFirstLineIndent = -0.5 z:G}>fk5  
         4~u9B/v
 
        .LineUnitBefore = 0 T |"`
8mG  
        .LineUnitAfter = 0 BnEdv8\,&s  
        .SpaceBefore = 0 13f<0wg  
        .SpaceAfter = 0 juno.$ 6  
         x*8O*!ZZ  
    End With ()|3  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False Y)p4]>lT+8  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll C|e+0aW  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese r+gjc?Ol  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True |XcH]7Ai"  
    DoEvents 9&jPp4
qG  
&IQ%\W#aY  
    '表格内容 lmFA&s"m  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") >BiRk%x  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False f$D@*33ft  
    With ActiveDocument.Styles("QLNU表格内容").Font #\FT EY!  
        .NameFarEast = "楷体" >A jCl  
        .NameAscii = "Times New Roman" .LE+/n  
        .Name = "楷体" :1<~}*B@{  
        .Size = 9 TgaYt\"i[  
        .Bold = False @phN|;?  
        .Underline = wdUnderlineNone 3VP$x@AV  
        .Italic = wdUndefined 9Q[>.):  
        .Subscript = wdUndefined E <@\>y.[  
        .Superscript = wdUndefined
M<oA<#IW  
    End With r,'O).7  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat h
[U7!aM  
        .LineSpacingRule = wdLineSpaceSingle ,{<Fz%  
        .Alignment = wdAlignParagraphCenter *TnzkNN_,  
         Di.;<v#FL  
        .LeftIndent = CentimetersToPoints(0) {\We72!  
        .RightIndent = CentimetersToPoints(0) 8M
93cyX  
        .FirstLineIndent = CentimetersToPoints(0) \graMu}-  
         vl5){@   
        .CharacterUnitLeftIndent = -0.5 ,/o(|sks  
        .CharacterUnitRightIndent = -0.5 %x2b0L\g  
        .CharacterUnitFirstLineIndent = -0.5 " 3y}F  
        .LineUnitBefore = 0 \|q-+4]@,  
        .LineUnitAfter = 0 :('I)C  
        .SpaceBefore = 0 `jW4
H$D  
        .SpaceAfter = 0 L+R>%d s  
    End With HF4Lqh'oco  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False !C`20,U  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll TA)LPBG  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese jH0Bo;  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True $%He$t  
    DoEvents yh!B!v'  
_Y#Bm/*  
    '图片标题 &va*IR  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") d.\PS9l  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" ~I$}#  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False FzhT$7Gw  
    With ActiveDocument.Styles("QLNU图片标题").Font fOBN=y6x  
        .NameFarEast = "楷体" 8-A|C< "  
        .NameAscii = "Times New Roman" C_-E4I Z
)  
        .Name = "楷体" 5faj;I{%JY  
        .Size = 10.5 VK4/82@5  
        .Bold = True QMb^&?;s  
        .Underline = wdUnderlineNone pG28M]\  
        .Italic = wdUndefined TG]}X\c+V|  
        .Subscript = wdUndefined 5c;En6W  
        .Superscript = wdUndefined Kq7C0)23  
        .Outline = False JD&U}dJ  
        .Shadow = False R
uj.J,  
        .Color = wdColorAutomatic 5; f\0<-  
    End With &7][@v  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat WZ"W]Jyy{  
        .LineSpacingRule = wdLineSpaceSingle $c9=mjwH  
        .Alignment = wdAlignParagraphCenter j`9Nwa  
         l\aUresm  
        .KeepWithNext = wdUndefined ,>S+-
L8  
        .KeepTogether = True "_)|8|gN  
        .OutlineLevel = wdOutlineLevelBodyText .eTk=i[N-  
         oc;VIK)g]c  
        .LeftIndent = CentimetersToPoints(0) b`]M|C [5  
        .RightIndent = CentimetersToPoints(0) wP`sXPSmIu  
        .FirstLineIndent = CentimetersToPoints(0) ay[ZsQC  
         u+DX$#-n!]  
        .CharacterUnitLeftIndent = 0 PW^ 8;[\QP  
        .CharacterUnitRightIndent = 0 >Z"9rF2SW  
        .CharacterUnitFirstLineIndent = 0 5B|,S1b  
         }xJR.]).KW  
        .LineUnitBefore = 0 EI
K*49b2  
        .LineUnitAfter = 0 AfE%a-;:  
    End With o*;2mFP  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False {Q<0\`A  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll G+C}<S}  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese +2yF|/WW#  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True |Mlh;  
    DoEvents )k~1,  
Mdm0g  
    '目录项 {rfte'4;=  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") 9l l|JeNi  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" @\$Keg=>:  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False ~
,Mr0  
    With ActiveDocument.Styles("QLNU目录项").Font T9y768%  
        .NameFarEast = "黑体" 5G oK"F0i  
        .NameAscii = "Times New Roman" "G kI5!  
        .NameOther = "Times New Roman" 2fP~;\AP  
        .Name = "黑体" K P6PQgc  
        .Size = 10.5 #S*pD?VZ  
        .Bold = False "OJr*B  
        .Italic = wdUndefined v>:=w|.HC  
        .Underline = wdUnderlineNone AA.Ys89V  
        .Color = wdColorAutomatic Mk "vvk  
        .Superscript = wdUndefined ^Fvr f`A'  
        .Subscript = wdUndefined S
J[AiHR  
    End With ;_p fwa4  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat `U#Po_hq  
         T0?uC/7H  
        .LineSpacingRule = wdLineSpaceSingle j`Nh7+qs  
        .Alignment = wdAlignParagraphLeft oek #^:pF  
         2:~cJ k{  
        .WidowControl = False kYtHX~@  
        .KeepWithNext = False oVEAlBm^v  
        .KeepTogether = False Wxk;g  
        .PageBreakBefore = False w>vmF cp  
        .NoLineNumber = False X#7}c5^Y  
        .OutlineLevel = wdOutlineLevelBodyText ?&\h;11T  
         N1s.3`  
        .LeftIndent = CentimetersToPoints(0) *k[kV  
        .RightIndent = CentimetersToPoints(0) #'iPDRYy  
        .FirstLineIndent = CentimetersToPoints(0) H9:%6sds  
         khS/'b  
        .CharacterUnitLeftIndent = 0 X\'E4  
        .CharacterUnitRightIndent = 0 `$f2eB&   
        .CharacterUnitFirstLineIndent = 0 Vku#;:yUb^  
         j88=f#<  
        .LineUnitBefore = 0 "B?R| Xg  
        .LineUnitAfter = 0 \gP. \  
    End With xfes_v""  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False /Mx.:.A&$  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll jQs*(=ls  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot T NIst  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese 8.-S$^hj~6  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True } bCK  
    DoEvents \Nyr=<c  
     uZ<%kV1B  
    '参考文献 .xo_}Vw  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") W/a,.M  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" -[<vYxX:h:  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False r hZQQOQ  
    With ActiveDocument.Styles("QLNU参考文献").Font pMDH   
        .NameFarEast = "宋体" N+hedF@ZU  
        .NameAscii = "Times New Roman" e SK((T  
        .NameOther = "Times New Roman" ~K%k 0kT  
        .Name = "Times New Roman" bk kSIl+Q  
        .Size = 12 9PCa*,  
        .Bold = False A{1 \f*  
        .Italic = wdUndefined p4y6R4kyT  
        .Subscript = wdUndefined >*{:l,LH  
        .Superscript = wdUndefined e@yx}:]h  
        .Underline = wdUnderlineNone HoV{Uzm  
        .UnderlineColor = wdColorAutomatic +/(|?7i@  
        .Color = wdColorAutomatic ]*a@*0=  
        .Engrave = False i.F8  
    End With IuDT=A  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat i<Q&
D\Pv  
         [JZ h*A  
        .LineSpacingRule = wdLineSpaceExactly 1oB$u!6P   
        .LineSpacing = 16 p&QmIX]BZ  
        .Alignment = wdAlignParagraphLeft *F|i&2  
        .WidowControl = False +`9yZOaC#  
        .KeepWithNext = False /t$*W\PL@  
        .KeepTogether = False f!EOYowW  
        .PageBreakBefore = False KZZ Oi:  
        .OutlineLevel = wdOutlineLevelBodyText i<bxc  
         wn{]#n=|l  
        .LeftIndent = CentimetersToPoints(0) Pwg/Vhfh  
        .RightIndent = CentimetersToPoints(0) J+0/ :00(  
        .FirstLineIndent = CentimetersToPoints(0) ~@?"'!U  
         EZ*t$ 3.T  
        .CharacterUnitLeftIndent = 0 Z$1.^H.Db  
        .CharacterUnitRightIndent = 0 ~R'BU=!;F  
        .CharacterUnitFirstLineIndent = -2 xg{VP7  
         C~{xL>I  
        .LineUnitBefore = 0 ,5 =kDw2  
        .LineUnitAfter = 0 K:uQ#W.&  
        .SpaceBefore = 0 *^ey]),f54  
        .SpaceAfter = 0 .@Hmg  
          c,.0d  
    End With '%);%y@v  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False ,}n=Z   
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll gh'kUZG a  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS 89db5Dx  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True A%P 8c  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese )G^p1o;\  
    DoEvents E`(5UF*>  
gu^_iU  
    ' T<XfZZ)l<`  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") Lp!0H `L  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle"
:wSJ-\'$  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False m'3OGvd  
    With ActiveDocument.Styles("QLNU论文题目").Font ,RR;
VKj  
        .NameFarEast = "黑体" |1lf(\T_  
        .NameAscii = "Arial Black" F68},N>vr@  
        .NameOther = "Arial Black" xSx&79Ez<*  
        .Name = "Arial Black" F:M/z#:~  
        .Size = 16 "-28[a3q  
        .Bold = False :&qC<UD  
        .Italic = wdUndefined *&h6*zP?  
        .Superscript = wdUndefined 5"$e=y/  
        .Subscript = wdUndefined L!?v BL  
        .Underline = wdUnderlineNone +<GrRYbC  
        .UnderlineColor = wdColorAutomatic 48H5_9>:  
        .Color = wdColorAutomatic `!<x "xKu  
]&' jP  
    End With )CFk`57U  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat F9v)R#u~  
        .LineSpacingRule = wdLineSpaceSingle 3Hy%SN(  
        .Alignment = wdAlignParagraphCenter =obt"K%n  
        .WidowControl = True 0 -!?W  
        .KeepWithNext = True 5d>nIKW  
        .KeepTogether = True 3,%nkW  
        .PageBreakBefore = True =A$Lgk>|  
        .NoLineNumber = False =!(S<] ;  
        .OutlineLevel = wdOutlineLevelBodyText @>+^W&  
         4P`PmQ=GQh  
        .LeftIndent = CentimetersToPoints(0) % N7gT*B:  
        .RightIndent = CentimetersToPoints(0) ;A x=]Q  
        .FirstLineIndent = CentimetersToPoints(0) >).@Nb;e  
         -<]\l3E&J  
        .CharacterUnitLeftIndent = 0 ZUv ZNf  
        .CharacterUnitRightIndent = 0 $  9S
>I'  
        .CharacterUnitFirstLineIndent = 0 ;tXB46  
         7Y%!,ff  
        .LineUnitBefore = 1 K<RmaXZ  
        .LineUnitAfter = 1 q|R+x7x  
         !?S5IGLOj  
        .BaseLineAlignment = wdBaselineAlignAuto )o86lH"z  
    End With ! Zno[R  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False 
wEZ,49  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll f%vHx,
  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS c5Z;%v |y  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True BvSdp6z9Iv  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese IES41y<  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True b=V)?"e-  
    DoEvents 7E;>E9 '  
     jkZ_c!  
    '中文摘要 +GRxH uW,  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") mgk64}K[n  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" OY+!aG@.  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False 9)#gtDM%J  
    With ActiveDocument.Styles("QLNU中文摘要").Font )lQN)!.)  
        .NameFarEast = "宋体" ^xzE^"G6  
        .NameAscii = "Times New Roman" "9)1K!tH  
        .NameOther = "Times New Roman" ~o}moE/ ;O  
        .Name = "Times New Roman" n'! -Pv  
        .Size = 12 bta0?O #  
        .Bold = wdUndefined ])+Sc"g4k  
        .Superscript = wdUndefined d]^\
w'w$  
        .Subscript = wdUndefined jQY>9+t  
        .Italic = wdUndefined @=02  
        .Underline = wdUnderlineNone FAH[5VDr%  
        .UnderlineColor = wdColorAutomatic [[#xES21F  
        .Color = wdColorAutomatic Q~x*bMb.  
    End With >oVc5}  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat }P05eI  
        .LineSpacingRule = wdLineSpaceExactly A"Tc^Ij  
        .LineSpacing = 20 M|1eqR%x-?  
        .Alignment = wdAlignParagraphLeft 3s3 a>  
         t^`<*H  
        .WidowControl = False ~l;yr @  
        .KeepWithNext = False I[tAT
[ <  
        .KeepTogether = True We[<BJo4  
        .PageBreakBefore = False s4!|v`+$M  
        .NoLineNumber = False 0Ei\VVK>  
        .OutlineLevel = wdOutlineLevelBodyText *K]>}  
         #&;m< %  
        .LeftIndent = CentimetersToPoints(0) z~GVvgd  
        .RightIndent = CentimetersToPoints(0) C }x4#bNK  
        .FirstLineIndent = CentimetersToPoints(0) OJnPP>  
         ^nG1/}  
        .CharacterUnitLeftIndent = 0 0*37D5jH  
        .CharacterUnitRightIndent = 0 pI'8>_o  
        .CharacterUnitFirstLineIndent = 2 \/? ! 6~  
        .LineUnitBefore = 0 #k"1wSx16  
        .LineUnitAfter = 0 $
ijx#a&O  
         _JfJ%YXy  
    End With \a{Aa  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False NvXj6U*%  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll ~+sne7 6 U  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS 9m<wcZ  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True 6lB{Ao?|  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese Z)C:]}Ex  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True ~r(g|?}P  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete nL 1IS  
    DoEvents ;m-6.AV  
     <1ztj
#B  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") >l7eoj  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" ##SLwrg  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False 34"{rMbQ  
    With ActiveDocument.Styles("QLNU英文标题").Font I@8+k&nXS  
        .NameFarEast = "黑体" @C!JtgO%  
        .NameAscii = "Arial Narrow" 0L3Bo3:k  
        .Name = "Arial Narrow" fs]#/*RR  
        .Size = 16 dL1~]Z y  
        .Bold = True =YS!soO  
        .Bold = wdUndefined P58\+9d_  
        .Superscript = wdUndefined *O"%tp6  
        .Subscript = wdUndefined 9nP*N`  
        .Italic = wdUndefined rU/-Wq`B  
         M>`?m L  
        .Underline = wdUnderlineNone E#yCcC!wMY  
        .UnderlineColor = wdColorAutomatic #R~" >g:w  
        .StrikeThrough = False nEjo,   
        .DoubleStrikeThrough = False uYG #c(lc  
    End With MAsWds`bpB  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat 3MS3O.0]/  
        .LineSpacingRule = wdLineSpaceSingle BsoFQw4$9  
        .Alignment = wdAlignParagraphCenter f]@[4<Ny  
        .WidowControl = True 7AZ5%o  
        .KeepWithNext = False >WGX|"!"  
        .KeepTogether = False k@'?"CP\Xq  
        .PageBreakBefore = False ?7r
mw y\  
        .NoLineNumber = False 9'L1KQ  
        .FirstLineIndent = CentimetersToPoints(0) &6|6J1c8  
        .OutlineLevel = wdOutlineLevelBodyText O[i2A(  
         |HKHN?)  
        .LeftIndent = CentimetersToPoints(0) `D&#U'wB   
        .RightIndent = CentimetersToPoints(0) fY|@{]rx  
        .FirstLineIndent = CentimetersToPoints(0) Ri^sQ<~(  
         #o(?g-3  
        .CharacterUnitLeftIndent = 0 D'HL /[@`  
        .CharacterUnitRightIndent = 0 ~ $ cm9>  
        .CharacterUnitFirstLineIndent = 0 h$#4ebp  
         GV `idFd  
        .LineUnitBefore = 1 A"P\4  
        .LineUnitAfter = 1 ?^e*UJNM  
         B`'}&6jr.  
    End With )?= kb  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False ;j[q?^ b  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll m)tI  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS m? \#vw$
 
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True :X1`wBu  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese |q1b8A\  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True :epitpJ  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete mI{CM: :  
    DoEvents KD[)O7hYC  
jgZX~D  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") Zq2H9^![y~  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" b;&Yw-\nZ;  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False hr/xpQW  
    With ActiveDocument.Styles("QLNU英文摘要").Font ONg<  
        .NameFarEast = "宋体" $6Q2)^LJ  
        .NameAscii = "Arial" B1 jH.(  
        .NameOther = "Arial" \?5[RR  
        .Name = "Arial" cOj +}Hz58  
        .Size = 12 `Z;B
^Y0  
        .Bold = wdUndefined ND)M3qp2(  
        .Italic = wdUndefined $G^H7|PzdC  
        .Superscript = wdUndefined 8EW`*
+%=  
        .Subscript = wdUndefined i]hR7g<  
    End With cG~_EX$  
     ]ly)z[is"]  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat A;/Xt  
         q\{;_?a  
        .LineSpacingRule = wdLineSpaceExactly "9MX,}X*  
        .LineSpacing = 20 K284R=j -&  
         J8`1V`$  
        .Alignment = wdAlignParagraphJustify ss |6_H =  
         4nVO.Ud0$X  
        .WidowControl = False bKZAJLnd  
        .KeepWithNext = False ;&7qw69k  
        .KeepTogether = False K4K3<Pg  
        .PageBreakBefore = False <uWJ>sg^6  
        .NoLineNumber = False +#i,87  
         (AyRs7Dkn  
        .OutlineLevel = wdOutlineLevelBodyText P~b%;*m}8  
         YQfZiz}Fv  
        .LeftIndent = CentimetersToPoints(0) #U6/@l)  
        .RightIndent = CentimetersToPoints(0) 9fr&Yb=_o@  
        .FirstLineIndent = CentimetersToPoints(0) r`mzsO-'  
         g:@Cg.q8  
        .CharacterUnitLeftIndent = 0 iG;d0>Sp  
        .CharacterUnitRightIndent = 0 b_)QBE9  
        .CharacterUnitFirstLineIndent = 2 A ydy=sj  
         S%a}ip&  
        .LineUnitBefore = 0 &L[8Mju6  
        .LineUnitAfter = 1 x r+E  
         ]%ZjD  
    End With z~A(IQO  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False 7@e[:>e  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll IAt+S-q0  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS A-@-?AR  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False N?`GZ+5  
    DoEvents Ed ?Yk* 4  

u:{. Hn`  
    Options.Pagination = True MOH,'@&6^  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." NZi'eZ{^`  
    DoEvents .n^O)|Z
 
    ActiveDocument.Repaginate EP% M8  
XH_qA[=c]  
End Sub [\w>{  
/ab K/8ZQ  
:">~(Rd ZH