Dim bContinue As Boolean (?|M'gZ  
f,cd =vGj  
Dim regEX As New RegExp aV'bI  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 M,]|L ch  
<giBL L!  
Dim LastTitle0String As String, LastTitle0No As Long v745FIy<  
Dim LastTitle1String As String, LastTitle1No As Long \~ D(ww  
Dim LastTitle2String As String, LastTitle2No As Long |:1{B1sqA  
Dim LastTitle3String As String, LastTitle3No As Long '[ {<aEo  
Dim LastTitle4String As String, LastTitle4No As Long ukSv70Ev  
Dim LastTitle5String As String, LastTitle5No As Long N;g@lyo  
Dim LastTabelString As String, LastTableNo As Long X/~uF9a'<  
Dim LastFigureString As String, LastFigureNo As Long xQu|D>kv87  
<=*
f  
Dim strSeperator As String Jbu2y'zE  
t@qf/1  
Sub ConvertWidth(fTEXT As String, rText As String) 4b2d (x)0X  
        Selection.Find.ClearFormatting 1D*=ZkA)  
        Selection.Find.Replacement.ClearFormatting eO!9;dJ  
        Selection.Find.Wrap = wdFindContinue uAn}qrqE9  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText ]y0Y(  
        DoEvents CQ!pt@|d  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True @L3XBV2  
End Sub 'I]XX==_  
YZg#H)w%  
Sub ClearDomain() p\w<~pN[  
        With Selection.Find +-!E%$
 
            .ClearFormatting AoS7B:T;!  
            .Replacement.ClearFormatting Q1,sjLO-a  
            .Wrap = wdFindContinue X2|~(*  
            Me.txtStatus.Text = "清除所有域代码" P1-eDHYw  
            DoEvents l ^lb ^"o  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False (I>Ch)'  
        End With Y$=jAN  
End Sub XIdh9)]^}  
~lw9sm*2v2  
Private Sub cmdCheck_Click() j]BRfA  
    bContinue = True [s(D==8  
    Dim NoSeries1(1 To 16) As String 5?7AzJl>  
    Dim NoSeries2(1 To 16) As String 7Z6=e6/\  
    Dim NoSeries5(1 To 16) As String jW'YQrj{<Y  
    Dim NoSeriesRM(1 To 16) As String ==dKC;  
    Dim paraTotal As Long, ParaText As String u.GnXuax  
    Dim ttString As String, ttNo As String DzAZv/h76  
     YMX9Z||  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long *&NP?-E  
CxFd/X,  
    Me.txtStatus.Visible = True RuPnWx!  
    Me.lbParaType.Visible = True F` U~(>u'  
    Me.cmdCheck.Enabled = False .e~"+Pe6b  
     HuevDy4  
     ` =>}*GS  
     $v0,)ALi  
     d
vB=Zk]m  
    Dim ParaType As String, rText As String entU+Or  
     #CC5+  
    Selection.WholeStory \R#SoOd  
    Selection.NoProofing = True [;u#79aE
 
     "?8)}
"/f  
    tm1 = Now %k!CjW3  
     ))"gWO  
        ActiveWindow.View.Type = wdNormalView AQ~ xjU  
     = s&Rk~2b/  
    NoSeries1(1) = "一" ;]dD\4_hK  
    NoSeries1(2) = "二" U)J 5K  
    NoSeries1(3) = "三" Qm%PpQ^Lz3  
    NoSeries1(4) = "四" 4ijtx)SA  
    NoSeries1(5) = "五" !zA@{gvEc  
    NoSeries1(6) = "六" 1$>+rW{a  
    NoSeries1(7) = "七" yKc-:IBb{u  
    NoSeries1(8) = "八" m@Z
#  
    NoSeries1(9) = "九" 'UX.Q7W  
    NoSeries1(10) = "十" c7e,lgG-  
    NoSeries1(11) = "十一" OEW'bT)  
    NoSeries1(12) = "十二" `z&#|0O  
    NoSeries1(13) = "十三" /WuYg OI  
    NoSeries1(14) = "十四" uZ+bo&  
    NoSeries1(15) = "十五" ']M/'CcM  
    NoSeries1(16) = "十六" PF%-fbh!~  
     :7v'[b  
    NoSeries2(1) = "㈠" 2e`}
O  
    NoSeries2(2) = "㈡" Met]|&  
    NoSeries2(3) = "㈢" 6_j |@  
    NoSeries2(4) = "㈣" |toP86  
    NoSeries2(5) = "㈤" _'=,c"  
    NoSeries2(6) = "㈥" U2 *ORd  
    NoSeries2(7) = "㈦" y{ur'**l  
    NoSeries2(8) = "㈧" (\AN0_  
    NoSeries2(9) = "㈨" JVc{vSa!rm  
    NoSeries2(10) = "㈩" N,(! 
 
     #EPC]jFk  
    NoSeries5(1) = "①" 9wvlR6z;u  
    NoSeries5(1) = "②" zPby+BP  
    NoSeries5(3) = "③" 0fsVbC  
    NoSeries5(4) = "④" L+am-k:T~  
    NoSeries5(5) = "⑤" 4zoQe>v~  
    NoSeries5(6) = "⑥" \Vyys[MMY8  
    NoSeries5(7) = "⑦" NAR6 q{c  
    NoSeries5(8) = "⑧" aFnel8  
    NoSeries5(9) = "⑨" AC, RS7  
    NoSeries5(10) = "⑩" (>al-vZ6A  
     or]v]*:~l  
     =Hi@q "  
    NoSeriesRM(1) = "I" qe0D[L  
    NoSeriesRM(2) = "II" ZVjB$-do  
    NoSeriesRM(3) = "III" Z8|<%1Kge  
    NoSeriesRM(4) = "IV" `/8@Fj  
    NoSeriesRM(5) = "V" 7~7L5PRW  
    NoSeriesRM(6) = "VI" *1)>He$qL  
    NoSeriesRM(7) = "VII" '75T2Ud  
    NoSeriesRM(8) = "VIII" vF72#BNs  
    NoSeriesRM(9) = "IX" WK{`_c U^  
    NoSeriesRM(10) = "X" SMN.AJ J  
    NoSeriesRM(11) = "XI" PYkhY;*  
    NoSeriesRM(12) = "XII" ~>u.d  
    NoSeriesRM(13) = "XIII" q/i2o[f'n  
    NoSeriesRM(14) = "XIV" bZnOX*y]  
    NoSeriesRM(15) = "XV" s3>a  
    NoSeriesRM(16) = "XVI" -#v~;Ci  
     H"A%mrb  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) 6nx\|F  
     y9:4n1fg  
    If i = vbNo Then ]fyfL|(;  
        Exit Sub =X$ieXq|  
    End If -k'<6op  
     hOj{y2sc  
    If Me.chkSuper.Value Then jq+(2  
        Me.txtStatus.Text = "检查修改所有的上标格式" y4^u&0}0$  
     z(|^fi(  
        CheckSuperScript yXJhOCa  
         `w@:h4f  
    End If fkV@3sj  
     9K+>;`  
    If Me.chkStyle.Value Then 7Uenr9)M  
        Me.txtStatus.Text = "设置样式，请稍候...." \@<7Vo,  
        DoEvents ~7]V^tG  
        CeateOrModifyStyle 86ao{l6lC  
    End If jI-a+LnEm  
     {r^_g(.q  
     \x<8   
     7N$2N!I(  
    ClearDomain ^6s im2  
         /fI}QY1  
     Ew8@{X y  
     Itl8#LpLM  
    If Me.chkLIST.Value Then eADCT  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" y'R}  
     Uj!3MF  
        ConvertListToOrdinary %8'8XDq^8  
    End If ?UXFz'  
     - x  
     fQ<sq0'e\  
    Dim pType As String, trimpTEXT As String +,Eam6g{  
    If Me.chkNum.Value = True Then m^A2 8X7  
        Me.txtStatus.Text = "转换全角数字形式为半角" [|(|"dh@^H  
        ConvertWidth "１", "1" ]M?i:A$B  
        DoEvents -,J<X\  
        ConvertWidth "２", "2" RN$vKJk  
        DoEvents t>j_C{X1(  
        ConvertWidth "３", "3" R<|\Z@z  
        DoEvents (5yM%H8:  
        ConvertWidth "４", "4" a'J0}j!  
        DoEvents j}+3+ 8D  
        ConvertWidth "５", "5" pjeNBSu6  
        DoEvents LF dvz0  
        ConvertWidth "６", "6" `^M ]|7  
        DoEvents AxEyXT(h5  
        ConvertWidth "７", "7" ? wS}'  
        DoEvents 5zl+M`  
        ConvertWidth "８", "8" &W<7!U:2m  
        DoEvents &jqaW2  
        ConvertWidth "９", "9" R/hf"E1  
        DoEvents 6h:QSVfx  
        ConvertWidth "０", "0" 3jx%]S^z|  
        DoEvents  E]V, @  
        ConvertWidth "ａ", "a" ?@64gdl wq  
        DoEvents `ecseBn3d  
        ConvertWidth "ｂ", "b" z*.AuEK?  
        DoEvents `|t,Uc|7!  
        ConvertWidth "ｃ", "c" ]Ry9{:  
        DoEvents Kd\0nf6  
        ConvertWidth "ｄ", "d" &YhAB\Rw  
        DoEvents _7c3=f83  
        ConvertWidth "ｅ", "e" j\y;~ V  
        DoEvents p Cz6[*kC  
        ConvertWidth "ｆ", "f" 8`4M
4"lj  
        DoEvents @C;1e 7  
        ConvertWidth "ｇ", "g" =KE7NXu]-  
        DoEvents JF=R$!5  
        ConvertWidth "ｈ", "h" vrs  
        DoEvents :qzg?\(  
        ConvertWidth "ｉ", "i" "hIYf7r##  
        DoEvents '/\  
        ConvertWidth "ｊ", "j" &[E\2 E  
        DoEvents IiYL2JS;t|  
        ConvertWidth "ｋ", "k" }lZEdF9GhG  
        DoEvents L}Z.FqJ  
        ConvertWidth "ｌ", "l" -U|c~Cqc  
        DoEvents 9CDei~   
        ConvertWidth "ｍ", "m" "HOZ2_(o  
        DoEvents X4;U4pU#  
        ConvertWidth "ｎ", "n" 6= ?0&Bx&  
        ConvertWidth "ｏ", "o" 3smk
Y  
        ConvertWidth "ｐ", "p" ]
!hjKu"  
        ConvertWidth "ｑ", "q" 2#wnJdr6E  
        ConvertWidth "ｒ", "r" I68u%fCv  
        ConvertWidth "ｓ", "s" )2f#@0SVL  
        ConvertWidth "ｔ", "t" ;UdM8+^/V]  
        ConvertWidth "ｕ", "u" }Fe~XO`  
        ConvertWidth "ｖ", "v" _"8n&=+  
        ConvertWidth "ｗ", "w" V DF
gu  
        ConvertWidth "ｘ", "x" T7[@ lMa?  
        ConvertWidth "ｙ", "y" E|O&bUMh  
        ConvertWidth "ｚ", "z" !:(+#  
        ConvertWidth "Ａ", "A" N,~O+  
        ConvertWidth "Ｂ", "B" ]N>ZOV,>  
        ConvertWidth "Ｃ", "C" [,=?e  
        ConvertWidth "Ｄ", "D" u0C:q`;z  
        ConvertWidth "Ｅ", "E" )V1X
L  
        ConvertWidth "Ｆ", "F" d4Uw+3ikW  
        ConvertWidth "Ｇ", "G" CK_dEh2c  
        ConvertWidth "Ｈ", "H" ^~4]"J};M  
        ConvertWidth "Ｉ", "I" >M<3!?fW)  
        ConvertWidth "Ｊ", "J" q;{(o2g  
        ConvertWidth "Ｋ", "K" (Y1*Bs[l  
        ConvertWidth "Ｌ", "L" DB vM.'b$  
        ConvertWidth "Ｍ", "M" 4_#$k{  
        ConvertWidth "Ｎ", "N" bWFa{W5!  
        ConvertWidth "Ｏ", "O" g"-j/ c  
        ConvertWidth "Ｐ", "P" 6
N/(cUXJ  
        ConvertWidth "Ｑ", "Q" ~f<']zXv  
        ConvertWidth "Ｒ", "R" Cfi{%,em  
        ConvertWidth "Ｓ", "S" =G-OIu+H!U  
        ConvertWidth "Ｔ", "T" [ 8Ohg  
        ConvertWidth "Ｕ", "U" oo'9ZE/%  
        ConvertWidth "Ｖ", "V" "K{_?M`;e  
        ConvertWidth "Ｗ", "W" 66=[6U9 *  
        ConvertWidth "Ｘ", "X" oW^b,{~V  
        ConvertWidth "Ｙ", "Y" 6)INr,d  
        ConvertWidth "Ｚ", "Z" Jqoo&T")  
        ConvertWidth "^l", "^p" 1/dL-"*0  
        ConvertWidth "（", "(" .$U,bE  
        ConvertWidth "）", ")" o}N@Q-i gq  
     [$y(>]~.  
    End If JPI%{@Qc^  
h&"9v~  
    With ActiveDocument L 8 P0bNi  
        Dim tbl As Table Q'<AV1<  
        For Each tbl In .Tables a&s34Pd  
            tbl.Rows.Alignment = wdAlignRowCenter 7[ ovEE54  
            tbl.Range.Font.NameFarEast = "楷体" 0=ws)@[I  
            tbl.Range.Font.NameAscii = "Times New Roman" ~ 'ZwD/!e  
            tbl.Range.Font.Size = 10.5 FXCBX:LnvU  
        Next =s\$i0A2  
        Set tbl = Nothing u8f\)m  
    End With ZFZ'&"+  
     *>m[ZJd%=  
     >S5J^c  
    With ActiveDocument z"@^'{.l  
         +k`L8@a3&  
        For i = 1 To .TablesOfContents.Count WjVBz   
            .TablesOfContents(i).Delete % km<+F=~  
        Next [LVXXjkFI  
         :H}iL*  
         mWviWHK  
         j0l,1=^>l  
        paraTotal = .Paragraphs.Count 0R?1|YnB  
        paraCounter = 1 ;,{_=n>  
         (UkP AE  
        LastTitle0No = 0 @c~Z0+Ji  
        LastTitle1No = 0 ~
j!n`#.\  
        LastTitle2No = 0 x@#>l8k?  
        LastTitle3No = 0 *yZ6"  
        LastTitle4No = 0 (4H\ho8+mp  
        LastTableNo = 0 |rx5O5p  
        LastFigureNo = 0 G(E1c"?  
          h.<f%&)F  
        Dim Sec As Long %\'=Y/yP  
          5%-{r&  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) fUw:jExz  
        If Sec = 0 Then h,LSqjf"  
            Exit Sub [$dVs16K  
        End If x^s,<G  
         U,rI/'  
        k = 0 t=%zY~P  
        Do While (paraCounter < paraTotal) And bContinue +d, ~h_7!  
            k = k + 1 (-C)A-Uo&  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then J6 ~Sr  
                Exit Do ^t0!Dbx3SE  
            End If C:Ef6ZW  
            paraCounter = paraCounter + 1 ( 5LCy?-6  
            If k Mod 20 = 0 Then M;A_'h?Z  
                Me.lbCounter.Caption = paraCounter jz!I +  
                DoEvents -}7$;QK&a  
            End If K^WDA]
)  
        Loop d9{lj(2P  
         {"o9pIh{~  
         1_Yx]%g<  
        Do While (paraCounter < paraTotal) And bContinue J/]%zwDwS  
             ]d
*9@+Iu  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) r8:r}Qj2w[  
            ShapeHeight = 0 }dc0ZRKgx  
            ShapeWidth = 0 yP"2.9\erH  
           p6JTNx
D  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth !W}sOK7#  
             gT}H B.  
            Select Case ParaType Nl\`xl6y]  
                Case "【】表格内容" #*(}%!rD*  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" Vgm*5a
6t  
                Case "章" @pH2"k| @  
                    LastTitle0No = LastTitle0No + 1 4"&-a1N  
                    '新一章开始，复位其下属标题编号 8xy8/UBIk0  
                    LastTitle1No = 0 '#Wx@  
                    LastTitle2No = 0 tZ]gVgZg  
                    LastTitle3No = 0 TXImmkC  
                    LastTitle4No = 0 XYU5.  
                     *Y>w0k  
                    k = Val(ttNo) .n\JY;"  
                    If k = 0 Then '非数字编号章节 6uE20O<z]  
                        If ttNo <> NoSeries1(LastTitle0No) Then D]~K-[V?l  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString @eYpARF  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText :zL)O  
                        End If &8IBf8  
                    Else CW1l;uwtU  
                        If Val(ttNo) <> LastTitle0No Then _S9)<RVI+  
                            rText = "第" & LastTitle0No & ttString "uH>S+%|b  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText LOUP  
                        End If Nm)3  
                         !2t7s96  
                    End If p4T$(]7  
                     )z L@h  
                    '章段落设置 ')jItje|  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 n/9afIN  
                    .Paragraphs(paraCounter).Style = "QLNU章节" o2fih%p?1  
                    .Paragraphs(paraCounter).Range.Select -Y_, .'ex  
                    Selection.EndKey unit:=wdLine &2ED<%hH`  
                    tc = Replace(rText, vbCr, "") BA\aV hmx  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False t$BjJ -G  
                Case "一级标题" {!Qu(%  
                    LastTitle1No = LastTitle1No + 1 F5?S8=i  
                    '新一级标题开始，复位其下属标题编号 yY VR]HH  
                    LastTitle2No = 0 fD!c t;UK  
                    LastTitle3No = 0 6A"$9sj6  
                    LastTitle4No = 0 J3yK^@&&  
                     c7mKE`  
                    If ttNo <> NoSeries1(LastTitle1No) Then Y"FV#<9@7E  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString s^u Y  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText eo+<@83  
                    End If ::Zo` vP  
                   B.N#9u-vW  
                     ~[CFs'`(2  
                    '一级标题段落设置  格式：一、标题内容 "#C2+S KM1  
                    .Paragraphs(paraCounter).Range.Text = rText 7xnj\9$m  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" Sz5t~U=G  
                    .Paragraphs(paraCounter).Range.Select 3?
o4  
                    Selection.EndKey unit:=wdLine N R c4*zQJ  
                    tc = Replace(rText, vbCr, "") M5#wz0  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False R3B+vLGX  
                Case "二级标题" 'lIs`Zc5N  
                    LastTitle2No = LastTitle2No + 1 oN032o?S  
                    '新二级标题开始，复位其下属标题编号 ` GF w?G  
                    LastTitle3No = 0 5>}$]d/o  
                    LastTitle4No = 0 6]7c
sOE  
                     Nh\vWAz9  
                    If ttNo <> NoSeries1(LastTitle2No) Then vr;`h/  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString xs= ~N  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText :FAPH8]  
                    End If 56AC%_ g>  
                     CX]1I|T5  
                    '二级标题段落设置 格式：(一)、标题内容 <rzP  
                    .Paragraphs(paraCounter).Range.Text = rText |~Dl<#58  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" qvn.uujYS  
                     rC8p!e.yL  
                    .Paragraphs(paraCounter).Range.Select tpWGmjfo>  
                    Selection.EndKey unit:=wdLine ox-m)z `7  
                    tc = Replace(rText, vbCr, "") &nEL}GM)E  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False G+dq */  
                 aUw-P{zp%  
                Case "三级标题" ]p!{   
                    LastTitle3No = LastTitle3No + 1 DI\=udN  
                    '新三级标题开始，复位其下属标题编号 LS~at.3zX  
                    LastTitle4No = 0 xsa`R^5/c  
                     wfo,r 7  
                    If Val(ttNo) <> LastTitle3No Then '| i?-( f)  
                            rText = LastTitle3No & ". " & ttString Z6I|Y5#H  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText oSCaP,P  
                         uj.i(Us  
                    End If vF^d40gV  
                    '三级标题段落设置 格式：1. 标题内容 W )FxN,  
                    .Paragraphs(paraCounter).Range.Text = rText 2cCiHEL#  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" sK2N3B&6  
                    .Paragraphs(paraCounter).Range.Select 9c^,v_W@  
                    Selection.EndKey unit:=wdLine wR%Ta-  
                    tc = Replace(rText, vbCr, "") v,<14w  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False =E9\fRGU  
                Case "四级标题" ImN'o4vo  
                    LastTitle4No = LastTitle4No + 1 Lt*P&  
                     %IsodtkDu  
                    If Val(ttNo) <> LastTitle4No Then /1OCK=  
                            rText = "(" & LastTitle4No & "). " & ttString =W
TSaC  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText PK]3uh  
                     J&8KIOz14Z  
                    End If J,}h{-Xy`  
                    '四级标题段落设置 格式：(1). 标题内容 &ijz'Sg3  
                    .Paragraphs(paraCounter).Range.Text = rText 8lusKww  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" m. pm,  
                    .Paragraphs(paraCounter).Range.Select _a$qsY  
                    Selection.EndKey unit:=wdLine N{%7O
G  
                    tc = Replace(rText, vbCr, "") w/|&N>ZOx  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False @!`__>K  
                 fo ~uI(
rk  
                Case "表格标题" 5Zq hyv=  
                    LastTableNo = LastTableNo + 1 ?.e,NHf  
                     |62` {+  
                    If ttNo <> CStr(LastTableNo) Then >.meecE?Q  
                            rText = "表" & LastTableNo & ". " & ttString v@qP &4Sp  
                            ErrMsg.AddItem "表格编号错误：" & ParaText `'1g>Ebk0  
                   c}(H*VY2n  
                    End If 8}|et~7!  
                     |5 V0_79  
                    '表格名称段落设置 格式：表1. 表格名称
Ty g>Xv  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" }n^Rcz6HeO  
                    xe = Replace(rText, vbCr, "") ` aVp#  
                    .Paragraphs(paraCounter).Range.Select E+]}KX:  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 $d*9]M4  
                    Selection.Range.Text = xe R'Jrbe|  
                    Selection.EndKey Im;%.J  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False kY)Vr3uGA  
                 HLWffO/  
                Case "表格首行" ?[JP[ qS  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" (d_z\U7l  
                Case "图片标题" NzgG77>  
                    LastFigureNo = LastFigureNo + 1 nH#>_R (  
                     S= 4o@3%$  
                    If ttNo <> CStr(LastFigureNo) Then yd;e;Bb7*  
                            rText = "图" & LastFigureNo & ". " & ttString Y- ao yoNS  
                            ErrMsg.AddItem "表格编号错误：" & ParaText wQSan&81Q  
                   Q^b&   
                    End If t6"%u3W8M  
                    '图片名称段落设置 格式：图1. 图名称 ;wwc;wQ'  
                    .Paragraphs(paraCounter).Range.Text = rText Yw|v5/>  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" KlT:&1SB9  
                    .Paragraphs(paraCounter).Range.Select A-!e$yz>  
                    Selection.EndKey unit:=wdLine w;lpJB\  
                    xe = Replace(rText, vbCr, "") M=iTwK  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False NWf=mrS8@$  
                Case "正文" z:\9t[e4  
                     '正文名称段落设置 &5 "!0  
                    .Paragraphs(paraCounter).Style = "QLNU正文" |.k'?!  
               Case "文献条目" i.mv`u Dm  
                    With .Paragraphs(paraCounter) >V6t
L;+  
                        '.Range.Select J5{;+ysUMl  
                        'Selection.ClearFormatting OjGI !  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” r `PJb5^\|  
                        .Style = "QLNU参考文献" %jL^sA2;c+  
                    End With c5ij2X|I  
               Case "图表注解" yCxYFi  
                    With .Paragraphs(paraCounter) IR-n: z  
                        .Range.Font.NameFarEast = "楷体" JI>Y?1i0O  
                        .Range.Font.NameAscii = "Times New Roman" JLu$1A@ '  
                        .Range.Font.Size = 9 '小5号字 l5D)UO  
                         }a;xs};X;  
                        .Alignment = wdAlignParagraphCenter g<Z :`00|  
                        .LeftIndent = 0 D40 vCax^J  
                        .RightIndent = 0 #Y=^4U`  
                        .FirstLineIndent = 0 Ll]5u~  
                        .LineSpacing = 12 Bve|+c6W  
                        .LineSpacingRule = wdLineSpaceExactly T]tP!a;K  
                        .LineUnitAfter = 0 81Z;hO"~  
                        .LineUnitBefore = 0 Cx TAd[az  
                        .OutlineLevel = wdOutlineLevelBodyText syw1Z*WK  
                        .PageBreakBefore = False \]>
YLyG  
                        .RightIndent = 0 1G Y
Z1iA  
                        .WordWrap = True L;3%8F\-.  
                        .LineUnitAfter = 0.5 P)vD?)Q  
                         t'U=K>7  
                    End With Fx^wV^q3  
                Case Else DP{nvsF  
                    '不作处理 phy}Hk/  
            End Select ji?Hw  
             e?W ,D0h  
            '含有inlineshape的段落处理 oh{>nwH  
            If ShapeHeight > 30 Then _w
KwiJs  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 9tHK_),9  
            End If w5>[hQR\  
             h ;*x1BVE  
            If (ShapeWidth + ShapeHeight) > 150 Then EJn]C=_(  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" RBQ8+^  
            End If F{x+1hct0  
             P<vl+&*  
            '段落计数器递 8

W  
            paraCounter = paraCounter + 1 ?oYO !  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter Ksx-Y"  
            Me.txtStatus.Text = ParaText NsB]f{7>8+  
            DoEvents 5_(\Cd<#  
        Loop xSud
DhRP  
    End With /S]$Hu|  
     Wj.t4XG!  
    msg = "" cKVFykwM  
     %5e|  
    For i = 0 To Me.ErrMsg.ListCount - 1 Z!g6uV+.5  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) ^*AI19w!Ys  
    Next *^-AOSVt,  
     l|.}>SfL^u  
     VlV X  
     ^+yz}YFM  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg lsax.uG5x  
    Me.cmdCheck.Enabled = True S70#_{  
    Me.txtStatus.Visible = True $9G& wH>{  
    Me.lbParaType.Visible = False  ;+~5XLk  
     "W(D0oy  
    bContinue = False s[8.
l35|  
End Sub h`6 (Oo|  
 I0 mp[6  
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) Z VXPp-M  
    Dim pTEXT As String )Q=u[ p  
     `0Udg,KOs  
    pTEXT = ChKRange.Text z"4 q%DC  
     V#Wy` ce  
    ParaType = "其它" *'?ZG/ (  
    TitleString = pTEXT
]o'o v
 
    TitleNo = "N/A" cy^=!EfA  
     9VW/Af  
    shpCounter = ChKRange.InlineShapes.Count k-ZO/yPo  
    If shpCounter <> 0 Then e* [wF}))  
        MaxShpHeight = 0: TotalShpWidth = 0 |.@!CqJ  
        For i = 1 To shpCounter :|bL2T@>[  
            k = ChKRange.InlineShapes(i).Height xeF>"6\  
            l = ChKRange.InlineShapes(i).Width uZld9u  
            If k > MaxShpHeight Then ) ^En  
                MaxShpHeight = k ` PARZ|  
            End If "}71z  
            TotalShpWidth = TotalShpWidth + l T 6D+@i  
        Next 'iW  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then aBC5?V*e%  
            Exit Sub BeUyt  
        End If &. =8Q?  
    End If wa[L[mw  
     5M>h[Q"R  
    '空行 TdPd8ig8{  
    If Len(pTEXT) <= 2 Then DXf  
        Exit Sub -@XSDfy7S  
    End If PSJj$bt;<+  
     9:2Bt <q  
         #aX#gh}1  
    '是否为表格中的文字 `Wx| 4  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then jG1(Oe;#  
        ParaType = "表格内容" ?;l@yx  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber)  vm! y2  
        If k = 1 Then *J4!+GD  
            ParaType = "表格首行" 2G8w&dtu  
        End If ]$g07 7o  
        Exit Sub af|h4.A  
    End If t~L4wr{B  
     )+L|<6JXA  
    '例外情况：脚注 /bykIUTKI  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then E`j' <#V!  
        ParaType = "脚注" 54p{J  
        Exit Sub <,:{Q75
  
    End If BvP\c_  
     :u7BCV|yr  
    '例外情况：尾注 @1oX&#  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then 0BXr[%{`  
        ParaType = "尾注" s",Ea*  
        Exit Sub N[cIr{XBGN  
    End If atZe`0  
     ^=x/:0  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then J|I*n  
        ParaType = "页眉页脚" ^;F/^_  
        Exit Sub p<
r^{y  
    End If S})f`X9_}  
     o<5`uV!f  
     '@Uu/~;h  
    With regEX .'`aX 7{\  
        .Global = True )1 -<v);  
         OkC.e')Vx  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" U$5x#{AFp  
        If regEX.Test(pTEXT) Then HVa D  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") 'u.Dt*.Uq  
            TitleString = regEX.Replace(pTEXT, "$3") %1 )c{7  
            TitleNo = regEX.Replace(pTEXT, "$1") OP\jO DX  
            ParaType = "章" x{;{fMN1  
            Exit Sub {]6-,/3UR  
        End If 7I ~O|Mw  
         Nk@-yZ@,8  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" B=OzP+  
        If regEX.Test(pTEXT) Then suQTi'K1  
            ParaType = "一级标题" }-tJ.3Zw  
            regEX.Execute (pTEXT) D
Cp8rvUI  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") -1dD~S$  
            TitleString = regEX.Replace(pTEXT, "$3") WHx#;  
            TitleNo = regEX.Replace(pTEXT, "$1") e[iv"|+  
            Exit Sub $TK*w8@:  
        End If 7>f2P!:  
         ;?{^LiD+F  
        '全角或半角括号中的数字 bhD-;Y!6;  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" ~B[e*|d  
        If regEX.Test(pTEXT) Then %fg6',2  
            ParaType = "二级标题" -;g
Qy[U  
            regEX.Execute (pTEXT) ?jR#txR  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") \~8W0q.4M  
            TitleString = regEX.Replace(pTEXT, "$5") (K[e=0Rf  
            TitleNo = regEX.Replace(pTEXT, "$2") x:-NTW -g  
            Exit Sub ~g!!#ad  
        End If /rpr_Xw}  
         s={>{,E  
        '阿拉伯数字  1. 2. N~]qQoj,  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" 6 5zx<  
        If regEX.Test(pTEXT) Then w!"A$+~  
            ParaType = "三级标题" 62ru%<x=  
            regEX.Execute (pTEXT) V ja 4WK*  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 4 Y=0>FlY0  
            TitleString = regEX.Replace(pTEXT, "$3") 4Wgzp51Aq!  
            TitleNo = regEX.Replace(pTEXT, "$1") i1x4$}  
            Exit Sub q
eMDC#N  
        End If Z=8&`  
         [.>=>KJ_  
        '全角或半角括号中的阿拉伯数字 m%.4OXX"&  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" ~+{*KPiD  
        If regEX.Test(pTEXT) Then K1X-<5]{  
            ParaType = "四级标题" x=H{Rv  
            regEX.Execute (pTEXT) =+_nVO*  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") X QLP|v;"  
            TitleString = regEX.Replace(pTEXT, "$5") /}1|'?P  
            TitleNo = regEX.Replace(pTEXT, "$2") PV\J] |d,%  
            Exit Sub B!mHO*g  
        End If P DY :?/  
          j)/Vtf  
        '表格名称 uNI&U7_"  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" rd&d~R6  
        If regEX.Test(pTEXT) Then |]<#![!h
#  
            ParaType = "表格标题" ;>2-  
            regEX.Execute (pTEXT) ,~cK]!:>s  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) ~ox}e(xy  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) P?q HzNGi7  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) 1)c{;x&W  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 fK:4jl-r  
            Exit Sub N?m)u,6-l  
        End If b; of9hY  
         z#!<[**&  
        '图片名称 IiniaVuQ  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" vFL$wr  
        If regEX.Test(pTEXT) Then I'IFBVhaYn  
            ParaType = "图片标题" te [uAJ1 N  
            regEX.Execute (pTEXT) jUE:QOfRib  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") ga|<S@u?}  
            TitleString = regEX.Replace(pTEXT, "$3") <N<0?GQ  
            TitleNo = regEX.Replace(pTEXT, "$1") J,,VKA&  
            Exit Sub n=j)M  
        End If (ORbhjl  
         Yp(0XP5o  
        '参考文献 IwYfs]-  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 g5#LoGc  
        If regEX.Test(pTEXT) Then 1M`>;fjYa  
            ParaType = "文献条目" J t.<Z&  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") ;uAh)|;S#  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") 7[=G;2<  
            Exit Sub SOG(&)b  
        End If ZNH-0mk  
         eTjPztdJbx  
        prfx = Left(pTEXT, 2) %! iqJ)*~  
        If prfx = "注：" Or prfx = "注:" Then Zsapu1HoL\  
            ParaType = "图表注解" !Fs$W  
            Exit Sub 5$+7Q$Gw  
        End If k% \;$u=%  
         {3KY:%6qj  
         o`,}b1lh  
        ParaType = "正文" :g$"Xc8Zn  
         t8Pf~v  
    End With ^n
Z=B>Yn2  
End Sub s:'>G;p  
mD> J,E  
Sub ConvertListToOrdinary() ]a.e;c-  
    Dim st As Paragraph 8L:AmpQdpA  
    With ActiveDocument PI L)(%
X  
        For i = .Paragraphs.Count To 1 Step -1 D)G oWt  
            Set st = .Paragraphs(i) U;3t{~Ym  
            lst = st.Range.ListFormat.ListString `=;}I@]zj)  
            If lst <> "" Then 9Avj\G  
                st.Range.ListFormat.RemoveNumbers A)~oD_ooQ  
                st.Range.InsertBefore lst & " " U{
dK8~  
            End If a4uy}@9z  
        Next xppnBnu$7  
    End With >3g`6d  
    Set st = Nothing LS*L XC  
End Sub $G <r2lPy  
W\j'8^kI9  
Private Sub UserForm_Activate() zW\a)~E  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" Q^< amM!  
    Me.lbTotal.Font.Bold = True L[44D6Vg  
    Me.txtStatus.Visible = False f'ld6jt|%  
    Me.cmdCheck.Enabled = True ~I N g9|  
VEa"^{,w  
End Sub .4ww5k>  
g:RS7od=,  
[BdRx`  
Sub CheckSuperScript() ]4B;M Ym*  
    Selection.Find.ClearFormatting o.Ww.F  
    Selection.Find.Replacement.ClearFormatting [&~x5l 8\C  
    With Selection.Find 9q0s  
        .Text = "[【\[［〖](*)[】\]〗］]" Mm,\e6#*  
        .Replacement.Text = "[\1]" j+'ua=T3  
        .Replacement.Font.Superscript = True kj|Oj+&  
        '.Replacement.Font.Color = wdColorBlue YCP D+  
        .Forward = True *# <%04f  
        .Wrap = wdFindContinue F ]X<q uuL  
        .FORMAT = True CSjd&G*ZB  
        .MatchCase = False 7> i
m2"zm  
        .MatchWholeWord = False >#n"r1  
        .MatchByte = False i<m) s$u  
        .MatchAllWordForms = False An>ai N
]  
        .MatchSoundsLike = False q;R&valn  
        .MatchWildcards = True m~;.k
c  
    End With EyR/  
    Selection.Find.Execute Replace:=wdReplaceAll \6GNKeN  
End Sub Wk^{Tn/]  
6{d?3Jk  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) {_W8Qm`.  
    bContinue = False +uF}mZS^  
    Set regEX = Nothing X`<z5W] !  
End Sub /Q9
Cvj)"  
ir}*E=*  
Sub CeateOrModifyStyle() _LgP  
' _=x*yDPG}  
' r[):'ys,C  
Dim stl As Style gjD|f2*x  
     :)Es]wA#HZ  
    Options.Pagination = False fiC0'4.,  
     vC]r1q.(  
    On Error Resume Next 6|Dtx5 "r  
    For Each stl In ActiveDocument.Styles tMd SdJ8  
        stl.Delete ;\pINtl9<  
    Next R%LFFMVn  
    On Error GoTo 0 |63uoRr  
     IA}vN3  
    Set stl = Nothing 7Z+Fjy-B  
     5fs,UH  
    DoEvents 6VQQI9  
    On Error Resume Next pno}`Cer  
     F+VNrt-  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph hc$m1lLn  
     i+QVs_jW  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph {pi_yr 3  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph C<C^7-5  
     7gLk~*  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph q%k&O9C2]  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph w)K547!00  
     1r4NP  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph kqZRg>1A  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph PC"=B[OlJ  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph UazK0{t<f  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph !m=Js"  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph ~Ih` ayVq  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph 8|= c3Z  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph 3,Z;J5VL4!  
     IW@ xT@  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph @f A|y  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph C3.]dsv:  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph 8S#&XS>o  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph XRM/d5  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph +(`D'5EB(  
     V4u4{wU]  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph G \a`F'Oo  
    On Error GoTo 0 '%_K"r
b  
    DoEvents HQF@@  
     Qd~7OH4Lp  
    'BaseStyle QgH{J80  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False "Cvr("'O  
    With ActiveDocument.Styles("BaseStyle").Font yL<u>S0  
        .NameFarEast = "宋体" ^Rl?)_)1HE  
        .NameAscii = "Times New Roman" |j/Y#.k;{0  
        .NameOther = "宋体" }'{"P#e8"q  
        .Size = 10.5 %q r,Ssa/  
        .Bold = wdUndefined zGme}z;1@  
        .Italic = wdUndefined 731RqUR  
        .Subscript = wdUndefined YG?4DF  
        .Subscript = wdUndefined i.K!;E>  
         bCTN^  
        .Underline = wdUnderlineNone Xa-TNnws?  
        .UnderlineColor = wdColorAutomatic 2T%sHp~qt  
        .StrikeThrough = False [ZG>FJDl8  
        .DoubleStrikeThrough = False NG\'Ii:-J  
         f3vl=EA4|  
        .Outline = False NH5sV.vvc  
        .Emboss = False \ eba9i^  
        .Shadow = False N DI4EA~z  
        .Hidden = False eo;MFd%;  
        .SmallCaps = False ?~sNu k  
        .AllCaps = False $uwz`N:  
        .Color = wdColorAutomatic D0 q42+5  
        .Engrave = False 08AD~^^  
        .Scaling = 100 -1$z=,q'  
        .Kerning = 1 FW2x  
        .Animation = wdAnimationNone _8SB+s*  
        .DisableCharacterSpaceGrid = False ])
v61B  
        .EmphasisMark = wdEmphasisMarkNone c#
u_%*  
    End With g<DXJ7o  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat F`F|.TX  
        .LeftIndent = 0 |gk4X%o6  
        .RightIndent = 0 _ZJQE>]nWu  
        .SpaceBefore = 0 "I pbR  
        .SpaceBeforeAuto = False d/+s-g p  
        .SpaceAfter = 0 lV3k4iRH  
        .SpaceAfterAuto = False OP=oSfa  
         uDcs2^2l  
        .LineSpacingRule = wdLineSpaceSingle %Y/;jCY  
        .Alignment = wdAlignParagraphJustify Fw
KY;^`!d  
         ?|oN}y"i  
        .WidowControl = False >sAaLR4  
        .KeepWithNext = False Bk~lM'  
        .KeepTogether = False ZJFF4($qN  
        .PageBreakBefore = False ,. ht ~AE  
        .NoLineNumber = False Q|VBH5}1O  
         (,mV6U%  
        .FirstLineIndent = CentimetersToPoints(0) fGH
)Fgo`  
        .OutlineLevel = wdOutlineLevelBodyText g;q.vHvsc"  
        .CharacterUnitLeftIndent = 0 usKP9[T$  
        .CharacterUnitRightIndent = 0 1DU l<&4  
        .CharacterUnitFirstLineIndent = 0 iVVR$uzhH  
        .LineUnitBefore = 0 um<$L  
        .LineUnitAfter = 0 %#EzZD  
        .AutoAdjustRightIndent = True A3HNMz  
        .DisableLineHeightGrid = True 2u0B=0x  
         a_\
7Ho$^  
        .FarEastLineBreakControl = True U7fNA7#x"  
        .WordWrap = True AL&<SxuP  
        .Hyphenation = False s LDEa  
         '9qyf<MlY  
        .HangingPunctuation = True s
AjUX.c  
        .HalfWidthPunctuationOnTopOfLine = True -d2)  
        .AddSpaceBetweenFarEastAndAlpha = True e&A3=a~\s  
        .AddSpaceBetweenFarEastAndDigit = True GaJE(N  
        .BaseLineAlignment = wdBaselineAlignBaseline 4!3<[J;N;  
    End With Pec40g:#F  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False f]sR4mhO  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll :|&6x!  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese $t6t 6<M)  
    ActiveDocument.Styles("BaseStyle").NoProofing = False |" b|Q  
     SMd[*9l [  
    '一级标题题样式 8Bc2?NI=   
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 18kWnF]n=  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" V2;Nv\J\  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False [ (3 %$?[  
    With ActiveDocument.Styles("QLNU一级标题").Font <%|u1cn~!v  
        .NameFarEast = "黑体" gDw(_KC  
        .NameAscii = "Arial Black" Pktnj
dFV  
        .NameOther = "黑体" ,9F3~Ryt(  
        .Name = "黑体" U0|bKU  
        .Size = 16              '三号 KqBiF]Q  
        .Bold = True qUg/mdv&  
        .Italic = wdUndefined ())_4 <  
        .Subscript = wdUndefined yI!W658$6  
        .Superscript = wdUndefined -ciwIS9L  
    End With I"8Z'<|/\q  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat @^# 9N!Fj]  
         [P6A$HC<  
        .LeftIndent = CentimetersToPoints(0) {w,^Z[<  
        .RightIndent = CentimetersToPoints(0) Jp8,s%  
        .FirstLineIndent = CentimetersToPoints(0) J?E!\V&U  
         TR ` C|TV>  
        .LineSpacingRule = wdLineSpaceSingle n Jz*}=  
        .Alignment = wdAlignParagraphCenter Z,-TMtM7  
         s/3sOb}sA  
        .WidowControl = True ' m<L}d  
        .KeepWithNext = True
SN7_^F  
        .KeepTogether = True 4__HH~j?Q  
        .OutlineLevel = wdOutlineLevelBodyText EronNtu8i  
         Q?>*h xzoP  
        .LineUnitBefore = 0.5 'U GgY3  
        .LineUnitAfter = 0.5 5>H&0>
\  
    End With wsR\qq  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False cYOcl-*af  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll -IDhK}C&T  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese ,DCUBD u&  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True N!tNRMTi  
    DoEvents WU/5i 8  
     S@ y! 0,  
    '二级 MCXt,`}[  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 23+JuXC6>  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" 39~WP$GM  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False cF iTanu  
    With ActiveDocument.Styles("QLNU二级标题").Font VY|UB7,C  
        .NameFarEast = "黑体" Dl\0xcE
  
        .NameAscii = "Arial Narrow" XCgC^c'  
        .NameOther = "黑体" D4@(_6^  
        .Name = "黑体" )\W}&9 >  
        .Size = 15        '小三号 8A*tpMV?J
 
        .Bold = False ]|IeE!6  
        .Outline = False LF(S"Of  
        .Italic = wdUndefined fI.X5c>WK  
        .Subscript = wdUndefined "cOBEhn%l  
        .Superscript = wdUndefined 3c:fYE  
    End With 6%o@!|=I  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat P $r!u%W  
        .LeftIndent = CentimetersToPoints(0) KAT"!b  
        .RightIndent = CentimetersToPoints(0) ljg6uz1v%  
        .FirstLineIndent = CentimetersToPoints(0) nc.P  
         n(n7"+B  
        .LineSpacingRule = wdLineSpaceSingle QD-Bt=S7l  
        .Alignment = wdAlignParagraphLeft Fy>g*3  
         l r~>!O  
        .WidowControl = True 6aAN8wO;b  
        .KeepWithNext = True :a=]<_*x  
        .KeepTogether = True :2b*E`+  
        .PageBreakBefore = False 3EA_-?  
        .OutlineLevel = wdOutlineLevelBodyText )5x$J01S  
         V6Of(;r  
        .LineUnitBefore = 0.5 Un+- T  
        .LineUnitAfter = 0.5 iP9Dr<P  
         PKGqu,J,  
    End With hsK(09:J
 
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False E1A5<^t  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll W3X;c*j  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese hO$29_^"  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True 4VA]S  
    DoEvents UpiZd/K  
     Y '}c$*OkI  
    '三级标题样式 R&'Mze fb  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") f7%g=0.F  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" FELW?Q?k  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False jC-`u-_'j  
    With ActiveDocument.Styles("QLNU三级标题").Font )"00fZL  
        .NameFarEast = "宋体" _jVJkg)]  
        .NameAscii = "Times New Roman" :^x,>(a  
        .NameOther = "黑体" nAsc^Yh  
        .Name = "黑体" G 8tK"L C  
        .Size = 14               '四号 20A:,pMb  
        .Bold = False  -l"8L;`  
        .Outline = False ,6A/| K-  
        .Italic = wdUndefined @}%kSn5y:  
        .Subscript = wdUndefined '&]6(+I>  
        .Superscript = wdUndefined hig t(u  
    End With 27F:-C~.9  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat mndEB!b  
        .LeftIndent = CentimetersToPoints(0) x;4m@)Mu  
        .RightIndent = CentimetersToPoints(0) e&mTaCLG  
        .FirstLineIndent = CentimetersToPoints(0) &Ci_wDJ   
         # ?u bvSdU  
        .LineSpacingRule = wdLineSpaceSingle ILHn~d IC  
        .Alignment = wdAlignParagraphLeft N>@.(f&w  
          =wl0  
        .WidowControl = True An BM*5G  
        .KeepWithNext = True $M|vIw{#  
        .KeepTogether = True (5RZLRn  
        .PageBreakBefore = False #m'+1 s L  
        .OutlineLevel = wdOutlineLevelBodyText lZ,$lZg9Z  
          |>Pv2  
        .CharacterUnitLeftIndent = 0 SS;'g4h\6  
        .CharacterUnitRightIndent = 0 dVJ9cJ9^  
        .CharacterUnitFirstLineIndent = 2 sBE@{w%  
         !_&;#j](  
        .LineUnitBefore = 0.5 1 "1ElH  
        .LineUnitAfter = 0 CF+:v(NL  
    End With mm |*  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False K$$%j"s
 
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll zHW &i~  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese Xs2B:`,hh  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True 9q
^7%b,  
    DoEvents |c2;`T#`o  
     `y1,VY  
    '四级标题样式 1u* (=!   
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") (d[JMO^@8  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" x ;]em9b  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False 6fT^t!<i  
    With ActiveDocument.Styles("QLNU四级标题").Font Hjy4tA7,l  
        .NameFarEast = "宋体" 5YiBPB")  
        .NameAscii = "Times New Roman" "(a}}q 9-  
        .NameOther = "宋体" #hEU)G'$+  
        .Name = "宋体" X pT})AV  
        .Size = 12               '小四号 Y~OyoNu2  
        .Bold = True RS7J~Q  
        .Outline = False hg `N`O  
        .Italic = wdUndefined ?Xp+5{  
        .Subscript = wdUndefined d%1Vby  
        .Superscript = wdUndefined NVDv
d6  
    End With 7P52r  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat w#sP5qKv8  
         6U]"i
 
        .LeftIndent = CentimetersToPoints(0) hLyV'*}  
        .RightIndent = CentimetersToPoints(0) z+?48}  
        .FirstLineIndent = CentimetersToPoints(0) t.7_7`bin~  
         HDhG1B"NL  
        .LineSpacingRule = wdLineSpaceSingle ;|CG9|p
 
        .Alignment = wdAlignParagraphLeft uVw|jj  
         Ez>!%Hpn\  
        .WidowControl = True ><)fK5x  
        .KeepWithNext = True <FvljKuq+  
        .KeepTogether = True l-'\E6grdH  
        .PageBreakBefore = False j2#B l  
        .OutlineLevel = wdOutlineLevelBodyText _<)HFg6  
         z)*\njYe  
        .CharacterUnitLeftIndent = 0 49B6|!&I  
        .CharacterUnitRightIndent = 0 O(T6Y80pU  
        .CharacterUnitFirstLineIndent = 2 OJLyqncw  
         uF T5Z  
        .LineUnitBefore = 0 mldY/;-H!1  
        .LineUnitAfter = 0 &([Gc+"5E.  
         _b[Pk;8}j;  
    End With ("J_< p  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False 3cFvS[JG  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll &KeD{M%  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese sDy~<$l?  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True c{/KkmI  
    DoEvents pzDz@lAwR  
     SsIN @  
    '正文校式 :*Z@UY   
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") * \tR  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" NV3oJ0f&2  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False K$ |!IXs  
    With ActiveDocument.Styles("QLNU正文").Font :-b-)*TC;  
         .zdmUS:  
        .NameFarEast = "宋体" M[&p[ P@  
        .NameAscii = "Times New Roman" H4e2#]*i7  
        .NameOther = "宋体" Wp=&nh  
        .Name = "宋体" x=44ITe1n[  
         wq#'o9s,  
        .Size = 12               '小四号 Z^yn S  
         ~rbJtz  
        .Bold = wdUndefined leJ3-w{ 2  
        .Italic = wdUndefined sO&eV68 [  
        .Subscript = wdUndefined c=IjR3F  
        .Superscript = wdUndefined Mwd.S  
         #pMpGw$  
        .Outline = False M3q7{w*bM  
        .Emboss = False
WQY\R!+  
        .Shadow = False oeG?2!Zh  
        .Hidden = False i,$n
4  
         jx];=IC3tt  
        .DisableCharacterSpaceGrid = True !p70g0+  
    End With m^a0JR}u9  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat ze#ncnMo  
         YZ5[#E@l  
        .LeftIndent = CentimetersToPoints(0) ]8XIw`:f  
        .RightIndent = CentimetersToPoints(0) V8z*mn
D  
        .FirstLineIndent = CentimetersToPoints(0) Q".p5(<  
         @<p9O0  
        .LineSpacingRule = wdLineSpaceExactly ^}hSs
E  
        .LineSpacing = 20 '\LU 8VC  
        .Alignment = wdAlignParagraphLeft <kWNx.eci  
         Ua>.k|>0  
        .WidowControl = False 3;EBKGg|  
        .KeepWithNext = False %VgK::)r  
        .KeepTogether = False V5d|Lpm  
        .PageBreakBefore = False n,|YJ,v[  
        .Hyphenation = False JU-eoB}m  
         :,MI,SwnS  
        .OutlineLevel = wdOutlineLevelBodyText z-h7v5i"  
         l8N5}!N  
       z&A#d  
        .CharacterUnitLeftIndent = 0 bKPjxN?!9  
        .CharacterUnitRightIndent = 0 A@I3:V  
        .CharacterUnitFirstLineIndent = 2 Um I,
?p  
         G4,BcCPQ  
        .LineUnitBefore = 0 EaN^<  
        .LineUnitAfter = 0 g_MxG!+(V  
        .SpaceBefore = 0 8X=2# &)  
        .SpaceAfter = 0 <``krPi  
         z~yLc{M  
        .DisableLineHeightGrid = True yTU'voE.|  
    End With 4' <y  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False (FNX>2Mv  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll a~`,zQ -@  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese BlfW~l'mx  
    ActiveDocument.Styles("QLNU正文").NoProofing = True (7}Zh|@W  
    DoEvents ?B:],aztf  
     5ZHO+@HiFH  
    '图片段落样式 fH;lh-  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") :j% B(@b  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" ]+AgXUrbOD  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False E&|EokSyN  
    With ActiveDocument.Styles("QLNU图片段落").Font yI$MqR  
        .Size = 12               '小四号 ;HjT  
        .Italic = wdUndefined eLop}*k  
        .Subscript = wdUndefined _v=zFpR  
        .Superscript = wdUndefined 6NzS<  
    End With >tV:QP]Y  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat AKKVd% P(  
         U{-[lpd  
        .LeftIndent = CentimetersToPoints(0) *(Us:*$W.  
        .RightIndent = CentimetersToPoints(0) q&EwD(k  
        .FirstLineIndent = CentimetersToPoints(0) @-}!o&G0  
         'J#uD|9)  
        .LineSpacingRule = wdLineSpaceSingle 6)#%36rP  
        .Alignment = wdAlignParagraphCenter \&%y4=y<sE  
        .KeepWithNext = True HAMps[D[  
        .OutlineLevel = wdOutlineLevelBodyText >4AwjS}H  
         PAy7b7m~B  
        .CharacterUnitLeftIndent = 0 >qynd'eToR  
        .CharacterUnitRightIndent = 0 P,SI0$Z  
        .CharacterUnitFirstLineIndent = 0 <p8>"~R  
         VV=6v;u`  
        .LineUnitBefore = 0 aW$))J)0  
        .LineUnitAfter = 0 0,[-4m  
    End With 8HH\wu$$e  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False ;Q%3WD  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll b]5S9^=LI  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese ;F>I+l_X  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True R2nDK7j  
    DoEvents %Z#[{yuFs  
     0:k MnHn\  
     ,koG*sn  
    '第X章 w'!J  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") SrSm%Dv  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" *uZ'MS  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False ;WsV.n  
    With ActiveDocument.Styles("QLNU章节标题").Font M9sB2Ips <  
        .NameFarEast = "黑体" >U')ICD~  
        .NameAscii = "Arial Black" ~Uaz;<"j0  
        .NameOther = "Arial Black"  [IW6F  
        .Name = "黑体" #h7$b@  
        .Size = 16 <fcw:Ae  
        .Bold = True B7BikxUa  
        .UnderlineColor = wdColorAutomatic <=!|U0YV  
        .Outline = False Dlu]4n[LB  
        .Italic = wdUndefined k.w}}78N2N  
        .Subscript = wdUndefined =`BPGfCb  
        .Superscript = wdUndefined zH?&FtO  
        .Scaling = 100 ]7_O#MY1  
        .DisableCharacterSpaceGrid = True
pB0Do6+{  
    End With 9 kS;_(DB  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat !fG`xZ~  
        .LineSpacingRule = wdLineSpaceSingle -;o`(3wZq  
        .Alignment = wdAlignParagraphCenter 3 p9LVa  
        .WidowControl = True >oc&hT  
        .KeepWithNext = True 2/FH9T;e".  
        .KeepTogether = True wi-{&  
        .PageBreakBefore = True 7)v`l1  
        .OutlineLevel = wdOutlineLevelBodyText aOo;~u2-=  
         %p.hwgvnp  
        .LeftIndent = CentimetersToPoints(0) vpqMKyy  
        .RightIndent = CentimetersToPoints(0) Jl^THoEL  
        .FirstLineIndent = CentimetersToPoints(0) Nx4X1j?-n  
         u:O6MO9^  
        .CharacterUnitLeftIndent = 0 &5;y&dh  
        .CharacterUnitRightIndent = 0 z`rW2UO#a`  
        .CharacterUnitFirstLineIndent = 0 U-:_4[
 
        
gT4H? #UB  
        .LineUnitBefore = 1
W/I D8+:i  
        .LineUnitAfter = 0.5 |oJ R+  
         lIL{*q(  
        .AutoAdjustRightIndent = False h}(GOYS)  
        .DisableLineHeightGrid = True Y@M l}43  
        .FarEastLineBreakControl = True TGQDt|+Z  
        .WordWrap = True U})Z4>[bvt  
    End With i"C?6R
 
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False N&+DhKw  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll p9$=."5  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese de?lO;8  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True &>o?0A6  
    DoEvents HA%r
:Px  
     z[ N_3n  
    '表格标题 834dsl+U  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") q5(Z   
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" wKs-<b%;  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False f@= lK?Pfh  
    With ActiveDocument.Styles("QLNU表格标题").Font TA
Nt*r7  
        .NameFarEast = "楷体" 0_5j(  
        .NameAscii = "Arial" _79 ?,U]  
        .Name = "楷体" @](\cT64i3  
        .Size = 10.5 @IwVR  
        .Bold = True  <E&"]  
        .Underline = wdUnderlineNone 4'-GcH  
        .Italic = wdUndefined H)&pay  
        .Subscript = wdUndefined " ^:$7~%bA  
        .Superscript = wdUndefined 2wG4"  
        .Color = wdColorAutomatic Zr@
G  
    End With lEv<n6:_  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat }]?U. ]-  
         `` mi9E  
        .LineSpacingRule = wdLineSpaceSingle hFWK^]~ a  
        .Alignment = wdAlignParagraphCenter ]&/KAk  
        .KeepWithNext = True #>byP?)n  
        .KeepTogether = True BHBMMjY5  
        .OutlineLevel = wdOutlineLevelBodyText y[@<goT  
         0NWtu]9QC  
        .LeftIndent = CentimetersToPoints(0) k@= LR  
        .RightIndent = CentimetersToPoints(0) E$84c+  
        .FirstLineIndent = CentimetersToPoints(0) #T8$NZA  
         -#?p16qz5  
        .CharacterUnitLeftIndent = 0 7Y(ySW  
        .CharacterUnitRightIndent = 0 mh8~w~/[  
        .CharacterUnitFirstLineIndent = 0 g?caE)  
         tqo!WuZAj  
        .LineUnitBefore = 1 We*)RXm%  
        .LineUnitAfter = 0 |K6hY-uC  
         -"e$ VB  
    End With Yl6\}_h`  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False pu* vFwZ  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll A/"p PO  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese RDu'N  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True qP0_#l&   
    DoEvents \V,;F!*#G  
B>&eciY  
    '表格首行 ,o)U9<  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") ku}I;k |  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False Q35/Sp[;x  
    With ActiveDocument.Styles("QLNU表格首行").Font hq^@t6!C\m  
        .NameFarEast = "楷体" \aO.LwYm;:  
        .NameAscii = "Times New Roman" \LS+.bp%  
        .Name = "楷体" 8Q Gj:3  
        .Size = 9 nu#_,x<LS  
        .Bold = True |E)IJj 3  
        .Underline = wdUnderlineNone 'qg q8  
        .Italic = wdUndefined UPkD^
D,  
        .Subscript = wdUndefined s GP}>w-JZ  
        .Superscript = wdUndefined /RmHG H!  
    End With R'q:Fc  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat Soa5TM  
        .LineSpacingRule = wdLineSpaceSingle R?Or=W)i  
        .Alignment = wdAlignParagraphCenter [oQ&}3\XJ  
         ' {:Yg3K  
        .LeftIndent = CentimetersToPoints(0) jHx<}<  
        .RightIndent = CentimetersToPoints(0) cAE.I$T(  
        .FirstLineIndent = CentimetersToPoints(0) W}5H'D   
         ;|LS$O1c  
         8HLcDS#  
        .CharacterUnitLeftIndent = -0.5 h7S&tW GU  
        .CharacterUnitRightIndent = -0.5 sR. ecs+  
        .CharacterUnitFirstLineIndent = -0.5 .1F^=C.w  
         q:1_D>  
        .LineUnitBefore = 0 pMX#!wb  
        .LineUnitAfter = 0 61J01(+|  
        .SpaceBefore = 0 5Y8/ZW~D0  
        .SpaceAfter = 0 AQ 5CrYb  
         6A& f  
    End With o= %Fh
 
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False e[@q{.  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll q(yw,]h]{  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese emV@kN.  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True  ,JcQp=g  
    DoEvents "kjjq~l  
I!;#Nk>  
    '表格内容 L_rKV oKjt  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") e1RtoNF^  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False F W# S.<  
    With ActiveDocument.Styles("QLNU表格内容").Font  o2ndnIL  
        .NameFarEast = "楷体" Pl }dA  
        .NameAscii = "Times New Roman" Xx0}KJq~"  
        .Name = "楷体" +0O{"XM  
        .Size = 9 O$%C(n(  
        .Bold = False 4JHFn [%  
        .Underline = wdUnderlineNone }hFjl4`xa  
        .Italic = wdUndefined \8!&XcA  
        .Subscript = wdUndefined ya'@AJS  
        .Superscript = wdUndefined ),-4\!7  
    End With " =W7=V8w  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat 7n~BDqT  
        .LineSpacingRule = wdLineSpaceSingle Ir*,fyl  
        .Alignment = wdAlignParagraphCenter RkJ\?  
         
}>:x  
        .LeftIndent = CentimetersToPoints(0) @:. 6'ji,`  
        .RightIndent = CentimetersToPoints(0) uj-q@IKe  
        .FirstLineIndent = CentimetersToPoints(0) ^J>jU`)CJ  
         n8M/Y}mH  
        .CharacterUnitLeftIndent = -0.5 khb Gyg%  
        .CharacterUnitRightIndent = -0.5 4565U  
        .CharacterUnitFirstLineIndent = -0.5 *s6MF{Ds  
        .LineUnitBefore = 0 ?~aM<rcZ  
        .LineUnitAfter = 0 %XqLyeOS  
        .SpaceBefore = 0 9 0[gXj  
        .SpaceAfter = 0 -< 7KW0CA  
    End With I$neE"wW  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False tp.qh]2c  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll WbS2w @8  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese ,diV;d  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True wo[W1?|s  
    DoEvents ud`.}H~aB  
i%W,Y8\uf*  
    '图片标题 %
&"_=Lc  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ` m`Sl[
6  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" h<9h 2  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False iw(\]tMt  
    With ActiveDocument.Styles("QLNU图片标题").Font .JpYZ |  
        .NameFarEast = "楷体" OX?9 3AlG  
        .NameAscii = "Times New Roman" q
b ^4G  
        .Name = "楷体" 1Ly?XNS  
        .Size = 10.5 Z<|caT]Q(  
        .Bold = True y)v'0q  
        .Underline = wdUnderlineNone qfY.X&]PU  
        .Italic = wdUndefined x c-= ;|s  
        .Subscript = wdUndefined U"xI1fg%b  
        .Superscript = wdUndefined 'C~NQ{1TV  
        .Outline = False dxkXt  k  
        .Shadow = False [j5^Zb&0  
        .Color = wdColorAutomatic i)0*J?l=  
    End With MWCP/~>a2  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat I@ch 5vl4  
        .LineSpacingRule = wdLineSpaceSingle nYuZg6K  
        .Alignment = wdAlignParagraphCenter 3Nh;^  
         u+zq:2)H6  
        .KeepWithNext = wdUndefined x]k^JPX  
        .KeepTogether = True xnu|?;.}!  
        .OutlineLevel = wdOutlineLevelBodyText }b YiyG\  
         Ox&g#,@h  
        .LeftIndent = CentimetersToPoints(0) A;h0BQ
m/j  
        .RightIndent = CentimetersToPoints(0) HFx8v!^5N  
        .FirstLineIndent = CentimetersToPoints(0) } tU<RvT  
         3yXF| yV  
        .CharacterUnitLeftIndent = 0 T"Wq:  
        .CharacterUnitRightIndent = 0 7;n'4LIa9  
        .CharacterUnitFirstLineIndent = 0 Z$,1Tk"O/s  
          -[a0\H  
        .LineUnitBefore = 0 S{z%Q  
        .LineUnitAfter = 0 "$#x+|PyC  
    End With r! 5C3  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False z1LATy  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll f$k#\=2%  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese _SC>EP8:Z  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True eR8qO"%2:  
    DoEvents CPGXwM=   
=? xA*_^  
    '目录项 1H@GwQ|<=  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") h2KXW}y"4  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" =?57*=]0M  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False &K`[SX=  
    With ActiveDocument.Styles("QLNU目录项").Font Gr#p QE2;  
        .NameFarEast = "黑体" -)?~5 Z   
        .NameAscii = "Times New Roman" Vd|5JA}<"  
        .NameOther = "Times New Roman" 5RT
AM  
        .Name = "黑体" +6f5uMKUvs  
        .Size = 10.5 >U9!KB  
        .Bold = False /wCeeG,<  
        .Italic = wdUndefined r}QW!^F  
        .Underline = wdUnderlineNone P!m~tu}B  
        .Color = wdColorAutomatic a7q-*%+d5  
        .Superscript = wdUndefined 8@/]ki`>  
        .Subscript = wdUndefined Xig+[2zS  
    End With 2u6N';jgZ  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat tGD$c BE  
         ^$_a_ft#  
        .LineSpacingRule = wdLineSpaceSingle /v;g v[  
        .Alignment = wdAlignParagraphLeft ~?6V-m{>#  
         iYv6B6o/99  
        .WidowControl = False o)?"P;UhJX  
        .KeepWithNext = False 0sq/_S  
        .KeepTogether = False [(`T*c.#.X  
        .PageBreakBefore = False bs]ret$?(q  
        .NoLineNumber = False /,= wP)  
        .OutlineLevel = wdOutlineLevelBodyText q!<`ci,uS  
         T{|'<KT  
        .LeftIndent = CentimetersToPoints(0) (>>pla^  
        .RightIndent = CentimetersToPoints(0) S
]1+tj  
        .FirstLineIndent = CentimetersToPoints(0) qEf)TW(  
         x-Z`^O  
        .CharacterUnitLeftIndent = 0 cCU'~  
        .CharacterUnitRightIndent = 0 f b_tda",}  
        .CharacterUnitFirstLineIndent = 0 *Yvfp{B  
         }<&g1x'pa  
        .LineUnitBefore = 0 X<(h)&E  
        .LineUnitAfter = 0 788q<7E  
    End With :H\6wJ  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False d Z"bc]z{  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll r,MgIv(L  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot Os8]iNvW\  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese bK("8T\?  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True #0L:h?L  
    DoEvents `
/]8C&u  
     _>A])B ^  
    '参考文献 ,US~p_M!  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") 4I ^6[{_  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" Z[AJat@H  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False VPn#O  
    With ActiveDocument.Styles("QLNU参考文献").Font : Ot\l  
        .NameFarEast = "宋体" t22BO@gt74  
        .NameAscii = "Times New Roman" rg_-gZl8&z  
        .NameOther = "Times New Roman" KE16BjX@  
        .Name = "Times New Roman" kd 'qYh  
        .Size = 12 xvjHGgWSxc  
        .Bold = False =}r&>|rrJ  
        .Italic = wdUndefined j>?H^fB  
        .Subscript = wdUndefined /43DR;4  
        .Superscript = wdUndefined [gzw<b: `  
        .Underline = wdUnderlineNone 8+ B.x  
        .UnderlineColor = wdColorAutomatic cWp n/.a  
        .Color = wdColorAutomatic Gr?"okaA  
        .Engrave = False UY{ Uo@k9x  
    End With N!"GwH  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat ?GD{}f33  
         \p@,+ -gX  
        .LineSpacingRule = wdLineSpaceExactly 0tn5>Dsk  
        .LineSpacing = 16 rgIJ]vmy<H  
        .Alignment = wdAlignParagraphLeft }PyAmh$@  
        .WidowControl = False 8o4<F%ot  
        .KeepWithNext = False 9T|7edl  
        .KeepTogether = False X'jEI{1w  
        .PageBreakBefore = False g=b[V   
        .OutlineLevel = wdOutlineLevelBodyText o|l)oc6{  
         @w6^*Z_hQ  
        .LeftIndent = CentimetersToPoints(0) cdP+X'Y4D  
        .RightIndent = CentimetersToPoints(0) v2EM| Q xp  
        .FirstLineIndent = CentimetersToPoints(0) ~@B
V  
         Y: KB"H  
        .CharacterUnitLeftIndent = 0 Zu\#;O   
        .CharacterUnitRightIndent = 0 .(CzsupY_q  
        .CharacterUnitFirstLineIndent = -2 O`t ]#  
         ILF
"m;  
        .LineUnitBefore = 0 k'%c|kx8U  
        .LineUnitAfter = 0 C+r--"Z  
        .SpaceBefore = 0 7x-k-F3  
        .SpaceAfter = 0 +2B{"Czm  
         .XURI#b  
    End With '_r|L1  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False <s+=v!  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll U`:#+8h-}  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS `W?aq]4x5  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True A~I}[O~(pb  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese ^67P(h  
    DoEvents >|@ /GpD  
]v94U b  
    ' `z5j  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") IDE@{Dy  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" !&E>8h  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False uTP=kgYqJ  
    With ActiveDocument.Styles("QLNU论文题目").Font ?*, N ?s(U  
        .NameFarEast = "黑体" lUCdnp;w'  
        .NameAscii = "Arial Black" +Z$X5Th  
        .NameOther = "Arial Black" YV{^S6M  
        .Name = "Arial Black" [JMz~~F  
        .Size = 16 @/anJrt  
        .Bold = False y @Y@"y  
        .Italic = wdUndefined IOTHk+ w  
        .Superscript = wdUndefined 4p>@UB&U  
        .Subscript = wdUndefined kZ`60X%w
E  
        .Underline = wdUnderlineNone )/bt/,M&}  
        .UnderlineColor = wdColorAutomatic 5 ;dg#hO  
        .Color = wdColorAutomatic 8DLR  
: [aUpX=  
    End With XV%L6x  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat \~jt7 Q  
        .LineSpacingRule = wdLineSpaceSingle Lkk'y
})/  
        .Alignment = wdAlignParagraphCenter 4=F~^Xc`  
        .WidowControl = True YZpF*E;6t  
        .KeepWithNext = True c !P9`l~MQ  
        .KeepTogether = True t }nZr
D  
        .PageBreakBefore = True e
d4T_O;  
        .NoLineNumber = False ?)4|WN|c_  
        .OutlineLevel = wdOutlineLevelBodyText r]BB$^@@V  
         1xM&" p:  
        .LeftIndent = CentimetersToPoints(0) $
CL=M  
        .RightIndent = CentimetersToPoints(0) qdZn9i  
        .FirstLineIndent = CentimetersToPoints(0) }#EiL !Pv  
         #5G!lbH  
        .CharacterUnitLeftIndent = 0 fgn*3 pg  
        .CharacterUnitRightIndent = 0 X"iy.@7  
        .CharacterUnitFirstLineIndent = 0 e#kPf 'gL  
         jc Ie<i;  
        .LineUnitBefore = 1 3{d1Jk/S  
        .LineUnitAfter = 1 N<Y-]xS  
         NO`a2HR$  
        .BaseLineAlignment = wdBaselineAlignAuto ,!%[CpM3  
    End With Ez<J+#)t  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False G0> 'H1Z  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll a/L?R Uu  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS 'n!;7*  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True r^#.yUz  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese 39"8Nq|e  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True a/_ sL(F{  
    DoEvents 1ZhJ?PI,9{  
     j*W]^uT,  
    '中文摘要 4w]u: eU  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle")  A{5k}  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" {U^mL6=&v  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False W1r-uR  
    With ActiveDocument.Styles("QLNU中文摘要").Font 7ou2SL}k  
        .NameFarEast = "宋体" 1#]tCi`  
        .NameAscii = "Times New Roman" (M.Sl  
        .NameOther = "Times New Roman" ?PyI#G   
        .Name = "Times New Roman" 4y 582u6^  
        .Size = 12 zMtK_ccQ  
        .Bold = wdUndefined [^ 7^&/0  
        .Superscript = wdUndefined rS(693kb  
        .Subscript = wdUndefined X?4
tOsd  
        .Italic = wdUndefined A8c'CMEm  
        .Underline = wdUnderlineNone \e'>$8%T  
        .UnderlineColor = wdColorAutomatic 
QE<63|  
        .Color = wdColorAutomatic <po(7XB  
    End With f} }Bb8  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat ?$-OdABXHK  
        .LineSpacingRule = wdLineSpaceExactly ]Z<{ ~  
        .LineSpacing = 20 _QY0j%W  
        .Alignment = wdAlignParagraphLeft uZmfvMr3  
         2 c8,H29  
        .WidowControl = False x*BfR j  
        .KeepWithNext = False e *;"$7o9  
        .KeepTogether = True lOd[
8|/  
        .PageBreakBefore = False ^x4,}'(  
        .NoLineNumber = False ':o.vQdJ  
        .OutlineLevel = wdOutlineLevelBodyText ^>g+:?x  
         x3wyIio*  
        .LeftIndent = CentimetersToPoints(0) 1vl~[  
        .RightIndent = CentimetersToPoints(0) JkQ4'$:  
        .FirstLineIndent = CentimetersToPoints(0) *|euC"5c  
         v{?9PRf\s  
        .CharacterUnitLeftIndent = 0 oPzt1Y  
        .CharacterUnitRightIndent = 0 BR5$;-7W  
        .CharacterUnitFirstLineIndent = 2 fB  
        .LineUnitBefore = 0 ,@Ed)Zoh  
        .LineUnitAfter = 0 ;EL!TzL:8  
         5IdmKP|  
    End With qZ_^#%zO  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False zFB$^)v"<  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll 3eI:$1"Q  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS YfxZ<  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True tBrd+}
e2*  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese |P5?0{  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True 7OC,KgJ3  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete 68 -I2@&  
    DoEvents eSa ]6  
     2R2Z6}  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") xOTm-Cm9L  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" _6=6 b!hD  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False db.iMBki  
    With ActiveDocument.Styles("QLNU英文标题").Font mjBX a  
        .NameFarEast = "黑体" ^Y #?@  
        .NameAscii = "Arial Narrow" /:yKa=$  
        .Name = "Arial Narrow" m&2<?a}l  
        .Size = 16 bG.aV#$FIg  
        .Bold = True `jP\*k`~]  
        .Bold = wdUndefined $`l- c
SH;  
        .Superscript = wdUndefined <-}6X  
        .Subscript = wdUndefined "p2PZ)|  
        .Italic = wdUndefined ,"j|0Q  
         C +y:<oo)  
        .Underline = wdUnderlineNone &~$^a1D6  
        .UnderlineColor = wdColorAutomatic 8{Zgvqbb  
        .StrikeThrough = False ix7N q7!N  
        .DoubleStrikeThrough = False :Q?xNY%  
    End With [R A=M  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat bmt2~!  
        .LineSpacingRule = wdLineSpaceSingle \zj8| +  
        .Alignment = wdAlignParagraphCenter %0:  (''  
        .WidowControl = True rf)\: 75  
        .KeepWithNext = False &h4(lM  
        .KeepTogether = False Z"e|DP`  
        .PageBreakBefore = False n]9y Cr  
        .NoLineNumber = False qr<5z. %  
        .FirstLineIndent = CentimetersToPoints(0) ) I-8.  
        .OutlineLevel = wdOutlineLevelBodyText 'ky'GzX,  
         %\r4c*O1q  
        .LeftIndent = CentimetersToPoints(0) lpSM p  
        .RightIndent = CentimetersToPoints(0) *QjFrw 3  
        .FirstLineIndent = CentimetersToPoints(0) (O&ooM* o  
         J]N-^ld\\  
        .CharacterUnitLeftIndent = 0 o5Pq>Y2T  
        .CharacterUnitRightIndent = 0 _4%+TN6z  
        .CharacterUnitFirstLineIndent = 0 .f(x9|K^  
         HpNf f0c  
        .LineUnitBefore = 1 8 A%)m  
        .LineUnitAfter = 1 Eg  w?  
         K +w3YA  
    End With ,a5I:V^\  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False 5zfaqt`  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll (U$ F) 7  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS RMLs(?e  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True {CQA@p:Y}  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese *(o~pxFTR  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True s'} oVx]  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete pw- C=MY]  
    DoEvents _5.7HEw>/  
q7m-} mBN~  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") Q4c>gds`  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" $stJ+uh  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False -fG;`N5U  
    With ActiveDocument.Styles("QLNU英文摘要").Font zJdlHa{  
        .NameFarEast = "宋体" #@y4/JS&2  
        .NameAscii = "Arial" lg1?g)lv  
        .NameOther = "Arial" D_@r_^}  
        .Name = "Arial" p(U'c}@2
 
        .Size = 12 n6L}#aZG  
        .Bold = wdUndefined r%_)7Wk*  
        .Italic = wdUndefined 93o}vy->  
        .Superscript = wdUndefined h7*fjw-Xz[  
        .Subscript = wdUndefined eT}c_h)  
    End With n!3_%K0!r&  
     \n:'>:0X!  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat tOp>OoD  
         q ,}W.
 
        .LineSpacingRule = wdLineSpaceExactly
5^0W
\  
        .LineSpacing = 20 4\Q ?4ZX  
         WnUYZ_+e!  
        .Alignment = wdAlignParagraphJustify #G9S[J=xe  
         aQinR "o  
        .WidowControl = False ]'T-6  
        .KeepWithNext = False 7z F29gC  
        .KeepTogether = False +uv]d
D*i  
        .PageBreakBefore = False GW`9SB  
        .NoLineNumber = False q\mVZyj  
         o1I{^7/  
        .OutlineLevel = wdOutlineLevelBodyText Mg^GN-l  
         8b|&  
        .LeftIndent = CentimetersToPoints(0) LRB#|PW  
        .RightIndent = CentimetersToPoints(0) Y}nE/bmx&9  
        .FirstLineIndent = CentimetersToPoints(0) #W!@j"8eK  
         `;QpPSw+  
        .CharacterUnitLeftIndent = 0 NsWyxcty  
        .CharacterUnitRightIndent = 0 M@8 <^CK  
        .CharacterUnitFirstLineIndent = 2 BhdJ/C^  
         ir%/9=^d  
        .LineUnitBefore = 0 H$1R\rE`  
        .LineUnitAfter = 1 wCn W]<+  
         Zroj-3-X~  
    End With M K~viSgi  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False L6 h
Tz'  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll u4#BD!W  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS e:!&y\'"9  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False a7OD%yQ  
    DoEvents FS1<f:  
0QEVL6gw  
    Options.Pagination = True #Q$9Eq8"[  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." 9Z rWG  
    DoEvents g-Z>1V  
    ActiveDocument.Repaginate |*OS;FD5  
in#g  
End Sub m./lrz  
=wI,H@  
 R:i7Rb2C