Dim bContinue As Boolean BudWbZ5>Ep  
JW%/^'  
Dim regEX As New RegExp T)Zt'M  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 -M>K4*%K  
p'%: M  
Dim LastTitle0String As String, LastTitle0No As Long CNpe8M=/3  
Dim LastTitle1String As String, LastTitle1No As Long J^g,jBk  
Dim LastTitle2String As String, LastTitle2No As Long uku}Mr"p  
Dim LastTitle3String As String, LastTitle3No As Long z7@(uIl=X  
Dim LastTitle4String As String, LastTitle4No As Long GOZQ5m -  
Dim LastTitle5String As String, LastTitle5No As Long WK_y1(v>  
Dim LastTabelString As String, LastTableNo As Long  ENYF0wW  
Dim LastFigureString As String, LastFigureNo As Long FQ_%)Ty2  
%g]$Vfpy  
Dim strSeperator As String ;5Wx$Yfx  
"3Xv%U9@  
Sub ConvertWidth(fTEXT As String, rText As String) B::4Qme  
        Selection.Find.ClearFormatting :uIi ?  
        Selection.Find.Replacement.ClearFormatting ,yM}]pwlB  
        Selection.Find.Wrap = wdFindContinue 7$1fy0f[l  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText i>]<*w  
        DoEvents bU:}ZO^S  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True _']%qd"%  
End Sub 94p:|5@  
oXQ< 9t1(  
Sub ClearDomain() I", &%0ycm  
        With Selection.Find veX"CY`hn  
            .ClearFormatting ni"$[8U  
            .Replacement.ClearFormatting  [`hE^chd  
            .Wrap = wdFindContinue e0~sUVYf  
            Me.txtStatus.Text = "清除所有域代码" k binf  
            DoEvents 6m-:F.k1(  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False %eutfM-?6  
        End With zU4V^N'  
End Sub f- k|w%R@  
ax72ehL}  
Private Sub cmdCheck_Click() c+Q.?vJ  
    bContinue = True 0U~;%N+lv  
    Dim NoSeries1(1 To 16) As String i!1ho T$  
    Dim NoSeries2(1 To 16) As String d Y:|Ef|v(  
    Dim NoSeries5(1 To 16) As String u^aFj%}]L  
    Dim NoSeriesRM(1 To 16) As String 56bud3CVs  
    Dim paraTotal As Long, ParaText As String %EJ\|@N:  
    Dim ttString As String, ttNo As String ]e@0T {!  
     *
793H \  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long {w |dM#  
{;Y 89&*R  
    Me.txtStatus.Visible = True hr_9;,EPh  
    Me.lbParaType.Visible = True _X,[]+ziu%  
    Me.cmdCheck.Enabled = False E
,<\T6/%q  
     $
IxU6=ajn  
     7|+|\7l#  
     L= :d!UF  
     mX<Fuu}E*Z  
    Dim ParaType As String, rText As String ~$&:NB1~q  
     +&7[lsD*  
    Selection.WholeStory m{bZRkt  
    Selection.NoProofing = True w PG1P'w;  
     PkPDVv  
    tm1 = Now w'oo-.k  
     c|\ZRBdI  
        ActiveWindow.View.Type = wdNormalView F}6DB*  
     J0ZxhxX35  
    NoSeries1(1) = "一" (b/A|hl  
    NoSeries1(2) = "二" N"Qg\PS_  
    NoSeries1(3) = "三" wQD0vsD  
    NoSeries1(4) = "四" gnQo1q{ 4  
    NoSeries1(5) = "五" Yo~LckFF  
    NoSeries1(6) = "六" eq@am(#&kY  
    NoSeries1(7) = "七" rP^TN^bd|  
    NoSeries1(8) = "八" ;t;Y.*&=S  
    NoSeries1(9) = "九" G%P>Ag  
    NoSeries1(10) = "十" @)W(q5)}9"  
    NoSeries1(11) = "十一" VxkCK02k  
    NoSeries1(12) = "十二" =9qGEkd3  
    NoSeries1(13) = "十三" PcHSm/d0e  
    NoSeries1(14) = "十四" M# \ <  
    NoSeries1(15) = "十五" u0bfX,e2U  
    NoSeries1(16) = "十六" %1-K);SJ  
     BR& Aq  
    NoSeries2(1) = "㈠" N|!MO{sB  
    NoSeries2(2) = "㈡" A9\]3 LY  
    NoSeries2(3) = "㈢" v"P&`1=T  
    NoSeries2(4) = "㈣" fBf4]^  
    NoSeries2(5) = "㈤" W_[|X}lWP  
    NoSeries2(6) = "㈥" F`Dg*O  
    NoSeries2(7) = "㈦" &v5G92  
    NoSeries2(8) = "㈧" KP[NuXA`  
    NoSeries2(9) = "㈨" ]6$,IKE7  
    NoSeries2(10) = "㈩" heE}_, $|  
     j4~7akG  
    NoSeries5(1) = "①" 54q4CagFq  
    NoSeries5(1) = "②" 8)^B32  
    NoSeries5(3) = "③" HE#,(;1i  
    NoSeries5(4) = "④" V=j-Um;  
    NoSeries5(5) = "⑤" +Dx1/I  
    NoSeries5(6) = "⑥" ||-nmOy  
    NoSeries5(7) = "⑦" K3vse
or  
    NoSeries5(8) = "⑧" YG0PxZmi  
    NoSeries5(9) = "⑨" z-EwXE  
    NoSeries5(10) = "⑩" ..t, LU@|  
     X,C*qw@  
     nS_Ta  
    NoSeriesRM(1) = "I" Vq3gceo'0A  
    NoSeriesRM(2) = "II" _BZ1Vnv  
    NoSeriesRM(3) = "III" GVmC }>z  
    NoSeriesRM(4) = "IV" &8[ZN$Xe"  
    NoSeriesRM(5) = "V" kzZDtI)  
    NoSeriesRM(6) = "VI" G(U9rJ9  
    NoSeriesRM(7) = "VII" KQG-2oW  
    NoSeriesRM(8) = "VIII" qP~WEcH`[  
    NoSeriesRM(9) = "IX" @s_3 0+  
    NoSeriesRM(10) = "X" 1R0ffP]  
    NoSeriesRM(11) = "XI" G'ij?^?  
    NoSeriesRM(12) = "XII" U@Z>/ q  
    NoSeriesRM(13) = "XIII" w)+wj[6 E  
    NoSeriesRM(14) = "XIV" NFk}3w
:  
    NoSeriesRM(15) = "XV" yfmp$GO:  
    NoSeriesRM(16) = "XVI" ?PBa'g  
     403[oOj  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) >5) <Uv$  
     uh]"(h(>  
    If i = vbNo Then 0HGlf  
        Exit Sub  f~w>v  
    End If +hE',i.  
     BdN8 ^W  
    If Me.chkSuper.Value Then j$3rJA%rN  
        Me.txtStatus.Text = "检查修改所有的上标格式" {Ge+O<mD  
     FJP< bREQ  
        CheckSuperScript yJ!OsD  
         @Ii-NmOr  
    End If )v[XmJ>H~o  
     21r== H$  
    If Me.chkStyle.Value Then :P3{Nxa  
        Me.txtStatus.Text = "设置样式，请稍候...." j|:dYt`WM  
        DoEvents 2O eshkE  
        CeateOrModifyStyle ShQ|{P9  
    End If PG{i,xq_B{  
     "j{i,&Y$_  
     y }\r#"Z`  
     =43I1&_   
    ClearDomain xK(IS:HJ*  
         \HAJ\9*w)  
     K&=D-50%  
     ze`1fO|%  
    If Me.chkLIST.Value Then >T<6fpXuk2  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" q@(1Yivk  
     Zy^=fM  
        ConvertListToOrdinary YEzU{J  
    End If 7;&(}  
     n;wwMMBM  
     ` ^DjEdUN  
    Dim pType As String, trimpTEXT As String +'%@!  
    If Me.chkNum.Value = True Then f|OI`  
        Me.txtStatus.Text = "转换全角数字形式为半角" `E@kFJ(<On  
        ConvertWidth "１", "1" ^:`oP"%-T  
        DoEvents Z&_y0W=t  
        ConvertWidth "２", "2" QE|`&~sme
 
        DoEvents cAD[3b[Gk  
        ConvertWidth "３", "3" otO j^xU  
        DoEvents aF!Ex  
        ConvertWidth "４", "4" tAF]2VV(e  
        DoEvents 'It?wB W  
        ConvertWidth "５", "5" m#tpbFAsc  
        DoEvents et=7}K]l  
        ConvertWidth "６", "6" vxZg &SRK  
        DoEvents 8zY)J#  
        ConvertWidth "７", "7" =I2
@/,  
        DoEvents n-DaX kK  
        ConvertWidth "８", "8" 3KSpB;HX  
        DoEvents ?w-1:NWjt  
        ConvertWidth "９", "9" R (G2qi  
        DoEvents sf(iE(o  
        ConvertWidth "０", "0" |,b2b2v?  
        DoEvents AXs=1 e  
        ConvertWidth "ａ", "a" z~,mR
gc$B  
        DoEvents \V,c]I   
        ConvertWidth "ｂ", "b" $9K(F~/  
        DoEvents tQWWgLM  
        ConvertWidth "ｃ", "c" U4BqO :sd  
        DoEvents ipobr7G.SD  
        ConvertWidth "ｄ", "d" Yu'a<5f  
        DoEvents [F+(^- (  
        ConvertWidth "ｅ", "e" 4'',6KJ@  
        DoEvents 74+A+SK[  
        ConvertWidth "ｆ", "f" cJCU*(7&  
        DoEvents C,/O   
        ConvertWidth "ｇ", "g" B`
fH^N  
        DoEvents \)OEBN`9#  
        ConvertWidth "ｈ", "h" o\Uu?.-<  
        DoEvents 5F2_ xH$5  
        ConvertWidth "ｉ", "i" jpRBER_X  
        DoEvents #%:c0=  
        ConvertWidth "ｊ", "j" SxJ$
b  
        DoEvents w5 `#q&?  
        ConvertWidth "ｋ", "k" Z7fg 25  
        DoEvents iv*V#J>  
        ConvertWidth "ｌ", "l" sYJL-2JX  
        DoEvents owvS/"@  
        ConvertWidth "ｍ", "m" .u l 53 m  
        DoEvents #ly@;!M  
        ConvertWidth "ｎ", "n" `H\)e%]  
        ConvertWidth "ｏ", "o" }Z\wH*s`  
        ConvertWidth "ｐ", "p" &iNwvA%9D  
        ConvertWidth "ｑ", "q" "+)K |9T#  
        ConvertWidth "ｒ", "r" >!L&>OOx  
        ConvertWidth "ｓ", "s" OsQkA2=  
        ConvertWidth "ｔ", "t" CK0l9#g  
        ConvertWidth "ｕ", "u" d+;gw*_Ei  
        ConvertWidth "ｖ", "v" .wmnnvtl,  
        ConvertWidth "ｗ", "w" 8'A72*dhX  
        ConvertWidth "ｘ", "x" K/txD20 O|  
        ConvertWidth "ｙ", "y" afHaB/t{R  
        ConvertWidth "ｚ", "z" [$pmPr2  
        ConvertWidth "Ａ", "A" (9 sIA*,}  
        ConvertWidth "Ｂ", "B" ciudRK63M  
        ConvertWidth "Ｃ", "C" 9Hd;353Q  
        ConvertWidth "Ｄ", "D" >{C\H.N  
        ConvertWidth "Ｅ", "E" UUeB;'E+  
        ConvertWidth "Ｆ", "F" re^Hc(8M  
        ConvertWidth "Ｇ", "G" B:< ]Hl$  
        ConvertWidth "Ｈ", "H" Q$~n/  
        ConvertWidth "Ｉ", "I" {CtR+4KD  
        ConvertWidth "Ｊ", "J" yhpz5[AuO  
        ConvertWidth "Ｋ", "K" LvcuZZ`1a  
        ConvertWidth "Ｌ", "L" WF2NG;f=  
        ConvertWidth "Ｍ", "M" w&Y{1rF>  
        ConvertWidth "Ｎ", "N" ]ab#q=  
        ConvertWidth "Ｏ", "O" >O#grDXb  
        ConvertWidth "Ｐ", "P" E V2 )  
        ConvertWidth "Ｑ", "Q" Tkw;pb  
        ConvertWidth "Ｒ", "R" 2?W7I/F  
        ConvertWidth "Ｓ", "S" oKA&An  
        ConvertWidth "Ｔ", "T"
|Y},V_@d  
        ConvertWidth "Ｕ", "U" ZtK\HDdp  
        ConvertWidth "Ｖ", "V" ySe$4deJ  
        ConvertWidth "Ｗ", "W" y500Xs[c  
        ConvertWidth "Ｘ", "X" o:"anHs  
        ConvertWidth "Ｙ", "Y"  %v+=;jw  
        ConvertWidth "Ｚ", "Z" j(eFoZz,  
        ConvertWidth "^l", "^p" Pao%pA.<  
        ConvertWidth "（", "(" j?6X1cMq  
        ConvertWidth "）", ")" &fwS{n;U  
     $d/&k`  
    End If & ze>X  
-Fxm
si  
    With ActiveDocument z x@$RS+]  
        Dim tbl As Table Dzl;-]S  
        For Each tbl In .Tables ; Y"N6%
 
            tbl.Rows.Alignment = wdAlignRowCenter ~>Kq<]3~  
            tbl.Range.Font.NameFarEast = "楷体" MV0Lq:# N  
            tbl.Range.Font.NameAscii = "Times New Roman" (u hd "  
            tbl.Range.Font.Size = 10.5 JN4fPGbV  
        Next 6?qDdVR~]  
        Set tbl = Nothing ~=En+J}*  
    End With paW@\1Q  
     9Ma0^_  
     /*$hx@ih  
    With ActiveDocument n((vY.NDV  
         BQ /PGY>  
        For i = 1 To .TablesOfContents.Count @*>Sw>oet  
            .TablesOfContents(i).Delete 5|I55CTx  
        Next hIY Te  
        
A(8
n  
         .&1C:>  
         yHeEobvb  
        paraTotal = .Paragraphs.Count =WG=C1Z  
        paraCounter = 1 
#aar9  
         w8Vw1wW  
        LastTitle0No = 0 I7n3xN&4"  
        LastTitle1No = 0 M6rc!K  
        LastTitle2No = 0 @?kM'*mrZM  
        LastTitle3No = 0 ~6aCfbu%V  
        LastTitle4No = 0 sbj";h=E  
        LastTableNo = 0 Pm+tQ  
        LastFigureNo = 0 LOvHkk@+  
         \( )#e  
        Dim Sec As Long Ep
Yy3^5d  
         +*}{`L- :  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) HfB@vw^  
        If Sec = 0 Then [q*%U4qGO  
            Exit Sub jjzA .8?(7  
        End If 5GQLd  
         6/Fz
co#N  
        k = 0 6GAaV[])'  
        Do While (paraCounter < paraTotal) And bContinue +9XQ[57  
            k = k + 1 52d^K0STC  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then WGu%7e]  
                Exit Do T6#CK  
            End If kW@,$_cK  
            paraCounter = paraCounter + 1 .fYZ*=P;c  
            If k Mod 20 = 0 Then `.%JjsD<  
                Me.lbCounter.Caption = paraCounter 8X$LC  
                DoEvents _Ov;4nt!  
            End If eq[Et +  
        Loop yClx` S(  
         MFt*&%,JX  
        
aG+j9Q_  
        Do While (paraCounter < paraTotal) And bContinue .]x2K-Sf  
             ?4 S+edX  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) -|S]oJy  
            ShapeHeight = 0 
j(rL  
            ShapeWidth = 0 LD>\#q8a*  
           ]Mi.f3QlO6  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth @+LfQY  
             yxt[= C  
            Select Case ParaType )IL #>2n?  
                Case "【】表格内容" @U{<a#  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" B@y(.  
                Case "章" ({^9<Us  
                    LastTitle0No = LastTitle0No + 1 Ju2l?RrX  
                    '新一章开始，复位其下属标题编号 ::5E8919  
                    LastTitle1No = 0 \HZ9S=  
                    LastTitle2No = 0 V\]" }V)"  
                    LastTitle3No = 0 ?GA&f2]a  
                    LastTitle4No = 0 Ge+0-I6 Ju  
                     /9pM>Cd*Z  
                    k = Val(ttNo) "LhvzM-<8  
                    If k = 0 Then '非数字编号章节 4|?{VQ  
                        If ttNo <> NoSeries1(LastTitle0No) Then crcA\lJf  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString I$t3qd{H&  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText O#a6+W
"U  
                        End If bFS>)
 
                    Else 44ed79ly0)  
                        If Val(ttNo) <> LastTitle0No Then N K]B?  
                            rText = "第" & LastTitle0No & ttString Hr<o!e{Y  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText nH|,T%  
                        End If \x{;U#B[3>  
                         uC3:7  
                    End If ->^~KVh&  
                     Z8#Gwyinx  
                    '章段落设置 9BEFr/.  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 )~J>X{hy  
                    .Paragraphs(paraCounter).Style = "QLNU章节" E Y<8B3y  
                    .Paragraphs(paraCounter).Range.Select (ll*OVL  
                    Selection.EndKey unit:=wdLine ~EzaC?fQ  
                    tc = Replace(rText, vbCr, "") Lw1EWN6}_&  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False FR[ B v  
                Case "一级标题" !y:%0{l  
                    LastTitle1No = LastTitle1No + 1 h}`!(K^;3  
                    '新一级标题开始，复位其下属标题编号 ;%C'FV e]  
                    LastTitle2No = 0 +|iYg/2  
                    LastTitle3No = 0 'XrRhF (  
                    LastTitle4No = 0 )E# 2J$TD  
                     }n_p$g[Nj/  
                    If ttNo <> NoSeries1(LastTitle1No) Then :O<bA&:d  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString 5yZTcS z  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText l_tw<`Ep  
                    End If d[ >`")2)  
                   I<td1Y1q  
                     #H?t!DU  
                    '一级标题段落设置  格式：一、标题内容 ;< jbLhHwD  
                    .Paragraphs(paraCounter).Range.Text = rText O,2~"~kF  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" YgUH'P-  
                    .Paragraphs(paraCounter).Range.Select G!N{NCq  
                    Selection.EndKey unit:=wdLine gi/@j   
                    tc = Replace(rText, vbCr, "") ?>c=}I#Ui-  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False N==ZtKj F  
                Case "二级标题" + @9.$6N  
                    LastTitle2No = LastTitle2No + 1 xo}b= v  
                    '新二级标题开始，复位其下属标题编号 Ys+OB*8AE  
                    LastTitle3No = 0 V r(J+1@  
                    LastTitle4No = 0 wxg^Bq)D*R  
                     $?G"GQ!.  
                    If ttNo <> NoSeries1(LastTitle2No) Then M 3 '$[  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString rl#vE's6.e  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText l%ay I  
                    End If ;22l"-F  
                     OLGBt  
                    '二级标题段落设置 格式：(一)、标题内容 eN?Y7  
                    .Paragraphs(paraCounter).Range.Text = rText xT&(n/  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" 7uorQfR?  
                     D4Al 3fe  
                    .Paragraphs(paraCounter).Range.Select kd`0E-QU  
                    Selection.EndKey unit:=wdLine =]`lN-rYw  
                    tc = Replace(rText, vbCr, "") ^9OUzTF  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False 7?8wyk|x  
                 1 n5(S<T  
                Case "三级标题" "xmP6=1  
                    LastTitle3No = LastTitle3No + 1 >T2LEW  
                    '新三级标题开始，复位其下属标题编号 w]b,7QuNz  
                    LastTitle4No = 0 VV4Gjc  
                     u%/fx~t$  
                    If Val(ttNo) <> LastTitle3No Then '>$EOg"  
                            rText = LastTitle3No & ". " & ttString /MMd`VrC2  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText im} ?rY  
                         \0l>q  ,  
                    End If u's`*T@.  
                    '三级标题段落设置 格式：1. 标题内容 <ljI;xE  
                    .Paragraphs(paraCounter).Range.Text = rText SzwQOs*  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" Wz4&7KY Y  
                    .Paragraphs(paraCounter).Range.Select n% 'tKU\q  
                    Selection.EndKey unit:=wdLine Zv11uH-C  
                    tc = Replace(rText, vbCr, "") \Ng\B.IQ  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False 2kAx>R  
                Case "四级标题" Ho DVn/lr  
                    LastTitle4No = LastTitle4No + 1 YJg,B\z}
 
                     uwf 5!Z:>  
                    If Val(ttNo) <> LastTitle4No Then GZS1zTwB
L  
                            rText = "(" & LastTitle4No & "). " & ttString 9SlNq05G
7  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText E!BPE>  
                     fj7|D'c  
                    End If $Nrm!/)*'}  
                    '四级标题段落设置 格式：(1). 标题内容 ]M/9#mD9~  
                    .Paragraphs(paraCounter).Range.Text = rText }G o$ \Bk  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" p La[}=  
                    .Paragraphs(paraCounter).Range.Select hz;|N W{u  
                    Selection.EndKey unit:=wdLine R[z`:1lo  
                    tc = Replace(rText, vbCr, "") =deMd`=J  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False 4(}J.-B  
                 8.'#?]a  
                Case "表格标题" C51bc6V  
                    LastTableNo = LastTableNo + 1 Jd\apBIf  
                     ^-mR
P\5  
                    If ttNo <> CStr(LastTableNo) Then LE5.b]tv2  
                            rText = "表" & LastTableNo & ". " & ttString )VL96did  
                            ErrMsg.AddItem "表格编号错误：" & ParaText \^(0B8|w  
                   4n#ov=)-~  
                    End If N NhL*C[_7  
                      JO=[YoTr  
                    '表格名称段落设置 格式：表1. 表格名称 }+o:j'jB  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" uw\2qU3g
k  
                    xe = Replace(rText, vbCr, "") 6u`F d#  
                    .Paragraphs(paraCounter).Range.Select }bN%u3mHws  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 c4&'D;=  
                    Selection.Range.Text = xe b2 _Yu^  
                    Selection.EndKey UYk>'\%H0  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False `l2O?U-@  
                 yR{x}Db
G  
                Case "表格首行" $aHAv/&(5  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" ZyOv.,y  
                Case "图片标题" 8
}H1_y-g[  
                    LastFigureNo = LastFigureNo + 1 7Dnp'* H  
                     />'V !iWyz  
                    If ttNo <> CStr(LastFigureNo) Then 0;S,tJg  
                            rText = "图" & LastFigureNo & ". " & ttString 5aad$f  
                            ErrMsg.AddItem "表格编号错误：" & ParaText vZ/6\Cz
 
                   {3})=>u:S  
                    End If x!\ONF5$  
                    '图片名称段落设置 格式：图1. 图名称 L9pvG(R%  
                    .Paragraphs(paraCounter).Range.Text = rText X[#zCM  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" 43?^7_l-  
                    .Paragraphs(paraCounter).Range.Select *
 tCS  
                    Selection.EndKey unit:=wdLine ^7;JC7qmN  
                    xe = Replace(rText, vbCr, "") |KB0P@
=a  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False SN4Q))dAU  
                Case "正文" 5@*'2rO&!  
                     '正文名称段落设置 D=:04V}2+  
                    .Paragraphs(paraCounter).Style = "QLNU正文" ]E  =Iu  
               Case "文献条目" D7Y)?Z5A;  
                    With .Paragraphs(paraCounter) UnVm1ZWZ  
                        '.Range.Select &g2 Eptx#  
                        'Selection.ClearFormatting G} eUL|S  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” !fBF|*/  
                        .Style = "QLNU参考文献" M"%Q&o/I  
                    End With 0 a]/%y3V  
               Case "图表注解" Y(cN}44  
                    With .Paragraphs(paraCounter) z <mK>$  
                        .Range.Font.NameFarEast = "楷体" Kp+CH7I*  
                        .Range.Font.NameAscii = "Times New Roman" $^u} a  
                        .Range.Font.Size = 9 '小5号字 ^F?&|clM/  
                         {t};-q!v$j  
                        .Alignment = wdAlignParagraphCenter E?(xb B  
                        .LeftIndent = 0 A:(*y 2  
                        .RightIndent = 0 dKl^jsd  
                        .FirstLineIndent = 0 85EQ5yY  
                        .LineSpacing = 12 + OV')oE  
                        .LineSpacingRule = wdLineSpaceExactly 6wco&7   
                        .LineUnitAfter = 0 $+. l* ]  
                        .LineUnitBefore = 0 zF5uN:-s  
                        .OutlineLevel = wdOutlineLevelBodyText ]Jh+'RK\#  
                        .PageBreakBefore = False $/6 ;9d^  
                        .RightIndent = 0 %m:m}ziLQ  
                        .WordWrap = True 1c JF/"v  
                        .LineUnitAfter = 0.5 *:i1Lv@  
                         I^o!n5VM  
                    End With r=yK,d/1  
                Case Else UhIDRR  
                    '不作处理 n wI!O  
            End Select Fnk_\d6Ma  
             yj4+5`|f  
            '含有inlineshape的段落处理 n|GaV  
            If ShapeHeight > 30 Then ?+T^O?r|O  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 hO hS)  
            End If ^(viM?*  
             ,=?{("+  
            If (ShapeWidth + ShapeHeight) > 150 Then VqL.iZ-  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" _gKe%J&  
            End If ngj, x7t  
             XeBP`\>Ve  
            '段落计数器递 Hw#d_P:  
            paraCounter = paraCounter + 1 OL_{_K(w  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter 9
qS"uj  
            Me.txtStatus.Text = ParaText olLfko4$*V  
            DoEvents 0%!rx{f#\  
        Loop XZw6Xtn  
    End With -v6M<  
     Y>jiXl?&  
    msg = "" ]|<w\\^A  
     p ?wI9GY  
    For i = 0 To Me.ErrMsg.ListCount - 1 5*[2yKsTi  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) Z|RY2P>E  
    Next 2Z20E$Cb
 
     (KvROV);  
     iH^z:%dP  
     [{C )LDN  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg [AV4m   
    Me.cmdCheck.Enabled = True q80S[au  
    Me.txtStatus.Visible = True .9O$G2'oh  
    Me.lbParaType.Visible = False jA#/Z  
     EUsI%p  
    bContinue = False p4VeRJk%  
End Sub j~j\\Y  
UT}i0I9  
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) *T0q|P~o%  
    Dim pTEXT As String ~ %B<  
     E( us'9c   
    pTEXT = ChKRange.Text `9k0Gd  
     @ 49nJi  
    ParaType = "其它" "UwH\T4I  
    TitleString = pTEXT <F11m(  
    TitleNo = "N/A" 5k|9gICyd*  
     ,lCgQ0}<  
    shpCounter = ChKRange.InlineShapes.Count /b|0PMX  
    If shpCounter <> 0 Then t>8XTqqi  
        MaxShpHeight = 0: TotalShpWidth = 0 <0S=,!  
        For i = 1 To shpCounter fO#vF.k%  
            k = ChKRange.InlineShapes(i).Height iAa;6mH  
            l = ChKRange.InlineShapes(i).Width T{wuj[Q#:  
            If k > MaxShpHeight Then eAPXWWAZJ1  
                MaxShpHeight = k (H+'X}1  
            End If j5@:a  
            TotalShpWidth = TotalShpWidth + l ,vW:}&U  
        Next A.UUW  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then 
+
H$!a  
            Exit Sub ;-UmY}MU  
        End If HHqwq.zIy  
    End If \QU^>23  
     I(=V}s2  
    '空行 k
o5V9Drc  
    If Len(pTEXT) <= 2 Then Ts~L:3oaQ  
        Exit Sub OT'[:|x ;  
    End If l }XU5 9  
     };'\~g,1  
         ja=F7Usb  
    '是否为表格中的文字 vM_:&j_?``  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then xq"Jy=4Q*  
        ParaType = "表格内容" d#2$!z#  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) !n^OM?.
4  
        If k = 1 Then Fs[aa#v4B  
            ParaType = "表格首行" .f+TZDUO  
        End If m|OO,gR  
        Exit Sub u{["50~  
    End If BB|?1"neg  
     q&:=<+2"  
    '例外情况：脚注 >vo=]cw  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then wgd/(8d  
        ParaType = "脚注" "vtCTl~t  
        Exit Sub ax 41N25  
    End If M
Qin"\  
     !nAX$i~  
    '例外情况：尾注 
C*nB  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then {}:ToIp  
        ParaType = "尾注" %v2R.?F8  
        Exit Sub If%/3UJ@  
    End If \=>H6x]q  
     cyJG8f  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then #nh|=X  
        ParaType = "页眉页脚" %Qk/_ R1  
        Exit Sub Ytg
j|@jsp  
    End If :kfp_o+J  
     O9:U8$*  
     l3 DYg  
    With regEX BL&LeSa  
        .Global = True Xy%p"b<  
         svXR<7)#  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" KD^N)&k^Kp  
        If regEX.Test(pTEXT) Then 7 I >G{  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") }jill+]  
            TitleString = regEX.Replace(pTEXT, "$3") h;3cd0  
            TitleNo = regEX.Replace(pTEXT, "$1") WOh|U4vt  
            ParaType = "章" %c[V  
            Exit Sub F
v<`AU  
        End If -(K9s!C!.  
         :T9<der,  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" B7]MGXC  
        If regEX.Test(pTEXT) Then vOg#Dqn-  
            ParaType = "一级标题" Pb*5eXk  
            regEX.Execute (pTEXT) _ 84ut  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") "Ky; a?Y  
            TitleString = regEX.Replace(pTEXT, "$3") a'\o 7_  
            TitleNo = regEX.Replace(pTEXT, "$1") Hty0qr3  
            Exit Sub  ^eoLAL  
        End If t|m=J`a{q;  
         KF4PJi;*  
        '全角或半角括号中的数字 F`9]=T0  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" 9uWY@zu  
        If regEX.Test(pTEXT) Then "n*~Mj Ny  
            ParaType = "二级标题" VE8;sGaJ  
            regEX.Execute (pTEXT) vB+ '  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") o6//IOZ  
            TitleString = regEX.Replace(pTEXT, "$5") `=7j$#6U  
            TitleNo = regEX.Replace(pTEXT, "$2") "1,pHR-+R  
            Exit Sub jv&!Kw.Ug  
        End If Qyy.IPTP  
         ;qBu4'C)T  
        '阿拉伯数字  1. 2. J:skJ.Wx  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" LiKxq=K  
        If regEX.Test(pTEXT) Then @gG<le6  
            ParaType = "三级标题" UT="2*3gz  
            regEX.Execute (pTEXT) "*})3['n  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 w|Nz_3tI  
            TitleString = regEX.Replace(pTEXT, "$3") I"KN"v^  
            TitleNo = regEX.Replace(pTEXT, "$1") |hr]>P1  
            Exit Sub \}]! )}G  
        End If r;m)n Ru  
         ^n+!4(@=  
        '全角或半角括号中的阿拉伯数字 Zkf0 p9h\  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" <I"S#M7-s  
        If regEX.Test(pTEXT) Then >$2V%};  
            ParaType = "四级标题" `7H4Y&E  
            regEX.Execute (pTEXT) xZV1k~C  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") p0pWzwTG3  
            TitleString = regEX.Replace(pTEXT, "$5") VWO9=A*Y|  
            TitleNo = regEX.Replace(pTEXT, "$2") P\_`  
            Exit Sub VcoOeAKL  
        End If ;,]P=Ey  
         ;V<fB/S.=+  
        '表格名称 0:b2(^]bg  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" cYqfsd# B  
        If regEX.Test(pTEXT) Then *&f$K1p  
            ParaType = "表格标题" Gdg"gi!4  
            regEX.Execute (pTEXT) -ig6w.%lk  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) W2.qhY5  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) @]ao"ui@/  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) /@|/^vld  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 `UBYp p  
            Exit Sub +o9":dl  
        End If KgR<E  
         Y/7 $1
k  
        '图片名称 @'GGm#<
 
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" im @h -A]0  
        If regEX.Test(pTEXT) Then gynh#&r  
            ParaType = "图片标题" \m1~jMz*>k  
            regEX.Execute (pTEXT) /B}lO0]:  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") "U7qo}`I  
            TitleString = regEX.Replace(pTEXT, "$3") }3?n~s\)6f  
            TitleNo = regEX.Replace(pTEXT, "$1") Z> r^SWL  
            Exit Sub M}!2H*
 
        End If "Y\_ TtY  
         %AQIGBcgL  
        '参考文献 Q
~T$N  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 7NJhRz`_  
        If regEX.Test(pTEXT) Then H#ncM~y*  
            ParaType = "文献条目" |7zd%!  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") O|w J)  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") P@FHnh3}Z$  
            Exit Sub P+$:(I  
        End If '}$Dgp6e  
         B7!3-1<k>  
        prfx = Left(pTEXT, 2) Xn{1 FJX/  
        If prfx = "注：" Or prfx = "注:" Then A,4fEmWM  
            ParaType = "图表注解" o^ XtU5SVq  
            Exit Sub v,ju!I0.  
        End If &-;5* lg)0  
         2p"WTd  
         9:M` j  
        ParaType = "正文" : >=\.\  
         4R\Hpt  
    End With *BR^U$,e  
End Sub v;)..X30  
,TFIG^Dvq  
Sub ConvertListToOrdinary() "&3h2(#%  
    Dim st As Paragraph O?|gp<
=d  
    With ActiveDocument f%*/c
pA)  
        For i = .Paragraphs.Count To 1 Step -1 KGg3 !jY  
            Set st = .Paragraphs(i) Qubp9C#r  
            lst = st.Range.ListFormat.ListString Z4\=*ic@  
            If lst <> "" Then 6:~v4W!k  
                st.Range.ListFormat.RemoveNumbers QqU!Najf  
                st.Range.InsertBefore lst & " " |iwP:C^\mJ  
            End If
!50[z:  
        Next mrw=T.  
    End With LGtIm7  
    Set st = Nothing [Vma^B$7Vj  
End Sub h2D>;k  
Sy 'Dp9!|  
Private Sub UserForm_Activate() Ng_!zrx04  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节"  s~Te  
    Me.lbTotal.Font.Bold = True yeMB0Z*r  
    Me.txtStatus.Visible = False K>{T_){  
    Me.cmdCheck.Enabled = True XcjRO#s\  
s)pbS}L  
End Sub :ijAqfX  
CvD"sHVq%  
' MxrQ;|S  
Sub CheckSuperScript() ~sXcnxLz  
    Selection.Find.ClearFormatting )+6MK(<"  
    Selection.Find.Replacement.ClearFormatting K1T4cUo  
    With Selection.Find }I>tO9M  
        .Text = "[【\[［〖](*)[】\]〗］]" GP#aya  
        .Replacement.Text = "[\1]" R47\Y   
        .Replacement.Font.Superscript = True '  <=+;q  
        '.Replacement.Font.Color = wdColorBlue 5s]. @C8  
        .Forward = True ?F3 h)(}  
        .Wrap = wdFindContinue lg&t8FHa;  
        .FORMAT = True r >nG@A  
        .MatchCase = False qo|WXwP2  
        .MatchWholeWord = False VzVc37Z>6  
        .MatchByte = False .p(T^ m2A*  
        .MatchAllWordForms = False $b mLu=9  
        .MatchSoundsLike = False 7"C$pm6  
        .MatchWildcards = True *I0T{~  
    End With tdu$pC6  
    Selection.Find.Execute Replace:=wdReplaceAll g pOC`=  
End Sub j?+X\PtQ  
% oo2/aF  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) mrjswF27$o  
    bContinue = False <.? jc%  
    Set regEX = Nothing %ALwz[~]  
End Sub <S r  
RVQh2'w  
Sub CeateOrModifyStyle() O`<KwUx !  
' .Fp4: e  
' SBS3?hw  
Dim stl As Style r%+V8o  
     \7'+h5a  
    Options.Pagination = False .*
)2SNH  
     Bf8jPa/  
    On Error Resume Next 9_5ow  
    For Each stl In ActiveDocument.Styles 7K98#;a)5  
        stl.Delete ~W-PD  
    Next ;4pYK@9w_  
    On Error GoTo 0 H7DJ~z~J  
     ~ (jKz}'~U  
    Set stl = Nothing sjV!5Z  
     PGoh1Uu  
    DoEvents HKUn`ng  
    On Error Resume Next 5yz(>EVH  
     Kh_Lp$'0uM  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph N=7pK&NHSG  
     uwy:t!(j  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph M"94#.dKK  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph 5f 5f0|ok  
     w}YlVete  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph Ug<#
en  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph )z28=
%g  
     ]'=)2 .}  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph m*kl  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph L}pt)w*V1j  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph >: g3k  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph 736Jq^T  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph s|y "WDyx5  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph \r+8qC[,  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph  Iepsz  
     mmk=97  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph V6,H}k  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph 4.5|2\[  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph O[ef#R!  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph =D<PV Go9  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph OD!
& .%  
     %Da1(bBh  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph |3KLk?2  
    On Error GoTo 0 XcUwr  
    DoEvents TtTj28k7  
     Y<%@s}zc  
    'BaseStyle "[ZB+-|[0  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False Vo'T!e- B  
    With ActiveDocument.Styles("BaseStyle").Font pz.JWCU1  
        .NameFarEast = "宋体" LF& z  
        .NameAscii = "Times New Roman" z\%67C  
        .NameOther = "宋体" yL-YzF2  
        .Size = 10.5 i=oU;7~zK  
        .Bold = wdUndefined ~ r438&  
        .Italic = wdUndefined m()RU"WY  
        .Subscript = wdUndefined %#xaA'? [  
        .Subscript = wdUndefined !*B'?|a<\  
         ,tu
.2VQc@  
        .Underline = wdUnderlineNone wG -HF'0L  
        .UnderlineColor = wdColorAutomatic MjC_ (cs  
        .StrikeThrough = False @X;!92i  
        .DoubleStrikeThrough = False y1+*
6|  
         o9dY9o+Z  
        .Outline = False kZGRxp9  
        .Emboss = False N@Uy=?)ZJ  
        .Shadow = False I!Z_[M  
        .Hidden = False 0i\M,TNf*  
        .SmallCaps = False 2so!  
        .AllCaps = False waj0"u^#  
        .Color = wdColorAutomatic EZ`te0[  
        .Engrave = False f@
|A[>"V  
        .Scaling = 100 vkEiOFU!u  
        .Kerning = 1 3!|;iJRH  
        .Animation = wdAnimationNone oUQ,6
1H  
        .DisableCharacterSpaceGrid = False +Z !)^j  
        .EmphasisMark = wdEmphasisMarkNone "4{LN}`  
    End With %UERc{~o*,  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat 2Tp1n8FV  
        .LeftIndent = 0  :7]Sa`  
        .RightIndent = 0 ?Yth0O6?sb  
        .SpaceBefore = 0 I7n"&{s"*  
        .SpaceBeforeAuto = False /n{omx  
        .SpaceAfter = 0 ^<a t'jk6  
        .SpaceAfterAuto = False EWkLXU6t  
         lHPd"3HDK  
        .LineSpacingRule = wdLineSpaceSingle _8F`cuyW  
        .Alignment = wdAlignParagraphJustify GkTiDm?  
         ]\hSI){  
        .WidowControl = False st:`y=F_  
        .KeepWithNext = False [`"ZjkR_J  
        .KeepTogether = False UMm!B`M  
        .PageBreakBefore = False Sp;G'*g  
        .NoLineNumber = False (jRm[7H  
         r\-uJ~8N  
        .FirstLineIndent = CentimetersToPoints(0) ic#`N0s?  
        .OutlineLevel = wdOutlineLevelBodyText :fZ}o|t7  
        .CharacterUnitLeftIndent = 0 {CGUL|y  
        .CharacterUnitRightIndent = 0 8h*Icf  
        .CharacterUnitFirstLineIndent = 0 8y.wSu  
        .LineUnitBefore = 0 @] DVD  
        .LineUnitAfter = 0 R? "q]af~  
        .AutoAdjustRightIndent = True B][U4WJ)  
        .DisableLineHeightGrid = True oldA#sA$  
         \kMefU  
        .FarEastLineBreakControl = True K1+)4!}%U  
        .WordWrap = True &-Gqdnc  
        .Hyphenation = False "AsKlKz{B  
         L>aLqQ3  
        .HangingPunctuation = True qGB{7-ru  
        .HalfWidthPunctuationOnTopOfLine = True fY51:0{  
        .AddSpaceBetweenFarEastAndAlpha = True ?kH8Lw~{5W  
        .AddSpaceBetweenFarEastAndDigit = True CFMo)"  
        .BaseLineAlignment = wdBaselineAlignBaseline nG'&ZjA  
    End With yy i#Mo ,  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False c]n1':FT"  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll (mTE;s(  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese F`XP@Xx  
    ActiveDocument.Styles("BaseStyle").NoProofing = False {byBcG  
     ?R$F)g7<  
    '一级标题题样式 ( +Q&[E"87  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") iXVe.n  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" %^4CSh  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False /-_h1.!   
    With ActiveDocument.Styles("QLNU一级标题").Font $!-c-0ub  
        .NameFarEast = "黑体" \F/hMXDlJ  
        .NameAscii = "Arial Black" Gi?/C&1T  
        .NameOther = "黑体" {E9+WFz5  
        .Name = "黑体" K<SyC54  
        .Size = 16              '三号 QSdHm  
        .Bold = True :~tAUy":_*  
        .Italic = wdUndefined %InA+5s`  
        .Subscript = wdUndefined H Y&DmE  
        .Superscript = wdUndefined Ybs\ES'?A  
    End With g" p%C:NN  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat Mh:L$f0A%O  
        
zuJ@E=7  
        .LeftIndent = CentimetersToPoints(0) =JK@z  
        .RightIndent = CentimetersToPoints(0) #*K}IBz  
        .FirstLineIndent = CentimetersToPoints(0) @hiCI.?X  
         /_An P  
        .LineSpacingRule = wdLineSpaceSingle p6#g;$V$  
        .Alignment = wdAlignParagraphCenter `(ue63AZ  
         NV72  
        .WidowControl = True D%OQ e#!  
        .KeepWithNext = True jHE}qE~>5  
        .KeepTogether = True {GK;63`1  
        .OutlineLevel = wdOutlineLevelBodyText w[zje rH3  
         =S+wCN  
        .LineUnitBefore = 0.5 v1+3}5b'uF  
        .LineUnitAfter = 0.5 93("oBd[s(  
    End With m.# VYN`+A  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False \IV1j)I"u  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll ~962i#&4  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese t^R][Ay&  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True }Qn&^[[miL  
    DoEvents `1$@|FgyC  
     'g=  
    '二级 F;4vPbH+  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") RI 5yF  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" Zw 5Ni Xj  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False a!7A_q8M  
    With ActiveDocument.Styles("QLNU二级标题").Font Sq/ qu-%X  
        .NameFarEast = "黑体" Z<1FSk,[  
        .NameAscii = "Arial Narrow" VM GS[qrG  
        .NameOther = "黑体" ; >hNt  
        .Name = "黑体" aeFe!`F  
        .Size = 15        '小三号 -Ta9 pxZk  
        .Bold = False eg\v0Y!rI  
        .Outline = False :cem,#(=  
        .Italic = wdUndefined LsqA* *=  
        .Subscript = wdUndefined 5\5/   
        .Superscript = wdUndefined ([T>.s  
    End With JQ8fdP A  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat DS.RURzd{r  
        .LeftIndent = CentimetersToPoints(0) m? J0i>H  
        .RightIndent = CentimetersToPoints(0) q<[P6
}.  
        .FirstLineIndent = CentimetersToPoints(0) |:q=T ~x  
         u~7hWiY<2  
        .LineSpacingRule = wdLineSpaceSingle e6R}0w~G  
        .Alignment = wdAlignParagraphLeft lYVz3p  
         C*)3e* T
*  
        .WidowControl = True X0bN3N  
        .KeepWithNext = True 9ifDcYl  
        .KeepTogether = True ^84G%)`&  
        .PageBreakBefore = False S;3R S;  
        .OutlineLevel = wdOutlineLevelBodyText o
{* e'4  
         \o}xF@sM5  
        .LineUnitBefore = 0.5 sJ;g$TB  
        .LineUnitAfter = 0.5 V:In>u$QJ!  
         TN!j13,  
    End With : UGZ+  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False z&#SPH*  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll `#F{Waww'  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese ;4R$g5-4X  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True
+Mo9kC  
    DoEvents l&O
KBUG  
     591>rh)  
    '三级标题样式 p Dx1z|@z  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") DBW[{DE  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" 0=@?ob7  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False Z&Pg"a?\  
    With ActiveDocument.Styles("QLNU三级标题").Font `<``8  
        .NameFarEast = "宋体" LSa,1{  
        .NameAscii = "Times New Roman" jV v0ST*z  
        .NameOther = "黑体" \HxT@U Q)~  
        .Name = "黑体" Se:. 4<  
        .Size = 14               '四号 \r;#g{ _  
        .Bold = False 8Wrh]egu1  
        .Outline = False C c+
t}"^  
        .Italic = wdUndefined L[oui,}_  
        .Subscript = wdUndefined R]}}$R`j  
        .Superscript = wdUndefined @Owb?(6?  
    End With s@&`f{  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat .zA^)qgL  
        .LeftIndent = CentimetersToPoints(0) +%zAQeb  
        .RightIndent = CentimetersToPoints(0) y I HXg#  
        .FirstLineIndent = CentimetersToPoints(0) <keVrCR  
         V+* P2|  
        .LineSpacingRule = wdLineSpaceSingle 4IB9,?p  
        .Alignment = wdAlignParagraphLeft gp};D  
         ]fx"4qKM  
        .WidowControl = True 0bceI  
        .KeepWithNext = True m,*QP*  
        .KeepTogether = True >BIMi^  
        .PageBreakBefore = False 8'r2D+Vwm  
        .OutlineLevel = wdOutlineLevelBodyText ?*[N_'2W+  
         q@QksAq  
        .CharacterUnitLeftIndent = 0 AF;)#T <  
        .CharacterUnitRightIndent = 0 W98i[Q9A7  
        .CharacterUnitFirstLineIndent = 2 tvkb~  
         <r.)hT"0  
        .LineUnitBefore = 0.5 Y>|B;Kj0(  
        .LineUnitAfter = 0 \rx3aJ l  
    End With KyVQh8  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False ?{P"O!I{  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll X[*<NN  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese g`{;(/M+  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True QwNly4  
    DoEvents a]JYDq`,3  
     9oRy)_5Z(=  
    '四级标题样式 aE`c%T):`  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") [pC$+NX  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" q.KG^=10  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False Q3n,)M[N  
    With ActiveDocument.Styles("QLNU四级标题").Font %+@O#P  
        .NameFarEast = "宋体" A> vBQN  
        .NameAscii = "Times New Roman" ]e"=$2d$  
        .NameOther = "宋体" m!|kW{B#A  
        .Name = "宋体" 2 Wt> Mi  
        .Size = 12               '小四号 'DY`jVwa  
        .Bold = True oRm L {UDZ  
        .Outline = False N=4G=0 `ke  
        .Italic = wdUndefined R@58*c:U(  
        .Subscript = wdUndefined 3QV*%  
        .Superscript = wdUndefined 7L`A{L  
    End With Jj>?GAir  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat IpINH3odT  
         .f*4T4eR-  
        .LeftIndent = CentimetersToPoints(0) F3N?Nk/  
        .RightIndent = CentimetersToPoints(0) V/%>4G
YnC  
        .FirstLineIndent = CentimetersToPoints(0) n
F54tR[  
         ^ZvWR%  
        .LineSpacingRule = wdLineSpaceSingle oI0M%/aM  
        .Alignment = wdAlignParagraphLeft 1Ce@*XBU  
         A_XY'z1  
        .WidowControl = True s`M9
  
        .KeepWithNext = True 2KB\1&N  
        .KeepTogether = True e}D3d=6`  
        .PageBreakBefore = False d?s<2RkPT  
        .OutlineLevel = wdOutlineLevelBodyText *?5*m+  
         _7Rr=_1}  
        .CharacterUnitLeftIndent = 0 #X%~B'  
        .CharacterUnitRightIndent = 0 <6EeD5{*  
        .CharacterUnitFirstLineIndent = 2 opY@RJ]  
         PXK7b2fE.  
        .LineUnitBefore = 0 ~+Rc}K  
        .LineUnitAfter = 0 kW2sY^Rg  
         ^Ew]uN>,  
    End With RJL2J]*S  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False =}lh_  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll 0ZT5bg_M  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese RHaI~jb  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True Fu SL}P  
    DoEvents ;+e}aER&9  
     )#BMTKA^  
    '正文校式 sd,J 3  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") 5QW=&zI`=  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" TC@s  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False X\`_3=  
    With ActiveDocument.Styles("QLNU正文").Font fL_4uC i\  
         >QjAoDVX?  
        .NameFarEast = "宋体" :Ux?,  
        .NameAscii = "Times New Roman" zcel|oz)  
        .NameOther = "宋体" <>dT64 R|  
        .Name = "宋体" V@B__`y7  
         Sc>,lIM  
        .Size = 12               '小四号 j|4<i9^}  
         W^0w  
        .Bold = wdUndefined "9m2/D`=  
        .Italic = wdUndefined R}G4rO-J  
        .Subscript = wdUndefined 3p39`"~  
        .Superscript = wdUndefined 3*]eigi)  
         Uddr~2%(  
        .Outline = False H35S#+KX  
        .Emboss = False Q}1 R5@7  
        .Shadow = False >sfRI]OG  
        .Hidden = False  4E;VM{  
         Hc!  mB  
        .DisableCharacterSpaceGrid = True D N'3QQn  
    End With !9u|fnC9  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat i'a?kSy  
         qIVx9jNN  
        .LeftIndent = CentimetersToPoints(0) 931bA&SL=/  
        .RightIndent = CentimetersToPoints(0) xAqb\|$^  
        .FirstLineIndent = CentimetersToPoints(0) "oTHq]Ku  
         H2&@shOOQJ  
        .LineSpacingRule = wdLineSpaceExactly un)4eo!7  
        .LineSpacing = 20 OP~Hdo
cB  
        .Alignment = wdAlignParagraphLeft I(]}XZq  
         aO]ZZleNS  
        .WidowControl = False DNOueU  
        .KeepWithNext = False =+/
eLKG  
        .KeepTogether = False 1e(E:_t  
        .PageBreakBefore = False !Z`j2 e}  
        .Hyphenation = False t#Z-mv:(  
         H;?{BV  
        .OutlineLevel = wdOutlineLevelBodyText w&$`cD  
         {v=T [D  
       )LdP5z-  
        .CharacterUnitLeftIndent = 0 fRrvNj0{V  
        .CharacterUnitRightIndent = 0 $&y%=-]|  
        .CharacterUnitFirstLineIndent = 2 )jU)_To  
         hXfQ)$J  
        .LineUnitBefore = 0 nc~F_i=  
        .LineUnitAfter = 0 `s"'r !  
        .SpaceBefore = 0 I CZ4A{I  
        .SpaceAfter = 0 1/RsptN"v  
         '[U8}z3  
        .DisableLineHeightGrid = True XF Patd  
    End With b1^vd@(lx  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False m`v2: S}  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll VbJiZw(aR  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese PpGL/,]X  
    ActiveDocument.Styles("QLNU正文").NoProofing = True *}
]Nf  
    DoEvents ~c8?>oN(  
     ||T2~Q*:y  
    '图片段落样式 ;Yx)tWQI  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") ~;QvWS  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" o]+z)5zC  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False O}tZ - 'T  
    With ActiveDocument.Styles("QLNU图片段落").Font R%Qf7Q  
        .Size = 12               '小四号 SHvq.lYJ  
        .Italic = wdUndefined 2>|dF~"  
        .Subscript = wdUndefined "JVkVp[5D+  
        .Superscript = wdUndefined 0@yXi  
    End With u}>#Eb  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat TMAJb+@l:  
         LUG;(Fko  
        .LeftIndent = CentimetersToPoints(0) 2VF%@p  
        .RightIndent = CentimetersToPoints(0) Fw/6?:C}O6  
        .FirstLineIndent = CentimetersToPoints(0) /mXBvY  
         FYOD Upn  
        .LineSpacingRule = wdLineSpaceSingle 1Lqo F{S:  
        .Alignment = wdAlignParagraphCenter E4gYemuN  
        .KeepWithNext = True us;YV<)d  
        .OutlineLevel = wdOutlineLevelBodyText ,R'@%,/  
         R?,an2  
        .CharacterUnitLeftIndent = 0 _wC3kAO  
        .CharacterUnitRightIndent = 0 IM:=@a{  
        .CharacterUnitFirstLineIndent = 0 d_AK`wR  
         Q~814P8]  
        .LineUnitBefore = 0 6BY-^"W5`  
        .LineUnitAfter = 0 `k=bL"T>\  
    End With `sUZuWL_  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False K\>tA)IPSV  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll E'v_#FLvR  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese N/]o4o  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True 3 j!3E  
    DoEvents %u`8minCt  
     RSr %n1  
     iDN;m`a  
    '第X章 BHd&yIyI  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") AK&S5F>D+B  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" 6Se?sHC>  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False GT~)nC9f  
    With ActiveDocument.Styles("QLNU章节标题").Font R?v>Q` Qi  
        .NameFarEast = "黑体" *"R|4"uy  
        .NameAscii = "Arial Black" ]Oh@,V8  
        .NameOther = "Arial Black" ;lq;X{/  
        .Name = "黑体" * 1T&  
        .Size = 16 aHs^tPg  
        .Bold = True BS /G("oZ[  
        .UnderlineColor = wdColorAutomatic TK5K_V*7  
        .Outline = False ;6gDV`Twy  
        .Italic = wdUndefined 4oK?-|=?  
        .Subscript = wdUndefined oE<`VY|  
        .Superscript = wdUndefined

-#0qV:D  
        .Scaling = 100 guX 9}  
        .DisableCharacterSpaceGrid = True *7*lE"$p  
    End With @xQgY*f#  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat 9!f/aI  
        .LineSpacingRule = wdLineSpaceSingle nnCGg+l  
        .Alignment = wdAlignParagraphCenter AcS|c:3MUy  
        .WidowControl = True QBtnx[  
        .KeepWithNext = True $@sE n4h  
        .KeepTogether = True `D>S;[~S7  
        .PageBreakBefore = True aY3^C q(r  
        .OutlineLevel = wdOutlineLevelBodyText So{x]x:f  
         #OBJzf*p  
        .LeftIndent = CentimetersToPoints(0) j; ']cWe  
        .RightIndent = CentimetersToPoints(0) [r3!\HI7x  
        .FirstLineIndent = CentimetersToPoints(0) >C7r:%  
         UUSq$~Ct  
        .CharacterUnitLeftIndent = 0 ,%n\=  
        .CharacterUnitRightIndent = 0 WxW7qt  
        .CharacterUnitFirstLineIndent = 0 i#7DR>XF/  
         U3 */v4/  
        .LineUnitBefore = 1 3Th'paMG  
        .LineUnitAfter = 0.5 IKABBW  
         -c(F 1l  
        .AutoAdjustRightIndent = False wDcj
,:h`  
        .DisableLineHeightGrid = True /4tj3B,  
        .FarEastLineBreakControl = True W [Of|?  
        .WordWrap = True 0F@"b{&0  
    End With
 $>*3/H  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False ]Nj
X?XdX<  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll MJ7Y#<u  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese pM x
 
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True WEFlV4/  
    DoEvents aF)1Nm[  
     _=+V/=  
    '表格标题 r9X? PA0f  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") HKF H/eV  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" (]b!{kS  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False c#a@n 4  
    With ActiveDocument.Styles("QLNU表格标题").Font M54j@_81pX  
        .NameFarEast = "楷体" F\fWvX dW  
        .NameAscii = "Arial" Q&MZN);.  
        .Name = "楷体" "Weg7mc#  
        .Size = 10.5 HuB<k3#sPy  
        .Bold = True iDMJicW!+F  
        .Underline = wdUnderlineNone [OHxonU  
        .Italic = wdUndefined q+P|l5_ t  
        .Subscript = wdUndefined "vXxv'0\f  
        .Superscript = wdUndefined ~}F{vm  
        .Color = wdColorAutomatic dArDP[w  
    End With P6!jRC"52'  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat AP [|Ta  
         W4hbK9y  
        .LineSpacingRule = wdLineSpaceSingle 9dFy"y
xYa  
        .Alignment = wdAlignParagraphCenter Lk~ho?^`  
        .KeepWithNext = True 9U{a{~b  
        .KeepTogether = True kdCUORMK  
        .OutlineLevel = wdOutlineLevelBodyText PH`9MXh
 
         Fkvl%n  
        .LeftIndent = CentimetersToPoints(0) D|@/yDQ  
        .RightIndent = CentimetersToPoints(0) ^m?KRm2  
        .FirstLineIndent = CentimetersToPoints(0) LAVAFlK5  
         /3A^I{e74  
        .CharacterUnitLeftIndent = 0 W)9K`hM6  
        .CharacterUnitRightIndent = 0 Em?d*z  
        .CharacterUnitFirstLineIndent = 0 W`K7
QWV4  
         Vm%1> '&  
        .LineUnitBefore = 1 ~3WM5 fv  
        .LineUnitAfter = 0 O_$m!5ug  
         ${+ @gJ+S  
    End With /<E5"Mm%  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False &$"i,~q^ b  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll S ?RN?1  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese Xua+cVc\y  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True SeHagKA  
    DoEvents gfsI6/Y  
^ s1Q*He  
    '表格首行 t0z!DOODZP  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") u1t%(_h  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False $"0 MU  
    With ActiveDocument.Styles("QLNU表格首行").Font T;@;R%  
        .NameFarEast = "楷体" $tz; <M7B  
        .NameAscii = "Times New Roman" m0LTx\w!  
        .Name = "楷体" bS
sh^Z  
        .Size = 9 ul
u9'ch  
        .Bold = True j*F`"df  
        .Underline = wdUnderlineNone ?dD&p8{  
        .Italic = wdUndefined XD|E=s  
        .Subscript = wdUndefined =3q/F7-  
        .Superscript = wdUndefined f>aEkh6u9  
    End With s >e=?W  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat 8i6Ps$T  
        .LineSpacingRule = wdLineSpaceSingle ;FBUwR}  
        .Alignment = wdAlignParagraphCenter -`<kCW"  
         K3m
]%m2\  
        .LeftIndent = CentimetersToPoints(0) hc~s"Atck  
        .RightIndent = CentimetersToPoints(0) !lEY=1nHOJ  
        .FirstLineIndent = CentimetersToPoints(0) {S,l_d+(  
         G:<`moKgL  
         SGh1 DB  
        .CharacterUnitLeftIndent = -0.5 Uu!f,L;ty  
        .CharacterUnitRightIndent = -0.5 i-bJS6  
        .CharacterUnitFirstLineIndent = -0.5 Of{/t1o?  
         MxSM@3v(  
        .LineUnitBefore = 0 K)qF+Vb^j  
        .LineUnitAfter = 0 NLS
%Sq  
        .SpaceBefore = 0 I" Ms-zs  
        .SpaceAfter = 0 .jS~By|r  
         8CnRi  
    End With V2$h
8\a  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False $Z|ffc1  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll s4 6}s{6   
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese b'J'F;zh>  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True f` :i.Sr  
    DoEvents  -QOw8vm  
)jkXSTZ  
    '表格内容 1"/He ` 4  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") Mu2  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False \cC%!4  
    With ActiveDocument.Styles("QLNU表格内容").Font z74
in8]  
        .NameFarEast = "楷体" ._8KsuJG  
        .NameAscii = "Times New Roman" R<sJ^n
x  
        .Name = "楷体" 0TN;86Mo  
        .Size = 9 \]P!.}nX#  
        .Bold = False (7XCA,KTGI  
        .Underline = wdUnderlineNone QFg sq{  
        .Italic = wdUndefined A$#p%yb  
        .Subscript = wdUndefined D|rFu  
        .Superscript = wdUndefined =i_-F$pV  
    End With xZ|Y?R5m  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat a["2VY6Eq@  
        .LineSpacingRule = wdLineSpaceSingle Hu.t 3:w  
        .Alignment = wdAlignParagraphCenter 1U^A56CN  
         0@G")L Ue0  
        .LeftIndent = CentimetersToPoints(0) j6>.n49_  
        .RightIndent = CentimetersToPoints(0)
WA]c=4S  
        .FirstLineIndent = CentimetersToPoints(0) r`AuvwHPs[  
         r) $+  
        .CharacterUnitLeftIndent = -0.5 N- I5X2  
        .CharacterUnitRightIndent = -0.5 2kdC]|H2?  
        .CharacterUnitFirstLineIndent = -0.5 'rMN=1:iu"  
        .LineUnitBefore = 0 5QPM t^  
        .LineUnitAfter = 0 L,mQ   
        .SpaceBefore = 0 <@}I0  
        .SpaceAfter = 0 zunV<2~(2}  
    End With (S xR`QP?,  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False q-]`CW]n  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll x%+aKZ(m)  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese Nc+,&R13m  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True Gp4A.\7  
    DoEvents $ "E).j  
;3\3q1oX  
    '图片标题 }b=}uiR#  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") uHAT#\m:  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" >Y_*%QGH_  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False xEf'Bmebk  
    With ActiveDocument.Styles("QLNU图片标题").Font bHg,1y)UC  
        .NameFarEast = "楷体" A,\6nO67  
        .NameAscii = "Times New Roman" 2 >
86oP&  
        .Name = "楷体" }-~X4u#  
        .Size = 10.5 )\6&12rj  
        .Bold = True  PZ{Dv'C  
        .Underline = wdUnderlineNone {]E+~%Va  
        .Italic = wdUndefined OH5>vV'i  
        .Subscript = wdUndefined K$M^gh0  
        .Superscript = wdUndefined )K,F]fc+O  
        .Outline = False kqce
[hgs<  
        .Shadow = False .pfP7 weQ  
        .Color = wdColorAutomatic qHNE8\9  
    End With ZKQG:M~|  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat _<a7CCg  
        .LineSpacingRule = wdLineSpaceSingle R zf  
        .Alignment = wdAlignParagraphCenter jV? }9L^;  
         M9y<t'
  
        .KeepWithNext = wdUndefined Kv.>Vf.T}_  
        .KeepTogether = True k]5Bykf`Ky  
        .OutlineLevel = wdOutlineLevelBodyText UilMv~0  
         \[gReaI  
        .LeftIndent = CentimetersToPoints(0) @O
@GRq&V  
        .RightIndent = CentimetersToPoints(0)
fO0(Z  
        .FirstLineIndent = CentimetersToPoints(0) krsYog(^z  
         SfJ./ny  
        .CharacterUnitLeftIndent = 0 Hir Fl  
        .CharacterUnitRightIndent = 0 t 5'V6n
v  
        .CharacterUnitFirstLineIndent = 0 dxZ
u2&gi  
         S,<EEtXQ  
        .LineUnitBefore = 0 ?;vgUO  
        .LineUnitAfter = 0 F>]m3(  
    End With ?[)}l9  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False " R-!(9k^`  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll C8vOE`U,J  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese uiJS8(Cb  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True UB 6mqjPK  
    DoEvents OE4+GI.r-  
fv`O4  
    '目录项 A5i:x$ww  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") |N}P(GF  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" L=q+|j1>  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False @+9< O0  
    With ActiveDocument.Styles("QLNU目录项").Font d?:=PH  
        .NameFarEast = "黑体" $BFvF ,n  
        .NameAscii = "Times New Roman" D\[h:8k  
        .NameOther = "Times New Roman" K_2|_MLlZ  
        .Name = "黑体" K4]
g[z  
        .Size = 10.5 ;9~6_@,@o  
        .Bold = False mp9{m`Jb*  
        .Italic = wdUndefined YO}1( m  
        .Underline = wdUnderlineNone ]8T |f  
        .Color = wdColorAutomatic W D T]!  
        .Superscript = wdUndefined '@jXbN  
        .Subscript = wdUndefined aX~%5mF  
    End With %{/%mJoX  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat hSFn8mpXT  
         3t<a $i
 
        .LineSpacingRule = wdLineSpaceSingle
^s@8VAwi  
        .Alignment = wdAlignParagraphLeft Y$Q|J4z  
         Qb)C[5a}  
        .WidowControl = False P>sFV  
        .KeepWithNext = False FBpH21|/y  
        .KeepTogether = False br0++}vwL  
        .PageBreakBefore = False &g.@u~SI1  
        .NoLineNumber = False 1j: Wh  
        .OutlineLevel = wdOutlineLevelBodyText Ee@4 %/v  
         wE@'ap#  
        .LeftIndent = CentimetersToPoints(0) M
XzVgy  
        .RightIndent = CentimetersToPoints(0) n>A98NQ  
        .FirstLineIndent = CentimetersToPoints(0) TQ`Rk;0R  
         %H]lGN)  
        .CharacterUnitLeftIndent = 0 VxY+h`4#  
        .CharacterUnitRightIndent = 0 UTf9S>HS  
        .CharacterUnitFirstLineIndent = 0 q^A+<d  
         "Kc>dJ@W  
        .LineUnitBefore = 0 "TUe%o  
        .LineUnitAfter = 0 RjWqGr;bO  
    End With /[6j)HIS  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False G!Um,U/g  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll =egW  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot mwY IJy[  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese yv\#8I:qh  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True [Z~ 2  
    DoEvents j'aHF#_  
     *P 3V  
    '参考文献 a)S+8uU  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") )13dn]o=2  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" $2M#qkik-  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False E\IlF 6  
    With ActiveDocument.Styles("QLNU参考文献").Font ++aL4:  
        .NameFarEast = "宋体" &Ch#-CUE/  
        .NameAscii = "Times New Roman" w.lAQ5)I%\  
        .NameOther = "Times New Roman" 2*N_5&9mE  
        .Name = "Times New Roman" x5QaM.+=J  
        .Size = 12 /Nr*`l  
        .Bold = False yuDZ~0]R  
        .Italic = wdUndefined t=u Qb=  
        .Subscript = wdUndefined ?{U m  
        .Superscript = wdUndefined ZR$'u%+g'  
        .Underline = wdUnderlineNone Q}!mx7b0]  
        .UnderlineColor = wdColorAutomatic Gg~QAsks   
        .Color = wdColorAutomatic ?W0)nQU  
        .Engrave = False 5 *E#*H  
    End With sf]s",t~J  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat j:,NE(DF  
         6gT5O]]#o  
        .LineSpacingRule = wdLineSpaceExactly CBDG./  
        .LineSpacing = 16 <JV"@H=  
        .Alignment = wdAlignParagraphLeft Rb%%?*|  
        .WidowControl = False Xe#K{gA  
        .KeepWithNext = False $&"V^@  
        .KeepTogether = False zCOgBT~p  
        .PageBreakBefore = False FJ %  
        .OutlineLevel = wdOutlineLevelBodyText K{ \;2M  
         !A>z(eIsv`  
        .LeftIndent = CentimetersToPoints(0) $b<6y/"  
        .RightIndent = CentimetersToPoints(0) 7lS#f1E  
        .FirstLineIndent = CentimetersToPoints(0) cZ(elZ0~  
         *1 G>YH  
        .CharacterUnitLeftIndent = 0 &q`q4g&7  
        .CharacterUnitRightIndent = 0 &f7fK|}  
        .CharacterUnitFirstLineIndent = -2 -AhwI  
         (u]N  
        .LineUnitBefore = 0 "dROb}szn  
        .LineUnitAfter = 0 _=q! BW  
        .SpaceBefore = 0 =)E,8L  
        .SpaceAfter = 0 QT9n,lX
 
         &z]K
\-xp  
    End With Dk+&X-]6x5  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False %0$qP0|`3I  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll 8[|UgI,>z  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS xS7$%w['  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True
i~3u>CT  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese kKPi:G52F  
    DoEvents =56T{N  
E;d7
ch  
    ' A<6%r7&B'  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") 2_ :n  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" WWL4`s  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False -F=v6N{  
    With ActiveDocument.Styles("QLNU论文题目").Font fZxIY,  
        .NameFarEast = "黑体" /s-A?lw^2  
        .NameAscii = "Arial Black" iA0q_( \X  
        .NameOther = "Arial Black" fM #7y [  
        .Name = "Arial Black" 2P]L9'N{Y  
        .Size = 16 nOQa_G]Gz  
        .Bold = False Wm H~m k"  
        .Italic = wdUndefined :>aQ~1f>]  
        .Superscript = wdUndefined _{Sm k[  
        .Subscript = wdUndefined <\0vR20/  
        .Underline = wdUnderlineNone Mwf Oy@|N  
        .UnderlineColor = wdColorAutomatic R(-<BtM!-  
        .Color = wdColorAutomatic >7roe []-|  
gJ;_$`  
    End With $2<d<Um~z  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat K9vIm4::d$  
        .LineSpacingRule = wdLineSpaceSingle .<z!3O&L  
        .Alignment = wdAlignParagraphCenter #/NS&_Ge0s  
        .WidowControl = True }hYZ" A~  
        .KeepWithNext = True xl"HotsX-x  
        .KeepTogether = True ATy*^sc&"  
        .PageBreakBefore = True +rIL|c}J  
        .NoLineNumber = False /'Pd`Nxl.  
        .OutlineLevel = wdOutlineLevelBodyText 1Nu1BLPm  
         (ZL sB{r^  
        .LeftIndent = CentimetersToPoints(0) xil[#W]7Ge  
        .RightIndent = CentimetersToPoints(0) 7},)]da>,'  
        .FirstLineIndent = CentimetersToPoints(0) a6:x"Tv  
         XxDaz1  
        .CharacterUnitLeftIndent = 0 *=
fr8  
        .CharacterUnitRightIndent = 0 U~W
?s(Cy%  
        .CharacterUnitFirstLineIndent = 0 O:{U^K:*  
         :5/Uh/sX  
        .LineUnitBefore = 1 (mtoA#X1:h  
        .LineUnitAfter = 1 Yk42(!  
         >6oOZbUY0  
        .BaseLineAlignment = wdBaselineAlignAuto S,U Pl}KF  
    End With LGc&o]k  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False 2kv7UU#q2  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll :K ~  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS <" @zn  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True bsd
99-_(4  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese oG7q_4+&  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True ?88`fJ@tk?  
    DoEvents yQ3OL#  
     * ,v|y6  
    '中文摘要 }<z_Q_b+e  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") VdP`a(Yd;  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" `]LSbS  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False hky;CD~$  
    With ActiveDocument.Styles("QLNU中文摘要").Font XX1Il;1G#  
        .NameFarEast = "宋体" ork=`};  
        .NameAscii = "Times New Roman" + dBz`WD  
        .NameOther = "Times New Roman" T~fmk f$  
        .Name = "Times New Roman" Z4){ 7|~a  
        .Size = 12 [xh*"wT#g  
        .Bold = wdUndefined [>^
PRs  
        .Superscript = wdUndefined k<RZKwQc  
        .Subscript = wdUndefined  6l$L~>  
        .Italic = wdUndefined RNPbH
.  
        .Underline = wdUnderlineNone }|B=h  
        .UnderlineColor = wdColorAutomatic Sa"9^_.2#  
        .Color = wdColorAutomatic Cda!
Mk
:  
    End With ^'p |!`:  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat S lSM+F  
        .LineSpacingRule = wdLineSpaceExactly `MEYd U1  
        .LineSpacing = 20 zZiJ 9 e  
        .Alignment = wdAlignParagraphLeft vA)O{W\o  
         &20P,8@  
        .WidowControl = False <* t4D-os  
        .KeepWithNext = False s/:Fwr4q#a  
        .KeepTogether = True 341?0%=  
        .PageBreakBefore = False A:y.s;<L0  
        .NoLineNumber = False @$"L:1_  
        .OutlineLevel = wdOutlineLevelBodyText 2Bk$
lx7  
         5/gDK+%4D(  
        .LeftIndent = CentimetersToPoints(0) `:O\dN>ON  
        .RightIndent = CentimetersToPoints(0) *WE1;msr  
        .FirstLineIndent = CentimetersToPoints(0) eZr&x~] -w  
         @\w,otT  
        .CharacterUnitLeftIndent = 0 4
t/&.  
        .CharacterUnitRightIndent = 0 _SACqamo5s  
        .CharacterUnitFirstLineIndent = 2 /%A;mlf{  
        .LineUnitBefore = 0 (_r
EAEo  
        .LineUnitAfter = 0 $ n,Z  
         (~)%Fo9X"  
    End With <`!PCuR  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False cst}Ibfi  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll c9j*n;Q  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS `VQb-V  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True /H:I 68~  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese BZb]SoA
L  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True jKZt~I  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete 83cW=?UgA  
    DoEvents !GW,\y  
     h;V,n  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") >xA),^ YT  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" [ BT)l]  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False =SD\Q!fA  
    With ActiveDocument.Styles("QLNU英文标题").Font DFO7uw1  
        .NameFarEast = "黑体" >/<:Q  &  
        .NameAscii = "Arial Narrow" wh:1PP  
        .Name = "Arial Narrow" ?EU\}N J
 
        .Size = 16 FuX 8v  
        .Bold = True D;Gq)]O  
        .Bold = wdUndefined m,')&{Rd  
        .Superscript = wdUndefined +%N KQ'49I  
        .Subscript = wdUndefined Dml*T(WM>  
        .Italic = wdUndefined Pv<FLo%u<  
         L :M0pk{T  
        .Underline = wdUnderlineNone o{*ay$vA]  
        .UnderlineColor = wdColorAutomatic 1Uf*^WW4  
        .StrikeThrough = False *2}O-e  
        .DoubleStrikeThrough = False 55t\Bms{  
    End With =2y8CgLj  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat eQO#Qso]  
        .LineSpacingRule = wdLineSpaceSingle pium$4l2#  
        .Alignment = wdAlignParagraphCenter F8e<}v&7R  
        .WidowControl = True ;nmM7T Z;  
        .KeepWithNext = False 'SLE;_TD  
        .KeepTogether = False ^MD;"A<  
        .PageBreakBefore = False M}0eu(_|  
        .NoLineNumber = False n:U>Fj>q  
        .FirstLineIndent = CentimetersToPoints(0) Fg/dS6=n`?  
        .OutlineLevel = wdOutlineLevelBodyText FFEfp.T1M  
         VGw(6`|!  
        .LeftIndent = CentimetersToPoints(0) 4$,,Ppn  
        .RightIndent = CentimetersToPoints(0) E3a_8@ZB7  
        .FirstLineIndent = CentimetersToPoints(0) $jI>[%  
         .bf<<+'o  
        .CharacterUnitLeftIndent = 0 6|J'>)  
        .CharacterUnitRightIndent = 0 8u2+tB  
        .CharacterUnitFirstLineIndent = 0 D\^WXY5e%y  
         &V7>1kD3  
        .LineUnitBefore = 1 U-0#0}_  
        .LineUnitAfter = 1 `\<37E\N}  
         # x>ga  
    End With Je4Z(kj 0  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False }a&mY^  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll xx*2?i  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS 9umGIQHnil  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True BO.dz06(Rw  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese `ya;:$(6  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True v&g0ta@
 
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete &~B5.sppnB  
    DoEvents 'mdMq=VI  
+Ra3bjl  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") P& *sB%B  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" JO@Bf  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False ql5x2n  
    With ActiveDocument.Styles("QLNU英文摘要").Font nzX@:7g  
        .NameFarEast = "宋体" %HtuR2#ca  
        .NameAscii = "Arial" ,J mbqOV?!  
        .NameOther = "Arial" I~'*$l
 
        .Name = "Arial" Fk^3a'/4KJ  
        .Size = 12  '?o9VrO  
        .Bold = wdUndefined -Uo?WXP]B'  
        .Italic = wdUndefined j2h[70fWC  
        .Superscript = wdUndefined kE;O7sN   
        .Subscript = wdUndefined \g-
j9|0  
    End With DhI>p0* T  
     vMSW$Bx ;  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat g"Qh]:  
         >+cVs:  
        .LineSpacingRule = wdLineSpaceExactly C9Bh@v%90^  
        .LineSpacing = 20 0;~yZ?6_F  
         |!d"*.Q@F  
        .Alignment = wdAlignParagraphJustify G>T')A  
        
YEYY}/YX  
        .WidowControl = False tPHS98
y  
        .KeepWithNext = False __p_8P  
        .KeepTogether = False b'x$2K;E  
        .PageBreakBefore = False ZF#Rej?  
        .NoLineNumber = False km: nE: |  
         Snf"z8 sw  
        .OutlineLevel = wdOutlineLevelBodyText Bk|K%K  
         i(2y:U3[@  
        .LeftIndent = CentimetersToPoints(0) S"snB/  
        .RightIndent = CentimetersToPoints(0) > s*DrfX6  
        .FirstLineIndent = CentimetersToPoints(0) cJn HW  
         `PI(%N  
        .CharacterUnitLeftIndent = 0 Mo|wME#M  
        .CharacterUnitRightIndent = 0 MM{_Ur7Q  
        .CharacterUnitFirstLineIndent = 2 daZQz"PP  
         }0=<6\+:`  
        .LineUnitBefore = 0 Em13dem  
        .LineUnitAfter = 1 qH%")7>  
         K2'O]#  
    End With #~?kYCtC)  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False IGj`_a   
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll 3+OsjZ  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS ~@I@}n  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False (UEXxUdQ_Q  
    DoEvents OIaYHA  
"oc$  
    Options.Pagination = True 6k])KlJ2;  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." v.Ogf5  
    DoEvents N4^5rrkL  
    ActiveDocument.Repaginate TbE:||r?^  
s[3fqdLP&  
End Sub Sn3:x5H,l  
}dSFAKI2dM  
$*~Iu%Az