Dim bContinue As Boolean K%WG[p\Eu  
VrnZrQj<  
Dim regEX As New RegExp 0vrx5E!  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 g&?{^4t]  
Y [%<s/  
Dim LastTitle0String As String, LastTitle0No As Long eR>|1s%^  
Dim LastTitle1String As String, LastTitle1No As Long QpiA~ 4  
Dim LastTitle2String As String, LastTitle2No As Long TWSx9ii!M:  
Dim LastTitle3String As String, LastTitle3No As Long fOt?2Bh  
Dim LastTitle4String As String, LastTitle4No As Long (svKq(X  
Dim LastTitle5String As String, LastTitle5No As Long i.0.oy>  
Dim LastTabelString As String, LastTableNo As Long vMeB2r<  
Dim LastFigureString As String, LastFigureNo As Long /xw}]Fa5  
kKz>
]t"A  
Dim strSeperator As String <7Ry"z6g;  
nr- 32u  
Sub ConvertWidth(fTEXT As String, rText As String) >h{)7Hv  
        Selection.Find.ClearFormatting W* ^_Ul|  
        Selection.Find.Replacement.ClearFormatting D&!c7_^  
        Selection.Find.Wrap = wdFindContinue D2 X~tl5<  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText JXF0}T)C  
        DoEvents [SU;U['7  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True _Z_R\  
End Sub cN%@ nW0i  
.0?A0D?sP  
Sub ClearDomain() I T?~`vi  
        With Selection.Find _o'a|=Osx>  
            .ClearFormatting vX<^x2~9(  
            .Replacement.ClearFormatting s|!lw  
            .Wrap = wdFindContinue .njk^,N  
            Me.txtStatus.Text = "清除所有域代码" ,j e  
            DoEvents YWF Hv@  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False |}isSCt  
        End With 1w'W)x  
End Sub i>%A0.9  
*1g3,NMA  
Private Sub cmdCheck_Click() yz^
4 TqJ  
    bContinue = True ]\ (Ho   
    Dim NoSeries1(1 To 16) As String XS=f>e1<W  
    Dim NoSeries2(1 To 16) As String  SGK 5  
    Dim NoSeries5(1 To 16) As String AfvIzsT0  
    Dim NoSeriesRM(1 To 16) As String @|EWif|  
    Dim paraTotal As Long, ParaText As String #R*7y%cO  
    Dim ttString As String, ttNo As String sMgRpem;  
     jhH&}d9  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long PM`iqn)@  
ky@ZEp=  
    Me.txtStatus.Visible = True Wg\MaZ6Di  
    Me.lbParaType.Visible = True JiFB<Q\  
    Me.cmdCheck.Enabled = False 8'#L+$O &N  
     P` AW8Y6o  
     <7_s'UAL!  
      EHk$,bM  
     ~'w]%rh!  
    Dim ParaType As String, rText As String tui5?\  
     KtD XB>  
    Selection.WholeStory UT_kw}1 o  
    Selection.NoProofing = True L'u*WHj|v  
     ;.Y-e Q,  
    tm1 = Now : 22)` ;0  
     /Csk"IfuO  
        ActiveWindow.View.Type = wdNormalView .,<w_=  
     YT'olk  
    NoSeries1(1) = "一" @K1'Q!S*  
    NoSeries1(2) = "二" *>E_lWW.  
    NoSeries1(3) = "三" uP$C2glyz  
    NoSeries1(4) = "四" 6 l7iX]  
    NoSeries1(5) = "五" d9q`IZqee  
    NoSeries1(6) = "六" /z`.-D(  
    NoSeries1(7) = "七" *=X 61`0  
    NoSeries1(8) = "八" KpC!C9  
    NoSeries1(9) = "九" sQBKzvFO3  
    NoSeries1(10) = "十"  xq&r|el  
    NoSeries1(11) = "十一" ;e0-FF+  
    NoSeries1(12) = "十二" I+W:}}"j  
    NoSeries1(13) = "十三" d'@i8N["{  
    NoSeries1(14) = "十四" (Rh$0^)A  
    NoSeries1(15) = "十五" eL88lV]I  
    NoSeries1(16) = "十六" Q$b4\n?44  
     uSUog+i  
    NoSeries2(1) = "㈠" Hq#q4Y  
    NoSeries2(2) = "㈡" m,V"S(A  
    NoSeries2(3) = "㈢" W#kd[Wi  
    NoSeries2(4) = "㈣" Scfe6+\EW  
    NoSeries2(5) = "㈤" `PZcL2~E  
    NoSeries2(6) = "㈥" $g_|U:,  
    NoSeries2(7) = "㈦" E?
S
  
    NoSeries2(8) = "㈧" \hI|I!sDWy  
    NoSeries2(9) = "㈨" <FfmDR  
    NoSeries2(10) = "㈩" *JF7
B  
     ng:B;; m  
    NoSeries5(1) = "①" <b-OdOg  
    NoSeries5(1) = "②" pU1miA '  
    NoSeries5(3) = "③" sq{=TB{  
    NoSeries5(4) = "④" {$Z S 27  
    NoSeries5(5) = "⑤" m ;yIFO  
    NoSeries5(6) = "⑥" }U|0F#0$  
    NoSeries5(7) = "⑦" SvQ!n4 $  
    NoSeries5(8) = "⑧" Q'rgh+6  
    NoSeries5(9) = "⑨" :QIf0*.O  
    NoSeries5(10) = "⑩" 8(g}/%1mt3  
     Og7^7))  
     +<bvh<]Od  
    NoSeriesRM(1) = "I" ';xp+,'}\  
    NoSeriesRM(2) = "II" a%r(
F  
    NoSeriesRM(3) = "III" l'7'G$v  
    NoSeriesRM(4) = "IV"  lofP$  
    NoSeriesRM(5) = "V" eI98J"h%?  
    NoSeriesRM(6) = "VI" eh}|Wd7J  
    NoSeriesRM(7) = "VII" z&y
VU<;  
    NoSeriesRM(8) = "VIII" z||FmL{  
    NoSeriesRM(9) = "IX" ?-JW2 E"uT  
    NoSeriesRM(10) = "X" {9vMc  
    NoSeriesRM(11) = "XI" Qt>Bvu Q  
    NoSeriesRM(12) = "XII" OmlM9cXm^4  
    NoSeriesRM(13) = "XIII" Hi nJ}MF  
    NoSeriesRM(14) = "XIV" )v\ A8)[  
    NoSeriesRM(15) = "XV" -?w3j9kk>  
    NoSeriesRM(16) = "XVI" CbFO9q  
     NZz^*Ela  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) i?861Hu  
     sKC(xO@L;`  
    If i = vbNo Then -J>f,zA  
        Exit Sub (L`IL e*  
    End If gO#%*  W  
     o_a'<7\#i  
    If Me.chkSuper.Value Then o:`^1  
        Me.txtStatus.Text = "检查修改所有的上标格式" j{
YIVX  
     pgPm0+N  
        CheckSuperScript PLq]\y  
         ogqKM_  
    End If 8>`8p0I$+  
     g%okYH?  
    If Me.chkStyle.Value Then AjJ/t4<  
        Me.txtStatus.Text = "设置样式，请稍候...." $B`ETI9g-N  
        DoEvents mFt\xGa  
        CeateOrModifyStyle |E&|6h1  
    End If cN`P5xP'  
     a fLE9  
     W@RD bsc  
     IV~5Y{(l  
    ClearDomain qtuT%?wT@Z  
         gfiFRwC`v  
     V/tl-;W  
     dF7
`V J2  
    If Me.chkLIST.Value Then Hi^Z`97c  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" vI]V@il  
     (_AU)  
        ConvertListToOrdinary Q-J} :U  
    End If p-*{x  
     NIHcX6Nw  
     6Ev+!!znu  
    Dim pType As String, trimpTEXT As String *onVG5<  
    If Me.chkNum.Value = True Then pnUL+UYeM  
        Me.txtStatus.Text = "转换全角数字形式为半角" hPuF:iiQ4  
        ConvertWidth "１", "1" .E;}.X  
        DoEvents ']N\y6=fn9  
        ConvertWidth "２", "2" zEh&@{u?  
        DoEvents `4wy *!]  
        ConvertWidth "３", "3" )}u?ftu\  
        DoEvents b^ A7R{G7  
        ConvertWidth "４", "4" 5t|$Yt[  
        DoEvents n.Y45(@E  
        ConvertWidth "５", "5" Bf;<3k)5.  
        DoEvents <?%49  
        ConvertWidth "６", "6" m[v%Qe|~  
        DoEvents 8S5Q{[!  
        ConvertWidth "７", "7" %4})_h?j  
        DoEvents 
-.K'rW  
        ConvertWidth "８", "8" k ~4 o`eA  
        DoEvents udPLWrPF\  
        ConvertWidth "９", "9" !-t"}^)  
        DoEvents .  LeS-  
        ConvertWidth "０", "0" f8-~&N/_R  
        DoEvents >M^:x-mib  
        ConvertWidth "ａ", "a" ?*6Q;.f<  
        DoEvents D;z!C ys  
        ConvertWidth "ｂ", "b" q#K0EAgC  
        DoEvents }(oWXwFb&W  
        ConvertWidth "ｃ", "c" c3WF!~1r  
        DoEvents O"1HO[  
        ConvertWidth "ｄ", "d" ,YRBYK:  
        DoEvents &%tW   
        ConvertWidth "ｅ", "e" qB+OxyT&  
        DoEvents JsEnhE}]  
        ConvertWidth "ｆ", "f" G=l:v  
        DoEvents \F
)WUIK  
        ConvertWidth "ｇ", "g" 4#W*f3d[@:  
        DoEvents t ?05  
        ConvertWidth "ｈ", "h" %Vfr#j$
=  
        DoEvents yq!peFu  
        ConvertWidth "ｉ", "i" [AYJ(H/  
        DoEvents m~4ik1wq  
        ConvertWidth "ｊ", "j" Gn4XVzB`O  
        DoEvents jQ8 T  
        ConvertWidth "ｋ", "k" 5 BeU/  
        DoEvents tMXNi
\Bj  
        ConvertWidth "ｌ", "l" ^4xl4nbx  
        DoEvents TN<"X :x9  
        ConvertWidth "ｍ", "m" +0%Y.O/{  
        DoEvents &{q<  
        ConvertWidth "ｎ", "n" Jl|^^?  
        ConvertWidth "ｏ", "o" E
yHL&  
        ConvertWidth "ｐ", "p" $ago  
        ConvertWidth "ｑ", "q" *+(eH#_2/  
        ConvertWidth "ｒ", "r" ]2{]TJ@B  
        ConvertWidth "ｓ", "s" KN&|&51p}  
        ConvertWidth "ｔ", "t" Mm!;+bM%  
        ConvertWidth "ｕ", "u" >1HXC2 Y  
        ConvertWidth "ｖ", "v" 8:2Vib$  
        ConvertWidth "ｗ", "w" uQKo2B0  
        ConvertWidth "ｘ", "x" I8|"h8\  
        ConvertWidth "ｙ", "y" *VUJ);7k  
        ConvertWidth "ｚ", "z" wbI1~/  
        ConvertWidth "Ａ", "A" MRT<hB  
        ConvertWidth "Ｂ", "B" IFW7MF9V  
        ConvertWidth "Ｃ", "C" J+wnrGoK  
        ConvertWidth "Ｄ", "D" FGeKhA 8jT  
        ConvertWidth "Ｅ", "E" b5?kgY  
        ConvertWidth "Ｆ", "F" X{:3UTBR  
        ConvertWidth "Ｇ", "G" r.c:QY$  
        ConvertWidth "Ｈ", "H" v=cX.^
L  
        ConvertWidth "Ｉ", "I" Hs6Kki1  
        ConvertWidth "Ｊ", "J" x6ayF q=  
        ConvertWidth "Ｋ", "K" zjSHa'9*  
        ConvertWidth "Ｌ", "L" dj}|EW4  
        ConvertWidth "Ｍ", "M" 
&da:{  
        ConvertWidth "Ｎ", "N" CZ>Ujw=&k  
        ConvertWidth "Ｏ", "O" =CO'LyG  
        ConvertWidth "Ｐ", "P" ]W5p\(1g  
        ConvertWidth "Ｑ", "Q" ( X+2vN  
        ConvertWidth "Ｒ", "R" M"-.D;sa1  
        ConvertWidth "Ｓ", "S" dF5y' R'  
        ConvertWidth "Ｔ", "T" ^1<i7
u  
        ConvertWidth "Ｕ", "U" OGO\u#
  
        ConvertWidth "Ｖ", "V" -Rx;"J.H  
        ConvertWidth "Ｗ", "W" ?!
.J0q  
        ConvertWidth "Ｘ", "X" &8I*N6p:%/  
        ConvertWidth "Ｙ", "Y" B~b ='jN  
        ConvertWidth "Ｚ", "Z" lqa~ZF*  
        ConvertWidth "^l", "^p" 5W=Jn?y2  
        ConvertWidth "（", "(" mQ9shdvt-  
        ConvertWidth "）", ")" iiWpmE<,  
     #99=wn  
    End If UID`3X  
TD78&a#  
    With ActiveDocument wO6>jW 7  
        Dim tbl As Table QZ[S, c^  
        For Each tbl In .Tables F+L%Ho;@P  
            tbl.Rows.Alignment = wdAlignRowCenter (iIzoEpb8W  
            tbl.Range.Font.NameFarEast = "楷体" &he:_p$x  
            tbl.Range.Font.NameAscii = "Times New Roman" }}bMq.Q'  
            tbl.Range.Font.Size = 10.5 c2L\m*^o  
        Next qnqS^K,':  
        Set tbl = Nothing 9W-1P}e,  
    End With dp4vybJ  
     (W}DMcuSd  
     |:,`dQfw  
    With ActiveDocument vP\6=7 1Y  
         G<]@nP{P  
        For i = 1 To .TablesOfContents.Count 4J?\JcGs  
            .TablesOfContents(i).Delete Z~[eG"6zI  
        Next "'/+}xM"5  
         8~T=p:z'  
         TX7dwmt)N  
         qn'TIE.  
        paraTotal = .Paragraphs.Count _xBh Mu2f  
        paraCounter = 1 "<f?.l\+  
         F{_,IQ]U  
        LastTitle0No = 0 LBmXy8'T`  
        LastTitle1No = 0 [.w`r>kZI  
        LastTitle2No = 0 L[<CEk  
        LastTitle3No = 0 F!w|5,)  
        LastTitle4No = 0 TI\EkKu"  
        LastTableNo = 0 ^/#8 "  
        LastFigureNo = 0 GkI{7GD:z  
         U#<{RqY  
        Dim Sec As Long )1$H7|  
         Fc=6*.hy  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) Nq|y\3]  
        If Sec = 0 Then K3h"oVn  
            Exit Sub <9T,J"y  
        End If Tt=;of{  
         ?b93! Q1  
        k = 0 +;=>&XR0m  
        Do While (paraCounter < paraTotal) And bContinue @VyNe(U  
            k = k + 1 1&vR7z]*  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then o)$eIu}Wg  
                Exit Do Z,"YMUl'  
            End If Ocn@JOg  
            paraCounter = paraCounter + 1 0k4XVd+Nv  
            If k Mod 20 = 0 Then j`K0D65  
                Me.lbCounter.Caption = paraCounter P+C5 
s  
                DoEvents w, _LC)9  
            End If EQX<<x
"  
        Loop AYfe_Dj  
         }:QoYNq  
         x(p/9$.#  
        Do While (paraCounter < paraTotal) And bContinue BuUM~k&SY  
             G: `So  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) `cIeqp  
            ShapeHeight = 0 e E(+  
            ShapeWidth = 0 _>r(T4}]  
           yU"#2 *C  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth =@q,/FR-  
             P*OT&q  
            Select Case ParaType 3,#v0#  
                Case "【】表格内容" B\l0kiNT  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" 4vND ~9d  
                Case "章" /!y;h-  
                    LastTitle0No = LastTitle0No + 1 "KSdC8MS  
                    '新一章开始，复位其下属标题编号 5=}CZYWB  
                    LastTitle1No = 0 lHHx D  
                    LastTitle2No = 0 K<%8 .mZ7  
                    LastTitle3No = 0 i6y=3k  
                    LastTitle4No = 0 Kaaz,C.$^  
                     fI'+4 )@x  
                    k = Val(ttNo) q8
,,[R_  
                    If k = 0 Then '非数字编号章节 M 9NT%7Il  
                        If ttNo <> NoSeries1(LastTitle0No) Then rq\<zx]au  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString cr?ZXu
_  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText qT&zg@m  
                        End If <I0om(P  
                    Else `tc X[(`  
                        If Val(ttNo) <> LastTitle0No Then wDW/?lT&  
                            rText = "第" & LastTitle0No & ttString C~'.
3Q6  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText hlz/TIP^N3  
                        End If O1+yOef"k  
                         d`%7Pk  
                    End If ~QUN O~  
                     JbMp /  
                    '章段落设置 ;%cW[*Dw  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 UIU6rilB  
                    .Paragraphs(paraCounter).Style = "QLNU章节" 9[DlJ@T}  
                    .Paragraphs(paraCounter).Range.Select g@pK9R%wH<  
                    Selection.EndKey unit:=wdLine \< a^5'  
                    tc = Replace(rText, vbCr, "") 8i<]$
 
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False ?_v_*+b_  
                Case "一级标题" N9M",(WTt}  
                    LastTitle1No = LastTitle1No + 1 jj]|}G  
                    '新一级标题开始，复位其下属标题编号 51*[Ibx  
                    LastTitle2No = 0 S,f#g?V  
                    LastTitle3No = 0 N P5K1:  
                    LastTitle4No = 0 /ge
x0w  
                     )J 2UNIgN  
                    If ttNo <> NoSeries1(LastTitle1No) Then ?FEh9l)d\  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString tV4wkS=R|  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText " RIt  
                    End If B}K<L\S  
                   }_H\75Iv  
                     *y$CDv
  
                    '一级标题段落设置  格式：一、标题内容 FMzG6nrdBN  
                    .Paragraphs(paraCounter).Range.Text = rText Y{Lxo])e  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" /zr)9LQY0  
                    .Paragraphs(paraCounter).Range.Select e AaS }g 0  
                    Selection.EndKey unit:=wdLine 0}|%pmY`  
                    tc = Replace(rText, vbCr, "") NLUO{'uUW  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False w'7J`n:{]  
                Case "二级标题" 6E(..fo:"  
                    LastTitle2No = LastTitle2No + 1 W7{^/s5r  
                    '新二级标题开始，复位其下属标题编号 ] ;HCt=I~  
                    LastTitle3No = 0 0%,?z`UY  
                    LastTitle4No = 0 5KIhk`S  
                     IGab~`c-[  
                    If ttNo <> NoSeries1(LastTitle2No) Then  ?sR(  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString l )'*jZ  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText 8o.
|P8%  
                    End If -Rr !J37  
                     u yE#EnsH  
                    '二级标题段落设置 格式：(一)、标题内容 c>Ri6=C  
                    .Paragraphs(paraCounter).Range.Text = rText LlVbY=EX7  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" jM-5aj[K  
                     Fq%NY8KNE  
                    .Paragraphs(paraCounter).Range.Select  ':DL  
                    Selection.EndKey unit:=wdLine c `.BN(  
                    tc = Replace(rText, vbCr, "") KP$AT}D  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False <AP.m4N) _  
                 U!E}(9 tb
 
                Case "三级标题" A"R(?rQi=  
                    LastTitle3No = LastTitle3No + 1 $Il  
                    '新三级标题开始，复位其下属标题编号 ULs'oT)K;  
                    LastTitle4No = 0 P\QbMj1U  
                     fKtlf QG  
                    If Val(ttNo) <> LastTitle3No Then |$+/IxDP  
                            rText = LastTitle3No & ". " & ttString <'BsQHI  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText a:4!z;2 |  
                         tCA0H\';  
                    End If d#W^S
[[  
                    '三级标题段落设置 格式：1. 标题内容 !1UZ
<hq  
                    .Paragraphs(paraCounter).Range.Text = rText Uv~|Xj4.  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" s0Z)BR #  
                    .Paragraphs(paraCounter).Range.Select 7(P4KvkI  
                    Selection.EndKey unit:=wdLine +rhBC V  
                    tc = Replace(rText, vbCr, "") 'MNCJ;A@V  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False BxZ7Bk  
                Case "四级标题" K$r)^K=s  
                    LastTitle4No = LastTitle4No + 1 s?4nR:ZC}  
                     tZFpxyF  
                    If Val(ttNo) <> LastTitle4No Then 73SH[
f[g  
                            rText = "(" & LastTitle4No & "). " & ttString $@L2zl1  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText )5y"T0]  
                     1s(i\&B  
                    End If fvV"H{V,  
                    '四级标题段落设置 格式：(1). 标题内容 T[c-E*{hR  
                    .Paragraphs(paraCounter).Range.Text = rText \MPbG$ ^  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" 8U7dd[  
                    .Paragraphs(paraCounter).Range.Select Y^;izM}  
                    Selection.EndKey unit:=wdLine tCPK_Wws?Z  
                    tc = Replace(rText, vbCr, "") ~dP\0x0AB  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False -"^xg"  
                 yJ6g{#X4K<  
                Case "表格标题" PzhC *" i}  
                    LastTableNo = LastTableNo + 1 E}<i?;  
                     'tU\~3k  
                    If ttNo <> CStr(LastTableNo) Then C@<gCMj,"  
                            rText = "表" & LastTableNo & ". " & ttString C}DIm&))  
                            ErrMsg.AddItem "表格编号错误：" & ParaText `0MQL@B  
                   ] ;CJ6gM~  
                    End If I[w5V;>*  
                     '/AX'U8Y  
                    '表格名称段落设置 格式：表1. 表格名称 koE]\B2A6  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" *O\lR-z!k  
                    xe = Replace(rText, vbCr, "") BN&}g}N  
                    .Paragraphs(paraCounter).Range.Select >+>N/`BG  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 Q ("4R  
                    Selection.Range.Text = xe 7W5Cm\  
                    Selection.EndKey IYH 4@v/#  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False -lAY*2Jg  
                 N[v=;&  
                Case "表格首行" 7KJ0>0~Et  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" iM9^.  
                Case "图片标题" G)_Zls2;  
                    LastFigureNo = LastFigureNo + 1 9`? M-U  
                     EWv[Sp  
                    If ttNo <> CStr(LastFigureNo) Then c~OvoTF,  
                            rText = "图" & LastFigureNo & ". " & ttString PtzT><  
                            ErrMsg.AddItem "表格编号错误：" & ParaText u0g"x_3  
                   2iO{*cB
 
                    End If Pv3G?u=4  
                    '图片名称段落设置 格式：图1. 图名称 :VLYF$|  
                    .Paragraphs(paraCounter).Range.Text = rText u,N<U t  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" @ `mke4>_  
                    .Paragraphs(paraCounter).Range.Select 1+Ik\  
                    Selection.EndKey unit:=wdLine Xs'qwL~{`  
                    xe = Replace(rText, vbCr, "") Gvvw:]WgF  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False
o|#F@L3i  
                Case "正文" [F(iV[n%  
                     '正文名称段落设置 Cb.M  
                    .Paragraphs(paraCounter).Style = "QLNU正文" /Ei e5p  
               Case "文献条目" zE?dQD^OD  
                    With .Paragraphs(paraCounter) w ykaf  
                        '.Range.Select 'C#[iRG4  
                        'Selection.ClearFormatting cqW(9A|8  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” FV,aQ#  
                        .Style = "QLNU参考文献" y0/FyQs  
                    End With (hIo0.  
               Case "图表注解" p{``a=  
                    With .Paragraphs(paraCounter) ]&`
=p{Z  
                        .Range.Font.NameFarEast = "楷体" U;"J8  
                        .Range.Font.NameAscii = "Times New Roman" _>?.MUPB  
                        .Range.Font.Size = 9 '小5号字 M-q5Jfm  
                         D(&WEmm\B  
                        .Alignment = wdAlignParagraphCenter aygK$.wos  
                        .LeftIndent = 0 t~) g)=>  
                        .RightIndent = 0 Kc#1H|'2N  
                        .FirstLineIndent = 0 S_RP&+!7  
                        .LineSpacing = 12 o)DO[  
                        .LineSpacingRule = wdLineSpaceExactly 2iOYC0`!  
                        .LineUnitAfter = 0 ,e'"SVQc  
                        .LineUnitBefore = 0 r6:e 423  
                        .OutlineLevel = wdOutlineLevelBodyText NA`8 ^PZ  
                        .PageBreakBefore = False ]<r.{EJ  
                        .RightIndent = 0 W/CZ/Mc  
                        .WordWrap = True ra_v+HR7  
                        .LineUnitAfter = 0.5 h^''ue"  
                         vb`aV<MhH  
                    End With i XGy*#>V  
                Case Else i&DUlmt)f  
                    '不作处理 &2O~BIRE  
            End Select rR#wbDr5  
             N|ZGc{?  
            '含有inlineshape的段落处理 [nrD4  
            If ShapeHeight > 30 Then ?FV%e  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 } j;es(~D  
            End If jpTk@  
             RZ ?SiwE  
            If (ShapeWidth + ShapeHeight) > 150 Then m&be55M;  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" !- 5z 1b)  
            End If ?C   
             !;hp  
            '段落计数器递 CVEo<Tz  
            paraCounter = paraCounter + 1 {y%@1q%"  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter XV`8Vb  
            Me.txtStatus.Text = ParaText up0=Y o@  
            DoEvents "}H2dn2n  
        Loop yF|+oTp  
    End With 8s-X  H  
     -%{+\x2  
    msg = "" VwK7\jV  
     4T v=sP  
    For i = 0 To Me.ErrMsg.ListCount - 1 =A$
d)&  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) K\s<<dRa  
    Next oEj$ xm_}  
     q9a6s{,  
     ^D9w=f#a  
     B7.&yXWgn  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg nNnfcA&W  
    Me.cmdCheck.Enabled = True <E^;RG  
    Me.txtStatus.Visible = True eX!yIqAR  
    Me.lbParaType.Visible = False _9Rj,  
     9-24c  
    bContinue = False #uICHt3  
End Sub _5$L`&  
LX=v _}l J  
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) 036QV M$  
    Dim pTEXT As String Y4
X`(\A  
     9|OOT[  
    pTEXT = ChKRange.Text HEhBOER?  
     fE3%$M[V7  
    ParaType = "其它" YQD/vc~8G  
    TitleString = pTEXT &n0Ag]$P  
    TitleNo = "N/A" o#BI_ #b  
     @l5GBsLK  
    shpCounter = ChKRange.InlineShapes.Count /g!Xe]S s  
    If shpCounter <> 0 Then kf9]nIo  
        MaxShpHeight = 0: TotalShpWidth = 0 R|wS*xd,  
        For i = 1 To shpCounter NVB#=!
S  
            k = ChKRange.InlineShapes(i).Height Gm0}
KU  
            l = ChKRange.InlineShapes(i).Width FT J{  
            If k > MaxShpHeight Then ;W FiMM\  
                MaxShpHeight = k ?.beN[X  
            End If 1F3Q^3+  
            TotalShpWidth = TotalShpWidth + l yMD0Tj5ZQ  
        Next kXlI*h  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then -7%dg
Y(  
            Exit Sub +V[;DOlll  
        End If HMmVfGp]  
    End If kX:1=+{xg  
     zG
^$-L.n  
    '空行 EVA&By6_k  
    If Len(pTEXT) <= 2 Then `gJ$fTi&  
        Exit Sub UQ@szE  
    End If 5l%g3F  
     e#F3KLSL`  
         3v`@* *  
    '是否为表格中的文字 uf:'"7V7  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then MIWc @.i2  
        ParaType = "表格内容" ,^eOw
WV  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) BqdpJIr  
        If k = 1 Then s|TO9N)pO  
            ParaType = "表格首行" %mzDmrzq  
        End If n1PvZ~^3  
        Exit Sub b' ~WS4xlD  
    End If 8qxZ7|Y@  
     bMv[.Z@v(  
    '例外情况：脚注 :QXKG8^  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then r>CBp$  
        ParaType = "脚注" S?OCy4dk:  
        Exit Sub ua_,c\iL  
    End If Xh/BVg7$  
     Q]VG6x  
    '例外情况：尾注 A0v@L6m-O  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then x(~V7L>"i  
        ParaType = "尾注" 6
KD-nr{S  
        Exit Sub E]^n\bE
%  
    End If \ (` C*d  
     !:tr\L {  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then jJ,y+o  
        ParaType = "页眉页脚" _?$w8 S%  
        Exit Sub 0I2?fz)  
    End If hPCSAo!|  
     v!3Oq.ot  
     vmo!  
    With regEX 8+32hg@^F  
        .Global = True NdXC8  
         BJ fBYH,M  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" U!JmSP  
        If regEX.Test(pTEXT) Then Wc;N;K52   
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") Vh]=sd<F  
            TitleString = regEX.Replace(pTEXT, "$3") @3FQMs4  
            TitleNo = regEX.Replace(pTEXT, "$1") <yvo<R^30  
            ParaType = "章" 1|:;~9n<t  
            Exit Sub ?wn<F}UH  
        End If fGe"1MfU  
         lZ <D,&  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" 7|
 j rk  
        If regEX.Test(pTEXT) Then %dhrXK5  
            ParaType = "一级标题" C 20VSwd  
            regEX.Execute (pTEXT) |tTcJ\bG  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") m#RMd,'X  
            TitleString = regEX.Replace(pTEXT, "$3") CoWT  
            TitleNo = regEX.Replace(pTEXT, "$1") `49!di[  
            Exit Sub ((^vsKT  
        End If ilZ5a&X;  
         ^BW8zu@=O  
        '全角或半角括号中的数字 +$/NTUOP  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" #cb9g    
        If regEX.Test(pTEXT) Then ejbtdU8N<  
            ParaType = "二级标题" 8H8Q
  
            regEX.Execute (pTEXT) r/HG{XH`  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") Kq+vAp
).  
            TitleString = regEX.Replace(pTEXT, "$5") ?`6Mfpvj96  
            TitleNo = regEX.Replace(pTEXT, "$2") ;<xPzf  
            Exit Sub Vf=,@7  
        End If 'GO*6$/  
         u bZ`Y$  
        '阿拉伯数字  1. 2. E33x)CP  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" Fx)><+-  
        If regEX.Test(pTEXT) Then mmCGIX  
            ParaType = "三级标题" )M(//jX  
            regEX.Execute (pTEXT) P\z1fscnK  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 g9d/nRX&  
            TitleString = regEX.Replace(pTEXT, "$3") ~*Y/#kPY  
            TitleNo = regEX.Replace(pTEXT, "$1") K 6,c||#<  
            Exit Sub o? K>ji!  
        End If \{ C ~B;=  
         8p1:dTI5Pb  
        '全角或半角括号中的阿拉伯数字 */$]k
E  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" :R$v7{1  
        If regEX.Test(pTEXT) Then 5-S-r9  
            ParaType = "四级标题" t^%)d7$  
            regEX.Execute (pTEXT)
{>TAnb?n  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") w]
N;HlU  
            TitleString = regEX.Replace(pTEXT, "$5") u^x<xw6f  
            TitleNo = regEX.Replace(pTEXT, "$2") .f!:@fX>=  
            Exit Sub 0}T56aD=!  
        End If ]@ Vp:RGMr  
         7;?7q  
        '表格名称 &?}h)
U#:  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" 2^U?Ztth6  
        If regEX.Test(pTEXT) Then RK)ikLgp  
            ParaType = "表格标题" (/t{z=  
            regEX.Execute (pTEXT) ~L>&
p  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) LJt5?zQKrW  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) h96<9L  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) =eh!eZ9  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 <7/7+_y  
            Exit Sub BV\~Dm]"  
        End If N% u4uLP5k  
         &b2@+/ F  
        '图片名称 2|`Mb~E;  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" w[)HQ1K  
        If regEX.Test(pTEXT) Then  BrZ17  
            ParaType = "图片标题" C/ ]Bx  
            regEX.Execute (pTEXT) GpR,n2  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") `q1-yH0~4  
            TitleString = regEX.Replace(pTEXT, "$3") AU9:Gu@M/  
            TitleNo = regEX.Replace(pTEXT, "$1") vSH-hAk  
            Exit Sub %L-{4Z!"sI  
        End If n:H |=SF{  
         Wv,?xm  
        '参考文献 -Q ];o~  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 N~S#(.}[  
        If regEX.Test(pTEXT) Then T/J1 b-  
            ParaType = "文献条目" 3jto$_3'w  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") A v;NQt8ut  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") F:.8O ,%u  
            Exit Sub <Oy2JjY  
        End If Y'R/|:YL@  
         *0r!eD   
        prfx = Left(pTEXT, 2) y'JJ#7O=  
        If prfx = "注：" Or prfx = "注:" Then k9VWyq__  
            ParaType = "图表注解" /^WawH6)6  
            Exit Sub ~uB@oKMru  
        End If 6k+tO%{~  
         D(e,R9hPU  
         m+ #G*  
        ParaType = "正文" (+BrC`  
         blaXAqe  
    End With G,(Xz"`,  
End Sub vH E:TQo4  
<N=ow"rD  
Sub ConvertListToOrdinary() V_|
HzYJJ5  
    Dim st As Paragraph eq9qE^[Z&  
    With ActiveDocument )_?HBTG  
        For i = .Paragraphs.Count To 1 Step -1 U-{3HHA  
            Set st = .Paragraphs(i) Dr}elR>~G=  
            lst = st.Range.ListFormat.ListString f&&Ao  
            If lst <> "" Then @]EdUzzKq  
                st.Range.ListFormat.RemoveNumbers \D#+0  
                st.Range.InsertBefore lst & " " -:b<~S[  
            End If yC!>7@m  
        Next =Fq{#sC>  
    End With 2{g&9  
    Set st = Nothing x'%vL",%  
End Sub OXX D}-t  
jX t5.9 t  
Private Sub UserForm_Activate() !&v"+ K3lU  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" hWb jA[a/  
    Me.lbTotal.Font.Bold = True i 9peQ61{  
    Me.txtStatus.Visible = False B\;fC's+  
    Me.cmdCheck.Enabled = True I6S>*V  
4(,X.GVY/  
End Sub ]a:T]x6'  
q'X#F8v  
F0k
Q/x  
Sub CheckSuperScript() j1 ap,<\.k  
    Selection.Find.ClearFormatting jo 0
XOs  
    Selection.Find.Replacement.ClearFormatting * $mb~k^R  
    With Selection.Find YC*`n3D|'  
        .Text = "[【\[［〖](*)[】\]〗］]" -}8r1jQH;  
        .Replacement.Text = "[\1]" ma`sv<f4-!  
        .Replacement.Font.Superscript = True 'w|N} 4  
        '.Replacement.Font.Color = wdColorBlue 7EL0!:Pp3  
        .Forward = True SF[Z]|0gs  
        .Wrap = wdFindContinue s(MdjWw   
        .FORMAT = True ?b]f$ 2  
        .MatchCase = False gDH|I;!  
        .MatchWholeWord = False cn9=wm\\  
        .MatchByte = False %fh-x(4v  
        .MatchAllWordForms = False ~4ijiw$  
        .MatchSoundsLike = False .wtYostv  
        .MatchWildcards = True LXR>M>a`  
    End With |(Xxi  
    Selection.Find.Execute Replace:=wdReplaceAll
e)F_zX  
End Sub oiz]Bd  
Y`xAJ#= ,i  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) q1|@v#kH6  
    bContinue = False Z_T~2t  
    Set regEX = Nothing 4!?4Tc!X  
End Sub u(`7F(R  
a3He-76  
Sub CeateOrModifyStyle() &kH7_Lz  
' W,nn,%  
' }MM:qR  
Dim stl As Style Kf6D$}  
     4k6:   
    Options.Pagination = False fECm ELd  
     UK[+I]I p  
    On Error Resume Next |CBJ8],mT  
    For Each stl In ActiveDocument.Styles Yg1HvSw\  
        stl.Delete wFBSux$  
    Next hm1.UE  
    On Error GoTo 0 |Y(   
     B{V(g"dM  
    Set stl = Nothing
#vPk XcP  
     iX>)6)uJ  
    DoEvents 1}CJ&  
    On Error Resume Next w&&)v~Y_  
     u:^9ZQ+  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph P>|sCF  
     )LBbA  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph 
Maiyd  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph dmMr
Z1u2  
     b1Ba}  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph M%Q_;\?]  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph 3b<;y%  
     Jd33QL}Hj  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph ^4{{ +G)j  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph n+Ng7  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph H\|H]:CE  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph hXx:D3h  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph u$^r(.EV  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph eHyIFoaC/  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph g{m~TVm'  
     6%&w\< (SG  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph Vz y )jf  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph j<L!(6B  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph #Jfmt~ks'  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph ;9uDV -"  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph G4uO
Y?0N  
     VB4
ir\nF  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph (IAR-957pN  
    On Error GoTo 0 ZYz8ul$E  
    DoEvents ~jC$C2A0  
     os+]ct  
    'BaseStyle k{^iv:  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False ZP.~Y;Ch;-  
    With ActiveDocument.Styles("BaseStyle").Font  w4UJXc  
        .NameFarEast = "宋体" \T;(k?28HN  
        .NameAscii = "Times New Roman" pq
]>Ep  
        .NameOther = "宋体" " _TAo  
        .Size = 10.5 '5 9{VA6h  
        .Bold = wdUndefined TZObjSm_v  
        .Italic = wdUndefined pEb/yIT"  
        .Subscript = wdUndefined c>#3{}X|x%  
        .Subscript = wdUndefined Js9 EsN%  
         *o=( w5   
        .Underline = wdUnderlineNone *+ J`Yk7}  
        .UnderlineColor = wdColorAutomatic Wtflw>-  
        .StrikeThrough = False 2(Nf$?U@0  
        .DoubleStrikeThrough = False \Oe8h#%  
         IXR%Ig gJA  
        .Outline = False ,B,0o*qc{K  
        .Emboss = False z*N%kcw"  
        .Shadow = False \YH*x`  
        .Hidden = False h-*h;Uyc  
        .SmallCaps = False !\q'{x5C  
        .AllCaps = False F[0w*i&u5  
        .Color = wdColorAutomatic P0-K/_g  
        .Engrave = False OX.g~M ig|  
        .Scaling = 100 hOm0ND?;1  
        .Kerning = 1 F=;nWQ&  
        .Animation = wdAnimationNone In}~bNv?  
        .DisableCharacterSpaceGrid = False v=YI%{tx)  
        .EmphasisMark = wdEmphasisMarkNone "s\himoa  
    End With :Z3]Dk;y  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat XeAH.i<  
        .LeftIndent = 0 L T/*y=  
        .RightIndent = 0 Qgl5Jr.  
        .SpaceBefore = 0 ,WS{O6O7  
        .SpaceBeforeAuto = False I"W
mDC`1  
        .SpaceAfter = 0 U H6 Jvt  
        .SpaceAfterAuto = False "u"?~  
         |eej}G(,m}  
        .LineSpacingRule = wdLineSpaceSingle sg_%=;  
        .Alignment = wdAlignParagraphJustify mFBuKp+0)h  
         t SunO-\y  
        .WidowControl = False
-.UUa  
        .KeepWithNext = False .gw6W0\F  
        .KeepTogether = False +Ui%}^ZZ  
        .PageBreakBefore = False u9ue>I/  
        .NoLineNumber = False 5>h# hcL  
         VQ4rEO=t  
        .FirstLineIndent = CentimetersToPoints(0) OUm,;WNLf  
        .OutlineLevel = wdOutlineLevelBodyText W)u9VbPk[  
        .CharacterUnitLeftIndent = 0 4'L.I%#tZ  
        .CharacterUnitRightIndent = 0 f5#VU7=1F2  
        .CharacterUnitFirstLineIndent = 0 eXtlqU$  
        .LineUnitBefore = 0 h{e?Fl  
        .LineUnitAfter = 0 !7Z?VEZ  
        .AutoAdjustRightIndent = True [}"m4+  
        .DisableLineHeightGrid = True qB3=wFI  
         9:*a9xT,  
        .FarEastLineBreakControl = True x< ) T,c5Y  
        .WordWrap = True K`kWfPwp  
        .Hyphenation = False VCUsvhI  
         G5$YXNV  
        .HangingPunctuation = True nD{{/_"'  
        .HalfWidthPunctuationOnTopOfLine = True b*cVC^{Dy  
        .AddSpaceBetweenFarEastAndAlpha = True 
-$(2Z[  
        .AddSpaceBetweenFarEastAndDigit = True >uYGY{+j[  
        .BaseLineAlignment = wdBaselineAlignBaseline p@+D$  
    End With D(">bR)1  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False RG`eNRTQ%  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll '\Uy;,tu /  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese }<H0CcG  
    ActiveDocument.Styles("BaseStyle").NoProofing = False kBrU%[0O  
     -qD L':  
    '一级标题题样式 EA<x$O  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") xGK"`\V  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" p+:MZP -%(  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False w?M` gl8r  
    With ActiveDocument.Styles("QLNU一级标题").Font Xm^/t#  
        .NameFarEast = "黑体" sq}uq![?
M  
        .NameAscii = "Arial Black" x
)e(g}n  
        .NameOther = "黑体" iZ2nBiQ  
        .Name = "黑体" WNiM&iU  
        .Size = 16              '三号 qmbhx9V   
        .Bold = True #!]~E@;E  
        .Italic = wdUndefined }9Awv#+  
        .Subscript = wdUndefined PkDh[i9Z|  
        .Superscript = wdUndefined _z&H
O  
    End With 3x E^EXV  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat \l/< [ZZ  
         ??g = `yH  
        .LeftIndent = CentimetersToPoints(0) zR }vw{  
        .RightIndent = CentimetersToPoints(0) l gTw>r   
        .FirstLineIndent = CentimetersToPoints(0) 8fQaMn4V  
         ci{WyIh  
        .LineSpacingRule = wdLineSpaceSingle v^(J+d_>   
        .Alignment = wdAlignParagraphCenter 9I*`~il>{  
         O}q(2[*i  
        .WidowControl = True =}YaV@g<f  
        .KeepWithNext = True = -n7/  
        .KeepTogether = True \%]!/&>{6  
        .OutlineLevel = wdOutlineLevelBodyText .Wvg{ S-  
         QhmOO
-Z?  
        .LineUnitBefore = 0.5 0t P{
K  
        .LineUnitAfter = 0.5 -^= JKd&p  
    End With qJEtB;J'  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False zirnur1  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll ,IQ%7*f;O_  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese [knwp$  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True 3("E5lI(g:  
    DoEvents ^h"F\vIpV  
     e><,WM,e
 
    '二级 U7d05y'  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") h>&t
``<  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" (Ei} :6,}  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False iLJBiZ+  
    With ActiveDocument.Styles("QLNU二级标题").Font ,HfdiGs}j  
        .NameFarEast = "黑体" cW\Y1=Gv|  
        .NameAscii = "Arial Narrow" 0`"DYJ}d  
        .NameOther = "黑体" q|N4d9/b  
        .Name = "黑体" 7N[Cs$_]  
        .Size = 15        '小三号 Xa/]} B  
        .Bold = False ]gB:ht  
        .Outline = False Y .\<P*iO  
        .Italic = wdUndefined aUEnQ%YU"  
        .Subscript = wdUndefined Pxe7 \e  
        .Superscript = wdUndefined H4g1@[{|0O  
    End With $D(q  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat qwHP8GU  
        .LeftIndent = CentimetersToPoints(0) ;2iDa  
        .RightIndent = CentimetersToPoints(0) aD
jYT/`l  
        .FirstLineIndent = CentimetersToPoints(0) <'z.3@D  
         (, 2U?p  
        .LineSpacingRule = wdLineSpaceSingle teg[l-R"7z  
        .Alignment = wdAlignParagraphLeft kDK0L3}nr]  
         x.aqy'/`  
        .WidowControl = True 6ragRS/'x  
        .KeepWithNext = True D 13bQ&\B-  
        .KeepTogether = True eLN[`hJ  
        .PageBreakBefore = False F=~LVaF/_  
        .OutlineLevel = wdOutlineLevelBodyText )TyI~5>;  
         qre(3,VE5  
        .LineUnitBefore = 0.5 .0#{?R,  
        .LineUnitAfter = 0.5 "0Yb 2>F  
        
khfWU  
    End With F}=O Mo:.  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False U&SgB[QHO  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll F48W8'un  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese @!2vS@f  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True #F6!x3Z  
    DoEvents 3"iJ/Hc}9  
     XFWo"%}w  
    '三级标题样式 d/xGo[?$  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") &cB+la\_  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" hC...tk  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False (j884bu  
    With ActiveDocument.Styles("QLNU三级标题").Font $h8,QP y  
        .NameFarEast = "宋体" 4W36VtQ@E  
        .NameAscii = "Times New Roman" wxo{gBq  
        .NameOther = "黑体" .Sjg  
        .Name = "黑体" Z6_E/S  
        .Size = 14               '四号 :N ]H"u9X  
        .Bold = False x @uowx_&m  
        .Outline = False _gI1@uQw  
        .Italic = wdUndefined $5Tjo T  
        .Subscript = wdUndefined S]}W+BF3  
        .Superscript = wdUndefined %2EHYBQjN  
    End With 38gEto#q  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat `NARJ9M   
        .LeftIndent = CentimetersToPoints(0) !vH={40]  
        .RightIndent = CentimetersToPoints(0) tz`T#9  
        .FirstLineIndent = CentimetersToPoints(0) oq9gG)F  
         ETtoY<`#  
        .LineSpacingRule = wdLineSpaceSingle .+dego
:  
        .Alignment = wdAlignParagraphLeft X16r$~Pb  
         wGAeOD  
        .WidowControl = True
Q@
? {|7:  
        .KeepWithNext = True yU< "tgE  
        .KeepTogether = True )>8k8E  
        .PageBreakBefore = False 2, r{z J8  
        .OutlineLevel = wdOutlineLevelBodyText uw9w{3]0f  
         QVPJ$~x  
        .CharacterUnitLeftIndent = 0 R#Hz%/:|A  
        .CharacterUnitRightIndent = 0 [,|;rt\o>  
        .CharacterUnitFirstLineIndent = 2 \6K1Z!*;  
         Cw ]bhaG g  
        .LineUnitBefore = 0.5 -{s9PZ3~_  
        .LineUnitAfter = 0 9:]|TIPi  
    End With [rtMx8T  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False ~mYCXfoc{  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll &L4>w.b"N  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese 7G5VwO   
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True lehuJgz'OO  
    DoEvents pl5Q2zq%  
     qBXIR}  
    '四级标题样式 @8'LI8 \/  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ]{ PJ  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" @s
LB _f  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False 4dI=  
    With ActiveDocument.Styles("QLNU四级标题").Font _ cD-E.E%  
        .NameFarEast = "宋体" ]:F?k
#c  
        .NameAscii = "Times New Roman" )SsO,E+t=U  
        .NameOther = "宋体" OA{PKC  
        .Name = "宋体" z)XIA)i6  
        .Size = 12               '小四号 pQ9~^  
        .Bold = True xzOM\ Nq?O  
        .Outline = False /faP@Q3kR  
        .Italic = wdUndefined X(fT[A_2C  
        .Subscript = wdUndefined P'D'+qS  
        .Superscript = wdUndefined &U0Y#11Cx  
    End With C&-]Rf fA  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat 'w~e>$WI  
         F
@ Cxjz  
        .LeftIndent = CentimetersToPoints(0) !t+eJj   
        .RightIndent = CentimetersToPoints(0) XZ[3v9?&n  
        .FirstLineIndent = CentimetersToPoints(0) E_j=v \  
         iE=:}"pI"  
        .LineSpacingRule = wdLineSpaceSingle 9Ts r g  
        .Alignment = wdAlignParagraphLeft XC
QPVSh  
         Q'
K[?W|C  
        .WidowControl = True e? n8 S  
        .KeepWithNext = True N2e]S8-  
        .KeepTogether = True TM^.y Y  
        .PageBreakBefore = False Wc!.
{2  
        .OutlineLevel = wdOutlineLevelBodyText uT2w2A;  
         [gxH,=Pb  
        .CharacterUnitLeftIndent = 0 Xe>   
        .CharacterUnitRightIndent = 0 |t&gyj  
        .CharacterUnitFirstLineIndent = 2 jv'q:uA^  
         NGOyd1$7N  
        .LineUnitBefore = 0 fD ?w!7f-1  
        .LineUnitAfter = 0 >q)VHV9P  
         OysO55
i  
    End With }@Ou]o  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False \R (Yf!>  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll A<<Bm M.%  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese dEG 1[QG  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True 25/OV"Z  
    DoEvents rWD*DmY@"  
     7 Hzv-s  
    '正文校式 Y5$VWUrB  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") P_Ni 5s)  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" ]O.Z4+6w  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False !S5_+.U#  
    With ActiveDocument.Styles("QLNU正文").Font 40R7@Vaf  
         Swn om?t  
        .NameFarEast = "宋体" %6HJM| {H  
        .NameAscii = "Times New Roman" xr).
ZswQ  
        .NameOther = "宋体" Trt1M  
        .Name = "宋体" vK,. P:n  
         h$rk]UM/Q  
        .Size = 12               '小四号 O>kM2xw  
         zTS#o#`!\  
        .Bold = wdUndefined mZ}C)&,m2  
        .Italic = wdUndefined Xhm)K3RA*T  
        .Subscript = wdUndefined &VfMv'%x  
        .Superscript = wdUndefined +DA,|~k_  
         lko k2  
        .Outline = False |&0zAP"\  
        .Emboss = False muKCCWy#  
        .Shadow = False G>w+J'7  
        .Hidden = False M"|({+9eG  
         #5}v?  
        .DisableCharacterSpaceGrid = True Y<9]7R(\;  
    End With ZIikDih1  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat i
!dQ Sdf  
         l F*x\AT  
        .LeftIndent = CentimetersToPoints(0) 'NDDj 0Y  
        .RightIndent = CentimetersToPoints(0) El4SL'E@  
        .FirstLineIndent = CentimetersToPoints(0) Ul%D}(,  
         _&|<(m&."  
        .LineSpacingRule = wdLineSpaceExactly Spt;m0W90  
        .LineSpacing = 20 U((mOm6  
        .Alignment = wdAlignParagraphLeft Y[Kpd[)[v  
         fMZzR|_18  
        .WidowControl = False @bO/5"X,  
        .KeepWithNext = False mv\S1[<T  
        .KeepTogether = False fs6% M]u  
        .PageBreakBefore = False y?.l9  
        .Hyphenation = False ^muPjM+D  
         T@x_}a:g  
        .OutlineLevel = wdOutlineLevelBodyText z{ MO~d9  
         dPCn6  
       j]bNOC2.L  
        .CharacterUnitLeftIndent = 0 $|pD}  
        .CharacterUnitRightIndent = 0 4+'d">+|  
        .CharacterUnitFirstLineIndent = 2 .l}oxWWoS  
         !;h`J:dN  
        .LineUnitBefore = 0 6R+EG{`  
        .LineUnitAfter = 0 /aX5G  
        .SpaceBefore = 0 diDB>W  
        .SpaceAfter = 0 r0/o{Y|l6  
         z] bcg$m  
        .DisableLineHeightGrid = True Yi+$g  
    End With YH/3N(],  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False GBo'=  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll 7o4B1YD  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese Z]x)d|3;  
    ActiveDocument.Styles("QLNU正文").NoProofing = True FCA ]zR1  
    DoEvents bA8RoC  
     35PIfqm  
    '图片段落样式 xI(Y}>  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") 1_0\_|  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" ,R2;oF_  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False S^*ME*DDz  
    With ActiveDocument.Styles("QLNU图片段落").Font +[Zcz4\9  
        .Size = 12               '小四号 BNpc-O~  
        .Italic = wdUndefined g]Fm%iy  
        .Subscript = wdUndefined &JHqUVs^  
        .Superscript = wdUndefined \+Pk"
M  
    End With >[a&,gS  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat '7(oCab"_  
         ^U[yk'!Y  
        .LeftIndent = CentimetersToPoints(0) Ch,%xs.)G  
        .RightIndent = CentimetersToPoints(0) ]0@ 06G(y  
        .FirstLineIndent = CentimetersToPoints(0) #xBh62yIuP  
         a? P$8NLr  
        .LineSpacingRule = wdLineSpaceSingle Zz@wbhMV  
        .Alignment = wdAlignParagraphCenter 8xQjJ  
        .KeepWithNext = True cOo@UU P  
        .OutlineLevel = wdOutlineLevelBodyText Ab/KVB  
         *e}1KcJ  
        .CharacterUnitLeftIndent = 0 X;%*+xQ^  
        .CharacterUnitRightIndent = 0 YMD&U   
        .CharacterUnitFirstLineIndent = 0 _rjB.  
         9 Z79  
        .LineUnitBefore = 0 To@77.'  
        .LineUnitAfter = 0 N,~"8YSo  
    End With _5&LV2  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False I4\ c+f9  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll 3?:?dy(3z  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese &&K"3"um  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True x3]y*6  
    DoEvents v!77dj 6I  
     gq[`g=x  
     hR(p
{$-T  
    '第X章 /Ym!%11`  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") n+%tu"e  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" Fvae
lB  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False tX 3y{W10"  
    With ActiveDocument.Styles("QLNU章节标题").Font g&`[r6B  
        .NameFarEast = "黑体" TDR2){I  
        .NameAscii = "Arial Black" S1G3xY$0  
        .NameOther = "Arial Black" 2"C,u V@F!  
        .Name = "黑体" Zq\Vq:MX  
        .Size = 16 0V5{:mzA  
        .Bold = True tX7TP(  
        .UnderlineColor = wdColorAutomatic lJ/{.uK  
        .Outline = False i$W E1-  
        .Italic = wdUndefined !y syb  
        .Subscript = wdUndefined y~/i{a;1y  
        .Superscript = wdUndefined <9yB & ^  
        .Scaling = 100 zPt0IB_j'  
        .DisableCharacterSpaceGrid = True X Cf!
xIv  
    End With F`U YgN  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat )3A%Un#B  
        .LineSpacingRule = wdLineSpaceSingle gi5Ffvs$  
        .Alignment = wdAlignParagraphCenter UgA
G2  
        .WidowControl = True VH2 /  
        .KeepWithNext = True m.DC  
        .KeepTogether = True 2E_*'RT  
        .PageBreakBefore = True F|&=\Q  
        .OutlineLevel = wdOutlineLevelBodyText TATH,Sz:x  
         G;Thz  
        .LeftIndent = CentimetersToPoints(0) &p6^   
        .RightIndent = CentimetersToPoints(0)
3E]IEf  
        .FirstLineIndent = CentimetersToPoints(0) 9i*Xd$ G  
         RuuXDuu:VL  
        .CharacterUnitLeftIndent = 0 5x1_rjP$|  
        .CharacterUnitRightIndent = 0 =V*4&OU  
        .CharacterUnitFirstLineIndent = 0 1H]E:Bq  
         JTI 'W  
        .LineUnitBefore = 1 f+W8Gszi  
        .LineUnitAfter = 0.5 ]n$&|@  
         A.
@
Af+  
        .AutoAdjustRightIndent = False C8bv%9  
        .DisableLineHeightGrid = True y&{ Z"+B5  
        .FarEastLineBreakControl = True 8jz[;.jP",  
        .WordWrap = True nk^-+olm  
    End With }&:F,q*  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False z}f;_NX  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll ~u+|NtF  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese  &j_:VP  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True ``* !b>)  
    DoEvents rN5;W  
     AagWswv{Bf  
    '表格标题 @!:_r5R~N  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") [$P.ek<  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" %x zgTZ  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False \B1<fF2  
    With ActiveDocument.Styles("QLNU表格标题").Font ;|H(_J=6k  
        .NameFarEast = "楷体" IWD21lS  
        .NameAscii = "Arial" !|`vW{
v  
        .Name = "楷体" Y%A KN  
        .Size = 10.5 2i_X{!0}  
        .Bold = True -|x YT+?%  
        .Underline = wdUnderlineNone 95X!{\  
        .Italic = wdUndefined dpI9DzA;  
        .Subscript = wdUndefined bJ6@ B<  
        .Superscript = wdUndefined *&sXC@
^@^  
        .Color = wdColorAutomatic PML+$  
    End With )o>1=Y`[z  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat *Qe{CE  
         [V_?`M  
        .LineSpacingRule = wdLineSpaceSingle R4P$zB_<2  
        .Alignment = wdAlignParagraphCenter rm nfyn  
        .KeepWithNext = True ?~#{3b  
        .KeepTogether = True r]'Q5l4j6"  
        .OutlineLevel = wdOutlineLevelBodyText Mh;rhQ  
         X"pp l7o  
        .LeftIndent = CentimetersToPoints(0) Th(F^W9  
        .RightIndent = CentimetersToPoints(0) "}'Sk(  
        .FirstLineIndent = CentimetersToPoints(0) jFThW N  
         Yvbk[Rb  
        .CharacterUnitLeftIndent = 0 <=7N 2t)s4  
        .CharacterUnitRightIndent = 0 j~:N8(=  
        .CharacterUnitFirstLineIndent = 0 Isna KcLM  
         @!zT+W&
 
        .LineUnitBefore = 1 RFzMah?Q=j  
        .LineUnitAfter = 0 s#2<^6  
         >(:b\*C  
    End With kx_PMpc  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False 4bZ +nQgLu  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll {%Ujp9 i  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese Qpaan  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True \NI0rL  
    DoEvents LJII7<k  
vspub^;5\  
    '表格首行 gdVajOAu  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") :U$U:e  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False 6*r3T:u3  
    With ActiveDocument.Styles("QLNU表格首行").Font ;V"(! 'd  
        .NameFarEast = "楷体" jt
Fet{  
        .NameAscii = "Times New Roman" k9iXVYQ.;r  
        .Name = "楷体" .ugQH<B  
        .Size = 9 XOi[[G}  
        .Bold = True }2-p=Y:6  
        .Underline = wdUnderlineNone ZUxlk+o9d  
        .Italic = wdUndefined p-1 \4  
        .Subscript = wdUndefined VG+WVk  
        .Superscript = wdUndefined
b/g"ws_  
    End With [d~25  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat BL Q&VI4  
        .LineSpacingRule = wdLineSpaceSingle ^vH3 -A;*  
        .Alignment = wdAlignParagraphCenter Z/>0P*
F  
         ;%tu;  
        .LeftIndent = CentimetersToPoints(0) C;_*vi2u  
        .RightIndent = CentimetersToPoints(0) Vn1hr;i]  
        .FirstLineIndent = CentimetersToPoints(0) &$ /}HND  
         )TFBb\f>v  
         eg vgi?y  
        .CharacterUnitLeftIndent = -0.5 "-;l{tL  
        .CharacterUnitRightIndent = -0.5 |~I-  
        .CharacterUnitFirstLineIndent = -0.5 KB^i=+xr  
         t4E=  
        .LineUnitBefore = 0 {f }4l  
        .LineUnitAfter = 0 LUjev\Re  
        .SpaceBefore = 0 YDMimis\H5  
        .SpaceAfter = 0  L4,Ke  
         m&X6a C'[  
    End With J)xc mK  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False F9&ae*>,  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll "t\gkJyK  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese >4lT0~V/  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True OK" B`*  
    DoEvents 6bW:&IPQ;  
_2C[F~ +l  
    '表格内容 \d)~.2$G*  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") dfoFs&CSKh  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False &QQ8ut,;  
    With ActiveDocument.Styles("QLNU表格内容").Font sXaIQhZ  
        .NameFarEast = "楷体" :x<'>)6  
        .NameAscii = "Times New Roman" &^W91C?<6  
        .Name = "楷体" ;uazQyo6  
        .Size = 9 r+WY7'c  
        .Bold = False Cw_XLMY%V1  
        .Underline = wdUnderlineNone wWNHZv&  
        .Italic = wdUndefined >
IzUn: 0F  
        .Subscript = wdUndefined 6Wabw :  
        .Superscript = wdUndefined z nc'  
    End With @xI:ZtM  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat 0{GpO6!  
        .LineSpacingRule = wdLineSpaceSingle "RF<i3{S  
        .Alignment = wdAlignParagraphCenter A+Xk=k5<  
         3h|:ew[  
        .LeftIndent = CentimetersToPoints(0) *1[v08?!  
        .RightIndent = CentimetersToPoints(0) L9=D,C~  
        .FirstLineIndent = CentimetersToPoints(0) <_tkd3t#W  
         [Nn ?:5"
 
        .CharacterUnitLeftIndent = -0.5 *NDM{WB|)  
        .CharacterUnitRightIndent = -0.5  MX j7Z3  
        .CharacterUnitFirstLineIndent = -0.5 *Tt*\ O  
        .LineUnitBefore = 0 <Y9xHn&  
        .LineUnitAfter = 0 i@C$O.m(  
        .SpaceBefore = 0  `=h`:`  
        .SpaceAfter = 0 bqt*d)$  
    End With iS"(  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False utvZ<zz`  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll VYZkHjj)2i  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese 0H-~-z8Y  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True 5z>kz/uxW  
    DoEvents m%
{4  
9(/ ;Wutj"  
    '图片标题 ' `*{ig  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") S^Z[w|1  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" dw v( 8  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False krC4O2Fkj  
    With ActiveDocument.Styles("QLNU图片标题").Font F9Ag687w  
        .NameFarEast = "楷体" d:"]*EZ [  
        .NameAscii = "Times New Roman" >_4Ck{^d#  
        .Name = "楷体" DGwN*>X  
        .Size = 10.5 V~uH)IMkh7  
        .Bold = True z$>_c"D  
        .Underline = wdUnderlineNone E\(dyq/  
        .Italic = wdUndefined i:ZL0nH-  
        .Subscript = wdUndefined ]OZk+DU:  
        .Superscript = wdUndefined lc71Pp>  
        .Outline = False WD^!G;}  
        .Shadow = False TFWx(}1  
        .Color = wdColorAutomatic U 
Ux]  
    End With y2U^7VrO  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat =nYd|Ok  
        .LineSpacingRule = wdLineSpaceSingle |GvWHe`  
        .Alignment = wdAlignParagraphCenter MxY~(TVPK  
         -H3tBEvoI  
        .KeepWithNext = wdUndefined h
o7L@NR  
        .KeepTogether = True Eo$7W5hJ  
        .OutlineLevel = wdOutlineLevelBodyText +hIS
tA  
         L.uX  
        .LeftIndent = CentimetersToPoints(0) bJo)rM:m  
        .RightIndent = CentimetersToPoints(0) w<hw>e^.  
        .FirstLineIndent = CentimetersToPoints(0) &O' 6va  
         Qw{L D+r(  
        .CharacterUnitLeftIndent = 0 rR4_=S<Mi:  
        .CharacterUnitRightIndent = 0 E,[@jxP  
        .CharacterUnitFirstLineIndent = 0 WUM&Lq k"  
         E2s lpo  
        .LineUnitBefore = 0 hwaU;>F  
        .LineUnitAfter = 0 {/C \GxH+  
    End With fq.ui3lP)  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False k(
oHmw  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll >h0iq  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese ?Sq?f?  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True cVt MCgx  
    DoEvents )@xHL]!5m  
3K/32W i  
    '目录项 3f2%+2Zjt,  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") v:Av2y  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" c7[<X<yk  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False @,<@y
>m7  
    With ActiveDocument.Styles("QLNU目录项").Font R7o3X,-iwn  
        .NameFarEast = "黑体" 1XAXokxj  
        .NameAscii = "Times New Roman" t}zffe-  
        .NameOther = "Times New Roman" S`Jo^!VJ4  
        .Name = "黑体" n4cM /unU  
        .Size = 10.5 /R@,c B=  
        .Bold = False 3Ms` ajJ  
        .Italic = wdUndefined MqBA?7  
        .Underline = wdUnderlineNone }hralef #N  
        .Color = wdColorAutomatic @{_L38. Nw  
        .Superscript = wdUndefined )")_aA  
        .Subscript = wdUndefined P,x'1`k~  
    End With "eq{_4dL  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat ?v-( :OF  
         B>3joe}  
        .LineSpacingRule = wdLineSpaceSingle HWJ(O/N  
        .Alignment = wdAlignParagraphLeft JM-spi o  
         =rA"|=  
        .WidowControl = False FYI*44E  
        .KeepWithNext = False R&cOhUj22J  
        .KeepTogether = False
+0016UgS#  
        .PageBreakBefore = False =kz(1Pb  
        .NoLineNumber = False bqHR~4 #IR  
        .OutlineLevel = wdOutlineLevelBodyText WB2An7i@"{  
         i(
^& ZmG  
        .LeftIndent = CentimetersToPoints(0) BitP?6KX  
        .RightIndent = CentimetersToPoints(0) L7
*,v5  
        .FirstLineIndent = CentimetersToPoints(0) fb7Gy  
         R\%&Q|  
        .CharacterUnitLeftIndent = 0 G[}$s7@k  
        .CharacterUnitRightIndent = 0 v)*/E'Cr*  
        .CharacterUnitFirstLineIndent = 0 O\h*?, )  
         HJVi:;o  
        .LineUnitBefore = 0 9Ij=~p]p  
        .LineUnitAfter = 0 (j^Qa~{mG4  
    End With @_Ko<fKSX  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False ]xlV;m  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll `.dX@<  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot ,9I %t%sb  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese *{qW7x.6h  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True wo($7'.@  
    DoEvents o5UM)g  
     u%J04 vG"D  
    '参考文献 0j^ QY6  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") la7VeFT  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" $^Is|]^  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False ]d$:R`;  
    With ActiveDocument.Styles("QLNU参考文献").Font 2sj
[hI  
        .NameFarEast = "宋体" M]O _L  
        .NameAscii = "Times New Roman" QxRT%;'Zh]  
        .NameOther = "Times New Roman" jN\} l|;q  
        .Name = "Times New Roman" 9E/{HNkf  
        .Size = 12 lWr{v\L'  
        .Bold = False b ^wL{q  
        .Italic = wdUndefined *C81DQ  
        .Subscript = wdUndefined `ZCeuOH  
        .Superscript = wdUndefined l^ P[nQDH  
        .Underline = wdUnderlineNone v+.  n9  
        .UnderlineColor = wdColorAutomatic (!72Eaw:]  
        .Color = wdColorAutomatic }Ut*Y*  
        .Engrave = False 4l/hh|3@  
    End With P|> fO'  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat |H`}w2U[j  
         G_GV  
        .LineSpacingRule = wdLineSpaceExactly !}Sf?nP#  
        .LineSpacing = 16 cFcn61x-  
        .Alignment = wdAlignParagraphLeft t$NK{Mw5_  
        .WidowControl = False _g|zDi^  
        .KeepWithNext = False :.86
3_/  
        .KeepTogether = False &Kuo|=f  
        .PageBreakBefore = False LU
Gyc( h  
        .OutlineLevel = wdOutlineLevelBodyText !_Z\K$Ns  
         _i_^s0J  
        .LeftIndent = CentimetersToPoints(0) Zj@k3y  
        .RightIndent = CentimetersToPoints(0) A>@ i TI  
        .FirstLineIndent = CentimetersToPoints(0) e6E{l  
         ~)\9f 1O{^  
        .CharacterUnitLeftIndent = 0 J<g$hk  
        .CharacterUnitRightIndent = 0 {tUjUwhz(  
        .CharacterUnitFirstLineIndent = -2 .+|HJ (  
         D00I!D16  
        .LineUnitBefore = 0 J1@X6U!{  
        .LineUnitAfter = 0 k[9~Er+  
        .SpaceBefore = 0 J#h2~Hz!  
        .SpaceAfter = 0 pFfd6P  
         X]^FHYjhS  
    End With 3/rEXKS  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False k3F*D  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll ]JQ7x[  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS lSGtbSyDI  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True \J*~AT~5q  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese ldd|"[Ds  
    DoEvents 3uSj5+@q6  
C-i9F%..  
    ' v6Vieo=  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") T r|B:)X  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" Sz_bjhyT}  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False CH!>RRF  
    With ActiveDocument.Styles("QLNU论文题目").Font q]%eLfC(  
        .NameFarEast = "黑体" !S0$W?*  
        .NameAscii = "Arial Black" Wpgp YcPS  
        .NameOther = "Arial Black" KIyhvY~  
        .Name = "Arial Black" rI/;L<c  
        .Size = 16 N03)G2  
        .Bold = False h^yLmRL  
        .Italic = wdUndefined bXSsN\:Y@[  
        .Superscript = wdUndefined  !t .  
        .Subscript = wdUndefined en6Kdqe  
        .Underline = wdUnderlineNone =L,s6J8_'  
        .UnderlineColor = wdColorAutomatic z_Em%
X  
        .Color = wdColorAutomatic >?-etl  
%gK@R3p  
    End With !i>&z?  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat C`qo  
        .LineSpacingRule = wdLineSpaceSingle > -P UY  
        .Alignment = wdAlignParagraphCenter +m|S7yr'  
        .WidowControl = True b.h:~ATgN  
        .KeepWithNext = True 0GEM3~~D.?  
        .KeepTogether = True 8|Wu8z--  
        .PageBreakBefore = True 'R'P^  
        .NoLineNumber = False nitKX.t8  
        .OutlineLevel = wdOutlineLevelBodyText <>=A6
 
         |;~kHc$W  
        .LeftIndent = CentimetersToPoints(0) 5c(mgEvq  
        .RightIndent = CentimetersToPoints(0) DhN{Y8'~  
        .FirstLineIndent = CentimetersToPoints(0) O*
;$))<wX  
         s"hSn_m  
        .CharacterUnitLeftIndent = 0 F8u;C:^d  
        .CharacterUnitRightIndent = 0 Ri[ v(Zf  
        .CharacterUnitFirstLineIndent = 0 m=g\@&N  
         criQa<N"  
        .LineUnitBefore = 1 )uj:k*`)  
        .LineUnitAfter = 1 N4]Sp v  
         iME)Jl&  
        .BaseLineAlignment = wdBaselineAlignAuto 6j*L]Sc  
    End With 0:NCIsIm<  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False vJybhdvP  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll <ttrd%VW  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS v[k;R  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True 3X&'hz@  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese DdUT"%  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True /INjP~C  
    DoEvents Y[_{tS#u  
     OZDd
  
    '中文摘要 DrAp&A|WV|  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") N*J!<vY"  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" qDG{hvl[1r  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False u'Od~x^z  
    With ActiveDocument.Styles("QLNU中文摘要").Font <1t.f} }uX  
        .NameFarEast = "宋体" +<l6!r2Z  
        .NameAscii = "Times New Roman" vy:-a G  
        .NameOther = "Times New Roman" +JyD W%a:L  
        .Name = "Times New Roman" JQi+y;  
        .Size = 12 %pikt7,Z~  
        .Bold = wdUndefined #6fQ$x(F#j  
        .Superscript = wdUndefined 4Ss4jUj  
        .Subscript = wdUndefined $w,O[PIi  
        .Italic = wdUndefined A_h|f5  
        .Underline = wdUnderlineNone r;>2L'  
        .UnderlineColor = wdColorAutomatic ;kW+  
        .Color = wdColorAutomatic Alo;kt@x  
    End With %Aqt0e  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat CcGE4BB  
        .LineSpacingRule = wdLineSpaceExactly C?xah?Sk  
        .LineSpacing = 20 caG5S#8-"  
        .Alignment = wdAlignParagraphLeft Q cW6o,  
         *Sd}cDCO%  
        .WidowControl = False Ly\ `  
        .KeepWithNext = False kGz0`8URu  
        .KeepTogether = True }MUQO<=*  
        .PageBreakBefore = False o|Q:am'H  
        .NoLineNumber = False O4)'78ATp  
        .OutlineLevel = wdOutlineLevelBodyText }PC_qQF  
         N>zpxU {  
        .LeftIndent = CentimetersToPoints(0) ; 9n}P@  
        .RightIndent = CentimetersToPoints(0) }s9eRmJs  
        .FirstLineIndent = CentimetersToPoints(0) )$EmKOTt:  
         _*K=Z,a;\  
        .CharacterUnitLeftIndent = 0 5|nT5oS  
        .CharacterUnitRightIndent = 0 r6JQRSakR  
        .CharacterUnitFirstLineIndent = 2 bcM65pt_C  
        .LineUnitBefore = 0 71S~*"O0f  
        .LineUnitAfter = 0 v&7yqEm}B  
         B=?m_4
\$m  
    End With *5e"suS2  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False e
8Ul^]  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll N7Kg52|  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS 8fI]QW  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True sJI" m'r=Z  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese O V"5:){  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True -
0I]Sm;$  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete ec8iZ8h8  
    DoEvents VVd9VGvh  
     `, lnBP3D"  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ?*{Vn5aX{  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" 5`_UIYcI  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False Z=[qaJ{]  
    With ActiveDocument.Styles("QLNU英文标题").Font c @U\d<{w  
        .NameFarEast = "黑体" 8;
%F-?  
        .NameAscii = "Arial Narrow" hFW{qWP  
        .Name = "Arial Narrow" 1{fu  
        .Size = 16 b0(bL_,  
        .Bold = True ]'.D@vFGO  
        .Bold = wdUndefined _nUvDdEs,  
        .Superscript = wdUndefined ",v!geMvu  
        .Subscript = wdUndefined DB=^Z%%Z  
        .Italic = wdUndefined K2Z]MpLD  
         sYfiC`9SO  
        .Underline = wdUnderlineNone .RazjXAY  
        .UnderlineColor = wdColorAutomatic h!~Qyb>W  
        .StrikeThrough = False k<Y}BvAYB  
        .DoubleStrikeThrough = False u5'jIq
lU  
    End With {)CN.z:O  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat 6E^h#Ozl 9  
        .LineSpacingRule = wdLineSpaceSingle 8|cQW-L  
        .Alignment = wdAlignParagraphCenter ydZS^BqG  
        .WidowControl = True nB|m!fi<  
        .KeepWithNext = False Qhc>,v)  
        .KeepTogether = False n< )gS7  
        .PageBreakBefore = False 4MFdhJoN  
        .NoLineNumber = False OMY^'g%w  
        .FirstLineIndent = CentimetersToPoints(0) )yl
;i  
        .OutlineLevel = wdOutlineLevelBodyText 5~R1KjjvA  
         ,(;TV_@ $  
        .LeftIndent = CentimetersToPoints(0) G?,b51"  
        .RightIndent = CentimetersToPoints(0) .!`y(N0hc  
        .FirstLineIndent = CentimetersToPoints(0) gN/kNck  
         JEL.*[/  
        .CharacterUnitLeftIndent = 0 w/1Os!p  
        .CharacterUnitRightIndent = 0 o8RVmOXe  
        .CharacterUnitFirstLineIndent = 0 su}n3NsJ  
         uo TTHj7cq  
        .LineUnitBefore = 1 c,yjsxETW  
        .LineUnitAfter = 1 >;sz(F3)  
         e{Y8m Xu  
    End With /bSAVSKR  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False JK%Ua
Eut=  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll GG=R!+p2  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS a_T3<  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True a>o]garB+  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese 2Wx~+@1y  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True Ly kB2]T  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete ML!>tCT  
    DoEvents TOH+JL8L  
w/oXFs&FK  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") t/vw%|AS  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" (nDen5Q|  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False V*I2  
    With ActiveDocument.Styles("QLNU英文摘要").Font FJ+n- \  
        .NameFarEast = "宋体" Tlar@lC|u  
        .NameAscii = "Arial" { qJ(55  
        .NameOther = "Arial" DtFzT>$^F  
        .Name = "Arial" *[|a$W  
        .Size = 12 pba`FC4R  
        .Bold = wdUndefined ,hVDGif  
        .Italic = wdUndefined ;irAq
|  
        .Superscript = wdUndefined _O$7*k  
        .Subscript = wdUndefined /8O;Q~a  
    End With w(N$$  
     %.rVIc"  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat Zk+c9,q  
         gebDNl\Y2  
        .LineSpacingRule = wdLineSpaceExactly C"*8bVx]$n  
        .LineSpacing = 20 _'}Mg7,V  
         xf7_|l  
        .Alignment = wdAlignParagraphJustify 9F"^MzZ  
         9
Q b6ek  
        .WidowControl = False WJ&a9]&C  
        .KeepWithNext = False FoW|BGA~  
        .KeepTogether = False ;CtTdr  
        .PageBreakBefore = False KsDovy<  
        .NoLineNumber = False <*3#nA-O>i  
         4/N{~  
        .OutlineLevel = wdOutlineLevelBodyText l
JJ`aYDp  
         PKg>|]Rf.  
        .LeftIndent = CentimetersToPoints(0) sK/Z'h{|  
        .RightIndent = CentimetersToPoints(0) v.!e1ke8D*  
        .FirstLineIndent = CentimetersToPoints(0) >(\Z-I&YQ  
         khb/"VYd  
        .CharacterUnitLeftIndent = 0 WbwS!F<au  
        .CharacterUnitRightIndent = 0 Gl6M(<f\5  
        .CharacterUnitFirstLineIndent = 2 TN=!;SvQU  
         -Q MO*PY  
        .LineUnitBefore = 0 ~(x"Y\PEu  
        .LineUnitAfter = 1 DedY(JOvB  
         KBg5_+l  
    End With PNB E  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False 3
%(BZ23  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll BCI[jfd7  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS dr gCr:Gf  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False 2EC<8}CG  
    DoEvents C@P*:L_  
\LYNr
L~?J  
    Options.Pagination = True `gX$N1(  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." [Te"|K':  
    DoEvents hRI?>an  
    ActiveDocument.Repaginate 9>-]*7  
laQ{nSVBm  
End Sub nr?|!gj  
?3yrX_Qm{  
:>*0./hG  

姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 vEc<|t  
&l~9FE*  

引用

引用第20楼newport93于06-14-2010 13:47发表的  : <AN5>:k[pM  
G<
>h>c1>z  
老五，I 服了U。 4G'-"u^g  
)ml#2XP!f  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 Zq{TY)PI]  

Y-.aSc53