Dim bContinue As Boolean qML*Kwg  
X3O$Sd(D  
Dim regEX As New RegExp h:sG23@=  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 jF_I4
H  
kD7(}N8YR  
Dim LastTitle0String As String, LastTitle0No As Long pP,bW~rk  
Dim LastTitle1String As String, LastTitle1No As Long iQ"F`C  
Dim LastTitle2String As String, LastTitle2No As Long Z|S7",  
Dim LastTitle3String As String, LastTitle3No As Long Hll}8d6[  
Dim LastTitle4String As String, LastTitle4No As Long }V;]c~Q/H  
Dim LastTitle5String As String, LastTitle5No As Long &*GX:0=/>  
Dim LastTabelString As String, LastTableNo As Long M #&L@fg!  
Dim LastFigureString As String, LastFigureNo As Long X )s7_  
S)|b%mVwR  
Dim strSeperator As String V>92/w.fe  
+##I4vP  
Sub ConvertWidth(fTEXT As String, rText As String) u`@FA?+E1  
        Selection.Find.ClearFormatting -%) !XB  
        Selection.Find.Replacement.ClearFormatting 2vQ^519  
        Selection.Find.Wrap = wdFindContinue N`6|Y  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText dKTAc":-}  
        DoEvents !*UdY(  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True 9,eR=M]+:  
End Sub HWOH8q{f!  
!QS<;)N@  
Sub ClearDomain() FNEmGz/4  
        With Selection.Find N4jLb
nA  
            .ClearFormatting PuCA @qY  
            .Replacement.ClearFormatting <XrGr5=BV  
            .Wrap = wdFindContinue x.Ml~W[  
            Me.txtStatus.Text = "清除所有域代码" \%Q rN+WQ  
            DoEvents }3y\cv0ct  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False #zs\Z]3#  
        End With :]QxT8B  
End Sub 4PM`hc  
NWK_
(=n  
Private Sub cmdCheck_Click() G@!9)v]9  
    bContinue = True :?k=Yr  
    Dim NoSeries1(1 To 16) As String g^UWf<xp  
    Dim NoSeries2(1 To 16) As String Q 9<_:3  
    Dim NoSeries5(1 To 16) As String @\}36y  
    Dim NoSeriesRM(1 To 16) As String NYvj?>[y  
    Dim paraTotal As Long, ParaText As String 1tz .e\  
    Dim ttString As String, ttNo As String q:sR zX  
     bI(98V,t  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long ScoHtX3  
[V0h9!  
    Me.txtStatus.Visible = True MXV4bgltT  
    Me.lbParaType.Visible = True Pp hQa!F$  
    Me.cmdCheck.Enabled = False i]?xM2(N  
     nn%xN\~<  
     Rj`Y X0?+  
     z5
vI0 N$  
     /
y|r iW  
    Dim ParaType As String, rText As String _u2  
     pP
pnO  
    Selection.WholeStory $Xc<K
_Z  
    Selection.NoProofing = True D07u?  
     ye2Oh7  
    tm1 = Now YH9]T,  
     PzDgl6C  
        ActiveWindow.View.Type = wdNormalView z1s"C[W2T  
     -V<"Ay  
    NoSeries1(1) = "一" ved Qwzh  
    NoSeries1(2) = "二" jloyJ@ck  
    NoSeries1(3) = "三" 7b2<, .E  
    NoSeries1(4) = "四" {o%R~{6  
    NoSeries1(5) = "五" |R
/50axI  
    NoSeries1(6) = "六" )6+W6:  
    NoSeries1(7) = "七" (C@@e'e  
    NoSeries1(8) = "八" L]<4{8H.  
    NoSeries1(9) = "九" 0Jh:6F  
    NoSeries1(10) = "十" 7'uc;5:  
    NoSeries1(11) = "十一" UdJV;T'rm  
    NoSeries1(12) = "十二" t&]Mt7  
    NoSeries1(13) = "十三" !#qB%E]a  
    NoSeries1(14) = "十四" :q1r2&ne  
    NoSeries1(15) = "十五" 6J+ZeBk??  
    NoSeries1(16) = "十六" CHI(\DXNs  
     TLgVuY  
    NoSeries2(1) = "㈠" 0%+k>(@R  
    NoSeries2(2) = "㈡" 4HE4e  
    NoSeries2(3) = "㈢" ,m]q+ 7E  
    NoSeries2(4) = "㈣" :%MWbnVSC,  
    NoSeries2(5) = "㈤" !;Nh7vG  
    NoSeries2(6) = "㈥" #?6RoFgMe  
    NoSeries2(7) = "㈦" K*FAngIB  
    NoSeries2(8) = "㈧" 'Sh5W%NM  
    NoSeries2(9) = "㈨" Ntiz-qW  
    NoSeries2(10) = "㈩" .9Fm>e+!C  
     1tpD|  
    NoSeries5(1) = "①" IyP].g1 "U  
    NoSeries5(1) = "②" c iX2 G  
    NoSeries5(3) = "③" oyw1N;K  
    NoSeries5(4) = "④" =T$- #bA)  
    NoSeries5(5) = "⑤" 1hij4m$b  
    NoSeries5(6) = "⑥" ),,vu  
    NoSeries5(7) = "⑦" 1_lL?S3,a@  
    NoSeries5(8) = "⑧" `,d7_#9'  
    NoSeries5(9) = "⑨" epyfggMT  
    NoSeries5(10) = "⑩" u`|fmVI  
     q/?_djv  
     <-}\V!@E!  
    NoSeriesRM(1) = "I" B4aZ3.&W  
    NoSeriesRM(2) = "II" Q#KjX;No  
    NoSeriesRM(3) = "III" !F)o
X7"  
    NoSeriesRM(4) = "IV" 3: Uik  
    NoSeriesRM(5) = "V" <=M
 }[  
    NoSeriesRM(6) = "VI" EdpR| z  
    NoSeriesRM(7) = "VII" #KW:OFT  
    NoSeriesRM(8) = "VIII" 6u7wfAf  
    NoSeriesRM(9) = "IX" T<)z2Bi  
    NoSeriesRM(10) = "X" 3IFU{0a`  
    NoSeriesRM(11) = "XI" */E{s?  
    NoSeriesRM(12) = "XII" E76:}(  
    NoSeriesRM(13) = "XIII" =YIQ _,{u  
    NoSeriesRM(14) = "XIV" S &u94hlC  
    NoSeriesRM(15) = "XV" Z -(HDn  
    NoSeriesRM(16) = "XVI" E:
k?*l  
     >,3 3Jx  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) F9W5x=EK\  
     (Lnh> '2  
    If i = vbNo Then 4PQWdPv;  
        Exit Sub n]Y _C^  
    End If R0}%   
     Q@
n kT1o  
    If Me.chkSuper.Value Then sf0U(XYQ^  
        Me.txtStatus.Text = "检查修改所有的上标格式" dZmq  
     J]B5w{??b  
        CheckSuperScript |3m%d2V*hF  
         q3`t0eLZ  
    End If Z]BR
Mx  
     >k|[U[@  
    If Me.chkStyle.Value Then Dzr5qP?#  
        Me.txtStatus.Text = "设置样式，请稍候...." e.V){}{V  
        DoEvents ,RQ-w2j?  
        CeateOrModifyStyle {AUEVt  
    End If T`sM4 VWqU  
     H #_Z6J  
     rI/KrBM  
     ,-)1)R\.  
    ClearDomain ]U%Tm>s.  
         mX^RSg9E}  
     zhE7+``g  
     $ cSZX#\  
    If Me.chkLIST.Value Then MzD0F#Y  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" J~.kb k  
     K>y+3HN[6  
        ConvertListToOrdinary Jiq[VeLe  
    End If pdSyx>rJ  
     4+Y5u4`t  
     ^h=kJR9  
    Dim pType As String, trimpTEXT As String Cq~Ir*"  
    If Me.chkNum.Value = True Then e$=|-Jz  
        Me.txtStatus.Text = "转换全角数字形式为半角" Lt_]3go  
        ConvertWidth "１", "1" Sdp1h0E}7=  
        DoEvents 's<}@-]  
        ConvertWidth "２", "2" {'!~j!1'j  
        DoEvents Je,8{J|e  
        ConvertWidth "３", "3" plfB}p  
        DoEvents ty>O}9%  
        ConvertWidth "４", "4" S##W_OlrI  
        DoEvents QUf_fe!,|  
        ConvertWidth "５", "5" 6EY4@0%A  
        DoEvents G
>x0}c  
        ConvertWidth "６", "6" 'oG'`ED"  
        DoEvents *Y Ox`z!R  
        ConvertWidth "７", "7" dp_q:P4;B  
        DoEvents ?*,q#ZkA9W  
        ConvertWidth "８", "8" Ek3O{<  
        DoEvents g 7X>i:  
        ConvertWidth "９", "9" ?9+;[X  
        DoEvents / yCV-L2J  
        ConvertWidth "０", "0" Yo:&\a K[  
        DoEvents ikQ2x]Sp  
        ConvertWidth "ａ", "a"
M &J*I  
        DoEvents > R=YF* t  
        ConvertWidth "ｂ", "b" *F0N'*  
        DoEvents ?L^ Gu ]y  
        ConvertWidth "ｃ", "c" :Kiu*&{  
        DoEvents 9[Mu  
        ConvertWidth "ｄ", "d" =%LS9e^7D  
        DoEvents h 8s*FI  
        ConvertWidth "ｅ", "e" ?3# X 5WT  
        DoEvents qM+T Wp  
        ConvertWidth "ｆ", "f" h%%'{^>~  
        DoEvents xh 0!H| R  
        ConvertWidth "ｇ", "g" k"J
?-1L  
        DoEvents EcU9Tm `h  
        ConvertWidth "ｈ", "h" AI2CfH#:C  
        DoEvents OK=t)6&b  
        ConvertWidth "ｉ", "i" Sgj6tH2M  
        DoEvents TL>e[PBO  
        ConvertWidth "ｊ", "j" o/R-1\Dn  
        DoEvents Q"O _h  
        ConvertWidth "ｋ", "k" X}$S|1CjO  
        DoEvents #Z :r  
        ConvertWidth "ｌ", "l" =#fqFL,  
        DoEvents T[~X~dqwn"  
        ConvertWidth "ｍ", "m" 6F2}|c  
        DoEvents U*cj'`eqC  
        ConvertWidth "ｎ", "n" :[doYizk:  
        ConvertWidth "ｏ", "o" RMXP)[  
        ConvertWidth "ｐ", "p" 2 O%UT?R  
        ConvertWidth "ｑ", "q" k:sh:G+=$d  
        ConvertWidth "ｒ", "r" wr`eBPu  
        ConvertWidth "ｓ", "s" #7{a~-S  
        ConvertWidth "ｔ", "t" =E}/Z  
        ConvertWidth "ｕ", "u" N*fN&0r  
        ConvertWidth "ｖ", "v" v;SJgZK  
        ConvertWidth "ｗ", "w" @ 55Y2  
        ConvertWidth "ｘ", "x" a'BBp6  
        ConvertWidth "ｙ", "y" 2 E^P=jU`  
        ConvertWidth "ｚ", "z" c{ ~*\&  
        ConvertWidth "Ａ", "A" i&Ea@b  
        ConvertWidth "Ｂ", "B" ;XT$rtuX  
        ConvertWidth "Ｃ", "C" I,D=ixK  
        ConvertWidth "Ｄ", "D" BeQJ/`  
        ConvertWidth "Ｅ", "E"  _ 0-YsD  
        ConvertWidth "Ｆ", "F" /1*\*<cs  
        ConvertWidth "Ｇ", "G" 3?:}lY<,  
        ConvertWidth "Ｈ", "H" D%zIm,bf  
        ConvertWidth "Ｉ", "I" ":OXs9Yg  
        ConvertWidth "Ｊ", "J" <$E8T>U  
        ConvertWidth "Ｋ", "K" ScEM#9T|  
        ConvertWidth "Ｌ", "L" 9V~yK?  
        ConvertWidth "Ｍ", "M" R-ci?7dt3  
        ConvertWidth "Ｎ", "N" Wxjpe4  
        ConvertWidth "Ｏ", "O" 2s ngi@\  
        ConvertWidth "Ｐ", "P" R##O9BSI8Z  
        ConvertWidth "Ｑ", "Q" Ch3##-  
        ConvertWidth "Ｒ", "R" RW5T
}  
        ConvertWidth "Ｓ", "S" F>OYZOC]  
        ConvertWidth "Ｔ", "T" +xMDm_TGLA  
        ConvertWidth "Ｕ", "U" Liof
v4![  
        ConvertWidth "Ｖ", "V" $\H>dm  
        ConvertWidth "Ｗ", "W" 4"{q|~&=:$  
        ConvertWidth "Ｘ", "X" qpZ".  
        ConvertWidth "Ｙ", "Y" ]#`bYh^y  
        ConvertWidth "Ｚ", "Z" D+OkD-8q  
        ConvertWidth "^l", "^p" j.o)!SA  
        ConvertWidth "（", "(" %llG/]q#  
        ConvertWidth "）", ")" [
eImP V]  
     FE`J.aw^X  
    End If zC7;Zj*k  
ec|IT0;  
    With ActiveDocument ^#+9v  
        Dim tbl As Table "'%x|nB  
        For Each tbl In .Tables 3iB8QO;pp  
            tbl.Rows.Alignment = wdAlignRowCenter XIU2l}g  
            tbl.Range.Font.NameFarEast = "楷体" ||qW'kNWM  
            tbl.Range.Font.NameAscii = "Times New Roman" <T['J]k%  
            tbl.Range.Font.Size = 10.5 &A~1Q#4  
        Next ]^!# 0(  
        Set tbl = Nothing m35G;  
    End With wjkN%lPfvj  
     I/'>Bn+  
     V%))%?3x_  
    With ActiveDocument ?pFHpz  
         ctf'/IZ5  
        For i = 1 To .TablesOfContents.Count I8m(p+Z=  
            .TablesOfContents(i).Delete <iMLM<J<w  
        Next SLW1]ZaG  
         D3eK!'qS  
         Gv`PCA@/d  
         !*p lK6a  
        paraTotal = .Paragraphs.Count ips
NiFv:  
        paraCounter = 1 ~/t#J  
         46b.= }  
        LastTitle0No = 0 bz 1\EkLL  
        LastTitle1No = 0 -szvO_UP  
        LastTitle2No = 0 K|iNEhuc  
        LastTitle3No = 0 uaiG(O   
        LastTitle4No = 0 <R2bz1!h.  
        LastTableNo = 0 "QMHY\C  
        LastFigureNo = 0 pcE.  
         LTxOq|/Cq  
        Dim Sec As Long _QQO&0Z  
         TWy1)30x  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) 7\.5G4dr%  
        If Sec = 0 Then %BL+'&q  
            Exit Sub epQ7@9,Q  
        End If S5j#&i  
         /SyiJCx0  
        k = 0 &kP>qTI^p~  
        Do While (paraCounter < paraTotal) And bContinue Xr@0RFdr[  
            k = k + 1 @^%# ]x,:  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then kHJjdgV  
                Exit Do M:ttzsd  
            End If t<4+ CC2H  
            paraCounter = paraCounter + 1 Q?~l=}2  
            If k Mod 20 = 0 Then H=0Y4 T@)T  
                Me.lbCounter.Caption = paraCounter #N*~Q  
                DoEvents 17-K~ybc  
            End If {|qz>  
        Loop 3 Tt8#B  
         cng1k  
         B|!Re4`0  
        Do While (paraCounter < paraTotal) And bContinue ~U`aH~R  
             , =#'?>Kq  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) !+i  
            ShapeHeight = 0 E5B:79BGO  
            ShapeWidth = 0 [K^RC;}nV^  
           8$1<N  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth 8ED6C"6  
            
^+-i7`|=  
            Select Case ParaType (u *-(  
                Case "【】表格内容" VP[ J#TPU  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" ~#wq sm  
                Case "章" 'C(YUlT2?P  
                    LastTitle0No = LastTitle0No + 1 #fQStO  
                    '新一章开始，复位其下属标题编号 nfc&.(6x<  
                    LastTitle1No = 0 =h4XsV)rO  
                    LastTitle2No = 0 `Do-!G+W  
                    LastTitle3No = 0 1g *4e  
                    LastTitle4No = 0 (i
 {  
                     %GJ,&b|
 
                    k = Val(ttNo) 0 ~VniF^  
                    If k = 0 Then '非数字编号章节 1Eh(U  
                        If ttNo <> NoSeries1(LastTitle0No) Then By" =]|Q  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString 0 j6/H?OT  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText 9T)-|fja_  
                        End If l/SbJrM*  
                    Else z T.qNtU%  
                        If Val(ttNo) <> LastTitle0No Then 5K,Y6I&$SJ  
                            rText = "第" & LastTitle0No & ttString |@Bl?Bs+  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText >XBLm`a  
                        End If d>2>mT$U  
                         t'^/}=c-  
                    End If &Prx=L`  
                     !iMsTH<  
                    '章段落设置 u\50,N9Wp{  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 YqYCW}$  
                    .Paragraphs(paraCounter).Style = "QLNU章节" %|UCs8EFm  
                    .Paragraphs(paraCounter).Range.Select 9\V^q9l  
                    Selection.EndKey unit:=wdLine *f1MgP*GKF  
                    tc = Replace(rText, vbCr, "") <}G7#xg  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False 8!1vsEqv  
                Case "一级标题" n<?:!f`  
                    LastTitle1No = LastTitle1No + 1 90;[5c   
                    '新一级标题开始，复位其下属标题编号 M5wj79'l"  
                    LastTitle2No = 0 t|1?mH9  
                    LastTitle3No = 0 p9 %7h.  
                    LastTitle4No = 0 SwLul4V  
                     %;GDg3L[p  
                    If ttNo <> NoSeries1(LastTitle1No) Then XSXS;Fh)  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString $Die~rPU  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText DvU(rr\p  
                    End If 1I_(!F{Ho  
                   d&F8nBIM5  
                     H.*XoktC]  
                    '一级标题段落设置  格式：一、标题内容 c'[l%4U8[  
                    .Paragraphs(paraCounter).Range.Text = rText k5(@n>p  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" *U8Pjb1  
                    .Paragraphs(paraCounter).Range.Select p;g$D=2  
                    Selection.EndKey unit:=wdLine Q1g@FsW&U  
                    tc = Replace(rText, vbCr, "") ]"^U  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False t 7+ifSrz  
                Case "二级标题" Ue! &Vm  
                    LastTitle2No = LastTitle2No + 1 G >bQlZG  
                    '新二级标题开始，复位其下属标题编号 0m!+gZ@  
                    LastTitle3No = 0 i&RPYbT{  
                    LastTitle4No = 0 JW (.,Ztm  
                     _8S!w>$)  
                    If ttNo <> NoSeries1(LastTitle2No) Then =}F &jl  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString L9"V$MO  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText 0:Xvch0  
                    End If K%.\@l2Cp  
                     H{yeN 5   
                    '二级标题段落设置 格式：(一)、标题内容 :2}zovsdj  
                    .Paragraphs(paraCounter).Range.Text = rText 9%pq+?u9  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" FgLV>#)-  
                     bP(xMw<'j  
                    .Paragraphs(paraCounter).Range.Select &0~E+ 9b  
                    Selection.EndKey unit:=wdLine 1Jt5|'tl  
                    tc = Replace(rText, vbCr, "") Fc{hzqaP8  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False Hr:WE+'  
                 }!x\qpA  
                Case "三级标题" P E0A`  
                    LastTitle3No = LastTitle3No + 1 A?=g!(wB  
                    '新三级标题开始，复位其下属标题编号 u`3J2,.  
                    LastTitle4No = 0 Ovh[qm?Z  
                     e+j7dmGa  
                    If Val(ttNo) <> LastTitle3No Then 3 cu`U`  
                            rText = LastTitle3No & ". " & ttString I!~5.  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText QYPsqkF*  
                         Ab/ gY$l  
                    End If x8w455  
                    '三级标题段落设置 格式：1. 标题内容 |X0h-kX4  
                    .Paragraphs(paraCounter).Range.Text = rText eVS6#R]'m  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" >2TDYB|;  
                    .Paragraphs(paraCounter).Range.Select h,45-#+  
                    Selection.EndKey unit:=wdLine 2/3,%5j_  
                    tc = Replace(rText, vbCr, "") o/ ozX4C  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False uPhFBD7  
                Case "四级标题" b|P[ \9  
                    LastTitle4No = LastTitle4No + 1 s7[du_)  
                     -r7*C:E  
                    If Val(ttNo) <> LastTitle4No Then IZ/+ROn  
                            rText = "(" & LastTitle4No & "). " & ttString `;L>[\Xi  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText Pd6p)zj  
                     -)PQ&[  
                    End If ycTX\.KV  
                    '四级标题段落设置 格式：(1). 标题内容 IOtSAf  
                    .Paragraphs(paraCounter).Range.Text = rText 1J jay#  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" nD6NLV%2x  
                    .Paragraphs(paraCounter).Range.Select q{ i9VJ]  
                    Selection.EndKey unit:=wdLine f%;8]a9  
                    tc = Replace(rText, vbCr, "") 9 "7(Jq  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False N[:;f^bH49  
                 (]>=y  
                Case "表格标题" $C#G8Ck,  
                    LastTableNo = LastTableNo + 1 )l~:Puvh  
                     4cDjf~n  
                    If ttNo <> CStr(LastTableNo) Then ( $A0b  
                            rText = "表" & LastTableNo & ". " & ttString N*y09?/h  
                            ErrMsg.AddItem "表格编号错误：" & ParaText -W<x|ph U  
                   \9N1:  
                    End If q,(U8
  
                     =Q>'?w>  
                    '表格名称段落设置 格式：表1. 表格名称 ,3=|a|p  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" [> Q+=(l  
                    xe = Replace(rText, vbCr, "") %We~k'2f  
                    .Paragraphs(paraCounter).Range.Select 8>%:MS"  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 x\T 9V~8a  
                    Selection.Range.Text = xe 9Ra*bP ]1  
                    Selection.EndKey W1fEUVj  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False /_rEI,[k  
                 V4PI~"4q#1  
                Case "表格首行" JHC 6l  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" gMS-mkZ  
                Case "图片标题" g1UP/hNJ\8  
                    LastFigureNo = LastFigureNo + 1 ] 3nka$wA*  
                     B&3oo  
                    If ttNo <> CStr(LastFigureNo) Then ;EDc1:  
                            rText = "图" & LastFigureNo & ". " & ttString |uf{:U)  
                            ErrMsg.AddItem "表格编号错误：" & ParaText %ukFn &-2@  
                   yPs4S?<s  
                    End If pUi|&F K">  
                    '图片名称段落设置 格式：图1. 图名称 5[suwaJQ  
                    .Paragraphs(paraCounter).Range.Text = rText ya.!zGH  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" F%M4i`Vh  
                    .Paragraphs(paraCounter).Range.Select M{w[hV  
                    Selection.EndKey unit:=wdLine 2iO AUo+  
                    xe = Replace(rText, vbCr, "") 0]p! Bscaf  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False *:L-/Q)i  
                Case "正文" _~]~ssn,1  
                     '正文名称段落设置 I?r7dQEm  
                    .Paragraphs(paraCounter).Style = "QLNU正文" ?NkweT(  
               Case "文献条目" }coSMTMv6  
                    With .Paragraphs(paraCounter) }86&? 0j.  
                        '.Range.Select OeLM*Zi  
                        'Selection.ClearFormatting l+`f\},  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” ^E{M[;sF3y  
                        .Style = "QLNU参考文献" o."k7fLB  
                    End With ~$cz`A  
               Case "图表注解" Z<jio  
                    With .Paragraphs(paraCounter) w/&)mm{  
                        .Range.Font.NameFarEast = "楷体" ]zK'aod  
                        .Range.Font.NameAscii = "Times New Roman" I6@98w}"  
                        .Range.Font.Size = 9 '小5号字 Y>W$n9d&G2  
                         : .Y
  
                        .Alignment = wdAlignParagraphCenter >zx]% W  
                        .LeftIndent = 0 Jas=D  
                        .RightIndent = 0 4LO4SYW7  
                        .FirstLineIndent = 0 dnRbt{`jP  
                        .LineSpacing = 12 ;aXu  
                        .LineSpacingRule = wdLineSpaceExactly B8_ )I.  
                        .LineUnitAfter = 0 sxc^n aK0  
                        .LineUnitBefore = 0 #Sy
F-QZ[1  
                        .OutlineLevel = wdOutlineLevelBodyText <?yf<G'$  
                        .PageBreakBefore = False .LMOm
c=(  
                        .RightIndent = 0 ^C$Oht,cU  
                        .WordWrap = True IsP-[0it  
                        .LineUnitAfter = 0.5 IdTatE|^  
                         wiHGTaR  
                    End With HmlE Cx  
                Case Else 
{S[+hUl  
                    '不作处理 M uz+j.0  
            End Select VAPRI\uM;  
             q=Xda0c  
            '含有inlineshape的段落处理 ! 'scOWWn  
            If ShapeHeight > 30 Then qM}Uk3N0  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 a _}k^zw(  
            End If NX.%Rj*  
             b/;!yOF  
            If (ShapeWidth + ShapeHeight) > 150 Then ;J[ed>v;3  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" ,6TF]6:  
            End If uzG{jc^  
             \A "_|Yg  
            '段落计数器递 /6S% h-#\  
            paraCounter = paraCounter + 1 gJ;jh7e@  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter G4O $gg  
            Me.txtStatus.Text = ParaText WRIOjQ:  
            DoEvents CW KN0HB  
        Loop P5;n(E(19  
    End With dZ^(e0& :H  
     vfBIQfH  
    msg = "" !A_<(M<  
     f+3ico]f@  
    For i = 0 To Me.ErrMsg.ListCount - 1 k_d)  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) !'m MGxkEb  
    Next 1V?)T  
     9NzK1V0X  
     ^hL ?.xj  
     ' b?' u  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg 6WI-ZEVp&  
    Me.cmdCheck.Enabled = True DN Tkv_S  
    Me.txtStatus.Visible = True -QPM$  
    Me.lbParaType.Visible = False p>x[:*  
     $U. >]i  
    bContinue = False gbf2t y  
End Sub EY+/ foP  
DPV>2' fV  
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/ w}so  
    Dim pTEXT As String {p.D E  
     'DLgOUvh  
    pTEXT = ChKRange.Text j<,Ho4v}_  
     d}B_ wz'  
    ParaType = "其它" e *9c33  
    TitleString = pTEXT i*ibx ;s-  
    TitleNo = "N/A" MX*T.TG8  
     [k<"@[8)  
    shpCounter = ChKRange.InlineShapes.Count JdYmUM|K/c  
    If shpCounter <> 0 Then 4H 4W  
        MaxShpHeight = 0: TotalShpWidth = 0 .0 ov>4,R  
        For i = 1 To shpCounter n{Ce%gy  
            k = ChKRange.InlineShapes(i).Height ,^Ug[pGG-  
            l = ChKRange.InlineShapes(i).Width GTYCNi66  
            If k > MaxShpHeight Then 4S9hz  
                MaxShpHeight = k '2LK(uaU  
            End If o
4Ny9s  
            TotalShpWidth = TotalShpWidth + l ahJ-T@  
        Next &ZyZmB  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then 4DLp+6zP  
            Exit Sub AlPk o($E*  
        End If v$n J$M&k  
    End If Dq
xtc|vo  
     ?so=k&I-M  
    '空行 I7=g8/JD  
    If Len(pTEXT) <= 2 Then C6<*'5T  
        Exit Sub q!fdiv`  
    End If J]h
$4"  
     _.}1 Y,Q  
         +,8j]<wpo  
    '是否为表格中的文字 BeR7LV  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then *;N6S~_'Y  
        ParaType = "表格内容" yZHh@W4 v  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) dio<?6ZD9P  
        If k = 1 Then BIJlU(aF  
            ParaType = "表格首行" lRO7 Ae  
        End If ioJ~k[ T  
        Exit Sub g#W/WKvM  
    End If p-CBsm5P  
     @'5*u~M  
    '例外情况：脚注 UYw_k\  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then A5
WchS'  
        ParaType = "脚注" S2APqR
g*  
        Exit Sub <t~RGn3  
    End If c>~q2_}W(  
     uGo tXb  
    '例外情况：尾注 O4c[,Uq8~  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then ^k#.;Q#4  
        ParaType = "尾注" .
W7ZpV  
        Exit Sub #saK8; tp  
    End If W'98ues%  
     8?yRa{'"  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then pYxdE|2j  
        ParaType = "页眉页脚" dx.,  
        Exit Sub S`w_q=-^8  
    End If =P}BAJ  
     l^~E+F~  
     \jR('5DcB  
    With regEX A vh"(j  
        .Global = True 3)ZdT{MY  
         j:Y1  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" '!V5 #J  
        If regEX.Test(pTEXT) Then ( M$2CL  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") V eD<1<  
            TitleString = regEX.Replace(pTEXT, "$3") t%k1=Ow5i  
            TitleNo = regEX.Replace(pTEXT, "$1") B)L=)N  
            ParaType = "章" {.H FB:<!}  
            Exit Sub ^i;y2c  
        End If NP+*L|-;  
         #&$a7L}  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" __mnz``/Y  
        If regEX.Test(pTEXT) Then  <u=k X  
            ParaType = "一级标题" \gU=B|W  
            regEX.Execute (pTEXT) 7>
@g)%",  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") LK>J]p  
            TitleString = regEX.Replace(pTEXT, "$3") 0`H)c) pP  
            TitleNo = regEX.Replace(pTEXT, "$1") 9y$"[d27;+  
            Exit Sub >du _/*8:  
        End If kO)+%'L!8  
         iHYvH   
        '全角或半角括号中的数字 ~ZxFL$<'3  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" Id(wY$C&>  
        If regEX.Test(pTEXT) Then h=x{ 3P;B  
            ParaType = "二级标题" vG2&qjY1  
            regEX.Execute (pTEXT) S7(Vc H  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") 4tGP- L  
            TitleString = regEX.Replace(pTEXT, "$5") !kpnBgmU  
            TitleNo = regEX.Replace(pTEXT, "$2") 0b3z(x!O  
            Exit Sub
G+k~k/D6  
        End If <
jjn'*44f  
         ?7eD<|  
        '阿拉伯数字  1. 2. :nLhg$wMs  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" S.)+C2g,@  
        If regEX.Test(pTEXT) Then L_~vPp  
            ParaType = "三级标题" 1woBw>g  
            regEX.Execute (pTEXT) ^.Xom~  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 N!=$6`d  
            TitleString = regEX.Replace(pTEXT, "$3") 9im<J'  
            TitleNo = regEX.Replace(pTEXT, "$1") 'F .tOD  
            Exit Sub ^q@6((O  
        End If 5H{dLZ],  
         Fcp8RBq  
        '全角或半角括号中的阿拉伯数字 ^Gt9.  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" IncHY?ud<  
        If regEX.Test(pTEXT) Then l)P~#G+C  
            ParaType = "四级标题" Cg]Iz<<bE  
            regEX.Execute (pTEXT) H)5V \  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") mI4)+8 SUu  
            TitleString = regEX.Replace(pTEXT, "$5") GEd JB=  
            TitleNo = regEX.Replace(pTEXT, "$2") Q($.s=&l;  
            Exit Sub _v \L'`bif  
        End If h%=>iQ%enc  
         '#*5jn]CqB  
        '表格名称 HLruZyN4  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" BKJwM'~  
        If regEX.Test(pTEXT) Then
6@X j  
            ParaType = "表格标题" gX'nFGqud  
            regEX.Execute (pTEXT) Cju%CE3a  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) .29y3}[PO  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) %= PGvu  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) Z\1wEGP7{  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 $LXz Q>w9  
            Exit Sub 4k6,pt"  
        End If bdBFDg  
         FV]
;od&c  
        '图片名称 G&DL)ePu]m  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" J;R1OJs S  
        If regEX.Test(pTEXT) Then 7O\sQ]i6  
            ParaType = "图片标题" Fx]}<IudA^  
            regEX.Execute (pTEXT) CHGV1X ,  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") dH[TnqJn  
            TitleString = regEX.Replace(pTEXT, "$3") y]YUuJ9a  
            TitleNo = regEX.Replace(pTEXT, "$1") 3[T<pAZ  
            Exit Sub ;*AKeI2  
        End If [@4.<4Y  
         ]ysEj3  
        '参考文献 %Jb/HWC[  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 lDU@Q(V#}<  
        If regEX.Test(pTEXT) Then wMx#dP4W8  
            ParaType = "文献条目" O\z]1`i*o  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") dU<qFxW  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") I `I+7~t  
            Exit Sub 2<X.kM?N{B  
        End If 9|K3xH  
         Jmcf9g  
        prfx = Left(pTEXT, 2) +#wh`9[wBt  
        If prfx = "注：" Or prfx = "注:" Then 2$@N4  
            ParaType = "图表注解" vi8)U]6  
            Exit Sub 24; BY'   
        End If 9~lC/I')t  
         h+"UK=  
         &}+^*X  
        ParaType = "正文" YB?5s`vr9d  
         &}."sGK  
    End With q"OJF'>w5  
End Sub 1 Vq)& N  
muZ6}&4  
Sub ConvertListToOrdinary() +m+v1(@  
    Dim st As Paragraph o 00(\ -eb  
    With ActiveDocument 5;4bZ3e,0  
        For i = .Paragraphs.Count To 1 Step -1 xkPH_+4i8  
            Set st = .Paragraphs(i) 6 h%%?  
            lst = st.Range.ListFormat.ListString Ug~]!L  
            If lst <> "" Then #y2IHO-  
                st.Range.ListFormat.RemoveNumbers C\RJ){dk  
                st.Range.InsertBefore lst & " " W6y-~  
            End If MzP q(`W  
        Next WKDa]({k%  
    End With O&vE 5%x  
    Set st = Nothing gq`S`  
End Sub #ts;s\!  
wBaIN]Y,  
Private Sub UserForm_Activate() V!XT=Ou?6  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" *?<yg
zX  
    Me.lbTotal.Font.Bold = True #|ILeby  
    Me.txtStatus.Visible = False =,HxtPJ  
    Me.cmdCheck.Enabled = True na)-'  
LagHzCB  
End Sub 1{0 L~  
OdWZYWj  
!$1'q~sO  
Sub CheckSuperScript() =TcT
`](o  
    Selection.Find.ClearFormatting 9irT}e  
    Selection.Find.Replacement.ClearFormatting DX\|*:,  
    With Selection.Find +Dwq>3AH  
        .Text = "[【\[［〖](*)[】\]〗］]" 8gK  <xp  
        .Replacement.Text = "[\1]" dF#`_!4pbf  
        .Replacement.Font.Superscript = True $eQf5)5  
        '.Replacement.Font.Color = wdColorBlue o)}M$}4  
        .Forward = True i7#PYt  
        .Wrap = wdFindContinue w /l\p3n  
        .FORMAT = True f?P>P23  
        .MatchCase = False 9=FqI50{  
        .MatchWholeWord = False O3];1ud  
        .MatchByte = False ;+6TZqklQ  
        .MatchAllWordForms = False M0$wTmXM  
        .MatchSoundsLike = False z<h?WsL  
        .MatchWildcards = True ,%!E-gr  
    End With MjrI0@R  
    Selection.Find.Execute Replace:=wdReplaceAll |9&bkojo  
End Sub {<J(*K*\Jo  
$?FA7=_  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) +"8-)'  
    bContinue = False AJWV#J%nB  
    Set regEX = Nothing c1>:|D7w  
End Sub "$6 .L^9W  
:u4q.^&!e  
Sub CeateOrModifyStyle() 6upCL:A~r  
' L?:fyN
A3[  
' )u67=0s2i+  
Dim stl As Style =j&qat  
     TTQ(\l4   
    Options.Pagination = False mQiVTIP3[O  
     /jB0  
    On Error Resume Next eX0ASI9  
    For Each stl In ActiveDocument.Styles CA8N  
        stl.Delete /'<Qk'
  
    Next K'tck
J #%  
    On Error GoTo 0 X) O9PQ  
     ^{+,j}V_H  
    Set stl = Nothing ?VCM@{9  
     -z6{!  
    DoEvents 7LZA!3  
    On Error Resume Next 873'=m&  
     3{ "MN=  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph |vVcO  
     Ku3/xcu:My  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph R&P}\cf8T  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph V#-\ 4`c  
     x4 .Y&Wq#  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph )/4xR]  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph M"l<::z  
     -s5>GwZt  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph +@5@`"Jry  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph DM[gjfMXu  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph hF4gz*Q  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph Of?3|I3 l  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph ?K9zTas@  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph N |nZf5{  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph sQ05
wAv  
     \]$TBN dJ4  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph %<?U`o@*  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph )o\U4t  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph
{%PgR){qR  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph hY5tBL  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph TLWU7aj&!  
     6M-Y`T`J  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph QgB%\mO=  
    On Error GoTo 0 1O@y >cV  
    DoEvents XxeyGs^%9  
     </@3}rfUPg  
    'BaseStyle 1*vt\,G  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False 78n`VmH~L  
    With ActiveDocument.Styles("BaseStyle").Font Du7DMo=l  
        .NameFarEast = "宋体" 2nsW)bd  
        .NameAscii = "Times New Roman" x
|0@T?  
        .NameOther = "宋体" )&$p?kF  
        .Size = 10.5 K2gg"#ft?  
        .Bold = wdUndefined YI!@
,t  
        .Italic = wdUndefined Ph Ep3o&"  
        .Subscript = wdUndefined 66jL2XU<  
        .Subscript = wdUndefined c!20((2|I  
         k}tTl 2  
        .Underline = wdUnderlineNone xmp^`^v*  
        .UnderlineColor = wdColorAutomatic Fmo^ ?~b  
        .StrikeThrough = False
oD?c]}3  
        .DoubleStrikeThrough = False `k.Nphx~%  
         ^\Gukkmh}  
        .Outline = False zmdu\:_X9  
        .Emboss = False Pko2fJt1  
        .Shadow = False , lUr[xzV  
        .Hidden = False 9%MHIY5  
        .SmallCaps = False ?loP18S b  
        .AllCaps = False hOH D
Xc"  
        .Color = wdColorAutomatic [:xpz,  
        .Engrave = False R.rxpJ+kU  
        .Scaling = 100 b$O1I[o  
        .Kerning = 1 @b2JR^  
        .Animation = wdAnimationNone Z.x9SEe1t  
        .DisableCharacterSpaceGrid = False 8*\PWl  
        .EmphasisMark = wdEmphasisMarkNone j $Unw  
    End With %`b %TH^  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat %*Aq%,.={  
        .LeftIndent = 0 ;c;5O@R}3  
        .RightIndent = 0 tLc9-  
        .SpaceBefore = 0 l2[{T^  
        .SpaceBeforeAuto = False x}(p\Efx  
        .SpaceAfter = 0 blHJhB&8  
        .SpaceAfterAuto = False ~P5;k_&  
         %hO/2u  
        .LineSpacingRule = wdLineSpaceSingle < X&{6xu  
        .Alignment = wdAlignParagraphJustify tJgo%P1  
         U|!L{+F  
        .WidowControl = False 2 5m6/Y  
        .KeepWithNext = False \ &#pJB BG  
        .KeepTogether = False \&Bvh4Q  
        .PageBreakBefore = False W2-1oS~ma  
        .NoLineNumber = False ~SD8#;v2  
         9EIOa/*  
        .FirstLineIndent = CentimetersToPoints(0) V ub($  
        .OutlineLevel = wdOutlineLevelBodyText g2t'u4>  
        .CharacterUnitLeftIndent = 0 =Ti[Q5SZ  
        .CharacterUnitRightIndent = 0 b
8$(j2B~  
        .CharacterUnitFirstLineIndent = 0 *!p#1fE  
        .LineUnitBefore = 0 L-V+`![{  
        .LineUnitAfter = 0 o n+:{ad  
        .AutoAdjustRightIndent = True 4y$tp18  
        .DisableLineHeightGrid = True ,- FC  
         E>2~
cC*  
        .FarEastLineBreakControl = True q\q8xF~[p  
        .WordWrap = True 10`]&v]T  
        .Hyphenation = False cZd{K[fuK  
         x+B7r&#:  
        .HangingPunctuation = True $u-yw1FT  
        .HalfWidthPunctuationOnTopOfLine = True  jcVK4jW  
        .AddSpaceBetweenFarEastAndAlpha = True f.X<Mo  
        .AddSpaceBetweenFarEastAndDigit = True D1g .Fek5  
        .BaseLineAlignment = wdBaselineAlignBaseline yL.Z{w
d  
    End With gxf{/EjH  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False ),53(=/hl  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll [\ALT8vC?m  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese J~,Ny_L  
    ActiveDocument.Styles("BaseStyle").NoProofing = False nPh|rW=  
     _Vl22'wl  
    '一级标题题样式 8IrA{UU  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") `:&jbd4H  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" "oc&uj  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False +PfXc?VU  
    With ActiveDocument.Styles("QLNU一级标题").Font >56I`[)  
        .NameFarEast = "黑体" }_[Bp  
        .NameAscii = "Arial Black" !T3b]0z  
        .NameOther = "黑体" "P hP1;A9,  
        .Name = "黑体" //W7$DYEG  
        .Size = 16              '三号 @GrQ/F7  
        .Bold = True L28DBjE)A  
        .Italic = wdUndefined 8n`O{8:fi  
        .Subscript = wdUndefined i<u g("/  
        .Superscript = wdUndefined +;*dFL  
    End With [<H'JsJl  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat WD${f#]N  
         !caY  
        .LeftIndent = CentimetersToPoints(0) y)%CNH)*
x  
        .RightIndent = CentimetersToPoints(0) CpG]g>]L&[  
        .FirstLineIndent = CentimetersToPoints(0) hJsYKd8g  
         <1xs ya[e  
        .LineSpacingRule = wdLineSpaceSingle ;kv/(veQ1<  
        .Alignment = wdAlignParagraphCenter /Q*o6Gys0  
         ;{%R'  
        .WidowControl = True gdKn!; ,w#  
        .KeepWithNext = True x.ZW%P1  
        .KeepTogether = True r'5~4'o$  
        .OutlineLevel = wdOutlineLevelBodyText QW[ gDc  
         +#Q\;;FNP  
        .LineUnitBefore = 0.5 \n}@}E L  
        .LineUnitAfter = 0.5 b!hs|emo;  
    End With &Bfgvws;  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False R3,O;9i  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll ;5TQH_g  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese AIK99  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True wx2EMr  
    DoEvents jXu)%<  
     .{}=!>U2  
    '二级 $-Wn|w+h<a  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") : #om6}  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" hI Q 2s  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False m?4L
>'  
    With ActiveDocument.Styles("QLNU二级标题").Font 2$OI(7b=  
        .NameFarEast = "黑体" dd&n>A3O=  
        .NameAscii = "Arial Narrow" |'?./  
        .NameOther = "黑体" 7>sNjOt@M  
        .Name = "黑体" qS.TVNZ  
        .Size = 15        '小三号 `<3xi9  
        .Bold = False 08 $y1;  
        .Outline = False :l/?cV
;  
        .Italic = wdUndefined Sh(Ws2b7  
        .Subscript = wdUndefined Z'F=Xw6;b  
        .Superscript = wdUndefined Q^c)T>OAI  
    End With tITx+i  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat -o`Eka!ELz  
        .LeftIndent = CentimetersToPoints(0) R_
|Sg  
        .RightIndent = CentimetersToPoints(0) yR|Beno  
        .FirstLineIndent = CentimetersToPoints(0) 0!6n  
         riuG,$
EX  
        .LineSpacingRule = wdLineSpaceSingle nz%{hMNYH  
        .Alignment = wdAlignParagraphLeft Rx\.x? &  
         :#I7);ol  
        .WidowControl = True l%^VBv> 2  
        .KeepWithNext = True GiH<6<=  
        .KeepTogether = True d=J$H<  
        .PageBreakBefore = False S]#xG+$<  
        .OutlineLevel = wdOutlineLevelBodyText g.9:R=JPT  
         V% PeZ.Xv  
        .LineUnitBefore = 0.5 Nu]&?  
        .LineUnitAfter = 0.5 |gP9
^B?3  
         BXx0Z %e.3  
    End With \f6@B:?y  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False R<-u`uXnP  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll Q3OGU}F  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese #MwNyZ  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True m. |__L  
    DoEvents 4x;vn8yh  
     m5w ZS>@  
    '三级标题样式 @s[Vtw%f  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") v y&<  O  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" G{C27k>wa  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False qT}AY.O%^  
    With ActiveDocument.Styles("QLNU三级标题").Font F[HMX4  
        .NameFarEast = "宋体" hynX5,p;.  
        .NameAscii = "Times New Roman" CRKuN  
        .NameOther = "黑体" 8;vpa*  
        .Name = "黑体" G,]%dZHe  
        .Size = 14               '四号 FK~FC:K  
        .Bold = False U0Q:sA U  
        .Outline = False p#fd+  
        .Italic = wdUndefined Vy6A]U
\%  
        .Subscript = wdUndefined WhY8#B'?  
        .Superscript = wdUndefined 93+p~?  
    End With 6&Al9+$  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat |1z?#@BH  
        .LeftIndent = CentimetersToPoints(0) [->uDbtzL  
        .RightIndent = CentimetersToPoints(0) 6%nKrK  
        .FirstLineIndent = CentimetersToPoints(0) .PHz 
 
         )08mG_&atL  
        .LineSpacingRule = wdLineSpaceSingle A"$UU6Z4  
        .Alignment = wdAlignParagraphLeft h0v4!`PQ-  
         1_Ag:>#X  
        .WidowControl = True a9<
&|L <  
        .KeepWithNext = True ]z{f)`;I  
        .KeepTogether = True E/[
<} ./  
        .PageBreakBefore = False bm Hl\?  
        .OutlineLevel = wdOutlineLevelBodyText /-_<RQ  
         s'Op|`&X  
        .CharacterUnitLeftIndent = 0 6.|Qyk*  
        .CharacterUnitRightIndent = 0 h9J%NH  
        .CharacterUnitFirstLineIndent = 2 7 g2@RKo  
         ?oKY"C8/  
        .LineUnitBefore = 0.5 F9Y/Z5 Ea  
        .LineUnitAfter = 0 [
S_8;j  
    End With nm3/-Q},  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False D6MktE)'  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll b7nER]R  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese D%k`udz<  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True }%m:^*@$9  
    DoEvents 'c")]{  
     COC6H'F  
    '四级标题样式 L4wKG&  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") H7=[sL^  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" Wdp?<U  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False qwz_.=5E6  
    With ActiveDocument.Styles("QLNU四级标题").Font gr%!<2w  
        .NameFarEast = "宋体" vI)-Zz[3  
        .NameAscii = "Times New Roman" "h>B`S  
        .NameOther = "宋体" \KpSYX1  
        .Name = "宋体" M1sR+e$"  
        .Size = 12               '小四号 EoOB0zo}Y+  
        .Bold = True LBs:O*;  
        .Outline = False ={GYJ.*Ah  
        .Italic = wdUndefined R,'` A.Kk  
        .Subscript = wdUndefined a*fUMhIi  
        .Superscript = wdUndefined vXA+4 ?ZG  
    End With  ,m^@S  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat B"9/+Yj  
         K/OE;;<IA  
        .LeftIndent = CentimetersToPoints(0) .JG>/+  
        .RightIndent = CentimetersToPoints(0) AnUOv
2  
        .FirstLineIndent = CentimetersToPoints(0) K}(0H[P  
         eC71;"
 
        .LineSpacingRule = wdLineSpaceSingle I,pI2  
        .Alignment = wdAlignParagraphLeft -55Pvg0ND  
         @}Y,A~  
        .WidowControl = True kq m$a  
        .KeepWithNext = True "N|gU;~W  
        .KeepTogether = True k- ?:0  
        .PageBreakBefore = False 7j <:hF~  
        .OutlineLevel = wdOutlineLevelBodyText \@ jYY~
 
         6,D)o/_  
        .CharacterUnitLeftIndent = 0 Gx.iZOOH/  
        .CharacterUnitRightIndent = 0 Ba]J3Yp,z  
        .CharacterUnitFirstLineIndent = 2  H%AF,  
         mV58&SZT  
        .LineUnitBefore = 0 a/(IvOy#6  
        .LineUnitAfter = 0 Oy,`tG0  
         HS% P  
    End With @&7|Laa  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False ls<7
Qe"a  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll [kjmEMF9i  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese P<1ZpL  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True j![;;  
    DoEvents 5NT?A,r"  
     iTgv8  
    '正文校式 X9lh@`3  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") h9B^U?<wT  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" [`u3SN/P  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False RkW)B^#  
    With ActiveDocument.Styles("QLNU正文").Font 8,(FJ7OCT,  
         /<\B8^yQ  
        .NameFarEast = "宋体" Z6Owxqfht  
        .NameAscii = "Times New Roman" D02_ Jrg  
        .NameOther = "宋体" 6N^sUc0s  
        .Name = "宋体" mROXwzL
 
         GOx+%`.R\  
        .Size = 12               '小四号 Lh"!Z  
         T<\!7RnLc  
        .Bold = wdUndefined Gl+Ql?|  
        .Italic = wdUndefined ?[|T"bE5[  
        .Subscript = wdUndefined
_ zh>q4M  
        .Superscript = wdUndefined iHp@R-g  
         <Fc @T4Q,  
        .Outline = False ~qk5Mk4$  
        .Emboss = False 0A7 qO1%xw  
        .Shadow = False ^JKV~+ Q  
        .Hidden = False H /kSFf{  
         tk"+PTGJT  
        .DisableCharacterSpaceGrid = True JDIQpO"Qji  
    End With &;D(VdSr9  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat }E}b/ulg1  
         J#pl7q)^w  
        .LeftIndent = CentimetersToPoints(0) W)0y+H\% r  
        .RightIndent = CentimetersToPoints(0) 3O W)%  
        .FirstLineIndent = CentimetersToPoints(0) 3*DwXH+  
         m^O9G?  
        .LineSpacingRule = wdLineSpaceExactly >*5+{~k~4  
        .LineSpacing = 20 f8m%T%]f  
        .Alignment = wdAlignParagraphLeft quvdm68  
         r-ldqj  
        .WidowControl = False RH=Tu6i  
        .KeepWithNext = False JMnk~8O  
        .KeepTogether = False
;T6x$e  
        .PageBreakBefore = False c|s*(WljY  
        .Hyphenation = False Bx>)i8P7i0  
         #DL( %=:  
        .OutlineLevel = wdOutlineLevelBodyText ~;pv&s5}  
         !E0zj9 [ R  
       0^27grU>  
        .CharacterUnitLeftIndent = 0 $h({x~Oj
9  
        .CharacterUnitRightIndent = 0 le*1L8n$'  
        .CharacterUnitFirstLineIndent = 2 RnA>oKc  
         :-I~-Yj  
        .LineUnitBefore = 0 axRzn:f  
        .LineUnitAfter = 0 ,s?7EHtC  
        .SpaceBefore = 0 RuW62QSq  
        .SpaceAfter = 0 Pd,+= ML  
         ]Gm$0uS  
        .DisableLineHeightGrid = True 2rr}5i)
r|  
    End With Mk*&CNo3  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False {u1Rc/Lw  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll Q|^TR__  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese +&w=*IAKZ  
    ActiveDocument.Styles("QLNU正文").NoProofing = True T2nbU6H  
    DoEvents 1b 6ox6  
     e2SU)Tr%b  
    '图片段落样式 t:|+U:! >  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") E27N1J+1  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" fC A/  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False
6+:Tv2  
    With ActiveDocument.Styles("QLNU图片段落").Font yWs_Z6b  
        .Size = 12               '小四号 gD[ Fkq$]  
        .Italic = wdUndefined 1 >doa1  
        .Subscript = wdUndefined e@-"B9~   
        .Superscript = wdUndefined f-V8/  
    End With *acN/
Ca1  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat UHtxzp =[  
         0NN{2"M$p  
        .LeftIndent = CentimetersToPoints(0) R"au8f.  
        .RightIndent = CentimetersToPoints(0) BZXP%{njS  
        .FirstLineIndent = CentimetersToPoints(0) $9}z^sGIM  
         1D,$Az~.  
        .LineSpacingRule = wdLineSpaceSingle Llf |fayq  
        .Alignment = wdAlignParagraphCenter ?H c~ 3  
        .KeepWithNext = True m]1=o7  
        .OutlineLevel = wdOutlineLevelBodyText >@2l/x8;  
         rt7Ma2tK  
        .CharacterUnitLeftIndent = 0 rb/m;8v>  
        .CharacterUnitRightIndent = 0 `o9vE0^T<  
        .CharacterUnitFirstLineIndent = 0 Qo4+=^(  
         C3Hq&TVf/  
        .LineUnitBefore = 0 F^m`j6  
        .LineUnitAfter = 0 jf&LSK
;2  
    End With
,C#Mf@b  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False m]bv2S+5y  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll Bh9O<|E  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese 3lyk/',  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True yAu-BObD  
    DoEvents %'}L.OvG  
     hLVS}HE2  
     6~ *w~U  
    '第X章 a:PS}_.  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") :J3ZTy
jb  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" VtR?/+8X  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False Jl"),;Od  
    With ActiveDocument.Styles("QLNU章节标题").Font n\nC.|_G@  
        .NameFarEast = "黑体" ,1\nd{  
        .NameAscii = "Arial Black" YHVJg?H3  
        .NameOther = "Arial Black" b6IYo!3  
        .Name = "黑体" H$^b.5K  
        .Size = 16 {[~ !6&2(k  
        .Bold = True He)<S?X-6  
        .UnderlineColor = wdColorAutomatic ?G5 JAG`  
        .Outline = False X7I"WC1ncz  
        .Italic = wdUndefined "d a%@Zy  
        .Subscript = wdUndefined xZ51iD$  
        .Superscript = wdUndefined ~zklrBn&  
        .Scaling = 100 H!F Cerg  
        .DisableCharacterSpaceGrid = True ;CU<\  
    End With t|gEMDGa3  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat
4T-9F  
        .LineSpacingRule = wdLineSpaceSingle x*H4o{o0  
        .Alignment = wdAlignParagraphCenter KfU4#2}
 
        .WidowControl = True 'L*nC T;  
        .KeepWithNext = True $c-h'o  
        .KeepTogether = True nt,tM/  
        .PageBreakBefore = True &&0,;r,-)  
        .OutlineLevel = wdOutlineLevelBodyText Q0K4_iN)&  
         Xd_86q8o  
        .LeftIndent = CentimetersToPoints(0) t'uZho~^F  
        .RightIndent = CentimetersToPoints(0) wW3fsXu  
        .FirstLineIndent = CentimetersToPoints(0) avR4#bfc  
         c2}?[\U]  
        .CharacterUnitLeftIndent = 0 Dt~Jx\\  
        .CharacterUnitRightIndent = 0 C043 h?x  
        .CharacterUnitFirstLineIndent = 0 G`9\v
=0  
         &%~2Wm  
        .LineUnitBefore = 1 kIAWI;H{  
        .LineUnitAfter = 0.5 ;79X
#hI  
         Lm kv.XF  
        .AutoAdjustRightIndent = False Md \yXp  
        .DisableLineHeightGrid = True `<Z5/;a5W  
        .FarEastLineBreakControl = True })V9d  
        .WordWrap = True  w' E  
    End With xw*T?!r=V  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False Ni5~Buf  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll g)*[W>M  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese `.z;.&x  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True U!:Q|':=h  
    DoEvents yZ[H&>  
     8&6h()  
    '表格标题 ti:qOSIDTA  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") `;7
^@k  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" ."R,j|o6  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False a!,q\p8<t0  
    With ActiveDocument.Styles("QLNU表格标题").Font (C#9/WO ?  
        .NameFarEast = "楷体" v535LwFW  
        .NameAscii = "Arial" mPNT*pAO  
        .Name = "楷体" DiK@>$v  
        .Size = 10.5 }5H3DavW  
        .Bold = True r\y~ :  
        .Underline = wdUnderlineNone Azx4+`!-  
        .Italic = wdUndefined | x|#n  
        .Subscript = wdUndefined :t\pi.uWt  
        .Superscript = wdUndefined IqK??KSC  
        .Color = wdColorAutomatic '`q&UPg]  
    End With $oO9N^6yF  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat (F$V m  
         DLYk#d: q?  
        .LineSpacingRule = wdLineSpaceSingle VGoD2,(b^  
        .Alignment = wdAlignParagraphCenter ]8(_{@/  
        .KeepWithNext = True kji*7a?y  
        .KeepTogether = True A KO#$OJE  
        .OutlineLevel = wdOutlineLevelBodyText V#?GDe}[  
        
PaF`dnJ  
        .LeftIndent = CentimetersToPoints(0) k+>-?S,  
        .RightIndent = CentimetersToPoints(0) ;d1\2H  
        .FirstLineIndent = CentimetersToPoints(0) FbB> Md;  
         @[0zZX2EE  
        .CharacterUnitLeftIndent = 0 4@P H5z  
        .CharacterUnitRightIndent = 0 tBgB>-h(  
        .CharacterUnitFirstLineIndent = 0 rn l~i  
         }2Y:#{m  
        .LineUnitBefore = 1 >]q{vKCAP  
        .LineUnitAfter = 0 +#gJ[Cc  
         uBLI!N-G  
    End With 4K82%P9a  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False :\x)
`lu  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll 7:U^Ki  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese w/r wE  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True JcEPwF.  
    DoEvents <4z |"(  
,K Ebnk|i  
    '表格首行 OWsK>egD  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") :E/]Bjq$;  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False &B uO
-  
    With ActiveDocument.Styles("QLNU表格首行").Font 2f1WT g)  
        .NameFarEast = "楷体" UY*3b<F}  
        .NameAscii = "Times New Roman" gc-y UH0I  
        .Name = "楷体" O/^7TBTn<r  
        .Size = 9 Z~^)B8  
        .Bold = True _tZT  
        .Underline = wdUnderlineNone ffK A  
        .Italic = wdUndefined kP9DCDO`[5  
        .Subscript = wdUndefined c>~"Z-VtX  
        .Superscript = wdUndefined 5V&3m@d0aq  
    End With dxkq*  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat "?|sC{'C4j  
        .LineSpacingRule = wdLineSpaceSingle SwV{t}I  
        .Alignment = wdAlignParagraphCenter YC#N],#  
          4I7}  
        .LeftIndent = CentimetersToPoints(0) ]}2+yK  
        .RightIndent = CentimetersToPoints(0) fu3/n@L  
        .FirstLineIndent = CentimetersToPoints(0) &MnS( 82L  
         '~RP+  
         dzMlfJp  
        .CharacterUnitLeftIndent = -0.5 T]d9tX-  
        .CharacterUnitRightIndent = -0.5 umrfA  
        .CharacterUnitFirstLineIndent = -0.5 `_C4L=q"  
         [ z$th  
        .LineUnitBefore = 0 dEU+\NY  
        .LineUnitAfter = 0 m72r6Yq2@  
        .SpaceBefore = 0 2xvTij O0  
        .SpaceAfter = 0 NF <|3|  
         T]\_[e :'  
    End With 6q ._8%  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False l5 ww-#6Z  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll Xc;W9e(U  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese 12;"=9e!  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True x@3Ix,b'  
    DoEvents Tj}H3/2  
)J4XM(  
    '表格内容 z{U2K'  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") <zE,T@c  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False GU'/-6-T  
    With ActiveDocument.Styles("QLNU表格内容").Font 8^C
dE*a  
        .NameFarEast = "楷体" +^n [B  
        .NameAscii = "Times New Roman" oJJ2y  
        .Name = "楷体" tgy*!B6a~  
        .Size = 9 Sw<@u+Z;%  
        .Bold = False b f.__3{  
        .Underline = wdUnderlineNone 8%]o6'd4  
        .Italic = wdUndefined nZe2bai  
        .Subscript = wdUndefined bD[W`yW0  
        .Superscript = wdUndefined x 5vvY  
    End With g$<Sh.4A  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat W'w;cy:H  
        .LineSpacingRule = wdLineSpaceSingle _|`
~CLE[  
        .Alignment = wdAlignParagraphCenter v'(p."g  
         eO#Kn'5  
        .LeftIndent = CentimetersToPoints(0) [k-Q89  
        .RightIndent = CentimetersToPoints(0) I!?-lI@(  
        .FirstLineIndent = CentimetersToPoints(0) ].=&^0cg  
         s(W] >Ib  
        .CharacterUnitLeftIndent = -0.5 aMQfg51W:  
        .CharacterUnitRightIndent = -0.5 9|v3lGK(  
        .CharacterUnitFirstLineIndent = -0.5 ca/AScL  
        .LineUnitBefore = 0 hnag<=  
        .LineUnitAfter = 0 uc]]zI6  
        .SpaceBefore = 0 T)J=lw  
        .SpaceAfter = 0 r9<OB`)3+  
    End With 1e.V%!Xk  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False [F4]p R(  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll fB+4mEG@  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese XVcY?_AS#  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True CAdqoCz|  
    DoEvents <&:OSd:%  
Lu,72i0O ^  
    '图片标题 s Wk92x _l  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 7 sv 3=/`  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" zKB$n.H  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False $_NYu  
    With ActiveDocument.Styles("QLNU图片标题").Font 5hwe ul>S  
        .NameFarEast = "楷体" ssGp:{]v/  
        .NameAscii = "Times New Roman" 5s3!{zT{  
        .Name = "楷体" vZ[wr@)  
        .Size = 10.5  1+|s   
        .Bold = True 2mj?&p?  
        .Underline = wdUnderlineNone aI]
EwVz-q  
        .Italic = wdUndefined wlk{V  
        .Subscript = wdUndefined {2Jo|z  
        .Superscript = wdUndefined bK:mt`  
        .Outline = False mOG;[CB  
        .Shadow = False NO5\|.,Z  
        .Color = wdColorAutomatic `R@1Sc<*|  
    End With 1sgI,5liUs  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat &5:83#*Oj  
        .LineSpacingRule = wdLineSpaceSingle ^$-ID6  
        .Alignment = wdAlignParagraphCenter U^iNOMs?  
         y/57 >.3  
        .KeepWithNext = wdUndefined b_2bg>|;  
        .KeepTogether = True CN4Q++{  
        .OutlineLevel = wdOutlineLevelBodyText c\cPmj@  
         H&`0I$8m  
        .LeftIndent = CentimetersToPoints(0) rw(EI,G  
        .RightIndent = CentimetersToPoints(0) 2fIHFo\8  
        .FirstLineIndent = CentimetersToPoints(0) %O]]La  
         g{wOq{7V  
        .CharacterUnitLeftIndent = 0 j4h6p(w{  
        .CharacterUnitRightIndent = 0 yO\.dp  
        .CharacterUnitFirstLineIndent = 0 P%w)*);  
         ,TL 8`  
        .LineUnitBefore = 0 r:fMd3;gq  
        .LineUnitAfter = 0 -?L~\WJAL  
    End With yf7p,_E/  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False Lk y<L96  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll Kx,#Wg{H  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese 8i:E$7etH  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True pRyePxCDj)  
    DoEvents [?z`XY_-  
%mKM9>lf#  
    '目录项 UXpF$=  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") T%|{Qo<j  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" o9I=zAGjy  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False m,YBk<Bx  
    With ActiveDocument.Styles("QLNU目录项").Font ~n9x ,  
        .NameFarEast = "黑体" KQGdV{VFs  
        .NameAscii = "Times New Roman" a=n *}.  
        .NameOther = "Times New Roman" c'#w 8V  
        .Name = "黑体" )5n*4A  
        .Size = 10.5 %0 cFs'  
        .Bold = False /dGpac  
        .Italic = wdUndefined BN??3F8C  
        .Underline = wdUnderlineNone 3%gn:.9N  
        .Color = wdColorAutomatic 1.
29%O8V_  
        .Superscript = wdUndefined GH ]c  
        .Subscript = wdUndefined ;7,>2VTm  
    End With u7  s-  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat 8NCu;s  
         FI|jsO 3  
        .LineSpacingRule = wdLineSpaceSingle GHeucG}?  
        .Alignment = wdAlignParagraphLeft (55k70>i3  
         E6+c{41B  
        .WidowControl = False )Iu0MN&  
        .KeepWithNext = False 6! `^}4  
        .KeepTogether = False L\;n[
,.  
        .PageBreakBefore = False kucH=96  
        .NoLineNumber = False h=:Ls]ZU  
        .OutlineLevel = wdOutlineLevelBodyText ndW]S7  
         *?Hc8y-dG,  
        .LeftIndent = CentimetersToPoints(0) CshYUr -  
        .RightIndent = CentimetersToPoints(0) r"HQ>Wn  
        .FirstLineIndent = CentimetersToPoints(0) 9R$0[HbI3  
         WBc,/lgZ  
        .CharacterUnitLeftIndent = 0 'x/pV5[hQ  
        .CharacterUnitRightIndent = 0 haNi[|  
        .CharacterUnitFirstLineIndent = 0 ->"Z1  
         W}^X;f  
        .LineUnitBefore = 0 ~4-:;8a  
        .LineUnitAfter = 0 2 z*EamF  
    End With D@.+B`bA  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False g"b{M  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll B?M&j  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot z)AZ:^!O  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese a6Zg~>vX  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True {v3?.a$u  
    DoEvents \N3A2L)l  
     #R^^XG`1  
    '参考文献 >+}yI}W;e  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") Q`= ,&;T>  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" )>-94xx|  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False Lt'FA  
    With ActiveDocument.Styles("QLNU参考文献").Font f%#q}vK-  
        .NameFarEast = "宋体" wz[Xay9jW  
        .NameAscii = "Times New Roman" =(]yl_  
        .NameOther = "Times New Roman" ":
igYh  
        .Name = "Times New Roman" 4v[Zhf4JM  
        .Size = 12 ::<v; `l  
        .Bold = False vGX L'k  
        .Italic = wdUndefined @J~hi\&`  
        .Subscript = wdUndefined hB[VU ";  
        .Superscript = wdUndefined vca]yK<u  
        .Underline = wdUnderlineNone MKiP3kt
8  
        .UnderlineColor = wdColorAutomatic ylTX  
        .Color = wdColorAutomatic $W_sIS0\z  
        .Engrave = False V.\12P  
    End With ]*/%5ZOI&
 
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat +g.lLb*#  
         8&q[jxI@8  
        .LineSpacingRule = wdLineSpaceExactly <D}y qq@|  
        .LineSpacing = 16 QVT|6znw  
        .Alignment = wdAlignParagraphLeft Uw!N;QsC  
        .WidowControl = False 4eD>DW  
        .KeepWithNext = False qnO>F^itF  
        .KeepTogether = False >]dH1@@  
        .PageBreakBefore = False T~D2rt\  
        .OutlineLevel = wdOutlineLevelBodyText o57r ,`N  
         WR:I2-1  
        .LeftIndent = CentimetersToPoints(0) )\O;Rt(  
        .RightIndent = CentimetersToPoints(0) rf\/Y"D  
        .FirstLineIndent = CentimetersToPoints(0) )#%v1rR  
         X0FTD':f  
        .CharacterUnitLeftIndent = 0 .I h'&  
        .CharacterUnitRightIndent = 0 |[+/ ]Y  
        .CharacterUnitFirstLineIndent = -2 p)&Yr  
         "@s</HGo  
        .LineUnitBefore = 0 ~7;AV(\%e  
        .LineUnitAfter = 0 gPJZpaS   
        .SpaceBefore = 0 a8w/#!^34  
        .SpaceAfter = 0 8?l /
x  
         Al}D~6MD  
    End With j'IZetT  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False TmEJ!)*  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll b= $(`y  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS >U7{EfUJdx  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True ja2BK\"1:  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese Bjc<d,]  
    DoEvents [H4)p ,R  
Ns2<wl-  
    ' (JX 9c  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") tDWoQ&z2t_  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" cPp<+ ts  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False {e]ktj#+{  
    With ActiveDocument.Styles("QLNU论文题目").Font qT153dNA&  
        .NameFarEast = "黑体" +H**VdM6s  
        .NameAscii = "Arial Black" %M7EOa  
        .NameOther = "Arial Black" k`(Cwp{Oc  
        .Name = "Arial Black" Y[~Dj@Q<  
        .Size = 16 r)]8zK4;=  
        .Bold = False L9}%tEP  
        .Italic = wdUndefined %mFZ!(  
        .Superscript = wdUndefined F-TDS<[S?  
        .Subscript = wdUndefined xq@_' 3X  
        .Underline = wdUnderlineNone +eUWf{(_  
        .UnderlineColor = wdColorAutomatic Od]B;&F  
        .Color = wdColorAutomatic W ])Lc3X  
(q yT,K8  
    End With :P/0"  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat oVAY}q|wU  
        .LineSpacingRule = wdLineSpaceSingle ]yAOKmS  
        .Alignment = wdAlignParagraphCenter cLm|^j/  
        .WidowControl = True R!z32 <5k  
        .KeepWithNext = True P9 yg  
        .KeepTogether = True bc3 T8(  
        .PageBreakBefore = True ehTRw8"R  
        .NoLineNumber = False =zsA@UM0  
        .OutlineLevel = wdOutlineLevelBodyText L]e@./C$  
         gt \
O  
        .LeftIndent = CentimetersToPoints(0) &x.n>O  
        .RightIndent = CentimetersToPoints(0) O'.sK pXe  
        .FirstLineIndent = CentimetersToPoints(0) 4 Q<c I2|  
         eeM$c`Y<  
        .CharacterUnitLeftIndent = 0 jCK 0+,;  
        .CharacterUnitRightIndent = 0 )<K3Fz Bs  
        .CharacterUnitFirstLineIndent = 0 LW#
$%}  
         Of gmJ(%  
        .LineUnitBefore = 1 Oj]4jRew  
        .LineUnitAfter = 1 ^| r6>b  
         5 fDp"-  
        .BaseLineAlignment = wdBaselineAlignAuto :k/Z|  
    End With |!6<L_31%  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False a<CJ#B2K  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll :ceT8-PBRx  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS QLLMSa+! \  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True /6@$^paB  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese 1e)5D& njS  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True (k$KUP  
    DoEvents crlCN  
     ?#0m[
k&`  
    '中文摘要 /D~MHO{  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") YZ(tjIgQ  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" GOU>j"5}2  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False L (@".{T  
    With ActiveDocument.Styles("QLNU中文摘要").Font Lk`,mjhk  
        .NameFarEast = "宋体" X%R)  
        .NameAscii = "Times New Roman" \Y$@$)   
        .NameOther = "Times New Roman" bNh~=[E  
        .Name = "Times New Roman" {8e4TD9E0  
        .Size = 12 ^
&!iqK2o  
        .Bold = wdUndefined V2oXg  
        .Superscript = wdUndefined /r?EY &9G  
        .Subscript = wdUndefined H[J5A2b  
        .Italic = wdUndefined :8LK}TY7  
        .Underline = wdUnderlineNone tO~o-R  
        .UnderlineColor = wdColorAutomatic d>gN3}tT  
        .Color = wdColorAutomatic
AAc*\K  
    End With c`s ]ciC  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat [,T
K"  
        .LineSpacingRule = wdLineSpaceExactly f+V^q4  
        .LineSpacing = 20 'z$!9ufY,  
        .Alignment = wdAlignParagraphLeft "QLp%B,A  
         LUKt!I0l  
        .WidowControl = False .T*89cEu  
        .KeepWithNext = False ?Zh,W(7W  
        .KeepTogether = True `
)n/J+g  
        .PageBreakBefore = False @g%^H)T  
        .NoLineNumber = False IfzW%UL  
        .OutlineLevel = wdOutlineLevelBodyText ZxoAf;U~  
         ZOzwO6(_  
        .LeftIndent = CentimetersToPoints(0) [J\! 2\Oo  
        .RightIndent = CentimetersToPoints(0) VlFhfOR6
t  
        .FirstLineIndent = CentimetersToPoints(0) 4ND T5s L  
         OhiY <  
        .CharacterUnitLeftIndent = 0 p/ au.m
c  
        .CharacterUnitRightIndent = 0
t2_pwd*B  
        .CharacterUnitFirstLineIndent = 2 QdK PzjA  
        .LineUnitBefore = 0 kJNu2S  
        .LineUnitAfter = 0 9Ac4'L  
         La8D%N  
    End With j|w_BO 9  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False g$T% C?  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll !V27ln KP+  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS \F8 :6-  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True |_u|Td(n  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese |y DaFv  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True :Oh*Q(>  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete Jq8:33s  
    DoEvents E5Zxp3N  
     2*pNIc  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") _)a!g-Do7  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" l|L ]==M  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False COFCa&m9c  
    With ActiveDocument.Styles("QLNU英文标题").Font C+vk9:"  
        .NameFarEast = "黑体" EY}*}-3  
        .NameAscii = "Arial Narrow"  CT[CM+  
        .Name = "Arial Narrow" p"|0PlW  
        .Size = 16 Cm%xI&Y  
        .Bold = True |0$7{nQ  
        .Bold = wdUndefined $0,lE+7*  
        .Superscript = wdUndefined 9D{p^hd  
        .Subscript = wdUndefined hwi$:[  
        .Italic = wdUndefined /7&WFCc)(  
         lnWscb3t  
        .Underline = wdUnderlineNone nq 9{{oe  
        .UnderlineColor = wdColorAutomatic u,`cmyZ  
        .StrikeThrough = False a" !r]=r  
        .DoubleStrikeThrough = False  I#U)  
    End With ~yu\vqN  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat !)HB+yr  
        .LineSpacingRule = wdLineSpaceSingle $^5c8wT  
        .Alignment = wdAlignParagraphCenter
Ocf:73t  
        .WidowControl = True 0NM
mN_Lr  
        .KeepWithNext = False HSlAm&Y\  
        .KeepTogether = False r68d\N`.  
        .PageBreakBefore = False ,r,$x4*  
        .NoLineNumber = False I'c rH/z9  
        .FirstLineIndent = CentimetersToPoints(0) XLj|y# h  
        .OutlineLevel = wdOutlineLevelBodyText }~!KjFbs  
         PwS7!dzH-  
        .LeftIndent = CentimetersToPoints(0) ={B?hjo<-
 
        .RightIndent = CentimetersToPoints(0) rOTxD/  
        .FirstLineIndent = CentimetersToPoints(0) WVdF/H  
         3Q2z+`x'  
        .CharacterUnitLeftIndent = 0 EncJB  
        .CharacterUnitRightIndent = 0 (dHil#l  
        .CharacterUnitFirstLineIndent = 0 i/j eb*d0  
         I.{%e;Reg  
        .LineUnitBefore = 1 6g 5Lf)yG  
        .LineUnitAfter = 1 rtT*2k*  
         k *|WI$  
    End With &H:2TL!  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False >vZ^D  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll Ry`Y +  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS DgGG*OXY  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True u iR[V~  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese ^+u/Lw&  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True gT#hF]c:  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete a]t| /Mq  
    DoEvents 1JY3c M  
.*{0[  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") '"]QAj?N  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" y1t,i. [  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False |*JMCI@Mz  
    With ActiveDocument.Styles("QLNU英文摘要").Font j%Wip j;c  
        .NameFarEast = "宋体" >slGicZ0  
        .NameAscii = "Arial" ;GZ/V;S  
        .NameOther = "Arial" m98w0D@Ee  
        .Name = "Arial" ]}d.h!`<)  
        .Size = 12 !BEl6h  
        .Bold = wdUndefined yv2wQ_({  
        .Italic = wdUndefined >"<<hjKJ  
        .Superscript = wdUndefined zdgSq
 v  
        .Subscript = wdUndefined ?vg|;Q  
    End With 7"p%c`*;  
     \!df)qdu  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat d#u*Nw Y}  
         uU!}/mbo  
        .LineSpacingRule = wdLineSpaceExactly nRh.;G  
        .LineSpacing = 20 t$ (<9  
         NflRNu:-  
        .Alignment = wdAlignParagraphJustify
sG:tyv ln  
         w3K>IDWI7  
        .WidowControl = False 2SJ|$VsLaE  
        .KeepWithNext = False H'x)[2  
        .KeepTogether = False #OVS]Asn}  
        .PageBreakBefore = False arb'.:[z^  
        .NoLineNumber = False W3]?>sLE*  
         lJ(];/%  
        .OutlineLevel = wdOutlineLevelBodyText gbT1d:T  
         2<TpNGXM_  
        .LeftIndent = CentimetersToPoints(0) ;, ^AR{+x  
        .RightIndent = CentimetersToPoints(0) ]z"7v  
        .FirstLineIndent = CentimetersToPoints(0) ]_mcJ/6:  
         v 0D@`C  
        .CharacterUnitLeftIndent = 0 p#>d1R1&  
        .CharacterUnitRightIndent = 0 >L,Pw1Y0W[  
        .CharacterUnitFirstLineIndent = 2 .Gn-`  
         N6w!V]b  
        .LineUnitBefore = 0 25/M2u?  
        .LineUnitAfter = 1 I0v4TjHH  
         8=WX`*-uH  
    End With 4rH:`494  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False _&K>fy3t&  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll ]<:qMLg  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS U^d!*9R  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False !f)^z9QX8  
    DoEvents hZUnNQ  
 [f#7~  
    Options.Pagination = True ;C~:C^Q\H  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." p.x!dt\1kC  
    DoEvents k@9CDwh*s  
    ActiveDocument.Repaginate _)-y&  
3<X*wVi)NN  
End Sub %^}|HG*i??  
W7?f_E\>W  
7qEc9S@
 

姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 z1m$8-4  
D0 ,t,,L  

引用

引用第20楼newport93于06-14-2010 13:47发表的  : t+2,;G  
1 2J#}|  
老五，I 服了U。 dobqYd
4`  
N\W
4LO6  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。  :qrCqFl  

T )"Uq