Dim bContinue As Boolean nXU`^<nA  
GZefeBi  
Dim regEX As New RegExp + d?p? v  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 4{PN9i E  
v2Ft=_*G|  
Dim LastTitle0String As String, LastTitle0No As Long ;H' ,PjU  
Dim LastTitle1String As String, LastTitle1No As Long ,xSNTOJ  
Dim LastTitle2String As String, LastTitle2No As Long PHAM(iC&D  
Dim LastTitle3String As String, LastTitle3No As Long >Hr&F nh+  
Dim LastTitle4String As String, LastTitle4No As Long PiwMl)E|!  
Dim LastTitle5String As String, LastTitle5No As Long 1U)U{i7j  
Dim LastTabelString As String, LastTableNo As Long @\*`rl]  
Dim LastFigureString As String, LastFigureNo As Long u~O9"-m !V  

Lm-f0\(  
Dim strSeperator As String PJfADB7Y  
Rb/|ae  
Sub ConvertWidth(fTEXT As String, rText As String) Z;ze{Vb  
        Selection.Find.ClearFormatting 8SZZ_tS3r  
        Selection.Find.Replacement.ClearFormatting u0Q6+U  
        Selection.Find.Wrap = wdFindContinue 'zJBp 9a%  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText 8}M-b6RV  
        DoEvents %I^schE*  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True HNUpgNi  
End Sub *x!j:/S`n  
"?*B2*|}`  
Sub ClearDomain() i C)+5L#'  
        With Selection.Find L`2(u!i J  
            .ClearFormatting ?4`f@=}'K  
            .Replacement.ClearFormatting dI(1L~  
            .Wrap = wdFindContinue XY`{F.2h  
            Me.txtStatus.Text = "清除所有域代码" "xI70c{  
            DoEvents r+Pfq[z&  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False }H Ct= W`  
        End With ,+P2B%2c  
End Sub ;S_Imf0$v  
F 
,;B  
Private Sub cmdCheck_Click() ya c4\%ze  
    bContinue = True ] /"!J6(e  
    Dim NoSeries1(1 To 16) As String @vc9L  
    Dim NoSeries2(1 To 16) As String H\%^n<]#  
    Dim NoSeries5(1 To 16) As String /wi*OZ7R  
    Dim NoSeriesRM(1 To 16) As String ~ |Nj+A  
    Dim paraTotal As Long, ParaText As String ge#0Q L0K  
    Dim ttString As String, ttNo As String *w#^`yeo  
      2S  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long "F[e~S#V*  
}j)][{i*x  
    Me.txtStatus.Visible = True awU!3)B  
    Me.lbParaType.Visible = True *Uw"`l  
    Me.cmdCheck.Enabled = False R@df~  
     PIHix{YR  
     =L\&}kzB  
     8l>7=~Egp  
     .DR*MQI9  
    Dim ParaType As String, rText As String +B '<0  
    
~0@uR  
    Selection.WholeStory ([ jm=[E^  
    Selection.NoProofing = True P7 h^!a/  
     -<6b[YA  
    tm1 = Now mI,a2wqi  
     H'"=C&D~  
        ActiveWindow.View.Type = wdNormalView F
fRvi8  
     >6KwZr BB  
    NoSeries1(1) = "一" >qy$W4  
    NoSeries1(2) = "二" u?4d<%5R!  
    NoSeries1(3) = "三" Mdw"^x$7  
    NoSeries1(4) = "四" qV#,]mX  
    NoSeries1(5) = "五" eK
[9wEdn  
    NoSeries1(6) = "六" SgWLs %B  
    NoSeries1(7) = "七" G_QV'zQ  
    NoSeries1(8) = "八" H2S/!Q;K  
    NoSeries1(9) = "九" xeB-fy)5+  
    NoSeries1(10) = "十"  .: Zw6  
    NoSeries1(11) = "十一" R
Rb>]oD  
    NoSeries1(12) = "十二" 5_\1f|,  
    NoSeries1(13) = "十三" 2RU/oqmR  
    NoSeries1(14) = "十四" Pk3b#$+E  
    NoSeries1(15) = "十五" GU0[K#%  
    NoSeries1(16) = "十六" wzj:PS
  
     79z/(T
+  
    NoSeries2(1) = "㈠" Q<Q?#v7NX  
    NoSeries2(2) = "㈡" 
FrsXLUY  
    NoSeries2(3) = "㈢" yHo#v:>?p  
    NoSeries2(4) = "㈣" 'u#c_m!9  
    NoSeries2(5) = "㈤" *snY|hF  
    NoSeries2(6) = "㈥" BhUGMK  
    NoSeries2(7) = "㈦" {zI>"%$u  
    NoSeries2(8) = "㈧" /EW=O
Z/  
    NoSeries2(9) = "㈨" g [u*`]-;v  
    NoSeries2(10) = "㈩" D!DL6l`  
     A  I v  
    NoSeries5(1) = "①" TVZf@U  
    NoSeries5(1) = "②" *qA:%m3  
    NoSeries5(3) = "③" "]bOpk T  
    NoSeries5(4) = "④" _<6E>"*m  
    NoSeries5(5) = "⑤" YJ!jdE}  
    NoSeries5(6) = "⑥" >~l^E!<i-u  
    NoSeries5(7) = "⑦" $ghlrV;:ct  
    NoSeries5(8) = "⑧" 7\AoMk}  
    NoSeries5(9) = "⑨" (kVxa8 0  
    NoSeries5(10) = "⑩" }U^i
Vq*  
     vkLKzsN' ]  
     !GJT-[  
    NoSeriesRM(1) = "I" V 7oE\cxr  
    NoSeriesRM(2) = "II" 6/.kL;AI  
    NoSeriesRM(3) = "III" >l b9j>  
    NoSeriesRM(4) = "IV" vX?C9Fr2  
    NoSeriesRM(5) = "V" sis1Dh9:  
    NoSeriesRM(6) = "VI" k?}y@$[)  
    NoSeriesRM(7) = "VII" *`40
B6dEr  
    NoSeriesRM(8) = "VIII" '5lwlF  
    NoSeriesRM(9) = "IX" Obx!>mI^6  
    NoSeriesRM(10) = "X" lMmP]{.>$  
    NoSeriesRM(11) = "XI" )b~+\xL5J  
    NoSeriesRM(12) = "XII" F]L96&  
    NoSeriesRM(13) = "XIII" 2c'<rkA  
    NoSeriesRM(14) = "XIV" ~bqw!rz  
    NoSeriesRM(15) = "XV" '};mBW4z  
    NoSeriesRM(16) = "XVI" 7*kTu0m  
     g;7W%v5wqk  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) E#E&z(G2  
     N(kSE^skOa  
    If i = vbNo Then D/ tCB-+  
        Exit Sub A6I^`0/  
    End If Y%!k'\n[2  
     z
.
!u<hy(  
    If Me.chkSuper.Value Then 4nXemU=  
        Me.txtStatus.Text = "检查修改所有的上标格式"
8
{ +KNqz  
     lot;d3}  
        CheckSuperScript %KPQ|^WE  
         o?d`o$  
    End If 3F8KF`*  
     x9o(q`N  
    If Me.chkStyle.Value Then mT>RQ.  
        Me.txtStatus.Text = "设置样式，请稍候...." o]eG+i6g]  
        DoEvents ?@^gpVK{  
        CeateOrModifyStyle gDjAnz#  
    End If :(K JLa]  
     6"9(ce KX  
     R
Nopx3  
     IC6'>2'=T  
    ClearDomain B2:GGZ|jS  
         (~NR."s;
 
     eF(oHn,  
     GBTwQYF  
    If Me.chkLIST.Value Then uvRX{q4  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" *Oq&g\K)  
     ck$>  
        ConvertListToOrdinary I%jlM0ZUI"  
    End If kZ0z]Y  
     GF36G?iEi  
     Ml ,in49  
    Dim pType As String, trimpTEXT As String t:P]G>)x|  
    If Me.chkNum.Value = True Then y[/:?O}g4  
        Me.txtStatus.Text = "转换全角数字形式为半角" jItVAmC=i  
        ConvertWidth "１", "1" B@ >t$jK  
        DoEvents h%5keiA  
        ConvertWidth "２", "2" VFK]{!C_  
        DoEvents *|^|| bd  
        ConvertWidth "３", "3" XaaR>HljJ  
        DoEvents T3Sz<K$E  
        ConvertWidth "４", "4" Z-L}"~  
        DoEvents hT
% >)71  
        ConvertWidth "５", "5" qN^]`M[ BY  
        DoEvents ,=[r6k<  
        ConvertWidth "６", "6" yuhY )T  
        DoEvents !Ld[`d.|R!  
        ConvertWidth "７", "7" J
F'<""  
        DoEvents ^e]h\G  
        ConvertWidth "８", "8" HOrXxxp1^  
        DoEvents /vPr^Wv  
        ConvertWidth "９", "9" I :8s3;  
        DoEvents R1Fcd@DWD  
        ConvertWidth "０", "0" [[O4_)?el  
        DoEvents P\h1%a/D  
        ConvertWidth "ａ", "a" }&]T0U`@  
        DoEvents JH#p;7;  
        ConvertWidth "ｂ", "b" 7e[&hea  
        DoEvents {Q)sR* d  
        ConvertWidth "ｃ", "c" I0N~>SpZ5  
        DoEvents &srD7v9M8  
        ConvertWidth "ｄ", "d" %v0;1m  
        DoEvents SB:z[kfz|  
        ConvertWidth "ｅ", "e" ex.^V sf_  
        DoEvents w3;T]R*  
        ConvertWidth "ｆ", "f" " eS-i@  
        DoEvents |9[)-C~N7  
        ConvertWidth "ｇ", "g" !/]z-z2>  
        DoEvents 9RC:-d;;_  
        ConvertWidth "ｈ", "h" wauM|/KG  
        DoEvents 4YXp,U  
        ConvertWidth "ｉ", "i"  zj$Ve  
        DoEvents "$3~):o  
        ConvertWidth "ｊ", "j" 4m%Yc
k{R  
        DoEvents ~lbm^S}-  
        ConvertWidth "ｋ", "k" {rzQ[_)EC  
        DoEvents xiVbVr#[  
        ConvertWidth "ｌ", "l" sRQ4pnnrn  
        DoEvents TpYdIt9#>  
        ConvertWidth "ｍ", "m" KvjH\;
78  
        DoEvents Pk6_1LV  
        ConvertWidth "ｎ", "n" 59(kk;  
        ConvertWidth "ｏ", "o" %r@:7/  
        ConvertWidth "ｐ", "p" R8Dn 
GR  
        ConvertWidth "ｑ", "q" 4 g8t  
        ConvertWidth "ｒ", "r" !{!(yP_  
        ConvertWidth "ｓ", "s" +E+I.}sOB  
        ConvertWidth "ｔ", "t" _`Dz%(c  
        ConvertWidth "ｕ", "u" U^Iq]L   
        ConvertWidth "ｖ", "v" yQq|!'MKk  
        ConvertWidth "ｗ", "w" `69xR[f  
        ConvertWidth "ｘ", "x"
CQA^"Ll  
        ConvertWidth "ｙ", "y" {>3w"(f7o  
        ConvertWidth "ｚ", "z" m
j ,Oy  
        ConvertWidth "Ａ", "A" ItE)h[86  
        ConvertWidth "Ｂ", "B" keJ-ohv)  
        ConvertWidth "Ｃ", "C" ?[.g~DK,  
        ConvertWidth "Ｄ", "D" P)[QC  
        ConvertWidth "Ｅ", "E" of'H]I Z  
        ConvertWidth "Ｆ", "F" wS [k}  
        ConvertWidth "Ｇ", "G" (hIe!"s*  
        ConvertWidth "Ｈ", "H" .PCbGPbk  
        ConvertWidth "Ｉ", "I" M (:_(4~  
        ConvertWidth "Ｊ", "J" lr[&*v?h  
        ConvertWidth "Ｋ", "K" {5SJ0'.B2g  
        ConvertWidth "Ｌ", "L" A{wk$`vH
  
        ConvertWidth "Ｍ", "M" (\4YBaGd  
        ConvertWidth "Ｎ", "N" Yez   
        ConvertWidth "Ｏ", "O" XUK%O8N#9  
        ConvertWidth "Ｐ", "P" [9Hrpo]tU:  
        ConvertWidth "Ｑ", "Q" Q) iN_|  
        ConvertWidth "Ｒ", "R" , w,)n^  
        ConvertWidth "Ｓ", "S" d 1 O+qS  
        ConvertWidth "Ｔ", "T" KssIoP
 
        ConvertWidth "Ｕ", "U" U8eU[|-8O/  
        ConvertWidth "Ｖ", "V" \wp8kSzC  
        ConvertWidth "Ｗ", "W" 7'7 o^> !  
        ConvertWidth "Ｘ", "X" ]_hXg*?  
        ConvertWidth "Ｙ", "Y" k~]\kv=  
        ConvertWidth "Ｚ", "Z" lW Fm>DiLY  
        ConvertWidth "^l", "^p" nIl<2H]F`  
        ConvertWidth "（", "(" [b Em D  
        ConvertWidth "）", ")" kZQ$Iv+^(  
     #B__-"cRv  
    End If n*hRlL
  
5 HN ,y  
    With ActiveDocument 7??j}ob>  
        Dim tbl As Table 6W'2w?qj?4  
        For Each tbl In .Tables mFyYn,Mu|  
            tbl.Rows.Alignment = wdAlignRowCenter hOe$h,E']  
            tbl.Range.Font.NameFarEast = "楷体" zeuSk|O  
            tbl.Range.Font.NameAscii = "Times New Roman" `n
L^]i  
            tbl.Range.Font.Size = 10.5 _<jccQ  
        Next uvA2`%T/  
        Set tbl = Nothing XRn+6fn|  
    End With * jl_,0g]  
     6MbMAh5>  
     R/&C}6Gn  
    With ActiveDocument 7mYBxE/  
         :Ek3]`q#  
        For i = 1 To .TablesOfContents.Count zU# OjvNk  
            .TablesOfContents(i).Delete ;_1>nXh  
        Next u]<`y6=&C  
         mZ.E;X& ,*  
         ?e23[  
         nVk]Qe  
        paraTotal = .Paragraphs.Count r]%.,i7~8  
        paraCounter = 1 ,]=Qgn  
         &.:yP3  
        LastTitle0No = 0 TzrU |D?  
        LastTitle1No = 0 .-:6L2  
        LastTitle2No = 0 X6oY-4O  
        LastTitle3No = 0 ^Y^5 @x=  
        LastTitle4No = 0 *4 Kc "M  
        LastTableNo = 0 u &{|f  
        LastFigureNo = 0 {6*{P!H  
         S4%MnT6Uy  
        Dim Sec As Long 9z(h8H  
         BtP*R,>  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) |bmc6G[  
        If Sec = 0 Then cKAZWON8;v  
            Exit Sub mh~n#bah  
        End If 9R|B 5.  
         fG /wU$B  
        k = 0 [~ |e:  
        Do While (paraCounter < paraTotal) And bContinue 3M{b:|3/q  
            k = k + 1 Ay\!ohIS3  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then :yAvo4)  
                Exit Do SFa^$w  
            End If nHB`<B  
            paraCounter = paraCounter + 1 "Oy&6rrr  
            If k Mod 20 = 0 Then 4\Cb4jq%/  
                Me.lbCounter.Caption = paraCounter "#`c\JuR]  
                DoEvents G/8G`teAZ  
            End If 7@i2Mz/eV  
        Loop :w4I+* ]  
         |y2cI,&  
         JmVha!<
qk  
        Do While (paraCounter < paraTotal) And bContinue .w)T2(  
             |Vc:o_n7  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) B' D4]EB  
            ShapeHeight = 0 CYC6:g|)  
            ShapeWidth = 0 g$S<_$Iey  
           WR>2t&;E  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth qzu%Pp6If  
             Gp))1
b';  
            Select Case ParaType eC-nV)]I9  
                Case "【】表格内容" Uf-`g>  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" &?7+8n&+  
                Case "章" JOx""R8T5  
                    LastTitle0No = LastTitle0No + 1 (9D,Ukw  
                    '新一章开始，复位其下属标题编号 B9h>  
                    LastTitle1No = 0 :aMp,DfM]P  
                    LastTitle2No = 0 cWL7gv\|  
                    LastTitle3No = 0 0}aw9g  
                    LastTitle4No = 0 N+NS\Y5  
                     jz$83TB-  
                    k = Val(ttNo) 5$f*fMd;  
                    If k = 0 Then '非数字编号章节 kx3]A"]>'  
                        If ttNo <> NoSeries1(LastTitle0No) Then h>K%OxR  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString HUY1 nb=  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText Hy
1f,D  
                        End If Jx= v6==7  
                    Else Q_n9}LanP  
                        If Val(ttNo) <> LastTitle0No Then wB W]w  
                            rText = "第" & LastTitle0No & ttString o8S)8_3  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText siGt5RH*  
                        End If ~TALpd  
                         oN
BYJ]t  
                    End If 0)3*E)g{  
                     9!|.b::  
                    '章段落设置 ( j~trpe,  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 z
f^F.wW  
                    .Paragraphs(paraCounter).Style = "QLNU章节" L}%4YB  
                    .Paragraphs(paraCounter).Range.Select 4kQL\Ld#E%  
                    Selection.EndKey unit:=wdLine ppM^&6x^  
                    tc = Replace(rText, vbCr, "") @T+pQ)0{{  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False AT,?dxP J  
                Case "一级标题" \)T4NN  
                    LastTitle1No = LastTitle1No + 1 Z=P=oldH  
                    '新一级标题开始，复位其下属标题编号 %Tv^BYQAZ  
                    LastTitle2No = 0 NYZI;P1DA  
                    LastTitle3No = 0 dNcP_l/A  
                    LastTitle4No = 0 5VPP 2;J  
                     #&c}in"!  
                    If ttNo <> NoSeries1(LastTitle1No) Then Nh|QYxOP  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString pxs`g&3yd  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText <ba+7CK]w  
                    End If `=f1rXhI+1  
                   RJZ4fl  
                     b."1p7'  
                    '一级标题段落设置  格式：一、标题内容 dCH(N_  
                    .Paragraphs(paraCounter).Range.Text = rText D*#r V P  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" jR&AQ-H&  
                    .Paragraphs(paraCounter).Range.Select a"0'cgB}  
                    Selection.EndKey unit:=wdLine %j?<v@y  
                    tc = Replace(rText, vbCr, "") r`(U3EgP  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False 1~P ^g`  
                Case "二级标题" &tE#1<k  
                    LastTitle2No = LastTitle2No + 1 O}_Z"y  
                    '新二级标题开始，复位其下属标题编号 R?[KK<sWWe  
                    LastTitle3No = 0 zos#B30  
                    LastTitle4No = 0 nLjo3yvV..  
                      ~WG#Zci-  
                    If ttNo <> NoSeries1(LastTitle2No) Then lGP'OY"Q  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString +Udlt)H  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText
L1E\^)  
                    End If B%Spmx
8  
                     4d0<uB&v'  
                    '二级标题段落设置 格式：(一)、标题内容 BpKgUwf;C  
                    .Paragraphs(paraCounter).Range.Text = rText 1~#p3)B  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" i&?do{YQ)  
                     6?c(ueiL[  
                    .Paragraphs(paraCounter).Range.Select D2}nJFR ]  
                    Selection.EndKey unit:=wdLine Zcn,_b7  
                    tc = Replace(rText, vbCr, "") M0zlB{eH  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False .4wp  
                 *n%J#[e(  
                Case "三级标题" ROHr%'owgL  
                    LastTitle3No = LastTitle3No + 1 \ >(;t#>  
                    '新三级标题开始，复位其下属标题编号 ?#917M  
                    LastTitle4No = 0 nY<hfqof  
                     %L$P']%t@  
                    If Val(ttNo) <> LastTitle3No Then y(RK |r  
                            rText = LastTitle3No & ". " & ttString nfMQ3KP  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText KI="O6 h  
                         .v:K`y;f\(  
                    End If # 5x[Z[m  
                    '三级标题段落设置 格式：1. 标题内容 =j1rw  
                    .Paragraphs(paraCounter).Range.Text = rText W=EvEx^?%  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" H A(e  
                    .Paragraphs(paraCounter).Range.Select ul$YV9[\  
                    Selection.EndKey unit:=wdLine Xpd^^  
                    tc = Replace(rText, vbCr, "") Q!VPk~~(  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False =1"8
ua  
                Case "四级标题" DOm5azO!>  
                    LastTitle4No = LastTitle4No + 1 1(**JTe  
                     V OViOD  
                    If Val(ttNo) <> LastTitle4No Then %%w]-`^h,  
                            rText = "(" & LastTitle4No & "). " & ttString ~IKPi==@,  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText )d6Ya1vJH  
                     hOSkxdi*^  
                    End If cTeEND)  
                    '四级标题段落设置 格式：(1). 标题内容 K}U}h>N  
                    .Paragraphs(paraCounter).Range.Text = rText #ab=]}2W_g  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" O2Mo ~}  
                    .Paragraphs(paraCounter).Range.Select W@x UR-}51  
                    Selection.EndKey unit:=wdLine N5=; PZub  
                    tc = Replace(rText, vbCr, "") 7=ZB?@bU~  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False nEM>*;iE   
                 ryq95<l
F  
                Case "表格标题" @u2nG:FG  
                    LastTableNo = LastTableNo + 1 a|im DY_-j  
                     J$?*qZ(oO  
                    If ttNo <> CStr(LastTableNo) Then 81|Xg5g)b  
                            rText = "表" & LastTableNo & ". " & ttString AhA
RBgf<  
                            ErrMsg.AddItem "表格编号错误：" & ParaText {>cO&eiCt  
                   217KJ~)'  
                    End If mSzBNvci  
                     O`hOVH
DQ  
                    '表格名称段落设置 格式：表1. 表格名称 -)tu$W*  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" $Q|t^(  
                    xe = Replace(rText, vbCr, "") _KkLH\1g$  
                    .Paragraphs(paraCounter).Range.Select dvi L5Eaj  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 A8R}W=  
                    Selection.Range.Text = xe ~a5p_xP  
                    Selection.EndKey ,]'?Gd  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False ?b~Vuo  
                 :,=no>mMx  
                Case "表格首行" ~sQN\]5VW  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" Xo*=iD$Jys  
                Case "图片标题" /0mbG!Ac  
                    LastFigureNo = LastFigureNo + 1 YQ_3[[xT  
                     NVMhbpX6  
                    If ttNo <> CStr(LastFigureNo) Then B&`hvR  
                            rText = "图" & LastFigureNo & ". " & ttString XY8s\D
K  
                            ErrMsg.AddItem "表格编号错误：" & ParaText h*Y);mc$#  
                   G8lR_gD"!  
                    End If 5"5D(  
                    '图片名称段落设置 格式：图1. 图名称 T}X#I'Z  
                    .Paragraphs(paraCounter).Range.Text = rText V(Ps6jR"BS  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" B;? "R  
                    .Paragraphs(paraCounter).Range.Select %
Y` @>P'  
                    Selection.EndKey unit:=wdLine t,.MtU>K@  
                    xe = Replace(rText, vbCr, "") iG*/m><-  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False E VBB:*q6  
                Case "正文" 5B?>.4R  
                     '正文名称段落设置 wNW9xmS  
                    .Paragraphs(paraCounter).Style = "QLNU正文" :hG?} [-2  
               Case "文献条目" i(JB
BE"  
                    With .Paragraphs(paraCounter) 8_K22]c5  
                        '.Range.Select !0~$u3[b  
                        'Selection.ClearFormatting y.~y*c6,g  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” XX,iT~+-  
                        .Style = "QLNU参考文献" u4=j!Zb8}  
                    End With cRX0i;zag  
               Case "图表注解" XnQo0 R.PW  
                    With .Paragraphs(paraCounter) z1ltc{~Z  
                        .Range.Font.NameFarEast = "楷体" oO|zRK1;/  
                        .Range.Font.NameAscii = "Times New Roman" g@.RfX=  
                        .Range.Font.Size = 9 '小5号字 PQsqi;=)  
                         u><gmp&  
                        .Alignment = wdAlignParagraphCenter D!~-53f@  
                        .LeftIndent = 0 vvLm9T
w  
                        .RightIndent = 0  # a 'h,  
                        .FirstLineIndent = 0 hp}J_/+4n  
                        .LineSpacing = 12 rs3Uk.Z^'  
                        .LineSpacingRule = wdLineSpaceExactly */n)_  
                        .LineUnitAfter = 0 ~n84x  
                        .LineUnitBefore = 0
EW{z?/  
                        .OutlineLevel = wdOutlineLevelBodyText /}Y>_87  
                        .PageBreakBefore = False V$+xJ  m  
                        .RightIndent = 0 W$0<a@
 
                        .WordWrap = True })|+tZ  
                        .LineUnitAfter = 0.5 5o5y3ibQ  
                         |Q^Z I  
                    End With n}qHt0N  
                Case Else +'?p $@d  
                    '不作处理 @ #}9?>UV  
            End Select  XGEAcN  
             (KHTgZ6  
            '含有inlineshape的段落处理 Nf>1`eP  
            If ShapeHeight > 30 Then Gv}*Tw$  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 `av8|;  
            End If A}sb
2P  
             RR><so%  
            If (ShapeWidth + ShapeHeight) > 150 Then iZQwo3"8r  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" m El*{]  
            End If Te~"\`omJ3  
             l/_3H\iM  
            '段落计数器递 {
hX.R  
            paraCounter = paraCounter + 1 d(w $! $"h  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter 3C8'0DB  
            Me.txtStatus.Text = ParaText
Rv6{'\:  
            DoEvents 5DfAL;o!  
        Loop d^IOB |6Q  
    End With a4X J0Tm  
     o*\kg+8  
    msg = "" dfe 9)m>  
     sD.bBz  
    For i = 0 To Me.ErrMsg.ListCount - 1 >UpTMEQ  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) Ay!=Yk^~  
    Next F9ry?g=h  
     5,'?NEyw  
     uYS?# g  
     vfJ}t#%UH  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg sf]y\_zU  
    Me.cmdCheck.Enabled = True UHz*
Tfjb  
    Me.txtStatus.Visible = True k'wF+>  
    Me.lbParaType.Visible = False {>G\3|^D  
     E)>~0jv  
    bContinue = False O9]j$,i  
End Sub 0yXUVKq3  
0,(U_+n  
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) >>wbyj8  
    Dim pTEXT As String -Xkdu?6Eh  
     ]6< /{b  
    pTEXT = ChKRange.Text zGu(y@o  
     @<\f[Znt o  
    ParaType = "其它" 0b=OK0n!%  
    TitleString = pTEXT fEdQR->  
    TitleNo = "N/A" ~ @Ib:M  
     @dcT8 YC  
    shpCounter = ChKRange.InlineShapes.Count *L/_ v  
    If shpCounter <> 0 Then R)t"
`'6|  
        MaxShpHeight = 0: TotalShpWidth = 0 j_\sdH*r  
        For i = 1 To shpCounter rSB"0W7  
            k = ChKRange.InlineShapes(i).Height f 5_n 2  
            l = ChKRange.InlineShapes(i).Width {!x
Pq%  
            If k > MaxShpHeight Then 8UoMOeI3  
                MaxShpHeight = k Nm#VA.~  
            End If 4-=>># P  
            TotalShpWidth = TotalShpWidth + l __$IbF5  
        Next `|i #)  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then X",fp  
            Exit Sub dh%C@n:B  
        End If nbw&+dcJ8  
    End If tuK"}HepB  
     yyrCO"eh  
    '空行 tOwwgf  
    If Len(pTEXT) <= 2 Then t/_w}  
        Exit Sub )__vPPko i  
    End If \CB{Ut+s  
     UKQ,]VC  
         ^DVr>u  
    '是否为表格中的文字 cg<10KT  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then qI<6% ^i  
        ParaType = "表格内容" 1&Rz'JQ+  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) ,Z#t-?  
        If k = 1 Then M 'W@K  
            ParaType = "表格首行" Vy{=Y(cpF2  
        End If 3`J?as@^8  
        Exit Sub LDW"
:k|  
    End If ?b:J6(-  
     X_|8CD-@6  
    '例外情况：脚注 ()K%Rn  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then e6k}-<W*q  
        ParaType = "脚注" C+,;hj  
        Exit Sub X^?<, Y)1.  
    End If z['>`Kt  
     xzy7I6X  
    '例外情况：尾注 (zBa2Vmmv  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then ];^A8?  
        ParaType = "尾注" 8[ 1D4d  
        Exit Sub 0kpRvdEr-  
    End If `Ten2(D  
     `Qv7a Y  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then :HRJ49a  
        ParaType = "页眉页脚" abW
mPi  
        Exit Sub B>t$Z5Q^X  
    End If on(F8%]zE  
     oGly|L>  
     9C$b^wHd  
    With regEX 95a
a  
        .Global = True i=reJ(y-  
         4*lS
hkL  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" 75@){ :  
        If regEX.Test(pTEXT) Then xg'z_W  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") 4CS9vv)9R  
            TitleString = regEX.Replace(pTEXT, "$3") tk<dp7y7  
            TitleNo = regEX.Replace(pTEXT, "$1") "4H&wHhT!  
            ParaType = "章" KB7CO:  
            Exit Sub ,$mnD@)  
        End If 7s,IT8ii  
         2<yi8O\  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" &m`1lxT  
        If regEX.Test(pTEXT) Then Dz]&|5'N  
            ParaType = "一级标题" <m`HK.|~  
            regEX.Execute (pTEXT) +e%9P%[+  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") [sTr#9Z  
            TitleString = regEX.Replace(pTEXT, "$3") z*l3O~mZ  
            TitleNo = regEX.Replace(pTEXT, "$1") xqO'FQO%  
            Exit Sub U{RW=sYB~9  
        End If A"\kdxC  
         ;)5d wq  
        '全角或半角括号中的数字 3otia;&B  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" b3 MgJT"mN  
        If regEX.Test(pTEXT) Then #wNksh/J^  
            ParaType = "二级标题" >yg mE`g  
            regEX.Execute (pTEXT) Y1H8+a5@  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") AASw^A3p  
            TitleString = regEX.Replace(pTEXT, "$5") `z-4OJ8~  
            TitleNo = regEX.Replace(pTEXT, "$2") ,!|/|4vh  
            Exit Sub A<r@,*(g  
        End If 2K!3+D"  
         y^pk)`y8  
        '阿拉伯数字  1. 2. K/+5$SjF  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" q0.+F4  
        If regEX.Test(pTEXT) Then bec n$R  
            ParaType = "三级标题" @ ILG3"  
            regEX.Execute (pTEXT) gf2l19aP  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 }qG{1Er  
            TitleString = regEX.Replace(pTEXT, "$3") B1JdkL 3h  
            TitleNo = regEX.Replace(pTEXT, "$1") nu}$wLM  
            Exit Sub , 4jkTQ*@2  
        End If nE+sbfC   
         CwTx7 ^qa  
        '全角或半角括号中的阿拉伯数字 yd`xm
c)  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" Q{UR3U'Q  
        If regEX.Test(pTEXT) Then X +*@  
            ParaType = "四级标题" fr;>`u[;  
            regEX.Execute (pTEXT) K!5QFO4  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") @ _U]U  
            TitleString = regEX.Replace(pTEXT, "$5") hkJ4,
.  
            TitleNo = regEX.Replace(pTEXT, "$2") j@v*q\X&  
            Exit Sub
e4ydn  
        End If 1@P/h#_Vr  
         $s4rG=q  
        '表格名称 2+TCFpv  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" o  <0f  
        If regEX.Test(pTEXT) Then syA
*!Up  
            ParaType = "表格标题" 92WvD  
            regEX.Execute (pTEXT) )~T)$TS  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) 3)T'&HKQ  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) XN5EZ#
  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1"))  3p"VmO  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 a:Y6yg%1>  
            Exit Sub vmv k  
        End If `ndesP  
         '49&qO5B  
        '图片名称  VD;Ot<%  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" "L|Ew#  
        If regEX.Test(pTEXT) Then I0(BKM p&  
            ParaType = "图片标题" -f#0$Z/0  
            regEX.Execute (pTEXT) H`njKKdR  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") x:88
E78  
            TitleString = regEX.Replace(pTEXT, "$3") 2w'Q9&1~  
            TitleNo = regEX.Replace(pTEXT, "$1") ~_QZiuq&  
            Exit Sub 4cRF3$amd  
        End If M3odyO(  
         ~urIA /  
        '参考文献 'LpJ :Th  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 Ha@'%<gFe  
        If regEX.Test(pTEXT) Then ~jH@3\ ?-  
            ParaType = "文献条目" 7u6o~(  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") '~VKH}b  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ")
Q`4=  
            Exit Sub 84DneSpHsp  
        End If Lz2wOB1Zc+  
         F.HD;C-;(  
        prfx = Left(pTEXT, 2) sczN0*w&C  
        If prfx = "注：" Or prfx = "注:" Then ?! U=S=8  
            ParaType = "图表注解" xpxUn8.  
            Exit Sub  M
hm3u  
        End If u&/q7EBfP  
         j5|_S QOmt  
         hq6fDR
O/4  
        ParaType = "正文" $]%;u: Sa  
         |o6 h:g  
    End With aA-A>z  
End Sub 8s/gjEwA  
68Vn]mr#  
Sub ConvertListToOrdinary() ?FVX &{{V  
    Dim st As Paragraph -/ ;y*mP  
    With ActiveDocument Ah;2\0|t  
        For i = .Paragraphs.Count To 1 Step -1 C$vKRg\o  
            Set st = .Paragraphs(i) T( MS,AyD]  
            lst = st.Range.ListFormat.ListString &
1p\.Y  
            If lst <> "" Then {2vk<  
                st.Range.ListFormat.RemoveNumbers M")JbuI  
                st.Range.InsertBefore lst & " " gYA|JFi  
            End If ,3.E]_3xX  
        Next am{f<v,EI  
    End With TUIj-HSe  
    Set st = Nothing N#Y%+1  
End Sub K19/M1~  
wOOBW0tj  
Private Sub UserForm_Activate() 3xxQL,FV  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" A07g@3n  
    Me.lbTotal.Font.Bold = True V8ZE(0&II}  
    Me.txtStatus.Visible = False J_C<Erx[O  
    Me.cmdCheck.Enabled = True QzPq^  
);_g2=:#  
End Sub 53J!iNnXT6  
F^7qLvh  
=${]j  
Sub CheckSuperScript() o%i^t4J$e  
    Selection.Find.ClearFormatting =<e|<EwSZ  
    Selection.Find.Replacement.ClearFormatting ah1d0eP  
    With Selection.Find yQ}$G ,x  
        .Text = "[【\[［〖](*)[】\]〗］]" L@HPU;<  
        .Replacement.Text = "[\1]" mp!KPw08':  
        .Replacement.Font.Superscript = True n1 =B  
        '.Replacement.Font.Color = wdColorBlue P,k~! F ^L  
        .Forward = True )XmV3.rI  
        .Wrap = wdFindContinue gS_)(  
        .FORMAT = True kQ7$,K#  
        .MatchCase = False f_}/JF  
        .MatchWholeWord = False 8>x!n/z)
 
        .MatchByte = False 0^az<!!O#  
        .MatchAllWordForms = False 9W:oo:dK F  
        .MatchSoundsLike = False "^F#oo%L  
        .MatchWildcards = True D*6v.`]X  
    End With J0*hJ-/u  
    Selection.Find.Execute Replace:=wdReplaceAll svCD&~|K#  
End Sub L3JFQc/oh~  
K 4QJDC8  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) XAW$"^p  
    bContinue = False OXe+=Lp<  
    Set regEX = Nothing p~6/+ap  
End Sub 1uZ[Ewl]  
gELku .  
Sub CeateOrModifyStyle() I 8vv  
' n1m[7s.[&  
' BAG) -  
Dim stl As Style z}.y ? #  
     ;,[6 n|M  
    Options.Pagination = False 7Ab&
C&3  
     Umjt~K^Z  
    On Error Resume Next DZ92;m  
    For Each stl In ActiveDocument.Styles ,;)Y1q}Q  
        stl.Delete RbzSQr>a\  
    Next =.(yOUI  
    On Error GoTo 0 L^i=RGx  
     HS XS%v/Y  
    Set stl = Nothing 5XySF #  
     M$~3`n*^  
    DoEvents (4cWq!ax<$  
    On Error Resume Next f uQbDb&  
     cjAKc|NJ  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph 3('=+d[}Vw  
     k"\%x=#  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph Ni#!C:q  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph 26PUO$&b.  
     Aayh'xQ  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph 'bJ!~ML&  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph <nlZ?~
%}  
     NdGI H/Y;M  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph rl4B(NZi}  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph LSQWveZz  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph ZQXv
-"  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph v#0F1a?]D  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph t~ruP',~\  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph R''nZ/R  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph {STOWuY  
     y=g9 wO  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph fOJ0#^Z  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph i]J*lM7'  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph l9KLP  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph [Oen{c
9A  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph xI}o8GKQq  
     Se<]g$eK?5  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph 8@]*X,umc  
    On Error GoTo 0 XTEC0s"F  
    DoEvents 5LdVcXf
  
     .) uUpY%K^  
    'BaseStyle to,DN2rN  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False m^0r9y
,  
    With ActiveDocument.Styles("BaseStyle").Font *GleeJWz  
        .NameFarEast = "宋体" 4YDK`:4I~  
        .NameAscii = "Times New Roman" rt%?K.S/  
        .NameOther = "宋体" wI><kdz  
        .Size = 10.5 =}>wxO  
        .Bold = wdUndefined 2+zE|I.  
        .Italic = wdUndefined ,@kD9n5
#  
        .Subscript = wdUndefined ma9q?H#X  
        .Subscript = wdUndefined BZq_om6  
         Yv k Qh{  
        .Underline = wdUnderlineNone TG7Ba[%  
        .UnderlineColor = wdColorAutomatic -1iKeyyA  
        .StrikeThrough = False J ^gtSn^  
        .DoubleStrikeThrough = False TPo%zZo  
         bP\0S@1YL  
        .Outline = False 1+6:K._C(m  
        .Emboss = False oFM\L^Y?$$  
        .Shadow = False QA>(}u\+  
        .Hidden = False s7.2EkGl=  
        .SmallCaps = False wgfA\7Z  
        .AllCaps = False CF"$&+s9  
        .Color = wdColorAutomatic  %Xs3Lz  
        .Engrave = False 9qN4f8R  
        .Scaling = 100 <6QG7i  
        .Kerning = 1 @ODwO;_R5  
        .Animation = wdAnimationNone j[l6&eX  
        .DisableCharacterSpaceGrid = False s3qWTdM  
        .EmphasisMark = wdEmphasisMarkNone f2Zi.?``H  
    End With WA}<Zme3[  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat `q|&;wP.  
        .LeftIndent = 0 DP\s-JpI[  
        .RightIndent = 0 xxkUu6x#  
        .SpaceBefore = 0 **_`AM~  
        .SpaceBeforeAuto = False !+T\}1f7d  
        .SpaceAfter = 0 Atsi}zTR\  
        .SpaceAfterAuto = False g?`g+:nug  
         |$"2R3  
        .LineSpacingRule = wdLineSpaceSingle W9n0Jv  
        .Alignment = wdAlignParagraphJustify i)9}+M5  
         S$J}>a#Ry  
        .WidowControl = False bHVAa#
 
        .KeepWithNext = False arJ4^ d  
        .KeepTogether = False RapHE; <  
        .PageBreakBefore = False qcMVY\gi  
        .NoLineNumber = False D FDC'E  
         (Cjnf a 2  
        .FirstLineIndent = CentimetersToPoints(0) M2HO!btf  
        .OutlineLevel = wdOutlineLevelBodyText |T?wM/  
        .CharacterUnitLeftIndent = 0 n@n608  
        .CharacterUnitRightIndent = 0 bj23S&  
        .CharacterUnitFirstLineIndent = 0 ,K9\;{C  
        .LineUnitBefore = 0 \$:KfN>WY  
        .LineUnitAfter = 0 Q|QV m,m  
        .AutoAdjustRightIndent = True ,dT.q  
        .DisableLineHeightGrid = True ~f=~tN)hZ  
         = ms(dr^n  
        .FarEastLineBreakControl = True zvjVM"=G  
        .WordWrap = True hoY.2 B_  
        .Hyphenation = False f?8cO#GU  
         L[ l?}\  
        .HangingPunctuation = True  o&uO]  
        .HalfWidthPunctuationOnTopOfLine = True 6BM[RL?T  
        .AddSpaceBetweenFarEastAndAlpha = True ,:g.B\'Q  
        .AddSpaceBetweenFarEastAndDigit = True !OWPwBm;  
        .BaseLineAlignment = wdBaselineAlignBaseline fm$eJu  
    End With y_O[r1MF  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False Z|;<:RKWY  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll Dy6uWv,P  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese K$OxeJP?F  
    ActiveDocument.Styles("BaseStyle").NoProofing = False h'VN& T,  
     $jT&]p  
    '一级标题题样式 =|>CB  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 4w,=6|#  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" A{\#.nC/z  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False [-o`^;  
    With ActiveDocument.Styles("QLNU一级标题").Font @(>XSTh9  
        .NameFarEast = "黑体" :#D?b.=  
        .NameAscii = "Arial Black" vSty.:bY\p  
        .NameOther = "黑体" #vrxhMo  
        .Name = "黑体" s2f95<B  
        .Size = 16              '三号 }L Q9db1  
        .Bold = True b`"E(S/  
        .Italic = wdUndefined ~^d. zIN!  
        .Subscript = wdUndefined Q#C;4)e  
        .Superscript = wdUndefined
iEx
.BQ
+  
    End With <;O=h; ~|  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat r~cmrLQa  
         L9tjHC]
 
        .LeftIndent = CentimetersToPoints(0) m|q?g
X9R  
        .RightIndent = CentimetersToPoints(0) ZeewGa^r  
        .FirstLineIndent = CentimetersToPoints(0) kwxb~~S}h(  
         n8<o*f&&9>  
        .LineSpacingRule = wdLineSpaceSingle HQHFD0hv  
        .Alignment = wdAlignParagraphCenter @X`~r8&  
         3TUW+#[Gu  
        .WidowControl = True AA][}lU:5  
        .KeepWithNext = True i9Fg  
        .KeepTogether = True [MSLVTR  
        .OutlineLevel = wdOutlineLevelBodyText .5Y%I;~v  
         VBc[(8o  
        .LineUnitBefore = 0.5 $r`K4g  
        .LineUnitAfter = 0.5 *9:oTN  
    End With O7@CAr  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False tP; &$y.8  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll l`lo5:w  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese 6k6M&a  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True `nBCCz'Y!  
    DoEvents s( @w1tS.  
     
&qw7BuF  
    '二级 zNSix!F  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") %Q]u_0P
*  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" 5 o:VixZf  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False ").MU[q%Y  
    With ActiveDocument.Styles("QLNU二级标题").Font XL[/)lX{  
        .NameFarEast = "黑体" *r!f! eA:  
        .NameAscii = "Arial Narrow" NGYliP,.6  
        .NameOther = "黑体" bqugo  
        .Name = "黑体" m87,N~DP  
        .Size = 15        '小三号 aE}1~`  
        .Bold = False UeWEncN(  
        .Outline = False
mk>L:+  
        .Italic = wdUndefined  V|=PaO  
        .Subscript = wdUndefined 6o@}k9AN  
        .Superscript = wdUndefined 6#~"~WfPQ  
    End With whb|

N2  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat 8N<0|u  
        .LeftIndent = CentimetersToPoints(0) 6OYXcPW'  
        .RightIndent = CentimetersToPoints(0) g\MHv#v*k  
        .FirstLineIndent = CentimetersToPoints(0) H /Idc,*  
         n8(B%KF  
        .LineSpacingRule = wdLineSpaceSingle %bI(  
        .Alignment = wdAlignParagraphLeft y*2R#jTA  
         .
qVz rS  
        .WidowControl = True z0J$9hEg89  
        .KeepWithNext = True gfE<XrG  
        .KeepTogether = True 6BIP;, M=  
        .PageBreakBefore = False Zgp]s +%E  
        .OutlineLevel = wdOutlineLevelBodyText d,=Kv  
         mv@cGdxu  
        .LineUnitBefore = 0.5 rkhQoYZ[  
        .LineUnitAfter = 0.5 ?pgdj|"a  
         8 vNgePn  
    End With @|Z:7n6S  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False 5,=Yi$x  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll *8}Y0V\s  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese [?3*/*V  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True }* iag\  
    DoEvents WqN=D5  
     *S_e:^  
    '三级标题样式 [?)=3Pp  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") %M8Egr2|0  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" /64jO?mp  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False gLv|Hu7  
    With ActiveDocument.Styles("QLNU三级标题").Font ~ILig}I  
        .NameFarEast = "宋体" 4 -)'a} O  
        .NameAscii = "Times New Roman" j]7|5mC78  
        .NameOther = "黑体"   Q(SVJ  
        .Name = "黑体" Ta#vD_QP  
        .Size = 14               '四号 c>fLSf  
        .Bold = False R"(rL5j  
        .Outline = False FFXDt"i2  
        .Italic = wdUndefined :LRR\v0HM  
        .Subscript = wdUndefined YwGc[9=n  
        .Superscript = wdUndefined d_9
Fc"C~  
    End With `x:znp}'  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat ';`fMcN  
        .LeftIndent = CentimetersToPoints(0) gyH'92
ck  
        .RightIndent = CentimetersToPoints(0) j0J}d _  
        .FirstLineIndent = CentimetersToPoints(0) M0!;{1  
         Q,Tet&in )  
        .LineSpacingRule = wdLineSpaceSingle ||v=in   
        .Alignment = wdAlignParagraphLeft N[4v6GS  
         <%eY>E  
        .WidowControl = True t}
-[^|)7  
        .KeepWithNext = True kg[u@LgvoN  
        .KeepTogether = True w?CbATQ   
        .PageBreakBefore = False <*L=u;  
        .OutlineLevel = wdOutlineLevelBodyText .(o]d{ '-}  
         `mPmEV<  
        .CharacterUnitLeftIndent = 0 gA ]7YHc  
        .CharacterUnitRightIndent = 0 E_&Hje|J_[  
        .CharacterUnitFirstLineIndent = 2 '^'4C'J  
         ZK5(_qW&i  
        .LineUnitBefore = 0.5 ^q6H =Dl  
        .LineUnitAfter = 0 uY0V!W  
    End With }aYm86C]  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False fs4pAB#F  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll M9Gs^  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese %VYQz)yW  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True K%LDOVE8e  
    DoEvents 5zJkPki  
     A(duUl~  
    '四级标题样式 E/cA6*E[.<  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") Hv%(9)-8  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" !mFo:nQ)}  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False CCKg ,v  
    With ActiveDocument.Styles("QLNU四级标题").Font Cpa
eo0Oq  
        .NameFarEast = "宋体" ja$>>5<q  
        .NameAscii = "Times New Roman" H
3{x;{.b  
        .NameOther = "宋体" ?7-#iC`  
        .Name = "宋体" }_XW?^/8  
        .Size = 12               '小四号 ~45u a  
        .Bold = True ];Whvdnv  
        .Outline = False :1u>T3L.z  
        .Italic = wdUndefined \C.%S + u  
        .Subscript = wdUndefined /=Ug}%.  
        .Superscript = wdUndefined ,CW]d#P|  
    End With 9dA(f~  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat 2=ZR}8}9Q:  
         ,2S <#p!  
        .LeftIndent = CentimetersToPoints(0) Rde _I`Ru  
        .RightIndent = CentimetersToPoints(0) Cus=UzL  
        .FirstLineIndent = CentimetersToPoints(0) hT6:7_UD  
         FzmCS@yA  
        .LineSpacingRule = wdLineSpaceSingle ZCPK{Ru QE  
        .Alignment = wdAlignParagraphLeft >(z{1'f{  
         RsBo\#`  
        .WidowControl = True J#Fe"  
        .KeepWithNext = True |Y3!Lix  
        .KeepTogether = True iU^ 4a  
        .PageBreakBefore = False }@yvw*c  
        .OutlineLevel = wdOutlineLevelBodyText 2'g< H-[  
         |)6(_7e9  
        .CharacterUnitLeftIndent = 0 7=XQgbY/  
        .CharacterUnitRightIndent = 0 O{8"f\*  
        .CharacterUnitFirstLineIndent = 2 QiWv  
         }yqRz6=YB  
        .LineUnitBefore = 0 ^&<~6y}U^  
        .LineUnitAfter = 0 %sC,;^wla'  
         lEi,duS)  
    End With sBuJK'  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False d$ Mk  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll mOwgk7s[J  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese tW5\Ktjno  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True S-Va_t$  
    DoEvents _dqjRhu  
     ]i*q*]x2u  
    '正文校式 Bp\io$(%  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") rh2pVDS  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" ';V(sRU@  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False R#~}ZUk2  
    With ActiveDocument.Styles("QLNU正文").Font i]GBu  
         vZ 4Z+;.  
        .NameFarEast = "宋体" 7HPLD&WPt  
        .NameAscii = "Times New Roman" c5P52_@  
        .NameOther = "宋体" etf ft8  
        .Name = "宋体" i=_leC)rl  
         Wq)'0U;{$  
        .Size = 12               '小四号 )DMu`cD  
         %u }|4BXoh  
        .Bold = wdUndefined , >Y .!  
        .Italic = wdUndefined DGY#pnCu  
        .Subscript = wdUndefined Qv8#{y@U  
        .Superscript = wdUndefined L*tXy>&b.  
         W9 y8dw.  
        .Outline = False ?>MD/l(l  
        .Emboss = False FcIH<_r  
        .Shadow = False yp 5*8g5  
        .Hidden = False m6V
1m0M  
         e<5+&Cj  
        .DisableCharacterSpaceGrid = True rP ;~<IxEr  
    End With ^ vI|  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat HY#7Ctn3  
         Y^LFJB|
b4  
        .LeftIndent = CentimetersToPoints(0) %9M; MK  
        .RightIndent = CentimetersToPoints(0) G_5sF|(mq  
        .FirstLineIndent = CentimetersToPoints(0) qt]QO1pAd  
         yP0P-8  
        .LineSpacingRule = wdLineSpaceExactly +C;ZO6%w  
        .LineSpacing = 20 0!=e1_  
        .Alignment = wdAlignParagraphLeft Y=X"Y H|  
         !|_ CXm T|  
        .WidowControl = False OdQ>h$ gZ  
        .KeepWithNext = False wI>JOV7  
        .KeepTogether = False <0P`ct0,i  
        .PageBreakBefore = False XBhWj\`(T  
        .Hyphenation = False ,- ]2s_  
         &ukNzV}VW  
        .OutlineLevel = wdOutlineLevelBodyText bI[!y#_z4  
         ZJ"*A+IJx[  
       !N$4.slr<p  
        .CharacterUnitLeftIndent = 0 V.WfP*~NJ  
        .CharacterUnitRightIndent = 0 3FUZTX]Q1  
        .CharacterUnitFirstLineIndent = 2 w GZ(bKyO  
         UEo,:zeN[  
        .LineUnitBefore = 0 ]+0 -$t7Y  
        .LineUnitAfter = 0 e"r'z n  
        .SpaceBefore = 0 W3UK[_qK  
        .SpaceAfter = 0 'lC"wP&$  
         :Tuy]]k  
        .DisableLineHeightGrid = True R,Zuy(g  
    End With u- U
UF  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False L:Wy- Z  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll ?d+B]VYw  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese 1@)]+* F*z  
    ActiveDocument.Styles("QLNU正文").NoProofing = True ^S ,E"Q  
    DoEvents SJU93n"G/  
     SNvK8,"g  
    '图片段落样式 {J})f>x<xM  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") t{~"vD9Am  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" i`&yPw  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False !P@u4FCs  
    With ActiveDocument.Styles("QLNU图片段落").Font 1\YX|  
        .Size = 12               '小四号 vzi= [ A  
        .Italic = wdUndefined <eN>X:
_N  
        .Subscript = wdUndefined QN_5q5  
        .Superscript = wdUndefined ^\N2 Iu>6  
    End With @< vDR">  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat @mP@~  
         W\.f:"2qr  
        .LeftIndent = CentimetersToPoints(0) 0O-p(L=  
        .RightIndent = CentimetersToPoints(0) q,nj|9
z V  
        .FirstLineIndent = CentimetersToPoints(0) ;x^&@G8W`  
         'IfM~9'D  
        .LineSpacingRule = wdLineSpaceSingle "]c:V4S#`A  
        .Alignment = wdAlignParagraphCenter L*FmJ{Yf  
        .KeepWithNext = True 6./&l9{h+  
        .OutlineLevel = wdOutlineLevelBodyText ?Tuh22J{Q  
         %c^]Rdl  
        .CharacterUnitLeftIndent = 0 >qtB27jV  
        .CharacterUnitRightIndent = 0 s+zb[3}  
        .CharacterUnitFirstLineIndent = 0 A!^K:S:@  
         D{N1.rSxv  
        .LineUnitBefore = 0 {(a@3m~a%  
        .LineUnitAfter = 0 {w!}:8p
 
    End With a]X6)6  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False ^Jnp\o>  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll rA=F:N 2  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese .6O>P2m]a_  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True Jq6p5jr"  
    DoEvents m.K"IXD  
     yWzvE:!)  
     ac+ 7D:X  
    '第X章 ;k b^mJE  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") @Jvw" =  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" PNc200`v4_  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False @TgCI`E  
    With ActiveDocument.Styles("QLNU章节标题").Font ^|\ *i  
        .NameFarEast = "黑体" 9q* sR1  
        .NameAscii = "Arial Black" fvit+  
        .NameOther = "Arial Black" :@:R4Ac  
        .Name = "黑体" w-/bLg[L?$  
        .Size = 16 EzNmsbtZ(  
        .Bold = True AL|fL  
        .UnderlineColor = wdColorAutomatic [Hd^49<P2  
        .Outline = False g-^CuXic  
        .Italic = wdUndefined 0RoI`>j'  
        .Subscript = wdUndefined Yf{s0Z  
        .Superscript = wdUndefined "Wi`S;  
        .Scaling = 100 SF_kap%JM  
        .DisableCharacterSpaceGrid = True S<p "k]  
    End With wCmwH=
O  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat DVSYH{U4  
        .LineSpacingRule = wdLineSpaceSingle ?rBj{]=  
        .Alignment = wdAlignParagraphCenter E}NX+ vYF  
        .WidowControl = True 2#+@bk>^{  
        .KeepWithNext = True -^#Ix;%  
        .KeepTogether = True 7%7_i%6wP  
        .PageBreakBefore = True R63"j\0  
        .OutlineLevel = wdOutlineLevelBodyText |:!0`p{R  
         GQ8I |E  
        .LeftIndent = CentimetersToPoints(0) iZjvO`@[  
        .RightIndent = CentimetersToPoints(0) K?I@'B'  
        .FirstLineIndent = CentimetersToPoints(0) z[t$[Qg
 
         _"WQi}
Mm  
        .CharacterUnitLeftIndent = 0 -D!F|&$  
        .CharacterUnitRightIndent = 0 ev8E.ehD  
        .CharacterUnitFirstLineIndent = 0 Kq{s^G  
         ZlO@PlZ)  
        .LineUnitBefore = 1 W!tP s PM  
        .LineUnitAfter = 0.5 ?WAlW,H>  
         7ZZSAI  
        .AutoAdjustRightIndent = False &7@6Y{!/  
        .DisableLineHeightGrid = True O)9T|, U  
        .FarEastLineBreakControl = True 1M3U)U  
        .WordWrap = True 5j]}/Aq  
    End With JC=Bxv  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False a S<JsB  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll ~]"}s(J;  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese Z]SCIU @+  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True  h@W}xT  
    DoEvents HwU \[f  
     mnil1*-c0  
    '表格标题 ;7m>40W  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 3N]pN<3@  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" $wN'mY  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False =HoiQWQs`  
    With ActiveDocument.Styles("QLNU表格标题").Font W 8E<
P y  
        .NameFarEast = "楷体" m k -" U7;  
        .NameAscii = "Arial" 7FMHz.ZRE  
        .Name = "楷体" vjXvjv{t  
        .Size = 10.5 9MHb<~F  
        .Bold = True k ,<L#?,a  
        .Underline = wdUnderlineNone PFPfLxna  
        .Italic = wdUndefined (Mtc&+n{  
        .Subscript = wdUndefined #h r!7Kc;N  
        .Superscript = wdUndefined ~Zj?%4
 
        .Color = wdColorAutomatic +,|-4U@dl  
    End With -CL
7^  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat k.lnG5e  
         aaaC8;.  
        .LineSpacingRule = wdLineSpaceSingle c7 iu[vE'+  
        .Alignment = wdAlignParagraphCenter E#H O0]S  
        .KeepWithNext = True 3Ji,n;QLm  
        .KeepTogether = True E0)v;yRcw  
        .OutlineLevel = wdOutlineLevelBodyText l>qCT  
         r`S]`&#}(  
        .LeftIndent = CentimetersToPoints(0) (b{ {B$O  
        .RightIndent = CentimetersToPoints(0) ~(%G;fZ?x  
        .FirstLineIndent = CentimetersToPoints(0) siD
Sm  
         mDM]RAub)  
        .CharacterUnitLeftIndent = 0 m7RWuI,  
        .CharacterUnitRightIndent = 0 @Rx/]wyH  
        .CharacterUnitFirstLineIndent = 0 -Q$$2QW!  
         |Cen5s W&  
        .LineUnitBefore = 1 QGshc  
        .LineUnitAfter = 0 "%.#/!RG  
         wV-cpJ,}  
    End With .IKK.G  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False a# raUF7e  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll *E$D,  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese aB'<#X$x  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True ]AHUo;(f%  
    DoEvents !o.g2  
pnqjATGU  
    '表格首行 <c\aZ9+V  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") z4f5@  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False Hy `r}+  
    With ActiveDocument.Styles("QLNU表格首行").Font LG,RF:
 
        .NameFarEast = "楷体" RsV<*s  
        .NameAscii = "Times New Roman" g` h>:
5]  
        .Name = "楷体" =r_ SMTu  
        .Size = 9 55!9U:{  
        .Bold = True l|&|+u#  
        .Underline = wdUnderlineNone JGO>X| T  
        .Italic = wdUndefined @8CD@SDv  
        .Subscript = wdUndefined 0\h2&  
        .Superscript = wdUndefined 4uu*&B  
    End With (O<lVz@8  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat B' :ZX-Q)  
        .LineSpacingRule = wdLineSpaceSingle }XXE hO O  
        .Alignment = wdAlignParagraphCenter M.IV{gj  
         5:s]z#8)  
        .LeftIndent = CentimetersToPoints(0) QY^ y(I49  
        .RightIndent = CentimetersToPoints(0) \DQ
;v  
        .FirstLineIndent = CentimetersToPoints(0) lZ
.,"F@  
         IsRsjhg8x  
         X,OxvmDm  
        .CharacterUnitLeftIndent = -0.5 KX9ZwsC0  
        .CharacterUnitRightIndent = -0.5 SA/0Z=  
        .CharacterUnitFirstLineIndent = -0.5 X`aED\#\h  
         ?v")Z0 ~  
        .LineUnitBefore = 0 \/$v@5  
        .LineUnitAfter = 0 #); 6+v  
        .SpaceBefore = 0 ,]cd%w9  
        .SpaceAfter = 0 &pmJ:WO,h  
         .4^Paxz  
    End With AVcZ.+?  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False |RjjP  7  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll st+Kz uK  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese { j/w3  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True :ZzG5[ o3  
    DoEvents ZR#UoYjupb  
d9^=
#ot
 
    '表格内容 sP+S86 u  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") G
B !3Z  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False ' l!QGKz  
    With ActiveDocument.Styles("QLNU表格内容").Font NKB!
_R+  
        .NameFarEast = "楷体" ~z aV.3#  
        .NameAscii = "Times New Roman" I+<`}  
        .Name = "楷体" ]3I_H+hU  
        .Size = 9 L9kSeBt  
        .Bold = False T4f:0r;^f*  
        .Underline = wdUnderlineNone xv%}xeEV  
        .Italic = wdUndefined [2FXs52  
        .Subscript = wdUndefined Awr]@%I  
        .Superscript = wdUndefined k[zf`x^  
    End With #15q`w  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat Hv`Zc*  
        .LineSpacingRule = wdLineSpaceSingle 'PO1{&M  
        .Alignment = wdAlignParagraphCenter %2L9kw'  
         lO) B/N&  
        .LeftIndent = CentimetersToPoints(0) X'u`\<&W  
        .RightIndent = CentimetersToPoints(0) K^>qn,]H'  
        .FirstLineIndent = CentimetersToPoints(0) ~]yqJYiid^  
         'rF TtT  
        .CharacterUnitLeftIndent = -0.5 IcIMa  
        .CharacterUnitRightIndent = -0.5 L`Ic0}|lzy  
        .CharacterUnitFirstLineIndent = -0.5 -[7.VP   
        .LineUnitBefore = 0 A5/h*`Q\\  
        .LineUnitAfter = 0 G6J3F  
        .SpaceBefore = 0 Kp&d9e{ Yc  
        .SpaceAfter = 0 _rR.Y3N  
    End With X:e'
@]Z)?  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False %idnm  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll 2xnOWW   
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese 1U9iNki  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True $"UAJ-  
    DoEvents ~j4=PT  
;{ezK8FJ}@  
    '图片标题 .K93VTzy  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") >N3
{*W  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" s e1ipn_A  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False 9rid98~d  
    With ActiveDocument.Styles("QLNU图片标题").Font A9R}74e4g  
        .NameFarEast = "楷体" ?Z!KV=  
        .NameAscii = "Times New Roman" m0 #hG x  
        .Name = "楷体" g_x<+3a  
        .Size = 10.5 x[?_F  
        .Bold = True 7dakj>JM  
        .Underline = wdUnderlineNone h]=chz  
        .Italic = wdUndefined Zn^E
 
        .Subscript = wdUndefined z^b\hR   
        .Superscript = wdUndefined S4(IYnwN  
        .Outline = False +X?jf. 4  
        .Shadow = False vIG,!^*3  
        .Color = wdColorAutomatic t^[{8,N  
    End With MUo?ajbqOd  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat  o _CVZ  
        .LineSpacingRule = wdLineSpaceSingle 4Cfwz -Qo  
        .Alignment = wdAlignParagraphCenter >Y,7>ahyt  
         r'!l` gm,S  
        .KeepWithNext = wdUndefined NKGCz|- 9  
        .KeepTogether = True #2MwmIeA  
        .OutlineLevel = wdOutlineLevelBodyText Hv=coS>g:  
         3dM6zOK
  
        .LeftIndent = CentimetersToPoints(0) h!Q>h7  
        .RightIndent = CentimetersToPoints(0) H}$#aXEAn  
        .FirstLineIndent = CentimetersToPoints(0)  81n%2G  
         lu{}j4  
        .CharacterUnitLeftIndent = 0 ]I]dwi_g)  
        .CharacterUnitRightIndent = 0 AH} nTm  
        .CharacterUnitFirstLineIndent = 0 dHu]wog  
         '0=U+Egp  
        .LineUnitBefore = 0 Y9%yjh  
        .LineUnitAfter = 0 l-Xx
v  
    End With @2u<Bh}}  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False $wN.~"T  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll MVj @0W33m  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese kQb0pfYs  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True YM;^c% _7  
    DoEvents %z2nas$$g  
f>'7~69  
    '目录项 td m{ V st  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") -@73"w/  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" c]LH.  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False 6RF01z|~_  
    With ActiveDocument.Styles("QLNU目录项").Font yO($KL+  
        .NameFarEast = "黑体" L"Gi
~:z  
        .NameAscii = "Times New Roman" W`\H3?C`xQ  
        .NameOther = "Times New Roman" V|D;7  
        .Name = "黑体" q+DH2&E'  
        .Size = 10.5 y
#MLxm  
        .Bold = False >YW>=5_  
        .Italic = wdUndefined _I!Xr!!)a0  
        .Underline = wdUnderlineNone CVUDN2  
        .Color = wdColorAutomatic _+. t7q^  
        .Superscript = wdUndefined &p%,+|  
        .Subscript = wdUndefined -Rvxjy)[N  
    End With {NFeX'5bP  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat h}oQr
0"c  
         22
6s:\d  
        .LineSpacingRule = wdLineSpaceSingle ::R^ w"  
        .Alignment = wdAlignParagraphLeft H z6H,h  
         @N(jd($E  
        .WidowControl = False jn7}jWA  
        .KeepWithNext = False j NY8)w_  
        .KeepTogether = False /}VQzF  
        .PageBreakBefore = False 646yeQ1  
        .NoLineNumber = False i" )_M|   
        .OutlineLevel = wdOutlineLevelBodyText +-Dd*yD6<  
         ufJFS+?  
        .LeftIndent = CentimetersToPoints(0) lz*PNT{E  
        .RightIndent = CentimetersToPoints(0) xvkof 'Q)  
        .FirstLineIndent = CentimetersToPoints(0) Cjh&$ aq  
         b^xf,`D  
        .CharacterUnitLeftIndent = 0 u7;A `  
        .CharacterUnitRightIndent = 0 wiVQMgi`  
        .CharacterUnitFirstLineIndent = 0 pqs)ueu  
         F>M$|Sc2  
        .LineUnitBefore = 0 @U)'UrNr~  
        .LineUnitAfter = 0 i~,k2*o  
    End With GWW@8GNI  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False JC#@sJ4az)  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll )FP|}DCxQ  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot VgdkCdWRm_  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese G^R;~J*TDE  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True .$yw;go3  
    DoEvents ;L[9[uQ[C  
     DYl^6]  
    '参考文献 }}2kA  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") 70NHU ;&N  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" 3UaP7p+d  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False (kHR$8GFM  
    With ActiveDocument.Styles("QLNU参考文献").Font Ao\Vh\rQkq  
        .NameFarEast = "宋体" daorKW4  
        .NameAscii = "Times New Roman" RpXQi*c0  
        .NameOther = "Times New Roman" wv7jh~x(4  
        .Name = "Times New Roman" q!,d o2T  
        .Size = 12 x B?:G  
        .Bold = False <r kW4  
        .Italic = wdUndefined TM}F9!*je  
        .Subscript = wdUndefined </%H'V@  
        .Superscript = wdUndefined 29]8[Z,4  
        .Underline = wdUnderlineNone 7^; OjO@8  
        .UnderlineColor = wdColorAutomatic 9t[278B6  
        .Color = wdColorAutomatic K c<z;
 
        .Engrave = False Z^|C~lp;n  
    End With ZChY:I$<  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat UVLcR  
         "VeU OdNA>  
        .LineSpacingRule = wdLineSpaceExactly R*y[/Aw  
        .LineSpacing = 16 <_>6a7ra  
        .Alignment = wdAlignParagraphLeft 1^;h:,e6  
        .WidowControl = False :+5afv}  
        .KeepWithNext = False d{he  
        .KeepTogether = False M;9+L&p=  
        .PageBreakBefore = False <\8   
        .OutlineLevel = wdOutlineLevelBodyText q^cFD  
         xsvs3y|  
        .LeftIndent = CentimetersToPoints(0) cjR.9bgn  
        .RightIndent = CentimetersToPoints(0)
v Y\O=TZT  
        .FirstLineIndent = CentimetersToPoints(0)
Gh pd k;  
         ]UI+6}r  
        .CharacterUnitLeftIndent = 0 P=@lkF!\#  
        .CharacterUnitRightIndent = 0 2mO#vTX4  
        .CharacterUnitFirstLineIndent = -2 >R:+ml  
         D6]$P%t9  
        .LineUnitBefore = 0 (w-u"1&  
        .LineUnitAfter = 0 iF0
a  
        .SpaceBefore = 0 pxbNeqK@p  
        .SpaceAfter = 0 g5V r2  
         5 QeGx3'  
    End With lEDHx[q  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False 3oKGeB;Ja  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll Lwcw%M]  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS =, 0a3D6b  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True %(Ys-GeGr  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese </Id';|v  
    DoEvents F:g{rm[
  
8.^U6xA  
    ' s`J=:>9*  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") z]YhQIU4n8  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" &>jkfG  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False {|gJC>f@  
    With ActiveDocument.Styles("QLNU论文题目").Font 'k67$H  
        .NameFarEast = "黑体" U{_s1  
        .NameAscii = "Arial Black" P~<9 3  
        .NameOther = "Arial Black" EVL;"   
        .Name = "Arial Black" rrWk&;?  
        .Size = 16 G"[pr%?  
        .Bold = False ##_Za6/n  
        .Italic = wdUndefined qWpCe*C  
        .Superscript = wdUndefined M;Rw]M  
        .Subscript = wdUndefined v6VhXV6$|  
        .Underline = wdUnderlineNone gd K/:%u3  
        .UnderlineColor = wdColorAutomatic 9O Q4\  
        .Color = wdColorAutomatic "6dbRo5%  
>FHsZKJ  
    End With kn"x[{d  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat \k=Qq(=  
        .LineSpacingRule = wdLineSpaceSingle /R
C!Yi  
        .Alignment = wdAlignParagraphCenter GN9_ZlC  
        .WidowControl = True {|h"/  
        .KeepWithNext = True 2P ?Iu&  
        .KeepTogether = True ?>8zU;Aj  
        .PageBreakBefore = True -X[[ OR9+  
        .NoLineNumber = False Bg
h$P  
        .OutlineLevel = wdOutlineLevelBodyText I`TD*D  
          iq:[+
  
        .LeftIndent = CentimetersToPoints(0) r8%,xA&  
        .RightIndent = CentimetersToPoints(0) @qDrTH]5  
        .FirstLineIndent = CentimetersToPoints(0) (3h*sd5ly  
         `.W;ptZ6  
        .CharacterUnitLeftIndent = 0 ?GarD3#A  
        .CharacterUnitRightIndent = 0 % 4"~O _S  
        .CharacterUnitFirstLineIndent = 0 PoJyWC  
         LwPM7S~ *  
        .LineUnitBefore = 1 eW)I}z+{  
        .LineUnitAfter = 1 ewG21 q$  
         S7/v ,E  
        .BaseLineAlignment = wdBaselineAlignAuto a~7osRmp0  
    End With :\JbWj_j  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False fti|3c  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll ~BZV:Es  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS xUpb1R  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True Bqi2n'^O2  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese 5#)<rK  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True /&d`c=nH  
    DoEvents zjS:;!8em  
     KL mB  
    '中文摘要 RM1uYFs<  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") cOZ^huK  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" grdyiBSV n  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False -ikuj  
    With ActiveDocument.Styles("QLNU中文摘要").Font J\+gd%  
        .NameFarEast = "宋体" j~H`*R=ld#  
        .NameAscii = "Times New Roman" PL$F;d  
        .NameOther = "Times New Roman" <M?#3&5A  
        .Name = "Times New Roman" vx@p;1RU`  
        .Size = 12 .4W>9 8  
        .Bold = wdUndefined GKhwn&qCKb  
        .Superscript = wdUndefined dO;vcgvb  
        .Subscript = wdUndefined 6a7iLQA  
        .Italic = wdUndefined s~ZFVi-i  
        .Underline = wdUnderlineNone @%nUfG7T
Q  
        .UnderlineColor = wdColorAutomatic %QgAilj,  
        .Color = wdColorAutomatic +fQL~0tA  
    End With | a$w;s>\  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat ^(JHRH~=h  
        .LineSpacingRule = wdLineSpaceExactly eKz~viM'  
        .LineSpacing = 20 #ljg2:I+  
        .Alignment = wdAlignParagraphLeft SWsv,  
        
!s*''v*  
        .WidowControl = False *.c9$`s  
        .KeepWithNext = False mMAr8~A=  
        .KeepTogether = True FqxOHovE  
        .PageBreakBefore = False 50aWFJYw  
        .NoLineNumber = False t/WnDR/fM  
        .OutlineLevel = wdOutlineLevelBodyText nj0AO0  
         Q3%# o+R>  
        .LeftIndent = CentimetersToPoints(0) 7B\(r~f`t  
        .RightIndent = CentimetersToPoints(0) }!<cph  
        .FirstLineIndent = CentimetersToPoints(0) i;zGw.;Q  
         W7=_u+0d  
        .CharacterUnitLeftIndent = 0 qetP93N_*  
        .CharacterUnitRightIndent = 0 !#:$u=  
        .CharacterUnitFirstLineIndent = 2 YIQ]]q8R!L  
        .LineUnitBefore = 0 DIp:S&q2  
        .LineUnitAfter = 0 +4g%?5'  
         R(83E B~_  
    End With doO Ap9%  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False d 4\E  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll ~:<@`  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS y6Epi|8  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True ynbpewaa  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese 7 eQoc2X2  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True 0o$HC86w  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete _L'cyH.cn  
    DoEvents 'xZPIj+  
     :2)1vQH0L  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") &9_\E{o%]  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" M|#5gKXd  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False Gi2ad+QH-  
    With ActiveDocument.Styles("QLNU英文标题").Font <GgtP55  
        .NameFarEast = "黑体" ([CnYv  
        .NameAscii = "Arial Narrow" 5
%+bWI{w  
        .Name = "Arial Narrow" AJ
` v  
        .Size = 16 62l0 Z-  
        .Bold = True *tM7>  
        .Bold = wdUndefined '#i]SU&*  
        .Superscript = wdUndefined E:4P1,%01+  
        .Subscript = wdUndefined I/V)z9  
        .Italic = wdUndefined 0 ;_wAk  
         FgQ_a/*  
        .Underline = wdUnderlineNone L sDzV)  
        .UnderlineColor = wdColorAutomatic _#D\* 0J  
        .StrikeThrough = False NZC='3Uz  
        .DoubleStrikeThrough = False >_aio4j}r  
    End With EY&C[=  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat ,V]A63J  
        .LineSpacingRule = wdLineSpaceSingle Qy^z*s  
        .Alignment = wdAlignParagraphCenter 7;}3{z  
        .WidowControl = True +F~0\#d  
        .KeepWithNext = False px}7If  
        .KeepTogether = False -B
o~"q  
        .PageBreakBefore = False ;#yu"6{  
        .NoLineNumber = False hY= s9\  
        .FirstLineIndent = CentimetersToPoints(0) #f3;}1(  
        .OutlineLevel = wdOutlineLevelBodyText ?hJsN  
         oUvk2]H  
        .LeftIndent = CentimetersToPoints(0) Ym.l@(  
        .RightIndent = CentimetersToPoints(0) T E&Q6  
        .FirstLineIndent = CentimetersToPoints(0) -iDEh_pts  
         tkN3 BQ  
        .CharacterUnitLeftIndent = 0 n*i'vtQ8  
        .CharacterUnitRightIndent = 0 |] !o*7"4  
        .CharacterUnitFirstLineIndent = 0 QYTTP6 Gz+  
         EdAR<VfleA  
        .LineUnitBefore = 1 q$?7 ~*M;x  
        .LineUnitAfter = 1 4%fN\f  
         k g,ys4  
    End With ]]=-AuV.  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False Ls>u`hG  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll (OyY_`  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS blfE9Oy  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True 5\w=(c9A  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese QPe9s[Y  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True HCx%_9xlm  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete mo#0q&ZQ  
    DoEvents {e swe  
8gbm"!  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") rbK#a)7  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" *pTO|
x{  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False t&9as}  
    With ActiveDocument.Styles("QLNU英文摘要").Font Cj !i)-  
        .NameFarEast = "宋体" +dgo-)kP(_  
        .NameAscii = "Arial" =,d* {m~A  
        .NameOther = "Arial"  Wz-3?EQ  
        .Name = "Arial" h*#2bS~nl-  
        .Size = 12 w38c  
        .Bold = wdUndefined !0OD(XT  
        .Italic = wdUndefined `$V[;ld(mz  
        .Superscript = wdUndefined XiRT|%j  
        .Subscript = wdUndefined hX8gV~E=y  
    End With CaYos;Pl  
     %O&m#)|  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat `  -[Bo  
         iRUR4Zs  
        .LineSpacingRule = wdLineSpaceExactly S#h'\/S  
        .LineSpacing = 20 "37@Zt  
         5hJYy`h~  
        .Alignment = wdAlignParagraphJustify Z<N&UFw7QJ  
         &:DCtjK  
        .WidowControl = False y*}vG}e%  
        .KeepWithNext = False G/fP(o-Wd  
        .KeepTogether = False <E[HlL  
        .PageBreakBefore = False (K*/Vp  
        .NoLineNumber = False r
v,NQZ  
         ;5D@kS^  
        .OutlineLevel = wdOutlineLevelBodyText UbY~xs7_  
         1<W4>~,wj  
        .LeftIndent = CentimetersToPoints(0) XSp x''l  
        .RightIndent = CentimetersToPoints(0) :m*!?QGdL  
        .FirstLineIndent = CentimetersToPoints(0) %jZp9}h  
         \]U<h ub  
        .CharacterUnitLeftIndent = 0 Db#W/8 a8k  
        .CharacterUnitRightIndent = 0 <84C tv  
        .CharacterUnitFirstLineIndent = 2 @L[PW@:SZ  
         } $Hs;4|  
        .LineUnitBefore = 0 {b|3]_-/  
        .LineUnitAfter = 1 K_At U/  
         d=t}T6.|  
    End With ^Y{6;FJ   
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False X ;OsH  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll h0F0d^W.  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS # a(%(k S  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False T/GgF&i3  
    DoEvents Zk/' \(5  
`J>E9p<  
    Options.Pagination = True 0q[p{_t`  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." s%N`  
    DoEvents < QDr,Hj  
    ActiveDocument.Repaginate {=bg5I0|a  
}fJ:wku  
End Sub Q{AZ'XV  
<78$]Z2we  
Y]~ HAv '