登录注册
下拉
注册
社区应用 最新帖子 精华区 社区服务 会员列表 统计排行
上一主题下一主题
«3456»Pages: 6/6
主题 : [ZT]我和电脑亲密接触的心路历程
复制链接 ┊浏览器收藏┊打印
伍胥之 离线
级别: 军区司令员

显示用户信息 
100楼  发表于: 2021-07-18   
只看该作者 ┊  小 中 大
Dim bContinue As Boolean lV)G@l[1  
lJ&y&N<O  
Dim regEX As New RegExp cQn)^jx=  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 nj  
FT( iX `YQ  
Dim LastTitle0String As String, LastTitle0No As Long "wINBya'M  
Dim LastTitle1String As String, LastTitle1No As Long x2m]Us@LIU  
Dim LastTitle2String As String, LastTitle2No As Long l&Q!mU}  
Dim LastTitle3String As String, LastTitle3No As Long p[-{]!  
Dim LastTitle4String As String, LastTitle4No As Long 9~~UM<66W  
Dim LastTitle5String As String, LastTitle5No As Long jtCZfFD?  
Dim LastTabelString As String, LastTableNo As Long h0lu!m#\_  
Dim LastFigureString As String, LastFigureNo As Long `iQqhx  
;`X~ k|7K  
Dim strSeperator As String SM<d  
M~p=#V1D  
Sub ConvertWidth(fTEXT As String, rText As String) u7#z^r  
        Selection.Find.ClearFormatting ;'^, ,{  
        Selection.Find.Replacement.ClearFormatting K$ AB} Fvc  
        Selection.Find.Wrap = wdFindContinue i. M2E$b|  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText puF%=i  
        DoEvents lQL:3U0DjU  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True f?maa5S  
End Sub +Vy_9I(4Z  
g z4UV/qr/  
Sub ClearDomain() :XYy7xz<  
        With Selection.Find r[!(?%>j  
            .ClearFormatting a:b^!H>#  
            .Replacement.ClearFormatting c3#q0Ma  
            .Wrap = wdFindContinue S=PJhAF  
            Me.txtStatus.Text = "清除所有域代码" {R8=}Qo  
            DoEvents ="3,}qR  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False S(w\ZC  
        End With *KJ7nRKx(w  
End Sub UJn/s;$.e  
sOz sY7z3Z  
Private Sub cmdCheck_Click() ESv:1o`?n  
    bContinue = True 5(#-)rlGj  
    Dim NoSeries1(1 To 16) As String Ji A'BEJN  
    Dim NoSeries2(1 To 16) As String VaJfD1zd1  
    Dim NoSeries5(1 To 16) As String W>/UBN3  
    Dim NoSeriesRM(1 To 16) As String "Yb y  
    Dim paraTotal As Long, ParaText As String c{VJ2NQ+  
    Dim ttString As String, ttNo As String 8(Fu  
     ="dDA/,$VS  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long [q3+$W \r  
L=g_@b   
    Me.txtStatus.Visible = True Jn#K0( FQ  
    Me.lbParaType.Visible = True eO[c lB  
    Me.cmdCheck.Enabled = False m|1n x  
     lkwh'@s.  
     !M^\f N1  
     VDpxk$a  
     ;{Jb6'K1h  
    Dim ParaType As String, rText As String +$,dwyI2t  
     {cR3.% wX  
    Selection.WholeStory <[<247%  
    Selection.NoProofing = True V.2[ F|P;3  
     !=[>r'+3  
    tm1 = Now #KE;=$(S  
     Ag6uR(uI  
        ActiveWindow.View.Type = wdNormalView J*K<FFp3<  
     >{t+4p4k.  
    NoSeries1(1) = "一" zmbZ  
    NoSeries1(2) = "二" IT&i,`cJ~F  
    NoSeries1(3) = "三" )5GQJ iY  
    NoSeries1(4) = "四" LwQH6 !;[  
    NoSeries1(5) = "五" TY6 rwU  
    NoSeries1(6) = "六" x5F@ad 9  
    NoSeries1(7) = "七" CjKRP;5  
    NoSeries1(8) = "八" jyQVSQ s  
    NoSeries1(9) = "九" aS/`A  
    NoSeries1(10) = "十" J3IRP/*z  
    NoSeries1(11) = "十一" Y 1y E  
    NoSeries1(12) = "十二" 'HB~Dbq`V  
    NoSeries1(13) = "十三" gQ+9xTd  
    NoSeries1(14) = "十四" Xm@aYNV  
    NoSeries1(15) = "十五" &O*ENpF  
    NoSeries1(16) = "十六" t 7^D-l  
     eEP( ).  
    NoSeries2(1) = "㈠" "i%jQL'.  
    NoSeries2(2) = "㈡" s#P:6]Ar  
    NoSeries2(3) = "㈢" =~J fVozU  
    NoSeries2(4) = "㈣" 8t[t{"  
    NoSeries2(5) = "㈤" 'hIU_  
    NoSeries2(6) = "㈥" ,]q%/yxi  
    NoSeries2(7) = "㈦" <+q$XL0  
    NoSeries2(8) = "㈧" M5O'=\+,F  
    NoSeries2(9) = "㈨" t3>$|}O]t  
    NoSeries2(10) = "㈩" |^ iA6)Q  
     oIxH3T  
    NoSeries5(1) = "①" _l T0H u  
    NoSeries5(1) = "②" 6#|qg* OS  
    NoSeries5(3) = "③" h[Mdr  
    NoSeries5(4) = "④" mPG7Zy$z  
    NoSeries5(5) = "⑤" DxfMqH[vs  
    NoSeries5(6) = "⑥" \O? u*  
    NoSeries5(7) = "⑦" _z]v<,=3M  
    NoSeries5(8) = "⑧" Ay%:@j(E  
    NoSeries5(9) = "⑨" ZAeQ~ j~  
    NoSeries5(10) = "⑩" j)";:v  
      Q; 20T  
     n1 v,#GE  
    NoSeriesRM(1) = "I" QptOQ3!  
    NoSeriesRM(2) = "II" afUTAP@  
    NoSeriesRM(3) = "III" X" \}sl 5  
    NoSeriesRM(4) = "IV" [pR)@$"k'  
    NoSeriesRM(5) = "V" } # Xi`<{  
    NoSeriesRM(6) = "VI" M=[th  
    NoSeriesRM(7) = "VII" [+Un ^gD  
    NoSeriesRM(8) = "VIII" b{pg!/N4  
    NoSeriesRM(9) = "IX" r0Z+ RB^I  
    NoSeriesRM(10) = "X" 9-93aC.|}  
    NoSeriesRM(11) = "XI" jb 3.W  
    NoSeriesRM(12) = "XII" *B{-uc3o  
    NoSeriesRM(13) = "XIII" GX5W^//}  
    NoSeriesRM(14) = "XIV" L|J~9FM  
    NoSeriesRM(15) = "XV" #_fY4vEO  
    NoSeriesRM(16) = "XVI" gn.Ol/6D  
     a( |x w  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) MD4\QNUa)*  
     ! TDD^  
    If i = vbNo Then 9U'[88  
        Exit Sub k>>`fE\K  
    End If 85hQk+Bu4  
     W_m!@T"@H  
    If Me.chkSuper.Value Then X:{WZs"[x  
        Me.txtStatus.Text = "检查修改所有的上标格式" y ||@?Y  
     74]a/'4  
        CheckSuperScript r=$gT@  
         lsFfb'>  
    End If ohsH2]C  
     Tq#<Po $  
    If Me.chkStyle.Value Then vgo{]:Aj{  
        Me.txtStatus.Text = "设置样式，请稍候...." :kN5?t=  
        DoEvents q^]tyU!w  
        CeateOrModifyStyle PG"@A  
    End If ,CKvTxz0  
      (YrR8  
     zX~}]?|9  
     f3t. T=S  
    ClearDomain [Xh\m DU.  
         ~S;!T  
     ugxw!cj  
     $T/#1w P  
    If Me.chkLIST.Value Then V{GXc:=  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" f~*K {7  
     [-58Ezyr  
        ConvertListToOrdinary x.\XUJ4x  
    End If `:4MMr91  
     pL)xqKj  
     +5-fk>o  
    Dim pType As String, trimpTEXT As String >h%\HMKk  
    If Me.chkNum.Value = True Then Ut_mr b+W  
        Me.txtStatus.Text = "转换全角数字形式为半角" i@6wO?Tv  
        ConvertWidth "１", "1" S+pP!YX  
        DoEvents 9A+M|;O  
        ConvertWidth "２", "2" >%h7dC3h  
        DoEvents k/bque  
        ConvertWidth "３", "3" j{ "[Ec  
        DoEvents v F[CWV.  
        ConvertWidth "４", "4" L=m:/qQL  
        DoEvents Pw  xIz  
        ConvertWidth "５", "5" 0[9I0YBJ  
        DoEvents [TEcg^  
        ConvertWidth "６", "6" bg1un@%!l  
        DoEvents W>:kq_g T  
        ConvertWidth "７", "7" 4|F#gK5E  
        DoEvents O#G| ~'.,  
        ConvertWidth "８", "8" pyF5S,c  
        DoEvents 4 l1 i>_R  
        ConvertWidth "９", "9" h?A'H RyL~  
        DoEvents >2Ca5C  
        ConvertWidth "０", "0" JCcQd 01 z  
        DoEvents 1LyT7h  
        ConvertWidth "ａ", "a" gIBpOPr^d  
        DoEvents r{Z[xWIX  
        ConvertWidth "ｂ", "b" xE1rxPuq)d  
        DoEvents [Auc*@  
        ConvertWidth "ｃ", "c" ]>vf9]  
        DoEvents uS-3\$  
        ConvertWidth "ｄ", "d" <`+zvUx^?  
        DoEvents hHEPNR[.  
        ConvertWidth "ｅ", "e" J[r^T&o  
        DoEvents 1 7i$8  
        ConvertWidth "ｆ", "f" ?`aTu:1#Z  
        DoEvents pn s+y  
        ConvertWidth "ｇ", "g" N]u2ql&  
        DoEvents A;T[['  
        ConvertWidth "ｈ", "h" T`Ro)ORC #  
        DoEvents R'Eq:Rv~;^  
        ConvertWidth "ｉ", "i" y1u9 B;Fd  
        DoEvents ] R<FKJ[  
        ConvertWidth "ｊ", "j" doH2R @  
        DoEvents zp#:EZ  
        ConvertWidth "ｋ", "k" Aqu]9M~  
        DoEvents pU hc3L  
        ConvertWidth "ｌ", "l" phS>T  
        DoEvents >-zkB)5<,#  
        ConvertWidth "ｍ", "m" ! ]\2A.b[  
        DoEvents @?d?e+B  
        ConvertWidth "ｎ", "n" ^]7,1dH}M  
        ConvertWidth "ｏ", "o" gY%&IHQ'  
        ConvertWidth "ｐ", "p" (Y)!"_|  
        ConvertWidth "ｑ", "q" ]?&H^"=  
        ConvertWidth "ｒ", "r" <tW:LU(!  
        ConvertWidth "ｓ", "s" pZ\$50t&O  
        ConvertWidth "ｔ", "t" "Y(^F bs  
        ConvertWidth "ｕ", "u" YLmjEs%  
        ConvertWidth "ｖ", "v" 3&9zGy{V+  
        ConvertWidth "ｗ", "w" 6g|#ho1Bbs  
        ConvertWidth "ｘ", "x" ]9@X? q  
        ConvertWidth "ｙ", "y" C Oa.xyp  
        ConvertWidth "ｚ", "z" f8 #*mQ  
        ConvertWidth "Ａ", "A" Z8fJ{uOIL  
        ConvertWidth "Ｂ", "B" O% VA)<  
        ConvertWidth "Ｃ", "C" :o l6%Z's  
        ConvertWidth "Ｄ", "D" 0T0/fg(o  
        ConvertWidth "Ｅ", "E" h"8QeX:((  
        ConvertWidth "Ｆ", "F" N33AcV!*8  
        ConvertWidth "Ｇ", "G" e{JVXc[D  
        ConvertWidth "Ｈ", "H" VY_f =  
        ConvertWidth "Ｉ", "I" X(b1/lzA  
        ConvertWidth "Ｊ", "J" :])JaS^  
        ConvertWidth "Ｋ", "K" 6}STp_ x  
        ConvertWidth "Ｌ", "L" x5PPu/  
        ConvertWidth "Ｍ", "M" S\b K+  
        ConvertWidth "Ｎ", "N" %wtXo BJ  
        ConvertWidth "Ｏ", "O" tIp{},bQ^  
        ConvertWidth "Ｐ", "P" *;P2+cE>H3  
        ConvertWidth "Ｑ", "Q" rg*^w!   
        ConvertWidth "Ｒ", "R" QXB|!'  
        ConvertWidth "Ｓ", "S" D2)i3vFB  
        ConvertWidth "Ｔ", "T" /W0E(8:C)  
        ConvertWidth "Ｕ", "U" {NV :|M!  
        ConvertWidth "Ｖ", "V" .<dOED{v  
        ConvertWidth "Ｗ", "W" 9 #fp_G;=  
        ConvertWidth "Ｘ", "X" &D)2KD"N  
        ConvertWidth "Ｙ", "Y" @`Wt4<  
        ConvertWidth "Ｚ", "Z" b"&E,=L  
        ConvertWidth "^l", "^p" |i u2&p >  
        ConvertWidth "（", "(" #!L%J<MX  
        ConvertWidth "）", ")" (Z 8,e  
     P{Lg{I_w.B  
    End If [G=:?J,P  
c>rKgx  
    With ActiveDocument u>m'FECXj  
        Dim tbl As Table KqK9X  
        For Each tbl In .Tables x,f>X;04  
            tbl.Rows.Alignment = wdAlignRowCenter Ysl9f1>%  
            tbl.Range.Font.NameFarEast = "楷体" hbH#Co~o4#  
            tbl.Range.Font.NameAscii = "Times New Roman" !3 ?yG  
            tbl.Range.Font.Size = 10.5 s,kU*kHn  
        Next (FG^UA#'  
        Set tbl = Nothing .OV-`TNWj  
    End With cafsMgrA  
     5 pmQp}}R  
     -~} tq]  
    With ActiveDocument W6M jQ%f  
         vS#{-X  
        For i = 1 To .TablesOfContents.Count |mvM@V;^8{  
            .TablesOfContents(i).Delete '{CWanTPi  
        Next ]/[0O+B?  
         :~i+tD  
         qS| AdkNL  
         2md.S$V$,  
        paraTotal = .Paragraphs.Count LGfmUb-{]  
        paraCounter = 1 =R2l3-HA=  
         ?^F5(B[+Y  
        LastTitle0No = 0 ez+yP,.#  
        LastTitle1No = 0 9 R   
        LastTitle2No = 0 *73AAA5LKa  
        LastTitle3No = 0 R|-j]Ne  
        LastTitle4No = 0 8J):\jAZ6  
        LastTableNo = 0 hm6pxFkX_  
        LastFigureNo = 0 I5Q~T5Ar  
         L W?&a3e  
        Dim Sec As Long S QSA%B$<  
         ?eVj8 $BQo  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) _{mJ.1)V;  
        If Sec = 0 Then Pfk{=y  
            Exit Sub D$mf5G &  
        End If 'xk1o,;  
         QheDF7'z  
        k = 0 &\c5!xQ9*  
        Do While (paraCounter < paraTotal) And bContinue ,0h3x$l)   
            k = k + 1 a-:pJE.'p  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then #?Wo <]i  
                Exit Do ivD^HhG  
            End If @ 'Q%Jc(  
            paraCounter = paraCounter + 1 Ez UPah  
            If k Mod 20 = 0 Then Qi"'bWX@  
                Me.lbCounter.Caption = paraCounter 9ClF<5?M  
                DoEvents BJ2Q2W W  
            End If ,$ mLL  
        Loop Op90 NZI#K  
         ^9s"FdB]24  
         mQL8QW[c  
        Do While (paraCounter < paraTotal) And bContinue `^zQ$au'u  
             -aT=f9u  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) LC76Qi;|k  
            ShapeHeight = 0 }|,EU!nDi  
            ShapeWidth = 0 fSr`>UpxC  
           smbUu/  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth xh`Du|jvm  
             jQkUNPHu  
            Select Case ParaType (qbc;gBy  
                Case "【】表格内容" Q~b_dx{m  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" Uqr{,-]5v  
                Case "章" Q8 4t9b  
                    LastTitle0No = LastTitle0No + 1 Stt* 1gT  
                    '新一章开始，复位其下属标题编号 VT Vm7l  
                    LastTitle1No = 0 g&XhQ.aa  
                    LastTitle2No = 0 IX?@~'  
                    LastTitle3No = 0 OSj%1KL  
                    LastTitle4No = 0 ,.h$&QFj;  
                     L*v93;|s  
                    k = Val(ttNo) h)P]gT0f/  
                    If k = 0 Then '非数字编号章节 VD9J}bgJ  
                        If ttNo <> NoSeries1(LastTitle0No) Then O[L\T  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString C?S~L5a#oC  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText ,;c{9H  
                        End If Xa)7`bp<  
                    Else =:;YTie  
                        If Val(ttNo) <> LastTitle0No Then Z<I[vp6 {  
                            rText = "第" & LastTitle0No & ttString *n,UOHlO  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText o:4CI  
                        End If ZRUh/<\[  
                         uZ-`fcCjD  
                    End If D*qzNT@`LR  
                     }pt-q[s>  
                    '章段落设置 8>m1UONr  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 7pd$?=__I  
                    .Paragraphs(paraCounter).Style = "QLNU章节" N:d D*[QZ  
                    .Paragraphs(paraCounter).Range.Select UFos E|r:  
                    Selection.EndKey unit:=wdLine EL"4E',  
                    tc = Replace(rText, vbCr, "") -h=c=P  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False XA?WUR[e  
                Case "一级标题" jXtLo,km  
                    LastTitle1No = LastTitle1No + 1 V.U|OQouT  
                    '新一级标题开始，复位其下属标题编号 sC9-+}  
                    LastTitle2No = 0 C_C$5[~-:  
                    LastTitle3No = 0 Iht@mE  
                    LastTitle4No = 0 wD}EW  
                     C5cFw/',  
                    If ttNo <> NoSeries1(LastTitle1No) Then A=W5W5l(>  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString 4sI3(z)9H  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText `TOX1cmw  
                    End If ~yd%~|  
                   wqf&i^_  
                     +H[Q~P8'[  
                    '一级标题段落设置  格式：一、标题内容 <e[!3,%L  
                    .Paragraphs(paraCounter).Range.Text = rText 2=Jmi?k  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" 5vYsA1Z   
                    .Paragraphs(paraCounter).Range.Select u^!&{q  
                    Selection.EndKey unit:=wdLine z(#= tC|  
                    tc = Replace(rText, vbCr, "") +B](5z4  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False /m;O;2"  
                Case "二级标题" q;KshpfRMD  
                    LastTitle2No = LastTitle2No + 1 8.PXTOhVL  
                    '新二级标题开始，复位其下属标题编号 xTGP  
                    LastTitle3No = 0 O-?z' @5cI  
                    LastTitle4No = 0 'H|;%J6d>  
                     G;Us-IRZ  
                    If ttNo <> NoSeries1(LastTitle2No) Then EmF]W+!z%  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString =>P_mPP=  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText BSjbnnW}"  
                    End If "i}Z(_7yr  
                     {rs6"X^  
                    '二级标题段落设置 格式：(一)、标题内容 7G?Ia%u  
                    .Paragraphs(paraCounter).Range.Text = rText C CLfvex  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" O3!Ouh&  
                     <nf=SRZ  
                    .Paragraphs(paraCounter).Range.Select py}.00it  
                    Selection.EndKey unit:=wdLine Q.*'H_Y  
                    tc = Replace(rText, vbCr, "") t&8<k+m  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False 2Qw )-EB  
                  on6<l  
                Case "三级标题" 2n _T2{  
                    LastTitle3No = LastTitle3No + 1 xcsFODx~  
                    '新三级标题开始，复位其下属标题编号 G[y&`Qc)G  
                    LastTitle4No = 0 W6)dUi :"  
                     %+D-y+hn  
                    If Val(ttNo) <> LastTitle3No Then -aC!0O y`  
                            rText = LastTitle3No & ". " & ttString t CkoYrvT  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText MM=W9#  
                         G3oxa/mO  
                    End If {V{0^T-  
                    '三级标题段落设置 格式：1. 标题内容 fp,1qzU[k  
                    .Paragraphs(paraCounter).Range.Text = rText x_]",2 W'  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" S$Qr@5  
                    .Paragraphs(paraCounter).Range.Select kbD*=d}3{  
                    Selection.EndKey unit:=wdLine \ YjB+[.  
                    tc = Replace(rText, vbCr, "") -,[~~  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False >t2]Ssi(  
                Case "四级标题" S.qk%NTTD  
                    LastTitle4No = LastTitle4No + 1 P*}9,VoY  
                     u!m,ilAnd  
                    If Val(ttNo) <> LastTitle4No Then ^u=PdBY  
                            rText = "(" & LastTitle4No & "). " & ttString =%:JjgKc*t  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText q#l.A?rK\  
                     {K<~ vj;  
                    End If M}R@ K;%  
                    '四级标题段落设置 格式：(1). 标题内容 X+/{%P!w  
                    .Paragraphs(paraCounter).Range.Text = rText 6JUav."`~  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" yY-FL`-  
                    .Paragraphs(paraCounter).Range.Select u XaL  
                    Selection.EndKey unit:=wdLine jq7vOr-_g  
                    tc = Replace(rText, vbCr, "") yp( ?1  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False Q9Q!9B @  
                 {hlT` K  
                Case "表格标题" i0i.sizu  
                    LastTableNo = LastTableNo + 1 c1gz #,  
                     .LWOM8)  
                    If ttNo <> CStr(LastTableNo) Then cC7"J\+r*  
                            rText = "表" & LastTableNo & ". " & ttString 0F-mROC=F  
                            ErrMsg.AddItem "表格编号错误：" & ParaText QJ[(Y@ O6a  
                   S(@*3]!q  
                    End If f_^ix  
                     ru#T^AI*^  
                    '表格名称段落设置 格式：表1. 表格名称 !E4E'I=]N  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" *2w_oKE'+5  
                    xe = Replace(rText, vbCr, "") G~Sy&XJuq  
                    .Paragraphs(paraCounter).Range.Select c _R)P,P  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 2nG{>,#C:O  
                    Selection.Range.Text = xe N0 2zPC 8  
                    Selection.EndKey #nxER   
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False wjN`EF5$}&  
                 p_D on3  
                Case "表格首行" bjU 2UcI"<  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" e);bF>.~  
                Case "图片标题" d#X&Fi   
                    LastFigureNo = LastFigureNo + 1 B:.;,@r]  
                     =d:R/Z%,  
                    If ttNo <> CStr(LastFigureNo) Then 0+$hkd n  
                            rText = "图" & LastFigureNo & ". " & ttString <K|3Q'(S  
                            ErrMsg.AddItem "表格编号错误：" & ParaText g}\U, (  
                   & y#y>([~  
                    End If NN31?wt  
                    '图片名称段落设置 格式：图1. 图名称 Ah(\%35&  
                    .Paragraphs(paraCounter).Range.Text = rText azz#@f1  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" WO.}DUfG+  
                    .Paragraphs(paraCounter).Range.Select :u[ oc .  
                    Selection.EndKey unit:=wdLine 4SX3c:>  
                    xe = Replace(rText, vbCr, "") !7kAJG g  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False 'iMHAP;N  
                Case "正文" @n 5;|`)\  
                     '正文名称段落设置 R^mu%dw)(%  
                    .Paragraphs(paraCounter).Style = "QLNU正文" 6,CU)-98G  
               Case "文献条目" xCDA1y;j  
                    With .Paragraphs(paraCounter) i{%z  
                        '.Range.Select >cvE_g"?C  
                        'Selection.ClearFormatting TmRrub  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” @5<]W+jk4  
                        .Style = "QLNU参考文献" I,?Fqg'sq  
                    End With >$#*`6R  
               Case "图表注解" D 2hAlV)i(  
                    With .Paragraphs(paraCounter) 6Cop#kW#  
                        .Range.Font.NameFarEast = "楷体" ~(Ih~/5\^  
                        .Range.Font.NameAscii = "Times New Roman" J)#5 9a  
                        .Range.Font.Size = 9 '小5号字 _OyP>| L'  
                         LAu+{'O\  
                        .Alignment = wdAlignParagraphCenter bxPY'&  
                        .LeftIndent = 0 nR=2eBNf  
                        .RightIndent = 0 ~v{C6)  
                        .FirstLineIndent = 0 ,f-T1v"  
                        .LineSpacing = 12 S,d ngb{  
                        .LineSpacingRule = wdLineSpaceExactly 1t~S3Q||>]  
                        .LineUnitAfter = 0 H]T2$'U6  
                        .LineUnitBefore = 0 4\ uZKv@,  
                        .OutlineLevel = wdOutlineLevelBodyText =woqHTR  
                        .PageBreakBefore = False ="'rH.n #  
                        .RightIndent = 0 luP'JUq  
                        .WordWrap = True j SUAU}u!M  
                        .LineUnitAfter = 0.5 n1k$)S$iiy  
                         N3S,33 8s  
                    End With FJ3:}r6 "  
                Case Else , }xpYq_/  
                    '不作处理 ovo?lE-a0  
            End Select A>&>6O4  
             1FXzAc(c!  
            '含有inlineshape的段落处理 A?6 {  
            If ShapeHeight > 30 Then sWojQ-8}  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 ,6cbD  
            End If 2@=cqD7x  
             X r  
            If (ShapeWidth + ShapeHeight) > 150 Then KxgR5#:i"  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" Zu [?'  
            End If :N+K^gI)  
             %WJ\'@O\  
            '段落计数器递 c_D,MW\IC  
            paraCounter = paraCounter + 1 Sop Ntcu!  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter \'}/&PCkr  
            Me.txtStatus.Text = ParaText c(_oK ?  
            DoEvents "63zc 1  
        Loop N9>'/jgZX  
    End With mcP{-oJ0W  
     v4Fnh`{  
    msg = "" softfjl&l  
     #J<`p  
    For i = 0 To Me.ErrMsg.ListCount - 1 $_ I%1  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) s)`1Rf  
    Next g0; &/;"  
     9;xL!cy  
     {Q#Fen ;y|  
     q7)]cY_  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg 0NuL9  
    Me.cmdCheck.Enabled = True qxg7cj2  
    Me.txtStatus.Visible = True + !E{L  
    Me.lbParaType.Visible = False b _K?ocq  
     Uy_}@50"l  
    bContinue = False .SRuyioF&  
End Sub 0k] ju  
W?4&lC^G  
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) )ZQ9a4%  
    Dim pTEXT As String qxecp2>U  
     TQb FI;\  
    pTEXT = ChKRange.Text R~x;X3  
     %$9)1"T0Y  
    ParaType = "其它" D x >1y  
    TitleString = pTEXT -x3tx7%  
    TitleNo = "N/A"  5Xy^I^J  
     mBD!:V'  
    shpCounter = ChKRange.InlineShapes.Count #qiGOpTF.  
    If shpCounter <> 0 Then dwf #~7h_  
        MaxShpHeight = 0: TotalShpWidth = 0 ba:mO$  
        For i = 1 To shpCounter "0!eb3n  
            k = ChKRange.InlineShapes(i).Height I/ e2,  
            l = ChKRange.InlineShapes(i).Width 709Uv5  
            If k > MaxShpHeight Then F] dd>#  
                MaxShpHeight = k 9$4/frd  
            End If C[87f-g  
            TotalShpWidth = TotalShpWidth + l ]C!Y~  
        Next h Vt+%tmNy  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then hq&  
            Exit Sub *Wuctu^9  
        End If ; ei<Q =[  
    End If nIN%<3U2  
     9L)&n.t1  
    '空行 `|ck5DZT5L  
    If Len(pTEXT) <= 2 Then 0.{oA`5N  
        Exit Sub QB.*R?A  
    End If oE|u;o  
     #P,[fgNy  
         AT'_0> x8  
    '是否为表格中的文字 J*6n6  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then ` pv89aO  
        ParaType = "表格内容" fjK]m.w  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) 0x9F*i_  
        If k = 1 Then tl,x@['p`  
            ParaType = "表格首行" %RT6~0z  
        End If C.9eXa1wkT  
        Exit Sub EU&3Pdn d  
    End If B3g82dm  
     bTo@gJk n  
    '例外情况：脚注 /Mi-lh^j-  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then ,P; a/{U  
        ParaType = "脚注" !Sy'Z6%f  
        Exit Sub sgb+@&}9n  
    End If HLyFyv\  
     Z%HEn$t  
    '例外情况：尾注 ~gLEhtW  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then ^&Rxui  
        ParaType = "尾注" "DcueU#!  
        Exit Sub !Z0rTC3d  
    End If * F%ol;| Q  
     bTy' 5"  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then  9'/|?I  
        ParaType = "页眉页脚" @y~BYiKs  
        Exit Sub /PB3^d>Q2  
    End If l]58P  
      >Wr   
     >I8hFtAM  
    With regEX ja,L)b:  
        .Global = True `Hp.%G(  
         mSfkyw.  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" P20]>Hg  
        If regEX.Test(pTEXT) Then [&O:qaD^  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") lo]B 5_en  
            TitleString = regEX.Replace(pTEXT, "$3") V~uA(3\U  
            TitleNo = regEX.Replace(pTEXT, "$1") Ow .)h(y/  
            ParaType = "章" p?`|CE@h7  
            Exit Sub >I66R;  
        End If >-tH&X^  
         $=QGua V  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" U~B} vt  
        If regEX.Test(pTEXT) Then 3{#pd6e5  
            ParaType = "一级标题" uI:3$  
            regEX.Execute (pTEXT) g#KToOP  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") $X<<JnsK  
            TitleString = regEX.Replace(pTEXT, "$3") #3:'lGBIK  
            TitleNo = regEX.Replace(pTEXT, "$1") MF`k~)bDV  
            Exit Sub ph&H*Mc  
        End If ptcH>wM!  
         "<n"A7e  
        '全角或半角括号中的数字 (a)@<RF`Q}  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" f29HQhXqS  
        If regEX.Test(pTEXT) Then :]z-Rz  
            ParaType = "二级标题" YV_I-l0  
            regEX.Execute (pTEXT) y\f8Ird  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") {;(g[H=q;  
            TitleString = regEX.Replace(pTEXT, "$5") w2C!>fJ]1  
            TitleNo = regEX.Replace(pTEXT, "$2") >"$-VY6i  
            Exit Sub z1@sEfk>  
        End If ]JCB^)tM  
         PuoJw~^h  
        '阿拉伯数字  1. 2. DRg ~HT  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" 5P t}  
        If regEX.Test(pTEXT) Then !y2h`ZAZ  
            ParaType = "三级标题" ,%b1 ]zZQ  
            regEX.Execute (pTEXT) :7PSZc:xE  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 $>rfAs!  
            TitleString = regEX.Replace(pTEXT, "$3") jv#" vQ9A]  
            TitleNo = regEX.Replace(pTEXT, "$1") H7X xME  
            Exit Sub x ;?1#W  
        End If &+w!'LSaD  
         <"|<)BGeI  
        '全角或半角括号中的阿拉伯数字 CO)b'V,  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" ZD] '$  
        If regEX.Test(pTEXT) Then "a`0w9Mm}  
            ParaType = "四级标题" ]!Aze^7;  
            regEX.Execute (pTEXT) *,*:6^t  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") s:Ql](/B#  
            TitleString = regEX.Replace(pTEXT, "$5") \g6 # MNW  
            TitleNo = regEX.Replace(pTEXT, "$2") fz?Wr: I  
            Exit Sub MzW$Sl&:  
        End If f}9`iN=k  
         JjO/u>A3;7  
        '表格名称 Jm1AJ4mw  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" A`U2HC   
        If regEX.Test(pTEXT) Then $O</akn;  
            ParaType = "表格标题" Ud(dWj-/  
            regEX.Execute (pTEXT) Ckl]fy@D}  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) HgBEV  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) =smY/q^3  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) )yH#*~X_   
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 @LMV?  
            Exit Sub @j8L{FGnN  
        End If ^~1@HcJo  
         9(evHR7  
        '图片名称 sbiDnRf  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" Lzx(!<v  
        If regEX.Test(pTEXT) Then uKAHJ$%  
            ParaType = "图片标题" Fe2 -;o  
            regEX.Execute (pTEXT) ={D B  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") _itN.^  
            TitleString = regEX.Replace(pTEXT, "$3") $Qc%9p @i  
            TitleNo = regEX.Replace(pTEXT, "$1") T+{'W  
            Exit Sub z'}t@R#H  
        End If >_% g8T'  
         Ywb)h^{!  
        '参考文献 P}u<NPy3Q  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 z^GGJu%vjr  
        If regEX.Test(pTEXT) Then 6Q?6-,?_  
            ParaType = "文献条目" g8 *|" {  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") x)sDf!d4bi  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") ~)CU m[:oM  
            Exit Sub 5xV/ &N  
        End If zmS-s\$,  
         !I+u/f?TO7  
        prfx = Left(pTEXT, 2) I$qtfGr  
        If prfx = "注：" Or prfx = "注:" Then j9fL0$+FI  
            ParaType = "图表注解" g$+O<a@n  
            Exit Sub 6!=9V0G~  
        End If 8lb `   
         cFNtY~(b  
         21k-ob1Y  
        ParaType = "正文" E2/U']R  
         (8X8<>w~  
    End With ?[fl$EG  
End Sub KUn5S&eB  
S5 oHe4#89  
Sub ConvertListToOrdinary() Vm8_ !$F  
    Dim st As Paragraph 8o5^H>  
    With ActiveDocument op{(mn  
        For i = .Paragraphs.Count To 1 Step -1 o;-! ?uJ  
            Set st = .Paragraphs(i) J0)WRn"h  
            lst = st.Range.ListFormat.ListString {1&,6kJF&9  
            If lst <> "" Then ~#x!N=q  
                st.Range.ListFormat.RemoveNumbers =,;3z/k %  
                st.Range.InsertBefore lst & " " R =c  
            End If ,&l*AB!  
        Next X OtS+p  
    End With G uI sM  
    Set st = Nothing r ($t.iS  
End Sub H.S|njn:r  
iQR}) =Q  
Private Sub UserForm_Activate() <6@NgSFz'  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" "@|V.d@   
    Me.lbTotal.Font.Bold = True rG%_O$_dO  
    Me.txtStatus.Visible = False jM@I"JZ b  
    Me.cmdCheck.Enabled = True :[?o7%"  
p q5H{  
End Sub !g:G{b  
2/gj@>dt  
}pZnWK+  
Sub CheckSuperScript() (c7{dYV  
    Selection.Find.ClearFormatting rca"q[,  
    Selection.Find.Replacement.ClearFormatting 2F(\}%UT~  
    With Selection.Find Iur} Z Az  
        .Text = "[【\[［〖](*)[】\]〗］]" 2Rp{]s$jo  
        .Replacement.Text = "[\1]" 1{glRY'  
        .Replacement.Font.Superscript = True uUB%I 8  
        '.Replacement.Font.Color = wdColorBlue |,~A9  
        .Forward = True g}j>;T  
        .Wrap = wdFindContinue (NV=YX?s  
        .FORMAT = True PbH]K$mj{"  
        .MatchCase = False X)+sHcE~#  
        .MatchWholeWord = False 4Lq]yUj  
        .MatchByte = False *iN]#)3>  
        .MatchAllWordForms = False W@}5e-q)O  
        .MatchSoundsLike = False lGgKzi9VD  
        .MatchWildcards = True <iqyDPj  
    End With z4UQ:z@  
    Selection.Find.Execute Replace:=wdReplaceAll W n mRRq^  
End Sub ! yUKNR  
QlXF:Gx"=  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) qk"=nAJX  
    bContinue = False R20GjWy=  
    Set regEX = Nothing .B n2;nO  
End Sub kqB 00 ;  
r?>Hg+  
Sub CeateOrModifyStyle() IY6S\Gn  
' (ZSSp1R v  
' }u)G ERWO  
Dim stl As Style }Q(I&uz  
     !|QeYGnq6  
    Options.Pagination = False ;lt;]7  
     [uV/ Ra*g  
    On Error Resume Next C&" 2`ll  
    For Each stl In ActiveDocument.Styles P@? '@.e  
        stl.Delete 3CRBu:)m  
    Next AlhiF\+ C  
    On Error GoTo 0 ?uBC{KQ}Y  
     wi >ta  
    Set stl = Nothing 5gEWLLDp  
     d> AmM!J  
    DoEvents 2|o$eq3t  
    On Error Resume Next 6Izv&  
     ~ZC=!|Q#  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph p=T\3_q  
     hiM!htc;M  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph 6Ky"4\e  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph LJ#P- `!{&  
     wd0ACF  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph LA Vgf>  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph ar}759  
     Vjd =F .V+  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph pLcng[  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph / /rWc,c  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph mMWNUkDq  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph !XC7F UO  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph ikiy>W8  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph m 1;jS|  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph 1mM52q.R4  
     RuuU}XQ  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph ]TOY_K8"z#  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph ;VBfzFH  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph ]<= t  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph l.)!jWY  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph g >oLc6T  
     *(IO<KAg8  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph #XPU$=  
    On Error GoTo 0 oOz6Er[KO  
    DoEvents FeMu`|2  
     +rX,Sl`/  
    'BaseStyle >D aS*r  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False /LzNr0>2  
    With ActiveDocument.Styles("BaseStyle").Font %;J`dM  
        .NameFarEast = "宋体" (8R M|&  
        .NameAscii = "Times New Roman" I@+<[n2  
        .NameOther = "宋体" ti% e.p0[  
        .Size = 10.5 Y{@[)M{<  
        .Bold = wdUndefined 9hzU@m  
        .Italic = wdUndefined K`<P^XJr  
        .Subscript = wdUndefined )Me&xQTn  
        .Subscript = wdUndefined &6EfybAt^_  
         o(qmI /h  
        .Underline = wdUnderlineNone u'> CU  
        .UnderlineColor = wdColorAutomatic ? xs0J  
        .StrikeThrough = False \H(,'w7H  
        .DoubleStrikeThrough = False ,:,|A/U  
         ~h.B\Sc]Q  
        .Outline = False gk` .8o  
        .Emboss = False _ji%BwJ  
        .Shadow = False y~[So ,G  
        .Hidden = False wH<*  
        .SmallCaps = False 5gEK$7Vp  
        .AllCaps = False jT0fF  
        .Color = wdColorAutomatic >o7k%T|l$  
        .Engrave = False ZQ/5]]}3y  
        .Scaling = 100 _v,n~a} &  
        .Kerning = 1 ']D( ({%g  
        .Animation = wdAnimationNone = ByW`  
        .DisableCharacterSpaceGrid = False vt,X:3  
        .EmphasisMark = wdEmphasisMarkNone 56dl;Z)  
    End With hn .fX:}  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat ;0E 4S  
        .LeftIndent = 0 tDkq wF),  
        .RightIndent = 0 aQ. \!&U  
        .SpaceBefore = 0 G_]mNh  
        .SpaceBeforeAuto = False WI3!?>d  
        .SpaceAfter = 0 WG n1pW  
        .SpaceAfterAuto = False ^j7pF.j  
         R4;6Oi)  
        .LineSpacingRule = wdLineSpaceSingle 8uiQm;W  
        .Alignment = wdAlignParagraphJustify ^Pwq`G A  
         zYsGI<4  
        .WidowControl = False JTJ4a8DE  
        .KeepWithNext = False >MH@FnUL  
        .KeepTogether = False }J`Gm  
        .PageBreakBefore = False kA0 ^~  
        .NoLineNumber = False jL$X3QS:  
         Y$^QH.h  
        .FirstLineIndent = CentimetersToPoints(0) ^g\%VIOD  
        .OutlineLevel = wdOutlineLevelBodyText %Et] w  
        .CharacterUnitLeftIndent = 0 HC+R :Dz  
        .CharacterUnitRightIndent = 0 +`FY  
        .CharacterUnitFirstLineIndent = 0 k,& QcYw  
        .LineUnitBefore = 0 / [ M~##%:  
        .LineUnitAfter = 0 yfr gYA  
        .AutoAdjustRightIndent = True /2q %'"x(  
        .DisableLineHeightGrid = True na)_8r~  
         7Cjrh"al"  
        .FarEastLineBreakControl = True b"b!&u  
        .WordWrap = True {HeMdGn9  
        .Hyphenation = False FTe#@\I  
         ;7hr8?M|  
        .HangingPunctuation = True "'L SLp  
        .HalfWidthPunctuationOnTopOfLine = True NKws;/u  
        .AddSpaceBetweenFarEastAndAlpha = True _De;SB %V  
        .AddSpaceBetweenFarEastAndDigit = True KhvCkQMI@  
        .BaseLineAlignment = wdBaselineAlignBaseline %94"e7Hy  
    End With =JkSq J)?  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False LTHS&3% 2  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll WYL.J5O  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese 3* <W`yed  
    ActiveDocument.Styles("BaseStyle").NoProofing = False F(r &:3!97  
     .v{ty  
    '一级标题题样式  |Q dS;  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") W0k_"uI  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" mx2 Jt1  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False ^M"g5+ q  
    With ActiveDocument.Styles("QLNU一级标题").Font ly2R8$Y`y`  
        .NameFarEast = "黑体" zZ63 P  
        .NameAscii = "Arial Black" cW\7yZh  
        .NameOther = "黑体" KtE`L4tW6  
        .Name = "黑体" dWA7U6c<  
        .Size = 16              '三号 *: (t.iL  
        .Bold = True 78wcMQNX9  
        .Italic = wdUndefined 3L|k3 `I4  
        .Subscript = wdUndefined lk|/N^8M  
        .Superscript = wdUndefined s0SB!-Vjm  
    End With )U` c9*.  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat <:w7^m  
         >e%Po,Fg$  
        .LeftIndent = CentimetersToPoints(0) -}s?!Pg>  
        .RightIndent = CentimetersToPoints(0) Cpl)byb  
        .FirstLineIndent = CentimetersToPoints(0) QHK$  
         "P~>AXcq  
        .LineSpacingRule = wdLineSpaceSingle -_+0[Nb.  
        .Alignment = wdAlignParagraphCenter y5I7pbe  
         % |V:F.f  
        .WidowControl = True _"=~aMXC.)  
        .KeepWithNext = True p-Ju&4fS  
        .KeepTogether = True Bb)J8,LQ  
        .OutlineLevel = wdOutlineLevelBodyText 1mqFnVkf&+  
         Rk<:m+V=  
        .LineUnitBefore = 0.5 )XFMlSx)  
        .LineUnitAfter = 0.5 A|^?.uIM  
    End With l:+1j{ d7  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False 81&!!qhfS  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll 0Sk{P>A  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese }V{, kK  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True )? xg=o/?  
    DoEvents =0S7tNut  
     'J}lnt[V  
    '二级 If tPN6(Z  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")  `S|gfJ  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" _" n4SXhq  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False r\zK>GVm_  
    With ActiveDocument.Styles("QLNU二级标题").Font d hy=x  
        .NameFarEast = "黑体" 0#G"{M  
        .NameAscii = "Arial Narrow" & CgLF]  
        .NameOther = "黑体" M6>l% [  
        .Name = "黑体" |j;`;"+B  
        .Size = 15        '小三号 i~4Kek6,I  
        .Bold = False Vufw:}i+^  
        .Outline = False +e\u4k{3V  
        .Italic = wdUndefined s*;~CH-[  
        .Subscript = wdUndefined Wo&i)S<i0F  
        .Superscript = wdUndefined lc^%:#@  
    End With eF9LZ"-s  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat Rp#SqRy`  
        .LeftIndent = CentimetersToPoints(0) ts ] +W!:  
        .RightIndent = CentimetersToPoints(0) v-o/zud]]  
        .FirstLineIndent = CentimetersToPoints(0) p\ASf  
         BLRrHaX0  
        .LineSpacingRule = wdLineSpaceSingle o?>)CAo  
        .Alignment = wdAlignParagraphLeft U w)1yzX  
         .*,Z cO  
        .WidowControl = True zI(Pti  
        .KeepWithNext = True U1Oq"Ij~  
        .KeepTogether = True _v\QuI6  
        .PageBreakBefore = False V+Z22  
        .OutlineLevel = wdOutlineLevelBodyText @0G} Q  
         S $Wd}2>  
        .LineUnitBefore = 0.5 +=O:z *O  
        .LineUnitAfter = 0.5 8^T' a^Wt  
         KvgZx(.  
    End With E_? M&  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False ^U1;5+2G+~  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll j2z$kw%  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese _+U`afV  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True F~ :5/-zs  
    DoEvents Tb[GZ,/%;  
     &8N\ 6K=  
    '三级标题样式 z9gZ/d   
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") l!1bmg#]$  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" mEA w^  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False +{s^"M2`  
    With ActiveDocument.Styles("QLNU三级标题").Font W$y?~2  
        .NameFarEast = "宋体" NJ~'`{3v  
        .NameAscii = "Times New Roman" OA8pao~H  
        .NameOther = "黑体" x-"7{@lz  
        .Name = "黑体" wG B'c's*  
        .Size = 14               '四号 FUQT,7CA  
        .Bold = False nv={. H  
        .Outline = False )S]c'}^  
        .Italic = wdUndefined <rkF2-K,  
        .Subscript = wdUndefined X@ss d  
        .Superscript = wdUndefined tC;D 4i  
    End With (HEjmQjE  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat R .,w`<<  
        .LeftIndent = CentimetersToPoints(0) = #`FXO1C  
        .RightIndent = CentimetersToPoints(0) w v1R ]3}  
        .FirstLineIndent = CentimetersToPoints(0)  :sf;Fq  
         ,PB?pp8C}  
        .LineSpacingRule = wdLineSpaceSingle (mzyA%;W  
        .Alignment = wdAlignParagraphLeft ]2<g"zo0  
         N7[~Y2i  
        .WidowControl = True F>&8b^v bn  
        .KeepWithNext = True [wEx jLW  
        .KeepTogether = True te`4*t  
        .PageBreakBefore = False 3cnsJV]  
        .OutlineLevel = wdOutlineLevelBodyText Lczcz"t  
         + 7Z%N9  
        .CharacterUnitLeftIndent = 0 {*: C$"L  
        .CharacterUnitRightIndent = 0 Tb}b*d3  
        .CharacterUnitFirstLineIndent = 2 uJ%ql5XDV  
         KS%,N _F<  
        .LineUnitBefore = 0.5 E yNCky  
        .LineUnitAfter = 0 Uc/%4Gx   
    End With Zy<0'k%U  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False Fax73vl|^a  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll I;No++N0  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese $HaM, Oh;i  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True =Vi+wH{xM  
    DoEvents ]$7|1-&Y  
     b_B4  
    '四级标题样式 f}fM%0/5  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") (* p |Kzu  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" *2 [r?!  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False y==x  
    With ActiveDocument.Styles("QLNU四级标题").Font Dx8^V%b  
        .NameFarEast = "宋体" Q>|<R[.7  
        .NameAscii = "Times New Roman" jWm<!< ~  
        .NameOther = "宋体" Z$q}y 79^  
        .Name = "宋体" p4/D%*G^`  
        .Size = 12               '小四号 (|WqOwmoUt  
        .Bold = True ]WS 7l@  
        .Outline = False ,Rf<6/A  
        .Italic = wdUndefined ^*ZO@GNL  
        .Subscript = wdUndefined 3o1j l2n  
        .Superscript = wdUndefined (LnKaf8  
    End With |{$Vk%cUE  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat 5!wa\)wY  
         $(GXlhA  
        .LeftIndent = CentimetersToPoints(0) rtPQ:CaA)?  
        .RightIndent = CentimetersToPoints(0) Z*k}I{0,-  
        .FirstLineIndent = CentimetersToPoints(0) uG/ Zpi  
         ?&[`=ZVn  
        .LineSpacingRule = wdLineSpaceSingle Alrk3I3{  
        .Alignment = wdAlignParagraphLeft GhX>YzD7  
         >OQ<wO 6  
        .WidowControl = True gG#M-2P  
        .KeepWithNext = True VH8,!#Q;  
        .KeepTogether = True ec{pWzAe  
        .PageBreakBefore = False |'Jz(dv[  
        .OutlineLevel = wdOutlineLevelBodyText |d{4_o90  
         |kjk{  
        .CharacterUnitLeftIndent = 0 OH&&d=~  
        .CharacterUnitRightIndent = 0 w*aKb  
        .CharacterUnitFirstLineIndent = 2 5YRa2 #d  
         s8R.?mhH=  
        .LineUnitBefore = 0 #zfBNkk&@  
        .LineUnitAfter = 0 wE'~Qj  
         m~2PpO  
    End With V-VR+Ndz  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False WXJ%bH  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll wz'D4B  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese i`X/d=  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True 1"i/*}M  
    DoEvents ?8`b  
     . 8k9yk  
    '正文校式 Nkc=@l {  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") 5Ba eHzI  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" {`{U\w5Af  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False 0;)4.*t  
    With ActiveDocument.Styles("QLNU正文").Font %/4ChKf!VR  
         `}18A. K  
        .NameFarEast = "宋体" i7iL[+f]Q  
        .NameAscii = "Times New Roman" At"@`1n_u'  
        .NameOther = "宋体" JVN0];IL}  
        .Name = "宋体" O Qd,.m  
         qg|SBQ?6  
        .Size = 12               '小四号 gVb;sk^  
         SI-s:%O  
        .Bold = wdUndefined Ty7x jIs  
        .Italic = wdUndefined :X+7}!Wlo  
        .Subscript = wdUndefined -2f_e3jF  
        .Superscript = wdUndefined Wq]^1g_  
         KZ&{Ya  
        .Outline = False {>9 0d(j  
        .Emboss = False -_B*~M/vV`  
        .Shadow = False %?K'eg kp  
        .Hidden = False tX)^$3A  
         wPyfne?~,  
        .DisableCharacterSpaceGrid = True gd2cwnP  
    End With Y\s@'UoVN  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat |'.\}xt7  
         L,BuzU[1S  
        .LeftIndent = CentimetersToPoints(0) '};pu;GA7  
        .RightIndent = CentimetersToPoints(0) )[>{ Ie2  
        .FirstLineIndent = CentimetersToPoints(0) dtJ?J<m}  
         ^`ny]3JA  
        .LineSpacingRule = wdLineSpaceExactly yH irm|o  
        .LineSpacing = 20 3b~k)t4R  
        .Alignment = wdAlignParagraphLeft ]5wc8Kh"  
         WSUU_^.  
        .WidowControl = False y%f'7YZ4  
        .KeepWithNext = False t}+P|$[  
        .KeepTogether = False u`g|u:(r  
        .PageBreakBefore = False d7A vx  
        .Hyphenation = False H}`}qu #~V  
          2>p>AvcK  
        .OutlineLevel = wdOutlineLevelBodyText y m^  
         qEE V&  
       Ww:,O48%  
        .CharacterUnitLeftIndent = 0 6 ,| !zaeS  
        .CharacterUnitRightIndent = 0 /alJN`g  
        .CharacterUnitFirstLineIndent = 2 Dz8)u:vRS  
         CnN PziB  
        .LineUnitBefore = 0 Ub3^Js!b%  
        .LineUnitAfter = 0 I~|.Re9a  
        .SpaceBefore = 0 `C$.  
        .SpaceAfter = 0 Tw 8$6KUW  
         'V/+v#V+>  
        .DisableLineHeightGrid = True z`XX[9$qm  
    End With T=%,^  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False U8 '}(  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll DYx3 NDX7  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese lx(kbSxF  
    ActiveDocument.Styles("QLNU正文").NoProofing = True 4~4D1  
    DoEvents 4'[/gMUkw  
     yHe%e1  
    '图片段落样式 -uX): h!  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") cJ=0zEv  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" M $ CnaH  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False ^i:%0"[*^i  
    With ActiveDocument.Styles("QLNU图片段落").Font 741Sd8  
        .Size = 12               '小四号 /d*d'3{c  
        .Italic = wdUndefined 5NH NnDhuL  
        .Subscript = wdUndefined E {*d`n  
        .Superscript = wdUndefined ^O}`i  
    End With DJR_"8  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat h_n`E7&bG  
         az/NZlJhT  
        .LeftIndent = CentimetersToPoints(0) 8(]*J8/wt  
        .RightIndent = CentimetersToPoints(0) @X5F$=aqZr  
        .FirstLineIndent = CentimetersToPoints(0) +K{ J* n  
         ;Lr]w8d  
        .LineSpacingRule = wdLineSpaceSingle JYc;6p$<i  
        .Alignment = wdAlignParagraphCenter Y'H|Tk^`  
        .KeepWithNext = True *d b,N'rK  
        .OutlineLevel = wdOutlineLevelBodyText opc`n}Fc  
         2M@,g8O+B=  
        .CharacterUnitLeftIndent = 0 },+ &y^  
        .CharacterUnitRightIndent = 0 "2# #Fcu=  
        .CharacterUnitFirstLineIndent = 0 -Q9} gaH_  
         NH~\kV  
        .LineUnitBefore = 0 ;LD!eWSK,  
        .LineUnitAfter = 0 >cJfD9-<h  
    End With p?PK8GL  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False ~lib~Y'-  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll (l}W\iB' d  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese '*lVVeSiFw  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True 7Ji|x{``  
    DoEvents ~Z-o2+xA  
     C%H{"  
     =# 0f4z  
    '第X章 LD /NMb  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") nHyqfd<V>  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" P:KS*lOp  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False d;@"Naw  
    With ActiveDocument.Styles("QLNU章节标题").Font -?nr q <3  
        .NameFarEast = "黑体" O/ybqU\7  
        .NameAscii = "Arial Black" mBN+c9n/  
        .NameOther = "Arial Black" :J6 xYy$  
        .Name = "黑体" "Rc Ny~  
        .Size = 16 K,j'!VQA4g  
        .Bold = True 0i[v,eS  
        .UnderlineColor = wdColorAutomatic <x-7MU&  
        .Outline = False zl $mt'\y  
        .Italic = wdUndefined zo83>bt  
        .Subscript = wdUndefined 9lqH  
        .Superscript = wdUndefined @S9^~W3G3  
        .Scaling = 100 e|> 5 R  
        .DisableCharacterSpaceGrid = True }l"pxp1K  
    End With P8[rp   
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat Vq$8!#~w  
        .LineSpacingRule = wdLineSpaceSingle n37P$0  
        .Alignment = wdAlignParagraphCenter c]}F$[>oN'  
        .WidowControl = True ?&Ug" $v  
        .KeepWithNext = True rel_Z..~  
        .KeepTogether = True Cg_9V4h.C  
        .PageBreakBefore = True Zo`_vx/{j  
        .OutlineLevel = wdOutlineLevelBodyText Gn&=<q :H  
         ~ kwS`  
        .LeftIndent = CentimetersToPoints(0) pT|l"q@  
        .RightIndent = CentimetersToPoints(0) [eLMb)n  
        .FirstLineIndent = CentimetersToPoints(0) x/NjdK  
         zCji]:  
        .CharacterUnitLeftIndent = 0 g|T WoRx:  
        .CharacterUnitRightIndent = 0 0#Ae<  
        .CharacterUnitFirstLineIndent = 0 m)Ta5w^  
         ghU~H4[xD  
        .LineUnitBefore = 1 FdGnNDl*e  
        .LineUnitAfter = 0.5 Xrl# DN  
         uo9FLm  
        .AutoAdjustRightIndent = False u4x>gRz)  
        .DisableLineHeightGrid = True f b+_]{7g  
        .FarEastLineBreakControl = True FRhHp(0}5  
        .WordWrap = True {: ] u 6l  
    End With g~p43sVV  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False BD ,J4xH;  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll >)^Q p-  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese  gx9=L&=d  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True 7K5 tBUNQ  
    DoEvents k:[T #/;  
     Y[!s:3\f  
    '表格标题 e 1Q   
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") A3^_ 'K  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" ,J(shc_F  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False \r1nMw3&  
    With ActiveDocument.Styles("QLNU表格标题").Font *47HN7  
        .NameFarEast = "楷体" 0@yw#.j  
        .NameAscii = "Arial" AcP d(Pc  
        .Name = "楷体" WeZ?L|&%w0  
        .Size = 10.5 hh!4DHv   
        .Bold = True [,L>5:T  
        .Underline = wdUnderlineNone :lW8f~!  
        .Italic = wdUndefined MFeY}_d<  
        .Subscript = wdUndefined Tm\a%Z `U>  
        .Superscript = wdUndefined u.ej<Lo  
        .Color = wdColorAutomatic Yz)+UF,  
    End With r17"i.n  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat uN&UYJ' B  
         uA 4x xY  
        .LineSpacingRule = wdLineSpaceSingle $+|. @ss  
        .Alignment = wdAlignParagraphCenter S-5O$EnD  
        .KeepWithNext = True 1 R,SA:L$  
        .KeepTogether = True BEtFFi6ot  
        .OutlineLevel = wdOutlineLevelBodyText ?t)Mt]("  
         ;F|8#! (  
        .LeftIndent = CentimetersToPoints(0) +wp!hk&C5  
        .RightIndent = CentimetersToPoints(0) XM f>B|  
        .FirstLineIndent = CentimetersToPoints(0) w?V;ItcL  
         fG zx;<0P!  
        .CharacterUnitLeftIndent = 0 (<2!^v0.M  
        .CharacterUnitRightIndent = 0 !?)aZ |r  
        .CharacterUnitFirstLineIndent = 0 &6e A.  
         E(F?o.b  
        .LineUnitBefore = 1 yXQ 28A  
        .LineUnitAfter = 0 m$bYx~K  
         1>=%TIO)  
    End With `{%ImXQF  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False X2T _} {  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll {X 5G  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese #(}'G*  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True tH=jaFJ   
    DoEvents 4s9q Q8?  
\NZ@>on  
    '表格首行 % 6\L^RP  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") < &kl:|  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False O1Ynl` }  
    With ActiveDocument.Styles("QLNU表格首行").Font >  -,$  
        .NameFarEast = "楷体" & LhQr-g  
        .NameAscii = "Times New Roman" +#L'g c  
        .Name = "楷体" 0YZ66VN!  
        .Size = 9 bgeJVI  
        .Bold = True O{x-9p  
        .Underline = wdUnderlineNone GXi)3I%  
        .Italic = wdUndefined CHyT'RT  
        .Subscript = wdUndefined ` ZBOaN^if  
        .Superscript = wdUndefined (3WK2IM^  
    End With ivg W[]  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat h<G7ocu!  
        .LineSpacingRule = wdLineSpaceSingle NvvD~B b  
        .Alignment = wdAlignParagraphCenter Lb#PiTJI  
         s14D(:t(  
        .LeftIndent = CentimetersToPoints(0) )# v}8aL  
        .RightIndent = CentimetersToPoints(0) `-MCI)Fq_R  
        .FirstLineIndent = CentimetersToPoints(0) rn]F97v@]  
         %$_Y"82  
         cJ\ 1ndBH  
        .CharacterUnitLeftIndent = -0.5 ;o158H$gz;  
        .CharacterUnitRightIndent = -0.5 e(I;[G +%,  
        .CharacterUnitFirstLineIndent = -0.5 tIk$4)ZAl  
         &r+!rL Kp  
        .LineUnitBefore = 0 @HE<\Z{ KI  
        .LineUnitAfter = 0 ?$MO!  
        .SpaceBefore = 0 dDA,Ps  
        .SpaceAfter = 0 [9d\WPLC  
         4-BrE&2f  
    End With D+u\ORj  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False }{}?mQ  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll 5/R ~<z  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese &Qe2 }e$  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True yU>ucuF  
    DoEvents >9y!M'V  
>}B53.;.k  
    '表格内容 ;6$W-W _  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") T|p%4hH  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False 9a#Y D;-p  
    With ActiveDocument.Styles("QLNU表格内容").Font L|8&9F\  
        .NameFarEast = "楷体" @^%YOorr  
        .NameAscii = "Times New Roman" 5Y  7 %Z  
        .Name = "楷体" p7W9?b9  
        .Size = 9 W=y9mW|p/  
        .Bold = False OaKr_m  
        .Underline = wdUnderlineNone BoXPX2:  
        .Italic = wdUndefined Pv|sPIIB7  
        .Subscript = wdUndefined !yvw5As%  
        .Superscript = wdUndefined Yyw9IYB;  
    End With Yfx ?3  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat `#:(F z  
        .LineSpacingRule = wdLineSpaceSingle .pG`/[*a  
        .Alignment = wdAlignParagraphCenter )-m/(-  
         JQ|*XU  
        .LeftIndent = CentimetersToPoints(0) sf O{.#5<  
        .RightIndent = CentimetersToPoints(0) ^fV-m&F)K*  
        .FirstLineIndent = CentimetersToPoints(0) {11 3B)  
         {Y3:Y+2X3*  
        .CharacterUnitLeftIndent = -0.5 mA#;6?6  
        .CharacterUnitRightIndent = -0.5 /.(~=6o5  
        .CharacterUnitFirstLineIndent = -0.5 >`^;h]Q  
        .LineUnitBefore = 0 XZ2 ji_D  
        .LineUnitAfter = 0 l,5isq ;m  
        .SpaceBefore = 0 ]@m`bs_6  
        .SpaceAfter = 0 fZ(k"*\MZ  
    End With g'Wr+( A_  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False 8_Z"@  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll tkmzOc H  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese U] P{~  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True eM]>"  
    DoEvents i|0!yID0@  
|9Y~k,rF  
    '图片标题 k(xB%>ns  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") G.r =fNP  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" ~Rx`:kQ  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False ZFtJoGaR  
    With ActiveDocument.Styles("QLNU图片标题").Font J3XG?' }  
        .NameFarEast = "楷体" WD5jO9Oai  
        .NameAscii = "Times New Roman" {N << JX  
        .Name = "楷体" (Vn3g ra  
        .Size = 10.5 b\t?5z-Z  
        .Bold = True _C=01 %/  
        .Underline = wdUnderlineNone QRx9;!~b}  
        .Italic = wdUndefined ?4#  
        .Subscript = wdUndefined zDBm^ s  
        .Superscript = wdUndefined \~r_S  
        .Outline = False a^Z=xlJ/uZ  
        .Shadow = False MwX8FYF D  
        .Color = wdColorAutomatic |n;5D,r0C  
    End With .@\(ay  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat ltyhYPS  
        .LineSpacingRule = wdLineSpaceSingle OnyAM{$g  
        .Alignment = wdAlignParagraphCenter 3sgo5D-rMI  
         ']d(m?  
        .KeepWithNext = wdUndefined ~>Y^?l  
        .KeepTogether = True Jpy~5kS  
        .OutlineLevel = wdOutlineLevelBodyText S_ra8HY8  
         l GJN;G7  
        .LeftIndent = CentimetersToPoints(0) ol~ tfS  
        .RightIndent = CentimetersToPoints(0) 36Lf8~d4"h  
        .FirstLineIndent = CentimetersToPoints(0) 'J)9#  
         RRro.r,  
        .CharacterUnitLeftIndent = 0 8g=];@z  
        .CharacterUnitRightIndent = 0 m {&lU@uL  
        .CharacterUnitFirstLineIndent = 0 E B! ,t  
         h*Mt{A&'.&  
        .LineUnitBefore = 0 (w`_{%T  
        .LineUnitAfter = 0 cYvt!M\ed  
    End With w]fVELU  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False 11Uu5e!.  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll >}/T&S  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese )LNKJe+  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True F$'po#  
    DoEvents );?tGX  
q,OCA\  
    '目录项 6\Tq,I7  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") I+`>e*:@W  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" { {)pb>E  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False a|DCpU}  
    With ActiveDocument.Styles("QLNU目录项").Font [ {HTGz@(  
        .NameFarEast = "黑体" IR?nH`V  
        .NameAscii = "Times New Roman" T+S\'f\  
        .NameOther = "Times New Roman" \mZB*k)+  
        .Name = "黑体"  C~^T=IP  
        .Size = 10.5 nm)/BK  
        .Bold = False %TO&  
        .Italic = wdUndefined nGsFt.  
        .Underline = wdUnderlineNone <<V"4 C2  
        .Color = wdColorAutomatic UGvUU<N|N  
        .Superscript = wdUndefined dA<SVk*0Q  
        .Subscript = wdUndefined i ~)V>x  
    End With (,|eE)+  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat Bat@  
         ~+,ZD)AKi4  
        .LineSpacingRule = wdLineSpaceSingle -X3CrW  
        .Alignment = wdAlignParagraphLeft Y5P9z{X=  
         a@AIv"q  
        .WidowControl = False 37Q8Yf_  
        .KeepWithNext = False K9p<PLy+  
        .KeepTogether = False ,r]H+vWS  
        .PageBreakBefore = False 0chpC)#Q3;  
        .NoLineNumber = False 3(,m(+J[S  
        .OutlineLevel = wdOutlineLevelBodyText Tcc83_Iq  
         .>.GQUr  
        .LeftIndent = CentimetersToPoints(0) P3Lsfi.  
        .RightIndent = CentimetersToPoints(0) J[hmY=,  
        .FirstLineIndent = CentimetersToPoints(0) ZX1/6|_  
         $e--"@[Y  
        .CharacterUnitLeftIndent = 0 !J X7y%J  
        .CharacterUnitRightIndent = 0 | B*B>P#  
        .CharacterUnitFirstLineIndent = 0 EJb+yy6  
         [[6" qq  
        .LineUnitBefore = 0 m6$&yKQ-=h  
        .LineUnitAfter = 0 U=69q]  
    End With % Q &']  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False Vwh ;QJxb  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll o$+R  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot 4Y2I'~'  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese r `n|fD.  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True G e]NA]<  
    DoEvents WG,1%=M@  
     5y\35kT'  
    '参考文献 vR2);ywX  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") { Q_GJ  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" KF1iYo>p  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False 0j6b5<Gpc*  
    With ActiveDocument.Styles("QLNU参考文献").Font kD%MFT4  
        .NameFarEast = "宋体" d^!k{Qx'  
        .NameAscii = "Times New Roman" Dykh|"  
        .NameOther = "Times New Roman" z>,M@@  
        .Name = "Times New Roman" ?E|=eO"I1  
        .Size = 12 I2*(v%.-  
        .Bold = False Y&U-d{"  
        .Italic = wdUndefined r^<,f[yH  
        .Subscript = wdUndefined Kl%[fjI)  
        .Superscript = wdUndefined SG|AJ9  
        .Underline = wdUnderlineNone xE^G*<mj:  
        .UnderlineColor = wdColorAutomatic pUF JQ*  
        .Color = wdColorAutomatic C/qKa[mg  
        .Engrave = False *i:8g(  
    End With fHEIys,{  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat k3@d = k  
         k} &wy  
        .LineSpacingRule = wdLineSpaceExactly "c]9Q%  
        .LineSpacing = 16 <2&qIvHL  
        .Alignment = wdAlignParagraphLeft JehanF[  
        .WidowControl = False rr1'| k "  
        .KeepWithNext = False h-;> v.  
        .KeepTogether = False UXdc'i g  
        .PageBreakBefore = False ?Fn y_{&^H  
        .OutlineLevel = wdOutlineLevelBodyText S Z/yijf  
         . !Z5A9^  
        .LeftIndent = CentimetersToPoints(0) CsycR@[  
        .RightIndent = CentimetersToPoints(0) p5vQ.Ni*\-  
        .FirstLineIndent = CentimetersToPoints(0) a3\~AO H%  
         V6HZvuXV!  
        .CharacterUnitLeftIndent = 0 c$2kR:  
        .CharacterUnitRightIndent = 0 !&g_hmnIF  
        .CharacterUnitFirstLineIndent = -2 -Fn /=  
         7vFmB  
        .LineUnitBefore = 0 xR&:]M[Vg  
        .LineUnitAfter = 0 U:n~S   
        .SpaceBefore = 0 HJ]e%og  
        .SpaceAfter = 0 .FgeAxflP  
         hZL!%sL7  
    End With 3C%|src  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False f'(F'TE  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll 9< 07# 8c.  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS Sk!' 2y*@&  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True f:&JKB)N  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese knG:6tQ  
    DoEvents (@xC-*  
9"+MZ$  
    ' F1-"yX1B  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") vfv?Qj R  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" R8u8jG(4  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False LmqSxHs0Q  
    With ActiveDocument.Styles("QLNU论文题目").Font 'iZwM>l\  
        .NameFarEast = "黑体" 7sOAaWx  
        .NameAscii = "Arial Black" 0=6mb]VUi=  
        .NameOther = "Arial Black" ~K3Lbd| r  
        .Name = "Arial Black" wbKJ:eWgt  
        .Size = 16 gWa0x-  
        .Bold = False %%?}db1n  
        .Italic = wdUndefined 2)|=+DN;  
        .Superscript = wdUndefined Ao`e{  
        .Subscript = wdUndefined QK0]9   
        .Underline = wdUnderlineNone jLI1Ed  
        .UnderlineColor = wdColorAutomatic :.XlAQR~b  
        .Color = wdColorAutomatic WKlqm)m@  
d$bO.t5CLh  
    End With 9ck"JMla  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat __QnzEF  
        .LineSpacingRule = wdLineSpaceSingle ,e;,+w=~E  
        .Alignment = wdAlignParagraphCenter JU^Y27  
        .WidowControl = True | |pOiR5  
        .KeepWithNext = True n/Fxjf0W  
        .KeepTogether = True /4 pYhJ8S  
        .PageBreakBefore = True #iv4L  
        .NoLineNumber = False uKM` umE  
        .OutlineLevel = wdOutlineLevelBodyText  ArAe=m!u  
         I5l%X{u"N  
        .LeftIndent = CentimetersToPoints(0) &ZC{ _t  
        .RightIndent = CentimetersToPoints(0) ~( XaXu  
        .FirstLineIndent = CentimetersToPoints(0) 85Yi2+8f4  
         6O6B8  
        .CharacterUnitLeftIndent = 0 B F gxa#De  
        .CharacterUnitRightIndent = 0 qg`ae  
        .CharacterUnitFirstLineIndent = 0 sfw* _}y  
         Y 'X!T8  
        .LineUnitBefore = 1 6:B,ir _  
        .LineUnitAfter = 1 &`n:A R`  
         yGt [Qvx#  
        .BaseLineAlignment = wdBaselineAlignAuto U= f9b]Y  
    End With [|eIax xR,  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False <_|@ ~^u  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll l:e C+[_;>  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS !wpK +.D  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True *v K~t|z  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese i*mU<:t  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True E Zf|>^N  
    DoEvents pqpsa'  
     ),B/NZ/ -  
    '中文摘要 |mn} wNUN]  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") *f;$5B#^  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" \M@IKE  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False s-Yu(X2  
    With ActiveDocument.Styles("QLNU中文摘要").Font PDA9.b<q0  
        .NameFarEast = "宋体" K g#Bg##  
        .NameAscii = "Times New Roman" [u K,.G  
        .NameOther = "Times New Roman" 9(S=0<  
        .Name = "Times New Roman" 8W P"~Js!  
        .Size = 12 :M{ )&{D  
        .Bold = wdUndefined H@wjZ;R  
        .Superscript = wdUndefined xPUukmG:B  
        .Subscript = wdUndefined U9b[t  
        .Italic = wdUndefined K\xM%O?  
        .Underline = wdUnderlineNone S>(xx"Ia  
        .UnderlineColor = wdColorAutomatic SUMfebW5  
        .Color = wdColorAutomatic r^C(|Vx  
    End With M *3G  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat T?!SEblP]  
        .LineSpacingRule = wdLineSpaceExactly b' M"To@  
        .LineSpacing = 20 SWI\;:k  
        .Alignment = wdAlignParagraphLeft IO8 @u;&  
         ;0oL*d[1Z  
        .WidowControl = False 6*S /frE  
        .KeepWithNext = False &(, &mE  
        .KeepTogether = True Ji!i}UjD7!  
        .PageBreakBefore = False \ { QH^  
        .NoLineNumber = False qtZzJ>Y  
        .OutlineLevel = wdOutlineLevelBodyText Y96<c" t  
         J9 NuqV3  
        .LeftIndent = CentimetersToPoints(0) *'aJO }$  
        .RightIndent = CentimetersToPoints(0) v+Y^mV`|  
        .FirstLineIndent = CentimetersToPoints(0) :'ZR!w  
         ll$mRC  
        .CharacterUnitLeftIndent = 0 DeF`#a0E  
        .CharacterUnitRightIndent = 0 t/O^7)%  
        .CharacterUnitFirstLineIndent = 2 WeH_1 $n5  
        .LineUnitBefore = 0 WK*tXc_[b  
        .LineUnitAfter = 0 pn(i18 x  
         hkb\ GcOj  
    End With i7h^L)M  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False vW*Mf}=  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll oowofi(E  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS R-Lpgi<a"  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True 4+ d(d  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese gE@Pb  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True .Er+*j;&w  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete F1$XUos9  
    DoEvents FN!?o:|(  
     6-"tQ,AZ  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") {{P 3Z[  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" i{$P.i/&  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False s-WZ3g  
    With ActiveDocument.Styles("QLNU英文标题").Font eza"<uBr  
        .NameFarEast = "黑体" ",gVo\^  
        .NameAscii = "Arial Narrow" '\8YH+%It  
        .Name = "Arial Narrow" -th.(eAx  
        .Size = 16 ]$ s)6)kW  
        .Bold = True  0.R3(O  
        .Bold = wdUndefined Sft vN-  
        .Superscript = wdUndefined zsQkI@)sO  
        .Subscript = wdUndefined Jf7H;ZM<  
        .Italic = wdUndefined DPW^OgL;  
         |iBf6smF  
        .Underline = wdUnderlineNone WQVU 82b*  
        .UnderlineColor = wdColorAutomatic JP\jhkn  
        .StrikeThrough = False %4x0^<k~  
        .DoubleStrikeThrough = False h~ _i::vg  
    End With ~x'8T!M{  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat DUu:et&c1  
        .LineSpacingRule = wdLineSpaceSingle ~YW;'  
        .Alignment = wdAlignParagraphCenter ]=-=D9ZS3  
        .WidowControl = True h+H+>,N8`  
        .KeepWithNext = False ;rL1[qwk  
        .KeepTogether = False a6z0p%sIZ  
        .PageBreakBefore = False dT7f yn  
        .NoLineNumber = False o!+'< IQ'  
        .FirstLineIndent = CentimetersToPoints(0) ET9tn1  
        .OutlineLevel = wdOutlineLevelBodyText 3)=ix. wW  
         dgX%NKv1  
        .LeftIndent = CentimetersToPoints(0) BWYv.&=(  
        .RightIndent = CentimetersToPoints(0) 7oIHp_Zq  
        .FirstLineIndent = CentimetersToPoints(0) ) aMiT  
         0#Ug3_dfr  
        .CharacterUnitLeftIndent = 0 H*<E5^#dw  
        .CharacterUnitRightIndent = 0 qlPIxd  
        .CharacterUnitFirstLineIndent = 0 ERK{smL  
         r>bgCQ#-n  
        .LineUnitBefore = 1 S m=ln)G=  
        .LineUnitAfter = 1 5D7 L)>  
         0~$9z+S  
    End With AG vhSd7  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False [Nm?qY  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll |;Jt * _  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS t d\g k  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True Q/Z>w+zh#  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese xE--)=<$  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True b+whZtNk7  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete AtHkz|sl  
    DoEvents .0U[n t6  
,Q Ge=Exn  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") 5X];?(VTsb  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" 4NaT@68p  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False Gy ["_;+xU  
    With ActiveDocument.Styles("QLNU英文摘要").Font 1nvT={'R  
        .NameFarEast = "宋体" AdDR<IW  
        .NameAscii = "Arial" Ei]Sks V>*  
        .NameOther = "Arial" +[n#{;]<  
        .Name = "Arial" hTv*4J&@|  
        .Size = 12 Xqm ?@JN  
        .Bold = wdUndefined `/R. 5;$|  
        .Italic = wdUndefined rf+}J_  
        .Superscript = wdUndefined kP('X/  
        .Subscript = wdUndefined w0$+v/  
    End With 4PS|  
     .e3@fq  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat g6DIWMoO=h  
         q*4@d)_&  
        .LineSpacingRule = wdLineSpaceExactly snkMxc6c[  
        .LineSpacing = 20 ckP AH E@  
          n9&fH  
        .Alignment = wdAlignParagraphJustify SbL7e#!!  
         yG~V vpv  
        .WidowControl = False &*O'qOO<2  
        .KeepWithNext = False Txe*$T,(  
        .KeepTogether = False 0VJHE~Bgi  
        .PageBreakBefore = False kl1Q:  
        .NoLineNumber = False 94 6r#`q  
         xgNV0;g,  
        .OutlineLevel = wdOutlineLevelBodyText jYAm}_?No  
         #;8VBbc\^  
        .LeftIndent = CentimetersToPoints(0) G){+.X4g3  
        .RightIndent = CentimetersToPoints(0) INk|NEX  
        .FirstLineIndent = CentimetersToPoints(0) d<=!*#q;o  
         M{)eA<6  
        .CharacterUnitLeftIndent = 0 h'G  
        .CharacterUnitRightIndent = 0 ircL/:  
        .CharacterUnitFirstLineIndent = 2 _f>)G 3p  
         IR2Qc6+{  
        .LineUnitBefore = 0 Xs$a^zZ  
        .LineUnitAfter = 1 TZ n2, N  
         #!TlalV  
    End With L)7{_s  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False $1s>efP-  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll oIj/V|ByK  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS GYJ j$'  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False PW"?* ~&  
    DoEvents YT[=o}jS  
ia /#`#.  
    Options.Pagination = True tJ tp1$h  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." G;/> N'#  
    DoEvents "BpDlTYM  
    ActiveDocument.Repaginate HtE^7i*_  
5HbJE'  
End Sub ? AxB0d9z  
DrBkR` a?  
zJ1M$ U  
杺栫杣杊椌柮栬，䒴蓉艿芖。
回复 引用
举报顶端
伍胥之 离线
级别: 军区司令员

显示用户信息 
101楼  发表于: 2024-12-28   
只看该作者 ┊  小 中 大
姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 Qd ?S~3XT  
vj#m#1\ f  
引用
引用第20楼newport93于06-14-2010 13:47发表的  : \j we  
1T,Bd!g  
老五，I 服了U。 K6~')9 Q  
l<"B[  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 #=m:>Q?%z  
[>j.x2=  
杺栫杣杊椌柮栬，䒴蓉艿芖。
回复 引用
举报顶端
上一主题下一主题
«3456»Pages: 6/6
 Bay Area Chinese--灣區華人 » 乱讲
描述
快速回复

验证问题:
3 * 6 = ? 正确答案:18
按"Ctrl+Enter"直接提交