Dim bContinue As Boolean nLAwo 3  
[mwqCW&  
Dim regEX As New RegExp \C~6 '  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 UVLS ?1ra  
 4y}z+4  
Dim LastTitle0String As String, LastTitle0No As Long ~]no7O4  
Dim LastTitle1String As String, LastTitle1No As Long 6oQ7u90z*  
Dim LastTitle2String As String, LastTitle2No As Long =e 1Q>~  
Dim LastTitle3String As String, LastTitle3No As Long /L2ZI1v  
Dim LastTitle4String As String, LastTitle4No As Long 'LG\]h>+)  
Dim LastTitle5String As String, LastTitle5No As Long z-K};l9y  
Dim LastTabelString As String, LastTableNo As Long c
Xt &k  
Dim LastFigureString As String, LastFigureNo As Long 2{WZ?H93a  
QZ(O2!Mg  
Dim strSeperator As String !XjZt  
y|BHSc3  
Sub ConvertWidth(fTEXT As String, rText As String) ?s>_^xfD  
        Selection.Find.ClearFormatting "LDNkw'  
        Selection.Find.Replacement.ClearFormatting p q?# X0  
        Selection.Find.Wrap = wdFindContinue .<%q9Jy#  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText J ?aJa  
        DoEvents jTqJ(M}L  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True 6'm ZM=d  
End Sub
"qC3%9e  
rtJ@D2Hj^  
Sub ClearDomain() U) xeta+  
        With Selection.Find xe6V7Wi/Tt  
            .ClearFormatting e`][zx  
            .Replacement.ClearFormatting k>MXOUaW.  
            .Wrap = wdFindContinue xcl;~"c*  
            Me.txtStatus.Text = "清除所有域代码" Yur}<>`(  
            DoEvents }8l+Jd3"  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False D1deh =  
        End With n%\\1  
End Sub ueU"v'h\  
c8]%,26.  
Private Sub cmdCheck_Click() C$q -WoTM(  
    bContinue = True [E<A/_z  
    Dim NoSeries1(1 To 16) As String A #SO}c  
    Dim NoSeries2(1 To 16) As String 4e\wC  
    Dim NoSeries5(1 To 16) As String um]N]cCD`  
    Dim NoSeriesRM(1 To 16) As String 9wc\~5{li  
    Dim paraTotal As Long, ParaText As String 4MDVR/Z7  
    Dim ttString As String, ttNo As String WxD $k3U  
     f#AuZ]h  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long jx W/"Q   
`lm'_~=`&  
    Me.txtStatus.Visible = True SF:{
PgGMi  
    Me.lbParaType.Visible = True E)Qg^DHP/  
    Me.cmdCheck.Enabled = False %r6_['T  
     S kipP
EhA  
     Xo(W\Pes  
     fh_:ung  
     xzz@Wc^_  
    Dim ParaType As String, rText As String RF6]_-  
      n}b/9  
    Selection.WholeStory NE`;=26c  
    Selection.NoProofing = True hiVDN"$$  
     G,Yctv  
    tm1 = Now v @2?X4n  
     0)PZS>  
        ActiveWindow.View.Type = wdNormalView B (h`~pb  
     S
9[Up}`  
    NoSeries1(1) = "一" gjK: a@{  
    NoSeries1(2) = "二" q4@+Pi)  
    NoSeries1(3) = "三" t3}_mJ  
    NoSeries1(4) = "四" s$9ow<oi]  
    NoSeries1(5) = "五" l0yflF
Gr  
    NoSeries1(6) = "六" \QSD*  
    NoSeries1(7) = "七" g&B7Y|Es  
    NoSeries1(8) = "八" S]T71W<i  
    NoSeries1(9) = "九" c uAp
,!  
    NoSeries1(10) = "十" h$~$a;2cR  
    NoSeries1(11) = "十一" d_:tiHw$  
    NoSeries1(12) = "十二" J+0 ? e9  
    NoSeries1(13) = "十三" SmyJ@.L"  
    NoSeries1(14) = "十四" gBI?dw  
    NoSeries1(15) = "十五"  `m_fi  
    NoSeries1(16) = "十六" u-n$%yDS  
     +NB5Fd4  
    NoSeries2(1) = "㈠" LfrjC@ _y  
    NoSeries2(2) = "㈡" p+Bvfn  
    NoSeries2(3) = "㈢" A ?~4Pe  
    NoSeries2(4) = "㈣" p8F$vx4,  
    NoSeries2(5) = "㈤" {hO|{vz  
    NoSeries2(6) = "㈥" z-0 N/?x1  
    NoSeries2(7) = "㈦" s#0m  
    NoSeries2(8) = "㈧" @:'E9J06  
    NoSeries2(9) = "㈨" 70*yx?TV  
    NoSeries2(10) = "㈩" biV|W@JM  
     ;$!0pxL)s  
    NoSeries5(1) = "①" "lA$;\&  
    NoSeries5(1) = "②" FDFVhcr  
    NoSeries5(3) = "③" <;+QK=f  
    NoSeries5(4) = "④" u0+<[Ia'q  
    NoSeries5(5) = "⑤" xXV15%&  
    NoSeries5(6) = "⑥" RM2fe Wm  
    NoSeries5(7) = "⑦" Nt<Ac&6 s  
    NoSeries5(8) = "⑧" gi@&Mr)fS  
    NoSeries5(9) = "⑨" zhRF>Y`  
    NoSeries5(10) = "⑩" WV|9d}5  
    
Z'^.H3YvL  
     yYk?K<ou  
    NoSeriesRM(1) = "I" c7?|Tipc  
    NoSeriesRM(2) = "II" $1Z3yb^  
    NoSeriesRM(3) = "III" _mQ~[}y+?  
    NoSeriesRM(4) = "IV" @*T8>  
    NoSeriesRM(5) = "V" JP]4* 
l  
    NoSeriesRM(6) = "VI" [daR)C  
    NoSeriesRM(7) = "VII" (|6!pQ7  
    NoSeriesRM(8) = "VIII" Y\1& Uk  
    NoSeriesRM(9) = "IX" 86&r;c:  
    NoSeriesRM(10) = "X" [)[?FG9   
    NoSeriesRM(11) = "XI" M tDJ1I%  
    NoSeriesRM(12) = "XII" Q3)[ *61e  
    NoSeriesRM(13) = "XIII" {iLr$89  
    NoSeriesRM(14) = "XIV" iu+H+_  
    NoSeriesRM(15) = "XV" u4=ulgi  
    NoSeriesRM(16) = "XVI" .$G^c  
     -Vg0J6x  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) V^9%+L+E5  
     ^=cXL  
    If i = vbNo Then '
i/"D8  
        Exit Sub /oM&29 jy  
    End If h*[sV  
     @M }`nKXM  
    If Me.chkSuper.Value Then ,tBc%&.f  
        Me.txtStatus.Text = "检查修改所有的上标格式" 1*@Q~f:Uk  
     TSL/zTLDJ  
        CheckSuperScript k8.,id  
         \=W t{  
    End If #eI`l`}  
     5oD%~Fk l  
    If Me.chkStyle.Value Then 5=MM^$QG  
        Me.txtStatus.Text = "设置样式，请稍候...." ,qgR+]?({  
        DoEvents 2)^T[zHe  
        CeateOrModifyStyle :SD 3  
    End If h7]>b'H  
     OJcI0(G  
     @yPI$"Ma  
     p_3VFKq>0  
    ClearDomain &
19z|Id  
         =8qhK=&]  
     Zq}Cl'f  
     ]=0D~3o3  
    If Me.chkLIST.Value Then {\!@k\__  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" c%n% ,R>  
     x4_FG{AIu  
        ConvertListToOrdinary '(($dT  
    End If exm*p/  
     9JC8OSjJ  
     BS3BJwf; f  
    Dim pType As String, trimpTEXT As String W9SEYkg  
    If Me.chkNum.Value = True Then V SH64  
        Me.txtStatus.Text = "转换全角数字形式为半角" pHDPj,lu  
        ConvertWidth "１", "1" DGAg#jh  
        DoEvents ?=Z0N&}[  
        ConvertWidth "２", "2" ~65lDFY/  
        DoEvents 7XIG ne%v  
        ConvertWidth "３", "3" '&xRb*  
        DoEvents \l;H!y[  
        ConvertWidth "４", "4" f7]C1!]  
        DoEvents O  >&,h^  
        ConvertWidth "５", "5" 8\Z/mU*4  
        DoEvents 2-wvL&pi)  
        ConvertWidth "６", "6"  +7)/SQM5  
        DoEvents 5Ul=Nv]  
        ConvertWidth "７", "7" !jJH}o/KW  
        DoEvents f=MR.\  
        ConvertWidth "８", "8" lFM'F[-?-  
        DoEvents TlBu3z'P  
        ConvertWidth "９", "9" %eqL)pC]  
        DoEvents Cd'SPaR  
        ConvertWidth "０", "0" Q#$dp  
        DoEvents .Wci@5:3  
        ConvertWidth "ａ", "a" } xzb
g  
        DoEvents 5HbPS%^.  
        ConvertWidth "ｂ", "b" b9Ix*
!Y  
        DoEvents oakm{I|k}  
        ConvertWidth "ｃ", "c" {[B`q  
        DoEvents 1Yv#4t  
        ConvertWidth "ｄ", "d" Zo(QU5m0  
        DoEvents b{JxTT}03  
        ConvertWidth "ｅ", "e" I03 45Hc  
        DoEvents fm%-wUgj  
        ConvertWidth "ｆ", "f" laFF/g;sRC  
        DoEvents 3D7phq>.q  
        ConvertWidth "ｇ", "g"
myY@Wp  
        DoEvents ! XNTk]!  
        ConvertWidth "ｈ", "h" <~qhy{hRn  
        DoEvents _RzcMX  
        ConvertWidth "ｉ", "i" t3$+;K(  
        DoEvents |a Ht6F  
        ConvertWidth "ｊ", "j" ~{O@tt)F  
        DoEvents !g-19at  
        ConvertWidth "ｋ", "k" p>]2o\["  
        DoEvents n1)m(,{  
        ConvertWidth "ｌ", "l" aib)ItNb  
        DoEvents R_DZJV O  
        ConvertWidth "ｍ", "m" QVrMrm+vRv  
        DoEvents Os7 3u#!'  
        ConvertWidth "ｎ", "n" V$ss[fX  
        ConvertWidth "ｏ", "o" F_Mi/pB^`9  
        ConvertWidth "ｐ", "p" J$<g"z3  
        ConvertWidth "ｑ", "q" ]O;Rzq{D(  
        ConvertWidth "ｒ", "r" 3UX})mW  
        ConvertWidth "ｓ", "s" al\ R(\p|  
        ConvertWidth "ｔ", "t" s*pgR=dZZ  
        ConvertWidth "ｕ", "u" e_pyjaY!s  
        ConvertWidth "ｖ", "v" S)\%. ~ n  
        ConvertWidth "ｗ", "w" !tD,phca~  
        ConvertWidth "ｘ", "x" B\!.o=<h  
        ConvertWidth "ｙ", "y" C,m o4 ,Q  
        ConvertWidth "ｚ", "z" ?_c*(2i&^  
        ConvertWidth "Ａ", "A" 'xp&)gL  
        ConvertWidth "Ｂ", "B" E :Y *;  
        ConvertWidth "Ｃ", "C" wq&TU'O  
        ConvertWidth "Ｄ", "D" >;@hA*<  
        ConvertWidth "Ｅ", "E" ~v<,6BS<$Z  
        ConvertWidth "Ｆ", "F" 9
Ic~F^  
        ConvertWidth "Ｇ", "G" 
\=/^H  
        ConvertWidth "Ｈ", "H" #(NkbJ5ka  
        ConvertWidth "Ｉ", "I" s*j0uAq)up  
        ConvertWidth "Ｊ", "J" Z66@@?`  
        ConvertWidth "Ｋ", "K" _-I0f##.  
        ConvertWidth "Ｌ", "L" 7e-l`]  
        ConvertWidth "Ｍ", "M" @=[S
sS  
        ConvertWidth "Ｎ", "N" y/@.T\p  
        ConvertWidth "Ｏ", "O" mM7S9^<UH  
        ConvertWidth "Ｐ", "P" $r=Ud >  
        ConvertWidth "Ｑ", "Q" ^Ru/7pw5  
        ConvertWidth "Ｒ", "R" G(~"Zt}?  
        ConvertWidth "Ｓ", "S" d6k`=Hlg  
        ConvertWidth "Ｔ", "T" ztS'Dp}q<  
        ConvertWidth "Ｕ", "U" wMB<^zZmv  
        ConvertWidth "Ｖ", "V" G" Fd]'  
        ConvertWidth "Ｗ", "W" sj@'C@oK  
        ConvertWidth "Ｘ", "X" rx#\Dc}  
        ConvertWidth "Ｙ", "Y" #zcnc$x\  
        ConvertWidth "Ｚ", "Z" /\9X0a2h|E  
        ConvertWidth "^l", "^p" q y8=4~40
 
        ConvertWidth "（", "(" 9WuKW***  
        ConvertWidth "）", ")" .<`Rq'  
     "i1~YE  
    End If _,4f z(  
IZ
6[|Ach6  
    With ActiveDocument l0$ +)FKd  
        Dim tbl As Table #_bSWV4  
        For Each tbl In .Tables ;0VE*  
            tbl.Rows.Alignment = wdAlignRowCenter u{ .UZTn  
            tbl.Range.Font.NameFarEast = "楷体" =p)Wxk  
            tbl.Range.Font.NameAscii = "Times New Roman" ;-d :!*  
            tbl.Range.Font.Size = 10.5 7MT[fA8^  
        Next :bgi*pR{  
        Set tbl = Nothing i'%: z]hp9  
    End With \/9uS.Kw  
     8V(#S:G35  
     ^\<1Y''  
    With ActiveDocument }0Q6iHX@  
         x+9aTsZ  
        For i = 1 To .TablesOfContents.Count n300kp
v  
            .TablesOfContents(i).Delete [Hww3+~+  
        Next %h%^i   
         r`L$[C5I  
         BI]%$r q  
         lLT;V2=osX  
        paraTotal = .Paragraphs.Count Ot]P
H[+  
        paraCounter = 1 { O*maE"  
         LPk85E  
        LastTitle0No = 0 HJ* W3Mg  
        LastTitle1No = 0 3RP}lb  
        LastTitle2No = 0 *5#Y[c  
        LastTitle3No = 0 b='YCa  
        LastTitle4No = 0 bg)yliX  
        LastTableNo = 0 l~M86 h  
        LastFigureNo = 0 #9Z*.  
         DPNUm<>  
        Dim Sec As Long ?8X+)nU@  
         +'x`rk
 
        Sec = InputBox("正文从第一节开始？", "节设置", 6) f&Bu_r  
        If Sec = 0 Then 'N0/;k0ax  
            Exit Sub toEmIa~o6  
        End If ; . c]0  
         Bk1Q.Un  
        k = 0 {=><@]N  
        Do While (paraCounter < paraTotal) And bContinue jn#  
            k = k + 1 9)QvJ87e@7  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then s Hu~;)  
                Exit Do iCIu]6  
            End If -_ [Z5%B  
            paraCounter = paraCounter + 1 7oDr`=q1]r  
            If k Mod 20 = 0 Then $vdGkz@6  
                Me.lbCounter.Caption = paraCounter 94F9f^ L  
                DoEvents >w?O?&Q$  
            End If fmvv q1G&  
        Loop W<3nF5!  
         mYN|)QVKy  
         65Ysg}x  
        Do While (paraCounter < paraTotal) And bContinue #{l+I(M  
             zTP3JOe(  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) Dg@>d0FW  
            ShapeHeight = 0 Nze#u;  
            ShapeWidth = 0 4y+]V~p  
           Px}#{fkS  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth E#T-2^nD  
             dQt*/]{q  
            Select Case ParaType t\]CdH`+  
                Case "【】表格内容" c)M_&?J!5  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" XH0R :+s  
                Case "章" g4I&3 M  
                    LastTitle0No = LastTitle0No + 1 UGPD5wX?  
                    '新一章开始，复位其下属标题编号 d]k>7.  
                    LastTitle1No = 0 }9Z?UtS  
                    LastTitle2No = 0 ('xu2 ;<  
                    LastTitle3No = 0 kG+CT  
                    LastTitle4No = 0 g/4.^c  
                     M#d_kDMw  
                    k = Val(ttNo) lFD$Mc  
                    If k = 0 Then '非数字编号章节 quU%9m \S`  
                        If ttNo <> NoSeries1(LastTitle0No) Then \,E;b{PQo6  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString 8KW}XG  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText !+T+BFw.  
                        End If (CH F=g  
                    Else k"V3FXC)  
                        If Val(ttNo) <> LastTitle0No Then 2|#3rF  
                            rText = "第" & LastTitle0No & ttString #:3E.=  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText gR(*lXm5w  
                        End If .c+RFX@0  
                         5HioxHL  
                    End If BjJ$I^  
                     N@^
?J@#V  
                    '章段落设置 <vA^%D<\~  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 >'8.>f  
                    .Paragraphs(paraCounter).Style = "QLNU章节" ){")RrD(  
                    .Paragraphs(paraCounter).Range.Select ;/SM^&Y  
                    Selection.EndKey unit:=wdLine VWmZ|9Ri  
                    tc = Replace(rText, vbCr, "") ^ ;$f-e  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False bI=\n)sEz  
                Case "一级标题" v.,C"^W  
                    LastTitle1No = LastTitle1No + 1 >0SF79-RE  
                    '新一级标题开始，复位其下属标题编号 LC\Ys\/,U  
                    LastTitle2No = 0 'UT 4x9&z  
                    LastTitle3No = 0 Q4Q*5>  
                    LastTitle4No = 0 <Dt,FWWkv'  
                     HlY4%M5q/  
                    If ttNo <> NoSeries1(LastTitle1No) Then lvb0dOmY  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString oHbEHS61  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText /H,!7!6>?  
                    End If z8mR< q%`  
                   #Qy*zU#9  
                     Zi2NgVF  
                    '一级标题段落设置  格式：一、标题内容 z_< 7T4  
                    .Paragraphs(paraCounter).Range.Text = rText QKbX^C  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" e0*',  
                    .Paragraphs(paraCounter).Range.Select w=3@IW  
                    Selection.EndKey unit:=wdLine :*6tbUp  
                    tc = Replace(rText, vbCr, "") M>0=A  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False {`~{%2ayq7  
                Case "二级标题" U\ y?P:yy  
                    LastTitle2No = LastTitle2No + 1 $d!Sl a  
                    '新二级标题开始，复位其下属标题编号 \A5cM\-  
                    LastTitle3No = 0 VD+8 j29  
                    LastTitle4No = 0 +?(2-RBd  
                     n4ce) N@  
                    If ttNo <> NoSeries1(LastTitle2No) Then yc4mWB~gyU  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString 3U@p  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText c:51In|~{C  
                    End If lbgnO s,  
                     Jnm{i|6N  
                    '二级标题段落设置 格式：(一)、标题内容 M0x5s@  
                    .Paragraphs(paraCounter).Range.Text = rText #=b_!~:%  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" ZqkP# ]+Y'  
                     l0u6nGkh  
                    .Paragraphs(paraCounter).Range.Select rFn;z}J2
 
                    Selection.EndKey unit:=wdLine 3b{8c8N^  
                    tc = Replace(rText, vbCr, "") 'sY>(D*CQ  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False Ab-S*|B  
                 Sy'/%[+goJ  
                Case "三级标题" #* 
S0d1  
                    LastTitle3No = LastTitle3No + 1 JHc|.2Oe  
                    '新三级标题开始，复位其下属标题编号 E[6JHBE*r  
                    LastTitle4No = 0 =2)5_/9au  
                     qw0tw2|  
                    If Val(ttNo) <> LastTitle3No Then OcMd'fwO  
                            rText = LastTitle3No & ". " & ttString \y: 0+s/  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText EUe2<G  
                         IJo`O  
                    End If 0;3;Rs  
                    '三级标题段落设置 格式：1. 标题内容 =6j  5,  
                    .Paragraphs(paraCounter).Range.Text = rText C_PXh>H]'  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" _ts0@Z_:  
                    .Paragraphs(paraCounter).Range.Select J~DP*}~XK  
                    Selection.EndKey unit:=wdLine s+tS4E?  
                    tc = Replace(rText, vbCr, "") RoLUPy9U  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False Nj.(iBmr  
                Case "四级标题" n@5pS3qZ  
                    LastTitle4No = LastTitle4No + 1 McxJ C<  
                     /^#k/z  
                    If Val(ttNo) <> LastTitle4No Then /[GOs*{zB  
                            rText = "(" & LastTitle4No & "). " & ttString 0d:t$2~C  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText ,u{d@U^)3@  
                     v(=fV/  
                    End If iX.=8~3  
                    '四级标题段落设置 格式：(1). 标题内容 s>"=6gb  
                    .Paragraphs(paraCounter).Range.Text = rText M`KrB5a+6  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" =q^o6{d0"  
                    .Paragraphs(paraCounter).Range.Select YurK@Tq7  
                    Selection.EndKey unit:=wdLine [t<^WmgtxL  
                    tc = Replace(rText, vbCr, "") ,ye>D='  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False LlRvm/  
                 {mw,U[C  
                Case "表格标题" ,^,Vq]$3  
                    LastTableNo = LastTableNo + 1 ?qw&H /R  
                     -t?S:9[w  
                    If ttNo <> CStr(LastTableNo) Then 27E6S)zv  
                            rText = "表" & LastTableNo & ". " & ttString nPfVZG
t  
                            ErrMsg.AddItem "表格编号错误：" & ParaText bI@+Or  
                   /pFg<  
                    End If //e.p6"8h  
                     vf~q%+UqK  
                    '表格名称段落设置 格式：表1. 表格名称 JQsS=m7Et  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" 8:L%-   
                    xe = Replace(rText, vbCr, "") iyu%o9_0  
                    .Paragraphs(paraCounter).Range.Select ZHICp L  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 CTR|b}!  
                    Selection.Range.Text = xe v.cB3/$z  
                    Selection.EndKey 3oxQ[. o  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False zScV 9,H1  
                 I\Y/*u  
                Case "表格首行" &.=d,XKN  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" ~0|~ Fg  
                Case "图片标题" %6L!JN  
                    LastFigureNo = LastFigureNo + 1 &EXql']  
                     A ,lcR:@w  
                    If ttNo <> CStr(LastFigureNo) Then _xAdvr' W  
                            rText = "图" & LastFigureNo & ". " & ttString L,waQk / @  
                            ErrMsg.AddItem "表格编号错误：" & ParaText fbwo2qe@K  
                   aAu upPu  
                    End If !o:RIwS3  
                    '图片名称段落设置 格式：图1. 图名称 1b;Aru~l  
                    .Paragraphs(paraCounter).Range.Text = rText h}z^NX  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" +tdt>)a
 
                    .Paragraphs(paraCounter).Range.Select |j^>6nE  
                    Selection.EndKey unit:=wdLine EZIMp8^  
                    xe = Replace(rText, vbCr, "") 6VQ*z8wLw  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False
B HoZ}1_  
                Case "正文" kdQ=%  
                     '正文名称段落设置 P)^K&7X  
                    .Paragraphs(paraCounter).Style = "QLNU正文" z.]t_`KuF9  
               Case "文献条目" @6 g A4h  
                    With .Paragraphs(paraCounter) ?_m;~>C  
                        '.Range.Select VV?+q)  
                        'Selection.ClearFormatting i<bFF03*S  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” nrwb6w j  
                        .Style = "QLNU参考文献" #g{ZfO[ #  
                    End With ECg/ge2  
               Case "图表注解" N~\1yQT  
                    With .Paragraphs(paraCounter) *ta|,  
                        .Range.Font.NameFarEast = "楷体" 5^GUuFt5m  
                        .Range.Font.NameAscii = "Times New Roman" a%;$l_wVT:  
                        .Range.Font.Size = 9 '小5号字 x nWapG  
                        
U&w Ve$  
                        .Alignment = wdAlignParagraphCenter 6rt.ec(  
                        .LeftIndent = 0 !z(POK  
                        .RightIndent = 0 5
U3="L  
                        .FirstLineIndent = 0 YqR MVWcnk  
                        .LineSpacing = 12 3r+v
pyu  
                        .LineSpacingRule = wdLineSpaceExactly HHWB_QaL  
                        .LineUnitAfter = 0 l0tMdsz  
                        .LineUnitBefore = 0 n9t8RcJS:  
                        .OutlineLevel = wdOutlineLevelBodyText iIcO_ZyA  
                        .PageBreakBefore = False \P}~ICZA  
                        .RightIndent = 0 d|j3E  
                        .WordWrap = True 9j:?s;B  
                        .LineUnitAfter = 0.5 "]*0)h_  
                         k-Jj k3  
                    End With I#Iu :,OT  
                Case Else 9!_`HE+(XJ  
                    '不作处理 T9RR. ng  
            End Select <z%zzc1s  
             qK.8^{b  
            '含有inlineshape的段落处理 ~6
kEpa  
            If ShapeHeight > 30 Then H:,rNaz7D^  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 a`q">T%q  
            End If !(uyqplTk  
             1xL2f&bG  
            If (ShapeWidth + ShapeHeight) > 150 Then h+,zfVJu  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" w;}P<K
 
            End If JT[|l-\zo  
             :~ zK0v"  
            '段落计数器递 yew9bn0a=  
            paraCounter = paraCounter + 1 _s|C0Pt  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter d@7 ]=P:  
            Me.txtStatus.Text = ParaText *1ku2e]z  
            DoEvents V_Wv(G0-\  
        Loop *vCJ Tz  
    End With IA$:r@QNx8  
     f@[q# }6  
    msg = "" .FqbX5\p,  
     }j+ZF'#  
    For i = 0 To Me.ErrMsg.ListCount - 1  #XQEfa  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) B6MMn.  
    Next BGLJ>z
kq  
     Et
cAU}9  
     asj^K|.z  
     +7^%fX;3pW  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg k/j] *~"
 
    Me.cmdCheck.Enabled = True ~-A5h(  
    Me.txtStatus.Visible = True ~BrERUk  
    Me.lbParaType.Visible = False Xv]O1fcI  
     $khWu>b  
    bContinue = False t$]lK6  
End Sub 2o6KVQ  
s$&:F4=?  
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) BtVuI5*h  
    Dim pTEXT As String p8%x@%k   
     "CT'^d+  
    pTEXT = ChKRange.Text E2LpQNvN%g  
     $MfHA~^  
    ParaType = "其它" p
r(:99~3  
    TitleString = pTEXT 'F5&f9A  
    TitleNo = "N/A" h.sH:]Z  
     B3c rms['  
    shpCounter = ChKRange.InlineShapes.Count #)GL%{Oa  
    If shpCounter <> 0 Then c:>&Bg&,6T  
        MaxShpHeight = 0: TotalShpWidth = 0 *S:^3{.m=  
        For i = 1 To shpCounter 8"N<g'Yl,  
            k = ChKRange.InlineShapes(i).Height lyF~E  
            l = ChKRange.InlineShapes(i).Width #If}P $!  
            If k > MaxShpHeight Then (](:0H  
                MaxShpHeight = k flR6^6E  
            End If TW{.qed8^  
            TotalShpWidth = TotalShpWidth + l xs.>+(@|;  
        Next nP0|nPWz#  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then ?\(E+6tpP  
            Exit Sub < :<E~anH  
        End If ou
6yi; l%  
    End If 9y>dDNM\<  
     XB F#ILJ  
    '空行 (05/}PhB`  
    If Len(pTEXT) <= 2 Then b5No>U) /  
        Exit Sub |@sUN:G4k  
    End If pu0IhDMn  
     Z8z.Xn  
         k9.@S  
    '是否为表格中的文字 5^ARC^v  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then 9K@`n: Rw  
        ParaType = "表格内容" ['tGc{4  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) i Ne;h|  
        If k = 1 Then Cc$!TZq=  
            ParaType = "表格首行" g.SFl  
        End If VI74{='=  
        Exit Sub (6^v`SZ  
    End If '.c[7zL  
     Owo2DsT t  
    '例外情况：脚注 rs]%`"&=  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then :+bQ
PzL  
        ParaType = "脚注" w;
&J._J  
        Exit Sub #[qmhU{s  
    End If :~~}|E u  
     5T:e4U&  
    '例外情况：尾注 8l~]}2LAs  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then #i%it  
        ParaType = "尾注" _o'ii VDuD  
        Exit Sub aiF7\^aw$  
    End If | bQKymS  
     /v U$62KA  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then i,8h B(M!  
        ParaType = "页眉页脚" vCb3Ra~L`  
        Exit Sub ;;2XLkWu  
    End If {SY@7G]  
     K``MS  
     K;k_MA310  
    With regEX ]EnB`g(4;  
        .Global = True \5_+6  
         4;<?ec(dc  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" r.lH@}i%n  
        If regEX.Test(pTEXT) Then Z[)t34EY"  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") Oq7M1|{  
            TitleString = regEX.Replace(pTEXT, "$3") D\}^<HW  
            TitleNo = regEX.Replace(pTEXT, "$1") 9]c2ub7  
            ParaType = "章" Qo4]_,kR  
            Exit Sub &-:ZM0Fl  
        End If WJ<nc+/
v:  
         Yev] Lp  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" Mi%i_T^i  
        If regEX.Test(pTEXT) Then g"EvMv&  
            ParaType = "一级标题" MT[V1I{LV  
            regEX.Execute (pTEXT) %\6|fKB4<  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") Xx~OZ^t&Vn  
            TitleString = regEX.Replace(pTEXT, "$3") p^3]Q  
            TitleNo = regEX.Replace(pTEXT, "$1") fINF;TK  
            Exit Sub [ %cW ?@  
        End If Y4_/G4C  
         6y)TXp  
        '全角或半角括号中的数字 cV\(Z6u  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" Pv17wUB  
        If regEX.Test(pTEXT) Then n;@PaE^8=  
            ParaType = "二级标题" ?T3zA2  
            regEX.Execute (pTEXT) yH|[K=?S[  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") b^~ keQ  
            TitleString = regEX.Replace(pTEXT, "$5") }3E@]"<cVR  
            TitleNo = regEX.Replace(pTEXT, "$2") ^ |z |kc
 
            Exit Sub 1p [C5j3  
        End If
!g #  
         ai)S:2  
        '阿拉伯数字  1. 2. {pH{SRM)B  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" 6}6;%{p"Gu  
        If regEX.Test(pTEXT) Then (0/,R  
            ParaType = "三级标题" oM G8?p  
            regEX.Execute (pTEXT) 5Ev9u),D+v  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 DJVH}w}9_P  
            TitleString = regEX.Replace(pTEXT, "$3") Dq/_^a/1  
            TitleNo = regEX.Replace(pTEXT, "$1") H!
?Av$h`  
            Exit Sub [<\k  
        End If -*~= 4m<  
         ;P CnEs  
        '全角或半角括号中的阿拉伯数字 `O?Kftv*  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" JR8 b[Oj.S  
        If regEX.Test(pTEXT) Then Se.\wkl#Y  
            ParaType = "四级标题" cfBq/2I  
            regEX.Execute (pTEXT) .vE=527g)  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") P"Lk(gY  
            TitleString = regEX.Replace(pTEXT, "$5") 0"
ksNnxK  
            TitleNo = regEX.Replace(pTEXT, "$2") A'vQtlvKA  
            Exit Sub B7zyMh  
        End If :hJHjh  
         Cc/h|4  
        '表格名称 {;4Y5kj  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" Ebw1 %W KC  
        If regEX.Test(pTEXT) Then 2BZYC5jy  
            ParaType = "表格标题" IFcxyp  
            regEX.Execute (pTEXT) ]-QY, k  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) /2N'
SOX  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) N:?U
A  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) VkTdpeBV  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 *`2.WF@E)  
            Exit Sub +Z> Y//  
        End If BmR++?L  
         HK&Ul=^VN|  
        '图片名称 &|yQwNA*a"  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" nGQc;p5;  
        If regEX.Test(pTEXT) Then 3<}\{j T  
            ParaType = "图片标题"
zmH8^:-x  
            regEX.Execute (pTEXT) %IrR+f+H  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") 7=i8$v&GX  
            TitleString = regEX.Replace(pTEXT, "$3") _&V%idz!0  
            TitleNo = regEX.Replace(pTEXT, "$1") i[_(0P+Da  
            Exit Sub K.)ionb  
        End If ,)/gy)~#  
         5 .m&93P  
        '参考文献 jr[(g:L   
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 hgIqr^N9  
        If regEX.Test(pTEXT) Then vT/e&8w  
            ParaType = "文献条目"
8XJg  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") %LyZaU_s B  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") Z/-9G  
            Exit Sub KZy2c6XO;  
        End If rQmDpoy
=  
         )4:K@  
        prfx = Left(pTEXT, 2) b3R1L|@  
        If prfx = "注：" Or prfx = "注:" Then I><B6pIR  
            ParaType = "图表注解" ,;;7+|`  
            Exit Sub 1(%9)).K  
        End If PD #9 Z=Hj  
         L 7i2is  
         e_RLKFv7  
        ParaType = "正文" =
og>& K  
         8(-V pU  
    End With nhV
\<  
End Sub DJ_[{WAV  
<A|X4;  
Sub ConvertListToOrdinary() Yc~(Wue  
    Dim st As Paragraph s
%M#  
    With ActiveDocument w-iu/|}  
        For i = .Paragraphs.Count To 1 Step -1 .#^ta9^t7  
            Set st = .Paragraphs(i) & -r^Q  
            lst = st.Range.ListFormat.ListString kY>jp@wV  
            If lst <> "" Then 0lpkG ="&r  
                st.Range.ListFormat.RemoveNumbers v.iHgh  
                st.Range.InsertBefore lst & " " U*sjv6*T  
            End If aa|u*afWQ  
        Next Lx%*IE|c
 
    End With Kny0 (  
    Set st = Nothing F1_s%&  
End Sub T_t5Tg~i[N  
gu?e%]X3  
Private Sub UserForm_Activate() 0s9-`nHen|  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" <P
LQY  
    Me.lbTotal.Font.Bold = True jfmHc(fX4  
    Me.txtStatus.Visible = False 5k:SD7^b  
    Me.cmdCheck.Enabled = True 4
4Dytpvg  
+kA>^  
End Sub YcQ$nZAU  
/{1sU}k-  
.8o?`  
Sub CheckSuperScript() ga?:k,xv  
    Selection.Find.ClearFormatting "PgVvm#w'  
    Selection.Find.Replacement.ClearFormatting X0:V5 e  
    With Selection.Find l5h+:^#M5c  
        .Text = "[【\[［〖](*)[】\]〗］]" ~6{iQZa1Y  
        .Replacement.Text = "[\1]" /my5s\;s|z  
        .Replacement.Font.Superscript = True /ILj}g'  
        '.Replacement.Font.Color = wdColorBlue 6U.A/8z  
        .Forward = True SEfRU`  
        .Wrap = wdFindContinue )6+Z99w  
        .FORMAT = True BF^dNgn+%K  
        .MatchCase = False /80H.|8O  
        .MatchWholeWord = False HQp\0NC]  
        .MatchByte = False rR Kbs@1M  
        .MatchAllWordForms = False u<L<o2  
        .MatchSoundsLike = False EPEWyGw  
        .MatchWildcards = True &f=O`*I'+!  
    End With 4X-"yQ<U  
    Selection.Find.Execute Replace:=wdReplaceAll 7gWT[  
End Sub B":9C'tip  
G)|Xj70  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) DWv(|gO  
    bContinue = False S?b^g'5m  
    Set regEX = Nothing ATQw=w 3W  
End Sub %x'}aTa  
6=cfr; BH2  
Sub CeateOrModifyStyle() V}3'0  
' m}UcF
oaO  
' n[S-bzU^t  
Dim stl As Style _+!@c6k)ra  
     * 'eE[/K  
    Options.Pagination = False 2[!3!@.  
     9sP;s^#t7U  
    On Error Resume Next gB _/(  
    For Each stl In ActiveDocument.Styles #ovausK[7  
        stl.Delete <`$svM  
    Next N5PW]  
    On Error GoTo 0 J#.f%V
J  
     Ky0}phGRu  
    Set stl = Nothing n!aA<  
     1Kjqs)p^  
    DoEvents R$XHjb)  
    On Error Resume Next
# &,W x  
     }VU^ 8
D  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph GB%kxtGD;\  
     Fqt,VED  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph 8
H'ybfed  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph z`"*60b  
     --fRhN>  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph jKh:}yl4  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph X<%`  
     !hs33@*u~  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph !dQmg'_V  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph L@5sY0 M  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph e{EC#%x_  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph &Fiesi!tET  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph ?rm3Iac0S  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph Ux,?\Vd  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph (]E0fjk  
     QdIx@[+WOq  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph J&2J6Eq  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph OV G|WC  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph HLe/|x\@<  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph mjQZ"h0  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph pV8_i7\  
     }/w]+f*  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph [psZc'q  
    On Error GoTo 0 F50l->F2&  
    DoEvents z@g%9|U  
     N \~}`({  
    'BaseStyle b(IZ
:ekZ5  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False XE
>w&  
    With ActiveDocument.Styles("BaseStyle").Font uTdx`>M,O  
        .NameFarEast = "宋体" tj?%{L  
        .NameAscii = "Times New Roman" !/a![Ne  
        .NameOther = "宋体" {RGQX"k  
        .Size = 10.5 "S]G+/I|iw  
        .Bold = wdUndefined f,|g|&C  
        .Italic = wdUndefined 1> v(&;K  
        .Subscript = wdUndefined `h|Y0x  
        .Subscript = wdUndefined i]#"@xQ  
         w%?Zb[!&  
        .Underline = wdUnderlineNone M}! qH.W  
        .UnderlineColor = wdColorAutomatic upLjkQ)_  
        .StrikeThrough = False ;^TSla+t+  
        .DoubleStrikeThrough = False *HsA.W~2W  
         fsl ZJE  
        .Outline = False y>#_LhTX-  
        .Emboss = False =F2`X#x_j  
        .Shadow = False ur:8`+" (  
        .Hidden = False ]xkh"j+W  
        .SmallCaps = False _l"=#i@L  
        .AllCaps = False iT;Ld $!{f  
        .Color = wdColorAutomatic <NEz{1Z  
        .Engrave = False vX7U|zy  
        .Scaling = 100 g~ii^[W  
        .Kerning = 1 VA>0Y
  
        .Animation = wdAnimationNone J-|&[-Z  
        .DisableCharacterSpaceGrid = False 6
HguZ_jC  
        .EmphasisMark = wdEmphasisMarkNone J(G-c5&=  
    End With '3w%K+eJY  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat }[{9u#
@#  
        .LeftIndent = 0 P L7(0b%  
        .RightIndent = 0 3ey.r%n  
        .SpaceBefore = 0 uHsLlfTn  
        .SpaceBeforeAuto = False !}5f{,.RO  
        .SpaceAfter = 0 e-Oz`qW~  
        .SpaceAfterAuto = False BbM/Rd1tAm  
         ~?4BP%g-y  
        .LineSpacingRule = wdLineSpaceSingle d8uDSy  
        .Alignment = wdAlignParagraphJustify VKtlAfXy~  
         NQGa=kXeJ  
        .WidowControl = False 2,Aw6h;  
        .KeepWithNext = False <PFF\NE9  
        .KeepTogether = False f}~=C2R1<!  
        .PageBreakBefore = False G|*&owJ  
        .NoLineNumber = False (rc7Cp3  
         v
, CWE  
        .FirstLineIndent = CentimetersToPoints(0) MgP&9  
        .OutlineLevel = wdOutlineLevelBodyText C B`7KK  
        .CharacterUnitLeftIndent = 0 r#A*{4wz  
        .CharacterUnitRightIndent = 0 =van<l4b#n  
        .CharacterUnitFirstLineIndent = 0 %)72glB  
        .LineUnitBefore = 0 a/v]E]=qI  
        .LineUnitAfter = 0 +1a3^A\  
        .AutoAdjustRightIndent = True ZC%;5O`  
        .DisableLineHeightGrid = True i)]f0F  
         QE8`nMf  
        .FarEastLineBreakControl = True m^\&v0  
        .WordWrap = True *8J0yv  
        .Hyphenation = False *;(^)Sj4Q  
         v}J0j  
        .HangingPunctuation = True 
J)^F  
        .HalfWidthPunctuationOnTopOfLine = True ;"2VU"  
        .AddSpaceBetweenFarEastAndAlpha = True 76o3Sge:  
        .AddSpaceBetweenFarEastAndDigit = True !>"fDz<w`  
        .BaseLineAlignment = wdBaselineAlignBaseline ]WzeJ"r {3  
    End With jo?[M  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False (Hmm^MV)  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll -dWg1`;  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese
OkAgO3>Y/  
    ActiveDocument.Styles("BaseStyle").NoProofing = False &"?99E>  
     jJaMkF;f  
    '一级标题题样式 yM}3u4FG  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") (&1.!R[X  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" ?yxQs=&-q~  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False
V%{WH}  
    With ActiveDocument.Styles("QLNU一级标题").Font #sg*GK+|:R  
        .NameFarEast = "黑体" h56Kmxxk  
        .NameAscii = "Arial Black" SA#01}&p  
        .NameOther = "黑体" .hM t:BMf*  
        .Name = "黑体" `rXb:P7m{j  
        .Size = 16              '三号 LzJ`@0RrX  
        .Bold = True [K@(,/$  
        .Italic = wdUndefined H|0-Al.{  
        .Subscript = wdUndefined bEB2q\|Je  
        .Superscript = wdUndefined 734t  
    End With q'/o=De  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat @U4hq7xzV2  
         o*artMkG  
        .LeftIndent = CentimetersToPoints(0) D66NF;7q  
        .RightIndent = CentimetersToPoints(0) h-//v~V)  
        .FirstLineIndent = CentimetersToPoints(0) n=PfV3B  
         &qK:LHhj  
        .LineSpacingRule = wdLineSpaceSingle hj&~Dn(  
        .Alignment = wdAlignParagraphCenter jU kxA7 }}  
         t`'jr=e,~  
        .WidowControl = True c:52pYf+  
        .KeepWithNext = True `dD_"Hdt  
        .KeepTogether = True Y]*&\Ex"\  
        .OutlineLevel = wdOutlineLevelBodyText {/(.Bpld  
         (/0dtJ  
        .LineUnitBefore = 0.5 +~BP~  
        .LineUnitAfter = 0.5 xFekSH7[F  
    End With _-sFJi8B  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False 5Hs F#  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll CPL,QVO9  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese piH0_7qr  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True b\KbF/T  
    DoEvents 3A{)C_1a  
     nbB*d@"  
    '二级 /\_n5XI1  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") BsA'r+ho?H  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" >&Oql9_  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False 7AS_Aw1L  
    With ActiveDocument.Styles("QLNU二级标题").Font 
:<s`)  
        .NameFarEast = "黑体" z@J>A![m  
        .NameAscii = "Arial Narrow" ]=%6n@z'  
        .NameOther = "黑体" B;F~6i  
        .Name = "黑体" _Rb2jq(&0  
        .Size = 15        '小三号 AAs&P+;  
        .Bold = False |V4<eF-0
S  
        .Outline = False V%)Tu{L  
        .Italic = wdUndefined yoJ.[M4q  
        .Subscript = wdUndefined .P`QCH;Ih  
        .Superscript = wdUndefined ZDAW> H<  
    End With REg M  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat }zS5o [OE  
        .LeftIndent = CentimetersToPoints(0) YF-A8gXS  
        .RightIndent = CentimetersToPoints(0) 2NJ\`1HZ\  
        .FirstLineIndent = CentimetersToPoints(0) o$Ylqb#  
         liG|#ny{  
        .LineSpacingRule = wdLineSpaceSingle ,[T/O\k  
        .Alignment = wdAlignParagraphLeft ;c)( 'k <  
         $5/d?q-ts{  
        .WidowControl = True *sZH3:  
        .KeepWithNext = True _si5z  
        .KeepTogether = True O@ H.k<zn  
        .PageBreakBefore = False tHo|8c~[  
        .OutlineLevel = wdOutlineLevelBodyText gwsIzYV  
         PqL.^  
        .LineUnitBefore = 0.5 Qclq^|O0  
        .LineUnitAfter = 0.5 zfE8=d8U  
         %$kd`Rl}  
    End With <5mv8'{L  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False ^ <qi&*  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll w~'}uh  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese (5E09K$  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True :s&dn%5N"  
    DoEvents _~MX~M3 MB  
     ]j>`BK>FE  
    '三级标题样式 #qmsZHd}b  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") |`Noj+T47I  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" J^ewG  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False 122s7A  
    With ActiveDocument.Styles("QLNU三级标题").Font !4cY^4>o  
        .NameFarEast = "宋体" }#u #m.  
        .NameAscii = "Times New Roman" oPF]]Imu  
        .NameOther = "黑体" ;gZ/i93 :Q  
        .Name = "黑体" 7i{(,:  
        .Size = 14               '四号 Rzh.zvxTp  
        .Bold = False Ef?hkq7X<  
        .Outline = False 9PACXW0  
        .Italic = wdUndefined ;x2o|#`b  
        .Subscript = wdUndefined W1M322]>L  
        .Superscript = wdUndefined YvcV801Go  
    End With ;9WU
t,R  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat $Hj;i/zD  
        .LeftIndent = CentimetersToPoints(0) i9De+3VqKK  
        .RightIndent = CentimetersToPoints(0) A6 .wXv,  
        .FirstLineIndent = CentimetersToPoints(0) Y)]C.V,~  
         xpO;V}M|  
        .LineSpacingRule = wdLineSpaceSingle Vs{\ YfF  
        .Alignment = wdAlignParagraphLeft \o/eF&  
         8Z_ 4%vUBg  
        .WidowControl = True mNacLkh[  
        .KeepWithNext = True L@/IyQ[H1  
        .KeepTogether = True +-(,'slov  
        .PageBreakBefore = False AoOA.t6RVo  
        .OutlineLevel = wdOutlineLevelBodyText QRK\74'uY  
         '2i !RT-  
        .CharacterUnitLeftIndent = 0 zRD-[Z/-  
        .CharacterUnitRightIndent = 0 5O d]rE  
        .CharacterUnitFirstLineIndent = 2 p/RT*?<   
         ,c^nW  
        .LineUnitBefore = 0.5 '8\9@wzv  
        .LineUnitAfter = 0 })P!7t  
    End With ypG*41  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False <qpzs@  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll +0z7}u\x  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese D
pvHIE:W  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True #T2J +  
    DoEvents j*gJ P !  
     %7}j|eS)G  
    '四级标题样式 KK3iui  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") @v^j<B  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" W+6
3B8)4  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False Uavl%Q  
    With ActiveDocument.Styles("QLNU四级标题").Font G"E_4YkJ  
        .NameFarEast = "宋体" T]Ai{@i  
        .NameAscii = "Times New Roman" hmd3W`8D  
        .NameOther = "宋体" P_N F;v5v  
        .Name = "宋体" &mmaoWR  
        .Size = 12               '小四号 c`p'5qz  
        .Bold = True (YYg-@IO  
        .Outline = False {ri={p]l  
        .Italic = wdUndefined fglfnx
0{  
        .Subscript = wdUndefined ;Su-Y!&%  
        .Superscript = wdUndefined K)!^NT  
    End With YS){N=g&'  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat Xpn\TD<_I  
         JffaT_"\  
        .LeftIndent = CentimetersToPoints(0) pvUV5^B(M  
        .RightIndent = CentimetersToPoints(0) Wh| T3&  
        .FirstLineIndent = CentimetersToPoints(0) bKGX> %-  
         #"rK1Z  
        .LineSpacingRule = wdLineSpaceSingle $C5*@`GM$  
        .Alignment = wdAlignParagraphLeft V0_
tk"  
         pKy4***I3  
        .WidowControl = True S<Gm*$[7  
        .KeepWithNext = True irD5;xk([  
        .KeepTogether = True
9l&q}  
        .PageBreakBefore = False } v:YSG  
        .OutlineLevel = wdOutlineLevelBodyText e9RYk:O  
         Q
Cb%d'_w+  
        .CharacterUnitLeftIndent = 0 zA>X+JH>iw  
        .CharacterUnitRightIndent = 0 QwWd"Of  
        .CharacterUnitFirstLineIndent = 2 Z;81"
  
         Vi-Ph;6[  
        .LineUnitBefore = 0 ed#fDMXGQ%  
        .LineUnitAfter = 0 "QNQ00[T`>  
         +"<+JRI(M5  
    End With {~F|"v  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False 0>7Ij7\[8  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll dB[4NT  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese WIf.;B)L  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True @QVg5  
    DoEvents )V2W:M  
     0jlM~H  
    '正文校式 4xm JQ>/  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") A| A
#|D  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" `}#rc DK  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False 4k@n5JNa  
    With ActiveDocument.Styles("QLNU正文").Font i $<['DY  
        
/
CNsGx%%  
        .NameFarEast = "宋体" 0LH6G[  
        .NameAscii = "Times New Roman" s. A}ydtt  
        .NameOther = "宋体" .cQO?UKK  
        .Name = "宋体" 5kTs7zJ^  
         e~zgH\`  
        .Size = 12               '小四号 v{ >3)$1  
         aF^NYe  
        .Bold = wdUndefined S\8v)|Pr  
        .Italic = wdUndefined b;UDgq8v  
        .Subscript = wdUndefined k Alxm{  
        .Superscript = wdUndefined 2vjkThh`I  
         N=<`|I  
        .Outline = False Ge-Bk)6  
        .Emboss = False I
oLi7NKw  
        .Shadow = False px K&aY8  
        .Hidden = False V nsV&cx  
         xt?-X%oY8  
        .DisableCharacterSpaceGrid = True Fb]+h)on  
    End With M['O`^  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat 3;BI wb_  
         e!jy6t  
        .LeftIndent = CentimetersToPoints(0) "4\  
        .RightIndent = CentimetersToPoints(0) I@ueeDY  
        .FirstLineIndent = CentimetersToPoints(0) ,.QJS6Yv  
         b/:wpy+9Z  
        .LineSpacingRule = wdLineSpaceExactly yj&GJuNb~  
        .LineSpacing = 20 e7@ m i  
        .Alignment = wdAlignParagraphLeft 196a~xNV  
         Zyz#xMmM  
        .WidowControl = False XlU\D}zS  
        .KeepWithNext = False ==m[t- 9x  
        .KeepTogether = False lxL.ztL  
        .PageBreakBefore = False Mww ^  
        .Hyphenation = False F5 ]<=i  
         vnvpb! @Q  
        .OutlineLevel = wdOutlineLevelBodyText )&j`5sSXcr  
         } jJKE  
       jjj<B
'zt  
        .CharacterUnitLeftIndent = 0 N:| :L:<1  
        .CharacterUnitRightIndent = 0 Q*>)W{H&)  
        .CharacterUnitFirstLineIndent = 2 :IS? si5|  
         "Bf8mEmp  
        .LineUnitBefore = 0 R#4l"   
        .LineUnitAfter = 0 ]A=\P,D  
        .SpaceBefore = 0 ?yef?JI$p  
        .SpaceAfter = 0 bKCE;Wu:G  
         5N|LT8P}Z  
        .DisableLineHeightGrid = True hbx4[Pf  
    End With FHr)xqo=~  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False nTr%S&<+"  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll )dhR&@r*w  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese ZgxB7zl//  
    ActiveDocument.Styles("QLNU正文").NoProofing = True Qs,\P^n  
    DoEvents >[;@ [4}  
     !2Nk  
    '图片段落样式 z:#]P0  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") k9rws  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" M<w
.q|P  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False <C'_:&M  
    With ActiveDocument.Styles("QLNU图片段落").Font JK =A=  
        .Size = 12               '小四号 .u7}p#  
        .Italic = wdUndefined KM?4J6jH  
        .Subscript = wdUndefined ct3i^,i  
        .Superscript = wdUndefined Mc@9ivwL#  
    End With H **tMq  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat z.cDb kf}  
         ?^%[*OCCC!  
        .LeftIndent = CentimetersToPoints(0) iX+8!>Q  
        .RightIndent = CentimetersToPoints(0) NLMvi!5w,  
        .FirstLineIndent = CentimetersToPoints(0) <@.e.H  
         Z2$_9.  
        .LineSpacingRule = wdLineSpaceSingle xOe 1
v9<  
        .Alignment = wdAlignParagraphCenter dRJ ](Gw  
        .KeepWithNext = True ~o^|>]  
        .OutlineLevel = wdOutlineLevelBodyText ;b0Q%TDh  
          Ol }5ry  
        .CharacterUnitLeftIndent = 0 9u(pn`e 3  
        .CharacterUnitRightIndent = 0 ^~[7])}g6  
        .CharacterUnitFirstLineIndent = 0 |})s0TU  
         5Z!$?J4Rl  
        .LineUnitBefore = 0 M[mYG _{J  
        .LineUnitAfter = 0 0#J~@1Gf  
    End With X#&5?oq`  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False DPzW,
aIgv  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll p<r<Y%  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese 4@-tT;$  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True N3L$"g5^  
    DoEvents -pYmM d,  
     Z
xnPSA@%  
     PF`uwx@zH  
    '第X章 Zt3sU_  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") -iDs:J4Iq  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" M#'7hm6  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False cpa" ,8  
    With ActiveDocument.Styles("QLNU章节标题").Font o7!A(Eu  
        .NameFarEast = "黑体" 3k)xzv%r`  
        .NameAscii = "Arial Black" AhF@  
        .NameOther = "Arial Black" $?P I>9g!  
        .Name = "黑体" f g)*TR  
        .Size = 16 ]\xt[/?{  
        .Bold = True kzZgNv#G;  
        .UnderlineColor = wdColorAutomatic \|Af26  
        .Outline = False }+KM"+@$<  
        .Italic = wdUndefined Qf=^CQ=lV  
        .Subscript = wdUndefined 4@0aN 6Os  
        .Superscript = wdUndefined B46:LQ9[  
        .Scaling = 100 ]20:8l'  
        .DisableCharacterSpaceGrid = True %"H:
z  
    End With MF"*xr v  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat aH6j,R%  
        .LineSpacingRule = wdLineSpaceSingle +yO) 3  
        .Alignment = wdAlignParagraphCenter daKZ*B|  
        .WidowControl = True }h;Z_XF&  
        .KeepWithNext = True ED>7  
        .KeepTogether = True #g6_)B=S  
        .PageBreakBefore = True \XB,)XDB  
        .OutlineLevel = wdOutlineLevelBodyText B9"o Ru^}  
         'bl9fO4v  
        .LeftIndent = CentimetersToPoints(0) $l7}e=1
 
        .RightIndent = CentimetersToPoints(0) 1-p#}VX  
        .FirstLineIndent = CentimetersToPoints(0) ejV`W7U  
         \7LL neq  
        .CharacterUnitLeftIndent = 0 4~Cf_`X}]  
        .CharacterUnitRightIndent = 0 Eg`~mE+a  
        .CharacterUnitFirstLineIndent = 0 0BC@wV  
         V4Rs  
        .LineUnitBefore = 1 1/ 9*c *w  
        .LineUnitAfter = 0.5 U%@
PY9#
 
         jI8`trD  
        .AutoAdjustRightIndent = False QIkF
X.^  
        .DisableLineHeightGrid = True PL=v,NB  
        .FarEastLineBreakControl = True P;I
,f  
        .WordWrap = True RkG?R3 e  
    End With l\{Qnb(  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False 5>9Q<*  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll
j>JBZ#g  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese `?$-T5Rr  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True O<s7VHj  
    DoEvents Wm
d@%K  
     W@AHE?s6g  
    '表格标题 R9A:"sJ  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") rd->@s|4mT  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" _K9PA[m5~  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False mHMsK}=~  
    With ActiveDocument.Styles("QLNU表格标题").Font i<Ms2^  
        .NameFarEast = "楷体" HAO-|=c4  
        .NameAscii = "Arial" HMUx/M.j  
        .Name = "楷体" _ooHB>sH  
        .Size = 10.5 KcV "<9rE  
        .Bold = True Ja3#W K  
        .Underline = wdUnderlineNone .$-;`&0cZ  
        .Italic = wdUndefined ^ZsIQ4@`  
        .Subscript = wdUndefined zRjbEL  
        .Superscript = wdUndefined YeOn   
        .Color = wdColorAutomatic = cxO@Fu  
    End With !6|_`l>G,  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat MlWKfe<  
         e2=}qE7
 
        .LineSpacingRule = wdLineSpaceSingle zdJPMNHg  
        .Alignment = wdAlignParagraphCenter PJB_"?NTTC  
        .KeepWithNext = True ;b [>{Q;  
        .KeepTogether = True Bdh*[S\u@E  
        .OutlineLevel = wdOutlineLevelBodyText )2).kL>  
         I '0
[  
        .LeftIndent = CentimetersToPoints(0) LkJq Bg  
        .RightIndent = CentimetersToPoints(0) : _Y^o  
        .FirstLineIndent = CentimetersToPoints(0) 28^/By:J  
         X40 gJV<  
        .CharacterUnitLeftIndent = 0 h{mzYy}b  
        .CharacterUnitRightIndent = 0 = ~O3j:<6  
        .CharacterUnitFirstLineIndent = 0 <.Tllk@r)  
         &;ddnxFI  
        .LineUnitBefore = 1 qOG@MR(5  
        .LineUnitAfter = 0 esSj 3E  
         AIOGa<^  
    End With eFs5l  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False YTTy6*\,_  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll ;*qXjv& K  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese &G%AQpDW5  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True i%133in  
    DoEvents :j+E]|d(~6  
qE2<vjRg  
    '表格首行 |E K6txRb  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") M %zf?>])  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False '~b  
    With ActiveDocument.Styles("QLNU表格首行").Font ',hoe  
        .NameFarEast = "楷体" DH\Ox>b=  
        .NameAscii = "Times New Roman" TSFrv8L  
        .Name = "楷体" %t_'rv  
        .Size = 9 aN"
YEL>w  
        .Bold = True qsp3G7\'=  
        .Underline = wdUnderlineNone kVtP~  
        .Italic = wdUndefined [UkcG9  
        .Subscript = wdUndefined ;,U@zB;\%(  
        .Superscript = wdUndefined X#axCDM-  
    End With puMVvo  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat 9ls1y=M8J  
        .LineSpacingRule = wdLineSpaceSingle bP$e1I3`  
        .Alignment = wdAlignParagraphCenter %u%;L+0Q[  
         1W*Qc_5 v1  
        .LeftIndent = CentimetersToPoints(0) > U3>I^Y  
        .RightIndent = CentimetersToPoints(0) @GAj%MK$  
        .FirstLineIndent = CentimetersToPoints(0) Lb$Uba-_  
         iOa<=  
         *}:P  
        .CharacterUnitLeftIndent = -0.5 9*iVv)jd  
        .CharacterUnitRightIndent = -0.5 |u`YT;`!"-  
        .CharacterUnitFirstLineIndent = -0.5 MkVv5C  
         !"phz&E5ah  
        .LineUnitBefore = 0 ZOqA8#\  
        .LineUnitAfter = 0 u*l>)_HD  
        .SpaceBefore = 0 xy>$^/[$  
        .SpaceAfter = 0 0*:n<T9  
         %tkqWK:  
    End With rs4:jS
$)  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False #p=+RTZ<  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll N
''xdz3Z  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese f|~'(~Sr  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True Qq{t
X  
    DoEvents L`M{bRl+1  
;woK96"{t  
    '表格内容 im<!JMI  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") v0WB.`rO  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False <8
%+-[(  
    With ActiveDocument.Styles("QLNU表格内容").Font LGy62 y$  
        .NameFarEast = "楷体" u^C\aujg  
        .NameAscii = "Times New Roman"  @B{  
        .Name = "楷体" ,?U(PEO\f  
        .Size = 9 t#M[w|5?  
        .Bold = False GAH<  
        .Underline = wdUnderlineNone !pe[H*Cy  
        .Italic = wdUndefined OtL~N TY  
        .Subscript = wdUndefined f4<~_ZGr  
        .Superscript = wdUndefined <2j$P Y9  
    End With LL:N/1ysG  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat ,FYA*}[  
        .LineSpacingRule = wdLineSpaceSingle 2FL_!;p;2E  
        .Alignment = wdAlignParagraphCenter 71Q`B#t0'Z  
         :6C R~p  
        .LeftIndent = CentimetersToPoints(0) b?=r%D->w  
        .RightIndent = CentimetersToPoints(0) f(}&8~&  
        .FirstLineIndent = CentimetersToPoints(0) \l(}8;5}  
         ly!3
~W  
        .CharacterUnitLeftIndent = -0.5 ++w{)Io Z  
        .CharacterUnitRightIndent = -0.5 >.39OQ#  
        .CharacterUnitFirstLineIndent = -0.5 zhE4:g9v  
        .LineUnitBefore = 0 LkeYzQH/l  
        .LineUnitAfter = 0 iU0jv7}n  
        .SpaceBefore = 0 M&zB&Ia"'  
        .SpaceAfter = 0 LU*mR{B  
    End With L9hL@  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False $hJ 4=F  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll unYPvrd  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese 5
6."&0  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True sk5=$My  
    DoEvents 6;Izw$X  
0*^f EoV  
    '图片标题 +:#g6(P]  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") n>^9+Rx|i  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" #\F8(lZ  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False :n<l0
  
    With ActiveDocument.Styles("QLNU图片标题").Font !b
K;/)  
        .NameFarEast = "楷体" ( K-7z  
        .NameAscii = "Times New Roman" MAqETjB  
        .Name = "楷体" .h
w(;  
        .Size = 10.5 mMZ=9 ?m  
        .Bold = True tm34Z''.>  
        .Underline = wdUnderlineNone x6T$HN/2  
        .Italic = wdUndefined 9%k4Ic%P  
        .Subscript = wdUndefined ViOXmK"  
        .Superscript = wdUndefined LfnQcI$kO  
        .Outline = False N+R{&v7=F%  
        .Shadow = False S]ndnxy"b  
        .Color = wdColorAutomatic T}p|_)&y  
    End With ^l(,'>Cn  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat %D7^.  
        .LineSpacingRule = wdLineSpaceSingle 6EWCJ%_  
        .Alignment = wdAlignParagraphCenter K~&3etQF  
         V[44aN  
        .KeepWithNext = wdUndefined T?n[1%K  
        .KeepTogether = True mV7_O//  
        .OutlineLevel = wdOutlineLevelBodyText YS9)%F=X  
         UGOe(JB  
        .LeftIndent = CentimetersToPoints(0) ieEtC,U  
        .RightIndent = CentimetersToPoints(0) $ ga,$G  
        .FirstLineIndent = CentimetersToPoints(0) *JW.ca}  
         UQ e1rf  
        .CharacterUnitLeftIndent = 0 *}r6V"pH~  
        .CharacterUnitRightIndent = 0 h9A=20fj  
        .CharacterUnitFirstLineIndent = 0 >&Ye(3w&  
         fb8xs<  
        .LineUnitBefore = 0 dg N#"  
        .LineUnitAfter = 0 ('_S1?y  
    End With qk&BCkPT  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False Odt<WG  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll 5*"WS $  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese +ZwTi!W  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True u8~5e  
    DoEvents tr 8 Q{  
Dxr4B<  
    '目录项 A?ESjMy(R  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") PwAmnk !  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" }D ~m%%,  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False %&O'>L  
    With ActiveDocument.Styles("QLNU目录项").Font >]bS"S  
        .NameFarEast = "黑体" u7wZPIC{_  
        .NameAscii = "Times New Roman" -RThd"  
        .NameOther = "Times New Roman" 8r.MODZG/  
        .Name = "黑体" ,;= S\  
        .Size = 10.5 jN+2+P%OL  
        .Bold = False $iy(+}  
        .Italic = wdUndefined y K2>ou  
        .Underline = wdUnderlineNone \<=.J`o{  
        .Color = wdColorAutomatic gcM(K.n  
        .Superscript = wdUndefined 3z 5"Ckzb  
        .Subscript = wdUndefined ^> d"D  
    End With )]}68}9  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat 0"@p|nAa  
         7z&^i-l.  
        .LineSpacingRule = wdLineSpaceSingle \iwUsv>SB  
        .Alignment = wdAlignParagraphLeft C5^N)-]"  
         Mm^6*L]  
        .WidowControl = False k"`^vV[{F  
        .KeepWithNext = False H~<wAer,Op  
        .KeepTogether = False ]G~u8HPH!m  
        .PageBreakBefore = False {6*UtG  
        .NoLineNumber = False Mb%[Qp60  
        .OutlineLevel = wdOutlineLevelBodyText toox`|  
         KC\W6|NtGj  
        .LeftIndent = CentimetersToPoints(0) su=]gE@  
        .RightIndent = CentimetersToPoints(0) ,+_gx.H2j  
        .FirstLineIndent = CentimetersToPoints(0) t1l
4mdp  
         |R Qa.^.  
        .CharacterUnitLeftIndent = 0 # WL5p.  
        .CharacterUnitRightIndent = 0 /P{'nI  
        .CharacterUnitFirstLineIndent = 0 ,+g0#8?p^x  
         i;+<5
_  
        .LineUnitBefore = 0 3t]0  
        .LineUnitAfter = 0 4,6?sTuX  
    End With .O4=[wE!U  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False vinn|_s%  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll aOW~! f/M  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot T6rjtq  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese R<> uCF0  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True
# f{L;  
    DoEvents m`3gNox  
     f2$<4Hhmm  
    '参考文献 7mS_Cz+cB  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") j62oA$z  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" SQ`ec95',  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False 0[OlJMVf  
    With ActiveDocument.Styles("QLNU参考文献").Font CYk"  
        .NameFarEast = "宋体" TP/bPZY  
        .NameAscii = "Times New Roman" ^6^A/] v  
        .NameOther = "Times New Roman" B{_-k  
        .Name = "Times New Roman" 6[1l K8o  
        .Size = 12 Ef6LBNWY.  
        .Bold = False H`U>ZJ.  
        .Italic = wdUndefined 1w?DSHe  
        .Subscript = wdUndefined ^W ,x  
        .Superscript = wdUndefined E+aE5wmr  
        .Underline = wdUnderlineNone Fc"+L+h@W  
        .UnderlineColor = wdColorAutomatic zU>bT20x/  
        .Color = wdColorAutomatic y{qKb:~wv  
        .Engrave = False ~\+mo  
    End With Z@>WUw@F  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat SL% Ec%9Y  
         t4,(W`  
        .LineSpacingRule = wdLineSpaceExactly Q"{Q]IT  
        .LineSpacing = 16  -L y A  
        .Alignment = wdAlignParagraphLeft r%oXO]X  
        .WidowControl = False fPsUIlI/A  
        .KeepWithNext = False '~Gk{'Nx"  
        .KeepTogether = False _k5-Wd5Ypw  
        .PageBreakBefore = False cNRe>  
        .OutlineLevel = wdOutlineLevelBodyText -+.-Ab7  
         yi1V\8DC  
        .LeftIndent = CentimetersToPoints(0) 7y>{Y$n  
        .RightIndent = CentimetersToPoints(0) }KL( -Ui$  
        .FirstLineIndent = CentimetersToPoints(0) ^F$iD (f  
         7vsXfIP+  
        .CharacterUnitLeftIndent = 0 1A
9
Gf  
        .CharacterUnitRightIndent = 0 2W`<P2IA  
        .CharacterUnitFirstLineIndent = -2 |Q~5TL>b  
         a`QKNrA2  
        .LineUnitBefore = 0 }2_i<4,L  
        .LineUnitAfter = 0 WG*S:_?  
        .SpaceBefore = 0 ;hU~nj+{  
        .SpaceAfter = 0 F|W(_llfM  
         )pt#Pu  
    End With xXc3#n   
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False WO6;K]  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll X=b]Whuv  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS Q\v^3u2;m`  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True k'Z$#  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese c:z<8#A}  
    DoEvents N%
+C5e<  
>!2d77I  
    ' ]a=Bc~g91  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") x\XOtjJr  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" X6c['Zrc  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False /H[!v:U  
    With ActiveDocument.Styles("QLNU论文题目").Font e;)&Hc:Z  
        .NameFarEast = "黑体" 9ioV R  
        .NameAscii = "Arial Black" v/DWy(CC  
        .NameOther = "Arial Black" ~bk+JK- >  
        .Name = "Arial Black" #kDJ>r |&-  
        .Size = 16 )SFyQ  
        .Bold = False 0--0+?  
        .Italic = wdUndefined <DM:YWNa  
        .Superscript = wdUndefined
mMV-IL  
        .Subscript = wdUndefined yE),GJ-m\<  
        .Underline = wdUnderlineNone AVv8Hhd  
        .UnderlineColor = wdColorAutomatic nHi6$} I  
        .Color = wdColorAutomatic qw%wyj7  
h/F,D_O>ZO  
    End With *+'l|VaVq\  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat ~C2[5r{So  
        .LineSpacingRule = wdLineSpaceSingle 9l9|w4YJs  
        .Alignment = wdAlignParagraphCenter 2(sq*!tX  
        .WidowControl = True MDKiwT@#  
        .KeepWithNext = True xu0pY(n^r  
        .KeepTogether = True 4wQ>HrS)(  
        .PageBreakBefore = True ,;wc$-Z!8  
        .NoLineNumber = False '@+a]kCMev  
        .OutlineLevel = wdOutlineLevelBodyText p=U5qM.O  
         )OcG$H NK  
        .LeftIndent = CentimetersToPoints(0) (!`]S>_w9  
        .RightIndent = CentimetersToPoints(0) `]:&h'  
        .FirstLineIndent = CentimetersToPoints(0) dy*CDRU4  
         5%Q[X  
        .CharacterUnitLeftIndent = 0 |#!P!p}  
        .CharacterUnitRightIndent = 0 @#5PPXp  
        .CharacterUnitFirstLineIndent = 0 7Cj6Kw5k  
         a7Rg!% r  
        .LineUnitBefore = 1 H GRH9W  
        .LineUnitAfter = 1 qy|si4IU8,  
         >T~duwS  
        .BaseLineAlignment = wdBaselineAlignAuto ,=kQJ|  
    End With %7bZnK`C  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False Nt'u; 0  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll c 7uryL  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS J~vK`+Zs  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True DN;An0 {MK  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese -%x9^oQwY  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True (t)a u  
    DoEvents m2$Qp{C6H  
     DR6 OR B7  
    '中文摘要 {n>W8sN<  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") KUqD<Jj?  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" {$mj9?n=v  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False *z A1NH5  
    With ActiveDocument.Styles("QLNU中文摘要").Font ~'l.g^p bv  
        .NameFarEast = "宋体" 7 V+ rQ  
        .NameAscii = "Times New Roman" *
6e 5T  
        .NameOther = "Times New Roman" FO5'<G-  
        .Name = "Times New Roman" w_!]_6%{b  
        .Size = 12 +p:@ ,_  
        .Bold = wdUndefined v(tr:[V  
        .Superscript = wdUndefined _~E&?zR2>"  
        .Subscript = wdUndefined U$(AZ|0  
        .Italic = wdUndefined Lcyj,R  
        .Underline = wdUnderlineNone B}y-zj;T  
        .UnderlineColor = wdColorAutomatic e7.!=R{6  
        .Color = wdColorAutomatic #e8NF,H5  
    End With k
drya  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat OjiQBsgnj  
        .LineSpacingRule = wdLineSpaceExactly )FrXD3p  
        .LineSpacing = 20 4h[^!up.7  
        .Alignment = wdAlignParagraphLeft lE?F Wt  
         o!+jPwEU  
        .WidowControl = False Eo }mSd  
        .KeepWithNext = False 0vRug|}k#%  
        .KeepTogether = True z2lEHa?w  
        .PageBreakBefore = False F$Q@UVA  
        .NoLineNumber = False J<{@D9r9<~  
        .OutlineLevel = wdOutlineLevelBodyText {r!X W  
         LMvsYc~]q  
        .LeftIndent = CentimetersToPoints(0) 
2x7%6'  
        .RightIndent = CentimetersToPoints(0) a_0G4@=T  
        .FirstLineIndent = CentimetersToPoints(0) D 4\T`j:  
         }Myi0I<  
        .CharacterUnitLeftIndent = 0 IuQY~!  
        .CharacterUnitRightIndent = 0 oLXQ#{([  
        .CharacterUnitFirstLineIndent = 2 A[6$'IJ  
        .LineUnitBefore = 0 %r*zd0*<n1  
        .LineUnitAfter = 0 wz P")}[0  
         _ADK8a6%)  
    End With A"@C }f  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False U\A*${  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll :8~*NSEFd  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS LAwl9YnG:  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True O W12m{  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese jpCQ2XD:  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True 4V`ypFme  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete EI29;  
    DoEvents 85fBKpEe  
     QDC]g.x  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") xv{iWJcs  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" v5 yOh5  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False i+V4_ `  
    With ActiveDocument.Styles("QLNU英文标题").Font QxmVImn"  
        .NameFarEast = "黑体" i}5 #n

 
        .NameAscii = "Arial Narrow" |h,aV(Q  
        .Name = "Arial Narrow" n2+eC9I  
        .Size = 16 X192Lar  
        .Bold = True @"m? #  
        .Bold = wdUndefined IRZ?
'Im  
        .Superscript = wdUndefined =y/VrF.bV  
        .Subscript = wdUndefined J8x>vC  
        .Italic = wdUndefined S/ Y1NH  
         /L1qdkG  
        .Underline = wdUnderlineNone 7 ='M&Za  
        .UnderlineColor = wdColorAutomatic U9KnW]O%"  
        .StrikeThrough = False ,&sBa{0  
        .DoubleStrikeThrough = False P==rY5+s`  
    End With gn? ~y`  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat UEJX0=  
        .LineSpacingRule = wdLineSpaceSingle }>w;(R  
        .Alignment = wdAlignParagraphCenter 'l U9*e9  
        .WidowControl = True @,-xaZ[  
        .KeepWithNext = False !
=.5$/  
        .KeepTogether = False uL!{xuN  
        .PageBreakBefore = False hNV"{V3`{  
        .NoLineNumber = False g=;c*{  
        .FirstLineIndent = CentimetersToPoints(0) 10JxfDceD  
        .OutlineLevel = wdOutlineLevelBodyText S)[`Bm  
         H!ZPP8]j>  
        .LeftIndent = CentimetersToPoints(0) pt;kN&A^  
        .RightIndent = CentimetersToPoints(0) ESZ
6<!S  
        .FirstLineIndent = CentimetersToPoints(0) EV@xUq!x.  
         V$wf;v0d(  
        .CharacterUnitLeftIndent = 0 7K`A2  
        .CharacterUnitRightIndent = 0 L44-: 3  
        .CharacterUnitFirstLineIndent = 0 a<[@p  
         R4"g? e  
        .LineUnitBefore = 1 MdWT[  
        .LineUnitAfter = 1 0j1I  
         FxC@KZG  
    End With ^z$
-NSlI  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False 1X/ q7lR  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll 9z,?DBMvc  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS <dzE5]%\  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True Xv'M\T}6C+  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese bf `4GD(  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True @fp (uu  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete Y>+\:O  
    DoEvents Frt_X%  
H;<hmbN?d  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") h]<Ld9  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" ;b$ (T5  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False v.+-)RLQg  
    With ActiveDocument.Styles("QLNU英文摘要").Font 74%

,v|  
        .NameFarEast = "宋体" X+{ 4,?04+  
        .NameAscii = "Arial" KX9+*YY,  
        .NameOther = "Arial" ">kfX1LT  
        .Name = "Arial" }`yIO"{8n  
        .Size = 12 MOyQ4<_  
        .Bold = wdUndefined ]7 ROCJ;  
        .Italic = wdUndefined u|\Lb2Kb:  
        .Superscript = wdUndefined xv9Z~JwH  
        .Subscript = wdUndefined 16o3ER  
    End With z@cL<.0CE  
     4.7ePbk[E  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat S"w$#"EJA  
         Warz"n]iC  
        .LineSpacingRule = wdLineSpaceExactly I`2hxLwh+  
        .LineSpacing = 20 8@!/%"Kt2  
         K.] *:fd  
        .Alignment = wdAlignParagraphJustify O~B iqm  
         a[)in ,3  
        .WidowControl = False .8CR \-
  
        .KeepWithNext = False LZy Ulz  
        .KeepTogether = False >(u=/pp=:  
        .PageBreakBefore = False 0?ZJJdI3  
        .NoLineNumber = False 7 #_{UJ%  
         x9 <cT'  
        .OutlineLevel = wdOutlineLevelBodyText &@A(8(%  
         dapQ
5JT/  
        .LeftIndent = CentimetersToPoints(0) {y'c*NS  
        .RightIndent = CentimetersToPoints(0) H;}V`}c
<`  
        .FirstLineIndent = CentimetersToPoints(0) w/N.#s^  
         6d,jR[JP  
        .CharacterUnitLeftIndent = 0 bxO8q57  
        .CharacterUnitRightIndent = 0 rU5gQq
;  
        .CharacterUnitFirstLineIndent = 2 (M6B$:  
         L!DP*XDp  
        .LineUnitBefore = 0 G6Z2[Ej1  
        .LineUnitAfter = 1 xF5q=%n  
         [X=-x=S,  
    End With m"~$JA u  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False [z`U9J  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll waW2$9O  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS [a
5L WW  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False NZ'S~Lr  
    DoEvents ;&P%A<[`  
1,Uv;s;{  
    Options.Pagination = True &?/h#oF@\  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." 29pIO]8;  
    DoEvents mT>56\63  
    ActiveDocument.Repaginate x9~d_>'A  
7f'9Dm`  
End Sub Z6X?M&-Lz  
;p/RS#  
_{KQQ 5k\  

姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 =K=FzV'_~  
ZTW
be  

引用

引用第20楼newport93于06-14-2010 13:47发表的  : l!<Nw8+U  
}>=k!l{  
老五，I 服了U。 !1]72%k[  
[2gK^o&t  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 _y#t[|}w  

KTD# a1W