Dim bContinue As Boolean Mt(;7q@1c  
r_M5:Rz  
Dim regEX As New RegExp RRR=R]  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 *vIC9./  
G'6f6i|<I@  
Dim LastTitle0String As String, LastTitle0No As Long O}q(2[*i  
Dim LastTitle1String As String, LastTitle1No As Long =}YaV@g<f  
Dim LastTitle2String As String, LastTitle2No As Long >twog}%  
Dim LastTitle3String As String, LastTitle3No As Long t3;QF  
Dim LastTitle4String As String, LastTitle4No As Long EL1*@  
Dim LastTitle5String As String, LastTitle5No As Long ,\0>d}eh!  
Dim LastTabelString As String, LastTableNo As Long '8UhYwyr  
Dim LastFigureString As String, LastFigureNo As Long (:ij'Zbz  
bODyJ7=[  
Dim strSeperator As String $3{I'r]  
~DUOL~E  
Sub ConvertWidth(fTEXT As String, rText As String) #^bn~  
        Selection.Find.ClearFormatting {$)pkhJ  
        Selection.Find.Replacement.ClearFormatting ^97\TmzP{  
        Selection.Find.Wrap = wdFindContinue Oftjm X_  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText AR5)Uws  
        DoEvents ]Y wvwmZ  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True h>&t
``<  
End Sub )r:gDd#/X  
,:?=j80m  
Sub ClearDomain() 'Rw*WK  
        With Selection.Find OT}^dPQe  
            .ClearFormatting =
1% <  
            .Replacement.ClearFormatting hO4*  X  
            .Wrap = wdFindContinue 1Et{lrgh f  
            Me.txtStatus.Text = "清除所有域代码" ,PZ[CX;H@  
            DoEvents u#v
];6N  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False \$D41_Wt|  
        End With , @dhJ8/  
End Sub z#{%[X2  
>&uR=Yd  
Private Sub cmdCheck_Click() j+NpQ}t:  
    bContinue = True $D(q  
    Dim NoSeries1(1 To 16) As String qwHP8GU  
    Dim NoSeries2(1 To 16) As String %scQP{%aD  
    Dim NoSeries5(1 To 16) As String >7nOR  
    Dim NoSeriesRM(1 To 16) As String <5sP%Fs)  
    Dim paraTotal As Long, ParaText As String ?E.MP7Y#V  
    Dim ttString As String, ttNo As String @7OE:& #V  
     [fr!J?/@  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long $O^U"  
$C9['GGR  
    Me.txtStatus.Visible = True uKd79[1  
    Me.lbParaType.Visible = True {DbWk>[DkG  
    Me.cmdCheck.Enabled = False -Oc  
     rb<9/z5-  
     h v/+  
     qre(3,VE5  
     .0#{?R,  
    Dim ParaType As String, rText As String !jyy`q=  
     _&/2-3]\B  
    Selection.WholeStory bDM;7fFp$  
    Selection.NoProofing = True "!_,N@\t  
     #=aTSw X  
    tm1 = Now Ln&CB!u  
     PZO8<d  
        ActiveWindow.View.Type = wdNormalView yo"!C?82=  
     =fy'w3m  
    NoSeries1(1) = "一" o.KE=zp&z  
    NoSeries1(2) = "二" F]`_akE  
    NoSeries1(3) = "三" |NXe{q7{  
    NoSeries1(4) = "四" zr[|~-  
    NoSeries1(5) = "五" :A]CD(  
    NoSeries1(6) = "六" $h8,QP y  
    NoSeries1(7) = "七" 4W36VtQ@E  
    NoSeries1(8) = "八" s f<NC>
-  
    NoSeries1(9) = "九" ue"e><c6:  
    NoSeries1(10) = "十" 0;x<0P  
    NoSeries1(11) = "十一" ?/^x)Nm  
    NoSeries1(12) = "十二" xY1@Ja  
    NoSeries1(13) = "十三" E sx`UG|  
    NoSeries1(14) = "十四" ?4MZT5 .  
    NoSeries1(15) = "十五" 3B[u2o>  
    NoSeries1(16) = "十六"
#]FJx  
     ,ko0XQBl  
    NoSeries2(1) = "㈠" be:=-B7!  
    NoSeries2(2) = "㈡" .vhEm6wJUM  
    NoSeries2(3) = "㈢" /7p1y v  
    NoSeries2(4) = "㈣" 3C(V<R?  
    NoSeries2(5) = "㈤" oq9gG)F  
    NoSeries2(6) = "㈥" ETtoY<`#  
    NoSeries2(7) = "㈦" R'x
^Y"  
    NoSeries2(8) = "㈧" 2M3C 5Fu  
    NoSeries2(9) = "㈨" $o>6Io|D  
    NoSeries2(10) = "㈩" Dh B*k<S  
     uy oE MT#u  
    NoSeries5(1) = "①" udGZ%Mr_  
    NoSeries5(1) = "②" &=hkB9 ;  
    NoSeries5(3) = "③" Ue2k^a*Ww
 
    NoSeries5(4) = "④" vy1N,8a  
    NoSeries5(5) = "⑤" <l"rnM%  
    NoSeries5(6) = "⑥" Q (ec>+oi  
    NoSeries5(7) = "⑦" @[w.!GW%  
    NoSeries5(8) = "⑧" :,Ad1(  
    NoSeries5(9) = "⑨" "y$s`n4Mj  
    NoSeries5(10) = "⑩" -{s9PZ3~_  
     ,3FG' q2  
     [rtMx8T  
    NoSeriesRM(1) = "I" ~mYCXfoc{  
    NoSeriesRM(2) = "II" .V?>Jhok  
    NoSeriesRM(3) = "III" .[>UkM0  
    NoSeriesRM(4) = "IV" %n:ymc $}  
    NoSeriesRM(5) = "V" Bu,VLIba  
    NoSeriesRM(6) = "VI" uE:`Fo=y  
    NoSeriesRM(7) = "VII" @rt}z+JF  
    NoSeriesRM(8) = "VIII" yc3i> w`  
    NoSeriesRM(9) = "IX" ;0]s:0WD0P  
    NoSeriesRM(10) = "X" H5?H{  
    NoSeriesRM(11) = "XI" DyPb]Udb:  
    NoSeriesRM(12) = "XII" ]ppws3*Pa  
    NoSeriesRM(13) = "XIII" x]<0Kq9K  
    NoSeriesRM(14) = "XIV" V.Qy4u7m  
    NoSeriesRM(15) = "XV" f^9ntos|  
    NoSeriesRM(16) = "XVI" z)XIA)i6  
     ,ku3;58O<  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) fGMuml?[ e  
     1\ab3n  
    If i = vbNo Then TrmrA$5f  
        Exit Sub c-bTf$6}  
    End If DYaOlT(rE  
     <<[\ Rv  
    If Me.chkSuper.Value Then /H<tv5mXJ  
        Me.txtStatus.Text = "检查修改所有的上标格式" $JZ}=\n7  
     [eO6H2@=z  
        CheckSuperScript C#D8 E.W  
         6SN$El 0|G  
    End If >19j_[n@VC  
     WiCJhVF3  
    If Me.chkStyle.Value Then gtw?u b  
        Me.txtStatus.Text = "设置样式，请稍候...." l6
k.`1.In  
        DoEvents (ixlFGvEq  
        CeateOrModifyStyle &<oDl_^  
    End If P~7p~ke  
     +IPMI#
n  
     QsH?qI&2jp  
     
- {|  
    ClearDomain 5R/k8UZ  
         2RC@Fu~zaU  
     |t&gyj  
     jv'q:uA^  
    If Me.chkLIST.Value Then NJ$c0CNy  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" `beU2N  
     \K(QE ~y'W  
        ConvertListToOrdinary 2kVQ#JyuRI  
    End If rz]M}!>k  
     bd@1j`i  
     oiNt'HQ2/  
    Dim pType As String, trimpTEXT As String vN3uLz'<  
    If Me.chkNum.Value = True Then 1n|K   
        Me.txtStatus.Text = "转换全角数字形式为半角" #JW~&;  
        ConvertWidth "１", "1" ]sG^a7Z.X  
        DoEvents i $;y  
        ConvertWidth "２", "2" mM
)d`br  
        DoEvents j<C p&}X  
        ConvertWidth "３", "3" ]O.Z4+6w  
        DoEvents !S5_+.U#  
        ConvertWidth "４", "4" k#pNk7;MZ  
        DoEvents 5Int,SX  
        ConvertWidth "５", "5" A_JNj8<6r  
        DoEvents 7)37AKw  
        ConvertWidth "６", "6" &
& E
)  
        DoEvents ZRLS3*`  
        ConvertWidth "７", "7" $J)2E g  
        DoEvents O t1:z:Pl  
        ConvertWidth "８", "8" w@& (=C  
        DoEvents x|q|> dPB  
        ConvertWidth "９", "9" 1O W#_
4w/  
        DoEvents wl:[Ad
 
        ConvertWidth "０", "0" ~k780  
        DoEvents -Gmg&yQ9  
        ConvertWidth "ａ", "a" MgUjB~)Y  
        DoEvents  Jyo(Etp  
        ConvertWidth "ｂ", "b" muKCCWy#  
        DoEvents G>w+J'7  
        ConvertWidth "ｃ", "c" rhA>;9\  
        DoEvents TwL
Q;Q  
        ConvertWidth "ｄ", "d" L#9g ~>~  
        DoEvents fVx_]5jM  
        ConvertWidth "ｅ", "e" { K*  
        DoEvents g.d~`R@v  
        ConvertWidth "ｆ", "f" X6k-a;  
        DoEvents ?N(opggiD  
        ConvertWidth "ｇ", "g" %hH@< <b(s  
        DoEvents W+D{4:  
        ConvertWidth "ｈ", "h" hT?|:!ED.F  
        DoEvents h;S?  
        ConvertWidth "ｉ", "i" ?-D'xqc  
        DoEvents  a5@XD_b  
        ConvertWidth "ｊ", "j" BhCOT+i;c  
        DoEvents +W[NgUrGJ  
        ConvertWidth "ｋ", "k" );oE^3]f  
        DoEvents ]d -U
  
        ConvertWidth "ｌ", "l" [3fmhc  
        DoEvents dtd}P~  
        ConvertWidth "ｍ", "m" }D7} %P]  
        DoEvents N/i {j.=  
        ConvertWidth "ｎ", "n" (|U|>@  
        ConvertWidth "ｏ", "o" 4]mAV\1  
        ConvertWidth "ｐ", "p" z{ MO~d9  
        ConvertWidth "ｑ", "q" dPCn6  
        ConvertWidth "ｒ", "r" ;LE9w^>^V  
        ConvertWidth "ｓ", "s" (H-}z`sy/@  
        ConvertWidth "ｔ", "t" _1kcz]]F  
        ConvertWidth "ｕ", "u" W@FRKDixG  
        ConvertWidth "ｖ", "v" Q]<6i  
        ConvertWidth "ｗ", "w" Lm"zW>v  
        ConvertWidth "ｘ", "x" `g!NFp9q  
        ConvertWidth "ｙ", "y" \1mTKw)S  
        ConvertWidth "ｚ", "z" Xgyi}~AoaU  
        ConvertWidth "Ａ", "A" >^ijj`{d  
        ConvertWidth "Ｂ", "B" o%.0@W  
        ConvertWidth "Ｃ", "C" =Xh*w  
        ConvertWidth "Ｄ", "D" z`KP }-  
        ConvertWidth "Ｅ", "E" VAet!
H+]  
        ConvertWidth "Ｆ", "F" 6P U]I+  
        ConvertWidth "Ｇ", "G" e<1)KqG  
        ConvertWidth "Ｈ", "H" FCA ]zR1  
        ConvertWidth "Ｉ", "I" %Tm8sQ)1  
        ConvertWidth "Ｊ", "J" @]xHt&j  
        ConvertWidth "Ｋ", "K" xI(Y}>  
        ConvertWidth "Ｌ", "L" 1_0\_|  
        ConvertWidth "Ｍ", "M" @'fWS^ ;&  
        ConvertWidth "Ｎ", "N" Ft^+P*  
        ConvertWidth "Ｏ", "O" rugR>&mea  
        ConvertWidth "Ｐ", "P" _W^{,*p  
        ConvertWidth "Ｑ", "Q" @w{"6xc%a  
        ConvertWidth "Ｒ", "R" :Wl`8p4]  
        ConvertWidth "Ｓ", "S" wwVg'V;  
        ConvertWidth "Ｔ", "T" ypV>*  
        ConvertWidth "Ｕ", "U" n>a H7  
        ConvertWidth "Ｖ", "V" !R@s+5P)U  
        ConvertWidth "Ｗ", "W" Os"T,`F2s  
        ConvertWidth "Ｘ", "X" v JPX`T|  
        ConvertWidth "Ｙ", "Y" E (bx/f  
        ConvertWidth "Ｚ", "Z" #xBh62yIuP  
        ConvertWidth "^l", "^p" a? P$8NLr  
        ConvertWidth "（", "(" b?deZ2"L#  
        ConvertWidth "）", ")" 8xQjJ  
     B96"|v$  
    End If J'#R9NO<  
p{S#>JT
r  
    With ActiveDocument UTph(U#  
        Dim tbl As Table P2>Y0"bY  
        For Each tbl In .Tables XYdr~/[HPy  
            tbl.Rows.Alignment = wdAlignRowCenter atmTI`i  
            tbl.Range.Font.NameFarEast = "楷体" X>kW)c4{b  
            tbl.Range.Font.NameAscii = "Times New Roman" h&j9'  
            tbl.Range.Font.Size = 10.5 6BIr{SY  
        Next ?2i\ERG?  
        Set tbl = Nothing *Ph@XkhU  
    End With 9G=H
G={  
     YqNI:znm-  
     x3]y*6  
    With ActiveDocument v!77dj 6I  
         gq[`g=x  
        For i = 1 To .TablesOfContents.Count M&~cU {9c  
            .TablesOfContents(i).Delete MMS#Ci=Lj  
        Next 0o&B 7N  
         .Mu]uQUF  
         -5TMV#i {  
         yi@mf$A|  
        paraTotal = .Paragraphs.Count 32Jl|@8,g  
        paraCounter = 1 AAPfU_: ^  
         (Q~(t  
        LastTitle0No = 0 
BFH=cs  
        LastTitle1No = 0 Q3|I.I e  
        LastTitle2No = 0 S1D;Xv@  
        LastTitle3No = 0 p4M7BK:nf  
        LastTitle4No = 0 $mL iEsJ  
        LastTableNo = 0 Fb&WwGY,P  
        LastFigureNo = 0 iyr'9BA  
         BOf)27)  
        Dim Sec As Long zPt0IB_j'  
         X Cf!
xIv  
        Sec = InputBox("正文从第一节开始？", "节设置", 6)
C3GI?|b  
        If Sec = 0 Then F`U YgN  
            Exit Sub l_z@.</8P@  
        End If )*T<s  
         TSHH=`cx  
        k = 0
%^ g(2^  
        Do While (paraCounter < paraTotal) And bContinue  Jl |^  
            k = k + 1 !p$k<?WXc  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then CyEEE2cV  
                Exit Do DX#_0-o  
            End If (X(c.Jj  
            paraCounter = paraCounter + 1 Bn? MlG;aA  
            If k Mod 20 = 0 Then !:|[?M.`  
                Me.lbCounter.Caption = paraCounter ztHEXM.  
                DoEvents (3fU2{sm  
            End If >J>|+W  
        Loop :Yy8Ie#  
         w;(B4^?  
         1H]E:Bq  
        Do While (paraCounter < paraTotal) And bContinue F,>-+~L=  
             f+W8Gszi  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) ]n$&|@  
            ShapeHeight = 0 tj;<EaM  
            ShapeWidth = 0 #uillSV  
           <N}*|z7=b  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth >S=,ype~G  
             (D <o=Q  
            Select Case ParaType ! tP HT  
                Case "【】表格内容" ]/y69ou  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" tFKR~?Gc
 
                Case "章" gt{ $G|bi  
                    LastTitle0No = LastTitle0No + 1 QB|D_?]  
                    '新一章开始，复位其下属标题编号 #7yy7Y5  
                    LastTitle1No = 0 -e(,>9Q  
                    LastTitle2No = 0 hD!9[Gb  
                    LastTitle3No = 0
("-`Y'"K  
                    LastTitle4No = 0 o; Ns-=  
                     k:k!4  
                    k = Val(ttNo) QQIU5  
                    If k = 0 Then '非数字编号章节 6kM'f}t[C  
                        If ttNo <> NoSeries1(LastTitle0No) Then h(H b+7g  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString k>mqKzT0$+  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText Y%A KN  
                        End If Y~+`F5xX<  
                    Else -|x YT+?%  
                        If Val(ttNo) <> LastTitle0No Then 95X!{\  
                            rText = "第" & LastTitle0No & ttString dpI9DzA;  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText bJ6@ B<  
                        End If ~sUWXw7~  
                         D>).^>|q  
                    End If Xsit4Ma  
                     gg}^@h&?  
                    '章段落设置 ZFO*D79:K  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 c0M>CaKD  
                    .Paragraphs(paraCounter).Style = "QLNU章节" }$T!qMst{  
                    .Paragraphs(paraCounter).Range.Select _rjLCvv-  
                    Selection.EndKey unit:=wdLine "Ir.1FN  
                    tc = Replace(rText, vbCr, "") `UH 1B/  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False I!uGI  
                Case "一级标题" >HlQ+bl$xw  
                    LastTitle1No = LastTitle1No + 1 |y~u
n9j+  
                    '新一级标题开始，复位其下属标题编号
n^7m^1to  
                    LastTitle2No = 0 [*|QA9  
                    LastTitle3No = 0 N>3X!K  
                    LastTitle4No = 0 xFy%&SKHg  
                     .?CumaU  
                    If ttNo <> NoSeries1(LastTitle1No) Then 5|Or,8r(C  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString .vJt&@NO  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText 6h_OxO&!U  
                    End If 6K 6uB ~  
                   UZ}>
@0  
                     kx_PMpc  
                    '一级标题段落设置  格式：一、标题内容 4bZ +nQgLu  
                    .Paragraphs(paraCounter).Range.Text = rText EU@XLm6  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" jXALN  
                    .Paragraphs(paraCounter).Range.Select Owz.C_{)  
                    Selection.EndKey unit:=wdLine Q1(6U6L  
                    tc = Replace(rText, vbCr, "") X*Dt<i};v  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False %*`yd.L0W  
                Case "二级标题" iJD_qhd7  
                    LastTitle2No = LastTitle2No + 1 KQ\ d$fX  
                    '新二级标题开始，复位其下属标题编号 d?_LNSDo  
                    LastTitle3No = 0 `.8#q^  
                    LastTitle4No = 0 J 8""}7D  
                     {P>%l\?  
                    If ttNo <> NoSeries1(LastTitle2No) Then baL-~`(T  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString ~PAbtY9}U  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText =gb(<`{ >  
                    End If "=r"c$xou  
                     4hh=z>$|l)  
                    '二级标题段落设置 格式：(一)、标题内容 6ISDY>p  
                    .Paragraphs(paraCounter).Range.Text = rText OP}8u"\Z  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" </B5^}  
                     q\gvX 76a  
                    .Paragraphs(paraCounter).Range.Select ;UB$Uqs6  
                    Selection.EndKey unit:=wdLine Z/>0P*
F  
                    tc = Replace(rText, vbCr, "") ?=X_a{}/  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False C;_*vi2u  
                 Vn1hr;i]  
                Case "三级标题" ezR!ngt  
                    LastTitle3No = LastTitle3No + 1 v'zj<|2  
                    '新三级标题开始，复位其下属标题编号 RIQw+RG>  
                    LastTitle4No = 0 1=X"|`<!  
                     6 SosVE>Z  
                    If Val(ttNo) <> LastTitle3No Then 2r~&+0sBP  
                            rText = LastTitle3No & ". " & ttString bu|ecv  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText !NfN16  
                         *zR   
                    End If en6oFPG  
                    '三级标题段落设置 格式：1. 标题内容 L_4ZxsIv  
                    .Paragraphs(paraCounter).Range.Text = rText baVSQtda  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" /n|`a1!  
                    .Paragraphs(paraCounter).Range.Select oI6o$C  
                    Selection.EndKey unit:=wdLine U&<Nhh  
                    tc = Replace(rText, vbCr, "") Md4JaFA(  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False QC\][I>  
                Case "四级标题" "TgE@bC  
                    LastTitle4No = LastTitle4No + 1 (xhwl=
MX)  
                     E?+MM0  
                    If Val(ttNo) <> LastTitle4No Then F&
I ;E i  
                            rText = "(" & LastTitle4No & "). " & ttString xHMbtY  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText I N'a5&..  
                     "p{cz(  
                    End If :x<'>)6  
                    '四级标题段落设置 格式：(1). 标题内容 &^W91C?<6  
                    .Paragraphs(paraCounter).Range.Text = rText ;uazQyo6  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" r+WY7'c  
                    .Paragraphs(paraCounter).Range.Select wWNHZv&  
                    Selection.EndKey unit:=wdLine CN"hx-f  
                    tc = Replace(rText, vbCr, "") 6Wabw :  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False vHz]-Q-|9  
                 Xu8_
<%  
                Case "表格标题" /kY|PY  
                    LastTableNo = LastTableNo + 1 A/4
HR]  
                     -n`igC  
                    If ttNo <> CStr(LastTableNo) Then 5V{zdS=  
                            rText = "表" & LastTableNo & ". " & ttString [# '38  
                            ErrMsg.AddItem "表格编号错误：" & ParaText CL-mt5Kx#7  
                   SdTJ?P+m  
                    End If +Eh^j3W  
                     /\_wDi+#  
                    '表格名称段落设置 格式：表1. 表格名称 7~V,=WEe  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" @Ja8~5:  
                    xe = Replace(rText, vbCr, "") $MT' ZM  
                    .Paragraphs(paraCounter).Range.Select AqzPwO^  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 u< ,c  
                    Selection.Range.Text = xe o?$
B<Cb"  
                    Selection.EndKey oIP<7gz  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False 79svlq=  
                 =NHzh!  
                Case "表格首行" Q< q&a8~  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" uKcwVEu  
                Case "图片标题" 0H-~-z8Y  
                    LastFigureNo = LastFigureNo + 1 5z>kz/uxW  
                     m%
{4  
                    If ttNo <> CStr(LastFigureNo) Then KiJRq>  
                            rText = "图" & LastFigureNo & ". " & ttString LJ|2=lI+jb  
                            ErrMsg.AddItem "表格编号错误：" & ParaText CK+GD "Z$  
                   YIQm;EEG  
                    End If a|x1aN0  
                    '图片名称段落设置 格式：图1. 图名称 ~KufSt*  
                    .Paragraphs(paraCounter).Range.Text = rText 9O+><x[i  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" 2AAZZx +$  
                    .Paragraphs(paraCounter).Range.Select = +qtk(p  
                    Selection.EndKey unit:=wdLine ?
T(>!m  
                    xe = Replace(rText, vbCr, "") Hi 1@  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False ]$>O--  
                Case "正文" fb8t9sAI  
                     '正文名称段落设置 _IOt(Zb(  
                    .Paragraphs(paraCounter).Style = "QLNU正文" jB17]OCN  
               Case "文献条目" Q/,bEDc&  
                    With .Paragraphs(paraCounter) BWct0=  
                        '.Range.Select %dMP}k/  
                        'Selection.ClearFormatting d,G:+  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” uWYI p\NN  
                        .Style = "QLNU参考文献" BF_R8H,<%  
                    End With @L-3&~=  
               Case "图表注解" ?1?zmaS  
                    With .Paragraphs(paraCounter) @KhDQ0v]5  
                        .Range.Font.NameFarEast = "楷体" h
o7L@NR  
                        .Range.Font.NameAscii = "Times New Roman" Eo$7W5hJ  
                        .Range.Font.Size = 9 '小5号字 +hIS
tA  
                         L.uX  
                        .Alignment = wdAlignParagraphCenter eL-9fld/n  
                        .LeftIndent = 0 x)SW1U3TVx  
                        .RightIndent = 0 \V#2K><  
                        .FirstLineIndent = 0 9aR-kcvJIJ  
                        .LineSpacing = 12 Qw{L D+r(  
                        .LineSpacingRule = wdLineSpaceExactly Qv%"iSe~J  
                        .LineUnitAfter = 0 .#,!&Lt  
                        .LineUnitBefore = 0 ]S6`",+)<f  
                        .OutlineLevel = wdOutlineLevelBodyText >_Dq)n;%  
                        .PageBreakBefore = False mOb*VH  
                        .RightIndent = 0 -];/*nl  
                        .WordWrap = True DJ)z~W2I*  
                        .LineUnitAfter = 0.5 PSO9{!  
                         W(oJ{R&m{  
                    End With +%'S>g0W=  
                Case Else R`wL%I!?f  
                    '不作处理 HD(4Ms  
            End Select ]Fc<%wzp  
             \tj7Jy  
            '含有inlineshape的段落处理 cGhnI&  
            If ShapeHeight > 30 Then  "i\rhX  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 o 2 6R]  
            End If @,<@y
>m7  
             R7o3X,-iwn  
            If (ShapeWidth + ShapeHeight) > 150 Then L*Mt/  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" W -Yv0n3  
            End If G $TLWfm  
             (hB&OP5Fne  
            '段落计数器递 Vs-])Q?7J  
            paraCounter = paraCounter + 1 mZ^z%+Ca|  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter 2Qqk?;^1  
            Me.txtStatus.Text = ParaText +ou ]|  
            DoEvents 7|IOn5  
        Loop UvSvgDMl  
    End With b3G4cO;t;  
     fAu^eS%>7  
    msg = "" Awo H d7M  
     Lbka*@  
    For i = 0 To Me.ErrMsg.ListCount - 1 ?v-( :OF  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) B>3joe}  
    Next brA\Fp^  
     tSVN}~1\  
     hpD \,  
     eC^UL5>%
 
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg ?mJNzHrq;  
    Me.cmdCheck.Enabled = True 9 wun$!>&  
    Me.txtStatus.Visible = True p`jkyi  
    Me.lbParaType.Visible = False NW'rqgG  
     El;\#la  
    bContinue = False GHaOFLY  
End Sub ccc*"_45#  
(cX;a/BR  
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) 0,a;N%K-  
    Dim pTEXT As String fb7Gy  
     R\%&Q|  
    pTEXT = ChKRange.Text gAA2S5th  
     2F0@M|'  
    ParaType = "其它" v2e*mNK5  
    TitleString = pTEXT v+NdO$o  
    TitleNo = "N/A" qn VxP&  
     )uvs%hK  
    shpCounter = ChKRange.InlineShapes.Count X|}yp|  
    If shpCounter <> 0 Then =/Ob kV Yf  
        MaxShpHeight = 0: TotalShpWidth = 0 "lcNjyU\ O  
        For i = 1 To shpCounter 4!pMZ<$3  
            k = ChKRange.InlineShapes(i).Height Jhclg0q  
            l = ChKRange.InlineShapes(i).Width uES|jU{]b  
            If k > MaxShpHeight Then Fb&Xy{kt1  
                MaxShpHeight = k U{vt9t  
            End If u%J04 vG"D  
            TotalShpWidth = TotalShpWidth + l 0j^ QY6  
        Next v=A]#O%  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then 8E:8iNbF  
            Exit Sub @5!Mr5;  
        End If 7~@9=e8G  
    End If G x;U 3iV  
     VQ5D?^'0/  
    '空行 O,`#h*{N  
    If Len(pTEXT) <= 2 Then \Kp!G1?_AY  
        Exit Sub 'u6T^YS  
    End If 2D;,
'  
     >h kmL](^  
         _d#1muZ?p|  
    '是否为表格中的文字 ^ lrq`1k  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then eSNwAExm  
        ParaType = "表格内容" *9#6N2J$M  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) .E'Tfa  
        If k = 1 Then mR
e BS  
            ParaType = "表格首行" d NQ?8P-&  
        End If M ABrf`<b  
        Exit Sub UEZnd8  
    End If S+^*rw
  
    
DQ'=$z  
    '例外情况：脚注 +FD"8 ^YC  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then t$NK{Mw5_  
        ParaType = "脚注" 5OUGln5
 
        Exit Sub &b[.bf  
    End If :+%"kgJNL  
     &vf9Gp+MK  
    '例外情况：尾注 <j}n/G]  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then DJxe3<  
        ParaType = "尾注" S]E1+,-*  
        Exit Sub g.wp }fz  
    End If KMO(f!?  
     Y}<w)b1e|  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then 3*< O-
Jr  
        ParaType = "页眉页脚" `nAR/Ye  
        Exit Sub J*Dt\[X  
    End If .+|HJ (  
     D00I!D16  
     J1@X6U!{  
    With regEX k[9~Er+  
        .Global = True  m0}Pq{g  
         ~=$0=)c  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" )HHG3cvU  
        If regEX.Test(pTEXT) Then >WfkWUb  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") )- D
{]>8  
            TitleString = regEX.Replace(pTEXT, "$3") {MP8B'r-6  
            TitleNo = regEX.Replace(pTEXT, "$1") f)`_su U  
            ParaType = "章"
;B4x>  
            Exit Sub toDv~v  
        End If (twwDI  
         {}r# s>  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" E8_j?X1  
        If regEX.Test(pTEXT) Then 5
K_KZL-  
            ParaType = "一级标题" 0E*q-$P  
            regEX.Execute (pTEXT) ^P4q6BW  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") X$aN:!1  
            TitleString = regEX.Replace(pTEXT, "$3") zX{O"w  
            TitleNo = regEX.Replace(pTEXT, "$1") Y>Oh]?   
            Exit Sub x=1Iuc;&3  
        End If KIyhvY~  
         rI/;L<c  
        '全角或半角括号中的数字 @>>8CU^~  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" ,$"*X-1   
        If regEX.Test(pTEXT) Then 4+rr3 $AY  
            ParaType = "二级标题" G(g`>' m  
            regEX.Execute (pTEXT) Rra3)i`
*  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") /.54r/FN')  
            TitleString = regEX.Replace(pTEXT, "$5") 5*M3sN  
            TitleNo = regEX.Replace(pTEXT, "$2") i2. +E&3v  
            Exit Sub LA!2!60R  
        End If  -&N^S?  
         c1!0Z28  
        '阿拉伯数字  1. 2. 4R 9lA  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" `w&Y[8+E  
        If regEX.Test(pTEXT) Then 0rM'VgB  
            ParaType = "三级标题" v|IPus|>  
            regEX.Execute (pTEXT) &I8Q'  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 =<,>dBs}\  
            TitleString = regEX.Replace(pTEXT, "$3") HPz9Er  
            TitleNo = regEX.Replace(pTEXT, "$1") Yp*Dd}n`  
            Exit Sub sGg=4(D  
        End If :c4iXK0_^?  
         lD`@{A  
        '全角或半角括号中的阿拉伯数字 Un[olp  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" s(~tL-_ K  
        If regEX.Test(pTEXT) Then >3{#S:  
            ParaType = "四级标题" \"L ;Ct 8  
            regEX.Execute (pTEXT) =ttvC"4?  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") DRp h?V\  
            TitleString = regEX.Replace(pTEXT, "$5") _ELuQ>zM]+  
            TitleNo = regEX.Replace(pTEXT, "$2") M]FA y"E  
            Exit Sub iLQFce7d|&  
        End If iME)Jl&  
         6j*L]Sc  
        '表格名称 $ z4JUr!m  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" YJBlF2uD  
        If regEX.Test(pTEXT) Then :Ma=P\J W  
            ParaType = "表格标题" U/hf?T;  
            regEX.Execute (pTEXT) vpt*?eR  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) Ll" Kxg  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) OvL@@SX |  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) YkOl@l$D  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 ,\YlDcl':0  
            Exit Sub 9%+Nzo(Fd  
        End If Sz!mn  
         MHl ffj  
        '图片名称 Y^Of  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" ]]sy+$@~  
        If regEX.Test(pTEXT) Then p$5uS=:4`8  
            ParaType = "图片标题" V/p+Xv(Zt  
            regEX.Execute (pTEXT) uPe&i5YR  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") .|$:%"O&X  
            TitleString = regEX.Replace(pTEXT, "$3") E#?Bn5-uBs  
            TitleNo = regEX.Replace(pTEXT, "$1") o|Q:am'H  
            Exit Sub =1kE2u  
        End If }PC_qQF  
         N>zpxU {  
        '参考文献 ; 9n}P@  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 2p^Jqp`$  
        If regEX.Test(pTEXT) Then 1/JtL>SKE  
            ParaType = "文献条目" @2yoy&IO  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") )Y@E5Tuk>  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") )JNUfauyT  
            Exit Sub D8OW|wVE  
        End If ,@\$PyJ  
         ,.<[iHC}9  
        prfx = Left(pTEXT, 2) <0EVq8h  
        If prfx = "注：" Or prfx = "注:" Then |:H 9#=  
            ParaType = "图表注解"
Zqo  
            Exit Sub B//2R)HS  
        End If /$EX-!ie
 
         A7`+XqG  
         [8kufMY|  
        ParaType = "正文" g1!ek  
         vkR,Sn  
    End With  !6`pq  
End Sub `, lnBP3D"  
=d+~l  
Sub ConvertListToOrdinary() 4Nb&(p  
    Dim st As Paragraph
3]46qk'  
    With ActiveDocument %`]&c)&#Z  
        For i = .Paragraphs.Count To 1 Step -1 =,MX%-2  
            Set st = .Paragraphs(i) r$8(Q'  
            lst = st.Range.ListFormat.ListString W"{:|'/v  
            If lst <> "" Then jD
O"?@+  
                st.Range.ListFormat.RemoveNumbers =c(t;u6
m-  
                st.Range.InsertBefore lst & " " Qu q X4  
            End If sKg IKYG}T  
        Next M]5)u=}S-  
    End With U"qR6  
    Set st = Nothing =&_Y=>rA]0  
End Sub K2Z]MpLD  
sYfiC`9SO  
Private Sub UserForm_Activate() .RazjXAY  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" *#n#J[  
    Me.lbTotal.Font.Bold = True a^#\"c  
    Me.txtStatus.Visible = False EPd9'9 S  
    Me.cmdCheck.Enabled = True -`f 1l8LD2  
%@,%A_So k  
End Sub h!~Qyb>W  
qsA`\%]H  
b] EC+.  
Sub CheckSuperScript() _?}[7K!~d  
    Selection.Find.ClearFormatting ' ?4\  
    Selection.Find.Replacement.ClearFormatting T{CCZ"Fv  
    With Selection.Find :@~Nszlb  
        .Text = "[【\[［〖](*)[】\]〗］]" KUV(vAY,  
        .Replacement.Text = "[\1]" qS9z0H LE  
        .Replacement.Font.Superscript = True M~?2g.o'D  
        '.Replacement.Font.Color = wdColorBlue TPBL|^3K  
        .Forward = True >~F_/Z'5  
        .Wrap = wdFindContinue 6"o,)e/z  
        .FORMAT = True pu"m(9  
        .MatchCase = False F `4a0~?  
        .MatchWholeWord = False d`w3I`P1  
        .MatchByte = False G?,b51"  
        .MatchAllWordForms = False ,J@A5/B,AA  
        .MatchSoundsLike = False gN/kNck  
        .MatchWildcards = True JEL.*[/  
    End With kd=|Iip;(  
    Selection.Find.Execute Replace:=wdReplaceAll mX
Ss:FqE!  
End Sub vkjHh.  
kB! iEoIBA  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 1B0+dxN`  
    bContinue = False J<9;Ix8R  
    Set regEX = Nothing -:V0pb  
End Sub v1R t$[  
>h Rq  
Sub CeateOrModifyStyle() E"'4=_  
' FjU -t/  
' X/8TRi
TFv  
Dim stl As Style "<N2TDF5  
     WC7ltw2  
    Options.Pagination = False  Qi;62M  
     dzbFUDJ  
    On Error Resume Next yq=rv$.s  
    For Each stl In ActiveDocument.Styles mNQ~9OJ1  
        stl.Delete BJDSk#!J!{  
    Next 5/E7@h ,  
    On Error GoTo 0 0en Bq>vr  
      +Oafo|%  
    Set stl = Nothing %a=^T?8  
     i-YSt5iq  
    DoEvents `Eg~;E:  
    On Error Resume Next *[|a$W  
     pba`FC4R  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph _SQQS67fu"  
     BO%aCK&  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph _O$7*k  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph 6k=
*O|r  
     Hob n{E  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph o>l/*i
0I  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph ]aZ3_<b  
     1sIPhOIys  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph I1)t1%6"vJ  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph GbwqrH+  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph k .#I
;7  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph Ivx]DXR|  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph Dk^T_7{  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph olxnQYFo  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph ,]LsX"u  
     Z.%0yS_T  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph xbNL <3"a  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph KW@][*\uC  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph OpLo[Y\  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph '}, 8x?  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph J=?P`\h  
     "> M:6\B  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph PNp-/1Cx  
    On Error GoTo 0 @R
w]boC  
    DoEvents -)%gMD~z1  
     /J5)_>
R:  
    'BaseStyle L!
LhH  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False =JGL~t?  
    With ActiveDocument.Styles("BaseStyle").Font >Tp` Kri  
        .NameFarEast = "宋体" B.#.
gB#C  
        .NameAscii = "Times New Roman" ~(x"Y\PEu  
        .NameOther = "宋体" G_E \p%L>]  
        .Size = 10.5 >4G~01  
        .Bold = wdUndefined PNB E  
        .Italic = wdUndefined 3
%(BZ23  
        .Subscript = wdUndefined <HfmNhI85(  
        .Subscript = wdUndefined W @]t  
         4
XNdsb  
        .Underline = wdUnderlineNone \sEH)$R'  
        .UnderlineColor = wdColorAutomatic [r0`D^ *=  
        .StrikeThrough = False T(z/Jm3  
        .DoubleStrikeThrough = False e6i m_ Tk  
         2{9%E6%#  
        .Outline = False
`L m9!?  
        .Emboss = False :\"V5   
        .Shadow = False DyC
nL@  
        .Hidden = False #JYH5:*  
        .SmallCaps = False \"|7o8  
        .AllCaps = False (hi{i  
        .Color = wdColorAutomatic K9tr Iy$v  
        .Engrave = False wv.HPmq  
        .Scaling = 100 WzqYBa  
        .Kerning = 1 F T$x#>  
        .Animation = wdAnimationNone 8D&yFal  
        .DisableCharacterSpaceGrid = False w{"ro~9o  
        .EmphasisMark = wdEmphasisMarkNone 1EHL8@.M  
    End With d",VOhW7)S  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat K}(@Ek  
        .LeftIndent = 0 O"e brv  
        .RightIndent = 0 *%n(t+'q  
        .SpaceBefore = 0 <3fY,qw  
        .SpaceBeforeAuto = False H{,qw%.|KA  
        .SpaceAfter = 0 5_+pgJL  
        .SpaceAfterAuto = False 3{{Ew}kZm  
         >*h3u7t  
        .LineSpacingRule = wdLineSpaceSingle 2I>`{#fV  
        .Alignment = wdAlignParagraphJustify r E&}B5PN=  
         c2Yrg@) [  
        .WidowControl = False MWI7u7{  
        .KeepWithNext = False W}P9I &3  
        .KeepTogether = False yfZYGhPN(
 
        .PageBreakBefore = False  jAxrU  
        .NoLineNumber = False y4N2gBTKu  
         X<<FS%:+  
        .FirstLineIndent = CentimetersToPoints(0) ZkmYpi[  
        .OutlineLevel = wdOutlineLevelBodyText `6\u!#  
        .CharacterUnitLeftIndent = 0 ') K'Ea  
        .CharacterUnitRightIndent = 0 eE5j6`5i
 
        .CharacterUnitFirstLineIndent = 0 U.pGp]\Q)G  
        .LineUnitBefore = 0 560`R>  
        .LineUnitAfter = 0 q+U&lw|"w  
        .AutoAdjustRightIndent = True 'j$
n;3  
        .DisableLineHeightGrid = True R*l3 zn>  
         Ya29t98Pk  
        .FarEastLineBreakControl = True )W^$7Em  
        .WordWrap = True Lk ]W?  
        .Hyphenation = False >c=-uI  
         62 9g_P)  
        .HangingPunctuation = True %fIYWu`X  
        .HalfWidthPunctuationOnTopOfLine = True oR~s \Gt  
        .AddSpaceBetweenFarEastAndAlpha = True =Bos>;dl  
        .AddSpaceBetweenFarEastAndDigit = True BV )) #D9  
        .BaseLineAlignment = wdBaselineAlignBaseline "Ky&x$dje  
    End With !7n`-#)  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False &l~9FE*  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll :NynNu '  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese &R,QJ4L  
    ActiveDocument.Styles("BaseStyle").NoProofing = False E[Bj+mX9  
     Hn}m}A  
    '一级标题题样式 -u^f;4|u  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") c@x6<S%*  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" 'B;n &tJ   
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False XaH;  
    With ActiveDocument.Styles("QLNU一级标题").Font $QnsP#ePN  
        .NameFarEast = "黑体" giHqc7-PaX  
        .NameAscii = "Arial Black" oIG
F=x,e8  
        .NameOther = "黑体" Vtv1{/@+c  
        .Name = "黑体" 3a0% J'  
        .Size = 16              '三号 t[p/65L>8  
        .Bold = True jk{m8YP)E  
        .Italic = wdUndefined E]0Qz? W  
        .Subscript = wdUndefined
9R99,um$  
        .Superscript = wdUndefined PM3fJhx  
    End With }=fls=c/0  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat =\IUBH+C  
         jGEmf<q&u  
        .LeftIndent = CentimetersToPoints(0) }$` PZUw>  
        .RightIndent = CentimetersToPoints(0) M~g{}_0Z  
        .FirstLineIndent = CentimetersToPoints(0) 8 |~M!<  
         jP\5bg
-}  
        .LineSpacingRule = wdLineSpaceSingle ]Q -.Y-J/O  
        .Alignment = wdAlignParagraphCenter M:t"is
 
         A-l[f\  
        .WidowControl = True >9,LN;Ic
 
        .KeepWithNext = True ,!QtViA7  
        .KeepTogether = True 9.wZhcqqU  
        .OutlineLevel = wdOutlineLevelBodyText /pL'G`  
         Vx%!j&  
        .LineUnitBefore = 0.5 FVWHiwRU,  
        .LineUnitAfter = 0.5 R,`3 SW()  
    End With q" u,r6ED  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False IweNe`Z  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll TGZr [  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese c! a1@G  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True ot,=.%O  
    DoEvents > ">grDX  
     fF^A9{{BS  
    '二级 e
QJyO9$G  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") E&;; 2  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" C1x(4 &h  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False T'-kG
"lb  
    With ActiveDocument.Styles("QLNU二级标题").Font ~_|CXPiQ8  
        .NameFarEast = "黑体" S\sy] 1*?$  
        .NameAscii = "Arial Narrow" T\ [CQO  
        .NameOther = "黑体" a,eEP43dn  
        .Name = "黑体" br')%f}m  
        .Size = 15        '小三号 AWDy_11Nm  
        .Bold = False !X\aZ{}Q  
        .Outline = False ?nwg.
&P  
        .Italic = wdUndefined yL_\&v  
        .Subscript = wdUndefined N
>IkK*v  
        .Superscript = wdUndefined h*V~.H  
    End With 6o]j@o8V  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat \t]_UNGyW  
        .LeftIndent = CentimetersToPoints(0) ) ):w`^6  
        .RightIndent = CentimetersToPoints(0) +J3Y}A4W3X  
        .FirstLineIndent = CentimetersToPoints(0) tja7 y"(]  
         2Y
g\<PsN  
        .LineSpacingRule = wdLineSpaceSingle T/?C_
i  
        .Alignment = wdAlignParagraphLeft LY2 QKjgP  
         0RHjA&r3v  
        .WidowControl = True B:6VD /qC  
        .KeepWithNext = True CcZM0  
        .KeepTogether = True z{nd4qOsD  
        .PageBreakBefore = False XnB-1{a1  
        .OutlineLevel = wdOutlineLevelBodyText 7 b8pWM  
          g^  ))  
        .LineUnitBefore = 0.5 LJOJ2x  
        .LineUnitAfter = 0.5 SN;_.46k  
         ]Cp`qayct  
    End With h]WW?.  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False a*qc
  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll :'sMrf_EA  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese I^m9(L4%  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True |XJ|vQGU  
    DoEvents q>m[vvt"  
     |N0RBa4%  
    '三级标题样式 zKQXmyO  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") .$xTX'  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" [bjP-p
X  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False *
0z'!m12  
    With ActiveDocument.Styles("QLNU三级标题").Font nTHCb>,vM  
        .NameFarEast = "宋体" .xe+c K  
        .NameAscii = "Times New Roman" DpIk$X  
        .NameOther = "黑体" G|j8iV O  
        .Name = "黑体" 3K%_wCZ  
        .Size = 14               '四号 vk<4P;
A(G  
        .Bold = False 8u"HW~~=  
        .Outline = False KMXd  
        .Italic = wdUndefined 6|Xm8,]yRw  
        .Subscript = wdUndefined S$qpClXS,  
        .Superscript = wdUndefined S"%W^)mZ  
    End With ~b})=7n.  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat !H(V%B
%  
        .LeftIndent = CentimetersToPoints(0) r#w.yg4EX  
        .RightIndent = CentimetersToPoints(0) \R,8xID_t  
        .FirstLineIndent = CentimetersToPoints(0) :Fi$-g  
         *l)}o4-$  
        .LineSpacingRule = wdLineSpaceSingle `.F3&pA  
        .Alignment = wdAlignParagraphLeft %JuT'7VB  
         8@]vvZ2/gj  
        .WidowControl = True [fg-"-+:M  
        .KeepWithNext = True YXIAVSnr  
        .KeepTogether = True vP^V3  
        .PageBreakBefore = False -*;JUSGh  
        .OutlineLevel = wdOutlineLevelBodyText =QhK|C!$A  
         CK8!7=>}^  
        .CharacterUnitLeftIndent = 0 Qb@i_SX(fs  
        .CharacterUnitRightIndent = 0 Z`>m  
        .CharacterUnitFirstLineIndent = 2 V eLGxc  
         Asli<L(?`  
        .LineUnitBefore = 0.5 #0c;2 }D  
        .LineUnitAfter = 0 ]JlM/  
    End With 1SG^X-(GM/  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False zd3^ k<  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll hs<OzM  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese |H;+9(  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True m{by
%  
    DoEvents LzD,]{CC5  
     "]B%V!@  
    '四级标题样式 Q
1P=A:*]9  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") uHPd!#]  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" ?pV!`vp^{  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False ft?c&h;At  
    With ActiveDocument.Styles("QLNU四级标题").Font Ub`vf4EB  
        .NameFarEast = "宋体" !JbWxGN`jn  
        .NameAscii = "Times New Roman" .Ix[&+LsY  
        .NameOther = "宋体" c"pu"t@/Z  
        .Name = "宋体" qP7 2JxT  
        .Size = 12               '小四号 ORhvo,.u  
        .Bold = True Z<`:xFy(  
        .Outline = False I~ e,']  
        .Italic = wdUndefined (f    
        .Subscript = wdUndefined #NWS)^&1b  
        .Superscript = wdUndefined sfs2kiH  
    End With vA*Q}]Ov  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat HAAU2A9B2  
         Y``]66\Fp  
        .LeftIndent = CentimetersToPoints(0) s ?|Hw|j  
        .RightIndent = CentimetersToPoints(0) g1&q6wCg|  
        .FirstLineIndent = CentimetersToPoints(0) $j "BHpN  
         2{4f>,][  
        .LineSpacingRule = wdLineSpaceSingle z)%]#QO  
        .Alignment = wdAlignParagraphLeft !"dAwG?S  
         Ag}P  
        .WidowControl = True {GG;/Ns{f-  
        .KeepWithNext = True =gHUY&sPu8  
        .KeepTogether = True Jm,
tN/o*  
        .PageBreakBefore = False SzyaVBD3  
        .OutlineLevel = wdOutlineLevelBodyText WU~L#Ih.V  
         !rff/0/x"  
        .CharacterUnitLeftIndent = 0 ?D=C8EX  
        .CharacterUnitRightIndent = 0 N]&:xd5  
        .CharacterUnitFirstLineIndent = 2 j7b4wH\#  
         @k\npFKQm  
        .LineUnitBefore = 0 j>Cp4  
        .LineUnitAfter = 0 "X\6tl7a|  
         d8&T62Dnd4  
    End With !mK}Rim~  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False dg4q+  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll ZC 3;QKw>  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese MbXtmQ%C8  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True 9/dADJe0b  
    DoEvents MGH2z:  
     `W2 o~r*&  
    '正文校式 qD{~QHDa  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") {11xjvAD  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" B[fbPrM  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False RAFdo  
    With ActiveDocument.Styles("QLNU正文").Font =a(]@8$!1  
         R+tQvxp#  
        .NameFarEast = "宋体" 2!GyQ@&[W  
        .NameAscii = "Times New Roman" T}K@ykT  
        .NameOther = "宋体" ) h=[7
}|  
        .Name = "宋体" ]p8<Vluv  
         gq050Bl)  
        .Size = 12               '小四号 =21m|8c  
         3y y
VI#  
        .Bold = wdUndefined uuYeXI;  
        .Italic = wdUndefined sv2XD}}  
        .Subscript = wdUndefined ["15~9
  
        .Superscript = wdUndefined #dkSAS  
         N_?15R7h  
        .Outline = False 9z7rv,  
        .Emboss = False d bHxc@H  
        .Shadow = False HH|N~pBJB  
        .Hidden = False f'OcW*t  
         |};-.}u^`h  
        .DisableCharacterSpaceGrid = True \12y,fOJ  
    End With WZcAwYB  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat bOD]`*q  
         U P*5M  
        .LeftIndent = CentimetersToPoints(0) ~;0W +  
        .RightIndent = CentimetersToPoints(0) sU"sd7#A  
        .FirstLineIndent = CentimetersToPoints(0) @# GS4I  
         !G;|~|fMV  
        .LineSpacingRule = wdLineSpaceExactly l{hO"fzy  
        .LineSpacing = 20 5QZ}KNJ|t~  
        .Alignment = wdAlignParagraphLeft =L*-2cE6#  
         'LC0hoV  
        .WidowControl = False :\~YbA  
        .KeepWithNext = False &+ UnPE(  
        .KeepTogether = False f s2}a  
        .PageBreakBefore = False vo^2k13  
        .Hyphenation = False EKNmXt1 lE  
         r>J%Eu/O  
        .OutlineLevel = wdOutlineLevelBodyText g:Ry.=F7W  
         !YX_k<1E  
       nT=XWM  
        .CharacterUnitLeftIndent = 0 ,Gy2$mglB  
        .CharacterUnitRightIndent = 0 :*eJ*(M  
        .CharacterUnitFirstLineIndent = 2 KU;J2Kt  
         K/z2.Npn  
        .LineUnitBefore = 0 zh9B8r)C  
        .LineUnitAfter = 0 \Yr&vX/[p  
        .SpaceBefore = 0 [vOk=  
        .SpaceAfter = 0 s,H }km  
         |J:m{  
        .DisableLineHeightGrid = True r;GAQH}j_  
    End With (;(2n;i[M  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False L@`:mK+;  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll iO7s zi  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese )3)x/WM  
    ActiveDocument.Styles("QLNU正文").NoProofing = True l4\!J/df  
    DoEvents (= Wu5H  
     ,e;_ Vb  
    '图片段落样式 hQaa"U7[  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") VbX$\Cs:  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" synueg  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False ;nKhmcQ4  
    With ActiveDocument.Styles("QLNU图片段落").Font Ys8D|
HIk  
        .Size = 12               '小四号 7towjwr  
        .Italic = wdUndefined 0Z jE(3i  
        .Subscript = wdUndefined j9&x#U  
        .Superscript = wdUndefined ~=?^v[T1  
    End With t""d^a#Dp  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat JdX!#\O  
         Gp2Cwyv  
        .LeftIndent = CentimetersToPoints(0) E51S#T  
        .RightIndent = CentimetersToPoints(0) Q$A;Fk}-  
        .FirstLineIndent = CentimetersToPoints(0) o' :K4r;  
         qEM,~:lTn  
        .LineSpacingRule = wdLineSpaceSingle bZu2.?{  
        .Alignment = wdAlignParagraphCenter B]:?4Ov  
        .KeepWithNext = True Vsd4;  
        .OutlineLevel = wdOutlineLevelBodyText 9!s)52qt  
         vGchKN~_  
        .CharacterUnitLeftIndent = 0 ?gG%FzfQ/  
        .CharacterUnitRightIndent = 0 fHXz{,?/w  
        .CharacterUnitFirstLineIndent = 0 p_CCKU  
         )p[Qj58  
        .LineUnitBefore = 0 8}?w%FsN#  
        .LineUnitAfter = 0 SyIi*dH  
    End With (/A 6kp?  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False  jRhRw;  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll _^`TG]F  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese hHyB;(3~  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True ESnir6HoU  
    DoEvents n,Q^M$mS0  
     zin'&G>l  
     69N8COLB  
    '第X章 VN]j*$5   
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") fhmBKeFdV  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" ~z7
Fz"o<  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False xmHW,#%ui\  
    With ActiveDocument.Styles("QLNU章节标题").Font Vw5Pgtx  
        .NameFarEast = "黑体" Pa"[&{:  
        .NameAscii = "Arial Black" /@@?0xjX  
        .NameOther = "Arial Black" K[i&!Z&  
        .Name = "黑体" '25zb+-  
        .Size = 16 BQ(sjJ$v6F  
        .Bold = True 3W}qNY;J  
        .UnderlineColor = wdColorAutomatic Xw&vi\*m  
        .Outline = False ek`6 Uf  
        .Italic = wdUndefined 8$38>cGY^  
        .Subscript = wdUndefined $>hH{  
        .Superscript = wdUndefined rmPJid[8B~  
        .Scaling = 100 1aoKf F(  
        .DisableCharacterSpaceGrid = True mX GW+  
    End With q0(-"}2l  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat F **/T  
        .LineSpacingRule = wdLineSpaceSingle 0iVeM!bM  
        .Alignment = wdAlignParagraphCenter QT\"r T9#  
        .WidowControl = True c!]yT0v&s  
        .KeepWithNext = True &;%,Axc  
        .KeepTogether = True [9\Mf4lh#  
        .PageBreakBefore = True '%*/iH6<U{  
        .OutlineLevel = wdOutlineLevelBodyText ~{q; -&  
         W/ u_<\  
        .LeftIndent = CentimetersToPoints(0) L\\'n )  
        .RightIndent = CentimetersToPoints(0) ;TboS-Y  
        .FirstLineIndent = CentimetersToPoints(0) r=<1*u  
         6<No_x |_  
        .CharacterUnitLeftIndent = 0 wN:vI(C  
        .CharacterUnitRightIndent = 0 Za7!n{?0  
        .CharacterUnitFirstLineIndent = 0 6 yXN7L==x  
         ?6 "B4%
7b  
        .LineUnitBefore = 1 ET\rd5Po  
        .LineUnitAfter = 0.5 fDwqu.K  
         UDV6 ##$
 
        .AutoAdjustRightIndent = False RM#.-gW   
        .DisableLineHeightGrid = True !jRs5{n^Ol  
        .FarEastLineBreakControl = True `2n%Lo?_  
        .WordWrap = True xOKf|  
    End With :+%Yul  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False M7//*Q'?  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll `$yi18F  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese Y.E]U!i*  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True bRI`ZT0  
    DoEvents *ch7z|wo.  
     3q.HZfN~  
    '表格标题 nk2H^RM^  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") fT5vO.
a  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" \{ff7_mLo  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False @Op7OF Y%  
    With ActiveDocument.Styles("QLNU表格标题").Font VEBvS>i*  
        .NameFarEast = "楷体" T*](oA @  
        .NameAscii = "Arial" *OHaqe(*  
        .Name = "楷体" @-XMox/  
        .Size = 10.5 #ib?6=s
PC  
        .Bold = True '[Bok=$B)  
        .Underline = wdUnderlineNone vue=K  
        .Italic = wdUndefined G1ED=N_#  
        .Subscript = wdUndefined LT]YYn($  
        .Superscript = wdUndefined %[BOe4[  
        .Color = wdColorAutomatic x{1S!A^  
    End With y~Vl0f;  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat ?y,z  
         M)CQ|P  
        .LineSpacingRule = wdLineSpaceSingle }ssL
;q  
        .Alignment = wdAlignParagraphCenter lLN5***47J  
        .KeepWithNext = True a 9Kws[  
        .KeepTogether = True pI}6AAs}Z  
        .OutlineLevel = wdOutlineLevelBodyText T)MZ`dM  
         Z=^~]Mfa  
        .LeftIndent = CentimetersToPoints(0) `}~NZ  
        .RightIndent = CentimetersToPoints(0) $mn+  
        .FirstLineIndent = CentimetersToPoints(0) y( Tb=:  
         lD,;xu Q  
        .CharacterUnitLeftIndent = 0 o= &/;X  
        .CharacterUnitRightIndent = 0 7kmd.<  
        .CharacterUnitFirstLineIndent = 0 3($tD *!o  
         q
jf
9ZD&  
        .LineUnitBefore = 1 sDjbvC 0  
        .LineUnitAfter = 0 ,AyQCUz{*?  
         XT{ukE vDR  
    End With \6vr)1~N>  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False HA~BXxa/  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll N9=?IFEe]  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese (~]0)J  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True 'v_k#%  
    DoEvents |yi#6!}^  
~Q+J1S]Fs  
    '表格首行 M~5Ja0N~  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") `$ZBIe/u  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False j0A9;AP;;C  
    With ActiveDocument.Styles("QLNU表格首行").Font X"S")BQ q  
        .NameFarEast = "楷体" 3j/~XT  
        .NameAscii = "Times New Roman" i:
x<Vi  
        .Name = "楷体" bjql<x5d  
        .Size = 9 2xt$w%  
        .Bold = True B }  
        .Underline = wdUnderlineNone }nMp.7b  
        .Italic = wdUndefined ~U1M-<IX  
        .Subscript = wdUndefined jB3Rue:+g  
        .Superscript = wdUndefined t ]P^6jw'  
    End With 7a4h7/  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat N==Y]Z$G  
        .LineSpacingRule = wdLineSpaceSingle D()tP  
        .Alignment = wdAlignParagraphCenter 8-FW'bA  
         g.COKA  
        .LeftIndent = CentimetersToPoints(0) Qp~ 3DUM  
        .RightIndent = CentimetersToPoints(0) .]ZMxDZ  
        .FirstLineIndent = CentimetersToPoints(0) &cT@MV5  
         7rIEpN>*  
         no7Q%O9  
        .CharacterUnitLeftIndent = -0.5 "$ep=h+  
        .CharacterUnitRightIndent = -0.5 C@rIyBj1g  
        .CharacterUnitFirstLineIndent = -0.5 +%)bd  
         Jf@~/!m}'  
        .LineUnitBefore = 0  0"koZd,c  
        .LineUnitAfter = 0 i=\`
f& B  
        .SpaceBefore = 0 kw5`KfG9  
        .SpaceAfter = 0 $TFWum9wO  
         8 G:f[\^  
    End With Bu7aeBP  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False l*+9R  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll 5
wa!pR\c  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese /C/I_S}H  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True 3EA`]&d>  
    DoEvents c:`CL<xzU  
YkI_i(  
    '表格内容 .CEl{fofj  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") ? ;$f"Wl  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False LteZ7e  
    With ActiveDocument.Styles("QLNU表格内容").Font II{"6YI>  
        .NameFarEast = "楷体" rl:D>t(:.  
        .NameAscii = "Times New Roman" W"\O +  
        .Name = "楷体" Rz=wInFs  
        .Size = 9 R|-!5J4h  
        .Bold = False PPj%
.i)  
        .Underline = wdUnderlineNone E/3<8cV  
        .Italic = wdUndefined ;oVFcZSA  
        .Subscript = wdUndefined <MgC7S2I  
        .Superscript = wdUndefined /`b`ai8`8  
    End With >5j&Q#Bu  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat S H;:bLk_  
        .LineSpacingRule = wdLineSpaceSingle 7X/KQ97  
        .Alignment = wdAlignParagraphCenter tWITr  
         D9higsN  
        .LeftIndent = CentimetersToPoints(0) 1_5]3+r_U-  
        .RightIndent = CentimetersToPoints(0) ~iU@ns|g\  
        .FirstLineIndent = CentimetersToPoints(0) ~~{+?v6B]  
         husk\  
        .CharacterUnitLeftIndent = -0.5 p~h[4hP  
        .CharacterUnitRightIndent = -0.5 @K}Bll.E  
        .CharacterUnitFirstLineIndent = -0.5 AzFS6<_  
        .LineUnitBefore = 0 Frum@n  
        .LineUnitAfter = 0 !.[H!-V.  
        .SpaceBefore = 0 =90)=Pxd  
        .SpaceAfter = 0 RpU.v `
 
    End With sQ8kLS_q8  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False l vfplA  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll 
aU%QJ#j  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese b^
WF R   
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True xGt>X77  
    DoEvents qw }. QwPT  
Q =4~uz|  
    '图片标题 7>xfQ  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ONm-zRx|  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" |^ J5YwCf  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False U
&u~i 3  
    With ActiveDocument.Styles("QLNU图片标题").Font ]3CW b>!_  
        .NameFarEast = "楷体" bs?&;R.5  
        .NameAscii = "Times New Roman" (dAE  
        .Name = "楷体" R)'[Tt`#R  
        .Size = 10.5 DQ%(X&k  
        .Bold = True WU{9lL=  
        .Underline = wdUnderlineNone DcmRvi)&6  
        .Italic = wdUndefined eRB K= X  
        .Subscript = wdUndefined pU[5f5_  
        .Superscript = wdUndefined <E\vc6n  
        .Outline = False X?n( $z/{  
        .Shadow = False jDCf]NvOPM  
        .Color = wdColorAutomatic q;9OqArq  
    End With :zsMkdU  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat `WlQ<QEi  
        .LineSpacingRule = wdLineSpaceSingle ?5rM'O2  
        .Alignment = wdAlignParagraphCenter ,*g.?q@W2  
         h[r)HX0hA  
        .KeepWithNext = wdUndefined 0EBHRY_F  
        .KeepTogether = True d%Nx/DS)  
        .OutlineLevel = wdOutlineLevelBodyText :;N2hnHoG  
         8eD/9PD=F  
        .LeftIndent = CentimetersToPoints(0) lcEU K  
        .RightIndent = CentimetersToPoints(0) c!J|vRA5  
        .FirstLineIndent = CentimetersToPoints(0) Q=F^Y f  
         4[n[Ch=lu  
        .CharacterUnitLeftIndent = 0 F tay8m@f  
        .CharacterUnitRightIndent = 0 6(V "xjK  
        .CharacterUnitFirstLineIndent = 0 %(izKJl q  
         cD]#
6PFA  
        .LineUnitBefore = 0 ivJTE  
        .LineUnitAfter = 0 i#(+Kxr]>  
    End With +"JQ5~7  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False yI .hN  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll Mb(hdS90  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese Hzojv<c  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True UOkVU*{  
    DoEvents (n4Uc308  
K<?[^\  
    '目录项 W>J1JaO  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") \x=!'  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" %Hy.  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False QHw{@*  
    With ActiveDocument.Styles("QLNU目录项").Font .'=-@W*  
        .NameFarEast = "黑体" $fQ'q3  
        .NameAscii = "Times New Roman" ?io,8  
        .NameOther = "Times New Roman" 17yg ~  
        .Name = "黑体" k;pU8y6Y  
        .Size = 10.5 QA# 7T3|  
        .Bold = False 5~=wia  
        .Italic = wdUndefined ZBXn&Gm  
        .Underline = wdUnderlineNone ]
RTK:%  
        .Color = wdColorAutomatic V5S6?V\  
        .Superscript = wdUndefined ?EA
&kZR]  
        .Subscript = wdUndefined `k~w 14~w  
    End With (]sk3 A  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat T)*tCp]  
         ad`=A V]  
        .LineSpacingRule = wdLineSpaceSingle `{'h+v`  
        .Alignment = wdAlignParagraphLeft \bv JZ_  
         nVGWJ3  
        .WidowControl = False tS6r4d%~=  
        .KeepWithNext = False hpzDQ6-Y  
        .KeepTogether = False c{wob%!>  
        .PageBreakBefore = False Rj~y#m  
        .NoLineNumber = False Vl 0Y'@{  
        .OutlineLevel = wdOutlineLevelBodyText qz.WF8Sy2  
         7WEoyd  
        .LeftIndent = CentimetersToPoints(0) s5u  
        .RightIndent = CentimetersToPoints(0) ~ ve  
        .FirstLineIndent = CentimetersToPoints(0) Sbjc8V ut  
        
*KDwl<^A  
        .CharacterUnitLeftIndent = 0 [
G7S  
        .CharacterUnitRightIndent = 0 R6qC0@*  
        .CharacterUnitFirstLineIndent = 0 '2v$xOh!y  
         "In$|A\?E  
        .LineUnitBefore = 0 1JF>0ijU@  
        .LineUnitAfter = 0 #An_RU 6h  
    End With vz`r !xj)  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False 0t.v  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll rwY{QBSf  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot G[\3)@I  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese !=(M
P:  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True >(eR0.x  
    DoEvents q.v_?X<_  
     qaEWK0  
    '参考文献 o`7B@]  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") |eH*Q%M  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" 2[5z6oG  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False Cp^%;(@  
    With ActiveDocument.Styles("QLNU参考文献").Font xQ\S!py-  
        .NameFarEast = "宋体" }Fb966 $  
        .NameAscii = "Times New Roman" y+P$}Nru  
        .NameOther = "Times New Roman" I_On0@%T5b  
        .Name = "Times New Roman" }!@X(S!do  
        .Size = 12 7` IO mTk  
        .Bold = False ;#S4$wISw`  
        .Italic = wdUndefined 3Qu Ft~@@  
        .Subscript = wdUndefined `bcCj~j  
        .Superscript = wdUndefined LGPg\g`  
        .Underline = wdUnderlineNone hSU|rVi  
        .UnderlineColor = wdColorAutomatic x}H%NzR  
        .Color = wdColorAutomatic !k=~a]  
        .Engrave = False |5me }!C  
    End With 77~l~EX  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat WZ ^u%Z  
         onF?;>[  
        .LineSpacingRule = wdLineSpaceExactly `d!~)D  
        .LineSpacing = 16 wPH1g*U  
        .Alignment = wdAlignParagraphLeft k~p bXA*u  
        .WidowControl = False x*0mmlCb  
        .KeepWithNext = False 4Q^
i"jT  
        .KeepTogether = False 8 qwOZ d  
        .PageBreakBefore = False +V/mV7FK  
        .OutlineLevel = wdOutlineLevelBodyText ,=y8[(h  
         [:cZDVaA|  
        .LeftIndent = CentimetersToPoints(0) ]M/*Beh  
        .RightIndent = CentimetersToPoints(0) <R8!f
c{`  
        .FirstLineIndent = CentimetersToPoints(0) l8By2{pN  
         cT3s{k  
        .CharacterUnitLeftIndent = 0 J]qx4c  
        .CharacterUnitRightIndent = 0 9H,Ec,.  
        .CharacterUnitFirstLineIndent = -2 G?v]|wdI  
         Wj\< )cH]  
        .LineUnitBefore = 0 D]WU,a[$Bc  
        .LineUnitAfter = 0 *;<>@*  
        .SpaceBefore = 0 x).`nZ1  
        .SpaceAfter = 0 >@L^^-r  
         6cbIs_g  
    End With L+TM3*a*  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False ^li(q]g1!  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll E]%&)3O[  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS [C(>e0r  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True &-4S A j  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese q%c"`u/v/  
    DoEvents JsbH'l  
h"ko4b3^'@  
    ' +y|H#(wBP  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") ZIvP?:=!  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" c4xXsUBQk  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False 1iIag}?p  
    With ActiveDocument.Styles("QLNU论文题目").Font q?Av5TFf  
        .NameFarEast = "黑体" r_e]sOCb  
        .NameAscii = "Arial Black" 6Z68n  
        .NameOther = "Arial Black" p$bR M`R&s  
        .Name = "Arial Black" Z*lZl8(`  
        .Size = 16 XOd  
        .Bold = False 6%2\bI.#  
        .Italic = wdUndefined H&=3rkX  
        .Superscript = wdUndefined s&Ml1A:  
        .Subscript = wdUndefined ?\Lf=[  
        .Underline = wdUnderlineNone &*!) d"  
        .UnderlineColor = wdColorAutomatic 'EsdYx5C  
        .Color = wdColorAutomatic 5.FAuzz  
vm`\0V GSW  
    End With oSB0P  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat !-Md+I_  
        .LineSpacingRule = wdLineSpaceSingle v#Y
9O6g]T  
        .Alignment = wdAlignParagraphCenter >d#Ks0\&  
        .WidowControl = True ,: 4+hJ<q  
        .KeepWithNext = True cS#m\O  
        .KeepTogether = True %XK<[BF  
        .PageBreakBefore = True MU5#p
h  
        .NoLineNumber = False 9$e6?<`(Y  
        .OutlineLevel = wdOutlineLevelBodyText 6'QlC+E  
         "uHU!)J#z  
        .LeftIndent = CentimetersToPoints(0) @-5V~itW  
        .RightIndent = CentimetersToPoints(0) s14;\  
        .FirstLineIndent = CentimetersToPoints(0) =1h> N/VJ  
         L$s;tJ   
        .CharacterUnitLeftIndent = 0 &g\?znF]H  
        .CharacterUnitRightIndent = 0 hYv;*
]  
        .CharacterUnitFirstLineIndent = 0 i`HXBq!|w  
         j#JE4(&  
        .LineUnitBefore = 1 qlIbnyP<  
        .LineUnitAfter = 1 _U/CG<n  
         bAm ,gP  
        .BaseLineAlignment = wdBaselineAlignAuto iJ 8I# j+N  
    End With J-+p]xG  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False `KzNBH,W  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll 3M<T}>  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS `=rDB7!$yL  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True N.qS;%*o{e  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese i 79;;9M  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True %2`geN<  
    DoEvents e6igx  
     o9
L$B  
    '中文摘要 zHW}A `Rz  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") Xw{Qktn  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" :} 9Lb)Yp  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False #J)83  
    With ActiveDocument.Styles("QLNU中文摘要").Font WbDD9ZS  
        .NameFarEast = "宋体" 7T-}oNaJA\  
        .NameAscii = "Times New Roman" PvB-C
qc  
        .NameOther = "Times New Roman" )Qx&m}  
        .Name = "Times New Roman" d@,3P)?  
        .Size = 12 JB
vP {5  
        .Bold = wdUndefined ?&GV~DYxA  
        .Superscript = wdUndefined _!C'oG6s?  
        .Subscript = wdUndefined +q@g  
        .Italic = wdUndefined UA$Xa1  
        .Underline = wdUnderlineNone LFV' ,1+  
        .UnderlineColor = wdColorAutomatic ik Pm,ZN  
        .Color = wdColorAutomatic ?^W`7HF%0  
    End With NlV,] $L1T  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat fN{JLp  
        .LineSpacingRule = wdLineSpaceExactly xlU:&=|  
        .LineSpacing = 20 \)mV2r!%  
        .Alignment = wdAlignParagraphLeft gCc::[}\Y  
         #Yr/G NN  
        .WidowControl = False #ysSfM6  
        .KeepWithNext = False O^yDb  
        .KeepTogether = True k4Ub+F  
        .PageBreakBefore = False e x`mu E  
        .NoLineNumber = False lpHz*NZ0  
        .OutlineLevel = wdOutlineLevelBodyText u[2B0a  
         /6a617?9J  
        .LeftIndent = CentimetersToPoints(0) #ZvDf5A  
        .RightIndent = CentimetersToPoints(0) g$$j:U*-  
        .FirstLineIndent = CentimetersToPoints(0) k>dzeH  
         !xo; $4  
        .CharacterUnitLeftIndent = 0 b<?A  
        .CharacterUnitRightIndent = 0 r2;)VS  
        .CharacterUnitFirstLineIndent = 2 W! q-WU  
        .LineUnitBefore = 0 VN!+r7w'  
        .LineUnitAfter = 0 cpg+-Zf%  
         T|FF&|Pk
 
    End With >zY~")|R(  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False H@!kgaNF
 
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll CPS1b  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS E A}Vb(2  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True b^I(>l-  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese @2Ca]2,4  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True hhynB^o  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete 8WvQ[cd  
    DoEvents NY!"?Zko  
     tOf18V{a  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 5/"&C-t  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" }iCcXZ&5^  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False vaOCH*}h  
    With ActiveDocument.Styles("QLNU英文标题").Font -McDNM
 
        .NameFarEast = "黑体" )+xHv  
        .NameAscii = "Arial Narrow" bP8O&R  
        .Name = "Arial Narrow" zQhc V  
        .Size = 16 8{iFxTz  
        .Bold = True _|%l) KO  
        .Bold = wdUndefined I&Y9  
        .Superscript = wdUndefined N J_#;t#j  
        .Subscript = wdUndefined %V3xO%  
        .Italic = wdUndefined (S4[,Sx6E  
         ww(.   
        .Underline = wdUnderlineNone Zo(p6rk u  
        .UnderlineColor = wdColorAutomatic gm}[`GMU  
        .StrikeThrough = False  ]6 ]Nr  
        .DoubleStrikeThrough = False _ZU.;0  
    End With Da8{==  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat T)"LuC#C
 
        .LineSpacingRule = wdLineSpaceSingle Fi!XaO  
        .Alignment = wdAlignParagraphCenter 1#2B1&  
        .WidowControl = True o$,Dh?l  
        .KeepWithNext = False |g}~7*+i  
        .KeepTogether = False Fi*j}4F 1  
        .PageBreakBefore = False I3$/#  
        .NoLineNumber = False n.\|NR'v  
        .FirstLineIndent = CentimetersToPoints(0) bEc @"^)  
        .OutlineLevel = wdOutlineLevelBodyText :ncR7:Z  
         7o5~J)qIC  
        .LeftIndent = CentimetersToPoints(0) jVhfpS[  
        .RightIndent = CentimetersToPoints(0) q"sD>Yh&  
        .FirstLineIndent = CentimetersToPoints(0) <.qhW^>X  
         )RE~=*?d  
        .CharacterUnitLeftIndent = 0 GVlTW?5  
        .CharacterUnitRightIndent = 0 _p
S!sY~d  
        .CharacterUnitFirstLineIndent = 0 zP$Ef7bB  
         &XE eJ  
        .LineUnitBefore = 1 (<:mCPk(~  
        .LineUnitAfter = 1 l9up?o pq  
         qwx{U  
    End With K4>nBvZ?v  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False >s+TD4OfY  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll .qjdi`v  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS _wMYA8n  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True x%\m/_5w%  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese !-gjA@Pk  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True yC<[LH  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete s$ v<p(yl  
    DoEvents Cvf^3~q  
8rwXbYx x  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") G)'(%rl  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" f-b#F2I  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False \C
(dWs  
    With ActiveDocument.Styles("QLNU英文摘要").Font |w7D&p$  
        .NameFarEast = "宋体" 'HdOW[3o  
        .NameAscii = "Arial" tQ > IJ  
        .NameOther = "Arial" :P1/kYg  
        .Name = "Arial" ;YK{[$F  
        .Size = 12 g=)djXW  
        .Bold = wdUndefined Zc Y* TGx  
        .Italic = wdUndefined 4`mF 6%UC  
        .Superscript = wdUndefined Hg}@2n)/  
        .Subscript = wdUndefined !O-9W=NJ  
    End With ?
c!W*`yP  
     WOaj_o  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat 7,![oY[  
         oykqCN  
        .LineSpacingRule = wdLineSpaceExactly e}Xmb$  
        .LineSpacing = 20 wmf#3"n  
         ,*Z:a4  
        .Alignment = wdAlignParagraphJustify iig ({b  
         M~/R1\'&j  
        .WidowControl = False V\(p6:1(6K  
        .KeepWithNext = False ?6[X=GeUs  
        .KeepTogether = False .]\+JTm  
        .PageBreakBefore = False _x ;fTW0  
        .NoLineNumber = False p0S;$dH\D  
         b=-LQkcZhK  
        .OutlineLevel = wdOutlineLevelBodyText 'K0=FPB/@  
         t/HUG#W{  
        .LeftIndent = CentimetersToPoints(0) <h"*"q|9  
        .RightIndent = CentimetersToPoints(0) hz8Z)xjJ V  
        .FirstLineIndent = CentimetersToPoints(0) j%y)%4F8  
         lh?TEQ  
        .CharacterUnitLeftIndent = 0 XK 09x1r  
        .CharacterUnitRightIndent = 0 > l@o\  
        .CharacterUnitFirstLineIndent = 2 y$n`+%_  
         D>~S-]  
        .LineUnitBefore = 0 xf?6_=  
        .LineUnitAfter = 1 !gfz4f&  
         9uL="z$\  
    End With qr~= S  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False mI$3[ #+  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll O]nZr  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS Q[M?LNE`  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False c[xH:$G?Y  
    DoEvents m{)F9F  
!U2Wiks  
    Options.Pagination = True aAX(M=3  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." [,1\>z|&  
    DoEvents NgXV|)L  
    ActiveDocument.Repaginate [8J/#!B  
'Oe}Ja  
End Sub vid (^2+  
(VxWa#P  
~dO&e=6Hk