Dim bContinue As Boolean &<!I]:Y  
4AP<mo  
Dim regEX As New RegExp @<alWBS  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 t5 5k#`Z  
E"u>&uPH  
Dim LastTitle0String As String, LastTitle0No As Long c-s ~q/  
Dim LastTitle1String As String, LastTitle1No As Long %kVpW& ~  
Dim LastTitle2String As String, LastTitle2No As Long 8dL(cC  
Dim LastTitle3String As String, LastTitle3No As Long 9KAXc(-  
Dim LastTitle4String As String, LastTitle4No As Long ^[qmELW#7  
Dim LastTitle5String As String, LastTitle5No As Long :S
Yg)|s  
Dim LastTabelString As String, LastTableNo As Long @8/-^Rh*  
Dim LastFigureString As String, LastFigureNo As Long lHP[WO  
T}4RlIZF  
Dim strSeperator As String yq;gBIiZ  
lIOLR-:4j  
Sub ConvertWidth(fTEXT As String, rText As String) CZbp}:|  
        Selection.Find.ClearFormatting uV%7|/fD  
        Selection.Find.Replacement.ClearFormatting pT[C[ h:  
        Selection.Find.Wrap = wdFindContinue /4=O^;  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText e'7!aysj  
        DoEvents #M8"b]oh6  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True GS)l{bS#[O  
End Sub iyj&O"  
8 Z#)Xb4  
Sub ClearDomain() v ?Y9z!M  
        With Selection.Find h^[K= J  
            .ClearFormatting .!=g   
            .Replacement.ClearFormatting Vl'|l)b4W  
            .Wrap = wdFindContinue <\yM{ V\  
            Me.txtStatus.Text = "清除所有域代码" 5GpRN  
            DoEvents [nflQW6  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False Q*U$i#,  
        End With |yQ3H)qB#  
End Sub FtY*I&  
W~DY-;  
Private Sub cmdCheck_Click() v( (fRX.`  
    bContinue = True _=,[5"  
    Dim NoSeries1(1 To 16) As String rY($+O@a<  
    Dim NoSeries2(1 To 16) As String BU])@~$  
    Dim NoSeries5(1 To 16) As String ?b2%\p`"  
    Dim NoSeriesRM(1 To 16) As String {mueP6Gz@J  
    Dim paraTotal As Long, ParaText As String rF 7EO%,  
    Dim ttString As String, ttNo As String [n66ZY#U]  
     4d6F4G4U  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long KZ<
zsHX8H  
6AzH'HF  
    Me.txtStatus.Visible = True J6::(0HM  
    Me.lbParaType.Visible = True sFB; /*C  
    Me.cmdCheck.Enabled = False +hKQha!*  
     L6U[H#3(  
     \.Q"fd?a_D  
     WvN5IHo 8i  
     Oja)J-QXb  
    Dim ParaType As String, rText As String WO_cT26Y  
     G~^Pkl3%T  
    Selection.WholeStory G~YV6??  
    Selection.NoProofing = True 6)DYQ^4y  
     [h,T.zpa  
    tm1 = Now 3pq&TYQU  
     P3@
[x  
        ActiveWindow.View.Type = wdNormalView |4wVWJ7   
     )zen"](cze  
    NoSeries1(1) = "一" +h[$\_y  
    NoSeries1(2) = "二" KVqQOh'_T  
    NoSeries1(3) = "三" #9p{Y}2#  
    NoSeries1(4) = "四" Q0nSOT Q  
    NoSeries1(5) = "五" w,JB`jS)/  
    NoSeries1(6) = "六" r#^X]  
    NoSeries1(7) = "七" Ok O;V6`  
    NoSeries1(8) = "八" eGnc6)x@C  
    NoSeries1(9) = "九" I_Oa<J\+  
    NoSeries1(10) = "十" cH"M8gP#  
    NoSeries1(11) = "十一" knF *~O :y  
    NoSeries1(12) = "十二" 2<Ub[R  
    NoSeries1(13) = "十三" I[&z#foN=w  
    NoSeries1(14) = "十四" uKtrG,/ p  
    NoSeries1(15) = "十五" Q{mls  
    NoSeries1(16) = "十六" .F}ZP0THnZ  
     rWSw1(sAA  
    NoSeries2(1) = "㈠" ~@L$}Eu  
    NoSeries2(2) = "㈡" U2+CL)al^  
    NoSeries2(3) = "㈢" >#c]rk:  
    NoSeries2(4) = "㈣" [)9bR1wh  
    NoSeries2(5) = "㈤" .$S`J2Y  
    NoSeries2(6) = "㈥" nvpdu)q<  
    NoSeries2(7) = "㈦" ^=Up UB  
    NoSeries2(8) = "㈧" Yc\;`C  
    NoSeries2(9) = "㈨" zneK)C8&q3  
    NoSeries2(10) = "㈩" l=bB,7gL  
     {f)" ,#  
    NoSeries5(1) = "①" 7kG >s9O  
    NoSeries5(1) = "②" sx(yG9  
    NoSeries5(3) = "③" blxH`O!  
    NoSeries5(4) = "④" nG{jx_{`  
    NoSeries5(5) = "⑤" !]5F2~"v  
    NoSeries5(6) = "⑥" Gl}=Q7  
    NoSeries5(7) = "⑦" 3P'.)=}  
    NoSeries5(8) = "⑧" RQ9T<t42  
    NoSeries5(9) = "⑨" ILTd*f
 
    NoSeries5(10) = "⑩" J%D'Xlb  
     <[[DS%(M^  
     j3z&0sc2(0  
    NoSeriesRM(1) = "I" 4$ejJaE  
    NoSeriesRM(2) = "II" bg[q8IBCd
 
    NoSeriesRM(3) = "III" 4z[Z3|_V  
    NoSeriesRM(4) = "IV" m5f/vb4l  
    NoSeriesRM(5) = "V" g24)GjDi  
    NoSeriesRM(6) = "VI"  j}S  
    NoSeriesRM(7) = "VII" [4( TG<I  
    NoSeriesRM(8) = "VIII" 0(- 'L\<>x  
    NoSeriesRM(9) = "IX" hRGK W  
    NoSeriesRM(10) = "X" \asF~P  
    NoSeriesRM(11) = "XI" <@5#  
    NoSeriesRM(12) = "XII" #).om*Xh  
    NoSeriesRM(13) = "XIII" Q|+m)A4@  
    NoSeriesRM(14) = "XIV"
fm:/}7s
 
    NoSeriesRM(15) = "XV" 3}n=od=  
    NoSeriesRM(16) = "XVI" }=7tGqfw  
     *1}9 `$  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) ;c<:"ad(  
     ~D<o}ItRF  
    If i = vbNo Then 3(6i6 vV  
        Exit Sub ,Ea.ts>  
    End If
{EZ ;  
     "YHe]R>3s  
    If Me.chkSuper.Value Then [*8wv ^  
        Me.txtStatus.Text = "检查修改所有的上标格式" -4Y}Y59\  
     )#i]exZ  
        CheckSuperScript \wO)w@ "  
         CI$F#j  
    End If QTK \"  
     mNm 8I8  
    If Me.chkStyle.Value Then yq\)8Fe  
        Me.txtStatus.Text = "设置样式，请稍候...." <k}>eGn  
        DoEvents N;RZIg(x  
        CeateOrModifyStyle 3"!2C,3c#  
    End If kw|bEL9!u  
     XQ,IEj|  
     <k/'mBDk  
     \L6U}ZQ2V  
    ClearDomain 'Ys"yY@  
         rWi
9' 6  
     6"eGd "  
     E{Y0TZ+  
    If Me.chkLIST.Value Then ?nj _gL  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" $fuFx8`2W  
     1wqCoDgkp  
        ConvertListToOrdinary H>-,1/IY  
    End If u ldea)  
     *sB=Ys?  
     O)&xT2'J  
    Dim pType As String, trimpTEXT As String c3i|q@ k  
    If Me.chkNum.Value = True Then 9= \bS6w*  
        Me.txtStatus.Text = "转换全角数字形式为半角" JL2IVENWc  
        ConvertWidth "１", "1" ^/mQo`[G  
        DoEvents D-A#{e _  
        ConvertWidth "２", "2" +;U}SR<  
        DoEvents @+B .<@V  
        ConvertWidth "３", "3" +z;xl-*[  
        DoEvents E^#|1Kpq  
        ConvertWidth "４", "4" Rm)vY}v  
        DoEvents r/:s2oQ  
        ConvertWidth "５", "5" hG&RGN_<6+  
        DoEvents cd*y{Wt  
        ConvertWidth "６", "6" m-> chOu~|  
        DoEvents XC0G5rtB  
        ConvertWidth "７", "7" ;^O^&<  
        DoEvents -5kq9Dy\,  
        ConvertWidth "８", "8" H>;km$b +  
        DoEvents 6i%LM`8GEk  
        ConvertWidth "９", "9" bHWy9-  
        DoEvents BAg*zYV7  
        ConvertWidth "０", "0" / D#vs9S  
        DoEvents }B^s!y&b  
        ConvertWidth "ａ", "a" _N9yC\  
        DoEvents &g.w~KWa  
        ConvertWidth "ｂ", "b" 9BNAj-Xa  
        DoEvents u#la+/   
        ConvertWidth "ｃ", "c" ^yH|k@y  
        DoEvents X1#D }  
        ConvertWidth "ｄ", "d" B;hc|v{(  
        DoEvents KW^s~j  
        ConvertWidth "ｅ", "e" o(C({]UO/  
        DoEvents q;tsA"l  
        ConvertWidth "ｆ", "f" Z]uN9c  
        DoEvents /2Y Nu*v  
        ConvertWidth "ｇ", "g" = J).(E89  
        DoEvents N, ;'oL+  
        ConvertWidth "ｈ", "h" J0mY=vX  
        DoEvents  6<sB  
        ConvertWidth "ｉ", "i" fcD$km  
        DoEvents hH )jX`Ta  
        ConvertWidth "ｊ", "j" X f!Bsp#\g  
        DoEvents f![x7D$  
        ConvertWidth "ｋ", "k" PFUb\AY  
        DoEvents 0MrtJNF]_O  
        ConvertWidth "ｌ", "l" q
,$UKg#i  
        DoEvents ^?&Jq_oU  
        ConvertWidth "ｍ", "m" ;oWhTj`  
        DoEvents 2~Gcoda  
        ConvertWidth "ｎ", "n" )|uPCZdLZ  
        ConvertWidth "ｏ", "o" XV). cW|.a  
        ConvertWidth "ｐ", "p" dGP*bMCT  
        ConvertWidth "ｑ", "q" |C7GI[P  
        ConvertWidth "ｒ", "r" 4UC/pGZY  
        ConvertWidth "ｓ", "s" J>]' {!+  
        ConvertWidth "ｔ", "t" =n9adq  
        ConvertWidth "ｕ", "u" }9<aX Y,  
        ConvertWidth "ｖ", "v" ZCbxL.fFz  
        ConvertWidth "ｗ", "w" TBrAYEk  
        ConvertWidth "ｘ", "x"  .;iXe  
        ConvertWidth "ｙ", "y" NVeb,Pf  
        ConvertWidth "ｚ", "z" )'DFDrY  
        ConvertWidth "Ａ", "A" `H+ 7Hj  
        ConvertWidth "Ｂ", "B" @Eqc&v!O  
        ConvertWidth "Ｃ", "C" Y?ZTl762  
        ConvertWidth "Ｄ", "D" $ 7O[|:Yv  
        ConvertWidth "Ｅ", "E" 91mXvQ:u  
        ConvertWidth "Ｆ", "F" ')Ozz<{  
        ConvertWidth "Ｇ", "G" V4/P  
        ConvertWidth "Ｈ", "H" V{ra,a*  
        ConvertWidth "Ｉ", "I" G/2@ Mn-  
        ConvertWidth "Ｊ", "J"
Y@M=6G  
        ConvertWidth "Ｋ", "K" P}DrUND  
        ConvertWidth "Ｌ", "L" VGWqy4m  
        ConvertWidth "Ｍ", "M" 6"-LGK:  
        ConvertWidth "Ｎ", "N" 6\OSIxJZ F  
        ConvertWidth "Ｏ", "O" "&Q-'L!M'/  
        ConvertWidth "Ｐ", "P" (U/6~r'.L  
        ConvertWidth "Ｑ", "Q" s3/->1#i  
        ConvertWidth "Ｒ", "R" Ny\iRU)fN  
        ConvertWidth "Ｓ", "S" )&se/x+  
        ConvertWidth "Ｔ", "T" Qn[4&nUD  
        ConvertWidth "Ｕ", "U" 57v[b-SK  
        ConvertWidth "Ｖ", "V" uC 5mxZ  
        ConvertWidth "Ｗ", "W" b;9v.MZ4>g  
        ConvertWidth "Ｘ", "X" htMsS4^Kvd  
        ConvertWidth "Ｙ", "Y" 6jPaS!E  
        ConvertWidth "Ｚ", "Z" 08yTTt76t  
        ConvertWidth "^l", "^p" ;T-i+_  
        ConvertWidth "（", "(" @hQ+p
G@s  
        ConvertWidth "）", ")" IC92lPM }  
     zRsT6u  
    End If j3Cpo x  
scJ`oc:<J  
    With ActiveDocument PPPRO.y  
        Dim tbl As Table >F Z6\  
        For Each tbl In .Tables L4 x  
            tbl.Rows.Alignment = wdAlignRowCenter \EUc1
7  
            tbl.Range.Font.NameFarEast = "楷体" j=PQoEtU'<  
            tbl.Range.Font.NameAscii = "Times New Roman" 4-ZiKM  
            tbl.Range.Font.Size = 10.5 oel3H5Nz  
        Next >(`|oD`,Y  
        Set tbl = Nothing <LzN/I aJ  
    End With Y]&HU) u  
     jR}h3!  
     l  \xIGs  
    With ActiveDocument (.<Gde#  
         >
~>=[M0  
        For i = 1 To .TablesOfContents.Count e`<=&w  
            .TablesOfContents(i).Delete @l$cZie  
        Next 84e)huAs  
         fnL!@WF  
         f^:9gRt  
         K&D -1u   
        paraTotal = .Paragraphs.Count V6BCW;  
        paraCounter = 1 W-7yi`5  
         EG7
ki0  
        LastTitle0No = 0 N#Qby4w >  
        LastTitle1No = 0 &p=|z2 J  
        LastTitle2No = 0 \>23_
d0  
        LastTitle3No = 0 ^^3 >R`  
        LastTitle4No = 0 x>&1;g2r  
        LastTableNo = 0 (^eE8j/K  
        LastFigureNo = 0 :9_K@f?n  
         s-* 8=  
        Dim Sec As Long }\*dD2qNL}  
         Vy-H3BR  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) lOI(+74  
        If Sec = 0 Then ) ;-AT^  
            Exit Sub W%Br%VQJ  
        End If <4rF3 aB-  
         qNC.|R  
        k = 0 E88_15'3D  
        Do While (paraCounter < paraTotal) And bContinue 3L=vsvO4  
            k = k + 1 1 (P>TH  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then {LR?#.   
                Exit Do rM=Q.By+\  
            End If g#9KG  
            paraCounter = paraCounter + 1 !@ai=p  
            If k Mod 20 = 0 Then Ij@YOt  
                Me.lbCounter.Caption = paraCounter |Wi$@sWO  
                DoEvents p
jIXZ=  
            End If Ocx=) WKdW  
        Loop +]`MdOu  
         76zi)f1f  
         i. `S0  
        Do While (paraCounter < paraTotal) And bContinue OHp 121  
             D GOc!  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) `"A\8)6-  
            ShapeHeight = 0 sBZKf8@/  
            ShapeWidth = 0 '
#u|RsZ  
           :g+R}TR[i  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth Zo-s_6uC  
             Z-Bw?_e_K  
            Select Case ParaType YUM%3  
                Case "【】表格内容" Uu }ai."iB  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" &R\ .^3  
                Case "章" 8'Z9Z*^h#x  
                    LastTitle0No = LastTitle0No + 1 <`H:Am`  
                    '新一章开始，复位其下属标题编号 O'$0K0k3  
                    LastTitle1No = 0 JgYaA*1X  
                    LastTitle2No = 0 r\` R$  
                    LastTitle3No = 0 aR*z5p2-w  
                    LastTitle4No = 0 -;Cl0O%  
                     1wE~dpnx  
                    k = Val(ttNo) 3$(1LN  
                    If k = 0 Then '非数字编号章节 )h2wwq0]  
                        If ttNo <> NoSeries1(LastTitle0No) Then l: 1Zq_?v;  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString gPQ2i])"Q  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText S 7E :&E&  
                        End If b==<7[8  
                    Else niqiDT/  
                        If Val(ttNo) <> LastTitle0No Then ~iEH?J%i1r  
                            rText = "第" & LastTitle0No & ttString WH/
r$.&  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText 4=*VXM/  
                        End If %$!}MxUM  
                         -]W AB9  
                    End If 19bP0y  
                     k2k/v[60  
                    '章段落设置 )Qp?N<&'  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 Ur?a%]  
                    .Paragraphs(paraCounter).Style = "QLNU章节" \qNj?;B  
                    .Paragraphs(paraCounter).Range.Select J--9VlC'  
                    Selection.EndKey unit:=wdLine 'WxcA)z0cQ  
                    tc = Replace(rText, vbCr, "") w<-CKM3qe  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False wKXKc\r  
                Case "一级标题" G/N'8Q)  
                    LastTitle1No = LastTitle1No + 1 uJF,:}qA  
                    '新一级标题开始，复位其下属标题编号 (!W:-|[K
\  
                    LastTitle2No = 0 J3S@1"   
                    LastTitle3No = 0 RfEmkb<9Z  
                    LastTitle4No = 0 ,%v  
                     42ttmN1F  
                    If ttNo <> NoSeries1(LastTitle1No) Then |DwI%%0(F  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString 9_5Fl,u z  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText 0)yvyQ5  
                    End If i7mT<w>?  
                   S=eY`,'#R  
                     Vyu0OiGcR  
                    '一级标题段落设置  格式：一、标题内容 %89f<F\V  
                    .Paragraphs(paraCounter).Range.Text = rText ?P0$n 7,  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" #f\U
3p  
                    .Paragraphs(paraCounter).Range.Select _Bb/~^  
                    Selection.EndKey unit:=wdLine pW waN4  
                    tc = Replace(rText, vbCr, "") nFX8:fZ$>  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False 8iqx*8}  
                Case "二级标题" %]r@vjeyd  
                    LastTitle2No = LastTitle2No + 1 My,ki:V?g6  
                    '新二级标题开始，复位其下属标题编号 FUvZMA$  
                    LastTitle3No = 0 P`T&zK  
                    LastTitle4No = 0 FTtYzKX(bv  
                     psgXJe$  
                    If ttNo <> NoSeries1(LastTitle2No) Then ,]y)Dy  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString 0Evmq3,9  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText 9~ K1+%!  
                    End If R l^ENrv!]  
                     +>44'M^Z|(  
                    '二级标题段落设置 格式：(一)、标题内容 o*'J8El\y^  
                    .Paragraphs(paraCounter).Range.Text = rText v&xk?F?WU,  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" 4F)z-<-b  
                     a}hpcr({?  
                    .Paragraphs(paraCounter).Range.Select HGh`O\f8  
                    Selection.EndKey unit:=wdLine K$R1x1lc2  
                    tc = Replace(rText, vbCr, "") ^
r}^-  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False |9~{&<^X  
                 "'^#I_*Mf  
                Case "三级标题" A^bg*t,  
                    LastTitle3No = LastTitle3No + 1 Z[ZqQ` 7N  
                    '新三级标题开始，复位其下属标题编号 daGGgSbh  
                    LastTitle4No = 0 b H?dyS6Bx  
                     $*9h\W-)`Q  
                    If Val(ttNo) <> LastTitle3No Then kNd[M =%  
                            rText = LastTitle3No & ". " & ttString lRZt
))3  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText #-f7hg*  
                         B9>3xxp(by  
                    End If xzz[!yJjG  
                    '三级标题段落设置 格式：1. 标题内容 h=EJNz>U  
                    .Paragraphs(paraCounter).Range.Text = rText K/g\x0  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" )$#ov-]  
                    .Paragraphs(paraCounter).Range.Select :G9.}
VrU  
                    Selection.EndKey unit:=wdLine O)Nj'Hcu  
                    tc = Replace(rText, vbCr, "") k$i76r  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False x5c pv  
                Case "四级标题" <6Y o
%xt  
                    LastTitle4No = LastTitle4No + 1 D?)"Z$  
                     I} kx;!*b  
                    If Val(ttNo) <> LastTitle4No Then =zK7`5  
                            rText = "(" & LastTitle4No & "). " & ttString ,fT5I6l  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText V`l.F"<L  
                     j _o6+Rk  
                    End If p*-o33Ve  
                    '四级标题段落设置 格式：(1). 标题内容 M9fAv  
                    .Paragraphs(paraCounter).Range.Text = rText =xS(Er`r  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" 8N'`kd~6[  
                    .Paragraphs(paraCounter).Range.Select '2WYbcU  
                    Selection.EndKey unit:=wdLine =L#tSa=M"  
                    tc = Replace(rText, vbCr, "") A@?2qX^4  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False n-#?6`>a  
                 ,}=x8Xxr  
                Case "表格标题" Y6?d
y\  
                    LastTableNo = LastTableNo + 1 ALiA+k N  
                     1YTnOiYS1  
                    If ttNo <> CStr(LastTableNo) Then 6HCP1`gg   
                            rText = "表" & LastTableNo & ". " & ttString z5=&qo|f9l  
                            ErrMsg.AddItem "表格编号错误：" & ParaText "6gu6f  
                   qg 4:Vq  
                    End If S=0zP36kH:  
                     CD +,&id  
                    '表格名称段落设置 格式：表1. 表格名称 :05>~bn>pC  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" V2^(qpM!  
                    xe = Replace(rText, vbCr, "") V=H87^b  
                    .Paragraphs(paraCounter).Range.Select B=(m;A#G  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 *QG>U[  
                    Selection.Range.Text = xe ",B92[}Ar  
                    Selection.EndKey VWI|`O.w  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False V#ZF0a]  
                 1Yo9Wf;vP  
                Case "表格首行" JY(_}AAu  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" _ncqd,&z  
                Case "图片标题" p,* rVz[Y  
                    LastFigureNo = LastFigureNo + 1 _SJ#k|vcq  
                     ^*C8BzcH  
                    If ttNo <> CStr(LastFigureNo) Then ?}D@{%O3T  
                            rText = "图" & LastFigureNo & ". " & ttString
Dr^#e  
                            ErrMsg.AddItem "表格编号错误：" & ParaText +`r;3kH ..  
                   aW$sd)  
                    End If ZL:nohB  
                    '图片名称段落设置 格式：图1. 图名称 Egi<m  
                    .Paragraphs(paraCounter).Range.Text = rText a-MDZT<xA+  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" )|~pocXt<  
                    .Paragraphs(paraCounter).Range.Select =nh/w#  
                    Selection.EndKey unit:=wdLine "]f0wLzh  
                    xe = Replace(rText, vbCr, "") i5T&1W i  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False RCsQLKqF  
                Case "正文" (%rO'X  
                     '正文名称段落设置 ^cz#PNB  
                    .Paragraphs(paraCounter).Style = "QLNU正文" nAZuA]p}S]  
               Case "文献条目" HpiP"Sl  
                    With .Paragraphs(paraCounter) s_N?Y)lS+(  
                        '.Range.Select f]tc$`vb  
                        'Selection.ClearFormatting U] riBlg>  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” u7=`u/  
                        .Style = "QLNU参考文献" ryy".'v  
                    End With G'^Qi}o  
               Case "图表注解" >)YaWcI  
                    With .Paragraphs(paraCounter) V:4]]z L}  
                        .Range.Font.NameFarEast = "楷体" %G1kkcdH<  
                        .Range.Font.NameAscii = "Times New Roman" B<SuNbR  
                        .Range.Font.Size = 9 '小5号字 ^G.PdX$M  
                         2j9Mr  
                        .Alignment = wdAlignParagraphCenter >V2Tr$m j  
                        .LeftIndent = 0 5`53lK.C  
                        .RightIndent = 0 \{ r%.G  
                        .FirstLineIndent = 0 x6d+`
4  
                        .LineSpacing = 12 @" UoQ_h%  
                        .LineSpacingRule = wdLineSpaceExactly ng(STvSh:  
                        .LineUnitAfter = 0 h|$.`$  
                        .LineUnitBefore = 0 Kr3L~4>  
                        .OutlineLevel = wdOutlineLevelBodyText 9+)5#!0  
                        .PageBreakBefore = False aF7" 4^P  
                        .RightIndent = 0 l~kxt2&  
                        .WordWrap = True *.#d '~+  
                        .LineUnitAfter = 0.5 ijOUv6=-  
                         cY
^>`  
                    End With p&/}0eL y  
                Case Else })#6BN  
                    '不作处理 .>%(bH8S  
            End Select R=yn4>I  
             ~4S@kYe{3K  
            '含有inlineshape的段落处理 &x =}
m  
            If ShapeHeight > 30 Then _5 Zhv-7  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 Z&e_yl  
            End If sPuNwVX>}I  
             `h*)PitRa  
            If (ShapeWidth + ShapeHeight) > 150 Then g]PmmK_L  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" S 'S|k7Lp  
            End If bnt>j0E  
             Tp2` eY5  
            '段落计数器递 P!q!+g  
            paraCounter = paraCounter + 1  w~wpm7  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter 2fM*6CaS  
            Me.txtStatus.Text = ParaText {s&6C-  
            DoEvents I?}YS-2  
        Loop o(Yj[:+m  
    End With <)ozbv Xk  
     8XZS BR(Z  
    msg = "" [1K\ _  
     5TqB&GP0  
    For i = 0 To Me.ErrMsg.ListCount - 1 *^e06xc:  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) M@ILB-H  
    Next H,bYzWsrPo  
     d%FD=wm  
     r)UtS4 7  
     G9J+D?'hH  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg |Byw]\3v  
    Me.cmdCheck.Enabled = True 
l ?RsXC  
    Me.txtStatus.Visible = True atRWKsY<  
    Me.lbParaType.Visible = False MA0}BJoW  
     &,/_"N"?D  
    bContinue = False Hg(%gT  
End Sub Bj5_=oo+d  
6}zargu(;  
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) ,)^4H>~V  
    Dim pTEXT As String .\K0+b;  
     gM~
dPM|  
    pTEXT = ChKRange.Text [}Vne;V  
     4jMCE&<  
    ParaType = "其它" eT* )r~  
    TitleString = pTEXT XC"]/y  
    TitleNo = "N/A" kXK D>."E*  
     =oz$uD}?  
    shpCounter = ChKRange.InlineShapes.Count D=uU:7m  
    If shpCounter <> 0 Then
*Y8nea^$  
        MaxShpHeight = 0: TotalShpWidth = 0 $Tci_(V=F  
        For i = 1 To shpCounter ^EY^.?Mg  
            k = ChKRange.InlineShapes(i).Height w7aC=B/{?i  
            l = ChKRange.InlineShapes(i).Width ANh7`AUuO  
            If k > MaxShpHeight Then N]f"+  
                MaxShpHeight = k mxUM&`[  
            End If I/:M~ b  
            TotalShpWidth = TotalShpWidth + l /qp)n">  
        Next .21[3.bp/q  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then w-9M{Es+j  
            Exit Sub 1;Bgtv$  
        End If w64/$  
    End If ^GMM%   
     L6S!?t.{Yv  
    '空行 &o@IMbJ8  
    If Len(pTEXT) <= 2 Then \@8j&],dl  
        Exit Sub `R]B<gp  
    End If w;f$oT  
     2w6y  
         8Ac5K!  
    '是否为表格中的文字 M{\W$xPL)  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then &+]x  
        ParaType = "表格内容" )1f8 H,q^  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) mT enzIp  
        If k = 1 Then 6 bj.z  
            ParaType = "表格首行" h ^QicvZ  
        End If 0G@sj7)]  
        Exit Sub X633.]+  
    End If -;rr! cQ?  
     ?VVtEmIN  
    '例外情况：脚注 )"SP >2}  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then V}de|=  
        ParaType = "脚注" 1C) l)pV  
        Exit Sub Y v22,|:  
    End If X@`kuWIUw  
     i`#5dIb  
    '例外情况：尾注 . KH3.v/c|  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then (`%$Aa9 J  
        ParaType = "尾注" rm}OV L  
        Exit Sub ipy1tXc  
    End If Qry?h*p+`  
     \Nd8,hE  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then 9[#9c v  
        ParaType = "页眉页脚" )y8 u+5^  
        Exit Sub 
;oL`fQyr  
    End If Y*oT(  
     [wKnJu  
     6%N.'wf  
    With regEX NJ" d`  
        .Global = True zl~`>  
         |j3fS[.$  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" lI#Ap2@  
        If regEX.Test(pTEXT) Then 7ip$#pzo  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") Qy!*U%tG'  
            TitleString = regEX.Replace(pTEXT, "$3") yc ize2>q  
            TitleNo = regEX.Replace(pTEXT, "$1") &,vPZ,7l  
            ParaType = "章" .8[U k^q  
            Exit Sub /q.iUwSK>  
        End If T
.m*LM  
         w=]id'`?q  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" GI:
J9TS  
        If regEX.Test(pTEXT) Then !=sM `(=~  
            ParaType = "一级标题" !8'mIXZ$  
            regEX.Execute (pTEXT) H<6TN^   
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") H\W/;Nn  
            TitleString = regEX.Replace(pTEXT, "$3") 9UF
^h{X  
            TitleNo = regEX.Replace(pTEXT, "$1") %=C49(/K_  
            Exit Sub Q#+y}pOLP  
        End If )L^GGy8w  
         _G9vsi  
        '全角或半角括号中的数字 {{'GR"D  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" Z.:g8Xl-6  
        If regEX.Test(pTEXT) Then ~cHpA;x9<^  
            ParaType = "二级标题" 1$1s0yg  
            regEX.Execute (pTEXT) ZcT%H*Ib]9  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") df@r2 /Y  
            TitleString = regEX.Replace(pTEXT, "$5") BT[jD}?  
            TitleNo = regEX.Replace(pTEXT, "$2") 2|
2'?  
            Exit Sub kY e3A&J  
        End If (- ]A1WQ?  
         T4H/D^X|  
        '阿拉伯数字  1. 2.
P[E:=p  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" sw:o3cC]  
        If regEX.Test(pTEXT) Then O+ ].'  
            ParaType = "三级标题" kl(id8 r  
            regEX.Execute (pTEXT) TCb 7-s  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 Io 8h 8N-  
            TitleString = regEX.Replace(pTEXT, "$3") -1~-uE.~4d  
            TitleNo = regEX.Replace(pTEXT, "$1") _t l  
            Exit Sub gmFCj
s  
        End If Nd5G-eYI  
         s"tyCDc.c  
        '全角或半角括号中的阿拉伯数字 ):LgZ4h  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" ?zFeP6C  
        If regEX.Test(pTEXT) Then k `#OXLR  
            ParaType = "四级标题" l
'Oz-p.@  
            regEX.Execute (pTEXT)  >gQJ6q  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") G{wIY"~4  
            TitleString = regEX.Replace(pTEXT, "$5") N*vBu`  
            TitleNo = regEX.Replace(pTEXT, "$2") dCbRlW  
            Exit Sub
>a6{y  
        End If G6l:El&  
         ^T^l3B[  
        '表格名称 &Nzq/~uqP  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" C2$_Ad=s  
        If regEX.Test(pTEXT) Then V5]}b[X  
            ParaType = "表格标题" |@Cx%aEKU  
            regEX.Execute (pTEXT) ~Bw)rf,  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) Wc6Jgpl  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) 0[\
^Y<ec  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) Nn`l+WA3  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 wNNInS6  
            Exit Sub pQ:7%+Om  
        End If Z>9uVBE02  
         R&lJ& SgC  
        '图片名称 i.O670D  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" aicvu(%EE  
        If regEX.Test(pTEXT) Then ?vnO@Bb/a  
            ParaType = "图片标题" U04TVQ
n`  
            regEX.Execute (pTEXT) B~\mr{|u  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") n\X'2  
            TitleString = regEX.Replace(pTEXT, "$3") CxvL!ew  
            TitleNo = regEX.Replace(pTEXT, "$1") H%`$@U>  
            Exit Sub nU^-D1s{  
        End If V'-}B6 3S>  
         4Z'/dI`  
        '参考文献 SVJL|S3k  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 nTG@=C#  
        If regEX.Test(pTEXT) Then 7yUtG^'b  
            ParaType = "文献条目" [:vH_(|  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") Bf)}g4nYn  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") wW.V>$q  
            Exit Sub *wvd[q h  
        End If j@7%%   
         mNc?`G_R  
        prfx = Left(pTEXT, 2) MKl`9 Y3Ge  
        If prfx = "注：" Or prfx = "注:" Then F!
N D  
            ParaType = "图表注解"
{~L{FG)O  
            Exit Sub $oPx2sb  
        End If 6"OwrJB  
         E:_m6 m  
         %S'gDCwq  
        ParaType = "正文" ~2HlAU))<&  
         <%_7%  
    End With 8ztVv   
End Sub 5mtsN#  
v--Qbu  
Sub ConvertListToOrdinary() :NHP,"  
    Dim st As Paragraph ,sa%u Fm  
    With ActiveDocument 2rzOh},RS  
        For i = .Paragraphs.Count To 1 Step -1 Wqy\yS [  
            Set st = .Paragraphs(i) YI877T9>  
            lst = st.Range.ListFormat.ListString nBN+.RB:(  
            If lst <> "" Then SC Qr/Q  
                st.Range.ListFormat.RemoveNumbers u!]g^r  
                st.Range.InsertBefore lst & " " FrKI=8
 
            End If X-lB1uq^  
        Next *VP-fyJp  
    End With @Rc/^B:  
    Set st = Nothing rAv)k&l  
End Sub Fj_ 6jsDb  
j3W )  
Private Sub UserForm_Activate() QsO%m  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" H}ie D"T_  
    Me.lbTotal.Font.Bold = True x/<eY<Vgm?  
    Me.txtStatus.Visible = False -2D/RE7|  
    Me.cmdCheck.Enabled = True GBh$nVn$  
Lm!/iseGv  
End Sub -za+Wa`vH  
WLO4P  
;?q>F3n  
Sub CheckSuperScript() ' F,.y6QU  
    Selection.Find.ClearFormatting iJ-z&=dOe  
    Selection.Find.Replacement.ClearFormatting pW y+oZ  
    With Selection.Find NZ|(#` X  
        .Text = "[【\[［〖](*)[】\]〗］]" r bfIH":  
        .Replacement.Text = "[\1]" k}0Y&cT!rU  
        .Replacement.Font.Superscript = True 3QD+&9{D  
        '.Replacement.Font.Color = wdColorBlue XABB6J]  
        .Forward = True zUQn*Cio e  
        .Wrap = wdFindContinue {E 'go]  
        .FORMAT = True 8LPvb#9=  
        .MatchCase = False spX*e1  
        .MatchWholeWord = False ep,"@,,  
        .MatchByte = False (yr<B_Y'MY  
        .MatchAllWordForms = False # $N)  
        .MatchSoundsLike = False *wfb~&:}  
        .MatchWildcards = True $;J:kd;<  
    End With f4mQDRlD  
    Selection.Find.Execute Replace:=wdReplaceAll EF8~rKO3  
End Sub XCo3pB Wq~  
&E/0jxM1  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) VfV|fuW  
    bContinue = False 5s7C;+  
    Set regEX = Nothing 0%W0vTvL  
End Sub ;Xr|['\'  
]Yw/}GKB  
Sub CeateOrModifyStyle() r;7&U<j~Z  
' K6z) &<  
' )j_Y9`R  
Dim stl As Style ;YfKG8(0  
     ;ndwVZ~,  
    Options.Pagination = False u/
 Gk>F  
     (m~gG|n4  
    On Error Resume Next MsD@pa  
    For Each stl In ActiveDocument.Styles e`7dRnx&0  
        stl.Delete |<aF)S4  
    Next ir?Y >  
    On Error GoTo 0 tK0Ksnl^  
     JYe
sk  
    Set stl = Nothing \'>8 (i~  
     -#y^$$i0  
    DoEvents ,|7!/]0&  
    On Error Resume Next (+x!wX( x  
     "J=A(w5   
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph LJh^-FQ  
     TIIwq H+h.  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph ^5{0mn_4i  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph CKu
f'h#  
     8Buus  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph P.t0o~hoK;  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph >hFg,5 _l3  
     ;,2;J3,pA  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph B*-A erdH  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph !uxma~ZH-  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph A.|98*U%  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph Cvgk67C=$  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph I;5:jT`  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph Y@#rGV>  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph ssUm1F\  
     qrLE1b 1$  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph b]oPx8*'  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph I
7-6|J@#^  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph GEGg S&SM  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph v-MrurQ4  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph u 6"v}gN  
     5;:964Et  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph },& =r= B  
    On Error GoTo 0 a{y"vVQOF  
    DoEvents 66Tx>c"H  
     $%Kyz\;7/  
    'BaseStyle ixjhZki<  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False *S?vw'n  
    With ActiveDocument.Styles("BaseStyle").Font Mv1V Vk  
        .NameFarEast = "宋体" 1=^edQ+  
        .NameAscii = "Times New Roman" %gbvX^E?  
        .NameOther = "宋体" ([Da*Tk*  
        .Size = 10.5 rP<S =eb  
        .Bold = wdUndefined lDf:~  
        .Italic = wdUndefined CY?19Ak-xd  
        .Subscript = wdUndefined pN-c9n4#j  
        .Subscript = wdUndefined 79y'PFSms  
         VUbg{Rb)  
        .Underline = wdUnderlineNone 9`| ^cL*6  
        .UnderlineColor = wdColorAutomatic [CAV"u)0  
        .StrikeThrough = False =K`]$Og}8  
        .DoubleStrikeThrough = False Z&MfE0F/B  
         )2
Dm{T  
        .Outline = False [7+dZL[  
        .Emboss = False bmd3fJb`r  
        .Shadow = False (\A~SKEX  
        .Hidden = False a'prlXr\4  
        .SmallCaps = False 2`V[Nb  
        .AllCaps = False J12hjzk6@  
        .Color = wdColorAutomatic M!Wjfq ^~  
        .Engrave = False Y5XhV;16  
        .Scaling = 100 [}1+=Ub  
        .Kerning = 1 92pl#Igt  
        .Animation = wdAnimationNone +}Q@
{@5w  
        .DisableCharacterSpaceGrid = False i4g99Kvl  
        .EmphasisMark = wdEmphasisMarkNone :h!&.FB  
    End With 47 |&(,{  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat S>N/K  
        .LeftIndent = 0 7eP3pg#  
        .RightIndent = 0 [Fo"MeH?R  
        .SpaceBefore = 0 t$k$Hd';  
        .SpaceBeforeAuto = False Ed ,O>(  
        .SpaceAfter = 0 G8hq;W4@]/  
        .SpaceAfterAuto = False bKb}VP  
         /)LI1\o  
        .LineSpacingRule = wdLineSpaceSingle `ZLA=oD  
        .Alignment = wdAlignParagraphJustify o8h1  
         ](tv`1A,Wd  
        .WidowControl = False ,2/y(JX}*!  
        .KeepWithNext = False Xt%>
XP  
        .KeepTogether = False !Bqmw  
        .PageBreakBefore = False 9i`sSi8   
        .NoLineNumber = False 3A)Ec/;~  
         BSc5@;  
        .FirstLineIndent = CentimetersToPoints(0) JQdeI+  
        .OutlineLevel = wdOutlineLevelBodyText QBwgI>zfS"  
        .CharacterUnitLeftIndent = 0 X ^\kI1  
        .CharacterUnitRightIndent = 0 7w8I6  
        .CharacterUnitFirstLineIndent = 0 i3us
Z{_r  
        .LineUnitBefore = 0 kA/V=xO<  
        .LineUnitAfter = 0 kM o7mkV  
        .AutoAdjustRightIndent = True <}z,!w8  
        .DisableLineHeightGrid = True @`S8d%6P  
         >}|Vmy[/  
        .FarEastLineBreakControl = True r[votdFo  
        .WordWrap = True f83Tl~  
        .Hyphenation = False =c1t]%P,  
         B 4m y  
        .HangingPunctuation = True hrZ=8SrW  
        .HalfWidthPunctuationOnTopOfLine = True Q4!6|%n8v  
        .AddSpaceBetweenFarEastAndAlpha = True 7$/%c{o  
        .AddSpaceBetweenFarEastAndDigit = True P{ {U  
        .BaseLineAlignment = wdBaselineAlignBaseline A3cW8OClz  
    End With *j/[5J0'M  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False q7-.-k<dQ  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll {I"`
(  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese ye^l~  
    ActiveDocument.Styles("BaseStyle").NoProofing = False Ua](o H  
     ?=^M(TA;  
    '一级标题题样式 .V'=z|   
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 0oU;Cmw.  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" GJB=5nE  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False |8<P%:*N  
    With ActiveDocument.Styles("QLNU一级标题").Font "JBTsQDj!  
        .NameFarEast = "黑体" #nS[]UbwZ  
        .NameAscii = "Arial Black" qt&zo5  
        .NameOther = "黑体" _WeN\F~^  
        .Name = "黑体" }ki}J>j|f  
        .Size = 16              '三号 szG0?e  
        .Bold = True d%C:%d  
        .Italic = wdUndefined ZA!yw7~  
        .Subscript = wdUndefined 'V-_3WWxU  
        .Superscript = wdUndefined [bIR$c[G  
    End With @ApX43U(  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat :4'Fq;%C  
         {%cm;o[7o  
        .LeftIndent = CentimetersToPoints(0) -0R;C`(!  
        .RightIndent = CentimetersToPoints(0) wNt-mgir-Q  
        .FirstLineIndent = CentimetersToPoints(0) ,U?W  
         {24Y1ohK  
        .LineSpacingRule = wdLineSpaceSingle I[$S VPe#  
        .Alignment = wdAlignParagraphCenter wg0hm#X  
         DD
(K@
M  
        .WidowControl = True kV$$GLD\  
        .KeepWithNext = True X1GpLy)p  
        .KeepTogether = True o7B}~;L  
        .OutlineLevel = wdOutlineLevelBodyText FY(C<fDRo{  
         Zv8I`/4?  
        .LineUnitBefore = 0.5 I'$}n$UvZ  
        .LineUnitAfter = 0.5 b( qO fek  
    End With '<v_YxEn  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False Pcox~U/j  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll
1;$8=j2  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese H;(|&Asq>  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True ( /):  
    DoEvents fj,]dQT  
     A
g#o&Y  
    '二级 `x'vF#  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") \'AS@L"Wj^  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" ZZJXd+Q}  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False C6P
(86?  
    With ActiveDocument.Styles("QLNU二级标题").Font ^>H+#@R  
        .NameFarEast = "黑体" |fTWf}Jx  
        .NameAscii = "Arial Narrow" erQ0fW  
        .NameOther = "黑体" &GetRDr  
        .Name = "黑体" y5AJ1A6?E  
        .Size = 15        '小三号 2-#:Y  
        .Bold = False 3$hbb6N%6.  
        .Outline = False Q*h%'oc`  
        .Italic = wdUndefined Pu-/*Fx  
        .Subscript = wdUndefined
JMa[Ulz  
        .Superscript = wdUndefined f}_d`?K  
    End With MlBw=Nr  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat v7kR]HU[y  
        .LeftIndent = CentimetersToPoints(0) (K>=!&tlp=  
        .RightIndent = CentimetersToPoints(0) -jJw wOm  
        .FirstLineIndent = CentimetersToPoints(0) P O{1u%P  
         7vf?#^RlV  
        .LineSpacingRule = wdLineSpaceSingle 5PXo1"n8T  
        .Alignment = wdAlignParagraphLeft oF9c>^s  
         Pa} B0XBWP  
        .WidowControl = True $F,&7{^  
        .KeepWithNext = True _s> Z Y0  
        .KeepTogether = True *[MK {m  
        .PageBreakBefore = False @T6Z3Zj}  
        .OutlineLevel = wdOutlineLevelBodyText >*"6zR2 o  
         ])YGeY(V0+  
        .LineUnitBefore = 0.5 tEE1
`10Mt  
        .LineUnitAfter = 0.5 kk*:S*,  
         O{F)|<L(G  
    End With J|D$  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False {ylhh%t4hi  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll FYtf<C+  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese $4j$c|S!  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True y?1<7>L5~  
    DoEvents 14,Pf`5Sz  
     5W29oz}-S  
    '三级标题样式 9*lkx#  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") }Cy S_Tc  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" ~.,h12  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False 1; "t8.*%e  
    With ActiveDocument.Styles("QLNU三级标题").Font :1O1I2L0  
        .NameFarEast = "宋体" zJJ6"9sl  
        .NameAscii = "Times New Roman" v1E=P7}\{s  
        .NameOther = "黑体" M zbs #v0  
        .Name = "黑体" V&>\U?q:  
        .Size = 14               '四号 QlFt:?7f  
        .Bold = False ZJ7<!?6  
        .Outline = False *i>?YT  
        .Italic = wdUndefined ,@b7N[h  
        .Subscript = wdUndefined (3;dtp>Xx  
        .Superscript = wdUndefined 49("$!  
    End With 0D*uZ,oBEw  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat W6>SYa  
        .LeftIndent = CentimetersToPoints(0) sivd@7r\Fa  
        .RightIndent = CentimetersToPoints(0) 8%;K#,>  
        .FirstLineIndent = CentimetersToPoints(0) d'yA"b]  
         53w@
 
        .LineSpacingRule = wdLineSpaceSingle d*A(L5;@  
        .Alignment = wdAlignParagraphLeft Du3nK"-g  
         08!pLE  
        .WidowControl = True )38M~/ ^l  
        .KeepWithNext = True us^2Oplq<  
        .KeepTogether = True N{f4-i~  
        .PageBreakBefore = False [AZN a  
        .OutlineLevel = wdOutlineLevelBodyText 1{.=T&eG#  
         x\ pC&  
        .CharacterUnitLeftIndent = 0 <$\En[u0  
        .CharacterUnitRightIndent = 0 &!kr&g#]  
        .CharacterUnitFirstLineIndent = 2 =eXJZPR  
         _(q|W3  
        .LineUnitBefore = 0.5 =7Wr  
        .LineUnitAfter = 0 SgOn:xg;3L  
    End With Nm0kMq|h  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False i'Oh^Y)E#  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll {Y%X  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese l]s,CX  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True c QjzI#  
    DoEvents @?w8XHEa|  
     H9^DlIv('  
    '四级标题样式 AV0C9a/td  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") O-M4NKl] 6  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" y'9 bs  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False :!wdqn  
    With ActiveDocument.Styles("QLNU四级标题").Font G(puC4 "&  
        .NameFarEast = "宋体" c 4<~?L  
        .NameAscii = "Times New Roman" ~\9bh6%R  
        .NameOther = "宋体" c==` r C  
        .Name = "宋体" :PrQ]ss@C5  
        .Size = 12               '小四号 _Vs\:tygs  
        .Bold = True gGiLw5o,  
        .Outline = False D&xbtJd  
        .Italic = wdUndefined +U%U3tAvs  
        .Subscript = wdUndefined LZCz
iW  
        .Superscript = wdUndefined }/%(7Ff{  
    End With k]n=7vw;  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat I#]$H#}Av  
         {ER%r'(4Z  
        .LeftIndent = CentimetersToPoints(0) ,AC+s"VS  
        .RightIndent = CentimetersToPoints(0) m,~ @1  
        .FirstLineIndent = CentimetersToPoints(0) DJ tKLG0  
         0wm
z2zKV  
        .LineSpacingRule = wdLineSpaceSingle } a(x L'F  
        .Alignment = wdAlignParagraphLeft nr#DE?  
         `dYM+ jpa  
        .WidowControl = True N|,6<|  
        .KeepWithNext = True [S}o[v\  
        .KeepTogether = True 39W6"^q"o  
        .PageBreakBefore = False ;btH[a iV  
        .OutlineLevel = wdOutlineLevelBodyText {&'u1yR  
         u= |hRTD=  
        .CharacterUnitLeftIndent = 0 ~ "]6  
        .CharacterUnitRightIndent = 0 P|[i{h  
        .CharacterUnitFirstLineIndent = 2 1!x-_h}  
         2[\I{<2/9  
        .LineUnitBefore = 0 SOyE$GoOsx  
        .LineUnitAfter = 0 *N0R3da  
         2EeWcTBU}.  
    End With ?Afx{
H7  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False Fn8 d;%C  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll Ba$Ibq,r/  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese ;)^eDJ<  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True 5"IbmD>D  
    DoEvents H-Uy~Ry*T  
     By t{3$  
    '正文校式 %C]K`=vI-  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") M~/%V NX  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" 2/9P&c-rp  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False ldJ:A*/M6  
    With ActiveDocument.Styles("QLNU正文").Font V4RtH  
         K#=)]qIk  
        .NameFarEast = "宋体" w%no6 ;  
        .NameAscii = "Times New Roman" He4sP
`&I  
        .NameOther = "宋体" x+}6qfc$9k  
        .Name = "宋体" iB Ld*B|#K  
         !!=%ty  
        .Size = 12               '小四号 5N:THvh6o  
         n')#]g0[  
        .Bold = wdUndefined X5'QYZ6kv  
        .Italic = wdUndefined y7I')}SC  
        .Subscript = wdUndefined QY,.|  
        .Superscript = wdUndefined $lj1924?^  
         |(e`V  
        .Outline = False mW_<c,3D.  
        .Emboss = False o9!DK  
        .Shadow = False "RG
.2
7  
        .Hidden = False x,\PV>  
         hi>sDU<x  
        .DisableCharacterSpaceGrid = True < t{T]i+  
    End With =H_|007C  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat PNSZ j#  
         !O=J8;oLk  
        .LeftIndent = CentimetersToPoints(0) (ia
( y(=C  
        .RightIndent = CentimetersToPoints(0) bF88F_  
        .FirstLineIndent = CentimetersToPoints(0) ^/Id!Y7  
         9HOdtpQOV  
        .LineSpacingRule = wdLineSpaceExactly N/A.1W  
        .LineSpacing = 20 FTtGiGd|Zy  
        .Alignment = wdAlignParagraphLeft *pMgjr  
         klG]PUzd  
        .WidowControl = False X[:&p|g]  
        .KeepWithNext = False }bG|(Wp9  
        .KeepTogether = False Kc=&jCn  
        .PageBreakBefore = False }>cQ}6n.
 
        .Hyphenation = False JVAJLq  
         FAVw80?5k  
        .OutlineLevel = wdOutlineLevelBodyText #msXAy$N3r  
         n&x#_
B-  
       J9^RP~>bs  
        .CharacterUnitLeftIndent = 0 +I
o[o6*  
        .CharacterUnitRightIndent = 0 b$P=rIB  
        .CharacterUnitFirstLineIndent = 2 -Cxk#-sb#  
         {]~b^=qE$  
        .LineUnitBefore = 0 O2E6F^.pYw  
        .LineUnitAfter = 0 (( 0%>HJ{~  
        .SpaceBefore = 0 +I0?D  
        .SpaceAfter = 0 (5%OAjW  
         mnM#NT5]  
        .DisableLineHeightGrid = True L&F0^  
    End With BzL>,um  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False dA[Z\  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll #/ 1  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese /JL2dBy#z  
    ActiveDocument.Styles("QLNU正文").NoProofing = True 3tMFJ ;*`  
    DoEvents M3j_sd'N  
     F/[vg  
    '图片段落样式 Y@._
dliM  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") J7BfH,o  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" B
:=*lU.
n  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False RsS?ibozl  
    With ActiveDocument.Styles("QLNU图片段落").Font u>j:8lhtV  
        .Size = 12               '小四号 m!s/L,iJJ  
        .Italic = wdUndefined oc
,a  
        .Subscript = wdUndefined tY<D\T  
        .Superscript = wdUndefined "Y9 *r L  
    End With *5iNw_&  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat _dY6Ip%  
         }"j7Qy)cs  
        .LeftIndent = CentimetersToPoints(0) g]9!Pi8jn  
        .RightIndent = CentimetersToPoints(0) w%Tcx^:  
        .FirstLineIndent = CentimetersToPoints(0) _f%Wk>
A4  
         N3Ub|
$}q  
        .LineSpacingRule = wdLineSpaceSingle N5 SK_+  
        .Alignment = wdAlignParagraphCenter Kw}-<y  
        .KeepWithNext = True &[}T41  
        .OutlineLevel = wdOutlineLevelBodyText xI}h{AF7  
         ZYoWz(  
        .CharacterUnitLeftIndent = 0 }E+}\&  
        .CharacterUnitRightIndent = 0 T_:"~ ]  
        .CharacterUnitFirstLineIndent = 0 z#*w Na&@[  
         LuS]D%  
        .LineUnitBefore = 0 8V%(SV  
        .LineUnitAfter = 0 MoN;t;  
    End With _NA KVzo-  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False F{\MIuoy  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll Dh0`t@  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese ]sJWiIe.  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True -"iGcVV  
    DoEvents m M!H}|  
     QfJ?'*  
     R=~+-^O!  
    '第X章 ?<\K!dA  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") }3cOZd_,t
 
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" <4,>`#NEo  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False k/W$)b:Of`  
    With ActiveDocument.Styles("QLNU章节标题").Font NrVrR80Y  
        .NameFarEast = "黑体" b
>AFhj:  
        .NameAscii = "Arial Black" I ;N)jj`b  
        .NameOther = "Arial Black" dI<s)!  
        .Name = "黑体" F.mS,W]  
        .Size = 16 0"$Ui#r`  
        .Bold = True 5An|#^]  
        .UnderlineColor = wdColorAutomatic T_O\L[]p*  
        .Outline = False ~WK>+T,%  
        .Italic = wdUndefined 2~+_T  
        .Subscript = wdUndefined M NNPBE  
        .Superscript = wdUndefined ;w@PnY  
        .Scaling = 100 _>B0q|]j4'  
        .DisableCharacterSpaceGrid = True 2-i>ymoOS  
    End With w+bQpIPM  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat =h^cfyj  
        .LineSpacingRule = wdLineSpaceSingle uYAPGs#k  
        .Alignment = wdAlignParagraphCenter <l(6$~(-u  
        .WidowControl = True ,{A-<=6t  
        .KeepWithNext = True -crKBy  
        .KeepTogether = True s8.OL_e  
        .PageBreakBefore = True jQOY\1SR  
        .OutlineLevel = wdOutlineLevelBodyText ig^9lM'  
         Af5O;v\  
        .LeftIndent = CentimetersToPoints(0) =jjUwcl  
        .RightIndent = CentimetersToPoints(0) f_X]2in  
        .FirstLineIndent = CentimetersToPoints(0) Tm@d;O'E1  
         .vG_\-@  
        .CharacterUnitLeftIndent = 0 >(Jy=m?  
        .CharacterUnitRightIndent = 0 ,9gyHQ~  
        .CharacterUnitFirstLineIndent = 0 SLO;c{EFH  
         Er?Wg09  
        .LineUnitBefore = 1 306C_M\$  
        .LineUnitAfter = 0.5 MNOT<(  
         P]-d(N}/H  
        .AutoAdjustRightIndent = False ?y!0QAIXK  
        .DisableLineHeightGrid = True Yw<K!'C
  
        .FarEastLineBreakControl = True C)/uX5  
        .WordWrap = True #Yi,EwD  
    End With Y[9x\6 _E  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False TjGe8L:  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll <#JJS}TLk  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese ~sk;6e)(2  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True \"c;MK{  
    DoEvents PhF3' ">  
     wxEFM)z
r  
    '表格标题 g<O*4 ]=  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") &yv%"BPV  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" ?U:?o_w  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False l@nkR&4[  
    With ActiveDocument.Styles("QLNU表格标题").Font "0Uh(9Fv  
        .NameFarEast = "楷体" 2`/
JT  
        .NameAscii = "Arial" j8nG Gx  
        .Name = "楷体"
,Khhu%$  
        .Size = 10.5 ,#rl"  
        .Bold = True P0,) Gw  
        .Underline = wdUnderlineNone SeqnO.\  
        .Italic = wdUndefined JX(JZ/8B^  
        .Subscript = wdUndefined oqHI `Tu  
        .Superscript = wdUndefined M%+l21&  
        .Color = wdColorAutomatic rxjMCMF  
    End With M0DdrL/ L  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat :;\>jxA  
         n.p6+^ES  
        .LineSpacingRule = wdLineSpaceSingle .P.TqT@)r  
        .Alignment = wdAlignParagraphCenter #>dfP"}&,  
        .KeepWithNext = True z-K?AkB1  
        .KeepTogether = True qYc]Y9fi  
        .OutlineLevel = wdOutlineLevelBodyText D`PnY&ffT  
         di}YHMTx  
        .LeftIndent = CentimetersToPoints(0) &}31q`  
        .RightIndent = CentimetersToPoints(0) 4UmTA_& Io  
        .FirstLineIndent = CentimetersToPoints(0) *
;. l/  
         \R
op~
gD  
        .CharacterUnitLeftIndent = 0 rVq=,>M9  
        .CharacterUnitRightIndent = 0 Ks:~Z9r}  
        .CharacterUnitFirstLineIndent = 0 Z{7lyEzBg  
         2628
c`  
        .LineUnitBefore = 1 iD#HBo  
        .LineUnitAfter = 0 g2.%x \d  
         )h&s.k  
    End With 8P.UB{QNe  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False 1$ez}k,  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll 'F^nW_ryW  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese "knSc0,u  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True W+V#z8K  
    DoEvents S/ v+7oT  
fw,ruROqD  
    '表格首行 U8kH'OD  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") [R-4e; SRh  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False y-O# +{7  
    With ActiveDocument.Styles("QLNU表格首行").Font F@4XORO;  
        .NameFarEast = "楷体" 5f PYtVm  
        .NameAscii = "Times New Roman" (nfra,'  
        .Name = "楷体" .j:[R
.  
        .Size = 9 My0h 9'K  
        .Bold = True cZT;VmC  
        .Underline = wdUnderlineNone '$*d:1  
        .Italic = wdUndefined ^%wj6  
        .Subscript = wdUndefined m{Jo'*%8f  
        .Superscript = wdUndefined #+p30?r0y  
    End With dHc38zp  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat fRC(Yyx  
        .LineSpacingRule = wdLineSpaceSingle LS@[O])$'  
        .Alignment = wdAlignParagraphCenter ,A9pj k'  
         Au &NQ+  
        .LeftIndent = CentimetersToPoints(0) qN}kDT  
        .RightIndent = CentimetersToPoints(0) 5*~Mv<#  
        .FirstLineIndent = CentimetersToPoints(0) 8v"tOa4D7  
         &-W5T?Sl  
         saQA:W;  
        .CharacterUnitLeftIndent = -0.5 6*%3O=*  
        .CharacterUnitRightIndent = -0.5 t QkEJ pj  
        .CharacterUnitFirstLineIndent = -0.5 2j8^Z  
         FCTz>N^p  
        .LineUnitBefore = 0 $Z(fPKRN/  
        .LineUnitAfter = 0 ?#idmb}(  
        .SpaceBefore = 0 ]YYjXg}%  
        .SpaceAfter = 0 + c#:;&Gs  
         #k5WTcE  
    End With oomB/"Z  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False =(b;Cow  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll L{(\k$>'  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese 3UgusH 3  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True 1$oVcDLl  
    DoEvents @=q,,t$r  

w-\U;&8  
    '表格内容 5"Q3,4f  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") X~t]qT  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False j|!.K|9B  
    With ActiveDocument.Styles("QLNU表格内容").Font w#g0nV"X6  
        .NameFarEast = "楷体" q1a}o%  
        .NameAscii = "Times New Roman" .f 4a+w  
        .Name = "楷体" YUd*\_  
        .Size = 9 6z@OGExmd#  
        .Bold = False Y\luz`v  
        .Underline = wdUnderlineNone ",&#9  
        .Italic = wdUndefined L8n1p5gx3  
        .Subscript = wdUndefined PI
~LbDE  
        .Superscript = wdUndefined 4&;.>{:;  
    End With 7q?u`3l  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat :L<$O7  
        .LineSpacingRule = wdLineSpaceSingle ;V]EF  
        .Alignment = wdAlignParagraphCenter $by-?z((  
         2f(5C*~  
        .LeftIndent = CentimetersToPoints(0) V_jVVy30Ji  
        .RightIndent = CentimetersToPoints(0) l4u@0;6P  
        .FirstLineIndent = CentimetersToPoints(0) nB2AmS  
         ""l_&3oz  
        .CharacterUnitLeftIndent = -0.5 =t1.j=oC  
        .CharacterUnitRightIndent = -0.5 +RS>#zd/=  
        .CharacterUnitFirstLineIndent = -0.5 G%~=hEK0  
        .LineUnitBefore = 0 4qo4g+  
        .LineUnitAfter = 0 i>6SY83B}  
        .SpaceBefore = 0 e\i K  
        .SpaceAfter = 0 6J0HaL  
    End With E15"AO   
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False -IhFPjQ  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll +%(iGI{  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese rhY>aj  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True Okm&b g  
    DoEvents x'*,~u  
\7z&iGe!  
    '图片标题 eA9U|&o  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle")
yo*c& >  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" bf2R15|t5`  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False 
,!_
 
    With ActiveDocument.Styles("QLNU图片标题").Font -\:#z4Tc  
        .NameFarEast = "楷体" "8|y  
        .NameAscii = "Times New Roman" 49n.Gc  
        .Name = "楷体" yO.3~H)c  
        .Size = 10.5 Wh[+cH"M  
        .Bold = True B%!z7AT  
        .Underline = wdUnderlineNone `C"Slz::  
        .Italic = wdUndefined 7cin?Z1  
        .Subscript = wdUndefined Ao)hb4ex  
        .Superscript = wdUndefined Rro|P_  
        .Outline = False J
PL8fX-w  
        .Shadow = False FrD.{(/~  
        .Color = wdColorAutomatic :gv`)  
    End With x bF*4;^SI  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat M$g%kqa  
        .LineSpacingRule = wdLineSpaceSingle 0-cqux2U  
        .Alignment = wdAlignParagraphCenter }T%;G /W  
         L;30 &a  
        .KeepWithNext = wdUndefined 8;9GM^L  
        .KeepTogether = True o~!4&  
        .OutlineLevel = wdOutlineLevelBodyText i$[wgvJIV  
         Xm`s=5%  
        .LeftIndent = CentimetersToPoints(0) = aSHb[hO  
        .RightIndent = CentimetersToPoints(0) 3U=q3{%1  
        .FirstLineIndent = CentimetersToPoints(0) ZxkX\gl91  
         _l]`Og@Y  
        .CharacterUnitLeftIndent = 0 j-|YE?AA  
        .CharacterUnitRightIndent = 0 M iIH&z  
        .CharacterUnitFirstLineIndent = 0 ' TpW-r:  
         BX$t |t;!m  
        .LineUnitBefore = 0 6W$ #`N>  
        .LineUnitAfter = 0 p'1n'|$e  
    End With :0>wm@qCQ  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False p#~
'xq  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll "6rZn_H/|  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese Im%|9g;P  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True ;AKtbS;H  
    DoEvents fVv#|
  
D.xN_NK"  
    '目录项 q]q(zUtU  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") UN_f2  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" 8=ubMqr[  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False Z'dY,<@  
    With ActiveDocument.Styles("QLNU目录项").Font ut%t`Y( ]  
        .NameFarEast = "黑体" 1) V,>)Ak  
        .NameAscii = "Times New Roman" i.2O~30ST  
        .NameOther = "Times New Roman" c/ %5IhX?  
        .Name = "黑体" ?^P#P0  
        .Size = 10.5 YfUdpa0  
        .Bold = False J411bIxD+q  
        .Italic = wdUndefined , RfU1R  
        .Underline = wdUnderlineNone &3v{~Xg)  
        .Color = wdColorAutomatic L^rtypkJ  
        .Superscript = wdUndefined {L
Tb-CB  
        .Subscript = wdUndefined _H^Ij  
    End With ^qqP):0y1V  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat >|SB]'C|  
         pWH
8ex+  
        .LineSpacingRule = wdLineSpaceSingle pW O-YZ#+  
        .Alignment = wdAlignParagraphLeft 84tuN
  
         '"QC^Joz  
        .WidowControl = False w=\Lw+X  
        .KeepWithNext = False g(<02t!OT=  
        .KeepTogether = False FW&P`Iu  
        .PageBreakBefore = False AWCzu5ve  
        .NoLineNumber = False =" K;3a`GI  
        .OutlineLevel = wdOutlineLevelBodyText OqUEj 0X  
         9oS\{[x.  
        .LeftIndent = CentimetersToPoints(0) xjOy3_Js  
        .RightIndent = CentimetersToPoints(0) 8yax.N j  
        .FirstLineIndent = CentimetersToPoints(0) 3P Twpq1  
         =:`1!W0I  
        .CharacterUnitLeftIndent = 0 )xCpQ=nS  
        .CharacterUnitRightIndent = 0 M xj  
        .CharacterUnitFirstLineIndent = 0 (u85$
_C  
         'dM &~LSQ  
        .LineUnitBefore = 0 Taxi79cH  
        .LineUnitAfter = 0 ,R0@`t1 p  
    End With A$ %5l  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False ?@Z~i]gE[V  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll xtf]U:c  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot #G{}Rd|!  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese 6HpSZa  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True C-]H+p  
    DoEvents l;U9dO}/[  
     uo
FH{.)  
    '参考文献 n"Ec%n  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") L5%~H?K(  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" *{tn/ro6a  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False =wK3\rG  
    With ActiveDocument.Styles("QLNU参考文献").Font <'op  
        .NameFarEast = "宋体" R?+Eo(0q,  
        .NameAscii = "Times New Roman" y=YD4m2W  
        .NameOther = "Times New Roman" =O1CxsKt6  
        .Name = "Times New Roman" kac@yQD  
        .Size = 12 ttLChL  
        .Bold = False ^mFuZ~g;?  
        .Italic = wdUndefined }r`!p5\$K0  
        .Subscript = wdUndefined @Qd6a:-6  
        .Superscript = wdUndefined V'pNo&O=  
        .Underline = wdUnderlineNone zm2&\8J  
        .UnderlineColor = wdColorAutomatic \l_ RyMi  
        .Color = wdColorAutomatic )z3mS2  
        .Engrave = False <VB
  
    End With aGNt?)8WPZ  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat  \A:m<::  
         *rp@`W5  
        .LineSpacingRule = wdLineSpaceExactly O<S*bN>BF  
        .LineSpacing = 16 N::_JH?^=  
        .Alignment = wdAlignParagraphLeft kxoJL6IC  
        .WidowControl = False JXBW0|8b  
        .KeepWithNext = False !l~tBJr*sB  
        .KeepTogether = False gm8L 5c V  
        .PageBreakBefore = False td q;D  
        .OutlineLevel = wdOutlineLevelBodyText ,!kqE
Ip%  
         e`4Ol
M]  
        .LeftIndent = CentimetersToPoints(0) X55Eemg/  
        .RightIndent = CentimetersToPoints(0) ;E:ra_l  
        .FirstLineIndent = CentimetersToPoints(0) R`G%eG)+  
         )!3XM  
        .CharacterUnitLeftIndent = 0 Zp@p9][C  
        .CharacterUnitRightIndent = 0 bjPI:j*XU  
        .CharacterUnitFirstLineIndent = -2 1W8[ RET  
         Kr=DoQ."d8  
        .LineUnitBefore = 0
GhLgV  
        .LineUnitAfter = 0 2uS&A \  
        .SpaceBefore = 0 8U\;N  
        .SpaceAfter = 0 xBG&ZM4"^f  
         sq*R)cZ  
    End With o; 6\  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False Ts0.Ck  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll \%&QIe;:k  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS Y[$[0  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True $rs7D}VNc  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese )HS|pS:  
    DoEvents 1 dz&J\|E#  
m^U\l9LE  
    ' ({Fus@/  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") Slq=
;TDp  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" b'Z#RIb  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False {i~qm4+o  
    With ActiveDocument.Styles("QLNU论文题目").Font T#J]%IDd  
        .NameFarEast = "黑体" Gw!jYnU  
        .NameAscii = "Arial Black" ,nMLua\  
        .NameOther = "Arial Black" R[wy{4< y  
        .Name = "Arial Black" Ha$|9li`  
        .Size = 16 @`k!7? Sq  
        .Bold = False ;W?e@ Lgxk  
        .Italic = wdUndefined ^o!K0t*  
        .Superscript = wdUndefined s?=f,I  
        .Subscript = wdUndefined &xr?yd  
        .Underline = wdUnderlineNone V;=SncUb  
        .UnderlineColor = wdColorAutomatic &k&tkE  
        .Color = wdColorAutomatic IyOujdKa  
%&Z!-k(  
    End With $k@reN9  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat dSsMa3X[n  
        .LineSpacingRule = wdLineSpaceSingle J\_tigd  
        .Alignment = wdAlignParagraphCenter T9{94Ra  
        .WidowControl = True #$ K\:V+ 4  
        .KeepWithNext = True eN>=x40  
        .KeepTogether = True *ky5SM(NR  
        .PageBreakBefore = True -{pcb7.xuv  
        .NoLineNumber = False
BI;in;Ln  
        .OutlineLevel = wdOutlineLevelBodyText h_?D%b~5
 
         3RscuD&  
        .LeftIndent = CentimetersToPoints(0) it
X<!  
        .RightIndent = CentimetersToPoints(0) / !jd%,G  
        .FirstLineIndent = CentimetersToPoints(0) ub}t3#  
         o&rejj#  
        .CharacterUnitLeftIndent = 0  p(Y'fd}  
        .CharacterUnitRightIndent = 0 e.\d7_T+  
        .CharacterUnitFirstLineIndent = 0 Kx*;!3-V$  
         *`ji2+4Sjw  
        .LineUnitBefore = 1 .pu]21m =  
        .LineUnitAfter = 1 |6`yE]3-(  
         !K'kk n,h  
        .BaseLineAlignment = wdBaselineAlignAuto :2 ?dl:l  
    End With ,":ADO-  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False $ tj[*  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll )eY3[>`  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS M<"&$qZ$R  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True ..'^1IOA  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese qB3 SQ:y  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True ~8`r.1aUO  
    DoEvents 1P3^il7  
     +?*,J=/  
    '中文摘要 O]m,zk  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") s=~r. x  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" ff?:_q+.N  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False O9=vz%  
    With ActiveDocument.Styles("QLNU中文摘要").Font B Gh%3"q  
        .NameFarEast = "宋体" VZb0x)w  
        .NameAscii = "Times New Roman" 0kQAT#  
        .NameOther = "Times New Roman" _yJd@  
        .Name = "Times New Roman" Xko[Z;4v8'  
        .Size = 12 fi:Z*-  
        .Bold = wdUndefined P[8`]=  
        .Superscript = wdUndefined wB?;
3lTS  
        .Subscript = wdUndefined fJd!;ur)0  
        .Italic = wdUndefined #J, `a.  
        .Underline = wdUnderlineNone "[BuQ0(g  
        .UnderlineColor = wdColorAutomatic OY51~#BF  
        .Color = wdColorAutomatic :I+%v  
    End With jToA"udW/  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat bxc#bl3  
        .LineSpacingRule = wdLineSpaceExactly [j eZZB  
        .LineSpacing = 20 +<Uc42i7n  
        .Alignment = wdAlignParagraphLeft J ;i/X;^  
         Pd%o6~_*  
        .WidowControl = False '
S)}mG_  
        .KeepWithNext = False -_%n\#  
        .KeepTogether = True :a0qm.EN  
        .PageBreakBefore = False B+*F?k[  
        .NoLineNumber = False wP+wA}SN  
        .OutlineLevel = wdOutlineLevelBodyText d; oaG (e  
         n$a
xqvG  
        .LeftIndent = CentimetersToPoints(0) @PU%BKe  
        .RightIndent = CentimetersToPoints(0) ^WVH z;  
        .FirstLineIndent = CentimetersToPoints(0)  Sl  
         P
C7U&*x@  
        .CharacterUnitLeftIndent = 0 j Bl I^  
        .CharacterUnitRightIndent = 0 g(,gg1mG  
        .CharacterUnitFirstLineIndent = 2 31 QT  
        .LineUnitBefore = 0 PE]jYyyHtU  
        .LineUnitAfter = 0 G3OqRH  
         ]GJIrtS4  
    End With iU~oPp[e  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False kRT T ~  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll J5mMx)t@  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS {O]Cj~}  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True x!tCK47Yq  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese &f|LjpMCf  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True lmp0Ye|  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete )4D |sN  
    DoEvents v5;c}n  
     n3g3(}Q0  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") yw{GO([ZQ  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" R% l=NHB}  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False QAp il  
    With ActiveDocument.Styles("QLNU英文标题").Font cmZ39pjBJ
 
        .NameFarEast = "黑体" Z81]>  
        .NameAscii = "Arial Narrow" =eDVgOZ)  
        .Name = "Arial Narrow" B7fURL Rqr  
        .Size = 16 %_(e{Mf)  
        .Bold = True 3!Gnc0%c  
        .Bold = wdUndefined 'eLO#1Ipf  
        .Superscript = wdUndefined wx>BNlT@?  
        .Subscript = wdUndefined DdN{=}A  
        .Italic = wdUndefined R}#?A%,*  
         Wepa;  
        .Underline = wdUnderlineNone E/Q[J.$o  
        .UnderlineColor = wdColorAutomatic mKvk6OC  
        .StrikeThrough = False u0A.I_  
        .DoubleStrikeThrough = False 54-s
b~]  
    End With # yAt `
 
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat @@# ^G8+l  
        .LineSpacingRule = wdLineSpaceSingle 4B d[r7  
        .Alignment = wdAlignParagraphCenter |/
Ggsfmby  
        .WidowControl = True ss-{l+Z5  
        .KeepWithNext = False A]WU*GL2H  
        .KeepTogether = False ,&Gn7[<  
        .PageBreakBefore = False ;xN4L  
        .NoLineNumber = False 0AZ Vc  
        .FirstLineIndent = CentimetersToPoints(0) <JuP+\JAm  
        .OutlineLevel = wdOutlineLevelBodyText GghZ".O  
         lN<v
u#  
        .LeftIndent = CentimetersToPoints(0) T5=3 jPQ  
        .RightIndent = CentimetersToPoints(0) X) owj7U;  
        .FirstLineIndent = CentimetersToPoints(0) E"b+Q  
         MIsjTKE  
        .CharacterUnitLeftIndent = 0 pyq~_
Bng  
        .CharacterUnitRightIndent = 0 ^I5k+cL  
        .CharacterUnitFirstLineIndent = 0 $GSn#} yz  
         Z0`Bn5  
        .LineUnitBefore = 1 %{Kp#R5E  
        .LineUnitAfter = 1 !.?2z
p~  
         ?.LS_e_0  
    End With :Z- =1b~  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False o+*YX!]#L  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll Q_$aiE  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS XT9]+b8(M  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True 08n2TL;EsX  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese }Y[xj{2$O  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True w<!F& kQB  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete h8&VaJ  
    DoEvents Q( U+o -  
<'>c`80@\*  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") xA& tVQ2!  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" -,)&?S  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False =2F;'T\6  
    With ActiveDocument.Styles("QLNU英文摘要").Font 7y5`YJ}!  
        .NameFarEast = "宋体" 6ey{+8  
        .NameAscii = "Arial" _D1Uc|  
        .NameOther = "Arial" *39Y1+=)$$  
        .Name = "Arial" )\s{\u \  
        .Size = 12 @SjISZw_  
        .Bold = wdUndefined S1p4.qJ  
        .Italic = wdUndefined y'(( tBWa!  
        .Superscript = wdUndefined X4_1kY;  
        .Subscript = wdUndefined mSm:>hBd  
    End With n0bm 'qw  
     }^+E S^~  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat M+j V`J!  
         E# [_"^n  
        .LineSpacingRule = wdLineSpaceExactly 6!sC  
        .LineSpacing = 20 2Nrb}LH  
         v6uR[18  
        .Alignment = wdAlignParagraphJustify 0ft81RK  
         ,bzE `6  
        .WidowControl = False uD0T()J.P5  
        .KeepWithNext = False }`ox;Q  
        .KeepTogether = False _C2iP[YwQ{  
        .PageBreakBefore = False ++w7jVi9  
        .NoLineNumber = False 
O{R)0&  
         &b'IYoe  
        .OutlineLevel = wdOutlineLevelBodyText ^hr^f;N  
         `d2 r5*<  
        .LeftIndent = CentimetersToPoints(0) 97l
<9^$  
        .RightIndent = CentimetersToPoints(0) hfE5[  
        .FirstLineIndent = CentimetersToPoints(0) -N $4\yp  
         !w2J*E\  
        .CharacterUnitLeftIndent = 0 BpBMFEiP  
        .CharacterUnitRightIndent = 0 uH="l.u  
        .CharacterUnitFirstLineIndent = 2 "yJFb=Xdq  
         cc- liY"  
        .LineUnitBefore = 0 R&KFF'%  
        .LineUnitAfter = 1 \f\CK@  
         'i+j;.  
    End With aO)Cq5  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False q4=Gj`\43  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll Tsg;i;  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS
', ~  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False @ rI+.X  
    DoEvents 2n+tc  
fm]mqO  
    Options.Pagination = True 5, "  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." x7J8z\b"O  
    DoEvents L|ZxB7xk  
    ActiveDocument.Repaginate kn<IWW_t  
N iw~0"-V  
End Sub bca4'`3\|  
G%
ytp=N  
N!!=9'fGF  

姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 =E.!Ff4~(  
|PtfG2Ty?  

引用

引用第20楼newport93于06-14-2010 13:47发表的  : I'`90{I  
5(5:5q.A/D  
老五，I 服了U。 7+9o<j@@o  
tn{YIp  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 unKPqc%q=n  

U7#C.Z