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

显示用户信息 
100楼  发表于: 2021-07-18   
只看该作者 ┊  小 中 大
Dim bContinue As Boolean N LQ".mM+  
#wT6IU1  
Dim regEX As New RegExp xx1lEcj  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 LHx ")H?,  
nu+ ^D$ait  
Dim LastTitle0String As String, LastTitle0No As Long w^zqYGxG)  
Dim LastTitle1String As String, LastTitle1No As Long oV['%Z'  
Dim LastTitle2String As String, LastTitle2No As Long LKI\(%ba#  
Dim LastTitle3String As String, LastTitle3No As Long !%}n9vr!}\  
Dim LastTitle4String As String, LastTitle4No As Long R=a4zVQ  
Dim LastTitle5String As String, LastTitle5No As Long ZY7-.  
Dim LastTabelString As String, LastTableNo As Long e<{ d{  
Dim LastFigureString As String, LastFigureNo As Long ;{ H Dz$  
b==jlYa=  
Dim strSeperator As String  ?(R#  
(x/:j*`K  
Sub ConvertWidth(fTEXT As String, rText As String) p*g)-/mA  
        Selection.Find.ClearFormatting A 0@,^|]  
        Selection.Find.Replacement.ClearFormatting a;KdkykG  
        Selection.Find.Wrap = wdFindContinue l i?@BHEf  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText 8<0P Ssx  
        DoEvents ?[bE/Ya+S  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True ox<&T|  
End Sub <]%6x[  
&d6ud |  
Sub ClearDomain() `WCL-OoZc5  
        With Selection.Find jK/F zD0-  
            .ClearFormatting 9 4H')(  
            .Replacement.ClearFormatting |.RyF@N`T  
            .Wrap = wdFindContinue 4yqYs>  
            Me.txtStatus.Text = "清除所有域代码" $X-PjQb1Bb  
            DoEvents  *p9)5  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False {E(2.'d  
        End With 3B%7SX  
End Sub +J{ErsG?6P  
i)(G0/:  
Private Sub cmdCheck_Click() oDD"h,Z  
    bContinue = True XRkUv>Yk  
    Dim NoSeries1(1 To 16) As String urkuG4cY  
    Dim NoSeries2(1 To 16) As String NBasf n  
    Dim NoSeries5(1 To 16) As String G Wa6FX:/  
    Dim NoSeriesRM(1 To 16) As String f{L;,  
    Dim paraTotal As Long, ParaText As String ;CS[Ja>e  
    Dim ttString As String, ttNo As String 'ParMT  
     1}c /l<d  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long EpRn,[  
SD*q+Si,1U  
    Me.txtStatus.Visible = True ^{IZpT3  
    Me.lbParaType.Visible = True hR0a5   
    Me.cmdCheck.Enabled = False 'l!\2Wv2  
     GTfM *b  
     % X\A|V&  
     Oprfp^L  
     #6#n4`%ER  
    Dim ParaType As String, rText As String @ $5~`?  
     SX'NFd Y  
    Selection.WholeStory 4P)#\$d:  
    Selection.NoProofing = True C[%&;\3S@  
     1 Vc_jYO@  
    tm1 = Now Va.TUz4  
     P}a$#a'!  
        ActiveWindow.View.Type = wdNormalView VFF5 Tp  
     yc9!JJMkH  
    NoSeries1(1) = "一" CDtL.a\  
    NoSeries1(2) = "二" T lyBpG=p  
    NoSeries1(3) = "三" 3t.!5 L  
    NoSeries1(4) = "四" 4?@#w>(  
    NoSeries1(5) = "五" \hI?XnL #  
    NoSeries1(6) = "六" [~|k;\2 +  
    NoSeries1(7) = "七" 2 KHT!ik  
    NoSeries1(8) = "八" ,0AS&xs$  
    NoSeries1(9) = "九" bcT_YFLQ  
    NoSeries1(10) = "十" ami>Pp  
    NoSeries1(11) = "十一" 3  ;F  
    NoSeries1(12) = "十二" ??B!UXi4R  
    NoSeries1(13) = "十三" g8'8"9:xC  
    NoSeries1(14) = "十四" ,)d`_AD+5  
    NoSeries1(15) = "十五" eLh35tw  
    NoSeries1(16) = "十六" `{K-eHlrM9  
     YwY?tOxBe  
    NoSeries2(1) = "㈠" MIkp4A  
    NoSeries2(2) = "㈡" !D{z. KO  
    NoSeries2(3) = "㈢" /@ g 8MUq7  
    NoSeries2(4) = "㈣" L.;x=w  
    NoSeries2(5) = "㈤" ^|vk^`S  
    NoSeries2(6) = "㈥" 6r mx{Bt  
    NoSeries2(7) = "㈦" SfPQ;s'  
    NoSeries2(8) = "㈧" a]P%Y.? r  
    NoSeries2(9) = "㈨" "v wLj:  
    NoSeries2(10) = "㈩" !wd wo0  
     KK >j V  
    NoSeries5(1) = "①" }yrs6pQ  
    NoSeries5(1) = "②" 60%fva  
    NoSeries5(3) = "③" +PsR*T  
    NoSeries5(4) = "④" 8r[TM  
    NoSeries5(5) = "⑤" N lm}'Xt  
    NoSeries5(6) = "⑥" aw lq/  
    NoSeries5(7) = "⑦" !<j4*av:G  
    NoSeries5(8) = "⑧" [];wP '*  
    NoSeries5(9) = "⑨" +,R!el!o~u  
    NoSeries5(10) = "⑩" ,%x2SyA  
     _(gkYJ+MK  
     KLG.?`h:  
    NoSeriesRM(1) = "I" 6A5.n?B{  
    NoSeriesRM(2) = "II" ,Js_d  
    NoSeriesRM(3) = "III" :+QNN<  
    NoSeriesRM(4) = "IV" M^HYkXn[  
    NoSeriesRM(5) = "V" |zfFB7}v  
    NoSeriesRM(6) = "VI" fk?!0M6d  
    NoSeriesRM(7) = "VII" mMZrBz7r  
    NoSeriesRM(8) = "VIII" 7=X6_AD  
    NoSeriesRM(9) = "IX" <W3p!  
    NoSeriesRM(10) = "X" 5M'cOJ  
    NoSeriesRM(11) = "XI" WwnBe"7M  
    NoSeriesRM(12) = "XII" OA9 P"*  
    NoSeriesRM(13) = "XIII" $4ZV(j]  
    NoSeriesRM(14) = "XIV" BHgs,  
    NoSeriesRM(15) = "XV" MTl @#M  
    NoSeriesRM(16) = "XVI" FVP,$  
     =bJ$>Djp  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) &Q"vXs6Gt  
     ,Iz9!i J"  
    If i = vbNo Then 3I}AA.h'00  
        Exit Sub bvZD@F`2  
    End If !~F oy F  
     0)h.[O8@>  
    If Me.chkSuper.Value Then yVn%Bz' [  
        Me.txtStatus.Text = "检查修改所有的上标格式" G.XxlI}  
     `g(#~0R  
        CheckSuperScript [X@{xF^vBQ  
         <bCB-lG*Kb  
    End If x~Z7p)D_<  
     CiHx.5TiC  
    If Me.chkStyle.Value Then 6?US<<MQ  
        Me.txtStatus.Text = "设置样式，请稍候...." qgEzK   
        DoEvents \,p?pL<'  
        CeateOrModifyStyle >a2[P"   
    End If `l?MmIJ  
     GadY#]}(  
     ?XyrG1('  
     %j17QD8  
    ClearDomain #>_fYjT  
         Z \ @9*  
     hF^JSCDz l  
     'CqAjlj  
    If Me.chkLIST.Value Then LR#.xFQ+  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" yCkWuU9  
     r/ATZAgHP  
        ConvertListToOrdinary \J?&XaO=  
    End If 9dszn^]T  
     ^qC.bv]&  
     V?^qW#AG  
    Dim pType As String, trimpTEXT As String `'r]Oe  
    If Me.chkNum.Value = True Then og+Vrd  
        Me.txtStatus.Text = "转换全角数字形式为半角" 3kGg;z6  
        ConvertWidth "１", "1" ?Y\WSI?i  
        DoEvents }mZCQJ#`  
        ConvertWidth "２", "2" Jr2>D=  
        DoEvents .uX(-8n ~  
        ConvertWidth "３", "3" 6z~ [Ay  
        DoEvents "tk1W>liIN  
        ConvertWidth "４", "4" (kK8 OxfF  
        DoEvents }*-fh$QJ  
        ConvertWidth "５", "5" ;{iTS sb  
        DoEvents f]Aa$\@b  
        ConvertWidth "６", "6" Mx93D   
        DoEvents I hSXU<]  
        ConvertWidth "７", "7" d^IX(y*$  
        DoEvents $`0^E#Nl  
        ConvertWidth "８", "8" x?0(K=h,  
        DoEvents 3#udz C  
        ConvertWidth "９", "9" xk8 NX-:  
        DoEvents PeEaF@#k  
        ConvertWidth "０", "0" e>!]_B1ad  
        DoEvents ]+qd|}^  
        ConvertWidth "ａ", "a" |yOIC,5[JW  
        DoEvents ;VCFDE{K=  
        ConvertWidth "ｂ", "b" Fgwe`[  
        DoEvents y}U'8*,  
        ConvertWidth "ｃ", "c" x3 Fn'+  
        DoEvents (1er?4  
        ConvertWidth "ｄ", "d" VOATza`  
        DoEvents loq2+(  
        ConvertWidth "ｅ", "e" ' t(#HBU  
        DoEvents KU+u.J  
        ConvertWidth "ｆ", "f" *}(B"FSO  
        DoEvents 5f@&XwD9  
        ConvertWidth "ｇ", "g" d@Bd*iI<  
        DoEvents 'S v V10$5  
        ConvertWidth "ｈ", "h" 4^Ks!S>K{8  
        DoEvents }Sh@.3*  
        ConvertWidth "ｉ", "i" X&49C:jN  
        DoEvents g;o5m }  
        ConvertWidth "ｊ", "j" #gf0*:p  
        DoEvents cqZ lpm$c  
        ConvertWidth "ｋ", "k" bccf4EyQ Y  
        DoEvents u,YmCEd_V  
        ConvertWidth "ｌ", "l" <Z]j89wzDZ  
        DoEvents n^G[N-\3  
        ConvertWidth "ｍ", "m" $'*{&/@  
        DoEvents | z}VP-L  
        ConvertWidth "ｎ", "n" 0_^3 |n  
        ConvertWidth "ｏ", "o" 5|bfrc  
        ConvertWidth "ｐ", "p" UY.o,I> s  
        ConvertWidth "ｑ", "q" NgxJz ]b  
        ConvertWidth "ｒ", "r" 9K&YHg:1  
        ConvertWidth "ｓ", "s" @frV:%  
        ConvertWidth "ｔ", "t" UAI'tRY N_  
        ConvertWidth "ｕ", "u" |N^8zo :  
        ConvertWidth "ｖ", "v" 5PpS/I:on  
        ConvertWidth "ｗ", "w" ee Bw\f0  
        ConvertWidth "ｘ", "x" %_5?/H@%3z  
        ConvertWidth "ｙ", "y" jM{5nRQ  
        ConvertWidth "ｚ", "z" !]7L9TGn  
        ConvertWidth "Ａ", "A" a{By U%  
        ConvertWidth "Ｂ", "B" @Y9tkJIt  
        ConvertWidth "Ｃ", "C" @WKJ7pt`'N  
        ConvertWidth "Ｄ", "D" 0H'G./8  
        ConvertWidth "Ｅ", "E" 9Z 6  
        ConvertWidth "Ｆ", "F" r:U<cL T[9  
        ConvertWidth "Ｇ", "G" cZ.p  
        ConvertWidth "Ｈ", "H" pF~aR]Q  
        ConvertWidth "Ｉ", "I" Ve"M8-{oKk  
        ConvertWidth "Ｊ", "J" 0Y~5|OXJ  
        ConvertWidth "Ｋ", "K" R >[G6LOG  
        ConvertWidth "Ｌ", "L" XK0lv 8(  
        ConvertWidth "Ｍ", "M" }b<w\9AF  
        ConvertWidth "Ｎ", "N" G&6`?1k  
        ConvertWidth "Ｏ", "O" +H? XqSC  
        ConvertWidth "Ｐ", "P" {t'SA]|g  
        ConvertWidth "Ｑ", "Q" K7qR  
        ConvertWidth "Ｒ", "R" KmD#Ia  
        ConvertWidth "Ｓ", "S" h2+"e# _  
        ConvertWidth "Ｔ", "T" Y|-&=  
        ConvertWidth "Ｕ", "U" %|2x7@&s  
        ConvertWidth "Ｖ", "V" ,MLAW  
        ConvertWidth "Ｗ", "W" /(s N@kt  
        ConvertWidth "Ｘ", "X" [NGq$5  
        ConvertWidth "Ｙ", "Y" 4*q6#=G  
        ConvertWidth "Ｚ", "Z" Qq.Ja%Zq  
        ConvertWidth "^l", "^p" [-)BI|S:  
        ConvertWidth "（", "(" d.U"lP/)D  
        ConvertWidth "）", ")" uD4W@*PYr  
     vhU $GG8  
    End If  ? EhIK  
-7I %^u  
    With ActiveDocument 56Lt "Z F  
        Dim tbl As Table KC<K*UHPAH  
        For Each tbl In .Tables 'J0Ea\,if0  
            tbl.Rows.Alignment = wdAlignRowCenter $O;a~/T  
            tbl.Range.Font.NameFarEast = "楷体" 8)f/H&)>8  
            tbl.Range.Font.NameAscii = "Times New Roman" `[_p,,}Ir  
            tbl.Range.Font.Size = 10.5 3?&P^{  
        Next =| r% lx  
        Set tbl = Nothing ,;h}<("q  
    End With lj *=bK  
     v+d`J 55  
     b^P\Kky  
    With ActiveDocument ~>%% kQt  
         Djp;\.$(  
        For i = 1 To .TablesOfContents.Count )o::~ eu  
            .TablesOfContents(i).Delete >(Wt  
        Next niPqzi  
         0SZ:C(]  
         6*tky;  
         Z+FhI^  
        paraTotal = .Paragraphs.Count }qhND-9#@  
        paraCounter = 1 \ tU[,3  
         ,nniSG((3  
        LastTitle0No = 0 "@xL9[d  
        LastTitle1No = 0 2.a{,d  
        LastTitle2No = 0 a7z% )i;Z  
        LastTitle3No = 0 %W2 o`W$  
        LastTitle4No = 0 #J$z0%P  
        LastTableNo = 0 BDi+ *8  
        LastFigureNo = 0 jyRz53  
         ~\O,#j`_  
        Dim Sec As Long wFL7JwK:G  
         c8o2* C$  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) $|19]3T@Z  
        If Sec = 0 Then s*e1m%  
            Exit Sub H ;HFen|  
        End If lp1GK/!s  
         <+<,$jGC-  
        k = 0 6ZC~q=my  
        Do While (paraCounter < paraTotal) And bContinue #<w2xR]:  
            k = k + 1 \Dx)P[Ur  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then Oh7wyQiV  
                Exit Do gYw=Z_z  
            End If $j0<ef!  
            paraCounter = paraCounter + 1 (6)X Fp&  
            If k Mod 20 = 0 Then ]rO/IuB  
                Me.lbCounter.Caption = paraCounter Q6PMRG}/o  
                DoEvents XE:bYzH  
            End If 7C@m(oK  
        Loop 1L _(n  
         -wnBdL  
         _E^ !, Wz  
        Do While (paraCounter < paraTotal) And bContinue +L=a\8Ep  
             mGUG  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) P[P]oT.N  
            ShapeHeight = 0  1W>0  
            ShapeWidth = 0 g`H;~ w  
           |f[:mO   
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth l27J  
             2&<&q J  
            Select Case ParaType B!1L W4^  
                Case "【】表格内容" - SCFWc  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" `{nzw$  
                Case "章" M9(Kxux#  
                    LastTitle0No = LastTitle0No + 1 4+N9 Ylh  
                    '新一章开始，复位其下属标题编号 Vf$q3X  
                    LastTitle1No = 0 T FK#ign  
                    LastTitle2No = 0 &WVRh=R  
                    LastTitle3No = 0 69``j{Z+  
                    LastTitle4No = 0 ^F+7@*u  
                     )dRB I)P  
                    k = Val(ttNo) 'R n\CMTH  
                    If k = 0 Then '非数字编号章节 6"o@d8>v  
                        If ttNo <> NoSeries1(LastTitle0No) Then };~I#X  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString \. `{nq  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText )KN]"<jB  
                        End If \r\wqz7  
                    Else  11-?M  
                        If Val(ttNo) <> LastTitle0No Then hJoh5DIE95  
                            rText = "第" & LastTitle0No & ttString aw1 f;&K4  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText n!?u/ [@  
                        End If ^ Mq8jw(2  
                         $4>x4*  
                    End If )m10IyUAY  
                     212  
                    '章段落设置 dYp} R>+  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 ']>/$[!  
                    .Paragraphs(paraCounter).Style = "QLNU章节" %uy?@e  
                    .Paragraphs(paraCounter).Range.Select N8`q.;qewz  
                    Selection.EndKey unit:=wdLine 2,'%G\QT  
                    tc = Replace(rText, vbCr, "") X0]5I0YP  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False ^cI RP  
                Case "一级标题" frbeCBP&)  
                    LastTitle1No = LastTitle1No + 1 vsbD>`I  
                    '新一级标题开始，复位其下属标题编号 g;</|Z  
                    LastTitle2No = 0 m^1'aO_;q  
                    LastTitle3No = 0 &jF[f4:7  
                    LastTitle4No = 0 {9h`h08?z  
                     .:TSdusr~  
                    If ttNo <> NoSeries1(LastTitle1No) Then wB%;O`Oh  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString  \.MPjD  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText 2NWQiSz  
                    End If y6Ea_v  
                   od]1:8OF  
                     h_xzqElZu  
                    '一级标题段落设置  格式：一、标题内容 FmtV[C #  
                    .Paragraphs(paraCounter).Range.Text = rText 20BU;D3  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" q<Wz9lDMNR  
                    .Paragraphs(paraCounter).Range.Select 7V;wCm#b  
                    Selection.EndKey unit:=wdLine c8qwsp  
                    tc = Replace(rText, vbCr, "") h1QrFPQnu  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False 0/b3]{skK  
                Case "二级标题" bqm%@*fZo  
                    LastTitle2No = LastTitle2No + 1 _n!W4zwi  
                    '新二级标题开始，复位其下属标题编号 ]iH~ 1[  
                    LastTitle3No = 0 [hKt4]R  
                    LastTitle4No = 0 G/_9!lE  
                     .OvH<%g!.  
                    If ttNo <> NoSeries1(LastTitle2No) Then [kPF Jf  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString 95BRZ!ts  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText JO|xX<#:  
                    End If {'q(a4  
                     T2MXwd&l  
                    '二级标题段落设置 格式：(一)、标题内容 j{H,{x  
                    .Paragraphs(paraCounter).Range.Text = rText r[kmgPld  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" .Gnzu"lod  
                     aumM\rY  
                    .Paragraphs(paraCounter).Range.Select 4mw Ao  
                    Selection.EndKey unit:=wdLine 1H7 bPl|  
                    tc = Replace(rText, vbCr, "") [O^mG 9  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False P&9&/0r=_  
                 d?1[xv;  
                Case "三级标题" Gq;!g(  
                    LastTitle3No = LastTitle3No + 1 PQ4)kVT  
                    '新三级标题开始，复位其下属标题编号 |F52)< \  
                    LastTitle4No = 0 e4Jx%v?_P  
                     Q`(h  
                    If Val(ttNo) <> LastTitle3No Then OC_i,  
                            rText = LastTitle3No & ". " & ttString Gbc2\A\  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText A&qZ:&(OM  
                         +dF/$+t  
                    End If :pg]0X;  
                    '三级标题段落设置 格式：1. 标题内容 IM&l%6[).  
                    .Paragraphs(paraCounter).Range.Text = rText oa8xuFu(n  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" a3E.rr;b  
                    .Paragraphs(paraCounter).Range.Select \PgMMc4'  
                    Selection.EndKey unit:=wdLine Q`[J3-Q*{  
                    tc = Replace(rText, vbCr, "") G}gmkp]z  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False |C.[eHe&D  
                Case "四级标题" TWo.c _l  
                    LastTitle4No = LastTitle4No + 1 OmC F8:\/  
                     B-EDVMu  
                    If Val(ttNo) <> LastTitle4No Then )W$@phY(I  
                            rText = "(" & LastTitle4No & "). " & ttString Uk= L?t  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText {&s.*5  
                     E|omC_h  
                    End If f!+G1z}iA  
                    '四级标题段落设置 格式：(1). 标题内容 >`D$Jz,  
                    .Paragraphs(paraCounter).Range.Text = rText XiN@$  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" e:zuP.R  
                    .Paragraphs(paraCounter).Range.Select >Gi* BB  
                    Selection.EndKey unit:=wdLine s<fzk1LZ  
                    tc = Replace(rText, vbCr, "") y,vrM WDy  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False aj@<4A=;  
                 ttA0* >'  
                Case "表格标题" ? EXYLG  
                    LastTableNo = LastTableNo + 1 ~ZZJ/Cu  
                     SOo}}a0  
                    If ttNo <> CStr(LastTableNo) Then *WZ?C|6+  
                            rText = "表" & LastTableNo & ". " & ttString Vh5Z'4N  
                            ErrMsg.AddItem "表格编号错误：" & ParaText "}jv5j5  
                   Tn(c%ytN  
                    End If g)Dg=3+ >  
                     nM6/c  
                    '表格名称段落设置 格式：表1. 表格名称 V75P@jv5J  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" ZH8Oidj`  
                    xe = Replace(rText, vbCr, "") E|hW{oX3  
                    .Paragraphs(paraCounter).Range.Select eU m,=s  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 &{H LYxh   
                    Selection.Range.Text = xe Y8%*S%yO  
                    Selection.EndKey dI$M9;  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False _16IP  
                 bf-V Q7  
                Case "表格首行" Q a8;MxK`  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" g0-J8&?X  
                Case "图片标题" ,lr\XhO  
                    LastFigureNo = LastFigureNo + 1 b;Uqyc  
                     r@]iy78 j  
                    If ttNo <> CStr(LastFigureNo) Then b0!ZA/YC-  
                            rText = "图" & LastFigureNo & ". " & ttString ":,J<|Oy  
                            ErrMsg.AddItem "表格编号错误：" & ParaText I 7s}{pG  
                   L&h90Az1W  
                    End If /;a b"b  
                    '图片名称段落设置 格式：图1. 图名称 Vrx3%_NkQ  
                    .Paragraphs(paraCounter).Range.Text = rText )0p7d:%mV  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" a) 5;Od  
                    .Paragraphs(paraCounter).Range.Select t {RdqAF  
                    Selection.EndKey unit:=wdLine eJ tfQ@?  
                    xe = Replace(rText, vbCr, "") sj\kp ni  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False x#,nR]C  
                Case "正文" p}O[A`  
                     '正文名称段落设置 !_#2$J*s^D  
                    .Paragraphs(paraCounter).Style = "QLNU正文" a  C<  
               Case "文献条目" \S` |7JYW  
                    With .Paragraphs(paraCounter) 2C_/T8  
                        '.Range.Select B_#U|10et  
                        'Selection.ClearFormatting %:hU:+G E  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” ^Y- S"Ks  
                        .Style = "QLNU参考文献" %P tdFz$  
                    End With ?wYvBFRn7"  
               Case "图表注解" 0z:BSdno  
                    With .Paragraphs(paraCounter) \rY<DxtOq  
                        .Range.Font.NameFarEast = "楷体" M~t;&po  
                        .Range.Font.NameAscii = "Times New Roman" v'H\KR-;  
                        .Range.Font.Size = 9 '小5号字 ^TCgSi7k`L  
                         >pq= .)X}  
                        .Alignment = wdAlignParagraphCenter m03]SF(#3  
                        .LeftIndent = 0 g6 Nw].{  
                        .RightIndent = 0 x;p7n 2_  
                        .FirstLineIndent = 0 52>,JHq  
                        .LineSpacing = 12 leo mm+f^  
                        .LineSpacingRule = wdLineSpaceExactly E{B=%ZNnm  
                        .LineUnitAfter = 0 z9 )I@P"  
                        .LineUnitBefore = 0 =%+o4\N,  
                        .OutlineLevel = wdOutlineLevelBodyText Ec;{N  
                        .PageBreakBefore = False U|}Bk/0.  
                        .RightIndent = 0 1feS/l$  
                        .WordWrap = True :r,o-D  
                        .LineUnitAfter = 0.5 @Ap~Wok  
                         >@wyiBU  
                    End With q]>m#yk   
                Case Else EAi!"NJ  
                    '不作处理 VwxLElV  
            End Select @#= ail  
             VQ((c:+!  
            '含有inlineshape的段落处理 wc.T;(  
            If ShapeHeight > 30 Then 1pT-PO 3=  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 VL O !hA#  
            End If ! Al?B9KJ  
             8O0E;6b  
            If (ShapeWidth + ShapeHeight) > 150 Then Y] "_}  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" .S =^)  
            End If NT}r6V(Aju  
             ^wm>\o;  
            '段落计数器递 7 G<v<&  
            paraCounter = paraCounter + 1 :M'V**A(  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter re;^,  
            Me.txtStatus.Text = ParaText $^;b 1bnO  
            DoEvents $X%'je  
        Loop Q1 ?09  
    End With ui$JQ_P  
     ~i ImM|*0  
    msg = "" Az"(I>VfD  
     H^N 5yOj/  
    For i = 0 To Me.ErrMsg.ListCount - 1 ,Kw]V %xOb  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) S LSbEm  
    Next vsL)E:0  
     2AK]x`GY  
     6 (@U+`  
     lyY i2& %  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg 4OOH 3O  
    Me.cmdCheck.Enabled = True bQFMg41*w7  
    Me.txtStatus.Visible = True mz kv/  
    Me.lbParaType.Visible = False ;)nV  
     JTn\NSa  
    bContinue = False <>tQa5;  
End Sub ollk {N  
bO2s'!x  
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) X[{tD#  
    Dim pTEXT As String A:-r 2;xB  
     ]~H\X":[>  
    pTEXT = ChKRange.Text 7@*l2edXm+  
     G^Q8B^Lg  
    ParaType = "其它" |0e7<[  
    TitleString = pTEXT UZ` <D/  
    TitleNo = "N/A" X|iWnz+^  
     gZLzE*NZ  
    shpCounter = ChKRange.InlineShapes.Count 1ehl=WN  
    If shpCounter <> 0 Then @CJ`T&  
        MaxShpHeight = 0: TotalShpWidth = 0 |JD"iP:  
        For i = 1 To shpCounter sa26u`?  
            k = ChKRange.InlineShapes(i).Height V`/D!8>  
            l = ChKRange.InlineShapes(i).Width ]gHi5]\NC  
            If k > MaxShpHeight Then '**dD2 n  
                MaxShpHeight = k 2y0J~P!I  
            End If [%`L sY  
            TotalShpWidth = TotalShpWidth + l QFS5PZ  
        Next !QTfQ69Y0  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then byW9]('e  
            Exit Sub [)E.T,fjMQ  
        End If 2GRdfX  
    End If fI([vI  
     wxx3']:  
    '空行 |)pRkn8x  
    If Len(pTEXT) <= 2 Then 2a 3RRP  
        Exit Sub zj9)vr`7  
    End If ^OWA   
     yaD_c;  
         ,fa'  
    '是否为表格中的文字 tDk!]  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then 3r]:k) J  
        ParaType = "表格内容" }KZt7)  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) ^UEExj f  
        If k = 1 Then SL O~   
            ParaType = "表格首行" 2sryhS'(H  
        End If "7&DuF$s)  
        Exit Sub  9AgTrP  
    End If !8 V  
     m\hzQ9  
    '例外情况：脚注 V{ yP/X  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then L~u@n24  
        ParaType = "脚注" hhU: nw  
        Exit Sub :4V8Iz 71  
    End If X5hamkM*m  
     wcI? .  
    '例外情况：尾注 >A RZ=x[  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then D; bHX  
        ParaType = "尾注" C=&rPUX{  
        Exit Sub 8 o SNnT  
    End If 7i$)iNW  
     (WISf}[l;  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then # !i&  
        ParaType = "页眉页脚" OdrnPo{  
        Exit Sub knsTy0]  
    End If \=yWJ  
     UbnX%2TW  
     Mt93YD-2+  
    With regEX &# ?2zbZ  
        .Global = True <V~B8C!)  
         R;]z/|8  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" h'tb  
        If regEX.Test(pTEXT) Then $k,wA8OZ-  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") A./ VO  
            TitleString = regEX.Replace(pTEXT, "$3") ?E*;fDEC  
            TitleNo = regEX.Replace(pTEXT, "$1") 5S EyAhB  
            ParaType = "章" 1#D&cx6  
            Exit Sub 7%Q?BH7{  
        End If nN]GO}  
         Us.")GiHE  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" Sz_{#-  
        If regEX.Test(pTEXT) Then w I7iE4\vz  
            ParaType = "一级标题" L xg,BZV  
            regEX.Execute (pTEXT) o;zU;pkB  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") NZTG)<  
            TitleString = regEX.Replace(pTEXT, "$3") -*<4 hFb  
            TitleNo = regEX.Replace(pTEXT, "$1") s6k@WT?"^  
            Exit Sub }^@Q9<P^E  
        End If 5(+PI KCjC  
         uSl&d  
        '全角或半角括号中的数字 IOjp'6Yr  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" fVXZfq6  
        If regEX.Test(pTEXT) Then YXi'^GU@  
            ParaType = "二级标题"  `u 't  
            regEX.Execute (pTEXT) bl8EzO  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") %tOGs80_{  
            TitleString = regEX.Replace(pTEXT, "$5") ^]cl:m=*  
            TitleNo = regEX.Replace(pTEXT, "$2") `Pcbc\"*y  
            Exit Sub WP5QA8`3  
        End If T{"[Ih3Mbl  
         x/B1\U I  
        '阿拉伯数字  1. 2. e` QniTkT  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" Oe/&Ryj=mm  
        If regEX.Test(pTEXT) Then 4Ucs9w3[  
            ParaType = "三级标题" Vx<`6uv  
            regEX.Execute (pTEXT) |}-bMQ|  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 e}u68|\EC  
            TitleString = regEX.Replace(pTEXT, "$3") $\w<.)"#  
            TitleNo = regEX.Replace(pTEXT, "$1") ,Hzz:ce  
            Exit Sub zJ=lNb?q  
        End If L/Ytkag  
         .S{FEV  
        '全角或半角括号中的阿拉伯数字 +&*D7A>~p  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" q9h 3/uTv  
        If regEX.Test(pTEXT) Then J_|LG rt})  
            ParaType = "四级标题" Tx19\\r  
            regEX.Execute (pTEXT) !<8-juY  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") 2YbI."o b  
            TitleString = regEX.Replace(pTEXT, "$5") <?>1eU%  
            TitleNo = regEX.Replace(pTEXT, "$2") _&wrA3@/L  
            Exit Sub O)jpnNz  
        End If 9*&c2jh  
         [B,w\PLub  
        '表格名称 +I$,Y~&`>  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" [XKudw%  
        If regEX.Test(pTEXT) Then +QZ}c@'r  
            ParaType = "表格标题" ^vHh*Ub  
            regEX.Execute (pTEXT) nr{#Krkb  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) ^7Hwpn7E  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) ~O c:b>~  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) 0ap_tCY  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 IW{}l=D/  
            Exit Sub cs]h+yE  
        End If cEK<CV  
         h b.^ &  
        '图片名称 2A95vC'u>|  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" F{*h~7D-|  
        If regEX.Test(pTEXT) Then \`:nmFO(9  
            ParaType = "图片标题" %A$5mi^  
            regEX.Execute (pTEXT) &}y?Lt  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") F4*ssx  
            TitleString = regEX.Replace(pTEXT, "$3") X3dXRDB'  
            TitleNo = regEX.Replace(pTEXT, "$1") 7G \a5  
            Exit Sub 1o8C4?T&  
        End If E xls_oSp  
         #lY_ XV.  
        '参考文献 Hh1]\4D,4  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 7K 'uNPC  
        If regEX.Test(pTEXT) Then q?* z<)#  
            ParaType = "文献条目" [ X%Wg:K  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") N8E  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") QhJuH_f 0  
            Exit Sub KL<,avC/  
        End If 3-PqUJT$   
         J85S'cwZZ  
        prfx = Left(pTEXT, 2) D^Gs_z$['  
        If prfx = "注：" Or prfx = "注:" Then 2bnYYQ14 :  
            ParaType = "图表注解" -\9K'8 C  
            Exit Sub  3cA '9  
        End If # E{2 !Z  
         `w_%HVw>"  
         x##0s5Qn  
        ParaType = "正文" A/c#2  
         1VR|z  
    End With 1s_N!a  
End Sub Pxvf"SXX  
T\wfYuc&X  
Sub ConvertListToOrdinary() 0#S#v2r5  
    Dim st As Paragraph N;q)r  
    With ActiveDocument +Zg@X.z  
        For i = .Paragraphs.Count To 1 Step -1 x>bGxDtu*  
            Set st = .Paragraphs(i) Bc*FH>E  
            lst = st.Range.ListFormat.ListString 6KRC_-  
            If lst <> "" Then WbWEgd%8.  
                st.Range.ListFormat.RemoveNumbers Tpd|+60g  
                st.Range.InsertBefore lst & " " WqJrDj~  
            End If t+ vz=`  
        Next 4~K%,K+Du  
    End With ! }>CEE  
    Set st = Nothing W5Uw=!LdEY  
End Sub 0sA+5*md M  
FX1H2N(  
Private Sub UserForm_Activate() `PUGg[Zx^  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" ;I/ A8<C  
    Me.lbTotal.Font.Bold = True (uVL!%61k  
    Me.txtStatus.Visible = False W>j@E|m$  
    Me.cmdCheck.Enabled = True dJjkH6%}  
_M) G  
End Sub L"tzUYxg  
|Zk2]eUO+  
b]b+PK*h  
Sub CheckSuperScript() eev-";c  
    Selection.Find.ClearFormatting )kT.3 Q  
    Selection.Find.Replacement.ClearFormatting AnK~<9WQj  
    With Selection.Find %6W%-`  
        .Text = "[【\[［〖](*)[】\]〗］]" 7tP%tp ez  
        .Replacement.Text = "[\1]" dSI<s^n  
        .Replacement.Font.Superscript = True ictV7)  
        '.Replacement.Font.Color = wdColorBlue Ii&\LJ  
        .Forward = True eBWgAf. k  
        .Wrap = wdFindContinue #M)+sK$H%f  
        .FORMAT = True yu>o7ie+;Y  
        .MatchCase = False ;Rljx3!N  
        .MatchWholeWord = False mIZ6[ ?  
        .MatchByte = False *>h|<|T'  
        .MatchAllWordForms = False \2^o,1r/  
        .MatchSoundsLike = False Gsu?m  
        .MatchWildcards = True |[)n.N65 =  
    End With SU5O+;{`'  
    Selection.Find.Execute Replace:=wdReplaceAll Am!OLGG4  
End Sub v&qL r+_7  
5HaI$>h6  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) t$e'[;w  
    bContinue = False ifcp!l+8  
    Set regEX = Nothing Y$5uoq%p3A  
End Sub +ag_w}  
 b]gVZ-  
Sub CeateOrModifyStyle() aD+4uGN  
' bE;c&g  
' hXh nJ  
Dim stl As Style Fs3 :NH  
     4a=QTq0p  
    Options.Pagination = False bd\%K`JQ{  
     bXi!_'z$  
    On Error Resume Next FP'-=zgc  
    For Each stl In ActiveDocument.Styles G}Ko*:fWS  
        stl.Delete 1,(WS F  
    Next br X[-  
    On Error GoTo 0 hv`I`[/J  
     bq2f?uD-}  
    Set stl = Nothing v5\5:b {/  
     3$_JNF`  
    DoEvents TM5 Y(Q*  
    On Error Resume Next :,ucJ|  
     MD^,"!A  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph  P1R5}i  
     U=WS ]  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph M@z_tR'3\  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph LS$zA>:  
     j5[Y0)pV\  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph unih"};ou  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph 2?{'(i ay  
     jU-aa+  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph CTS1."kx1  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph >xXC=z+g]  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph !zfKj0^  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph RGL2S]UFs  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph 8 iTB  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph iB|htH'T  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph c'>_JlG~  
     uBl&{$<  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph /9=r.Vxh  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph & 'CUc/,  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph Wu"1M^a  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph J&iSS9c  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph THlQifA!  
     ?rjB9AC_;t  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph  W7. +  
    On Error GoTo 0 c5_/i7  
    DoEvents f92z/5%V  
     /xSFW7d1  
    'BaseStyle ?N(<w?Gat  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False 2qot(Zs1i  
    With ActiveDocument.Styles("BaseStyle").Font 3RanAT.nu:  
        .NameFarEast = "宋体" F{4v[WP)  
        .NameAscii = "Times New Roman" Re2&qxE  
        .NameOther = "宋体" Z5 p [*LMO  
        .Size = 10.5 !S%0#d2  
        .Bold = wdUndefined tpb lm|sW  
        .Italic = wdUndefined zW\s{  
        .Subscript = wdUndefined inFS99DKx  
        .Subscript = wdUndefined !6l*Jc3  
         Gr4v&Mz:  
        .Underline = wdUnderlineNone qW`?,N)r  
        .UnderlineColor = wdColorAutomatic Ze[,0Y!u&  
        .StrikeThrough = False 9Z21|5  
        .DoubleStrikeThrough = False `{|w*)mD  
         >C19Kie72  
        .Outline = False {-lpYD^k3  
        .Emboss = False VEpcCK  
        .Shadow = False 'J$@~P  
        .Hidden = False }i{qRx"4  
        .SmallCaps = False Y]7503J  
        .AllCaps = False eyuyaSE  
        .Color = wdColorAutomatic zu.B>INe  
        .Engrave = False ^|SiqE  
        .Scaling = 100 vz~Oi  
        .Kerning = 1 1_b*j-j  
        .Animation = wdAnimationNone j XH9P q4  
        .DisableCharacterSpaceGrid = False Mg2e0}{  
        .EmphasisMark = wdEmphasisMarkNone $H)Q UFyC  
    End With i)'tt9f$  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat 1BEs> Sm  
        .LeftIndent = 0 )t KS ooW  
        .RightIndent = 0 J?dLI_{ <  
        .SpaceBefore = 0 8ok=&Gq4  
        .SpaceBeforeAuto = False 4BSqL!i(  
        .SpaceAfter = 0 x0b=r!Duu  
        .SpaceAfterAuto = False )o<^6Ic%7  
         P@keg*5@  
        .LineSpacingRule = wdLineSpaceSingle E#\Oe_eq~N  
        .Alignment = wdAlignParagraphJustify tXqX[Td`0g  
         lWe cxD$  
        .WidowControl = False jo^c> ur  
        .KeepWithNext = False "X^<g{]  
        .KeepTogether = False KIi:5Y  
        .PageBreakBefore = False c6lCF &  
        .NoLineNumber = False J&s$Wqf  
         y%X! l(gQ  
        .FirstLineIndent = CentimetersToPoints(0) op\$(7<d-  
        .OutlineLevel = wdOutlineLevelBodyText O5aXa_A_u  
        .CharacterUnitLeftIndent = 0 %ioVNbrR7  
        .CharacterUnitRightIndent = 0 NYr)=&)Ke.  
        .CharacterUnitFirstLineIndent = 0 ? 3OfiGX?  
        .LineUnitBefore = 0 0QT:@v2R  
        .LineUnitAfter = 0 zPx R=0|  
        .AutoAdjustRightIndent = True _-lE$ O  
        .DisableLineHeightGrid = True tRpY+s~Fq  
         |g.CS$'#Nt  
        .FarEastLineBreakControl = True x\U[5d   
        .WordWrap = True w|6/i/X  
        .Hyphenation = False NhCucSU<K  
         tfN[- 3)Z  
        .HangingPunctuation = True !6 L!%Oi  
        .HalfWidthPunctuationOnTopOfLine = True ?].MnwYo  
        .AddSpaceBetweenFarEastAndAlpha = True 'Y#'ozSQv  
        .AddSpaceBetweenFarEastAndDigit = True |? #JCG  
        .BaseLineAlignment = wdBaselineAlignBaseline p<{P#?4 g  
    End With @,n)1*{P  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False N[e,%heR  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll MqB@}!  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese gHp*QL\?9  
    ActiveDocument.Styles("BaseStyle").NoProofing = False tj'~RQvO  
     bD0l^?Hu!  
    '一级标题题样式 ,f2oO?L}  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 1C8xJ6F  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" [8a(4]4  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False . }/8 ]  
    With ActiveDocument.Styles("QLNU一级标题").Font 0F@~[W|2  
        .NameFarEast = "黑体" |$b8(g$s)  
        .NameAscii = "Arial Black" (jA5 `4>u  
        .NameOther = "黑体" _FYA? d}  
        .Name = "黑体" '.1P\>x!]  
        .Size = 16              '三号 Z3weFbCH  
        .Bold = True mf3,V|>[\  
        .Italic = wdUndefined In^mE(8YO  
        .Subscript = wdUndefined $TmEVC^ 0  
        .Superscript = wdUndefined 5h&sdzfG  
    End With NJQ)Ttt  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat o0]YDX@T  
         AU3Rz&~  
        .LeftIndent = CentimetersToPoints(0) aTTkj\4  
        .RightIndent = CentimetersToPoints(0) KCW2 UyE]  
        .FirstLineIndent = CentimetersToPoints(0) 2t9UJu4  
         50QDqC-]XS  
        .LineSpacingRule = wdLineSpaceSingle 4hy -M>!D|  
        .Alignment = wdAlignParagraphCenter **L&I5Hhm  
         0-S.G38{  
        .WidowControl = True |67Jw2  
        .KeepWithNext = True jwT` Z  
        .KeepTogether = True NX,m6u  
        .OutlineLevel = wdOutlineLevelBodyText zQ |2D*W  
         .@E5dw5  
        .LineUnitBefore = 0.5 jkx>o?s)z  
        .LineUnitAfter = 0.5 J?w_DQa  
    End With fJ[ ^_,O  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False Ig t*8px  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll 3fhY+$tq  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese Cd_@<  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True @k&6\1/U  
    DoEvents +7}^Y}(  
     9gcW;  
    '二级 $j.;$~F  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") Jgv Mx  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" ["<Xh0_  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False A{ ~D_q  
    With ActiveDocument.Styles("QLNU二级标题").Font V!+iq*Z|=  
        .NameFarEast = "黑体" 8Y.q P"s  
        .NameAscii = "Arial Narrow" }[;ZZm?  
        .NameOther = "黑体" oj - `G  
        .Name = "黑体" ea"X$ <s>-  
        .Size = 15        '小三号 hHN[K  
        .Bold = False S(Afo`  
        .Outline = False pE&G]ZC  
        .Italic = wdUndefined 'RV96lX<  
        .Subscript = wdUndefined qC> tni%  
        .Superscript = wdUndefined pOXI*0_g.  
    End With q* p  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat Yi%lWbr  
        .LeftIndent = CentimetersToPoints(0) x[)-h/&Fh  
        .RightIndent = CentimetersToPoints(0) }bv+^#  
        .FirstLineIndent = CentimetersToPoints(0) <Z:FY|'s  
         SjB"#E)  
        .LineSpacingRule = wdLineSpaceSingle (s,&,I=@  
        .Alignment = wdAlignParagraphLeft @  W>@6E  
         1H-Y3G>jN  
        .WidowControl = True l.o/H|  
        .KeepWithNext = True 5[jcw`  
        .KeepTogether = True Ks P2./N  
        .PageBreakBefore = False Dj(PH3^  
        .OutlineLevel = wdOutlineLevelBodyText N:)x67,  
         Tse#{  
        .LineUnitBefore = 0.5 j|[rT^b@  
        .LineUnitAfter = 0.5 <#h,_WP*  
         7P+1W \  
    End With SYY x>1;8`  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False ZPmqoR[  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll xrPZy*Y,  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese QQS*r}>  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True `FPQOa*%3  
    DoEvents -/pz3n  
     qU !dg  
    '三级标题样式 fA6IW(_bi  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") G0UaE1n  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" %xlpOR4  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False \Nt 5TG_  
    With ActiveDocument.Styles("QLNU三级标题").Font 4{YA['  
        .NameFarEast = "宋体" E+lR&~mK=  
        .NameAscii = "Times New Roman" Nn[*ox#i  
        .NameOther = "黑体" k9}8xpH  
        .Name = "黑体" >+a\BK"k  
        .Size = 14               '四号 v1,#7s AW'  
        .Bold = False ik(Du/  
        .Outline = False 9jTBLp-i#N  
        .Italic = wdUndefined TRGpE9i  
        .Subscript = wdUndefined t2o{=!$WH  
        .Superscript = wdUndefined wuH*a3(  
    End With x#EE_i/W  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat 'z. GAR  
        .LeftIndent = CentimetersToPoints(0) MW 7~=T  
        .RightIndent = CentimetersToPoints(0) 6kH6"  
        .FirstLineIndent = CentimetersToPoints(0) x"Ky_P~  
         !0,q[|m  
        .LineSpacingRule = wdLineSpaceSingle ^YLC{V  
        .Alignment = wdAlignParagraphLeft ~a ([e\~  
         >K9Ia4I,  
        .WidowControl = True <{kPa_`'  
        .KeepWithNext = True Zo<)r2|O.  
        .KeepTogether = True ~#sD2b` 0  
        .PageBreakBefore = False LeLUt<4~  
        .OutlineLevel = wdOutlineLevelBodyText Mp`$1Ksn  
         ,p d -hu  
        .CharacterUnitLeftIndent = 0 GQtNk<?$I  
        .CharacterUnitRightIndent = 0 ~.W]x~X$  
        .CharacterUnitFirstLineIndent = 2 IE`3I#v  
         N:<$]x>  
        .LineUnitBefore = 0.5 W~ ~'  
        .LineUnitAfter = 0 W#F9 Qw  
    End With y|6n:<o  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False +-j-)WU?,  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll ddfGR/1X  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese Fa%1] R  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True Op%OQ14$  
    DoEvents o pTXI*QA  
     eM<N?9s  
    '四级标题样式 :*}Q/]N  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") \_`qon$9  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" B>fZH \Y  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False Q/S ^-&~  
    With ActiveDocument.Styles("QLNU四级标题").Font SY +0~5E  
        .NameFarEast = "宋体" %]4Tff  
        .NameAscii = "Times New Roman" MT-Tt  
        .NameOther = "宋体"  g{Hgs  
        .Name = "宋体" L]kBY2c  
        .Size = 12               '小四号 ]Lub.r  
        .Bold = True k`:zQd^T  
        .Outline = False lcdhOjz!N  
        .Italic = wdUndefined pN[WYM?[  
        .Subscript = wdUndefined y!=,u  
        .Superscript = wdUndefined 1p}H,\o  
    End With xsH1)  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat 'dKfXYY1`N  
         j L|6i-?!  
        .LeftIndent = CentimetersToPoints(0) 3=.YQE0!dx  
        .RightIndent = CentimetersToPoints(0) l(Rn=?  
        .FirstLineIndent = CentimetersToPoints(0) 0SI@`C*1o  
         ZA(u"T~  
        .LineSpacingRule = wdLineSpaceSingle 4H#-2LV`  
        .Alignment = wdAlignParagraphLeft PR@6=[|d  
         +Uq|Yh'Q  
        .WidowControl = True ZM.'W}J{ *  
        .KeepWithNext = True ai_ve[A  
        .KeepTogether = True #d@wjQ0DW  
        .PageBreakBefore = False %y RGN  
        .OutlineLevel = wdOutlineLevelBodyText ~!$"J}d}<  
         ?@ oF@AEx=  
        .CharacterUnitLeftIndent = 0 CPOH qK`k  
        .CharacterUnitRightIndent = 0 2`4m"DtA  
        .CharacterUnitFirstLineIndent = 2 cqG6di7#  
         i(j/C  
        .LineUnitBefore = 0 {XOl &  
        .LineUnitAfter = 0 V'i-pn2gyu  
         `MU~N_  
    End With gK rUv0&F  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False 0vv~G\yM  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll .?45:Ey~g  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese !/}3/iU  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True Ek L2 nI  
    DoEvents j9+4},>>CU  
     `WayR^9  
    '正文校式 OS z71;j  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") jKq*@o~}  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" .TGw+E1k  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False e$~[\ w  
    With ActiveDocument.Styles("QLNU正文").Font zS%XmS\  
         ~&<#H+O  
        .NameFarEast = "宋体" v6*0@/L M  
        .NameAscii = "Times New Roman" \l59/ZFan  
        .NameOther = "宋体" %hVR|K|J  
        .Name = "宋体" RrMEDMhk6  
         &*v\t\]  
        .Size = 12               '小四号 8}0wSVsxV$  
         DG;7+2U  
        .Bold = wdUndefined O&l4/RtQ\)  
        .Italic = wdUndefined 8%9 C<+.R  
        .Subscript = wdUndefined <w9~T TS  
        .Superscript = wdUndefined 296}LW  
         T`x|=}  
        .Outline = False wEjinP$2  
        .Emboss = False 36=aahXd\  
        .Shadow = False E#J})cPzw  
        .Hidden = False AQ'%}(#0  
         fu5L)P^T  
        .DisableCharacterSpaceGrid = True fp [gKRSF  
    End With ,Pa*; o\  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat K 0.aU  
         "/'3I/}  
        .LeftIndent = CentimetersToPoints(0) PT~htG<Fw  
        .RightIndent = CentimetersToPoints(0) m Q9dF,  
        .FirstLineIndent = CentimetersToPoints(0) hP"2X"kz&  
         HA,o2jZ?In  
        .LineSpacingRule = wdLineSpaceExactly U ]<l-~|  
        .LineSpacing = 20 , #)d  
        .Alignment = wdAlignParagraphLeft qfDG.Zee #  
         K7RAmX  
        .WidowControl = False 8c9HJ9vk  
        .KeepWithNext = False &r1(1<  
        .KeepTogether = False n\"6ol}>E  
        .PageBreakBefore = False 1&MCS%UTL  
        .Hyphenation = False /s4~Ij`be  
         a}UmD HS-  
        .OutlineLevel = wdOutlineLevelBodyText RDdnOzx  
         hN3FH# YO  
       \BnU ?z  
        .CharacterUnitLeftIndent = 0 +bznKy!  
        .CharacterUnitRightIndent = 0 YlrN^rO  
        .CharacterUnitFirstLineIndent = 2 ^QS`H@+Z  
         3]*Kz*i  
        .LineUnitBefore = 0 2z-Nw <bA  
        .LineUnitAfter = 0 '9}&@;-_  
        .SpaceBefore = 0 Jq/itsg  
        .SpaceAfter = 0 ?AyxRbk  
         DPI[~  
        .DisableLineHeightGrid = True 1iF=~@Nz_  
    End With ` s7pM  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False p {w-  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll ,jY:@<n  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese >5FTB e[D  
    ActiveDocument.Styles("QLNU正文").NoProofing = True ^^b't P1>  
    DoEvents k'o[iKlu  
     4#IT" i  
    '图片段落样式 PeJ#9hI~rQ  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") GLf!i1Z  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" _WEJ,0* #'  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False  V9) /  
    With ActiveDocument.Styles("QLNU图片段落").Font $lxpwO  
        .Size = 12               '小四号 c""&He4zp  
        .Italic = wdUndefined NxHUOPAJc  
        .Subscript = wdUndefined s 47R,K$  
        .Superscript = wdUndefined FOk&z!xYKd  
    End With >Z!!`0{  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat /QQRy_Z1)  
         kE:[6reG  
        .LeftIndent = CentimetersToPoints(0) 16L YVvmW  
        .RightIndent = CentimetersToPoints(0) ~(R=3  
        .FirstLineIndent = CentimetersToPoints(0) =dGp&9K,fw  
         a3yNd  
        .LineSpacingRule = wdLineSpaceSingle 5MnP6(3$  
        .Alignment = wdAlignParagraphCenter aj5HtP-  
        .KeepWithNext = True <st<oR'  
        .OutlineLevel = wdOutlineLevelBodyText +?*;#=q  
         ^\ [p6>  
        .CharacterUnitLeftIndent = 0 6|eqQ+(A  
        .CharacterUnitRightIndent = 0 V ?Jy  
        .CharacterUnitFirstLineIndent = 0 R/~!km  
         A)U"F&tvm  
        .LineUnitBefore = 0 ~[Tcl  
        .LineUnitAfter = 0 M/W"M9u  
    End With On*I.~  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False 8B G Z  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll nCq'=L,m  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese >?@5>wF  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True ^77W#{Zs  
    DoEvents VEgtN}  
     a 8k2*u  
     6m_mma_,&  
    '第X章 bWo  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") uMQI Aapb  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" Q4cCg7|0  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False F*KQhH7Gf  
    With ActiveDocument.Styles("QLNU章节标题").Font D>5)',D8xi  
        .NameFarEast = "黑体" (%B{=w}8  
        .NameAscii = "Arial Black" 4t[7lL`Z  
        .NameOther = "Arial Black" YZf{."Opj[  
        .Name = "黑体" `] 5qIKopL  
        .Size = 16 yI^Yh{  
        .Bold = True W:i Q& [f  
        .UnderlineColor = wdColorAutomatic 0f@+o}i=)  
        .Outline = False .aNh>`OT'  
        .Italic = wdUndefined h?xgOb!4  
        .Subscript = wdUndefined )V1xL_hx/  
        .Superscript = wdUndefined lAN&d;NU6Z  
        .Scaling = 100 u !BU^@P  
        .DisableCharacterSpaceGrid = True g7zl5^o3j  
    End With % G= cKM  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat 6BV 6<PHJ  
        .LineSpacingRule = wdLineSpaceSingle )-4c@  
        .Alignment = wdAlignParagraphCenter %E_Y4Oe1  
        .WidowControl = True pq) =  
        .KeepWithNext = True G J%^hr`P  
        .KeepTogether = True 5=?P 6I_$G  
        .PageBreakBefore = True {?`rGJ{f  
        .OutlineLevel = wdOutlineLevelBodyText }h^ fX  
         LQ~|VRRX<  
        .LeftIndent = CentimetersToPoints(0) MN<LZC% $  
        .RightIndent = CentimetersToPoints(0) IH`Q=Pj  
        .FirstLineIndent = CentimetersToPoints(0) D)-LZbPa  
         + +L7*1t  
        .CharacterUnitLeftIndent = 0 21v--wZ  
        .CharacterUnitRightIndent = 0 |?88EG@05  
        .CharacterUnitFirstLineIndent = 0 HUx`RX0>  
         ?,$:~O* w  
        .LineUnitBefore = 1 XY'=_5t  
        .LineUnitAfter = 0.5 sOLh'x f.  
         d_`MS@2  
        .AutoAdjustRightIndent = False 7z;2J;u`n  
        .DisableLineHeightGrid = True *HD(\;i-$  
        .FarEastLineBreakControl = True NZ1B#PG,c  
        .WordWrap = True ??/bI~Sd  
    End With E>_Rsw *  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False *ak0(yLn)  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll 77M!2S_E  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese #f#6u2nF\  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True GKo YT{6  
    DoEvents NMkP#s7.y  
     Xe);LhDC  
    '表格标题 ql@2<V{  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ;{I9S'  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" 8ae`V!5  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False s&E,$|80  
    With ActiveDocument.Styles("QLNU表格标题").Font U,U=udsi  
        .NameFarEast = "楷体" |.c4y*  
        .NameAscii = "Arial" Nr*l3Z>LD  
        .Name = "楷体" U;bx^2<m  
        .Size = 10.5 lR %#R  
        .Bold = True :<aGZ\R5  
        .Underline = wdUnderlineNone Y!M0JSaM  
        .Italic = wdUndefined uj3`M9  
        .Subscript = wdUndefined |5vJ:'`I  
        .Superscript = wdUndefined nFlN {_/  
        .Color = wdColorAutomatic &oG>Rqkm  
    End With *)Pm   
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat .!4'Y}  
         Vo"G@W)lZ  
        .LineSpacingRule = wdLineSpaceSingle ya2sS9^T[  
        .Alignment = wdAlignParagraphCenter +t,b/K(?]  
        .KeepWithNext = True bD,21,*z  
        .KeepTogether = True j55 _wx@cA  
        .OutlineLevel = wdOutlineLevelBodyText +'m9b7+v  
         e`0C0GaP  
        .LeftIndent = CentimetersToPoints(0) 4pL'c@'  
        .RightIndent = CentimetersToPoints(0) }uDpf0;^  
        .FirstLineIndent = CentimetersToPoints(0) z- q.8~Z  
         U '{PpZ  
        .CharacterUnitLeftIndent = 0 Zz} o  t  
        .CharacterUnitRightIndent = 0 oZ2:%  
        .CharacterUnitFirstLineIndent = 0 r%;|gIky  
         uf?;;wg  
        .LineUnitBefore = 1 YW7w>}aW  
        .LineUnitAfter = 0 9fX0?POG  
         "[ S[vkI  
    End With N_g=,E=U%  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False Uc!k)o#=  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll ,[ 2N3iH  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese %i\rw* f  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True a~yiLq  
    DoEvents !PIg ,  
XgxO:"B  
    '表格首行 sNx_9pJs4  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") 0gqV>:  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False [7><^?t V  
    With ActiveDocument.Styles("QLNU表格首行").Font ]pm/5|  
        .NameFarEast = "楷体" K["rr/  
        .NameAscii = "Times New Roman" )L&y@dy)  
        .Name = "楷体" uT]$R  
        .Size = 9 q&:7R .Ci  
        .Bold = True w~6/p  
        .Underline = wdUnderlineNone BZ\="N#f  
        .Italic = wdUndefined 6?,qysm06  
        .Subscript = wdUndefined 7NJl+*u  
        .Superscript = wdUndefined L$Z !  
    End With J;>;K6pW  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat <7y/)b@  
        .LineSpacingRule = wdLineSpaceSingle /5E0'y,|P  
        .Alignment = wdAlignParagraphCenter %scw]oF  
         N@PuC>  
        .LeftIndent = CentimetersToPoints(0) <Ch9"1f3,  
        .RightIndent = CentimetersToPoints(0) jIa aNO)  
        .FirstLineIndent = CentimetersToPoints(0) .J-k^+-  
         uVgA <*0  
         T4W20dxL7  
        .CharacterUnitLeftIndent = -0.5 \L>XF'o  
        .CharacterUnitRightIndent = -0.5 !Mw/j`*  
        .CharacterUnitFirstLineIndent = -0.5 p{oz}}  
         (g;O,`|c,  
        .LineUnitBefore = 0 v^eAQoFLhN  
        .LineUnitAfter = 0 .+>fD0fW7Y  
        .SpaceBefore = 0 ;^:8F  
        .SpaceAfter = 0 W)1nc"WqY  
         H^Pq[3NQ  
    End With 7s%D(;W_Mo  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False 3z0Bg  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll 3F, M{'q  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese y3j$?o M  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True #c:@oe4v  
    DoEvents npeL1zO-$  
1a9' *[  
    '表格内容 OR&pGoW  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") 8T"L'{ggWB  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False 4(, .<#  
    With ActiveDocument.Styles("QLNU表格内容").Font X(Af`KOg[  
        .NameFarEast = "楷体" r Hq1%)B  
        .NameAscii = "Times New Roman" 48,*sTRq  
        .Name = "楷体" < R"Y^]P=  
        .Size = 9 {#+K+!SvDX  
        .Bold = False P_b5`e0O  
        .Underline = wdUnderlineNone kQU4s)J  
        .Italic = wdUndefined $-DW+|p.?^  
        .Subscript = wdUndefined =X(N+(1~  
        .Superscript = wdUndefined SkV pZh  
    End With n$ByTmKxv  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat 12i`82>;  
        .LineSpacingRule = wdLineSpaceSingle MNU7O X<  
        .Alignment = wdAlignParagraphCenter YAR$6&  
         nGGw(6c%>  
        .LeftIndent = CentimetersToPoints(0) Eet/l]e#a  
        .RightIndent = CentimetersToPoints(0) !ldE9 .  
        .FirstLineIndent = CentimetersToPoints(0) u"5/QB{  
         H.?`90IQ  
        .CharacterUnitLeftIndent = -0.5 Sy?^+JdM/  
        .CharacterUnitRightIndent = -0.5 Hd4 ~v0eS  
        .CharacterUnitFirstLineIndent = -0.5 &LM@xt4"^[  
        .LineUnitBefore = 0 c2V_|oL  
        .LineUnitAfter = 0 YQ+8lANC  
        .SpaceBefore = 0 53/$8=  
        .SpaceAfter = 0 8]&Fu3M^  
    End With 7Vf XE/  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False ],AtR1k  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll >#dLT~[\a  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese u9:sj  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True k4&adX@ Y  
    DoEvents .+2:~%v6  
C=;}7g  
    '图片标题 @}jg5}  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 3K(/=  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" zx)}XOYf  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False Nj4r[5K  
    With ActiveDocument.Styles("QLNU图片标题").Font <Y /3U  
        .NameFarEast = "楷体" E_& ;.hw  
        .NameAscii = "Times New Roman" =?L16mu1&  
        .Name = "楷体" )j]f ]8  
        .Size = 10.5 9Cd=^ Im5  
        .Bold = True B_#M)d O  
        .Underline = wdUnderlineNone N]8/l:@  
        .Italic = wdUndefined 1V5N)ty  
        .Subscript = wdUndefined tM@%EO  
        .Superscript = wdUndefined }#Up:o]A!  
        .Outline = False y=8KNseW|  
        .Shadow = False  l  
        .Color = wdColorAutomatic ?/}IDwuh  
    End With Bph(\= W  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat k'.cl^6Z8  
        .LineSpacingRule = wdLineSpaceSingle DB"z93Mr<K  
        .Alignment = wdAlignParagraphCenter gRs @T<k2  
         =Q;dYx%I5  
        .KeepWithNext = wdUndefined tZ) ,Z<  
        .KeepTogether = True zKk=R6w  
        .OutlineLevel = wdOutlineLevelBodyText J%Y-3{TQK  
         xz:  
        .LeftIndent = CentimetersToPoints(0) eOVln1a  
        .RightIndent = CentimetersToPoints(0) aIT0t0.  
        .FirstLineIndent = CentimetersToPoints(0) O|m-[]  
         G wgY{-|`  
        .CharacterUnitLeftIndent = 0 @ #J2t#  
        .CharacterUnitRightIndent = 0 v7j/_;JE;  
        .CharacterUnitFirstLineIndent = 0 [ )X(Qtk  
         0XE6H w  
        .LineUnitBefore = 0 `-s]d q  
        .LineUnitAfter = 0 X$%[%q8qg  
    End With 0(5qVJ12  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False XwIHIG}  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll o7tlkSZ  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese \xOYa  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True !*^+ 7M  
    DoEvents m k~F@  
C^JtJv  
    '目录项 (CDh,ZN;|  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") g:^Hex?Yfd  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" <_8eOL<X  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False E08!a  
    With ActiveDocument.Styles("QLNU目录项").Font }K.)yv n  
        .NameFarEast = "黑体" P2>_qyX  
        .NameAscii = "Times New Roman" 'D+njxCk.A  
        .NameOther = "Times New Roman" BDL[C<d(  
        .Name = "黑体" q%s<y+  
        .Size = 10.5 ty;a!yjC  
        .Bold = False DbI)tDi5D  
        .Italic = wdUndefined `j2|aX %Z*  
        .Underline = wdUnderlineNone JWM4S4yZHR  
        .Color = wdColorAutomatic CC6]AM(i  
        .Superscript = wdUndefined U2Siw   
        .Subscript = wdUndefined " u]X/ {L  
    End With  ^~B#r#  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat cor!Sa>  
         q.hpnE~#lh  
        .LineSpacingRule = wdLineSpaceSingle gT fA]  
        .Alignment = wdAlignParagraphLeft |em_l$oGc  
         yqb$,$  
        .WidowControl = False &4t=Y`]SL  
        .KeepWithNext = False _B&;z $  
        .KeepTogether = False 22d>\u +c  
        .PageBreakBefore = False ?S)Pv53>}  
        .NoLineNumber = False mst;q@  
        .OutlineLevel = wdOutlineLevelBodyText GOCe&?  
         )CH\]>-FO  
        .LeftIndent = CentimetersToPoints(0) W'zI~'K  
        .RightIndent = CentimetersToPoints(0) J"eE9FLM  
        .FirstLineIndent = CentimetersToPoints(0) dpdp0  
         FLumI-se!  
        .CharacterUnitLeftIndent = 0 |Ntretz`\  
        .CharacterUnitRightIndent = 0  ^AwDZX  
        .CharacterUnitFirstLineIndent = 0 o -x=/b  
         nwJub$5  
        .LineUnitBefore = 0 &)V uh=  
        .LineUnitAfter = 0 R-Tf9?)  
    End With )\e0L/K@  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False Np opg1Gv>  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll sEb*GF*.V  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot 9j5k=IXg#a  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese /z1-4:^`A[  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True QF.M%she+  
    DoEvents ;k1VY Ie}  
     KWVl7Kw#e  
    '参考文献 R,hwn2@B  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") Re;[S[D7  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" K?S5C8  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False R LVz"=  
    With ActiveDocument.Styles("QLNU参考文献").Font i1qmFvksl  
        .NameFarEast = "宋体" \ 0F ey9c  
        .NameAscii = "Times New Roman" Y4Jaw2b  
        .NameOther = "Times New Roman" 2ak*aI  
        .Name = "Times New Roman" [r1\FF@v,  
        .Size = 12 a{I(Qh!}  
        .Bold = False P1qnU  
        .Italic = wdUndefined )P W Zc?M  
        .Subscript = wdUndefined UN6nh T  
        .Superscript = wdUndefined wx/*un%2  
        .Underline = wdUnderlineNone {b NKyT  
        .UnderlineColor = wdColorAutomatic r*Z p-}  
        .Color = wdColorAutomatic e&pt[W}X%u  
        .Engrave = False 0$R}_Ok  
    End With 78'3&,+si  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat  qaBL  
         t; #D,gx  
        .LineSpacingRule = wdLineSpaceExactly 8(@(G_skp  
        .LineSpacing = 16 cS|W&IH1  
        .Alignment = wdAlignParagraphLeft ]1 bNcq2I  
        .WidowControl = False XJ 1<!tl  
        .KeepWithNext = False GZiN&}5e  
        .KeepTogether = False M;X}v#l|XI  
        .PageBreakBefore = False l\bgp3.+  
        .OutlineLevel = wdOutlineLevelBodyText 3jM+j_n R  
         Eye.#~  
        .LeftIndent = CentimetersToPoints(0) ;3O=lo:$~  
        .RightIndent = CentimetersToPoints(0) %vWh1-   
        .FirstLineIndent = CentimetersToPoints(0) 5F5)Bh  
         rV/! VJ6x  
        .CharacterUnitLeftIndent = 0 H1ox>sC  
        .CharacterUnitRightIndent = 0 dJ,,yA*  
        .CharacterUnitFirstLineIndent = -2 H3 |x  
         sc# q03  
        .LineUnitBefore = 0 C/z0/mk  
        .LineUnitAfter = 0 /kFw(l_.  
        .SpaceBefore = 0 u$V@akk  
        .SpaceAfter = 0 D89 (u.h  
         enQev?8%  
    End With `Yo!sgPO\  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False ;0 9~#Wop  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll x1.yi-  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS *edhJUT  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True ]%6X E)  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese uWrvkLGN  
    DoEvents m@` NN  
qJJ~#W)  
    ' '_M"yg6d  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") =(as{,j  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" K1|xatx1V  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False U=KFbL1Q  
    With ActiveDocument.Styles("QLNU论文题目").Font !-|{B3"6  
        .NameFarEast = "黑体" |("zW7g  
        .NameAscii = "Arial Black" $-BM`Zt0;  
        .NameOther = "Arial Black" >KCnmi  
        .Name = "Arial Black" I#:4H2H6  
        .Size = 16 k %sh ;1.  
        .Bold = False p M_oIH'8:  
        .Italic = wdUndefined |s[k= /~"  
        .Superscript = wdUndefined $mDlS  
        .Subscript = wdUndefined .^FdO$"  
        .Underline = wdUnderlineNone w;DRC5V>  
        .UnderlineColor = wdColorAutomatic _Dg|Iz,Uh  
        .Color = wdColorAutomatic IaYy5Rw  
~i9'9PHX@  
    End With I(0 *cWO  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat ;fKFmY41  
        .LineSpacingRule = wdLineSpaceSingle N ._&\fHY  
        .Alignment = wdAlignParagraphCenter y[~w2a&+  
        .WidowControl = True /c52w"WW  
        .KeepWithNext = True mRD'@n  
        .KeepTogether = True gY!#=?/S  
        .PageBreakBefore = True l 1Ns~  
        .NoLineNumber = False aL0,=g%  
        .OutlineLevel = wdOutlineLevelBodyText Q\GSX RP  
         Ub*O*nre  
        .LeftIndent = CentimetersToPoints(0) 8s<t* pI2  
        .RightIndent = CentimetersToPoints(0) A}(Q^|6  
        .FirstLineIndent = CentimetersToPoints(0) LLW\1 cxi  
         Jbqm?Fy4X  
        .CharacterUnitLeftIndent = 0 5| bc*iqU  
        .CharacterUnitRightIndent = 0 Jhr3[A  
        .CharacterUnitFirstLineIndent = 0 DH{^9HK  
         #TKByOcD2!  
        .LineUnitBefore = 1 t8upS u|  
        .LineUnitAfter = 1 nv2p&-e+  
         ~{gV`nm=J  
        .BaseLineAlignment = wdBaselineAlignAuto 1usLCG>w{  
    End With xa|/P#q  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False vvcA-k?  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll tG(!d$^  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS e"ur+7  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True =S}SZYw l  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese H D{2nZT  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True )i*-j =  
    DoEvents Ld:U~M-  
     u(g0Ob  
    '中文摘要 s&~i S[  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") Zdll}nO"E  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" M"<B@p]rk:  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False u|D|pRM-LT  
    With ActiveDocument.Styles("QLNU中文摘要").Font md`"zV  
        .NameFarEast = "宋体" -jQM h  
        .NameAscii = "Times New Roman" 3!0~/8!f@  
        .NameOther = "Times New Roman" wYLJEuS|  
        .Name = "Times New Roman" pv;ZR  
        .Size = 12 6]5e(J{Fz  
        .Bold = wdUndefined T9O3$1eqfo  
        .Superscript = wdUndefined B@v"giJgr  
        .Subscript = wdUndefined ?'r=>'6D  
        .Italic = wdUndefined 6-h(305A  
        .Underline = wdUnderlineNone 1wM~),B8  
        .UnderlineColor = wdColorAutomatic I`FqZw  
        .Color = wdColorAutomatic A1V^Gi@i  
    End With }  cQ` L  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat h}c R >  
        .LineSpacingRule = wdLineSpaceExactly `KUl XS(  
        .LineSpacing = 20 MWron_xg  
        .Alignment = wdAlignParagraphLeft w{5v*SHl}`  
         zY&/^^y  
        .WidowControl = False hV7]/z!d  
        .KeepWithNext = False a!H t81gj  
        .KeepTogether = True 7,&M6<~  
        .PageBreakBefore = False s'yT}XQ;r  
        .NoLineNumber = False F{"4cyoou  
        .OutlineLevel = wdOutlineLevelBodyText MY" 8!  
         !;s5\91  
        .LeftIndent = CentimetersToPoints(0) &5o ln@YL  
        .RightIndent = CentimetersToPoints(0) 0L|D1 _k[  
        .FirstLineIndent = CentimetersToPoints(0) LP- _i}Kq  
         `hE @S |4  
        .CharacterUnitLeftIndent = 0 k86j& .m_  
        .CharacterUnitRightIndent = 0 G[M{TS3&Ds  
        .CharacterUnitFirstLineIndent = 2 ,"EgYd8-'  
        .LineUnitBefore = 0 ;f+bIYQz  
        .LineUnitAfter = 0 [|"{a  
         X4Y!Z/b  
    End With LyWgaf#/d  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False nH7i)!cI~  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll v[I,N$ :  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS {m7>9{`  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True af<wUxM0  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese Fl0 :Z  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True On4tK\l @  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete ^4 ?LQ[t'  
    DoEvents >,)tRQS  
     2u?k;"]V  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") urA kV#d#  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" f?|cQ[#t!\  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False EsKOzl[c:  
    With ActiveDocument.Styles("QLNU英文标题").Font QC^ #ns&  
        .NameFarEast = "黑体" F>/"If#  
        .NameAscii = "Arial Narrow" X|Z2"*;b`  
        .Name = "Arial Narrow" xY94v  
        .Size = 16 )7}f .  
        .Bold = True  {;| >Qn  
        .Bold = wdUndefined $~FnBD%|{  
        .Superscript = wdUndefined s(MLBV5)w  
        .Subscript = wdUndefined =9y&j-F  
        .Italic = wdUndefined # 8fq6z|JZ  
         o/5loV3h  
        .Underline = wdUnderlineNone WX X)_L$2  
        .UnderlineColor = wdColorAutomatic Nr#" 5<W  
        .StrikeThrough = False 7\nR'MOZ  
        .DoubleStrikeThrough = False ~gJJ@j 0n  
    End With o+I'nFtnI  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat o"-*,:Qe  
        .LineSpacingRule = wdLineSpaceSingle }6!*H!  
        .Alignment = wdAlignParagraphCenter `37$YdX  
        .WidowControl = True a1yGgT a?D  
        .KeepWithNext = False yTwtGo&  
        .KeepTogether = False "[t b-$ER  
        .PageBreakBefore = False P!K;`4Ika  
        .NoLineNumber = False <Gkmk?x`A  
        .FirstLineIndent = CentimetersToPoints(0) (n0h#%  
        .OutlineLevel = wdOutlineLevelBodyText .1#G*A|  
         bfl%yGkd/|  
        .LeftIndent = CentimetersToPoints(0) r}Ec_0_lt  
        .RightIndent = CentimetersToPoints(0) -J\R}9 lIm  
        .FirstLineIndent = CentimetersToPoints(0) O[O[E}8#  
         D*o5fPvFO  
        .CharacterUnitLeftIndent = 0 =!{ E!3>*D  
        .CharacterUnitRightIndent = 0 o1?bqVF;6  
        .CharacterUnitFirstLineIndent = 0 |VxO ,[~  
         C.Ty\@U  
        .LineUnitBefore = 1 $ =GnoS  
        .LineUnitAfter = 1 5`H.{4@  
         z6>Rv 9f  
    End With %6eQ;Rp*  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False [+4/ M3J%  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll t0-)\kXcA  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS  %kSpMj|  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True uA~T.b\  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese &h _do8R  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True C|hD^m  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete 052e zh_  
    DoEvents BA(PWX`H  
fA{t\   
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") Gbrc!3K2  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" 1K&l}/zUl  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False aq-R#q  
    With ActiveDocument.Styles("QLNU英文摘要").Font FhVoN}  
        .NameFarEast = "宋体" D +Ui1h-  
        .NameAscii = "Arial" ?|,-Bft3  
        .NameOther = "Arial" Z/~7N9?m(  
        .Name = "Arial" Ti!<{>  
        .Size = 12 5w#7B  
        .Bold = wdUndefined YR/%0^M'0  
        .Italic = wdUndefined n 0rAOkW  
        .Superscript = wdUndefined W_%@nm\y  
        .Subscript = wdUndefined /_.1f|{B  
    End With 8^>qzaf 8  
     &x>8 %Q s  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat  mX&!/U  
         |E5\_Z  
        .LineSpacingRule = wdLineSpaceExactly LL"c 9jb4z  
        .LineSpacing = 20 $2'Q'Mx[gd  
         X8Y)5,`s  
        .Alignment = wdAlignParagraphJustify Kp)H>~cL  
         wi$,Y. :  
        .WidowControl = False .Qz412  
        .KeepWithNext = False |h(05Kbk  
        .KeepTogether = False t+<?$I[  
        .PageBreakBefore = False .qAlPe L:  
        .NoLineNumber = False 4<(U/58a*  
         .&2Nm&y$ K  
        .OutlineLevel = wdOutlineLevelBodyText d:SLyFD$q  
         W&`{ 3L  
        .LeftIndent = CentimetersToPoints(0) ;r.0=Uo9]  
        .RightIndent = CentimetersToPoints(0) 1Q>D^yPI[  
        .FirstLineIndent = CentimetersToPoints(0) "nQ&~KQ  
         3L1MMUACL  
        .CharacterUnitLeftIndent = 0 CS|al(?~  
        .CharacterUnitRightIndent = 0 %.[jz,;)  
        .CharacterUnitFirstLineIndent = 2 5%1a!M M M  
         2SV}mK U  
        .LineUnitBefore = 0 ~us1Df0bp  
        .LineUnitAfter = 1 \~~y1.,U.  
         QK0-jYG^  
    End With (N 0kTi]b  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False u-%|ZSg  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll  8PXjdHR  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS %&Q9WMo  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False !Pf6UNN'  
    DoEvents OuuN~yC  
-gK*&n~  
    Options.Pagination = True z8-dntkf  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." dJ&f +  
    DoEvents <2,NWn.  
    ActiveDocument.Repaginate  ; V)jC  
N&jHU+{OU  
End Sub yh:Wg$qx  
o7=#ye&P  
Cyu= c1D;  
杺栫杣杊椌柮栬，䒴蓉艿芖。
回复 引用
举报顶端
伍胥之 离线
级别: 军区司令员

显示用户信息 
101楼  发表于: 2024-12-28   
只看该作者 ┊  小 中 大
姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 XmAu n  
?"-1QG  
引用
引用第20楼newport93于06-14-2010 13:47发表的  : ;FnU[Q`M#L  
z0T9tN!(  
老五，I 服了U。 F_d>@-<  
tV"Jh>Z  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 1uco{JX<S  
twP%+/g]<  
杺栫杣杊椌柮栬，䒴蓉艿芖。
回复 引用
举报顶端
上一主题下一主题
«3456»Pages: 6/6
 Bay Area Chinese--灣區華人 » 乱讲
描述
快速回复

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