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

显示用户信息 
100楼  发表于: 2021-07-18   
只看该作者 ┊  小 中 大
Dim bContinue As Boolean XG]ltSOy  
!a"RHg:HO  
Dim regEX As New RegExp Bnju_)U5)  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 5l"/lGw  
[42vO  
Dim LastTitle0String As String, LastTitle0No As Long 6%/@b`vZ  
Dim LastTitle1String As String, LastTitle1No As Long @D<q=:k  
Dim LastTitle2String As String, LastTitle2No As Long kPt9(E]  
Dim LastTitle3String As String, LastTitle3No As Long Q{hXP*5  
Dim LastTitle4String As String, LastTitle4No As Long s68&AB   
Dim LastTitle5String As String, LastTitle5No As Long Z x9oj  
Dim LastTabelString As String, LastTableNo As Long =|)W#x9=  
Dim LastFigureString As String, LastFigureNo As Long L0\97AF  
~NYy@l   
Dim strSeperator As String DA)mkp  
Jx# r  
Sub ConvertWidth(fTEXT As String, rText As String) u)]]9G _8  
        Selection.Find.ClearFormatting [X +E  
        Selection.Find.Replacement.ClearFormatting 9[<,49  
        Selection.Find.Wrap = wdFindContinue RcQo1  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText 9C?;'  
        DoEvents 5^"T `,${  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True iGG;  
End Sub II !Nr{A  
CRK%%;=>  
Sub ClearDomain() jS LNQ  
        With Selection.Find YzT mXwuA5  
            .ClearFormatting %y( oY  
            .Replacement.ClearFormatting 9G7lPK  
            .Wrap = wdFindContinue H-&Z+4 +Xs  
            Me.txtStatus.Text = "清除所有域代码" Gw3H1:yo  
            DoEvents {0J TN%e  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False qd@x#"qT  
        End With )sWC5\  
End Sub ?T+Uu  
0/".2(\}T  
Private Sub cmdCheck_Click() E^uWlUb{  
    bContinue = True 6$"gm$3O]  
    Dim NoSeries1(1 To 16) As String Ood8Qty(  
    Dim NoSeries2(1 To 16) As String +}IOTw" O`  
    Dim NoSeries5(1 To 16) As String ?LP&VU1  
    Dim NoSeriesRM(1 To 16) As String *82f {t]  
    Dim paraTotal As Long, ParaText As String 5r;M61  
    Dim ttString As String, ttNo As String "c[ D 0{\{  
     p~ `f.q$'  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long k)VoDxMKK  
DOi\DJV!  
    Me.txtStatus.Visible = True e0i&?m  
    Me.lbParaType.Visible = True J&%d(EJM  
    Me.cmdCheck.Enabled = False t@K N+ C  
     u="VJ3  
     K OZHz`1!  
     &X 0qH8W  
     y/!h.[  
    Dim ParaType As String, rText As String W'f{u&<  
     o.qeF4\d6  
    Selection.WholeStory C]22 [v4  
    Selection.NoProofing = True Z:Hk'|q}I  
      2=X\G~a  
    tm1 = Now SDY!!.  
     YQU #aOl  
        ActiveWindow.View.Type = wdNormalView ~-r*2bR  
     SiN22k+  
    NoSeries1(1) = "一" d,r%LjNI  
    NoSeries1(2) = "二" /RLeD  
    NoSeries1(3) = "三" 8mM^ wT  
    NoSeries1(4) = "四" P'^#I[G'  
    NoSeries1(5) = "五" J(CqT/Au-  
    NoSeries1(6) = "六" q&.SB`  
    NoSeries1(7) = "七" !{@!:m3w  
    NoSeries1(8) = "八" 3GkVMYI  
    NoSeries1(9) = "九" Im9^mVe  
    NoSeries1(10) = "十" Za+26#g  
    NoSeries1(11) = "十一" RS'%;B-)  
    NoSeries1(12) = "十二" F8(6P1}E  
    NoSeries1(13) = "十三" ;Drt4fOxX  
    NoSeries1(14) = "十四" 9~8UG (  
    NoSeries1(15) = "十五" ZJL[#}*  
    NoSeries1(16) = "十六" l56D?E8  
     ifA{E}fRZP  
    NoSeries2(1) = "㈠" (A.%q1h  
    NoSeries2(2) = "㈡" N%1T>cp0  
    NoSeries2(3) = "㈢" jl# )CEx  
    NoSeries2(4) = "㈣" ~HbZRDcJc  
    NoSeries2(5) = "㈤" %xE9vN;  
    NoSeries2(6) = "㈥" AL #w  
    NoSeries2(7) = "㈦" :Oz! M&Ov  
    NoSeries2(8) = "㈧" 8$ SA"c)  
    NoSeries2(9) = "㈨" 9v_B$F$_T  
    NoSeries2(10) = "㈩" *,w9#?2x  
     iV8j(HV  
    NoSeries5(1) = "①" /IDfGAE  
    NoSeries5(1) = "②" 7<W7pXDp  
    NoSeries5(3) = "③" l1X& Nw1W  
    NoSeries5(4) = "④" joa|5v'  
    NoSeries5(5) = "⑤" Etk`>,]Y>y  
    NoSeries5(6) = "⑥" - V Rby  
    NoSeries5(7) = "⑦" ]YF[W`2h  
    NoSeries5(8) = "⑧" 1b)^5U ;  
    NoSeries5(9) = "⑨" %M+ID['K9/  
    NoSeries5(10) = "⑩" Y<X,(\iEHP  
     '%&i#Eb  
     }nrl2yp:%  
    NoSeriesRM(1) = "I" 9Ra_[1  
    NoSeriesRM(2) = "II" V #!ftu#c?  
    NoSeriesRM(3) = "III" mT8")J|2  
    NoSeriesRM(4) = "IV"  16q"A$  
    NoSeriesRM(5) = "V" Vj^<V|=  
    NoSeriesRM(6) = "VI" $7q'Be@{  
    NoSeriesRM(7) = "VII" ,U_p6 TV5  
    NoSeriesRM(8) = "VIII" ") Xy%C`J  
    NoSeriesRM(9) = "IX" K 2J DG.<  
    NoSeriesRM(10) = "X" RIXUzKLO  
    NoSeriesRM(11) = "XI" mz\d>0F U.  
    NoSeriesRM(12) = "XII" KsZXdM/  
    NoSeriesRM(13) = "XIII" k@qn' Zi  
    NoSeriesRM(14) = "XIV" N :E7rtT,M  
    NoSeriesRM(15) = "XV" Go>_4)jy  
    NoSeriesRM(16) = "XVI" w!{g^*R+!  
     KNtsz[#b  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) !b<c*J?f  
     b[<Q_7~2  
    If i = vbNo Then psb$rbu7[  
        Exit Sub ZU%7m_zO  
    End If ]d]tQPEU  
     5Qb%g )jZ  
    If Me.chkSuper.Value Then 86J7%;^Xa  
        Me.txtStatus.Text = "检查修改所有的上标格式" 4zyy   
     `& 2AN%Xz  
        CheckSuperScript H]a;<V9[  
         ]-O/{FIv  
    End If I4%&/~!  
     O9>& E;`5  
    If Me.chkStyle.Value Then wy3{>A Z(  
        Me.txtStatus.Text = "设置样式，请稍候...." S:qML]RO  
        DoEvents )M5:aSRz  
        CeateOrModifyStyle \TM%,RC3K  
    End If Xz`?b4i  
     V!=1 !"}OG  
     ~2Jvb[IM  
     @}&o(q1M0  
    ClearDomain rSU%!E+|<  
         y:Ycn+X.  
     a%2r]:?^?  
     KD]8n]c  
    If Me.chkLIST.Value Then Fwn4c4-%  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" Yc+0OBH[  
     Jq1 Zb  
        ConvertListToOrdinary SOo/~ giz|  
    End If V9 <!pMj  
     k8E'wN  
     f]F]wg\_f  
    Dim pType As String, trimpTEXT As String 31b9pi}nf  
    If Me.chkNum.Value = True Then <5*cc8  
        Me.txtStatus.Text = "转换全角数字形式为半角" n,eO6X 4  
        ConvertWidth "１", "1" g`)2I+L7  
        DoEvents ]kC/b^~+m  
        ConvertWidth "２", "2" q=8I0E&q  
        DoEvents 't3/< h<  
        ConvertWidth "３", "3" \D8d!gr  
        DoEvents IZ /Md@C  
        ConvertWidth "４", "4" Yn ZV.&4{  
        DoEvents $N[-ks2 {@  
        ConvertWidth "５", "5" OA#AiQUR  
        DoEvents RH+3x7 l  
        ConvertWidth "６", "6" 3RpDIl`0  
        DoEvents = E'\  
        ConvertWidth "７", "7" fDo )~t*~  
        DoEvents U[5  
        ConvertWidth "８", "8" $0rSb0[  
        DoEvents ;hsgi|Cy-  
        ConvertWidth "９", "9" a@_.uD  
        DoEvents   :~JgB  
        ConvertWidth "０", "0" |1`|E- S=  
        DoEvents 3^kZydZ CN  
        ConvertWidth "ａ", "a" 1X\dH<B}  
        DoEvents 8E`rs)A  
        ConvertWidth "ｂ", "b" |n-NK&Y(o  
        DoEvents Cg NfqT0  
        ConvertWidth "ｃ", "c" kb>:M.  
        DoEvents S[!-M\b  
        ConvertWidth "ｄ", "d" !$ikH,Bh  
        DoEvents 6AgevyVG  
        ConvertWidth "ｅ", "e" :5? g<@  
        DoEvents PE1F3u>O  
        ConvertWidth "ｆ", "f" f`@$ saFD  
        DoEvents jdxwS  
        ConvertWidth "ｇ", "g" >/;V_(  
        DoEvents BR5r K  
        ConvertWidth "ｈ", "h" 2[i:bksjW  
        DoEvents 9kj71Jp&}  
        ConvertWidth "ｉ", "i" :4|W;Lkd!  
        DoEvents =>".  
        ConvertWidth "ｊ", "j" v*}r<} j  
        DoEvents d)m +Hc.  
        ConvertWidth "ｋ", "k" Nq>74q]}n8  
        DoEvents pQc5'*F Kd  
        ConvertWidth "ｌ", "l" 4}B9y3W:v  
        DoEvents ^S*~<0NQ'  
        ConvertWidth "ｍ", "m" OF^v;4u  
        DoEvents (JS1}T  
        ConvertWidth "ｎ", "n" L1#z'<IO  
        ConvertWidth "ｏ", "o" WlnmW(uahW  
        ConvertWidth "ｐ", "p" :| J' HCth  
        ConvertWidth "ｑ", "q" |}paa  
        ConvertWidth "ｒ", "r" H:x=v4NgsU  
        ConvertWidth "ｓ", "s" 9W$ FX   
        ConvertWidth "ｔ", "t" &CW,qY,sh  
        ConvertWidth "ｕ", "u" 9j458Yd4*  
        ConvertWidth "ｖ", "v" =\7o@ 38  
        ConvertWidth "ｗ", "w" F3/aq+<P[  
        ConvertWidth "ｘ", "x" >jU. R;H5  
        ConvertWidth "ｙ", "y" ]Bw2>6W  
        ConvertWidth "ｚ", "z" -Y'Qa/:7  
        ConvertWidth "Ａ", "A" ks=j v:  
        ConvertWidth "Ｂ", "B" `9SRi y  
        ConvertWidth "Ｃ", "C" +rS}f N$L.  
        ConvertWidth "Ｄ", "D" xcfEL_'o  
        ConvertWidth "Ｅ", "E" !%n3_tZC  
        ConvertWidth "Ｆ", "F" k mjSSh/t  
        ConvertWidth "Ｇ", "G" "#x<>a )O\  
        ConvertWidth "Ｈ", "H" [>xwwm  
        ConvertWidth "Ｉ", "I" @K`2y'#b  
        ConvertWidth "Ｊ", "J" ;RNU`I p  
        ConvertWidth "Ｋ", "K" 3A2X1V"  
        ConvertWidth "Ｌ", "L" 9(k5Irv"'h  
        ConvertWidth "Ｍ", "M" =}5;rK  
        ConvertWidth "Ｎ", "N" X $LX;Lv  
        ConvertWidth "Ｏ", "O" XiE  
        ConvertWidth "Ｐ", "P" 8:c[_3w  
        ConvertWidth "Ｑ", "Q" <^+~? KDZM  
        ConvertWidth "Ｒ", "R"  ~0 <?^  
        ConvertWidth "Ｓ", "S" 0?525^   
        ConvertWidth "Ｔ", "T" j!9p#JK#u  
        ConvertWidth "Ｕ", "U" } y@pAeS,  
        ConvertWidth "Ｖ", "V" E[bJ5o**#  
        ConvertWidth "Ｗ", "W" ]c,ttS _  
        ConvertWidth "Ｘ", "X" \nM$qr'`B  
        ConvertWidth "Ｙ", "Y" L 1=HD  
        ConvertWidth "Ｚ", "Z" NDLk+n  
        ConvertWidth "^l", "^p" C*kGB(H7  
        ConvertWidth "（", "(" ,a&N1G.  
        ConvertWidth "）", ")" Iy8>9m'5  
     zSMN k AM  
    End If Rk8>Ak(/  
!P7&{I,e  
    With ActiveDocument 26|2r  
        Dim tbl As Table ur^)bp<n  
        For Each tbl In .Tables Wi_5.=  
            tbl.Rows.Alignment = wdAlignRowCenter cA_77#<8  
            tbl.Range.Font.NameFarEast = "楷体" w=>~pYASH  
            tbl.Range.Font.NameAscii = "Times New Roman" 5I9~OJ>  
            tbl.Range.Font.Size = 10.5 /Y ("Q#Ueq  
        Next v5U\E`)s  
        Set tbl = Nothing ?2l#=t?PP  
    End With +$M%"=tk  
     *Q= ER  
     0,*clvH\;  
    With ActiveDocument D. !m*oq  
         T% J;~|  
        For i = 1 To .TablesOfContents.Count kxU <?0  
            .TablesOfContents(i).Delete i_?";5B"  
        Next -miWXEe@l  
         7(B|NYq  
         fNOsB^Y  
         s"b()JP  
        paraTotal = .Paragraphs.Count /7#KkMg  
        paraCounter = 1 .ky((  
         1qXqQA  
        LastTitle0No = 0 [*ylC,w  
        LastTitle1No = 0 ~[bS+ ]d!  
        LastTitle2No = 0 ^Nl)ocHv!  
        LastTitle3No = 0  ?CKINN  
        LastTitle4No = 0 BG!;9Z{u  
        LastTableNo = 0 7g1" s1~or  
        LastFigureNo = 0 42mi 7%f  
         vKYdYa\  
        Dim Sec As Long ;=piJ%k  
         \ } ,="  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) "X~ayn'@w,  
        If Sec = 0 Then BU-+L}-48  
            Exit Sub .R ocENO0  
        End If ZGrjb22M  
         EMME?OW$  
        k = 0 dOPA0Ja  
        Do While (paraCounter < paraTotal) And bContinue sr%tEKba)  
            k = k + 1 X6s6fu;  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then p#HbN#^Hy  
                Exit Do +-~hl  
            End If qa 'YZE`  
            paraCounter = paraCounter + 1 z,/0e@B >  
            If k Mod 20 = 0 Then 6B 4Sd  
                Me.lbCounter.Caption = paraCounter 5^lroC-(x  
                DoEvents ' vKB]/e;  
            End If F;p>bw  
        Loop ' O1X+  
         hXr`S4aJ  
         K r $R"  
        Do While (paraCounter < paraTotal) And bContinue `k~.>#  
             ~_v?M%5i  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) ~ qe9U 0  
            ShapeHeight = 0 }Th":sin},  
            ShapeWidth = 0 | _/D-m*  
           Zp~2W JQ  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth 2Eg* Yb 1  
             9 ! [oJ3  
            Select Case ParaType sdP% Y<eAT  
                Case "【】表格内容" nHxos` Qx  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" _[}r2,e  
                Case "章" /MHqt=jP6  
                    LastTitle0No = LastTitle0No + 1 O<nJbsl_w  
                    '新一章开始，复位其下属标题编号 6||zwwk'.  
                    LastTitle1No = 0 j.O7-t%C  
                    LastTitle2No = 0 w5uOi}T\  
                    LastTitle3No = 0 i-oi?x<u&(  
                    LastTitle4No = 0 yyZ}qnbx]  
                      |/K+tH  
                    k = Val(ttNo) .`4N#EjP  
                    If k = 0 Then '非数字编号章节 oK1"8k|Z  
                        If ttNo <> NoSeries1(LastTitle0No) Then 1{\{'EP{  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString WbZ{) i  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText /5M@>A^?'  
                        End If $r%m<Uc;}O  
                    Else Z'c{4b`N  
                        If Val(ttNo) <> LastTitle0No Then H'68K8i0  
                            rText = "第" & LastTitle0No & ttString Zj;2>  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText ud xLHs  
                        End If x  8lgDO  
                         *xB9~:  
                    End If 0&$+ CWSM  
                     g`~c|bx  
                    '章段落设置 ]Cd 1&  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 Qp8. D4^@3  
                    .Paragraphs(paraCounter).Style = "QLNU章节" BEM_y:#  
                    .Paragraphs(paraCounter).Range.Select {6Tw+/`P  
                    Selection.EndKey unit:=wdLine ZAe>MNtW  
                    tc = Replace(rText, vbCr, "") P7r?rbO"  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False Pk444_"=  
                Case "一级标题" seWYY $$  
                    LastTitle1No = LastTitle1No + 1 ^/`:o}7K7  
                    '新一级标题开始，复位其下属标题编号 q]Gym 7o  
                    LastTitle2No = 0 x]umh{H~  
                    LastTitle3No = 0 Iw(2D(se  
                    LastTitle4No = 0 Rz% Px:M  
                     ~J1;Z0}#  
                    If ttNo <> NoSeries1(LastTitle1No) Then IE*GF27n  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString 9hG)9X4  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText ]UyIp`nV;  
                    End If 5Gm,lNQAv  
                   gzqx{ ]  
                     V&4)B &W  
                    '一级标题段落设置  格式：一、标题内容 4Fhiac  
                    .Paragraphs(paraCounter).Range.Text = rText r2?-QvQ  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" S^|Uzc  
                    .Paragraphs(paraCounter).Range.Select QW :-q(s  
                    Selection.EndKey unit:=wdLine 5P_%Vp`B2  
                    tc = Replace(rText, vbCr, "") 3f9J! B`n  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False N\b%+vR  
                Case "二级标题" xzF@v>2S+  
                    LastTitle2No = LastTitle2No + 1 \ F=w~ $)  
                    '新二级标题开始，复位其下属标题编号 ypE cjVP D  
                    LastTitle3No = 0 UKyOkuY:w  
                    LastTitle4No = 0 F*QZVg+<*X  
                     (9q61z A  
                    If ttNo <> NoSeries1(LastTitle2No) Then Hb5^+.xur  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString -DDH)VO  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText W,Q"?(+]B  
                    End If 9u<4Q_I`  
                     4~-"k{Xt  
                    '二级标题段落设置 格式：(一)、标题内容 WHxq -&=  
                    .Paragraphs(paraCounter).Range.Text = rText v{4K$o  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" Ro :/J  
                     kOR5'rh  
                    .Paragraphs(paraCounter).Range.Select Sd?:+\bS;  
                    Selection.EndKey unit:=wdLine H?tonG.^(  
                    tc = Replace(rText, vbCr, "") *k'D%}N:  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False wWm 1G)  
                 8m Tjf Br  
                Case "三级标题" vU Bk oC2Q  
                    LastTitle3No = LastTitle3No + 1 Th,15H DA  
                    '新三级标题开始，复位其下属标题编号 :Bc)1^ I  
                    LastTitle4No = 0 3XY;g{`=q  
                     e|Iylv[3  
                    If Val(ttNo) <> LastTitle3No Then g+8{{o=  
                            rText = LastTitle3No & ". " & ttString )qs>Z?7  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText hKv3;jcd  
                         w^N xR,  
                    End If VyK]:n<5Q  
                    '三级标题段落设置 格式：1. 标题内容 ^G'8!!ys  
                    .Paragraphs(paraCounter).Range.Text = rText J<dr x_gc  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" ~6!{\un   
                    .Paragraphs(paraCounter).Range.Select [B3qZ"  
                    Selection.EndKey unit:=wdLine S8;Dk@rr(y  
                    tc = Replace(rText, vbCr, "") P6w!r>?6N  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False HrQB zS  
                Case "四级标题" H <1g  
                    LastTitle4No = LastTitle4No + 1 QUd`({/@:  
                     c/.U<  
                    If Val(ttNo) <> LastTitle4No Then 3Gi#WV4$  
                            rText = "(" & LastTitle4No & "). " & ttString @F)51$Ld  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText _ +Ww1 f  
                     %!$ua_8  
                    End If g[fCvWm#d  
                    '四级标题段落设置 格式：(1). 标题内容 [O*5\&6  
                    .Paragraphs(paraCounter).Range.Text = rText J =o,: 3"  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" c;DWSgIw  
                    .Paragraphs(paraCounter).Range.Select IT& U%hw  
                    Selection.EndKey unit:=wdLine xsS/)R?  
                    tc = Replace(rText, vbCr, "") m=i8o `  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False @$'k1f(u>  
                 $ hwJjSZ0  
                Case "表格标题" [FLRrTcE  
                    LastTableNo = LastTableNo + 1 Dg~r%F  
                     =fa!"$J3  
                    If ttNo <> CStr(LastTableNo) Then J$6tCFD  
                            rText = "表" & LastTableNo & ". " & ttString %lPAq  
                            ErrMsg.AddItem "表格编号错误：" & ParaText *qKPZb~  
                   I$sJ8\|gw'  
                    End If HHu|X`tc  
                     yQb^]|XG  
                    '表格名称段落设置 格式：表1. 表格名称 "3CQ0  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" {>[,i`)  
                    xe = Replace(rText, vbCr, "") kQ4-W9u  
                    .Paragraphs(paraCounter).Range.Select nTO,d$!Kp  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 [eL?O;@BD  
                    Selection.Range.Text = xe TS+itU62  
                    Selection.EndKey oLVy?M%{P  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False Q#NXJvI  
                 Z 4NNrA#  
                Case "表格首行" JmB7tRM8  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" 6wH]W+A  
                Case "图片标题" n%PHHu  
                    LastFigureNo = LastFigureNo + 1 FC<aX[~&3  
                     A-<\?13uW  
                    If ttNo <> CStr(LastFigureNo) Then :3WrRT,'L  
                            rText = "图" & LastFigureNo & ". " & ttString v-2_#  
                            ErrMsg.AddItem "表格编号错误：" & ParaText 5Z{i't0CQ  
                   .Ymoh>JRL  
                    End If ],ioY *4G  
                    '图片名称段落设置 格式：图1. 图名称 5D0O.v  
                    .Paragraphs(paraCounter).Range.Text = rText V 9Bi2\s*  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" {8D`A;KD  
                    .Paragraphs(paraCounter).Range.Select 2Jo'!|]  
                    Selection.EndKey unit:=wdLine HJ[@;F|aU  
                    xe = Replace(rText, vbCr, "") WP-?C<Iw  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False dr3#?%  
                Case "正文" BeZr5I"`}  
                     '正文名称段落设置 :lz@G 4 =C  
                    .Paragraphs(paraCounter).Style = "QLNU正文" <i34;`)b  
               Case "文献条目" '5zolp%St  
                    With .Paragraphs(paraCounter) a$!|)+  
                        '.Range.Select 7 J$  
                        'Selection.ClearFormatting `hYj0:*)S$  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” bqpy@WiI S  
                        .Style = "QLNU参考文献" 9:zW$Gt&  
                    End With 8Z{&b,Y4L  
               Case "图表注解" ("UcjB^62  
                    With .Paragraphs(paraCounter) ` MIZqHM @  
                        .Range.Font.NameFarEast = "楷体" [p i!+k  
                        .Range.Font.NameAscii = "Times New Roman" R,[ dEP  
                        .Range.Font.Size = 9 '小5号字 A&_H%]{<:  
                         ''P.~~ezr5  
                        .Alignment = wdAlignParagraphCenter o= VzVg  
                        .LeftIndent = 0 In)8AK(Hw  
                        .RightIndent = 0 dWV.5cViP  
                        .FirstLineIndent = 0 En$-,8\%  
                        .LineSpacing = 12 dc UaZfON  
                        .LineSpacingRule = wdLineSpaceExactly ; V)pXLE  
                        .LineUnitAfter = 0 _r+2o-ZR  
                        .LineUnitBefore = 0 Yt79W  
                        .OutlineLevel = wdOutlineLevelBodyText n'a=@/  
                        .PageBreakBefore = False }$5S@,  
                        .RightIndent = 0 /bm$G"%d  
                        .WordWrap = True Ft)7Wx" S  
                        .LineUnitAfter = 0.5 .s-X %%e\  
                         MHo(j%I1E  
                    End With Gs]m; "o|  
                Case Else s0,c4y  
                    '不作处理 d*80eB9P  
            End Select M.|O+K z  
             dH"wYMNL  
            '含有inlineshape的段落处理 >Qg`Us#y  
            If ShapeHeight > 30 Then mX))*e4k  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 Hq'mv_}qG  
            End If 3u+A/  
             ximW!y7  
            If (ShapeWidth + ShapeHeight) > 150 Then %>^CD_[eO  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" iev02 8M  
            End If u*:B 9E  
             5P~{*of  
            '段落计数器递  GZ.Xx  
            paraCounter = paraCounter + 1 Htd-E^/  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter ~/LO @  
            Me.txtStatus.Text = ParaText kBZnR$Cl  
            DoEvents Gkci_A*  
        Loop 5.!iVyN  
    End With 0 LX;Vvo  
     UMsJg7~  
    msg = "" m'D_zb9+  
     "&(.Z(  
    For i = 0 To Me.ErrMsg.ListCount - 1 Dizc#!IGU  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) n$B SO  
    Next BUR96YN.  
     5e tbJk  
     %D|p7&  
     Wt=QCu tt  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg uCGJe1!Ai>  
    Me.cmdCheck.Enabled = True O ;,BzA-n  
    Me.txtStatus.Visible = True \FOoIY!.x  
    Me.lbParaType.Visible = False T:$a x  
     Sx{vZS3  
    bContinue = False l1* qDzb  
End Sub 9UlR fl  
L{_Q%!h3]  
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) SSH))zJ  
    Dim pTEXT As String 4^h_n1 A  
     Tjba @^T  
    pTEXT = ChKRange.Text Q?df5{6  
     V<&x+? >S  
    ParaType = "其它" Zd$a}~4~  
    TitleString = pTEXT Ce 3{KGBw  
    TitleNo = "N/A"  A.nU8   
     F)dJws7-  
    shpCounter = ChKRange.InlineShapes.Count ,z A 9*  
    If shpCounter <> 0 Then o%dKi]  
        MaxShpHeight = 0: TotalShpWidth = 0 r}>8FE9S'H  
        For i = 1 To shpCounter :l~^un|<2Y  
            k = ChKRange.InlineShapes(i).Height v eP)ElX  
            l = ChKRange.InlineShapes(i).Width S8-3Nv'  
            If k > MaxShpHeight Then Ni]V)wGE;  
                MaxShpHeight = k ;tK%Q~To  
            End If r(=  
            TotalShpWidth = TotalShpWidth + l F*" "n  
        Next 98 dl -?  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then t){})nZ/4  
            Exit Sub +u+|9@  
        End If x'dU[f(  
    End If m$b5Vqq  
     i\E}!Rwl+  
    '空行 R+va go:  
    If Len(pTEXT) <= 2 Then z0=(l?)#  
        Exit Sub '%U'%')  
    End If N]gJ( g  
     h/` ]=kCl  
         MDkcG"O  
    '是否为表格中的文字 }6zo1"  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then o@SL0H-6|  
        ParaType = "表格内容" J^t-pU  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) Q+L;k R  
        If k = 1 Then -E, d)O`;$  
            ParaType = "表格首行" F91uuSSL  
        End If PvW {g5)S  
        Exit Sub SMX70T!'9  
    End If s|*0cK!K^  
     (bpO>4(S  
    '例外情况：脚注 9 t)A_}O  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then G i 1Jl"  
        ParaType = "脚注"  GQ=Zp3[  
        Exit Sub OU2.d7  
    End If iveJh2!#<  
     ~ <[$.8*  
    '例外情况：尾注 b EB3 #uc  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then -!d'!; ]  
        ParaType = "尾注" 1+wmR4o  
        Exit Sub S0-f_,(  
    End If 7.V'T=@x3)  
     @)[Q6w`x  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then 2% ],0,o  
        ParaType = "页眉页脚" }J=>nL'B  
        Exit Sub 9g %1^$R  
    End If Ht >5R  
     7 YS'Tf  
     -*`7Q'}%  
    With regEX fC6zDTis8A  
        .Global = True v TE3-v[i  
         SP}!v5.  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$"  AT@m_d  
        If regEX.Test(pTEXT) Then ^y" #2Ov  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") }_,\yC9F  
            TitleString = regEX.Replace(pTEXT, "$3") m/ D ~D~  
            TitleNo = regEX.Replace(pTEXT, "$1") yjcZTvjJ  
            ParaType = "章" [4p~iGC  
            Exit Sub S5o\joc  
        End If T!![7Rs  
         eBUexxBY  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" 1Q[I$=-F  
        If regEX.Test(pTEXT) Then )Z4ilpU,  
            ParaType = "一级标题" B49: R >  
            regEX.Execute (pTEXT) >9-$E?Mt  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") QT\||0V~p  
            TitleString = regEX.Replace(pTEXT, "$3") 4oxAC; L  
            TitleNo = regEX.Replace(pTEXT, "$1") 'mwgHo<u  
            Exit Sub BQ8vg8e]B  
        End If S*"uXTS  
         "==fWf  
        '全角或半角括号中的数字 HpbSf1VvAf  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" dJYsn+  
        If regEX.Test(pTEXT) Then 0v7#vZ  
            ParaType = "二级标题" l', +l{\Z  
            regEX.Execute (pTEXT) #bI ,;]T  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") :#_Ne?\a@  
            TitleString = regEX.Replace(pTEXT, "$5") ^,-2";2Xh  
            TitleNo = regEX.Replace(pTEXT, "$2") NUSb7<s,&Y  
            Exit Sub +pcGxje\  
        End If S($8_u$U  
         V\ 1pn7~V  
        '阿拉伯数字  1. 2. AvP$>Alc  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" <Z b~tYp  
        If regEX.Test(pTEXT) Then =@e3I)D#?i  
            ParaType = "三级标题" CGyw '0S  
            regEX.Execute (pTEXT) /x2-$a:<  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 R1sWhB99  
            TitleString = regEX.Replace(pTEXT, "$3") YK xkO  
            TitleNo = regEX.Replace(pTEXT, "$1") )P13AfK  
            Exit Sub !TNp|U!  
        End If ,\fp .K<  
         \kN?7b^  
        '全角或半角括号中的阿拉伯数字 q4y P\B  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" \zCw&#D0Z  
        If regEX.Test(pTEXT) Then "2l$}G  
            ParaType = "四级标题" bCa%$  
            regEX.Execute (pTEXT) V{A_\  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") P8& BtA  
            TitleString = regEX.Replace(pTEXT, "$5") 3?%?J^/a  
            TitleNo = regEX.Replace(pTEXT, "$2") gc<w nm|  
            Exit Sub uU$YN-  
        End If <8J_[ S  
         /RG>n  
        '表格名称 HB|R1<t;HB  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" N.~zQVO#R  
        If regEX.Test(pTEXT) Then y$Nqw9  
            ParaType = "表格标题" |B{@noGX  
            regEX.Execute (pTEXT) #BLx +mLq  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) qdW"g$fW  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) ww? AGd  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) \&!qw[;O  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 U# +$N3%  
            Exit Sub .ei5+?V<i  
        End If H18.)yHX  
         u; ]4 ydp  
        '图片名称 $O'IbA  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" "O}u2B b  
        If regEX.Test(pTEXT) Then 0|i3#G_~  
            ParaType = "图片标题" Z]~) ->=}  
            regEX.Execute (pTEXT) [SKN}:D  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") 4D'AAr57  
            TitleString = regEX.Replace(pTEXT, "$3") 5>Kk>[|.  
            TitleNo = regEX.Replace(pTEXT, "$1") Ji#eA[  
            Exit Sub Lg%3M8-W~  
        End If &':Ecmo~`  
         PTS dW~3  
        '参考文献 9Sey&x  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 -v@LJCK7I  
        If regEX.Test(pTEXT) Then Uf}u`"$F  
            ParaType = "文献条目" ,1K`w:uhS  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") m%ec=%L9  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") &~Hx!]uc  
            Exit Sub W(#u^,$e[  
        End If +nAbcBJAl  
         Y5fz_ [("  
        prfx = Left(pTEXT, 2) ^-^ii 3G`  
        If prfx = "注：" Or prfx = "注:" Then i!<1&{  
            ParaType = "图表注解" MlKSjKl" !  
            Exit Sub te[#FF3{  
        End If -P6Z[ V%  
         #ET y#jKL  
         n^lr 7(!6  
        ParaType = "正文" J@}PBHK+  
         ,K W IuCU;  
    End With urbSprdF  
End Sub c0ue[tb  
7 :C_{\(  
Sub ConvertListToOrdinary() <5 )F9.$  
    Dim st As Paragraph d ug^oc1  
    With ActiveDocument -I0J-~#  
        For i = .Paragraphs.Count To 1 Step -1 drwD3jx0xv  
            Set st = .Paragraphs(i) ]&;K:#J  
            lst = st.Range.ListFormat.ListString Ndz'^c  
            If lst <> "" Then F tS"vJ\  
                st.Range.ListFormat.RemoveNumbers N^Hj%5  
                st.Range.InsertBefore lst & " " 5:yRFzhqd  
            End If ''Y'ZsQ;  
        Next 0h-'TJg*sk  
    End With v ^R:XdH  
    Set st = Nothing L*#W?WMM v  
End Sub Q "vhl2RX  
Ga]\~31NE  
Private Sub UserForm_Activate() 8a8CY,n{  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" _ ?o>i/  
    Me.lbTotal.Font.Bold = True koojF|H>  
    Me.txtStatus.Visible = False M!Ua/g=u  
    Me.cmdCheck.Enabled = True 4JO[yN  
le|Rhs %Z%  
End Sub 1c\KRK4  
g\2/Ia+/@  
C~-.zQ $  
Sub CheckSuperScript() agGgj>DDd  
    Selection.Find.ClearFormatting `s8o2"12  
    Selection.Find.Replacement.ClearFormatting I7 = 4%)A  
    With Selection.Find ,,c+R?D  
        .Text = "[【\[［〖](*)[】\]〗］]" ;F;Vm$  
        .Replacement.Text = "[\1]" /lS5B6NU  
        .Replacement.Font.Superscript = True FP<mFqy  
        '.Replacement.Font.Color = wdColorBlue elGwS\sw  
        .Forward = True }?)U`zF)7}  
        .Wrap = wdFindContinue J#?` l,  
        .FORMAT = True kNd(KQ<.17  
        .MatchCase = False 9;7|MPbR  
        .MatchWholeWord = False jwL\|B oE  
        .MatchByte = False Zmc"  
        .MatchAllWordForms = False OLZs}N+;]  
        .MatchSoundsLike = False HO_!/4hrU  
        .MatchWildcards = True O=5q<7PM.  
    End With ]3Y J a  
    Selection.Find.Execute Replace:=wdReplaceAll yz<$?G blz  
End Sub hiKyU! )Hv  
/O}lSXo6E  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) =E w<s5C@  
    bContinue = False C=Tq/L w  
    Set regEX = Nothing <MyT ;  
End Sub >ZwDcuJ~Lz  
Nu;?})tF  
Sub CeateOrModifyStyle() \0veld  
' 3y%,f|ju  
' QJy1j~9x  
Dim stl As Style ' ~ 1/*F%8  
     5X73@Aj  
    Options.Pagination = False [G",Yky  
     #LR.1zZ  
    On Error Resume Next .% 79(r^  
    For Each stl In ActiveDocument.Styles 8F K%7\V  
        stl.Delete Q~f mVWq  
    Next nB;[;dC z  
    On Error GoTo 0 6z5wFzJv?q  
     $@HW|Y  
    Set stl = Nothing 9e*o$)j_  
     7n)ob![\d  
    DoEvents FnPn#Cv>*  
    On Error Resume Next -V&nlP  
     w m|WER*.  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph 8#nAs\^  
     JT! Cb$!  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph Oz4vV_a&'  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph Cq -URih  
     /|p\l"  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph 6rMXv0)  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph Alk+MwjR  
     D>-srzw  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph G1a56TIN~  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph ZmDM=qN  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph E?0Vo%Vh  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph $ ~%w21?&  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph / K(l [M  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph l* z "wA-  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph MCAWn H  
     x=03 WQ8  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph USg,=YM  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph ,R\ex =c  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph t52KF#+>  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph .L~ NX/V  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph $|tk?Sps  
     ti^=aB   
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph bA1O]:`  
    On Error GoTo 0 2f0mr?l)N  
    DoEvents tM|/OJ7  
     )UtK9;@"  
    'BaseStyle 9tWpxrig%  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False D}`MY \H  
    With ActiveDocument.Styles("BaseStyle").Font 9vP#/ -g  
        .NameFarEast = "宋体" 7~~suQ{F4  
        .NameAscii = "Times New Roman" TQtHU6  
        .NameOther = "宋体" JM7FVB  
        .Size = 10.5 zZW5M^z8  
        .Bold = wdUndefined OFxCV`>ce  
        .Italic = wdUndefined \fsNI T/  
        .Subscript = wdUndefined \UP=pT@  
        .Subscript = wdUndefined <@$+uZt+  
         P( UY}oU  
        .Underline = wdUnderlineNone vaL P_V  
        .UnderlineColor = wdColorAutomatic Q?bCQZ{-Lh  
        .StrikeThrough = False A%cJ5dF8~  
        .DoubleStrikeThrough = False n/{ pQ&B  
         >0UY,2d  
        .Outline = False ?_B'#,tI  
        .Emboss = False l{gR6U{e  
        .Shadow = False I7\T :Q[  
        .Hidden = False 8!{ }WLwb  
        .SmallCaps = False R7 rO7M !  
        .AllCaps = False CXBFR>"  
        .Color = wdColorAutomatic  KF6N P  
        .Engrave = False YwS/O N  
        .Scaling = 100 '0=mV"#H{  
        .Kerning = 1 2Ab`i!#  
        .Animation = wdAnimationNone <TTBIXV  
        .DisableCharacterSpaceGrid = False {oS/Xa  
        .EmphasisMark = wdEmphasisMarkNone AyNpY_B0c  
    End With -,Js2+QZ#  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat "g*`G<W_s  
        .LeftIndent = 0  nvCp-Z$  
        .RightIndent = 0 r PTfwhs  
        .SpaceBefore = 0 :NL[NbQYt  
        .SpaceBeforeAuto = False &;bey4_J  
        .SpaceAfter = 0 Z2 Vri  
        .SpaceAfterAuto = False ;9Qxq]  
         `oTV)J'~  
        .LineSpacingRule = wdLineSpaceSingle !+z&] S3s  
        .Alignment = wdAlignParagraphJustify RBfzti6  
         #iQF)x| D  
        .WidowControl = False g~2=he\C  
        .KeepWithNext = False V|TD+7.`QB  
        .KeepTogether = False F1S0C>N?5  
        .PageBreakBefore = False S5:&_&R8[  
        .NoLineNumber = False j/jFS]iC  
         rp4{lHw>C/  
        .FirstLineIndent = CentimetersToPoints(0) 1#*^+A E  
        .OutlineLevel = wdOutlineLevelBodyText d)3jkHYEjj  
        .CharacterUnitLeftIndent = 0 dlA0&;}z  
        .CharacterUnitRightIndent = 0 9C8 G(r  
        .CharacterUnitFirstLineIndent = 0 ->*~e~T  
        .LineUnitBefore = 0 _f~$iY  
        .LineUnitAfter = 0 T[I7.8g  
        .AutoAdjustRightIndent = True v cUGBGX_&  
        .DisableLineHeightGrid = True },{sJ0To  
         53$;ZO3  
        .FarEastLineBreakControl = True +,g!xv4Q  
        .WordWrap = True )%b 5uZ  
        .Hyphenation = False G?,"AA;  
         H& $M/`  
        .HangingPunctuation = True 2r!- zEV  
        .HalfWidthPunctuationOnTopOfLine = True wv`ar>qVL  
        .AddSpaceBetweenFarEastAndAlpha = True LLFQ5py{  
        .AddSpaceBetweenFarEastAndDigit = True MJ$.ST  
        .BaseLineAlignment = wdBaselineAlignBaseline oWx^_wQ-=  
    End With 4s9 .")G  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False ?,] eN&`  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll J7sH]  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese /'zXb_R,$  
    ActiveDocument.Styles("BaseStyle").NoProofing = False A9KPU:  
     liqVfB%  
    '一级标题题样式 ;<*USS6X  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ]a`"O  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" 505ejO|  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False LqXVi 80  
    With ActiveDocument.Styles("QLNU一级标题").Font gb4$W@N7V  
        .NameFarEast = "黑体" l$ kO%E'  
        .NameAscii = "Arial Black" K,6{c^qf  
        .NameOther = "黑体" H]W'mm  
        .Name = "黑体" K%W;-W*'  
        .Size = 16              '三号 s)?GscPG!  
        .Bold = True ,:#h;4!VRF  
        .Italic = wdUndefined OnU-FX<  
        .Subscript = wdUndefined (J?_~(,`"  
        .Superscript = wdUndefined r7#.DJnN.  
    End With M(yWE0 3  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat Xy./1`X  
         ]0O3kiVQ  
        .LeftIndent = CentimetersToPoints(0) m?gGFxo  
        .RightIndent = CentimetersToPoints(0) DZ1.Bm0  
        .FirstLineIndent = CentimetersToPoints(0) RUq[HxF) 6  
         ;W|GUmADf  
        .LineSpacingRule = wdLineSpaceSingle As5-@l`@  
        .Alignment = wdAlignParagraphCenter `EfFyhG$  
         89j:YfA=v  
        .WidowControl = True {>PEl; ,-  
        .KeepWithNext = True $=X>5B  
        .KeepTogether = True Mnk-"d  
        .OutlineLevel = wdOutlineLevelBodyText @LFB}B  
         b@Dt]6_ UL  
        .LineUnitBefore = 0.5 f~,Ml*Zp  
        .LineUnitAfter = 0.5 >K&chg@Hv  
    End With k'*vG6!  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False fq4uiFi<  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll ?p/}eRgi  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese *VH Wvj  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True DAg*   
    DoEvents ^QjkZ^<dD  
     >JA>np  
    '二级 ;at1|E*  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") H DD)AM&p  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" 9KB}?~Nx4  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False Wsp c ;]&  
    With ActiveDocument.Styles("QLNU二级标题").Font Z4:^#98c.  
        .NameFarEast = "黑体" ^O =G%de  
        .NameAscii = "Arial Narrow" R+t]]n6#  
        .NameOther = "黑体" )#GF :.B  
        .Name = "黑体" [c -|`d^  
        .Size = 15        '小三号 8GRB6-.h  
        .Bold = False &*E! %57  
        .Outline = False h6IO;:P)  
        .Italic = wdUndefined +J~%z*A  
        .Subscript = wdUndefined (>Nwd^  
        .Superscript = wdUndefined M IyT9",Pl  
    End With ]jPP]Z:y  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat EiaP1o  
        .LeftIndent = CentimetersToPoints(0) }I MV@z B  
        .RightIndent = CentimetersToPoints(0) 0~+*$W  
        .FirstLineIndent = CentimetersToPoints(0) GY %$7   
         ?S9vYaA$  
        .LineSpacingRule = wdLineSpaceSingle c<lEFk!g  
        .Alignment = wdAlignParagraphLeft Pd& Npp3  
         jt(GXgm  
        .WidowControl = True vC^{,?@  
        .KeepWithNext = True (`_fP.Ogb  
        .KeepTogether = True ~g%Ht# <  
        .PageBreakBefore = False H+5+;`;  
        .OutlineLevel = wdOutlineLevelBodyText FhPCFmmUT  
         Y@< j vH1  
        .LineUnitBefore = 0.5 FA\U4l-  
        .LineUnitAfter = 0.5 $iMLT8U  
         ir>S\VT4  
    End With 2s> BNWTU  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False ^7*7^<  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll s|:1z"q  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese @y'ZM  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True rC]k'p2x  
    DoEvents pr1bsrMuL  
     y<wd~!>Ubu  
    '三级标题样式 '/OQ[f=K  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") m`n~-_  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" _yX.Apv]  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False n(|n=P:o  
    With ActiveDocument.Styles("QLNU三级标题").Font X 5X D1[  
        .NameFarEast = "宋体" QC!SgV  
        .NameAscii = "Times New Roman" ycwkF$7  
        .NameOther = "黑体" S{v]B_N[M  
        .Name = "黑体" :>o 0zG[;f  
        .Size = 14               '四号 | lZJt  
        .Bold = False p@Cas  
        .Outline = False >]%$lSCW\D  
        .Italic = wdUndefined ?Z4%u8Krvz  
        .Subscript = wdUndefined G,c2 ?^#n  
        .Superscript = wdUndefined #_`q bIOAj  
    End With 49<t2^1q  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat #6~Bg)7AM  
        .LeftIndent = CentimetersToPoints(0) hg:$H9\%  
        .RightIndent = CentimetersToPoints(0) 6|{&7=1t  
        .FirstLineIndent = CentimetersToPoints(0) ?=^\kXc[  
         *W^a<Zm8>  
        .LineSpacingRule = wdLineSpaceSingle 4*9t:D|}  
        .Alignment = wdAlignParagraphLeft l!KPgR w  
         [Y?Y@x"MZ  
        .WidowControl = True [k(b<'  
        .KeepWithNext = True fBh/$    
        .KeepTogether = True \t/0Yh-'  
        .PageBreakBefore = False D%LYQ  
        .OutlineLevel = wdOutlineLevelBodyText qJf\,7mi  
         W'f"kM  
        .CharacterUnitLeftIndent = 0 Vp0_R9oQ  
        .CharacterUnitRightIndent = 0 -'L~Y~'.  
        .CharacterUnitFirstLineIndent = 2 fL d2{jI,  
          ^u#iz  
        .LineUnitBefore = 0.5 !*HJBZ]q  
        .LineUnitAfter = 0 7&OJ 8B/  
    End With r b\t0tg  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False ?E(X>tH  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll ~t/i0pKq.  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese h:U#F )  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True 1c429&-  
    DoEvents x,cvAbwS  
     K Z%us6  
    '四级标题样式 _%Ua8bR$  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") U 8p %MFD  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" $o;c:Kh$$  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False IbJ l/N%o  
    With ActiveDocument.Styles("QLNU四级标题").Font 6w(r}yO]  
        .NameFarEast = "宋体" '-J <ib t  
        .NameAscii = "Times New Roman" Ziub%C[oV  
        .NameOther = "宋体" _d!o,=}  
        .Name = "宋体" <%`Rku  
        .Size = 12               '小四号 { o5^nd  
        .Bold = True ij~-  
        .Outline = False "wg$ H1K  
        .Italic = wdUndefined ](8F]J ,  
        .Subscript = wdUndefined #d*gWwnx"  
        .Superscript = wdUndefined W}2!~ep!  
    End With L|:CQ  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat u<N` ;s  
         RLL%l  
        .LeftIndent = CentimetersToPoints(0) 2"6qg>]-t  
        .RightIndent = CentimetersToPoints(0) lKQevoy'  
        .FirstLineIndent = CentimetersToPoints(0) hW/Ve'x[  
         XJKns  
        .LineSpacingRule = wdLineSpaceSingle dFhyT.Y?  
        .Alignment = wdAlignParagraphLeft r\FZ-gk}Q  
         JZ*.;}"  
        .WidowControl = True _Y/*e<bU  
        .KeepWithNext = True rly%+B `/  
        .KeepTogether = True 2K o]Q_,~  
        .PageBreakBefore = False =J]E VD   
        .OutlineLevel = wdOutlineLevelBodyText 6Z' K1  
         >3ZhPvE-p'  
        .CharacterUnitLeftIndent = 0 ~K;hXf  
        .CharacterUnitRightIndent = 0 ?8?vBkz~  
        .CharacterUnitFirstLineIndent = 2 A>e-eD xi  
         EY3F9h3xM|  
        .LineUnitBefore = 0 Rm79mh9  
        .LineUnitAfter = 0 _dz ZS(7M6  
         vdQ#C G$/  
    End With ?*yB&(a:8  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False ^OX}y~'  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll @D=%J!!*  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese U <q`f-  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True vD:J!|hs(  
    DoEvents Rg\4#9S JF  
     J7- vB",U  
    '正文校式 :g' 'GqGZ  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") \%bJXTK&W  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" *RVCz|0%w  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False GCiG50Z=  
    With ActiveDocument.Styles("QLNU正文").Font guGX  G+  
         ]4V1]  
        .NameFarEast = "宋体" zJl;| E".  
        .NameAscii = "Times New Roman" O6 s3#iu  
        .NameOther = "宋体" 3A[<LnKR^E  
        .Name = "宋体" L6i|5 P  
         ]W4{|%@H"  
        .Size = 12               '小四号 5M~nNm[xJU  
         6&0G'PMf  
        .Bold = wdUndefined ^);M}~  
        .Italic = wdUndefined oWLP|c~ Ap  
        .Subscript = wdUndefined /DyeMCY-  
        .Superscript = wdUndefined XEa gN:  
         NWPT89@l  
        .Outline = False @1gURx&2_  
        .Emboss = False :) -`  
        .Shadow = False ? daxb  
        .Hidden = False zS|4@t\__  
         j}s/)}n|  
        .DisableCharacterSpaceGrid = True o|y_j4 9  
    End With cQ1Axs TO  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat G!=(^G@J;  
         h(~/JW[  
        .LeftIndent = CentimetersToPoints(0)  ;Ss!OFK  
        .RightIndent = CentimetersToPoints(0) njZ vi}m~  
        .FirstLineIndent = CentimetersToPoints(0) -y|']I^ &  
          bKK'U4  
        .LineSpacingRule = wdLineSpaceExactly _KkaseR  
        .LineSpacing = 20 -sZ'<(3  
        .Alignment = wdAlignParagraphLeft jb,a>9 ]p  
         YcclO  
        .WidowControl = False dT% eq7=  
        .KeepWithNext = False i=]R1yP  
        .KeepTogether = False jF j'6LT9/  
        .PageBreakBefore = False n}e%c B  
        .Hyphenation = False izGU&VeB  
         #1\`!7TO3  
        .OutlineLevel = wdOutlineLevelBodyText @>.a QE  
         9L3P'!Z  
       0vX6n6G}  
        .CharacterUnitLeftIndent = 0 GYiL}itD=3  
        .CharacterUnitRightIndent = 0 eyp_.1C~  
        .CharacterUnitFirstLineIndent = 2 g-_=$#&{  
         $d])>4eQ  
        .LineUnitBefore = 0 G3+e5/0  
        .LineUnitAfter = 0 g\8B;  
        .SpaceBefore = 0 :A!EjIL`#  
        .SpaceAfter = 0 `w`N5 !  
         %t!r pyD  
        .DisableLineHeightGrid = True +!px+*)bW  
    End With MN5}}@  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False WAR!#E#J7  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll rl~Rbi  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese wbcip8<t  
    ActiveDocument.Styles("QLNU正文").NoProofing = True 9&Un|cr  
    DoEvents <Opw"yY&q]  
     -64 ;P9:A>  
    '图片段落样式 ~6Fh ,S1?  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") )V>zXy}Y  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" $gz8! f?  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False &~/g[\Y  
    With ActiveDocument.Styles("QLNU图片段落").Font 4&%H;Q  
        .Size = 12               '小四号 vE8'B^h1  
        .Italic = wdUndefined XOQ0(e6  
        .Subscript = wdUndefined (Cq 38~mR  
        .Superscript = wdUndefined 77sG;8HE  
    End With ';8 ,RT e  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat m9MY d  
         kONn7Itbu  
        .LeftIndent = CentimetersToPoints(0) L;?F^RK{U  
        .RightIndent = CentimetersToPoints(0) \v\ONp"  
        .FirstLineIndent = CentimetersToPoints(0) 6^V( C;5!  
         rr\9HA  
        .LineSpacingRule = wdLineSpaceSingle km5gO|V>m  
        .Alignment = wdAlignParagraphCenter 8IWT;%  
        .KeepWithNext = True 3+d^Bpp 4  
        .OutlineLevel = wdOutlineLevelBodyText +l/kH9m  
         y= f.;  
        .CharacterUnitLeftIndent = 0 R@5eHP^  
        .CharacterUnitRightIndent = 0 RMpiwO^  
        .CharacterUnitFirstLineIndent = 0 .m8l\h^3  
         F%&lM[N%  
        .LineUnitBefore = 0 qxAh8RR;/  
        .LineUnitAfter = 0 u,`3_I^  
    End With n7~4*B  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False }fkdv6mz  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll 1!;~Y#  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese Ja4M@z  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True E3[9!L8gb  
    DoEvents NB'G{),)Z  
     }`H{;A h  
     Z :>3AJuS_  
    '第X章 \b"|p%CL8  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ^E\n^D-RV  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" `8O Bw  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False !v=/f_6  
    With ActiveDocument.Styles("QLNU章节标题").Font N%Y!{k5T7  
        .NameFarEast = "黑体" mLkp*?sfC  
        .NameAscii = "Arial Black" iHf):J?8 y  
        .NameOther = "Arial Black" _Li.}g@Bd  
        .Name = "黑体" (jhi<eV  
        .Size = 16 sb3z8:r  
        .Bold = True 0-{E% k  
        .UnderlineColor = wdColorAutomatic "nfi :A1  
        .Outline = False 3fp aTue|x  
        .Italic = wdUndefined 0F![<5X  
        .Subscript = wdUndefined wme#8/eUk  
        .Superscript = wdUndefined 9W\"A$;+&  
        .Scaling = 100 gg^iYTpt  
        .DisableCharacterSpaceGrid = True t\ z@k9  
    End With O43"-  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat &[j9Up'   
        .LineSpacingRule = wdLineSpaceSingle .>[l@x"  
        .Alignment = wdAlignParagraphCenter w6h83m 3  
        .WidowControl = True Vj1V;dHv  
        .KeepWithNext = True oq,nfU A  
        .KeepTogether = True \),f?f-m  
        .PageBreakBefore = True A-3^~aEgx  
        .OutlineLevel = wdOutlineLevelBodyText i<>%y*+@  
         tN4&#YK<  
        .LeftIndent = CentimetersToPoints(0) .bP8 Z =  
        .RightIndent = CentimetersToPoints(0) ||TZ[l  
        .FirstLineIndent = CentimetersToPoints(0) ^'tT_ gT  
         YT'V/8US  
        .CharacterUnitLeftIndent = 0 oMLs22Do?  
        .CharacterUnitRightIndent = 0 zh=0zJ  
        .CharacterUnitFirstLineIndent = 0 e1JH N  
         +cYDz#3%  
        .LineUnitBefore = 1 dqQJC qc!  
        .LineUnitAfter = 0.5 [\<#iRcP  
         \n Wb GS(  
        .AutoAdjustRightIndent = False _=`DzudE  
        .DisableLineHeightGrid = True 4I2:"CK06  
        .FarEastLineBreakControl = True O gQ8yKfDB  
        .WordWrap = True : OjmaP  
    End With lfCr `[!E  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False M=95E$6  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll  8rlf9m  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese LWhy5H;Es  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True 6LCR ;~ ]  
    DoEvents Ja 5od  
     1BW9,Xr  
    '表格标题 &nVekE:!  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ,YBO}l  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" 'q~<ZO  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False Nl,iz_2]  
    With ActiveDocument.Styles("QLNU表格标题").Font )CE]s)6+2  
        .NameFarEast = "楷体" +e*C`uP!  
        .NameAscii = "Arial" u {\>iQ   
        .Name = "楷体" <& +jl($"  
        .Size = 10.5 FW;}S9u3  
        .Bold = True 4|5;nxkGm8  
        .Underline = wdUnderlineNone ia; osqW  
        .Italic = wdUndefined  q"T?  
        .Subscript = wdUndefined 1i.3P$F  
        .Superscript = wdUndefined Yq WNp  
        .Color = wdColorAutomatic |@1(^GX  
    End With sKKc_H3YSH  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat u9,dSR  
         5Uy *^C7M^  
        .LineSpacingRule = wdLineSpaceSingle v5pkP  
        .Alignment = wdAlignParagraphCenter ]3='TN8aQF  
        .KeepWithNext = True F @Wi[K  
        .KeepTogether = True PZ'|)  
        .OutlineLevel = wdOutlineLevelBodyText Qx|HvT2P  
         fJ _MuAv  
        .LeftIndent = CentimetersToPoints(0) YryMB,\  
        .RightIndent = CentimetersToPoints(0) [:(O`#  
        .FirstLineIndent = CentimetersToPoints(0) :%Iv<d<  
         qc)+T_m  
        .CharacterUnitLeftIndent = 0 ]}l.*v\uK  
        .CharacterUnitRightIndent = 0 U&Atgv  
        .CharacterUnitFirstLineIndent = 0 g$"x,:2x{  
         \}kR'l  
        .LineUnitBefore = 1 <vV"a bk  
        .LineUnitAfter = 0 xZ%3e sp  
         |&-*&)iD|w  
    End With j r .{M  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False :8}Qt^p  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll U,T#{  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese 3_boEYl0  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True s 72yu}  
    DoEvents ;=^J_2ls  
6(htpT%J  
    '表格首行 Evg#sPu\  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") QQ{*j7i)  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False ;w]1H&mc*A  
    With ActiveDocument.Styles("QLNU表格首行").Font ThW9 =kzQW  
        .NameFarEast = "楷体" cL.>e=x$  
        .NameAscii = "Times New Roman" m1]/8{EC7  
        .Name = "楷体" Q"eqql<h#  
        .Size = 9 _7;G$\^&.  
        .Bold = True ~l] w=[ z  
        .Underline = wdUnderlineNone BdU .;_K  
        .Italic = wdUndefined qRcg|']R  
        .Subscript = wdUndefined 4Wa$>vz  
        .Superscript = wdUndefined s m G?y~  
    End With ?z-nY,'^uq  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat y,1U]1TP  
        .LineSpacingRule = wdLineSpaceSingle ^qBm%R(  
        .Alignment = wdAlignParagraphCenter 1|>vk+;1h  
         &YD+ s%OL  
        .LeftIndent = CentimetersToPoints(0) O0BDUpH  
        .RightIndent = CentimetersToPoints(0) #hs&)6S f  
        .FirstLineIndent = CentimetersToPoints(0) s[UV(::E  
         F g):>];<9  
         <6hs<qXqi  
        .CharacterUnitLeftIndent = -0.5 cw)J+Lyh  
        .CharacterUnitRightIndent = -0.5 %" mki>  
        .CharacterUnitFirstLineIndent = -0.5 <_*5BO  
         U1/ww-!Z  
        .LineUnitBefore = 0 x30|0EHYl[  
        .LineUnitAfter = 0 9fTl6?x  
        .SpaceBefore = 0 B%tj-h(a  
        .SpaceAfter = 0 4, Vx3QFZ  
         PGxv4(%  
    End With U61 LMH  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False {|<r7K1<  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll 5\}Y=Pa  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese %yKcp5_  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True ']c;$wP  
    DoEvents ?5lO1(  
0;=]MEk?  
    '表格内容 5"!K8 N  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") YKayaI\*  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False Mg8ciV}\xY  
    With ActiveDocument.Styles("QLNU表格内容").Font .-MJ5d:  
        .NameFarEast = "楷体" 5S&Qj7kr  
        .NameAscii = "Times New Roman" ]{{%d4  
        .Name = "楷体" Xm(#O1Vm(l  
        .Size = 9 Xq37:E2  
        .Bold = False n[y^S3}%;  
        .Underline = wdUnderlineNone >,k2|m  
        .Italic = wdUndefined A~k: m0MX  
        .Subscript = wdUndefined UL&> ]aQ  
        .Superscript = wdUndefined i Pl/I  
    End With  vmfFR  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat ds+2z=!!e  
        .LineSpacingRule = wdLineSpaceSingle n4XkhY|  
        .Alignment = wdAlignParagraphCenter zT/woiyB`  
         ' Gx\  
        .LeftIndent = CentimetersToPoints(0) -H[@]Q4w  
        .RightIndent = CentimetersToPoints(0) ;H71A[M T  
        .FirstLineIndent = CentimetersToPoints(0) !{(crfXB  
         4XJ']M(5;  
        .CharacterUnitLeftIndent = -0.5 RhF< {U.  
        .CharacterUnitRightIndent = -0.5 0v1~#KCm  
        .CharacterUnitFirstLineIndent = -0.5 KMfRMc&  
        .LineUnitBefore = 0 Pjvb}q=  
        .LineUnitAfter = 0 YbWz!.WPe  
        .SpaceBefore = 0 17;9>*O'  
        .SpaceAfter = 0 iny/K/5bf  
    End With j1+I_   
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False eW3?3l`fvt  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll  >}]bKq  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese F8tMZ,:  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True Zg4wd/y?  
    DoEvents aWLA6A+C&  
gwg~4:W  
    '图片标题 [rAi9LSO"  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") l$l6,OzS@  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" GuL0:,  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False 6fBA #Kb  
    With ActiveDocument.Styles("QLNU图片标题").Font w kPomTO  
        .NameFarEast = "楷体" 3&c'3y:b  
        .NameAscii = "Times New Roman" XPt>klf  
        .Name = "楷体" I3x+pa^]2  
        .Size = 10.5 `2V{]F  
        .Bold = True TI"Ki$jC  
        .Underline = wdUnderlineNone ErsJWp  
        .Italic = wdUndefined > 9z-/e  
        .Subscript = wdUndefined p`U#  
        .Superscript = wdUndefined + <w6sPm  
        .Outline = False RASk=B  
        .Shadow = False lY,9bSF$  
        .Color = wdColorAutomatic !&@t  
    End With }y+a )2  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat P&Xy6@%[Z  
        .LineSpacingRule = wdLineSpaceSingle [- e$4^+9  
        .Alignment = wdAlignParagraphCenter |@R/JGB^  
         :c )R6=v  
        .KeepWithNext = wdUndefined R&P^rrC@B5  
        .KeepTogether = True tN.BI1 nB  
        .OutlineLevel = wdOutlineLevelBodyText z1tCSt}7f  
         TOSk+2P  
        .LeftIndent = CentimetersToPoints(0) @ZV>Cl@%2  
        .RightIndent = CentimetersToPoints(0) B"*PBJuOA  
        .FirstLineIndent = CentimetersToPoints(0) SjJ$Oinc  
         #zSNDv`  
        .CharacterUnitLeftIndent = 0 F60m]NUM)c  
        .CharacterUnitRightIndent = 0 r <P?F  
        .CharacterUnitFirstLineIndent = 0 =bvLMpa  
         l#+@!2z  
        .LineUnitBefore = 0 |6Iw\YU  
        .LineUnitAfter = 0 YQO9$g0% ~  
    End With _XI,z0(  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False  .^rs VNG  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll i(q a'*  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese }Q,BI*}*  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True F22]4DLHO  
    DoEvents $KGRpI  
nK]L0*s  
    '目录项  {qH+S/  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") 5'(#Sf  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" j(_6.zf  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False Nlm3RxSn  
    With ActiveDocument.Styles("QLNU目录项").Font (|y@ ftr@  
        .NameFarEast = "黑体" ( M3-S5   
        .NameAscii = "Times New Roman" c^,8eb7c  
        .NameOther = "Times New Roman" eE0nW+i  
        .Name = "黑体" +6<g N[  
        .Size = 10.5 $f6wmI;<y  
        .Bold = False #'y^@90R  
        .Italic = wdUndefined 7V~ gqum  
        .Underline = wdUnderlineNone q\fai^_  
        .Color = wdColorAutomatic dFnu&u"  
        .Superscript = wdUndefined P>*`<$FR  
        .Subscript = wdUndefined N&Uqzt*  
    End With 0qN?4h)7  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat dW|S\S'&  
         6:G ::"ew  
        .LineSpacingRule = wdLineSpaceSingle 8&#)}A}x  
        .Alignment = wdAlignParagraphLeft !T]bz+   
         r"KW\HN8  
        .WidowControl = False XJ7mvLM;  
        .KeepWithNext = False DpL|aRdbK  
        .KeepTogether = False hBW,J$B  
        .PageBreakBefore = False !OR %AdxB  
        .NoLineNumber = False M_;hfpJZ  
        .OutlineLevel = wdOutlineLevelBodyText If@%^'^ON=  
         p,OB;Ncf/  
        .LeftIndent = CentimetersToPoints(0) R&L^+?  
        .RightIndent = CentimetersToPoints(0) j5 W)9HW:  
        .FirstLineIndent = CentimetersToPoints(0) Iw</X}#\  
         Novn#0a  
        .CharacterUnitLeftIndent = 0 t@BhosR-  
        .CharacterUnitRightIndent = 0 YJ01-  
        .CharacterUnitFirstLineIndent = 0 ^JB5-EtL(  
         F4&`0y:  
        .LineUnitBefore = 0 0VI[6t@  
        .LineUnitAfter = 0 gBX bB9  
    End With U {s T %G  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False U+ief?;4F  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll Aq&H-g]s  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot ~NwX,-ri  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese Ar[$%  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True D}pN sQ  
    DoEvents \ 3l3,VYH  
     ;5aAnvgW  
    '参考文献 ;J?zD9  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") .W0;Vhw"  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" L'x[wM0w;  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False j"P}Wn  
    With ActiveDocument.Styles("QLNU参考文献").Font E&b!Y '  
        .NameFarEast = "宋体" QPz3IK%   
        .NameAscii = "Times New Roman" 9M .cTIO{  
        .NameOther = "Times New Roman" g; ZVoD  
        .Name = "Times New Roman" Q$^Kf]pD  
        .Size = 12 !O/(._YB`  
        .Bold = False tWI4x3 &2  
        .Italic = wdUndefined 9m2Yrj93  
        .Subscript = wdUndefined D{, b|4  
        .Superscript = wdUndefined 8lT2qqlr  
        .Underline = wdUnderlineNone /2]=.bLwz  
        .UnderlineColor = wdColorAutomatic zCpXF< _C  
        .Color = wdColorAutomatic e5m-7{h@  
        .Engrave = False ?Ns aZ  
    End With OjY#xO+'  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat _R|8_#yM  
         t|k-Bh:x  
        .LineSpacingRule = wdLineSpaceExactly 4jz2x #T  
        .LineSpacing = 16 Q-$EBNz  
        .Alignment = wdAlignParagraphLeft inv 5>OeG  
        .WidowControl = False qM mhmH)Gp  
        .KeepWithNext = False !K_ ke h  
        .KeepTogether = False ADlLodG  
        .PageBreakBefore = False (>gHfC>(lq  
        .OutlineLevel = wdOutlineLevelBodyText jb!15Vlt"  
         .h>tef  
        .LeftIndent = CentimetersToPoints(0)  DE14dU  
        .RightIndent = CentimetersToPoints(0) ?h|w7/9  
        .FirstLineIndent = CentimetersToPoints(0) c_.4~>qw  
         rY(h }z  
        .CharacterUnitLeftIndent = 0 DzK%$#{<  
        .CharacterUnitRightIndent = 0 L t.Vo  
        .CharacterUnitFirstLineIndent = -2 f\M;m9{(  
         $N17GqoC  
        .LineUnitBefore = 0 Xx=c'j<  
        .LineUnitAfter = 0  *4{GI D  
        .SpaceBefore = 0 7V7iIbi  
        .SpaceAfter = 0 G\o *j |  
         '0E^th#u-0  
    End With w!/se;_H+w  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False 2z=aP!9]  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll WB>M7MI%  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS *bTR0U  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True Eza B}BLQ9  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese c *]6>50  
    DoEvents vKcc|#  
p?4h2`P  
    ' )|i]"8I  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") ^ )[jBUT  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" pksF| VS  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False Kx5VR4f`J@  
    With ActiveDocument.Styles("QLNU论文题目").Font =jW= Z$3q  
        .NameFarEast = "黑体" W{*w<a_ `  
        .NameAscii = "Arial Black" K6; sxF  
        .NameOther = "Arial Black" '?v-o)X  
        .Name = "Arial Black" VA@t8H,  
        .Size = 16 \y0uGnmCj  
        .Bold = False 81 /t)Cp  
        .Italic = wdUndefined YWUCrnr  
        .Superscript = wdUndefined AU/L_hg  
        .Subscript = wdUndefined C\C*' l6d  
        .Underline = wdUnderlineNone $tFmp)  
        .UnderlineColor = wdColorAutomatic b:>t1S Ul  
        .Color = wdColorAutomatic lG!We'?  
u MM?s?q  
    End With LuUfdzH  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat q.g0Oz@ z  
        .LineSpacingRule = wdLineSpaceSingle 4"y1M=he  
        .Alignment = wdAlignParagraphCenter D= LLm$y  
        .WidowControl = True #MI4 `FZ  
        .KeepWithNext = True 4?cIn4}  
        .KeepTogether = True 94x RKQ}  
        .PageBreakBefore = True !S}4b   
        .NoLineNumber = False aMycvYzH  
        .OutlineLevel = wdOutlineLevelBodyText q8e34Ly7  
         (cEjC`]  
        .LeftIndent = CentimetersToPoints(0) n*GsM6Y&  
        .RightIndent = CentimetersToPoints(0) m%G:|`f7  
        .FirstLineIndent = CentimetersToPoints(0) ;chz};zY  
         xr'gi(.o  
        .CharacterUnitLeftIndent = 0 YU24wTe;k  
        .CharacterUnitRightIndent = 0 p:8&&v~I  
        .CharacterUnitFirstLineIndent = 0 S2EeC&-AR  
         K#<cuHGC  
        .LineUnitBefore = 1 x9B{|+tIoc  
        .LineUnitAfter = 1 v d}Y$X  
         lQnqPQY  
        .BaseLineAlignment = wdBaselineAlignAuto \4pWHE/  
    End With BjyGk+A   
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False /qX=rlQ/n  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll Hwm] l`E]  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS ()I';o  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True xHY#"   
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese C@Fk  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True bQu1L>c,Uw  
    DoEvents gls %<A{C  
     ~^pV>>LX|  
    '中文摘要 I w-3Z'hOX  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") f-/zR%s{  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" 2YL)" w  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False 982n G-"  
    With ActiveDocument.Styles("QLNU中文摘要").Font g4 G?hv`R  
        .NameFarEast = "宋体" d~-C r-s4  
        .NameAscii = "Times New Roman" TbPTgE *  
        .NameOther = "Times New Roman" @u}1 S1  
        .Name = "Times New Roman" 9Jhc5G  
        .Size = 12 b63tjqk  
        .Bold = wdUndefined Y< drRK!  
        .Superscript = wdUndefined #:n:3]t  
        .Subscript = wdUndefined l^*'W(%  
        .Italic = wdUndefined b )mU9   
        .Underline = wdUnderlineNone ?#rejA:  
        .UnderlineColor = wdColorAutomatic r @ IyK%  
        .Color = wdColorAutomatic 3BWYSJ|  
    End With ,8MUTXd@ V  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat D 4fHNk)kZ  
        .LineSpacingRule = wdLineSpaceExactly :#=XT9  
        .LineSpacing = 20 8@Kvh|  
        .Alignment = wdAlignParagraphLeft ekx~svcC&A  
         iw ==q:$  
        .WidowControl = False *D$[@-7  
        .KeepWithNext = False 8LM 91  
        .KeepTogether = True 7`IoQvX  
        .PageBreakBefore = False %RF9R"t$  
        .NoLineNumber = False vuE 1 (CR  
        .OutlineLevel = wdOutlineLevelBodyText 0qU Bt9rA  
         r.T!R6v}  
        .LeftIndent = CentimetersToPoints(0) kX)Xo`^Ys  
        .RightIndent = CentimetersToPoints(0) [ym ynr3M  
        .FirstLineIndent = CentimetersToPoints(0) W8R"X~!V  
         .W)%*~ O!;  
        .CharacterUnitLeftIndent = 0 #.kDin~!  
        .CharacterUnitRightIndent = 0 ic_q<Y}  
        .CharacterUnitFirstLineIndent = 2 G`1FD  
        .LineUnitBefore = 0 gnPu{-Ec*  
        .LineUnitAfter = 0 S x", Zb  
         `96PY !$u  
    End With +vh 4I  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False Z_qOQ%l  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll Pa-p9]gq  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS -*I Dzm  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True OLS.0UEc  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese hLf<-NM  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True & NO:S  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete :6r)HJ5sg  
    DoEvents xJ18M@" j  
     gwyHDSo8:a  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ya^zlj\`0e  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" 4)XZ'~|  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False HMymoh$Q  
    With ActiveDocument.Styles("QLNU英文标题").Font `"* ]C  
        .NameFarEast = "黑体" &n)=OConge  
        .NameAscii = "Arial Narrow" Dy[_Ix/Y,  
        .Name = "Arial Narrow" B5iVT<:a  
        .Size = 16 VS{po:]A  
        .Bold = True {!`0i  
        .Bold = wdUndefined j~@Hj$APa`  
        .Superscript = wdUndefined 3RyB 0 n  
        .Subscript = wdUndefined o2C{V1nB  
        .Italic = wdUndefined 1\'zq;I~  
         Rt^~db  
        .Underline = wdUnderlineNone w`")^KXi  
        .UnderlineColor = wdColorAutomatic !^:)zORYR  
        .StrikeThrough = False %3r`EIB6  
        .DoubleStrikeThrough = False e0ea2 2  
    End With >w~Hq9  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat  KDODUohC  
        .LineSpacingRule = wdLineSpaceSingle hkhk,bhI  
        .Alignment = wdAlignParagraphCenter I Y='tw  
        .WidowControl = True ogrh"  
        .KeepWithNext = False #o]/&T=N=  
        .KeepTogether = False oju}0h '1  
        .PageBreakBefore = False "ApVgNB  
        .NoLineNumber = False ^+m6lsuA  
        .FirstLineIndent = CentimetersToPoints(0) QmpP_eS >  
        .OutlineLevel = wdOutlineLevelBodyText :QV-!  
         ^mA^7jB  
        .LeftIndent = CentimetersToPoints(0) quPNwNy  
        .RightIndent = CentimetersToPoints(0) 2# y!(D8  
        .FirstLineIndent = CentimetersToPoints(0) L\u6EMyV  
         L93&.d@m9  
        .CharacterUnitLeftIndent = 0 j(|9>J*,~G  
        .CharacterUnitRightIndent = 0 Jbrjt/OG#I  
        .CharacterUnitFirstLineIndent = 0 Pq@%MF]5  
         _RHB ^y;-  
        .LineUnitBefore = 1 cn~M: LW23  
        .LineUnitAfter = 1 u\9t+wi}<  
         */ ~_3  
    End With 6ofi8( n[  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False `?fY!5BA  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll E~y@ue:  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS 4._ U  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True 5A~lu4-q  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese 0A}'@N@G)  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True d 1 8>0R  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete TC%ENxDR  
    DoEvents e{"r3*  
&u@<0 1=  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") eiJ 13`T  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" O"D0+BK79e  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False $ MN1:ih  
    With ActiveDocument.Styles("QLNU英文摘要").Font #:y h2y7a%  
        .NameFarEast = "宋体" EqV]/0-\  
        .NameAscii = "Arial" lLb"><8a  
        .NameOther = "Arial" (rM-~h6g  
        .Name = "Arial" G{ 9p.Q  
        .Size = 12 t%`GXJb  
        .Bold = wdUndefined :Rq>a@Rp  
        .Italic = wdUndefined PSM~10l,  
        .Superscript = wdUndefined m1mA:R\zM  
        .Subscript = wdUndefined sfv{z!mo  
    End With Kn !n}GtR  
     2Bf]#l{z  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat d0Jaa1b~O  
         ?%RN? O(  
        .LineSpacingRule = wdLineSpaceExactly 1+f>tv  
        .LineSpacing = 20 g=T !fF=  
         NR* s7>  
        .Alignment = wdAlignParagraphJustify tS2Orzc>,  
         #@*;Y(9Ol  
        .WidowControl = False |@a.dgz,  
        .KeepWithNext = False q (?%$u.  
        .KeepTogether = False W.fsW<{4j  
        .PageBreakBefore = False c%N8|!e  
        .NoLineNumber = False Vlk]  
         0pYCh$TL1  
        .OutlineLevel = wdOutlineLevelBodyText HX(Z(rcI  
         U0PQ[Y#\  
        .LeftIndent = CentimetersToPoints(0) _|!FhZ  
        .RightIndent = CentimetersToPoints(0) :UMtknV  
        .FirstLineIndent = CentimetersToPoints(0) e B$ S d  
         w*E0f?s  
        .CharacterUnitLeftIndent = 0 {Gd<+tQg  
        .CharacterUnitRightIndent = 0 am$-1+iX  
        .CharacterUnitFirstLineIndent = 2 _.ny<r:g  
         HFr#Ql>g  
        .LineUnitBefore = 0 ]W-7 U_  
        .LineUnitAfter = 1 /Lf+*u>"  
         Z;n b nRz  
    End With ?G48GxJ  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False 23F<f+2S  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll u0)~Im,X  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS 6WN1D W  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False Ax9a5;5WM  
    DoEvents B-@ ]+W  
zj?^,\{A  
    Options.Pagination = True km)5?  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." o:E_k# Fi  
    DoEvents s C/5N  
    ActiveDocument.Repaginate /ynvQ1#uA  
? x*Ve2+]  
End Sub RW#&f*  
$<y10DfO  
Zr&~gXmVS  
杺栫杣杊椌柮栬，䒴蓉艿芖。
回复 引用
举报顶端
伍胥之 离线
级别: 军区司令员

显示用户信息 
101楼  发表于: 2024-12-28   
只看该作者 ┊  小 中 大
姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 ; W/K7}  
\Bg;^6U  
引用
引用第20楼newport93于06-14-2010 13:47发表的  : (-RZ|VdYg  
1@ e22\  
老五，I 服了U。 zfAkWSY  
sd@JQ%O  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 )9^0Qk' ]  
36NENzK  
杺栫杣杊椌柮栬，䒴蓉艿芖。
回复 引用
举报顶端
上一主题下一主题
«3456»Pages: 6/6
 Bay Area Chinese--灣區華人 » 乱讲
描述
快速回复

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