Dim bContinue As Boolean LB({,0mcX  
0s Jp,4Vv  
Dim regEX As New RegExp 2rC&  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 UlNiH  
!5h8sD;  
Dim LastTitle0String As String, LastTitle0No As Long -Ju;
i<  
Dim LastTitle1String As String, LastTitle1No As Long MGK?FJn_?  
Dim LastTitle2String As String, LastTitle2No As Long _B^X3EOc  
Dim LastTitle3String As String, LastTitle3No As Long a;Pn.@NVq  
Dim LastTitle4String As String, LastTitle4No As Long ,o0Kevz  
Dim LastTitle5String As String, LastTitle5No As Long E`xpZ>$mPx  
Dim LastTabelString As String, LastTableNo As Long CY.92I@S  
Dim LastFigureString As String, LastFigureNo As Long T12Zak4.=  
4o";p}[b  
Dim strSeperator As String EUh_`R  
LPs5L E[Pm  
Sub ConvertWidth(fTEXT As String, rText As String) 2( I4h[  
        Selection.Find.ClearFormatting .nNZdta&=  
        Selection.Find.Replacement.ClearFormatting ;"#yHP`  
        Selection.Find.Wrap = wdFindContinue K} T=j+  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText R'vNJDFY  
        DoEvents #=0 BjW*  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True y
$di_)&g  
End Sub [+l
6x1Am  
O8>&J-+2  
Sub ClearDomain() +*`k J)uP  
        With Selection.Find Jqgm>\y  
            .ClearFormatting +84 p/B#  
            .Replacement.ClearFormatting SmvMjZ+7Y  
            .Wrap = wdFindContinue r9!s@n  
            Me.txtStatus.Text = "清除所有域代码" Yv)c\hm(7j  
            DoEvents :.=j)ljTx  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False =z"8#_3A  
        End With ShlTMTgS  
End Sub @
(*A<2;N  
PJ&L7  
Private Sub cmdCheck_Click() o~CEja&(  
    bContinue = True Dk$<fMS,7c  
    Dim NoSeries1(1 To 16) As String bJ9*z~z)e  
    Dim NoSeries2(1 To 16) As String !Ea9 fe  
    Dim NoSeries5(1 To 16) As String R i,_x  
    Dim NoSeriesRM(1 To 16) As String 1M_Vhs^  
    Dim paraTotal As Long, ParaText As String T~L V\}h  
    Dim ttString As String, ttNo As String  (~bx%  
     BHU$QX  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long FG!hb?_1  
]t&^o**  
    Me.txtStatus.Visible = True IG\Cj7{K^  
    Me.lbParaType.Visible = True ;ThFB  
    Me.cmdCheck.Enabled = False qQ3pe:n?  
     t,r:='  
     Qv'x+GVW]  
     QBi]gT@&g  
     8D@
Jd  
    Dim ParaType As String, rText As String ZNDi;6e  
     lup2>"?*  
    Selection.WholeStory 0
WKS  
    Selection.NoProofing = True =vQ J2Rg  
     tux0}|[^'  
    tm1 = Now cX4]ViXSr  
     KXl!VD,#`=  
        ActiveWindow.View.Type = wdNormalView K0B<9Wi|  
     9c*B%A8J  
    NoSeries1(1) = "一" X<$DN
RN  
    NoSeries1(2) = "二" g)ZMU^1  
    NoSeries1(3) = "三" Bxw(pACf  
    NoSeries1(4) = "四" ~:0w%  
    NoSeries1(5) = "五" 01&E.A  
    NoSeries1(6) = "六" 4{vEW(  
    NoSeries1(7) = "七" <s\ZqL$f  
    NoSeries1(8) = "八"  /d!  
    NoSeries1(9) = "九" |*b-m k  
    NoSeries1(10) = "十" _Yp~Oj  
    NoSeries1(11) = "十一" $%M]2_W(
 
    NoSeries1(12) = "十二" |& jrU-(  
    NoSeries1(13) = "十三" ^Z\"d#A  
    NoSeries1(14) = "十四" dKD:mU",M  
    NoSeries1(15) = "十五" &%@O V:C  
    NoSeries1(16) = "十六" &Ruq8n<  
     -&]!ig5v  
    NoSeries2(1) = "㈠" Nmt~1
.J  
    NoSeries2(2) = "㈡" qP&:9eL  
    NoSeries2(3) = "㈢" D:IG;Rsc  
    NoSeries2(4) = "㈣" vGPsjxk&  
    NoSeries2(5) = "㈤" @x743}Y\  
    NoSeries2(6) = "㈥" @OFx nF`
 
    NoSeries2(7) = "㈦" ZQ*Us*9I  
    NoSeries2(8) = "㈧" S-3hLw&?  
    NoSeries2(9) = "㈨" \G)F*  
    NoSeries2(10) = "㈩" kw#-\RR_c  
     :?y Ma$  
    NoSeries5(1) = "①" S3WUccv  
    NoSeries5(1) = "②" Fsx<Sa  
    NoSeries5(3) = "③" YAeF*vP  
    NoSeries5(4) = "④" cPAR.h,b?  
    NoSeries5(5) = "⑤" F&7|`o3  
    NoSeries5(6) = "⑥" <-N2<sl  
    NoSeries5(7) = "⑦" S-Bx`e9'  
    NoSeries5(8) = "⑧" KUm?gFh  
    NoSeries5(9) = "⑨" ,LSiQmV5  
    NoSeries5(10) = "⑩" )cP)HbOd=  
     gJ9"$fIPc  
     v@M^ukk'}  
    NoSeriesRM(1) = "I" 'DpJ#w\81  
    NoSeriesRM(2) = "II" VlL%dN; 0  
    NoSeriesRM(3) = "III" h7T),UL  
    NoSeriesRM(4) = "IV" n|rKo<Y0  
    NoSeriesRM(5) = "V" [.Kp/,JY  
    NoSeriesRM(6) = "VI" *TI?t D  
    NoSeriesRM(7) = "VII" liLhvcd  
    NoSeriesRM(8) = "VIII" #,6T.O  
    NoSeriesRM(9) = "IX" "dDrw ]P;  
    NoSeriesRM(10) = "X" Z_S{$D  
    NoSeriesRM(11) = "XI"
T,>L   
    NoSeriesRM(12) = "XII" 7m]J7 +4  
    NoSeriesRM(13) = "XIII" 0WSZhzNyY  
    NoSeriesRM(14) = "XIV" kQlwl9  
    NoSeriesRM(15) = "XV" q TN)2G   
    NoSeriesRM(16) = "XVI" gGMQRRq  
     cL03V?} ~  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) 1 JIU5u)  
     jf)l; \u  
    If i = vbNo Then +w?R4Sxjn  
        Exit Sub SA=>9L,2  
    End If &|RTLGwX  
     [2Nux0g  
    If Me.chkSuper.Value Then dkCUU  
        Me.txtStatus.Text = "检查修改所有的上标格式" t#t[cgI  
     LGW_7&0<<  
        CheckSuperScript )$df6sq  
         SZ$WC8AX  
    End If NW 2`)e'  
     Qr7v^H~E4.  
    If Me.chkStyle.Value Then z,^~H  
        Me.txtStatus.Text = "设置样式，请稍候...." 
b.\
xPb  
        DoEvents RB%y($  
        CeateOrModifyStyle q-_!&kDK"  
    End If 3b]M\F9  
     (*Q:'2e  
     "&4r!2A  
     BbCO K  
    ClearDomain  |Nj6RB7  
         NsM`kZM4H  
     3/Z>W|w#w  
     [>\|QS|  
    If Me.chkLIST.Value Then +`{OOp=  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" t:vBVDkD  
     B{:a,V7  
        ConvertListToOrdinary 'U`;4AN  
    End If Qs59IZ  
     %-.;sO=g  
     u-4@[*^T$  
    Dim pType As String, trimpTEXT As String Hk h'h"_r  
    If Me.chkNum.Value = True Then !3mt<i]a"  
        Me.txtStatus.Text = "转换全角数字形式为半角" CAs:>s '8  
        ConvertWidth "１", "1" Pgy[\t2K  
        DoEvents |rZM
c
l/  
        ConvertWidth "２", "2" iQ2j ejd3(  
        DoEvents 7C3YVm6g  
        ConvertWidth "３", "3" 2E!~RjxSY  
        DoEvents %P t){9b  
        ConvertWidth "４", "4" '/@wk#,  
        DoEvents nQ_{IO8/6W  
        ConvertWidth "５", "5" &TA{US3~  
        DoEvents P#XV_2  
        ConvertWidth "６", "6" i 61k  
        DoEvents x(eX.>o\  
        ConvertWidth "７", "7" i-5,*0e6m  
        DoEvents \( #"g  
        ConvertWidth "８", "8" v}V[sIs}  
        DoEvents PRTjXq6)5  
        ConvertWidth "９", "9" ykPiZK  
        DoEvents u5g
lKE  
        ConvertWidth "０", "0" 09G47YkSy1  
        DoEvents  73Jm   
        ConvertWidth "ａ", "a" 1
,bE[_  
        DoEvents p:Lmf8EI  
        ConvertWidth "ｂ", "b" Fr  
        DoEvents 5Lej_uqF   
        ConvertWidth "ｃ", "c" | C<#M<  
        DoEvents v*=P   
        ConvertWidth "ｄ", "d" lG94^|U  
        DoEvents rZaO^}u]  
        ConvertWidth "ｅ", "e" 0*rD'?)K+  
        DoEvents pWJEFm  
        ConvertWidth "ｆ", "f" ,%l}TSs  
        DoEvents .#|?-5q/iN  
        ConvertWidth "ｇ", "g" <"P-7/j3j  
        DoEvents foQo`}"5  
        ConvertWidth "ｈ", "h" b7Zo~Z  
        DoEvents ^ W?cuJ8  
        ConvertWidth "ｉ", "i" vI5lp5( -3  
        DoEvents $#u'XyA  
        ConvertWidth "ｊ", "j" X|eZpIA45  
        DoEvents }AJoF41X  
        ConvertWidth "ｋ", "k" &s(&B>M  
        DoEvents ?&~q^t?u  
        ConvertWidth "ｌ", "l"
A!x
&,<  
        DoEvents C
gh84 2%  
        ConvertWidth "ｍ", "m" Tsa]SN14  
        DoEvents 1nskf*Z  
        ConvertWidth "ｎ", "n" tB,(12@W  
        ConvertWidth "ｏ", "o"
Y-YuY  
        ConvertWidth "ｐ", "p" *pS 7,Hm  
        ConvertWidth "ｑ", "q" DyGls8<\!  
        ConvertWidth "ｒ", "r" \P?X`]NwnO  
        ConvertWidth "ｓ", "s"  G7al@  
        ConvertWidth "ｔ", "t" :Z6j5V;s  
        ConvertWidth "ｕ", "u" }F_c0zM  
        ConvertWidth "ｖ", "v" l&qCgw  
        ConvertWidth "ｗ", "w" %KT}Map  
        ConvertWidth "ｘ", "x" R( FQ+h  
        ConvertWidth "ｙ", "y" e}d(.H%l0  
        ConvertWidth "ｚ", "z" oR=i5lAU  
        ConvertWidth "Ａ", "A" G`>]ng  
        ConvertWidth "Ｂ", "B" !+^'Ej)z  
        ConvertWidth "Ｃ", "C" :\His{%  
        ConvertWidth "Ｄ", "D" Em@:QmEN  
        ConvertWidth "Ｅ", "E" Op?"G  
        ConvertWidth "Ｆ", "F" I

_u/  
        ConvertWidth "Ｇ", "G" Xzf,S;XV~  
        ConvertWidth "Ｈ", "H" }>u `8'2v  
        ConvertWidth "Ｉ", "I" .)!QsBU  
        ConvertWidth "Ｊ", "J" @&O4a2+  
        ConvertWidth "Ｋ", "K" u%)gnj_  
        ConvertWidth "Ｌ", "L" Wx{E\ l  
        ConvertWidth "Ｍ", "M" p.=9[`  
        ConvertWidth "Ｎ", "N" NBc^(F "  
        ConvertWidth "Ｏ", "O" 'Uf?-t*LT@  
        ConvertWidth "Ｐ", "P" o5F:U4sG  
        ConvertWidth "Ｑ", "Q" SNH 3C1  
        ConvertWidth "Ｒ", "R" &.*UVc2+Y  
        ConvertWidth "Ｓ", "S" <c p
c k  
        ConvertWidth "Ｔ", "T" }a6t<m`V  
        ConvertWidth "Ｕ", "U" $%cc[[/U  
        ConvertWidth "Ｖ", "V" PKSfu++Z  
        ConvertWidth "Ｗ", "W" ^Q$OzsEk  
        ConvertWidth "Ｘ", "X" 4#03x:/<\  
        ConvertWidth "Ｙ", "Y" <dH@e  
        ConvertWidth "Ｚ", "Z" y-1e(:GF  
        ConvertWidth "^l", "^p" `/P/2{,~  
        ConvertWidth "（", "(" l_+@Xpl  
        ConvertWidth "）", ")" D@*<O=_D(  
     i! ?gga  
    End If p#ar`-vQ  
m3lz#Pm'0  
    With ActiveDocument _2 hLc\#  
        Dim tbl As Table qEST[S V  
        For Each tbl In .Tables CG=c@-"n/  
            tbl.Rows.Alignment = wdAlignRowCenter eNAxVF0  
            tbl.Range.Font.NameFarEast = "楷体" 1Qf}nWy  
            tbl.Range.Font.NameAscii = "Times New Roman" UGhEaKH~R  
            tbl.Range.Font.Size = 10.5 YoKyiO!   
        Next gtA34iw  
        Set tbl = Nothing IFX$
\+-  
    End With _q27 3QG/"  
     4F~^RR"  
     d-UeItyW*  
    With ActiveDocument hb5K"9Y  
         w#9KtW,tt  
        For i = 1 To .TablesOfContents.Count $El-pMq  
            .TablesOfContents(i).Delete x^f)I|t  
        Next PFh ^Z L  
         @9gZH_ur>E  
         ZLv/otf:|"  
         s.}K?)mH  
        paraTotal = .Paragraphs.Count &P|[YP37_  
        paraCounter = 1 e}e8 WR=B  
         U+)p'%f;  
        LastTitle0No = 0 -Qn7+?P  
        LastTitle1No = 0 x 6`!  
        LastTitle2No = 0 %
7)=k}4  
        LastTitle3No = 0 2L^)k?9>g+  
        LastTitle4No = 0 +&`W\?.~  
        LastTableNo = 0 YNU}R/u6^  
        LastFigureNo = 0 L9D`hefz  
         !rM~   
        Dim Sec As Long ,94<j,"  
         K}R+~<bIY  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) E6A"Xo  
        If Sec = 0 Then i U$~H  
            Exit Sub &&X,1/  
        End If Fr8GGN~/  
         uPA (1  
        k = 0 b]+F/@h~]  
        Do While (paraCounter < paraTotal) And bContinue oY18a*_>M1  
            k = k + 1 ^QRg9s,T<  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then A]/o-S_  
                Exit Do y~ =H`PAE  
            End If /8h=6"  
            paraCounter = paraCounter + 1 d qn5G!fI  
            If k Mod 20 = 0 Then Yv;s3>r  
                Me.lbCounter.Caption = paraCounter KeQcL4<  
                DoEvents 5:h[%3'bB  
            End If )S)L9('IxT  
        Loop JF
.Lo;  
         ((k"*f2%  
         _6ZjF>f  
        Do While (paraCounter < paraTotal) And bContinue lS.Adl^k  
             my.EvN  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) \beO5]KS<  
            ShapeHeight = 0 %T{]l;5  
            ShapeWidth = 0 pS w/QO9  
           !.]JiT'o  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth )#}>,,S  
             d!
y*z  
            Select Case ParaType %X{Eupi FA  
                Case "【】表格内容" "#j}F u_!  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" 8vY-bm,e  
                Case "章" ;!4g
Dvm  
                    LastTitle0No = LastTitle0No + 1 senK(kbc  
                    '新一章开始，复位其下属标题编号 Q6@<7E]y  
                    LastTitle1No = 0
z*eBjHbF  
                    LastTitle2No = 0 HgF;[rq3Q  
                    LastTitle3No = 0 Cl}nPUoL  
                    LastTitle4No = 0 EiW|+@1  
                     1PkCWRpR  
                    k = Val(ttNo) )|F|\6:ne  
                    If k = 0 Then '非数字编号章节 2d !'9mA  
                        If ttNo <> NoSeries1(LastTitle0No) Then `C+<!)2  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString pE
4a~:  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText \2i7\U  
                        End If $"^K~5Q  
                    Else N6Ud(8*  
                        If Val(ttNo) <> LastTitle0No Then )u )=@@k21  
                            rText = "第" & LastTitle0No & ttString >1~ /:DJ  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText p~qe/  
                        End If x%G3L\5  
                         _IDZ.\'>$  
                    End If k"(]V  
                     9oWU]A\k>  
                    '章段落设置 $<^t][{  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 bmfM_oz  
                    .Paragraphs(paraCounter).Style = "QLNU章节" |W">&Rb<t#  
                    .Paragraphs(paraCounter).Range.Select 5</$dcG  
                    Selection.EndKey unit:=wdLine 7~/cz_  
                    tc = Replace(rText, vbCr, "") W(s4R,j  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False RdTM5ANT  
                Case "一级标题" aLJm%uW6m&  
                    LastTitle1No = LastTitle1No + 1 Eah6"j!B8n  
                    '新一级标题开始，复位其下属标题编号 Sjpx G@k  
                    LastTitle2No = 0 XIHN6aQ{X  
                    LastTitle3No = 0 E $@W~).!  
                    LastTitle4No = 0 11[lc2  
                     Lx^ eaP5  
                    If ttNo <> NoSeries1(LastTitle1No) Then [. 5m}V  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString (jgk! 6  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText %BqaVOKJ"f  
                    End If !_<6
}:ZB  
                   x*Lt]]A  
                     qLN^9PdEE  
                    '一级标题段落设置  格式：一、标题内容 -u2i" I730  
                    .Paragraphs(paraCounter).Range.Text = rText d8j1L/e  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" }htjT/Nm  
                    .Paragraphs(paraCounter).Range.Select }SN( ^3N  
                    Selection.EndKey unit:=wdLine =!O->C:  
                    tc = Replace(rText, vbCr, "") XIeLu"TSL  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False BX,)G HE  
                Case "二级标题" 7F
^d-  
                    LastTitle2No = LastTitle2No + 1 Sqo+cZ  
                    '新二级标题开始，复位其下属标题编号 ;;Q^/rkC  
                    LastTitle3No = 0 gE-y`2SU  
                    LastTitle4No = 0 >qjV{M  
                     `FP?9R6Y  
                    If ttNo <> NoSeries1(LastTitle2No) Then 1uw#;3<L  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString K}VCFV  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText Mqf Ns<2  
                    End If 6OES'3Cy  
                     ~GaGDS\V  
                    '二级标题段落设置 格式：(一)、标题内容 <B"sp r&1  
                    .Paragraphs(paraCounter).Range.Text = rText n_8[bkbi  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" E
dJL&*  
                     yPm2??5MW>  
                    .Paragraphs(paraCounter).Range.Select a&y^Ps6=  
                    Selection.EndKey unit:=wdLine 3FEJ 9ZyG  
                    tc = Replace(rText, vbCr, "") Lsmcj{1d  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False a V3:{oL  
                 |?`5~f  
                Case "三级标题" hRcb}>pr  
                    LastTitle3No = LastTitle3No + 1 C_.9qo]DT7  
                    '新三级标题开始，复位其下属标题编号 Y?VbgOM)  
                    LastTitle4No = 0 24mdhT|  
                     tT$OnZu&  
                    If Val(ttNo) <> LastTitle3No Then Ykbg5Z  
                            rText = LastTitle3No & ". " & ttString C$
3*[  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText xvr5$x|h  
                         UkV?,P@l  
                    End If GF'wDi}  
                    '三级标题段落设置 格式：1. 标题内容 w2)Ro:G  
                    .Paragraphs(paraCounter).Range.Text = rText OZ,kz2SF#  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" g*|j+<:7  
                    .Paragraphs(paraCounter).Range.Select -EjXVn! vQ  
                    Selection.EndKey unit:=wdLine 5Wt){rG0Z  
                    tc = Replace(rText, vbCr, "") 0J)s2&H  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False i=8iK#2 h  
                Case "四级标题" lo1Ui`V  
                    LastTitle4No = LastTitle4No + 1 kX 1}/l  
                     GP|=4T}Bf  
                    If Val(ttNo) <> LastTitle4No Then E h%61/  
                            rText = "(" & LastTitle4No & "). " & ttString `&$8/_`  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText Y Y:BwW:  
                     jcH@*c=%e  
                    End If )xGAe#E~j  
                    '四级标题段落设置 格式：(1). 标题内容 S;Bk/\2  
                    .Paragraphs(paraCounter).Range.Text = rText ])x1MmRg\  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" [uq>b|`RG  
                    .Paragraphs(paraCounter).Range.Select e%4?-{(  
                    Selection.EndKey unit:=wdLine ) nfoDG#O  
                    tc = Replace(rText, vbCr, "") yC,/R371k  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False #x%'U}sF  
                 v\0G`&^1  
                Case "表格标题" P:qmg"i@3  
                    LastTableNo = LastTableNo + 1 ,g`%+s7u  
                     qfkHGW?1/j  
                    If ttNo <> CStr(LastTableNo) Then G1"iu89d  
                            rText = "表" & LastTableNo & ". " & ttString weitDr6  
                            ErrMsg.AddItem "表格编号错误：" & ParaText ^S9y7b^;r  
                   z`y9<+  
                    End If o_b[
*  
                     {Z.6\G&q  
                    '表格名称段落设置 格式：表1. 表格名称 ));#oQol9  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" f0Q6sVZHa  
                    xe = Replace(rText, vbCr, "") !,WGd|oJ  
                    .Paragraphs(paraCounter).Range.Select p|4
qkJK8  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 ?0tg}0|   
                    Selection.Range.Text = xe ^?69|,  
                    Selection.EndKey .p`4>XA  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False h$>F}n j  
                 'm%{Rz>
j  
                Case "表格首行" # kI>  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" WA{igj@\  
                Case "图片标题" <_tmkLeZf  
                    LastFigureNo = LastFigureNo + 1 &v\F ah U  
                     ntiS7g e1  
                    If ttNo <> CStr(LastFigureNo) Then ]6&NIz`:,  
                            rText = "图" & LastFigureNo & ". " & ttString -wlj;U  
                            ErrMsg.AddItem "表格编号错误：" & ParaText _`$LdqgE  
                   l?Y^3x}j  
                    End If e5=d Ev  
                    '图片名称段落设置 格式：图1. 图名称 A5?"  
                    .Paragraphs(paraCounter).Range.Text = rText 8Of
Q :  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" D)_ C@*q  
                    .Paragraphs(paraCounter).Range.Select <3YZ0f f>  
                    Selection.EndKey unit:=wdLine ;`9f<d#\  
                    xe = Replace(rText, vbCr, "") >%JPgr/ 8  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False \/-c)  
                Case "正文" tiK?VwaKI  
                     '正文名称段落设置 Ycm)PU["  
                    .Paragraphs(paraCounter).Style = "QLNU正文" OI R5QH  
               Case "文献条目" 4DXbeQs:  
                    With .Paragraphs(paraCounter) #%"q0 "  
                        '.Range.Select lG*Rw-?a  
                        'Selection.ClearFormatting WKf<% E$  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” k15vs  
                        .Style = "QLNU参考文献" ]m]`J|%i  
                    End With z(PUoV:?  
               Case "图表注解" -!\3;/  
                    With .Paragraphs(paraCounter) 3KLUH=)P  
                        .Range.Font.NameFarEast = "楷体" _Fb}zPU!  
                        .Range.Font.NameAscii = "Times New Roman" kH!Z|Ps?R  
                        .Range.Font.Size = 9 '小5号字 I Mgd2qIC  
                         <?jdNM  
                        .Alignment = wdAlignParagraphCenter sE9FT#iE  
                        .LeftIndent = 0 ?@V R%z  
                        .RightIndent = 0 XGlt^<`  
                        .FirstLineIndent = 0 e_BG%+;G,  
                        .LineSpacing = 12 ,N/@=As9$  
                        .LineSpacingRule = wdLineSpaceExactly -H1=N  
                        .LineUnitAfter = 0 IS C.~q2  
                        .LineUnitBefore = 0 > =>/~dIb  
                        .OutlineLevel = wdOutlineLevelBodyText <QtZ6-;_f  
                        .PageBreakBefore = False BT_]= \zi  
                        .RightIndent = 0  K +7  
                        .WordWrap = True ^s,3*cAU  
                        .LineUnitAfter = 0.5 ^-;S&=  
                         lwn O  
                    End With wZrFu(_  
                Case Else .@dC]$2=  
                    '不作处理 wak26W>I3  
            End Select myx/|-V"F  
             <sdgL+&1h  
            '含有inlineshape的段落处理 A#uU]S  
            If ShapeHeight > 30 Then (Guzj*12  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 w$gvgz  
            End If gfk)`>E  
             e r" w{  
            If (ShapeWidth + ShapeHeight) > 150 Then a"~o'W7  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" ?0b-fL^^+l  
            End If 3f|}p{3  
             P{L=u74b{x  
            '段落计数器递 [ X*p [  
            paraCounter = paraCounter + 1 Jx*cq;`Vee  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter ` ]|X_!J-  
            Me.txtStatus.Text = ParaText e~h>b.~  
            DoEvents gW,
[X(  
        Loop F [qXIL)  
    End With H$6RDMU  
     <+8'H:wz  
    msg = "" :WhJDx`j  
     ,'NasL8?We  
    For i = 0 To Me.ErrMsg.ListCount - 1 6K2e]r  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) &K[*vyD  
    Next D6SUzI1+H  
     B6XO&I1c  
     
CB7dr&>  
     FU|brSt  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg _sjS'*]  
    Me.cmdCheck.Enabled = True rK~-Wz
wu  
    Me.txtStatus.Visible = True '1<Z"InU
 
    Me.lbParaType.Visible = False *%-<Ldv  
     0SpB2>_  
    bContinue = False zVhyAf  
End Sub &\zYbGU  
8K8u|]i  
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) 3CUQQ_  
    Dim pTEXT As String ;w{<1NH2+.  
     Z[vx0[av&  
    pTEXT = ChKRange.Text 3F9V,zWtTi  
     uf(ayDE  
    ParaType = "其它" D?|D)"?qb  
    TitleString = pTEXT D) *  
    TitleNo = "N/A" mrGV{{.  
     [hJ1]RW8  
    shpCounter = ChKRange.InlineShapes.Count <H[w0Z$  
    If shpCounter <> 0 Then s8j |>R|k  
        MaxShpHeight = 0: TotalShpWidth = 0 01bCP  
        For i = 1 To shpCounter ;qx#]Z0 <  
            k = ChKRange.InlineShapes(i).Height sYTz6-  
            l = ChKRange.InlineShapes(i).Width Rq4;{a/j  
            If k > MaxShpHeight Then C|{Sj`,XG  
                MaxShpHeight = k =4ygbk  
            End If Y#U.9>h  
            TotalShpWidth = TotalShpWidth + l D(cD8fn,J  
        Next v|?@k^Ms  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then ,n|si#  
            Exit Sub 1-RY5R}VR  
        End If Iil2R}1  
    End If `RTxc  
     6iFlz9XiI  
    '空行 !0 7jr%-~  
    If Len(pTEXT) <= 2 Then , 
c.^"5  
        Exit Sub I#l}
5e5  
    End If s"L&y <?)  
     gqaM<!]  
         kuY^o,u-1e  
    '是否为表格中的文字 >OG189O  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then !_glZ*t
L  
        ParaType = "表格内容" X<ex >sM  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber)
a[{qb  
        If k = 1 Then ; :e7Z^\/k  
            ParaType = "表格首行" N,t9X7G&  
        End If J _s`G  
        Exit Sub l9p  6I  
    End If E4#{&sRT  
     09Hrn  
    '例外情况：脚注 /%$Zm^8c  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then l;F"m+B!$  
        ParaType = "脚注" 9#E *o~1  
        Exit Sub iUKjCq02  
    End If ,%i Scr,z  
     ci,(]T+!  
    '例外情况：尾注 .[={Yx0!I  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then vrn4yHoZ  
        ParaType = "尾注" +]
l?JKV  
        Exit Sub  ^`H'L D  
    End If YOxgpQ:i  
     M-WSdG[AJ  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then [o^$WL?c
 
        ParaType = "页眉页脚" B=Hd:P|  
        Exit Sub .EYL  
    End If h*%p %t<  
     o.s'0xP]  
     dT`nR"  
    With regEX :J;U~emq
 
        .Global = True AvL /gt:  
         J%bNt)K}  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" BD6!,  
        If regEX.Test(pTEXT) Then 7
uB x  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") Y
A.&ap  
            TitleString = regEX.Replace(pTEXT, "$3") goM;Pf "<  
            TitleNo = regEX.Replace(pTEXT, "$1") ]+lT*6P*  
            ParaType = "章" g&RpE41x  
            Exit Sub =D zrM%  
        End If 3j#VKj+Uc  
         l;$F[/3a  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" IRW0.'Dn  
        If regEX.Test(pTEXT) Then XY0kd&N8  
            ParaType = "一级标题" |N,^*xP(6  
            regEX.Execute (pTEXT) N=mvr&arP  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") /Qgb t  
            TitleString = regEX.Replace(pTEXT, "$3") 3=S|U,  
            TitleNo = regEX.Replace(pTEXT, "$1") 8 Ku9;V Ek  
            Exit Sub ^& 3vGu9  
        End If ra^</o/  
         g$(Y\`zw  
        '全角或半角括号中的数字 tqZ91QpW  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$"
v[CR$@Y  
        If regEX.Test(pTEXT) Then (>`_N%_  
            ParaType = "二级标题" * :"*'  
            regEX.Execute (pTEXT) lL}6IZ5sb  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") UMcM& yu-  
            TitleString = regEX.Replace(pTEXT, "$5") @Z]0c=-+  
            TitleNo = regEX.Replace(pTEXT, "$2") 3mgvWR  
            Exit Sub 92-Xz6Bo9  
        End If (ls G4&\0F  
         )L<.;`g4x  
        '阿拉伯数字  1. 2. 5 nt3gVy  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" 5nPvEN /  
        If regEX.Test(pTEXT) Then  %Z;RY5  
            ParaType = "三级标题" l|g*E.:4  
            regEX.Execute (pTEXT) ;NP-tA)  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 R P{pEd  
            TitleString = regEX.Replace(pTEXT, "$3") NF$6yv9C  
            TitleNo = regEX.Replace(pTEXT, "$1") )Rr6@o  
            Exit Sub He_O+[sc  
        End If [bL
KjD  
         ]t[%.^5#  
        '全角或半角括号中的阿拉伯数字 "jZZ>\  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" 6/!:vsa"3  
        If regEX.Test(pTEXT) Then Rsx6vF8]5  
            ParaType = "四级标题" at>_EiS  
            regEX.Execute (pTEXT) aru2H6  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") UG v
IHm  
            TitleString = regEX.Replace(pTEXT, "$5") 6Ga'_P:  
            TitleNo = regEX.Replace(pTEXT, "$2") Uo3  
            Exit Sub 97c0bgI!+  
        End If }0~$^J  
         ``xm##K  
        '表格名称 r$<!?Z  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" e]<Syrk  
        If regEX.Test(pTEXT) Then ZllmaI  
            ParaType = "表格标题" 0GMb?/
  
            regEX.Execute (pTEXT) Vmz#u1gGT6  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) HB9"T5Pd*  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) 6Dd>ex!-A  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) HoB x0N9\2  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 t/i*.>7  
            Exit Sub Q}#4Qz~n  
        End If |dIR v  
         Ust +g4  
        '图片名称 Y58H.P  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" +;,{`*W+N  
        If regEX.Test(pTEXT) Then U<6)CW1;  
            ParaType = "图片标题" 74_?@Z(  
            regEX.Execute (pTEXT) LM<*VhX  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") c<13r=+  
            TitleString = regEX.Replace(pTEXT, "$3") .]9`eGVWj  
            TitleNo = regEX.Replace(pTEXT, "$1") 5N9Cd[4  
            Exit Sub EXdX%T\  
        End If R;"$PHD  
         9G6)ja?W  
        '参考文献 h(WlJCln  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 TF%n1H-sF  
        If regEX.Test(pTEXT) Then u7!gF&tA  
            ParaType = "文献条目" Uahh|>s  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") 6>?qBWW  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") eKP>}`  
            Exit Sub NK-}[!f  
        End If hC-uz _/3  
         c coi  
        prfx = Left(pTEXT, 2)  hyxv+m[  
        If prfx = "注：" Or prfx = "注:" Then CW`^fI9H  
            ParaType = "图表注解" M:O*_>KF  
            Exit Sub Jq1oQu|rs  
        End If i7RK*{  
         F%L"Q>aHW  
         #m#IBRD:  
        ParaType = "正文" O!PGZuF  
         fMwF|;  
    End With G-CL \G\n  
End Sub jS,Pu%fR  
FC 8<D  
Sub ConvertListToOrdinary() U& GPe
de  
    Dim st As Paragraph E2Sj IR}  
    With ActiveDocument Vc\
g"1x  
        For i = .Paragraphs.Count To 1 Step -1 4n#u ? )  
            Set st = .Paragraphs(i) 2<7pe@c98  
            lst = st.Range.ListFormat.ListString Iq|h1ie m+  
            If lst <> "" Then y^r'4zN'  
                st.Range.ListFormat.RemoveNumbers %<~EwnoT  
                st.Range.InsertBefore lst & " " c|%5SA  
            End If 
sta/i?n  
        Next II^Rp],>  
    End With S5|7D[*  
    Set st = Nothing uNewWtUb(  
End Sub h`Jc%6o  
T
T/=0^"  
Private Sub UserForm_Activate() (R=ZI  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" J rK{MhO  
    Me.lbTotal.Font.Bold = True ZW M:Wj192  
    Me.txtStatus.Visible = False  2  
    Me.cmdCheck.Enabled = True h5{//0 y  
1uo
|a  
End Sub !fs ~ >  
{9J|\Zz3  
iBWzxPv:z  
Sub CheckSuperScript() K-YxZAf  
    Selection.Find.ClearFormatting d{TcjZ  
    Selection.Find.Replacement.ClearFormatting nANl9;G  
    With Selection.Find /5%'q~  
        .Text = "[【\[［〖](*)[】\]〗］]" l|842N@1  
        .Replacement.Text = "[\1]" tE>F L  
        .Replacement.Font.Superscript = True &[`24Db  
        '.Replacement.Font.Color = wdColorBlue ^uo,LTq+  
        .Forward = True UXZ3~/L5 O  
        .Wrap = wdFindContinue .(
&6gB  
        .FORMAT = True ]:ca=&>  
        .MatchCase = False `+=Zq :0  
        .MatchWholeWord = False Gb2|e.z  
        .MatchByte = False oVqx)@$
K  
        .MatchAllWordForms = False ^uX"04>;  
        .MatchSoundsLike = False '3XOU.  
        .MatchWildcards = True QM!UMqdj  
    End With X6sZwb  
    Selection.Find.Execute Replace:=wdReplaceAll S|d /?}C|e  
End Sub B^19![v3T  
A?tCa*b^  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) hW~% :v  
    bContinue = False  H#F"n"~$  
    Set regEX = Nothing i<&z'A6&]*  
End Sub "P.sKhuo  
wz+m
Ff  
Sub CeateOrModifyStyle() H!NGY]z*  
' tzl,r"k3  
' HF*~bL  
Dim stl As Style :Gz$(!j1.'  
     +;H=_~b  
    Options.Pagination = False 5hqXMs  
     uA`e  
    On Error Resume Next bSM|"  
    For Each stl In ActiveDocument.Styles z:UkMn[  
        stl.Delete
W)`>'X`  
    Next C\rT'!Uk\Q  
    On Error GoTo 0 D}%VZA}].  
     Ym%#"  
    Set stl = Nothing DmoY],9I+p  
     =}ZY`O*/  
    DoEvents uP7|#>1%  
    On Error Resume Next !d0$cF):  
     ?:q"qwt$F  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph [p\xk {7Y  
     0"-H34M<D  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph 3{H!B&sb  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph &2@"zD  
     SdufI_'B  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph ~+6#4<M.~  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph "=s dn  
     ldG8hK  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph R||$Wi[$  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph 0$XrtnM  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph WKr4S<B8mr  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph
:wzbD,/M  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph ;[zZI~wh  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph ^`-Hg=d  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph 6 y"r'  
     qPN  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph 0o6r3xc;  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph "% i1zQo&  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph 2AqcabI9  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph X:FyNUa  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph "6e3Mj\  
     m:EYOe,w  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph .&=\ *cZc  
    On Error GoTo 0 -8:O?]+Q/  
    DoEvents q89yW)XG  
     -Hi_g@i*XW  
    'BaseStyle <qMX,h2  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False vr>J$ (F  
    With ActiveDocument.Styles("BaseStyle").Font aSm</@tO&  
        .NameFarEast = "宋体" uA?a DjA  
        .NameAscii = "Times New Roman" |/-# N  
        .NameOther = "宋体" qvsfU*wo?  
        .Size = 10.5 >iJxq6!  
        .Bold = wdUndefined @8YuMD;  
        .Italic = wdUndefined j%vxCs>  
        .Subscript = wdUndefined P^
-x  
        .Subscript = wdUndefined ,g P;XRe1  
         11$v~<M  
        .Underline = wdUnderlineNone aF=;v*  
        .UnderlineColor = wdColorAutomatic xZAg  
        .StrikeThrough = False 1_~'?'&^  
        .DoubleStrikeThrough = False PzjIM!>  
         HDo=WqG  
        .Outline = False J_ h\tM  
        .Emboss = False F&/}x15  
        .Shadow = False *nM.`7g*[  
        .Hidden = False v@X[0J_8  
        .SmallCaps = False B_r:daCS:  
        .AllCaps = False D-e^b'l  
        .Color = wdColorAutomatic hHt.No  
        .Engrave = False $~EY:  
        .Scaling = 100 Rlr[uU_  
        .Kerning = 1 I tn?''~;  
        .Animation = wdAnimationNone M~sP|Ha"+  
        .DisableCharacterSpaceGrid = False xoSBMf  
        .EmphasisMark = wdEmphasisMarkNone LQ$dT#z2A  
    End With BZQJ@lk5  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat }Ny~.EV5^  
        .LeftIndent = 0 OOsd*nX/  
        .RightIndent = 0 KE)^S [Da  
        .SpaceBefore = 0 yC}x6xG  
        .SpaceBeforeAuto = False z ISy\uka  
        .SpaceAfter = 0 XF4NRs  
        .SpaceAfterAuto = False )P/~{Ci:T&  
         < Lrd(b;  
        .LineSpacingRule = wdLineSpaceSingle I7ySm12}  
        .Alignment = wdAlignParagraphJustify [o'}R`5)  
         ?$7$# DX  
        .WidowControl = False  GwD"j]  
        .KeepWithNext = False v|kL7t)}  
        .KeepTogether = False !OH'pC5  
        .PageBreakBefore = False F,5}3$  
        .NoLineNumber = False IetV]Ff6  
         t5p#g<$  
        .FirstLineIndent = CentimetersToPoints(0) 'bef3P9`  
        .OutlineLevel = wdOutlineLevelBodyText k/xNqN(  
        .CharacterUnitLeftIndent = 0  m<9W #
 
        .CharacterUnitRightIndent = 0 _*(:6,8  
        .CharacterUnitFirstLineIndent = 0 [s!cc:JR
 
        .LineUnitBefore = 0 ]o8~b-  
        .LineUnitAfter = 0 7_7^&.Hh  
        .AutoAdjustRightIndent = True 87V
XVI  
        .DisableLineHeightGrid = True -}JRsQ+rgM  
         Z=?qf$.}  
        .FarEastLineBreakControl = True iL IKrU+`  
        .WordWrap = True z :$TW{%M  
        .Hyphenation = False vCR\lR+  
         /Hc0~D4|x  
        .HangingPunctuation = True YAF0I%PYU  
        .HalfWidthPunctuationOnTopOfLine = True Bq:: 5,v  
        .AddSpaceBetweenFarEastAndAlpha = True aG1[85:,\i  
        .AddSpaceBetweenFarEastAndDigit = True K)oN^  
        .BaseLineAlignment = wdBaselineAlignBaseline E<_+Tc  
    End With RK]."m0c~#  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False !P)7t`X  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll r,Pu-bhF  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese LZ9IE>s j  
    ActiveDocument.Styles("BaseStyle").NoProofing = False y/?;s]>b  
     Ks7k
aX  
    '一级标题题样式 *Oe;JqQkK  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") )\0c
2_w>  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" ?@_,_gTQ  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False PJcz] <  
    With ActiveDocument.Styles("QLNU一级标题").Font )&elr,b/y  
        .NameFarEast = "黑体" q->46{s|  
        .NameAscii = "Arial Black" \=g%W^i  
        .NameOther = "黑体" Z$@XMq!  
        .Name = "黑体" i `8Y/$aT  
        .Size = 16              '三号 M7lMOG(\  
        .Bold = True I=`efc]T  
        .Italic = wdUndefined [C~{g#  
        .Subscript = wdUndefined "2/VDB4!FG  
        .Superscript = wdUndefined v3jx2Z  
    End With W/R-~C e  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat t#J #DyY5  
         yIThzyS  
        .LeftIndent = CentimetersToPoints(0) zPoIs@  
        .RightIndent = CentimetersToPoints(0) [2
6([H  
        .FirstLineIndent = CentimetersToPoints(0) mCpoaGV_  
         xZ"kJ'C4}  
        .LineSpacingRule = wdLineSpaceSingle Y6@A@VJ  
        .Alignment = wdAlignParagraphCenter g>R md[!/  
         4fzM%ku  
        .WidowControl = True Y|i!\Ae  
        .KeepWithNext = True QO~T
uC  
        .KeepTogether = True ;,&1  
        .OutlineLevel = wdOutlineLevelBodyText o;:a6D`   
         80M4
~'3  
        .LineUnitBefore = 0.5 \E<)B#  
        .LineUnitAfter = 0.5 0g(hY:  
    End With w4+b zd Z  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False WxLILh  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll whg?X&j\V  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese fx4X!(w!B  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True CD0SXNi"zH  
    DoEvents ]pA}h.R#-  
     8eoDE. }  
    '二级 k4-C*Gx$h  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ?G-a:'1! 6  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" $}7WJz:  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False g'b)]Q  
    With ActiveDocument.Styles("QLNU二级标题").Font Wm ?R
B0  
        .NameFarEast = "黑体" 2?7a\s  
        .NameAscii = "Arial Narrow" /SD2e@x{U  
        .NameOther = "黑体" U`"nX)$  
        .Name = "黑体" dkf?lmC+M  
        .Size = 15        '小三号 .~ W^P>t  
        .Bold = False 93y.u<,2;  
        .Outline = False WaWx5Fx+  
        .Italic = wdUndefined FCmS3KIa,  
        .Subscript = wdUndefined G#0 4h{  
        .Superscript = wdUndefined t UW'E  
    End With o' DXd[y  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat UIv 2wA2  
        .LeftIndent = CentimetersToPoints(0) oM-@B'TK  
        .RightIndent = CentimetersToPoints(0) ',* 6vbII  
        .FirstLineIndent = CentimetersToPoints(0) gasl%&  
         7"y"%+*/  
        .LineSpacingRule = wdLineSpaceSingle !$+J7\&7p  
        .Alignment = wdAlignParagraphLeft Wc_Ph40C<_  
         N|1k6g=0  
        .WidowControl = True Lp/]iZ@  
        .KeepWithNext = True F3a"SKMW  
        .KeepTogether = True akQtre`5sd  
        .PageBreakBefore = False {B
yT,92  
        .OutlineLevel = wdOutlineLevelBodyText ^Q_0Zq^H  
         oZ~M`
yOz.  
        .LineUnitBefore = 0.5 |v{a5|<E  
        .LineUnitAfter = 0.5 Pz+8u&~p  
         C`x>)wm:  
    End With (#.)~poZ  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False [H)p#x  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll m5LP~Gb  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese T[eTT]Z{Ia  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True vexQP}N0  
    DoEvents nyPA
`)5F0  
     AuU:613]W8  
    '三级标题样式 NLF{W|X  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ~c3CyOab  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" an<tupi[E  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False ZD0Q<8%
 
    With ActiveDocument.Styles("QLNU三级标题").Font o*QhoDjc  
        .NameFarEast = "宋体" _B|g)Rdv  
        .NameAscii = "Times New Roman" Da8qR+*x  
        .NameOther = "黑体" r jL%M';  
        .Name = "黑体" Oox5${#^  
        .Size = 14               '四号 M|`%4vk>  
        .Bold = False femAVx}go  
        .Outline = False 4 ITSDx  
        .Italic = wdUndefined _"F(w"|  
        .Subscript = wdUndefined sM~|}|p  
        .Superscript = wdUndefined 1}!f.cWV(  
    End With PHD$E s  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat BZx#@356N  
        .LeftIndent = CentimetersToPoints(0) (N43?i v(  
        .RightIndent = CentimetersToPoints(0) gzHjD-g-<  
        .FirstLineIndent = CentimetersToPoints(0) g!%csf  
         $0K9OF9$
 
        .LineSpacingRule = wdLineSpaceSingle ]}G(@9  
        .Alignment = wdAlignParagraphLeft
Rm *"SG  
         crC];LMl/  
        .WidowControl = True te'<xfG  
        .KeepWithNext = True ?(U> )SvF  
        .KeepTogether = True c{#lKD<7  
        .PageBreakBefore = False `&>!a  
        .OutlineLevel = wdOutlineLevelBodyText -]P W\}w1  
         J2H8r 'T  
        .CharacterUnitLeftIndent = 0 f.'o4HSj  
        .CharacterUnitRightIndent = 0 _&JlE$ua7  
        .CharacterUnitFirstLineIndent = 2 e$tKKcj0T  
         )mZ`j.  
        .LineUnitBefore = 0.5 P*(lc:  
        .LineUnitAfter = 0 Vo(d)"m?  
    End With B69NL  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False K)0 6][,  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll q^dI!93n|  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese \aT._'=M+  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True $- #M~eZv  
    DoEvents )r1Z}X(#d  
     Jo h&Ay  
    '四级标题样式 #,  vN  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") P5vMy'1X  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" ,)Z^b$H]   
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False r"rID RQ"  
    With ActiveDocument.Styles("QLNU四级标题").Font 8N8B${X  
        .NameFarEast = "宋体" e[n T'e  
        .NameAscii = "Times New Roman" |g4!Yd
 
        .NameOther = "宋体" JCaT^KLz  
        .Name = "宋体" 3QS"n. d  
        .Size = 12               '小四号 TiF$',WMv  
        .Bold = True
^#%$?w>wI  
        .Outline = False m&|?mTo>m  
        .Italic = wdUndefined wEzLfZ Oz/  
        .Subscript = wdUndefined 0 x"3  
        .Superscript = wdUndefined &2#x(v  
    End With Q:kpaMA1P  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat F+Lq  
         NCSb`SC:  
        .LeftIndent = CentimetersToPoints(0) hlkf|H  
        .RightIndent = CentimetersToPoints(0) |2c'0Ibu  
        .FirstLineIndent = CentimetersToPoints(0) .6OE8w 1  
          NP^kbF  
        .LineSpacingRule = wdLineSpaceSingle o*I-~k  
        .Alignment = wdAlignParagraphLeft S`X;2\:  
         Vv=d *  
        .WidowControl = True F/RV{} 17E  
        .KeepWithNext = True 1/w['d4l!  
        .KeepTogether = True Nc]oAY  
        .PageBreakBefore = False '1r:z, o|  
        .OutlineLevel = wdOutlineLevelBodyText } "y{d@  
         j|HOry1E&  
        .CharacterUnitLeftIndent = 0 kS?!"zk>  
        .CharacterUnitRightIndent = 0 rxCuV  
        .CharacterUnitFirstLineIndent = 2 \kWceu}H,  
         wTIOCj  
        .LineUnitBefore = 0 l= !KZaH  
        .LineUnitAfter = 0 ;Cyt2]F  
         t_@%4Wn!1L  
    End With 8u;l<^<  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False D@d/O  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll :fpYraBM  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese +69sG9BA  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True AytHnp\H  
    DoEvents r"U$udwjg  
     8<?60sj  
    '正文校式 U#,2et6  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") }[l`R{d5q>  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" 0-4WLMx  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False Ql\{^s+  
    With ActiveDocument.Styles("QLNU正文").Font le|e 4f*+  
         kfA%
%A  
        .NameFarEast = "宋体" ='OPU5(;O  
        .NameAscii = "Times New Roman" HHoh//(\  
        .NameOther = "宋体" 'ei9* 4y  
        .Name = "宋体" )+mbR_@,O6  
         }L@!TWR-Qu  
        .Size = 12               '小四号 ga~rllm;i  
         3=5+NJ'8  
        .Bold = wdUndefined &Cdk%@Tj]B  
        .Italic = wdUndefined 't^OIil  
        .Subscript = wdUndefined Y@^MU->+  
        .Superscript = wdUndefined 0xC{Lf&  
         4( ^Ht  
        .Outline = False |{Z?a^-NJ  
        .Emboss = False P*R`3Y,  
        .Shadow = False &HZ"<y{j  
        .Hidden = False P",~8Aci(  
         V!3O 1  
        .DisableCharacterSpaceGrid = True W)w@ju$Ko  
    End With zj`!ZY?fv  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat \nPa>2r  
         {Sd{|R_  
        .LeftIndent = CentimetersToPoints(0) jcOxtDTSW  
        .RightIndent = CentimetersToPoints(0) H-0A&oG  
        .FirstLineIndent = CentimetersToPoints(0) aeE9dV~  
         A'6>"=ziP  
        .LineSpacingRule = wdLineSpaceExactly .azdAq'r&\  
        .LineSpacing = 20 +&-/$\"  
        .Alignment = wdAlignParagraphLeft i>q]U:U  
         (K>5DU  
        .WidowControl = False 0sk*A0HX-  
        .KeepWithNext = False IM)\-O\Wd  
        .KeepTogether = False 1|n,s-  
        .PageBreakBefore = False (+bk +0  
        .Hyphenation = False z+NXD4  
         0j4bu}@  
        .OutlineLevel = wdOutlineLevelBodyText eA#J7=eC  
         hq$:62NYg  
       ;l5F il,3  
        .CharacterUnitLeftIndent = 0 EQz`o+  
        .CharacterUnitRightIndent = 0 +vBq,'k`  
        .CharacterUnitFirstLineIndent = 2 I`E9]b(w  
         nP4jOq *H  
        .LineUnitBefore = 0 .v0.wG  
        .LineUnitAfter = 0 8KT|ixs  
        .SpaceBefore = 0 )aOg_*~  
        .SpaceAfter = 0 AXz'=T}{  
         )iluu1,o  
        .DisableLineHeightGrid = True oC.:mI  
    End With I6'U[ )%  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False ;VYL7Xu](  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll i@Q)
`>4  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese _~=X/I R  
    ActiveDocument.Styles("QLNU正文").NoProofing = True @+:S'mAQC  
    DoEvents S#_i<u$$  
     x(5>f9bb  
    '图片段落样式 JTQ$p*2]  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") 0b~5i-zM/  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" :kflq  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False 6 }qNH29  
    With ActiveDocument.Styles("QLNU图片段落").Font VL&E2^*E  
        .Size = 12               '小四号 Nx;U]O6
A  
        .Italic = wdUndefined "+r8izB  
        .Subscript = wdUndefined avykg(  
        .Superscript = wdUndefined \BbemCPAm  
    End With wp-*S}TT  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat 2\lUaC#E  
         2|kx:^D p  
        .LeftIndent = CentimetersToPoints(0) P0DvZV8  
        .RightIndent = CentimetersToPoints(0) >j_ ,3{eJ  
        .FirstLineIndent = CentimetersToPoints(0) ;0P2nc:U~  
         n4qj"xQ  
        .LineSpacingRule = wdLineSpaceSingle :_i1)4[!  
        .Alignment = wdAlignParagraphCenter X@5!I+u\L  
        .KeepWithNext = True =MRg  
        .OutlineLevel = wdOutlineLevelBodyText 5A Vo#}&\  
         oAA%pZ@  
        .CharacterUnitLeftIndent = 0 9]Uvy|  
        .CharacterUnitRightIndent = 0 92bvmP*o4  
        .CharacterUnitFirstLineIndent = 0 \O^b|0zc  
         S;MS,R  
        .LineUnitBefore = 0 `8KWZi4 ]  
        .LineUnitAfter = 0  g  O,X  
    End With [9~Bau  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False %#yC
p2  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll ,cYU
 
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese W$v5o9\Px  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True X'IW&^
kI  
    DoEvents Y)g7 E"  
     {1>V~e8t  
     h$G&4_O  
    '第X章 |wKZ-6  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") =Qp~@k=2  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" [>oq~[e)?  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False /H^=`[Mr  
    With ActiveDocument.Styles("QLNU章节标题").Font t+W+f  
        .NameFarEast = "黑体" ;Q:^|Fw!F  
        .NameAscii = "Arial Black" 3 =KfNz_  
        .NameOther = "Arial Black" TfDx> F$  
        .Name = "黑体" 4[9~g=
y>  
        .Size = 16 <hkg~4EKc  
        .Bold = True T`Sp!  
        .UnderlineColor = wdColorAutomatic IFH%R>={  
        .Outline = False e$45OL  
        .Italic = wdUndefined kNMhMEez  
        .Subscript = wdUndefined uw&GXOzew9  
        .Superscript = wdUndefined IE+$ET>t  
        .Scaling = 100 G5Y 8]N  
        .DisableCharacterSpaceGrid = True  $e_A( |  
    End With $A9!} `V  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat b-@6w(j  
        .LineSpacingRule = wdLineSpaceSingle O+@"l$;N  
        .Alignment = wdAlignParagraphCenter ;KWR/? ec  
        .WidowControl = True *Ny^XQ_X  
        .KeepWithNext = True Gyw@+
(l  
        .KeepTogether = True [58xT>5 `m  
        .PageBreakBefore = True "$;=8O5O  
        .OutlineLevel = wdOutlineLevelBodyText 3YR6@*!f/  
         L8Z[Ly+_  
        .LeftIndent = CentimetersToPoints(0) DAj@wn3K?  
        .RightIndent = CentimetersToPoints(0) w6'o<=  
        .FirstLineIndent = CentimetersToPoints(0)  ^GB9!d.  
         <:W]uT  
        .CharacterUnitLeftIndent = 0 nG1mx/w  
        .CharacterUnitRightIndent = 0 5tX|@Z: z  
        .CharacterUnitFirstLineIndent = 0 l&dHH_m3  
         '{@hBB+ D  
        .LineUnitBefore = 1 Jb#*QJ=  
        .LineUnitAfter = 0.5 8G?'F${`  
        
hT>h
  
        .AutoAdjustRightIndent = False XD<7d")I  
        .DisableLineHeightGrid = True `f}}z5
 
        .FarEastLineBreakControl = True  2(YZTaY  
        .WordWrap = True xYtY}?!"  
    End With dur}3oS0p  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False <=/v%VXPm  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll P)XkqOGpT9  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese BBm.;=8@ ^  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True Hz`rw\\Xq  
    DoEvents vS6}R 5  
     3x#=@i  
    '表格标题 ! %S9H2Lv  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 4^1{UlCop  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" tYC`?HT  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False jX$TiG  
    With ActiveDocument.Styles("QLNU表格标题").Font ZsirX~W<  
        .NameFarEast = "楷体" yYkk0 3  
        .NameAscii = "Arial" eOt T*  
        .Name = "楷体" Psp3~Kg  
        .Size = 10.5 vtc}
)s\  
        .Bold = True cYFR.~p  
        .Underline = wdUnderlineNone ^VR1whCrx  
        .Italic = wdUndefined 72GXgah  
        .Subscript = wdUndefined
U{q6_z|c  
        .Superscript = wdUndefined ?<YtlqL  
        .Color = wdColorAutomatic R|Z$aHQ  
    End With (9CB&LZ(+E  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat L~cswG'K  
         c BQ|mA  
        .LineSpacingRule = wdLineSpaceSingle .taJCE  
        .Alignment = wdAlignParagraphCenter c (O+s/  
        .KeepWithNext = True &n|#jo(gS  
        .KeepTogether = True /XjIm4EN  
        .OutlineLevel = wdOutlineLevelBodyText LS{g=3P0  
         WIb\+!  
        .LeftIndent = CentimetersToPoints(0) ;``*]tY$  
        .RightIndent = CentimetersToPoints(0) OY*BVJ^  
        .FirstLineIndent = CentimetersToPoints(0) a.v$+}+.[,  
         HWx
k>F0  
        .CharacterUnitLeftIndent = 0 L%ND?'@  
        .CharacterUnitRightIndent = 0 t48(,  
        .CharacterUnitFirstLineIndent = 0 s<cg&`u,<M  
         `zAV#   
        .LineUnitBefore = 1 !u.{<51b  
        .LineUnitAfter = 0 N{IY\/;\  
         f#pT6  
    End With ?D/r1%Z  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False 7 6~x|6)  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll )NGBA."t  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese r*C:)z.}  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True g2l|NI#c^  
    DoEvents ;'{:}K=h  
E j@M\  
    '表格首行 Z~F% K~(  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") >G92k76G  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False :W<aga;J  
    With ActiveDocument.Styles("QLNU表格首行").Font B08q/qi  
        .NameFarEast = "楷体" K2$mz  
        .NameAscii = "Times New Roman" 2lDgvug  
        .Name = "楷体" RXkE"H{  
        .Size = 9 6|r` k75.  
        .Bold = True b#FN3AsR  
        .Underline = wdUnderlineNone Xw!eB?A  
        .Italic = wdUndefined S3PW[R@=  
        .Subscript = wdUndefined DZ?>9W{  
        .Superscript = wdUndefined l7Y^C1hM
 
    End With Y.sf^}  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat j0L9Q|s  
        .LineSpacingRule = wdLineSpaceSingle +V4BJ/H  
        .Alignment = wdAlignParagraphCenter xojy[c#  
         M@UkXA
}  
        .LeftIndent = CentimetersToPoints(0) lY[>}L*H8  
        .RightIndent = CentimetersToPoints(0) - o
$S=  
        .FirstLineIndent = CentimetersToPoints(0) ;LELC5[*s  
         "ZEJL.Wy  
          7 a !b}  
        .CharacterUnitLeftIndent = -0.5 >P/kb fPA  
        .CharacterUnitRightIndent = -0.5 _tS<\zy@y  
        .CharacterUnitFirstLineIndent = -0.5 -N(y+~wN  
         WM}:%T-  
        .LineUnitBefore = 0 6Ii2rEzD  
        .LineUnitAfter = 0 %?J\P@  
        .SpaceBefore = 0
d~tG#<^`  
        .SpaceAfter = 0 1wmS?  
         k ~lj:7g~  
    End With HdGAE1eU]}  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False eXx6b~D  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll d}3<nz,  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese - q[T0^eS  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True M c oHV]x  
    DoEvents oOy@X =cw  
RX4O1Z0  
    '表格内容 _Sj S^z~  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") 2f]:n  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False AGQCk*dm  
    With ActiveDocument.Styles("QLNU表格内容").Font J\b,rOIf  
        .NameFarEast = "楷体" e2*0NT^R  
        .NameAscii = "Times New Roman" B9KY$^J  
        .Name = "楷体" yc8FEn!)&  
        .Size = 9 lSC3m=4g  
        .Bold = False q]=.Aik  
        .Underline = wdUnderlineNone cRsLt/ Wr  
        .Italic = wdUndefined BoG/Hd.S  
        .Subscript = wdUndefined 7= 0uG  
        .Superscript = wdUndefined VV)PSodb  
    End With T9jp*  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat L.$9ernVY  
        .LineSpacingRule = wdLineSpaceSingle -v8Jn#f  
        .Alignment = wdAlignParagraphCenter *Af]?-|^{#  
         d*khda;Vj  
        .LeftIndent = CentimetersToPoints(0) u{"o*udU  
        .RightIndent = CentimetersToPoints(0) T/p}Us  
        .FirstLineIndent = CentimetersToPoints(0) [4]lAxrRF  
         {cnya*  
        .CharacterUnitLeftIndent = -0.5 {H#1wu^]O$  
        .CharacterUnitRightIndent = -0.5 DKm`  
        .CharacterUnitFirstLineIndent = -0.5 w&f8AY)#]4  
        .LineUnitBefore = 0 {6^c3R[  
        .LineUnitAfter = 0 ?`_US7.@  
        .SpaceBefore = 0 }O
J*o  
        .SpaceAfter = 0 h`Vb#5ik  
    End With  St-:+=V_  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False aDb@u3X@  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll M7/P&d  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese Y}7'OM  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True 9E) *X  
    DoEvents h']R
P  
18z{d9'F   
    '图片标题 -20 o%t  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 4,tMaQ  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" 4%LG9hS  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False %h=)>5- T  
    With ActiveDocument.Styles("QLNU图片标题").Font d*,% -Io  
        .NameFarEast = "楷体" o<1
e-  
        .NameAscii = "Times New Roman" 9*GwW&M%1_  
        .Name = "楷体" .FK[Y? ci#  
        .Size = 10.5 I:U/%cr,  
        .Bold = True @/l
{  
        .Underline = wdUnderlineNone A3*ti!X<6  
        .Italic = wdUndefined k:4 Zc3  
        .Subscript = wdUndefined /p~"?9b[ i  
        .Superscript = wdUndefined f)H6 nl7r  
        .Outline = False h#@l'Cye  
        .Shadow = False KGxF3xS*7  
        .Color = wdColorAutomatic ( t#w@<  
    End With `* "u"7e  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat 10_eUQ N  
        .LineSpacingRule = wdLineSpaceSingle oF, XSd  
        .Alignment = wdAlignParagraphCenter %/>\`d?  
         x9xb4ZW  
        .KeepWithNext = wdUndefined p18-yt; 1  
        .KeepTogether = True ?{?mA
bc  
        .OutlineLevel = wdOutlineLevelBodyText NoO>CjeFb  
         "5 PP<A,F(  
        .LeftIndent = CentimetersToPoints(0) W:O<9ZbQ_  
        .RightIndent = CentimetersToPoints(0) %eGxQDIXg  
        .FirstLineIndent = CentimetersToPoints(0) T#6']D  
         %E?:9. :NJ  
        .CharacterUnitLeftIndent = 0 q@F"fjWBr  
        .CharacterUnitRightIndent = 0 yA?>v'K
 
        .CharacterUnitFirstLineIndent = 0 m8n!<_NFt(  
         g_G?gO  
        .LineUnitBefore = 0 C$){H"#  
        .LineUnitAfter = 0 5'@J }7h  
    End With #x1AZwC  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False A^q= :ofQ  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll V.)y 7B  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese OOQfa#~k  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True /*`BGNkYY  
    DoEvents nMx0+N1  
.3?'+KZ,  
    '目录项 o+;=C@,'  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") 0*L|rJf  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" Wy@Z)z?  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False nL5Gr:SLo  
    With ActiveDocument.Styles("QLNU目录项").Font [q cT?h  
        .NameFarEast = "黑体" wY
SvI  
        .NameAscii = "Times New Roman" #pBAGm3  
        .NameOther = "Times New Roman" !H{)L@f  
        .Name = "黑体" +P/"bwv0  
        .Size = 10.5 t>7t4>X  
        .Bold = False ;38W41d{  
        .Italic = wdUndefined .{k(4_Q?I  
        .Underline = wdUnderlineNone oo)P(_"u  
        .Color = wdColorAutomatic y$r^UjJEO  
        .Superscript = wdUndefined 8A"[n>931  
        .Subscript = wdUndefined KSIH1E  
    End With & d\`=e  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat aO.'(kk8  
         I{<6GIU+  
        .LineSpacingRule = wdLineSpaceSingle d8<Lk9H9R  
        .Alignment = wdAlignParagraphLeft OHssUt  
         `]\4yTd  
        .WidowControl = False Xx[ LK  
        .KeepWithNext = False )b  m|],'  
        .KeepTogether = False >C+0LF`U  
        .PageBreakBefore = False 7loCb4Hv
 
        .NoLineNumber = False ?=jmyDXH!  
        .OutlineLevel = wdOutlineLevelBodyText $5G vF1  
         LeO ))  
        .LeftIndent = CentimetersToPoints(0) =x>z|1  
        .RightIndent = CentimetersToPoints(0) 1B'i7  
        .FirstLineIndent = CentimetersToPoints(0) Odxq]HlbO  
         r /HKxXT  
        .CharacterUnitLeftIndent = 0 vVc:[i
  
        .CharacterUnitRightIndent = 0 |2CW!is  
        .CharacterUnitFirstLineIndent = 0 ->n<9  
         bv9\Jp0c  
        .LineUnitBefore = 0 g-pDk*|I,Q  
        .LineUnitAfter = 0 JmrQDO_(  
    End With =vT3SY  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False 4U<'3~RN  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll VXQS~#dQj  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot a[\,K4l  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese qnW5I_
]  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True 8H./@~_ =  
    DoEvents ?4Lb*{R  
     Fly@"W4a  
    '参考文献 vNLf) B  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") THJ KuWy  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" EAF<PMb  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False @
pQv}%  
    With ActiveDocument.Styles("QLNU参考文献").Font v|VY5vN  
        .NameFarEast = "宋体" ($E(^p% O  
        .NameAscii = "Times New Roman" $JqdI/
s  
        .NameOther = "Times New Roman" |~8\{IcZ  
        .Name = "Times New Roman" "sz LTC]*6  
        .Size = 12 *0{M Am  
        .Bold = False LnZ*,>1Z  
        .Italic = wdUndefined Bh:AY@k  
        .Subscript = wdUndefined q?[{fcNh$  
        .Superscript = wdUndefined l"}W $3]u$  
        .Underline = wdUnderlineNone mvVVPf9  
        .UnderlineColor = wdColorAutomatic [ w  
        .Color = wdColorAutomatic 9r+`j  
        .Engrave = False nf,>l0,,'  
    End With eM/|"^%  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat 1]A%lud4  
         aBr%"&Z.MG  
        .LineSpacingRule = wdLineSpaceExactly `PSr64h
:D  
        .LineSpacing = 16 fbB(WE+  
        .Alignment = wdAlignParagraphLeft idGkX ?  
        .WidowControl = False /AJ^wY  
        .KeepWithNext = False SjKIn-  
        .KeepTogether = False bVt
boHlY  
        .PageBreakBefore = False <3P?rcd,5K  
        .OutlineLevel = wdOutlineLevelBodyText kOVx]
=  
         1KruGq~  
        .LeftIndent = CentimetersToPoints(0) h?.6e9Y4  
        .RightIndent = CentimetersToPoints(0) 6'(5pt  
        .FirstLineIndent = CentimetersToPoints(0) 86/CA[Y-  
         dS0G+3J&+E  
        .CharacterUnitLeftIndent = 0 4@5rR~DQq  
        .CharacterUnitRightIndent = 0 :|<D(YA  
        .CharacterUnitFirstLineIndent = -2 b6bmvHD  
         QoDWR5*^D  
        .LineUnitBefore = 0 )jR:\fe  
        .LineUnitAfter = 0 Mb\~W UWI  
        .SpaceBefore = 0 TnL%_!V!  
        .SpaceAfter = 0 p!' "hx  
         *Zt)J8C  
    End With ;&
WN%L*  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False :KgLjhj|)  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll TmKO/N@}  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS o80pmy7@  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True [H0jDbN  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese pTGq4v@6x  
    DoEvents u~LisZ&tP  
a&#Z=WK4  
    ' EM vV  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") 20^F -,z  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" )7q;Fm_/  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False hz Vpv,|G  
    With ActiveDocument.Styles("QLNU论文题目").Font <^R\N#  
        .NameFarEast = "黑体" dulW!&*No  
        .NameAscii = "Arial Black" hrZ~7 0r  
        .NameOther = "Arial Black" ?P<&8eY  
        .Name = "Arial Black" \VHi   
        .Size = 16 8PXleAn  
        .Bold = False Vt n$*ML  
        .Italic = wdUndefined _ H$Cm  
        .Superscript = wdUndefined mt fDl;/D  
        .Subscript = wdUndefined j0=`Jf  
        .Underline = wdUnderlineNone |1g2\5Re  
        .UnderlineColor = wdColorAutomatic (oq(-Wv  
        .Color = wdColorAutomatic )#ic"UtR  
>m}.}g8  
    End With akm)X0!-}  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat )K@ 20Q+0K  
        .LineSpacingRule = wdLineSpaceSingle [+{ ot   
        .Alignment = wdAlignParagraphCenter uAzVa!)  
        .WidowControl = True RK'3b/T  
        .KeepWithNext = True {aGQ[MH\9  
        .KeepTogether = True &wNN| fH  
        .PageBreakBefore = True q5lRc=.b[  
        .NoLineNumber = False z9h`sY~  
        .OutlineLevel = wdOutlineLevelBodyText 5 tP0dQYd
 
         }-zx4<4BH  
        .LeftIndent = CentimetersToPoints(0) 5y=X?hF~)  
        .RightIndent = CentimetersToPoints(0) w#Nn(!VR  
        .FirstLineIndent = CentimetersToPoints(0) Ip8 Ap$  
         *Ei~2O}  
        .CharacterUnitLeftIndent = 0 kt[#@M!}  
        .CharacterUnitRightIndent = 0 PwF}yxkI  
        .CharacterUnitFirstLineIndent = 0 k49CS*I  
         '
AeU  
        .LineUnitBefore = 1 t=XiSj\n  
        .LineUnitAfter = 1 s<:"rw`  
         ?aSL'GI  
        .BaseLineAlignment = wdBaselineAlignAuto LrF'Hd=O  
    End With }xLwv=Ia  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False wH|\;M{0V1  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll g/`i:=  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS X?>S24I"9  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True umrRlF4M;  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese "kP.Kx!  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True m|24)%Vj;=  
    DoEvents 8Y5* 1E*  
     k]R O=/ ?M  
    '中文摘要 "~]9}KM}3W  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") b\=0[kBQw  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" ><\mt  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False e{=7,DRH<  
    With ActiveDocument.Styles("QLNU中文摘要").Font EoQ.d|:g  
        .NameFarEast = "宋体" CFul_qZ/e  
        .NameAscii = "Times New Roman" oVl:./(IB  
        .NameOther = "Times New Roman" Pl1:d{"d  
        .Name = "Times New Roman" !G\1$"T$  
        .Size = 12 hH"3Y}U@  
        .Bold = wdUndefined r}f-.Fo  
        .Superscript = wdUndefined HP ]Xh~aP  
        .Subscript = wdUndefined J4`08,  
        .Italic = wdUndefined WgE~H)_%  
        .Underline = wdUnderlineNone g'pE z  
        .UnderlineColor = wdColorAutomatic 4yRT!k}o  
        .Color = wdColorAutomatic @sfV hWG  
    End With r2""p  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat YI%7#L7C  
        .LineSpacingRule = wdLineSpaceExactly zXcSE"   
        .LineSpacing = 20 YL PiK  
        .Alignment = wdAlignParagraphLeft V_+3@C  
         akd~Z  
        .WidowControl = False O;H/15j:sK  
        .KeepWithNext = False p@cPm8
L3  
        .KeepTogether = True yc%AkhX*  
        .PageBreakBefore = False yaR|d3ef?4  
        .NoLineNumber = False =b`>ggw#  
        .OutlineLevel = wdOutlineLevelBodyText /^#} \ <;  
         0>Mm |x*5  
        .LeftIndent = CentimetersToPoints(0) }[AIE[  
        .RightIndent = CentimetersToPoints(0) cB -XmX/  
        .FirstLineIndent = CentimetersToPoints(0) eWwSD#N#  
         "ajZ&{Z  
        .CharacterUnitLeftIndent = 0 f$2lq4P{  
        .CharacterUnitRightIndent = 0 lJ7k4ua\  
        .CharacterUnitFirstLineIndent = 2 .WyI.Y1  
        .LineUnitBefore = 0 i"JF~6c<  
        .LineUnitAfter = 0 ,{'~J @  
         JG/sKOlA  
    End With NNe'5q9  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False ?[XH`c,  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll H7l[5ib  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS ]t(g7lc}U  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True 3D<P [.bS  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese q#OLb"bTr  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True c%xxsq2n  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete F<'g6f  
    DoEvents =@3Qsd  
     D#(A?oN  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 9oc[}k-M  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" ~0/=5 dC  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False F>^k<E?,C  
    With ActiveDocument.Styles("QLNU英文标题").Font v`w
P db  
        .NameFarEast = "黑体" *:YW@Gbm  
        .NameAscii = "Arial Narrow" c (\-7*En  
        .Name = "Arial Narrow" ^gb2=gWZ<  
        .Size = 16 N66jFRA;x  
        .Bold = True CZ]+B8Pl(x  
        .Bold = wdUndefined v+
Mt
/8  
        .Superscript = wdUndefined .>}we ~O  
        .Subscript = wdUndefined %eD&2$q*  
        .Italic = wdUndefined cG"jrQ  
         \BJnJk!%  
        .Underline = wdUnderlineNone /eIwv31  
        .UnderlineColor = wdColorAutomatic A \4Gq  
        .StrikeThrough = False .@B\&U7  
        .DoubleStrikeThrough = False >S
t  
    End With *l7 ojv  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat 6 _73  
        .LineSpacingRule = wdLineSpaceSingle YJ
3970c/M  
        .Alignment = wdAlignParagraphCenter 0CTI=<;  
        .WidowControl = True uidE/7  
        .KeepWithNext = False X-n'?=  
        .KeepTogether = False g@nE7H1V  
        .PageBreakBefore = False X^aujK^ @  
        .NoLineNumber = False -$e\m] }Z  
        .FirstLineIndent = CentimetersToPoints(0) }O o  
        .OutlineLevel = wdOutlineLevelBodyText zaoZCyJT%  
         It]CoAo+  
        .LeftIndent = CentimetersToPoints(0) Q|pz].0  
        .RightIndent = CentimetersToPoints(0) #lJF$  
        .FirstLineIndent = CentimetersToPoints(0) g{<3* ,  
         4=q\CK2^A  
        .CharacterUnitLeftIndent = 0 'BUdySng  
        .CharacterUnitRightIndent = 0 =faV,o&{`  
        .CharacterUnitFirstLineIndent = 0 60`y=!?f  
         P6IhpB59  
        .LineUnitBefore = 1 Xc Pn  
        .LineUnitAfter = 1 -O(.J'=8  
         4<lZ;M"  
    End With f3yZx!K_Br  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False q=96Ci_a  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll B623B HwS  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS $]Fe9E?   
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True eQC`e#%  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese V]vk9M2q[l  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True i ;X'1TN(y  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete _Z8zD[l  
    DoEvents ;| \Ojuf  
Q^mJ_~  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") C 
#TS  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" [dt1%DD`M  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False Cs*u{O  
    With ActiveDocument.Styles("QLNU英文摘要").Font QV?\?9(  
        .NameFarEast = "宋体" 0D.YO<PU  
        .NameAscii = "Arial" n'M}6XUw  
        .NameOther = "Arial" :UScbPG  
        .Name = "Arial" JY >]u*=  
        .Size = 12 !sR`]0  
        .Bold = wdUndefined JNMZn/  
        .Italic = wdUndefined u_:" u  
        .Superscript = wdUndefined @x{;a9y  
        .Subscript = wdUndefined gVZ~OcB!W  
    End With XqJ@NgsY  
     *7-uQKp  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat s \kkD*  
         W}T+8+RU  
        .LineSpacingRule = wdLineSpaceExactly B&.XGo)  
        .LineSpacing = 20 :T'"%_d5  
         u
4)i7  
        .Alignment = wdAlignParagraphJustify 1h)I&T"kZ  
         .^Ek1fi.  
        .WidowControl = False `D?vmSQ  
        .KeepWithNext = False oq0G@  
        .KeepTogether = False lIOLR-:4j  
        .PageBreakBefore = False L#NPt4Sz+  
        .NoLineNumber = False _-^KqNyy  
         :L\@+}{(c  
        .OutlineLevel = wdOutlineLevelBodyText IClnh1=  
         x>Q#Bvy  
        .LeftIndent = CentimetersToPoints(0) 6.K)uQgjmv  
        .RightIndent = CentimetersToPoints(0) lT$A;7
[  
        .FirstLineIndent = CentimetersToPoints(0) \&W~nYXq"  
         Bd\p!f<  
        .CharacterUnitLeftIndent = 0 qU=$ 0M  
        .CharacterUnitRightIndent = 0 sq :ff  
        .CharacterUnitFirstLineIndent = 2 d_]MqH>R\  
         s6KZV@1  
        .LineUnitBefore = 0 eb:
uh!  
        .LineUnitAfter = 1 N %0F[sY6  
         #kV=;(lq  
    End With tWc!!Hf2j  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False :r#FI".qx  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll Pb[wysy  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS *4r;H2%c  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False nwV\[E  
    DoEvents \/lS!+~'']  
N^`F_R1Z  
    Options.Pagination = True 6'*?zZrz  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." V1"+4&R^T_  
    DoEvents 1[B?nk  
    ActiveDocument.Repaginate 501|Y6ptl  
]2Lwd@  
End Sub Kb4u)~S:  
&|gn%<^  
=_v_#;h&  

姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 #msk'MVt  
=|uX?  

引用

引用第20楼newport93于06-14-2010 13:47发表的  : Y_f6y9?ZE  
c< \:lhl  
老五，I 服了U。 z!t&zkAK  
~fQ#-ekzqk  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 PsLuyGR.<  

P3@
[x