Dim bContinue As Boolean X13+n2^8]  
(X"5x]7]  
Dim regEX As New RegExp St%x\[D  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 6J,h}S  
(?1$  
Dim LastTitle0String As String, LastTitle0No As Long ,#ZPg_x?1  
Dim LastTitle1String As String, LastTitle1No As Long :Pdh##k  
Dim LastTitle2String As String, LastTitle2No As Long ?tjEXg>ny  
Dim LastTitle3String As String, LastTitle3No As Long K.}jOm  
Dim LastTitle4String As String, LastTitle4No As Long H;nzo3x  
Dim LastTitle5String As String, LastTitle5No As Long -@w,tbc$  
Dim LastTabelString As String, LastTableNo As Long E72N=7v"  
Dim LastFigureString As String, LastFigureNo As Long ?;W"=I*3  
}/1^Lqfnz  
Dim strSeperator As String F7JO/U^oU  
.-rz30xT  
Sub ConvertWidth(fTEXT As String, rText As String) *%;A85V/  
        Selection.Find.ClearFormatting ,ZJ}X 9$<  
        Selection.Find.Replacement.ClearFormatting f~mwDkf?L  
        Selection.Find.Wrap = wdFindContinue EZB0qZIp  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText q
][kD2  
        DoEvents ^vd$j-kjTP  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True Opu*i  
End Sub G=17]>U  

% E1r{`p  
Sub ClearDomain() _r3Y$^!U  
        With Selection.Find [#gm[@d,  
            .ClearFormatting Y0,{fw<  
            .Replacement.ClearFormatting !F P ]  
            .Wrap = wdFindContinue .euAN8L  
            Me.txtStatus.Text = "清除所有域代码" *b) (-#w3  
            DoEvents ,Lp"Ia  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False 4%r?(C0x  
        End With ~wW]ntZm  
End Sub ,g7O   
C<^i`[&P$  
Private Sub cmdCheck_Click() 3pWav 1"  
    bContinue = True yg}O9! MJ  
    Dim NoSeries1(1 To 16) As String )?[7}(4jI  
    Dim NoSeries2(1 To 16) As String |9S8sfw  
    Dim NoSeries5(1 To 16) As String YM_[   
    Dim NoSeriesRM(1 To 16) As String " C0dZ  
    Dim paraTotal As Long, ParaText As String [m:cO6DM,  
    Dim ttString As String, ttNo As String fKY-@B[|  
     >
 "F-1{  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long i;%G Z8  
-&2Z/qM&!  
    Me.txtStatus.Visible = True ivo><"Y(r  
    Me.lbParaType.Visible = True G)<B7-72;  
    Me.cmdCheck.Enabled = False j_90iP^5:  
     ZzE(S  
     A2ye ^<-C.  
     EX{%CPp7}  
     }
XBF#BN  
    Dim ParaType As String, rText As String H I|a88   
     !u]@Ru34  
    Selection.WholeStory qWr=Oiu  
    Selection.NoProofing = True cOP'ql{"  
     y+iRZ%V^  
    tm1 = Now 45.ks.  
     5CK\Z'c~!  
        ActiveWindow.View.Type = wdNormalView AJ i+JO -  
     QHO n?e  
    NoSeries1(1) = "一" ?Sh]kJO  
    NoSeries1(2) = "二" <T[LugI  
    NoSeries1(3) = "三" G>vK$W$f N  
    NoSeries1(4) = "四" )
'n@A%B  
    NoSeries1(5) = "五" 6NV592  
    NoSeries1(6) = "六" n}Z%D-b$  
    NoSeries1(7) = "七" 5"nq h}5  
    NoSeries1(8) = "八" G]aey>)  
    NoSeries1(9) = "九" n^[a}DX0  
    NoSeries1(10) = "十" 4utwcXL  
    NoSeries1(11) = "十一" Lld45Bayb  
    NoSeries1(12) = "十二" 'Jf LTG.  
    NoSeries1(13) = "十三" n+=qT$w)  
    NoSeries1(14) = "十四" >WLX5i&  
    NoSeries1(15) = "十五" ?+hEs =Xs  
    NoSeries1(16) = "十六" Xf&YcHo  
     }cMkh  
    NoSeries2(1) = "㈠" N/0aO^"V  
    NoSeries2(2) = "㈡" p)B/(%  
    NoSeries2(3) = "㈢" .c]>*/( +  
    NoSeries2(4) = "㈣" QY)p![6Fj  
    NoSeries2(5) = "㈤" G;cC!
x<  
    NoSeries2(6) = "㈥" =a,qRO  
    NoSeries2(7) = "㈦" PzKTEYJL  
    NoSeries2(8) = "㈧" n)5t!  
    NoSeries2(9) = "㈨" `e'wWV  
    NoSeries2(10) = "㈩" Cty{  
     m^L !_~  
    NoSeries5(1) = "①" o$L%t@  
    NoSeries5(1) = "②" )KFxtM-  
    NoSeries5(3) = "③" ZskX! {  
    NoSeries5(4) = "④" e: Sd#H!  
    NoSeries5(5) = "⑤" V6dq8Z"h  
    NoSeries5(6) = "⑥" ~2rQ80_  
    NoSeries5(7) = "⑦" dnD@BQ  
    NoSeries5(8) = "⑧" %_s)Gw&sq  
    NoSeries5(9) = "⑨" #>aq'47j  
    NoSeries5(10) = "⑩" [6l0|Y  
     kNWT
M%u9  
     `:3nF'  
    NoSeriesRM(1) = "I" Gz{%Z$A~o  
    NoSeriesRM(2) = "II" bI0xI[#Q  
    NoSeriesRM(3) = "III" n! 5(Z5=  
    NoSeriesRM(4) = "IV" Lm}.+.O~d  
    NoSeriesRM(5) = "V" "|(. W3f1  
    NoSeriesRM(6) = "VI" +&u/R')?6r  
    NoSeriesRM(7) = "VII" -b!Z(}JK  
    NoSeriesRM(8) = "VIII" "W+>?u)  
    NoSeriesRM(9) = "IX" :|V650/  
    NoSeriesRM(10) = "X" F,S)P`?  
    NoSeriesRM(11) = "XI" vE(]!CB  
    NoSeriesRM(12) = "XII" Y(6evo&IR  
    NoSeriesRM(13) = "XIII" K
.QSt  
    NoSeriesRM(14) = "XIV" 7 w,D2T  
    NoSeriesRM(15) = "XV" mF@7;dpr  
    NoSeriesRM(16) = "XVI" 26aDPTP$<  
     ( xooU 8d  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) _(J#RH  
     &'^.>TJ\  
    If i = vbNo Then BmpAH}%T  
        Exit Sub k#pO+[ x  
    End If =!SV;^-q  
     o7E|wS  
    If Me.chkSuper.Value Then If'2 m_  
        Me.txtStatus.Text = "检查修改所有的上标格式" Ld.9.d]  
     #:BkDidt2v  
        CheckSuperScript ZbT$f^o}M]  
         $#f_p-N  
    End If {?lndBP<  
     h'em?fN(  
    If Me.chkStyle.Value Then 6ZE`'
pk<  
        Me.txtStatus.Text = "设置样式，请稍候...." (mP{A(kwJ  
        DoEvents JqO1 a?H  
        CeateOrModifyStyle mTu>S  
    End If nyPeN?-  
     i;{lY1  
     \9`E17i  
     rAP="H<  
    ClearDomain d%k7n+ICQ4  
         &X:;B'   
     h9 DUS,G9,  
     L< =Dl  
    If Me.chkLIST.Value Then F&!vtlV)  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" %]7 6u7b/  
     yC$m(Y12FN  
        ConvertListToOrdinary DQK?y=vf  
    End If FW8Zpr!u  
     rtAPkXJFM  
     ^=^\=9" b  
    Dim pType As String, trimpTEXT As String  ( y!o  
    If Me.chkNum.Value = True Then ~3M4F^  
        Me.txtStatus.Text = "转换全角数字形式为半角" A{\?]]/  
        ConvertWidth "１", "1" kF^4kCJ@  
        DoEvents 3 orZBT  
        ConvertWidth "２", "2" C)j/!+nh  
        DoEvents h%F.h![*  
        ConvertWidth "３", "3" w.58=Pr  
        DoEvents $i+@vbU6  
        ConvertWidth "４", "4" [ S  
        DoEvents j|pTbOgk%  
        ConvertWidth "５", "5" RdD>&D$I  
        DoEvents AHn!>w,  
        ConvertWidth "６", "6" ?`e@ o?  
        DoEvents ,*W~M&n"m  
        ConvertWidth "７", "7" zB0*KgAn{  
        DoEvents =$4I}2  
        ConvertWidth "８", "8" ?l%4 P5  
        DoEvents %`
k [xz  
        ConvertWidth "９", "9" MuMq%uDA"  
        DoEvents }&/>v' G  
        ConvertWidth "０", "0" =| T^)J  
        DoEvents Az y`
4  
        ConvertWidth "ａ", "a" M`al~9  
        DoEvents Q(-&}cY  
        ConvertWidth "ｂ", "b" m2^vH+wD  
        DoEvents {E%c%zzQ  
        ConvertWidth "ｃ", "c" o}QP+  
        DoEvents Mrgj*|  
        ConvertWidth "ｄ", "d" t[+bZUS$~  
        DoEvents >m lQ@Z_O  
        ConvertWidth "ｅ", "e" E0RqY3  
        DoEvents ZMlBd}H  
        ConvertWidth "ｆ", "f" ?WXftzdf6u  
        DoEvents "XxmiK  
        ConvertWidth "ｇ", "g" <o|fH~?X  
        DoEvents (" :Dz_  
        ConvertWidth "ｈ", "h" v\|jkzR5Y  
        DoEvents nZnqXclzxn  
        ConvertWidth "ｉ", "i" ) ??N]V_U  
        DoEvents KwHN c\\  
        ConvertWidth "ｊ", "j" OEaL2T  
        DoEvents hNh!H<}|m8  
        ConvertWidth "ｋ", "k" #&)H&H}  
        DoEvents eb`3'&zV&)  
        ConvertWidth "ｌ", "l" nuWQ3w p[e  
        DoEvents ./;uhj  
        ConvertWidth "ｍ", "m" vC>2%Zgf-  
        DoEvents RK- bsf  
        ConvertWidth "ｎ", "n" .F$} a%  
        ConvertWidth "ｏ", "o" O^CBa$  
        ConvertWidth "ｐ", "p" Pa0W|q#?X  
        ConvertWidth "ｑ", "q"  'V^M+ng  
        ConvertWidth "ｒ", "r" F-zIzzb&O  
        ConvertWidth "ｓ", "s" TaSS) n  
        ConvertWidth "ｔ", "t" Gn4b*Y&M]3  
        ConvertWidth "ｕ", "u" ?7wcv$K5  
        ConvertWidth "ｖ", "v" ^vM6_=g2E%  
        ConvertWidth "ｗ", "w" =YVxQj  
        ConvertWidth "ｘ", "x" ]@Y!,bw&  
        ConvertWidth "ｙ", "y" RiAg:  
        ConvertWidth "ｚ", "z" YK{J"Kof  
        ConvertWidth "Ａ", "A" &4ev
h<z  
        ConvertWidth "Ｂ", "B" |dEPy-Xe  
        ConvertWidth "Ｃ", "C" $"NH{%95}  
        ConvertWidth "Ｄ", "D" Vx. c`/  
        ConvertWidth "Ｅ", "E" ZqrS]i@$  
        ConvertWidth "Ｆ", "F" 3'x>$5W  
        ConvertWidth "Ｇ", "G" }0\SNp
VN  
        ConvertWidth "Ｈ", "H" >)C7IQ/  
        ConvertWidth "Ｉ", "I" 6M&ajl`o  
        ConvertWidth "Ｊ", "J" '.z7)n  
        ConvertWidth "Ｋ", "K" 9d|8c > I  
        ConvertWidth "Ｌ", "L" A z@@0  
        ConvertWidth "Ｍ", "M" eE'>kP}  
        ConvertWidth "Ｎ", "N" ` Ny (S2  
        ConvertWidth "Ｏ", "O" ]QR]#[Tn'  
        ConvertWidth "Ｐ", "P" 4+>yL+sC%v  
        ConvertWidth "Ｑ", "Q" 'kj q C  
        ConvertWidth "Ｒ", "R" xP~GpVhLF  
        ConvertWidth "Ｓ", "S" uQH]  
        ConvertWidth "Ｔ", "T" n\D/WLvM  
        ConvertWidth "Ｕ", "U" \( V1-,  
        ConvertWidth "Ｖ", "V" V0{#q/q  
        ConvertWidth "Ｗ", "W" D ksn  
        ConvertWidth "Ｘ", "X" i[9gcL"  
        ConvertWidth "Ｙ", "Y" @&m]:GR  
        ConvertWidth "Ｚ", "Z" OKm,iIp ]  
        ConvertWidth "^l", "^p" @` Pn<_L  
        ConvertWidth "（", "(" 'lE{Nj*7  
        ConvertWidth "）", ")" Uf+y$n-  
     I~F&@  
    End If ,w6?Ap   
bC+ZR{M  
    With ActiveDocument j[i*;0) |  
        Dim tbl As Table iCpm^XT  
        For Each tbl In .Tables e0y.J  
            tbl.Rows.Alignment = wdAlignRowCenter >;Oa|G  
            tbl.Range.Font.NameFarEast = "楷体" y _apT<P  
            tbl.Range.Font.NameAscii = "Times New Roman" $+J39%Y!^  
            tbl.Range.Font.Size = 10.5 `q]' ^EzJ  
        Next 0~ nCT&V  
        Set tbl = Nothing XdThl  
    End With oy jkk  
     \EU3i;BNT%  
     ]tu OWR  
    With ActiveDocument $!. [
R}  
         GC# [&>L  
        For i = 1 To .TablesOfContents.Count k-3;3Mq  
            .TablesOfContents(i).Delete Tv7W)?3h  
        Next Xh}q/H<  
         yNfj-wM  
         X%s5D&gr  
         {M:/HQo  
        paraTotal = .Paragraphs.Count ):hz/vZ  
        paraCounter = 1 n:40T1:q  
         C ibfuR  
        LastTitle0No = 0 N[O .p]8  
        LastTitle1No = 0 \?v&JmEU  
        LastTitle2No = 0 PTe$dPB  
        LastTitle3No = 0 $/ "+t.ir3  
        LastTitle4No = 0 X\!q8KEpR&  
        LastTableNo = 0 0vLx={i  
        LastFigureNo = 0 Pq<43 :*?  
         ^_v94!a9  
        Dim Sec As Long *A!M0TK?i,  
         i_m&qy<v  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) Gi-pi=#&cs  
        If Sec = 0 Then XM!oN^  
            Exit Sub
wuY-f4  
        End If <w}i  
         i7T#WfF  
        k = 0 5P #._
Em  
        Do While (paraCounter < paraTotal) And bContinue )|v du  
            k = k + 1 6!0NFP~b  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then 3(J>aQZuI  
                Exit Do En7+fQ  
            End If z =H?@z  
            paraCounter = paraCounter + 1 5!9y nIC+>  
            If k Mod 20 = 0 Then **__&Xp1  
                Me.lbCounter.Caption = paraCounter !- T#dU  
                DoEvents OQ2G2>p  
            End If "k+ :!D  
        Loop s1]Pv/a=y  
         >CKa?N;  
          ::0
2?  
        Do While (paraCounter < paraTotal) And bContinue h(nE
)j  
             (9( xJ)  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) @=w)a  
            ShapeHeight = 0 Ay6T*Nu`   
            ShapeWidth = 0 f5bX,e)!  
           z^gz kXx7  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth ApSseBhh  
             :|k!hG  
            Select Case ParaType hoBFC1  
                Case "【】表格内容" [wSoZB l  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" An(gHi;1$  
                Case "章" ,B;mG]_  
                    LastTitle0No = LastTitle0No + 1 l2W+VBn6  
                    '新一章开始，复位其下属标题编号 |mG;?>c)  
                    LastTitle1No = 0 bS: $VyH6  
                    LastTitle2No = 0 74 ptd,  
                    LastTitle3No = 0 jo"+_)]  
                    LastTitle4No = 0 _Q^jk0K8ga  
                     hU(  
                    k = Val(ttNo) ]b}3f<  
                    If k = 0 Then '非数字编号章节 +e>G V61  
                        If ttNo <> NoSeries1(LastTitle0No) Then Rq|5%;1  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString +1qvT_  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText "K>!+<  
                        End If TuCHD~rb  
                    Else l]DRJ  
                        If Val(ttNo) <> LastTitle0No Then YRZw|H{>t  
                            rText = "第" & LastTitle0No & ttString EhO\N\p(Q=  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText (:~_#BA  
                        End If 
Kc r)W  
                         
/oe
0  
                    End If Ap\]v2G  
                     C`Vuw|Xl  
                    '章段落设置 6C.!+km  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 ~7}no}7  
                    .Paragraphs(paraCounter).Style = "QLNU章节" o+OX^F0  
                    .Paragraphs(paraCounter).Range.Select QP<P,Bi~  
                    Selection.EndKey unit:=wdLine _d~GY,WTdO  
                    tc = Replace(rText, vbCr, "") .Sw4{m[g  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False :FSg %IUX  
                Case "一级标题" ;QuxTmWp^  
                    LastTitle1No = LastTitle1No + 1 N0lFx?4  
                    '新一级标题开始，复位其下属标题编号 !#]kzS0  
                    LastTitle2No = 0 L ~Vw`C  
                    LastTitle3No = 0 YVRE9  
                    LastTitle4No = 0 o>]w76A^(  
                     :/? Op  
                    If ttNo <> NoSeries1(LastTitle1No) Then jyg>'"W  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString |#*+#27  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText Jt8M;Yk  
                    End If w MF1HT<*  
                   HSG9|}$  
                     `mAYK)N  
                    '一级标题段落设置  格式：一、标题内容 }1CO>a<  
                    .Paragraphs(paraCounter).Range.Text = rText ~O./A-l  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" Qh3+4nLFtb  
                    .Paragraphs(paraCounter).Range.Select jc6~V$3  
                    Selection.EndKey unit:=wdLine (1{OQ0N+x  
                    tc = Replace(rText, vbCr, "") T06w`'aL  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False \K9Y@jnr  
                Case "二级标题" S WsD]rn  
                    LastTitle2No = LastTitle2No + 1 4mBM5Tv  
                    '新二级标题开始，复位其下属标题编号 Rbm+V{EF&  
                    LastTitle3No = 0 ,9=P=JH  
                    LastTitle4No = 0 jj `0w@  
                     -,=)O  
                    If ttNo <> NoSeries1(LastTitle2No) Then &C,]c#-+  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString z}5'TV=^  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText b2F1^]p  
                    End If c?xeBC1-  
                     P K?}hz  
                    '二级标题段落设置 格式：(一)、标题内容 m|cR
j{xZF  
                    .Paragraphs(paraCounter).Range.Text = rText ZQz;EV!  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" &e[Lb:Uk)  
                     0~<t :q!  
                    .Paragraphs(paraCounter).Range.Select w\t  
                    Selection.EndKey unit:=wdLine *X|%H-Q:H`  
                    tc = Replace(rText, vbCr, "") 35-FD{  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False  h;K9 }w  
                 IMSm  
                Case "三级标题" <0`"vPU  
                    LastTitle3No = LastTitle3No + 1 $3#oA. ~R/  
                    '新三级标题开始，复位其下属标题编号 &U.y):  
                    LastTitle4No = 0 6*ZZ)W<  
                     >>J!|  
                    If Val(ttNo) <> LastTitle3No Then Rx%kAt2X  
                            rText = LastTitle3No & ". " & ttString /KvpJ4  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText 3joMtRB>;  
                         3kJSz-_M  
                    End If nYRD>S?uz  
                    '三级标题段落设置 格式：1. 标题内容 3_VWtGQ  
                    .Paragraphs(paraCounter).Range.Text = rText &@7|_60  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" `b@"GOr  
                    .Paragraphs(paraCounter).Range.Select n!b*GXb\  
                    Selection.EndKey unit:=wdLine r Z5eXew6  
                    tc = Replace(rText, vbCr, "") ^kB9 I8u  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False "J >, Hr9  
                Case "四级标题" v Ma$JPauI  
                    LastTitle4No = LastTitle4No + 1 U_B`SS  
                     Z.>?Dt  
                    If Val(ttNo) <> LastTitle4No Then NVC$8imip  
                            rText = "(" & LastTitle4No & "). " & ttString E h_[8:dK  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText jTQN(a9Y  
                     q|D*H9[ke  
                    End If jaux:fU  
                    '四级标题段落设置 格式：(1). 标题内容 AQ.q?'vE)  
                    .Paragraphs(paraCounter).Range.Text = rText H~hAm  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" 4f0dc\$  
                    .Paragraphs(paraCounter).Range.Select gA
i}"};  
                    Selection.EndKey unit:=wdLine C$c.(5/O  
                    tc = Replace(rText, vbCr, "") |("5 :m  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False Yu
^}  
                 p|*b] 36  
                Case "表格标题" K e&
fTK  
                    LastTableNo = LastTableNo + 1 [iSLn3XXRX  
                     )^^}!U#|e  
                    If ttNo <> CStr(LastTableNo) Then t^
9q>[/d`  
                            rText = "表" & LastTableNo & ". " & ttString hi]\M)l&x  
                            ErrMsg.AddItem "表格编号错误：" & ParaText JR_c]AQYu  
                   &P8Q|A-u  
                    End If Q([g1?F9*  
                      [7)#3  
                    '表格名称段落设置 格式：表1. 表格名称 ?~VevD  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" oU 8o;zk0  
                    xe = Replace(rText, vbCr, "") -H_7GVSnl  
                    .Paragraphs(paraCounter).Range.Select >yq
L  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 K&Q0]r?  
                    Selection.Range.Text = xe u q y~hY  
                    Selection.EndKey z#&qWO  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False .Qj`_q6=  
                 uo BPi[nK  
                Case "表格首行" t;ga>^NA"  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" s3T6"%S`  
                Case "图片标题" gD fVY%[Z  
                    LastFigureNo = LastFigureNo + 1 QaEXk5>e  
                     |@)ij c4i  
                    If ttNo <> CStr(LastFigureNo) Then 1h[email protected]  
                            rText = "图" & LastFigureNo & ". " & ttString }S&SL)  
                            ErrMsg.AddItem "表格编号错误：" & ParaText L/cbq*L  
                   %^E>~  
                    End If `[1]wV5(5@  
                    '图片名称段落设置 格式：图1. 图名称 L'h'm{i  
                    .Paragraphs(paraCounter).Range.Text = rText ~RE`@/wQ]  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" a-DE-V Uls  
                    .Paragraphs(paraCounter).Range.Select sAc)X!}  
                    Selection.EndKey unit:=wdLine Y!s/uvRI  
                    xe = Replace(rText, vbCr, "") Nb{oH+$b  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False d}415 XA  
                Case "正文" 54LCoG/  
                     '正文名称段落设置 %n c+VL4  
                    .Paragraphs(paraCounter).Style = "QLNU正文" WI'csM;M#  
               Case "文献条目" 8i"{GGVC  
                    With .Paragraphs(paraCounter) |b7>kM}"  
                        '.Range.Select 4';['  
                        'Selection.ClearFormatting
1Kebl  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” AB#hhi#  
                        .Style = "QLNU参考文献" I`KN8ll  
                    End With %s)E}cGH  
               Case "图表注解" e
S Fmx  
                    With .Paragraphs(paraCounter)
`^N;%[c`z  
                        .Range.Font.NameFarEast = "楷体" Bp6 Evi  
                        .Range.Font.NameAscii = "Times New Roman" I3aEg  
                        .Range.Font.Size = 9 '小5号字 vqxTf)ys  
                         (/Y  gcT  
                        .Alignment = wdAlignParagraphCenter bmddh2  
                        .LeftIndent = 0 -)<Nd:A  
                        .RightIndent = 0 'XQv> J  
                        .FirstLineIndent = 0 j({L6</x  
                        .LineSpacing = 12 g-(xuR^*  
                        .LineSpacingRule = wdLineSpaceExactly p-/x Md
 
                        .LineUnitAfter = 0 gA) F  
                        .LineUnitBefore = 0 )5V1HWjU  
                        .OutlineLevel = wdOutlineLevelBodyText qC|re!K  
                        .PageBreakBefore = False en~(XE1  
                        .RightIndent = 0 IX3U
\_I#  
                        .WordWrap = True cRfX  
                        .LineUnitAfter = 0.5 Ip1Qm
P  
                         T@HozZ  
                    End With KoXXNJax  
                Case Else h/w- &7t  
                    '不作处理 XJ NKM~
 
            End Select 4Y/!V[  
             {5z?5i ?D  
            '含有inlineshape的段落处理 {k]VT4/  
            If ShapeHeight > 30 Then wLUmRo56aR  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 pcl_$2_  
            End If & ='uAw  
              3i$AR  
            If (ShapeWidth + ShapeHeight) > 150 Then 6ensNr~ea  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" <?n
r"V  
            End If (c*Dvpo1  
             6<~y!\4;F  
            '段落计数器递 yq,5M1vR  
            paraCounter = paraCounter + 1 +yea}uUE  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter XAFT LNV>  
            Me.txtStatus.Text = ParaText 9_/1TjrDN  
            DoEvents NAocmbfNz  
        Loop IH0^*f  
    End With ^e 6(#SqR  
     JT-Zo OZ  
    msg = "" #5I "M WA  
     6$5M^3$-  
    For i = 0 To Me.ErrMsg.ListCount - 1 ,^,J[ F  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) ?^ +|V,<
 
    Next 
mLYB6  
     LtvyWc`  
     1Q$ M/}  
     =gqZ^v&5U  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg BZ T%+s;u9  
    Me.cmdCheck.Enabled = True
U)o8Tr  
    Me.txtStatus.Visible = True ffhD+-gTU  
    Me.lbParaType.Visible = False }w@nZG ^ &  
     jH G(d$h  
    bContinue = False Yr,1##u  
End Sub tE>:kx0*3  
nBj7Q!lW  
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) +%~g$#tlJo  
    Dim pTEXT As String bcE DjLXq  
     4%{m7CK}  
    pTEXT = ChKRange.Text wIiT
:o  
     wLbnsqa  
    ParaType = "其它" _0`O}  
    TitleString = pTEXT pV+;/y_
 
    TitleNo = "N/A" \^:f4Z
T  
     O&0R ~<n  
    shpCounter = ChKRange.InlineShapes.Count 8ksDXf`.  
    If shpCounter <> 0 Then gy[uqm_ T  
        MaxShpHeight = 0: TotalShpWidth = 0 Ywr{/  
        For i = 1 To shpCounter eK@Y] !lz  
            k = ChKRange.InlineShapes(i).Height 1wM p3  
            l = ChKRange.InlineShapes(i).Width >) ^!gz8  
            If k > MaxShpHeight Then u60l-  
                MaxShpHeight = k
5~? J  
            End If 8vP)qy8  
            TotalShpWidth = TotalShpWidth + l - |'wDf?H  
        Next TP^0`L  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then D.GSl  
            Exit Sub vT~a}  
        End If [)=FZ
F6kG  
    End If A|+{x4s`  
     E0PBdiD6hs  
    '空行 j)5Vv K\  
    If Len(pTEXT) <= 2 Then Y#5S;?bR  
        Exit Sub lqs_7HhvRS  
    End If 1FX-#Y`e  
     *]=)mM#  
         <Jk|Bmw;  
    '是否为表格中的文字 mnia>; 0H  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then 5f5`7uVJF  
        ParaType = "表格内容" #>V;ZV5"  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) j?(QieBH  
        If k = 1 Then 3IxT2@H)  
            ParaType = "表格首行" f<'C<xnf  
        End If +Lr0i_al  
        Exit Sub G#*;3X$  
    End If kgu+q\?  
     \3/9lE|gh  
    '例外情况：脚注 b
+_E)4  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then _Owz%  
        ParaType = "脚注" lo#, zd~  
        Exit Sub yC5|"+ A$  
    End If :U>
oW97l  
     S'e2~-p0F  
    '例外情况：尾注 *%e#)sn*  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then ]9:G
3vq  
        ParaType = "尾注" ^eRuj)$5A  
        Exit Sub @mazwr{B  
    End If koU.`l.  
     "8I4]
'  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then 1XKk~G"D  
        ParaType = "页眉页脚" (qr T0D6  
        Exit Sub g s3}rW  
    End If J@fE")  
     90!Ib~7zH  
     o5R\7}]GE  
    With regEX ^
s*} 0
 
        .Global = True a*8}~p,  
         H6eGLg={  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" {mQJ6 G'ny  
        If regEX.Test(pTEXT) Then FRW.  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") GXl?Zg  
            TitleString = regEX.Replace(pTEXT, "$3") N@$%0!  
            TitleNo = regEX.Replace(pTEXT, "$1") @:@rks&  
            ParaType = "章" Id0F2 [  
            Exit Sub '9gI=/29D  
        End If yiq#p"Hs  
         ~83P09\T%  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" U{Z>y?V/  
        If regEX.Test(pTEXT) Then I
Y&a!  
            ParaType = "一级标题" +*q@=P,  
            regEX.Execute (pTEXT) qr9F  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") on\\;V_/Q  
            TitleString = regEX.Replace(pTEXT, "$3") >>r:L3<!  
            TitleNo = regEX.Replace(pTEXT, "$1") YB|9k)Z2[  
            Exit Sub `dZ|}4[1  
        End If P.:T zk6  
         $%-?S]6)  
        '全角或半角括号中的数字 9vu8koL  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" K/-D 5U  
        If regEX.Test(pTEXT) Then v
(O.GhJ@  
            ParaType = "二级标题" QFYy$T+W  
            regEX.Execute (pTEXT) p3o?_ !Z  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") ^xwFjQXx  
            TitleString = regEX.Replace(pTEXT, "$5") I'C,'  
            TitleNo = regEX.Replace(pTEXT, "$2") :6+~"7T  
            Exit Sub (
YOgQ)},  
        End If 5,Y2Lzr  
         LayU)TIt  
        '阿拉伯数字  1. 2. z"#.o^5  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" M=A9ax  
        If regEX.Test(pTEXT) Then \YS?}! 0  
            ParaType = "三级标题" CmOb+:4@K  
            regEX.Execute (pTEXT) 1c! }, O  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 rWXW}Yg  
            TitleString = regEX.Replace(pTEXT, "$3") 8E+l;2   
            TitleNo = regEX.Replace(pTEXT, "$1") 0Pk-FSY
|f  
            Exit Sub O)R0,OPb
  
        End If }t'^Au`X  
         %K7}yy&9C  
        '全角或半角括号中的阿拉伯数字 M}Mzm2d#`  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" ULjzhy+(8  
        If regEX.Test(pTEXT) Then (% P=#vZ  
            ParaType = "四级标题" cIp h$@  
            regEX.Execute (pTEXT) d#Ajb  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") wrU[#g,uvr  
            TitleString = regEX.Replace(pTEXT, "$5") A h6x2(:  
            TitleNo = regEX.Replace(pTEXT, "$2") 8.':pY'8"  
            Exit Sub pg)g&ifKl  
        End If [Bo$?  
         o{p_s0IX;S  
        '表格名称 A\)X&vR[6  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" 3D0I5LF&  
        If regEX.Test(pTEXT) Then @
UJmbD{  
            ParaType = "表格标题" MV}]i@V  
            regEX.Execute (pTEXT) ^@2Vh*k  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) :N}KScS|Wa  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) ErC[Zh"''  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) 6]S.1BP  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 (&,R1dLo  
            Exit Sub GB3B4)cX4Y  
        End If HV.7IyBA^  
         `uHpj`EU  
        '图片名称 l0{DnQA>I  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" +kL(lBv'  
        If regEX.Test(pTEXT) Then Tt|6N*b'  
            ParaType = "图片标题" ?xZmm%JF  
            regEX.Execute (pTEXT) N}G (pq}  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") sBnPS[Oo  
            TitleString = regEX.Replace(pTEXT, "$3") k;5}@3iQ  
            TitleNo = regEX.Replace(pTEXT, "$1") G65N:  
            Exit Sub
E,@UM$alP  
        End If Rjl__90  
         ` t&;Yk]-L  
        '参考文献 [B`P]}gL:  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 H)Ge#=;ckQ  
        If regEX.Test(pTEXT) Then _4$DnQ6&  
            ParaType = "文献条目" #+0R!Y  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") vM/v}6;_K2  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") Fr3t[:D  
            Exit Sub C6~dN&q  
        End If
$lA,{Q  
         nif'l/@"  
        prfx = Left(pTEXT, 2) I:<R@V<~#  
        If prfx = "注：" Or prfx = "注:" Then UAZ&*{MM^  
            ParaType = "图表注解" ;7k7/f:  
            Exit Sub CaBS0' n  
        End If 4 G[ hU4L  
         RzQS@^u*F0  
         rbbu
SI  
        ParaType = "正文" @/L. BfTz  
         >iN%Uz  
    End With Pl
tju4.:C  
End Sub sEyl\GL  
{2^@jD  
Sub ConvertListToOrdinary() &NeYKh?  
    Dim st As Paragraph 5i#w:O\cz  
    With ActiveDocument I>Q,]S1h  
        For i = .Paragraphs.Count To 1 Step -1 +=Wdn)T  
            Set st = .Paragraphs(i) 9G+rxyWMW  
            lst = st.Range.ListFormat.ListString /H@")je  
            If lst <> "" Then ~+yo;[1Yc  
                st.Range.ListFormat.RemoveNumbers o q)"1  
                st.Range.InsertBefore lst & " " wtS*w  
            End If ZiYzsn  
        Next T(^8ki  
    End With V JL;+  
    Set st = Nothing 5Suc#0y  
End Sub GuvF    
l$_rA~Mo  
Private Sub UserForm_Activate() 79g>7<vp  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" GQq'~Lr5  
    Me.lbTotal.Font.Bold = True T l(uqY?9  
    Me.txtStatus.Visible = False /ASI0h  
    Me.cmdCheck.Enabled = True uTGvXKL7  
n9!3h?,g  
End Sub
WI_mJ/2  
d/rz0L  
mp3_n:R?  
Sub CheckSuperScript() PSS/JFZ^  
    Selection.Find.ClearFormatting 8T )ELhTj  
    Selection.Find.Replacement.ClearFormatting '/g+;^_cB  
    With Selection.Find .6o y>4  
        .Text = "[【\[［〖](*)[】\]〗］]" Fj t,  
        .Replacement.Text = "[\1]" Zb;$
ZUWQX  
        .Replacement.Font.Superscript = True )%w8>1}c  
        '.Replacement.Font.Color = wdColorBlue e~]e9-L>I  
        .Forward = True ya g  
        .Wrap = wdFindContinue yuDd% 1k  
        .FORMAT = True {NgY8wQB  
        .MatchCase = False .fY<"2g  
        .MatchWholeWord = False :~R Fy?xRa  
        .MatchByte = False &W// Ox )f  
        .MatchAllWordForms = False >0#q! H,X  
        .MatchSoundsLike = False h\\2r>  
        .MatchWildcards = True #-j! ;?  
    End With JBAK* g  
    Selection.Find.Execute Replace:=wdReplaceAll WV"QY/e3  
End Sub [(E H  
VQMd[/  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) b2%bgs  
    bContinue = False O \8G~V 5"  
    Set regEX = Nothing _kX/LR"L+  
End Sub J&65B./mD9  
|S`yXsg  
Sub CeateOrModifyStyle() +\vY;!^  
' bI6wE'h  
' @k6}4
O?{  
Dim stl As Style ULmdt   
     .e
B"la|d  
    Options.Pagination = False @i-@mxk6<  
     4Xk ;Qd  
    On Error Resume Next FKnQwX. 0  
    For Each stl In ActiveDocument.Styles %&+R":Bw  
        stl.Delete 4~YQ\4h=  
    Next 6v O)s!b  
    On Error GoTo 0 L$c%u
 
     {}&f\6OI%  
    Set stl = Nothing 4Olv8nOe<  
     EiP&Y,vT  
    DoEvents R${4Q1  
    On Error Resume Next )"jn{%/t  
     '4lT*KN7\  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph QYw4kD}  
     ikG9l&n  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph Tc5OI'-V  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph edk9Qd9  
     ?V:]u
3  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph ,h.Jfo54,  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph [3sxzU!t~  
     o\;"|O}  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph BBE1}V!u  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph ~V"cLTj"  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph {&u7kWD|  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph (`.qG &6p  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph c&?a,fpb  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph NG!cEo:2aa  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph <;0N@   
     X8n/XG~_  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph s1 ^mk]  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph Hs-.83V  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph C"Q=(3  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph !2U7gVt
"*  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph \I
f!5N  
     NF(IF.8G  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph @j2*.ee  
    On Error GoTo 0 -L 3 | 9k  
    DoEvents `m;"I  
     Yn]yd1  
    'BaseStyle ^npS==Y]!.  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False s5aOAyb*w  
    With ActiveDocument.Styles("BaseStyle").Font To{G#QEgG  
        .NameFarEast = "宋体" 7a]Zws  
        .NameAscii = "Times New Roman" "q>I?UcZ  
        .NameOther = "宋体" G[<[#$(  
        .Size = 10.5 .O%1)p  
        .Bold = wdUndefined !^bB/e  
        .Italic = wdUndefined f(s3TLM  
        .Subscript = wdUndefined ]op^dW1;0_  
        .Subscript = wdUndefined FoD/
Q  
         ],}afa!A  
        .Underline = wdUnderlineNone ~eOj:H  
        .UnderlineColor = wdColorAutomatic cc(r,ij~4  
        .StrikeThrough = False m-S33PG{  
        .DoubleStrikeThrough = False 1o~U+s_r  
         <Bb<?7q$ld  
        .Outline = False Vt)\[Tl~  
        .Emboss = False w$[Ds  
        .Shadow = False Fp6[W5>(-  
        .Hidden = False 4OZ5hH h  
        .SmallCaps = False ecqz@*d&  
        .AllCaps = False hB$Y4~T%  
        .Color = wdColorAutomatic QDgEJ
%U-  
        .Engrave = False #JR,C -w  
        .Scaling = 100 9_A0:S9Z  
        .Kerning = 1 2DCcGKa"  
        .Animation = wdAnimationNone Ed0>
R<jR9  
        .DisableCharacterSpaceGrid = False R ms
01m>Y  
        .EmphasisMark = wdEmphasisMarkNone K!D!b'|bb  
    End With $x_52 j\j  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat lPcVhj6No%  
        .LeftIndent = 0 Q'Kik5I  
        .RightIndent = 0 V_A,d8=lt  
        .SpaceBefore = 0 $X=D9 h  
        .SpaceBeforeAuto = False 3auJ^B}  
        .SpaceAfter = 0 Xt,,AGm}  
        .SpaceAfterAuto = False L8w76|  
         {}J@+Zsi  
        .LineSpacingRule = wdLineSpaceSingle u"8;fS  
        .Alignment = wdAlignParagraphJustify U>_\  
         *[1u[H9Cv  
        .WidowControl = False CNRU"I+jU  
        .KeepWithNext = False IL[|CB1v  
        .KeepTogether = False &;h~J S=  
        .PageBreakBefore = False ~UJu @M  
        .NoLineNumber = False PVS<QN%  
         e(;`9T  
        .FirstLineIndent = CentimetersToPoints(0) fByh";<`P  
        .OutlineLevel = wdOutlineLevelBodyText V3A>Ag+^~  
        .CharacterUnitLeftIndent = 0 BUA6(  
        .CharacterUnitRightIndent = 0 &c<}++'h  
        .CharacterUnitFirstLineIndent = 0 Rp`_Grcd  
        .LineUnitBefore = 0 5ih"Nds[H  
        .LineUnitAfter = 0 JfP\
7  
        .AutoAdjustRightIndent = True h6T/0YhWLP  
        .DisableLineHeightGrid = True Z(k\J|&9C  
         ZOrTbik  
        .FarEastLineBreakControl = True q'Pz3/mk  
        .WordWrap = True jPYe_y  
        .Hyphenation = False ic0v*Y$  
         q4
.dLU,1  
        .HangingPunctuation = True |h=+&*(:  
        .HalfWidthPunctuationOnTopOfLine = True ,F`KQ )\"  
        .AddSpaceBetweenFarEastAndAlpha = True ]D) 'I`  
        .AddSpaceBetweenFarEastAndDigit = True K)Xs L  
        .BaseLineAlignment = wdBaselineAlignBaseline R|)2Dg  
    End With OBw`!G*w  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False 'K@{vB  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll [ 4Y `O  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese C=dx4U~   
    ActiveDocument.Styles("BaseStyle").NoProofing = False [N95.aD  
     nc\C4g  
    '一级标题题样式 PZ!dn%4jy  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 0nD=|W\@{  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" ,JQxs7@2k  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False s{z~Axup-  
    With ActiveDocument.Styles("QLNU一级标题").Font ZP63Alt  
        .NameFarEast = "黑体" igj={==m  
        .NameAscii = "Arial Black" 7tfivIj)e  
        .NameOther = "黑体" IzGB  
        .Name = "黑体" 3gI[]4lRH  
        .Size = 16              '三号 4/`h@]8P  
        .Bold = True rTsbP40  
        .Italic = wdUndefined e
:GgA  
        .Subscript = wdUndefined {r].SrW9s9  
        .Superscript = wdUndefined 3b?OW7H  
    End With }@:QYTBi }  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat >\?z37:T  
         }rY?=I  
        .LeftIndent = CentimetersToPoints(0) csdOIF  
        .RightIndent = CentimetersToPoints(0) -wfRR>)d  
        .FirstLineIndent = CentimetersToPoints(0) QL B1:O>  
         @`kiEg'Q  
        .LineSpacingRule = wdLineSpaceSingle # +QWi0B  
        .Alignment = wdAlignParagraphCenter inPdV9  
         -#S)}NEn  
        .WidowControl = True Bd[L6J)  
        .KeepWithNext = True C7jc6(>m  
        .KeepTogether = True 4g6ksdFQ  
        .OutlineLevel = wdOutlineLevelBodyText aZawBU.:  
         ;la#Vf:]  
        .LineUnitBefore = 0.5 H7yg9zFT N  
        .LineUnitAfter = 0.5 NO+ 55n  
    End With y3KcM#[  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False AJ#m6`M+EK  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll EOBs}M
;  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese =##s;zj(%  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True s?@)a,C%k  
    DoEvents /[20e1 w!  
     iO9nvM<  
    '二级 $p0 /6c  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") jr[<i\!  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" L

*UV  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False `j}_BW_  
    With ActiveDocument.Styles("QLNU二级标题").Font da00p-U  
        .NameFarEast = "黑体" o/dMm:TF  
        .NameAscii = "Arial Narrow" 'Wf?elB+  
        .NameOther = "黑体" R*Xu(89  
        .Name = "黑体" K{zCp6  
        .Size = 15        '小三号 ^)hAVf~E  
        .Bold = False ?}=-eJ(7e  
        .Outline = False G+hF [b44'  
        .Italic = wdUndefined Tbi]oB#  
        .Subscript = wdUndefined yWv<A^C&  
        .Superscript = wdUndefined iBKb/Oi6  
    End With S7UZGGjTk  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat h5&
/hBN  
        .LeftIndent = CentimetersToPoints(0) 62MRI  
        .RightIndent = CentimetersToPoints(0) XJ:>UNf5;  
        .FirstLineIndent = CentimetersToPoints(0) F%PwIB~cy  
         CrNwALx  
        .LineSpacingRule = wdLineSpaceSingle cZDxsd]  
        .Alignment = wdAlignParagraphLeft uOG-IHuF  
         Y(hW(bd;  
        .WidowControl = True %R.xS} Q  
        .KeepWithNext = True $c@w$2  
        .KeepTogether = True 'nlRY5@2  
        .PageBreakBefore = False w*<Y$hnBzF  
        .OutlineLevel = wdOutlineLevelBodyText wUK7um  
         |%'6f}fnE  
        .LineUnitBefore = 0.5 m1hW<  
        .LineUnitAfter = 0.5 j!lAxlOX  
         _}I(U?Q-C  
    End With Zp7yaz3y  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False b(}Gm@#  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll XdGpW   
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese jF38kj3O7  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True S(>@:`=  
    DoEvents X!7VyE+n  
     /lS+J(I  
    '三级标题样式 q:Y6fbt<7  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") C5PmLiOHY>  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" VDByj "%  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False <2)s<S.;  
    With ActiveDocument.Styles("QLNU三级标题").Font |RR
%bQ^{  
        .NameFarEast = "宋体" e}'#Xv
 
        .NameAscii = "Times New Roman" KMK&[E#r  
        .NameOther = "黑体" poXLy/K  
        .Name = "黑体" zd*3R+>U'>  
        .Size = 14               '四号 VG<Hw{ c3r  
        .Bold = False 2gd<8a''  
        .Outline = False Ic[}V0dk  
        .Italic = wdUndefined YH)Opk  
        .Subscript = wdUndefined Gh]_L+  
        .Superscript = wdUndefined jFuC=6aF  
    End With 9TVB<}0G  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat x7P([^i  
        .LeftIndent = CentimetersToPoints(0) J+)'-OFt0  
        .RightIndent = CentimetersToPoints(0) fg9?3x Z  
        .FirstLineIndent = CentimetersToPoints(0) > $w^%I  
         N+CXOI=6x  
        .LineSpacingRule = wdLineSpaceSingle ,&.W6 sW  
        .Alignment = wdAlignParagraphLeft HYjMNj0  
         >H0) ph  
        .WidowControl = True %6NO0 F^  
        .KeepWithNext = True f{y]  
        .KeepTogether = True w~kHQ%A  
        .PageBreakBefore = False 2E`~
qn  
        .OutlineLevel = wdOutlineLevelBodyText Si?$\H*:  
         ~Na=+}.q_  
        .CharacterUnitLeftIndent = 0 hWq.#e6  
        .CharacterUnitRightIndent = 0 G3RrjWtO  
        .CharacterUnitFirstLineIndent = 2 "t[M'[ `C  
         y4xT:G/M  
        .LineUnitBefore = 0.5 6 X@mPj[/  
        .LineUnitAfter = 0 lQV|U;~D  
    End With 4GG1E. z}  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False . O5LI35,  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll X5uS>V%/  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese AVXX\n\_  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True 87QZun%  
    DoEvents le7 `uz!%  
     tmO;:n<N  
    '四级标题样式 O^.%C`*  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") *:=];1O  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" G1kaF/`O  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False U/T4i#  
    With ActiveDocument.Styles("QLNU四级标题").Font kCima/+_  
        .NameFarEast = "宋体" t6'61*)|0  
        .NameAscii = "Times New Roman" H-eEhI(;O  
        .NameOther = "宋体" hq/J6 M  
        .Name = "宋体" Qs|OG  
        .Size = 12               '小四号 T*h!d(  
        .Bold = True iD>G!\&  
        .Outline = False AIuMX4nb  
        .Italic = wdUndefined ss?]  
        .Subscript = wdUndefined X^zYQ6t  
        .Superscript = wdUndefined :8p&#
M  
    End With UF@IBb}
0  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat v~^ks{  
         aB6Ye/Io  
        .LeftIndent = CentimetersToPoints(0) Vh"MKJ'R^  
        .RightIndent = CentimetersToPoints(0) 1&"-*)  
        .FirstLineIndent = CentimetersToPoints(0) 79)A%@YHQQ  
         <Ctyht0c.  
        .LineSpacingRule = wdLineSpaceSingle _9D|u<D  
        .Alignment = wdAlignParagraphLeft %mY|  
         H4M{_2DO  
        .WidowControl = True Wgxn`6  
        .KeepWithNext = True s~S?D{!  
        .KeepTogether = True 5^)?mA  
        .PageBreakBefore = False P3'2IzNw  
        .OutlineLevel = wdOutlineLevelBodyText `WH[DQ  
         \'n$&PFe  
        .CharacterUnitLeftIndent = 0 G/ v|!}?wG  
        .CharacterUnitRightIndent = 0 ZlthYuJ  
        .CharacterUnitFirstLineIndent = 2 ^C!mCTL1N  
         SHMl%mw  
        .LineUnitBefore = 0 \,>_c  
        .LineUnitAfter = 0 ]e^R@w  
         ^9&b+u=X  
    End With x!'7
yx  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False p/r~n'g$  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll [^<SLTev  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese  X?tj$  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True TE3*ktB{N
 
    DoEvents B{s]juPG  
     pG/ NuImA  
    '正文校式 @Z?7E 8(  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") ;aq`N}d  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" 7^ 4jcfJH  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False ecn}
iN  
    With ActiveDocument.Styles("QLNU正文").Font Ci;h  
         O$a#2p&  
        .NameFarEast = "宋体" 2 9q?$V(  
        .NameAscii = "Times New Roman" N<9w{zIK(  
        .NameOther = "宋体" Mv|vRx^b  
        .Name = "宋体" A#<vG1  
         31WZJm^  
        .Size = 12               '小四号 9160L qY  
         5^\m`gS  
        .Bold = wdUndefined <5dH *K  
        .Italic = wdUndefined vFTXTbt'h  
        .Subscript = wdUndefined I0!j<G  
        .Superscript = wdUndefined zQ,f5x  
         M]c7D`%s  
        .Outline = False Yt -W1vl  
        .Emboss = False e#tIk;9Xz  
        .Shadow = False )))2fskZ  
        .Hidden = False @gNpJB]V  
         XJe/tR  
        .DisableCharacterSpaceGrid = True g^1r0.Sp{8  
    End With :Df)"~/mO+  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat cv3L&zg M  
         ^w>&?A'!  
        .LeftIndent = CentimetersToPoints(0) d-~vR(tU  
        .RightIndent = CentimetersToPoints(0) r,5-XB  
        .FirstLineIndent = CentimetersToPoints(0) p~h4\.*`  
         ;t}'X[U  
        .LineSpacingRule = wdLineSpaceExactly sp|q((z{  
        .LineSpacing = 20 Q/p(#/y#b  
        .Alignment = wdAlignParagraphLeft brntE:  
         =M/qV  
        .WidowControl = False y =R aJm  
        .KeepWithNext = False |VK:2p^ u  
        .KeepTogether = False MF
v Si  
        .PageBreakBefore = False }d_<\  
        .Hyphenation = False C1 W>/?XC  
         b ZiyapM  
        .OutlineLevel = wdOutlineLevelBodyText H ZPcd_(  
         djUihcqA`  
       XTV0Le\
f  
        .CharacterUnitLeftIndent = 0 t
y B)HF  
        .CharacterUnitRightIndent = 0 ~L~]QN\3  
        .CharacterUnitFirstLineIndent = 2 qk&gA}qF  
         1YFeVMc  
        .LineUnitBefore = 0 dgXg kB'  
        .LineUnitAfter = 0 s}wO7Df=+  
        .SpaceBefore = 0 _ j~4+ H  
        .SpaceAfter = 0 I-,>DLG  
         ei@3,{~5  
        .DisableLineHeightGrid = True qmEo qU  
    End With 'GkvUrD9D$  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False `aIG;@
Z  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll ^]VcxKUJ  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese T)8p:}P!  
    ActiveDocument.Styles("QLNU正文").NoProofing = True V"O9n[|  
    DoEvents B~?c3:6  
     >)LAjwhBp  
    '图片段落样式 KGu= ;  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") aVP5%  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" d<#p %$A4  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False Jz0K}^Dj[  
    With ActiveDocument.Styles("QLNU图片段落").Font D3y>iQd
  
        .Size = 12               '小四号 D ZVXz|g  
        .Italic = wdUndefined z=qWJQ  
        .Subscript = wdUndefined ?1CJf>B>  
        .Superscript = wdUndefined Vb2\/e:k  
    End With K5{{:NR$  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat !nwbj21%  
         6J\q`q(W(  
        .LeftIndent = CentimetersToPoints(0) .:8[wI_f  
        .RightIndent = CentimetersToPoints(0) >5.zk1&H  
        .FirstLineIndent = CentimetersToPoints(0) L;3aZt,#O  
         M+0x;53nz  
        .LineSpacingRule = wdLineSpaceSingle okz]Qc>G  
        .Alignment = wdAlignParagraphCenter glx2I_y  
        .KeepWithNext = True pajy#0 U  
        .OutlineLevel = wdOutlineLevelBodyText }t
\ 10nQ  
         AuAT]`  
        .CharacterUnitLeftIndent = 0 p'}lN|"{O  
        .CharacterUnitRightIndent = 0 #7o0dE;Kg9  
        .CharacterUnitFirstLineIndent = 0 ?;^5ghY$  
         &3I$8v|!?  
        .LineUnitBefore = 0 ilv_D~|  
        .LineUnitAfter = 0 e8{^f]5  
    End With ehE-SrkU'  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False :9`qogF>  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll (etUEb^}T  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese uoHqL IpQ  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True  DwXU  
    DoEvents JA<~xo[Q9  
     !N1J@LT5h  
     S;8.y
j-  
    '第X章 (xL :;  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") VG)= "g[%)  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" Oxv+1Ub<Dv  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False 3T1P$E" m  
    With ActiveDocument.Styles("QLNU章节标题").Font =5ug \S  
        .NameFarEast = "黑体" bEd?^h  
        .NameAscii = "Arial Black" .Vmtx  
        .NameOther = "Arial Black" Y'' 6NGf  
        .Name = "黑体" kbhX?; <`  
        .Size = 16 .a,(pq Jg  
        .Bold = True M6_-f ;.  
        .UnderlineColor = wdColorAutomatic Lyr2(^#:  
        .Outline = False ds] ?;l"  
        .Italic = wdUndefined I
r27Z P  
        .Subscript = wdUndefined LJWTSf"f?  
        .Superscript = wdUndefined ^!}F%  
        .Scaling = 100 z?kd'j`FG  
        .DisableCharacterSpaceGrid = True yX'IZk#_L  
    End With Ihg~Q4t  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat ]YsR E>  
        .LineSpacingRule = wdLineSpaceSingle Z(HZB
  
        .Alignment = wdAlignParagraphCenter kon5+g9q  
        .WidowControl = True 0~]QIdu{AR  
        .KeepWithNext = True Ukc'?p,*  
        .KeepTogether = True b/nOdFO@  
        .PageBreakBefore = True 1i3V!!r  
        .OutlineLevel = wdOutlineLevelBodyText K_>/lirE?  
         gLD{1-v  
        .LeftIndent = CentimetersToPoints(0) vL$|9|W(  
        .RightIndent = CentimetersToPoints(0) ^X&)'H  
        .FirstLineIndent = CentimetersToPoints(0) pDOM:lGya  
         f>niFPW"  
        .CharacterUnitLeftIndent = 0 =&2$/YX0D  
        .CharacterUnitRightIndent = 0 Y 9i][  
        .CharacterUnitFirstLineIndent = 0 b+Vi3V  
         E?Cj/o  
        .LineUnitBefore = 1 y\#o2PVmY  
        .LineUnitAfter = 0.5 i=L8=8B`  
         $6!iBX@  
        .AutoAdjustRightIndent = False j&CZ=?K^c  
        .DisableLineHeightGrid = True b =b:  
        .FarEastLineBreakControl = True hM>*a!)U  
        .WordWrap = True Xhse~=qA  
    End With H* /&A9("  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False .E$q&7@/j  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll {2:d`f qD  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese #V[SQ=>x[  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True W`x)=y]Z  
    DoEvents 6R 2uW v  
     >S'>
!w  
    '表格标题 Szts<n5  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") +9zA^0  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" ~^$MA$/p  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False G#0,CLGN^  
    With ActiveDocument.Styles("QLNU表格标题").Font /UHp [yod  
        .NameFarEast = "楷体" =Z`0>R`  
        .NameAscii = "Arial" BFh
$.+D  
        .Name = "楷体" 43L|QFo  
        .Size = 10.5 @6b[GekZ<  
        .Bold = True t8vc@of$c,  
        .Underline = wdUnderlineNone -NzTqLBn
 
        .Italic = wdUndefined TKOP;[1h  
        .Subscript = wdUndefined y9!:^kDI  
        .Superscript = wdUndefined < HF-2?`  
        .Color = wdColorAutomatic ?E7=:h(@t  
    End With sJ~P:g  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat "0-y*1/m  
         M/#U2!iFk  
        .LineSpacingRule = wdLineSpaceSingle R hio7C  
        .Alignment = wdAlignParagraphCenter -!TcQzHUs  
        .KeepWithNext = True EwQae(PpA  
        .KeepTogether = True EkZjO Ci  
        .OutlineLevel = wdOutlineLevelBodyText Ea]T>4  
         tpo>1|  
        .LeftIndent = CentimetersToPoints(0) F\LsI;G  
        .RightIndent = CentimetersToPoints(0) h<% U["   
        .FirstLineIndent = CentimetersToPoints(0) QKccrAo  
         F;kvH  
        .CharacterUnitLeftIndent = 0 L/x(RCD  
        .CharacterUnitRightIndent = 0 o/1JO_41  
        .CharacterUnitFirstLineIndent = 0 6m[9b*s7  
         ffk4mhH  
        .LineUnitBefore = 1 +"uwV1)b"  
        .LineUnitAfter = 0 Pm^lr!3p  
         >vVw!.fJ  
    End With f`|G]da-3o  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False j"hASBTgp  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll ~ziexZ=N  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese }0;Sk(B>  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True SF< [FM%1  
    DoEvents S+ebO/$>  
$XGtS$  
    '表格首行 DA=1KaJ.  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") JIxiklk  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False {eR9 ;2!  
    With ActiveDocument.Styles("QLNU表格首行").Font _| <BF  
        .NameFarEast = "楷体" *1bzg/T<  
        .NameAscii = "Times New Roman" jNc<~{/  
        .Name = "楷体" s.:r;%a  
        .Size = 9 )0-o%- e  
        .Bold = True Wc|z7P~',%  
        .Underline = wdUnderlineNone c'05{C  
        .Italic = wdUndefined .z
SD`v@[  
        .Subscript = wdUndefined ?3jdg]&  
        .Superscript = wdUndefined )gXTRkmw  
    End With T3z(k la  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat XLb0 9;  
        .LineSpacingRule = wdLineSpaceSingle eYEc^nC,c)  
        .Alignment = wdAlignParagraphCenter e4[) WNR  
         C:GvP>  
        .LeftIndent = CentimetersToPoints(0) 4RQ5(YTTuR  
        .RightIndent = CentimetersToPoints(0) fsvYU0L  
        .FirstLineIndent = CentimetersToPoints(0) Pp*}R2  
         G{o+R]Us  
         Tpzw=bC^  
        .CharacterUnitLeftIndent = -0.5 H$tb;:  
        .CharacterUnitRightIndent = -0.5 Q2c*.Y  
        .CharacterUnitFirstLineIndent = -0.5 (Es{la G  
         d#\W hRE  
        .LineUnitBefore = 0 xR908+>5  
        .LineUnitAfter = 0 :3?|VE F  
        .SpaceBefore = 0 @!\K>G >9[  
        .SpaceAfter = 0 16$y`~c-z  
         `^##b6jH  
    End With !kXeO6X@m  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False @ Nb%L&=P8  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll |4Ha?W  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese A*'V+(  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True gj+3y9  
    DoEvents (F8AL6  
*{5>XH{ x  
    '表格内容 *IZf ^-=Q  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") 8#59iQl  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False (X}@^]lpa  
    With ActiveDocument.Styles("QLNU表格内容").Font R0<<
f]  
        .NameFarEast = "楷体" (1){A8=?o  
        .NameAscii = "Times New Roman" 1V%'.l9  
        .Name = "楷体" s, XM9h>P4  
        .Size = 9 \L[i9m|e  
        .Bold = False bGv4.:)  
        .Underline = wdUnderlineNone U8O(;+  
        .Italic = wdUndefined n+oD C65[  
        .Subscript = wdUndefined A}G|Yfn  
        .Superscript = wdUndefined 1S%}xs R0  
    End With ( v@jc8 y  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat -_~)f{KN@  
        .LineSpacingRule = wdLineSpaceSingle H?U't 09  
        .Alignment = wdAlignParagraphCenter 5 =Z!hQ}  
         <4mQ*6  
        .LeftIndent = CentimetersToPoints(0) \F ifzKA  
        .RightIndent = CentimetersToPoints(0) ~m`!;rE  
        .FirstLineIndent = CentimetersToPoints(0) ^\wl2  
        
FC}oL"kk  
        .CharacterUnitLeftIndent = -0.5 0YS?=oi  
        .CharacterUnitRightIndent = -0.5 iV hJH4  
        .CharacterUnitFirstLineIndent = -0.5 ~HDdO3  
        .LineUnitBefore = 0 h^M^7S  
        .LineUnitAfter = 0 >;nS8{2o  
        .SpaceBefore = 0 dWR1cvB(wY  
        .SpaceAfter = 0 )}-
$A-p#  
    End With @J vZ[T/  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False i&Kz*,pt  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll k^%_V|&W/(  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese nY^Nbh0  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True ',mW`ZN  
    DoEvents CBHc A'L  
;[6&0!N\  
    '图片标题 s[ c^"@HT  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") _e'Y3:  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" k'+}9
2 o  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False E _iO@  
    With ActiveDocument.Styles("QLNU图片标题").Font jJ++h1 K  
        .NameFarEast = "楷体" <k]qH-v4  
        .NameAscii = "Times New Roman" 8QF`,o
XQO  
        .Name = "楷体" TnE+[.Qu  
        .Size = 10.5 i2`0|8mw'  
        .Bold = True uD)-V;}P@;  
        .Underline = wdUnderlineNone +R[4\ hC0Y  
        .Italic = wdUndefined r4;Bu<PQN1  
        .Subscript = wdUndefined W9R`A  
        .Superscript = wdUndefined ("Dv>&w9  
        .Outline = False n q;#_Rkr  
        .Shadow = False _V@P-Ye  
        .Color = wdColorAutomatic 8D~x\!(p\  
    End With z\.1>/Z=  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat !R:y'Y%j  
        .LineSpacingRule = wdLineSpaceSingle k dU! kj  
        .Alignment = wdAlignParagraphCenter tWD|qg _  
         *gu8-7'  
        .KeepWithNext = wdUndefined V( mnyI  
        .KeepTogether = True O9]\Q@M.  
        .OutlineLevel = wdOutlineLevelBodyText ek)Xrp:2  
         i'tp1CI  
        .LeftIndent = CentimetersToPoints(0) 2)\vj5<~$  
        .RightIndent = CentimetersToPoints(0) )U(u>SV(\  
        .FirstLineIndent = CentimetersToPoints(0) @@}`hii  
         h~miP7,c<u  
        .CharacterUnitLeftIndent = 0 Y<LNQ]8\G  
        .CharacterUnitRightIndent = 0 [7W(NeMk  
        .CharacterUnitFirstLineIndent = 0 8tQ|-l*  
         1D{#rA.X  
        .LineUnitBefore = 0 UR3$B%i  
        .LineUnitAfter = 0 U9ZbVjqv@  
    End With s AE9<(g&@  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False 0BTLcEqgZ  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll P5URvEnz:  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese +d
39f-[  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True ((MLM3zJ  
    DoEvents ;f%|3-q1[  
F?4Sz#  
    '目录项 V5MO}  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") *fhX*e8y  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" p4mY0Y]mP  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False I@./${o  
    With ActiveDocument.Styles("QLNU目录项").Font FH\CK  
        .NameFarEast = "黑体" R&So4},B  
        .NameAscii = "Times New Roman" Do;#NLrWb  
        .NameOther = "Times New Roman" JTUN
b'#RZ  
        .Name = "黑体" Rd! 2\|  
        .Size = 10.5 *Bw#c j  
        .Bold = False {Y_Nj`#BT  
        .Italic = wdUndefined \Ph7(ik  
        .Underline = wdUnderlineNone x9V {R9_gf  
        .Color = wdColorAutomatic ./w{L"E  
        .Superscript = wdUndefined p
m]fQuq  
        .Subscript = wdUndefined KQ)T(mIqp  
    End With ^:DyT@hQB5  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat V}9;eJRvw  
         Q}P-$X+/ n  
        .LineSpacingRule = wdLineSpaceSingle Z
?1OdoT-  
        .Alignment = wdAlignParagraphLeft /V^sJ($V$~  
         - L ~ Uu^o  
        .WidowControl = False w0Ij'=:  
        .KeepWithNext = False Qpu3( `d<  
        .KeepTogether = False uec|S\~M  
        .PageBreakBefore = False D4Sh9
:\  
        .NoLineNumber = False -:]@HD:  
        .OutlineLevel = wdOutlineLevelBodyText %v4 [{ =fE  
         l{%a&/  
        .LeftIndent = CentimetersToPoints(0) #IX&9 aFB}  
        .RightIndent = CentimetersToPoints(0) $G[KT):N  
        .FirstLineIndent = CentimetersToPoints(0) !_^g8^>2(  
         {;k_!v{  
        .CharacterUnitLeftIndent = 0 \4s;! R!  
        .CharacterUnitRightIndent = 0 7~vqf3ON4J  
        .CharacterUnitFirstLineIndent = 0 K`4GU[ul  
         kwar}:`  
        .LineUnitBefore = 0 f\}22}/  
        .LineUnitAfter = 0
*K)0UKBr  
    End With yJ/#"z=h?  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False u~'OcO  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll bUvK  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot /77z\[CeYH  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese ~@fR[sg<  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True pP\h6b+B  
    DoEvents .#! mDlY;  
     `K?1L{p'4  
    '参考文献 Q]\j>>  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") 2R`u[  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle"
\ X$)vK  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False _A-V@%3  
    With ActiveDocument.Styles("QLNU参考文献").Font y
Nva1I  
        .NameFarEast = "宋体" &O tAAE  
        .NameAscii = "Times New Roman" OoaY  
        .NameOther = "Times New Roman" AMTslo  
        .Name = "Times New Roman" j=j+Nf$  
        .Size = 12 `P.CNYR<J  
        .Bold = False ;|30QUYh  
        .Italic = wdUndefined CEqZ:c  
        .Subscript = wdUndefined iz`jDa Q|1  
        .Superscript = wdUndefined 295w.X(J
 
        .Underline = wdUnderlineNone &;v!oe   
        .UnderlineColor = wdColorAutomatic cU+>|'f&  
        .Color = wdColorAutomatic "{( [!  
        .Engrave = False [hU=mS8=^  
    End With Bp3 L>AcVu  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat t _\MAK  
         (6k>FSpg  
        .LineSpacingRule = wdLineSpaceExactly yWHne~!  
        .LineSpacing = 16 I,j3bC  
        .Alignment = wdAlignParagraphLeft :_H>SR:  
        .WidowControl = False 3w'W~  
        .KeepWithNext = False x/I;nMY  
        .KeepTogether = False ]kS7n@8  
        .PageBreakBefore = False H#+xKYrp  
        .OutlineLevel = wdOutlineLevelBodyText w3bIb$12  
         0&$xX!]  
        .LeftIndent = CentimetersToPoints(0) ou6j*eSN  
        .RightIndent = CentimetersToPoints(0) K-4td C3  
        .FirstLineIndent = CentimetersToPoints(0) =|0/Ynfe  
         ]u=Ca#!
'  
        .CharacterUnitLeftIndent = 0 5Y-2 #  
        .CharacterUnitRightIndent = 0 UC| JAZL  
        .CharacterUnitFirstLineIndent = -2 lzfDH=&  
         r}EM4\r  
        .LineUnitBefore = 0 Hsl{rN  
        .LineUnitAfter = 0 0j$OE  
        .SpaceBefore = 0 :qnokrGzB  
        .SpaceAfter = 0 jo0Pd_W8&  
         FpzP#;  
    End With sqG`"O4W  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False kCp)!hV
Q  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll D5`(}  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS S=O$JP79  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True P<L&c_u  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese JZ K7uB,X  
    DoEvents $4Y&j}R  
J px'W  
    ' F+*Q <a4  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") W5/};K\.  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" C*G/_`?9  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False U;gp)=JNT  
    With ActiveDocument.Styles("QLNU论文题目").Font 0yTQ{'Cc  
        .NameFarEast = "黑体" k7T alR  
        .NameAscii = "Arial Black" D rTM $)  
        .NameOther = "Arial Black" O+FBQiv  
        .Name = "Arial Black" a#QByP  
        .Size = 16 a: IwA9!L  
        .Bold = False GCH[lb>IJv  
        .Italic = wdUndefined C1 {ZW~"YI  
        .Superscript = wdUndefined XRa#21
pQ  
        .Subscript = wdUndefined x
jrlc9  
        .Underline = wdUnderlineNone {!t=n
 
        .UnderlineColor = wdColorAutomatic S'@=3)  
        .Color = wdColorAutomatic o)!m$Q~v  
[&daG:  
    End With .e$%[)D  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat >zR14VO`_|  
        .LineSpacingRule = wdLineSpaceSingle iGa}3 pF  
        .Alignment = wdAlignParagraphCenter i+AUQ0Zbf6  
        .WidowControl = True  XnA6/^  
        .KeepWithNext = True sVoR?peQ  
        .KeepTogether = True pqq?*\W&[v  
        .PageBreakBefore = True %EoH4LzT  
        .NoLineNumber = False [;@):28"  
        .OutlineLevel = wdOutlineLevelBodyText hVZo"XUb  
         x@Vt[}e  
        .LeftIndent = CentimetersToPoints(0) %uuH^A  
        .RightIndent = CentimetersToPoints(0) ~04[KG  
        .FirstLineIndent = CentimetersToPoints(0)  tgW kX  
         W.$6pzB(  
        .CharacterUnitLeftIndent = 0 ,s? dAy5  
        .CharacterUnitRightIndent = 0 0||F`24  
        .CharacterUnitFirstLineIndent = 0 J@<!q  
         VN+\>j-  
        .LineUnitBefore = 1 kW(Kh0x  
        .LineUnitAfter = 1 KpGUq0d@  
         z1Q2*:)c  
        .BaseLineAlignment = wdBaselineAlignAuto _BwKY#09Zp  
    End With %~\  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False UoRDeYQ`E  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll 4W-"|Z_x  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS [R\=M'  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True !x_t`78T  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese wA",SBGX  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True 7@~QkTH~y  
    DoEvents H:Lt$  
     .C?GW1[c~@  
    '中文摘要 ' =}pxyg  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") ,D8&
q?a  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" yjd(UWE  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False %,;gP.dh7  
    With ActiveDocument.Styles("QLNU中文摘要").Font % ^!a B  
        .NameFarEast = "宋体" GBr,LN  
        .NameAscii = "Times New Roman" `Sx .|`x8  
        .NameOther = "Times New Roman" >{F!ntEj  
        .Name = "Times New Roman" [`9^QEj  
        .Size = 12 QQ~23TlA  
        .Bold = wdUndefined +"Ub/[J{G1  
        .Superscript = wdUndefined `sxN!Jj?  
        .Subscript = wdUndefined `WlH*p)z9  
        .Italic = wdUndefined V4
\560  
        .Underline = wdUnderlineNone 1M/$< kQ-N  
        .UnderlineColor = wdColorAutomatic InN{^uN  
        .Color = wdColorAutomatic |hD~6a  
    End With j%5a+(H,z;  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat /f]/8b g>  
        .LineSpacingRule = wdLineSpaceExactly ]b)!YPo  
        .LineSpacing = 20 J7m`]!*t  
        .Alignment = wdAlignParagraphLeft hiIyaWU  
         , QA9k$`  
        .WidowControl = False mR,O0O}&  
        .KeepWithNext = False +,wWhhvlzv  
        .KeepTogether = True ^Po,(iIn  
        .PageBreakBefore = False k-vA#  
        .NoLineNumber = False ZM 8U]0[X  
        .OutlineLevel = wdOutlineLevelBodyText e?1KbJ?.  
         yU!GS-
  
        .LeftIndent = CentimetersToPoints(0) GoL|iNW`  
        .RightIndent = CentimetersToPoints(0) %-r?=L  
        .FirstLineIndent = CentimetersToPoints(0) Dt|fDw$]D  
         D&f!( n  
        .CharacterUnitLeftIndent = 0 ^(g_.>  
        .CharacterUnitRightIndent = 0 1b+h>.gWar  
        .CharacterUnitFirstLineIndent = 2  z \^  
        .LineUnitBefore = 0 gi 5XP]z  
        .LineUnitAfter = 0 
1x;@~yU  
         $^IjFdD  
    End With ?V?<E=13  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False ()B7(Y  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll 22'vm~2E  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS Pv[ykrm/  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True ;L$,gn5H  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese _j>L4bT  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True |G=FqAXH  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete -U:2H7  
    DoEvents Oc~VHT  
     ?cJA^W  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") \H[Yyp4  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" aPt{C3<  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False :ovt?q 8">  
    With ActiveDocument.Styles("QLNU英文标题").Font FSe5k5  
        .NameFarEast = "黑体" /]g>#J%b  
        .NameAscii = "Arial Narrow" U\?+s2I)v  
        .Name = "Arial Narrow" S[^nSF  
        .Size = 16 n5\}KZh  
        .Bold = True ?#i|>MRR>  
        .Bold = wdUndefined W W35&mI)k  
        .Superscript = wdUndefined J7Sx
!PQ  
        .Subscript = wdUndefined g<a<{|  
        .Italic = wdUndefined [brkx3h  
         D=JlA~tS>  
        .Underline = wdUnderlineNone 01o [!nT  
        .UnderlineColor = wdColorAutomatic ;da4\bppt  
        .StrikeThrough = False yH+c#w  
        .DoubleStrikeThrough = False LGXZx}4@;  
    End With L, #Byao  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat I<KCt2:X  
        .LineSpacingRule = wdLineSpaceSingle cPSti  
        .Alignment = wdAlignParagraphCenter hWm0$v1p  
        .WidowControl = True c~37+^B:  
        .KeepWithNext = False ?F25D2[(  
        .KeepTogether = False df yrn%^Ia  
        .PageBreakBefore = False N:7.
:Yw  
        .NoLineNumber = False -zR.'x%  
        .FirstLineIndent = CentimetersToPoints(0) lm!FM`m  
        .OutlineLevel = wdOutlineLevelBodyText S,VyUe4P4  
         5E0wn'  
        .LeftIndent = CentimetersToPoints(0) |lY`9-M`I  
        .RightIndent = CentimetersToPoints(0) 2=O))^8  
        .FirstLineIndent = CentimetersToPoints(0) w?i)/q  
         #:Xa'D+
 
        .CharacterUnitLeftIndent = 0 E;$$+rA  
        .CharacterUnitRightIndent = 0 }q]jjs  
        .CharacterUnitFirstLineIndent = 0 _V&x`ks  
         :k\}Ik  
        .LineUnitBefore = 1 d#4Wj0x  
        .LineUnitAfter = 1 yduuFK  
         mfz"M)1p1  
    End With moe/cO5a9  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False VH[l\I(h  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll 7<vy;"wB  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS "5y<G:$+~  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True t)KPp|&  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese m$)YYpX  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True \:h0w;34O  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete l*qk1H"g  
    DoEvents T"IW Jpc  
:Nkz,R?  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") @??u})^EL  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" B9AbKK$`  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False Agz=8=S%  
    With ActiveDocument.Styles("QLNU英文摘要").Font :|Upx4]Ec  
        .NameFarEast = "宋体" AT-0}9z{  
        .NameAscii = "Arial" fmBkB8  
        .NameOther = "Arial" j+ I*Xw  
        .Name = "Arial" 8'n#O>V@  
        .Size = 12 y=wdR|b  
        .Bold = wdUndefined g(1"GKg 3K  
        .Italic = wdUndefined !@A|L#*  
        .Superscript = wdUndefined k5q(7&C  
        .Subscript = wdUndefined aI7Xq3  
    End With Vl-D<M+ih  
     K1<k+t/V  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat y]w )`}Ax  
         2G H)iUmc  
        .LineSpacingRule = wdLineSpaceExactly #U:0/4 P(  
        .LineSpacing = 20 o;E(Kj  
         2nJYS2mT7  
        .Alignment = wdAlignParagraphJustify
DVbYShB  
         F~%|3a$Y  
        .WidowControl = False u 6f4yQ  
        .KeepWithNext = False n00z8B1j(l  
        .KeepTogether = False wa BRQh  
        .PageBreakBefore = False fG3wc l~  
        .NoLineNumber = False 5
R)[Ou.  
         ";o~&8?)  
        .OutlineLevel = wdOutlineLevelBodyText y _6 r/z^  
         ":nI_~q  
        .LeftIndent = CentimetersToPoints(0) t Z+0}d  
        .RightIndent = CentimetersToPoints(0) 'r6cVBb}  
        .FirstLineIndent = CentimetersToPoints(0) ,Io0ZE>`V  
         t6j-?c('  
        .CharacterUnitLeftIndent = 0 ]LMiMj  
        .CharacterUnitRightIndent = 0 X"wFQa  
        .CharacterUnitFirstLineIndent = 2 Nz}|%.GP"  
         4bE42c=Ca7  
        .LineUnitBefore = 0 tD865gi  
        .LineUnitAfter = 1 w8O hJv  
         x4@MO|C  
    End With `..EQBM  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False W%=Zdm rv  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll "--/v. Cs  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS f]hBPkZ6  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False 58 kv#;j  
    DoEvents =Z^un&'  
9#ZzE/  
    Options.Pagination = True DZ,<Jmg&e*  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." ,#=eu 85'  
    DoEvents makaI0M  
    ActiveDocument.Repaginate g~ eJ YS,  
Rz)v-Yu  
End Sub e<kpcF5{\  
dP?nP(l  
=7# u+*Yr9  

姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 SH .9!lQv  
Gw{Gt]liq  

引用

引用第20楼newport93于06-14-2010 13:47发表的  : r))$XM  
F<6KaZ|  
老五，I 服了U。 7f.4/x^  
=x|##7  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 AsTMY02|  

3?a0 +]