Dim bContinue As Boolean cOP%R_ak?  
,@Elw>^  
Dim regEX As New RegExp `<% w4E  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 8=mx5Gwz-  

ZPHatC  
Dim LastTitle0String As String, LastTitle0No As Long tpP68)<ns  
Dim LastTitle1String As String, LastTitle1No As Long \r&(l1R  
Dim LastTitle2String As String, LastTitle2No As Long G52z5-=v  
Dim LastTitle3String As String, LastTitle3No As Long j fZ)  
Dim LastTitle4String As String, LastTitle4No As Long Wa%p+(\<uB  
Dim LastTitle5String As String, LastTitle5No As Long X\BdN Hr  
Dim LastTabelString As String, LastTableNo As Long -?ebkHe  
Dim LastFigureString As String, LastFigureNo As Long GEki34 n0  
6{ pg^K  
Dim strSeperator As String  f^[m~  
Pa ^_s  
Sub ConvertWidth(fTEXT As String, rText As String) Nh6!h%  
        Selection.Find.ClearFormatting t\\<+^[%  
        Selection.Find.Replacement.ClearFormatting #jw%0H;l]  
        Selection.Find.Wrap = wdFindContinue D5!I{hp"  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText ^K^rl9  
        DoEvents i\{fM}~W$  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True Q*/jQC  
End Sub >a: 6umY  
eW[](lGWM  
Sub ClearDomain() hP jL  
        With Selection.Find Ul|htB<1:  
            .ClearFormatting AQ,%5MeqJ  
            .Replacement.ClearFormatting ~VPE9D@  
            .Wrap = wdFindContinue Wix4se1Ac  
            Me.txtStatus.Text = "清除所有域代码" L0ZAF2O  
            DoEvents  Lvn+EM  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False 85+w\KuEY  
        End With =8DS~J{  
End Sub #?bOAWAwLh  
U#4>GO;A  
Private Sub cmdCheck_Click() !Eb!y`jK  
    bContinue = True 59(} D'lw>  
    Dim NoSeries1(1 To 16) As String DWU(ld:_  
    Dim NoSeries2(1 To 16) As String @$?*UI6y  
    Dim NoSeries5(1 To 16) As String :n oZ p:a  
    Dim NoSeriesRM(1 To 16) As String >W'"xK|:  
    Dim paraTotal As Long, ParaText As String H8!lSRq  
    Dim ttString As String, ttNo As String ,go$6   
     $XFFNE`%  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long Wk]E6yz6  
Vv>hr+e  
    Me.txtStatus.Visible = True fc%C!^7  
    Me.lbParaType.Visible = True uecjR8\e  
    Me.cmdCheck.Enabled = False Bo/i =/7%  
     <@qJsRbhK  
     wd Di5-A4  
     NHzVA*f  
     <{.pYrn  
    Dim ParaType As String, rText As String &lB>G[t  
     T?D]]x  
    Selection.WholeStory wgZ6|)!0  
    Selection.NoProofing = True F>5)Clq  
     &"X1w $  
    tm1 = Now kyUG+M  
     p%e />N.P  
        ActiveWindow.View.Type = wdNormalView B)Dsen  
     4TaHS!9  
    NoSeries1(1) = "一" N\x<'P4q  
    NoSeries1(2) = "二" 6H|&HV(!R  
    NoSeries1(3) = "三" {CGk9 g"`  
    NoSeries1(4) = "四" _(KzjOMt  
    NoSeries1(5) = "五" CrX1qyR  
    NoSeries1(6) = "六" `(@{t:L  
    NoSeries1(7) = "七" q}J Eesf  
    NoSeries1(8) = "八" >+*lG>!z  
    NoSeries1(9) = "九" p1,.f&(f  
    NoSeries1(10) = "十" -4S4I  
    NoSeries1(11) = "十一" Oi~.z@@  
    NoSeries1(12) = "十二" IVG77+O# }  
    NoSeries1(13) = "十三" 37|EG  
    NoSeries1(14) = "十四" M =GF@C;b  
    NoSeries1(15) = "十五" [uu<aRAg3O  
    NoSeries1(16) = "十六" ,f[Oy:fr  
     "D
ivsq^  
    NoSeries2(1) = "㈠" @G=_nZxv  
    NoSeries2(2) = "㈡" hj3wxH.}  
    NoSeries2(3) = "㈢" iM{cr&0  
    NoSeries2(4) = "㈣" f7 zGz  
    NoSeries2(5) = "㈤" -M`+hVs?  
    NoSeries2(6) = "㈥" ^~m}(6  
    NoSeries2(7) = "㈦" 5+*CBG}  
    NoSeries2(8) = "㈧" (vbI4&r  
    NoSeries2(9) = "㈨" <J!?eH9f  
    NoSeries2(10) = "㈩" vNAQ/Q  
     "^Vfo$q  
    NoSeries5(1) = "①" 4pFoSs?\  
    NoSeries5(1) = "②" #vT~D>zj  
    NoSeries5(3) = "③" UFr5'T  
    NoSeries5(4) = "④" 6+yA4pRSd  
    NoSeries5(5) = "⑤" ;x4yidb6  
    NoSeries5(6) = "⑥" oF5~|&C  
    NoSeries5(7) = "⑦" 8jga mG  
    NoSeries5(8) = "⑧" n*N`].r#{=  
    NoSeries5(9) = "⑨" Vq
dR  
    NoSeries5(10) = "⑩" rF . Oo0  
     6am<V]Hw0F  
     ^+9i~PjL  
    NoSeriesRM(1) = "I" f`p"uLNo<  
    NoSeriesRM(2) = "II" ]U5/!e  
    NoSeriesRM(3) = "III" AXpyia7nU  
    NoSeriesRM(4) = "IV" '6Yx03t  
    NoSeriesRM(5) = "V" Oa7jLz'i  
    NoSeriesRM(6) = "VI" g<MCvC@  
    NoSeriesRM(7) = "VII" c nV2}U/\  
    NoSeriesRM(8) = "VIII" 4-q8:5  
    NoSeriesRM(9) = "IX" dxF)) Z  
    NoSeriesRM(10) = "X" $(pVE}J  
    NoSeriesRM(11) = "XI" 2;YL+v2  
    NoSeriesRM(12) = "XII" $`Aps7A  
    NoSeriesRM(13) = "XIII" ] U[4r9V  
    NoSeriesRM(14) = "XIV" qLm g18  
    NoSeriesRM(15) = "XV" /U"3LX  
    NoSeriesRM(16) = "XVI" [L>AU; :  
     2sT\+C&H  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) ngH_p>  
     BE," lX  
    If i = vbNo Then !ziO1U  
        Exit Sub r1|;V~a$~  
    End If CNyV6
jb  
     6?3\P>`3Y  
    If Me.chkSuper.Value Then s!/Q>A  
        Me.txtStatus.Text = "检查修改所有的上标格式" c]/&xRd  
     -@`!p  
        CheckSuperScript UjS,<>fm  
         ,a} vx"~  
    End If ~a.ei^r  
     o,=dm@j  
    If Me.chkStyle.Value Then IL<@UWs6  
        Me.txtStatus.Text = "设置样式，请稍候...." Tw
9?U,]  
        DoEvents 6
>/g`%`N  
        CeateOrModifyStyle mbO.Kyfen  
    End If h,P#
)^"  
     MrpT5|t  
     7By&cdl  
     -2*Pm1\Z  
    ClearDomain !a9/8U_>XF  
         UN`O* ( k[  
     GhY MO6Q4  
     >/DlxYG?  
    If Me.chkLIST.Value Then =7<g;u  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式"
0%]F&|  
     YW^sf,zQ  
        ConvertListToOrdinary LW+^m6O  
    End If s;YuB#Z  
     ~.8p8\H  
     lNqF@eCT9  
    Dim pType As String, trimpTEXT As String EY[J;H_b  
    If Me.chkNum.Value = True Then + Scw;gO  
        Me.txtStatus.Text = "转换全角数字形式为半角" 7bx!A+, t  
        ConvertWidth "１", "1" 66Xo3o  
        DoEvents  :O{ ZZ  
        ConvertWidth "２", "2" $jv/00:&  
        DoEvents i^&^eg'.5  
        ConvertWidth "３", "3" .V|o-~c  
        DoEvents Z66q0wR7  
        ConvertWidth "４", "4" ,c[f/sT\  
        DoEvents 4'0rgS  
        ConvertWidth "５", "5" N(L?F):fT  
        DoEvents psE&Rx3)  
        ConvertWidth "６", "6" X##hSGQM  
        DoEvents " IC0v9  
        ConvertWidth "７", "7" UWq[K&vQZ  
        DoEvents _.3O(?p,  
        ConvertWidth "８", "8" $r m fE  
        DoEvents R]Pv=fn  
        ConvertWidth "９", "9" g;G.uF&  
        DoEvents .06[*S  
        ConvertWidth "０", "0" f#zm}
+,`  
        DoEvents %n>*jFC  
        ConvertWidth "ａ", "a" %jmL #IN)  
        DoEvents K1^x+I7%U[  
        ConvertWidth "ｂ", "b" I0 C$  
        DoEvents i@STo7=  
        ConvertWidth "ｃ", "c" _tpqo>  
        DoEvents w;KNS'  
        ConvertWidth "ｄ", "d" @wOX</_g  
        DoEvents ;TG< $4N  
        ConvertWidth "ｅ", "e" h$q=NTV  
        DoEvents bupDnTF  
        ConvertWidth "ｆ", "f" /FA0(< -}  
        DoEvents "A,-/~cBV  
        ConvertWidth "ｇ", "g" aak[U;rx  
        DoEvents ER*Et+>  
        ConvertWidth "ｈ", "h" <LA!L  
        DoEvents RJT=K{2x  
        ConvertWidth "ｉ", "i" S%k](\7!  
        DoEvents eEMU,zCl  
        ConvertWidth "ｊ", "j" uY Y{M`  
        DoEvents zsha/:b  
        ConvertWidth "ｋ", "k" D]$X@2A  
        DoEvents 53X5&Bwh  
        ConvertWidth "ｌ", "l" *9xv0hRQ%?  
        DoEvents jsnk*>j  
        ConvertWidth "ｍ", "m"
SpiI9)gp  
        DoEvents 8K0@*0  
        ConvertWidth "ｎ", "n" 84u%_4/  
        ConvertWidth "ｏ", "o" e2$k %c~  
        ConvertWidth "ｐ", "p" cSs??i D"q  
        ConvertWidth "ｑ", "q" 8iwqy0<  
        ConvertWidth "ｒ", "r"  K na  
        ConvertWidth "ｓ", "s" A>W8^|l6+-  
        ConvertWidth "ｔ", "t" NU$?BiB?R  
        ConvertWidth "ｕ", "u" sc &S0K  
        ConvertWidth "ｖ", "v" rP7f~"L  
        ConvertWidth "ｗ", "w" 8!u8ZvbFG  
        ConvertWidth "ｘ", "x" ,xsFBNCC  
        ConvertWidth "ｙ", "y" `f+l\'.s  
        ConvertWidth "ｚ", "z" }o MY  
        ConvertWidth "Ａ", "A"  w#\*{EN  
        ConvertWidth "Ｂ", "B" AH#klYK  
        ConvertWidth "Ｃ", "C" z\?cazQ  
        ConvertWidth "Ｄ", "D" ) v^;"q"  
        ConvertWidth "Ｅ", "E" T_*R^Ukb5  
        ConvertWidth "Ｆ", "F" uGH>|V9'c  
        ConvertWidth "Ｇ", "G" \-~TW4dYe  
        ConvertWidth "Ｈ", "H" {9*k \d/;  
        ConvertWidth "Ｉ", "I" &Ew{{t;"  
        ConvertWidth "Ｊ", "J" @XFy^?  
        ConvertWidth "Ｋ", "K" 7Q3a0`
Iq  
        ConvertWidth "Ｌ", "L" DZ~qk+,I  
        ConvertWidth "Ｍ", "M" *&lNzz5&  
        ConvertWidth "Ｎ", "N" x6={)tj  
        ConvertWidth "Ｏ", "O" e|jmOYWG  
        ConvertWidth "Ｐ", "P" i$!-mYi+Q!  
        ConvertWidth "Ｑ", "Q" 6l-V%3-  
        ConvertWidth "Ｒ", "R" {%Q&CQG_  
        ConvertWidth "Ｓ", "S" CP!>V:w%9!  
        ConvertWidth "Ｔ", "T" o$+"{3svw?  
        ConvertWidth "Ｕ", "U" {P@OV1  
        ConvertWidth "Ｖ", "V" !/Wp0E'A  
        ConvertWidth "Ｗ", "W" Er
d)P  
        ConvertWidth "Ｘ", "X" 1Ydym2  
        ConvertWidth "Ｙ", "Y" S,~DA3  
        ConvertWidth "Ｚ", "Z" Y1Qg|U o  
        ConvertWidth "^l", "^p" [<p7'n3x  
        ConvertWidth "（", "(" h#!u"'JW  
        ConvertWidth "）", ")" *P}v82C N  
     O+Qt8,  
    End If l d4#jV ei  
LU4k/  
    With ActiveDocument Km9Y_`?  
        Dim tbl As Table S8$kxQg  
        For Each tbl In .Tables `8rInfV  
            tbl.Rows.Alignment = wdAlignRowCenter XF 8$D  
            tbl.Range.Font.NameFarEast = "楷体" R# UcwX}o  
            tbl.Range.Font.NameAscii = "Times New Roman" KZ;Q71  
            tbl.Range.Font.Size = 10.5 0755;26Bx  
        Next yDW$v/j.|  
        Set tbl = Nothing *Af:^>mh  
    End With 7BDRA},o  
     {(MC]]'?  
     TwZASn]o  
    With ActiveDocument *iVCHQ
~  
         ^q=D!g  
        For i = 1 To .TablesOfContents.Count &E&e5(&$  
            .TablesOfContents(i).Delete bhWH  
        Next llP 5  
         iI(7{$y  
         :;(zA_-  
         l.Qv9Ll|b  
        paraTotal = .Paragraphs.Count R"`7aa6  
        paraCounter = 1 DYKJVn7w  
         w0iv\yIRQ  
        LastTitle0No = 0 NWq>Z!x`  
        LastTitle1No = 0 \E3evU  
        LastTitle2No = 0 0kdPr:B Q0  
        LastTitle3No = 0 s9'lw'  
        LastTitle4No = 0 O>j_xW]V  
        LastTableNo = 0 o<r|YRzQl  
        LastFigureNo = 0 "]M]pR/j  
         ` kG}NJf  
        Dim Sec As Long  YYc.e T<  
         Vx6/Rehj  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) sHSD`mYq  
        If Sec = 0 Then *.]M1  
            Exit Sub 8V$:th('  
        End If 1IRlFC  
         >uN)O-  
        k = 0 (d2|r)O  
        Do While (paraCounter < paraTotal) And bContinue #A '|O\RGP  
            k = k + 1 >u:t2DxE  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then Ow\dk^\-G8  
                Exit Do s]z-d!G  
            End If ufekhj  
            paraCounter = paraCounter + 1 )|?s!rw +  
            If k Mod 20 = 0 Then "Wz#<! .r  
                Me.lbCounter.Caption = paraCounter  DlWnz-  
                DoEvents 8aHs I(  
            End If F qW[L>M'  
        Loop bEJz>oyW"  
         H=j&uv8  
         05cyWg9a  
        Do While (paraCounter < paraTotal) And bContinue l].Gz`L
 
             J<4egk4  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) L| uoFG{  
            ShapeHeight = 0 QXcSDJ  
            ShapeWidth = 0 xF4>D!T%8  
           Pgg\(D#X`  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth udV.$N  
             Rr|&~%#z  
            Select Case ParaType 5}uH;E)4  
                Case "【】表格内容" ]_WB^  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" *$I5_A8,.  
                Case "章" NlS/PWc6(  
                    LastTitle0No = LastTitle0No + 1 cnR.J  
                    '新一章开始，复位其下属标题编号 "+6:vhP5  
                    LastTitle1No = 0 <-1(G1v  
                    LastTitle2No = 0 "5,tE
P!  
                    LastTitle3No = 0 ]'2;6%.4
 
                    LastTitle4No = 0 x!08FL)  
                     :DlgNR` bq  
                    k = Val(ttNo) ~K-c-Zs#z  
                    If k = 0 Then '非数字编号章节 30fsVwE2  
                        If ttNo <> NoSeries1(LastTitle0No) Then &(]@L\A  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString !F_BLHig  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText dM nJ)R  
                        End If 9$u'2TV  
                    Else CAhkv0?8  
                        If Val(ttNo) <> LastTitle0No Then Gx]J6Z8  
                            rText = "第" & LastTitle0No & ttString z"@yE*6  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText i,Q{Z@,  
                        End If D~i m1h;>  
                         y.l`NTT]<  
                    End If m.}Yn,
  
                     EGZF@#N  
                    '章段落设置 t)* MLg<C  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 :bhpYEUMx  
                    .Paragraphs(paraCounter).Style = "QLNU章节" nCz_gYcIx  
                    .Paragraphs(paraCounter).Range.Select nf7l}^/UE  
                    Selection.EndKey unit:=wdLine t'@qb~sf  
                    tc = Replace(rText, vbCr, "") UE[5Bw?4X  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False d }" Dp  
                Case "一级标题" lo%:$2*'p  
                    LastTitle1No = LastTitle1No + 1 ]H4T80wm&  
                    '新一级标题开始，复位其下属标题编号 lbCTc,xT  
                    LastTitle2No = 0 u&!QP4$"z  
                    LastTitle3No = 0 ?x|8"*N  
                    LastTitle4No = 0 q@}eYQ=P|e  
                     vIi#M0@N  
                    If ttNo <> NoSeries1(LastTitle1No) Then 0=2D90  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString .
1[[Y}  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText MifPZQ  
                    End If 8Q%rBl.  
                   dvAvG.;U  
                     IU8/B+hM~  
                    '一级标题段落设置  格式：一、标题内容 zdoJ+zRtK  
                    .Paragraphs(paraCounter).Range.Text = rText "AzA|zk')"  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" >Bj+!)96q  
                    .Paragraphs(paraCounter).Range.Select *hP9d;-Ar  
                    Selection.EndKey unit:=wdLine 7eh<>X!T
X  
                    tc = Replace(rText, vbCr, "") vyt $  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False c<`Z[EY(t  
                Case "二级标题" ,&1DKx  
                    LastTitle2No = LastTitle2No + 1 wap@q6fz<  
                    '新二级标题开始，复位其下属标题编号 #Tjv(O[&  
                    LastTitle3No = 0 &3Q!'pJJ  
                    LastTitle4No = 0 $ {iV]Xt  
                     [=63xPxs.  
                    If ttNo <> NoSeries1(LastTitle2No) Then $:#{Y;d  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString S|{'.XG  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText <9]9;  
                    End If ){PL6|5x  
                     e*7nq~ B5  
                    '二级标题段落设置 格式：(一)、标题内容 us2X:X)  
                    .Paragraphs(paraCounter).Range.Text = rText &3SQVOW ~T  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" Tq r]5  
                     2&f]v`|M|  
                    .Paragraphs(paraCounter).Range.Select b0A*zQA_)  
                    Selection.EndKey unit:=wdLine VZ`L-P$AF  
                    tc = Replace(rText, vbCr, "") ]5+db0  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False }w0>mA0=H  
                 Jv|uI1V  
                Case "三级标题" L|7F%oR  
                    LastTitle3No = LastTitle3No + 1 i,{'}B  
                    '新三级标题开始，复位其下属标题编号 a5v}w7vL
 
                    LastTitle4No = 0 "t-u=aDl-.  
                     q\P"AlpC!  
                    If Val(ttNo) <> LastTitle3No Then aP%2CP~_P  
                            rText = LastTitle3No & ". " & ttString }E\ b_.  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText [84f[`!Ui  
                         iG\]  
                    End If vakAl;  
                    '三级标题段落设置 格式：1. 标题内容 cBl F  
                    .Paragraphs(paraCounter).Range.Text = rText D]
H@Sx  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" PfaBzi9?f  
                    .Paragraphs(paraCounter).Range.Select D{]t50a.  
                    Selection.EndKey unit:=wdLine SxHj3,`#C  
                    tc = Replace(rText, vbCr, "")  Fo=hL  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False +wAH?q8f  
                Case "四级标题" vgc#IEx@  
                    LastTitle4No = LastTitle4No + 1 'Y ZYRFWXM  
                     Kd?TIeFE  
                    If Val(ttNo) <> LastTitle4No Then F ;o ^.  
                            rText = "(" & LastTitle4No & "). " & ttString dU7+rc2,CU  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText &B</^:  
                     oA^aT:o +  
                    End If BrdHTk= Vy  
                    '四级标题段落设置 格式：(1). 标题内容 ?Mb
'l4  
                    .Paragraphs(paraCounter).Range.Text = rText `kn 'RZR  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" f__r" N  
                    .Paragraphs(paraCounter).Range.Select L"w% ew  
                    Selection.EndKey unit:=wdLine .o(XnY)cgJ  
                    tc = Replace(rText, vbCr, "") GWNLET  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False '.sS"QdN  
                 (8(7:aE$  
                Case "表格标题" {xw"t9(fE  
                    LastTableNo = LastTableNo + 1 8E m X  
                     H8V${&!ho  
                    If ttNo <> CStr(LastTableNo) Then `h>a2  
                            rText = "表" & LastTableNo & ". " & ttString *?zyF@K{%  
                            ErrMsg.AddItem "表格编号错误：" & ParaText 7fVlA"x  
                   @
A_bZQ@  
                    End If BI'}  
                     6^vMJ82U  
                    '表格名称段落设置 格式：表1. 表格名称 mG?g  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" G8w<^z>pTg  
                    xe = Replace(rText, vbCr, "") 7r`A6 \
!  
                    .Paragraphs(paraCounter).Range.Select JMMT886  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 \
"]vSx >  
                    Selection.Range.Text = xe gy Jx>i  
                    Selection.EndKey c~@ Z  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False pZS0;T]W,  
                 !$/1Q+  
                Case "表格首行" q K sI}X~  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" 03WLVP@  
                Case "图片标题" U#I8Rd I,  
                    LastFigureNo = LastFigureNo + 1 y#4f^J!V  
                     nN=o/zd  
                    If ttNo <> CStr(LastFigureNo) Then 03F%!Rm/j  
                            rText = "图" & LastFigureNo & ". " & ttString v o9DmW  
                            ErrMsg.AddItem "表格编号错误：" & ParaText Ue>;h9 ^  
                   Osb#<
9{}  
                    End If @l7~Zn  
                    '图片名称段落设置 格式：图1. 图名称 R6^U9fDG  
                    .Paragraphs(paraCounter).Range.Text = rText td:GZ %  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" b h%@Lo  
                    .Paragraphs(paraCounter).Range.Select r[ UZHX5+S  
                    Selection.EndKey unit:=wdLine h|=<I)}z  
                    xe = Replace(rText, vbCr, "") (vq0Gl  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False 1@&i ju5  
                Case "正文" e/pZLj]M  
                     '正文名称段落设置 @a08*"lbp  
                    .Paragraphs(paraCounter).Style = "QLNU正文" He#5d!cf:M  
               Case "文献条目" PdUlwT?8C  
                    With .Paragraphs(paraCounter) V &K:~[M  
                        '.Range.Select uQwKnD?F+e  
                        'Selection.ClearFormatting p)5j~Nl  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” 5
B&#Sh`r  
                        .Style = "QLNU参考文献" MZyzc {c,  
                    End With 1Na*7|  
               Case "图表注解" F~;G[6}  
                    With .Paragraphs(paraCounter) Y:GSjq  
                        .Range.Font.NameFarEast = "楷体" kZ&|.q1zki  
                        .Range.Font.NameAscii = "Times New Roman" 2S~cW./#fX  
                        .Range.Font.Size = 9 '小5号字 :^c' P<HM  
                         qq%\  
                        .Alignment = wdAlignParagraphCenter #kO.'oIl  
                        .LeftIndent = 0 wABaNB=9;  
                        .RightIndent = 0 )20jZm*  
                        .FirstLineIndent = 0 BT|5"b}  
                        .LineSpacing = 12 *hhPCYOm  
                        .LineSpacingRule = wdLineSpaceExactly 0b)^#+  
                        .LineUnitAfter = 0 ~uF%*  
                        .LineUnitBefore = 0 DrfOz#a0Uu  
                        .OutlineLevel = wdOutlineLevelBodyText ,_STt)  
                        .PageBreakBefore = False C+,JLK  
                        .RightIndent = 0 'W!N1W@  
                        .WordWrap = True ^sLnKAN  
                        .LineUnitAfter = 0.5 :ET05MFs\#  
                         ?-40bb  
                    End With pzX 684  
                Case Else Pc+8CuN?  
                    '不作处理 V Ae@P  
            End Select k 8C[fRev  
             1o&]=(  
            '含有inlineshape的段落处理 Ck71N3~W  
            If ShapeHeight > 30 Then RTPxAp+\5  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 %\5w
HT+)  
            End If O~E6"vQ  
             ra="4T$va  
            If (ShapeWidth + ShapeHeight) > 150 Then Q&zEa0^rG6  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" y\=(;]S'  
            End If DB1GW,  
             c-|~ABtEpX  
            '段落计数器递 ^hG Y,\K9  
            paraCounter = paraCounter + 1 Fa
p@cW3?8  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter fOE8{O^W  
            Me.txtStatus.Text = ParaText "|{3V:e>a  
            DoEvents >k:BG{$Kae  
        Loop So&an !  
    End With {fwA=J9%KS  
     YL(7l|^!  
    msg = "" ]g#ur@Y%  
     2E V M*^A  
    For i = 0 To Me.ErrMsg.ListCount - 1 9ANC,+0p  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) K4]42#
  
    Next ^Z?X\t  
     ikr|P&e#u  
     PNm WZW*  
     dQ&S&SW  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg gk"0r\Eq  
    Me.cmdCheck.Enabled = True c4]/{!4 Q  
    Me.txtStatus.Visible = True N!7r~B   
    Me.lbParaType.Visible = False O}4(v#  
     \E9Hk{V:6  
    bContinue = False X67.%>#3  
End Sub t7A '  
XS$5TNI  
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) _R&}CP  
    Dim pTEXT As String qTbY'V5A  
     x$Gu)
S  
    pTEXT = ChKRange.Text
wzLR]<6G  
     ]:lqbg[J  
    ParaType = "其它" :)!X%2_  
    TitleString = pTEXT -&4W0JK9  
    TitleNo = "N/A" t`PA85.|d  
     `t0?PpUo  
    shpCounter = ChKRange.InlineShapes.Count eBZa9X$  
    If shpCounter <> 0 Then ``%uq)G=D  
        MaxShpHeight = 0: TotalShpWidth = 0 hD~P)@^  
        For i = 1 To shpCounter XkB^.[B  
            k = ChKRange.InlineShapes(i).Height aBo8?VV]8  
            l = ChKRange.InlineShapes(i).Width ]zGgx07d  
            If k > MaxShpHeight Then ?\_N*NEtK
 
                MaxShpHeight = k ")J\} $r  
            End If OYcf+p"<\  
            TotalShpWidth = TotalShpWidth + l 1b4aY> Z  
        Next 3Uzb]D~u  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then KmuE#Ia  
            Exit Sub n5nV461U  
        End If 8vzjPWu  
    End If G~,K$z/-l  
     Irk@#,{<  
    '空行 
2h<{~;  
    If Len(pTEXT) <= 2 Then =5NM =K  
        Exit Sub deD%E-Ja  
    End If {fkW0VB;  
     $ O1w6\}_  
         xM ]IU <  
    '是否为表格中的文字 -7GF2 @  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then Q.5C
$I  
        ParaType = "表格内容" q3+G  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) k=t\  
        If k = 1 Then nZ;h&N-_-  
            ParaType = "表格首行" :K%{?y  
        End If ZTCzD8  
        Exit Sub .'3&!#3  
    End If  2C9wOO  
     PUMh#^g}  
    '例外情况：脚注 l `D>h2]  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then w]Q0}Z  
        ParaType = "脚注" l?>sLKo9  
        Exit Sub \(y6o}aW  
    End If $"P9I-\m  
     ztSP4lW  
    '例外情况：尾注 ,@+7(W  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then ,vfi]_PK  
        ParaType = "尾注" 8"!Z^_y)  
        Exit Sub it=4cHT  
    End If <E2+P,Lgw  
     s|7(VUPL  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then aq~g54  
        ParaType = "页眉页脚" B 7:8%r/  
        Exit Sub ;DMv?-H  
    End If g.AMCM?z
 
     |aH;@V  
     }E=:k&IDPB  
    With regEX RX-qL,dc  
        .Global = True %O5 k+~9  
         SU0K#:  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" dXAKk[uf  
        If regEX.Test(pTEXT) Then `;[j`v8O  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") B{fPj9Y0  
            TitleString = regEX.Replace(pTEXT, "$3") y`"~zq0D  
            TitleNo = regEX.Replace(pTEXT, "$1") uZsm=('ww  
            ParaType = "章" 19 h7 M  
            Exit Sub 13oR-Stj|  
        End If PJC[#>}  
         b9M.p*!  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" ,| gX?[o  
        If regEX.Test(pTEXT) Then U.7;:W}c  
            ParaType = "一级标题" 1WGcv O)<  
            regEX.Execute (pTEXT) GF6c6TXF@  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") .C avb   
            TitleString = regEX.Replace(pTEXT, "$3") Pn)^mt  
            TitleNo = regEX.Replace(pTEXT, "$1") ;^5d^-T  
            Exit Sub #;Yn8'a~  
        End If l0cws`V  
         GA19=gow  
        '全角或半角括号中的数字 4"$K66yk@  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" @@L@r6  
        If regEX.Test(pTEXT) Then hF
ORs.L&G  
            ParaType = "二级标题" =NyN.^bwT  
            regEX.Execute (pTEXT) ahagt9[,:F  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") %9z N U  
            TitleString = regEX.Replace(pTEXT, "$5") g8 (zvG;Y  
            TitleNo = regEX.Replace(pTEXT, "$2") sOc<'):TK  
            Exit Sub &3x \wH/_  
        End If _ pu G?p  
         wJ_E\vP  
        '阿拉伯数字  1. 2. wGd4:W  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" }}a<!L,{  
        If regEX.Test(pTEXT) Then OrXx0Hn  
            ParaType = "三级标题" "Aw| 7XII  
            regEX.Execute (pTEXT) "%O,*t  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 fo63H'7  
            TitleString = regEX.Replace(pTEXT, "$3") Lod$&k@@  
            TitleNo = regEX.Replace(pTEXT, "$1") #qk}e4u  
            Exit Sub EleK*l  
        End If 9N(<OY+Dgm  
         D]+0X8@kH7  
        '全角或半角括号中的阿拉伯数字 1:-^*  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" %B^nQbNDM  
        If regEX.Test(pTEXT) Then v#iKa+tx  
            ParaType = "四级标题" !^Mk5E(  
            regEX.Execute (pTEXT) U#oe8(?#  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") 9>qc1z  
            TitleString = regEX.Replace(pTEXT, "$5") TNs0^h)  
            TitleNo = regEX.Replace(pTEXT, "$2") ;Qpp`  
            Exit Sub az7<@vSXi  
        End If auOYi<<>W  
         [ m*=Q  
        '表格名称 GO@pwq<  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" *
ey<R  
        If regEX.Test(pTEXT) Then b6Jv|1w'  
            ParaType = "表格标题" x`'2oz=,F4  
            regEX.Execute (pTEXT) 5#~ARk*?a  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) #(o 'G4T  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) 5t6!K?}  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) wAHW@q9CK  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 0 S3~IeJ  
            Exit Sub ()=u#y  
        End If :tP:X+?O  
         \>0F{-cR$  
        '图片名称 '}a[9v76  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" ,B
M6s,\  
        If regEX.Test(pTEXT) Then Xg*IOhF6x  
            ParaType = "图片标题" ny:c&XS  
            regEX.Execute (pTEXT) <v<TsEI  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") A1xY8?#?~c  
            TitleString = regEX.Replace(pTEXT, "$3") &]VCZQL  
            TitleNo = regEX.Replace(pTEXT, "$1") q7}$F]UM"  
            Exit Sub ygm4Aj>  
        End If vkmTd4g  
         0{ovLzW  
        '参考文献 L@*0wx`fU  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 zh5{t0E}C  
        If regEX.Test(pTEXT) Then yteJHaq  
            ParaType = "文献条目" F(E3U'G  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") Hu$]V*rAG  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") w$J0/eX{A  
            Exit Sub 9moenkL  
        End If &*TwEN^h  
         Xrnxpp!#^D  
        prfx = Left(pTEXT, 2) ^H'zS3S  
        If prfx = "注：" Or prfx = "注:" Then @;>T
mLs  
            ParaType = "图表注解" S5:`fo^5  
            Exit Sub l6b3i v,  
        End If 5MJ`B:He+  
         hw`+,_ g  
         `r"euO r\  
        ParaType = "正文" 1Yt;1k'  
         x{u7#s1|/  
    End With uHdrHP  
End Sub -a`EL]NX  
Wx}+Vq<q  
Sub ConvertListToOrdinary() ybBLBJb  
    Dim st As Paragraph 8" Z!: =A  
    With ActiveDocument &wj;: f  
        For i = .Paragraphs.Count To 1 Step -1 }Sa2s&[<  
            Set st = .Paragraphs(i) OZ? 4"1$.t  
            lst = st.Range.ListFormat.ListString lhm=(7Y  
            If lst <> "" Then J-g#zs  
                st.Range.ListFormat.RemoveNumbers {Y{*(5YV  
                st.Range.InsertBefore lst & " " m ys5B}  
            End If 7+aTrE{  
        Next A(y^1Nm  
    End With YH`/;H=$G/  
    Set st = Nothing n8"S;:Zm  
End Sub azMrY<  
CFJ F}aW  
Private Sub UserForm_Activate() H2
7J kZ&  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" zGFo-C  
    Me.lbTotal.Font.Bold = True ^6v ob  
    Me.txtStatus.Visible = False ?'H);ou-p  
    Me.cmdCheck.Enabled = True [V`j@dV  
DJ"O`qNV3  
End Sub pyK|z vr-r  
ehE
XC  
sMAc+9G9k  
Sub CheckSuperScript() A:3bL: ;t  
    Selection.Find.ClearFormatting 6,'v /A-  
    Selection.Find.Replacement.ClearFormatting WXj}gL`  
    With Selection.Find 8ID fYJ  
        .Text = "[【\[［〖](*)[】\]〗］]" [07N<<  
        .Replacement.Text = "[\1]" L|G!of[8n  
        .Replacement.Font.Superscript = True SJ1 1LF3)  
        '.Replacement.Font.Color = wdColorBlue z^ +CD-  
        .Forward = True |Ia3bVW  
        .Wrap = wdFindContinue gvYib`#  
        .FORMAT = True 4VE7%.z+  
        .MatchCase = False 2-821Sf#h  
        .MatchWholeWord = False C)> ])'S  
        .MatchByte = False 1 O+4A[cr  
        .MatchAllWordForms = False <Vp7G%"'W  
        .MatchSoundsLike = False )f4D2c&VE  
        .MatchWildcards = True d)|{iUcW  
    End With
X#mm Z;P  
    Selection.Find.Execute Replace:=wdReplaceAll Vm]ltiTVk  
End Sub c }>:>^  
11}fPWK  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) S5ka;g  
    bContinue = False VHX&#vm*  
    Set regEX = Nothing .fxI)  
End Sub 8XwAKN:f  
<:yB4t3H+q  
Sub CeateOrModifyStyle() ?4=8z8((!  
' 2U,O e9  
' 5,!,mor$]  
Dim stl As Style \RZF q<6>  
     <Gzy*1 Q&  
    Options.Pagination = False po_||NIY  
     ^=Rqa \
;  
    On Error Resume Next -X(%K6{  
    For Each stl In ActiveDocument.Styles 'UO,DFq[Fl  
        stl.Delete 'j=7'aX>K  
    Next #ej^K |Qx  
    On Error GoTo 0 b7>^w<ki  
     GDC`\
cy  
    Set stl = Nothing Xr~6_N{J  
     Mn+;3qo{6  
    DoEvents q4vu r>m6  
    On Error Resume Next iZ+\vO?|  
     03L"W^gc  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph bL5z%bV  
     XJnDx 09h  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph <by}/lF0  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph T{u!4Yu  
      G~T]
m .  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph 9&5\L  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph 06 gE;iT  
     WlP #L`  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph %7BVJJp2  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph )F 6#n&2  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph Iw~3y{\  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph vTYI ez`g  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph +v%V1lf^~  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph p2|c8n==  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph +]Of f^s  
     MJ[#Gq\0R  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph ITh1|yP  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph FQ?,&s$Bmd  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph P%>? O :a  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph :qy`!QPUm  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph Kg&{
?&  
     V#!ihL/>  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph l5S(xQ  
    On Error GoTo 0 B+|E|8"  
    DoEvents =9n$at$l@  
     RsU=fe,  
    'BaseStyle 1QM*oj:  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False "/hM&  
    With ActiveDocument.Styles("BaseStyle").Font N)A?*s'v~  
        .NameFarEast = "宋体" eSXt"t  
        .NameAscii = "Times New Roman" {e[S?1t=l  
        .NameOther = "宋体" CtVY;eG  
        .Size = 10.5 >L/Rf8j&  
        .Bold = wdUndefined _#9:cH*  
        .Italic = wdUndefined L1*P<Cb  
        .Subscript = wdUndefined k%#`{#ni  
        .Subscript = wdUndefined 9BB<. p  
         48M)A  
        .Underline = wdUnderlineNone }(O/y-  
        .UnderlineColor = wdColorAutomatic -i|qk`Y  
        .StrikeThrough = False \/4ipU.  
        .DoubleStrikeThrough = False 35Nwx<  
         i](,
s.  
        .Outline = False eN{[T PPCq  
        .Emboss = False OxX{[|!`  
        .Shadow = False Y."ujo#bB  
        .Hidden = False 8%JxXtWW`  
        .SmallCaps = False ?_[xpK()  
        .AllCaps = False G5Y5_r6Gu  
        .Color = wdColorAutomatic o#E 3{zM  
        .Engrave = False %JDG aG'  
        .Scaling = 100 YKLh$  
        .Kerning = 1 1Nx.
aji  
        .Animation = wdAnimationNone =nOV!!  
        .DisableCharacterSpaceGrid = False LU4\&fd  
        .EmphasisMark = wdEmphasisMarkNone R|H9AM ~E  
    End With TCp!4-~,  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat *=0Wh@?0  
        .LeftIndent = 0 m}0US;c#f  
        .RightIndent = 0 "s2?cQv{#  
        .SpaceBefore = 0 1d!7GrD F  
        .SpaceBeforeAuto = False PRl\W:_t  
        .SpaceAfter = 0 4vTO  #F  
        .SpaceAfterAuto = False "xZ]i)  
         =25qY"Mf  
        .LineSpacingRule = wdLineSpaceSingle c\U
VMyE  
        .Alignment = wdAlignParagraphJustify vP&d vAUF  
         zfL$z,zgf  
        .WidowControl = False @Fqh]1t  
        .KeepWithNext = False ?*E Y~'I  
        .KeepTogether = False ws tI8">  
        .PageBreakBefore = False exV6&bdu  
        .NoLineNumber = False vJ>A >RCB  
         #(
h~l> r  
        .FirstLineIndent = CentimetersToPoints(0) t$r^'
ZN  
        .OutlineLevel = wdOutlineLevelBodyText !zL1XW)q  
        .CharacterUnitLeftIndent = 0 0"o<(1  
        .CharacterUnitRightIndent = 0 8YraW|H  
        .CharacterUnitFirstLineIndent = 0 -@i)2J_WP  
        .LineUnitBefore = 0 >b,o yM  
        .LineUnitAfter = 0 <Hhl=6op  
        .AutoAdjustRightIndent = True 0.O pgv2K  
        .DisableLineHeightGrid = True NUb^!E"  
         +Uq9C-Iu  
        .FarEastLineBreakControl = True Y+<C[Fiq  
        .WordWrap = True wNDLN`,^H  
        .Hyphenation = False Y5=~>*e  
         FQB)rx P  
        .HangingPunctuation = True &KgR;.R^J  
        .HalfWidthPunctuationOnTopOfLine = True ,T"pUeVJ  
        .AddSpaceBetweenFarEastAndAlpha = True 2F^ %d9`  
        .AddSpaceBetweenFarEastAndDigit = True _~_04p  
        .BaseLineAlignment = wdBaselineAlignBaseline 'Z'X`_  
    End With ;_K+b,  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False SqFya
 
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll Y32F{ z  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese GmtMA|  
    ActiveDocument.Styles("BaseStyle").NoProofing = False 0t5>'GYX  
     !`\W8JT+  
    '一级标题题样式 `3kE$h#  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ^G=wRtS  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" ?LgR8/Io@5  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False 'T7JXV5  
    With ActiveDocument.Styles("QLNU一级标题").Font 7Upm   
        .NameFarEast = "黑体"
j>eL&.d  
        .NameAscii = "Arial Black" o
^4qY  
        .NameOther = "黑体" v83uGEq(  
        .Name = "黑体" Yqm
x]7Y4  
        .Size = 16              '三号 ~X5yHf3  
        .Bold = True IGT~@);  
        .Italic = wdUndefined >j oGGT  
        .Subscript = wdUndefined c a_N76o!  
        .Superscript = wdUndefined Km]N scq1  
    End With >h<eEv/  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat L@ S"c (  
         tu77Sb  
        .LeftIndent = CentimetersToPoints(0) I!jSAc{  
        .RightIndent = CentimetersToPoints(0) Nv*x^y]  
        .FirstLineIndent = CentimetersToPoints(0) E xKH%I  
         mc|T}B  
        .LineSpacingRule = wdLineSpaceSingle [Z,AquCU(  
        .Alignment = wdAlignParagraphCenter vX)6N#D!  
         '0X!_w6W  
        .WidowControl = True K7<'4i~k  
        .KeepWithNext = True xC`Hm?kM  
        .KeepTogether = True F^_d8=67 h  
        .OutlineLevel = wdOutlineLevelBodyText p*!@z|F>U  
         :7Rs$ -*Uk  
        .LineUnitBefore = 0.5 P~_CDh.N  
        .LineUnitAfter = 0.5 NmST1pMk  
    End With )(*A1C[  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False 9 f-T>}  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll i2.y)K)  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese D/V.o}X$  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True xj{X#[q):  
    DoEvents ogML v}  
     J:f>/  
    '二级 O 4N_lr~  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") {d}-SoxH  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" W)^:*z  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False L;nRI.  
    With ActiveDocument.Styles("QLNU二级标题").Font
/`hr)  
        .NameFarEast = "黑体" /OgXNIl]  
        .NameAscii = "Arial Narrow" Q6,rY(b6  
        .NameOther = "黑体" J=*y>Zt-b  
        .Name = "黑体" ixBM>mRK  
        .Size = 15        '小三号 T =3te|fv  
        .Bold = False OnH>g"  
        .Outline = False -6~*:zg,  
        .Italic = wdUndefined m<8j' [+  
        .Subscript = wdUndefined 0-0 )E&2  
        .Superscript = wdUndefined nen6!bw4  
    End With yr& oJYM  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat |/arxb&  
        .LeftIndent = CentimetersToPoints(0)
GWjKZ1p  
        .RightIndent = CentimetersToPoints(0) _|DP  
        .FirstLineIndent = CentimetersToPoints(0) IG`~^-}7lR  
         @<CJbFgJp  
        .LineSpacingRule = wdLineSpaceSingle kBIF[.v(\  
        .Alignment = wdAlignParagraphLeft 5YC56,X  
         h\'GL(?DBI  
        .WidowControl = True fj0+a0h  
        .KeepWithNext = True 10}oaL S  
        .KeepTogether = True qt/syF&s  
        .PageBreakBefore = False KwPJ0 ]('_  
        .OutlineLevel = wdOutlineLevelBodyText vbqI$F[s  
         'e3y|  
        .LineUnitBefore = 0.5 ~0ZEnejy  
        .LineUnitAfter = 0.5 E2(;R!ML#  
         8)5n  
    End With 78+H|bH8  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False @M#2T  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll Mn>dI@/gM  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese \*LMc69  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True Q+mMpI  
    DoEvents BGOI$,  
     x@DXW(  
    '三级标题样式 *Vfas|3hZI  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") M=yZ5 ~3  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" au"HIyi?k  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False KyXgw  
    With ActiveDocument.Styles("QLNU三级标题").Font
aZ@4Z=LK  
        .NameFarEast = "宋体" dtA- 4Ndm  
        .NameAscii = "Times New Roman" ||`w MWq  
        .NameOther = "黑体" `"AjbCL  
        .Name = "黑体" +n,8o:fU:  
        .Size = 14               '四号 Z<jRZH*L  
        .Bold = False FPaj p  
        .Outline = False r4+w?=`  
        .Italic = wdUndefined :1_hQeq  
        .Subscript = wdUndefined *^Zt5 zk  
        .Superscript = wdUndefined |r}%AN6+  
    End With oge^2  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat gywI@QD%#  
        .LeftIndent = CentimetersToPoints(0) oCy52Bm.!  
        .RightIndent = CentimetersToPoints(0) `Kym {og  
        .FirstLineIndent = CentimetersToPoints(0) hNDhee`%6  
         UgJlXB|a%2  
        .LineSpacingRule = wdLineSpaceSingle C$*`c6R  
        .Alignment = wdAlignParagraphLeft mI9h| n   
         8S]Mf*~S'  
        .WidowControl = True z mr=iK  
        .KeepWithNext = True F1M@$S,  
        .KeepTogether = True e7,iO#@:m  
        .PageBreakBefore = False &@dMk4BH<  
        .OutlineLevel = wdOutlineLevelBodyText 7;CeQx/W)W  
         a:zx&DwM  
        .CharacterUnitLeftIndent = 0 c::x.B"w  
        .CharacterUnitRightIndent = 0  `Z|sp  
        .CharacterUnitFirstLineIndent = 2 pal))e!B  
         32~Tf,  
        .LineUnitBefore = 0.5 N#7]xL  
        .LineUnitAfter = 0 WU<#_by g  
    End With eoEb\zJ  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False X&
wK<  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll C| Mh<,~E  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese + W@r p#  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True ,;/4 E
 
    DoEvents rA`zuYo  
    
^{6Y7T]  
    '四级标题样式 15yIPv+5  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") >=U$s@  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" %M}zi'qQ?  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False r0\bi6;s/  
    With ActiveDocument.Styles("QLNU四级标题").Font  )[p8  
        .NameFarEast = "宋体" /4_}wi\  
        .NameAscii = "Times New Roman" W**=X\"'  
        .NameOther = "宋体" 6\5U%
~78  
        .Name = "宋体" =7e8N&-nv  
        .Size = 12               '小四号 Hkg@M?(  
        .Bold = True ]XPGlM  
        .Outline = False H5&>Eny  
        .Italic = wdUndefined T"QY@#
E  
        .Subscript = wdUndefined |o!<@
/iH=  
        .Superscript = wdUndefined 7e8hnTzl8<  
    End With tH_#q"@)  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat *uEU9fX  
         EHzZ9zH\  
        .LeftIndent = CentimetersToPoints(0) v/m`rc
]e  
        .RightIndent = CentimetersToPoints(0) ` b\4h/~  
        .FirstLineIndent = CentimetersToPoints(0) m9L+|r  
         ~%<PEl|  
        .LineSpacingRule = wdLineSpaceSingle z7<^aS  
        .Alignment = wdAlignParagraphLeft l g8~` 96  
         .z[+sy_  
        .WidowControl = True 2CmeO&(Qf*  
        .KeepWithNext = True YvYavd  
        .KeepTogether = True gKYn*  
        .PageBreakBefore = False :[ITjkhde0  
        .OutlineLevel = wdOutlineLevelBodyText #jZ:Ex  
         `4k;`a  
        .CharacterUnitLeftIndent = 0 vnN_csJ#^  
        .CharacterUnitRightIndent = 0 XX6&%7(  
        .CharacterUnitFirstLineIndent = 2 U">OdoZ,E+  
         AP@ xZ%;K  
        .LineUnitBefore = 0 @=;6:akz`  
        .LineUnitAfter = 0 @%#(Hse  
         aNqVs|H  
    End With ,7j`5iq[m  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False >,] # ~d  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll J&3;6
I &  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese r#Pd
@SV  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True PU'v o4  
    DoEvents Ce:R p?  
     {;p/V\  
    '正文校式 F)gL=6h  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") Ix(4<s  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" (XW#,=rYk  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False Rw/G =zV@2  
    With ActiveDocument.Styles("QLNU正文").Font  L1F){8[  
         9&d BL0  
        .NameFarEast = "宋体" E_H1X'|qS4  
        .NameAscii = "Times New Roman" il#rdJ1@t  
        .NameOther = "宋体" qS2%U?S7  
        .Name = "宋体" W2<X 5'  
         ?0?'  
        .Size = 12               '小四号 0(i`~g5  
         c<H4rB  
        .Bold = wdUndefined kBONP^xI  
        .Italic = wdUndefined I7uYsjh@u  
        .Subscript = wdUndefined _p_F v>>:  
        .Superscript = wdUndefined ko5\*!|:lj  
         }K*ri  
        .Outline = False KDXo9FzF  
        .Emboss = False VqbiZOZ@  
        .Shadow = False gIRCJ=e[b  
        .Hidden = False Etl7V  
         +\W"n_PPy  
        .DisableCharacterSpaceGrid = True s]I],>}RU  
    End With &>s(f-\8  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat
PN'8"8`{  
         mdZELRu  
        .LeftIndent = CentimetersToPoints(0) &a|oJ'clz  
        .RightIndent = CentimetersToPoints(0) "q(&<+D@  
        .FirstLineIndent = CentimetersToPoints(0) #-@{rgH  
         ^-ACtA)  
        .LineSpacingRule = wdLineSpaceExactly {'b8;x8h  
        .LineSpacing = 20 <;XJ::d  
        .Alignment = wdAlignParagraphLeft SHGO;  
         |hdh4P$+|  
        .WidowControl = False K[ \z'9Q  
        .KeepWithNext = False :EO}uP2  
        .KeepTogether = False kqyMrZ#  
        .PageBreakBefore = False =?f}
h{8x>  
        .Hyphenation = False TgUQD(d^  
         Wt`D  
        .OutlineLevel = wdOutlineLevelBodyText kEXcEF_9P  
         lp 9<j1Wl  
       " (xS  
        .CharacterUnitLeftIndent = 0 Z ZiS$&NK8  
        .CharacterUnitRightIndent = 0 9V"j=1B}  
        .CharacterUnitFirstLineIndent = 2 S5d{dTPq  
         mi-\PD>X  
        .LineUnitBefore = 0 )T4L^^`  
        .LineUnitAfter = 0 ]Yj>~k:K  
        .SpaceBefore = 0 lyi}q"Kn*;  
        .SpaceAfter = 0 {c J6Lq&  
         jNyC%$  
        .DisableLineHeightGrid = True )a}5\
V  
    End With )ld7^G  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False 9 .@(&  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll a>kDG <.A  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese #>,cc?H-  
    ActiveDocument.Styles("QLNU正文").NoProofing = True p;5WLAF  
    DoEvents NRl"!FSD;"  
     }UO,R~q~  
    '图片段落样式 +p[~hM6?  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") /F4:1 }  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" ?k3b\E3  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False eyE
&<:F#J  
    With ActiveDocument.Styles("QLNU图片段落").Font l~=iUZW<  
        .Size = 12               '小四号 */\.-L{h  
        .Italic = wdUndefined \ bhok   
        .Subscript = wdUndefined 7'8O*EoB'  
        .Superscript = wdUndefined c !;wp,c  
    End With ~FsUK;?  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat m!2Dk#t  
         3Yf$WE8#l  
        .LeftIndent = CentimetersToPoints(0) B.WJ6.DkS  
        .RightIndent = CentimetersToPoints(0) x)?\g{JH  
        .FirstLineIndent = CentimetersToPoints(0) {c1qC zM4  
         ryT8*}o  
        .LineSpacingRule = wdLineSpaceSingle oF>GWstTR  
        .Alignment = wdAlignParagraphCenter 4ku/3/6  
        .KeepWithNext = True q-RGplx  
        .OutlineLevel = wdOutlineLevelBodyText e"2QV vB  
         =aekY;/  
        .CharacterUnitLeftIndent = 0 e56#Qb@$\  
        .CharacterUnitRightIndent = 0 #<~f~{x  
        .CharacterUnitFirstLineIndent = 0 j~{2fd<>  
         XgbGC*dQ  
        .LineUnitBefore = 0 Ya_6Zd4O  
        .LineUnitAfter = 0 N0piL6Js  
    End With ]lo1Kw  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False .( J/*H  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll - VE#:&  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese K
F'M4P  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True P$QjDu-  
    DoEvents ku{aOV%  
     |HEw~x<=  
     0l##M06>  
    '第X章 N\fT6#5B  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") L!p|RKz9X  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" H|Nw) *.  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False |-mazvA  
    With ActiveDocument.Styles("QLNU章节标题").Font IN"vi|1  
        .NameFarEast = "黑体" M'HOw)U  
        .NameAscii = "Arial Black"
\ 1Bgs^  
        .NameOther = "Arial Black" YNXk32@j@e  
        .Name = "黑体" 35>}$1?-6  
        .Size = 16 Y/^<t'o&  
        .Bold = True O7\s1 V;  
        .UnderlineColor = wdColorAutomatic f@{C3E dd  
        .Outline = False S?{5DxilO  
        .Italic = wdUndefined 4W?<hv+k7*  
        .Subscript = wdUndefined 6Te}"t>  
        .Superscript = wdUndefined xHGoCFB  
        .Scaling = 100 Y;w]u_  
        .DisableCharacterSpaceGrid = True yRznP
)  
    End With VZ,T`8"  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat y(dS1.5F  
        .LineSpacingRule = wdLineSpaceSingle w|HZI,~  
        .Alignment = wdAlignParagraphCenter 3/AUV%+  
        .WidowControl = True W<4\4  
        .KeepWithNext = True K$.zO4  
        .KeepTogether = True ZFON]$Zk  
        .PageBreakBefore = True /Ow?nWSt  
        .OutlineLevel = wdOutlineLevelBodyText aYgJTep>r  
         Dr1F|[  
        .LeftIndent = CentimetersToPoints(0) H6I #Xj  
        .RightIndent = CentimetersToPoints(0) }*'ha=`J  
        .FirstLineIndent = CentimetersToPoints(0) hG@ys5  
         |rvrSab)  
        .CharacterUnitLeftIndent = 0 F[u%t34'  
        .CharacterUnitRightIndent = 0 TH|hrL;:8  
        .CharacterUnitFirstLineIndent = 0 jQb D2x6(  
         V9VP"kD  
        .LineUnitBefore = 1 [1*/lt|+p  
        .LineUnitAfter = 0.5 Z C93C7lJ  
         *p3P\ H^5  
        .AutoAdjustRightIndent = False $imx-H`|  
        .DisableLineHeightGrid = True 9X%Klm 5w  
        .FarEastLineBreakControl = True d0B+syl&4l  
        .WordWrap = True (2li:1j  
    End With W~tOH=9>  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False v2{O67j} o  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll !7 oy%{L  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese  @NIypi$T  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True [FL I+;gY  
    DoEvents  SoX V  
     uI2'j EjO  
    '表格标题 2UF94  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") X W)A~wPBs  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" (HI%C@e9  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False DS
C4  
    With ActiveDocument.Styles("QLNU表格标题").Font /)1-
^ju  
        .NameFarEast = "楷体" p5l$On  
        .NameAscii = "Arial" 5avO48;Vc  
        .Name = "楷体" gp)ds^  
        .Size = 10.5 bw\=F_>L  
        .Bold = True @9h#o5y q  
        .Underline = wdUnderlineNone Lm|X5RVq  
        .Italic = wdUndefined z
l\#n:|  
        .Subscript = wdUndefined =dBrmMh  
        .Superscript = wdUndefined j 7URg>i0  
        .Color = wdColorAutomatic sJoi fl 7  
    End With a,~P_B|@  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat ! cb#fl  
         F4Uk+|]Bu  
        .LineSpacingRule = wdLineSpaceSingle cnthtv+(~  
        .Alignment = wdAlignParagraphCenter J7GsNFL  
        .KeepWithNext = True ~N9-an  
        .KeepTogether = True gcxk'd  
        .OutlineLevel = wdOutlineLevelBodyText 6\;1<Sw*  
         F29AjW86  
        .LeftIndent = CentimetersToPoints(0) YZl%JX  
        .RightIndent = CentimetersToPoints(0) )0mDN.
  
        .FirstLineIndent = CentimetersToPoints(0) ^rwSbM$  
         !P$xh  
        .CharacterUnitLeftIndent = 0 e_], O_Z  
        .CharacterUnitRightIndent = 0 Xt =bc  
        .CharacterUnitFirstLineIndent = 0 A232"p_  
         At(9)6n8  
        .LineUnitBefore = 1 QZr<=}
 
        .LineUnitAfter = 0 jyhzLu  
         .Qt3!ek  
    End With h*UUtLi%WU  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False a1SOC=.M
;  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll <gLtX[v!CL  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese Hz8`)cv`  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True m;f?}z_\$  
    DoEvents n
*~   
H4NEB1TO>  
    '表格首行 5$U>M
 
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") >e;STU  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False %,et$1`g  
    With ActiveDocument.Styles("QLNU表格首行").Font qD*\}b]9I  
        .NameFarEast = "楷体" bFezTl{M  
        .NameAscii = "Times New Roman" Y}uQ`f  
        .Name = "楷体" l7,qWSsnK  
        .Size = 9 A=UIN!  
        .Bold = True %wW5)Y I  
        .Underline = wdUnderlineNone uR@`T18  
        .Italic = wdUndefined ]Rh(=bg  
        .Subscript = wdUndefined /zf>>O`  
        .Superscript = wdUndefined t5X lR]` w  
    End With i[{] LiP  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat }G+A_HF ^  
        .LineSpacingRule = wdLineSpaceSingle n-3j$x1Ne  
        .Alignment = wdAlignParagraphCenter q-%KfZ@(|  
         ,,@`l\Pgd  
        .LeftIndent = CentimetersToPoints(0) )V3(nZY  
        .RightIndent = CentimetersToPoints(0) Xp6*Y1Y  
        .FirstLineIndent = CentimetersToPoints(0) cl{W]4* $  
         5iddB $  
         k!=GNRRZE  
        .CharacterUnitLeftIndent = -0.5 X3{1DY3@u  
        .CharacterUnitRightIndent = -0.5 EAw#$Aq=  
        .CharacterUnitFirstLineIndent = -0.5 X' 7S|J6s  
         *"FLkC4  
        .LineUnitBefore = 0 Pki4wDCTW  
        .LineUnitAfter = 0 O/9%"m:i  
        .SpaceBefore = 0 _M[[vXH  
        .SpaceAfter = 0 V2{#<d-T!  
         rs Uw(K^  
    End With q_y,j&  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False &hN&nH"PC  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll JjLyV`DJ  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese 8$ZSF92C  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True ~88 Tz+  
    DoEvents PbUcbb17  
9}cuAVI  
    '表格内容 ,'CWt]OS'  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") +esNwz_   
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False w"agn}CK  
    With ActiveDocument.Styles("QLNU表格内容").Font |.O!zRm  
        .NameFarEast = "楷体" M#]|$\v(  
        .NameAscii = "Times New Roman" ~e77w\Q0  
        .Name = "楷体" R.IUBw5;/  
        .Size = 9 !u4Z0!Ll  
        .Bold = False =veOVv[Q&/  
        .Underline = wdUnderlineNone 07Q[L'}y@  
        .Italic = wdUndefined >B/&V|E  
        .Subscript = wdUndefined N5s
|a5  
        .Superscript = wdUndefined :$i :8lz  
    End With t!~YO'<dS  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat v7F RTrqjj  
        .LineSpacingRule = wdLineSpaceSingle @
:+n6  
        .Alignment = wdAlignParagraphCenter &17,]#3  
         8UT%:DlxQ  
        .LeftIndent = CentimetersToPoints(0) H
 r^1
5  
        .RightIndent = CentimetersToPoints(0) Xm:=jQn  
        .FirstLineIndent = CentimetersToPoints(0) <hZ}34?]i2  
         |sqo+E  
        .CharacterUnitLeftIndent = -0.5 c4>sE[]  
        .CharacterUnitRightIndent = -0.5 ?w37vsN  
        .CharacterUnitFirstLineIndent = -0.5 }<ONxg6Kb  
        .LineUnitBefore = 0 KHecc/,,S  
        .LineUnitAfter = 0 D4Y!,7WEVt  
        .SpaceBefore = 0 I.+)sB?5  
        .SpaceAfter = 0
LQ\ ELJj  
    End With ESxC{ "  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False *C@[5#CA2z  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll B9IXa;  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese }&T<wm!  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True 8;g.3Qv  
    DoEvents (1AA;)`Kp  
7Sz'vyiz  
    '图片标题 mERrcYY{  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") `JWYPs
Wk  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" ix7 e])m(  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False e9@fQ  
    With ActiveDocument.Styles("QLNU图片标题").Font Cxk$ "_  
        .NameFarEast = "楷体" `3y!XET  
        .NameAscii = "Times New Roman" !N8)C@=  
        .Name = "楷体" cbCE $  
        .Size = 10.5 gSr}p$N  
        .Bold = True 207O["Y  
        .Underline = wdUnderlineNone E`uaE=Mdq  
        .Italic = wdUndefined bq3fiT9  
        .Subscript = wdUndefined _SIs19"lR  
        .Superscript = wdUndefined *76viqY;dE  
        .Outline = False bI]UO)  
        .Shadow = False G:c8`*5Q  
        .Color = wdColorAutomatic ?3,
64[  
    End With HS
6Imi  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat ) xvx6?Ah|  
        .LineSpacingRule = wdLineSpaceSingle $wYuH9(  
        .Alignment = wdAlignParagraphCenter .aismc`=  
         _d[2_b1  
        .KeepWithNext = wdUndefined 8jjk?PUD8  
        .KeepTogether = True
?FV7|)f  
        .OutlineLevel = wdOutlineLevelBodyText KtUGI.X  
         N _~KZQ11^  
        .LeftIndent = CentimetersToPoints(0) j&[.2PW\  
        .RightIndent = CentimetersToPoints(0) mE^tzyh  
        .FirstLineIndent = CentimetersToPoints(0) Q;XHHk  
         W]D` f8r9  
        .CharacterUnitLeftIndent = 0 A2|o=mOH  
        .CharacterUnitRightIndent = 0 p~q_0Pg%  
        .CharacterUnitFirstLineIndent = 0 u@bOEcxK  
         AO}i@YJth  
        .LineUnitBefore = 0 ()C^ta_]  
        .LineUnitAfter = 0 YKe0:cWc  
    End With <a+eF}*2  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False Krr?`n  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll +# RlX3P  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese |c oEBFG  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True I*W9VhIOV  
    DoEvents 3 W-NS~y  
-S,ir  
    '目录项 a(ux?V)E.  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") E]H   
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" !/4V^H  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False 
l0caP(  
    With ActiveDocument.Styles("QLNU目录项").Font 1(?CNW[  
        .NameFarEast = "黑体" 1x\VdT  
        .NameAscii = "Times New Roman" W?^8/1U  
        .NameOther = "Times New Roman" n-y^7'v  
        .Name = "黑体"  ]~\SR0  
        .Size = 10.5 VX!Y`y^a  
        .Bold = False -?aw^du  
        .Italic = wdUndefined )-.Cne;n  
        .Underline = wdUnderlineNone ci,o8 [Y  
        .Color = wdColorAutomatic -.b Io  
        .Superscript = wdUndefined fmnRUN=  
        .Subscript = wdUndefined g \qL}:  
    End With +f\pk \Ith  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat BK(pJNBh  
         %on9C`/  
        .LineSpacingRule = wdLineSpaceSingle A&|Wvb=  
        .Alignment = wdAlignParagraphLeft xS~yH[k  
         hnsa)@  
        .WidowControl = False X40la_[.  
        .KeepWithNext = False =nvAOvP{?  
        .KeepTogether = False F9k I'<Q  
        .PageBreakBefore = False Q.9Ph ~  
        .NoLineNumber = False s3Krob`C5  
        .OutlineLevel = wdOutlineLevelBodyText kj{rk^x  
         ;WvYzd9  
        .LeftIndent = CentimetersToPoints(0) 5:l*Ib:s7  
        .RightIndent = CentimetersToPoints(0) fXu~69_  
        .FirstLineIndent = CentimetersToPoints(0) uXQ 7eXX  
         4>$ ;gH  
        .CharacterUnitLeftIndent = 0 xxLgC;>[  
        .CharacterUnitRightIndent = 0 J
calf{W6  
        .CharacterUnitFirstLineIndent = 0 KkdG.c'  
         Nxbd~^j  
        .LineUnitBefore = 0 MdVCD^B  
        .LineUnitAfter = 0 ^<>Jw%H  
    End With vn0cKz@  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False $kkp*3{ot  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll us\%BxxI9  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot A]Q1&qM%  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese {{.
sEi*  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True PTzp;.  
    DoEvents |5O >>a()  
     z;bH<cQ  
    '参考文献 vZ[$H  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") lPRdwg-  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" :7$\X[  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False .7pGx*WH^Y  
    With ActiveDocument.Styles("QLNU参考文献").Font nE]~E xr  
        .NameFarEast = "宋体" SRt$4EL21  
        .NameAscii = "Times New Roman" iHE0N6%q  
        .NameOther = "Times New Roman" (o x4K{  
        .Name = "Times New Roman" *R_'$+  
        .Size = 12 BrNG%
%n  
        .Bold = False %A)-m 69  
        .Italic = wdUndefined z"6ZDC6
 
        .Subscript = wdUndefined FXOT+9bg  
        .Superscript = wdUndefined {t844La"  
        .Underline = wdUnderlineNone Gut J_2f^9  
        .UnderlineColor = wdColorAutomatic RwAbIXG{0  
        .Color = wdColorAutomatic /<(*/P,>  
        .Engrave = False VY+(,\)U  
    End With Z:_m}Ya|  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat x{NNx:T1  
         e;A^.\SP  
        .LineSpacingRule = wdLineSpaceExactly ><;l:RGK|  
        .LineSpacing = 16 C.yY8?|  
        .Alignment = wdAlignParagraphLeft c
g(QjH"
  
        .WidowControl = False )Lc<;=w'9  
        .KeepWithNext = False +CnyK(V  
        .KeepTogether = False W{fULl  
        .PageBreakBefore = False f M Y;  
        .OutlineLevel = wdOutlineLevelBodyText 9N~8s6Ob  
         8!u/   
        .LeftIndent = CentimetersToPoints(0) F!OOrW]p0  
        .RightIndent = CentimetersToPoints(0) E8T"{ R80  
        .FirstLineIndent = CentimetersToPoints(0) `a9k! 3_L  
         1<LC8?wt  
        .CharacterUnitLeftIndent = 0 e9~cBG|  
        .CharacterUnitRightIndent = 0 \LO_Nu9  
        .CharacterUnitFirstLineIndent = -2 9RG\UbX)^|  
         =bs.2aN&^  
        .LineUnitBefore = 0 /h?<MI\7V  
        .LineUnitAfter = 0 #&^ZQs<  
        .SpaceBefore = 0 -
1jjB1  
        .SpaceAfter = 0 [{S;%Jj*X/  
         WF ?/GN  
    End With .sd B3x
 
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False -yX

.Jv  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll qDby!^ryc  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS ";wyNpb(  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True I@3Q=14k%  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese xa87xX=a  
    DoEvents $ZQlIJZ  
Tjnt(5 g  
    ' 
G$;>ueM  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") 8- dRdQu ]  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" ./"mn3U  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False [c&2i`C  
    With ActiveDocument.Styles("QLNU论文题目").Font l `fW{lh  
        .NameFarEast = "黑体" ,U6*kvHS6  
        .NameAscii = "Arial Black" tWpl`HH  
        .NameOther = "Arial Black" w1wXTt  
        .Name = "Arial Black" `pP9z;/Xq  
        .Size = 16 8w)e/*:j  
        .Bold = False _MM   
        .Italic = wdUndefined abM84EU  
        .Superscript = wdUndefined 8ivRp<9  
        .Subscript = wdUndefined BN+V,W  
        .Underline = wdUnderlineNone H|PrsGW  
        .UnderlineColor = wdColorAutomatic )^t!|*1LA  
        .Color = wdColorAutomatic La`h$=#`  
xGKfej9  
    End With R#Y50hzT  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat G_V.H\w  
        .LineSpacingRule = wdLineSpaceSingle jZXVsd  
        .Alignment = wdAlignParagraphCenter [ 3$.*   
        .WidowControl = True GN\8![J  
        .KeepWithNext = True t{_!Z(Rt5)  
        .KeepTogether = True 7*zB*"B'1t  
        .PageBreakBefore = True -'80>[}q/  
        .NoLineNumber = False g~~m'^  
        .OutlineLevel = wdOutlineLevelBodyText f!5F]qP>-  
         ixOEdQ  
        .LeftIndent = CentimetersToPoints(0) Q,zC_  
        .RightIndent = CentimetersToPoints(0) 7d3'CQQ4  
        .FirstLineIndent = CentimetersToPoints(0) ' 2>l  
         n=f`AmF;  
        .CharacterUnitLeftIndent = 0 -1Djo: y  
        .CharacterUnitRightIndent = 0 Z:I*y7V-  
        .CharacterUnitFirstLineIndent = 0 "#*
Nnt  
         %z(9lAe  
        .LineUnitBefore = 1 B }6Kd  
        .LineUnitAfter = 1 Px'R`1^  
         NNwc!x)*  
        .BaseLineAlignment = wdBaselineAlignAuto 9aTL22U?  
    End With ~k9O5S{  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False |WB"=PE  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll F|ETug n  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS ^[ET&"  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True 0(wf{5  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese Y{,2X~ 7  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True  qovQ9O  
    DoEvents j h; 9 [  
     &(gm4bTg  
    '中文摘要 `Jn,IDq  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") ,+~2&>wj  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" n4^*h4J7  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False 'b8R#R\P  
    With ActiveDocument.Styles("QLNU中文摘要").Font aQ&uC )w  
        .NameFarEast = "宋体" 6dF $?I&  
        .NameAscii = "Times New Roman" |kId8WtA  
        .NameOther = "Times New Roman" |}Q( F+cL  
        .Name = "Times New Roman" 3"5.eZSOW  
        .Size = 12 m'd^?Qc
 
        .Bold = wdUndefined W&<g} N+  
        .Superscript = wdUndefined D^|jZOJ  
        .Subscript = wdUndefined h]qT1(I  
        .Italic = wdUndefined SEYGy+#K  
        .Underline = wdUnderlineNone 3f_i1|>)'  
        .UnderlineColor = wdColorAutomatic +Qt[1Xq  
        .Color = wdColorAutomatic ]}'^`  
    End With a lrt*V|=  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat , ,S9$@R  
        .LineSpacingRule = wdLineSpaceExactly mRCHrw?WG  
        .LineSpacing = 20 Was'A+GZ  
        .Alignment = wdAlignParagraphLeft !]yQ1@)*'  
         zCBplb  
        .WidowControl = False DYX-5~;!  
        .KeepWithNext = False f:xUPH?+  
        .KeepTogether = True YZ0en1ly  
        .PageBreakBefore = False iDZrK%fl  
        .NoLineNumber = False i#k-)N _$  
        .OutlineLevel = wdOutlineLevelBodyText y $:yz;  
         ]x2Jpk99a  
        .LeftIndent = CentimetersToPoints(0) _HwpPRVP/  
        .RightIndent = CentimetersToPoints(0) _Aa[?2 O  
        .FirstLineIndent = CentimetersToPoints(0) l$M$o(  
         ,NDh@VYe  
        .CharacterUnitLeftIndent = 0 3a'q`.L  
        .CharacterUnitRightIndent = 0 3Q",9(D  
        .CharacterUnitFirstLineIndent = 2 >b'w'"  
        .LineUnitBefore = 0 G OpjRA@  
        .LineUnitAfter = 0 F@9Y\. ,  
         fVYiwE=F  
    End With ]5N zK=2{  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False 5)mVy?Z
  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll 9J?W '8s5  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS 9x(}F<L  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True Y=9j2 ]t  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese 3:UA<&=s  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True U M@naU  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete ?gLAWz  
    DoEvents Yr+d1(  
     *MI)]S  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") S9J5(lYv~N  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" ~]4kkm7Y  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False SWT:frki`  
    With ActiveDocument.Styles("QLNU英文标题").Font .vK.XFZ8R  
        .NameFarEast = "黑体" K<#-"Xe;  
        .NameAscii = "Arial Narrow" TaOOq}8c#  
        .Name = "Arial Narrow"  *.8JP  
        .Size = 16 WJAYM2 6\  
        .Bold = True IK3qE!,&U  
        .Bold = wdUndefined 9/G!0uE  
        .Superscript = wdUndefined L7m`HVCt &  
        .Subscript = wdUndefined ^+M><jE9  
        .Italic = wdUndefined A]j}'  
         7ZQ'h3K  
        .Underline = wdUnderlineNone 82|q7*M*.  
        .UnderlineColor = wdColorAutomatic Hr6wgYPi  
        .StrikeThrough = False `0?^[;[u[  
        .DoubleStrikeThrough = False }hCaNQ&jH  
    End With '|&,E#`  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat sW?B7o?  
        .LineSpacingRule = wdLineSpaceSingle Z9xR  
        .Alignment = wdAlignParagraphCenter [g+y_@9s  
        .WidowControl = True or7pJy%4"  
        .KeepWithNext = False $:e)$Xnn-  
        .KeepTogether = False <^Nk.E  
        .PageBreakBefore = False A';n6ne%i  
        .NoLineNumber = False s{ =5-:  
        .FirstLineIndent = CentimetersToPoints(0) H-Pq!9[DB  
        .OutlineLevel = wdOutlineLevelBodyText @LcT-3u  
         +5-]iKh  
        .LeftIndent = CentimetersToPoints(0) lj*8mS/;h  
        .RightIndent = CentimetersToPoints(0) W
Kxm9y V  
        .FirstLineIndent = CentimetersToPoints(0) :Dayv6g  
         $~=2{  
        .CharacterUnitLeftIndent = 0 Ae6("Oid  
        .CharacterUnitRightIndent = 0 Yq J]7V\  
        .CharacterUnitFirstLineIndent = 0 LP,9<&"<  
         v`SY6;<2  
        .LineUnitBefore = 1 Mm.Ql  
        .LineUnitAfter = 1 v~}5u 5$O  
         W<Z$YWr  
    End With A
eaPK  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False N#UXP5
C(  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll 9 Va40X1  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS rCE;'? Y  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True P% Q@9kO>  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese T Mww  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True -?5$ PH  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete qC..\{z  
    DoEvents WO
@H*  
*2=W5LaK.  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") iD<6t_8),  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" {
S*!B  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False jXWNHIl)@  
    With ActiveDocument.Styles("QLNU英文摘要").Font izf~w^/  
        .NameFarEast = "宋体" D M}s0O$0  
        .NameAscii = "Arial" -AC`q/bCD  
        .NameOther = "Arial" JR)/c6
j  
        .Name = "Arial" O~6Q;qP  
        .Size = 12 x<s|vgl|  
        .Bold = wdUndefined .EG*+,  
        .Italic = wdUndefined 7WP%J-   
        .Superscript = wdUndefined n$YE !D'  
        .Subscript = wdUndefined |Ytg  
    End With T/5"}P`  
     F@1d%c  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat )tD6=Iz^5  
         y:,9I`aW  
        .LineSpacingRule = wdLineSpaceExactly ~0ooRUWU7  
        .LineSpacing = 20 *> KHRR<N  
         Mn@$;\:  
        .Alignment = wdAlignParagraphJustify UWw}!1  
         tOM(U-7Z&  
        .WidowControl = False <BPRV> 0X  
        .KeepWithNext = False e/>:K' {  
        .KeepTogether = False wyzOcx>M  
        .PageBreakBefore = False YDFCGA  
        .NoLineNumber = False  ,gmH2.  
         &n|*uLn  
        .OutlineLevel = wdOutlineLevelBodyText q & b5g !  
         J\{$ot  
        .LeftIndent = CentimetersToPoints(0) [f/.!@sj  
        .RightIndent = CentimetersToPoints(0) T(V8;!  
        .FirstLineIndent = CentimetersToPoints(0) (Xo

SG  
         rrcwtLNbu  
        .CharacterUnitLeftIndent = 0 d=y0yq{L  
        .CharacterUnitRightIndent = 0 `L\)ahM  
        .CharacterUnitFirstLineIndent = 2 sPy2/7Wqd  
         w" JGO  
        .LineUnitBefore = 0 } L <,eV  
        .LineUnitAfter = 1 U` hfvTi  
         Fu%X  
    End With +]c}rWm  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False *NlpotW,f  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll On &L#pf  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS f05=Mc&)  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False 3Z1OX]R  
    DoEvents /EU; ?O  
-`Q}tg>cT  
    Options.Pagination = True J$QBI&D  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." l{5O5%\,  
    DoEvents Vho0eV=  
    ActiveDocument.Repaginate Gs_qO)~xo  
q^*6C[G B  
End Sub |sf*hlrJ  
'gDe3@ci!  
i3PKqlp.