Dim bContinue As Boolean S>Yj@L  
5z}w}zdg  
Dim regEX As New RegExp U(>4s]O6  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 _
fk#<  
o{:xp r=(  
Dim LastTitle0String As String, LastTitle0No As Long TUK"nKSZ`.  
Dim LastTitle1String As String, LastTitle1No As Long oqd;6[%G  
Dim LastTitle2String As String, LastTitle2No As Long XOP"Px@  
Dim LastTitle3String As String, LastTitle3No As Long LNYKm~cN  
Dim LastTitle4String As String, LastTitle4No As Long 4u;9
J*r4  
Dim LastTitle5String As String, LastTitle5No As Long fxcc<h4  
Dim LastTabelString As String, LastTableNo As Long <UP m=Hb  
Dim LastFigureString As String, LastFigureNo As Long fV>CZ^=G  
~uWOdm-"[  
Dim strSeperator As String 8IQtz2  
pKUP2m`MW  
Sub ConvertWidth(fTEXT As String, rText As String) }yn0IWVa  
        Selection.Find.ClearFormatting n/d`qS  
        Selection.Find.Replacement.ClearFormatting h ZXXBp  
        Selection.Find.Wrap = wdFindContinue 2
1X`h3+=  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText 1c4/}3*  
        DoEvents /phX
'xp  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True -fI`3#  
End Sub #6v27:XK  
hwYQGtjF  
Sub ClearDomain() {7hLsK[])  
        With Selection.Find d*8 $>GA  
            .ClearFormatting F9"w6;hh  
            .Replacement.ClearFormatting f|7\DeY9U  
            .Wrap = wdFindContinue $ ,Ck70_  
            Me.txtStatus.Text = "清除所有域代码" e}Vw!w  
            DoEvents \>. LW9  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False z;tI D~Y  
        End With 6fo3:P*O  
End Sub X
N=67f$Hw  
796\jf$  
Private Sub cmdCheck_Click() S0,R_d')  
    bContinue = True }Db[ 4
 
    Dim NoSeries1(1 To 16) As String &F *'B|n  
    Dim NoSeries2(1 To 16) As String (IqZ@->nw  
    Dim NoSeries5(1 To 16) As String 6RO(]5wX  
    Dim NoSeriesRM(1 To 16) As String 5|0,X<
&  
    Dim paraTotal As Long, ParaText As String f"[J"j8  
    Dim ttString As String, ttNo As String HAzBy\M{  
     ))kF<A_MK  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long K7knK  
3rW|kkn  
    Me.txtStatus.Visible = True hg.#DxRi{  
    Me.lbParaType.Visible = True `:8J46or  
    Me.cmdCheck.Enabled = False S^@S%Eg  
     |~`as(@Ih  
     olB)p$aH#  
     .T<=z  
     kl!wVLE  
    Dim ParaType As String, rText As String >eQr<-8  
     d_UN
0YT<  
    Selection.WholeStory GYxM0~:$k  
    Selection.NoProofing = True \uqjs+  
     Y_&g="`Q  
    tm1 = Now ]B"'}%>ez  
     2,2Z`X   
        ActiveWindow.View.Type = wdNormalView $4kH3
+WJ  
     Pt:e!qX)  
    NoSeries1(1) = "一" aimarU  
    NoSeries1(2) = "二" }U~6^2 .,  
    NoSeries1(3) = "三" rEhX/(n#  
    NoSeries1(4) = "四" k %e^kej  
    NoSeries1(5) = "五" vy2Q g  
    NoSeries1(6) = "六" ok^d@zI  
    NoSeries1(7) = "七" e1(Q(3  
    NoSeries1(8) = "八" j`'`)3f  
    NoSeries1(9) = "九" >2$5eI  
    NoSeries1(10) = "十" Ei}/iBG@  
    NoSeries1(11) = "十一" h+ p*=|j`  
    NoSeries1(12) = "十二" G'2#9<c*  
    NoSeries1(13) = "十三" "I?Am&>'  
    NoSeries1(14) = "十四" :NHH Dl  
    NoSeries1(15) = "十五" n9w9JXp;!  
    NoSeries1(16) = "十六" \6n!3FLl  
     ,u }XWV  
    NoSeries2(1) = "㈠" x9/H/'
 
    NoSeries2(2) = "㈡" k(>h^  
    NoSeries2(3) = "㈢" (/!r(#K0,'  
    NoSeries2(4) = "㈣" ,[S+T.Cu  
    NoSeries2(5) = "㈤" ZRxZume<f  
    NoSeries2(6) = "㈥" 6*4's5>?D  
    NoSeries2(7) = "㈦" <U5wB]]  
    NoSeries2(8) = "㈧" O<PO^pi  
    NoSeries2(9) = "㈨"  Amr[wx  
    NoSeries2(10) = "㈩" [ylsz?  
     [Aj Q#;#Q  
    NoSeries5(1) = "①" OMhef,,H  
    NoSeries5(1) = "②" w{[=l6L m  
    NoSeries5(3) = "③" Q$& sTM  
    NoSeries5(4) = "④" +d+@u)6  
    NoSeries5(5) = "⑤" ~CB[9D=  
    NoSeries5(6) = "⑥" v 8T$ &-HJ  
    NoSeries5(7) = "⑦" P./V6i<:  
    NoSeries5(8) = "⑧" 'j^xbikr  
    NoSeries5(9) = "⑨" #/"8F O%~p  
    NoSeries5(10) = "⑩" ~7~~S*EQ  
     D0k 8^  
     +a&p$\  
    NoSeriesRM(1) = "I" H1<>NWm!v7  
    NoSeriesRM(2) = "II" Re:jVJgBz  
    NoSeriesRM(3) = "III" 0iULCK  
    NoSeriesRM(4) = "IV" Tus}\0/i>  
    NoSeriesRM(5) = "V" H gTUy[(  
    NoSeriesRM(6) = "VI" >_rha~   
    NoSeriesRM(7) = "VII" 9I1tN  
    NoSeriesRM(8) = "VIII" iHwLZ[O{  
    NoSeriesRM(9) = "IX" xq-17HK
s  
    NoSeriesRM(10) = "X" yKYUsp  
    NoSeriesRM(11) = "XI" 5>3}_  
    NoSeriesRM(12) = "XII" T2}FYVj?!g  
    NoSeriesRM(13) = "XIII" ;Op3?_  
    NoSeriesRM(14) = "XIV" /27Jev
E  
    NoSeriesRM(15) = "XV" t*@2OW`!  
    NoSeriesRM(16) = "XVI" .)}@J5P)  
     s]mo$ _na  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) )1N 54FNO  
     F:*W5xX  
    If i = vbNo Then E$W{8?:{  
        Exit Sub ZX ?yL>4  
    End If /? r?it  
     @L.82p{h  
    If Me.chkSuper.Value Then 4h5g'!9-g  
        Me.txtStatus.Text = "检查修改所有的上标格式" L;gO;vO  
     M02uO`Y9  
        CheckSuperScript {o5V7*P;_  
         4h@Z/G!T3
 
    End If h
\plQ[T  
     P\8@g U!uk  
    If Me.chkStyle.Value Then o7mZzzP  
        Me.txtStatus.Text = "设置样式，请稍候...." j4?@(u9;j  
        DoEvents SH*C
"  
        CeateOrModifyStyle u` oq(?|  
    End If \V9Z#>  
     $0bjKy  
     ^w]/  
     W_m"ySQs  
    ClearDomain <%xS{!'}  
         T\Uek-(  
     uwRr LF  
     )jq?lw'&  
    If Me.chkLIST.Value Then <0yE 5Mrf  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" %6AW7q t  
     ~/mwx8~  
        ConvertListToOrdinary f;/QJ  
    End If u6`=x$&  
     [M.f-x:  
     GN KF&M  
    Dim pType As String, trimpTEXT As String  K;LZ-  
    If Me.chkNum.Value = True Then e[sK@jX6  
        Me.txtStatus.Text = "转换全角数字形式为半角" 2H.654  
        ConvertWidth "１", "1" 66^ycZCH  
        DoEvents v9Xp97J2  
        ConvertWidth "２", "2" UzXE_S  
        DoEvents GUF" <k  
        ConvertWidth "３", "3" 2X:4CC%5  
        DoEvents z4&iK)x  
        ConvertWidth "４", "4" XU+<?%u}z  
        DoEvents _qbIh  
        ConvertWidth "５", "5" !LkWzn3  
        DoEvents Hm+ODv9  
        ConvertWidth "６", "6" nW;g2
8  
        DoEvents dw.F5?j`b  
        ConvertWidth "７", "7" p>_;^&>&  
        DoEvents sp@E8G%xO  
        ConvertWidth "８", "8" V([~r,  
        DoEvents gM [w1^lj  
        ConvertWidth "９", "9" Vi4~`;|&b+  
        DoEvents gN)c  
        ConvertWidth "０", "0" ?"z]A7<Hj  
        DoEvents P2nft2/eu?  
        ConvertWidth "ａ", "a" =6aS&B(SN  
        DoEvents :>p8zG  
        ConvertWidth "ｂ", "b" }I@L}f5N  
        DoEvents mhW-J6u*  
        ConvertWidth "ｃ", "c" "V&+7" Q  
        DoEvents "t^URp3  
        ConvertWidth "ｄ", "d" qlA7tU2p&  
        DoEvents 0IQ'3_  
        ConvertWidth "ｅ", "e" 0afei4i~N  
        DoEvents J9K3s_SN  
        ConvertWidth "ｆ", "f" ^$&k5e/}C  
        DoEvents AfG/JWSo}  
        ConvertWidth "ｇ", "g" oI^4pwnh  
        DoEvents ^z,_+},a3T  
        ConvertWidth "ｈ", "h" =]-j;#'&  
        DoEvents *^([ ~[  
        ConvertWidth "ｉ", "i" BTM), w2  
        DoEvents nFe%vu8a  
        ConvertWidth "ｊ", "j" )K'N(w  
        DoEvents 6U^\{<h_c  
        ConvertWidth "ｋ", "k" >J|]moSVA  
        DoEvents ^ wY[3"{  
        ConvertWidth "ｌ", "l" k</%YKk  
        DoEvents [:^-m8QC  
        ConvertWidth "ｍ", "m" wvrrMGU)a  
        DoEvents 0rGSH*(  
        ConvertWidth "ｎ", "n" a>mm+L8y  
        ConvertWidth "ｏ", "o"
9CCkqB/  
        ConvertWidth "ｐ", "p" S(\9T1DVe  
        ConvertWidth "ｑ", "q" ~rjTF!  
        ConvertWidth "ｒ", "r" CgzD$`~  
        ConvertWidth "ｓ", "s" ?<6CFH]  
        ConvertWidth "ｔ", "t" ~+Z{Q25R  
        ConvertWidth "ｕ", "u" c1%H4j4/  
        ConvertWidth "ｖ", "v" S1/`th  
        ConvertWidth "ｗ", "w" 0\2\*I}?  
        ConvertWidth "ｘ", "x" OgF+OS  
        ConvertWidth "ｙ", "y" ;<0LXYL;  
        ConvertWidth "ｚ", "z" Ela-,(Glk  
        ConvertWidth "Ａ", "A" H3Se={5h\A  
        ConvertWidth "Ｂ", "B" z<.?x%4O  
        ConvertWidth "Ｃ", "C" ?|:BuHkT  
        ConvertWidth "Ｄ", "D" V7TVt,-3  
        ConvertWidth "Ｅ", "E" O5H9Y}i]  
        ConvertWidth "Ｆ", "F" LN_xq&.  
        ConvertWidth "Ｇ", "G" tgjr&G}a@0  
        ConvertWidth "Ｈ", "H" d|
T!v  
        ConvertWidth "Ｉ", "I" F @Te@n  
        ConvertWidth "Ｊ", "J" RxMH!^  
        ConvertWidth "Ｋ", "K" "zIFxDR#  
        ConvertWidth "Ｌ", "L" 31EyDU,W  
        ConvertWidth "Ｍ", "M" [o*7F
EM|<  
        ConvertWidth "Ｎ", "N" v\`9;
QV5  
        ConvertWidth "Ｏ", "O" K-&V,MI  
        ConvertWidth "Ｐ", "P" y>*xVK{D  
        ConvertWidth "Ｑ", "Q" `bc;]@"  
        ConvertWidth "Ｒ", "R" `# sTmC)  
        ConvertWidth "Ｓ", "S" _0gKK2  
        ConvertWidth "Ｔ", "T" zD3mX<sw  
        ConvertWidth "Ｕ", "U" EC|
'
l  
        ConvertWidth "Ｖ", "V" M)sZ
SH.<O  
        ConvertWidth "Ｗ", "W" F#|:`$t  
        ConvertWidth "Ｘ", "X" D1nq2GwS  
        ConvertWidth "Ｙ", "Y" Q:ezifQ  
        ConvertWidth "Ｚ", "Z" XJ2^MF2BU  
        ConvertWidth "^l", "^p" w&xDOyW]  
        ConvertWidth "（", "(" V21njRS  
        ConvertWidth "）", ")" V5U?F6  
     m^x6>9,  
    End If H5D*|42  
3_q3Bk  
    With ActiveDocument ?8W("W  
        Dim tbl As Table
vP+@z-O  
        For Each tbl In .Tables O LI$1d_  
            tbl.Rows.Alignment = wdAlignRowCenter @y31NH(  
            tbl.Range.Font.NameFarEast = "楷体" /x{s5P3  
            tbl.Range.Font.NameAscii = "Times New Roman" Tr^nkD{  
            tbl.Range.Font.Size = 10.5 ZylJp
8U  
        Next w1UA?+43  
        Set tbl = Nothing 4e;QiTj  
    End With +nQw?'9Z  
     R0oKbs{  
     L.]$6Q0  
    With ActiveDocument !45.puL0
 
         $<ld3[l i  
        For i = 1 To .TablesOfContents.Count o!Rd ^  
            .TablesOfContents(i).Delete w
u"&|dt  
        Next h[Gg}N!  
         Gn;@{
x6  
         *Sh^J+j  
         *!^<m0  
        paraTotal = .Paragraphs.Count r=c<--_@  
        paraCounter = 1 OM{WI27  
         =!m}xdTP  
        LastTitle0No = 0 #M A4  
        LastTitle1No = 0 97)/"i e  
        LastTitle2No = 0 fABe  
        LastTitle3No = 0 A{B/lX)  
        LastTitle4No = 0 P]z[v)}  
        LastTableNo = 0 ':R,53tjl  
        LastFigureNo = 0 U\rh[0  
         d6i6hcQE  
        Dim Sec As Long #lU9yv  
         Y'e eA 2O  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) |pa$*/!NT  
        If Sec = 0 Then C;(t/zh  
            Exit Sub  ["}rk  
        End If Et_V,s<|  
         "`asFg  
        k = 0 r\;ut4wy  
        Do While (paraCounter < paraTotal) And bContinue k<+0o))  
            k = k + 1 W5#611  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then _w*}\~`=^  
                Exit Do +{]xtQB=,{  
            End If (@WA1oNG  
            paraCounter = paraCounter + 1 Hi]cxD*`  
            If k Mod 20 = 0 Then Q]o C47(  
                Me.lbCounter.Caption = paraCounter t20PP4FWM  
                DoEvents 67y Tvr@a  
            End If ZIdA\_c  
        Loop CkswJ:z)sc  
         d,$d~alY  
         Xv@SxS-5l  
        Do While (paraCounter < paraTotal) And bContinue 1n\ t+F  
             UJs$q\#RO  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) wb Iq&>p  
            ShapeHeight = 0 xJ2 *LM -  
            ShapeWidth = 0 h~wi6^{&Y  
           {)AMwq  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth R>`}e+-D  
             e$Y[Z{T5  
            Select Case ParaType Y?534l)j  
                Case "【】表格内容" S>.F_Jl  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" F]O$(7*  
                Case "章" ^T~gEv  
                    LastTitle0No = LastTitle0No + 1 f3|@|'  ;  
                    '新一章开始，复位其下属标题编号 ~zHg[X*  
                    LastTitle1No = 0 1wW)tNKIF  
                    LastTitle2No = 0 upvS|KUil  
                    LastTitle3No = 0 -+t]15  
                    LastTitle4No = 0 -7!&@wuQ  
                     vy,&N^P  
                    k = Val(ttNo) sdCvG R e  
                    If k = 0 Then '非数字编号章节 P=1I<Pew  
                        If ttNo <> NoSeries1(LastTitle0No) Then Q?AmOo-a  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString z6py"J@  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText }KhjlPhx  
                        End If 7Ol}EPf#  
                    Else N N|u_  
                        If Val(ttNo) <> LastTitle0No Then n[YEOkiG  
                            rText = "第" & LastTitle0No & ttString [yj).*0  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText q$G,KRy/  
                        End If ^*~;k|; &  
                         ~8aJ S,u  
                    End If Ej7 /X ~  
                     eiJ2NwR\w  
                    '章段落设置 $Ci0I+5w  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 WL+]4Wiz  
                    .Paragraphs(paraCounter).Style = "QLNU章节" fIGFH
Zy,  
                    .Paragraphs(paraCounter).Range.Select RI2f`p8k  
                    Selection.EndKey unit:=wdLine XlI!{qj|  
                    tc = Replace(rText, vbCr, "") ?|e'Gbb_  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False Dup;e&9g  
                Case "一级标题" g,:j/vR  
                    LastTitle1No = LastTitle1No + 1 mZIoaF>t  
                    '新一级标题开始，复位其下属标题编号 s_.]4bl.8  
                    LastTitle2No = 0 6oSQQhge  
                    LastTitle3No = 0 lcV<MDS  
                    LastTitle4No = 0 JY!l!xH(6  
                     |y20Hi':  
                    If ttNo <> NoSeries1(LastTitle1No) Then wv^rS^~  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString w:'dhr':  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText +\Q?w?DE|  
                    End If Q%aU42?_1  
                   *Ei|fe$sa  
                     E+C5 h ;p&  
                    '一级标题段落设置  格式：一、标题内容 &_5tqh  
                    .Paragraphs(paraCounter).Range.Text = rText RllY-JBO  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" (z$r:p  
                    .Paragraphs(paraCounter).Range.Select U}SXJH&&E  
                    Selection.EndKey unit:=wdLine !EQ@#qW/  
                    tc = Replace(rText, vbCr, "")  Xtq{%  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False 6n1rL  
                Case "二级标题" #"fJa:IYG7  
                    LastTitle2No = LastTitle2No + 1 fJZp?e"  
                    '新二级标题开始，复位其下属标题编号 c"!lwm3b  
                    LastTitle3No = 0 >u%]6_[  
                    LastTitle4No = 0 q2:K4  
                     d*pF>j  
                    If ttNo <> NoSeries1(LastTitle2No) Then 1y^K/.5-  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString F_uY{bg  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText 9z?oB&5  
                    End If ; v  
                     Jx#k,Z4  
                    '二级标题段落设置 格式：(一)、标题内容 j]0^y}5f+s  
                    .Paragraphs(paraCounter).Range.Text = rText :R):b  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" P'MY[&|mM'  
                     !6&W,0<  
                    .Paragraphs(paraCounter).Range.Select !se0F.K  
                    Selection.EndKey unit:=wdLine V0nn4dVO  
                    tc = Replace(rText, vbCr, "") *Ywpz^2?:  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False 2FD=lR?6  
                 H&b3{yOa  
                Case "三级标题" 4(l?uU$  
                    LastTitle3No = LastTitle3No + 1 kj5Q\
vr)  
                    '新三级标题开始，复位其下属标题编号 Nx#4W1B[`H  
                    LastTitle4No = 0 CXtU"X  
                     .k4W_9  
                    If Val(ttNo) <> LastTitle3No Then ~7!7\i,Y8\  
                            rText = LastTitle3No & ". " & ttString |+ge8uu?C  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText !QmzrX}h  
                         _ .i3,-l)  
                    End If 97!>%d[0  
                    '三级标题段落设置 格式：1. 标题内容 y$hp@m'@C  
                    .Paragraphs(paraCounter).Range.Text = rText xyr+_k-x&q  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" x]5@>5  
                    .Paragraphs(paraCounter).Range.Select p1c3Q$>i  
                    Selection.EndKey unit:=wdLine QCPID:  
                    tc = Replace(rText, vbCr, "") 1xf=_F0`&  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False P\CDd=yWc  
                Case "四级标题" A$g+K,.l  
                    LastTitle4No = LastTitle4No + 1 9 t@:4O  
                     x( mE<UQN  
                    If Val(ttNo) <> LastTitle4No Then *=Z26  
                            rText = "(" & LastTitle4No & "). " & ttString ^% Q|s#w.  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText :T3/yd62N  
                     pS4&w8s  
                    End If g/=K.  
                    '四级标题段落设置 格式：(1). 标题内容 (yo;NKq,@  
                    .Paragraphs(paraCounter).Range.Text = rText G= ^X1+_  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" 2fIRlrA$  
                    .Paragraphs(paraCounter).Range.Select -oz`"&%  
                    Selection.EndKey unit:=wdLine 7n zGAz_W  
                    tc = Replace(rText, vbCr, "") /9yaW7w  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False %=j3jj[  
                 ,D6v4<jh  
                Case "表格标题" _B2V "p  
                    LastTableNo = LastTableNo + 1 {J/I-=CmML  
                     \bCX=E-  
                    If ttNo <> CStr(LastTableNo) Then 6{d6s#|%  
                            rText = "表" & LastTableNo & ". " & ttString T2?HRx  
                            ErrMsg.AddItem "表格编号错误：" & ParaText 1r r@  
                   ~#\i!I;RY}  
                    End If 4(?G6y)  
                     =G~~?>=@2  
                    '表格名称段落设置 格式：表1. 表格名称 52zGJ I*  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" b=a!j=-D  
                    xe = Replace(rText, vbCr, "") weMww,:^[  
                    .Paragraphs(paraCounter).Range.Select t<:D@J]a  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 Vv$HR  
                    Selection.Range.Text = xe zBf-8]"^  
                    Selection.EndKey 04!(okubyp  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False pO<-.,  
                 q^rl)  
                Case "表格首行" y'ja< 1I>  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" mxS KG> O  
                Case "图片标题" }2)DPP:ic  
                    LastFigureNo = LastFigureNo + 1 o-7>eE}+  
                     $3=:E36K  
                    If ttNo <> CStr(LastFigureNo) Then Q4s&E\}  
                            rText = "图" & LastFigureNo & ". " & ttString iNC X:Y  
                            ErrMsg.AddItem "表格编号错误：" & ParaText "%8A:^1  
                   f]~c)P Cs  
                    End If nD"~?*Lt  
                    '图片名称段落设置 格式：图1. 图名称 Hg}I]!B  
                    .Paragraphs(paraCounter).Range.Text = rText 64Gi8|P  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" Ja]oGT=e  
                    .Paragraphs(paraCounter).Range.Select z41_oG7  
                    Selection.EndKey unit:=wdLine l^NC]t  
                    xe = Replace(rText, vbCr, "") U3vEdw<lV  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False O\;=V`z-  
                Case "正文" Ra Sz>-3d  
                     '正文名称段落设置 ~#:e*:ro  
                    .Paragraphs(paraCounter).Style = "QLNU正文" M ixwK,  
               Case "文献条目" 151tXSzLT  
                    With .Paragraphs(paraCounter) 7dh1W@\  
                        '.Range.Select ZA#y)z8!E  
                        'Selection.ClearFormatting f7}"lG]q  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” 2=PBxDs;  
                        .Style = "QLNU参考文献" SN+S6  
                    End With :&'{mJW*{t  
               Case "图表注解" RK9>dk
W  
                    With .Paragraphs(paraCounter) FqA3{  
                        .Range.Font.NameFarEast = "楷体" !rxp?V n -  
                        .Range.Font.NameAscii = "Times New Roman" Mu_i$j$vvP  
                        .Range.Font.Size = 9 '小5号字 ;)DzCc/  
                         47 u@4"M  
                        .Alignment = wdAlignParagraphCenter p@
&R0>6j  
                        .LeftIndent = 0 BX;5wKfA  
                        .RightIndent = 0 P2n2Qt2  
                        .FirstLineIndent = 0 t0PQ~|H<KV  
                        .LineSpacing = 12 BH0!6Oq  
                        .LineSpacingRule = wdLineSpaceExactly |c-LSs'\  
                        .LineUnitAfter = 0 bm&87  
                        .LineUnitBefore = 0 V'Y
{v  
                        .OutlineLevel = wdOutlineLevelBodyText D1,O:+[;.  
                        .PageBreakBefore = False c)C5KaiPG  
                        .RightIndent = 0 KiLvI,9y  
                        .WordWrap = True ApPy]IdwX  
                        .LineUnitAfter = 0.5 \9)[#Ld  
                          *2u E  
                    End With 'Tb0-1S?  
                Case Else d&:H&o)T !  
                    '不作处理 zW{ 6Eg  
            End Select Tc ZnmN  
             nN`"z3o  
            '含有inlineshape的段落处理 }wt%1v-10U  
            If ShapeHeight > 30 Then !jS4!2'  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 dGH_ z8  
            End If dhRJg"vrQ  
             r -
f  
            If (ShapeWidth + ShapeHeight) > 150 Then P`s(kIe  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" X7aXxPCq1  
            End If FyD.>ot7M  
             G2mNm'0  
            '段落计数器递 h\,5/ )Y  
            paraCounter = paraCounter + 1 HOYq?40.R  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter MQcE6)  
            Me.txtStatus.Text = ParaText j.-VJo)   
            DoEvents mp`PE=  
        Loop 0yof u  
    End With zCXqBuvu1  
     D#sf i,O  
    msg = "" ]S8LY.Az5  
     D M7}&~  
    For i = 0 To Me.ErrMsg.ListCount - 1 !"4w&bQ  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) G=M]
8+h  
    Next &jts:^N>  
     $CtCOwKZ  
     %u]6KrG18b  
     _=`x])mM  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg si/er"&o  
    Me.cmdCheck.Enabled = True RJJ1  
    Me.txtStatus.Visible = True rb_Z5T  
    Me.lbParaType.Visible = False z<C[nR$N  
     KS!y T_O  
    bContinue = False >.dHt\  
End Sub =xEk7'W6k  
;?9A(q_Z  
Sub CheckPara(ByRef ChKRange As Range, ParaType As String, ReplaceTEXT As String, TitleString As String, TitleNo As String, shpCounter As Long, MaxShpHeight As Long, TotalShpWidth As Long) ='/Z;3jt]x  
    Dim pTEXT As String H$!-f>Rxa  
     G_oX5:J*  
    pTEXT = ChKRange.Text +!&$SNLh(  
     FuP}Kec  
    ParaType = "其它" q G;-o)h  
    TitleString = pTEXT y~#\#w{  
    TitleNo = "N/A" *d*oS7  
     ^/KfH&E  
    shpCounter = ChKRange.InlineShapes.Count M|CrBJv+F  
    If shpCounter <> 0 Then 5 Rz/Ri\c=  
        MaxShpHeight = 0: TotalShpWidth = 0 `ENP=kL(+  
        For i = 1 To shpCounter =mrY/: V  
            k = ChKRange.InlineShapes(i).Height P!+v:'P5f  
            l = ChKRange.InlineShapes(i).Width QJ4AL3 ^6
 
            If k > MaxShpHeight Then UC9{m252  
                MaxShpHeight = k ^E@@YV  
            End If cIw eBDl  
            TotalShpWidth = TotalShpWidth + l p?myuNd[  
        Next `!c,y~r[  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then X7cWgo66T  
            Exit Sub ]UUI~sFE  
        End If 9G:TW|)L[Q  
    End If A|vP$zy  
     OCx5/ 88X  
    '空行 Md9l+[@  
    If Len(pTEXT) <= 2 Then ;e;\q;GP  
        Exit Sub 9={N4}<  
    End If hYvNcOSks  
     OAok  
         cb+y9wA  
    '是否为表格中的文字 g5R,% 6  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then Z*bC#s?  
        ParaType = "表格内容" 7~.ZE   
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) A o
3
HX  
        If k = 1 Then IhW7^(p\  
            ParaType = "表格首行" EODB`$+  
        End If N_vXYaY  
        Exit Sub vj3isI4lU  
    End If ce5nG0@#  
     _'JRo%{xGX  
    '例外情况：脚注 1)U}i ^  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then &tBA^igXK  
        ParaType = "脚注" }K8Lm-.=  
        Exit Sub _om[VKJd  
    End If $Xt;A&l2?  
     {'IFWD.5  
    '例外情况：尾注 nUqy1(  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then ,+-?Zv 2  
        ParaType = "尾注" x}"Q8kD  
        Exit Sub X(GV6mJ4  
    End If *( *z|2  
     xYT}
>#[  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then :HZ;Po   
        ParaType = "页眉页脚" <Zr FOb  
        Exit Sub "|4jPza  
    End If i| xt f  
     [_%,6e+  
     PRpE$`WK  
    With regEX vvh.@f  
        .Global = True IxP^i{/1?  
         qz:]-A  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" 2Guvze_bU  
        If regEX.Test(pTEXT) Then =h\E<dw  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") "-U3
=+  
            TitleString = regEX.Replace(pTEXT, "$3") uu3M{*}  
            TitleNo = regEX.Replace(pTEXT, "$1")
iBHw[X,b  
            ParaType = "章" I<`V_
 
            Exit Sub jaqV[*440U  
        End If ,Oi^ySn  
         nO_!:6o".  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" 4$i}Xk#3  
        If regEX.Test(pTEXT) Then {bTeAfbf]  
            ParaType = "一级标题" 56ZrC
r  
            regEX.Execute (pTEXT) 9r8D*PvS  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") !Zj#
.6c9  
            TitleString = regEX.Replace(pTEXT, "$3") 1 ;Ju
]  
            TitleNo = regEX.Replace(pTEXT, "$1") <3Fz>}V32  
            Exit Sub Qu}N:P9l?X  
        End If L1MrrC  
         e`ex]py<C  
        '全角或半角括号中的数字 HXP;0B%4  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" "UpOY  
        If regEX.Test(pTEXT) Then ;.0LRWcJ  
            ParaType = "二级标题" hZ o5p&b  
            regEX.Execute (pTEXT) b]K>vhQV  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") (fd[P|G_]  
            TitleString = regEX.Replace(pTEXT, "$5") P C
sK()  
            TitleNo = regEX.Replace(pTEXT, "$2") thV Tdz  
            Exit Sub VKf6|a
e  
        End If N?^_=KE@  
         86{ZFtv  
        '阿拉伯数字  1. 2. ;Xh5oB\)W  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" WgZ@N  
        If regEX.Test(pTEXT) Then _FFv#R*4  
            ParaType = "三级标题" f M9xy \.  
            regEX.Execute (pTEXT) AY@k-4  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 _Y7:!-n}  
            TitleString = regEX.Replace(pTEXT, "$3") r]-+bR
  
            TitleNo = regEX.Replace(pTEXT, "$1") S~|tfJpL  
            Exit Sub 82.HH5Z{  
        End If vrO
%XvXW  
         [)iN)$Mv  
        '全角或半角括号中的阿拉伯数字 C M^r|4K  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" @SQceQfB  
        If regEX.Test(pTEXT) Then +{0=<2(EC  
            ParaType = "四级标题" h&$
Py  
            regEX.Execute (pTEXT) Fv a] *5  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") s[Gswd  
            TitleString = regEX.Replace(pTEXT, "$5") _Ff
".t<"  
            TitleNo = regEX.Replace(pTEXT, "$2") HSql)iT  
            Exit Sub R25-/6_V>  
        End If z"3H{A  
         /1N)d?Pcl  
        '表格名称 :3gFHBFDj  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" e#m1 X6$.e  
        If regEX.Test(pTEXT) Then U2=hSzY  
            ParaType = "表格标题" xZg7Jg  
            regEX.Execute (pTEXT) i]@c.QiFN  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) @|'Z@>!/pV  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) `r9^:
TMN  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) n531rkK-   
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 .> ,Z kS  
            Exit Sub ^@N`e1  
        End If
d1lH[r!Z  
         2+Vp'5>&  
        '图片名称 U5clQiow  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" DZ%8 |PmB  
        If regEX.Test(pTEXT) Then ,L~snR'w  
            ParaType = "图片标题" dL(4
mR8  
            regEX.Execute (pTEXT) X$PS(_M  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") sOC| B  
            TitleString = regEX.Replace(pTEXT, "$3") th90O|;  
            TitleNo = regEX.Replace(pTEXT, "$1") hvL6zCi  
            Exit Sub Y}ky/?q  
        End If VHj*aBHB  
         $4:~*IQ  
        '参考文献 xT/9kM&}L  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 G-sa L*  
        If regEX.Test(pTEXT) Then 65t[vi*C  
            ParaType = "文献条目" m9k2h
1  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") g.=!3e&z%  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") >["Kd.ye  
            Exit Sub Lm.Ik
}Gli  
        End If @NBXyC8,Z  
         <@%ma2  
        prfx = Left(pTEXT, 2) W -3w7^  
        If prfx = "注：" Or prfx = "注:" Then :
g/{(#E@Z  
            ParaType = "图表注解" zM)M_L  
            Exit Sub }Uq/kei^ P  
        End If Yr:>icz|  
         TiTYs  
         78gob&p?  
        ParaType = "正文" .GtINh
z*  
         BHIM'24bp  
    End With <%(f9j  
End Sub HK ?Foo?  
7V |"~%  
Sub ConvertListToOrdinary() 7~L|;^(  
    Dim st As Paragraph sbpu qOL  
    With ActiveDocument =$[W,+X6f  
        For i = .Paragraphs.Count To 1 Step -1 sgR 9d  
            Set st = .Paragraphs(i) oX2r?.j#M  
            lst = st.Range.ListFormat.ListString VgUvD1v?}  
            If lst <> "" Then pM,#wYL  
                st.Range.ListFormat.RemoveNumbers y. %i  
                st.Range.InsertBefore lst & " " ayN*fiV]  
            End If Wl?<c uw00  
        Next
l; */M.B  
    End With % ghJ*iHR  
    Set st = Nothing EyzY2>"^  
End Sub 9.jG\i  
A03I-^0g+  
Private Sub UserForm_Activate() 2Sv>C `FMU  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" cFe V?a  
    Me.lbTotal.Font.Bold = True ;\1b{-' l  
    Me.txtStatus.Visible = False qP@L(_=g  
    Me.cmdCheck.Enabled = True +I?Qg  
QK,=5~IJ  
End Sub  -\5[Nq{N  
t<8z08  
i^~sn `o  
Sub CheckSuperScript() ))$ CEh"X  
    Selection.Find.ClearFormatting =:kiSrBS3t  
    Selection.Find.Replacement.ClearFormatting _%XbxP6rH  
    With Selection.Find n2H&t>N  
        .Text = "[【\[［〖](*)[】\]〗］]" ,Z >JvTnH  
        .Replacement.Text = "[\1]" ;Kt'S it  
        .Replacement.Font.Superscript = True [+yG DMLs  
        '.Replacement.Font.Color = wdColorBlue uTxX`vH@!  
        .Forward = True T$f:[ye]Z  
        .Wrap = wdFindContinue D~XU`;~u  
        .FORMAT = True IwOfZuS
 
        .MatchCase = False 9j9YQ2  
        .MatchWholeWord = False |YJ$c@  
        .MatchByte = False 3@%BA(
M  
        .MatchAllWordForms = False e3G7K8  
        .MatchSoundsLike = False "Fo  
        .MatchWildcards = True 8U8P g2  
    End With uT #Acg  
    Selection.Find.Execute Replace:=wdReplaceAll @<0h"i x  
End Sub g6HphRJ5s  
0oXK&Z  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)  `NTM%# w  
    bContinue = False ~>lOl/n5  
    Set regEX = Nothing x4/T?4k  
End Sub "Wxo[I  
`e4o1*  
Sub CeateOrModifyStyle() 7 cy+
Nz  
' +0
pgq (  
' wA{*W>i  
Dim stl As Style @263)` 9G  
     ?=TL2"L  
    Options.Pagination = False D< lQoO+  
     jo]m12ps  
    On Error Resume Next
xq8}6Q  
    For Each stl In ActiveDocument.Styles Zjw
!In|vC  
        stl.Delete \z&03@Sw  
    Next j0Id!o  
    On Error GoTo 0 > B@i E  
     < .y;&a o  
    Set stl = Nothing  >cC Gx  
     `8
.1&fBr  
    DoEvents ]:[)KZ~  
    On Error Resume Next c8H9_6  
     SjFF=ib  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph 7g{g}  
     )*"T  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph -9hp+0 <  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph gNG0k$nP  
     IS3e|o*]MP  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph };4pZceV  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph R?1i
dl)  
     kq-mr  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph d<e+__2  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph g/fp45s  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph Cb4d|yiS8  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph 9[6G8;<D&  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph i7Y s_8A"9  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph @&/s~3  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph f$~ _FX  
     f>.`xC{  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph %g2/o^c*  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph 7Y$4MMNQ  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph "it`X B.  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph 6:e}v'q{  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph ZJiuj!  
     ){?mKB5  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph V,99N'o~x  
    On Error GoTo 0 ;P0,60  
    DoEvents ~R
x~g  
     LG"BfYy6  
    'BaseStyle #RCZA4>  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False >eYU$/80  
    With ActiveDocument.Styles("BaseStyle").Font ~xsb5M5  
        .NameFarEast = "宋体" 7-g]A2N  
        .NameAscii = "Times New Roman" Uqb
]e?@  
        .NameOther = "宋体" &<\4q  
        .Size = 10.5 t?pIE cl  
        .Bold = wdUndefined U}mL,kj "  
        .Italic = wdUndefined 5WrIg(l  
        .Subscript = wdUndefined (CKhY~,/u  
        .Subscript = wdUndefined OqAh4qa,$  
         @S/g,;7"  
        .Underline = wdUnderlineNone n23%[#,r  
        .UnderlineColor = wdColorAutomatic @]?? +f}#  
        .StrikeThrough = False bW,BhUb,|  
        .DoubleStrikeThrough = False xkk@{}J\  
         +H2m<   
        .Outline = False cKvAR5|  
        .Emboss = False 7UeE(=Hr5  
        .Shadow = False r&H=i  
        .Hidden = False IG2`9rR  
        .SmallCaps = False 60
Xl.  
        .AllCaps = False "t 3uW6&  
        .Color = wdColorAutomatic :pL1F)-*  
        .Engrave = False OX #eLco  
        .Scaling = 100 y@2vY[)3s  
        .Kerning = 1 ,)B~ci
c'u  
        .Animation = wdAnimationNone .b!OZ  
        .DisableCharacterSpaceGrid = False =!I8vQ>  
        .EmphasisMark = wdEmphasisMarkNone YD0vfwh  
    End With (Von;U  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat gNMKGf\Y  
        .LeftIndent = 0 llTQ\7zP  
        .RightIndent = 0 Zi2Eu4p l{  
        .SpaceBefore = 0 '7R R2f>V  
        .SpaceBeforeAuto = False MbT ONt?~v  
        .SpaceAfter = 0 Zpn*XG  
        .SpaceAfterAuto = False Mo:!jS~a(Z  
         ntA[[OIFO  
        .LineSpacingRule = wdLineSpaceSingle L@d]RMNv  
        .Alignment = wdAlignParagraphJustify yH0yO*RZ  
         MX4 :e>dtd  
        .WidowControl = False CWobvR)e  
        .KeepWithNext = False K#m\qitb  
        .KeepTogether = False /h}wM6pg  
        .PageBreakBefore = False n',9#I(!L  
        .NoLineNumber = False 5p#o1I
 
         T2/v}  
        .FirstLineIndent = CentimetersToPoints(0) T_5*iwI  
        .OutlineLevel = wdOutlineLevelBodyText : pE-{3I  
        .CharacterUnitLeftIndent = 0 ue^?/{OuT  
        .CharacterUnitRightIndent = 0 {y+v-v/#  
        .CharacterUnitFirstLineIndent = 0 |g: '')>[  
        .LineUnitBefore = 0 ~:ub  
        .LineUnitAfter = 0 (Fjs N5  
        .AutoAdjustRightIndent = True &k%wOz1vM  
        .DisableLineHeightGrid = True [FeJ8P>z  
         
pUCEYR  
        .FarEastLineBreakControl = True 8S[<[CH  
        .WordWrap = True Q+y-*1   
        .Hyphenation = False p3,(*eZ  
         MI k #60Ab  
        .HangingPunctuation = True e$p1Th*|]4  
        .HalfWidthPunctuationOnTopOfLine = True 6I5[^fv45G  
        .AddSpaceBetweenFarEastAndAlpha = True EDPI*@>  
        .AddSpaceBetweenFarEastAndDigit = True gnKU\>2k  
        .BaseLineAlignment = wdBaselineAlignBaseline }5fI*v  
    End With W_e-7=6  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False ^>vO5Ho.  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll On2Vf*G@|  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese &\WkJ}&PnA  
    ActiveDocument.Styles("BaseStyle").NoProofing = False wt_?B_n
R  
     P@! Q1pr  
    '一级标题题样式 dcrJ,>i}  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") pDq^W@Rq  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" 3Aqe;Wf9%+  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False k`iq<b  
    With ActiveDocument.Styles("QLNU一级标题").Font ~,M;+T}[r  
        .NameFarEast = "黑体" ino7!T`  
        .NameAscii = "Arial Black" b6?Xo/lJ .  
        .NameOther = "黑体" dH2j*G Ij  
        .Name = "黑体" z</XnN  
        .Size = 16              '三号 `0n 7Cyed  
        .Bold = True g#9*bF  
        .Italic = wdUndefined {$u@6& B  
        .Subscript = wdUndefined mTb2d?NS  
        .Superscript = wdUndefined E:dT_ x<Y  
    End With @'NaA SB  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat .H[ Lo>  
         .LGkr@P  
        .LeftIndent = CentimetersToPoints(0) $fj"*   
        .RightIndent = CentimetersToPoints(0) lhIr]'?l  
        .FirstLineIndent = CentimetersToPoints(0) }{w_>!ee  
         e
5"-4udCn  
        .LineSpacingRule = wdLineSpaceSingle 6U,U[MWJ  
        .Alignment = wdAlignParagraphCenter Js^r]=\F'  
         :`Zl\!]E`o  
        .WidowControl = True ~3*ZG  
        .KeepWithNext = True F_M~!]<na  
        .KeepTogether = True v0H>iKh7  
        .OutlineLevel = wdOutlineLevelBodyText /FNj|7s  
         l+3%%TV@L  
        .LineUnitBefore = 0.5 (`uC"MLk  
        .LineUnitAfter = 0.5 ;|2;kvf"w  
    End With U(Hq4D  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False n_!]B_Vd$  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll )n3biQL_  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese VW<"c 5|  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True 4<eJ  
    DoEvents dTU.XgX)1^  
     Y+PvL|`O  
    '二级 Fm[?@Z&wP  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") j.yr5%  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" 46.q anh  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False 644hQW&W  
    With ActiveDocument.Styles("QLNU二级标题").Font {ZBb.$}RC  
        .NameFarEast = "黑体" no\}aTx  
        .NameAscii = "Arial Narrow" [&]YVn>kj  
        .NameOther = "黑体" +2k|
g2  
        .Name = "黑体" !!D:V`F/d  
        .Size = 15        '小三号 40l#'< y;  
        .Bold = False m;tY(kO  
        .Outline = False ^JF_;~C  
        .Italic = wdUndefined Ik@Q@ T"  
        .Subscript = wdUndefined Ig?.*j ]  
        .Superscript = wdUndefined *{D:1S
  
    End With S#%JSQo
:  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat =-1^K  
        .LeftIndent = CentimetersToPoints(0) +_|cZlQ&  
        .RightIndent = CentimetersToPoints(0) 7]HIE]#  
        .FirstLineIndent = CentimetersToPoints(0) u_/OTy  
         'k(~XA}X:  
        .LineSpacingRule = wdLineSpaceSingle ~:RDw<PWp  
        .Alignment = wdAlignParagraphLeft );/5#b@<Y  
         o`y*yucHI  
        .WidowControl = True oRJP5Y5na  
        .KeepWithNext = True ~M9n<kmE  
        .KeepTogether = True 83 ^,'Z
 
        .PageBreakBefore = False 5)SZd)  
        .OutlineLevel = wdOutlineLevelBodyText N-?|]4e/  
         !\D]\|Bo  
        .LineUnitBefore = 0.5 w]+BBGYQKb  
        .LineUnitAfter = 0.5 @T~#Gwv  
         #*;fQ&p  
    End With GWkJ/EX  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False {dSU \':  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll {/|8g (  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese c_8mQ  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True fb=$<0Ocj  
    DoEvents %Cbc@=k  
     E*!zJ,@8  
    '三级标题样式 nL N6@  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 9|kE
q>d  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" ?D$b%G{  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False (=&bo p  
    With ActiveDocument.Styles("QLNU三级标题").Font |yl0}.()  
        .NameFarEast = "宋体"  n-| i  
        .NameAscii = "Times New Roman" li'1RKr  
        .NameOther = "黑体" /o06hy  
        .Name = "黑体" Zn*CJNB  
        .Size = 14               '四号 :Ro" 0/d  
        .Bold = False ?PxYS%D_L  
        .Outline = False wGQhr="  
        .Italic = wdUndefined cI4qgV  
        .Subscript = wdUndefined B6!<@*BI  
        .Superscript = wdUndefined `))J8j"  
    End With 
%[bO\,  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat 'r?HL;,q  
        .LeftIndent = CentimetersToPoints(0) c wD*>[j  
        .RightIndent = CentimetersToPoints(0) aBtfZDCfzp  
        .FirstLineIndent = CentimetersToPoints(0) Jv{"R!e"P  
         a518N*]j  
        .LineSpacingRule = wdLineSpaceSingle Xy8i e:D  
        .Alignment = wdAlignParagraphLeft O t4+VbB6  
         |9i/)LRXe  
        .WidowControl = True `\u), $  
        .KeepWithNext = True 3b[[2x_UU  
        .KeepTogether = True :M? ')  
        .PageBreakBefore = False 0 c'2rx  
        .OutlineLevel = wdOutlineLevelBodyText u{lDof>  
         ThqfZl=V  
        .CharacterUnitLeftIndent = 0 O |I:[S},  
        .CharacterUnitRightIndent = 0
Ai_|)   
        .CharacterUnitFirstLineIndent = 2 #/sE{jm  
         02c.;ka3  
        .LineUnitBefore = 0.5 A =Az[  
        .LineUnitAfter = 0 'hHX"\|RA  
    End With X|n[ 9h:%  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False 9oau_ Q#  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll !vo'8r?&  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese RO3e  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True ZtK%b+MBP  
    DoEvents g}og@UY7#  
     MUt^mu$86  
    '四级标题样式 eRqexqO!  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") "E[*rnsLN  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" L"vG:Mq@D  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False 6%hEs6-R  
    With ActiveDocument.Styles("QLNU四级标题").Font _( s|Q  
        .NameFarEast = "宋体" ' ^L  
        .NameAscii = "Times New Roman" lo;9sTUHT  
        .NameOther = "宋体" D30Z9_^%:  
        .Name = "宋体" YHv,Z|.w  
        .Size = 12               '小四号 Q_|S^hxQ  
        .Bold = True PNxO\Rc  
        .Outline = False 9C'+~<l  
        .Italic = wdUndefined xp;8p94   
        .Subscript = wdUndefined `&Of82*w  
        .Superscript = wdUndefined JP% ;rAoJ  
    End With `r0 qn'*  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat SVEA  
         RknSWuFKt  
        .LeftIndent = CentimetersToPoints(0) -bb7Y  
        .RightIndent = CentimetersToPoints(0) @_:?N(%(  
        .FirstLineIndent = CentimetersToPoints(0) WF.$gBH"  
         1B]wSvP@  
        .LineSpacingRule = wdLineSpaceSingle G;#t6bk  
        .Alignment = wdAlignParagraphLeft \]:NOmI^'  
         >U I ch  
        .WidowControl = True o6yZ@R  
        .KeepWithNext = True &#\7w85$  
        .KeepTogether = True hD.wKX?oO  
        .PageBreakBefore = False QR"O)lP  
        .OutlineLevel = wdOutlineLevelBodyText !rmo*-=^=  
         i@?<]n  
        .CharacterUnitLeftIndent = 0 8\t7}8f  
        .CharacterUnitRightIndent = 0 n)7$x
YuH  
        .CharacterUnitFirstLineIndent = 2 cw-JGqLx  
         yW,#&>]# |  
        .LineUnitBefore = 0 52R.L9Ai  
        .LineUnitAfter = 0 V`&*%xgGR  
         h] TVi$J  
    End With yT9RNo/w  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False 3:gO7Uv  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll bIl0 rx[`  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese ~ilBw:L-3  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True 7}7C0mV3  
    DoEvents hr"+0KeX  
     JRs[%w`kD  
    '正文校式 0+`*8G)  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") WD`{kq
c  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" zgO
wSg8  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False 7(iRz  
    With ActiveDocument.Styles("QLNU正文").Font ~5qZs"ks  
         iP\&fZY_  
        .NameFarEast = "宋体" I8wVvs;k  
        .NameAscii = "Times New Roman" "YU~QOGx@  
        .NameOther = "宋体" z{+;'9C  
        .Name = "宋体" FJH8O7  
         $<DA[ %pv  
        .Size = 12               '小四号 4U1fPyt  
         [*E.G~IS`  
        .Bold = wdUndefined  0 9'o  
        .Italic = wdUndefined fe`G^hV  
        .Subscript = wdUndefined pY5HW2TsY|  
        .Superscript = wdUndefined p" W0$t.  
         \B+SzW  
        .Outline = False `fh_8%m]*  
        .Emboss = False '"p*FN  
        .Shadow = False exU=!3Ji  
        .Hidden = False XQ y|t"Vq>  
         on&=%tCAL  
        .DisableCharacterSpaceGrid = True ,'DrFlI  
    End With ~g|0uO}.  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat `%:(IGxz  
         0s[3:bZ\Ia  
        .LeftIndent = CentimetersToPoints(0) ~a,'
 
        .RightIndent = CentimetersToPoints(0) P[K T  
        .FirstLineIndent = CentimetersToPoints(0) wDY7B  
         PS;*N8  
        .LineSpacingRule = wdLineSpaceExactly 4gt "dfy+  
        .LineSpacing = 20 jmVy4* P_  
        .Alignment = wdAlignParagraphLeft +W[#;)ea(  
         6HQwL\r79  
        .WidowControl = False &8L\FAY0%9  
        .KeepWithNext = False W%QtJB1)  
        .KeepTogether = False 9uoj3 Rh<  
        .PageBreakBefore = False D??/=`|8  
        .Hyphenation = False Gl:T   
         QRa6*AYm  
        .OutlineLevel = wdOutlineLevelBodyText 9 9BK/>R  
         #u(,#(P'#  
       l+qtA~V&2  
        .CharacterUnitLeftIndent = 0 JNCtsfd
 
        .CharacterUnitRightIndent = 0 [:'?}p  
        .CharacterUnitFirstLineIndent = 2 |VF"Cj
w?  
         zgTi Az  
        .LineUnitBefore = 0 ``CADiM:S  
        .LineUnitAfter = 0 RxG./GY  
        .SpaceBefore = 0 3`8xh9O  
        .SpaceAfter = 0 L uKm  
         Pt;Ahmi  
        .DisableLineHeightGrid = True tO;W?g  
    End With BkqW>[\5xm  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False _qNLy/AY  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll dR{ V,H7N  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese 70(?X/5#  
    ActiveDocument.Styles("QLNU正文").NoProofing = True Tz~ftf  
    DoEvents T<
GD! j(  
     I "?&X4%e  
    '图片段落样式 e!'u{>u  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") 4'|:SyOm  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" 5W-M8dc6  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False ;g9:0,xT4  
    With ActiveDocument.Styles("QLNU图片段落").Font bd;f@)X  
        .Size = 12               '小四号 {-qTU6  
        .Italic = wdUndefined \,t<{p
_Q  
        .Subscript = wdUndefined SXF_)1QO\W  
        .Superscript = wdUndefined kfECC&"  
    End With h(up1
(x  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat ,6pH *b$  
         JPKZU<:+V  
        .LeftIndent = CentimetersToPoints(0) 2 ZXF_ o  
        .RightIndent = CentimetersToPoints(0) P$(}}@  
        .FirstLineIndent = CentimetersToPoints(0) wajhFBJ  
         bUL9*{>G  
        .LineSpacingRule = wdLineSpaceSingle >:|q J$J.  
        .Alignment = wdAlignParagraphCenter jo
#F&  
        .KeepWithNext = True S*:w\nXP~  
        .OutlineLevel = wdOutlineLevelBodyText ^<+heX  
         zjE4v-H:l  
        .CharacterUnitLeftIndent = 0 |/Z)?  
        .CharacterUnitRightIndent = 0 TnAX;+u  
        .CharacterUnitFirstLineIndent = 0 nmrk-#._@9  
         fdHxrH>*  
        .LineUnitBefore = 0 H.K`#W&  
        .LineUnitAfter = 0 EOC"a}Cq-  
    End With 6%1o<{(%f  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False 3f8Z?[Bb@  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll IQv>{h}  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese uMZf9XUE  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True X.|0E87  
    DoEvents pSUp"wch  
     ;Nij*-U4~  
     FQl|<l6  
    '第X章 o|C{ s  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 4 tTJE<y  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" !7?wd^C'f  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False Okc*)crw  
    With ActiveDocument.Styles("QLNU章节标题").Font ;Bi{;>3  
        .NameFarEast = "黑体" G"wQ(6J@  
        .NameAscii = "Arial Black" mr.DP~O:9p  
        .NameOther = "Arial Black" E
+ 20->  
        .Name = "黑体" A[a+,TN{  
        .Size = 16 $Bb/GXn{\  
        .Bold = True X|G+N(`|(  
        .UnderlineColor = wdColorAutomatic Gjr2]t;E  
        .Outline = False 7^5BnF@  
        .Italic = wdUndefined yK3z3"1M?  
        .Subscript = wdUndefined Ba~Iy2\x  
        .Superscript = wdUndefined -C<aB750O)  
        .Scaling = 100 WQ`T'k#ESW  
        .DisableCharacterSpaceGrid = True GrC")Z|3u  
    End With ?yK\L-ad  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat xc?<:h"  
        .LineSpacingRule = wdLineSpaceSingle D3ad2vH  
        .Alignment = wdAlignParagraphCenter *h 6i9V%'  
        .WidowControl = True 0k  [6  
        .KeepWithNext = True b* fflJ  
        .KeepTogether = True ![%,pip2/&  
        .PageBreakBefore = True KYN{iaj  
        .OutlineLevel = wdOutlineLevelBodyText ="K>yUfcFl  
         4y.[tk5  
        .LeftIndent = CentimetersToPoints(0) z& jDOex  
        .RightIndent = CentimetersToPoints(0) \$"
Xr  
        .FirstLineIndent = CentimetersToPoints(0) H)tDfk sq\  
         N3) v,S-  
        .CharacterUnitLeftIndent = 0 8?
XZF[D  
        .CharacterUnitRightIndent = 0 k6S<46}h|  
        .CharacterUnitFirstLineIndent = 0 5Bo)j_Qo  
         Fwqf4&/  
        .LineUnitBefore = 1 Q8i6kf!  
        .LineUnitAfter = 0.5 RGmpkQEp   
         w.H+$=aK  
        .AutoAdjustRightIndent = False Jmx}r,j  
        .DisableLineHeightGrid = True -}o;Y)  
        .FarEastLineBreakControl = True 
Zlo ,#q  
        .WordWrap = True =ndKG5  
    End With pM3BBF%  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False *E'K{?-K  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll SGm?"esEt  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese O6]~5&8U.  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True Ea?.HRxl  
    DoEvents Y[4B{  
     R3A^VE;qP  
    '表格标题 L4b4 X  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") /G;yxdb  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" FO$Tn+\6  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False @35shLs  
    With ActiveDocument.Styles("QLNU表格标题").Font 0 HmRl  
        .NameFarEast = "楷体" 63=m11Z4  
        .NameAscii = "Arial" p6'8l~W+  
        .Name = "楷体" lfP|+=^B  
        .Size = 10.5 ;\N*iN#K  
        .Bold = True I"4B1g  
        .Underline = wdUnderlineNone zdE^v{}|  
        .Italic = wdUndefined g_U6
9 z  
        .Subscript = wdUndefined s=4.Ovd
\  
        .Superscript = wdUndefined / jD'o>  
        .Color = wdColorAutomatic $(U|JR@  
    End With wn&2-m*a  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat (i8t^  
         .>n|#XK  
        .LineSpacingRule = wdLineSpaceSingle 605|*(  
        .Alignment = wdAlignParagraphCenter >^&+,*tsS4  
        .KeepWithNext = True ':3KZ 4/C  
        .KeepTogether = True bSfQH4F  
        .OutlineLevel = wdOutlineLevelBodyText nCU4a1rZ  
         tw66 XxE  
        .LeftIndent = CentimetersToPoints(0) )RFeF!("  
        .RightIndent = CentimetersToPoints(0)
X[<9+Q
-&  
        .FirstLineIndent = CentimetersToPoints(0) *bEsWeP  
         E3!twR*Aw  
        .CharacterUnitLeftIndent = 0 -}@9lhS,  
        .CharacterUnitRightIndent = 0 & j43DYw4  
        .CharacterUnitFirstLineIndent = 0 -wB AFr  
         a2TC,   
        .LineUnitBefore = 1 Rd)QVEk>SD  
        .LineUnitAfter = 0 30@ GFaab  
         PX^k;  
    End With 1;kMbl]  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False (i(E~^O  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll F[O147&C  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese ]smu~t0\  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True |Fze9kZO  
    DoEvents `{K-eHlrM9  
` W);+s  
    '表格首行 (ot56`,k  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") D}}?{pe  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False HH6H4K3Zj  
    With ActiveDocument.Styles("QLNU表格首行").Font eJ<P  
        .NameFarEast = "楷体" `$JZJ!,A  
        .NameAscii = "Times New Roman" {Y-'i;j?  
        .Name = "楷体" r|ZB3L|7  
        .Size = 9 "v wLj:  
        .Bold = True 8Vn  
        .Underline = wdUnderlineNone GwDOxH'  
        .Italic = wdUndefined e~)4v  
        .Subscript = wdUndefined ]<YS7.pT  
        .Superscript = wdUndefined &@{`{
  
    End With _8K8Ai-~.>  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat uMGy-c  
        .LineSpacingRule = wdLineSpaceSingle A0A|cJP
 
        .Alignment = wdAlignParagraphCenter PCgr`
($U  
         lU=V CuW!  
        .LeftIndent = CentimetersToPoints(0) ,#;`f=aqTG  
        .RightIndent = CentimetersToPoints(0) +?3RC$jyw  
        .FirstLineIndent = CentimetersToPoints(0) zi O(`"v  
         [c
EGkz
 
         OOI
p)=4  
        .CharacterUnitLeftIndent = -0.5 r8*xp\/  
        .CharacterUnitRightIndent = -0.5 la)+"uW  
        .CharacterUnitFirstLineIndent = -0.5 !F~1+V>zP  
         paN=I=:*M  
        .LineUnitBefore = 0 s/J7z$NEU  
        .LineUnitAfter = 0 mMZrBz7r  
        .SpaceBefore = 0 7=X6_AD  
        .SpaceAfter = 0 <W3p!  
         x4g6Qze  
    End With I+kL;YdS  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False !.V_?aYi8  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll $U7/w?gc'  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese By!u*vSev  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True hTZ6@i/pS  
    DoEvents OPq|4 xu  
&Q"vXs6Gt  
    '表格内容 ,Iz9!i J"  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") BH^*K/^  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False *wmkcifF;  
    With ActiveDocument.Styles("QLNU表格内容").Font 3;}YW^oXq  
        .NameFarEast = "楷体" ^fd*KM  
        .NameAscii = "Times New Roman" +ru`Zw5,  
        .Name = "楷体" xo @|;Z>&F  
        .Size = 9 =z9,=rR4  
        .Bold = False a(O@E%|u  
        .Underline = wdUnderlineNone ./7-[d  
        .Italic = wdUndefined H*0g*(  
        .Subscript = wdUndefined DH_~,tK9  
        .Superscript = wdUndefined jZidT9[g  
    End With {P?DkUO}  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat -b+)Dp~$p  
        .LineSpacingRule = wdLineSpaceSingle xA:;wV  
        .Alignment = wdAlignParagraphCenter ? uTuO  
         cC$YD]XdIA  
        .LeftIndent = CentimetersToPoints(0) pcOi%D,o  
        .RightIndent = CentimetersToPoints(0) >a2[P"   
        .FirstLineIndent = CentimetersToPoints(0) />9`Mbg[G  
         GadY#]}(  
        .CharacterUnitLeftIndent = -0.5 IN1n^f$:  
        .CharacterUnitRightIndent = -0.5 I;_T_m4.q  
        .CharacterUnitFirstLineIndent = -0.5 b9i_\  
        .LineUnitBefore = 0 }lPWA/  
        .LineUnitAfter = 0 T$r/XAs  
        .SpaceBefore = 0 Ym]g0a  
        .SpaceAfter = 0 ZT/
f  
    End With }2BNy9q@  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False hB\BFVUSn/  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll 'CqAjlj  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese RB
""(<  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True =M@)qy  
    DoEvents O(0a l#Fvj  
" @""  
    '图片标题 FO!0TyQ  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") s2N'Ip  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" Dqwd= $2%  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False +J|LfXgB  
    With ActiveDocument.Styles("QLNU图片标题").Font r:0RvWif  
        .NameFarEast = "楷体" ?Y\WSI?i  
        .NameAscii = "Times New Roman" }mZCQJ#`  
        .Name = "楷体" {*CG&-k2D  
        .Size = 10.5 a8[%-eW,  
        .Bold = True (?XIhpd  
        .Underline = wdUnderlineNone MMaS  
        .Italic = wdUndefined qx >Z@o
 
        .Subscript = wdUndefined j&A9 &+w  
        .Superscript = wdUndefined p*cyW l  
        .Outline = False uW[AnQ1 w  
        .Shadow = False j;j~R3B  
        .Color = wdColorAutomatic /#_[{lSr?  
    End With dE[X6$H[  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat t,XbF  
        .LineSpacingRule = wdLineSpaceSingle v\!Cq+lFML  
        .Alignment = wdAlignParagraphCenter ]+qd|}^  
         Wx;%W"a  
        .KeepWithNext = wdUndefined :|I"Em3R  
        .KeepTogether = True *Y53bZ  
        .OutlineLevel = wdOutlineLevelBodyText O7Jp;  
         (1er?4  
        .LeftIndent = CentimetersToPoints(0) VOATza`  
        .RightIndent = CentimetersToPoints(0) #vy[v22  
        .FirstLineIndent = CentimetersToPoints(0) 4TU\SP8sM  
         si]MQ\i+  
        .CharacterUnitLeftIndent = 0 C$at9=(E6  
        .CharacterUnitRightIndent = 0 &];W#9"Z  
        .CharacterUnitFirstLineIndent = 0 SU7,uxF  
         Te)%L*X  
        .LineUnitBefore = 0 u5U^}<}y}  
        .LineUnitAfter = 0 pG*W>F  
    End With 1T~`$
zS7  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False V+0pvgS[  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll Bgsi$2h I  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese X&49
C:jN  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True 1,Pg^Xu  
    DoEvents 1#>uqUxah  
1dp8'f5^  
    '目录项 #
gf0*:p  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") cqZ
lpm$c  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" 4T)`%Oo<}  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False :u@ w;  
    With ActiveDocument.Styles("QLNU目录项").Font ~$ ?85   
        .NameFarEast = "黑体" 2"Unk\Y  
        .NameAscii = "Times New Roman" OaN"6Ge#  
        .NameOther = "Times New Roman" _Eq,udCso  
        .Name = "黑体" .bh7  
        .Size = 10.5 1)N#  
        .Bold = False UNrO$aX!1'  
        .Italic = wdUndefined yg|yoL'g  
        .Underline = wdUnderlineNone \Z~@/OVc
  
        .Color = wdColorAutomatic 1Nv qtVC  
        .Superscript = wdUndefined 5PpS/I:on  
        .Subscript = wdUndefined 0!:%Ge_  
    End With 6_9@s*=d>
 
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat iY sQ:3s  
         yG#x*\9  
        .LineSpacingRule = wdLineSpaceSingle ` -f\6r|:)  
        .Alignment = wdAlignParagraphLeft 65+2
+p  
         9a1R"%Z  
        .WidowControl = False 9Z 6  
        .KeepWithNext = False fx^yC.$2  
        .KeepTogether = False cZ.p  
        .PageBreakBefore = False ct(euPU  
        .NoLineNumber = False KUq(&H7  
        .OutlineLevel = wdOutlineLevelBodyText $Zrc-tkV  
         )T(1oK(g  
        .LeftIndent = CentimetersToPoints(0) OCqknA  
        .RightIndent = CentimetersToPoints(0) XK0lv 8(  
        .FirstLineIndent = CentimetersToPoints(0) .k!2{A  
         ESS1 L$y  
        .CharacterUnitLeftIndent = 0 uAk >VPuuZ  
        .CharacterUnitRightIndent = 0 = t}m  
        .CharacterUnitFirstLineIndent = 0 6k37RpgH  
         7Z}T!HFMr  
        .LineUnitBefore = 0 gIGi7x  
        .LineUnitAfter = 0 yWH! v]S  
    End With rXGaav9  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False 1[RI 07g7*  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll +f^|Y
i  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot ?FZ) LZM  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese VjiwW%UOM  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True 5]3Mj*u\  
    DoEvents YcSPU(  
     !.|A}8nK  
    '参考文献 =G  'c%  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") J?&%fI
 
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" 56Lt "Z F  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False q?0 &0  
    With ActiveDocument.Styles("QLNU参考文献").Font _(@Vf=t  
        .NameFarEast = "宋体" z=rSb4"W  
        .NameAscii = "Times New Roman" gHWsKE
%  
        .NameOther = "Times New Roman" R&/"?&pfa  
        .Name = "Times New Roman" e&<=+\ul  
        .Size = 12 X4bZ4U*  
        .Bold = False @GQtyl;q  
        .Italic = wdUndefined K1-3!G  
        .Subscript = wdUndefined =$kS
n\L,  
        .Superscript = wdUndefined lb}:!Y  
        .Underline = wdUnderlineNone @_#] 7  
        .UnderlineColor = wdColorAutomatic Q'^$;X~-<  
        .Color = wdColorAutomatic V
W] ,R1q  
        .Engrave = False RS{ E|  
    End With 0SZ:C(]  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat 7zNfq.Ni~  
         -BrJ5]T>*  
        .LineSpacingRule = wdLineSpaceExactly u$"Ew^C  
        .LineSpacing = 16 cdL0<J b,  
        .Alignment = wdAlignParagraphLeft _#<7s`i  
        .WidowControl = False }hc+ENh  
        .KeepWithNext = False m\ @Q}  
        .KeepTogether = False W=K+kB  
        .PageBreakBefore = False +5Y;JL<%/  
        .OutlineLevel = wdOutlineLevelBodyText [&p/7  
         BL\H@D  
        .LeftIndent = CentimetersToPoints(0) Q A~Lm  
        .RightIndent = CentimetersToPoints(0) JWxSN9.X  
        .FirstLineIndent = CentimetersToPoints(0) jyRz53  
         clT[?
8*  
        .CharacterUnitLeftIndent = 0 HN
X/#?3  
        .CharacterUnitRightIndent = 0
T<0V ^B7  
        .CharacterUnitFirstLineIndent = -2 s*e1m%  
         ;l@Ge`&u  
        .LineUnitBefore = 0 y(**F8>?xE  
        .LineUnitAfter = 0 6ZC~q=my  
        .SpaceBefore = 0 !3
*%-8bp  
        .SpaceAfter = 0 RE;)#t?K  
         llpgi,-=  
    End With 4_ZHY?VRd  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False @`SlOKz!=  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll G/_8xmsU  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS X'7MW? q@  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True o<Rrr,  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese [5P1 pkZ  
    DoEvents cMAY8$  
Y^5)u/Y=U  
    ' '81Wog H:  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") 2 3A )^j  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" #4& <d.aw'  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False 1W>0  
    With ActiveDocument.Styles("QLNU论文题目").Font 5pxw[c53#  
        .NameFarEast = "黑体" Q3LScpp  
        .NameAscii = "Arial Black" l ]5!$N*  
        .NameOther = "Arial Black" RXhT{Ho(>  
        .Name = "Arial Black" Mbxrj~u e  
        .Size = 16 ~:UAL}b{\~  
        .Bold = False M9(Kxux#  
        .Italic = wdUndefined 4+N9 Ylh  
        .Superscript = wdUndefined Q2t>E(S  
        .Subscript = wdUndefined T FK#ign  
        .Underline = wdUnderlineNone #4^D'r>pJ  
        .UnderlineColor = wdColorAutomatic Ehtb`Ms  
        .Color = wdColorAutomatic 3=^B &AB  
]ex2c{ G  
    End With 1KI5tf>>p  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat DV~g  
        .LineSpacingRule = wdLineSpaceSingle ru*} lDJ  
        .Alignment = wdAlignParagraphCenter YD;"_yH  
        .WidowControl = True >6z7.d  
        .KeepWithNext = True fjy2\J!  
        .KeepTogether = True J['?ud}@  
        .PageBreakBefore = True h]
^= y.Q  
        .NoLineNumber = False d((,R@N'  
        .OutlineLevel = wdOutlineLevelBodyText !4+@b s  
         ztaSIMZ  
        .LeftIndent = CentimetersToPoints(0) D{]9s
  
        .RightIndent = CentimetersToPoints(0) aN"dk-eK  
        .FirstLineIndent = CentimetersToPoints(0) tfd!;`B  
         F#l!LER^1g  
        .CharacterUnitLeftIndent = 0 jbu+>  
        .CharacterUnitRightIndent = 0 Y:5Gp8Vi  
        .CharacterUnitFirstLineIndent = 0 }vX/55   
         NKu*kL}W=  
        .LineUnitBefore = 1 (0S;eM&  
        .LineUnitAfter = 1 yxy~N\0  
         pRh)DM#9  
        .BaseLineAlignment = wdBaselineAlignAuto 5GWC  
    End With ~"U^N:I"  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False I oC}0C7  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll ~qb-uT\(99  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS q>dERN&  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True P{>-MT2E  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese !4fT<V(  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True -Rr Qv(  
    DoEvents
!;&{Q^}  
     
l|  QQ  
    '中文摘要 :>, m$XO  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") 'X1/tB8*  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" @@+BPLl  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False R"{oj]d;$F  
    With ActiveDocument.Styles("QLNU中文摘要").Font `g,i`<  
        .NameFarEast = "宋体" -T.C?Q g  
        .NameAscii = "Times New Roman" Ug ^vVc)  
        .NameOther = "Times New Roman" #j6qq 3OG  
        .Name = "Times New Roman" qfB!)Y  
        .Size = 12 pm'i4!mY<P  
        .Bold = wdUndefined +bc
Jm  
        .Superscript = wdUndefined Jn q}SUev  
        .Subscript = wdUndefined MVe4[<  
        .Italic = wdUndefined 0"xD>ue&  
        .Underline = wdUnderlineNone jRSY`MU}t+  
        .UnderlineColor = wdColorAutomatic ?lQ-HOAw  
        .Color = wdColorAutomatic )E=~ _`XO  
    End With s!j
vBy  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat -f%J_`  
        .LineSpacingRule = wdLineSpaceExactly [7=?I.\Cr7  
        .LineSpacing = 20 M[5fNK&nD  
        .Alignment = wdAlignParagraphLeft Hu7WU;w  
          ~&Y%yN^  
        .WidowControl = False sFonc  
        .KeepWithNext = False P&9&/0r=_  
        .KeepTogether = True :3By7BZgj  
        .PageBreakBefore = False Gq;!g(  
        .NoLineNumber = False PQ4)k
VT  
        .OutlineLevel = wdOutlineLevelBodyText v\Xy z )  
         #s|/5[i  
        .LeftIndent = CentimetersToPoints(0) 5^GrG|~  
        .RightIndent = CentimetersToPoints(0) {s~t>Rp+  
        .FirstLineIndent = CentimetersToPoints(0) ;Qdw$NuW  
         [|oOP$u  
        .CharacterUnitLeftIndent = 0 l=ZX9<3  
        .CharacterUnitRightIndent = 0 ]dQ  
        .CharacterUnitFirstLineIndent = 2 *d,Z?S/  
        .LineUnitBefore = 0 IM&l%6[).  
        .LineUnitAfter = 0 5,K*IH  
         ](sT,'  
    End With `:;fc  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False MDO P2y`2i  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll =
sh]H$  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS t,R4q*  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True >$N ?\\#  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese 2)+ddel<Z  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True %&S :W%qm?  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete >`Zw0S  
    DoEvents APL #-`XC  
     T Ue=Yj  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") !1ZrS  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" ,~qjL|9  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False \kVi&X=q:  
    With ActiveDocument.Styles("QLNU英文标题").Font hGlRf_{  
        .NameFarEast = "黑体" 'jd fUB  
        .NameAscii = "Arial Narrow" #(Ezt% ^  
        .Name = "Arial Narrow" =F90SyzTy  
        .Size = 16 )+12r6W  
        .Bold = True g.eMGwonTJ  
        .Bold = wdUndefined DeRC_ [  
        .Superscript = wdUndefined y@u,Mv  
        .Subscript = wdUndefined M07==R7  
        .Italic = wdUndefined Lsz)\yIPj  
         x_BnWFP  
        .Underline = wdUnderlineNone 6Bn%7ZBv  
        .UnderlineColor = wdColorAutomatic Id40yER  
        .StrikeThrough = False . I#d
R*  
        .DoubleStrikeThrough = False E0<$zP}V}F  
    End With P)&qy .+E0  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat l *>,:y  
        .LineSpacingRule = wdLineSpaceSingle )w&k&TY4H  
        .Alignment = wdAlignParagraphCenter Y|N.R(sAs&  
        .WidowControl = True *WZ?C|6+  
        .KeepWithNext = False >r5s>A[YC  
        .KeepTogether = False XXZ<r  
        .PageBreakBefore = False 2sNV09id  
        .NoLineNumber = False g)Dg=3+ >  
        .FirstLineIndent = CentimetersToPoints(0) Xmaj7*f>p  
        .OutlineLevel = wdOutlineLevelBodyText V75P@jv5J  
         ZH8Oidj`  
        .LeftIndent = CentimetersToPoints(0) PvqG5-L~W  
        .RightIndent = CentimetersToPoints(0) p+O,C{^f  
        .FirstLineIndent = CentimetersToPoints(0) J+=+0{}  
         k5]`:k6  
        .CharacterUnitLeftIndent = 0 h( 3ko An  
        .CharacterUnitRightIndent = 0 rQ 287y{  
        .CharacterUnitFirstLineIndent = 0 @}iY(-V  
         y?yWM8  
        .LineUnitBefore = 1 6`sS8Ar&u  
        .LineUnitAfter = 1 p;YS`*!s  
         =@0/.oSD  
    End With +C){&/=#  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False .3< sv  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll ])uhm)U@  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS Pvu*Y0_p  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True 
''~#tK f  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese cr<ty"3\  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True ?9m@ S#@  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete $jgEB+  
    DoEvents ,)7y?*D}  
29AWg(9?aS  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") o<nkK+=Afm  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" QPT%CW61M  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False :x/L.Bz  
    With ActiveDocument.Styles("QLNU英文摘要").Font *HXx;:  
        .NameFarEast = "宋体" (SG
U]@)g  
        .NameAscii = "Arial" oBZzMTPe  
        .NameOther = "Arial" x
#,nR]C  
        .Name = "Arial" Ob>M]udn  
        .Size = 12 x^P~+(g  
        .Bold = wdUndefined ;$$.L bb8  
        .Italic = wdUndefined <c$K3  
        .Superscript = wdUndefined x4nmDEpa  
        .Subscript = wdUndefined *Z C$DW!-  
    End With c6f[^Q%#j  
     !Xf7RT  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat `u7" s'  
         !Au9C   
        .LineSpacingRule = wdLineSpaceExactly l!YjDm{E  
        .LineSpacing = 20 3lD1G~  
         sDzlNMr?P+  
        .Alignment = wdAlignParagraphJustify @Zov&01  
         3X A8\Mg  
        .WidowControl = False e:k
d0)9  
        .KeepWithNext = False qJPEq%'Q  
        .KeepTogether = False a.!|A(zw  
        .PageBreakBefore = False }qn@8}  
        .NoLineNumber = False NoG`J$D  
         .cA'6J"Bm\  
        .OutlineLevel = wdOutlineLevelBodyText BARs1^pR4  
         -P7JaH/Q  
        .LeftIndent = CentimetersToPoints(0) K~ShV  
        .RightIndent = CentimetersToPoints(0) S,%BhQ[  
        .FirstLineIndent = CentimetersToPoints(0) EoD[,:*  
         L>Soj|WUy(  
        .CharacterUnitLeftIndent = 0 9$oU6#U,h  
        .CharacterUnitRightIndent = 0 STY\c5  
        .CharacterUnitFirstLineIndent = 2 bQ6<R4  
         !$5.\D  
        .LineUnitBefore = 0  i#W0  
        .LineUnitAfter = 1 Vv3{jn6%  
         l/F'W}  
    End With hAv.rjhw_  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False {Wp5Ane  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll rLzN#Zoi  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS "J
(W)\  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False $wx)/t<  
    DoEvents ej9|Y5D"S  
1pT-PO3=  
    Options.Pagination = True VLO!hA#  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." !Al?B9KJ  
    DoEvents 8O0E;6b  
    ActiveDocument.Repaginate 8*t8F\U#  
kz+OUA@~  
End Sub B>"O~ gZ{#  
zOzobd  
)`B n"=  

姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 l#;DO9  
2iJ)K rw  

引用

引用第20楼newport93于06-14-2010 13:47发表的  : &rmXz6F  
5RysN=czA  
老五，I 服了U。 c'8pTP%[  
][IEzeI_LN  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 9AgTrP  

BlrZ<\-/