Dim bContinue As Boolean ;+Yi.Q/\  
LSd*|3E}n  
Dim regEX As New RegExp N$ alUx*  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 h##WA=1QZ  
Fhj8lVvk  
Dim LastTitle0String As String, LastTitle0No As Long wH6u5*$p  
Dim LastTitle1String As String, LastTitle1No As Long O\beKBT;  
Dim LastTitle2String As String, LastTitle2No As Long H[W
eu  
Dim LastTitle3String As String, LastTitle3No As Long z,f=}t[.Y  
Dim LastTitle4String As String, LastTitle4No As Long HKmcQM  
Dim LastTitle5String As String, LastTitle5No As Long n2ndjE$  
Dim LastTabelString As String, LastTableNo As Long Iazk
dJX~  
Dim LastFigureString As String, LastFigureNo As Long *l>0t]5YH  
`
2%6V)s  
Dim strSeperator As String Z(Q2Ue;}&  
(#Mp 5C'X  
Sub ConvertWidth(fTEXT As String, rText As String) K"{HseN{  
        Selection.Find.ClearFormatting ($!KzxF3  
        Selection.Find.Replacement.ClearFormatting ZX.TqvK/r  
        Selection.Find.Wrap = wdFindContinue u Jow7-FD  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText 8{I"q[GZ  
        DoEvents 3y`F<&sA  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True )0CQP  
End Sub YD[H  
?nFO:N<  
Sub ClearDomain()
@Hjea1@t  
        With Selection.Find t#~?{i@m  
            .ClearFormatting BBL485`  
            .Replacement.ClearFormatting z,Lzgh  
            .Wrap = wdFindContinue Cmd329AH  
            Me.txtStatus.Text = "清除所有域代码" H{`{)mS  
            DoEvents |. C1|J'Z  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False KL3<Iz]  
        End With Nhf~PO({&  
End Sub r
%=[
},JQ  
l";'6;g  
Private Sub cmdCheck_Click() G=d(*+& B  
    bContinue = True zFhgE*5  
    Dim NoSeries1(1 To 16) As String &Cro2|KZhG  
    Dim NoSeries2(1 To 16) As String ,=%nw ]:  
    Dim NoSeries5(1 To 16) As String 2(#Ks's?  
    Dim NoSeriesRM(1 To 16) As String 1'KishHK=  
    Dim paraTotal As Long, ParaText As String >bm|%Ou"  
    Dim ttString As String, ttNo As String <8
o(CA\  
     @h9MxCE!  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long UTk r.T+2X  
M]EsS^/X  
    Me.txtStatus.Visible = True >Hwc,j q  
    Me.lbParaType.Visible = True 4A.Q21s  
    Me.cmdCheck.Enabled = False a/:XXy |  
     6m`{Z`c$  
     ~1(j&&kXet  
     pR$6,Vi  
     OkH\^  
    Dim ParaType As String, rText As String 1~5trsB+5  
     <Gb %uny  
    Selection.WholeStory \cySWP [  
    Selection.NoProofing = True oRY!\ADR  
     >1|g5  
    tm1 = Now Ka-p& Uv1<  
     /oP^'""@je  
        ActiveWindow.View.Type = wdNormalView /g.]RY+u|x  
     Plo,XU  
    NoSeries1(1) = "一" )iLM]m  
    NoSeries1(2) = "二" zQ8!rCkg4  
    NoSeries1(3) = "三" .YcN S%  
    NoSeries1(4) = "四" I4e+$bU3  
    NoSeries1(5) = "五" "'tRfB  
    NoSeries1(6) = "六" PEXq:TA  
    NoSeries1(7) = "七" mh`|=M]8E  
    NoSeries1(8) = "八" _a'A~JY  
    NoSeries1(9) = "九" j4.&l3  
    NoSeries1(10) = "十" 
2VgP  
    NoSeries1(11) = "十一" yfe'>]7  
    NoSeries1(12) = "十二" KS< Jv;  
    NoSeries1(13) = "十三" (.X]F_*sc  
    NoSeries1(14) = "十四" ^gR+S  
    NoSeries1(15) = "十五" d>i13dAI  
    NoSeries1(16) = "十六" tJD] (F  
     l\Ftr_Dk  
    NoSeries2(1) = "㈠" h'5Cp(G  
    NoSeries2(2) = "㈡" Jh@_9/?  
    NoSeries2(3) = "㈢" :d' 5O8  
    NoSeries2(4) = "㈣" t9 F=^)s  
    NoSeries2(5) = "㈤" 9K"JYJ q2  
    NoSeries2(6) = "㈥" Px;Cg 6  
    NoSeries2(7) = "㈦" n9UKcN-  
    NoSeries2(8) = "㈧" l[Z)@bC1  
    NoSeries2(9) = "㈨" v.g"{us  
    NoSeries2(10) = "㈩" i^2IW&+}e}  
     X"*^l_9-v  
    NoSeries5(1) = "①" Z[L5 ;  
    NoSeries5(1) = "②" X;GfPw.m  
    NoSeries5(3) = "③"
O6c\KFBSJ  
    NoSeries5(4) = "④" b-<HXn_Fd  
    NoSeries5(5) = "⑤" F :T GsV#  
    NoSeries5(6) = "⑥" iS: #o>  
    NoSeries5(7) = "⑦" Faac]5u:*  
    NoSeries5(8) = "⑧" t&RruwN_;  
    NoSeries5(9) = "⑨" QZYU0; VF  
    NoSeries5(10) = "⑩" / 9hR  
     CjZ2z%||=  
     E_:QSy5G  
    NoSeriesRM(1) = "I" Vz:_mKA  
    NoSeriesRM(2) = "II" f`P9ku#j}  
    NoSeriesRM(3) = "III" Dn;p4T@  
    NoSeriesRM(4) = "IV" >)#c\{c  
    NoSeriesRM(5) = "V" .ER98  
    NoSeriesRM(6) = "VI" FjKq%.=#  
    NoSeriesRM(7) = "VII" ygViPz <J  
    NoSeriesRM(8) = "VIII" ?y%t}C\W  
    NoSeriesRM(9) = "IX" VXKT\9g3A  
    NoSeriesRM(10) = "X" AXW!]=?X  
    NoSeriesRM(11) = "XI" b:MG@Hxc  
    NoSeriesRM(12) = "XII" Q:o7G|C  
    NoSeriesRM(13) = "XIII" 7TWNB{ K_  
    NoSeriesRM(14) = "XIV"
:`W|hE^  
    NoSeriesRM(15) = "XV" <Oz66bTze  
    NoSeriesRM(16) = "XVI" :c8^db`"  
     2@i;_
3sv  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) *gqSWQ  
     Z85|I.mr  
    If i = vbNo Then 3Sh+ u>w  
        Exit Sub j}WByaZ&  
    End If <
y=ovkM3  
     (JZ".En#X  
    If Me.chkSuper.Value Then tYe:z:7l?<  
        Me.txtStatus.Text = "检查修改所有的上标格式" a(x?f a[D  
     U}AX0* S  
        CheckSuperScript L* |1/  
         8Qrpa o  
    End If 5cTY;@ @  
     +;gsRhWk  
    If Me.chkStyle.Value Then A WJWtUa  
        Me.txtStatus.Text = "设置样式，请稍候...." .9M
.|  
        DoEvents ?0vNEz[  
        CeateOrModifyStyle IgX4.]W5  
    End If fE25(wCz7  
     '"xiS$b(  
     }T(z4P3  
     Z9 w:&oa@  
    ClearDomain ;u!?QSvb  
         *xH\)|3,  
     b1^cD6sT+  
     Es8#]'Rk  
    If Me.chkLIST.Value Then |4>:M\h  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" ME+em
1ZH  
     |f' 8p8J  
        ConvertListToOrdinary Xr_pgW |  
    End If :pZ}
*?\  
     ycpE=fso'  
     rla:<6tt  
    Dim pType As String, trimpTEXT As String C{m&}g`  
    If Me.chkNum.Value = True Then |E^|X!+9  
        Me.txtStatus.Text = "转换全角数字形式为半角" i0Pn Z J  
        ConvertWidth "１", "1" OyVm(%Z   
        DoEvents b X,Siz:F  
        ConvertWidth "２", "2" \{v,6JC  
        DoEvents kC$I2[t!  
        ConvertWidth "３", "3" |*\C{
b  
        DoEvents (B#( Z=  
        ConvertWidth "４", "4" ti_u!kNv  
        DoEvents I:;+n^N?  
        ConvertWidth "５", "5" >BoSw&T$Q  
        DoEvents `,#!C`E 9  
        ConvertWidth "６", "6" p:[LnL  
        DoEvents '2v f|CX  
        ConvertWidth "７", "7" 8wFn}lw&  
        DoEvents VifmZ;S@Y  
        ConvertWidth "８", "8" )%j"  
        DoEvents ]VjLKFb~U  
        ConvertWidth "９", "9" u''BP.Y S  
        DoEvents X"/~4\tJ"  
        ConvertWidth "０", "0" gGfq6{9g  
        DoEvents (F&YdWe:  
        ConvertWidth "ａ", "a" jD9lz-Y@  
        DoEvents 8( lCi$  
        ConvertWidth "ｂ", "b" EXbTCT}`x  
        DoEvents HeS'~Z$  
        ConvertWidth "ｃ", "c" #PAU'u 3{/  
        DoEvents X;EJ&g/  
        ConvertWidth "ｄ", "d" !$>G#+y  
        DoEvents 3M N  
        ConvertWidth "ｅ", "e"
z7=fDe -  
        DoEvents DY3:#X`4  
        ConvertWidth "ｆ", "f" u,9q<&,  
        DoEvents p;->hn~D'5  
        ConvertWidth "ｇ", "g" qgexb\x\4  
        DoEvents #7W.s!#}Dd  
        ConvertWidth "ｈ", "h" nCaLdj?  
        DoEvents w}k B6o]  
        ConvertWidth "ｉ", "i" 0XIxwc0Iw  
        DoEvents NMXM[Ukb
 
        ConvertWidth "ｊ", "j" "c Pz|~  
        DoEvents AQh["1{yJ  
        ConvertWidth "ｋ", "k" r{ @
`o@q  
        DoEvents K51fC4'{  
        ConvertWidth "ｌ", "l" YFvgz.>QE  
        DoEvents Z_it u73I  
        ConvertWidth "ｍ", "m" /hci\-8N~  
        DoEvents x0G>ktWq<  
        ConvertWidth "ｎ", "n" W_J
hNe  
        ConvertWidth "ｏ", "o" s]x2DH+_  
        ConvertWidth "ｐ", "p" fPz=KoN  
        ConvertWidth "ｑ", "q" r)
B3es&&  
        ConvertWidth "ｒ", "r" rPTfpeqN)  
        ConvertWidth "ｓ", "s" x# 8IZ  
        ConvertWidth "ｔ", "t" [.3sE  
        ConvertWidth "ｕ", "u" t9D S]Li  
        ConvertWidth "ｖ", "v" a4by^  
        ConvertWidth "ｗ", "w" g:i*O^c@  
        ConvertWidth "ｘ", "x" ^5x4q  
        ConvertWidth "ｙ", "y" 4ftj>O  
        ConvertWidth "ｚ", "z" :ICr\FY$  
        ConvertWidth "Ａ", "A" V9{B}5KC  
        ConvertWidth "Ｂ", "B" >hb-5xC  
        ConvertWidth "Ｃ", "C" X;]3$\F  
        ConvertWidth "Ｄ", "D" eH[y[~r  
        ConvertWidth "Ｅ", "E" wAz,vq=x  
        ConvertWidth "Ｆ", "F" k?-S`o%Q  
        ConvertWidth "Ｇ", "G" ?>?ZAr  
        ConvertWidth "Ｈ", "H" CWMlZVG  
        ConvertWidth "Ｉ", "I" 4  
        ConvertWidth "Ｊ", "J" +]L)>$6  
        ConvertWidth "Ｋ", "K" (Y;'[.  
        ConvertWidth "Ｌ", "L" =|JKu'  
        ConvertWidth "Ｍ", "M" &kx\W)  
        ConvertWidth "Ｎ", "N"  N|N/)  
        ConvertWidth "Ｏ", "O" m X: bA5db  
        ConvertWidth "Ｐ", "P" (`mOB6j  
        ConvertWidth "Ｑ", "Q" Pz {Ig  
        ConvertWidth "Ｒ", "R" e7|d=W  
        ConvertWidth "Ｓ", "S" 0UjyMEiK  
        ConvertWidth "Ｔ", "T" 9|a)sb7/  
        ConvertWidth "Ｕ", "U" a71}y;W  
        ConvertWidth "Ｖ", "V" Y3M','H([  
        ConvertWidth "Ｗ", "W" T&*eOr  
        ConvertWidth "Ｘ", "X" Wa/geQE1<  
        ConvertWidth "Ｙ", "Y" R
`Q?J[e  
        ConvertWidth "Ｚ", "Z" k4mTZ}6E  
        ConvertWidth "^l", "^p" =n)#!i  
        ConvertWidth "（", "(" /cY[at
|p  
        ConvertWidth "）", ")" G>j"cj  
     y`+<X{V5L  
    End If SyB-iQ
n  
^Kum%<[i  
    With ActiveDocument u]#8$M2  
        Dim tbl As Table my=~"bw4  
        For Each tbl In .Tables vGyppm[0  
            tbl.Rows.Alignment = wdAlignRowCenter 6#-Z@fz%  
            tbl.Range.Font.NameFarEast = "楷体" dw99FA6  
            tbl.Range.Font.NameAscii = "Times New Roman" R\ e#$"a5  
            tbl.Range.Font.Size = 10.5 ,whM22Af~{  
        Next -;S3|  
        Set tbl = Nothing T~|PU{  
    End With u2om5e:  
     4^BLSK~(  
     _<Vg[-:1  
    With ActiveDocument _!;\R7]  
         QvNi8TB  
        For i = 1 To .TablesOfContents.Count :z124Zf  
            .TablesOfContents(i).Delete 4sQ~&@[Q+  
        Next Xr)g  
         Oo$%Yh51~  
         04[)qPPS  
         i59k"pNm  
        paraTotal = .Paragraphs.Count x" !#_0TT}  
        paraCounter = 1 ]o!&2:'N`  
         T/Ez*iQW  
        LastTitle0No = 0 J ZNyC!u  
        LastTitle1No = 0 v6(,Ax&  
        LastTitle2No = 0 b@F_7P%  
        LastTitle3No = 0 cWc$yE'  
        LastTitle4No = 0 ^CX,nj_(  
        LastTableNo = 0 WMA*.$Zi  
        LastFigureNo = 0 /gF]s_
 
         *fOIq88  
        Dim Sec As Long "mG!L$  
         ;<~ j)8  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) ls]Elo8h1f  
        If Sec = 0 Then {cX7<7N  
            Exit Sub
;pCG9  
        End If p+5#dbyr  
         2nYiG)tg  
        k = 0 =mAGD*NK u  
        Do While (paraCounter < paraTotal) And bContinue GdL4|xv  
            k = k + 1 0=gF6U  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then @Zh8 QI+  
                Exit Do -MsuBf  
            End If m(h/:JZ\  
            paraCounter = paraCounter + 1 81cv:|"  
            If k Mod 20 = 0 Then ~.!?5(AH8z  
                Me.lbCounter.Caption = paraCounter H8x:D3C0  
                DoEvents  *X0K2|  
            End If >sB=\  
        Loop ap{{(y&R  
         d`<#}-nh  
         739l%u }<  
        Do While (paraCounter < paraTotal) And bContinue wfWS-pQ  
             =b|)Wnt2f  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) ?n73J wH  
            ShapeHeight = 0 0L 7@2|a0  
            ShapeWidth = 0 J$<:/^t  
           <w%DyRFw3  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth ^M"HSewo  
             v3!byN^  
            Select Case ParaType Dt (:u, %  
                Case "【】表格内容" }$ w4SpR  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" B0NN>)h  
                Case "章"  S/)  
                    LastTitle0No = LastTitle0No + 1 fCs\Q  
                    '新一章开始，复位其下属标题编号 |)*m[_1  
                    LastTitle1No = 0 <w%Yq?^  
                    LastTitle2No = 0 7Im}~3NJG  
                    LastTitle3No = 0 E)RI!0Ra  
                    LastTitle4No = 0 Yoj~|qL  
                     0FN~$+t)H  
                    k = Val(ttNo) hE9'F(87a  
                    If k = 0 Then '非数字编号章节 J>/Ci\OB  
                        If ttNo <> NoSeries1(LastTitle0No) Then ^glbxbhI4  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString R^F7a0"  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText 6Lav.x\W  
                        End If pC55Ec<  
                    Else n,1NJKX  
                        If Val(ttNo) <> LastTitle0No Then m]  EDuW  
                            rText = "第" & LastTitle0No & ttString U_.n=d~B  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText
R20a(4m  
                        End If B/:>{2cm  
                         GR_p1 C\  
                    End If 01UqDdoj  
                     lS>=y#i3Xv  
                    '章段落设置 Z={UM/6w  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 8UjCX[v  
                    .Paragraphs(paraCounter).Style = "QLNU章节" H@K l  
                    .Paragraphs(paraCounter).Range.Select ]5aux >.n  
                    Selection.EndKey unit:=wdLine hVROzGZk  
                    tc = Replace(rText, vbCr, "") k?z [hZg0  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False B6^w{eXN  
                Case "一级标题" <7@mg/T  
                    LastTitle1No = LastTitle1No + 1 K7n;Zb:BR  
                    '新一级标题开始，复位其下属标题编号 M M/BJ  
                    LastTitle2No = 0 !tm|A`<g#<  
                    LastTitle3No = 0 %'$cH$%~J  
                    LastTitle4No = 0 *_}IeNc  
                     &8IWDx.7}  
                    If ttNo <> NoSeries1(LastTitle1No) Then K[`4vsE  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString {^2({A#&  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText I67k M{V  
                    End If la!1[VeL  
                   v GulM<YY  
                     Z^jGT+
2  
                    '一级标题段落设置  格式：一、标题内容 *S,v$ VX  
                    .Paragraphs(paraCounter).Range.Text = rText qQ2  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" }39M_4a&  
                    .Paragraphs(paraCounter).Range.Select (e>RNn\  
                    Selection.EndKey unit:=wdLine 2{jtQlc  
                    tc = Replace(rText, vbCr, "") iA5* _tK5  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False =k[(rvU3  
                Case "二级标题" 'Hcd&3a  
                    LastTitle2No = LastTitle2No + 1 KE } o  
                    '新二级标题开始，复位其下属标题编号 xP<H,og&x=  
                    LastTitle3No = 0 9F-ViDI.  
                    LastTitle4No = 0 ./aZ

V  
                     tr#)iZ\  
                    If ttNo <> NoSeries1(LastTitle2No) Then PxdJOtI"  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString UEx(~>  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText \H"/2o%l")  
                    End If tF{{cd  
                     L|dab{9  
                    '二级标题段落设置 格式：(一)、标题内容 Y)@oo=oG  
                    .Paragraphs(paraCounter).Range.Text = rText )dUd`g  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" Q#d+IIR0gK  
                     *m `KU+o-u  
                    .Paragraphs(paraCounter).Range.Select ~2;&pZ$  
                    Selection.EndKey unit:=wdLine vr8J*36{  
                    tc = Replace(rText, vbCr, "") bw<~R2[  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False 38zR\@'j]4  
                 ]JhDRJ\  
                Case "三级标题" /It.>1~2@  
                    LastTitle3No = LastTitle3No + 1 NzwGc+\7}  
                    '新三级标题开始，复位其下属标题编号 Sm~? zU[k/  
                    LastTitle4No = 0 Ae,2Xi  
                    
s /k  
                    If Val(ttNo) <> LastTitle3No Then %-0em!tUV  
                            rText = LastTitle3No & ". " & ttString !>"INmz  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText H>@JfYZ0  
                         o3 (|FN  
                    End If a78;\{&L'  
                    '三级标题段落设置 格式：1. 标题内容 1+.y,}F6b  
                    .Paragraphs(paraCounter).Range.Text = rText >=]NO'?O
 
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" u0(hVK`":  
                    .Paragraphs(paraCounter).Range.Select n?7h
p%}  
                    Selection.EndKey unit:=wdLine U?+30{hb  
                    tc = Replace(rText, vbCr, "") qHcY 2LV  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False }lrfO_  
                Case "四级标题" ^5^ zo~^o  
                    LastTitle4No = LastTitle4No + 1 J~nJpUyP*  
                     z[<pi:  
                    If Val(ttNo) <> LastTitle4No Then _s*uF_:3  
                            rText = "(" & LastTitle4No & "). " & ttString  1.ugXD  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText #lLn='
4  
                     sf|_2sI  
                    End If &?uzJx~  
                    '四级标题段落设置 格式：(1). 标题内容 q=j/s4~  
                    .Paragraphs(paraCounter).Range.Text = rText 7J)a"d^e  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" PLY-,Q&'  
                    .Paragraphs(paraCounter).Range.Select oIu,rjb  
                    Selection.EndKey unit:=wdLine :&\E\9  
                    tc = Replace(rText, vbCr, "") */fs.G:P  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False q%)*,I<  
                 !X#3
w-K  
                Case "表格标题" P+_\}u;  
                    LastTableNo = LastTableNo + 1 SIyS.!k>  
                     e!L sc3@  
                    If ttNo <> CStr(LastTableNo) Then }]Z,\lA  
                            rText = "表" & LastTableNo & ". " & ttString Z7k1fv:S^  
                            ErrMsg.AddItem "表格编号错误：" & ParaText Is#v6:#^  
                   2t Z\{=  
                    End If Kuzy&NI^w  
                      9\W5
 
                    '表格名称段落设置 格式：表1. 表格名称 yA`]%U((  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" 4
I]/  
                    xe = Replace(rText, vbCr, "") :\ON+LQr  
                    .Paragraphs(paraCounter).Range.Select <_FF~l j  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 !W6    
                    Selection.Range.Text = xe FSXKH{Z  
                    Selection.EndKey SFm.<^6  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False s$3eJ|  
                 5y 'ycTjY  
                Case "表格首行" `G:qtHn"Q<  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" V< 9em7
 
                Case "图片标题" gE]a*TOZk  
                    LastFigureNo = LastFigureNo + 1 @)!1#^(}%  
                     ;d'O.i=  
                    If ttNo <> CStr(LastFigureNo) Then &*?!*+!,i  
                            rText = "图" & LastFigureNo & ". " & ttString 7\|NYT4  
                            ErrMsg.AddItem "表格编号错误：" & ParaText z;z
'`A  
                   y:(C=*^<t  
                    End If JUUF^/J  
                    '图片名称段落设置 格式：图1. 图名称 1v8:,!C  
                    .Paragraphs(paraCounter).Range.Text = rText n "`SL<K1  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" njx\$,ruN  
                    .Paragraphs(paraCounter).Range.Select h<z/LL8|  
                    Selection.EndKey unit:=wdLine G~mB=]  
                    xe = Replace(rText, vbCr, "") x]
jdx#'  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False RQ$o'U9
A  
                Case "正文" -`ys pE0?  
                     '正文名称段落设置 ^ZViQ$a"h;  
                    .Paragraphs(paraCounter).Style = "QLNU正文" pCud` :o"  
               Case "文献条目" Q& unA3  
                    With .Paragraphs(paraCounter) "}y3@ M^  
                        '.Range.Select >GF(.:7  
                        'Selection.ClearFormatting _sD]Viqc  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” N VM2\fs  
                        .Style = "QLNU参考文献" HS| g   
                    End With 1.cUolnr  
               Case "图表注解" @,f,tk=\S  
                    With .Paragraphs(paraCounter)
q;He:vX  
                        .Range.Font.NameFarEast = "楷体" hH@o|!y  
                        .Range.Font.NameAscii = "Times New Roman" c#4ZDjvm6  
                        .Range.Font.Size = 9 '小5号字 ~{]m8a/ `6  
                         
9zM4D  
                        .Alignment = wdAlignParagraphCenter *U[Q =w  
                        .LeftIndent = 0 2L{:H  
                        .RightIndent = 0 |^&2zyUj/  
                        .FirstLineIndent = 0 !h~#L"z  
                        .LineSpacing = 12 pZ|nn  
                        .LineSpacingRule = wdLineSpaceExactly }E\+e!'!2  
                        .LineUnitAfter = 0 ]|\>O5eeu  
                        .LineUnitBefore = 0 .ubbNp_LU  
                        .OutlineLevel = wdOutlineLevelBodyText D} <o<Dk  
                        .PageBreakBefore = False My43\p  
                        .RightIndent = 0 KE|u}M@v6  
                        .WordWrap = True 2%No>w}/2  
                        .LineUnitAfter = 0.5 Z_ FL=S\  
                         JKu6+V jO  
                    End With 'E6gEJ  
                Case Else UY?]\4Om  
                    '不作处理 e]y=]}A3{  
            End Select 7n3x19T  
             ]ge^J3az$u  
            '含有inlineshape的段落处理 qI/r_  
            If ShapeHeight > 30 Then ~bm2_/RL  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 '| Q*~Lh  
            End If ,`B>}
  
             (? #U &  
            If (ShapeWidth + ShapeHeight) > 150 Then <`VJU2  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" '/]Aaf@U8  
            End If ]oZ,{Q5~  
             ThiPT|5u  
            '段落计数器递 W$ d{  
            paraCounter = paraCounter + 1 m{=~|I  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter g he=mQ-  
            Me.txtStatus.Text = ParaText ;@;
ie8H  
            DoEvents +^% &8<  
        Loop YH'.Yj2  
    End With (H|d 3  
     *Uw#  
    msg = "" uu46'aT  
     9!/1F !  
    For i = 0 To Me.ErrMsg.ListCount - 1 zdQu%q  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) Ss#{K;  
    Next tS.b5$Q  
     %:8q7PN|  
     J*4_|j;Z-E  
     +^ 3L~?  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg *ytd.^@r  
    Me.cmdCheck.Enabled = True JbD)}(G;  
    Me.txtStatus.Visible = True U\!LZ?gC  
    Me.lbParaType.Visible = False !gH.st  
     kjYO0!C  
    bContinue = False ~a0}  
End Sub fw~%^*  
]Pl6:FB8%@  
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) 4!b'%)  
    Dim pTEXT As String /iJhCB[QZ  
     ?ia[KLt"  
    pTEXT = ChKRange.Text ,Z\,IRn  
     }n&JZ`8<s  
    ParaType = "其它" !/ q&0a  
    TitleString = pTEXT *V<2\-  
    TitleNo = "N/A" #z54/T  
     l\l]9Z6%  
    shpCounter = ChKRange.InlineShapes.Count [q|Q]O0  
    If shpCounter <> 0 Then PI<s5bns {  
        MaxShpHeight = 0: TotalShpWidth = 0 5~rY=0t  
        For i = 1 To shpCounter VDI S`E  
            k = ChKRange.InlineShapes(i).Height oDiv9jm  
            l = ChKRange.InlineShapes(i).Width U3iy
uE  
            If k > MaxShpHeight Then Sy7^;/(ZZ  
                MaxShpHeight = k ,%DAh  
            End If [g 68O*  
            TotalShpWidth = TotalShpWidth + l Q~8&pP8I!  
        Next _(A+_|  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then /01(9(  
            Exit Sub ve/6-J!5Y.  
        End If Qmh(+-Mp(  
    End If tNNg[;0  
     vWfef~}~  
    '空行 QMfy^t+I  
    If Len(pTEXT) <= 2 Then lSsFI30  
        Exit Sub xg%]\#  
    End If j`-y"6)  
     TKutO0  
         IHX#BY>  
    '是否为表格中的文字 !urd $Ta  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then G5@fqh6ws  
        ParaType = "表格内容" F$.s6Hh.  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) N#-\JlJ)  
        If k = 1 Then Ku,A}5-6
 
            ParaType = "表格首行" DB=cc  
        End If U=?"j-wN  
        Exit Sub uN^qfJ'@ >  
    End If vT<wd
#  
     s*U&[7P  
    '例外情况：脚注 ?ut juMdl  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then `U>b6{K  
        ParaType = "脚注" _A0avMD}  
        Exit Sub 38S&7>0@|q  
    End If -bX.4+U  
     J_br%AG<p  
    '例外情况：尾注 ;;J98G|1  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then {mr)n3  
        ParaType = "尾注" ^RDXX+  
        Exit Sub #a>!U'1|  
    End If )C0X]?  
     -Ce4px?3  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then T%#P??k  
        ParaType = "页眉页脚" ?d`+vHK
]>  
        Exit Sub @x>2|`65Y  
    End If L|Gk}n  
     AS-t][m#  
     5|={1Lp24g  
    With regEX tg`!svL!  
        .Global = True &WV 9%fI  
         :1  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" z:,!yU c  
        If regEX.Test(pTEXT) Then ><[.  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") e
<wj5:M|  
            TitleString = regEX.Replace(pTEXT, "$3") `- `iS?  
            TitleNo = regEX.Replace(pTEXT, "$1") *LQY6=H  
            ParaType = "章" 
u5|e9(J  
            Exit Sub iS W73P;)  
        End If [5d][1=  
         J0z0%p   
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" ':>*=&  
        If regEX.Test(pTEXT) Then *X55:yha  
            ParaType = "一级标题" >~8Df61o`  
            regEX.Execute (pTEXT) v-aq".XQ  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") ^\9G{}VY  
            TitleString = regEX.Replace(pTEXT, "$3") a^1c _  
            TitleNo = regEX.Replace(pTEXT, "$1") ,TA[el%#  
            Exit Sub <^Nj~+G'  
        End If H<Taf%JT  
         i*E`<9  
        '全角或半角括号中的数字 8$olP :d  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" H%gD [!^  
        If regEX.Test(pTEXT) Then 5"]2@@b4  
            ParaType = "二级标题" s3%8W==rBW  
            regEX.Execute (pTEXT) oYM3$.{E  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") )Ea_:
C'  
            TitleString = regEX.Replace(pTEXT, "$5") SJr:  
            TitleNo = regEX.Replace(pTEXT, "$2") L2A#OZZu  
            Exit Sub &_^<B7aC'k  
        End If O lIH0  
         I,uu>-  
        '阿拉伯数字  1. 2. FPFYH?;$  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" 6M|%nBN$|  
        If regEX.Test(pTEXT) Then 7VBw@Rh  
            ParaType = "三级标题" kO>{<$  
            regEX.Execute (pTEXT) HcUz2Rm5XP  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 dNt|"9~&  
            TitleString = regEX.Replace(pTEXT, "$3") q%&7J<  
            TitleNo = regEX.Replace(pTEXT, "$1") -k{R<L  
            Exit Sub K:Go%3~,  
        End If \r9%;?f  
         \<>%_y'/)h  
        '全角或半角括号中的阿拉伯数字 +Y[+2=lO  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" 0'}?3/u-
 
        If regEX.Test(pTEXT) Then V1U[p3J-S  
            ParaType = "四级标题" .T
X& X  
            regEX.Execute (pTEXT) p&M'DMj+  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") wLSYzz  
            TitleString = regEX.Replace(pTEXT, "$5") UAO#$o(  
            TitleNo = regEX.Replace(pTEXT, "$2") @S:/6__  
            Exit Sub [\F,\  
        End If ~n 9DG>a  
         $q+`GXc-  
        '表格名称 AWNd(B2o  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" Eqlux D=  
        If regEX.Test(pTEXT) Then bj^ m<}   
            ParaType = "表格标题" hjT1SW\I  
            regEX.Execute (pTEXT) PTZ1oD  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) @]3Rw[%z  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) ><7`$2Or  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) Y% 9F  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 ;a)\5Uy  
            Exit Sub m?`Rl6!@8\  
        End If  n(1"6  
         8{<cqYCR  
        '图片名称 QYGxr+D  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" >Tx;<G  
        If regEX.Test(pTEXT) Then /RmCMT  
            ParaType = "图片标题" X*q C:]e  
            regEX.Execute (pTEXT) j( :A  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") YTit=4|  
            TitleString = regEX.Replace(pTEXT, "$3") /)|y+<E]}  
            TitleNo = regEX.Replace(pTEXT, "$1") KYW1<Wcp  
            Exit Sub 7rg[5hP T  
        End If 8;NO>L/J]i  
         m~B=C>r}t  
        '参考文献 3dphS ^X  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 ![tI(TPq  
        If regEX.Test(pTEXT) Then Ee&$9 )t  
            ParaType = "文献条目" L,/i%-J3c  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") JwczE9~o  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") 21j+c{O  
            Exit Sub 4BtdN-T}b  
        End If 'E,Yht=/}  
         g7F Z -  
        prfx = Left(pTEXT, 2) eP?|U.on  
        If prfx = "注：" Or prfx = "注:" Then \LXC269  
            ParaType = "图表注解" ijYLf.R<  
            Exit Sub *p!dd?
8  
        End If qm8
RRDG  
         qZ}XjL  
         k~dr;j  
        ParaType = "正文" d(Ou\7  
         .>&fwG  
    End With (Mh\!rMg  
End Sub =h;!#ZC  
 %C:XzK-x  
Sub ConvertListToOrdinary() FCPRg^=<!~  
    Dim st As Paragraph zl?N1>KS  
    With ActiveDocument Q[KR,k  
        For i = .Paragraphs.Count To 1 Step -1 c y$$}  
            Set st = .Paragraphs(i) A'EA!  
            lst = st.Range.ListFormat.ListString }YO}LQ-|  
            If lst <> "" Then !:e qPpz  
                st.Range.ListFormat.RemoveNumbers .D`#a  
                st.Range.InsertBefore lst & " " Dw3! ibg  
            End If 0xcqX!(  
        Next M(jH"u&f  
    End With BE)l77=/  
    Set st = Nothing X>>rv lDN  
End Sub uSjMqfK  
}6N|+z.cU  
Private Sub UserForm_Activate() 20)Il:x  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" 6u}NI!he  
    Me.lbTotal.Font.Bold = True cf' Z#NfQ  
    Me.txtStatus.Visible = False N-]n>E  
    Me.cmdCheck.Enabled = True d:''qgz`  
| L&V-f&K  
End Sub B)dynGF8i  
[_-K  
I,;)pWX=@  
Sub CheckSuperScript() @=c='V]  
    Selection.Find.ClearFormatting t79MBgZ  
    Selection.Find.Replacement.ClearFormatting ]0le=Ee^%  
    With Selection.Find <i|+p1t  
        .Text = "[【\[［〖](*)[】\]〗］]" -y(
V-  
        .Replacement.Text = "[\1]" )Cl&"bX  
        .Replacement.Font.Superscript = True w>s  
        '.Replacement.Font.Color = wdColorBlue O
f=z!|l2  
        .Forward = True }D O#{@af  
        .Wrap = wdFindContinue ^S|^1  
        .FORMAT = True m+"%J d{q  
        .MatchCase = False Yw<:I&  
        .MatchWholeWord = False |O?Aj1g[c?  
        .MatchByte = False Wg1WY}zG  
        .MatchAllWordForms = False "kC>EtaX  
        .MatchSoundsLike = False opC11c/  
        .MatchWildcards = True 3!L)7Z/  
    End With y;jyfc$ `  
    Selection.Find.Execute Replace:=wdReplaceAll ;|y,bo@sJJ  
End Sub KK?~i[a L  
.Dmvgi]  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) z
wW9>Y  
    bContinue = False !%@{S8IP.v  
    Set regEX = Nothing IuF-bxA  
End Sub VJaL$Wv)H  
c[$oR,2b13  
Sub CeateOrModifyStyle() :u0433z:  
' L\[jafb_`  
' *?+!(E  
Dim stl As Style jp]JFh;3  
     = Yk$Q\c
 
    Options.Pagination = False WXL.D_=+  
     AF-.Nwp  
    On Error Resume Next Dr: }k*  
    For Each stl In ActiveDocument.Styles |
&Q=9H*e  
        stl.Delete &Te:l-x  
    Next ![V- e  
    On Error GoTo 0 *79<ypKG$  
     ]Y?$[+Y  
    Set stl = Nothing +}Pa/8ybJ  
     GZw<Y+/V"5  
    DoEvents ')+EW" e  
    On Error Resume Next wF(FV4#gs  
     4C:YEX~  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph e|LXH/H  
     ln.~>FO  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph UPC& O  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph ;V GrZZ  
     Ow I?(ruL'  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph pqK3u)  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph iR-O6*PTC  
     *)1,W+A5L  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph 83a Rq&(R  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph @b zrJ7$  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph r/e&}!  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph aZRgd^4  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph pLU>vQA  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph h:;~)={"X  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph =bzTfki  
     L!Ro`6|7;  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph LtQy(F%8/  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph oKac~}_KL  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph <5q
}j-Q  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph n7G$gLX  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph 1\p
[mN  
     bCF63(0  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph /d4xHt5a  
    On Error GoTo 0 LHz{*`22q  
    DoEvents <3bh-
)  
     -~q]0>  
    'BaseStyle ?r+
tU
 
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False vC7sJIch2<  
    With ActiveDocument.Styles("BaseStyle").Font OW>U5 \q  
        .NameFarEast = "宋体" uP$K{ )  
        .NameAscii = "Times New Roman" UnPSJ]VW  
        .NameOther = "宋体" rW^&8E[  
        .Size = 10.5 #E1*1E  
        .Bold = wdUndefined m8?(.BJ%  
        .Italic = wdUndefined 4)I SRR  
        .Subscript = wdUndefined =h)H`  
        .Subscript = wdUndefined l;2bBx7vW  
         '54@-}D  
        .Underline = wdUnderlineNone 7qk61YBLz  
        .UnderlineColor = wdColorAutomatic Oq("E(z+f  
        .StrikeThrough = False  0c{N)  
        .DoubleStrikeThrough = False Wac8x%J  
        
Xw% z #6l  
        .Outline = False a AuQw  
        .Emboss = False 2g$Wv :E3  
        .Shadow = False T2dpn%I  
        .Hidden = False Y5 dt?a  
        .SmallCaps = False ,y.0Cb0  
        .AllCaps = False H{BjxZ~)  
        .Color = wdColorAutomatic M3V[p9>  
        .Engrave = False G\ofg  
        .Scaling = 100 Uu(W62  
        .Kerning = 1 0ePZxOSjD  
        .Animation = wdAnimationNone r\]WDX!`  
        .DisableCharacterSpaceGrid = False <3qbgn>}b  
        .EmphasisMark = wdEmphasisMarkNone JTC&_6  
    End With E(oN S\4  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat ,-b9:]{L  
        .LeftIndent = 0 "`S6
1m_  
        .RightIndent = 0 wKYfqNCH  
        .SpaceBefore = 0 V)`?J)  
        .SpaceBeforeAuto = False /vhh2`  
        .SpaceAfter = 0 s|%</fMt9  
        .SpaceAfterAuto = False "@ n$(-.  
         )mEF_ &  
        .LineSpacingRule = wdLineSpaceSingle %(E6ADB  
        .Alignment = wdAlignParagraphJustify "hvw2lyp3  
         -zkB`~u_  
        .WidowControl = False s{/n
O)  
        .KeepWithNext = False Czp:y8YX-  
        .KeepTogether = False DXUI/C f  
        .PageBreakBefore = False 5~ kf:U%~  
        .NoLineNumber = False i<bs{Cu_S  
         g#AA.@/Z  
        .FirstLineIndent = CentimetersToPoints(0) pmS=$z;I  
        .OutlineLevel = wdOutlineLevelBodyText 25(\'484>  
        .CharacterUnitLeftIndent = 0 'Zzm'pC  
        .CharacterUnitRightIndent = 0 ;i]c my  
        .CharacterUnitFirstLineIndent = 0 }fhVn;~}8  
        .LineUnitBefore = 0 ,LW0{(&z  
        .LineUnitAfter = 0 EPI*~=Z.U  
        .AutoAdjustRightIndent = True mF1oY[xa_  
        .DisableLineHeightGrid = True q =bX HtU  
         =Yfs=+O  
        .FarEastLineBreakControl = True im'0^  
        .WordWrap = True DlP}Fp{  
        .Hyphenation = False x.q%O1  
         5HU>o|.  
        .HangingPunctuation = True 3FdoADe{{  
        .HalfWidthPunctuationOnTopOfLine = True y.nw6.`MR  
        .AddSpaceBetweenFarEastAndAlpha = True J4gIkZD  
        .AddSpaceBetweenFarEastAndDigit = True Gc'HF"w  
        .BaseLineAlignment = wdBaselineAlignBaseline y8L:nnSj  
    End With ji2#O.  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False ZoUfQ!2*  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll [B4?Z-K%  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese )Q8Q#
S  
    ActiveDocument.Styles("BaseStyle").NoProofing = False |J\/U,n
h  
     82<L07fB  
    '一级标题题样式 itP_Vxo/H  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") \Q6Ip@?  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" CtfSfSAUuu  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False exhF5,AW|K  
    With ActiveDocument.Styles("QLNU一级标题").Font %%_90t  
        .NameFarEast = "黑体" Xy{b(b;9  
        .NameAscii = "Arial Black" 4k#6)e  
        .NameOther = "黑体" iqU}t2vFrj  
        .Name = "黑体" L.R  
        .Size = 16              '三号 N 8OPeY  
        .Bold = True , ^n Ui c  
        .Italic = wdUndefined fZZ!kea[  
        .Subscript = wdUndefined +)|
2$$m  
        .Superscript = wdUndefined TwH(47|?Nt  
    End With ~ce. &C7cR  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat ;f><;X~KX  
        
1/i|  
        .LeftIndent = CentimetersToPoints(0) Ymw
Va s  
        .RightIndent = CentimetersToPoints(0) ;V;4#  
        .FirstLineIndent = CentimetersToPoints(0) vfjIpg%i  
         p+t8*lkq  
        .LineSpacingRule = wdLineSpaceSingle f|`{PP`\  
        .Alignment = wdAlignParagraphCenter AL;"S;8  
         i~2>kxf;K1  
        .WidowControl = True \DHCf4,  
        .KeepWithNext = True JUE>g8\b  
        .KeepTogether = True "7l}X{b  
        .OutlineLevel = wdOutlineLevelBodyText <7p2OPD  
         &5a>5ZG}  
        .LineUnitBefore = 0.5 %~h'#S2X(  
        .LineUnitAfter = 0.5 V7^?jck  
    End With n0m9|T&  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False eAqQ~)8^  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll h{m
]n!  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese z}&<DYD  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True n Au>i<  
    DoEvents 2vXMrh\  
     'W#<8eJo  
    '二级 XBc+_=)$  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") AT%0i  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" 56)B/0=  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False \)v.dQ!  
    With ActiveDocument.Styles("QLNU二级标题").Font KDhHp^IXQ  
        .NameFarEast = "黑体" i et|\4A  
        .NameAscii = "Arial Narrow" -or9!:8  
        .NameOther = "黑体" o ZAjta_4  
        .Name = "黑体" B|Omz:c  
        .Size = 15        '小三号 t.w?OyO  
        .Bold = False M}c_KFMV  
        .Outline = False sJD"u4#y  
        .Italic = wdUndefined ~vXul`x  
        .Subscript = wdUndefined ^_oLhNoez2  
        .Superscript = wdUndefined &K4o8Qz  
    End With %ry>p(-pC(  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat (=X16}n:>  
        .LeftIndent = CentimetersToPoints(0) /Iskjcc60W  
        .RightIndent = CentimetersToPoints(0) sq^,l6es>  
        .FirstLineIndent = CentimetersToPoints(0) Z+}SM]m  
         Bj2rA.
M  
        .LineSpacingRule = wdLineSpaceSingle 0I k@d'7  
        .Alignment = wdAlignParagraphLeft r1\.Jz  
         j]P|iL  
        .WidowControl = True KyDBCCOv  
        .KeepWithNext = True o ).pF">jh  
        .KeepTogether = True \-B>']:R4  
        .PageBreakBefore = False P8EGd}2{8  
        .OutlineLevel = wdOutlineLevelBodyText QZ`<+"a0  
         csV1ki/A  
        .LineUnitBefore = 0.5 7#&sG  
        .LineUnitAfter = 0.5 Z
LV~It&)  
         H!A^ MI  
    End With ge` J>2  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False ux }DWrR  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll %9Ue`8  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese MG<~{Y84}  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True #4Z$O(  
    DoEvents c
{<3\  
     C }[u[)  
    '三级标题样式 5 909O  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ~}5(J, 1!  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" C]`Y PM5  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False qN)cB?+  
    With ActiveDocument.Styles("QLNU三级标题").Font XyIw5 9  
        .NameFarEast = "宋体" P~#jvm!  
        .NameAscii = "Times New Roman" u+V;r)J{  
        .NameOther = "黑体" Ia\Nj _-%L  
        .Name = "黑体" @s/ qOq?  
        .Size = 14               '四号 ?ix,Cu@M  
        .Bold = False MqpoS  
        .Outline = False [L275]4n!]  
        .Italic = wdUndefined !6KEW,  
        .Subscript = wdUndefined x4. #_o&  
        .Superscript = wdUndefined NUU}8a(K  
    End With `+gF|o9  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat rB)WHx<  
        .LeftIndent = CentimetersToPoints(0) _#+9)*A  
        .RightIndent = CentimetersToPoints(0) SX4p(t  
        .FirstLineIndent = CentimetersToPoints(0) L`!sV-.  
         lC2xl(#!  
        .LineSpacingRule = wdLineSpaceSingle (u_sz  
        .Alignment = wdAlignParagraphLeft 0uvL,hF  
         OlK2< <  
        .WidowControl = True upJishy&I  
        .KeepWithNext = True zb4g\H 0  
        .KeepTogether = True {kzM*!g  
        .PageBreakBefore = False tEeMl =u  
        .OutlineLevel = wdOutlineLevelBodyText &>/nYvuq-  
         m&\Gz*)3  
        .CharacterUnitLeftIndent = 0 D3Mce|t^  
        .CharacterUnitRightIndent = 0 &A9+%kOk>  
        .CharacterUnitFirstLineIndent = 2 p-}:7CXP  
         ff0B*0  
        .LineUnitBefore = 0.5 N+tS:$V  
        .LineUnitAfter = 0 -Av/L>TxlI  
    End With q8D1MEBL`  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False ~)Z`Q  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll ,|H!b%ZW  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese J0oR]eT}  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True O~S}u  
    DoEvents [ M'1aBx^  
     f]lDJ?+ M  
    '四级标题样式 N.<hZ\].=
 
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") wVvU]UT  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" XC$~!  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False ^Nu} HcC+  
    With ActiveDocument.Styles("QLNU四级标题").Font WS(c0c  
        .NameFarEast = "宋体" V~wmGp.e  
        .NameAscii = "Times New Roman" @4|/| !  
        .NameOther = "宋体" w5;EnI  
        .Name = "宋体" ZQ:Y5ph  
        .Size = 12               '小四号 ^\I$tnY`  
        .Bold = True Y}6)jzBV  
        .Outline = False =Dz[|$dV  
        .Italic = wdUndefined ALv\"uUNu+  
        .Subscript = wdUndefined NX;&V7  
        .Superscript = wdUndefined LiRY-;8=  
    End With ; YRZg|Zw  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat J0K"WmW  
         |WX4L7yrhK  
        .LeftIndent = CentimetersToPoints(0) C+k>Ajr  
        .RightIndent = CentimetersToPoints(0) &qC>*X.  
        .FirstLineIndent = CentimetersToPoints(0) pxF!<nN1,  
         pg<>Ow5,~l  
        .LineSpacingRule = wdLineSpaceSingle 9D<HJ(  
        .Alignment = wdAlignParagraphLeft 0(kp>%mbB  
         [q@%)F  
        .WidowControl = True . FruI#99  
        .KeepWithNext = True 7%'<}u  
        .KeepTogether = True bcYz?o
6  
        .PageBreakBefore = False V O
X>Sl  
        .OutlineLevel = wdOutlineLevelBodyText ~!;3W!@(E  
         |j+~Td3})&  
        .CharacterUnitLeftIndent = 0 t|q=NK/  
        .CharacterUnitRightIndent = 0 mvw:E_  
        .CharacterUnitFirstLineIndent = 2 M~6I-HexT|  
         d?K8Ygz  
        .LineUnitBefore = 0 7[)(;-  
        .LineUnitAfter = 0 IlrmXSr  
         &td#m"wI  
    End With Dmw,Bi*  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False "&%Hb's  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll 'UyL%h;nJ  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese a$GKrc,z  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True 7^L&YVW  
    DoEvents )t4C*+9<U  
     Wama>dy%  
    '正文校式 H1]\B:  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") *" )[Srbg  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" p.HA`R>  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False J]UH q$B  
    With ActiveDocument.Styles("QLNU正文").Font d !H)voX  
         GyCpGP|AZ  
        .NameFarEast = "宋体" #&Ee5xM=  
        .NameAscii = "Times New Roman" _e'mG'P(  
        .NameOther = "宋体" *+AP}\p0F  
        .Name = "宋体" x#^kv)  
         u *< (B  
        .Size = 12               '小四号 ka*UyW}  
         *v9G#[gG  
        .Bold = wdUndefined D8ly8]H  
        .Italic = wdUndefined cMg/T.O  
        .Subscript = wdUndefined #cs!`Ngb+  
        .Superscript = wdUndefined j;3o9!.s:  
         nAzr!$qbNv  
        .Outline = False >O  _  
        .Emboss = False F)@<ZE  
        .Shadow = False I?"5i8E  
        .Hidden = False [=Z{y8#:J  
         6yb<4@LOb  
        .DisableCharacterSpaceGrid = True { \ePJG#  
    End With ~
I<y^]2{  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat D6t]E)FH  
         #q- _   
        .LeftIndent = CentimetersToPoints(0) ; 
p9D2&  
        .RightIndent = CentimetersToPoints(0) K"1J1>CHQ  
        .FirstLineIndent = CentimetersToPoints(0) R<=t{vTJ5  
         /p>[$`Aq  
        .LineSpacingRule = wdLineSpaceExactly ^kq!/c3r  
        .LineSpacing = 20 -AE/,@\P  
        .Alignment = wdAlignParagraphLeft pr"flRQr#  
         Ir'f((8:  
        .WidowControl = False d(!N$B\[5T  
        .KeepWithNext = False 8`2K=`]ES+  
        .KeepTogether = False `g=~u{0  
        .PageBreakBefore = False <fJ\AP5  
        .Hyphenation = False F0\ry "(t  
         #5D+XBT  
        .OutlineLevel = wdOutlineLevelBodyText riL!]'akV  
         55,-1tWs  
       d1
-p];&  
        .CharacterUnitLeftIndent = 0 93\,m+-  
        .CharacterUnitRightIndent = 0 S&*pR3,u  
        .CharacterUnitFirstLineIndent = 2 tTgW^&B  
         cF2/}m]  
        .LineUnitBefore = 0 )B_h"5X4\y  
        .LineUnitAfter = 0 N;HvB:c  
        .SpaceBefore = 0 3(%,2  
        .SpaceAfter = 0 wOOPWwk  
         }>w4!  
        .DisableLineHeightGrid = True 8'_Y=7b0Nw  
    End With <c#[.{A}s  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False C#Jj;Gd  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll 'UxA8i(  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese s__g*%@B b  
    ActiveDocument.Styles("QLNU正文").NoProofing = True DFonK{  
    DoEvents d%hA~E1rR  
     2. _cEY34  
    '图片段落样式 UL%ihWq  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") Mx"tUoU6z  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" pB ./L&h  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False ~'3% Qr  
    With ActiveDocument.Styles("QLNU图片段落").Font oB9m\o7$  
        .Size = 12               '小四号 .p`'^$X^  
        .Italic = wdUndefined (XJQ$n  
        .Subscript = wdUndefined gISs+g  
        .Superscript = wdUndefined EMG*8HRI>r  
    End With :+Kesa:E  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat U&R$(k0zS  
         R 6Em^A/>  
        .LeftIndent = CentimetersToPoints(0) m!_ghD{5h  
        .RightIndent = CentimetersToPoints(0) KfNXX>'  
        .FirstLineIndent = CentimetersToPoints(0) GN0'-z6Uy  
         keOW{:^i  
        .LineSpacingRule = wdLineSpaceSingle 9[D7N  
        .Alignment = wdAlignParagraphCenter '_)tR;s  
        .KeepWithNext = True \4k *Zk  
        .OutlineLevel = wdOutlineLevelBodyText %*OJRL`  
         &U
R/Txnu  
        .CharacterUnitLeftIndent = 0 JyO lVs<T  
        .CharacterUnitRightIndent = 0 1*h7L<#|mQ  
        .CharacterUnitFirstLineIndent = 0 bG)MG0<TT  
         $}$@)!-  
        .LineUnitBefore = 0 B
*IDx`^Y  
        .LineUnitAfter = 0 AHGcWS\,X  
    End With ]Ho`*$dD  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False K}BX6dA  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll @ni~ij  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese R  28*  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True
Q_.Fw\l$`  
    DoEvents 
v%5(-  
     _3a 5/IZ  
     vEGK {rMA  
    '第X章 k 9rnT)YU  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") j&.BbcE45  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" $ *A 3p  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False *q{UipZbx  
    With ActiveDocument.Styles("QLNU章节标题").Font Fev3CV$  
        .NameFarEast = "黑体" ^%pwyY\t  
        .NameAscii = "Arial Black" $P3nP=mf  
        .NameOther = "Arial Black" )v~]lk,
o  
        .Name = "黑体" x3|'jmg  
        .Size = 16 L:-lqag!  
        .Bold = True ub5
hX{uT  
        .UnderlineColor = wdColorAutomatic mI#; pO2  
        .Outline = False 7p6J
   
        .Italic = wdUndefined hT"K}d;X  
        .Subscript = wdUndefined :8rCCop Uv  
        .Superscript = wdUndefined RZA\-?cO)  
        .Scaling = 100 ".f:R9-  
        .DisableCharacterSpaceGrid = True #9OP.4  
    End With <h9\A&  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat Umg81!  
        .LineSpacingRule = wdLineSpaceSingle m1
2B:f  
        .Alignment = wdAlignParagraphCenter \<**SSN  
        .WidowControl = True R:N-y."La.  
        .KeepWithNext = True |U $-d^ZJ  
        .KeepTogether = True tpONSR Y  
        .PageBreakBefore = True VKz<7K\/  
        .OutlineLevel = wdOutlineLevelBodyText HU
9y{H  
         +`-a*U94  
        .LeftIndent = CentimetersToPoints(0) 4a! 7|}W  
        .RightIndent = CentimetersToPoints(0) UI C? S  
        .FirstLineIndent = CentimetersToPoints(0) J-F_XKqH  
         ;4$C$r!t  
        .CharacterUnitLeftIndent = 0 JxJntsn  
        .CharacterUnitRightIndent = 0 ) AXH^&  
        .CharacterUnitFirstLineIndent = 0 Bq_P?Q+\  
         L0tK
Ipk  
        .LineUnitBefore = 1 ~b0qrjF;O  
        .LineUnitAfter = 0.5 J_|x^  
         Xf9%A2 iB  
        .AutoAdjustRightIndent = False "~C#DZwt{  
        .DisableLineHeightGrid = True (p=GR#  
        .FarEastLineBreakControl = True rrYp^xLa`  
        .WordWrap = True #Ca's'j&f  
    End With :'~ gLW>j  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False B}+9U  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll 3:lp"C51  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese "|`9{/]  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True ~-wJ#E3g  
    DoEvents g/p9"eBpq  
     \*aLyyy3  
    '表格标题 lVtn$frp  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") mcr#Ze  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" C}_:K)5q  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False bK9~C" k  
    With ActiveDocument.Styles("QLNU表格标题").Font *J5RueUG  
        .NameFarEast = "楷体" ~79Qg{+]N  
        .NameAscii = "Arial" GK? R76d  
        .Name = "楷体" shIi
,!bZ  
        .Size = 10.5 %+a@|Z  
        .Bold = True pVS2dwBqE  
        .Underline = wdUnderlineNone / LM  
        .Italic = wdUndefined y51D-vj
 
        .Subscript = wdUndefined \/'n[3x  
        .Superscript = wdUndefined kTWg31]~  
        .Color = wdColorAutomatic 9t.yP;j\Y  
    End With 5KE%@,k k  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat :iB%JY Ad  
         #l#[\6  
        .LineSpacingRule = wdLineSpaceSingle } <4[(N  
        .Alignment = wdAlignParagraphCenter 6xh#;+e}  
        .KeepWithNext = True KxmPL  
        .KeepTogether = True ID#qKFFW  
        .OutlineLevel = wdOutlineLevelBodyText <Cu?$  
         rq["O /2  
        .LeftIndent = CentimetersToPoints(0)  iLcadX  
        .RightIndent = CentimetersToPoints(0) ?0<INS~  
        .FirstLineIndent = CentimetersToPoints(0) )=nPM`Jn.  
         3}{5 X'  
        .CharacterUnitLeftIndent = 0 w*%$ lhp!  
        .CharacterUnitRightIndent = 0 A>%UYA  
        .CharacterUnitFirstLineIndent = 0 E(kpK5h{  
         zN/~a
)  
        .LineUnitBefore = 1 e
.|RC  
        .LineUnitAfter = 0 Pl&`&N;  
        
7u5\#|yL  
    End With '8kjTf#g<l  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False Gj8[*3d  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll "UGj
4^1f  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese cqL7dlhIl  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True #aY<J:Nx  
    DoEvents I7z/GA\x  
IPi<sE  
    '表格首行 fhIj+/{_O  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") kah3Uhr~  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False /3Ix,7  
    With ActiveDocument.Styles("QLNU表格首行").Font "4uUI_E9F;  
        .NameFarEast = "楷体" u;ooDIq@  
        .NameAscii = "Times New Roman" np\2sa`  
        .Name = "楷体" ZQ-`l:G  
        .Size = 9 wx%nTf/Oa  
        .Bold = True oEoJa:h  
        .Underline = wdUnderlineNone 9^#gVTGXv  
        .Italic = wdUndefined 'oZn<c`  
        .Subscript = wdUndefined w<>6>w@GZ  
        .Superscript = wdUndefined vLFaZ
^(  
    End With iz>y u[|  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat S{i@=:  
        .LineSpacingRule = wdLineSpaceSingle [=ak >>8  
        .Alignment = wdAlignParagraphCenter J&ECm +2  
         2vdQ&H4  
        .LeftIndent = CentimetersToPoints(0) Po11EZa$a  
        .RightIndent = CentimetersToPoints(0) ]q[  
        .FirstLineIndent = CentimetersToPoints(0) i~B@(,  
         ^iRwwN=d  
         #IhLpO  
        .CharacterUnitLeftIndent = -0.5 9'#.>Q>0=j  
        .CharacterUnitRightIndent = -0.5 3r:)\E+Q_  
        .CharacterUnitFirstLineIndent = -0.5 o/ g+Z  
         &xuwke:[  
        .LineUnitBefore = 0 %_R|@cyD  
        .LineUnitAfter = 0 +M O5'z  
        .SpaceBefore = 0 _7.GzQJ  
        .SpaceAfter = 0 _q$LrAT  
         gq_7_Y/  
    End With G<-9U}~76  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False 8<wuH#2<y  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll PT@e),{~o9  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese vs])%l%t  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True ]n]uN~)9  
    DoEvents 7M#$: Fdb  
Jv^cOc  
    '表格内容 \P~rg
~  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") ]
VG84bFm  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False ?~JxO/K  
    With ActiveDocument.Styles("QLNU表格内容").Font ciGpluQF  
        .NameFarEast = "楷体" tZu*Asx7  
        .NameAscii = "Times New Roman" gL SG:7m@  
        .Name = "楷体" kH8$nkeev  
        .Size = 9 JlDDM %  
        .Bold = False 5 (21gW9  
        .Underline = wdUnderlineNone a3dzok  
        .Italic = wdUndefined #w,WwL!  
        .Subscript = wdUndefined i=X*  
        .Superscript = wdUndefined xe gL!  
    End With fJ&<iD)6  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat ?+,*YVT  
        .LineSpacingRule = wdLineSpaceSingle 7hF,gl5  
        .Alignment = wdAlignParagraphCenter akvwApn5  
         E7NbP
Nd  
        .LeftIndent = CentimetersToPoints(0) O`[iz/7m  
        .RightIndent = CentimetersToPoints(0) ;Ma/b=Y  
        .FirstLineIndent = CentimetersToPoints(0) F'>GN}n  
         nl-t<#z[  
        .CharacterUnitLeftIndent = -0.5 Q_]!an(  
        .CharacterUnitRightIndent = -0.5 #S53u?JV8  
        .CharacterUnitFirstLineIndent = -0.5 }y-;>i#m=g  
        .LineUnitBefore = 0 | 2.e0Z]k  
        .LineUnitAfter = 0 e8ULf~I  
        .SpaceBefore = 0 L>~@ 9a\jO  
        .SpaceAfter = 0 T7lj39pJq  
    End With o(d_uJOB  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False mU3Y)  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll XAU_SPAjiw  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese ua$k^m7m5  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True ]o[X+;Tj|  
    DoEvents V3 _b!  
b1+hr(kMRM  
    '图片标题 -_EY$?4  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") [Zt# c C+  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" &J;H@d||  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False KI Plb3oh  
    With ActiveDocument.Styles("QLNU图片标题").Font TvWU[=4Yk  
        .NameFarEast = "楷体" Ku0H?qft(  
        .NameAscii = "Times New Roman" Z.aLk4QO@  
        .Name = "楷体" wj#J>C2]  
        .Size = 10.5 ]D?# \|  
        .Bold = True Z(LxB$^l[  
        .Underline = wdUnderlineNone 9QOr,~~s  
        .Italic = wdUndefined o!s%h!%L  
        .Subscript = wdUndefined $d2kHT  
        .Superscript = wdUndefined KcmDF4C2
 
        .Outline = False Wd^lt7(j  
        .Shadow = False *dG}R#9Nv  
        .Color = wdColorAutomatic B%eDBu ")  
    End With cVB|sYdf  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat $(KIB 82&  
        .LineSpacingRule = wdLineSpaceSingle M2;%1^  
        .Alignment = wdAlignParagraphCenter S_|9j{w)  
         ~}$\B^z+  
        .KeepWithNext = wdUndefined z)&naw.  
        .KeepTogether = True 49xp2{  
        .OutlineLevel = wdOutlineLevelBodyText K9C@dvFH  
         4V228>9w  
        .LeftIndent = CentimetersToPoints(0) =G[email protected]`X  
        .RightIndent = CentimetersToPoints(0) oN[Fza>  
        .FirstLineIndent = CentimetersToPoints(0) 9
5$pG/o  
         6^]`-4*W  
        .CharacterUnitLeftIndent = 0 5?3Isw`v2  
        .CharacterUnitRightIndent = 0 @)OnIQN~  
        .CharacterUnitFirstLineIndent = 0 cyGN3t9`.  
         ?#BZ `H  
        .LineUnitBefore = 0 W>}Qer4  
        .LineUnitAfter = 0 Dm|gSv8d,  
    End With g{A3W) [ b  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False <ELziE~>V  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll DOF?(:8Y  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese Z]x5!  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True &Rt+LN0qB0  
    DoEvents } g3HoFC  
/FP~jV!z  
    '目录项 tp1KP/2w[  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") u}-d7-=  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" ;OQ'B= uK  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False & %N(kyp  
    With ActiveDocument.Styles("QLNU目录项").Font VD9 q5tt7  
        .NameFarEast = "黑体" vx\nr8'k  
        .NameAscii = "Times New Roman" y3={NB+  
        .NameOther = "Times New Roman"  eW%L$I  
        .Name = "黑体" bK$/,,0=X/  
        .Size = 10.5 ~:/%/-^  
        .Bold = False o{{:|%m3Q  
        .Italic = wdUndefined *D=K{bUe'  
        .Underline = wdUnderlineNone 5E]UI YAkV  
        .Color = wdColorAutomatic mD D4_E2*  
        .Superscript = wdUndefined Yl)eh(\&J  
        .Subscript = wdUndefined ERp:EZ'  
    End With 0(Y%,q  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat wUru1_zjO  
         JdaFY+f:  
        .LineSpacingRule = wdLineSpaceSingle Yw~;g:
=  
        .Alignment = wdAlignParagraphLeft ",~ b2]ym  
         kF(Ce{;z  
        .WidowControl = False 84[|qB,ML  
        .KeepWithNext = False 457fT|  
        .KeepTogether = False 9nng}em>.  
        .PageBreakBefore = False @DfkGm[%  
        .NoLineNumber = False vQ:x%=]  
        .OutlineLevel = wdOutlineLevelBodyText "C:rTIH  
         #joF{M{  
        .LeftIndent = CentimetersToPoints(0) Y)'!'J  
        .RightIndent = CentimetersToPoints(0) gq H`GI  
        .FirstLineIndent = CentimetersToPoints(0) (oLpnjJ(,  
        
q?;N7P  
        .CharacterUnitLeftIndent = 0 Rz.i/wg}  
        .CharacterUnitRightIndent = 0 YHETI~'j.  
        .CharacterUnitFirstLineIndent = 0 #'J~Xk   
         H{j~ihq7  
        .LineUnitBefore = 0 (g%JK3  
        .LineUnitAfter = 0 <)_:NRjBF&  
    End With X!U]`Qh  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False _wm
~}_Q  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll $!3gN%  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot vn|TiZ  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese dzgs
%qtK  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True gXq!a|eH  
    DoEvents /lf\ E=  
     <8iYL`3  
    '参考文献 T1lXYhAWS  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") ^D9 /  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" -,R0IGS  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False r umAo'T/%  
    With ActiveDocument.Styles("QLNU参考文献").Font >:.w7LQy/  
        .NameFarEast = "宋体" rU; g0'4e  
        .NameAscii = "Times New Roman" S8*^ss>?^R  
        .NameOther = "Times New Roman" lP}od  
        .Name = "Times New Roman" 8BHL  
        .Size = 12 _TZW|Dh-2F  
        .Bold = False AiY|O S3R  
        .Italic = wdUndefined ~J%R-{U9  
        .Subscript = wdUndefined a;56k  
        .Superscript = wdUndefined C@ FxB[  
        .Underline = wdUnderlineNone >oe4mW  
        .UnderlineColor = wdColorAutomatic w>v5oy8s-  
        .Color = wdColorAutomatic X"kXNKV/n  
        .Engrave = False `if
b<T  
    End With U^B"|lc:[  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat K{|w 43>D  
         |)^clkuGX  
        .LineSpacingRule = wdLineSpaceExactly :L]-'\y  
        .LineSpacing = 16 G5!|y#T  
        .Alignment = wdAlignParagraphLeft ov1Wr #s  
        .WidowControl = False >-VWm A  
        .KeepWithNext = False CIIY|DI`l  
        .KeepTogether = False Lqg]Fd  
        .PageBreakBefore = False vkd *ER^  
        .OutlineLevel = wdOutlineLevelBodyText M,&tA1CH  
         $b4*/vMr  
        .LeftIndent = CentimetersToPoints(0) P\.WXe#j  
        .RightIndent = CentimetersToPoints(0) 'n>K^rA  
        .FirstLineIndent = CentimetersToPoints(0) P`}$-#DF  
         u06tDJ[  
        .CharacterUnitLeftIndent = 0 ]AFj&CteZ/  
        .CharacterUnitRightIndent = 0 !K!)S^^Po?  
        .CharacterUnitFirstLineIndent = -2 SxMxe,.|  
          W|lH  
        .LineUnitBefore = 0 +z+ F-  
        .LineUnitAfter = 0 =nLO?qoe  
        .SpaceBefore = 0 \.5F](:  
        .SpaceAfter = 0 .H ,pO#{;  
         ex.+'m<g  
    End With Z#CxQ D%\  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False g+igxC}2z  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll I9;xzES  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS S<V-ZV&_:U  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True R_maNfS]Z  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese yU*
u  
    DoEvents y*w"J3|29  
&xgZFSq  
    ' F@g17aa  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") eUYZxe :6  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" P_Z M'[  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False 2>g^4(  
    With ActiveDocument.Styles("QLNU论文题目").Font 7@J jjV  
        .NameFarEast = "黑体" 6j_ 678  
        .NameAscii = "Arial Black" miwf&b  
        .NameOther = "Arial Black" 9p5= _  
        .Name = "Arial Black" %z30=?VL  
        .Size = 16 gRHtgR)T3  
        .Bold = False n4Vwao/9 x  
        .Italic = wdUndefined ^Fn%K].
X  
        .Superscript = wdUndefined { AFf:[G  
        .Subscript = wdUndefined Ocybc%  
        .Underline = wdUnderlineNone ' [%jj UU  
        .UnderlineColor = wdColorAutomatic ?qy*s3j'M  
        .Color = wdColorAutomatic Jl\'V
  
cxgE\4_u"  
    End With $Tfm/=e   
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat >Dxe>Q'df  
        .LineSpacingRule = wdLineSpaceSingle 18jJzYawh  
        .Alignment = wdAlignParagraphCenter 5Wo5n7o  
        .WidowControl = True !-7_ +v>  
        .KeepWithNext = True >#INEO  
        .KeepTogether = True 2bkJ /u`i  
        .PageBreakBefore = True V DG|>#[!  
        .NoLineNumber = False -=5EbNPwG  
        .OutlineLevel = wdOutlineLevelBodyText TM)u?t+[  
         KVg[#~3  
        .LeftIndent = CentimetersToPoints(0) C(}^fJ6r  
        .RightIndent = CentimetersToPoints(0) WXLK89ev\  
        .FirstLineIndent = CentimetersToPoints(0) ka/nQ~_#<  
         :Pc(DfkS  
        .CharacterUnitLeftIndent = 0 [M`=HhJ4  
        .CharacterUnitRightIndent = 0 XJc ,uj7  
        .CharacterUnitFirstLineIndent = 0 P`tyBe#=  
         h 5Hr[E1  
        .LineUnitBefore = 1 2R\ +}  
        .LineUnitAfter = 1 axtb<5&  
         ><cU7 ja[^  
        .BaseLineAlignment = wdBaselineAlignAuto hzv3F9.x  
    End With v_.HGGS  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False Cpe#[mE  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll Oc#>QZ3  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS W8y$Ve8m  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True r|<6Aae&  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese r5[4h'f  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True vG2.]?  
    DoEvents 9976H\{  
     nX)f'[ 7  
    '中文摘要 g@Ld "5$^2  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") d @m\
f  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" Gy9 $Wj  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False a#$N%=j  
    With ActiveDocument.Styles("QLNU中文摘要").Font ZvH?3Jy  
        .NameFarEast = "宋体" z"EWj73  
        .NameAscii = "Times New Roman" &f"T,4Oh  
        .NameOther = "Times New Roman" 7|Xe&o<n  
        .Name = "Times New Roman"
p3 e|j  
        .Size = 12 pcnl0o~  
        .Bold = wdUndefined oXdel Ju?  
        .Superscript = wdUndefined ;I+H>$%jZ  
        .Subscript = wdUndefined
|U EC  
        .Italic = wdUndefined )(lJT&e  
        .Underline = wdUnderlineNone *Z; r B  
        .UnderlineColor = wdColorAutomatic V3Yd&HVWNQ  
        .Color = wdColorAutomatic St+ "ih%  
    End With ^zgacn  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat TU%bOAKF\  
        .LineSpacingRule = wdLineSpaceExactly 2[ksi51y  
        .LineSpacing = 20 ?~Pv3'%d  
        .Alignment = wdAlignParagraphLeft &sdx`,  
         6Kp}_^|z  
        .WidowControl = False @`S.@^%7fO  
        .KeepWithNext = False TtZ}
"MPZ  
        .KeepTogether = True T{tn.sT  
        .PageBreakBefore = False *,&S',S-  
        .NoLineNumber = False 0yaMe@&,  
        .OutlineLevel = wdOutlineLevelBodyText ~;8I5Sge  
         []gRfM]$ &  
        .LeftIndent = CentimetersToPoints(0) sBU_Ft  
        .RightIndent = CentimetersToPoints(0) Wxn#Rk#>  
        .FirstLineIndent = CentimetersToPoints(0) 6A?8t m/0  
         F\-Si!~oOz  
        .CharacterUnitLeftIndent = 0 ]+ZM/'X  
        .CharacterUnitRightIndent = 0 hl<y4y&|  
        .CharacterUnitFirstLineIndent = 2 ke\[wa_!6b  
        .LineUnitBefore = 0 _4v"")Xe  
        .LineUnitAfter = 0 gHZqA_*T8U  
         lH6fvz  
    End With Y&5.9 s@'  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False "Vy WT  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll Mb.4J2F?  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS Im+7<3Z  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True Yz\ N&0"  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese X8Fzs!L`  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True BPewc9RxV  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete ^KbL , T  
    DoEvents [S0mY[ "  
     F,&)X>:l  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") eF5;[ v  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" #ua^{OrC/  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False \7 Gz\=\LR  
    With ActiveDocument.Styles("QLNU英文标题").Font tF%QH[  
        .NameFarEast = "黑体" uXpv*i{R  
        .NameAscii = "Arial Narrow" ,rai%T/rL  
        .Name = "Arial Narrow" @Z q[e   
        .Size = 16 N2Ssf$  
        .Bold = True mf9hFy*<4  
        .Bold = wdUndefined Kp&3=e;vn{  
        .Superscript = wdUndefined 0sh~I  
        .Subscript = wdUndefined E30Z`$cz:  
        .Italic = wdUndefined MMd.0JuaO  
         r^5jh1  
        .Underline = wdUnderlineNone Cfv]VQQE  
        .UnderlineColor = wdColorAutomatic P#;Th8k{K2  
        .StrikeThrough = False kC`Rd:5  
        .DoubleStrikeThrough = False y42#n  
    End With Du!._  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat yLqF ,pvO  
        .LineSpacingRule = wdLineSpaceSingle ?oKL&I@  
        .Alignment = wdAlignParagraphCenter ve fU'  
        .WidowControl = True 0>FE %  
        .KeepWithNext = False RX>2~^  
        .KeepTogether = False T,OS0;7O  
        .PageBreakBefore = False
]]PE#DDg  
        .NoLineNumber = False S3y246|4  
        .FirstLineIndent = CentimetersToPoints(0) T?rH ,$:  
        .OutlineLevel = wdOutlineLevelBodyText CmnHh~ %  
         3[V
NsX  
        .LeftIndent = CentimetersToPoints(0) q
rE0H  
        .RightIndent = CentimetersToPoints(0) [0!{_E)<  
        .FirstLineIndent = CentimetersToPoints(0) QNpuTZn#Q  
         J|5Ay1eF-  
        .CharacterUnitLeftIndent = 0 ~},W8\C>  
        .CharacterUnitRightIndent = 0 ]
\dHU.i  
        .CharacterUnitFirstLineIndent = 0 NzlAC  
         hZU1O  
        .LineUnitBefore = 1 bo>E"<   
        .LineUnitAfter = 1 EEwWucQ  
         6 64q~_@B1  
    End With $r15gfne>  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False h.}u?{  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll ~OCZz$qA  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS Z&Pu8zG /m  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True hKN6y%  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese F#|Z# Mu  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True mNDuwDd$S  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete T5e^J"   
    DoEvents q.T:0|  
5v|EAjB6o  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") = F<:}Tx)C  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" taDQ65  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False x7$ax79ly  
    With ActiveDocument.Styles("QLNU英文摘要").Font " "%#cDR  
        .NameFarEast = "宋体" 6bL~6-h%)  
        .NameAscii = "Arial" vyU!+mlc  
        .NameOther = "Arial" N|Habua<Xw  
        .Name = "Arial" |}Ph"g2D,  
        .Size = 12 5g0_WpO  
        .Bold = wdUndefined S{:Cu}o  
        .Italic = wdUndefined ^P$7A]!  
        .Superscript = wdUndefined FYl3c   
        .Subscript = wdUndefined B^q<2S;  
    End With }-nU3{1  
     @GeHWv  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat Ep ">v>"  
         d.r Y-
k  
        .LineSpacingRule = wdLineSpaceExactly JA6";fl;  
        .LineSpacing = 20 -;Uj|^  
         1`l;xw1W  
        .Alignment = wdAlignParagraphJustify Qxq-Mpx{  
         [r9d<Zi}{  
        .WidowControl = False Pm?B 9S  
        .KeepWithNext = False #>[wD#XJV  
        .KeepTogether = False A3q*$.[  
        .PageBreakBefore = False .8H}Lf\  
        .NoLineNumber = False -oh7d$~  
         j^EbO3  
        .OutlineLevel = wdOutlineLevelBodyText "8/dD]=f^a  
         !y*oF{RZ  
        .LeftIndent = CentimetersToPoints(0) 6fGK(
r  
        .RightIndent = CentimetersToPoints(0) ]sL45k2W  
        .FirstLineIndent = CentimetersToPoints(0) BS2?!;,8  
         Oy$<QXj/  
        .CharacterUnitLeftIndent = 0
kUbnVF5'  
        .CharacterUnitRightIndent = 0 CDCC1BG"  
        .CharacterUnitFirstLineIndent = 2 GOVAb'  
         :Q-F9o J  
        .LineUnitBefore = 0 '5rUe\k  
        .LineUnitAfter = 1 W[|[;{  
         <L&eh&4c  
    End With Ue7 6py9  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False Ac\W\=QvB  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll !^v\^Fc  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS LNiS`o\  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False L|\Diap  
    DoEvents ~gddcTp  
k ,fTW^?  
    Options.Pagination = True {ERjeuDm]  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." e{!vNJ0`  
    DoEvents VMHC/jlX@r  
    ActiveDocument.Repaginate ;J=:IEk  
!G+u j(  
End Sub a R)?a;}H  
*Hu
np Y  
*s\sa+2al  

姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 all*P #[X  
qZbHMTnT6  

引用

引用第20楼newport93于06-14-2010 13:47发表的  : e5OVq ,  
X6kaL3L}  
老五，I 服了U。 gjZx8oIoP  
SQ<f  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 =|V"#3$f  

jY+Do:#/wO