Dim bContinue As Boolean L
h<).<S  
F
GQzoS  
Dim regEX As New RegExp bu"!jHPB  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 yOKI*.}  
&"q=5e2  
Dim LastTitle0String As String, LastTitle0No As Long &VcV$8k  
Dim LastTitle1String As String, LastTitle1No As Long -!9G0h&i|  
Dim LastTitle2String As String, LastTitle2No As Long lNBL4yM  
Dim LastTitle3String As String, LastTitle3No As Long FCn_^l)EA  
Dim LastTitle4String As String, LastTitle4No As Long Y4(  
Dim LastTitle5String As String, LastTitle5No As Long 6`-jPR  
Dim LastTabelString As String, LastTableNo As Long .}*
"
Nv  
Dim LastFigureString As String, LastFigureNo As Long w`=\5Oa.G  
[fIg{Q  
Dim strSeperator As String 2Hv+W-6v  
Ic4H#w  
Sub ConvertWidth(fTEXT As String, rText As String) yCX?!E;La  
        Selection.Find.ClearFormatting m#F`] {  
        Selection.Find.Replacement.ClearFormatting 8sCv]|cn  
        Selection.Find.Wrap = wdFindContinue
8JD,u  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText qjc4.,/  
        DoEvents {}Za_(Y,]  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True VD\=`r)nT  
End Sub IqGdfL6[(  
cs'{5!i]  
Sub ClearDomain() xP,hTE  
        With Selection.Find 2Wb]4-  
            .ClearFormatting OUXR  
            .Replacement.ClearFormatting FsryEHz  
            .Wrap = wdFindContinue Hq 188<  
            Me.txtStatus.Text = "清除所有域代码" ?R#)1{(8d~  
            DoEvents 5PnDN\  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False j8`BdKg  
        End With <d_!mKw  
End Sub :,I:usW"  
+2j AC r  
Private Sub cmdCheck_Click() :a)u&g@G  
    bContinue = True ;({W#Wa  
    Dim NoSeries1(1 To 16) As String 9&ids!W~yx  
    Dim NoSeries2(1 To 16) As String ?pZOeqqu$  
    Dim NoSeries5(1 To 16) As String 1!gbTeVlY  
    Dim NoSeriesRM(1 To 16) As String k
#rBB  
    Dim paraTotal As Long, ParaText As String z$xo$R(  
    Dim ttString As String, ttNo As String *WT`o>  
     PiYxk+N  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long /FJu)H..U  
ofv)SCjd  
    Me.txtStatus.Visible = True O7IJ%_A&  
    Me.lbParaType.Visible = True = 9]~yt  
    Me.cmdCheck.Enabled = False NN`uI6=  
     J)C/u{o  
    
\'bzt"f$j  
     #C3.Jef  
     !0cD$^7  
    Dim ParaType As String, rText As String 09Cez\0  
     O8.5}>gDn.  
    Selection.WholeStory ?I@
W:#>o  
    Selection.NoProofing = True C2Tyoza  
     &`XV
q"7  
    tm1 = Now bY0|N[g  
     >e"#'K0?\  
        ActiveWindow.View.Type = wdNormalView m%e68c  
     N8FF3}> g  
    NoSeries1(1) = "一" :08,JL{  
    NoSeries1(2) = "二" VU d\QR-  
    NoSeries1(3) = "三" t`mV\)fa
 
    NoSeries1(4) = "四" XvlU*TO~(~  
    NoSeries1(5) = "五" "FKOaQ%IH  
    NoSeries1(6) = "六" U`m54f@U  
    NoSeries1(7) = "七" Qz N&>sk"  
    NoSeries1(8) = "八" _#h_:  
    NoSeries1(9) = "九"
Z)aUt Srf  
    NoSeries1(10) = "十" 1y4  
    NoSeries1(11) = "十一" e) O4^#i  
    NoSeries1(12) = "十二" 7Rt9od< )!  
    NoSeries1(13) = "十三" 0_t`%l=  
    NoSeries1(14) = "十四" k)Qtfj}uij  
    NoSeries1(15) = "十五" ^a1^\X.~  
    NoSeries1(16) = "十六" *`RkTcG  
     d<N:[Y\4 l  
    NoSeries2(1) = "㈠" Y.r+wc]  
    NoSeries2(2) = "㈡" {> 0wiH#!E  
    NoSeries2(3) = "㈢" C 6AUNRpl  
    NoSeries2(4) = "㈣" 8pgEix/M5o  
    NoSeries2(5) = "㈤" \;"=QmRD%:  
    NoSeries2(6) = "㈥" Nu7 !8[?r*  
    NoSeries2(7) = "㈦" (*)hD(C5  
    NoSeries2(8) = "㈧" \} :PLCKT  
    NoSeries2(9) = "㈨" 9p2&)kb6  
    NoSeries2(10) = "㈩" "6?0h[uff  
     d{7+w/Zi  
    NoSeries5(1) = "①" {,~3.5u   
    NoSeries5(1) = "②" xlg9TvvI  
    NoSeries5(3) = "③" HoL Et8Q  
    NoSeries5(4) = "④" igR";OQk  
    NoSeries5(5) = "⑤" N'`A?&2ru  
    NoSeries5(6) = "⑥" [1 9,&]z  
    NoSeries5(7) = "⑦" ;BIY^6,7e  
    NoSeries5(8) = "⑧" 7x4PaX(  
    NoSeries5(9) = "⑨" Hg$lXtn]  
    NoSeries5(10) = "⑩" Np0u,t%vs  
     J S_]FsxD  
     46&/geh r  
    NoSeriesRM(1) = "I" 5N&? KA-  
    NoSeriesRM(2) = "II" *ppffz  
    NoSeriesRM(3) = "III" <HV
t V9R  
    NoSeriesRM(4) = "IV" s}% M4  
    NoSeriesRM(5) = "V" <yFu*(Q  
    NoSeriesRM(6) = "VI" 7VFLJrt  
    NoSeriesRM(7) = "VII" ]`+HO
=0  
    NoSeriesRM(8) = "VIII" 'CkIz"Wd  
    NoSeriesRM(9) = "IX" 'ub@]ru|  
    NoSeriesRM(10) = "X" 9j9TPyC/2  
    NoSeriesRM(11) = "XI" Fun^B;GA:  
    NoSeriesRM(12) = "XII" :A'y+MnK<  
    NoSeriesRM(13) = "XIII" ~O&:C{9=  
    NoSeriesRM(14) = "XIV" ;VO:ph4Aj  
    NoSeriesRM(15) = "XV" =rCIumqD-}  
    NoSeriesRM(16) = "XVI" ={wcfhUl+  
     8eHyL  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) "~ C,bk  
     4Ic*9t3  
    If i = vbNo Then 3x'|]Ns  
        Exit Sub V /V9B2.$  
    End If 5S--'=fu+  
     ,>mrPtxN  
    If Me.chkSuper.Value Then 7Da`   
        Me.txtStatus.Text = "检查修改所有的上标格式" xx%j.zDI]  
     Ru
V GG)  
        CheckSuperScript k{SAvKx=  
         _8_R 1s  
    End If -I,$_  
     [e}]}t8m  
    If Me.chkStyle.Value Then ]F'
e aR  
        Me.txtStatus.Text = "设置样式，请稍候...." 'u |c  
        DoEvents 8C9-_Ng`  
        CeateOrModifyStyle  v<(  
    End If @wNG{Stj  
     P! #[mio  
     @'!SN\?W8  
     BeoDKdAwY  
    ClearDomain T <ET )
D7  
         l&Q`wR5e
 
     Hn+~5@.  
     *.d)OOpLo  
    If Me.chkLIST.Value Then W+ko
q*P  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" l3I:Q^x@  
     (S\[Y9  
        ConvertListToOrdinary i5Yb`Z[Y  
    End If pohp&Tc m  
     #KexvP&*  
     |Uh  
    Dim pType As String, trimpTEXT As String y ~!Zg}o  
    If Me.chkNum.Value = True Then aH/ k
Ua  
        Me.txtStatus.Text = "转换全角数字形式为半角" D!-g&HBTC  
        ConvertWidth "１", "1" X=fYWj[H,  
        DoEvents X!dYdWw*m  
        ConvertWidth "２", "2" Ks`J([(W&  
        DoEvents 8i#2d1O  
        ConvertWidth "３", "3" [;),\\u,d  
        DoEvents )"aV* "  
        ConvertWidth "４", "4" f5VLw`m}.8  
        DoEvents .MoU1n{Yc  
        ConvertWidth "５", "5" jQ^|3#L\  
        DoEvents ]a*d#  
        ConvertWidth "６", "6" ~;{;,8!)  
        DoEvents wHMX=N1/  
        ConvertWidth "７", "7" WuUk9_g  
        DoEvents .Od!0(0  
        ConvertWidth "８", "8" iN8zo:&Z  
        DoEvents MC.)2B7  
        ConvertWidth "９", "9" 'XP7" N47O  
        DoEvents Lh
b35;\  
        ConvertWidth "０", "0" V7fq4O^:  
        DoEvents LR.<&m%~.  
        ConvertWidth "ａ", "a" DKJmTH]rUg  
        DoEvents #-i>;Rt  
        ConvertWidth "ｂ", "b" A1>OY^p3%  
        DoEvents G.abql  
        ConvertWidth "ｃ", "c" l$pm_%@2]  
        DoEvents dufu|BL|}  
        ConvertWidth "ｄ", "d" mQ26K~  
        DoEvents zFff`]^`  
        ConvertWidth "ｅ", "e" UJ7*j%XQz_  
        DoEvents +V046goX W  
        ConvertWidth "ｆ", "f"  EC!02S  
        DoEvents *Y7u'v  
        ConvertWidth "ｇ", "g" ?:I*8Fj  
        DoEvents .Una+Z  
        ConvertWidth "ｈ", "h" EGU 0)<  
        DoEvents RF53Jyt  
        ConvertWidth "ｉ", "i" 8ek@:
Mw  
        DoEvents o5uph=Q{  
        ConvertWidth "ｊ", "j" ""F5z,'  
        DoEvents EF}\brD1  
        ConvertWidth "ｋ", "k" 'UX!*5k<:  
        DoEvents V/ u P%'cd  
        ConvertWidth "ｌ", "l" Y}|X|!0x  
        DoEvents 9oR@U
W1  
        ConvertWidth "ｍ", "m" iYm-tsER;  
        DoEvents T9_RBy;%  
        ConvertWidth "ｎ", "n" PB`Y g  
        ConvertWidth "ｏ", "o" YdC6k?tzS  
        ConvertWidth "ｐ", "p" {~"/Y@&]R  
        ConvertWidth "ｑ", "q" 3z9d!I^>k  
        ConvertWidth "ｒ", "r" /,&<6c-Q@W  
        ConvertWidth "ｓ", "s" ]e>w}L(gV  
        ConvertWidth "ｔ", "t" qCpp6~]Um  
        ConvertWidth "ｕ", "u" `l){!rg8IC  
        ConvertWidth "ｖ", "v" 9YQb&  
        ConvertWidth "ｗ", "w" VfC<WVYiZ  
        ConvertWidth "ｘ", "x" ]uJ"?k=  
        ConvertWidth "ｙ", "y" Z|j>gq  
        ConvertWidth "ｚ", "z" ][h%UrV  
        ConvertWidth "Ａ", "A" *>' V1b4}  
        ConvertWidth "Ｂ", "B" ^-Kf']hU  
        ConvertWidth "Ｃ", "C" $f=J2&D,Cz  
        ConvertWidth "Ｄ", "D" })8N5C+KU  
        ConvertWidth "Ｅ", "E"
d#rf5<i  
        ConvertWidth "Ｆ", "F" rt~d6|6  
        ConvertWidth "Ｇ", "G" aPfO$b:  
        ConvertWidth "Ｈ", "H" Pz|> "'  
        ConvertWidth "Ｉ", "I" 6J6BF%  
        ConvertWidth "Ｊ", "J" /dQl)tL  
        ConvertWidth "Ｋ", "K" 1 A !bE  
        ConvertWidth "Ｌ", "L" QIvVcfM^  
        ConvertWidth "Ｍ", "M" udUyh%n  
        ConvertWidth "Ｎ", "N" sn$9Shgh  
        ConvertWidth "Ｏ", "O" JZ*/,|1}EC  
        ConvertWidth "Ｐ", "P" )SRefW .v  
        ConvertWidth "Ｑ", "Q" =llvuUd\n  
        ConvertWidth "Ｒ", "R" bj0G5 dc=  
        ConvertWidth "Ｓ", "S" ujq=F  
        ConvertWidth "Ｔ", "T" m6&~HfwN  
        ConvertWidth "Ｕ", "U" ZC`wO%,  
        ConvertWidth "Ｖ", "V" ?;+1)>{  
        ConvertWidth "Ｗ", "W" l
2rd9-T  
        ConvertWidth "Ｘ", "X" a /l)qB#  
        ConvertWidth "Ｙ", "Y" JNYFD8J~  
        ConvertWidth "Ｚ", "Z" lN?qp'%H`  
        ConvertWidth "^l", "^p" g:D>.lKd  
        ConvertWidth "（", "(" }mq6]ZrK  
        ConvertWidth "）", ")" Yi+wC}   
     R0]1xGz  
    End If xU>WEm2  
OXSmt DvJ  
    With ActiveDocument 7#ibN!  
        Dim tbl As Table #crQ1p) \  
        For Each tbl In .Tables xH(lm2kvT  
            tbl.Rows.Alignment = wdAlignRowCenter 9_r YBX  
            tbl.Range.Font.NameFarEast = "楷体" ukfQe }I  
            tbl.Range.Font.NameAscii = "Times New Roman" JG!m
c7  
            tbl.Range.Font.Size = 10.5 #Z`q+@@]A  
        Next 8Pn#+IvCE  
        Set tbl = Nothing +wvWwie  
    End With i6tf2oqO7  
     zrL$]Oy}x  
     7>Ouqxh21  
    With ActiveDocument Bp `]  
         [OV"}<V  
        For i = 1 To .TablesOfContents.Count kmsb hYM)  
            .TablesOfContents(i).Delete $i}y8nlQ  
        Next Agg<tM{yB  
         &5spTMw8  
         aS{n8P6vW  
         }{qZ[/JwqN  
        paraTotal = .Paragraphs.Count AJ?r,!)  
        paraCounter = 1 [.'|_l  
         EZy)A$|  
        LastTitle0No = 0 2"kLdD  
        LastTitle1No = 0 +]A:M6P:{v  
        LastTitle2No = 0 N~d?WD\^  
        LastTitle3No = 0 nE&@Q  
        LastTitle4No = 0 Ym{tR,g7  
        LastTableNo = 0 "9P>a=Y  
        LastFigureNo = 0 ZaDyg"Tw+  
         RO VW s/  
        Dim Sec As Long ^HThN  
         '}JhzKNj  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) '()xHEGl3  
        If Sec = 0 Then qL&[K>2z  
            Exit Sub K{cD+=
]{  
        End If W5lR0)~#*  
         ]kG"ubHV?h  
        k = 0 o"Euwh!!  
        Do While (paraCounter < paraTotal) And bContinue .TMs bZ|j  
            k = k + 1 YEs&  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then o]` *M|  
                Exit Do
9T}pT{~V  
            End If )}]g] g  
            paraCounter = paraCounter + 1 *:YiimOY"  
            If k Mod 20 = 0 Then DiScFx|rE  
                Me.lbCounter.Caption = paraCounter gsvuE  
                DoEvents " 4K(jXq|  
            End If q J=~Y|(  
        Loop $L>@Ed<  
         f/NH:1)y  
         /vde2.|  
        Do While (paraCounter < paraTotal) And bContinue BNl5!X^{  
              |`f$tj  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) HU}7zK2  
            ShapeHeight = 0 "XKy
#[d2  
            ShapeWidth = 0 7 60Y$/Wz  
           YTX,cj#D^&  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth ^f &XQQY  
             1k5Who@  
            Select Case ParaType :O?MSS;~  
                Case "【】表格内容" .hP D$o  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" dh*ZKI^@(  
                Case "章" ,j}6? Q  
                    LastTitle0No = LastTitle0No + 1 2d(e:rh]  
                    '新一章开始，复位其下属标题编号 *_{j=sd  
                    LastTitle1No = 0 *vN-Vb^2i)  
                    LastTitle2No = 0 ;%5N%
0,  
                    LastTitle3No = 0 |zNX=mAV  
                    LastTitle4No = 0 P[#e/qnXu|  
                     )uIe&B  
                    k = Val(ttNo) ='sHj4hU  
                    If k = 0 Then '非数字编号章节 V>%rv'G8  
                        If ttNo <> NoSeries1(LastTitle0No) Then ;|5F[  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString }bpQq6ZF  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText e*(!^Q1  
                        End If wj<6kG  
                    Else M~#gRAUJ  
                        If Val(ttNo) <> LastTitle0No Then B5VKs,g  
                            rText = "第" & LastTitle0No & ttString # E^1|:  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText bv9]\qC]T<  
                        End If y$F'(b|)  
                         0r] t`{H  
                    End If _476pZ_  
                     Ae^~Cz1qz  
                    '章段落设置 E7Ul;d  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 swoQ'  
                    .Paragraphs(paraCounter).Style = "QLNU章节" tr3!d_  
                    .Paragraphs(paraCounter).Range.Select @=Uh',F  
                    Selection.EndKey unit:=wdLine d>&,9c%  
                    tc = Replace(rText, vbCr, "") %lx!.G  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False =:,g  
                Case "一级标题" kr5">"7  
                    LastTitle1No = LastTitle1No + 1 e&F8m%t  
                    '新一级标题开始，复位其下属标题编号 S8w _ii3zd  
                    LastTitle2No = 0 He/8=$c%  
                    LastTitle3No = 0 5 +YH.4R  
                    LastTitle4No = 0 >,Ci?[pf  
                     ;Ax }KN7  
                    If ttNo <> NoSeries1(LastTitle1No) Then N1S{suic  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString fZzoAzfv2  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText Nw/  ku  
                    End If gA+qC7=p$  
                   qIE9$7*X  
                     `$<.pOm  
                    '一级标题段落设置  格式：一、标题内容 +z\^t_"f  
                    .Paragraphs(paraCounter).Range.Text = rText <8i//HOE  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" Nk 8B_{   
                    .Paragraphs(paraCounter).Range.Select S6M}WR^,  
                    Selection.EndKey unit:=wdLine B+VubUPMS  
                    tc = Replace(rText, vbCr, "") mPK:R^RjG&  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False n;Q7X>-f8`  
                Case "二级标题" g i-$ZFzB  
                    LastTitle2No = LastTitle2No + 1 |`,2ri*5A  
                    '新二级标题开始，复位其下属标题编号 \*y-g@-{W$  
                    LastTitle3No = 0 B=T'5 &  
                    LastTitle4No = 0 7P5)Z-K[  
                     '$IKtM`L  
                    If ttNo <> NoSeries1(LastTitle2No) Then L>&t|T2  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString F>6|3bOR  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText K.nHii   
                    End If b-?gw64#  
                     f:,DWw`B  
                    '二级标题段落设置 格式：(一)、标题内容 Y>T-af49  
                    .Paragraphs(paraCounter).Range.Text = rText )0W{]2  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题"
o. g V4%  
                     4Zddw0|2  
                    .Paragraphs(paraCounter).Range.Select wn, KY$/  
                    Selection.EndKey unit:=wdLine d-ZJL6-  
                    tc = Replace(rText, vbCr, "") PfD.:amN7  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False SC!RbW@3  
                 oUr66a/[U  
                Case "三级标题"  c(E{6g?  
                    LastTitle3No = LastTitle3No + 1 AW'0,b`v  
                    '新三级标题开始，复位其下属标题编号 $q{!5-e  
                    LastTitle4No = 0 )Y0!~# `  
                     3`|@H-c9  
                    If Val(ttNo) <> LastTitle3No Then x7w4[QYw  
                            rText = LastTitle3No & ". " & ttString &|ex`nwc0  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText 0c]/bs{}  
                         Jbg/0|1  
                    End If z}9(x.I  
                    '三级标题段落设置 格式：1. 标题内容 t?&|8SId  
                    .Paragraphs(paraCounter).Range.Text = rText A_ZY=jP   
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" 1..+F0U  
                    .Paragraphs(paraCounter).Range.Select 9dLV96
  
                    Selection.EndKey unit:=wdLine 9Cp-qA%t  
                    tc = Replace(rText, vbCr, "") 8.=BaNU  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False [z\$?VJspQ  
                Case "四级标题" |?xN\O^#}  
                    LastTitle4No = LastTitle4No + 1 q=m'^ ,gPS  
                     dNH08q8P  
                    If Val(ttNo) <> LastTitle4No Then G]tn i  
                            rText = "(" & LastTitle4No & "). " & ttString $am$EU?s  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText 1~`fVg  
                     beGa#JH,  
                    End If wqs?828x  
                    '四级标题段落设置 格式：(1). 标题内容 EhvX)s  
                    .Paragraphs(paraCounter).Range.Text = rText P[ck84F/  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" mzKiO_g}  
                    .Paragraphs(paraCounter).Range.Select DGF5CK
.O  
                    Selection.EndKey unit:=wdLine {.|CdqwY  
                    tc = Replace(rText, vbCr, "") [`[|l  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False 
~.nmI&3  
                 Beo@K|3GN  
                Case "表格标题" aEWWP]  
                    LastTableNo = LastTableNo + 1 J#(LlCs?@c  
                     P%VSAh\|n  
                    If ttNo <> CStr(LastTableNo) Then t+G# {n  
                            rText = "表" & LastTableNo & ". " & ttString RFcv^Xf  
                            ErrMsg.AddItem "表格编号错误：" & ParaText mb3"U"ohs  
                   (Q!}9K3  
                    End If IGQFtO/x  
                     W:nef<WH  
                    '表格名称段落设置 格式：表1. 表格名称 7`Ak)F:V  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" v^NIx q}U  
                    xe = Replace(rText, vbCr, "") rJTa  
                    .Paragraphs(paraCounter).Range.Select ~?Pw& K2  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 6ex/TySM  
                    Selection.Range.Text = xe RVmh6m  
                    Selection.EndKey eA?RK.e  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False /NFj(+&g+  
                 eHZws`W  
                Case "表格首行" qkY:3O
zw  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" FUb\e-Q=  
                Case "图片标题" LEf^cM=>  
                    LastFigureNo = LastFigureNo + 1 ~P,lz!he_  
                     !zpRrx_  
                    If ttNo <> CStr(LastFigureNo) Then X-K h(Z  
                            rText = "图" & LastFigureNo & ". " & ttString 0<@KG8@hI;  
                            ErrMsg.AddItem "表格编号错误：" & ParaText MYvY]Jx3  
                   ~<5!?6Yt  
                    End If RJ&RTo  
                    '图片名称段落设置 格式：图1. 图名称 yYYSeH  
                    .Paragraphs(paraCounter).Range.Text = rText @%uUiP0  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" ?4&e;83_#y  
                    .Paragraphs(paraCounter).Range.Select 7"x;~X  
                    Selection.EndKey unit:=wdLine E_wCN&`[  
                    xe = Replace(rText, vbCr, "") MK~8}x2K  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False xml7Uarc  
                Case "正文" j0aXyLNX  
                     '正文名称段落设置 . iI  
                    .Paragraphs(paraCounter).Style = "QLNU正文" -20bPiM$A  
               Case "文献条目" ]^7@}Ce_  
                    With .Paragraphs(paraCounter) KC6.Fr{  
                        '.Range.Select 9>/4W.  
                        'Selection.ClearFormatting wv1iSfW  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” UHkMn  
                        .Style = "QLNU参考文献" 9T9!kb  
                    End With q!7ANib6O  
               Case "图表注解" gO- _  
                    With .Paragraphs(paraCounter) }C?'
BRX  
                        .Range.Font.NameFarEast = "楷体" ,PW'#U:  
                        .Range.Font.NameAscii = "Times New Roman" QO~P7r|A  
                        .Range.Font.Size = 9 '小5号字 >Q;l(fdj  
                         P>D)7V9Hh  
                        .Alignment = wdAlignParagraphCenter 2- h{N  
                        .LeftIndent = 0 [yQt^! ;  
                        .RightIndent = 0 R|, g<  
                        .FirstLineIndent = 0 AKfDXy  
                        .LineSpacing = 12 sb*G!8j  
                        .LineSpacingRule = wdLineSpaceExactly U_Ptqqt%  
                        .LineUnitAfter = 0 Eyqa?$R  
                        .LineUnitBefore = 0 HM1Fz\Sf  
                        .OutlineLevel = wdOutlineLevelBodyText P4'Q/Sj  
                        .PageBreakBefore = False b\!_cb~"@  
                        .RightIndent = 0 :\c ^*K(9  
                        .WordWrap = True tw/dD +  
                        .LineUnitAfter = 0.5 ]:-mbgW  
                         a#k6&3m&  
                    End With o#Dk& cH  
                Case Else k%#E
EMh  
                    '不作处理 6;d*r$0Fc  
            End Select n;_sG>N  
             FVbb2Y?R  
            '含有inlineshape的段落处理 ZvX*t)VjTz  
            If ShapeHeight > 30 Then u4?L 67x  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 s^9Voi.y  
            End If _6hQ %hv8  
             ^ VyKd  
            If (ShapeWidth + ShapeHeight) > 150 Then I;(L%TT `  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" exUFS5d  
            End If BwpqNQN  
             [l??A
3G  
            '段落计数器递 b. '-?Nn  
            paraCounter = paraCounter + 1 lb3bm)@:  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter ?e4YGOe.  
            Me.txtStatus.Text = ParaText RSRS wkC  
            DoEvents _D&598xx  
        Loop @b%=H/5\  
    End With -d/ =5yxL  
     /C:gKy4  
    msg = "" _J#zY-j  
     yx[/|nZDC4  
    For i = 0 To Me.ErrMsg.ListCount - 1 o5PO=AN  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) |syR
6(U}  
    Next Q&tG4f<  
     vn8aFA  
     lrE5^;/s1  
     U'_Q>k  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg )dw'BNz5hT  
    Me.cmdCheck.Enabled = True Pmx-8w  
    Me.txtStatus.Visible = True
pah'>dAL  
    Me.lbParaType.Visible = False K@]4g49A/j  
     ~G&dqw/.-U  
    bContinue = False J*A,o~U|  
End Sub Dm l;#'IF3  
%aCqi(.7  
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) C.-,^+t;g  
    Dim pTEXT As String _;
y9
$"A  
     Wvh#:Z  
    pTEXT = ChKRange.Text VCkq"f7cw  
     d7y[0<xM  
    ParaType = "其它" Q3~H{)[Kq  
    TitleString = pTEXT RbnVL$c  
    TitleNo = "N/A" Hvi49c]]  
     f Tec  
    shpCounter = ChKRange.InlineShapes.Count &6!)jIWJ  
    If shpCounter <> 0 Then jB2[(  
        MaxShpHeight = 0: TotalShpWidth = 0 *N<]Xy@  
        For i = 1 To shpCounter nR~@#P\  
            k = ChKRange.InlineShapes(i).Height g:@#@1rB6  
            l = ChKRange.InlineShapes(i).Width ;igIZ$&  
            If k > MaxShpHeight Then (5YM?QAd  
                MaxShpHeight = k h(dvZ= %  
            End If sll\g  
            TotalShpWidth = TotalShpWidth + l (%6P0*  
        Next .~;\eW[  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then 9$
w.9`Py  
            Exit Sub 9.-S(ZO  
        End If 5C]x!>kX  
    End If 0[(8  
     ~ .g@hS8>  
    '空行 !;A\.~-!G  
    If Len(pTEXT) <= 2 Then 1CZgb  
        Exit Sub $h"\N$iSq  
    End If "&u@d~`-n  
     PC8Q"O  
         ]%H`_8<gc  
    '是否为表格中的文字 ^^$s%{ep"  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then ]_gU#,8  
        ParaType = "表格内容" cuIT Y^6  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) "(O>=F&  
        If k = 1 Then B9z?mt'|r)  
            ParaType = "表格首行" .`eN8Dl1  
        End If (?c"$|^J  
        Exit Sub LH% F8  
    End If kDioD  
     7n<{tM  
    '例外情况：脚注 CAhXQ7w'Z  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then p]TAELy  
        ParaType = "脚注" j,eo2HaL  
        Exit Sub 7JH6A'&  
    End If &p@O_0nF  
     q]-r@yF  
    '例外情况：尾注 ZLejcYS  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then Yj49
t_$b  
        ParaType = "尾注" #c!lS<z  
        Exit Sub M6jy\<a  
    End If 03Ycf'W  
     C&%_a~  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then g3y~bf  
        ParaType = "页眉页脚" bI1N@
=  
        Exit Sub CHX#^0m.  
    End If tyFzSrfc  
     /([kh~a  
     0{D'n@veP  
    With regEX KZE,bi: ~  
        .Global = True %tGO?JMkd  
         J ZS:MFA  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" $UWZDD  
        If regEX.Test(pTEXT) Then \R_
C&=  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") oG\Vxg*  
            TitleString = regEX.Replace(pTEXT, "$3") x 9fip-  
            TitleNo = regEX.Replace(pTEXT, "$1") _G@GpkSe>  
            ParaType = "章" S=5o < 1  
            Exit Sub -Q*gW2KmV  
        End If d#FQc18v}k  
         *g2x%aZWbG  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" 24eLB? H  
        If regEX.Test(pTEXT) Then XRi8Gpg  
            ParaType = "一级标题" d$!RZHo10V  
            regEX.Execute (pTEXT) ,f>k%_U}  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") 73;GW4,  
            TitleString = regEX.Replace(pTEXT, "$3") g) jYFfGfH  
            TitleNo = regEX.Replace(pTEXT, "$1") u*` GiZAO  
            Exit Sub 7?_CcRe  
        End If }Sv:`9=  
         &h/Xku&0  
        '全角或半角括号中的数字 W|mo5qrLS2  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" #\OA)`U  
        If regEX.Test(pTEXT) Then TvbE2Q;/UL  
            ParaType = "二级标题" PJH&  
            regEX.Execute (pTEXT) usF.bkTp  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") g2_"zDiw2  
            TitleString = regEX.Replace(pTEXT, "$5") /U9"wvg  
            TitleNo = regEX.Replace(pTEXT, "$2") #*
Ctwl,T  
            Exit Sub f+!(k)GWd  
        End If VTE .^EK!  
         y<Ot)fa$  
        '阿拉伯数字  1. 2. Fx.=#bVX7  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" YS0<qSN
  
        If regEX.Test(pTEXT) Then 57c8xk[.2  
            ParaType = "三级标题" (!WD1w
 
            regEX.Execute (pTEXT) 4tBYR9|  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 g($2Dk_F2  
            TitleString = regEX.Replace(pTEXT, "$3") :vbW  
            TitleNo = regEX.Replace(pTEXT, "$1") "chDg(jMZ  
            Exit Sub e\L8oOk#r  
        End If ~9@UjQ^)F  
         ^1.By^ $  
        '全角或半角括号中的阿拉伯数字 ?e 4/p  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" .ioEIsg  
        If regEX.Test(pTEXT) Then {`@G+JV~Jw  
            ParaType = "四级标题" F)eelPZ+,  
            regEX.Execute (pTEXT) R\[e!g*I  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") 4kx N<]  
            TitleString = regEX.Replace(pTEXT, "$5") c^W)07-X5y  
            TitleNo = regEX.Replace(pTEXT, "$2") FZnw0tMq  
            Exit Sub 'H;*W|:-]  
        End If =aW9L)8D  
         xA*<0O\V  
        '表格名称 Avb\{)s+  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" Km$\:Xo  
        If regEX.Test(pTEXT) Then tWcHb #  
            ParaType = "表格标题" x.$FNt(9  
            regEX.Execute (pTEXT) Dlvz)  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) gPPkT"  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) +M/%+l  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) |+9&rAg  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 @q)d  
            Exit Sub i/Zd8+.n$  
        End If YT,{E,U;  
         j8sH|{H!Nq  
        '图片名称 3Y$GsN4ln  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" OneY_<*a<  
        If regEX.Test(pTEXT) Then O=7CMbS3  
            ParaType = "图片标题" ~t~|"u"P  
            regEX.Execute (pTEXT) J|73.&B  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") es7=%!0  
            TitleString = regEX.Replace(pTEXT, "$3") 9->if/r,o  
            TitleNo = regEX.Replace(pTEXT, "$1") @r1_U,0e  
            Exit Sub eHUOU>&P]  
        End If ?:0Jav  
         r~['VhI!;E  
        '参考文献 f!X[c?Xy"  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 (E1~H0^  
        If regEX.Test(pTEXT) Then Z%UP6%  
            ParaType = "文献条目" CrTw@AW9)  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") >A"(KSNL  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") 8}:nGK|kx  
            Exit Sub G3T]`Atf  
        End If %xLhZ\  
         ");a3hD  
        prfx = Left(pTEXT, 2) ~k5W@`"W  
        If prfx = "注：" Or prfx = "注:" Then Ny/MJ#Lq  
            ParaType = "图表注解" @6-jgw>W2  
            Exit Sub Q7CsJzk~)  
        End If )^hbsMhO  
         iy.\=Cs$N  
         }jPSU
do  
        ParaType = "正文" (TM,V!G+U~  
         N;%6:I./  
    End With @H8EWTZ  
End Sub [:*)XeRK  
dWBA1p  
Sub ConvertListToOrdinary() !&E-}}<  
    Dim st As Paragraph GM<9p_ B  
    With ActiveDocument om>KU$g  
        For i = .Paragraphs.Count To 1 Step -1 jPkn[W# 6  
            Set st = .Paragraphs(i) OY({.uVdX  
            lst = st.Range.ListFormat.ListString *oix6  
            If lst <> "" Then 
e\/w'  
                st.Range.ListFormat.RemoveNumbers >H,*H;6  
                st.Range.InsertBefore lst & " " #/37V2E  
            End If +=)+'q]S  
        Next H\[W/"  
    End With F!K>Kz  
    Set st = Nothing qH_Dc=~la  
End Sub |_U= z;Y  
_aeBauD  
Private Sub UserForm_Activate() u*9V&>o  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" Tlr v={  
    Me.lbTotal.Font.Bold = True 'J|_2*  
    Me.txtStatus.Visible = False ,a? oaPH  
    Me.cmdCheck.Enabled = True .=; ;  
)+Pus~w  
End Sub
Iq.*8Oc  
9>#6*/Oa7  
N'=gep0
V@  
Sub CheckSuperScript() u ^RxD^=L  
    Selection.Find.ClearFormatting @C aG9]  
    Selection.Find.Replacement.ClearFormatting M',?u  
    With Selection.Find #g!.T g'  
        .Text = "[【\[［〖](*)[】\]〗］]"  %;!.n{X  
        .Replacement.Text = "[\1]" 2Tppcj v  
        .Replacement.Font.Superscript = True _q^E,P  
        '.Replacement.Font.Color = wdColorBlue |y!A&d=xYn  
        .Forward = True _@/8gPT*i  
        .Wrap = wdFindContinue *VN6cSq  
        .FORMAT = True DtnEi4h,  
        .MatchCase = False q@2siI~W  
        .MatchWholeWord = False xgtR6E^k  
        .MatchByte = False Znv,9-  
        .MatchAllWordForms = False /Z4et'Lo  
        .MatchSoundsLike = False -UT}/:a  
        .MatchWildcards = True 3Zh)]^  
    End With d/@,@8:  
    Selection.Find.Execute Replace:=wdReplaceAll ;dhQN}7  
End Sub BJ(M 2|VH  
L}NSR  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) V(*
(F7+  
    bContinue = False E tm?'  
    Set regEX = Nothing 93 hxSRw  
End Sub 7 X4LJf  
bg0

Wnl  
Sub CeateOrModifyStyle() ddR>7d}N  
' \73ch  
' =Fl^`*n  
Dim stl As Style Ek}A
]zC  
      9gZ$
 
    Options.Pagination = False e96k{C`j0  
     d'sZ xU  
    On Error Resume Next |EN
h)M8}r  
    For Each stl In ActiveDocument.Styles akQ7K  
        stl.Delete +"VP-s0  
    Next NGWxN8P6  
    On Error GoTo 0 ov
V'VcUs  
     (7*}-Uy[C  
    Set stl = Nothing +ck}l2&#  
     =g
|FT  
    DoEvents Gs[XJ 5%`~  
    On Error Resume Next i}?>g-(  
     $ME)#(  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph jz0T_\8D`  
     Z?z.?ar  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph 0m ? )ROaJ  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph vvOV2n.WD  
     E_LN]v  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph #e5\j\#.  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph zx7{U8*`<  
     4KrL{Z+}  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph @lph)A Nk  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph 9_s`{(0?  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph T[A69O]v  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph rrv%~giU  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph F6dP,(  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph <9 ;!3xG  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph [ikOb8 G#  
     HpnWoDM  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph  jZ; =so  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph KK &?gTa  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph "zy7C*)>r  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph qIqM{#' ^  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph gZ1?G-Q  
     8\gjST*  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph @=kSo -SX  
    On Error GoTo 0 cN9t{.m  
    DoEvents )dSi/  
     `P ,d$H "  
    'BaseStyle H>@+om  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False xN%K^Tree  
    With ActiveDocument.Styles("BaseStyle").Font |^H5^k "Bv  
        .NameFarEast = "宋体" CJI ~_3+K  
        .NameAscii = "Times New Roman" g=o4Q< #^y  
        .NameOther = "宋体" xkR0  
        .Size = 10.5 ;9g2?-svw  
        .Bold = wdUndefined @s^-.z  
        .Italic = wdUndefined >F&47Yn  
        .Subscript = wdUndefined L8 @1THY  
        .Subscript = wdUndefined o _H`o&xr  
         wlmRe`R  
        .Underline = wdUnderlineNone " 2Dngw  
        .UnderlineColor = wdColorAutomatic $,'*f?d  
        .StrikeThrough = False 0
SPk|kr  
        .DoubleStrikeThrough = False
-Y;3I00(  
         FC"8#*x  
        .Outline = False I++. ee  
        .Emboss = False Wo,?+I  
        .Shadow = False &jr3B;g!C  
        .Hidden = False 8HdAFRw  
        .SmallCaps = False Z EO WO  
        .AllCaps = False E1f\%!2l  
        .Color = wdColorAutomatic s"?3]P  
        .Engrave = False dC4'{n|7  
        .Scaling = 100 "C3/T&F  
        .Kerning = 1 Ecx
<OTo  
        .Animation = wdAnimationNone 6S\8$  
        .DisableCharacterSpaceGrid = False >-{Hyx  
        .EmphasisMark = wdEmphasisMarkNone kO-(~];  
    End With @xZR9Z8]L  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat ws^ np  
        .LeftIndent = 0 /H+a0`/  
        .RightIndent = 0 4v|W-h"K  
        .SpaceBefore = 0 PnG
-h~Y3N  
        .SpaceBeforeAuto = False M& CqSd  
        .SpaceAfter = 0 61 ~upQaR  
        .SpaceAfterAuto = False 5NLDYi@3  
         n{SJ_S#a.a  
        .LineSpacingRule = wdLineSpaceSingle BL58] P84  
        .Alignment = wdAlignParagraphJustify [PKR2UEe]  
         (_{yB[z>`  
        .WidowControl = False D|#E9OQzs  
        .KeepWithNext = False @ur+;IK$  
        .KeepTogether = False YT8F#t8  
        .PageBreakBefore = False &G$Ucc `  
        .NoLineNumber = False aFIw=c(nP  
         ;ovP$ vl>  
        .FirstLineIndent = CentimetersToPoints(0) P L+sR3bR  
        .OutlineLevel = wdOutlineLevelBodyText /5AJ.r  
        .CharacterUnitLeftIndent = 0 uUw5l})%Fi  
        .CharacterUnitRightIndent = 0 R_xRp&5  
        .CharacterUnitFirstLineIndent = 0 s(roJbJ_;  
        .LineUnitBefore = 0 Jpo(Wl  
        .LineUnitAfter = 0 HE_8(Ms;8  
        .AutoAdjustRightIndent = True dGTsc/$  
        .DisableLineHeightGrid = True kz7(Z 'pw  
         5ms(Wd  
        .FarEastLineBreakControl = True gKCX|cULY  
        .WordWrap = True /JU.?M3 5  
        .Hyphenation = False G9@0@2aY8  
         ]jRfH(i  
        .HangingPunctuation = True vSLtFMq^(  
        .HalfWidthPunctuationOnTopOfLine = True ?b5^  
        .AddSpaceBetweenFarEastAndAlpha = True pcI uN  
        .AddSpaceBetweenFarEastAndDigit = True c_l"I9M#r  
        .BaseLineAlignment = wdBaselineAlignBaseline Nl
(Foya%)  
    End With {cw /!B  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False RY*U"G0#w  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll EAby?51+  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese maR"t+  
    ActiveDocument.Styles("BaseStyle").NoProofing = False EDs\,f}  
     y L~W.H  
    '一级标题题样式 ]]j;
/TiG  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") O%HHYV%[m  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" ?@ $r   
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False ~.lPEA %%  
    With ActiveDocument.Styles("QLNU一级标题").Font hwN f~3eJk  
        .NameFarEast = "黑体" Lq!>kT<]!  
        .NameAscii = "Arial Black" Q .c\/&  
        .NameOther = "黑体" HiJE}V;Vq  
        .Name = "黑体" 0 'o:#-  
        .Size = 16              '三号 w.-!UD9/.x  
        .Bold = True B^jc3 VsR  
        .Italic = wdUndefined  1ZB"EQ  
        .Subscript = wdUndefined -`TEVS?`l  
        .Superscript = wdUndefined |IUWF%~^$+  
    End With $]2vv
r  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat Pd]|:W< E  
         O!bOp=  
        .LeftIndent = CentimetersToPoints(0) R_S.tT!  
        .RightIndent = CentimetersToPoints(0) W'u>#  
        .FirstLineIndent = CentimetersToPoints(0) 
w^0nqh  
         F^fdIZx  
        .LineSpacingRule = wdLineSpaceSingle ib791  
        .Alignment = wdAlignParagraphCenter 63x?MY6  
         zs#@j v$  
        .WidowControl = True N=g"(%  
        .KeepWithNext = True i
MRwp+$  
        .KeepTogether = True S?BG_J6A7  
        .OutlineLevel = wdOutlineLevelBodyText ZWp(GC1NA  
         Lbb0_-']  
        .LineUnitBefore = 0.5 1 I",L&S1  
        .LineUnitAfter = 0.5 t.\dpBq  
    End With *EwR!L*  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False &UlWCOo8  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll %BB%pC  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese =zs`#-^8  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True 1hNq8*|  
    DoEvents w917N4 $  
     57'4ljvYi  
    '二级 @2v_pJy^  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") {+Cy U!O  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" KdbHyg<4  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False 2SR:FUV/  
    With ActiveDocument.Styles("QLNU二级标题").Font @49S`  
        .NameFarEast = "黑体" PRE|+=w$  
        .NameAscii = "Arial Narrow" X +]G-  
        .NameOther = "黑体" &~U ]~;@  
        .Name = "黑体" QUQ'3  
        .Size = 15        '小三号 G'aDb/  
        .Bold = False ('p5:d  
        .Outline = False 1D!<'`)AY  
        .Italic = wdUndefined y Fq&8 x<X  
        .Subscript = wdUndefined R0  
        .Superscript = wdUndefined LC!bIm5'  
    End With hqkz^!rp  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat 0NX,QD  
        .LeftIndent = CentimetersToPoints(0) Fh9h,' V"  
        .RightIndent = CentimetersToPoints(0) x# 5A(g  
        .FirstLineIndent = CentimetersToPoints(0) 0%I=d  
         cDkf qcC  
        .LineSpacingRule = wdLineSpaceSingle k2UVm$}u  
        .Alignment = wdAlignParagraphLeft D*|Bb ?  
         t}tEvh  
        .WidowControl = True x.R4%Z  
        .KeepWithNext = True xWQ`tWA:J  
        .KeepTogether = True ~gRf:VXX=_  
        .PageBreakBefore = False ZO$%[ ftb  
        .OutlineLevel = wdOutlineLevelBodyText mBON$sF|  
         ?#UO./"  
        .LineUnitBefore = 0.5 =kG@ a(-  
        .LineUnitAfter = 0.5 EI^C{$Y  
         OY@ %p}l  
    End With KL Xq\{X  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False `%WU8Yv  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll S#} KIy  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese R<N ]B  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True fw{gx  
    DoEvents 6<(
.4a?  
     X
h
;#  
    '三级标题样式 zjoq6  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") R@k &SlL'`  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" A1zjPG&]  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False C8i^P}y  
    With ActiveDocument.Styles("QLNU三级标题").Font ] {HI? V  
        .NameFarEast = "宋体" ]~hk6kS8Q  
        .NameAscii = "Times New Roman" o J;$sj  
        .NameOther = "黑体" ZbAcO/  
        .Name = "黑体" %z4Nl$\  
        .Size = 14               '四号 K0Fh%Y4)QH  
        .Bold = False ,:\|7F  
        .Outline = False k7usMVAA  
        .Italic = wdUndefined WaR`Kp+>  
        .Subscript = wdUndefined 2x0<&Xy#P  
        .Superscript = wdUndefined *,WU?tl&  
    End With XA L1|]S  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat 'Ne@e)s9  
        .LeftIndent = CentimetersToPoints(0) %&t<K3&Yh  
        .RightIndent = CentimetersToPoints(0) fkNbS  
        .FirstLineIndent = CentimetersToPoints(0) pBA7,z"`mP  
         wz ~d(a#  
        .LineSpacingRule = wdLineSpaceSingle ;q6Ki.D  
        .Alignment = wdAlignParagraphLeft q.`NtsW!\+  
         ,{?%m6.lE  
        .WidowControl = True b(O3@Q6[  
        .KeepWithNext = True h2;F
 
        .KeepTogether = True [87,s.MK  
        .PageBreakBefore = False 7o5BXF  
        .OutlineLevel = wdOutlineLevelBodyText '$z IbQ:  
         NGOfb  
        .CharacterUnitLeftIndent = 0 fMyti$1~  
        .CharacterUnitRightIndent = 0  $[=%R`~w  
        .CharacterUnitFirstLineIndent = 2 -5QZJF2 ~  
         ]}2ZttQ?  
        .LineUnitBefore = 0.5 3 xp)a%=7  
        .LineUnitAfter = 0  {fn!'  
    End With ;cN{a&  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False M?uC%x+S$_  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll [Nbm
|["q~  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese 9j:"J` '  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True r<Kx0`y  
    DoEvents x39<6_?G  
     )gy!GK  
    '四级标题样式 O55 xS+3^k  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") j^rIH#V   
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" XFV!S#yEZ  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False cJ @Wt>YI  
    With ActiveDocument.Styles("QLNU四级标题").Font $43qME  
        .NameFarEast = "宋体" w%BL  
        .NameAscii = "Times New Roman" HBx=\%;n  
        .NameOther = "宋体" /{--+ C  
        .Name = "宋体" |64~K\X  
        .Size = 12               '小四号 xbYi.  
        .Bold = True <1\Nb
{5  
        .Outline = False =h73s0]  
        .Italic = wdUndefined 0T5L_%c  
        .Subscript = wdUndefined tS8u  
        .Superscript = wdUndefined L AA
HEv  
    End With ,f;}|d:r  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat ?zHPJLv|Y  
         V-L"gnd&2  
        .LeftIndent = CentimetersToPoints(0) ~|xA4u5LG  
        .RightIndent = CentimetersToPoints(0) ThbGQ"/  
        .FirstLineIndent = CentimetersToPoints(0) oWo- j<  
         M%;hB
*9  
        .LineSpacingRule = wdLineSpaceSingle pOG1jI5<{8  
        .Alignment = wdAlignParagraphLeft bYQRB i  
         ]G< Vg5  
        .WidowControl = True Ffta](Z;  
        .KeepWithNext = True ^\&e:Nkh  
        .KeepTogether = True Px`!A EFd[  
        .PageBreakBefore = False WKa~[j|-K  
        .OutlineLevel = wdOutlineLevelBodyText 2
JcjZn  
         ly3\e_z:G  
        .CharacterUnitLeftIndent = 0 PxkOT*
 
        .CharacterUnitRightIndent = 0 Jcm&RI"{  
        .CharacterUnitFirstLineIndent = 2 Y,t={HiclX  
         +-CtjhoS  
        .LineUnitBefore = 0 tc{sB\&-  
        .LineUnitAfter = 0 F,)%?<!I  
         |T)6yDL  
    End With ZlzjVU/E  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False 2Gaa(rJ5o  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll t"'7m^j  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese JKGe"  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True
*U=s\  
    DoEvents
T\>a!  
     GKc`xIQ  
    '正文校式 'o>B'$  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") dP]\Jo=Yh  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" q2:6QM&  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False =CVBBuVy  
    With ActiveDocument.Styles("QLNU正文").Font
CDR@ `1-  
         I->Ss},U  
        .NameFarEast = "宋体" q\p:X"j|  
        .NameAscii = "Times New Roman" Cg?&wj<
 
        .NameOther = "宋体" 5 -RsnF  
        .Name = "宋体" +@k+2?] FO  
         ls:w8&`*  
        .Size = 12               '小四号 j@uOOhy  
         6w ECo  
        .Bold = wdUndefined p/@smke  
        .Italic = wdUndefined ?\s+EE&-  
        .Subscript = wdUndefined I(7NQ8Hx  
        .Superscript = wdUndefined .rqhi  
         !fR3(=oN  
        .Outline = False Ob`d  
        .Emboss = False bsA-2*Q+  
        .Shadow = False l(tOe  
        .Hidden = False @;?p&.W`D  
         3c6b6  
        .DisableCharacterSpaceGrid = True #O} ,`[<  
    End With 0eu$ W  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat )6,=f.%  
         .j<]m UY  
        .LeftIndent = CentimetersToPoints(0) zz4N5["  
        .RightIndent = CentimetersToPoints(0) 9b"=9y,  
        .FirstLineIndent = CentimetersToPoints(0) "v({,  
         ZO$m["|  
        .LineSpacingRule = wdLineSpaceExactly ^)*-Bo)I  
        .LineSpacing = 20 @x'"~"%7b  
        .Alignment = wdAlignParagraphLeft 7f!YoW;1  
         b:]V`uF?  
        .WidowControl = False TOXfWEU3>  
        .KeepWithNext = False V"G*N<q  
        .KeepTogether = False 8jo p_PG'  
        .PageBreakBefore = False c*L\_Vx+  
        .Hyphenation = False !SdS E^lz`  
         `gf0l /d  
        .OutlineLevel = wdOutlineLevelBodyText EkNunCls  
         E3gh?6  
       8MzVOF{"  
        .CharacterUnitLeftIndent = 0 nWYN Np?h  
        .CharacterUnitRightIndent = 0 =Bhe'.]QSx  
        .CharacterUnitFirstLineIndent = 2 P0j8- I  
         -^h' >.  
        .LineUnitBefore = 0 kN4{13Qs*  
        .LineUnitAfter = 0 H0`]V6+<f  
        .SpaceBefore = 0 6'G6<8>-  
        .SpaceAfter = 0 k" PayyAC  
         #S*/bao#  
        .DisableLineHeightGrid = True yS(fILV  
    End With ``\i58K{e  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False G5aieD.#  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll EL 8<U  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese dS!:JO27  
    ActiveDocument.Styles("QLNU正文").NoProofing = True '2nhv,|.U  
    DoEvents JJ2_hVU  
     MUREiL9L|  
    '图片段落样式 ]<rkxgMW>  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") 9s$CA4?HP  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" MWpQ^dL_  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False 0C irfcs}Z  
    With ActiveDocument.Styles("QLNU图片段落").Font >A"v ed8  
        .Size = 12               '小四号 "ZsOd>[/  
        .Italic = wdUndefined %Iv,@}kvT+  
        .Subscript = wdUndefined T)TfB(  
        .Superscript = wdUndefined g<f <Ip=  
    End With :AF =<X*5  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat $r8 ^0ZRr  
         b Y\K  
        .LeftIndent = CentimetersToPoints(0) dj7hx"BI  
        .RightIndent = CentimetersToPoints(0) wFsyD3  
        .FirstLineIndent = CentimetersToPoints(0) mA
+&Io  
         LzXmb 7A  
        .LineSpacingRule = wdLineSpaceSingle Q)"Nu.m &  
        .Alignment = wdAlignParagraphCenter Cdu4U}^H  
        .KeepWithNext = True i}mVQ\j5  
        .OutlineLevel = wdOutlineLevelBodyText 3|4|*6  
         Zrk4*/ VY  
        .CharacterUnitLeftIndent = 0 ?Unb? {,&2  
        .CharacterUnitRightIndent = 0 EGzzHIZ`!  
        .CharacterUnitFirstLineIndent = 0 vK\%%H  
         ,<tX%n`v=  
        .LineUnitBefore = 0 6ZG+ZHUC&  
        .LineUnitAfter = 0 ]X5 9  
    End With Hmd] FC,_  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False _'>oXQJ  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll vV6I0  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese X#TQ_T"  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True s!&#c`=  
    DoEvents Xr$J9*Jk-  
     p &bROuw<T  
     pU%n]]qF  
    '第X章 -vR5BMy=  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") MLje4  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" > BY&,4r  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False A1D^a,  
    With ActiveDocument.Styles("QLNU章节标题").Font rrqR}}l  
        .NameFarEast = "黑体" (@<c6WS  
        .NameAscii = "Arial Black" PHXZ=A+  
        .NameOther = "Arial Black" Ix!Iw[CNd  
        .Name = "黑体" 9~m h@Kgv  
        .Size = 16 o9%)D<4M  
        .Bold = True n%C>E.Tq  
        .UnderlineColor = wdColorAutomatic L>9V&\  
        .Outline = False w2Jf^pR  
        .Italic = wdUndefined IE&!YP(U(  
        .Subscript = wdUndefined f'-i o<.  
        .Superscript = wdUndefined y7 3VFb  
        .Scaling = 100 F6OpN"UM'  
        .DisableCharacterSpaceGrid = True ;q:zT\A  
    End With =`:K{loxq  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat Nj xoTLI  
        .LineSpacingRule = wdLineSpaceSingle 
Ax?y  
        .Alignment = wdAlignParagraphCenter -tHU6s,  
        .WidowControl = True m4&h>9. 8  
        .KeepWithNext = True kabnVVn~  
        .KeepTogether = True MgOR2,cR  
        .PageBreakBefore = True !GLz)#SBl  
        .OutlineLevel = wdOutlineLevelBodyText q[`]D7W "  
         S=<}:#;u0  
        .LeftIndent = CentimetersToPoints(0) 9N<<{rQ,F  
        .RightIndent = CentimetersToPoints(0) vCxD~+zf  
        .FirstLineIndent = CentimetersToPoints(0) M/ni6%x  
         57zSu3v4Y  
        .CharacterUnitLeftIndent = 0 QnXA*6DJ  
        .CharacterUnitRightIndent = 0 v~V5`%  
        .CharacterUnitFirstLineIndent = 0 5JCG2jqx0  
         =K{"{5Wb  
        .LineUnitBefore = 1 s(%oTKjt  
        .LineUnitAfter = 0.5 wrbLDod /  
         + SFVv_
n  
        .AutoAdjustRightIndent = False ;8*`{F[  
        .DisableLineHeightGrid = True WDc+6/<  
        .FarEastLineBreakControl = True Hh-+/sO~"  
        .WordWrap = True FsV'Cu@!U  
    End With {G}.b)9FG  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False ;WM"cJo9  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll pP?MWe Eg  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese Lz!,kwg  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True -UdEeZz.  
    DoEvents Xg SxN!I  
     !*m5F8Qm?A  
    '表格标题 "B4;,+4kR  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") {7;8#.S72  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" =Z+nz^'b  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False 9{}1r2xW  
    With ActiveDocument.Styles("QLNU表格标题").Font V_RTI.3p  
        .NameFarEast = "楷体" zb}9%.U  
        .NameAscii = "Arial" #Jn _c0  
        .Name = "楷体" d`nVc50  
        .Size = 10.5 v!Pb`LCqK  
        .Bold = True RwPN gRF  
        .Underline = wdUnderlineNone <2|O:G  
        .Italic = wdUndefined >.'*)@vQi  
        .Subscript = wdUndefined )XakJU^o  
        .Superscript = wdUndefined 8XzR wYV  
        .Color = wdColorAutomatic rI>aAW'  
    End With e2ilB),  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat Rhz_t@e  
         SAK!z!t  
        .LineSpacingRule = wdLineSpaceSingle zj`v?#ET  
        .Alignment = wdAlignParagraphCenter RGg(%.  
        .KeepWithNext = True c^u"I'#Q  
        .KeepTogether = True NufLzg{  
        .OutlineLevel = wdOutlineLevelBodyText
oA7;.:3  
         8X`tU<A
b  
        .LeftIndent = CentimetersToPoints(0) X M#T'S9y8  
        .RightIndent = CentimetersToPoints(0) LbG_z =A  
        .FirstLineIndent = CentimetersToPoints(0) WObvbaK  
         Q/I!}C4  
        .CharacterUnitLeftIndent = 0 jbu8~\"  
        .CharacterUnitRightIndent = 0 Jd(,/q  
        .CharacterUnitFirstLineIndent = 0 x&9hI  
         #u"k~La  
        .LineUnitBefore = 1 )V ;mwT!Q  
        .LineUnitAfter = 0 mc_ch$r!  
         U,gti,IX^  
    End With [}8|R0KF  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False r77PQQDT  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll %D8ZO0J7H  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese aj}sc/Qa  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True -
>O2I?  
    DoEvents .k9{Yv0  
Q7$.LEioN  
    '表格首行 ?-^
m`  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") 0-|b yAh  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False kRD%b[*d  
    With ActiveDocument.Styles("QLNU表格首行").Font O.Iu6D  
        .NameFarEast = "楷体" 2Sp=rI  
        .NameAscii = "Times New Roman" Z@&Dki  
        .Name = "楷体" `v}%33$hA  
        .Size = 9 %8Dz

o  
        .Bold = True Nwt" \3  
        .Underline = wdUnderlineNone !Mim@ !5M  
        .Italic = wdUndefined Eam  
        .Subscript = wdUndefined 2eC(Ijq[a  
        .Superscript = wdUndefined Jn3An  
    End With g'=B%eO$j:  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat T G{k0cdOT  
        .LineSpacingRule = wdLineSpaceSingle $
Y_i4(  
        .Alignment = wdAlignParagraphCenter c`WHNky%j  
         ;._7jF j.  
        .LeftIndent = CentimetersToPoints(0) &S
]@Ot<z  
        .RightIndent = CentimetersToPoints(0) IS[thbzkZ  
        .FirstLineIndent = CentimetersToPoints(0)
k^%B5  
         7.@TK&  
         ;M#_6Hd?qD  
        .CharacterUnitLeftIndent = -0.5 A
UNQA  
        .CharacterUnitRightIndent = -0.5 @@rEs40  
        .CharacterUnitFirstLineIndent = -0.5 =gvBz| +  
         U
IAj]   
        .LineUnitBefore = 0 :l &V]}:7*  
        .LineUnitAfter = 0 OD 3f.fT  
        .SpaceBefore = 0 9Xl5@%uz?z  
        .SpaceAfter = 0 ?(m jx  
         4RV%Z!kcD!  
    End With +|@rD/I6  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False AfP'EP0m  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll `|#Qx3n%  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese J.dLPKU;-  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True ] GTAq  
    DoEvents S.Ma$KL~'^  
z=_Ef3`M  
    '表格内容 :ORR_f`>  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") Wg0g/  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False Nl9I*x^e  
    With ActiveDocument.Styles("QLNU表格内容").Font =;|QZ"%E  
        .NameFarEast = "楷体" vRxM4O~"  
        .NameAscii = "Times New Roman" }X_;X_\3;'  
        .Name = "楷体" f<*Js)k  
        .Size = 9 X*Dj[TD]  
        .Bold = False R8UYP=Kp  
        .Underline = wdUnderlineNone I,VH=Yn5,  
        .Italic = wdUndefined lGk{LO)  
        .Subscript = wdUndefined 3=$q  
        .Superscript = wdUndefined Cc<,z*T  
    End With b0A1hb[|  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat hL;8pE8  
        .LineSpacingRule = wdLineSpaceSingle mBJeqG  
        .Alignment = wdAlignParagraphCenter *B\H-lp?  
         6"t;gSt4  
        .LeftIndent = CentimetersToPoints(0) -zO2|@S,  
        .RightIndent = CentimetersToPoints(0) qc!MG_{Y  
        .FirstLineIndent = CentimetersToPoints(0) #8bsxx!s  
         =w5O&(  
        .CharacterUnitLeftIndent = -0.5 C?=P  
        .CharacterUnitRightIndent = -0.5 RQp|T5Er*  
        .CharacterUnitFirstLineIndent = -0.5 B Ma)O  
        .LineUnitBefore = 0 |vMpXiMxxT  
        .LineUnitAfter = 0 N!x =eC  
        .SpaceBefore = 0 !!V#v9{  
        .SpaceAfter = 0 4)4+M  
    End With / c-r  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False G0{H5_h  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll ,i6RE   
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese b}wC|\s  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True U{$1[,f  
    DoEvents N2$I}q%  
c.f"Gv  
    '图片标题 XfE -fH1j  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 7,MS '2nz  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" :nS; W  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False 6 XJ[h  
    With ActiveDocument.Styles("QLNU图片标题").Font ;k86"W  
        .NameFarEast = "楷体" A'K%WW*'U  
        .NameAscii = "Times New Roman" .R8 HZ}3  
        .Name = "楷体" )VK }m9Ae  
        .Size = 10.5 j.ldaLdG  
        .Bold = True iy\nio`  
        .Underline = wdUnderlineNone 7`H 1f]d  
        .Italic = wdUndefined G #T<`>T  
        .Subscript = wdUndefined 2Nm>5l  
        .Superscript = wdUndefined k@D0 {z  
        .Outline = False m6yIR6H  
        .Shadow = False
^(f4*m6`  
        .Color = wdColorAutomatic (?kl$~&|  
    End With JwRF(1_sM  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat @a>2c$%  
        .LineSpacingRule = wdLineSpaceSingle }Jh: 8BNuP  
        .Alignment = wdAlignParagraphCenter jWO/ xX  
         @@g\2 Gs  
        .KeepWithNext = wdUndefined #:|+XLL  
        .KeepTogether = True !W'Ui 9uX  
        .OutlineLevel = wdOutlineLevelBodyText 8?O>ZZtu  
         'snn~{hG  
        .LeftIndent = CentimetersToPoints(0) y}K\%;`[a  
        .RightIndent = CentimetersToPoints(0) l Js<  
        .FirstLineIndent = CentimetersToPoints(0) G"59cv8z4R  
         ~i_Tw#}  
        .CharacterUnitLeftIndent = 0 J5[~LZKW  
        .CharacterUnitRightIndent = 0 \WrFqm#  
        .CharacterUnitFirstLineIndent = 0 Rek -`ki5F  
         deeU@x`f<  
        .LineUnitBefore = 0 H :JLAK  
        .LineUnitAfter = 0 \[>9UC%  
    End With <0.$'M~E  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False Dbaf0  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll %q322->
Z  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese `L5~mb;7*  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True * P!e:Tm)  
    DoEvents H,<7G;FPT  
qr50E[  
    '目录项 $RwB_F  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") cj|*_}
 
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" eL.7#SIr}  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False =}fd6ea(o  
    With ActiveDocument.Styles("QLNU目录项").Font `C
+HE$B  
        .NameFarEast = "黑体" Q_"\Q/=?Do  
        .NameAscii = "Times New Roman" PS" .R
_"  
        .NameOther = "Times New Roman"
O0*e)i8  
        .Name = "黑体" ]43bere  
        .Size = 10.5 TfZ6F8|B  
        .Bold = False ?Jusl8Sm  
        .Italic = wdUndefined }^K/?dM  
        .Underline = wdUnderlineNone geefnb  
        .Color = wdColorAutomatic XfzVcap  
        .Superscript = wdUndefined p(m1O70C  
        .Subscript = wdUndefined DrvtH+e  
    End With jSQ9.%4  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat YIp-Y
}6  
         -(JU d4#  
        .LineSpacingRule = wdLineSpaceSingle qG9+/u)\  
        .Alignment = wdAlignParagraphLeft a)! g7u  
         Pe~`16f  
        .WidowControl = False 0ZPV'`KGp  
        .KeepWithNext = False zN_:nY>
  
        .KeepTogether = False !sA_?2$  
        .PageBreakBefore = False OalP1Gy
 
        .NoLineNumber = False FX,$_:f6Y  
        .OutlineLevel = wdOutlineLevelBodyText vh>{_ #  
         $ A-b vL  
        .LeftIndent = CentimetersToPoints(0) bn 4 &O  
        .RightIndent = CentimetersToPoints(0)
fjDpwb:x)  
        .FirstLineIndent = CentimetersToPoints(0) 4W\,y_Qo  
         q
GPb  
        .CharacterUnitLeftIndent = 0 K{}4zuZ  
        .CharacterUnitRightIndent = 0 mKg@W;0ML  
        .CharacterUnitFirstLineIndent = 0 "t&{yBQ0u  
         R+$8w2#  
        .LineUnitBefore = 0 GZ0aOpUWVq  
        .LineUnitAfter = 0 ij&p4  
    End With 7-9;PkGG.A  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False s"0b%0?A  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll /'>;JF  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot ~ |,e_ zA  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese $-@$i`Kf/  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True ]~a_d)  
    DoEvents Q)Dwq?  
     K :qOoY  
    '参考文献 ?Nl"sVCo  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") n*qN29sx  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" eZO9GMO  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False bv\ A,+  
    With ActiveDocument.Styles("QLNU参考文献").Font cvAtwQ'  
        .NameFarEast = "宋体" FyEDt@J  
        .NameAscii = "Times New Roman" IB7tAG8  
        .NameOther = "Times New Roman" <qiICb)~  
        .Name = "Times New Roman" VVrwOoCN  
        .Size = 12 /?zW<QUI  
        .Bold = False hD 46@  
        .Italic = wdUndefined `h;}3r#R{  
        .Subscript = wdUndefined bGh0<r7
R  
        .Superscript = wdUndefined z-0:m|=yH  
        .Underline = wdUnderlineNone 6;uBZ&g  
        .UnderlineColor = wdColorAutomatic Wm6dQQ;Bj  
        .Color = wdColorAutomatic 1BD6l2y  
        .Engrave = False ?'~ ;Q)  
    End With ^w6eWzI  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat VvgN3e[  
         8g5V,3_6  
        .LineSpacingRule = wdLineSpaceExactly |Odu4 Q  
        .LineSpacing = 16 9|K*G~J  
        .Alignment = wdAlignParagraphLeft hBCR]=' ]  
        .WidowControl = False m(3);)d  
        .KeepWithNext = False Ww87  
        .KeepTogether = False s%dF~DSK  
        .PageBreakBefore = False T=? bdIl  
        .OutlineLevel = wdOutlineLevelBodyText y=o=1(  
         @&/\r 7 '  
        .LeftIndent = CentimetersToPoints(0) )Ul&1UYA  
        .RightIndent = CentimetersToPoints(0) * =^[VV!  
        .FirstLineIndent = CentimetersToPoints(0) 8SD}nFQ  
         .g-3e"@  
        .CharacterUnitLeftIndent = 0 2_olT_#  
        .CharacterUnitRightIndent = 0 R/N<0!HZ  
        .CharacterUnitFirstLineIndent = -2 TSyzdnMvz  
         p\txlT  
        .LineUnitBefore = 0 ofEqvoi@  
        .LineUnitAfter = 0 8)Tj
H'  
        .SpaceBefore = 0 wd`R4CKhP]  
        .SpaceAfter = 0 tvWH04T  
         L+Nsi~YVq  
    End With rr>~WjZ3  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False mW$ot.I  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll 712=rUI%!  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS X"J%R/f  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True "<dN9
l>  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese S_!R^^ySG9  
    DoEvents `03<0L  
*Pb.f  
    ' 4ROWz  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") >1XL;)IL>  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" 5K(n3?1z)  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False t+}uIp42<  
    With ActiveDocument.Styles("QLNU论文题目").Font x9*ys;~w  
        .NameFarEast = "黑体" RUrymkHFB  
        .NameAscii = "Arial Black" [>u
wk``_  
        .NameOther = "Arial Black" CB@B.)E  
        .Name = "Arial Black" "=`~iXT{e  
        .Size = 16 [oHO Hp/
V  
        .Bold = False By/bVZks  
        .Italic = wdUndefined A1!:BC  
        .Superscript = wdUndefined M-91 JOt~  
        .Subscript = wdUndefined `Wwh`]#"~d  
        .Underline = wdUnderlineNone ECdfLn*c  
        .UnderlineColor = wdColorAutomatic O&P>x#w  
        .Color = wdColorAutomatic u@"o [e':  
>DmRP7v   
    End With U5wTGv4S|  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat aT/KT,!  
        .LineSpacingRule = wdLineSpaceSingle vadM1c*z  
        .Alignment = wdAlignParagraphCenter v=+k"gm6  
        .WidowControl = True KS>Fl->  
        .KeepWithNext = True !`h~`-]O  
        .KeepTogether = True J:W'cH$cR  
        .PageBreakBefore = True F9D"kG;Dk  
        .NoLineNumber = False Y_shy6"KH  
        .OutlineLevel = wdOutlineLevelBodyText 8c?8X=|D7  
         }@4|7  
        .LeftIndent = CentimetersToPoints(0) s#Q_Gu  
        .RightIndent = CentimetersToPoints(0) vj@V !j?  
        .FirstLineIndent = CentimetersToPoints(0) 2vXGO|W  
         >\-3P$  
        .CharacterUnitLeftIndent = 0 s{%fi*  
        .CharacterUnitRightIndent = 0 G+Ei#:W,  
        .CharacterUnitFirstLineIndent = 0 wL|7mMM,  
         }`@?X"r  
        .LineUnitBefore = 1 "11j$E9#\n  
        .LineUnitAfter = 1 = P8~n2V  
         0- Yeu5A  
        .BaseLineAlignment = wdBaselineAlignAuto 9_`
3IJ  
    End With AuM:2N2  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False ^k9rDn/AW  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll '!j(u@&!  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS ~g96o81V  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True $ UmE  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese +wjlAqMQ  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True 1(F
'~i|5  
    DoEvents `QAh5r"  
     0eaUorm)  
    '中文摘要 Pb=rFas*C  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") Oylp:_<aT  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" $:HLRl{2E  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False pgfu+K7?w  
    With ActiveDocument.Styles("QLNU中文摘要").Font j<|6s,&  
        .NameFarEast = "宋体" <VgE39 [  
        .NameAscii = "Times New Roman" D99N#36PU  
        .NameOther = "Times New Roman" $@4e(Zrmo  
        .Name = "Times New Roman" ,9$>d}N  
        .Size = 12 `w(sXkeaI  
        .Bold = wdUndefined !Ba3`B5l  
        .Superscript = wdUndefined 6NKF'zh  
        .Subscript = wdUndefined `i{4cT8:  
        .Italic = wdUndefined ~)!VV)  
        .Underline = wdUnderlineNone z7$}#)Z7  
        .UnderlineColor = wdColorAutomatic 6g5]=Q@U:  
        .Color = wdColorAutomatic 4jD\]Q="1  
    End With <e^6.!;W  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat ! %)L&W_  
        .LineSpacingRule = wdLineSpaceExactly 0<"tl0p_  
        .LineSpacing = 20 up7x)w:  
        .Alignment = wdAlignParagraphLeft YmA) @1@U  
         nR#a)et  
        .WidowControl = False vD "_X"v  
        .KeepWithNext = False
[@s=J)H  
        .KeepTogether = True OUKj@~T  
        .PageBreakBefore = False J4&XPr 9  
        .NoLineNumber = False E-[:. &  
        .OutlineLevel = wdOutlineLevelBodyText 8s&2gn1  
         j!"iYtgV  
        .LeftIndent = CentimetersToPoints(0) FL~9</  
        .RightIndent = CentimetersToPoints(0) Hm<M@M$aG  
        .FirstLineIndent = CentimetersToPoints(0) TyyRj4>  
         7j{Te
)"  
        .CharacterUnitLeftIndent = 0 gtl;P_  
        .CharacterUnitRightIndent = 0 rQuOt  
        .CharacterUnitFirstLineIndent = 2 ,$SkaTBe  
        .LineUnitBefore = 0 Ny[s+2?  
        .LineUnitAfter = 0 ]s}aC9 I  
         } pSt@3o,  
    End With paUyS1i  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False c[6zX#{`  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll 6#/LyzZq|  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS u<J2p?`\&`  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True .M`LUb"!  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese U &f#V=Rg  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True %j!z\pa  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete .2{6h  
    DoEvents \_)02ZT:  
     L_`Xbky  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") G-Zr M  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" -y9Pn>~V  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False |'!7F9GP  
    With ActiveDocument.Styles("QLNU英文标题").Font +,:nm_kQU  
        .NameFarEast = "黑体" fa/P%9db  
        .NameAscii = "Arial Narrow" FK?mS>G6  
        .Name = "Arial Narrow" W=(MsuirO  
        .Size = 16 RbyF#[}  
        .Bold = True CrT2#h 1#  
        .Bold = wdUndefined @ICejB<  
        .Superscript = wdUndefined ``/y=k/au  
        .Subscript = wdUndefined KX$qM g1j  
        .Italic = wdUndefined 2M5*bNU_:  
         2"B}}  
        .Underline = wdUnderlineNone n^3NA|A  
        .UnderlineColor = wdColorAutomatic {: Am9B  
        .StrikeThrough = False o x03c  
        .DoubleStrikeThrough = False D6"~fjHh  
    End With Jq=X!mTd.  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat Qj{$dqmDN  
        .LineSpacingRule = wdLineSpaceSingle :K!GR  
        .Alignment = wdAlignParagraphCenter p,!fIx  
        .WidowControl = True Q;d+]xj  
        .KeepWithNext = False `,hW;p>-  
        .KeepTogether = False zLE>kK  
        .PageBreakBefore = False j P{:A9T\  
        .NoLineNumber = False 0]/,m4a#n  
        .FirstLineIndent = CentimetersToPoints(0) 1 yxZ  
        .OutlineLevel = wdOutlineLevelBodyText uVoF<=
{  
         :4Id7Ce  
        .LeftIndent = CentimetersToPoints(0) ze-TBh/  
        .RightIndent = CentimetersToPoints(0) ?nj"Ptzs  
        .FirstLineIndent = CentimetersToPoints(0) &*LA_]1@  
         %D`^  
        .CharacterUnitLeftIndent = 0 MLEIx()  
        .CharacterUnitRightIndent = 0 YY1{v?[  
        .CharacterUnitFirstLineIndent = 0 RcKQER  
         #3AYz82w  
        .LineUnitBefore = 1 9;r48)5  
        .LineUnitAfter = 1 f/ $-Nl.  
         )UxQf37  
    End With ;Hz`0V  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False 00$ @0  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll
L5i#Kh_  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS ..v@Q%  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True qBfwN1  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese 8T!fGzHx  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True Qq@_Z=mt  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete 1 P(&GYc  
    DoEvents <yPq;#z(!  
KY;uO 8Te  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") &/z
+A{Hi  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" 5e~ j  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False IF,i^,  
    With ActiveDocument.Styles("QLNU英文摘要").Font HMl!?%%  
        .NameFarEast = "宋体" ^\Ue 7,H-  
        .NameAscii = "Arial" wliGds  
        .NameOther = "Arial" )M&I)In'  
        .Name = "Arial" oP 6.t-<dU  
        .Size = 12 35-DnTv  
        .Bold = wdUndefined U4 go8  
        .Italic = wdUndefined FkB6*dm-  
        .Superscript = wdUndefined ^!-E`<jW8  
        .Subscript = wdUndefined GF$rPY[  
    End With VPq5xSc?  
     2^k^"<h5j  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat [e
sX{6,i  
         "^e} C@  
        .LineSpacingRule = wdLineSpaceExactly 1(
QWt  
        .LineSpacing = 20 {7j6$.7J$&  
         ,E n(gm  
        .Alignment = wdAlignParagraphJustify Q 37V!  
         /*mFP.en  
        .WidowControl = False tk]_QX %  
        .KeepWithNext = False WOe{mwhhj  
        .KeepTogether = False _>Pe]3  
        .PageBreakBefore = False qcpG}o+&D  
        .NoLineNumber = False <s59OdzP  
         sM);gI14  
        .OutlineLevel = wdOutlineLevelBodyText lN*1zM<6;  
         =0jmm(:Jh  
        .LeftIndent = CentimetersToPoints(0) wz|Q%.%?[  
        .RightIndent = CentimetersToPoints(0) P22y5z~  
        .FirstLineIndent = CentimetersToPoints(0) A
>ug'.  
         T7WZ(y 3C  
        .CharacterUnitLeftIndent = 0 )U"D4j*p  
        .CharacterUnitRightIndent = 0 +S:u[x  
        .CharacterUnitFirstLineIndent = 2 !=k*hl0h  
         ~(*co[_  
        .LineUnitBefore = 0 5Xq.=/eX  
        .LineUnitAfter = 1 >F LdI  
         E#&c]9QM75  
    End With hSLw iX~  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False { c6DT  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll r P<d[u  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS '>S8t/
 
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False >qh>Qm8w  
    DoEvents P^uP$D  
Y3sNr)qss  
    Options.Pagination = True )edU <1P  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." -=v/p*v0o  
    DoEvents )f:!#v(K  
    ActiveDocument.Repaginate E@'CU9Fo  
"'&>g4F`o  
End Sub x3p;H02i\  
uHujw.H/y  
~Q{[fy=  

姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 LBiv]3  
"n2xn%t{  

引用

引用第20楼newport93于06-14-2010 13:47发表的  : KWuj_.;  
\Kzt*C-ZH  
老五，I 服了U。 T\$
^>@  
{bq-: CZe  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 >-./kI "  

oJz:uv8Pe.