Dim bContinue As Boolean z1(rHJd  
zcP_-q]1  
Dim regEX As New RegExp ]?b#~  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 R9fM9  
0j_`7<,:  
Dim LastTitle0String As String, LastTitle0No As Long 5wiU4-{  
Dim LastTitle1String As String, LastTitle1No As Long oy#Qj3M8=  
Dim LastTitle2String As String, LastTitle2No As Long /u>")f  
Dim LastTitle3String As String, LastTitle3No As Long 0alm/or  
Dim LastTitle4String As String, LastTitle4No As Long PL%_V ?z  
Dim LastTitle5String As String, LastTitle5No As Long dJ:EXVU  
Dim LastTabelString As String, LastTableNo As Long >k kuw?O@  
Dim LastFigureString As String, LastFigureNo As Long dhsQfWg#}  
umSbxEZU@  
Dim strSeperator As String ~qc o -b  
NC@OmSR\0  
Sub ConvertWidth(fTEXT As String, rText As String) krI<'m;a  
        Selection.Find.ClearFormatting J?u@' "u  
        Selection.Find.Replacement.ClearFormatting v\0[B jhL?  
        Selection.Find.Wrap = wdFindContinue *,@dt+H!y  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText vezX/xD?  
        DoEvents 
h ej  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True kCLz@9>FQ  
End Sub |c dQJW  
oT%~)g  
Sub ClearDomain() ^Shz[=fd  
        With Selection.Find NR^z!+oSR  
            .ClearFormatting ]"{K5s7  
            .Replacement.ClearFormatting nOp\43no  
            .Wrap = wdFindContinue Z?CmD;W  
            Me.txtStatus.Text = "清除所有域代码" 4CfPa6_  
            DoEvents  D]Bvjh  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False ?IGT!'  
        End With |V%Qp5 XJ  
End Sub !NjC+ps]  
hJ+>Xm@@!  
Private Sub cmdCheck_Click() Y2QlK1.8V  
    bContinue = True Lc0^I<Y  
    Dim NoSeries1(1 To 16) As String I>b!4?h  
    Dim NoSeries2(1 To 16) As String O .m;a_  
    Dim NoSeries5(1 To 16) As String ?_ } [@x  
    Dim NoSeriesRM(1 To 16) As String |4ONGU*`E  
    Dim paraTotal As Long, ParaText As String 9m%[ y1v0  
    Dim ttString As String, ttNo As String bC)diC  
     7L? ~;;L$  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long C!%BW%"R  
"qR qEpD%  
    Me.txtStatus.Visible = True DY0G;L3  
    Me.lbParaType.Visible = True }_:^&cT  
    Me.cmdCheck.Enabled = False 7p@qzE  
     |jO&qT]{  
     %j{gZ
Tz-  
     iK= {pd  
     :W-"UW,  
    Dim ParaType As String, rText As String W ?5^cEF  
     I[@}+p0  
    Selection.WholeStory -HS(<V=a?k  
    Selection.NoProofing = True Abd&p N  
     yG2j!D  
    tm1 = Now `=vL?w^QS  
     *<"xF'C  
        ActiveWindow.View.Type = wdNormalView SA)}---"  
     )TBBYCL3  
    NoSeries1(1) = "一" F{B__Kf  
    NoSeries1(2) = "二" u])N^AY"sj  
    NoSeries1(3) = "三" ixE72bX  
    NoSeries1(4) = "四" aQ46e
uth  
    NoSeries1(5) = "五" Ql3hq .E  
    NoSeries1(6) = "六" Ef:.)!;jy  
    NoSeries1(7) = "七" Y!Wz7 C  
    NoSeries1(8) = "八" E@Q+[~H}  
    NoSeries1(9) = "九" j<Lj1P3  
    NoSeries1(10) = "十" [#M^:Q  
    NoSeries1(11) = "十一" x.xfMM2n  
    NoSeries1(12) = "十二" rpQB# Pz  
    NoSeries1(13) = "十三" (7;}F~?h  
    NoSeries1(14) = "十四" ^e8~e
L
+  
    NoSeries1(15) = "十五" aOA;"jR1  
    NoSeries1(16) = "十六" 9JJ(KY  
     : H0+}=  
    NoSeries2(1) = "㈠" 89k 9#i X  
    NoSeries2(2) = "㈡" o!gl :izb  
    NoSeries2(3) = "㈢" E +]g
C  
    NoSeries2(4) = "㈣" ~4`LOROC  
    NoSeries2(5) = "㈤" BC9rsb  
    NoSeries2(6) = "㈥" iRBUX`0  
    NoSeries2(7) = "㈦" 'k{pWfn=<  
    NoSeries2(8) = "㈧" Qt+ K,LY  
    NoSeries2(9) = "㈨" !#5RP5,,Y  
    NoSeries2(10) = "㈩" 59FAhEg  
    
w8%<O^wN,  
    NoSeries5(1) = "①" Qf6Vj,~N  
    NoSeries5(1) = "②" 0!eZ&.h?4  
    NoSeries5(3) = "③" -c~nmPEG6  
    NoSeries5(4) = "④" CES^ c-. k  
    NoSeries5(5) = "⑤" q1.w8$  
    NoSeries5(6) = "⑥" DnMfHG[<  
    NoSeries5(7) = "⑦" S XIo  
    NoSeries5(8) = "⑧" t+|c)"\5h  
    NoSeries5(9) = "⑨" HYZ94[Ti  
    NoSeries5(10) = "⑩" [wj&.I{^s  
     ^8ZVB.Fv  
     B9&"/tT  
    NoSeriesRM(1) = "I" 8^CL:8lI^\  
    NoSeriesRM(2) = "II" "z1\I\ ^  
    NoSeriesRM(3) = "III" ~(~fuDT~O  
    NoSeriesRM(4) = "IV" gp$oQh#37;  
    NoSeriesRM(5) = "V" jyb/aov  
    NoSeriesRM(6) = "VI" B|/=E470G  
    NoSeriesRM(7) = "VII" :1PT`:Y  
    NoSeriesRM(8) = "VIII" \|L ~#{a  
    NoSeriesRM(9) = "IX" p.SEW5  
    NoSeriesRM(10) = "X" 7D@O:yO  
    NoSeriesRM(11) = "XI" TG=) KS  
    NoSeriesRM(12) = "XII" V<ziJ7H/  
    NoSeriesRM(13) = "XIII" F)z]QJOw  
    NoSeriesRM(14) = "XIV" ^%VMp>s
 
    NoSeriesRM(15) = "XV" %D)W~q-g  
    NoSeriesRM(16) = "XVI" Uw8 O"}U8  
     FI`][&]V  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) Rjqeuyj:  
     <=W;z=$!Bb  
    If i = vbNo Then f-E]!\Pg  
        Exit Sub '+hiCX-_  
    End If =EA*h_"q9  
     *&Np
;^~  
    If Me.chkSuper.Value Then v2 T+I]I  
        Me.txtStatus.Text = "检查修改所有的上标格式" ,JYvfCA  
     BlF>TI%2  
        CheckSuperScript 2,{m>fF  
         'j 'bhG  
    End If KnaQhZ  
     Mm;kB/1  
    If Me.chkStyle.Value Then {r?O>KDQf(  
        Me.txtStatus.Text = "设置样式，请稍候...." /EZF5_`bT  
        DoEvents /U4F\pZl  
        CeateOrModifyStyle G&I\Za;  
    End If BA4qQCS;5  
     K@) Hm\*  
     @{_[bKg  
     _?x*F?5=
 
    ClearDomain 3P2H!r  
         +[<|T
T  
     m-xSF]q=<  
     Fo|6 PoSo  
    If Me.chkLIST.Value Then iSCv/Gb: ,  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" LBh|4S$
K  
     ^i&sQQ({  
        ConvertListToOrdinary C (L1  
    End If "t$c'`  
     ODyK/Q3  
     )$p<BLU  
    Dim pType As String, trimpTEXT As String |JC/A;ZH  
    If Me.chkNum.Value = True Then "94e-Nx  
        Me.txtStatus.Text = "转换全角数字形式为半角" D1}Bn2BM$  
        ConvertWidth "１", "1" swss#?.se  
        DoEvents f"\G"2C  
        ConvertWidth "２", "2" ,_,Z<X/
 
        DoEvents jQxv`H  
        ConvertWidth "３", "3" 0 XxU1w8\V  
        DoEvents \DI%/(?  
        ConvertWidth "４", "4" {dM18;  
        DoEvents bS=aFl#  
        ConvertWidth "５", "5" ae`*0wbv  
        DoEvents JS]6jUB<B  
        ConvertWidth "６", "6" 3xj ?}o  
        DoEvents ]?whx&+  
        ConvertWidth "７", "7" 9D#"Ey  
        DoEvents C_mPw  
        ConvertWidth "８", "8" s.d }*H-o  
        DoEvents j"{|* _6E_  
        ConvertWidth "９", "9" v9QR,b`n  
        DoEvents 'H+H 4(  
        ConvertWidth "０", "0" ~Gx"gK0  
        DoEvents /GCI`hx>"  
        ConvertWidth "ａ", "a" ..` J-k  
        DoEvents 2R66 WKQ  
        ConvertWidth "ｂ", "b" !B5 }`*1D  
        DoEvents t
gCEz%  
        ConvertWidth "ｃ", "c" 4
E/Q+^?  
        DoEvents ~>2@55wElp  
        ConvertWidth "ｄ", "d" D[yOFJ~p)  
        DoEvents 2I(b ad  
        ConvertWidth "ｅ", "e" TPEg>[  
        DoEvents .Zv@iL5  
        ConvertWidth "ｆ", "f" =~}\g;K1Q  
        DoEvents e<2?O  
        ConvertWidth "ｇ", "g"
:Q@=;P2  
        DoEvents A\nL(Nd  
        ConvertWidth "ｈ", "h" 3WZdP[o!  
        DoEvents fs_6`Xt  
        ConvertWidth "ｉ", "i" $$ma1.t"   
        DoEvents 1$2'N~`#U  
        ConvertWidth "ｊ", "j" 8h  
        DoEvents #usi1UWB#Q  
        ConvertWidth "ｋ", "k" e"Kg/*Ji1  
        DoEvents R>f$*T  
        ConvertWidth "ｌ", "l" O~sv^  
        DoEvents .
aTu]i3l_  
        ConvertWidth "ｍ", "m" 1Tz5tU9kR  
        DoEvents fTQRn  
        ConvertWidth "ｎ", "n" @0H}U$l  
        ConvertWidth "ｏ", "o" ?WyL
|;b*  
        ConvertWidth "ｐ", "p" dF$a52LS  
        ConvertWidth "ｑ", "q" _+73Y'  
        ConvertWidth "ｒ", "r" yxP
(|  
        ConvertWidth "ｓ", "s" Eh/B[u7T[  
        ConvertWidth "ｔ", "t" gmtp/?>e   
        ConvertWidth "ｕ", "u" wQ-pIi{G  
        ConvertWidth "ｖ", "v" )!M %clm.  
        ConvertWidth "ｗ", "w" f86
h"#4  
        ConvertWidth "ｘ", "x" pB*8D  
        ConvertWidth "ｙ", "y" Z.TYi~d/9D  
        ConvertWidth "ｚ", "z" ^x8*]Sz#x  
        ConvertWidth "Ａ", "A" I-<U u2  
        ConvertWidth "Ｂ", "B" ' P5ttI#|  
        ConvertWidth "Ｃ", "C" ;;#28nV  
        ConvertWidth "Ｄ", "D" xXkP(^ Y  
        ConvertWidth "Ｅ", "E" WsO'4
~X9  
        ConvertWidth "Ｆ", "F" fn(< <FA)  
        ConvertWidth "Ｇ", "G" 8@y@}  
        ConvertWidth "Ｈ", "H" /qM:;:N%
j  
        ConvertWidth "Ｉ", "I" Z7>pz:,  
        ConvertWidth "Ｊ", "J" "5:^aC]  
        ConvertWidth "Ｋ", "K" EX zA(igS  
        ConvertWidth "Ｌ", "L" ElLDSo@WvR  
        ConvertWidth "Ｍ", "M" tl5}#uJ  
        ConvertWidth "Ｎ", "N" g$$i WC!S<  
        ConvertWidth "Ｏ", "O" B7HNNX  
        ConvertWidth "Ｐ", "P" ^'9:n\SKQ  
        ConvertWidth "Ｑ", "Q" D_mdX9-~  
        ConvertWidth "Ｒ", "R" Hs,pY(l^  
        ConvertWidth "Ｓ", "S" oRH]67(Z  
        ConvertWidth "Ｔ", "T" 8s^CE[TA  
        ConvertWidth "Ｕ", "U" 6^_:N1@  
        ConvertWidth "Ｖ", "V" r$7fw}'I  
        ConvertWidth "Ｗ", "W" 

fP<Tvf  
        ConvertWidth "Ｘ", "X" /<ODP6Yy;  
        ConvertWidth "Ｙ", "Y" X <QSi
 
        ConvertWidth "Ｚ", "Z" G>"=Af(t?Y  
        ConvertWidth "^l", "^p" /=4 m4  
        ConvertWidth "（", "(" QlT{8uw)  
        ConvertWidth "）", ")" 0*G =~:  
     >.'rN>B+  
    End If H?A&P4nZ  
|e49F  
    With ActiveDocument _nW{Q-nh  
        Dim tbl As Table qbcaiU`-^"  
        For Each tbl In .Tables \[u7y. b  
            tbl.Rows.Alignment = wdAlignRowCenter 0*7N=  
            tbl.Range.Font.NameFarEast = "楷体" 6xI9%YDy  
            tbl.Range.Font.NameAscii = "Times New Roman" {6}H}_(]  
            tbl.Range.Font.Size = 10.5 MtWzGE=?  
        Next P|c[EUT  
        Set tbl = Nothing A9qbE  
    End With bn$a7\X-  
     ^I2+$  
     ,c }R*\  
    With ActiveDocument E$!0h_.(  
         #2AKO/  
        For i = 1 To .TablesOfContents.Count aLa{zB  
            .TablesOfContents(i).Delete $hv o
^$  
        Next W:s`;8iM$  
         O.OPIQ=?:w  
         :K J#_y\rt  
         wNQhz.>y  
        paraTotal = .Paragraphs.Count N1dv}!/*.+  
        paraCounter = 1 =@BVO@z@  
         6jS:_[p  
        LastTitle0No = 0 `?@7T-v  
        LastTitle1No = 0 /~=W3lhY  
        LastTitle2No = 0 A6-K~z^  
        LastTitle3No = 0 @q8
h'@sX  
        LastTitle4No = 0 L>:YGM "sL  
        LastTableNo = 0 l@:|OGD;8  
        LastFigureNo = 0 W`auQO  
         fH{ _X  
        Dim Sec As Long qkHdr
2  
         fviq}.  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) abAX)R'  
        If Sec = 0 Then jNjm}8`t  
            Exit Sub NmbA~i  
        End If l6kqP  
         fSR+~Vy  
        k = 0 p@`]9tLP(K  
        Do While (paraCounter < paraTotal) And bContinue {DfXn1Cg0U  
            k = k + 1 M`m-@z  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then ~\uI&S5  
                Exit Do pCOtk'n  
            End If hzv4+1Wd[  
            paraCounter = paraCounter + 1 z''ITX)oG  
            If k Mod 20 = 0 Then VSf<(udGr  
                Me.lbCounter.Caption = paraCounter ,dyCuH!B  
                DoEvents <<#j?%  
            End If mQ~0cwo)  
        Loop ,e]|[,r#5  
         04npY+1 8%  
         VR:4|_o  
        Do While (paraCounter < paraTotal) And bContinue \Z~|ry0v{d  
             xb6y=L  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) [22>)1<(  
            ShapeHeight = 0 RQg7vv]%  
            ShapeWidth = 0 c_p7vvI&c0  
           G%Dhj)2}  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth 1^R
[kaY  
             ]!% p21e  
            Select Case ParaType {c|{okQ;Q  
                Case "【】表格内容" QY)hMo=|o8  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" [yFf(>B  
                Case "章" _'OXrT#Q  
                    LastTitle0No = LastTitle0No + 1 Nj~3FL  
                    '新一章开始，复位其下属标题编号 k+nfW]UNF  
                    LastTitle1No = 0 Lt|'("($*  
                    LastTitle2No = 0 J%9)&aW  
                    LastTitle3No = 0 IhRWa|{I  
                    LastTitle4No = 0 jEaU;  
                     Wra$  
                    k = Val(ttNo) .A6i?iROe  
                    If k = 0 Then '非数字编号章节 Jw-?7O  
                        If ttNo <> NoSeries1(LastTitle0No) Then qhE1 7Hf  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString 
a8Va3Y  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText mT:Z!sS  
                        End If w^/jlddF  
                    Else A.[~}ywH  
                        If Val(ttNo) <> LastTitle0No Then o=%pR|  
                            rText = "第" & LastTitle0No & ttString
j*XhBWE?  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText cZVVJUF  
                        End If VgB
Z@*z(x  
                         coG_bX?e  
                    End If ?^f=7e8]  
                     {`KRr:w  
                    '章段落设置 9?x
D"Z   
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 vZ0K1UTEXY  
                    .Paragraphs(paraCounter).Style = "QLNU章节" d<,'9/a>  
                    .Paragraphs(paraCounter).Range.Select ]?1n-w.}r  
                    Selection.EndKey unit:=wdLine m@
A?'gD  
                    tc = Replace(rText, vbCr, "") 16pk4f8  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False PP1?UT=]  
                Case "一级标题" u[Ij4h.  
                    LastTitle1No = LastTitle1No + 1 P84uEDY  
                    '新一级标题开始，复位其下属标题编号 j*7#1<T
 
                    LastTitle2No = 0 8Pgw_ 21N1  
                    LastTitle3No = 0 z&R #j  
                    LastTitle4No = 0 lPBWpHX  
                      s28t'  
                    If ttNo <> NoSeries1(LastTitle1No) Then _zuX6DO  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString 7~ f"8\  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText K*"Wq:T;B  
                    End If
=PQMd  
                   WciL zx/  
                     Gt|m;o  
                    '一级标题段落设置  格式：一、标题内容 \7\7i-Vo
 
                    .Paragraphs(paraCounter).Range.Text = rText 3 *g>kRMJ  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" 8k.<xWDU  
                    .Paragraphs(paraCounter).Range.Select EklcnM|6  
                    Selection.EndKey unit:=wdLine ZUg~8VVe  
                    tc = Replace(rText, vbCr, "")
8gIf  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False d[( 
}  
                Case "二级标题" mBtXa|PJ  
                    LastTitle2No = LastTitle2No + 1 JA<Hm.V#  
                    '新二级标题开始，复位其下属标题编号 -G|?Kl  
                    LastTitle3No = 0 sFrerv&0  
                    LastTitle4No = 0 *PF}L%K(?  
                     m,3H]  
                    If ttNo <> NoSeries1(LastTitle2No) Then W08rGY  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString D# Gf.c  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText :"im2J  
                    End If 9^4BqAWYrV  
                     PKxI09B  
                    '二级标题段落设置 格式：(一)、标题内容 :U{$G( <  
                    .Paragraphs(paraCounter).Range.Text = rText 5w^6bw){  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" zxD~W"R:s  
                     <F%c"Rkh  
                    .Paragraphs(paraCounter).Range.Select / %
9DO  
                    Selection.EndKey unit:=wdLine Dwx^hNh  
                    tc = Replace(rText, vbCr, "") 7]J7'!Iz  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False 6\B Zyry3*  
                 &[Zg;r   
                Case "三级标题" LA9'HC(5  
                    LastTitle3No = LastTitle3No + 1 VnU/_#n  
                    '新三级标题开始，复位其下属标题编号 K6BP~@H_D  
                    LastTitle4No = 0 To!` T$Xh  
                     (gQr?K  
                    If Val(ttNo) <> LastTitle3No Then cOa){&u  
                            rText = LastTitle3No & ". " & ttString QT<\E`v  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText 3_ P<0%  
                         s^vw]D  
                    End If 7A=*3  
                    '三级标题段落设置 格式：1. 标题内容 R?Ou= p .  
                    .Paragraphs(paraCounter).Range.Text = rText [t}@>@W|  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" zn3]vU!  
                    .Paragraphs(paraCounter).Range.Select =^5,ua6  
                    Selection.EndKey unit:=wdLine pRez${f.(s  
                    tc = Replace(rText, vbCr, "") 8aMm
z!S  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False J? 4E Hl  
                Case "四级标题" <Na .6P  
                    LastTitle4No = LastTitle4No + 1 EjF2mkA*  
                     Ug P  
                    If Val(ttNo) <> LastTitle4No Then C" 2K U*  
                            rText = "(" & LastTitle4No & "). " & ttString 6 o cTQ}=  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText k x?m "a%  
                     SJai<>k h  
                    End If r`OC5IoQ   
                    '四级标题段落设置 格式：(1). 标题内容 #`5>XfbmQ(  
                    .Paragraphs(paraCounter).Range.Text = rText Acl?w
}Y  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题"
3!*qB-d  
                    .Paragraphs(paraCounter).Range.Select ZR[6-  
                    Selection.EndKey unit:=wdLine +U^H`\EUr  
                    tc = Replace(rText, vbCr, "") .Xcf*$.;s  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False Q&?^eOI&#(  
                 ^VOA69n>$  
                Case "表格标题" %s;=H)8  
                    LastTableNo = LastTableNo + 1 Kt*kARN?  
                     1Z_2s2`p  
                    If ttNo <> CStr(LastTableNo) Then W|I<hY\X  
                            rText = "表" & LastTableNo & ". " & ttString "?n ;dXYSi  
                            ErrMsg.AddItem "表格编号错误：" & ParaText q L-Ni  
                   ]IM/R@  
                    End If }fqy vI  
                     &`LR{7m  
                    '表格名称段落设置 格式：表1. 表格名称 04E S>'@  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" \b6vu^;p  
                    xe = Replace(rText, vbCr, "") O,_k.EH  
                    .Paragraphs(paraCounter).Range.Select tZz *O%  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 K @h94Ni6  
                    Selection.Range.Text = xe \&,{N_G#L.  
                    Selection.EndKey e&\+o}S  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False mr[+\ 5  
                 }
b/Xui9Q  
                Case "表格首行" }Nc Ed;  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" v~AD7k2{8  
                Case "图片标题" z[?
&bF<|  
                    LastFigureNo = LastFigureNo + 1 9cJ1J7y  
                     h2_A'  
                    If ttNo <> CStr(LastFigureNo) Then m2x=Qv][@c  
                            rText = "图" & LastFigureNo & ". " & ttString 6$5?%ZLJ  
                            ErrMsg.AddItem "表格编号错误：" & ParaText gK_#R]  
                   9Z^\b)x  
                    End If cGUsao  
                    '图片名称段落设置 格式：图1. 图名称 =c34MY(#X  
                    .Paragraphs(paraCounter).Range.Text = rText QP~Iz*J'  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" zPyN2|iFah  
                    .Paragraphs(paraCounter).Range.Select /V"6Q'D  
                    Selection.EndKey unit:=wdLine =#.qe=  
                    xe = Replace(rText, vbCr, "") (/^dyG|X'  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False  %s),4  
                Case "正文" LUfo@R  
                     '正文名称段落设置 I*`;1+`  
                    .Paragraphs(paraCounter).Style = "QLNU正文" {+CBThC  
               Case "文献条目" GS@Zc2JPF  
                    With .Paragraphs(paraCounter) `#c3 6  
                        '.Range.Select ClWxL#L6~  
                        'Selection.ClearFormatting DPM4v7 S  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” Kj/{V  
                        .Style = "QLNU参考文献" G]k+0&X  
                    End With szw|`S>o  
               Case "图表注解" *! c&[
- g  
                    With .Paragraphs(paraCounter) `Re{j{~s  
                        .Range.Font.NameFarEast = "楷体" 3D
X@ggE2  
                        .Range.Font.NameAscii = "Times New Roman" x4Wu`-4^  
                        .Range.Font.Size = 9 '小5号字 HU47S  
                         3:mZ1+  
                        .Alignment = wdAlignParagraphCenter zS/1v+  
                        .LeftIndent = 0 ypy  
                        .RightIndent = 0 T/nG\WZbZn  
                        .FirstLineIndent = 0 XbYST%|.  
                        .LineSpacing = 12 3T)_(SM"  
                        .LineSpacingRule = wdLineSpaceExactly ~LU$ no^  
                        .LineUnitAfter = 0 UPGS
/Xs]1  
                        .LineUnitBefore = 0 {9;x\($&a  
                        .OutlineLevel = wdOutlineLevelBodyText MY>*F[~ 2  
                        .PageBreakBefore = False pkEx.R)  
                        .RightIndent = 0 [;LP6n7v  
                        .WordWrap = True W6!o= ()  
                        .LineUnitAfter = 0.5 QnH;+k ln  
                         N;|:Ks#!  
                    End With T%TfkQ__d  
                Case Else mXK7y.9\  
                    '不作处理 557%^)v  
            End Select SFkB,)Z N  
             =jD9oMs  
            '含有inlineshape的段落处理 ltg\x8w?c  
            If ShapeHeight > 30 Then go!jx6~;x  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 4OTrMT$y  
            End If EHF dQ0gIa  
             =EQa Z8k  
            If (ShapeWidth + ShapeHeight) > 150 Then &,%+rvo}  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" ,: Z7P@  
            End If ZO*?02c  
             (4Ha'uqz  
            '段落计数器递 5}|bDJ$%_  
            paraCounter = paraCounter + 1 MnBHm!]&  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter *Q!I^]CR  
            Me.txtStatus.Text = ParaText QqCwyK0  
            DoEvents iL8:I) z  
        Loop z`2Ais@ao  
    End With & oj$h  
     CSVL,(Uw  
    msg = "" )n{9*{Ch  
     T;1aL4 w"  
    For i = 0 To Me.ErrMsg.ListCount - 1 2=`}:&0l  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) myqQq
VW  
    Next tBtmqxx  
     W@p27Tiq  
     6|B;C  
     D`hg+64}  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg |,lw$k93  
    Me.cmdCheck.Enabled = True ~@%#eg  
    Me.txtStatus.Visible = True _BPp=(|  
    Me.lbParaType.Visible = False FC q&-  
     v&3 Oc  
    bContinue = False a?]~Sw"@  
End Sub `-yiVUp1:z  
()ZP=\L  
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) !JnxNIr&i|  
    Dim pTEXT As String )F3>  
     rvG0aqO`  
    pTEXT = ChKRange.Text \o<&s{6L  
     wfq}NK;  
    ParaType = "其它" |gwGCa+  
    TitleString = pTEXT 01">
$  
    TitleNo = "N/A" ^2-+MWW.  
     Z11I1)%s  
    shpCounter = ChKRange.InlineShapes.Count ^<`uyY))Q  
    If shpCounter <> 0 Then z *~rd2  
        MaxShpHeight = 0: TotalShpWidth = 0 6S P!J*F  
        For i = 1 To shpCounter ;uyQR8  
            k = ChKRange.InlineShapes(i).Height
C%q]o  
            l = ChKRange.InlineShapes(i).Width xW+XN`77  
            If k > MaxShpHeight Then >goG\y  
                MaxShpHeight = k -/LB-t
  
            End If txFcV  
            TotalShpWidth = TotalShpWidth + l vhz Q.>  
        Next (P|k$S?m  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then Zd~Q@+sH  
            Exit Sub D22jWm2  
        End If j*L-sU  
    End If A(T=  
     ur JR[$p  
    '空行 m.&"D> \t  
    If Len(pTEXT) <= 2 Then flS_rY5  
        Exit Sub CJf4b:SY@  
    End If +O?`uV  
     J"?jaa2~  
         ofy)}/i  
    '是否为表格中的文字 ~ea&1+Z[3  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then ~M9&SDT/lB  
        ParaType = "表格内容" w|( ix;pK  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) -5u. Ix3  
        If k = 1 Then }c,:uN  
            ParaType = "表格首行" IiZXIG4H  
        End If M|IgG:a;T  
        Exit Sub :IRQouTf:,  
    End If <hB~| a<#  
     is6d:p  
    '例外情况：脚注 ]>oI3
&6s  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then l
*]nvd_  
        ParaType = "脚注" mt]50}eK  
        Exit Sub G4{TJ,~  
    End If $&KiN82,  
     EE,C@d!*k7  
    '例外情况：尾注 CW'<Nh  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then i/aj;t
  
        ParaType = "尾注" d'!abnF[d  
        Exit Sub B/gI~e0  
    End If TSKR~3D#  
     3 adF) mh  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then a8
cX{6  
        ParaType = "页眉页脚" 5@yBUwMSj  
        Exit Sub 6'\VPjt  
    End If )vy_m_f&  
     x>
[f+Tc  
     KD73Aw  
    With regEX { PS|q?  
        .Global = True tr$d?  
         YE[{Y(5;q  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" m4 :"c"  
        If regEX.Test(pTEXT) Then n{E9p3
i  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") Dfw%Bu  
            TitleString = regEX.Replace(pTEXT, "$3") CooOBk  
            TitleNo = regEX.Replace(pTEXT, "$1") aB)G!Rm&  
            ParaType = "章" [5wU0~>'  
            Exit Sub a~A"uLBR  
        End If sV-UY!   
         '$y.`/$  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" vg-'MG  
        If regEX.Test(pTEXT) Then w(UZmZb}  
            ParaType = "一级标题" '=1@,Skj-  
            regEX.Execute (pTEXT) tW=oAy  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") =0mXTY1  
            TitleString = regEX.Replace(pTEXT, "$3") OJ, Z  
            TitleNo = regEX.Replace(pTEXT, "$1") b0h>q$b  
            Exit Sub &O|qx~(  
        End If Tk:%
YS;=  
         R:Tv'I1-L  
        '全角或半角括号中的数字 pL`)^BJ  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" #waK^B)<a  
        If regEX.Test(pTEXT) Then ^9`~-w  
            ParaType = "二级标题" (/gMtIw  
            regEX.Execute (pTEXT) =:(<lKf,<F  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") i?IV"*Ob1N  
            TitleString = regEX.Replace(pTEXT, "$5") yPT\9"/  
            TitleNo = regEX.Replace(pTEXT, "$2") G[s/M\l  
            Exit Sub f1X]zk(=W  
        End If *#c^.4$'  
         -|( q9B  
        '阿拉伯数字  1. 2. = e|  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" Qo])A6$IU  
        If regEX.Test(pTEXT) Then ](SqLTB+?  
            ParaType = "三级标题" (&xIBF_6  
            regEX.Execute (pTEXT) )mE67{YJh~  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 .y2np  
            TitleString = regEX.Replace(pTEXT, "$3") 0s%]%2ON  
            TitleNo = regEX.Replace(pTEXT, "$1") BBHoD:l  
            Exit Sub Q0(3ps~H  
        End If C)|#z/"  
         jGFDj"Y  
        '全角或半角括号中的阿拉伯数字 /9(8ML#E  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" ?jHu,  
        If regEX.Test(pTEXT) Then 3 , nr*R!  
            ParaType = "四级标题" C0-,<X  
            regEX.Execute (pTEXT) ^=,N] j  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") v\Edf;(  
            TitleString = regEX.Replace(pTEXT, "$5") >IEc
4  
            TitleNo = regEX.Replace(pTEXT, "$2") Dt Ry%fA_  
            Exit Sub ?Y'r=Q{w  
        End If EBx!q8z z  
         Rq,Fp/  
        '表格名称 K?H(jP2mpM  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" e\WG-zi/  
        If regEX.Test(pTEXT) Then Rkh ^|_<!  
            ParaType = "表格标题" V2BsvR`
  
            regEX.Execute (pTEXT) p0@l581  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) R*>
EbOuI  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) RxXiSc`^z  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) _v +At;Y  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 Q)ZbnR2Z8  
            Exit Sub gtJCvVj>g  
        End If {z *`* O@  
         _0!<iN L  
        '图片名称 % QI6`@Y"  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" &d&nsQ
 
        If regEX.Test(pTEXT) Then d1hXzJs  
            ParaType = "图片标题" qY|NA)E)Bp  
            regEX.Execute (pTEXT) W=zp:6Z~  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") &d i=alvv1  
            TitleString = regEX.Replace(pTEXT, "$3") Vo(V<2lw}  
            TitleNo = regEX.Replace(pTEXT, "$1") }(v <f*7=n  
            Exit Sub `!7QegJa"  
        End If _[8sL^  
         S\W&{+3  
        '参考文献 U_1N*XK6$  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 <:I]0|[  
        If regEX.Test(pTEXT) Then apd"p{  
            ParaType = "文献条目" B+2Jea,N  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") c%x.cbu>  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") 5gH'CzU?  
            Exit Sub a 8.Xy])!  
        End If (q g~l@rf  
         7oFA5T _  
        prfx = Left(pTEXT, 2) Vho^a:Z9}W  
        If prfx = "注：" Or prfx = "注:" Then ~
)%DiGW&  
            ParaType = "图表注解" X:d[eAu0  
            Exit Sub ;%Rp=&J  
        End If k{ibD5B  
         <hzuPi@  
         Z$
2Vd`XP  
        ParaType = "正文" T8\%+3e.  
         ^5~)m6=2  
    End With #u$Z/,  
End Sub 15wwu} X  
n%I9l]  
Sub ConvertListToOrdinary() kf2e-)uUs  
    Dim st As Paragraph TDY =!  
    With ActiveDocument K])| V  
        For i = .Paragraphs.Count To 1 Step -1 8I%N^G  
            Set st = .Paragraphs(i) mBWhC<kKs  
            lst = st.Range.ListFormat.ListString -`d(>ok  
            If lst <> "" Then d{~Qd|<rr  
                st.Range.ListFormat.RemoveNumbers I oFtfb[  
                st.Range.InsertBefore lst & " " \aB"D=P\ok  
            End If  :IX_}|  
        Next hnnPi  
    End With H <ugc  
    Set st = Nothing .Af H>)E  
End Sub VDC"tSQ  
F>c
o#  
Private Sub UserForm_Activate() | sZu1K  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" }I ^e:,{  
    Me.lbTotal.Font.Bold = True HQtUNtZ  
    Me.txtStatus.Visible = False -KU@0G  
    Me.cmdCheck.Enabled = True YV"LM6`  
r!HB""w  
End Sub %LBT:Aw  
O:Ob{k  
?&se]\  
Sub CheckSuperScript() ["XS|"DM  
    Selection.Find.ClearFormatting `)_11ywZ  
    Selection.Find.Replacement.ClearFormatting Eumdv#Qg  
    With Selection.Find E K#ib  
        .Text = "[【\[［〖](*)[】\]〗］]" @d_;p<\l  
        .Replacement.Text = "[\1]" 9Li.B1j  
        .Replacement.Font.Superscript = True p="K4E8~H  
        '.Replacement.Font.Color = wdColorBlue 62{[)jt{  
        .Forward = True 6HxZS+],c  
        .Wrap = wdFindContinue W!4xE  
        .FORMAT = True ~.
f[K{h8  
        .MatchCase = False ;P2(C >|  
        .MatchWholeWord = False H\ONv=}7I  
        .MatchByte = False q<!KtI4  
        .MatchAllWordForms = False ?8aPd"x  
        .MatchSoundsLike = False &{(8EvuDd  
        .MatchWildcards = True }*3#*y "  
    End With u(P;) E"1  
    Selection.Find.Execute Replace:=wdReplaceAll QE%|8UFY  
End Sub "U%jG`q  
<n|.Z-gF\  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) ybgAyJ{J<  
    bContinue = False ~n`G>Oe3  
    Set regEX = Nothing Cd51.Sk(l  
End Sub Oky9GC.a  
2Ik@L,  
Sub CeateOrModifyStyle() :R9 DJh\  
' X]AbBzy  
'
i"U<=~  
Dim stl As Style NzuH&o][  
     DU.[Sp  
    Options.Pagination = False |4u?Q+k%%  
     E!v^j=h$u  
    On Error Resume Next %QKRl5RM-  
    For Each stl In ActiveDocument.Styles e \ rb  
        stl.Delete FAP1Bm  
    Next jj*e.t:F  
    On Error GoTo 0 )uIHonXU  
     DsH`I%w{  
    Set stl = Nothing 9G=Z
B^  
     7z4u?>pne*  
    DoEvents 8GFA}_(^R  
    On Error Resume Next NP5;&}uv*!  
     rCFTch"  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph ; #^Jy
#)  
     \J?5Kl[*c  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph +jpC%o}C  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph _HkB+D0v  
     Il,^/qvIY  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph y6!Zt}m  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph 9\[A%jp#K@  
     b6~MRfx`7  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph .3*VkAs  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph 'P5 |[du+  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph &+>)H$5  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph ?5#=Mh#  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph W_z?t;  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph xtP=/B/  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph [Q*aJLG  
     yyVv@  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph )
XAD#GYM  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph lg!{?xM  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph ~TEKxgU  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph uS i/|  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph #3o]Qo[Sc  
     /]*#+;;%  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph ~ E| L4E  
    On Error GoTo 0 1F_ 1bAh$  
    DoEvents 2e @zd\  
     Z`lCS o;  
    'BaseStyle &.t |&8-  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False 8GD!]t#  
    With ActiveDocument.Styles("BaseStyle").Font s(
Tgv  
        .NameFarEast = "宋体" p$A`qx<M_  
        .NameAscii = "Times New Roman" =\l7k<  
        .NameOther = "宋体" Q8
r
7  
        .Size = 10.5 s
mt6).o  
        .Bold = wdUndefined Mb0cdK?hA  
        .Italic = wdUndefined ,-[dr|.  
        .Subscript = wdUndefined M=aWL!nJ  
        .Subscript = wdUndefined MOEB{~v`;  
         Q&Ox\*sMK  
        .Underline = wdUnderlineNone B[rxV  
        .UnderlineColor = wdColorAutomatic $S0eERga  
        .StrikeThrough = False :g[G&Ds8  
        .DoubleStrikeThrough = False Ood'kAH1B  
         $6]7>:8mz  
        .Outline = False Ug|o($CY  
        .Emboss = False OY/sCx+c  
        .Shadow = False <r{ )*]#l  
        .Hidden = False _Ak?i\  
        .SmallCaps = False YOHYXhc{S  
        .AllCaps = False * 5Y.9g3)Q  
        .Color = wdColorAutomatic =2=n   
        .Engrave = False |.zotEh  
        .Scaling = 100 2!^[x~t  
        .Kerning = 1 :,^p LAt  
        .Animation = wdAnimationNone 'hM?
J*m  
        .DisableCharacterSpaceGrid = False M1f^Lx  
        .EmphasisMark = wdEmphasisMarkNone JV#)?/a$z  
    End With ;qF#!
Kb5  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat e!(0y)*  
        .LeftIndent = 0 4f?Y'+>Z,  
        .RightIndent = 0 j!H\hj/]  
        .SpaceBefore = 0 `kP (2b  
        .SpaceBeforeAuto = False fjAJys)Q  
        .SpaceAfter = 0 _,2P4  
        .SpaceAfterAuto = False : *Nvy={c  
         .h8%zB#|i  
        .LineSpacingRule = wdLineSpaceSingle #j{!&4M  
        .Alignment = wdAlignParagraphJustify ToHCS/J59  
         JyX7I,0  
        .WidowControl = False d#9"_{P  
        .KeepWithNext = False kGZ_/"iuO  
        .KeepTogether = False ]8XY"2b  
        .PageBreakBefore = False a+CHrnU\;  
        .NoLineNumber = False K$..#]\TM  
         Ur]~>-Z  
        .FirstLineIndent = CentimetersToPoints(0) buhn~ c  
        .OutlineLevel = wdOutlineLevelBodyText uUczD 8y  
        .CharacterUnitLeftIndent = 0 ~4~-^ t  
        .CharacterUnitRightIndent = 0 @9QtK69  
        .CharacterUnitFirstLineIndent = 0 )A4WK+yD$z  
        .LineUnitBefore = 0 2S \~  
        .LineUnitAfter = 0 s2@}01QPo  
        .AutoAdjustRightIndent = True 7gV"pa
  
        .DisableLineHeightGrid = True >Rbgg1^]5  
         NgnHo\)  
        .FarEastLineBreakControl = True <k^P>Irb3t  
        .WordWrap = True ( |1 $zF+  
        .Hyphenation = False T$'GFA  
         .qioEqK8!y  
        .HangingPunctuation = True fr 0iEO_  
        .HalfWidthPunctuationOnTopOfLine = True sy Yg, G[  
        .AddSpaceBetweenFarEastAndAlpha = True Zbp ByRyN  
        .AddSpaceBetweenFarEastAndDigit = True LyB$~wZx~@  
        .BaseLineAlignment = wdBaselineAlignBaseline 3 9Ql|l$  
    End With [k9aY$baT^  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False MKdBqnM(F  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll rwlV\BU
  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese .FnO  
    ActiveDocument.Styles("BaseStyle").NoProofing = False X]Emz"   
     Odr@9MJ  
    '一级标题题样式 :fr2K  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") QJ ueU%|  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" 61Nj&1Ze  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False !t["pr\ ?  
    With ActiveDocument.Styles("QLNU一级标题").Font Hize m!  
        .NameFarEast = "黑体"  OT9\K_  
        .NameAscii = "Arial Black" O]n"aAu@  
        .NameOther = "黑体" J(\"\
Z  
        .Name = "黑体" S4]xxc  
        .Size = 16              '三号 =Po!\[SBU  
        .Bold = True Lj$yGdK<  
        .Italic = wdUndefined [Pdm1]":(  
        .Subscript = wdUndefined IA|V^Wmt;  
        .Superscript = wdUndefined _|ucC$*  
    End With $+
<X 1  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat In0kP"  
         0O>8DX  
        .LeftIndent = CentimetersToPoints(0) JqO#W1h~R|  
        .RightIndent = CentimetersToPoints(0) .Jz$)R  
        .FirstLineIndent = CentimetersToPoints(0) w49Wl>M  
         PZF>ia}  
        .LineSpacingRule = wdLineSpaceSingle |Mp_qg?g  
        .Alignment = wdAlignParagraphCenter )T:{(v7 d`  
         _gY so]S^B  
        .WidowControl = True =>hq0F4[;  
        .KeepWithNext = True &DFe+y~PR  
        .KeepTogether = True D4m2*%M  
        .OutlineLevel = wdOutlineLevelBodyText j}chU'if  
         S#X$QD  
        .LineUnitBefore = 0.5 Tv0|e'^  
        .LineUnitAfter = 0.5 Z3G>DF:$  
    End With daaEN(  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False 9BGPq)#  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll hgE!)UE  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese sa`7_KB  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True .e2u)YqA  
    DoEvents :XMw="u=  
     l{4=La{?j  
    '二级 ?J+[|*'yK  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") Wx&AY"J  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" !+.|T9P  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False 0*%j6*XDq9  
    With ActiveDocument.Styles("QLNU二级标题").Font 1V?}";T  
        .NameFarEast = "黑体" /c`)E r6d  
        .NameAscii = "Arial Narrow" Ho?+?YJ#P  
        .NameOther = "黑体" zVs_|x="  
        .Name = "黑体" OxqbHe  
        .Size = 15        '小三号 1{%EQhNd  
        .Bold = False "RH2%  
        .Outline = False yg "u^*r&  
        .Italic = wdUndefined qeCx.Z  
        .Subscript = wdUndefined Xu$xO(  
        .Superscript = wdUndefined IC9:&C[  
    End With SMQuJ_  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat ke~O+]  
        .LeftIndent = CentimetersToPoints(0) 2C%{A  
        .RightIndent = CentimetersToPoints(0) >Ge&v'~_|  
        .FirstLineIndent = CentimetersToPoints(0) J[UL f7:  
         RC8{QgaI  
        .LineSpacingRule = wdLineSpaceSingle ,{7wvXP  
        .Alignment = wdAlignParagraphLeft "JSg/optc  
         Um\Nd#=:  
        .WidowControl = True }Xs=x6Mj  
        .KeepWithNext = True  8^zI  
        .KeepTogether = True kF~}htv.=  
        .PageBreakBefore = False i6r%;ueLb  
        .OutlineLevel = wdOutlineLevelBodyText T IPb ]  
          |Gjd  
        .LineUnitBefore = 0.5 :>'^l?b'WX  
        .LineUnitAfter = 0.5 d'Z|+lq:  
         @.-g  
    End With '=x  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False TeQWrms  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll zp4Jd"XBX  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese (@O F Wc"p  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True  :XF;v  
    DoEvents {so"xoA^c  
     l_u1 ~K  
    '三级标题样式 !wvP24"y  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") /yIkHb^c  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" _"J-P={=  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False q:-8 W[_
 
    With ActiveDocument.Styles("QLNU三级标题").Font :9c QK]O6  
        .NameFarEast = "宋体" &:8a[C2=  
        .NameAscii = "Times New Roman" +J$[RxQ#  
        .NameOther = "黑体" xrO:Y!C?  
        .Name = "黑体" 3bpbk  
        .Size = 14               '四号 s_K:h  
        .Bold = False [dsH0 D&T  
        .Outline = False !5 %c`4  
        .Italic = wdUndefined SMgf(N3]  
        .Subscript = wdUndefined G3 #c  
        .Superscript = wdUndefined p[&'*
"o!/  
    End With B{QY-F~  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat L1.<LB^4'  
        .LeftIndent = CentimetersToPoints(0) oj@B'j  
        .RightIndent = CentimetersToPoints(0) 1bd(JL  
        .FirstLineIndent = CentimetersToPoints(0) !yH&l6s  
         CIQo2~G  
        .LineSpacingRule = wdLineSpaceSingle uKh),@JV  
        .Alignment = wdAlignParagraphLeft }Fyf?TZ$T  
         br<,?  
        .WidowControl = True gOO\` #  
        .KeepWithNext = True ,a< !d  
        .KeepTogether = True g!D?Yj
4  
        .PageBreakBefore = False B4GgR ,P@S  
        .OutlineLevel = wdOutlineLevelBodyText G F,/<R#  
         zp"sM z]  
        .CharacterUnitLeftIndent = 0 TeG5|`t],  
        .CharacterUnitRightIndent = 0 ?`,UW;Br6  
        .CharacterUnitFirstLineIndent = 2 %|o4 U0c  
         $t-HJ<!  
        .LineUnitBefore = 0.5 Tm[IOuhM'?  
        .LineUnitAfter = 0 L]kSj$A  
    End With zF(I#|Vo  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False c^UG
}:Y  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll  F[115/  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese ]gkI:scPA  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True uFb&WIo1  
    DoEvents fT/;TK>z>  
     |>GtClL  
    '四级标题样式 O~-#>a  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ,/|"0$ p2x  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" >mT2g  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False 8@Xq ,J  
    With ActiveDocument.Styles("QLNU四级标题").Font J`uV $l:  
        .NameFarEast = "宋体" &K)c*'l  
        .NameAscii = "Times New Roman" ar=uDb;  
        .NameOther = "宋体" //>f#8Ho  
        .Name = "宋体" s{KwO+UW  
        .Size = 12               '小四号 'wLQ9o%=p|  
        .Bold = True `pm6Ts{,  
        .Outline = False 4'?
kyTO~  
        .Italic = wdUndefined MH`f!%c  
        .Subscript = wdUndefined a7nbGqsx  
        .Superscript = wdUndefined @xB"9s  
    End With k%/Z.4vQG  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat A"#Gg7]tl'  
         D>~z{H
%\  
        .LeftIndent = CentimetersToPoints(0) 5>"$95D  
        .RightIndent = CentimetersToPoints(0) zhKb|SV  
        .FirstLineIndent = CentimetersToPoints(0) o{?s\)aBa  
        
@1gX>!  
        .LineSpacingRule = wdLineSpaceSingle (m=-oQ&Ro  
        .Alignment = wdAlignParagraphLeft LnxJFc:1K  
         Gu|} ax"  
        .WidowControl = True 0~R0)Q,  
        .KeepWithNext = True CP'?Om2  
        .KeepTogether = True nod?v2%   
        .PageBreakBefore = False O@'/B" &  
        .OutlineLevel = wdOutlineLevelBodyText JpD<2Mz_|V  
         a*NcL(OC  
        .CharacterUnitLeftIndent = 0 F%lP<4Vx  
        .CharacterUnitRightIndent = 0 OYgD9T.8^  
        .CharacterUnitFirstLineIndent = 2 `K~300-hOb  
         ]U! ?{~  
        .LineUnitBefore = 0 1N1MD@C?P  
        .LineUnitAfter = 0 5sEq`P}5  
         ,F.\z
^\{  
    End With C*b!E:  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False zm9>"(H  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll 3rTYe6q$U  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese +I5@Gys  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True :|M0n%-X  
    DoEvents 4rc4}Yu,JI  
     }9aYU;9D  
    '正文校式 vEvVT]g[V  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") 8{@|M l  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" %rzC+=*;  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False /'u-Fr(Q+  
    With ActiveDocument.Styles("QLNU正文").Font i(2s"Uww,  
         eFp4MD8?  
        .NameFarEast = "宋体" @.a[2,o _  
        .NameAscii = "Times New Roman" X&TTw/J!^  
        .NameOther = "宋体" O]~cv^  
        .Name = "宋体" :o&qJ%  
         g,7`emOX  
        .Size = 12               '小四号 =\ iV=1iB  
         #<S+E7uTs  
        .Bold = wdUndefined |jk"; h  
        .Italic = wdUndefined :7<spd(%"  
        .Subscript = wdUndefined n
xKV7d@R  
        .Superscript = wdUndefined yK_$6EtNKj  
         {2}O\A  
        .Outline = False ]P<u^ `{*  
        .Emboss = False =" #O1$  
        .Shadow = False V?t^ J7{'  
        .Hidden = False u8v;O}#  
         tVvRT*>Wb  
        .DisableCharacterSpaceGrid = True gb|C592R5C  
    End With S j)&!  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat vkOCyi?c  
         C!]
hu)E  
        .LeftIndent = CentimetersToPoints(0) ~M3`mO+^U  
        .RightIndent = CentimetersToPoints(0) \&`S~cV9  
        .FirstLineIndent = CentimetersToPoints(0) D1;H,  
         s}uOht} o  
        .LineSpacingRule = wdLineSpaceExactly >>Z.]  
        .LineSpacing = 20 ,Za!  
        .Alignment = wdAlignParagraphLeft LS+ _y<v=  
         fDNiU"  
        .WidowControl = False PP.QfY4  
        .KeepWithNext = False kTT!gZP$  
        .KeepTogether = False `-"2(Gp  
        .PageBreakBefore = False p}.L]Y  
        .Hyphenation = False 5yI_uQR  
         /z>G=kA  
        .OutlineLevel = wdOutlineLevelBodyText xJa  
         8Sd<!  
       (2[tQ`~  
        .CharacterUnitLeftIndent = 0 cclx$)X1X  
        .CharacterUnitRightIndent = 0 {k%*j 4  
        .CharacterUnitFirstLineIndent = 2 r;g[<6` !S  
         %]h5\%@w  
        .LineUnitBefore = 0 b\Y<1EV^
[  
        .LineUnitAfter = 0 f6j;Y<}' g  
        .SpaceBefore = 0 2)Grl;T]s  
        .SpaceAfter = 0 .EM0R\ q  
         JZNRM
xu  
        .DisableLineHeightGrid = True U ]`SM6  
    End With B?`Gs^Y{z  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False BRPvBs?Q,{  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll A7 qyv0F  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese |`1lCyV\tE  
    ActiveDocument.Styles("QLNU正文").NoProofing = True IKMkpX!]  
    DoEvents u K6R+a  
     9i*t3W71]  
    '图片段落样式 HJo&
snT3  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") mFw`LvH?*  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" fr#Y<=Jo  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False "9jt 2@<  
    With ActiveDocument.Styles("QLNU图片段落").Font l RF04  
        .Size = 12               '小四号 )pJ} $[6  
        .Italic = wdUndefined k(pI5N}pJZ  
        .Subscript = wdUndefined )gYsg  
        .Superscript = wdUndefined szu!*wc9  
    End With P hs4]!  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat
F"1)y>2k  
         T@GT=1E)  
        .LeftIndent = CentimetersToPoints(0) @#hd8_)A.  
        .RightIndent = CentimetersToPoints(0) c3W9"  
        .FirstLineIndent = CentimetersToPoints(0) p#wQW[6  
         WUm83"  
        .LineSpacingRule = wdLineSpaceSingle 'c*Q/C;  
        .Alignment = wdAlignParagraphCenter 6oMU) DIa  
        .KeepWithNext = True lE=(6Q  
        .OutlineLevel = wdOutlineLevelBodyText eRKuy l  
         oDogM`T`  
        .CharacterUnitLeftIndent = 0 z Rd^Uks  
        .CharacterUnitRightIndent = 0 HQw98/-_W  
        .CharacterUnitFirstLineIndent = 0 T!
0o(Pp<  
         (/UW}$] h  
        .LineUnitBefore = 0 zc01\M  
        .LineUnitAfter = 0 )y4bb^;z  
    End With :hr% 6K7  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False ?&  qMC  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll 5R\{&  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese y
{ %2Q)  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True 7g8}]\i+  
    DoEvents b R> G%*a  
     6c,]N@,Zw  
     VNBf2 Va  
    '第X章 As }:~Jy|  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") D1rXTI$$  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" 1G$fU zS  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False ?{[ISk)  
    With ActiveDocument.Styles("QLNU章节标题").Font ecDni
>W  
        .NameFarEast = "黑体" E #q gt9  
        .NameAscii = "Arial Black" k&wCa<Rs~R  
        .NameOther = "Arial Black" <ZcJC+k  
        .Name = "黑体" Yj3j?.JJk  
        .Size = 16 }^U7NZn<"  
        .Bold = True 
XP'<\  
        .UnderlineColor = wdColorAutomatic [-5%[ty9X  
        .Outline = False YRa{6*M  
        .Italic = wdUndefined D[32t0  
        .Subscript = wdUndefined 0tyoH3o/d  
        .Superscript = wdUndefined @M-i$ q[4  
        .Scaling = 100 _&)^a)Nu  
        .DisableCharacterSpaceGrid = True v._Q XcE  
    End With ]rGZ   
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat }'L7<_  
        .LineSpacingRule = wdLineSpaceSingle :,Z'/e0&  
        .Alignment = wdAlignParagraphCenter N4]QmRX/j  
        .WidowControl = True 6<X.]"u+E~  
        .KeepWithNext = True _;L%? -2c  
        .KeepTogether = True qM= $,s*  
        .PageBreakBefore = True un([3r  
        .OutlineLevel = wdOutlineLevelBodyText h\| ~Q.kG  
         7DZxrVw  
        .LeftIndent = CentimetersToPoints(0) s.7\?(Lg  
        .RightIndent = CentimetersToPoints(0) (k/[/`3ST  
        .FirstLineIndent = CentimetersToPoints(0) @SeInew;`l  
         N3O3V5':!  
        .CharacterUnitLeftIndent = 0 # JMww  
        .CharacterUnitRightIndent = 0 UKX9C"-5v  
        .CharacterUnitFirstLineIndent = 0 ;,2i1m0
"  
         d5
Hp&tm  
        .LineUnitBefore = 1 ntR@[)K  
        .LineUnitAfter = 0.5 o81RD#>E)  
         H3\4&q  
        .AutoAdjustRightIndent = False ,' V
T75  
        .DisableLineHeightGrid = True Bn:"qN~  
        .FarEastLineBreakControl = True tl
jZE)  
        .WordWrap = True Pxf
WO1S(  
    End With +yY
xHIOZ(  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False Sk7l&B  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll (# I$4Px{  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese 9Rl-Jz8g  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True %3b;`Oa  
    DoEvents (mbC! !>  
     T'_#Dwmj*  
    '表格标题 {9?++G"\  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 9<0TF+}>  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" g~EN3~  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False R9X ISsM^  
    With ActiveDocument.Styles("QLNU表格标题").Font ^{Wx\+*!  
        .NameFarEast = "楷体" s8BfOl-  
        .NameAscii = "Arial" r9MS,KG8  
        .Name = "楷体" aT|SKb`  
        .Size = 10.5 >f+qI mH  
        .Bold = True E)w6ZwV  
        .Underline = wdUnderlineNone  dpG l  
        .Italic = wdUndefined p[oR4 HWr  
        .Subscript = wdUndefined a7$-gW"Z(,  
        .Superscript = wdUndefined lw+Y_;  
        .Color = wdColorAutomatic 4SRjF$Bsz  
    End With ,w-=8>5lrj  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat {zzc/!|  
         ?.Iau/  
        .LineSpacingRule = wdLineSpaceSingle pRR1k?  
        .Alignment = wdAlignParagraphCenter @jh\yjrW  
        .KeepWithNext = True TQ`s&8"P  
        .KeepTogether = True =VIU  
        .OutlineLevel = wdOutlineLevelBodyText <14,xYpE  
         VWhq+8z  
        .LeftIndent = CentimetersToPoints(0) ?R-4uG[ (  
        .RightIndent = CentimetersToPoints(0) Q/D?U[G  
        .FirstLineIndent = CentimetersToPoints(0) QAGR\~  
         ox:m;-Ml?_  
        .CharacterUnitLeftIndent = 0 oKyl2jg+,  
        .CharacterUnitRightIndent = 0 9dS<^E(ZF  
        .CharacterUnitFirstLineIndent = 0 <[.{aj]QV  
        
CCoT  
        .LineUnitBefore = 1 6sceymq  
        .LineUnitAfter = 0 qZQB"Q.*  
         W5i{W'  
    End With ?e=3G4N  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False ~dc o   
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll m\*;Fx  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese pQ~Y 7  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True
hA=.${uIO  
    DoEvents Ln-UN$2~F  
;ctPe[5  
    '表格首行 kX
W5bR  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") L#huTKX}  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False eBT+|  
    With ActiveDocument.Styles("QLNU表格首行").Font 78M%[7Cq<i  
        .NameFarEast = "楷体" $-
^ ;Jl  
        .NameAscii = "Times New Roman" _*iy *:(o  
        .Name = "楷体" {ovt 6C  
        .Size = 9 ohEIr2  
        .Bold = True BjX*Gm6l  
        .Underline = wdUnderlineNone &#/UWv}f 0  
        .Italic = wdUndefined !AR@GuQPE  
        .Subscript = wdUndefined xWRkg$A  
        .Superscript = wdUndefined S<*h1}V3/  
    End With d23;c )'  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat FYBW3y+AF&  
        .LineSpacingRule = wdLineSpaceSingle J|$UAOEDa  
        .Alignment = wdAlignParagraphCenter =Jyi9VN=&  
         >wSrllmj@  
        .LeftIndent = CentimetersToPoints(0) g\.O5H9Od  
        .RightIndent = CentimetersToPoints(0) (1%O;D.*?{  
        .FirstLineIndent = CentimetersToPoints(0) ]?p 9)d=%<  
         vw~=z6Ka  
         ,zF^^,lO7  
        .CharacterUnitLeftIndent = -0.5 Yt]Y(  
        .CharacterUnitRightIndent = -0.5 Q*
jNJ^IW  
        .CharacterUnitFirstLineIndent = -0.5 ZNfQM&<d  
         
ATRB9  
        .LineUnitBefore = 0 y@XE! L  
        .LineUnitAfter = 0 'kuLkM,  
        .SpaceBefore = 0 itYTV?bd  
        .SpaceAfter = 0 TmviYP gb  
         FTgqE@  
    End With cG)U01/"  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False 3A&: c/  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll k'6x_ G  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese F)8M9%g5m  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True op8[8pt%  
    DoEvents N1D{
%  
g9~QNA  
    '表格内容 eP( |]Rk  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") pNFVa<D  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False a~*wZJ  
    With ActiveDocument.Styles("QLNU表格内容").Font q"LE6?hs  
        .NameFarEast = "楷体" 5,_DM  
        .NameAscii = "Times New Roman" oaac.7.fV  
        .Name = "楷体" R6m6bsZ`  
        .Size = 9 y.>1r7  
        .Bold = False 7&`Yl[G  
        .Underline = wdUnderlineNone %+pF4f8]  
        .Italic = wdUndefined  E\5Cf2Ox  
        .Subscript = wdUndefined z(!K8 T  
        .Superscript = wdUndefined _^ZBSx09)  
    End With tl6x@%\  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat ,gO(zI-1  
        .LineSpacingRule = wdLineSpaceSingle c)`=wDi  
        .Alignment = wdAlignParagraphCenter ;9MIapfUd(  
         F_I.=zQr  
        .LeftIndent = CentimetersToPoints(0) ee2k..Tq#  
        .RightIndent = CentimetersToPoints(0) ,DL%oQR  
        .FirstLineIndent = CentimetersToPoints(0) qs$w9I  
         -3GlpC22  
        .CharacterUnitLeftIndent = -0.5 zp'Vn
7  
        .CharacterUnitRightIndent = -0.5 QZwZ4$jkiO  
        .CharacterUnitFirstLineIndent = -0.5 MA1y@  
        .LineUnitBefore = 0 F:~k4uTW\b  
        .LineUnitAfter = 0 +b sc3  
        .SpaceBefore = 0 S7v# `#  
        .SpaceAfter = 0 [iXkv\  
    End With W?H-Ng3E  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False Mg~62u  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll =w;~1i%.k  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese 9P1!<6mN\  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True *-eDUT|O  
    DoEvents `G'Z,P-a  
T)#e=WcP]  
    '图片标题 Mni@@W  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") SX)o0v+  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" >PS`;S!(  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False \"7U,y',  
    With ActiveDocument.Styles("QLNU图片标题").Font 2F&VG|"  
        .NameFarEast = "楷体" ;$Pjl8\  
        .NameAscii = "Times New Roman" Xk>YiV",?  
        .Name = "楷体" jp+s[rRc\{  
        .Size = 10.5 \x=j  
        .Bold = True JZup} {a  
        .Underline = wdUnderlineNone ]q`'l_O  
        .Italic = wdUndefined v qhu%ZyP  
        .Subscript = wdUndefined MA,7|s  
        .Superscript = wdUndefined $Wn!vbL  
        .Outline = False ^ *1hz<  
        .Shadow = False L3;cAb/  
        .Color = wdColorAutomatic 'O^<i`8U]  
    End With d_1uv_P  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat Xmny(j)g  
        .LineSpacingRule = wdLineSpaceSingle k0bDEz.X  
        .Alignment = wdAlignParagraphCenter #O1%k; BL  
         s&d!+-\6_  
        .KeepWithNext = wdUndefined ThiM 6Hb  
        .KeepTogether = True 9,jFQb(),  
        .OutlineLevel = wdOutlineLevelBodyText _aP2gH  
         o_C]O"  
        .LeftIndent = CentimetersToPoints(0) 45 B |U  
        .RightIndent = CentimetersToPoints(0) aY8QYK ;?^  
        .FirstLineIndent = CentimetersToPoints(0) eWGaGRem  
        
b"JX6efnN  
        .CharacterUnitLeftIndent = 0 GR,gCtG+L  
        .CharacterUnitRightIndent = 0 AfT;IG%Gt  
        .CharacterUnitFirstLineIndent = 0 c#zx" ,K  
         jPIOBEIG  
        .LineUnitBefore = 0 Y52TC@'  
        .LineUnitAfter = 0 !d Z:Ih.[{  
    End With s}lp^Uh=  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False /B!Ik:c}  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll <4:%M  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese ':d9FzGKa  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True .+A2\F.^  
    DoEvents D KRF#*[=d  
 myOdf'=  
    '目录项 -|2k$W  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") AA XQ+!  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" Sa9p# OQ  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False Pi
5($cn  
    With ActiveDocument.Styles("QLNU目录项").Font N{&Hq4^c  
        .NameFarEast = "黑体" =m-nvXD  
        .NameAscii = "Times New Roman" fq?MnWc  
        .NameOther = "Times New Roman" +JejnG0  
        .Name = "黑体" &BxZ}JH=k  
        .Size = 10.5 BHf7\+Ul  
        .Bold = False Yln[ZmK9g  
        .Italic = wdUndefined ^wlo;.8Y  
        .Underline = wdUnderlineNone -uei nd]  
        .Color = wdColorAutomatic jaL#  
        .Superscript = wdUndefined /0YO`])"  
        .Subscript = wdUndefined *"d['V3  
    End With ^&7gUH*v  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat Gp0yRT.  
         @[v4[yq-  
        .LineSpacingRule = wdLineSpaceSingle 0bfJD'^9RP  
        .Alignment = wdAlignParagraphLeft :>-&  
         'FM_5`&  
        .WidowControl = False \Lg{GN.  
        .KeepWithNext = False KY+BXGW*  
        .KeepTogether = False 888"X
3.T  
        .PageBreakBefore = False |>/m{L[  
        .NoLineNumber = False a}g<<{  
        .OutlineLevel = wdOutlineLevelBodyText 3H`r|R  
         U>hpYqf_  
        .LeftIndent = CentimetersToPoints(0) H;N6X y*~  
        .RightIndent = CentimetersToPoints(0) R*O< (  
        .FirstLineIndent = CentimetersToPoints(0) Rm[{^V.Z$  
         q0*d*j F0u  
        .CharacterUnitLeftIndent = 0 4Z0Y8y8)  
        .CharacterUnitRightIndent = 0 5H2Ugk3  
        .CharacterUnitFirstLineIndent = 0 x31Jl{x8\?  
         'M35L30  
        .LineUnitBefore = 0 }u.I%{4  
        .LineUnitAfter = 0 ?wVq5^ e  
    End With ]D<3yIGS  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False P?|>, \t  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll iE#I^`^V  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot #k t+ )>  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese .cK<jF@'  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True ipD/dx.  
    DoEvents dO!B=/  
     x"~gulcz  
    '参考文献 ~COd(,ul  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") a9!.e rM
 
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" ]--" K{  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False !bBx'  
    With ActiveDocument.Styles("QLNU参考文献").Font MDauHtF,  
        .NameFarEast = "宋体" !i8'gq'q  
        .NameAscii = "Times New Roman" y4%[^g~-  
        .NameOther = "Times New Roman" `s8!zy+  
        .Name = "Times New Roman" i#I7ncX  
        .Size = 12 M7.H;.?  
        .Bold = False  G O[u  
        .Italic = wdUndefined TG6E^3a P  
        .Subscript = wdUndefined \h
DjZ  
        .Superscript = wdUndefined *6wt+twH  
        .Underline = wdUnderlineNone RG6U~o1  
        .UnderlineColor = wdColorAutomatic Yan,Bt{YJ  
        .Color = wdColorAutomatic \# _w=gs<i  
        .Engrave = False #{g
6'9PMz  
    End With -r%k)4_  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat IoCi(N;  
         a{\<L/\  
        .LineSpacingRule = wdLineSpaceExactly {ewo-dva  
        .LineSpacing = 16 ;<H\{w@D  
        .Alignment = wdAlignParagraphLeft RYV:?=D7s  
        .WidowControl = False jJ3dZ<#  
        .KeepWithNext = False 9+!"[  
        .KeepTogether = False _i2guhRs*Q  
        .PageBreakBefore = False Q\pI\]p:  
        .OutlineLevel = wdOutlineLevelBodyText {-l:F2i  
         B*otquz  
        .LeftIndent = CentimetersToPoints(0) $O9,Gvnxx  
        .RightIndent = CentimetersToPoints(0) Q tl! f  
        .FirstLineIndent = CentimetersToPoints(0) do DpTwvh  
         Rg7~?b-  
        .CharacterUnitLeftIndent = 0 y eWB.M~X  
        .CharacterUnitRightIndent = 0 r2=4Wx4(  
        .CharacterUnitFirstLineIndent = -2 fzr0dcNgM  
         H{g&y o  
        .LineUnitBefore = 0 +jyWqld.K1  
        .LineUnitAfter = 0 s >7(S%#N  
        .SpaceBefore = 0 lbm ,#  
        .SpaceAfter = 0 IzlmcP3  
         /TScYE:$HE  
    End With (%)<jg
1  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False -"5r-qq*  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll j[|mC;y.  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS LLPbZ9
q  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True zRFvWOxC\  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese /-Y.A<ieN8  
    DoEvents z4rg.ai  
zXGi  
    ' ;uaZp.<um&  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") pwmH(94$0  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" zhVkn]z~*  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False 4||dc}I"E  
    With ActiveDocument.Styles("QLNU论文题目").Font MNoc XK  
        .NameFarEast = "黑体" wZb77  
        .NameAscii = "Arial Black" tr<0NV62>  
        .NameOther = "Arial Black" .9!?vz]1  
        .Name = "Arial Black" eT@,QA(3  
        .Size = 16 /JQY_>@W  
        .Bold = False cIg+^Tl  
        .Italic = wdUndefined )KKmV6>b  
        .Superscript = wdUndefined C!^[ d  
        .Subscript = wdUndefined ok/{ w  
        .Underline = wdUnderlineNone v4VP7h6uD)  
        .UnderlineColor = wdColorAutomatic {Z1^/Fv3  
        .Color = wdColorAutomatic QBLha']'%  
Y(R .e7]  
    End With u5A$VRMN  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat c=<5DC&p  
        .LineSpacingRule = wdLineSpaceSingle sEx`9_oZ  
        .Alignment = wdAlignParagraphCenter vJsx_i\i  
        .WidowControl = True ,IRy. qy  
        .KeepWithNext = True wY*tq{7  
        .KeepTogether = True @QAI 0ZY  
        .PageBreakBefore = True kz^?!l)X0  
        .NoLineNumber = False "p"~fN /I9  
        .OutlineLevel = wdOutlineLevelBodyText UgD&tD0fp  
         oT*qMLdn  
        .LeftIndent = CentimetersToPoints(0) u.,l_D_  
        .RightIndent = CentimetersToPoints(0) fcisD
u8n  
        .FirstLineIndent = CentimetersToPoints(0) c}mWAZ=wF  
         NU%<Ws=  
        .CharacterUnitLeftIndent = 0 c;7`]}
fGu  
        .CharacterUnitRightIndent = 0 h[oI/X  
        .CharacterUnitFirstLineIndent = 0 94xWMX2  
         ;mSJZYnT  
        .LineUnitBefore = 1 A;7At!kK  
        .LineUnitAfter = 1 `:kI@TPI_C  
         ^ ^k]2oG  
        .BaseLineAlignment = wdBaselineAlignAuto Bn5$TiTcl  
    End With ~JTp8E9kw  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False ,2]a<0m  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll a1gaB:w5n  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS /EV _Y|(-  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True v|wO qS  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese 2!";?E  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True frUO+  
    DoEvents -$o4WSd~  
     TSUT3'&~p  
    '中文摘要 b|nh 4g  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") Z?)=4|  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" z<,-:=BC"  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False :NXM.@jJ="  
    With ActiveDocument.Styles("QLNU中文摘要").Font n0opb [?  
        .NameFarEast = "宋体" f~{4hVA  
        .NameAscii = "Times New Roman" i7foZ\btFc  
        .NameOther = "Times New Roman" fu{.Ir  
        .Name = "Times New Roman" />dYkIv  
        .Size = 12 T*qSk!  
        .Bold = wdUndefined "w:?WS  
        .Superscript = wdUndefined m[D]4h9  
        .Subscript = wdUndefined ,Kwtp)EX  
        .Italic = wdUndefined hi^t zpy  
        .Underline = wdUnderlineNone >.r> aH  
        .UnderlineColor = wdColorAutomatic @"L*!  
        .Color = wdColorAutomatic ab^>_xD<  
    End With CQ:38l\`gd  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat 9_lWB6  
        .LineSpacingRule = wdLineSpaceExactly b
>f{o_  
        .LineSpacing = 20 ':DLv
{R  
        .Alignment = wdAlignParagraphLeft x?RYt4S  
         Y1 *8&xT  
        .WidowControl = False s'=w/os  
        .KeepWithNext = False X*e<g=  
        .KeepTogether = True ObSRd$M  
        .PageBreakBefore = False |6!L\/}M%  
        .NoLineNumber = False e<r}{=1w  
        .OutlineLevel = wdOutlineLevelBodyText Gk]6WLi  
         ;}4^WzmK^(  
        .LeftIndent = CentimetersToPoints(0) !EB[L
utm  
        .RightIndent = CentimetersToPoints(0) eY8rm  
        .FirstLineIndent = CentimetersToPoints(0) %>EM ^Z  
         3pjK`"Nmz\  
        .CharacterUnitLeftIndent = 0 */y (~O6  
        .CharacterUnitRightIndent = 0 L(DDyA{bA  
        .CharacterUnitFirstLineIndent = 2 1Y{pf]5Wx  
        .LineUnitBefore = 0 j S<."a/n  
        .LineUnitAfter = 0 |6GDIoZ  
         }S6"$R  
    End With
x#}{z1op9  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False Hg2Rcl  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll rixt_}aE  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS h4tAaPcS+  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True um*!+Q  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese /7hC /!@  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True ';3#t(J;  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete ;l c/FV[/  
    DoEvents D\k'Eez  
     Q[MWzsx  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") pN#RTb8o  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" LyG&FOf?  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False v6K RE3:V  
    With ActiveDocument.Styles("QLNU英文标题").Font rA[wC%%  
        .NameFarEast = "黑体" [xHHm5$  
        .NameAscii = "Arial Narrow" s|IC;C|  
        .Name = "Arial Narrow" Mh8s@g  
        .Size = 16 XY!0yAK(!  
        .Bold = True v&Oc,W  
        .Bold = wdUndefined `,$PRN"]  
        .Superscript = wdUndefined Yqb3g(0
 
        .Subscript = wdUndefined 'yNS(Bg=  
        .Italic = wdUndefined y-lBaTE9  
         ;Miag'7  
        .Underline = wdUnderlineNone t>JPK_b0  
        .UnderlineColor = wdColorAutomatic `!@d$*:'  
        .StrikeThrough = False >wf.C%  
        .DoubleStrikeThrough = False 6 9$gPY'3  
    End With cc{^0JT  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat @w73U;9\  
        .LineSpacingRule = wdLineSpaceSingle `}S;_g!  
        .Alignment = wdAlignParagraphCenter vY!'@W  
        .WidowControl = True ` *q>E  
        .KeepWithNext = False Xsd+5="{N  
        .KeepTogether = False oP_}C[  
        .PageBreakBefore = False  $M|  
        .NoLineNumber = False bL0>ul"  
        .FirstLineIndent = CentimetersToPoints(0) tPaNhm[-q7  
        .OutlineLevel = wdOutlineLevelBodyText NM4b]>  
         90UZ\{">  
        .LeftIndent = CentimetersToPoints(0) a
yrCLv  
        .RightIndent = CentimetersToPoints(0) bz|-x "qk  
        .FirstLineIndent = CentimetersToPoints(0) `XrF ,
 
         $HP<C>^Z8  
        .CharacterUnitLeftIndent = 0 ?XB[awTD~  
        .CharacterUnitRightIndent = 0 <CGABlZ  
        .CharacterUnitFirstLineIndent = 0 ]La~Bh6 ;m  
         J
4
#rOS  
        .LineUnitBefore = 1 JXq l=/%  
        .LineUnitAfter = 1 fzjAP7 y  
         6D/K=-  
    End With B3'-:  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False M6XpauR-  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll Cnv?0to2l  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS c|<E~_.w@  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True T':} p2}w+  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese v`Yj)  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True >8.o  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete % 9} ?*U  
    DoEvents {3eg4j.Z  
_p;=]#+c&  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") "I0F"nQ  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" D]+]Br8  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False ,dXJCX8so  
    With ActiveDocument.Styles("QLNU英文摘要").Font ~TYpq;rq  
        .NameFarEast = "宋体" Pd04  
        .NameAscii = "Arial" xP-\)d-.aN  
        .NameOther = "Arial" 0F 9p'_C  
        .Name = "Arial" Eal*){"<,?  
        .Size = 12 %![3?|8~  
        .Bold = wdUndefined si#1sdR  
        .Italic = wdUndefined E-Y4TBZ*  
        .Superscript = wdUndefined =:_DXGW2H  
        .Subscript = wdUndefined >b2wFo/em  
    End With Sc9}WU
 
     odhcU5  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat 'w?}~D.y  
         *u]aWx  
        .LineSpacingRule = wdLineSpaceExactly &NH[b1NMr  
        .LineSpacing = 20 HUalD3 \  
         <g1=jG:7k  
        .Alignment = wdAlignParagraphJustify Dy|)u1?  
         0bl8J5Ar5  
        .WidowControl = False /&+*X)#v  
        .KeepWithNext = False /Jf}~}JP  
        .KeepTogether = False GS+Z(,J>=  
        .PageBreakBefore = False U5ME`lN*`  
        .NoLineNumber = False x};sti R  
         hj,yl&  
        .OutlineLevel = wdOutlineLevelBodyText 
L~{3W  
         Y(B3M=j  
        .LeftIndent = CentimetersToPoints(0) 8:fq!m  
        .RightIndent = CentimetersToPoints(0) v@Qf
xV2  
        .FirstLineIndent = CentimetersToPoints(0) c0QKx=  
         OCE
hwB0  
        .CharacterUnitLeftIndent = 0 Ot;)zft  
        .CharacterUnitRightIndent = 0 y&6 pc  
        .CharacterUnitFirstLineIndent = 2 )jGB[s";)y  
         D\^\_r):  
        .LineUnitBefore = 0 .O6(QI*  
        .LineUnitAfter = 1 OBL2W\{  
         fVz0H1\J&  
    End With HpIWH*  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False *;[g Ga~  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll ~
_a$5Y  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS yR1v3D4E  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False A5go)~x\  
    DoEvents ::sk)  
+;bP .[Z  
    Options.Pagination = True _B7+n"t\r  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." "Pa  y2  
    DoEvents {ep.So6  
    ActiveDocument.Repaginate kK/(
[!  
r<5i  
End Sub ?,w9e|  
p(.z#o#  
gN.n_!