Dim bContinue As Boolean W,6q1  
JI]Lz1i  
Dim regEX As New RegExp ,--#3+]XU  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 X-(
( [A  
DSqA}r  
Dim LastTitle0String As String, LastTitle0No As Long
@y7KP$t  
Dim LastTitle1String As String, LastTitle1No As Long :XFQ}Cl  
Dim LastTitle2String As String, LastTitle2No As Long :JG5)H}j+  
Dim LastTitle3String As String, LastTitle3No As Long 'Xwv,  
Dim LastTitle4String As String, LastTitle4No As Long \O"H#gt  
Dim LastTitle5String As String, LastTitle5No As Long Zt!$"N.,  
Dim LastTabelString As String, LastTableNo As Long n'^`;-   
Dim LastFigureString As String, LastFigureNo As Long T$"~Vu  
DZ2gnRg  
Dim strSeperator As String F$tzsz,9n  
pJ}U'*Z2  
Sub ConvertWidth(fTEXT As String, rText As String) Mb2a;s  
        Selection.Find.ClearFormatting ;&=CZ6vH  
        Selection.Find.Replacement.ClearFormatting /)J]ItJlz  
        Selection.Find.Wrap = wdFindContinue 8|)!E`TKSV  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText Kt*
fQ `9  
        DoEvents \99'#]\_/E  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True %C,zR&]F  
End Sub ^6kl4:{idE  
"[~yu* S  
Sub ClearDomain() xjbI1qCfe  
        With Selection.Find k1xx>=md|C  
            .ClearFormatting 36(qe"s  
            .Replacement.ClearFormatting .:}<4;Qz94  
            .Wrap = wdFindContinue S?JCi=  
            Me.txtStatus.Text = "清除所有域代码" HJN GO[*g  
            DoEvents S1^/W-yoc~  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False xIm2t~i
o  
        End With gU+yqT7=  
End Sub T90O.]S  
;X+tCkzF  
Private Sub cmdCheck_Click() eUQmW^  
    bContinue = True DCiU?u~  
    Dim NoSeries1(1 To 16) As String 8A&N+sT  
    Dim NoSeries2(1 To 16) As String ,Ohhl`q(  
    Dim NoSeries5(1 To 16) As String X5/j8=G H`  
    Dim NoSeriesRM(1 To 16) As String ]rj~3du\  
    Dim paraTotal As Long, ParaText As String DSRc4|L
 
    Dim ttString As String, ttNo As String yg'CL/P  
     bT2c&VPCE  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long ^UKY1Q.  
vw!7f|Pg ~  
    Me.txtStatus.Visible = True 7QTS@o-  
    Me.lbParaType.Visible = True $7Hwu^c(  
    Me.cmdCheck.Enabled = False ,H"}Rw
 
     wE.jf.q  
     ##Pzc~xSn  
     a%m )8N;C  
     8Pa*d/5Y(  
    Dim ParaType As String, rText As String 2QbKh)  
     'XKfKv >;  
    Selection.WholeStory )yb~ k
be  
    Selection.NoProofing = True WuY#Kx ~2  
     O713'i  
    tm1 = Now HN N
eH;L  
     oCOv 6(  
        ActiveWindow.View.Type = wdNormalView Sy <E@1  
     #Y7iJPO  
    NoSeries1(1) = "一" /ojwOJ  
    NoSeries1(2) = "二" h SS9mQ  
    NoSeries1(3) = "三" faRQj:R8  
    NoSeries1(4) = "四" W?zj^y[w  
    NoSeries1(5) = "五" G`%rnu  
    NoSeries1(6) = "六" :2c(.-[`  
    NoSeries1(7) = "七" 02;'"EmP$  
    NoSeries1(8) = "八" )J@[8 x`  
    NoSeries1(9) = "九" _VdJFjY?zc  
    NoSeries1(10) = "十" seK;TQ3/7  
    NoSeries1(11) = "十一" jRC{8^
98  
    NoSeries1(12) = "十二" c!6v-2ykv  
    NoSeries1(13) = "十三" @4*eH\3  
    NoSeries1(14) = "十四" ]@z!r2[  
    NoSeries1(15) = "十五" &77J,\C$:  
    NoSeries1(16) = "十六" L@[}sMdq(  
     \[{8E}_"^  
    NoSeries2(1) = "㈠" N7"cMAs\G  
    NoSeries2(2) = "㈡" Z1q<) O1QX  
    NoSeries2(3) = "㈢" u3 LoP_|  
    NoSeries2(4) = "㈣" >x6\A7  
    NoSeries2(5) = "㈤" `;}qj
m0a  
    NoSeries2(6) = "㈥" <Rw2F?S~)n  
    NoSeries2(7) = "㈦" 3Y)z{o>P  
    NoSeries2(8) = "㈧" s-Gd{=%/q  
    NoSeries2(9) = "㈨" +1cr6a  
    NoSeries2(10) = "㈩" )fXw~  
     oe^JDb#  
    NoSeries5(1) = "①" 2(GYk
 
    NoSeries5(1) = "②" > Vq07R  
    NoSeries5(3) = "③" `Z>=5:+G@2  
    NoSeries5(4) = "④" |khFQ(  
    NoSeries5(5) = "⑤" +sn0bi/rG  
    NoSeries5(6) = "⑥" :* |WE29U  
    NoSeries5(7) = "⑦" "" ^n^$  
    NoSeries5(8) = "⑧" OCdX'HN5Y  
    NoSeries5(9) = "⑨" Szu@{lpP@  
    NoSeries5(10) = "⑩" U~yPQ8jD  
     W#g!Usf:/  
     igTs[q=Ak  
    NoSeriesRM(1) = "I" ',[AKXJ  
    NoSeriesRM(2) = "II" -!~pa^j  
    NoSeriesRM(3) = "III" a] c03$fK  
    NoSeriesRM(4) = "IV" ZKt{3P  
    NoSeriesRM(5) = "V" j7g>r/1eE  
    NoSeriesRM(6) = "VI" Ou4hAm91s  
    NoSeriesRM(7) = "VII"  -V2`[k  
    NoSeriesRM(8) = "VIII" J#wf`VR%  
    NoSeriesRM(9) = "IX" {wSz >,  
    NoSeriesRM(10) = "X" \\R<HuTY  
    NoSeriesRM(11) = "XI" \Kui`X  
    NoSeriesRM(12) = "XII" /PaS<"<P@  
    NoSeriesRM(13) = "XIII" _X?_|!;J  
    NoSeriesRM(14) = "XIV" X{cB%t o  
    NoSeriesRM(15) = "XV" %u9Q`  
    NoSeriesRM(16) = "XVI" #B?lU"f8q^  
     ckFPx l.  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) e/g9r  
     3:WHC3}W  
    If i = vbNo Then KS5a8'U  
        Exit Sub fI;nVRfp  
    End If \bF<f02P  
     8hww({S2  
    If Me.chkSuper.Value Then <e 9d5-2  
        Me.txtStatus.Text = "检查修改所有的上标格式" 3;z1Hp2X  
     qm_ r~j  
        CheckSuperScript 6W YVHG  
         ux^rF  
    End If Jb> X$|N'%  
     4s|qxCks  
    If Me.chkStyle.Value Then fGeie m  
        Me.txtStatus.Text = "设置样式，请稍候...." 1 Lg{l  
        DoEvents t3.;qDy  
        CeateOrModifyStyle )g8Kicox5  
    End If VgbT/v  
     GBS+ 4xL|  
     bydI+pVMo  
     M*T!nwb  
    ClearDomain *\:sHVyG(  
         Qo3Enwap=  
     /z!y[ri+J  
     t 4M-;y  
    If Me.chkLIST.Value Then s^PsA9EAn  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式"
(g[WZB3x  
     T-4dD  
        ConvertListToOrdinary <6.`(isph  
    End If jpYZ) So-  
     wU'+4N".  
     R>Ox(MG  
    Dim pType As String, trimpTEXT As String u"7!EhX&  
    If Me.chkNum.Value = True Then fA1{-JzV<4  
        Me.txtStatus.Text = "转换全角数字形式为半角" [C-FJ>=S  
        ConvertWidth "１", "1" 5>S1lyam  
        DoEvents PQ_A^95  
        ConvertWidth "２", "2" @||nd,i`n~  
        DoEvents L"1AC&~u  
        ConvertWidth "３", "3" w#BT/6
W&G  
        DoEvents %b_0l<+  
        ConvertWidth "４", "4" P(b~3NB)  
        DoEvents S/eplz;  
        ConvertWidth "５", "5" 0
r$n  
        DoEvents } @3q;u)  
        ConvertWidth "６", "6" er BerbEEH  
        DoEvents Ed0}$b  
        ConvertWidth "７", "7" Zonn  
        DoEvents 8.wtv5eZ  
        ConvertWidth "８", "8" aEa.g.SZ  
        DoEvents N8x&<H  
        ConvertWidth "９", "9" >@G"*le*)  
        DoEvents ,V5fvHPH)8  
        ConvertWidth "０", "0" '"Uh w$#t  
        DoEvents mIrN~)C4\  
        ConvertWidth "ａ", "a" '.%Omc  
        DoEvents <M5fk?n,|  
        ConvertWidth "ｂ", "b" >U\P^y
U  
        DoEvents ,qB@agjvo<  
        ConvertWidth "ｃ", "c" pfc"^Gi8  
        DoEvents |DsT $~D  
        ConvertWidth "ｄ", "d" Ht}?=ZzW  
        DoEvents op-\|<i  
        ConvertWidth "ｅ", "e" 
Uv<nJM  
        DoEvents N uF?:L[  
        ConvertWidth "ｆ", "f" W4P\HM>2  
        DoEvents A[fTpS~~%  
        ConvertWidth "ｇ", "g" +,7vbs3  
        DoEvents /9SoVU8  
        ConvertWidth "ｈ", "h" `DG
I|3  
        DoEvents l%0-W  
        ConvertWidth "ｉ", "i" 7$0bgWi  
        DoEvents Ke#Rkt  
        ConvertWidth "ｊ", "j" "ig)7X+Wz|  
        DoEvents =_ N
$0  
        ConvertWidth "ｋ", "k" g 6?y{(1  
        DoEvents ?c"iV  
        ConvertWidth "ｌ", "l" VS`
{k^^  
        DoEvents ?%ltoezf  
        ConvertWidth "ｍ", "m"
M 'X,7hZ  
        DoEvents 58mpW`Q  
        ConvertWidth "ｎ", "n" 4%<wxrod  
        ConvertWidth "ｏ", "o" +S#Xm4  
        ConvertWidth "ｐ", "p" 'Zex/:QS  
        ConvertWidth "ｑ", "q" PD^ 6Ywn>s  
        ConvertWidth "ｒ", "r" l*CCnqE  
        ConvertWidth "ｓ", "s" =%I;
Y& K  
        ConvertWidth "ｔ", "t" ($UUgjv F  
        ConvertWidth "ｕ", "u" icVB?M,m  
        ConvertWidth "ｖ", "v" 3 Sf':N`u  
        ConvertWidth "ｗ", "w" gCRPaF6  
        ConvertWidth "ｘ", "x" b,jo94.G  
        ConvertWidth "ｙ", "y" ?Ec{%N%  
        ConvertWidth "ｚ", "z" u+6L>7t88I  
        ConvertWidth "Ａ", "A" 805oV(-  
        ConvertWidth "Ｂ", "B" k MV1$  
        ConvertWidth "Ｃ", "C" &>Z;>6J,  
        ConvertWidth "Ｄ", "D" ;ioF'ov  
        ConvertWidth "Ｅ", "E" fV6ddh  
        ConvertWidth "Ｆ", "F" E}0g  
        ConvertWidth "Ｇ", "G" BVus3Y5IJQ  
        ConvertWidth "Ｈ", "H" c%wztP;L  
        ConvertWidth "Ｉ", "I" Xyz/CZPi  
        ConvertWidth "Ｊ", "J" G|t0no\f  
        ConvertWidth "Ｋ", "K" %ib7)8Ki0  
        ConvertWidth "Ｌ", "L" ;5T}@4m|r  
        ConvertWidth "Ｍ", "M" X
N\rq=  
        ConvertWidth "Ｎ", "N" nu|,
wE!i  
        ConvertWidth "Ｏ", "O" FH%:NO  
        ConvertWidth "Ｐ", "P" .*+jD^Gr  
        ConvertWidth "Ｑ", "Q" h'vBWtMa  
        ConvertWidth "Ｒ", "R" nHF~a?|FT  
        ConvertWidth "Ｓ", "S" 3)e{{]6  
        ConvertWidth "Ｔ", "T" NTCFmdbs 6  
        ConvertWidth "Ｕ", "U" 211T}a
  
        ConvertWidth "Ｖ", "V" <dXeP/1w`  
        ConvertWidth "Ｗ", "W" [T[]U  
        ConvertWidth "Ｘ", "X" B=r+ m
;(  
        ConvertWidth "Ｙ", "Y" fX\y/C   
        ConvertWidth "Ｚ", "Z" ,|#biT-<T  
        ConvertWidth "^l", "^p" Dequ'  
        ConvertWidth "（", "(" o7PS1qcya<  
        ConvertWidth "）", ")" i3L2N~:V  
     ?djH!  
    End If 
2zv:j7  
>lJTS t5{  
    With ActiveDocument JXt_
  
        Dim tbl As Table K0I.3|6C  
        For Each tbl In .Tables TB<$9FCHK  
            tbl.Rows.Alignment = wdAlignRowCenter aehB,l0  
            tbl.Range.Font.NameFarEast = "楷体" ESFJN}Q%0.  
            tbl.Range.Font.NameAscii = "Times New Roman" |,H2ge  
            tbl.Range.Font.Size = 10.5 %'X7T^uE  
        Next .Tw:Y,G  
        Set tbl = Nothing qrZ3`@C4k  
    End With dxS5-aWy9w  
     Ut/%+r"s  
     Y}C|4"V  
    With ActiveDocument Uhn3usK  
         8y[Rwa  
        For i = 1 To .TablesOfContents.Count /&czaAR-  
            .TablesOfContents(i).Delete at\u7>;.^k  
        Next &(p5z
4Df  
         >-3>Rjo>  
         :7Uv)@iUk  
         hc9ON&L\>  
        paraTotal = .Paragraphs.Count |v#D}E  
        paraCounter = 1 4}*.0'Hz  
         xd"+ &YT  
        LastTitle0No = 0 UbIUc}ge  
        LastTitle1No = 0 23'<R i  
        LastTitle2No = 0 "So"oT1
 
        LastTitle3No = 0 "|,KXv')  
        LastTitle4No = 0 {z;K0  
        LastTableNo = 0 nHZhP4W  
        LastFigureNo = 0 ^e$!19g  
         ?Ycl!0m  
        Dim Sec As Long OP=-fX|*Q  
         ]vV)$xMX  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) $|[N3  
        If Sec = 0 Then $n47DW&  
            Exit Sub =E(ed,gH8  
        End If =CdrhP_  
         X(#8EY}X  
        k = 0 JIYzk]Tj  
        Do While (paraCounter < paraTotal) And bContinue KP>1%ap6  
            k = k + 1 |-cXb.M[  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then _sL;E<)y(  
                Exit Do  %(K}1[  
            End If OOABn*  
            paraCounter = paraCounter + 1 tt6GtYrC 1  
            If k Mod 20 = 0 Then 79o=HiOF99  
                Me.lbCounter.Caption = paraCounter X68.*VHh0  
                DoEvents RHbbj}B  
            End If ^;[_CF_  
        Loop FKhgUnw  
         ]!jfrj  
         @W==)S%O  
        Do While (paraCounter < paraTotal) And bContinue ofI,[z3  
             (WY9EJ<s,  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) ug"4P.wI  
            ShapeHeight = 0 'w<^4/L Q  
            ShapeWidth = 0
NMC0y|G  
           N K@6U_/W  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth 3Tw9Uc\vT  
             t0/Ol'kgs  
            Select Case ParaType hOFvM&$  
                Case "【】表格内容" O69TU[Vn  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" }1CvbB%,A  
                Case "章" -Oz! GX  
                    LastTitle0No = LastTitle0No + 1 >@-.rkd(  
                    '新一章开始，复位其下属标题编号 %uiCC>cC  
                    LastTitle1No = 0  =Uo*-EH  
                    LastTitle2No = 0 d{B0a1P  
                    LastTitle3No = 0 uc]5p(9Hb  
                    LastTitle4No = 0 xh25 *y  
                     ;nAx@_ab^  
                    k = Val(ttNo) {%&04yq+  
                    If k = 0 Then '非数字编号章节 ]F;1l3I-  
                        If ttNo <> NoSeries1(LastTitle0No) Then ? s)6 YF  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString 6g#E/ {kQw  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText 
}5$le]  
                        End If F|o yrG  
                    Else -H|!
KnR  
                        If Val(ttNo) <> LastTitle0No Then U.I7p  
                            rText = "第" & LastTitle0No & ttString OJM2t`}_t  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText <F-IF7>a  
                        End If eIf-7S]m  
                         qwn EVjf  
                    End If %503<j  
                     J*6B~)Sp@  
                    '章段落设置 }w>UNGUMh  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 xbHI4A" Z  
                    .Paragraphs(paraCounter).Style = "QLNU章节" &t!f dti  
                    .Paragraphs(paraCounter).Range.Select . _Jypk8  
                    Selection.EndKey unit:=wdLine JP^
x]t:  
                    tc = Replace(rText, vbCr, "") ip*^eS^  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False 8|L5nQ  
                Case "一级标题" W?ghG  
                    LastTitle1No = LastTitle1No + 1 i3$G)W  
                    '新一级标题开始，复位其下属标题编号 WYcZ D_  
                    LastTitle2No = 0 Es\J%*\u  
                    LastTitle3No = 0 vD/l`Ib:  
                    LastTitle4No = 0 jzWgyI1b  
                     .vi0DuD6  
                    If ttNo <> NoSeries1(LastTitle1No) Then yWT1CID  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString bB*cd!7y  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText }6{00er  
                    End If )!G
10  
                   wM-H5\9n  
                     ^AXH}g  
                    '一级标题段落设置  格式：一、标题内容 nhZ/^`Y<  
                    .Paragraphs(paraCounter).Range.Text = rText :DuEv:;v  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" =`CK`x  
                    .Paragraphs(paraCounter).Range.Select _,e4?grP#  
                    Selection.EndKey unit:=wdLine TXs&*\  
                    tc = Replace(rText, vbCr, "") gt~u/Z%  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False  R;&k/v  
                Case "二级标题" *o(bB!q"c  
                    LastTitle2No = LastTitle2No + 1 IEkbVIA(  
                    '新二级标题开始，复位其下属标题编号 GyFA1%(o  
                    LastTitle3No = 0 G$CSZrP.  
                    LastTitle4No = 0 G_ ~qk/7mF  
                     e~R_bBQ0  
                    If ttNo <> NoSeries1(LastTitle2No) Then NH=@[t)P,  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString mGmZ}H'{  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText n%02,pC6,  
                    End If -?IF'5z  
                     ^![7X'!;pt  
                    '二级标题段落设置 格式：(一)、标题内容 Ruwp"T}mF  
                    .Paragraphs(paraCounter).Range.Text = rText #P!M"_z  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" x~D8XN{  
                     I9#l2<DYlX  
                    .Paragraphs(paraCounter).Range.Select {aK
3'-7  
                    Selection.EndKey unit:=wdLine WVp6/H S  
                    tc = Replace(rText, vbCr, "") 4((p?jbC  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False B
w[#,_  
                 \SYeDy  
                Case "三级标题" iHQ$L# 7  
                    LastTitle3No = LastTitle3No + 1 #%#N.tB5  
                    '新三级标题开始，复位其下属标题编号 ol {N^fiK  
                    LastTitle4No = 0 t9lf=+%s  
                     ^bdXzj
f  
                    If Val(ttNo) <> LastTitle3No Then l!\~T"-7;:  
                            rText = LastTitle3No & ". " & ttString |;p.!FO  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText )?LZg<<  
                         KO"+"1 .  
                    End If W58%Zz4a  
                    '三级标题段落设置 格式：1. 标题内容 Lso%1M  
                    .Paragraphs(paraCounter).Range.Text = rText ?T|0"|\"'  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" T5:xia>8O  
                    .Paragraphs(paraCounter).Range.Select 66_=b d(9  
                    Selection.EndKey unit:=wdLine jj 'epbA  
                    tc = Replace(rText, vbCr, "") @2_E9{T  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False *
Z2Ko5&Y2  
                Case "四级标题" <KoOJMx(  
                    LastTitle4No = LastTitle4No + 1 nCA~=[&H  
                     z|(<Co8#.  
                    If Val(ttNo) <> LastTitle4No Then :vaVghN\  
                            rText = "(" & LastTitle4No & "). " & ttString Y%r>=Jvu6  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText aQ&K a  
                     `ah "Q;d$  
                    End If #nZPnc:  
                    '四级标题段落设置 格式：(1). 标题内容 M}=>~TA@  
                    .Paragraphs(paraCounter).Range.Text = rText cveQ6 -`K  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" ?k^m|Z  
                    .Paragraphs(paraCounter).Range.Select Q0ba;KPm  
                    Selection.EndKey unit:=wdLine 5rQu ^6&  
                    tc = Replace(rText, vbCr, "") sEL0h4  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False L E
FLKC  
                 |S:erYE,G  
                Case "表格标题" G2P:|R  
                    LastTableNo = LastTableNo + 1 +u& 3pK>f  
                     "Rtt~["%  
                    If ttNo <> CStr(LastTableNo) Then =&FaMR2  
                            rText = "表" & LastTableNo & ". " & ttString jL
'R4z  
                            ErrMsg.AddItem "表格编号错误：" & ParaText OcC|7s",  
                   P1Iy>%3  
                    End If l%2 gM7WMY  
                     (rBYE[@,  
                    '表格名称段落设置 格式：表1. 表格名称 G6JP3dOT  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" ={o)82LV  
                    xe = Replace(rText, vbCr, "") m6gMVon  
                    .Paragraphs(paraCounter).Range.Select :$P1ps3B  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 rD !GEU
 
                    Selection.Range.Text = xe s<3M_mt  
                    Selection.EndKey 6C ?,V3Z  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False O+=}x]q*y  
                 GsiKL4|mj  
                Case "表格首行" { qCFd  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" x>T+k8[n  
                Case "图片标题" {yd(n_PqY  
                    LastFigureNo = LastFigureNo + 1 -q?
,  
                     }-9 c1&m  
                    If ttNo <> CStr(LastFigureNo) Then HTm`_}G9  
                            rText = "图" & LastFigureNo & ". " & ttString X7tBpyi  
                            ErrMsg.AddItem "表格编号错误：" & ParaText IaO&f<^#o  
                   1/?K/gL  
                    End If vCOtED*<  
                    '图片名称段落设置 格式：图1. 图名称 BV}sN{  
                    .Paragraphs(paraCounter).Range.Text = rText k6 RH]Ha  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" K&T.~2' >  
                    .Paragraphs(paraCounter).Range.Select Ya!PV&"Z  
                    Selection.EndKey unit:=wdLine d(KK7SQg  
                    xe = Replace(rText, vbCr, "") ?_T[]I'  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False )gAqWbkB  
                Case "正文" *|;`Gp  
                     '正文名称段落设置 K7i@7  
                    .Paragraphs(paraCounter).Style = "QLNU正文" RfT)dS+rAh  
               Case "文献条目" @
V^5_K  
                    With .Paragraphs(paraCounter) J L1]auO*  
                        '.Range.Select f*p=
j(sF  
                        'Selection.ClearFormatting =gZA9@]W2  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” PO:sF]5  
                        .Style = "QLNU参考文献" ,TYFPulYcp  
                    End With t=jG$
A  
               Case "图表注解" z 8#{=e  
                    With .Paragraphs(paraCounter) Mfdkv J'  
                        .Range.Font.NameFarEast = "楷体" {V8uk
$  
                        .Range.Font.NameAscii = "Times New Roman" 2 ksbDl}  
                        .Range.Font.Size = 9 '小5号字 3l$D%y  
                         p$*
P@qm  
                        .Alignment = wdAlignParagraphCenter > -(Zx  
                        .LeftIndent = 0 i4M%{]G3Y  
                        .RightIndent = 0 kD) ]\  
                        .FirstLineIndent = 0 -uhVw_qq#  
                        .LineSpacing = 12 ?t/\ID  
                        .LineSpacingRule = wdLineSpaceExactly /2tPd  
                        .LineUnitAfter = 0 PM&NY8|Zy  
                        .LineUnitBefore = 0 OE_V6Er  
                        .OutlineLevel = wdOutlineLevelBodyText VS_I'SPPIc  
                        .PageBreakBefore = False j^h:*rw  
                        .RightIndent = 0 0E{DO<~  
                        .WordWrap = True 4sC)hAx&f  
                        .LineUnitAfter = 0.5 o/=61K8D  
                         \i<7Lk  
                    End With d-8{}Q  
                Case Else TnQW~_:  
                    '不作处理 WKwYSbs (  
            End Select &(|Ot`el]v  
             w")m]LV  
            '含有inlineshape的段落处理 h&~9?B  
            If ShapeHeight > 30 Then 10N0?K"  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 80Q%c(i  
            End If \zOsq5}  
             {Wfwf  
            If (ShapeWidth + ShapeHeight) > 150 Then ^nD
a-J$  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" [Ov/&jD"  
            End If OgHqF,0MN  
             Ua~8DdW  
            '段落计数器递 g*w}
m>O  
            paraCounter = paraCounter + 1 u0qTP]  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter /1Ss |.  
            Me.txtStatus.Text = ParaText OAgZeK$  
            DoEvents ZQ-6n1O  
        Loop xokA_3,1F  
    End With k3
]qpWKj  
     ^}J,;Zhu5  
    msg = "" /neY2D6  
     HLL=.:P  
    For i = 0 To Me.ErrMsg.ListCount - 1 19%zcYTe  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) bwJluJ,E  
    Next ~w.y9)",  
     {j4&'=C:  
     Xc~BHEp  
     |A+,M"F?  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg ZzP&Zrm  
    Me.cmdCheck.Enabled = True 7c6- o"A  
    Me.txtStatus.Visible = True e-VGJ
xR  
    Me.lbParaType.Visible = False ,v?FR }v  
     ]c]^( C  
    bContinue = False ;*=7>"o'`  
End Sub 9X Uk.Nek  
t5P 8?q\  
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) v`p@djM  
    Dim pTEXT As String dh%
DALZ8t  
     J.O{+{&cd  
    pTEXT = ChKRange.Text DUg[L
 
     6l2Os $  
    ParaType = "其它" Kb'4W-&u!  
    TitleString = pTEXT `91Z]zGpU  
    TitleNo = "N/A" S9
'Xsh  
     %Z-xh<&  
    shpCounter = ChKRange.InlineShapes.Count Mf7 [@#$  
    If shpCounter <> 0 Then UVW4KUxR  
        MaxShpHeight = 0: TotalShpWidth = 0 *uKYrs [  
        For i = 1 To shpCounter `_BmVms  
            k = ChKRange.InlineShapes(i).Height @twi<U_  
            l = ChKRange.InlineShapes(i).Width {]dvzoE ]  
            If k > MaxShpHeight Then
[e{D  
                MaxShpHeight = k /fU-0a8  
            End If 31QDN0o!~  
            TotalShpWidth = TotalShpWidth + l o'Y/0hkh  
        Next bik lja  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then SQ'%a-Mct  
            Exit Sub $ % B  
        End If BaMF5f+  
    End If QB;TQZ  
     :lK8i{o  
    '空行 >X=VPh8  
    If Len(pTEXT) <= 2 Then lAo4)  
        Exit Sub *<}R=X.  
    End If Y)#,6\=U  
     xZ SDA8kS  
         Q:'r p  
    '是否为表格中的文字 +I}!)$/  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then Z&7Yl(|  
        ParaType = "表格内容" bkrl>Im<n  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) VA %lJ!$  
        If k = 1 Then Lg7dJnf  
            ParaType = "表格首行" CdtCxy5  
        End If ^/xb-tuV  
        Exit Sub ~aXJ5sY"f&  
    End If ,jl4 W+s  
     t[AA=  
    '例外情况：脚注 >\3N#S"PF  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then vJsg6oH  
        ParaType = "脚注" !Y/S
2J  
        Exit Sub H.o3d/8:  
    End If AO z~@i^  
     =-qYp0sVP  
    '例外情况：尾注 V6kDyl(  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then h<n2pz}  
        ParaType = "尾注" J*AYZS-tSE  
        Exit Sub ]u:Ij|.'y0  
    End If w@\4ft6d  
     EiyHZ  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then tJGK9!MH{(  
        ParaType = "页眉页脚" Z>dvth  
        Exit Sub %_~1(Glz  
    End If }%^ 3  
     bw!
*=<  
     (`R heEg@f  
    With regEX ^g.HJQ'vF  
        .Global = True -"XHN=H  
         itcM-?  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" L=WKqRa>4  
        If regEX.Test(pTEXT) Then `BaJ >%|  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") fwa*|y;  
            TitleString = regEX.Replace(pTEXT, "$3") Pu'NSNT  
            TitleNo = regEX.Replace(pTEXT, "$1") VJ1rU mO~  
            ParaType = "章" j(M.7Z7^  
            Exit Sub [<>%I#7ulG  
        End If /J(~NGT  
         
1)f <  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" #vAqqAS`,  
        If regEX.Test(pTEXT) Then by$mD_sr  
            ParaType = "一级标题" o>&-B.zq  
            regEX.Execute (pTEXT) g!)*CP#;  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") NceK>::56  
            TitleString = regEX.Replace(pTEXT, "$3") Dr"PS >.  
            TitleNo = regEX.Replace(pTEXT, "$1") RVF<l?EI4R  
            Exit Sub |:SIyXGbY  
        End If A7T(p7pP  
         def\=WyK  
        '全角或半角括号中的数字 7ZUS  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" o WAy[  
        If regEX.Test(pTEXT) Then Digx#'#jf  
            ParaType = "二级标题" LKZv#b[h  
            regEX.Execute (pTEXT) 2tQ?=V(Di  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") J0o,ZH9  
            TitleString = regEX.Replace(pTEXT, "$5") g!z &lQnZ  
            TitleNo = regEX.Replace(pTEXT, "$2") <oSx'_dc  
            Exit Sub 3{TE6&HIa  
        End If pIKfTkSqH  
         p[;@9!t  
        '阿拉伯数字  1. 2. qa4j>;  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" t@iw&>8z  
        If regEX.Test(pTEXT) Then B3I0H6O  
            ParaType = "三级标题" pr1kYMrqri  
            regEX.Execute (pTEXT) O(:/&`)  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 z$ Qy<_l  
            TitleString = regEX.Replace(pTEXT, "$3") M<SVH_  
            TitleNo = regEX.Replace(pTEXT, "$1") ^+kymZ  
            Exit Sub
0W~1v  
        End If tJm1Q#||  
         G'wyH[ d/  
        '全角或半角括号中的阿拉伯数字 f>m! }F:  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" Dv4H^  
        If regEX.Test(pTEXT) Then !LsIHDs
4  
            ParaType = "四级标题" X+/^s)  
            regEX.Execute (pTEXT) Lzx/9PPYn  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") 7&(h_}Z  
            TitleString = regEX.Replace(pTEXT, "$5") ~y/qm [P  
            TitleNo = regEX.Replace(pTEXT, "$2") 4E$d"D5]>p  
            Exit Sub `trcYmR=k  
        End If `1#Z9&bO  
         +F>e rdV  
        '表格名称 Hr \vu`p$  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" o :j'd  
        If regEX.Test(pTEXT) Then m;qqjzy  
            ParaType = "表格标题" @ *5+ZAF  
            regEX.Execute (pTEXT) $2a_!/  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) (-@I'CFd  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) H8m[:K]_H  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) UlPGB2B  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 j!@,r^(  
            Exit Sub hdqr~9  
        End If 08g2? 5w"  
         OU*skc>  
        '图片名称 S7@/dHN  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" }|nEbM]#  
        If regEX.Test(pTEXT) Then w BoP&l  
            ParaType = "图片标题" oq,*@5xV2  
            regEX.Execute (pTEXT) 6.a|w}C`  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") Oe;1f#`5  
            TitleString = regEX.Replace(pTEXT, "$3") j{/5i`5m  
            TitleNo = regEX.Replace(pTEXT, "$1") `9A`
pC  
            Exit Sub
iT+t  
        End If 4{0vdpo3F  
         rmdg~  
        '参考文献 /XdLdA!v  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 &<cP{aBa  
        If regEX.Test(pTEXT) Then MOm+t]vq1  
            ParaType = "文献条目" ^,J>=>,1\  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") E#cu}zi  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") lXD=uRCI  
            Exit Sub Bp4#"y2  
        End If t7*F,  
         M[e^Z}w.V  
        prfx = Left(pTEXT, 2) 4y$okn\}i  
        If prfx = "注：" Or prfx = "注:" Then W'e{2u  
            ParaType = "图表注解" gj&5>brP  
            Exit Sub ?`75ah  
        End If TiJ \J{  
         %H3iX^}*  
         %UG|R:   
        ParaType = "正文" M7YbRl  
         ziv+*Qn_b4  
    End With Un&rP7 0  
End Sub _*xY>?Aq  
G sz$H_  
Sub ConvertListToOrdinary() -oY8]HrXfK  
    Dim st As Paragraph VmZDU(M  
    With ActiveDocument ^Of\l:q*  
        For i = .Paragraphs.Count To 1 Step -1 )"63g  
            Set st = .Paragraphs(i) ?Iag-g9#=m  
            lst = st.Range.ListFormat.ListString c4bvJy8  
            If lst <> "" Then pezfB{x?  
                st.Range.ListFormat.RemoveNumbers V}JBv$+ko  
                st.Range.InsertBefore lst & " " 7324#HwS  
            End If 7'ws: #pC  
        Next Vw`%|x"Xz  
    End With om6`>I*  
    Set st = Nothing \vuWypo  
End Sub *r|13|k  
b$tf9$f  
Private Sub UserForm_Activate() q77Iq0VR  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" %2^V.`0T  
    Me.lbTotal.Font.Bold = True f*^b
V_  
    Me.txtStatus.Visible = False 6H0aHCM  
    Me.cmdCheck.Enabled = True "5<YN#  
Ix0#eoj  
End Sub ZbH_h]1$D  
M"$g*j  
=!/T4Oo  
Sub CheckSuperScript() Zj0h0Vt  
    Selection.Find.ClearFormatting ly@%1  
    Selection.Find.Replacement.ClearFormatting N5tFEV'G  
    With Selection.Find -.-@|*5  
        .Text = "[【\[［〖](*)[】\]〗］]" EEvi_Z932  
        .Replacement.Text = "[\1]" Q v},X~^R  
        .Replacement.Font.Superscript = True C\ 0,D9  
        '.Replacement.Font.Color = wdColorBlue Ft_g~]kZo  
        .Forward = True sGa "  
        .Wrap = wdFindContinue r>rL[`p(2  
        .FORMAT = True AU;Iif6  
        .MatchCase = False ;x/.8fA  
        .MatchWholeWord = False Q
_*.1L  
        .MatchByte = False >VG*La'c  
        .MatchAllWordForms = False @}'?o_/C  
        .MatchSoundsLike = False 0;w84>M  
        .MatchWildcards = True <d{>[R)  
    End With Mv:\
T%]  
    Selection.Find.Execute Replace:=wdReplaceAll .fK~IKA  
End Sub -tp3qi  
T`c:16I  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) f+Fzpd?wS  
    bContinue = False }$a*XY1  
    Set regEX = Nothing 2Ic)]6z R  
End Sub J?jxD/9Yb  
-1ci.4F&  
Sub CeateOrModifyStyle() +u lxCm_lV  
' oMNBK/X_  
' WWLf'89It  
Dim stl As Style qr~zTBT] E  
     GZmfE`  
    Options.Pagination = False y
"H(F,(N  
     tw] l  
    On Error Resume Next +KIBbXF7  
    For Each stl In ActiveDocument.Styles }t1 q5@QU  
        stl.Delete ho!qXS  
    Next Q{ {=  
    On Error GoTo 0 2N.!#~_2D  
     .4y44: T  
    Set stl = Nothing ~SXqhX-`  
     9|K:\!7  
    DoEvents `Y,Rk  
    On Error Resume Next C]3^:b+   
     Q{~;4+ZD  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph r_o\72  
     P|a|4Bb+fW  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph tnq ZlS  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph F#RtU :R  
     kAW2vh  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph >&T J  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph w~n+hhMF  
     ]=Wq&
~  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph q{!ft9|K\d  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph <B+ WM  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph FQ/z,it_i  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph %B\VY+  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph WGUd@l
C~  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph Q=epUHFs  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph
V)ITk\  
     1TgD;qX  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph nr&9\lG]G  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph @J6V,  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph A'*#UYn(  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph R,-DP/ (im  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph 6?/f$,v  
     GMpg+rK  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph v}@Uc-(  
    On Error GoTo 0 p;mV?B?oAQ  
    DoEvents WqHp23  
     ~SwGZ  
    'BaseStyle D$`$4mX@hP  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False }#nd&ND  
    With ActiveDocument.Styles("BaseStyle").Font xk^`4;  
        .NameFarEast = "宋体" O1oh,~W  
        .NameAscii = "Times New Roman" #5X+.!L  
        .NameOther = "宋体" CH6;jo]  
        .Size = 10.5 2TQ<XHA\  
        .Bold = wdUndefined 8w~X4A,  
        .Italic = wdUndefined LfvRH?<W  
        .Subscript = wdUndefined }3-`e3  
        .Subscript = wdUndefined .la_u8 A]  
         -8SZ}J  
        .Underline = wdUnderlineNone .RbPO#(  
        .UnderlineColor = wdColorAutomatic p`'3
Il3  
        .StrikeThrough = False <V|\yH9  
        .DoubleStrikeThrough = False }'uV{$  
         C` 8.8  
        .Outline = False /K<>OyR?  
        .Emboss = False $7p0<<Nck  
        .Shadow = False 6-\M }xq?  
        .Hidden = False HUel  
        .SmallCaps = False Zb+n\sv4  
        .AllCaps = False OZe`>Q6  
        .Color = wdColorAutomatic Ls &-8  
        .Engrave = False 0.B'Bvn=s2  
        .Scaling = 100 ;Ji3|=4u  
        .Kerning = 1 {$C "yksr  
        .Animation = wdAnimationNone $-39O3  
        .DisableCharacterSpaceGrid = False Uu|R]azbO  
        .EmphasisMark = wdEmphasisMarkNone 3+!G9T!  
    End With !]&+g'aC3  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat Zy>y7O(,  
        .LeftIndent = 0 +0:]KG!Zs.  
        .RightIndent = 0 ~h T(uxU/  
        .SpaceBefore = 0 0aYoc-( A  
        .SpaceBeforeAuto = False x. /WP~I  
        .SpaceAfter = 0 u>V~:q\X  
        .SpaceAfterAuto = False o\nFSGkn  
         NHhKEx0Gtu  
        .LineSpacingRule = wdLineSpaceSingle gi8f)MNP?~  
        .Alignment = wdAlignParagraphJustify `L3{y/U'  
         (?P\;yDG  
        .WidowControl = False 5+/XO>P1m|  
        .KeepWithNext = False z AY -Y  
        .KeepTogether = False =ibKdPtTh^  
        .PageBreakBefore = False jori,"s  
        .NoLineNumber = False yz%o?%@  
         eqyUI|e  
        .FirstLineIndent = CentimetersToPoints(0) hh-sm8  
        .OutlineLevel = wdOutlineLevelBodyText )Zfb M|  
        .CharacterUnitLeftIndent = 0 RuOse9  
        .CharacterUnitRightIndent = 0 VrJf g  
        .CharacterUnitFirstLineIndent = 0 |sAl k,8s  
        .LineUnitBefore = 0 +y 48.5  
        .LineUnitAfter = 0 )c.!3n/pb  
        .AutoAdjustRightIndent = True Z5"5Ge-M  
        .DisableLineHeightGrid = True ZD<e$PxxCd  
         :79u2wSh  
        .FarEastLineBreakControl = True < WQ ~X<1D  
        .WordWrap = True {7EpljH@  
        .Hyphenation = False 2WB`+oWox  
         48.4GwL7  
        .HangingPunctuation = True }?9A:&  
        .HalfWidthPunctuationOnTopOfLine = True ?4_ME3$t  
        .AddSpaceBetweenFarEastAndAlpha = True $qiM_06  
        .AddSpaceBetweenFarEastAndDigit = True zTw<9Nf  
        .BaseLineAlignment = wdBaselineAlignBaseline 0fN; L;v  
    End With 2 yRUw  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False w`F'loUEt  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll } ;d=  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese QF$s([  
    ActiveDocument.Styles("BaseStyle").NoProofing = False 0 .ck!"h}  
     |zy` ]p9  
    '一级标题题样式 _I0=a@3  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ZUl-&P_X  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" Rvd'uIJ  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False a*nCvZ  
    With ActiveDocument.Styles("QLNU一级标题").Font g!`^!Q/($  
        .NameFarEast = "黑体" i`!>zl+D  
        .NameAscii = "Arial Black" a@C}0IP)  
        .NameOther = "黑体" N <M6~  
        .Name = "黑体" e8k|%m<Sp  
        .Size = 16              '三号 kXOc)  
        .Bold = True Y 9BKd78Y  
        .Italic = wdUndefined Lv>OBHD  
        .Subscript = wdUndefined 
M'@  
        .Superscript = wdUndefined R'^J#"[  
    End With ,be$~7qS  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat ah#jvp  
          $kxu-  
        .LeftIndent = CentimetersToPoints(0) <}}u'5;^?x  
        .RightIndent = CentimetersToPoints(0) BoHNni  
        .FirstLineIndent = CentimetersToPoints(0) "XU)(<p  
         C-^8;xd  
        .LineSpacingRule = wdLineSpaceSingle HgTBON(  
        .Alignment = wdAlignParagraphCenter $Q=S`z=  
         =RHIB1  
        .WidowControl = True Y,-!QFS#  
        .KeepWithNext = True ZSLvr-
,D  
        .KeepTogether = True #d$lN}8  
        .OutlineLevel = wdOutlineLevelBodyText Axla@  
         p uW  
        .LineUnitBefore = 0.5 ]#W9l\  
        .LineUnitAfter = 0.5 P6`LUyz3  
    End With `X(H,Q}*;  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False 2F/oWt|w?  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll vJ>o9:(6  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese QvlVjDIy  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True HcGbe37Xq  
    DoEvents {v2[x W  
     j/1f|x  
    '二级 8>|<m'e^\r  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") )hD77(c  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" (bD#PQXzm  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False nHQWO   
    With ActiveDocument.Styles("QLNU二级标题").Font <Kk?BRxi  
        .NameFarEast = "黑体" oKPG0iM:  
        .NameAscii = "Arial Narrow" (Y  
        .NameOther = "黑体" hwSxdT6  
        .Name = "黑体" &pHXSU  
        .Size = 15        '小三号 KBgFS%-W  
        .Bold = False l=<},_]{  
        .Outline = False b.cBg.a  
        .Italic = wdUndefined =0>[-:Z  
        .Subscript = wdUndefined w3"%d~/[x  
        .Superscript = wdUndefined P}he}k&IR  
    End With i({MID)/_  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat 5e^z]j1Yv  
        .LeftIndent = CentimetersToPoints(0) \c
HFV  
        .RightIndent = CentimetersToPoints(0) USKC,&6&}  
        .FirstLineIndent = CentimetersToPoints(0) _TbvQY  
         D&D-E~b^  
        .LineSpacingRule = wdLineSpaceSingle <=%G%V_s  
        .Alignment = wdAlignParagraphLeft }5}#QHF  
         ?v&2^d4C*F  
        .WidowControl = True tYx>?~   
        .KeepWithNext = True ">q?(i\  
        .KeepTogether = True %Lp#2?*  
        .PageBreakBefore = False %]o/p_<  
        .OutlineLevel = wdOutlineLevelBodyText 'wo}1^V  
         O{EbL5p  
        .LineUnitBefore = 0.5 Nh^q&[?  
        .LineUnitAfter = 0.5 6Z;D`X,5  
         -`PLewvX  
    End With Q'aVdJN,  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False R pxg 5  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll pbGv\SF  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese ob9=/ R?i  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True :DFtH13qO  
    DoEvents >KJE *X@s  
     ,v#3A7"yW  
    '三级标题样式 vtRz;~,Z  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") S"@@BQ#mf  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" n]3Z~HoZ  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False Q 34-a"6)  
    With ActiveDocument.Styles("QLNU三级标题").Font e
_3B\59k  
        .NameFarEast = "宋体" m[hHaX  
        .NameAscii = "Times New Roman" %z-n2%  
        .NameOther = "黑体" e]V7 7oc  
        .Name = "黑体" !4
$-.L)#  
        .Size = 14               '四号 {&nDm$KTD  
        .Bold = False '^tC|)  
        .Outline = False w^[:wzF0  
        .Italic = wdUndefined '2SZ]   
        .Subscript = wdUndefined U}GO* +  
        .Superscript = wdUndefined 1/A|$ t[  
    End With [+qB^6I+P%  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat va!fJ  
        .LeftIndent = CentimetersToPoints(0) 9jllW[`2F  
        .RightIndent = CentimetersToPoints(0) b[MKo7  
        .FirstLineIndent = CentimetersToPoints(0) Lv *USN  
         -'Z-8  
        .LineSpacingRule = wdLineSpaceSingle /$j,p E=  
        .Alignment = wdAlignParagraphLeft [>lQiX  
          k.\4<}  
        .WidowControl = True fbkAu  
        .KeepWithNext = True 8L*#zaSAf  
        .KeepTogether = True )#,a'~w  
        .PageBreakBefore = False R xc  
        .OutlineLevel = wdOutlineLevelBodyText 4\ny]A:~  
         jm[f|4\  
        .CharacterUnitLeftIndent = 0 M%5_~g2n'\  
        .CharacterUnitRightIndent = 0 M[L@ej  
        .CharacterUnitFirstLineIndent = 2 )ZpMB  
         9!6u Yf+  
        .LineUnitBefore = 0.5 g ~%IA.$c  
        .LineUnitAfter = 0 WmE 4TL^8?  
    End With a,e;(/#\7  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False H^g&e$d0  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll vhN6_XD  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese sr H.$Y;~  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True
wYh]3  
    DoEvents hPt=j{aJ%<  
     ZpZoOdjslV  
    '四级标题样式 DO~~  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") PrF('PH7i  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" y.a)M?3  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False '<AE%i,  
    With ActiveDocument.Styles("QLNU四级标题").Font q0@b d2}  
        .NameFarEast = "宋体" jK2gc^"t  
        .NameAscii = "Times New Roman" !ozHS_  
        .NameOther = "宋体" 5Z13s  
        .Name = "宋体" /Ur]U w  
        .Size = 12               '小四号 Jjh=zxR>  
        .Bold = True T^Hq 5Oy  
        .Outline = False \M~uNWv|  
        .Italic = wdUndefined }U**)"  
        .Subscript = wdUndefined Ee=!bv(%70  
        .Superscript = wdUndefined |lh&l<=(f  
    End With %/R[cj8  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat 1:4u]$@E  
         8cj}9}k  
        .LeftIndent = CentimetersToPoints(0) FmQiy+.|  
        .RightIndent = CentimetersToPoints(0) ZC)m&V1  
        .FirstLineIndent = CentimetersToPoints(0) dDl_Pyg4K  
         |Rb8/WX  
        .LineSpacingRule = wdLineSpaceSingle 35YDP|XZb  
        .Alignment = wdAlignParagraphLeft a QV?}  
         *\^(-p~M  
        .WidowControl = True /L` +  
        .KeepWithNext = True X&!($*/  
        .KeepTogether = True S~GS:E#  
        .PageBreakBefore = False 0I*{CVTQj  
        .OutlineLevel = wdOutlineLevelBodyText _FN#Vq2  
         QV _aM2  
        .CharacterUnitLeftIndent = 0 2 y&k  
        .CharacterUnitRightIndent = 0 ,N8SP 'R  
        .CharacterUnitFirstLineIndent = 2 h-\+# .YP  
         %/RT}CBBsW  
        .LineUnitBefore = 0 ;B;wU.Y"  
        .LineUnitAfter = 0 i$H9~tPs  
         rC6Eg
Wt<V  
    End With -c%'f&P  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False 1z@{4)  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll (>gb9n  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese b>nwX9Y/U  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True +SkfT4*U  
    DoEvents {-yw@Kq  
     Jv~^hN2  
    '正文校式 >vNE3S_  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") m4G))||9Q  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" %\!@$]3q  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False >eX9
dA3X  
    With ActiveDocument.Styles("QLNU正文").Font 4"Mq]_D  
         AdRK)L  
        .NameFarEast = "宋体" 3GXmyo:o$  
        .NameAscii = "Times New Roman" :v^OdW  
        .NameOther = "宋体" &Vg)/t;  
        .Name = "宋体" mh#_lbe'  
         zn5|ewl@"  
        .Size = 12               '小四号 8/-hODoT_  
         HcHwvf6y  
        .Bold = wdUndefined PsN_c[+  
        .Italic = wdUndefined 9\%`/tJM  
        .Subscript = wdUndefined O*c<m,  
        .Superscript = wdUndefined JC7:0A ^  
         U+VyH4"  
        .Outline = False /&yc?Ui  
        .Emboss = False #X0Y8:vj  
        .Shadow = False `=2p 6<#z  
        .Hidden = False ,6x>gcR  
         %5j*e  
        .DisableCharacterSpaceGrid = True Y\E7nll:.  
    End With ~P"o
_b6,k  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat =an0PN  
         ;V84Dy#b  
        .LeftIndent = CentimetersToPoints(0) ]m#*4  
        .RightIndent = CentimetersToPoints(0) v R! y#  
        .FirstLineIndent = CentimetersToPoints(0) `|4k>5k  
         {%6g6 ?=j  
        .LineSpacingRule = wdLineSpaceExactly LPkl16yZ  
        .LineSpacing = 20
KR>o 2  
        .Alignment = wdAlignParagraphLeft l<yYfGO  
         MK <\:g  
        .WidowControl = False |^OK@KdL1  
        .KeepWithNext = False "fu@2y4^  
        .KeepTogether = False Kae-Y  
        .PageBreakBefore = False B9]bv]  
        .Hyphenation = False i.e4<|{  
         P3TM5  
        .OutlineLevel = wdOutlineLevelBodyText @E=77Jn[px  
         cPX^4d~9  
       Y$W)JWMY`  
        .CharacterUnitLeftIndent = 0 ^(7Qz&q  
        .CharacterUnitRightIndent = 0 E*QLw*H  
        .CharacterUnitFirstLineIndent = 2 )-\qo#0l  
         ME*A6/h  
        .LineUnitBefore = 0 VBK|*Tl  
        .LineUnitAfter = 0 -6# _t  
        .SpaceBefore = 0 </_.+c [  
        .SpaceAfter = 0
U=[isi+7  
         K8h\T4  
        .DisableLineHeightGrid = True BxB B](  
    End With "1rT> ASWI  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False d/\ajQ1::  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll (dHjf;  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese Cw~fP[5XMF  
    ActiveDocument.Styles("QLNU正文").NoProofing = True '>t'U?7w<  
    DoEvents  2Vxx  
     ^O&&QRH~w  
    '图片段落样式 1?,C d  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") RJdijj  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" fPG3$<Zr  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False ]aYuBoj  
    With ActiveDocument.Styles("QLNU图片段落").Font Kr+#)S  
        .Size = 12               '小四号 (SByN7[gb  
        .Italic = wdUndefined YAd%d |Q  
        .Subscript = wdUndefined G'{&*]Z\:  
        .Superscript = wdUndefined W4)bEWO+q  
    End With G}@a]EGm  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat ?)7UqVyq  
         TpxAp',#7  
        .LeftIndent = CentimetersToPoints(0) t<e3EW@>>  
        .RightIndent = CentimetersToPoints(0) J{$c|  
        .FirstLineIndent = CentimetersToPoints(0) ]6,D9^{;  
         *C.Kd f3w  
        .LineSpacingRule = wdLineSpaceSingle J@qLBe(v  
        .Alignment = wdAlignParagraphCenter j)#GoU=w  
        .KeepWithNext = True c,}VC-  
        .OutlineLevel = wdOutlineLevelBodyText Uv!VzkPfo  
         gq~"Z[T  
        .CharacterUnitLeftIndent = 0 7nZ3u_~  
        .CharacterUnitRightIndent = 0 v(P  <_}G  
        .CharacterUnitFirstLineIndent = 0 j2mMm/kq\  
         \Npvm49  
        .LineUnitBefore = 0 xxOhGA)  
        .LineUnitAfter = 0 I 1Yr{(ho  
    End With ]N:Wt2   
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False %{0F .  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll @IOl0db  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese T/jxsIt3  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True &5QvUn
  
    DoEvents D0h6j0r5  
     GF*uDJ Kp  
     kv<(N  
    '第X章 T75N0/teS  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") A|yU'k  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" j? Vs"d|  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False |Gr@Mi5  
    With ActiveDocument.Styles("QLNU章节标题").Font P[jh^!<j  
        .NameFarEast = "黑体" [<nd+3
E  
        .NameAscii = "Arial Black"  TNF  
        .NameOther = "Arial Black" 'a"Uw"/p[  
        .Name = "黑体" `tl-] ^Y2  
        .Size = 16 \xmDkWzE  
        .Bold = True 3!i{4/  
        .UnderlineColor = wdColorAutomatic qf{HGn_9~1  
        .Outline = False <|hrmwk|  
        .Italic = wdUndefined kA9k^uR/  
        .Subscript = wdUndefined ^grDP* ;W  
        .Superscript = wdUndefined $dug"[  
        .Scaling = 100 7yOBxb   
        .DisableCharacterSpaceGrid = True j3j^cO[8v  
    End With Jv!f6*&<  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat Ti>}To}B5  
        .LineSpacingRule = wdLineSpaceSingle cvYKZB  
        .Alignment = wdAlignParagraphCenter JX`>N(K4\  
        .WidowControl = True IH.EvierJ  
        .KeepWithNext = True :bXTV?#0  
        .KeepTogether = True oslj<  
        .PageBreakBefore = True nI8zT0o  
        .OutlineLevel = wdOutlineLevelBodyText G ^#?~  
         im F,8'  
        .LeftIndent = CentimetersToPoints(0) EBpg  
        .RightIndent = CentimetersToPoints(0) 3V<c4'O\W  
        .FirstLineIndent = CentimetersToPoints(0) w{GEWD{&  
         h;~NA}>  
        .CharacterUnitLeftIndent = 0 N]&hw&R{Q  
        .CharacterUnitRightIndent = 0 %
Lq}5zB  
        .CharacterUnitFirstLineIndent = 0 co'qVsOiH  
         Y\F4  
        .LineUnitBefore = 1 A>\3FeU>UC  
        .LineUnitAfter = 0.5 n2Q?sV;m  
         9fsc>9  
        .AutoAdjustRightIndent = False )/Oldyp  
        .DisableLineHeightGrid = True e1hf{:&/G@  
        .FarEastLineBreakControl = True 7H4kj7UK  
        .WordWrap = True {~#d_!(  
    End With vgi`.hk  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False ,C|aiSh0-  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll 1yTw*vH F  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese =>7czw:S1  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True qos/pm$
&i  
    DoEvents m3XT8F*&  
     Fzz9BEw(i  
    '表格标题 W >|'4y)  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") V@K^9R,|  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" 7**zO3 H  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False Y@+9 Ukd/  
    With ActiveDocument.Styles("QLNU表格标题").Font ri4:w_/{,Y  
        .NameFarEast = "楷体" He&A>bA)z  
        .NameAscii = "Arial" u\km_e
  
        .Name = "楷体" c*R18,5-  
        .Size = 10.5 u@Bgyt7Y  
        .Bold = True /9| 2uw`  
        .Underline = wdUnderlineNone boZ
/*+t  
        .Italic = wdUndefined AG"iS<u  
        .Subscript = wdUndefined #;UoZJ B  
        .Superscript = wdUndefined -?Cu-'  
        .Color = wdColorAutomatic qBZ;S3  
    End With &iT^IkA{  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat *Zn,v-d  
         m;PTO$--  
        .LineSpacingRule = wdLineSpaceSingle ,<[x9 "3\  
        .Alignment = wdAlignParagraphCenter  _w FK+>  
        .KeepWithNext = True {vur9L  
        .KeepTogether = True %cASk>
^i  
        .OutlineLevel = wdOutlineLevelBodyText ?i}wm`  
         #r]GnC,  
        .LeftIndent = CentimetersToPoints(0) GqgJ]m  
        .RightIndent = CentimetersToPoints(0) m;S%RB^~H  
        .FirstLineIndent = CentimetersToPoints(0) 6` 3kNk;  
         2hTsjJ!'  
        .CharacterUnitLeftIndent = 0 1U ='"  
        .CharacterUnitRightIndent = 0 <80M$a g  
        .CharacterUnitFirstLineIndent = 0 EW/NH&{  
         ^c|0?EH  
        .LineUnitBefore = 1 |RD E/  
        .LineUnitAfter = 0 #*3 vE& p  
         4x.I"eW~&  
    End With l>)+HoD  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False Se(apQH  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll {fMo#`9=  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese /K_*Drk>  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True 7>-99o^W
 
    DoEvents OOY drv,  
Me^L%%:@  
    '表格首行 X"%eRW&qu/  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") T;i+az{N:V  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False N5b&tJbM0  
    With ActiveDocument.Styles("QLNU表格首行").Font ~O 4@b/!4  
        .NameFarEast = "楷体" ~xc0Ky?8  
        .NameAscii = "Times New Roman" S}K-\[i?  
        .Name = "楷体" N<QLvZh  
        .Size = 9 8an_s%,AW  
        .Bold = True Ef=4yH?\j  
        .Underline = wdUnderlineNone ZQmg;L&7  
        .Italic = wdUndefined $=Tq<W*c  
        .Subscript = wdUndefined =HMuAUa.  
        .Superscript = wdUndefined P+,YWp  
    End With OO;I^`Yn  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat .GFKy  
        .LineSpacingRule = wdLineSpaceSingle p&HkR^.S  
        .Alignment = wdAlignParagraphCenter =E&1e;_xlE  
         Wr,pm#gl6  
        .LeftIndent = CentimetersToPoints(0) bLUyZ3m!  
        .RightIndent = CentimetersToPoints(0) ictOCF  
        .FirstLineIndent = CentimetersToPoints(0) )F6p+i="  
         ,_:6qn{  
         v=D4O.  
        .CharacterUnitLeftIndent = -0.5 ZV[-$  
        .CharacterUnitRightIndent = -0.5 l Ng)k1  
        .CharacterUnitFirstLineIndent = -0.5 axv-UdE;  
         ?y^ ix+M  
        .LineUnitBefore = 0 RMAbu*D0  
        .LineUnitAfter = 0 UBx0Z0Y  
        .SpaceBefore = 0 f1t?<=3Ek<  
        .SpaceAfter = 0 h\8bo=  
         pH0MVu(W  
    End With >9[wjB2?}  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False yRz l}  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll r6kQMFA  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese D~,iI7ac  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True T=fVD8  
    DoEvents i^eDM.#X  
+^a@U^V  
    '表格内容 bWzUWLa  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") RI]x=  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False ShOB"
J-  
    With ActiveDocument.Styles("QLNU表格内容").Font Bc}e ??F  
        .NameFarEast = "楷体" h5[.G!  
        .NameAscii = "Times New Roman" kb'l@d#E  
        .Name = "楷体" 7Ur'@wr  
        .Size = 9 qx}*L'xB  
        .Bold = False dkZ[~hEQG-  
        .Underline = wdUnderlineNone -i4hJC!3  
        .Italic = wdUndefined ?q"9ZYX<  
        .Subscript = wdUndefined ~P9^4  
        .Superscript = wdUndefined C 0L(ti;  
    End With qwo{34  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat C3; d.KlV  
        .LineSpacingRule = wdLineSpaceSingle (-{.T  
        .Alignment = wdAlignParagraphCenter 5%"0  
         5NMju!/  
        .LeftIndent = CentimetersToPoints(0) &y~GTEP  
        .RightIndent = CentimetersToPoints(0) ))J#t{X/8v  
        .FirstLineIndent = CentimetersToPoints(0) &tw{d DD6  
         ZMch2 U8  
        .CharacterUnitLeftIndent = -0.5 ['I5(M@  
        .CharacterUnitRightIndent = -0.5 /-g%IeF  
        .CharacterUnitFirstLineIndent = -0.5 ak(P<OC-  
        .LineUnitBefore = 0 Chtls;Ph[  
        .LineUnitAfter = 0 ts=+k/Z  
        .SpaceBefore = 0 L(BL_  
        .SpaceAfter = 0 ,D`\ RV  
    End With T7*p !0  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False 5ma~Pjt8}
 
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll Ft8ii|-  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese  j g_;pn  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True ;zi4W1  
    DoEvents Na`vw  
f
Jn4'Q*U  
    '图片标题 "9;Ay@'B  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") i\\,Z L  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" wr2F]1bh@  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False &-|(q!jm  
    With ActiveDocument.Styles("QLNU图片标题").Font iRL|u~bj  
        .NameFarEast = "楷体" xGX U7w:X  
        .NameAscii = "Times New Roman" (M%ZSF V  
        .Name = "楷体" I0sw/,J/Z  
        .Size = 10.5 wQX%*GbL2  
        .Bold = True =`wnng5m  
        .Underline = wdUnderlineNone , ins/-3  
        .Italic = wdUndefined o[nr)  
        .Subscript = wdUndefined @FuX^Q.[  
        .Superscript = wdUndefined *)i+c{~  
        .Outline = False {-s7_\|p(  
        .Shadow = False +4K'KpFzZ  
        .Color = wdColorAutomatic E\~!E20^  
    End With #:nds,  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat =z2g}X  
        .LineSpacingRule = wdLineSpaceSingle 6CzN[R}  
        .Alignment = wdAlignParagraphCenter ( z.\,M  
         RaB%N$.9s  
        .KeepWithNext = wdUndefined \eS-wO7%  
        .KeepTogether = True -)E6{  
        .OutlineLevel = wdOutlineLevelBodyText xx,|n  
         :UDe\zcd"  
        .LeftIndent = CentimetersToPoints(0) @|9V]bk  
        .RightIndent = CentimetersToPoints(0) 9K#U<Q0b'  
        .FirstLineIndent = CentimetersToPoints(0) s=)1:jYk  
         vrXNa8,L  
        .CharacterUnitLeftIndent = 0 |A:+[35  
        .CharacterUnitRightIndent = 0 u]t#Vf-$u  
        .CharacterUnitFirstLineIndent = 0 K<"Y4O#]  
         ;5=5HYx%  
        .LineUnitBefore = 0 )n$RHt+:>  
        .LineUnitAfter = 0 ['@R]Si"!  
    End With WOf*1C  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False wTVd){q`.  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll  Qs\!Kk@  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese .4,l0Nn`W  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True 2@pEuB3$?!  
    DoEvents (s!cd]Qa.  
\@*D;- b  
    '目录项 OyTp^W`&  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") >^d+;~Q;  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" fvw&y+|y!  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False U("m}^  
    With ActiveDocument.Styles("QLNU目录项").Font $lAhKpdlW  
        .NameFarEast = "黑体" *7!*kqg!u  
        .NameAscii = "Times New Roman" EP]OJ$6I  
        .NameOther = "Times New Roman" G+jcR; s  
        .Name = "黑体" BxGz4  
        .Size = 10.5 qISzn04  
        .Bold = False _<;westq  
        .Italic = wdUndefined /PtmJ2[  
        .Underline = wdUnderlineNone #jX%nqMxW  
        .Color = wdColorAutomatic YN5p@b=FX  
        .Superscript = wdUndefined yyuf  
        .Subscript = wdUndefined 3AarRQWsn  
    End With @m ?&7{y#?  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat ?L6ACi`9  
         m-}6DN  
        .LineSpacingRule = wdLineSpaceSingle 2]-xmS>|b  
        .Alignment = wdAlignParagraphLeft "z ;ky8  
         j*@EJ"Gm>  
        .WidowControl = False JJE0q5[  
        .KeepWithNext = False F$>^pw  
        .KeepTogether = False m*H6\on:  
        .PageBreakBefore = False w_^g-P[o-  
        .NoLineNumber = False t+O7dZt%r  
        .OutlineLevel = wdOutlineLevelBodyText FLOSdMYdw  
         ~er4w+"  
        .LeftIndent = CentimetersToPoints(0) h%(0|  
        .RightIndent = CentimetersToPoints(0) 2W=am_\0e.  
        .FirstLineIndent = CentimetersToPoints(0) ~bSjZ1`  
         H%`|yUE(  
        .CharacterUnitLeftIndent = 0 .5?Md  
        .CharacterUnitRightIndent = 0 ? Eh)JJt  
        .CharacterUnitFirstLineIndent = 0 K7gqF~5x~  
         -nC!kpo  
        .LineUnitBefore = 0 J
l9w/T  
        .LineUnitAfter = 0 <!.Q
n Y  
    End With /? HLEX  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False jRo4+8  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll
t[?O*>  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot Km,:7#aV  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese j?9fb  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True /*) =o+  
    DoEvents % %Z|6V74  
     ^1w*$5YI  
    '参考文献 $61*Xf+*  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle")  Q~AK0W  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" uOnyU+fZV  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False gAViwy9{  
    With ActiveDocument.Styles("QLNU参考文献").Font O=wu0n  
        .NameFarEast = "宋体" ,#QLc  
        .NameAscii = "Times New Roman" /,# &Htk  
        .NameOther = "Times New Roman" nV+]jQ~o  
        .Name = "Times New Roman" =[V  
        .Size = 12 nXcOFU  
        .Bold = False @;H1s4OZ  
        .Italic = wdUndefined tz"zQC$  
        .Subscript = wdUndefined P*sb@y>}O  
        .Superscript = wdUndefined 'Gds?o8  
        .Underline = wdUnderlineNone B3iU#  
        .UnderlineColor = wdColorAutomatic $sR-J'EE!  
        .Color = wdColorAutomatic %4HpTx  
        .Engrave = False 9x9~u8j
 
    End With MbeO(Q  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat 7"Iagrgw  
         jCv%[H7  
        .LineSpacingRule = wdLineSpaceExactly +b6kU{  
        .LineSpacing = 16 t(?tPt4zp  
        .Alignment = wdAlignParagraphLeft qECta'b&  
        .WidowControl = False 5$p7y:  
        .KeepWithNext = False ,mW-O!$3W  
        .KeepTogether = False }@S''AA\  
        .PageBreakBefore = False Hze~oAP+  
        .OutlineLevel = wdOutlineLevelBodyText ?g #4&z.  
         L BP|  
        .LeftIndent = CentimetersToPoints(0) 4GTB82V$  
        .RightIndent = CentimetersToPoints(0) f1UG
DC<p9  
        .FirstLineIndent = CentimetersToPoints(0) )nJh) {4\  
         /J0ctJ2k  
        .CharacterUnitLeftIndent = 0 !aub@wH3  
        .CharacterUnitRightIndent = 0 # ~T KC|G  
        .CharacterUnitFirstLineIndent = -2 tc
U4$%H/  
         \Z%V)ZRi=  
        .LineUnitBefore = 0 !^<%RT9@|  
        .LineUnitAfter = 0 q(cSHHv+  
        .SpaceBefore = 0 ^zVBS7`J  
        .SpaceAfter = 0 h$eVhN&Vv  
         dTW3mF4=  
    End With !]z6?kU K  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False X7gtR|[  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll $mp'/]  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS |Y\BI^
 
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True t|y`Bl2  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese p-;I"
uKv  
    DoEvents l\{{iAC]I  
B\}B H  
    ' a)GT\1q  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") v22ZwP  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" p[M*<==4  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False m^Xq<`e"<  
    With ActiveDocument.Styles("QLNU论文题目").Font $S _VR  
        .NameFarEast = "黑体" O
*zF` 9  
        .NameAscii = "Arial Black" 2 .)`8|c9  
        .NameOther = "Arial Black" 2Sg,b8  
        .Name = "Arial Black" *ioVLt,:R  
        .Size = 16 R-2V C  
        .Bold = False F
lQ(iv)P  
        .Italic = wdUndefined
>X!A/;$  
        .Superscript = wdUndefined SH${\BKup  
        .Subscript = wdUndefined b];? tP  
        .Underline = wdUnderlineNone V[N4 { c  
        .UnderlineColor = wdColorAutomatic t)/:VImY  
        .Color = wdColorAutomatic q-)Ynp4'  
!K$qh{n  
    End With ;+h-o  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat `;fk,\8t%  
        .LineSpacingRule = wdLineSpaceSingle |ydOi&  
        .Alignment = wdAlignParagraphCenter 3m9ab"  
        .WidowControl = True z4yV1  
        .KeepWithNext = True %;{Ro)03  
        .KeepTogether = True zL,B?  
        .PageBreakBefore = True j? P=}_Ru  
        .NoLineNumber = False 17{$D,P  
        .OutlineLevel = wdOutlineLevelBodyText ^|0>&sTHOH  
         ($ l t@j  
        .LeftIndent = CentimetersToPoints(0) ,>Lj>g{~  
        .RightIndent = CentimetersToPoints(0) m=u
W: ~  
        .FirstLineIndent = CentimetersToPoints(0) /}=Bi-  
         d*{NAq'9X  
        .CharacterUnitLeftIndent = 0 R8<'m
 
        .CharacterUnitRightIndent = 0 3\jcq@N  
        .CharacterUnitFirstLineIndent = 0 +P. }<  
         8hx 3pv
mk  
        .LineUnitBefore = 1 /Sag_[i  
        .LineUnitAfter = 1 g `B tG  
         ?pJUbZ#J  
        .BaseLineAlignment = wdBaselineAlignAuto j[Xci<m  
    End With &^4E)F  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False &0*=F%Fd  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll PRE\2lLY  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS CnA
0 ^JX  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True )mVpJYt;  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese [C"[#7  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True -I\Y m_)  
    DoEvents P,@ :?6  
     hRvjiK\  
    '中文摘要 Htu}M8/4  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") GE{u 2<%@  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" .:)nG (7f<  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False Y$SwQ;wl  
    With ActiveDocument.Styles("QLNU中文摘要").Font vtS[Tkk|A  
        .NameFarEast = "宋体" &7CAxU;i3  
        .NameAscii = "Times New Roman" c/q -WEKL  
        .NameOther = "Times New Roman" (;o/2Q?  
        .Name = "Times New Roman" O$Z<R:vVA  
        .Size = 12 $ }D9)&f;  
        .Bold = wdUndefined 8={"j  
        .Superscript = wdUndefined M(_1'2  
        .Subscript = wdUndefined Ck J\v%JAW  
        .Italic = wdUndefined m"CsJ'\ors  
        .Underline = wdUnderlineNone GcL :plz  
        .UnderlineColor = wdColorAutomatic A!&hjV`  
        .Color = wdColorAutomatic aA5rvP+  
    End With ;^K4
kK&f  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat Fl'+ C   
        .LineSpacingRule = wdLineSpaceExactly }L1-2  
        .LineSpacing = 20 7u9!:}Tu  
        .Alignment = wdAlignParagraphLeft P}Ud7Vil;l  
         If*t$f>y4N  
        .WidowControl = False X( H-U q*(  
        .KeepWithNext = False jg_##Oha  
        .KeepTogether = True dLs40 -R  
        .PageBreakBefore = False `Ko6;s#  
        .NoLineNumber = False ,ruL7|T&  
        .OutlineLevel = wdOutlineLevelBodyText lrXi*u]  
         Jm l4 EW7  
        .LeftIndent = CentimetersToPoints(0) &>. w*  
        .RightIndent = CentimetersToPoints(0) tL!R^Tf  
        .FirstLineIndent = CentimetersToPoints(0) OYsG#  
         aF~ 0\XC  
        .CharacterUnitLeftIndent = 0 c5t],P  
        .CharacterUnitRightIndent = 0 (K(6`~  
        .CharacterUnitFirstLineIndent = 2 3:;2Av2(X.  
        .LineUnitBefore = 0 j5yxdjx9  
        .LineUnitAfter = 0 !VJ5(b  
         ~A5MzrvIO2  
    End With #6%9*Rh  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False )K0BH q7r  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll eviv,  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS LmKG6>Q1#1  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True fq"<=  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese 9Xv>FVG!  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True rz @;Zn  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete w9J^s<e  
    DoEvents C/w!Y)nB=  
     0rtP :Nj$  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") xxlYn9ke  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" `f9I#B  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False lQolE P.pc  
    With ActiveDocument.Styles("QLNU英文标题").Font @+3@Z?!SZ  
        .NameFarEast = "黑体" .Y"H{|]Mnh  
        .NameAscii = "Arial Narrow" wSMP^kG  
        .Name = "Arial Narrow" ^Cs5A0xo#s  
        .Size = 16 P,ox))+6  
        .Bold = True ]^63n/Twj  
        .Bold = wdUndefined &Jr~)o   
        .Superscript = wdUndefined +4,v.B@  
        .Subscript = wdUndefined vZQ'  
        .Italic = wdUndefined +Xg]@IS-eg  
         N<\U$\i  
        .Underline = wdUnderlineNone f;k'dqlv  
        .UnderlineColor = wdColorAutomatic T!T6M6?  
        .StrikeThrough = False ~HH#aXh*  
        .DoubleStrikeThrough = False *Hnk,?kPq  
    End With :$`"M#vMX  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat uD2v6x236  
        .LineSpacingRule = wdLineSpaceSingle k>8,/ AZd  
        .Alignment = wdAlignParagraphCenter wlM"Zt  
        .WidowControl = True g`}+K U  
        .KeepWithNext = False zMUifMiAj  
        .KeepTogether = False
5+gSpg]i  
        .PageBreakBefore = False b@yGa%Gz@  
        .NoLineNumber = False x[,HK{U|t  
        .FirstLineIndent = CentimetersToPoints(0) _;Q1PgT  
        .OutlineLevel = wdOutlineLevelBodyText 1
Ue;hu'q:  
         H ',Nt  
        .LeftIndent = CentimetersToPoints(0) L(yR"A{FsE  
        .RightIndent = CentimetersToPoints(0) nzdJ*C  
        .FirstLineIndent = CentimetersToPoints(0) WzC_M>_  
         )K4A-9pC  
        .CharacterUnitLeftIndent = 0 `~bnshUk  
        .CharacterUnitRightIndent = 0 -}B&>w,5  
        .CharacterUnitFirstLineIndent = 0 ].j;d2xT\  
         =vv4;az X  
        .LineUnitBefore = 1 g)<t=+a  
        .LineUnitAfter = 1 #sOkD  
         4EO,9#0  
    End With  !XvQm*1  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False Fnnk}I}  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll 39w|2%(O.  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS 7>a-`"`O  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True :CQ-?mT^LA  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese ib4shaN`  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True /idQfff  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete Mm jeFv  
    DoEvents uHv9D%R  
5s >UM@})  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") V'";u?h#S  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" V0,%g+.^  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False Wn(pz)+Y  
    With ActiveDocument.Styles("QLNU英文摘要").Font _oB!-#  
        .NameFarEast = "宋体" )>]~Y  
        .NameAscii = "Arial" =+T$ 1  
        .NameOther = "Arial" }4!R
2c  
        .Name = "Arial" OIuEC7XM^C  
        .Size = 12 cI9}YSk  
        .Bold = wdUndefined h|_E>6d)  
        .Italic = wdUndefined [f'V pId8  
        .Superscript = wdUndefined cMCGaaLU  
        .Subscript = wdUndefined GgoPwl#{
 
    End With j0p'_|)(  
     3
aL8 gE  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat 'nOc_b0  
         ;E8.,#/a  
        .LineSpacingRule = wdLineSpaceExactly .kl _F7  
        .LineSpacing = 20 Q1f
J`A=  
         r*|#*"K"a  
        .Alignment = wdAlignParagraphJustify j XBAo  
         &TmN^R>  
        .WidowControl = False ".9b}}  
        .KeepWithNext = False 6]=R#d 7U  
        .KeepTogether = False bp06xHMu  
        .PageBreakBefore = False .e $W(}  
        .NoLineNumber = False akuV
9S  
         : GZx-   
        .OutlineLevel = wdOutlineLevelBodyText #Z'r;YOzs  
         jp
l"KN?X  
        .LeftIndent = CentimetersToPoints(0) CH6^;.  
        .RightIndent = CentimetersToPoints(0) _E[zYSo`  
        .FirstLineIndent = CentimetersToPoints(0) $YM>HZe-  
         Pa.D+  
        .CharacterUnitLeftIndent = 0 cr{;gP  
        .CharacterUnitRightIndent = 0 hJavi>374  
        .CharacterUnitFirstLineIndent = 2  < sJ  
         KaJCfu yp  
        .LineUnitBefore = 0 zCvt"!}RRa  
        .LineUnitAfter = 1 #
S57SD  
         =K6aiP$Ft  
    End With V^a]@GK:  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False "T`Q,  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll <q V<dK&W  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS 6!|-,t><  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False  vO85h  
    DoEvents 35dbDgVz$  
]]\\Y|0  
    Options.Pagination = True oT5N_\  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." gK{-eS  
    DoEvents j4v.8;  
    ActiveDocument.Repaginate l2))StEm  
qSRE)C=)  
End Sub R^`#
xQ  
YQyf:xJ  
RR u1/nam  

姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。  M=Y}w?  
DH(Qmd  

引用

引用第20楼newport93于06-14-2010 13:47发表的  : 5l"/lGw  
[42vO  
老五，I 服了U。 zJE$sB.f  
8`e75%f:2  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 l+e L:C!  

%UEV['=