Dim bContinue As Boolean l P=I0A -  
[fT$# '6  
Dim regEX As New RegExp #'>)?]tn  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 ^c}3o|1m(  
0%L:jq{5  
Dim LastTitle0String As String, LastTitle0No As Long |J:r]);@K  
Dim LastTitle1String As String, LastTitle1No As Long PcT]  
Dim LastTitle2String As String, LastTitle2No As Long =6:9y}~  
Dim LastTitle3String As String, LastTitle3No As Long \rxjvV4fcZ  
Dim LastTitle4String As String, LastTitle4No As Long  \SQ4yc  
Dim LastTitle5String As String, LastTitle5No As Long !\1)?&y9j  
Dim LastTabelString As String, LastTableNo As Long G]k[A=dg  
Dim LastFigureString As String, LastFigureNo As Long ([rn.b]  
_, (s  
Dim strSeperator As String 25vjn 1$sW  
=gJ{75tV3  
Sub ConvertWidth(fTEXT As String, rText As String) ^VMCs/g6  
        Selection.Find.ClearFormatting w8Z#]kRv
 
        Selection.Find.Replacement.ClearFormatting 62'9lriQ  
        Selection.Find.Wrap = wdFindContinue XPMUhozV
 
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText >}~[ew  
        DoEvents pA_u;*  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True ;K8}Yq9p9  
End Sub >5kz#|@P  
A~nqSe  
Sub ClearDomain() JHm Pa  
        With Selection.Find H^S<bZ  
            .ClearFormatting uk$MQv*D  
            .Replacement.ClearFormatting }`QZV_
  
            .Wrap = wdFindContinue ^1Fzs(#.  
            Me.txtStatus.Text = "清除所有域代码" 59j`Z^e  
            DoEvents BRY/[QRqZ  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False _p1!8*0]  
        End With +kYp!00  
End Sub w{[
^  
WZ,k][~  
Private Sub cmdCheck_Click() 3>L5TYa  
    bContinue = True srN7  
    Dim NoSeries1(1 To 16) As String }F.k,2  
    Dim NoSeries2(1 To 16) As String S{&%tj~U  
    Dim NoSeries5(1 To 16) As String )6p6<y  
    Dim NoSeriesRM(1 To 16) As String % au>D  
    Dim paraTotal As Long, ParaText As String jG{?>^
 
    Dim ttString As String, ttNo As String \7qj hA@  
     y_n4Y[4g  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long `!I/6d?A  
e }C,)  
    Me.txtStatus.Visible = True ?3
2~%?m  
    Me.lbParaType.Visible = True YV|_
y:-  
    Me.cmdCheck.Enabled = False N]iarYc  
     *`w>\},su  
     |?^qsnB  
     ,|VLOY^  
     J>T98y/))  
    Dim ParaType As String, rText As String  :^{KY(3  
     ub>:dNBN  
    Selection.WholeStory z)^.ai,:0  
    Selection.NoProofing = True aLm~.@Q  
     H#YI7l2  
    tm1 = Now 'do2n/  
     T>(X`(  
        ActiveWindow.View.Type = wdNormalView 2Ul8<${c{  
     S{e3aqT#N  
    NoSeries1(1) = "一" vO9=CCxvq  
    NoSeries1(2) = "二" V~/@KU8cH  
    NoSeries1(3) = "三" dg#Pb@7a  
    NoSeries1(4) = "四"
4V,p\$;  
    NoSeries1(5) = "五" M"s:* c_6  
    NoSeries1(6) = "六" JSju4TQ4  
    NoSeries1(7) = "七" H6K8.  
    NoSeries1(8) = "八" ue7D' UZL>  
    NoSeries1(9) = "九" W>+`e]z  
    NoSeries1(10) = "十" ju[y-am$/  
    NoSeries1(11) = "十一" U.~G{H`G,u  
    NoSeries1(12) = "十二" x!s=Nola  
    NoSeries1(13) = "十三" 4FYV]p8f  
    NoSeries1(14) = "十四" s=jH1^  
    NoSeries1(15) = "十五" 9QHj$)?k,  
    NoSeries1(16) = "十六" pl@K"PRE  
     4l*cX1!  
    NoSeries2(1) = "㈠" |gxP uAXa)  
    NoSeries2(2) = "㈡" %Ul,9qG+  
    NoSeries2(3) = "㈢" f!YlYk5  
    NoSeries2(4) = "㈣" #=y)Wuo=  
    NoSeries2(5) = "㈤" ~PyS;L}  
    NoSeries2(6) = "㈥" |+HJ>xA4I  
    NoSeries2(7) = "㈦" 'Y ,2CN  
    NoSeries2(8) = "㈧" 9fb bJ"I+  
    NoSeries2(9) = "㈨" !'# D~  
    NoSeries2(10) = "㈩" s92ol0`  
     N& F.hi$_  
    NoSeries5(1) = "①" 3
p HI+a  
    NoSeries5(1) = "②" @UdF6:T  
    NoSeries5(3) = "③" 
(fl$$$  
    NoSeries5(4) = "④" L58H)V3Pn  
    NoSeries5(5) = "⑤" ~Y~M}4  
    NoSeries5(6) = "⑥" +(:Qf+:  
    NoSeries5(7) = "⑦" d]|K%<+(  
    NoSeries5(8) = "⑧" }[!=O+gO  
    NoSeries5(9) = "⑨" S`b!sT-sD  
    NoSeries5(10) = "⑩" @,,G]4zZ!  
     A*+gWn,4Y_  
     dB#c$1
 
    NoSeriesRM(1) = "I" kGnT4R*E  
    NoSeriesRM(2) = "II" 1CZO+MB&"$  
    NoSeriesRM(3) = "III" X0j>g^b8  
    NoSeriesRM(4) = "IV" N\tFK*U^I  
    NoSeriesRM(5) = "V" \/ri|fm6l#  
    NoSeriesRM(6) = "VI" ,jz~Np_2  
    NoSeriesRM(7) = "VII" j]%XY+e  
    NoSeriesRM(8) = "VIII" O[U`(A:  
    NoSeriesRM(9) = "IX" l}(HE+?  
    NoSeriesRM(10) = "X" xa]yq%  
    NoSeriesRM(11) = "XI" X8*~Cf73u  
    NoSeriesRM(12) = "XII" lAo~w  
    NoSeriesRM(13) = "XIII" Y[PC<-fyf  
    NoSeriesRM(14) = "XIV" l{^
s4  
    NoSeriesRM(15) = "XV" Q -$) H;,  
    NoSeriesRM(16) = "XVI" {Z <`@\K3  
     6l4=  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) X)RgXl{  
     5o4KV?"  
    If i = vbNo Then 9wf"5c  
        Exit Sub <uFj5.  
    End If K>~YO~~  
     v\G 7V  
    If Me.chkSuper.Value Then n ei0LAD  
        Me.txtStatus.Text = "检查修改所有的上标格式" ->;2CcpHB  
     -"H$&p~  
        CheckSuperScript k&5T-\q  
         YhRy C*b  
    End If ZVdQ$  
     K^"l.V#J  
    If Me.chkStyle.Value Then ,37<FXX,  
        Me.txtStatus.Text = "设置样式，请稍候...." p]y.N) a  
        DoEvents kFkI[WKyZ  
        CeateOrModifyStyle JBc*m  
    End If G,<d;:  
     {y5 L  
     _(:$ :*@  
     !9r%d8!z  
    ClearDomain l SKq  
         "R)n1,0  
     fH9"sBiO  
     y?r`[{L(lA  
    If Me.chkLIST.Value Then 1]0;2THx  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" xuqG)HthRS  
     ~AaEa,LQ  
        ConvertListToOrdinary KCZ<#ca^  
    End If #M!{D  
     MK Sw  
     jbZ TlG  
    Dim pType As String, trimpTEXT As String
b[:m[^  
    If Me.chkNum.Value = True Then )Ac evEHB  
        Me.txtStatus.Text = "转换全角数字形式为半角" ) 5Ij  
        ConvertWidth "１", "1" CflyK@  
        DoEvents JURu>-i  
        ConvertWidth "２", "2" x.pg3mVd>  
        DoEvents +{;wOQ.  
        ConvertWidth "３", "3" s 8K.A~5 w  
        DoEvents $A,YQH+  
        ConvertWidth "４", "4" ps`j>vX*  
        DoEvents jp4-w(  
        ConvertWidth "５", "5" ^a /q6{  
        DoEvents /L(}VJg-  
        ConvertWidth "６", "6" ,S(Z\[x0  
        DoEvents ()Wu_Q  
        ConvertWidth "７", "7" =Sr<d|\O  
        DoEvents c]U+6JH  
        ConvertWidth "８", "8" UB>BVBCt  
        DoEvents "B+F6  
        ConvertWidth "９", "9" 9o?\*{'KT  
        DoEvents o>+mw|{  
        ConvertWidth "０", "0" QAo/d4  
        DoEvents ct,;V/Dx  
        ConvertWidth "ａ", "a" g<^A (zM  
        DoEvents Oop6o$k  
        ConvertWidth "ｂ", "b" x_-V{ k  
        DoEvents P =Q+VIP&  
        ConvertWidth "ｃ", "c" Fo;J3<U)  
        DoEvents  yoe@]c=  
        ConvertWidth "ｄ", "d" nW\W<[O9  
        DoEvents N5K2Hv<"  
        ConvertWidth "ｅ", "e" 2-UD^;0  
        DoEvents oXk6,b"  
        ConvertWidth "ｆ", "f" {!?M!/d  
        DoEvents >;j&]]-&  
        ConvertWidth "ｇ", "g" UB8 n,+R  
        DoEvents 0cfGI%  
        ConvertWidth "ｈ", "h" |${ImP  
        DoEvents :6(@P1vA 6  
        ConvertWidth "ｉ", "i" `) ],FE*:  
        DoEvents &' Nzw2  
        ConvertWidth "ｊ", "j" {=J:  
        DoEvents 6
M_ W(  
        ConvertWidth "ｋ", "k" Ax=)J{4v  
        DoEvents EAWBgOO8iC  
        ConvertWidth "ｌ", "l" A{)pzV25  
        DoEvents &ZFHWI(P
 
        ConvertWidth "ｍ", "m" |9FrVO$M  
        DoEvents !or_CJ8%  
        ConvertWidth "ｎ", "n" Vz-q7*o$S  
        ConvertWidth "ｏ", "o" /7+b .h])^  
        ConvertWidth "ｐ", "p" dOaCdnd~  
        ConvertWidth "ｑ", "q" ~W4SFp  
        ConvertWidth "ｒ", "r" G[u6X_Q  
        ConvertWidth "ｓ", "s" tZg)VJQys  
        ConvertWidth "ｔ", "t" _e8v12s  
        ConvertWidth "ｕ", "u" H13\8Te{  
        ConvertWidth "ｖ", "v" "u$XEA  
        ConvertWidth "ｗ", "w"  )OQ<H.X  
        ConvertWidth "ｘ", "x" <0~1  
        ConvertWidth "ｙ", "y" s]A8C^;c  
        ConvertWidth "ｚ", "z" GCr]x '  
        ConvertWidth "Ａ", "A" LN$T.r+  
        ConvertWidth "Ｂ", "B" p H3\X cn  
        ConvertWidth "Ｃ", "C" ?5};ONjN  
        ConvertWidth "Ｄ", "D" aYc<C$:NC"  
        ConvertWidth "Ｅ", "E" WH7UJCQ  
        ConvertWidth "Ｆ", "F" KMqGWO*  
        ConvertWidth "Ｇ", "G" a\,V>}e  
        ConvertWidth "Ｈ", "H" };P=|t(r  
        ConvertWidth "Ｉ", "I" R@Gll60  
        ConvertWidth "Ｊ", "J" ?D9iCP~~  
        ConvertWidth "Ｋ", "K" B2LXF3#/  
        ConvertWidth "Ｌ", "L" < RC%<  
        ConvertWidth "Ｍ", "M" /ET+`=n  
        ConvertWidth "Ｎ", "N" ^ )!eiM   
        ConvertWidth "Ｏ", "O" WL,2<[)Ew  
        ConvertWidth "Ｐ", "P" #E\6:UnT  
        ConvertWidth "Ｑ", "Q" (I
jM  
        ConvertWidth "Ｒ", "R" D ZZRu8~  
        ConvertWidth "Ｓ", "S" N|"kuRN#  
        ConvertWidth "Ｔ", "T" -U_,RMw~  
        ConvertWidth "Ｕ", "U" .ej+?QYwC  
        ConvertWidth "Ｖ", "V" G*%U0OTi  
        ConvertWidth "Ｗ", "W" suWO:]FR  
        ConvertWidth "Ｘ", "X" jxhZO LG  
        ConvertWidth "Ｙ", "Y" _):@C:6  
        ConvertWidth "Ｚ", "Z" HSU?4=Q  
        ConvertWidth "^l", "^p" pz/W#VN  
        ConvertWidth "（", "(" 0SIUp/.  
        ConvertWidth "）", ")" 7042?\\=  
     G8?Do+[  
    End If \WdSj  
 H4YA  
    With ActiveDocument #v~dhx=R  
        Dim tbl As Table br k
*;  
        For Each tbl In .Tables Ii/{xVMD  
            tbl.Rows.Alignment = wdAlignRowCenter q;sZwp<  
            tbl.Range.Font.NameFarEast = "楷体" 1BEc"  
            tbl.Range.Font.NameAscii = "Times New Roman" 3'A0{(b  
            tbl.Range.Font.Size = 10.5 I jz*wq\s;  
        Next QKVOc,Fp7i  
        Set tbl = Nothing Sj/v:   
    End With 6;!)^b  
     Z1$U[Tsd  
     -U9C{q?h  
    With ActiveDocument jRDvVV/-wr  
         ~FXq%-J  
        For i = 1 To .TablesOfContents.Count o>yXEg  
            .TablesOfContents(i).Delete R/E6n &R  
        Next S&[
9Vb  
         fiU#\%uJg  
         {+{ p.  
         ij3W8i9'  
        paraTotal = .Paragraphs.Count %`lJAW[  
        paraCounter = 1 Q]K$yo  
         L+@X]OW8  
        LastTitle0No = 0 &{qKoI]  
        LastTitle1No = 0 nsV =  
        LastTitle2No = 0 =^ {MyR7  
        LastTitle3No = 0 rADzJ#CU\  
        LastTitle4No = 0 s!MD8ia  
        LastTableNo = 0 p__N6a  
        LastFigureNo = 0 .EjR<UU  
         5X5UUdTM  
        Dim Sec As Long SGy2&{\Z  
         Kf$(7FT'`  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) rHOhi|+  
        If Sec = 0 Then Pn@DHYP  
            Exit Sub AkO);4A;Jd  
        End If :Zob"*T  
         `pDTjJ  
        k = 0 /e|qyWs  
        Do While (paraCounter < paraTotal) And bContinue s0x/2z  
            k = k + 1 '+g[n  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then -lv(@7o~  
                Exit Do bd27])n(  
            End If %" l;  
            paraCounter = paraCounter + 1 gyh8  
            If k Mod 20 = 0 Then JqYa~6 C  
                Me.lbCounter.Caption = paraCounter 8)"lCIf  
                DoEvents |:2B)X  
            End If Tj<B;f!u  
        Loop 2cGiE{  
         tgl 4pAc  
         3a ZS1]/  
        Do While (paraCounter < paraTotal) And bContinue >O~V#1 H  
             +7_U(|gO  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) yFd942  
            ShapeHeight = 0 &^ s8V]^  
            ShapeWidth = 0 &U}8
@;  
           SlT>S1`rnG  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth iG~&uEAJ  
             Z8Vof~  
            Select Case ParaType 9pS:#hg  
                Case "【】表格内容" nr}Ols  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" )4:]gx#cr  
                Case "章" : vgn0IQ  
                    LastTitle0No = LastTitle0No + 1 o"A)t=  
                    '新一章开始，复位其下属标题编号 uKD }5M? {  
                    LastTitle1No = 0 <X& fs*x&  
                    LastTitle2No = 0 Ux=B*m1@{  
                    LastTitle3No = 0 dmLx $8  
                    LastTitle4No = 0 :mf&,?  
                     7ju38@+  
                    k = Val(ttNo) w2('75$J  
                    If k = 0 Then '非数字编号章节 oj'YDQ^uj  
                        If ttNo <> NoSeries1(LastTitle0No) Then Y"s8j=1m  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString :kwDa a  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText vfmY>nr  
                        End If gLZJQubz 6  
                    Else $T7 qd  
                        If Val(ttNo) <> LastTitle0No Then "f~OC<GdYs  
                            rText = "第" & LastTitle0No & ttString 7&%#bMnw  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText >@4AxV\  
                        End If vW?/:  
                         }?+tX<j  
                    End If 5e7\tBab  
                     mU]^PC2[  
                    '章段落设置 oZl%0Uy?9I  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 tc\ZYCFr  
                    .Paragraphs(paraCounter).Style = "QLNU章节" =iDd{$  
                    .Paragraphs(paraCounter).Range.Select t6\--lk_  
                    Selection.EndKey unit:=wdLine yA_ly <  
                    tc = Replace(rText, vbCr, "") R2 J A(Hn  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False m
9&%A0  
                Case "一级标题" `f~$h?}3-@  
                    LastTitle1No = LastTitle1No + 1 0E (G1o'  
                    '新一级标题开始，复位其下属标题编号  P7/Xh3  
                    LastTitle2No = 0 q0vZR"y  
                    LastTitle3No = 0 bF+j%=  
                    LastTitle4No = 0 Y(?SE< 4R  
                     UVgSO|Tg  
                    If ttNo <> NoSeries1(LastTitle1No) Then xpwy%uo  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString
E m+&I  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText oEFo7X`t  
                    End If Odhr=Hs  
                   &2q<#b  
                     oJ"D5d,  
                    '一级标题段落设置  格式：一、标题内容 Iu >4+6  
                    .Paragraphs(paraCounter).Range.Text = rText ZB/1I;l`c  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" b+hN\/*]  
                    .Paragraphs(paraCounter).Range.Select 8?: 2<  
                    Selection.EndKey unit:=wdLine l]&x~K}  
                    tc = Replace(rText, vbCr, "") XAtRA1.  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False ,]]IJ;: w  
                Case "二级标题" &o1k_!25  
                    LastTitle2No = LastTitle2No + 1 R1<$VR  
                    '新二级标题开始，复位其下属标题编号 8HIX$OX>2  
                    LastTitle3No = 0 WQD:~*C:  
                    LastTitle4No = 0 ;<Gxo nIV  
                     EdSUBoWF}  
                    If ttNo <> NoSeries1(LastTitle2No) Then Z*h}E  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString C>,> _  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText fy|I3  
                    End If F8Mf,jnPs  
                     R?- zJ ;  
                    '二级标题段落设置 格式：(一)、标题内容 RQ^ \|+_  
                    .Paragraphs(paraCounter).Range.Text = rText ]\L+]+u~  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" C|3cQ{  
                     b^ [ z'  
                    .Paragraphs(paraCounter).Range.Select NZ6:ZzM  
                    Selection.EndKey unit:=wdLine +Kg }R5+  
                    tc = Replace(rText, vbCr, "") r=AA /n<  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False dZb;`DjTH  
                 ('\sUZ+5  
                Case "三级标题" Q|S>C%4?  
                    LastTitle3No = LastTitle3No + 1 /<(-lbq,  
                    '新三级标题开始，复位其下属标题编号 =20 +(<  
                    LastTitle4No = 0 du#f_|xG  
                     734n1-F?I%  
                    If Val(ttNo) <> LastTitle3No Then Vx>Q  
                            rText = LastTitle3No & ". " & ttString <63TN`B  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText )N1iGJO)  
                         s| Q1;%Tj  
                    End If zfg+gd)Z
 
                    '三级标题段落设置 格式：1. 标题内容 .n)R@&9  
                    .Paragraphs(paraCounter).Range.Text = rText N`N?1!fM<}  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" PCV#O63[  
                    .Paragraphs(paraCounter).Range.Select 3#>%_ @<  
                    Selection.EndKey unit:=wdLine ~ L>M-D4o  
                    tc = Replace(rText, vbCr, "") $\~cWpv  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False y c 8h}`  
                Case "四级标题" R(cg`8  
                    LastTitle4No = LastTitle4No + 1 X(3| (1;sV  
                     {Ja(+NQ  
                    If Val(ttNo) <> LastTitle4No Then d\JBjT1g  
                            rText = "(" & LastTitle4No & "). " & ttString EIyFGCw|U  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText ;)P=WS:=  
                     imAOYEH7}  
                    End If EYCZuJxv  
                    '四级标题段落设置 格式：(1). 标题内容 Ck"db30.  
                    .Paragraphs(paraCounter).Range.Text = rText 3Lq9pdM>2@  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" D<<q5gG  
                    .Paragraphs(paraCounter).Range.Select
d& f!\n_~  
                    Selection.EndKey unit:=wdLine G#6Z@|kVw  
                    tc = Replace(rText, vbCr, "") "Ehh9 m1&
 
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False vX}w_Jj>  
                 T0)b
njm  
                Case "表格标题" l+hOD{F4pS  
                    LastTableNo = LastTableNo + 1 8pftc)k  
                     _VmXs&4  
                    If ttNo <> CStr(LastTableNo) Then ]+B.=mO_  
                            rText = "表" & LastTableNo & ". " & ttString #e,TS`"e D  
                            ErrMsg.AddItem "表格编号错误：" & ParaText
M7 kWJ  
                   twbxi{8e.  
                    End If `ah|B
V  
                     "zCT S  
                    '表格名称段落设置 格式：表1. 表格名称 7
n+,!oJ  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" SBDGms  
                    xe = Replace(rText, vbCr, "") U[8F{LX  
                    .Paragraphs(paraCounter).Range.Select `8Ych@f]  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 u4m8^fj+T  
                    Selection.Range.Text = xe 6KXW]a `  
                    Selection.EndKey I;eo y,  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False 6-J}ZfGj  
                 1\Pjz Lj  
                Case "表格首行" @7.7+blS"H  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" Y %- !% |  
                Case "图片标题" ~kSOYvK$'  
                    LastFigureNo = LastFigureNo + 1 ^3H:I8gRCl  
                     Fav++z  
                    If ttNo <> CStr(LastFigureNo) Then UX<-jY#'V  
                            rText = "图" & LastFigureNo & ". " & ttString ,Oy$q~.  
                            ErrMsg.AddItem "表格编号错误：" & ParaText k_zn>aR$F  
                   iSW<7pNq0  
                    End If ^yq}>_  
                    '图片名称段落设置 格式：图1. 图名称 U,61 3G  
                    .Paragraphs(paraCounter).Range.Text = rText z,2*3Be6V  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" y;<suGl
 
                    .Paragraphs(paraCounter).Range.Select a l6y=;\jZ  
                    Selection.EndKey unit:=wdLine -/0\_z q7  
                    xe = Replace(rText, vbCr, "") [
m6+I9  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False hN]l $Ct  
                Case "正文" e#mqerpJ  
                     '正文名称段落设置 &/)B d%  
                    .Paragraphs(paraCounter).Style = "QLNU正文" {&B_b|g*fW  
               Case "文献条目" $|3zsi2  
                    With .Paragraphs(paraCounter) HIvSpO  
                        '.Range.Select 0( A  ?&  
                        'Selection.ClearFormatting ,9_O4O%  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” g`fMHU7  
                        .Style = "QLNU参考文献" v-q-CI?B#  
                    End With <p/2hHfiD  
               Case "图表注解" Md~._@`|K  
                    With .Paragraphs(paraCounter) )Ho "b  
                        .Range.Font.NameFarEast = "楷体" SBs!52  
                        .Range.Font.NameAscii = "Times New Roman" uozq^sy  
                        .Range.Font.Size = 9 '小5号字 4>vO9q  
                         Rt&5s)O'  
                        .Alignment = wdAlignParagraphCenter |0}7/^  
                        .LeftIndent = 0 ?_A[E]/H  
                        .RightIndent = 0 J:&.[  
                        .FirstLineIndent = 0 Th*}U&  
                        .LineSpacing = 12 NqNU:_}  
                        .LineSpacingRule = wdLineSpaceExactly +'MO
$&6  
                        .LineUnitAfter = 0 )cZHBG.0H  
                        .LineUnitBefore = 0 }HmkTk  
                        .OutlineLevel = wdOutlineLevelBodyText ']+!i a  
                        .PageBreakBefore = False #=33TvprR2  
                        .RightIndent = 0 yg* #~,  
                        .WordWrap = True 'g'RXC}D>  
                        .LineUnitAfter = 0.5 "Y&   
                         z/f._Z
(  
                    End With M"/Jn[  
                Case Else lBs-u h  
                    '不作处理 |O oczYf  
            End Select \)wch P_0  
             "e8EA!Ipte  
            '含有inlineshape的段落处理 ju"?b2f  
            If ShapeHeight > 30 Then o9]32l  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 #W3H;'~/5  
            End If d JJq]^|  
             r `n|fD.  
            If (ShapeWidth + ShapeHeight) > 150 Then G e]NA]<  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" 6DK).|@$r  
            End If 5y\35kT'  
             vR2);ywX  
            '段落计数器递 { Q
_GJ  
            paraCounter = paraCounter + 1 rwP)TJh"  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter Pc< "qy  
            Me.txtStatus.Text = ParaText $;Iz7:#jN  
            DoEvents wQjYH!u,YZ  
        Loop c ^.^ 5@  
    End With xU0iz{9  
     <g;,or#$  
    msg = "" \=im{(0h  
     h$6'9rL&i  
    For i = 0 To Me.ErrMsg.ListCount - 1 {f)aFGp  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) dzAumWoh  
    Next V&vG .HAT  
     wCR! bZ w  
     \ERxr   
     M<*Tp^Y'  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg 8sc2r  
    Me.cmdCheck.Enabled = True {B k` Zlki  
    Me.txtStatus.Visible = True ytjZ7J['{  
    Me.lbParaType.Visible = False Q#Zazvk  
     t!6uz  
    bContinue = False RLF6Bc  
End Sub @SiV3k  
0a8\{(w  
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) E QU@';~8  
    Dim pTEXT As String ]
y=U"g  
     <jF&+[*iT  
    pTEXT = ChKRange.Text Qj_)^3`e  
     ort*Ux)  
    ParaType = "其它" bPP@  
    TitleString = pTEXT }5(_gYr  
    TitleNo = "N/A" KW[y+c u.#  
     A%F8w'8(  
    shpCounter = ChKRange.InlineShapes.Count h9<PP2.(  
    If shpCounter <> 0 Then "RK"Pn+  
        MaxShpHeight = 0: TotalShpWidth = 0 ly0L)L]\  
        For i = 1 To shpCounter CrL9|78  
            k = ChKRange.InlineShapes(i).Height C,W_0=!e  
            l = ChKRange.InlineShapes(i).Width U]vUa^nG  
            If k > MaxShpHeight Then n_RZ:<Gr  
                MaxShpHeight = k CLVT5pj='  
            End If Y9<[n)>+  
            TotalShpWidth = TotalShpWidth + l )j~
{P  
        Next K{/i2^4  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then :.]EM*p?GV  
            Exit Sub -Pt E+R[A  
        End If "#7Q}d!x  
    End If z _\L@b  
     )xa )$u  
    '空行 L/-SWid)  
    If Len(pTEXT) <= 2 Then 3ej237~F,L  
        Exit Sub FZ+2{wIV^  
    End If nAl \9#M  
     8Nyz{T[  
          aY(s &  
    '是否为表格中的文字 +pYwc0~  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then [ij) k@.  
        ParaType = "表格内容" F9K`N8wlu  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) 1t &_]q_  
        If k = 1 Then {nUmlP=mS  
            ParaType = "表格首行" ,&=7ir14>R  
        End If %%?}db1n  
        Exit Sub 2)|=+DN;  
    End If Ao
`e{  
     |UWIV  
    '例外情况：脚注 jLI1
Ed  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then Oy=0Hsh@x  
        ParaType = "脚注" /*Q3=Dse]  
        Exit Sub
&&P9T/Zks  
    End If f>C+l(  
     ]w;t0Bk  
    '例外情况：尾注 (_@5V_U  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then r/a@ x9  
        ParaType = "尾注" tugIOA  
        Exit Sub 8~-TN1H  
    End If Tc||96%2 ^  
     C
kNR{?S  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then w`f66*@Q1  
        ParaType = "页眉页脚" #iv4L  
        Exit Sub uKM` umE  
    End If t`|Rn9-  
     Ea<\a1Tl43  
     ,  otXjz  
    With regEX 4_j_!QH87  
        .Global = True [qRww]g;P|  
         :'C?uk ?  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" V'W*'wo  
        If regEX.Test(pTEXT) Then .*njgAq7  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") U!o  
            TitleString = regEX.Replace(pTEXT, "$3") p.g>+7  
            TitleNo = regEX.Replace(pTEXT, "$1") $poIWJMc  
            ParaType = "章" 3MHpP5C  
            Exit Sub Qu=b
-9  
        End If \9#f:8Q  
         sGtxqnX:J  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" h~Z &L2V  
        If regEX.Test(pTEXT) Then 1 V t,5o5  
            ParaType = "一级标题" ?zutU w/m  
            regEX.Execute (pTEXT) K
O#kIM-  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") yLf
yLyO L  
            TitleString = regEX.Replace(pTEXT, "$3") a BMV6'  
            TitleNo = regEX.Replace(pTEXT, "$1") _[-MyUs  
            Exit Sub 9D=X3{be#  
        End If jFe8s @7  
         hOZTD0  
        '全角或半角括号中的数字 ri59LYy=  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" Lv/}&'\(  
        If regEX.Test(pTEXT) Then 2SD Z  
            ParaType = "二级标题" uchQv]VB  
            regEX.Execute (pTEXT) E.NfVeq  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") Tb?XKO,  
            TitleString = regEX.Replace(pTEXT, "$5") UV}:3c6ZX  
            TitleNo = regEX.Replace(pTEXT, "$2") [9Rh"H;h  
            Exit Sub ineSo8| @  
        End If
HP[B%  
         r
`6f  
        '阿拉伯数字  1. 2.  wk8fa  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" @^YXE ,  
        If regEX.Test(pTEXT) Then gsM$VaF(  
            ParaType = "三级标题" 
FO^6c  
            regEX.Execute (pTEXT) ;r"r1'a+@  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 iZdl0;16[  
            TitleString = regEX.Replace(pTEXT, "$3") %pOz%v~  
            TitleNo = regEX.Replace(pTEXT, "$1") [j@i^B &  
            Exit Sub >\pF5a`  
        End If OQ_<Vxz  
         6*S /frE  
        '全角或半角括号中的阿拉伯数字 F#<:ZByjJ@  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" YB7A5  
        If regEX.Test(pTEXT) Then qtZzJ>Y  
            ParaType = "四级标题" ]] 0M  
            regEX.Execute (pTEXT) J9NuqV3  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") |&MoQxw@  
            TitleString = regEX.Replace(pTEXT, "$5") ?r &~(<^z  
            TitleNo = regEX.Replace(pTEXT, "$2") R,
PN?aj  
            Exit Sub (VN'1a (  
        End If M\CzV$\y  
         w2'z~\dG8  
        '表格名称 ~Uv#)  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" z5iC
Q4C<  
        If regEX.Test(pTEXT) Then rqN+0CT  
            ParaType = "表格标题" 44P [P{y  
            regEX.Execute (pTEXT) kDmuj>D  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) 5cQ]vb  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) ,=Wj*S)~  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) $+4 4US  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 p7`9 d1n  
            Exit Sub Zh;}Q(w  
        End If Y]`=cR`/"  
         &0Y |pY  
        '图片名称 > _sSni  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" _(' @'r  
        If regEX.Test(pTEXT) Then -YQS\@?  
            ParaType = "图片标题" =#9#unvE!  
            regEX.Execute (pTEXT) ,.*Df)+  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") PZV>A!7C8n  
            TitleString = regEX.Replace(pTEXT, "$3") e> 9 X  
            TitleNo = regEX.Replace(pTEXT, "$1") -th.(eAx  
            Exit Sub }6%\/d1~ 6  
        End If  0.R3(O  
         Sft vN-  
        '参考文献 ]Bf1p  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 1=IOio4
U  
        If regEX.Test(pTEXT) Then 2RNee@!JJP  
            ParaType = "文献条目" VM<0_R24z  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") 2oahQ: }B  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") Hn)? xw]x  
            Exit Sub ZR3,dW6S  
        End If k CGb~+  
         ['\R4H!x  
        prfx = Left(pTEXT, 2) [T7&)p  
        If prfx = "注：" Or prfx = "注:" Then uQ[,^Ee&/  
            ParaType = "图表注解" K*Ba;"Ugeg  
            Exit Sub lc5(^~  
        End If vD9.X}l]  
         {4vWSb  
         b1IAp>*2l  
        ParaType = "正文" jA:'P~`Hj  
         GOA dhh-  
    End With jsgDJ}  
End Sub vS5}OV  
_7:Bxx4B  
Sub ConvertListToOrdinary() aDX&j2/  
    Dim st As Paragraph (_}q>3  
    With ActiveDocument LNk :PD0m  
        For i = .Paragraphs.Count To 1 Step -1 ~x'8T!M{  
            Set st = .Paragraphs(i) Y9#dAI[Gce  
            lst = st.Range.ListFormat.ListString tk'&-v 'h  
            If lst <> "" Then ~1*37w~  
                st.Range.ListFormat.RemoveNumbers wo(O+L/w  
                st.Range.InsertBefore lst & " " xV14Y9  
            End If BWYv.&=(  
        Next L6nsVL&  
    End With ) aMiT  
    Set st = Nothing p{GO-gE@  
End Sub k^ K76mB  
-;"A\2_y  
Private Sub UserForm_Activate() -b?M5P*:  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" 7)#JrpTj%  
    Me.lbTotal.Font.Bold = True $RI$VyAjD  
    Me.txtStatus.Visible = False _,K[kVn  
    Me.cmdCheck.Enabled = True _8 K|2$X  
3A"TpR4f`  
End Sub R>:D&$[RD  
Jg'#IM  
y
nMYf  
Sub CheckSuperScript() V!]|u ^4I  
    Selection.Find.ClearFormatting ~e[qh+  
    Selection.Find.Replacement.ClearFormatting 6 A]a@,PC  
    With Selection.Find &${| o@  
        .Text = "[【\[［〖](*)[】\]〗］]" qrw*?6mSQ  
        .Replacement.Text = "[\1]" ip'{@1L  
        .Replacement.Font.Superscript = True z@19gD#8  
        '.Replacement.Font.Color = wdColorBlue 85|u;Fxf  
        .Forward = True NkGtZ.!pk  
        .Wrap = wdFindContinue u|$HA>F[  
        .FORMAT = True ^2rj);{V  
        .MatchCase = False *!`&+w  
        .MatchWholeWord = False [N4N7yF  
        .MatchByte = False F)eP55C6  
        .MatchAllWordForms = False R'B_YKHBY  
        .MatchSoundsLike = False *< fJgc"3  
        .MatchWildcards = True Ex_dqko  
    End With kP(
'X
/  
    Selection.Find.Execute Replace:=wdReplaceAll w0$+v/  
End Sub 4PS|  
b9?Vpu`?  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) #G
0'Q2  
    bContinue = False GGHeC/4  
    Set regEX = Nothing ='kCY}dkO  
End Sub .,S`VNU  
WixEnsJ  
Sub CeateOrModifyStyle() n>Oze7hVY  
' NF |[j=?  
' #Cs/.(<  
Dim stl As Style ti1R6oSn  
     $/Q\B(X3  
    Options.Pagination = False M9Sj@ww  
     oM@%2M_O(  
    On Error Resume Next mz<,nR\  
    For Each stl In ActiveDocument.Styles \A\?7#9\  
        stl.Delete RJDk7{(  
    Next 4<1V  
    On Error GoTo 0 N|)e {|k  
     OC,yLQ  
    Set stl = Nothing @zw&-b:qI  
      n'pJl  
    DoEvents h|'|n/F  
    On Error Resume Next W4nn)qBrh  
     jb/C\2U4)  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph 0;`FS/[(f  
     Xu#?Lw  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph (?,jnnub  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph pg,
JYn  
     xp3^,x;\X  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph PK&&Vu2M  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph 3''Kg<k,I  
     0lq
?l:/  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph U_aI!`WXd  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph sLTQm*jL  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph V{>;Z vj1R  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph W>{&" 5  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph }4c$_  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph Q-G8Fo%#,E  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph ;&?ITV  
     d=vD Pf  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph i[.7 8K-s  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph Ya<KMBi3  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph *j1Skd.#At  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph ?0z/i^I  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph I)*J,hs1  
     zh?
B-"O=5  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph dR,a0+!  
    On Error GoTo 0 2.{<C.BK{  
    DoEvents _Y6Ezh.  
      +
+8 Xi1  
    'BaseStyle b/#<::D `  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False %Y|AXxR  
    With ActiveDocument.Styles("BaseStyle").Font Ym -U{a  
        .NameFarEast = "宋体" 91a);d  
        .NameAscii = "Times New Roman" Q>w)b]d~c  
        .NameOther = "宋体" w}07u5
 
        .Size = 10.5 oz3!%'  
        .Bold = wdUndefined @LU[po1I  
        .Italic = wdUndefined ojj T  
        .Subscript = wdUndefined jt3W.^6HO  
        .Subscript = wdUndefined Ew{N2  
         q~AvxO  
        .Underline = wdUnderlineNone %%wngiz\  
        .UnderlineColor = wdColorAutomatic B<@a&QBTg  
        .StrikeThrough = False I(j{D>v  
        .DoubleStrikeThrough = False \b)P4aL  
         Fo ,8"m  
        .Outline = False /@&uaw  
        .Emboss = False d|UH AX  
        .Shadow = False #^-'q`)  
        .Hidden = False 'rfs
rZ?  
        .SmallCaps = False 0}kvuuR  
        .AllCaps = False O7&OCo|b%>  
        .Color = wdColorAutomatic & }"I!  
        .Engrave = False @ K2Ncb7  
        .Scaling = 100 >: @\SU  
        .Kerning = 1 5(Q-||J  
        .Animation = wdAnimationNone %>O}bdSf  
        .DisableCharacterSpaceGrid = False DEfhR?v  
        .EmphasisMark = wdEmphasisMarkNone Skux&'N:  
    End With iztF  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat xAn|OSe  
        .LeftIndent = 0 .rDao]K  
        .RightIndent = 0 > -
fXn  
        .SpaceBefore = 0 %hBw)3;l  
        .SpaceBeforeAuto = False EW)r/Av:,  
        .SpaceAfter = 0 K_N`My
 
        .SpaceAfterAuto = False [a^<2V!vMn  
         t[b(erO'  
        .LineSpacingRule = wdLineSpaceSingle <X97W\  
        .Alignment = wdAlignParagraphJustify yM-%x1r~  
         0
q1+5  
        .WidowControl = False IL*MB;0>  
        .KeepWithNext = False 7 X~JLvN  
        .KeepTogether = False |NjyO>@Pa  
        .PageBreakBefore = False (YmIui>  
        .NoLineNumber = False ^il gd  
         +$^[r  
        .FirstLineIndent = CentimetersToPoints(0) 1o   
        .OutlineLevel = wdOutlineLevelBodyText {+9t!'   
        .CharacterUnitLeftIndent = 0 RD:LNl<0sh  
        .CharacterUnitRightIndent = 0 %a-
fxV[  
        .CharacterUnitFirstLineIndent = 0 &Fm
en;(  
        .LineUnitBefore = 0 3`"k1W  
        .LineUnitAfter = 0 oye/tEMG  
        .AutoAdjustRightIndent = True k.Z?BNP  
        .DisableLineHeightGrid = True GsqO^SV  
         Z\)P|#L$  
        .FarEastLineBreakControl = True AZJ|.mV q  
        .WordWrap = True D9r;Ys%  
        .Hyphenation = False ) I.uqG  
         |IWm:[H3  
        .HangingPunctuation = True G6"4JTWO  
        .HalfWidthPunctuationOnTopOfLine = True ZU9RvtbKB  
        .AddSpaceBetweenFarEastAndAlpha = True PCKx o;bD  
        .AddSpaceBetweenFarEastAndDigit = True UyNP:q:  
        .BaseLineAlignment = wdBaselineAlignBaseline 7tY~8gQel  
    End With o3OJI_ v&  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False {N-*eV9#  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll Hu !<GB~  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese w;Pe_m7\EO  
    ActiveDocument.Styles("BaseStyle").NoProofing = False KZ [:o,jp>  
     _xP@kN~  
    '一级标题题样式 yN}<l%  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") : f RGXrn  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" CTX%~1_`O  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False MB.LHIo  
    With ActiveDocument.Styles("QLNU一级标题").Font ]b^bc2:  
        .NameFarEast = "黑体" pl 1CEoe  
        .NameAscii = "Arial Black" j8t_-sU9 i  
        .NameOther = "黑体" P\ 2Bx *e  
        .Name = "黑体" `3UvKq e  
        .Size = 16              '三号 kN vNV(4  
        .Bold = True 3ZYrNul"  
        .Italic = wdUndefined O=Vj*G,  
        .Subscript = wdUndefined ljh,%#95=  
        .Superscript = wdUndefined @oMl^UYM=  
    End With i}5+\t[Q  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat (L<G=XC  
          ck` $ `  
        .LeftIndent = CentimetersToPoints(0) -r{]9v2j  
        .RightIndent = CentimetersToPoints(0) J\I`#
 
        .FirstLineIndent = CentimetersToPoints(0) Sa6YqOel@  
         wmX *n'l  
        .LineSpacingRule = wdLineSpaceSingle 6 )Qe*S  
        .Alignment = wdAlignParagraphCenter _x7>d:C  
         ^DR`!.ttr  
        .WidowControl = True 3SOrM  
        .KeepWithNext = True  qJj5_  
        .KeepTogether = True .ityudT<  
        .OutlineLevel = wdOutlineLevelBodyText C2 !F  
         >PygUY d  
        .LineUnitBefore = 0.5 *>j4tA{b@v  
        .LineUnitAfter = 0.5 -n$hm+S  
    End With j0e1CSE  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False @v}M\$N?  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll r
*ry8QA  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese Vao3&#D8  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True ^F/H?V/PX  
    DoEvents 8GT{vW9  
     LS1}j WU!  
    '二级 -EU~ %/=m+  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ?vP}#N!=d  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" ZpU4"x>  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False MXY!N/  
    With ActiveDocument.Styles("QLNU二级标题").Font &)Iue<&2  
        .NameFarEast = "黑体" `XbV*{7  
        .NameAscii = "Arial Narrow"
M5LqZyY  
        .NameOther = "黑体" N8]d0  
        .Name = "黑体" ns8I_H  
        .Size = 15        '小三号 54&&=NVs|  
        .Bold = False sVIw'W  
        .Outline = False N5fMMi(O  
        .Italic = wdUndefined D)
JI11a<  
        .Subscript = wdUndefined RXbZaje$  
        .Superscript = wdUndefined Z9PG7h  
    End With mY]R~:  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat mz .uK2l{  
        .LeftIndent = CentimetersToPoints(0) 4*+)D8  
        .RightIndent = CentimetersToPoints(0) eN I6V/\`  
        .FirstLineIndent = CentimetersToPoints(0) xTdh/ }  
         cU=EXyP%  
        .LineSpacingRule = wdLineSpaceSingle %XWb|-=  
        .Alignment = wdAlignParagraphLeft [UaM}-eR  
         8~h.i1L  
        .WidowControl = True ]P(_ d'}  
        .KeepWithNext = True If.h
A}  
        .KeepTogether = True zDA;FKZPp  
        .PageBreakBefore = False Y3f2RdGl  
        .OutlineLevel = wdOutlineLevelBodyText [Q20c<,  
         ljj}XJQ  
        .LineUnitBefore = 0.5 "V7&@3  
        .LineUnitAfter = 0.5 }Xy<F?Mh  
          qr7_3  
    End With pd}af iF  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False 5A"OL6ty  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll k%ckV`y  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese sMqAuhw$.  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True & Pzr)W(  
    DoEvents e_CgZ  
      ,O"zz7  
    '三级标题样式 E. rfS$<1  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") EWoGdH|  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" \Ot,&Z k2  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False 0SWec7G  
    With ActiveDocument.Styles("QLNU三级标题").Font GV
zG  
        .NameFarEast = "宋体" c5tCw3$t  
        .NameAscii = "Times New Roman" PF/eQZ*4  
        .NameOther = "黑体" H9T'{R*FC  
        .Name = "黑体" ucC'SS  
        .Size = 14               '四号 e@crM'R7Lo  
        .Bold = False cH\.-5NQ  
        .Outline = False t{ScK
%S6  
        .Italic = wdUndefined t[^68]  
        .Subscript = wdUndefined Zo36jSrCL  
        .Superscript = wdUndefined D&#ph%U,P  
    End With "zBYhZr  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat Gcu?xG{  
        .LeftIndent = CentimetersToPoints(0) 1C\[n(9  
        .RightIndent = CentimetersToPoints(0) _n_|skG  
        .FirstLineIndent = CentimetersToPoints(0) FFqqAT5  
         ukRbSJ5a5  
        .LineSpacingRule = wdLineSpaceSingle } Z}4_/E  
        .Alignment = wdAlignParagraphLeft M&K'5G)7  
         q%GlS=o"  
        .WidowControl = True m]:|j[!*M  
        .KeepWithNext = True C)`y<O  
        .KeepTogether = True Q68q76  
        .PageBreakBefore = False c4n]#((%a  
        .OutlineLevel = wdOutlineLevelBodyText &p#.m"Oon  
         go$zi5{h#  
        .CharacterUnitLeftIndent = 0 V@Fj! /  
        .CharacterUnitRightIndent = 0 Q>emyij  
        .CharacterUnitFirstLineIndent = 2 +&hd3  
         M2e_)f:  
        .LineUnitBefore = 0.5 (Puag*  
        .LineUnitAfter = 0 g)#neEA J  
    End With '\.fG\xD  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False yGtGhP8  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll ~!a~ -:#  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese D>Dch0{H,:  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True seEG~/U<  
    DoEvents :Sd iG=t  
     8!{F6DG  
    '四级标题样式 0')O4IHH  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") re\&'%~K  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" WfE,U=e*  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False  \>*B  
    With ActiveDocument.Styles("QLNU四级标题").Font ht%:e?@i  
        .NameFarEast = "宋体" c)OQ_3xOs  
        .NameAscii = "Times New Roman" aI:G(C?jm  
        .NameOther = "宋体" @'{ m-?*  
        .Name = "宋体" YYUWBnf30G  
        .Size = 12               '小四号 p$ %D  
        .Bold = True E)w^odwMU  
        .Outline = False 7R`:^}'>  
        .Italic = wdUndefined H"A|Z6y$^  
        .Subscript = wdUndefined 8n^v,s>  
        .Superscript = wdUndefined @e_<OU  
    End With ZkZTCb`/l  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat I&O}U|l06  
         1zUo.Tg0  
        .LeftIndent = CentimetersToPoints(0) eE/E#W8  
        .RightIndent = CentimetersToPoints(0) 0WI3m2i  
        .FirstLineIndent = CentimetersToPoints(0) qXJBLIG  
         2-*zevPiG=  
        .LineSpacingRule = wdLineSpaceSingle }?jL;CCe  
        .Alignment = wdAlignParagraphLeft J}cqB k>  
         [vs5e3B)  
        .WidowControl = True SiyZq"  
        .KeepWithNext = True Wp<4F6C$@  
        .KeepTogether = True 3jB5F0
^r1  
        .PageBreakBefore = False L^zF@n^5A  
        .OutlineLevel = wdOutlineLevelBodyText &k4)&LQJ  
         Una7O]  
        .CharacterUnitLeftIndent = 0 WS?"OTH.^\  
        .CharacterUnitRightIndent = 0 hWujio/h  
        .CharacterUnitFirstLineIndent = 2 4<`'?  
         co$I htOv  
        .LineUnitBefore = 0 WM_wkvYl  
        .LineUnitAfter = 0 0HRLTgIC  
         8QN#PaY  
    End With <Prz >qL$  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False
as?~N/}  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll m:,S1V_jl  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese syYe0~  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True xG^6'<  
    DoEvents S~mpXH@  
     G'sEbw'[  
    '正文校式 Z&!5'_9{V  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") z\fmwI  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" -~-BQ!!(  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False 7C%z0/  
    With ActiveDocument.Styles("QLNU正文").Font N>S_Vgk}  
         8f37o/L  
        .NameFarEast = "宋体" QFm~wv8:  
        .NameAscii = "Times New Roman" uIkB&  
        .NameOther = "宋体" Z2,[-8,Kx  
        .Name = "宋体" :NJ(QkTZv  
         &v\  
        .Size = 12               '小四号 E6  2{sA^  
         3~7X2}qU  
        .Bold = wdUndefined { ke}W  
        .Italic = wdUndefined t
_PAXj  
        .Subscript = wdUndefined p Lvvv#Y  
        .Superscript = wdUndefined }x^q?;7xW  
         U!rhj&n  
        .Outline = False nmn 8Y V1  
        .Emboss = False Rh:edQ#  
        .Shadow = False {>E`Zf:  
        .Hidden = False `$*cW1  
         GDgq 4vfj  
        .DisableCharacterSpaceGrid = True i+)9ItZr  
    End With G /:;Qig  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat WML%yO\.;  
         spE(s%dgL  
        .LeftIndent = CentimetersToPoints(0) `is."]%f  
        .RightIndent = CentimetersToPoints(0) <TL!iM  
        .FirstLineIndent = CentimetersToPoints(0) Tq7cZe"6  
         \/Z?QBFvz  
        .LineSpacingRule = wdLineSpaceExactly J~3+j6?%  
        .LineSpacing = 20 7r? s)ZV  
        .Alignment = wdAlignParagraphLeft $-zt,iRyV  
         SW ^F  
        .WidowControl = False YM*{^BXp  
        .KeepWithNext = False ppjS|l*`  
        .KeepTogether = False k/&~8l.$  
        .PageBreakBefore = False 8R;)WlLu=  
        .Hyphenation = False #&A)%Qbg  
         E{m\LUd^ :  
        .OutlineLevel = wdOutlineLevelBodyText vnT'.cBB:^  
         [nO\Q3c|@$  
       "[[9i  
        .CharacterUnitLeftIndent = 0 Ungex@s_  
        .CharacterUnitRightIndent = 0 A3VXh^y+  
        .CharacterUnitFirstLineIndent = 2 M~Tx4_t  
         Ydw04WEJ  
        .LineUnitBefore = 0 b'Scoa7@'  
        .LineUnitAfter = 0 F|t3%dpj  
        .SpaceBefore = 0 [YQVZBT|{  
        .SpaceAfter = 0 ~9Nn8g6  
         +5|wd6  
        .DisableLineHeightGrid = True bcp+7b(IB  
    End With Ps@a@d"83  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False MY]Z@  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll ,,hW|CmN30  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese u dhj$:t
 
    ActiveDocument.Styles("QLNU正文").NoProofing = True pDlU*&  
    DoEvents y my/`%  
     xU4,Rcgo  
    '图片段落样式 ?=X G#we  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") ~@=*JzP?  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" '+6Sk
Z  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False xWv@PqXD  
    With ActiveDocument.Styles("QLNU图片段落").Font o/grM+_  
        .Size = 12               '小四号 %z}{jqD&:X  
        .Italic = wdUndefined Bw]Y71  
        .Subscript = wdUndefined /T53"+7:0  
        .Superscript = wdUndefined C 'YL9r-G  
    End With |#p`mc%f~\  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat e_Ue9c.}  
        
gq|T:  
        .LeftIndent = CentimetersToPoints(0) Q:6i 3 Nr/  
        .RightIndent = CentimetersToPoints(0) Sl,\<a  
        .FirstLineIndent = CentimetersToPoints(0) ^gY^I`"e6  
         L1FTh  
        .LineSpacingRule = wdLineSpaceSingle "Zo<$p3]  
        .Alignment = wdAlignParagraphCenter $wgHaSni  
        .KeepWithNext = True 0=3Av8  
        .OutlineLevel = wdOutlineLevelBodyText <<,YgRl2  
         Z=P]U D  
        .CharacterUnitLeftIndent = 0 i/j DwA  
        .CharacterUnitRightIndent = 0 i$GL]0  
        .CharacterUnitFirstLineIndent = 0 Dp)5u@I  
         "enGWIH  
        .LineUnitBefore = 0 /0PBY-O  
        .LineUnitAfter = 0 ^X sIQz[q  
    End With Z%]s+V)st  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False 1$&(ei]*:  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll To_Y 8 G  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese ?U\@?@  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True r &<sSE;5  
    DoEvents z?NMQ8l|:6  
     sEQAC9M  
     K"%_q$[YQ  
    '第X章 IkzY  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") D<-MbK^S  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" ^W&qTSjh  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False R4 8w\?L  
    With ActiveDocument.Styles("QLNU章节标题").Font ?Vy%<f$  
        .NameFarEast = "黑体" +K6j p  
        .NameAscii = "Arial Black" $e bx  
        .NameOther = "Arial Black" ^EK]z8;|  
        .Name = "黑体" hRU.^Fn#%  
        .Size = 16 [8F1rZ&  
        .Bold = True Sn(e@|!G  
        .UnderlineColor = wdColorAutomatic sp=;i8Y 3  
        .Outline = False `1AVw]k  
        .Italic = wdUndefined '&XL|_Iq  
        .Subscript = wdUndefined tVB9k xtE  
        .Superscript = wdUndefined s4RqY*VK  
        .Scaling = 100 #GTR}|Aga  
        .DisableCharacterSpaceGrid = True Pz+2(Z  
    End With ia'eV10  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat f,Z*o  
        .LineSpacingRule = wdLineSpaceSingle ?<YQ %qaW7  
        .Alignment = wdAlignParagraphCenter |\PI"rW  
        .WidowControl = True >l<`)4*H  
        .KeepWithNext = True O] T'\6w  
        .KeepTogether = True %XX(x'^4  
        .PageBreakBefore = True Fj?gXc5{  
        .OutlineLevel = wdOutlineLevelBodyText 4'Svio  
         T d E.e(  
        .LeftIndent = CentimetersToPoints(0) {yo<19kV@  
        .RightIndent = CentimetersToPoints(0) N:"S/G>r ;  
        .FirstLineIndent = CentimetersToPoints(0) h!k[]bt5  
         6:Fb>|]*PY  
        .CharacterUnitLeftIndent = 0 E}7@?o7u}  
        .CharacterUnitRightIndent = 0 KaEL*  
        .CharacterUnitFirstLineIndent = 0 2pKkg>/S  
         v}vwk8  
        .LineUnitBefore = 1 Bu[sS
oA  
        .LineUnitAfter = 0.5 p_^Jr*Mv  
         MLbmz\8a  
        .AutoAdjustRightIndent = False /$w,8pV=  
        .DisableLineHeightGrid = True 4f)B@A-  
        .FarEastLineBreakControl = True 9/?@2  
        .WordWrap = True qL;OE.?oA  
    End With b4Y<  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False Oz3JMZe  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll
`7v"(  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese q5@N//<DNN  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True %\i OX|F_  
    DoEvents fi|k)  
     3sh
}(
  
    '表格标题 Rm i4ZPb.  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") }0Q_yuzx0m  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" fD^$ y 8  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False 6o l*$Q"z  
    With ActiveDocument.Styles("QLNU表格标题").Font [;?CO<  
        .NameFarEast = "楷体" _#9F@SCA  
        .NameAscii = "Arial" Pdq}~um3{  
        .Name = "楷体" reBAxmt   
        .Size = 10.5 8%eWB$<X  
        .Bold = True UDBMf2F]  
        .Underline = wdUnderlineNone zWN<"[agc  
        .Italic = wdUndefined } D'pyTf[  
        .Subscript = wdUndefined <_o).hE{  
        .Superscript = wdUndefined T?4pV#  
        .Color = wdColorAutomatic Y@jO#6R  
    End With ^Z dDs8j  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat E79'<;K,zs  
         zla^j,  
        .LineSpacingRule = wdLineSpaceSingle /0.m|Th'm  
        .Alignment = wdAlignParagraphCenter 6cO36  
        .KeepWithNext = True RgB5'$x}  
        .KeepTogether = True M<nKk#!+h  
        .OutlineLevel = wdOutlineLevelBodyText pTQ70V3  
         0Yzm\"Ggv  
        .LeftIndent = CentimetersToPoints(0) h83W;s  
        .RightIndent = CentimetersToPoints(0) &xAwk-{W  
        .FirstLineIndent = CentimetersToPoints(0) /A
T2<w  
         ,QB]y|:  
        .CharacterUnitLeftIndent = 0 )#(6J  
        .CharacterUnitRightIndent = 0 (uW$ch@2K  
        .CharacterUnitFirstLineIndent = 0 W(gOidKKz  
         9;ZaL7>  
        .LineUnitBefore = 1 ?RP&XrD  
        .LineUnitAfter = 0 pXoD*o b  
         }0y2k7^]  
    End With Em<B9S  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False e&R?9z-*  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll ?:sk [f6  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese R[qfG! "  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True JZl"k  
    DoEvents 6Z}8"VJr {  
43'!<[?x  
    '表格首行 51sn+h<w  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") k_o$ Ci  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False fTq/9=Rq4  
    With ActiveDocument.Styles("QLNU表格首行").Font S6<z2-y  
        .NameFarEast = "楷体" ij=_h_nA  
        .NameAscii = "Times New Roman" V6L0\  
        .Name = "楷体" ~W>3EJghR,  
        .Size = 9 M:PEY*4H  
        .Bold = True y#B4m`9  
        .Underline = wdUnderlineNone | E}-j;(  
        .Italic = wdUndefined prk@uYCa =  
        .Subscript = wdUndefined Ha)Vf+W  
        .Superscript = wdUndefined Rj'Tu0l  
    End With 6E)emFkQ  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat M^89]woC  
        .LineSpacingRule = wdLineSpaceSingle
Bn4wr  
        .Alignment = wdAlignParagraphCenter l_2B  
         6zZT5 Kn  
        .LeftIndent = CentimetersToPoints(0) rGn6S&-  
        .RightIndent = CentimetersToPoints(0) ^uV=|1<%  
        .FirstLineIndent = CentimetersToPoints(0) +u[^
@>_I0  
         j5Cf\*B4J  
         ^oLMgz  
        .CharacterUnitLeftIndent = -0.5 E',z<S  
        .CharacterUnitRightIndent = -0.5 
X_\$hF  
        .CharacterUnitFirstLineIndent = -0.5 vWs#4JoG  
         ,pTj'I  
        .LineUnitBefore = 0 Jyz*W!kI  
        .LineUnitAfter = 0 59@PY!c>  
        .SpaceBefore = 0 X-_ $jKfM  
        .SpaceAfter = 0 T4JG5  
         @'~7O4WH  
    End With =$wQA  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False A)5;ae  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll \cr)O^&  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese p0|PVn.^h  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True ?niv}/'%O  
    DoEvents ,6EFJVu \  
BwJL)$D<S  
    '表格内容 Q2)CbH Sz  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") )8Jf
Bz
R  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False 6)h~9iK  
    With ActiveDocument.Styles("QLNU表格内容").Font 75"&"*R/*G  
        .NameFarEast = "楷体" |uIgZ|7[  
        .NameAscii = "Times New Roman" <Od5}  
        .Name = "楷体" ;"9$LHH*  
        .Size = 9 )Y](Mj!D  
        .Bold = False y0R9[;b07  
        .Underline = wdUnderlineNone B<Zm'hdX  
        .Italic = wdUndefined /S #Z.T~~  
        .Subscript = wdUndefined gj@>9  
        .Superscript = wdUndefined -T8'|"g  
    End With l:.q1UV  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat N hY`_?)  
        .LineSpacingRule = wdLineSpaceSingle _kZ&t_]  
        .Alignment = wdAlignParagraphCenter sJ>JHv  
         sqv!,@*q  
        .LeftIndent = CentimetersToPoints(0) %W8*vSbx  
        .RightIndent = CentimetersToPoints(0) X t%y>'.  
        .FirstLineIndent = CentimetersToPoints(0) qydRmi  
         >4^,[IO/  
        .CharacterUnitLeftIndent = -0.5 1)BIh~1{p  
        .CharacterUnitRightIndent = -0.5 _qf$dGqc  
        .CharacterUnitFirstLineIndent = -0.5 Oj F]K,$  
        .LineUnitBefore = 0 DUMC4+i  
        .LineUnitAfter = 0 J?$`Tn x^  
        .SpaceBefore = 0 sPP(>y( \  
        .SpaceAfter = 0 wqasI@vyu  
    End With [W8"Mc|ve  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False W% -`  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll tJa *(%Z?f  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese j9r%OZw{  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True :5#iVa#
<  
    DoEvents sDZ <XA  
[sXnB$  
    '图片标题 C9j3|]nyL  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") NtDxwzj  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" sLOkLz"x  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False }nK=~Wcu\  
    With ActiveDocument.Styles("QLNU图片标题").Font ,{jF)NQaP  
        .NameFarEast = "楷体" cl{kCSZo.z  
        .NameAscii = "Times New Roman" uE ^uP@d  
        .Name = "楷体" GTocN1,Z~a  
        .Size = 10.5 5{|tE!  
        .Bold = True 1]wo    
        .Underline = wdUnderlineNone 3n)\D<f]#  
        .Italic = wdUndefined -\[&<o@/D  
        .Subscript = wdUndefined  [KW9J}]  
        .Superscript = wdUndefined 2~y<l
 
        .Outline = False r]B`\XWz  
        .Shadow = False #GfM!<q<  
        .Color = wdColorAutomatic n.b_fkZNr  
    End With 89YG `  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat ,opS)C$  
        .LineSpacingRule = wdLineSpaceSingle jV.9d@EC  
        .Alignment = wdAlignParagraphCenter Qm) c!  
         G Tz>}
@W  
        .KeepWithNext = wdUndefined cR6Rb[9 N  
        .KeepTogether = True 6[3>[ej:x  
        .OutlineLevel = wdOutlineLevelBodyText l,k.Jo5  
         ,c&%/
"i:w  
        .LeftIndent = CentimetersToPoints(0) Vwpy/5Hmp  
        .RightIndent = CentimetersToPoints(0) K9_@[}Ge  
        .FirstLineIndent = CentimetersToPoints(0) Blox~=cW  
         m0,TH[HWGF  
        .CharacterUnitLeftIndent = 0 Ro.br:'Bw  
        .CharacterUnitRightIndent = 0 7Ml OBPh  
        .CharacterUnitFirstLineIndent = 0 tpn.\z%  
         5,#aN}v#?  
        .LineUnitBefore = 0 AkEt=v
I  
        .LineUnitAfter = 0 qM(@wFg  
    End With FfM,~s<Efz  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False &`2$,zX#  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll y(
yBRR  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese vm.%)F#@  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True 1# lH5|XQ  
    DoEvents  r<1.'F  
ZRP[N)
Ld$  
    '目录项 [<JY[o=
 
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") ? hOvY)  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" M6lNdK  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False  (2dkmn  
    With ActiveDocument.Styles("QLNU目录项").Font THcX.%ToT  
        .NameFarEast = "黑体" 4CK$W`V  
        .NameAscii = "Times New Roman" ~0YRWM;  
        .NameOther = "Times New Roman" >f:OU,"  
        .Name = "黑体" D9r4oRkP*  
        .Size = 10.5 h%ba!  
        .Bold = False V`_)H  
        .Italic = wdUndefined jJK@i\bU_  
        .Underline = wdUnderlineNone X_(n  
        .Color = wdColorAutomatic b" kL)DL1L  
        .Superscript = wdUndefined D"<>!]@(a  
        .Subscript = wdUndefined (L,>P`CR6  
    End With =GL^tAUJ  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat om1D}irKT  
         yaK4% k  
        .LineSpacingRule = wdLineSpaceSingle _m#P\f'p  
        .Alignment = wdAlignParagraphLeft |5(un/-C  
         t $u.  
        .WidowControl = False 4p&YhV7j)o  
        .KeepWithNext = False .GiQC{@9w  
        .KeepTogether = False I^?hVH  
        .PageBreakBefore = False *d}{7UMy#  
        .NoLineNumber = False bI:cYn1  
        .OutlineLevel = wdOutlineLevelBodyText l a_FZ
 
         feT.d +Fd  
        .LeftIndent = CentimetersToPoints(0) [ -hsG E  
        .RightIndent = CentimetersToPoints(0) 5iZ;7 ?(  
        .FirstLineIndent = CentimetersToPoints(0) K}!YXy h  
         ;BW-ag \9  
        .CharacterUnitLeftIndent = 0 '=(@3ggA:  
        .CharacterUnitRightIndent = 0 dG%{&W9  
        .CharacterUnitFirstLineIndent = 0 G8@LH  
         ?Vc/mO2X  
        .LineUnitBefore = 0 FJIo]p  
        .LineUnitAfter = 0 '&F PkT:5  
    End With wT&P].5n  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False #RWmP$+#=  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll HEs.pET\  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot MNH-SQB|  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese <]u]rZc$  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True }3S6TJ+  
    DoEvents g)=-%n'RoE  
     b/&{:g!B  
    '参考文献 2T-3rC)  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") [w}KjV/yi  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" >]/aG!  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False xX\A&9m  
    With ActiveDocument.Styles("QLNU参考文献").Font ,Ad{ k   
        .NameFarEast = "宋体" qR^i5JH}u  
        .NameAscii = "Times New Roman" Z#flu Q%V  
        .NameOther = "Times New Roman" 9@8)ZHf  
        .Name = "Times New Roman" uE&2M>2  
        .Size = 12 ?dQ#% 06mn  
        .Bold = False jWGX:XB  
        .Italic = wdUndefined wQrD(Dv(yA  
        .Subscript = wdUndefined s%@HchZ 1  
        .Superscript = wdUndefined `m\l#r2C  
        .Underline = wdUnderlineNone 7DB!s@"  
        .UnderlineColor = wdColorAutomatic ^03M~SNCj  
        .Color = wdColorAutomatic BF(Kaf;<t.  
        .Engrave = False VRvX^w0  
    End With x}jiHV@=  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat fK5iOj'Q  
         4@"n7/<  
        .LineSpacingRule = wdLineSpaceExactly JA "  
        .LineSpacing = 16 ke5_lr(  
        .Alignment = wdAlignParagraphLeft [OwrIL  
        .WidowControl = False C''[[sw'K  
        .KeepWithNext = False ]3~X!(
O  
        .KeepTogether = False Yp6% @c6\  
        .PageBreakBefore = False ]MRQcqbpqL  
        .OutlineLevel = wdOutlineLevelBodyText &` weW  
          r95$( N  
        .LeftIndent = CentimetersToPoints(0) M%N_4j
.  
        .RightIndent = CentimetersToPoints(0) j)lgF:  
        .FirstLineIndent = CentimetersToPoints(0) D
|"^ :Gi  
         rB-}<22.  
        .CharacterUnitLeftIndent = 0 )B5(V5-!|  
        .CharacterUnitRightIndent = 0 QUi=
ZD1  
        .CharacterUnitFirstLineIndent = -2 E>NL/[1d  
         FS6I?q#t Q  
        .LineUnitBefore = 0 b)+;@wa~  
        .LineUnitAfter = 0 9I*i/fa  
        .SpaceBefore = 0  2D"\Ox  
        .SpaceAfter = 0 #yR@.&P  
         q Qc-;|8  
    End With 7w5 L?,a  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False F1b~S
;lm  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll (d}z>?L  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS cB2jf</  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True z1~FE  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese Kz9h{Tu4  
    DoEvents =d1i<iw?-  
o;J_"'kP  
    ' k4BiH5\hA  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") J7$JW3O  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" T`r\yl}  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False (0QYX[(r~o  
    With ActiveDocument.Styles("QLNU论文题目").Font B{-+1f4  
        .NameFarEast = "黑体" zXT[}J VV  
        .NameAscii = "Arial Black" Z=y^9]  
        .NameOther = "Arial Black" Yc~c(1VRz  
        .Name = "Arial Black" nISfRXU;  
        .Size = 16 tzSg`7H!  
        .Bold = False Bt1&C?_$T  
        .Italic = wdUndefined FW!1 0K?  
        .Superscript = wdUndefined /rmm@  
        .Subscript = wdUndefined Iw;J7[hJ&$  
        .Underline = wdUnderlineNone =y1/V' 2E  
        .UnderlineColor = wdColorAutomatic TDj
jaO  
        .Color = wdColorAutomatic Y)9]I6n7  
P:
tl)ob  
    End With
5wGc"JHm  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat m|cT)-  
        .LineSpacingRule = wdLineSpaceSingle rR3(yy0L  
        .Alignment = wdAlignParagraphCenter mc}r15:<  
        .WidowControl = True >Wr  
        .KeepWithNext = True ~0ZLaiJ  
        .KeepTogether = True TF;}NQ  
        .PageBreakBefore = True =]hPX  
        .NoLineNumber = False e(;nhU3a*,  
        .OutlineLevel = wdOutlineLevelBodyText ]5h GSl2  
         5ofsJ!b'  
        .LeftIndent = CentimetersToPoints(0) q NE(@at  
        .RightIndent = CentimetersToPoints(0) e!|T Tap  
        .FirstLineIndent = CentimetersToPoints(0) x#&%lJT  
         rw]*Nxgr  
        .CharacterUnitLeftIndent = 0 {-kV~p  
        .CharacterUnitRightIndent = 0 H2D j`0  
        .CharacterUnitFirstLineIndent = 0 7EukrE<b'  
         D4W^{/S  
        .LineUnitBefore = 1 'X1fb:8m8  
        .LineUnitAfter = 1 zFGZ;?i  
         +]NPxUa  
        .BaseLineAlignment = wdBaselineAlignAuto h]#bPb  
    End With %.n 7+  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False \`,,r_tO  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll Q7@ m.w%`  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS F` 
gQ[  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True ]Qb85;0)  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese pm~uWXqxr=  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True yct^AN|%  
    DoEvents bx8|_K*^  
     .~fAcc{Qj  
    '中文摘要 4e55  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") *Wmn!{\g  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" K#oF=4_/|  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False >XiTl;UU  
    With ActiveDocument.Styles("QLNU中文摘要").Font ]U,f}T"e  
        .NameFarEast = "宋体" T<=]Vg)^r"  
        .NameAscii = "Times New Roman" %b(non*  
        .NameOther = "Times New Roman" D_4UM#Tw  
        .Name = "Times New Roman" @Zd/>'  
        .Size = 12 p?+*R@O  
        .Bold = wdUndefined ILq"/S.  
        .Superscript = wdUndefined iv]*
HE  
        .Subscript = wdUndefined < &~KYu\r  
        .Italic = wdUndefined JYU0&nZl4  
        .Underline = wdUnderlineNone jM DG  
        .UnderlineColor = wdColorAutomatic ^GN|}W  
        .Color = wdColorAutomatic ,6FmU$ Kn  
    End With om'DaG`A  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat 8I*
WVa$l  
        .LineSpacingRule = wdLineSpaceExactly f MDM\&f  
        .LineSpacing = 20 rezH5d6z62  
        .Alignment = wdAlignParagraphLeft |XdkJv]  
         Kv26rY8Q  
        .WidowControl = False @ I$;  
        .KeepWithNext = False v3{[rK}  
        .KeepTogether = True d)X6x-(  
        .PageBreakBefore = False {=GWQn6cc  
        .NoLineNumber = False m?=9j~F*  
        .OutlineLevel = wdOutlineLevelBodyText B)cVbjTn  
         ^@0-E@ {c  
        .LeftIndent = CentimetersToPoints(0) $VLCD  
        .RightIndent = CentimetersToPoints(0) L?gak@E  
        .FirstLineIndent = CentimetersToPoints(0) auP6\kpMe  
         _laLTP*  
        .CharacterUnitLeftIndent = 0 1
Ev#[FOc  
        .CharacterUnitRightIndent = 0 -U/m  
        .CharacterUnitFirstLineIndent = 2 ]jL`*tI\S  
        .LineUnitBefore = 0 xX]92Q  
        .LineUnitAfter = 0 8!uqR!M<C  
         L_WVTz?`  
    End With (1my9k5C  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False ntT~_Ba8;u  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll nQW`X=Ku  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS ]C me)&hX  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True Yh} F  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese y8.(filNB  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True Z>#MTxU(  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete 0 Zv<]xO  
    DoEvents CH/*MA  
     |p1pa4%}  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ssy+x;<x,  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" /K./k!'z  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False JZ  
    With ActiveDocument.Styles("QLNU英文标题").Font G~\ SI.  
        .NameFarEast = "黑体" L?c7M}vV  
        .NameAscii = "Arial Narrow" )FfJ%oT}  
        .Name = "Arial Narrow" &J~%Nt  
        .Size = 16 H _%yh,L  
        .Bold = True :jp4 !0w  
        .Bold = wdUndefined eVYUJ,  
        .Superscript = wdUndefined ?NL>xMA  
        .Subscript = wdUndefined z a^s%^:yK  
        .Italic = wdUndefined 6s"Erq5q  
         ]8i2'x
 
        .Underline = wdUnderlineNone _4VS.~}/R  
        .UnderlineColor = wdColorAutomatic N<54_(|X  
        .StrikeThrough = False -}O>m}l  
        .DoubleStrikeThrough = False >v DD.
 
    End With Rr'^l ]  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat u*NU MT2  
        .LineSpacingRule = wdLineSpaceSingle C/!c?$J  
        .Alignment = wdAlignParagraphCenter bl)iji`]  
        .WidowControl = True -bHfo%"^TT  
        .KeepWithNext = False &sRjs  
        .KeepTogether = False 68^5X"OGF  
        .PageBreakBefore = False 3g#fX{e_5!  
        .NoLineNumber = False >{dj6Wo  
        .FirstLineIndent = CentimetersToPoints(0) 75pz' Cb  
        .OutlineLevel = wdOutlineLevelBodyText 3)J0f+M>dv  
         *?#t (Y[  
        .LeftIndent = CentimetersToPoints(0) )@]Y1r4U  
        .RightIndent = CentimetersToPoints(0) .RNr^*AQ  
        .FirstLineIndent = CentimetersToPoints(0)  p|D-ez8  
         +I+7@XiZ  
        .CharacterUnitLeftIndent = 0 ul',!js?  
        .CharacterUnitRightIndent = 0 gTp){  
        .CharacterUnitFirstLineIndent = 0 /}Z0\,  
         u,6 'yB'u  
        .LineUnitBefore = 1 3 #zwY  
        .LineUnitAfter = 1 lTh}0t  
         Gu3'<hTlxd  
    End With |# z
znT"  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False Tmo+I4qoL  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll z mxrz[  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS u$ZahN!  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True lilKYrUmG  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese e8TJ =}\  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True EQ j2:9f  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete W_zAAIY_Y  
    DoEvents jR^>xp;  
vh~:{akR  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") UJ'}p&E  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" W1UG\d`2  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False +r+H`cT@  
    With ActiveDocument.Styles("QLNU英文摘要").Font kXq*Jq  
        .NameFarEast = "宋体" $^2 j#]uX  
        .NameAscii = "Arial" I+Q`i:\,q  
        .NameOther = "Arial" MpV6Vb
p  
        .Name = "Arial" *WQ}ucE^#  
        .Size = 12 =m4_8)-8u  
        .Bold = wdUndefined * 1L;%u| [  
        .Italic = wdUndefined `2Buf8|a,  
        .Superscript = wdUndefined B(GcPDj(K  
        .Subscript = wdUndefined N2"4dVV;  
    End With Us]Uy|j  
     OudD1( )W  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat bD[6) ITg  
         c !ybz{L  
        .LineSpacingRule = wdLineSpaceExactly &&w7-  
        .LineSpacing = 20 K_Jo^BZ  
          'S f  
        .Alignment = wdAlignParagraphJustify S|8O$9{x9q  
         o'3t(dyyH  
        .WidowControl = False #0HF7C3  
        .KeepWithNext = False 'M*+HY\.0  
        .KeepTogether = False aeESS;JxJj  
        .PageBreakBefore = False =~&Fq $$  
        .NoLineNumber = False 3
f{%IU(z  
         K%: :  
        .OutlineLevel = wdOutlineLevelBodyText  4^L+LY  
         7]q$sQ  
        .LeftIndent = CentimetersToPoints(0) E6-alBi%  
        .RightIndent = CentimetersToPoints(0) %EuXL% B  
        .FirstLineIndent = CentimetersToPoints(0) 4g# pQ  
         ?^F#}>C  
        .CharacterUnitLeftIndent = 0 _J51:pi  
        .CharacterUnitRightIndent = 0 h<wF;g,  
        .CharacterUnitFirstLineIndent = 2 *q%)q  
         ms8PFu(f  
        .LineUnitBefore = 0 _BcYS  
        .LineUnitAfter = 1 &\\ iD :J  
         }31z 35  
    End With NC; 4  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False 8u::f`vi  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll MK]S205{  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS (YjY=F  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False 4=H/-v'&  
    DoEvents 5Dy800.B2  
W`C&$v#  
    Options.Pagination = True /: a~;i  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." &8C
uu$T9)  
    DoEvents ^ ,Bxq^'D  
    ActiveDocument.Repaginate 7
CGKm8T  
0VV1!g  
End Sub "jVMk  
Kl[WscR  
%^=fjJGV{~  

姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 b/]C,P  
Cs%'Af  

引用

引用第20楼newport93于06-14-2010 13:47发表的  : +98~OInySZ  
}?>30+42:  
老五，I 服了U。 dvsOJj/b  
/NLpk7r[\q  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 +(r8SnRX  

|U$oS2U\m