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

显示用户信息 
100楼  发表于: 2021-07-18   
只看该作者 ┊  小 中 大
Dim bContinue As Boolean pOS:/~I3  
E,JDO d}  
Dim regEX As New RegExp "?Wwc d\  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 #dE#w#=r  
EMU~gwPR  
Dim LastTitle0String As String, LastTitle0No As Long ,Ej2]iO\7  
Dim LastTitle1String As String, LastTitle1No As Long \/$T 3f`x  
Dim LastTitle2String As String, LastTitle2No As Long Jg/l<4,K,  
Dim LastTitle3String As String, LastTitle3No As Long 3M 8P%  
Dim LastTitle4String As String, LastTitle4No As Long #!u P >/  
Dim LastTitle5String As String, LastTitle5No As Long x-:vpv%6y  
Dim LastTabelString As String, LastTableNo As Long cRs Lt/ Wr  
Dim LastFigureString As String, LastFigureNo As Long BoG/Hd.S  
 7= 0uG  
Dim strSeperator As String + 1\1Z@\M  
TD].*9  
Sub ConvertWidth(fTEXT As String, rText As String) n=MdbY/k(  
        Selection.Find.ClearFormatting FjRJSMwO,  
        Selection.Find.Replacement.ClearFormatting /xJ,nwp7  
        Selection.Find.Wrap = wdFindContinue (P~Jzp9u  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText 1eZ">,F6<  
        DoEvents z[b,:G  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True S;M'qwN  
End Sub B++.tQ=X.  
.q i$X!0  
Sub ClearDomain() z{bMW^F  
        With Selection.Find C(b"0>  
            .ClearFormatting S&}7jRH1  
            .Replacement.ClearFormatting V:9|9$G  
            .Wrap = wdFindContinue 8N4W}YBs  
            Me.txtStatus.Text = "清除所有域代码" *E+2E^B  
            DoEvents c!T^JZBb  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False X?z5IL;rt  
        End With aj51%wKMb:  
End Sub aDb@u3X@  
IhwJYPLF  
Private Sub cmdCheck_Click() ePa:_?(  
    bContinue = True E D*=8 s2  
    Dim NoSeries1(1 To 16) As String cEnkt=  
    Dim NoSeries2(1 To 16) As String 8)ZWR3)+W  
    Dim NoSeries5(1 To 16) As String Y N_#x  
    Dim NoSeriesRM(1 To 16) As String ,RKBGOz?f  
    Dim paraTotal As Long, ParaText As String 6_ =qpP-?  
    Dim ttString As String, ttNo As String \ v44Vmfz  
     QbP W_)N  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long d*,% -Io  
o<1e-  
    Me.txtStatus.Visible = True  g2L  
    Me.lbParaType.Visible = True 7)O?jc  
    Me.cmdCheck.Enabled = False s+(%N8B  
     5Qd |R  
     oD4NQR  
     BWFl8 !_X  
     yBE1mA:x7:  
    Dim ParaType As String, rText As String >};,Byv!%  
     D{Y~ kV|  
    Selection.WholeStory okoD26tK  
    Selection.NoProofing = True Q~G+YjM3  
     A9qCaq{  
    tm1 = Now `* "u"7e  
     4*&x% ~*  
        ActiveWindow.View.Type = wdNormalView vC E$)z'"  
     Z2)f$ c  
    NoSeries1(1) = "一" eJ +;!0  
    NoSeries1(2) = "二" i:Pg&474f  
    NoSeries1(3) = "三" &{9'ylv-B)  
    NoSeries1(4) = "四" D-9zg\\'`  
    NoSeries1(5) = "五" #HWz .Wb  
    NoSeries1(6) = "六" U8]L3&~  
    NoSeries1(7) = "七" W:O<9ZbQ_  
    NoSeries1(8) = "八" %eGxQDIXg  
    NoSeries1(9) = "九" QG?7L_I  
    NoSeries1(10) = "十" D QP#h5O  
    NoSeries1(11) = "十一" `I,A7b  
    NoSeries1(12) = "十二" vD D !.i  
    NoSeries1(13) = "十三" t1b$,jHmKl  
    NoSeries1(14) = "十四" xr&wV0O '  
    NoSeries1(15) = "十五" *_`T*$  
    NoSeries1(16) = "十六" L !V`Sb  
     `J[(Dx'y=t  
    NoSeries2(1) = "㈠" GK)3a 9;  
    NoSeries2(2) = "㈡" A^q= :ofQ  
    NoSeries2(3) = "㈢" 0){%4  
    NoSeries2(4) = "㈣" k^Zpb&`Hx  
    NoSeries2(5) = "㈤" *yKsgH  
    NoSeries2(6) = "㈥" V2g,JFp&  
    NoSeries2(7) = "㈦" ~"\sL;B  
    NoSeries2(8) = "㈧" jFM8dl n  
    NoSeries2(9) = "㈨" il<D e]G  
    NoSeries2(10) = "㈩" nQdNXv<(  
     _s><>LH~  
    NoSeries5(1) = "①" Dx$74~2e  
    NoSeries5(1) = "②" '!Ps4ZTn_  
    NoSeries5(3) = "③" wYSvI  
    NoSeries5(4) = "④" `)\_  
    NoSeries5(5) = "⑤" MVg`6&oH  
    NoSeries5(6) = "⑥" "Ol;0>$  
    NoSeries5(7) = "⑦" =rl/ l8|P  
    NoSeries5(8) = "⑧" H$KE*Wwq  
    NoSeries5(9) = "⑨" I+D`\OSL  
    NoSeries5(10) = "⑩" \3n{%\_  
     DBAJkBs  
     leiED'  
    NoSeriesRM(1) = "I" jV\M`=4IC  
    NoSeriesRM(2) = "II" </t_<I0{  
    NoSeriesRM(3) = "III" &JAQ:([:  
    NoSeriesRM(4) = "IV" OHssUt  
    NoSeriesRM(5) = "V" `]\4yTd  
    NoSeriesRM(6) = "VI" 6#T?g7\pyR  
    NoSeriesRM(7) = "VII" ~'dnrhdme  
    NoSeriesRM(8) = "VIII" 7U:,:=  
    NoSeriesRM(9) = "IX" E"!9WF(2t5  
    NoSeriesRM(10) = "X" (aVs p*E  
    NoSeriesRM(11) = "XI" BnvUPDT&  
    NoSeriesRM(12) = "XII" kMKI=>s+  
    NoSeriesRM(13) = "XIII" Jme}{!3m  
    NoSeriesRM(14) = "XIV" =x> z|1  
    NoSeriesRM(15) = "XV" 1B'i7  
    NoSeriesRM(16) = "XVI" H. uflO  
     V[wEn9   
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) c=I!?a"  
     rtvuAF iH  
    If i = vbNo Then *U.$=4Az  
        Exit Sub (6A>:_)  
    End If {.bLh 0  
     K6KEdXM4  
    If Me.chkSuper.Value Then l~Kn-S{  
        Me.txtStatus.Text = "检查修改所有的上标格式" vY *p][$  
     4U<'3~RN  
        CheckSuperScript B7nMy oj  
         :>nk63V (  
    End If Bjml%  
     B h@R9O<  
    If Me.chkStyle.Value Then l<PGUm:_  
        Me.txtStatus.Text = "设置样式，请稍候...." Ox?LVRvxI  
        DoEvents +'>N]|Z  
        CeateOrModifyStyle #j d?ocoY  
    End If YP>VC(f   
     YH)U nql  
     @pQv}%  
     j8zh^q  
    ClearDomain =}\]i*  
         daWmF  
     w4'(Y,(`  
     |(}uagfrd  
    If Me.chkLIST.Value Then '97)c7E  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" Yk(OVl T  
     V:6#IL  
        ConvertListToOrdinary ' :g8a=L  
    End If >r{3t{  
     (6u<w#u  
     mvVVPf9  
    Dim pType As String, trimpTEXT As String G( JvAe]r  
    If Me.chkNum.Value = True Then ^c< <I-o|  
        Me.txtStatus.Text = "转换全角数字形式为半角" .!KlN%As  
        ConvertWidth "１", "1" u9:;ft{}N  
        DoEvents }E]`ly<Z  
        ConvertWidth "２", "2" \cPGyeq  
        DoEvents $Bz|[=  
        ConvertWidth "３", "3" c[!e*n!y  
        DoEvents nuw90=qj!]  
        ConvertWidth "４", "4" +6*oO|   
        DoEvents (E w o   
        ConvertWidth "５", "5" SjKIn-  
        DoEvents rr3NY$W  
        ConvertWidth "６", "6" $%;NX[>j  
        DoEvents -}{\C]%  
        ConvertWidth "７", "7" 4S  2I]d  
        DoEvents \9Itu(<f  
        ConvertWidth "８", "8" }CsUZ&*&  
        DoEvents -2 v|d]3qG  
        ConvertWidth "９", "9" m{mK;D  
        DoEvents y 97QqQ^  
        ConvertWidth "０", "0" [4kx59J3b  
        DoEvents \>cZ=  
        ConvertWidth "ａ", "a" $Pzvv`f*  
        DoEvents |?s%8c'w=  
        ConvertWidth "ｂ", "b" ]O<Yr'  
        DoEvents 'gUHy1p  
        ConvertWidth "ｃ", "c" Mb\~W UWI  
        DoEvents TnL%_!V!  
        ConvertWidth "ｄ", "d" L45&O *%  
        DoEvents $MKx\qx}  
        ConvertWidth "ｅ", "e" miuJ!Kr'  
        DoEvents s.1(- "DU  
        ConvertWidth "ｆ", "f" V?Lf& X?  
        DoEvents AbZ:AJ(  
        ConvertWidth "ｇ", "g" BS*cG>T  
        DoEvents ~Az20RrK)  
        ConvertWidth "ｈ", "h" eWqJ2Tt  
        DoEvents 6]T02;b>/,  
        ConvertWidth "ｉ", "i" a&#Z=WK4  
        DoEvents EM vV  
        ConvertWidth "ｊ", "j" 3=t}py7M  
        DoEvents A&$!s)8z  
        ConvertWidth "ｋ", "k" uWx/V+w  
        DoEvents `C=!8q  
        ConvertWidth "ｌ", "l" m4 E 6L  
        DoEvents ;Bc f~[ErM  
        ConvertWidth "ｍ", "m" $msT,$NJ  
        DoEvents 1:My8  
        ConvertWidth "ｎ", "n" PfnhE>[>cf  
        ConvertWidth "ｏ", "o" 5ez"B]&T  
        ConvertWidth "ｐ", "p" Vt n$*ML  
        ConvertWidth "ｑ", "q" _ H$ Cm  
        ConvertWidth "ｒ", "r" mt fDl;/D  
        ConvertWidth "ｓ", "s" RduA0@g0  
        ConvertWidth "ｔ", "t" i.cSD%*  
        ConvertWidth "ｕ", "u" i= ~HXr}  
        ConvertWidth "ｖ", "v" IAnY+= ^  
        ConvertWidth "ｗ", "w" zq4,%$y8|  
        ConvertWidth "ｘ", "x" n.$<D[@  
        ConvertWidth "ｙ", "y" 7*'_&0   
        ConvertWidth "ｚ", "z" xVfJ ]Y  
        ConvertWidth "Ａ", "A" 3tnYK&  
        ConvertWidth "Ｂ", "B" 85 "DS-+e  
        ConvertWidth "Ｃ", "C" W}Nd3  
        ConvertWidth "Ｄ", "D" {aGQ[MH\9  
        ConvertWidth "Ｅ", "E" &wNN| fH  
        ConvertWidth "Ｆ", "F" 5PKv@Mk  
        ConvertWidth "Ｇ", "G" Zx}=c4I(y  
        ConvertWidth "Ｈ", "H" *X%`MN  
        ConvertWidth "Ｉ", "I" 1Na CGD"  
        ConvertWidth "Ｊ", "J" VQPq+78  
        ConvertWidth "Ｋ", "K" YH':cze  
        ConvertWidth "Ｌ", "L" iA^w2K  
        ConvertWidth "Ｍ", "M" 4ms hB  
        ConvertWidth "Ｎ", "N" UT+\IzL  
        ConvertWidth "Ｏ", "O" feNr!/  
        ConvertWidth "Ｐ", "P" PwF}yx kI  
        ConvertWidth "Ｑ", "Q" QV{Nq=%]  
        ConvertWidth "Ｒ", "R" TQ=\l*R(A  
        ConvertWidth "Ｓ", "S" b44H2A .  
        ConvertWidth "Ｔ", "T" l:+tl/  
        ConvertWidth "Ｕ", "U" Rr%]/%  
        ConvertWidth "Ｖ", "V" (`3 Bi]7  
        ConvertWidth "Ｗ", "W" &9o @x]) @  
        ConvertWidth "Ｘ", "X" 4DuZF -y  
        ConvertWidth "Ｙ", "Y" umrRlF4M;  
        ConvertWidth "Ｚ", "Z" #A:I|Q1$g  
        ConvertWidth "^l", "^p" m|24)%Vj;=  
        ConvertWidth "（", "(" jJ55Az?t:  
        ConvertWidth "）", ")" GgA =EdJn  
     &`@,mUi{Ac  
    End If CG=#rc]vz  
E'XF n'  
    With ActiveDocument H1 \~T  
        Dim tbl As Table ]P(Eo|)m  
        For Each tbl In .Tables &JfyXM[]  
            tbl.Rows.Alignment = wdAlignRowCenter deHBY4@  
            tbl.Range.Font.NameFarEast = "楷体" Bq R;d  
            tbl.Range.Font.NameAscii = "Times New Roman" Pl1:d{"d  
            tbl.Range.Font.Size = 10.5 !G\1$"T$  
        Next 1)u= &t,  
        Set tbl = Nothing D-ug$ZRg  
    End With {:6VJ0s\  
     r+m8#uR  
     S_?}H  
    With ActiveDocument &[ 3y_,  
         bXJ,L$q   
        For i = 1 To .TablesOfContents.Count bI]1!bi]i  
            .TablesOfContents(i).Delete E'MMhl o  
        Next eDaVoc3  
         H@G7oK  
         %3xH<$Gq5  
         2$\1v*:  
        paraTotal = .Paragraphs.Count -uv1$|  
        paraCounter = 1 . s? ''/(  
         y9W*/H{[`  
        LastTitle0No = 0 =b`>ggw#  
        LastTitle1No = 0 IFG`  
        LastTitle2No = 0 ,Oxdqxu7  
        LastTitle3No = 0 aEZl ICpU7  
        LastTitle4No = 0 QR4v6*VpD  
        LastTableNo = 0 ~e%*hZNo  
        LastFigureNo = 0 EVb'x Zr  
         @q^WD_k  
        Dim Sec As Long pNQd\nY|0  
         !Toq~,a8?  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) DKK200j  
        If Sec = 0 Then ? ~_%I  
            Exit Sub ,{'~J @  
        End If JG/sKOlA  
         s<<vHzm  
        k = 0 ?[XH`c,  
        Do While (paraCounter < paraTotal) And bContinue !m_'<=)B4~  
            k = k + 1 50_%Tl[  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then 4RTEXoXs  
                Exit Do %A82{  
            End If !29 R l`9  
            paraCounter = paraCounter + 1 OEB_LI'  
            If k Mod 20 = 0 Then &]#D`u  
                Me.lbCounter.Caption = paraCounter %}j/G l5  
                DoEvents mT!~;] RrF  
            End If i]Kq  
        Loop _;'}P2&Q  
          sGdt)  
         1ed#nB %  
        Do While (paraCounter < paraTotal) And bContinue LgBs<2  
             c (\-7*En  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) F!fxA#  
            ShapeHeight = 0 o"[qPZd>  
            ShapeWidth = 0 Xj !0jF33  
           b?w4Nx#  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth /3Se*"u  
             : FxZdE  
            Select Case ParaType I9Z8]Q+2"  
                Case "【】表格内容" $#t&W&  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" `uzRHbJ`  
                Case "章" rTmcP23]  
                    LastTitle0No = LastTitle0No + 1 ]j1BEO!Bg  
                    '新一章开始，复位其下属标题编号 .@B \&U7  
                    LastTitle1No = 0 >S t  
                    LastTitle2No = 0 y99G3t  
                    LastTitle3No = 0 <#`<Ys3b*!  
                    LastTitle4No = 0 I*ho@`U  
                     i& _sbQ^  
                    k = Val(ttNo) @&,r|-  
                    If k = 0 Then '非数字编号章节 :$P < e~z'  
                        If ttNo <> NoSeries1(LastTitle0No) Then {Ziq~{W_  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString "B+M5B0Z  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText S;|%'Sn|j9  
                        End If QF%@MK0zC  
                    Else !>>$'.nb@~  
                        If Val(ttNo) <> LastTitle0No Then i~K~Czmok+  
                            rText = "第" & LastTitle0No & ttString _II;$_N  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText ]&}?J:+?0E  
                        End If ;K:.*sAa  
                         (%I`EAR  
                    End If 4=q\CK2^A  
                     g1&GX(4[  
                    '章段落设置 k U3] eh\I  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 J3q}DDnEo  
                    .Paragraphs(paraCounter).Style = "QLNU章节" (q +Q.Q  
                    .Paragraphs(paraCounter).Range.Select iT.hXzPzr*  
                    Selection.EndKey unit:=wdLine ]t #,{%h  
                    tc = Replace(rText, vbCr, "") ENqJ9%sk7  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False N4HnW0  
                Case "一级标题" 2H]&3kM3X  
                    LastTitle1No = LastTitle1No + 1 yP-.8[;  
                    '新一级标题开始，复位其下属标题编号 C}+(L3Z  
                    LastTitle2No = 0 &<!I]:Y  
                    LastTitle3No = 0 Dhef|E<  
                    LastTitle4No = 0 j4G,Z4  
                     VaQ}XM  
                    If ttNo <> NoSeries1(LastTitle1No) Then >aa-ix &  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString ;| \Ojuf  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText ky!'.3yoI  
                    End If C #TS  
                   [dt1%DD`M  
                     >@rp]xx  
                    '一级标题段落设置  格式：一、标题内容 u!g<y  
                    .Paragraphs(paraCounter).Range.Text = rText ]^ j)4us  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" J+z0,N[  
                    .Paragraphs(paraCounter).Range.Select 0 'L+9T5  
                    Selection.EndKey unit:=wdLine *d,SI[c%e  
                    tc = Replace(rText, vbCr, "") *B3` #t  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False CrqWlO  
                Case "二级标题" E; RI.6y  
                    LastTitle2No = LastTitle2No + 1 2OK%eVba  
                    '新二级标题开始，复位其下属标题编号 7&T1RB'>  
                    LastTitle3No = 0 A>d*<#x  
                    LastTitle4No = 0 b,SY(Ce~g  
                     /D~z}\k  
                    If ttNo <> NoSeries1(LastTitle2No) Then I}?fy\1A&  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString {H0B"i  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText T[<9Ty'^  
                    End If -.z~u/uL  
                     =&}dP%3LC)  
                    '二级标题段落设置 格式：(一)、标题内容 4|Z3;;%+  
                    .Paragraphs(paraCounter).Range.Text = rText |@d7o]eM|  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" y YF80mnJz  
                     \ u5%+GA-:  
                    .Paragraphs(paraCounter).Range.Select '<XG@L  
                    Selection.EndKey unit:=wdLine '9^x"U9c  
                    tc = Replace(rText, vbCr, "") bLf }U9  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False Dk[[f<H_{  
                 2+ 9">a@  
                Case "三级标题" OF DPtJwV  
                    LastTitle3No = LastTitle3No + 1 E-! `6  
                    '新三级标题开始，复位其下属标题编号 Y|1kE;  
                    LastTitle4No = 0 /u#uC(Uwl  
                     sq :ff  
                    If Val(ttNo) <> LastTitle3No Then L0uN|?}  
                            rText = LastTitle3No & ". " & ttString s6KZV@1  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText t,=khZ  
                         \idg[&}l}  
                    End If iLS' 47  
                    '三级标题段落设置 格式：1. 标题内容 N$_Rzh"9rr  
                    .Paragraphs(paraCounter).Range.Text = rText \W*ouH  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" x:?1fvVR  
                    .Paragraphs(paraCounter).Range.Select Jh }3AoD  
                    Selection.EndKey unit:=wdLine ,T1 t`  
                    tc = Replace(rText, vbCr, "") $=H\#e)]Ug  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False %X#Wc:b  
                Case "四级标题" r!#a.  
                    LastTitle4No = LastTitle4No + 1 e#16,a-}o  
                     d3Y#_!)  
                    If Val(ttNo) <> LastTitle4No Then z?E:s.4F  
                            rText = "(" & LastTitle4No & "). " & ttString 501|Y6ptl  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText }0f[x ?V  
                     Kb4u)~S:  
                    End If &|gn%<^  
                    '四级标题段落设置 格式：(1). 标题内容 &LYU#$sj  
                    .Paragraphs(paraCounter).Range.Text = rText wAy;ZNu  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" Iy`Zh@"~  
                    .Paragraphs(paraCounter).Range.Select /4=O^;   
                    Selection.EndKey unit:=wdLine >gVR5 o  
                    tc = Replace(rText, vbCr, "") gv<9XYByt  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False #M8"b]oh6  
                 0! !pNK%(  
                Case "表格标题" hEEbH@b  
                    LastTableNo = LastTableNo + 1 iyj&O"  
                     8 Z#)Xb4  
                    If ttNo <> CStr(LastTableNo) Then v ?Y9z!M  
                            rText = "表" & LastTableNo & ". " & ttString WU}JArX9  
                            ErrMsg.AddItem "表格编号错误：" & ParaText neOR/]  
                   ea7v:#O[S  
                    End If 4pA(.<#A  
                     0~^opNR  
                    '表格名称段落设置 格式：表1. 表格名称 bh_i*DJ]  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" ]A!Gr(FHQ  
                    xe = Replace(rText, vbCr, "") =zI eZ7  
                    .Paragraphs(paraCounter).Range.Select *a+~bX)18  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 5N ' QG<jE  
                    Selection.Range.Text = xe <Ep P;  
                    Selection.EndKey zXMIDrq  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False c t,p?[Q  
                 m2VF}% EIr  
                Case "表格首行" 3:);vh!  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" IURi90Ir  
                Case "图片标题" {mueP6Gz@J  
                    LastFigureNo = LastFigureNo + 1 rF 7EO%,  
                     t;E-9`N  
                    If ttNo <> CStr(LastFigureNo) Then }HXNhv-K  
                            rText = "图" & LastFigureNo & ". " & ttString }{ 9E~"_[  
                            ErrMsg.AddItem "表格编号错误：" & ParaText u^V`Ucd"R  
                   =">O;L.xj  
                    End If Y+WOU._46I  
                    '图片名称段落设置 格式：图1. 图名称 @gs Kb* ,  
                    .Paragraphs(paraCounter).Range.Text = rText Vh'H5v^  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" HfmTk5|/  
                    .Paragraphs(paraCounter).Range.Select HM--`RJ  
                    Selection.EndKey unit:=wdLine j;<;?IW  
                    xe = Replace(rText, vbCr, "") xt40hZ$  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False f3 *u_LO  
                Case "正文" ,=z8aiUu  
                     '正文名称段落设置 mDj:w#q  
                    .Paragraphs(paraCounter).Style = "QLNU正文" i}M&1E  
               Case "文献条目" =|uX?  
                    With .Paragraphs(paraCounter) V&NOp  
                        '.Range.Select &HW%0lTs%  
                        'Selection.ClearFormatting 5v>(xl  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” G?8,&jP~T  
                        .Style = "QLNU参考文献" ##yi^;3Y  
                    End With cV)C:!W2  
               Case "图表注解" })s s.  
                    With .Paragraphs(paraCounter) XlB`Z81j  
                        .Range.Font.NameFarEast = "楷体" )zen"](cze  
                        .Range.Font.NameAscii = "Times New Roman" +h[$\_y  
                        .Range.Font.Size = 9 '小5号字 O7q-MeMM  
                         JNk ]$ xz  
                        .Alignment = wdAlignParagraphCenter @\[&_DZ  
                        .LeftIndent = 0 xB 4A"|  
                        .RightIndent = 0 @KNp?2a  
                        .FirstLineIndent = 0 HiVF<tN  
                        .LineSpacing = 12 ywCE2N<-V?  
                        .LineSpacingRule = wdLineSpaceExactly ~M43#E[oOF  
                        .LineUnitAfter = 0 n_?<q{GW  
                        .LineUnitBefore = 0 qb "H&)aHw  
                        .OutlineLevel = wdOutlineLevelBodyText %'t~+_  
                        .PageBreakBefore = False 0y|}}92:  
                        .RightIndent = 0 b ~v  
                        .WordWrap = True l<^#@SH  
                        .LineUnitAfter = 0.5 875V{fvPBU  
                         .qF@ }dO  
                    End With 3Jk;+<  
                Case Else }U+gJkY2  
                    '不作处理 _X;5ORH"  
            End Select QbpRSdxy`$  
             ;xwa,1]  
            '含有inlineshape的段落处理 $Ne#F+M9x  
            If ShapeHeight > 30 Then aoMQ_@0  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 5/Swn9vwl  
            End If tQ] R@i  
             v,1.n{!;  
            If (ShapeWidth + ShapeHeight) > 150 Then Z.VVY\  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" (~/D*<A  
            End If 1>l {c  
             sx(yG9  
            '段落计数器递 blxH`O!  
            paraCounter = paraCounter + 1 hwkol W  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter G4AX8@;U  
            Me.txtStatus.Text = ParaText sa*]q~ a  
            DoEvents Gl}=Q7  
        Loop %,>> <8  
    End With !L-.bve!  
     :S?'6lOc(  
    msg = "" hIPDJ1a  
     f{5)yZ`J*  
    For i = 0 To Me.ErrMsg.ListCount - 1 YceiP,!4?v  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) 'J]V"Z)  
    Next Z\O , 9  
     "hpK8vQ  
     USe"1(|E  
     )Q(tryiSi  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg rN} {v}n  
    Me.cmdCheck.Enabled = True ~eqX<0hf@  
    Me.txtStatus.Visible = True lXL\e(ow  
    Me.lbParaType.Visible = False 0B1*N_.L@  
     !^G+@~U  
    bContinue = False QT\S>}  
End Sub }q27M  
ZYrd;9zB  
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) IN`05Q  
    Dim pTEXT As String /3rt]h"  
     lHz:Iibt  
    pTEXT = ChKRange.Text ':F{st>&H  
     Lj({ T'f(  
    ParaType = "其它" )" |g&=  
    TitleString = pTEXT 4d9i AN  
    TitleNo = "N/A" ?$F:S%eH  
     Qn<J@%  
    shpCounter = ChKRange.InlineShapes.Count S1%{/w  
    If shpCounter <> 0 Then  {EZ ;  
        MaxShpHeight = 0: TotalShpWidth = 0 "YHe]R>3s  
        For i = 1 To shpCounter t'0r4&\  
            k = ChKRange.InlineShapes(i).Height <E6]8SQE  
            l = ChKRange.InlineShapes(i).Width )#i]exZ  
            If k > MaxShpHeight Then ma?569Z8~0  
                MaxShpHeight = k Cl4y9|  
            End If OFCkQEG=y>  
            TotalShpWidth = TotalShpWidth + l QTK \"  
        Next mNm 8I8  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then yq\)8Fe  
            Exit Sub r 'pFHX  
        End If g#5g0UP)V  
    End If h Sr#/dw&  
     NfS0yQPx  
    '空行 rb&^ei9B  
    If Len(pTEXT) <= 2 Then f{WJM>$:  
        Exit Sub ]#))#-&1  
    End If &l{yEWA}g  
     uZ%b6+(  
         b"x;i\Z0%  
    '是否为表格中的文字 L=4?vs  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then T(7 8{A>  
        ParaType = "表格内容" "uqa~R{  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) 18 V*Cu  
        If k = 1 Then kn`KU.J.  
            ParaType = "表格首行" )v8;\1`s:  
        End If fy9{W@E3p  
        Exit Sub x\;`x$3t  
    End If #j iQa"  
     xg\M9&J  
    '例外情况：脚注 VLu_SXlo*  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then k`2 K?9\  
        ParaType = "脚注" M)Tv(7  
        Exit Sub EmG`ga)s  
    End If D-A#{e _  
     +;U}SR<  
    '例外情况：尾注 m7^a 4  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then 7^as~5'&-  
        ParaType = "尾注" Lm:O vVVB  
        Exit Sub #qm<4]9 1  
    End If 44RZk|U1J{  
     Yca9G?^\v  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then U-X  
        ParaType = "页眉页脚" W{ @lt}  
        Exit Sub m'oVqA&  
    End If ANp4yy+  
     lb`P9mbr+  
     09%q/-$  
    With regEX sVaWg?=qs'  
        .Global = True W&BwBp]K  
         JB''Ujyi  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" kH1l -mxz  
        If regEX.Test(pTEXT) Then ^fXNeBj  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") =5I1[p;  
            TitleString = regEX.Replace(pTEXT, "$3") v ?n`kw  
            TitleNo = regEX.Replace(pTEXT, "$1") RE!MX>sOEq  
            ParaType = "章" _(J- MCY\  
            Exit Sub Fov/? :f$  
        End If M+)%gnq`u  
         `k _5Pz\  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" VH+^G)^)W  
        If regEX.Test(pTEXT) Then j\!zz  
            ParaType = "一级标题" ^yH|k@y  
            regEX.Execute (pTEXT) X1#D }  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") VXR.2C  
            TitleString = regEX.Replace(pTEXT, "$3") T?^AllUZQR  
            TitleNo = regEX.Replace(pTEXT, "$1")   U7tT  
            Exit Sub {eqUEdC  
        End If zO9|s}J8q  
         8Tv;,a  
        '全角或半角括号中的数字 f1hi\p0q  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" ./J.OU1  
        If regEX.Test(pTEXT) Then +J_A *B  
            ParaType = "二级标题" DU]MMR  
            regEX.Execute (pTEXT) 1\kOjF)l  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") $vlgiJ&f  
            TitleString = regEX.Replace(pTEXT, "$5") zZki9P   
            TitleNo = regEX.Replace(pTEXT, "$2") d q"b_pr;  
            Exit Sub u%VO'}Gz  
        End If Q gDjc '  
         RZm5[n  
        '阿拉伯数字  1. 2. f(?>z!n0  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" =@gH$Q_1  
        If regEX.Test(pTEXT) Then dSk\J[ D  
            ParaType = "三级标题" p^ 9QYR  
            regEX.Execute (pTEXT) .'5yFBS  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 %49@  
            TitleString = regEX.Replace(pTEXT, "$3") \TC&/'7}  
            TitleNo = regEX.Replace(pTEXT, "$1") 8X5;)h   
            Exit Sub qJ#?= ITE  
        End If (3{'GX2c  
         Q3wD6!'&m  
        '全角或半角括号中的阿拉伯数字 |3Oe2qb  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" yTkYPx  
        If regEX.Test(pTEXT) Then JS}W4 N  
            ParaType = "四级标题" }9<aX Y,  
            regEX.Execute (pTEXT) ZCbxL.fFz  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") TBrAYEk  
            TitleString = regEX.Replace(pTEXT, "$5") E' JVf%)  
            TitleNo = regEX.Replace(pTEXT, "$2") . I {X  
            Exit Sub 4#;rv$ {  
        End If  @*%Q,$  
          L~I<y;x  
        '表格名称 mL18FR N  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" g%1!YvS3v  
        If regEX.Test(pTEXT) Then n?!.r c  
            ParaType = "表格标题" A$Es(<'9g  
            regEX.Execute (pTEXT) #x)G2T'?  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) u0w2v+  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) `Ft`8=(  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) V*U"OJ%  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 L>xcgV7  
            Exit Sub hLYSYMUb  
        End If \C/`?"4w  
         ^ylJ_lN&=1  
        '图片名称 e%(zjCA  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" sjWhtd[fgG  
        If regEX.Test(pTEXT) Then zP rT0  
            ParaType = "图片标题" W4|1wd}.t  
            regEX.Execute (pTEXT) [M@i ,d-;A  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") Ud`V"X  
            TitleString = regEX.Replace(pTEXT, "$3") 92+({ fg W  
            TitleNo = regEX.Replace(pTEXT, "$1") ZV_mP'1*  
            Exit Sub u2JkPh&!rq  
        End If zdU<]ge  
         Xb#x^?|  
        '参考文献 h8u(lIRHQ  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 mK@\6GOMYP  
        If regEX.Test(pTEXT) Then sZ]O&Za~  
            ParaType = "文献条目" &=X1kQG  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") q6\z]8)  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") 3(E"$Se,f  
            Exit Sub (@uQ>dR:  
        End If Ny\iRU)fN  
         )&se/x+  
        prfx = Left(pTEXT, 2) Qn[4&nUD  
        If prfx = "注：" Or prfx = "注:" Then H Y.,f_m  
            ParaType = "图表注解" iWGgt]RJ  
            Exit Sub onG,N1`+  
        End If JNuo+Pq  
         ogip#$A}3  
         +g7Iu! cA  
        ParaType = "正文" 7&'^H8V  
         j)'V_@  
    End With o@EV>4e y  
End Sub W(~G^Xu  
kOFEH!9&  
Sub ConvertListToOrdinary() vb{& T<  
    Dim st As Paragraph L.l"'=M  
    With ActiveDocument _ nS';48  
        For i = .Paragraphs.Count To 1 Step -1 J j yQ  
            Set st = .Paragraphs(i) Vu^J'>X  
            lst = st.Range.ListFormat.ListString \EUc17  
            If lst <> "" Then j=PQoEtU'<  
                st.Range.ListFormat.RemoveNumbers 4-ZiKM  
                st.Range.InsertBefore lst & " " oel3H5Nz  
            End If T/)$}#w0i  
        Next |cWW5\/  
    End With ] bhzB  
    Set st = Nothing <W|{zAyv  
End Sub w+2:eFi=/  
*)L%pH>`  
Private Sub UserForm_Activate() wb"Jj  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" b0riiF  
    Me.lbTotal.Font.Bold = True &AUL]:<s  
    Me.txtStatus.Visible = False @l$cZi e  
    Me.cmdCheck.Enabled = True 84e)huAs  
}I; =IYrN  
End Sub F{bET  
= Ky1v$<  
}Jjq ]lW  
Sub CheckSuperScript() &,{cm^*  
    Selection.Find.ClearFormatting !COaPrg  
    Selection.Find.Replacement.ClearFormatting g3e\'B'  
    With Selection.Find @DU]XKv  
        .Text = "[【\[［〖](*)[】\]〗］]" k-b_ <Tbo|  
        .Replacement.Text = "[\1]" 3ZC to[Y  
        .Replacement.Font.Superscript = True 0N_Ma')i  
        '.Replacement.Font.Color = wdColorBlue }1N)3~  
        .Forward = True (^eE8j/K  
        .Wrap = wdFindContinue :9_K@f?n  
        .FORMAT = True s-* 8=  
        .MatchCase = False }\*dD2qNL}  
        .MatchWholeWord = False Vy-H3BR  
        .MatchByte = False %DgU  
        .MatchAllWordForms = False 0O!%NL[,  
        .MatchSoundsLike = False  J@(*(oQb  
        .MatchWildcards = True 04WKAP'c N  
    End With Gv?3}8Wp  
    Selection.Find.Execute Replace:=wdReplaceAll PX\}lTJ  
End Sub fHlmy[V+M  
wvx N6  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 3M+hjc.  
    bContinue = False 1 (P >TH  
    Set regEX = Nothing {LR?#.   
End Sub rM=Q.By+\  
XHlPjw  
Sub CeateOrModifyStyle() goIn7ei92  
' H Tf7r-  
' Ju)2J?Xs5  
Dim stl As Style sJt&`kZ  
     4LUFG  
    Options.Pagination = False 9)aXLM4Y  
     S%mN6b~{  
    On Error Resume Next  6.KR(V  
    For Each stl In ActiveDocument.Styles uAK-%Uu?  
        stl.Delete ? Yy[8_(tN  
    Next #u|;YC  
    On Error GoTo 0 p?0 a"5Q  
     (+CB)nV0IA  
    Set stl = Nothing N@?Fpmu/k  
     /LPSI^l!m  
    DoEvents 7KuTC%7  
    On Error Resume Next ]Ny.  gu  
     g9GE0DbT`  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph DW m$:M4 z  
     nDui9C  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph  UZmz k  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph N$:[`,  
     z=n"cE[KtB  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph !_l W#fe R  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph wH {lp/  
     <`H:Am`  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph 'ZT E"KT  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph JgYaA*1X  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph r\ ` R$  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph aR*z5p2-w  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph G)5%f\&  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph ]*[S# Jk  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph kp xd+w  
     Gob1V  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph E-.M+[   
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph _9\ ayR>d  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph WASs'Gx  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph QmbD%kW`3  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph DH)@8)C  
      {hZ_f3o  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph 7!Ym~M=  
    On Error GoTo 0 D-E30b]e  
    DoEvents $ LFzpg  
     *1Nz VV  
    'BaseStyle :E@"4O?<Y)  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False }"Hf/{E$_"  
    With ActiveDocument.Styles("BaseStyle").Font HWVWl~FA  
        .NameFarEast = "宋体" c<pr1g  
        .NameAscii = "Times New Roman" (`!?p ^>A  
        .NameOther = "宋体" *oZBv4Vh   
        .Size = 10.5 IUbYw ~f3  
        .Bold = wdUndefined oxHS7b  
        .Italic = wdUndefined L$i&>cF\_>  
        .Subscript = wdUndefined X/2Xr(z"k  
        .Subscript = wdUndefined m)=  -sD  
         4SY]Q[  
        .Underline = wdUnderlineNone WP2|0ib  
        .UnderlineColor = wdColorAutomatic vT\`0di~  
        .StrikeThrough = False ^|>vK,q$I  
        .DoubleStrikeThrough = False ]*ZL>fuD|  
         K}&|lCsb  
        .Outline = False J@p[v3W  
        .Emboss = False sJw3o7@pg  
        .Shadow = False iNd 8M V  
        .Hidden = False oBifESJ  
        .SmallCaps = False Tj <W4+p{  
        .AllCaps = False 0K@s_ C=n#  
        .Color = wdColorAutomatic k3}ymhUf  
        .Engrave = False {p yo  
        .Scaling = 100 M:Xswwq  
        .Kerning = 1 Ol{)U;, `  
        .Animation = wdAnimationNone #f\U3p  
        .DisableCharacterSpaceGrid = False _Bb/~^  
        .EmphasisMark = wdEmphasisMarkNone pW waN4  
    End With nFX8:fZ$>  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat $-jj%x\}  
        .LeftIndent = 0 &AZr (>  
        .RightIndent = 0 ]\ sBl  
        .SpaceBefore = 0 EAj2uV  
        .SpaceBeforeAuto = False Ia0.I " ,  
        .SpaceAfter = 0 wrac\.  
        .SpaceAfterAuto = False T$0//7$')  
         iW.8+?Xq&  
        .LineSpacingRule = wdLineSpaceSingle 6@ ToPbj4  
        .Alignment = wdAlignParagraphJustify 0rsdDME[  
         6b6}HO  
        .WidowControl = False na(@`(j[  
        .KeepWithNext = False 7W5FHZd'  
        .KeepTogether = False )O#>ONm^  
        .PageBreakBefore = False 6_^ u}me  
        .NoLineNumber = False 4F)z-<-b  
         a}hpcr({?  
        .FirstLineIndent = CentimetersToPoints(0) HGh`O\f8  
        .OutlineLevel = wdOutlineLevelBodyText \_De( p  
        .CharacterUnitLeftIndent = 0 2/E3~X7  
        .CharacterUnitRightIndent = 0 aOyAP-m,  
        .CharacterUnitFirstLineIndent = 0 Z +(V'e;  
        .LineUnitBefore = 0 @Zjy"u  
        .LineUnitAfter = 0 O292JA  
        .AutoAdjustRightIndent = True J0C,K U(  
        .DisableLineHeightGrid = True q 1Rk'k4+  
         O}Fp\"  
        .FarEastLineBreakControl = True $*9h\W-)`Q  
        .WordWrap = True kNd[M =%  
        .Hyphenation = False lRZt))3  
         k .KN9=o  
        .HangingPunctuation = True P7 H-Dw  
        .HalfWidthPunctuationOnTopOfLine = True F?T3fINR  
        .AddSpaceBetweenFarEastAndAlpha = True .FXq4who  
        .AddSpaceBetweenFarEastAndDigit = True b@/z^ k{%  
        .BaseLineAlignment = wdBaselineAlignBaseline )+u|qT3%  
    End With ,* @m<{DX)  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False ]Tx8ImD#)A  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll RUlM""@b  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese HZkC3$  
    ActiveDocument.Styles("BaseStyle").NoProofing = False mxGa\{D# y  
     =5[}&W  
    '一级标题题样式 _F;(#D  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") )l\BZndf  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" q,PB; TT  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False l`[*b_ Xt  
    With ActiveDocument.Styles("QLNU一级标题").Font do+HPnfDzU  
        .NameFarEast = "黑体" ~{=+dQ  
        .NameAscii = "Arial Black" m%qah>11  
        .NameOther = "黑体" 5m=3{lBi  
        .Name = "黑体" 0 #VH=pga  
        .Size = 16              '三号 ,l.O @  
        .Bold = True 8ooj)  
        .Italic = wdUndefined 9bNjC&:4/]  
        .Subscript = wdUndefined 6AUXYbK,  
        .Superscript = wdUndefined eH(8T  
    End With (C!u3ke2D  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat iVFHr<zk  
         P%ev8] 2  
        .LeftIndent = CentimetersToPoints(0)  Ae <v  
        .RightIndent = CentimetersToPoints(0) ,*bI0mFZ  
        .FirstLineIndent = CentimetersToPoints(0) ++5W_Ooep  
         [ 3]!*Cd  
        .LineSpacingRule = wdLineSpaceSingle [NQ`S ~_:  
        .Alignment = wdAlignParagraphCenter Me`jh8(K\6  
         w`CGDF\Oo  
        .WidowControl = True 4%KNHeaN  
        .KeepWithNext = True z"Gk K T  
        .KeepTogether = True *jCXH<?R  
        .OutlineLevel = wdOutlineLevelBodyText |9?67-  
         !FA^~  
        .LineUnitBefore = 0.5 D?) "Z$  
        .LineUnitAfter = 0.5 I} kx;!*b  
    End With =zK7`5  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False J 2v=b?NE  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll D ( <_1  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese H9x xId?3u  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True iRPt0? $  
    DoEvents [6FCbzS_W  
     L/"u,~[  
    '二级 cPPE8}PVH  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") &g\D-At  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" q/6d^&  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False `N_NzH  
    With ActiveDocument.Styles("QLNU二级标题").Font <DvpqlT  
        .NameFarEast = "黑体" >(<OhS(  
        .NameAscii = "Arial Narrow" ;Tvy)*{  
        .NameOther = "黑体" )67Kd]  
        .Name = "黑体" =L 7scv%i  
        .Size = 15        '小三号 p6A"_b^  
        .Bold = False 8]YFlW9  
        .Outline = False gX{V>T(<  
        .Italic = wdUndefined "6gu6f  
        .Subscript = wdUndefined di "rvw;R  
        .Superscript = wdUndefined H8`K?SXU  
    End With S=0zP36kH:  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat ;v[F@O~*)  
        .LeftIndent = CentimetersToPoints(0) \XCs( lNh  
        .RightIndent = CentimetersToPoints(0) 0"ZB|^c=  
        .FirstLineIndent = CentimetersToPoints(0) E;@` { v  
         .o]vj Nrd/  
        .LineSpacingRule = wdLineSpaceSingle G!ty@ Fx  
        .Alignment = wdAlignParagraphLeft lw\OsB$  
         cW/RH.N  
        .WidowControl = True xzyV| (  
        .KeepWithNext = True H/|Mq#K  
        .KeepTogether = True zEl@jK,{$  
        .PageBreakBefore = False EZ8Ih,j9  
        .OutlineLevel = wdOutlineLevelBodyText QDzFl1\P  
         !BIq>pO%Ui  
        .LineUnitBefore = 0.5 bO>Mvf  
        .LineUnitAfter = 0.5 w 5b D  
          =SRp  
    End With }e9E+2}Z\  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False Y@c! \0e$  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll QNLkj`PL/  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese HfFP4#C,  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True Ja4O*C<  
    DoEvents Gm}ecW  
     JrQd7  
    '三级标题样式 smoz5~  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") %i]q} M  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" 6w0/;8(_m  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False zRx-xWo  
    With ActiveDocument.Styles("QLNU三级标题").Font %t([  
        .NameFarEast = "宋体" $Dxz21|P7  
        .NameAscii = "Times New Roman" zb OEF  
        .NameOther = "黑体" pfe9 n[  
        .Name = "黑体" 1Yo9Wf;vP  
        .Size = 14               '四号 JY(_}AAu  
        .Bold = False _ncqd,&z  
        .Outline = False Zoh2m`6  
        .Italic = wdUndefined &DYHkG  
        .Subscript = wdUndefined xm6=l".%z  
        .Superscript = wdUndefined RnE=T/VZJ  
    End With J)6RXt*!  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat d(jd{L4d  
        .LeftIndent = CentimetersToPoints(0) +`r;3kH ..  
        .RightIndent = CentimetersToPoints(0) Eyxw.,rB/  
        .FirstLineIndent = CentimetersToPoints(0) ZL:nohB  
         Egi<m   
        .LineSpacingRule = wdLineSpaceSingle .8<bz4  
        .Alignment = wdAlignParagraphLeft JpvE c!cli  
         ]uI#4t~  
        .WidowControl = True w6F4o;<PR  
        .KeepWithNext = True t,]r%  
        .KeepTogether = True V)mRG`L  
        .PageBreakBefore = False S#/[>Cb  
        .OutlineLevel = wdOutlineLevelBodyText Hq?-e?Nc  
         ;$ D*,W *  
        .CharacterUnitLeftIndent = 0 'gxSHqeI2  
        .CharacterUnitRightIndent = 0 I: P/ ?-  
        .CharacterUnitFirstLineIndent = 2 6#MIt:#  
          O3bo3Cm$  
        .LineUnitBefore = 0.5 ; dPyhR  
        .LineUnitAfter = 0 .RxH-]xk  
    End With X|{TwmHd  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False )(oRJu)y  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll I0h/x5  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese s(w6Ldi  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True 4yV}4f$q  
    DoEvents oP$NTy[  
     1mz;4xb  
    '四级标题样式 QmT L-  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") U] riBlg>  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" +H,/W_/g  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False V*@pmOhz  
    With ActiveDocument.Styles("QLNU四级标题").Font Du k v[/60  
        .NameFarEast = "宋体" Pn\ Lg8  
        .NameAscii = "Times New Roman" YLVIn_\}  
        .NameOther = "宋体" vrXUS9i.  
        .Name = "宋体" 6+b!|`?l+  
        .Size = 12               '小四号 E?l_ *[G  
        .Bold = True B<SuNbR  
        .Outline = False Qr6[h!  
        .Italic = wdUndefined c:.k2u  
        .Subscript = wdUndefined Smzy EMT  
        .Superscript = wdUndefined G1K5J`"*  
    End With h2# G  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat iq)4/ 3"6  
         x{`>Il  
        .LeftIndent = CentimetersToPoints(0) #eD@s En  
        .RightIndent = CentimetersToPoints(0) 6J9^:gXW~  
        .FirstLineIndent = CentimetersToPoints(0) h$)+$^YI  
         y m<3  
        .LineSpacingRule = wdLineSpaceSingle IP~*_R"bM  
        .Alignment = wdAlignParagraphLeft ne4j_!V{Mf  
         hF"yxucj$  
        .WidowControl = True AifnC4  
        .KeepWithNext = True _5uzu6:y  
        .KeepTogether = True y*0bHzJ  
        .PageBreakBefore = False M. O3QKU4  
        .OutlineLevel = wdOutlineLevelBodyText Cb~_{$A  
         R *lJe6  
        .CharacterUnitLeftIndent = 0 f7c%Z:C#Y  
        .CharacterUnitRightIndent = 0 -& I)3  
        .CharacterUnitFirstLineIndent = 2 |QHDg(   
         paF$ o6\  
        .LineUnitBefore = 0 R#eY@N}\  
        .LineUnitAfter = 0 CvW*/d q  
         y#!8S{  
    End With ~4S@kYe{3K  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False _&_#uV<WG0  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll Nih8(pbe  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese GD<xmuo  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True ~L)9XK^15  
    DoEvents QCIH1\`jW  
     wWB-P6  
    '正文校式 `h*)PitRa  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") -. ~Dhk  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" ~W p>tnl  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False )R.y>Ucb0  
    With ActiveDocument.Styles("QLNU正文").Font $-H#M] Gq  
         ^  ry   
        .NameFarEast = "宋体" N2[EdOJT_  
        .NameAscii = "Times New Roman" 78&jaw*1A  
        .NameOther = "宋体" n@<+D`[.V  
        .Name = "宋体" GLrHb3@"N  
         ~1jSz-s  
        .Size = 12               '小四号 0"]N9N;/  
         u O8z.  
        .Bold = wdUndefined }ac0}  
        .Italic = wdUndefined 5TqB&GP0  
        .Subscript = wdUndefined *^e06xc:  
        .Superscript = wdUndefined M@ILB-H  
         H,bYzWsrPo  
        .Outline = False d%FD =wm  
        .Emboss = False  pbM~T(Y8  
        .Shadow = False G9J+D?'hH  
        .Hidden = False dY'/\dJ  
         #q 'J`BC  
        .DisableCharacterSpaceGrid = True RwJ#G7S#  
    End With \_;z m+ <{  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat 2{:bv~*I0F  
         ?s/]k#H  
        .LeftIndent = CentimetersToPoints(0) #!(OTe L  
        .RightIndent = CentimetersToPoints(0) 0\*[7!`s  
        .FirstLineIndent = CentimetersToPoints(0) +L D\~dcV+  
         ,) ^4H>~V  
        .LineSpacingRule = wdLineSpaceExactly .\K0+b;  
        .LineSpacing = 20 gM~ dPM|  
        .Alignment = wdAlignParagraphLeft BO)K=gl;8  
         ^}vLZA  
        .WidowControl = False ejP273*ah  
        .KeepWithNext = False W9nmTz\8  
        .KeepTogether = False c@!%.# |y  
        .PageBreakBefore = False H/n3il_-I  
        .Hyphenation = False qOAK`{b  
         [(Ss^?AJW  
        .OutlineLevel = wdOutlineLevelBodyText w7aC=B/{?i  
         ?.Z4GWyXa  
       wPdp!h7B~N  
        .CharacterUnitLeftIndent = 0 < RH2G   
        .CharacterUnitRightIndent = 0 Khp`KPxz%  
        .CharacterUnitFirstLineIndent = 2 5xKo(XNp  
         nA$zp  
        .LineUnitBefore = 0 !?!~8J~  
        .LineUnitAfter = 0 4d~Sn81xW  
        .SpaceBefore = 0 w9h`8pt  
        .SpaceAfter = 0 YTP6m9hA+  
         &qKJN#NM@  
        .DisableLineHeightGrid = True s|L}wtc  
    End With :%-xiv  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False Rg@W0Bc)  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll  ,U':=8  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese Nr 5h%<` I  
    ActiveDocument.Styles("QLNU正文").NoProofing = True Q'xZ\t  
    DoEvents X&R ,-^  
     S?TyC";!  
    '图片段落样式 AG/? LPJ  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") r/E'#5 Q  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" Qz6Ry\u  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False F*Lm=^:  
    With ActiveDocument.Styles("QLNU图片段落").Font #Duz|F+%  
        .Size = 12               '小四号 Dg(882#_  
        .Italic = wdUndefined }j9V0`Q  
        .Subscript = wdUndefined #;,dk(URo  
        .Superscript = wdUndefined J;"66ue(d  
    End With ,ND}T#yTR  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat ^UTQcm  
         yU'Fyul  
        .LeftIndent = CentimetersToPoints(0) x aiA2  
        .RightIndent = CentimetersToPoints(0) }Fy~DsQ  
        .FirstLineIndent = CentimetersToPoints(0) fy&vo~4i;  
         + q@kRQY;n  
        .LineSpacingRule = wdLineSpaceSingle pV`?=[h9  
        .Alignment = wdAlignParagraphCenter LA?h+)  
        .KeepWithNext = True v53qpqc  
        .OutlineLevel = wdOutlineLevelBodyText (0Buo#I  
         Bs7/<$9K/  
        .CharacterUnitLeftIndent = 0 [AgS@^"sf5  
        .CharacterUnitRightIndent = 0 q{v?2v{  
        .CharacterUnitFirstLineIndent = 0 =To}yJ#  
         Fv_rDTo  
        .LineUnitBefore = 0 IjJO;  
        .LineUnitAfter = 0 X 633.]+  
    End With kex4U6&OQB  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False t*X k'(v  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll 7&-i :2  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese 7S+_eL^  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True RE~:+.eB  
    DoEvents B"sQ\gb%Q  
     Y)="of  
     L9L!V"So1k  
    '第X章 DPIIE2X  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") }s i{  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" HAa$ pGb  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False ^0" W/  
    With ActiveDocument.Styles("QLNU章节标题").Font <*I%U]  
        .NameFarEast = "黑体" ';<gc5EK  
        .NameAscii = "Arial Black" %^1@c f?.  
        .NameOther = "Arial Black" ipy1tXc  
        .Name = "黑体" =P>c1T1-  
        .Size = 16 \Eqxmo  
        .Bold = True \Nd8,hE  
        .UnderlineColor = wdColorAutomatic |-kU]NJFR  
        .Outline = False b|_Pt  
        .Italic = wdUndefined 'Bul_D4B  
        .Subscript = wdUndefined |cK o#nfzZ  
        .Superscript = wdUndefined aN n\URR  
        .Scaling = 100 x%<oeM3U  
        .DisableCharacterSpaceGrid = True N pu#.)G  
    End With *2wFLh  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat 0V:7pSC{P  
        .LineSpacingRule = wdLineSpaceSingle 5~ho1Ud  
        .Alignment = wdAlignParagraphCenter s'/b&Idf8  
        .WidowControl = True R Ptc \ 4  
        .KeepWithNext = True )q#1C]7m*  
        .KeepTogether = True i4"BN,NZ{  
        .PageBreakBefore = True 7ip$#pzo  
        .OutlineLevel = wdOutlineLevelBodyText 7Uy49cs,  
         u17e  
        .LeftIndent = CentimetersToPoints(0) yc ize2>q  
        .RightIndent = CentimetersToPoints(0) HHd;<%q  
        .FirstLineIndent = CentimetersToPoints(0) Z*,Nt6;e  
         .8[U k^q  
        .CharacterUnitLeftIndent = 0 t\& u  
        .CharacterUnitRightIndent = 0 'L$%)`;e  
        .CharacterUnitFirstLineIndent = 0 E=PmOw7b  
         ks{y=@ <,  
        .LineUnitBefore = 1 \jlem<&  
        .LineUnitAfter = 0.5 dS9L(&  
         9k5$rK`  
        .AutoAdjustRightIndent = False ey4RKk,  
        .DisableLineHeightGrid = True EtVRnI@  
        .FarEastLineBreakControl = True .v<Q-P\8/  
        .WordWrap = True ean_/E  
    End With ~ti{na4W<  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False wLX:~]<xl  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll f;";P  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese 7&ty!PpD  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True _G9 vsi  
    DoEvents {{'GR"D  
     @JF fyQ {-  
    '表格标题 ++b1VBP  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") Hrz #So\#  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" !cblmF;0  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False b=Rw=K.  
    With ActiveDocument.Styles("QLNU表格标题").Font A^\A^$|O6  
        .NameFarEast = "楷体" BT[jD}?  
        .NameAscii = "Arial" PDwi])6mf  
        .Name = "楷体" *>b*I4dz  
        .Size = 10.5 5!GL"  
        .Bold = True %OS}BAh^i  
        .Underline = wdUnderlineNone urM=l5Sx  
        .Italic = wdUndefined iIZDtZFF  
        .Subscript = wdUndefined 7-p9IFcA  
        .Superscript = wdUndefined 'x'.[=;  
        .Color = wdColorAutomatic `|9NxF+  
    End With qHM,#W<  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat (A@~]N ,U/  
         fC1PPgQ\  
        .LineSpacingRule = wdLineSpaceSingle 8HL$y -F  
        .Alignment = wdAlignParagraphCenter ^Bkwbj  
        .KeepWithNext = True ?f}lYQzM  
        .KeepTogether = True .& |Ivz6  
        .OutlineLevel = wdOutlineLevelBodyText iv3=J   
         W ='c+3O6  
        .LeftIndent = CentimetersToPoints(0) yWsJa)e3*@  
        .RightIndent = CentimetersToPoints(0) }V@ * :3w8  
        .FirstLineIndent = CentimetersToPoints(0) {& Pk$Q!  
         bU3e*Er  
        .CharacterUnitLeftIndent = 0 LI`L!6^l  
        .CharacterUnitRightIndent = 0  ]I pLF#  
        .CharacterUnitFirstLineIndent = 0 Z %?: CA  
         >b6!*Lrhs  
        .LineUnitBefore = 1 @(k}q3b<  
        .LineUnitAfter = 0 Ab| t E5%  
         ?_hKhn%K9  
    End With RXo!K iQO  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False Q7<_> )e^  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll 6 GL.bS  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese fV}:eEo|Y  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True Io 8h 8N-  
    DoEvents H);O. m  
fgzkc"ReK  
    '表格首行 kX0hRX  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") .\/jy]Y  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False .TI =3*`G  
    With ActiveDocument.Styles("QLNU表格首行").Font 6.uyY@Yx  
        .NameFarEast = "楷体" 2;!,:bFb  
        .NameAscii = "Times New Roman" $>Y2N5  
        .Name = "楷体" "t[9EbFL  
        .Size = 9 gG^A6Ol%D  
        .Bold = True 2.xA' \M  
        .Underline = wdUnderlineNone }@+3QHwYU  
        .Italic = wdUndefined d<x7* OW)  
        .Subscript = wdUndefined R8Kj3wp  
        .Superscript = wdUndefined ]Tv0+ Ao  
    End With rt5FecX\  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat G6l:El&  
        .LineSpacingRule = wdLineSpaceSingle ^T^l3B[  
        .Alignment = wdAlignParagraphCenter qM~;Q6{v  
         C2$_Ad=s  
        .LeftIndent = CentimetersToPoints(0) U/9i'D[|{  
        .RightIndent = CentimetersToPoints(0) !|\$|m<n  
        .FirstLineIndent = CentimetersToPoints(0) ly!vbpE_  
         5" 5tY  
         % ~!A,  
        .CharacterUnitLeftIndent = -0.5 O/Q7{ 5n  
        .CharacterUnitRightIndent = -0.5 osBwX.G'l  
        .CharacterUnitFirstLineIndent = -0.5 g>L4N.ZH_v  
         0[/GEY@  
        .LineUnitBefore = 0 ;F)j,Ywi)H  
        .LineUnitAfter = 0 QL_vWG -  
        .SpaceBefore = 0 T4 :UJj}  
        .SpaceAfter = 0 '>8IOC  
         }8joltf  
    End With ]6:|-x:m  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False 8XS_I{}?  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll 2N)siH  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese Mp%.o}j   
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True p,(gv])ie  
    DoEvents U%<E9G594  
:>y?B!=  
    '表格内容 G=1&:nW'  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") SVJL|S 3k  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False nTG@=C#  
    With ActiveDocument.Styles("QLNU表格内容").Font 7yUtG^'b  
        .NameFarEast = "楷体" [:vH_(|  
        .NameAscii = "Times New Roman" q:}Q5gzZ  
        .Name = "楷体" 8ClOd<I  
        .Size = 9 eootH K  
        .Bold = False H<Ne\zAv  
        .Underline = wdUnderlineNone ! 06 !`LT  
        .Italic = wdUndefined !]^,!7x,8j  
        .Subscript = wdUndefined &oU) ,H  
        .Superscript = wdUndefined E.ugr])  
    End With R B,`I#z1f  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat XB vJc'(s  
        .LineSpacingRule = wdLineSpaceSingle %3Ba9Nmid  
        .Alignment = wdAlignParagraphCenter /Qa'\X,f3  
         @ )bCh(u  
        .LeftIndent = CentimetersToPoints(0) g?TPRr~$9  
        .RightIndent = CentimetersToPoints(0) lKtA.{(  
        .FirstLineIndent = CentimetersToPoints(0) {c(@u6l28  
         pZVT:qFF  
        .CharacterUnitLeftIndent = -0.5 \3WF-!xe  
        .CharacterUnitRightIndent = -0.5 ( o(,;  
        .CharacterUnitFirstLineIndent = -0.5 v--Qbu  
        .LineUnitBefore = 0 ()Tl\  
        .LineUnitAfter = 0 xOKLc!J  
        .SpaceBefore = 0 1" k_l.\,0  
        .SpaceAfter = 0 Wqy\yS [  
    End With YI877T9>  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False nBN+.RB:(  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll =hw&2c  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese Lo<-;;vQ  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True !Dc|g~km\  
    DoEvents X-lB1uq^  
*VP-fyJp  
    '图片标题 @R c/ ^B:  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") rAv)k&l  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" Fj_ 6jsDb  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False j3W )  
    With ActiveDocument.Styles("QLNU图片标题").Font QsO%m  
        .NameFarEast = "楷体" H}ie D"T_  
        .NameAscii = "Times New Roman" y}\d]*5  
        .Name = "楷体" sxP1. = W  
        .Size = 10.5 yF [|dB  
        .Bold = True h?8I`Z)h  
        .Underline = wdUnderlineNone }|KNw*h $  
        .Italic = wdUndefined Lm!/ iseGv  
        .Subscript = wdUndefined Ml"i^LR+  
        .Superscript = wdUndefined d ynq)lf  
        .Outline = False <~d3L4h*<  
        .Shadow = False >e'Hz(~'/  
        .Color = wdColorAutomatic /i[1$/*  
    End With y TbOBl  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat > TKl`O  
        .LineSpacingRule = wdLineSpaceSingle NZ|(#` X  
        .Alignment = wdAlignParagraphCenter 5 R*  
         t)p . $  
        .KeepWithNext = wdUndefined k}0Y&cT!rU  
        .KeepTogether = True o(gEyK  
        .OutlineLevel = wdOutlineLevelBodyText 006 qj.  
         qcmf*Yl:v  
        .LeftIndent = CentimetersToPoints(0) =x &"aF1  
        .RightIndent = CentimetersToPoints(0) x>ZnQ6x~m]  
        .FirstLineIndent = CentimetersToPoints(0) 6d# 7  
         hOOkf mOM  
        .CharacterUnitLeftIndent = 0 P( Gv|Q@  
        .CharacterUnitRightIndent = 0 j\LJ{?;jC  
        .CharacterUnitFirstLineIndent = 0 cZb5h 9  
         b +4x2{  
        .LineUnitBefore = 0 *wfb~&: }  
        .LineUnitAfter = 0 r DD,eNjG  
    End With /QgU!:e  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False g"KH~bN  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll ;2&ym)`  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese qV7F=1k]  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True 8@)4)+e  
    DoEvents _nn \O 3TB  
 cFV)zFu  
    '目录项 z1AYXW6F  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") 'joc8o sS  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" u&E$(  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False G`D~OI  
    With ActiveDocument.Styles("QLNU目录项").Font ZUA%ZkX=F  
        .NameFarEast = "黑体" KUE}^/%z  
        .NameAscii = "Times New Roman" q{c/TRp7  
        .NameOther = "Times New Roman" MsD@pa  
        .Name = "黑体" j#f7-nHyz8  
        .Size = 10.5 fPpFAO  
        .Bold = False tCVaRP8eC+  
        .Italic = wdUndefined K/;*.u`:  
        .Underline = wdUnderlineNone pXE'5IIN  
        .Color = wdColorAutomatic 3g{T+c*  
        .Superscript = wdUndefined ,UveH` n-  
        .Subscript = wdUndefined (O(X k+L  
    End With  BH<jnQ  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat U+4W9zhw o  
         :TZ </3Sw  
        .LineSpacingRule = wdLineSpaceSingle cns~)j~  
        .Alignment = wdAlignParagraphLeft ,B'n0AO/'  
         _rN1(=J  
        .WidowControl = False U65a _dakk  
        .KeepWithNext = False F7"v}K]X  
        .KeepTogether = False o8ERU($/  
        .PageBreakBefore = False > &VY  
        .NoLineNumber = False vl"{ovoC  
        .OutlineLevel = wdOutlineLevelBodyText (K74Qg  
         N!Q~?/!d  
        .LeftIndent = CentimetersToPoints(0) p]]*H2UD  
        .RightIndent = CentimetersToPoints(0) 4nz$J a)  
        .FirstLineIndent = CentimetersToPoints(0) lQ{o[axT  
         Vlf=gP  
        .CharacterUnitLeftIndent = 0 5ns.||%k  
        .CharacterUnitRightIndent = 0 4b@ Awtk  
        .CharacterUnitFirstLineIndent = 0 |eu:qn8  
         ,,Ia4c  
        .LineUnitBefore = 0 tK0Ksnl^  
        .LineUnitAfter = 0 JYesk  
    End With \'>8 (i~  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False -#y^$$i0  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll (c\i.z  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot j@guB:0  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese 4iPxtVT  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True G@(ukt`0}  
    DoEvents h!!7LPxt  
      L7rEMq  
    '参考文献  %&81xAt  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") .1q4Q\B<  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" 37U2Tb!y '  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False `,7;2ZG~O  
    With ActiveDocument.Styles("QLNU参考文献").Font e.n*IJ_fz  
        .NameFarEast = "宋体" .wPu #*  
        .NameAscii = "Times New Roman" D|gI3i  
        .NameOther = "Times New Roman" !xRboPg  
        .Name = "Times New Roman" %"gV >E_u  
        .Size = 12 jTh^#Q  
        .Bold = False &2Q0ii#Aa  
        .Italic = wdUndefined T1_qAz+  
        .Subscript = wdUndefined C]f`  
        .Superscript = wdUndefined >39\u &)  
        .Underline = wdUnderlineNone \Um &  
        .UnderlineColor = wdColorAutomatic b]oPx8*'  
        .Color = wdColorAutomatic wRCv?D`vV  
        .Engrave = False GEGg S&SM  
    End With * ak"}s  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat +8zC ol?j  
         P. >5`^  
        .LineSpacingRule = wdLineSpaceExactly ?AlTQL~c  
        .LineSpacing = 16 P-LdzVt(^  
        .Alignment = wdAlignParagraphLeft < cUaIb;(4  
        .WidowControl = False bpaS(nBy  
        .KeepWithNext = False |9;MP&68  
        .KeepTogether = False qy^sdqHl@  
        .PageBreakBefore = False C%ZSsp u  
        .OutlineLevel = wdOutlineLevelBodyText LvcGh  
         fnJ!~b*qo  
        .LeftIndent = CentimetersToPoints(0) V.?Oly  
        .RightIndent = CentimetersToPoints(0) >&-" X# :  
        .FirstLineIndent = CentimetersToPoints(0) '7ps_pz  
         wc~k4B9"  
        .CharacterUnitLeftIndent = 0 Cu,#w3JR  
        .CharacterUnitRightIndent = 0 Eo@b)h  
        .CharacterUnitFirstLineIndent = -2 *B0 7-  
         0Vwl\,7z9  
        .LineUnitBefore = 0 79y'PFSms  
        .LineUnitAfter = 0 VUbg{Rb)  
        .SpaceBefore = 0 dFw>SYrpu  
        .SpaceAfter = 0 [CAV"u)0  
         8)m  
    End With xU(yc}vw,  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False rl0|)j  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll ){M)0,:  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS ;#+Se,)  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True 5n#@,V.O/  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese :OC(93d)0  
    DoEvents iqAME%m  
IS [&V&.n  
    ' yu9 8d1  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") UPr8Q^wm  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" g-O}e4  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False PpWn+''M  
    With ActiveDocument.Styles("QLNU论文题目").Font J.g4I|{  
        .NameFarEast = "黑体" -6yFE- X/  
        .NameAscii = "Arial Black" i4g99Kvl  
        .NameOther = "Arial Black" :h!&.FB  
        .Name = "Arial Black" ,Srj38p  
        .Size = 16 s4kkzTnXE3  
        .Bold = False JZom#A. dt  
        .Italic = wdUndefined W>2m %q U  
        .Superscript = wdUndefined f{j.jfl\x  
        .Subscript = wdUndefined :WM[ [LOaC  
        .Underline = wdUnderlineNone ?]Wg{\NC6  
        .UnderlineColor = wdColorAutomatic R;3Tyn+  
        .Color = wdColorAutomatic bKb}VP  
/)LI1\ o  
    End With `ZLA=oD  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat x4e8;A(y  
        .LineSpacingRule = wdLineSpaceSingle IuOY.c2.u  
        .Alignment = wdAlignParagraphCenter tEC`-> |  
        .WidowControl = True T0F!0O `  
        .KeepWithNext = True m{ VC1BkZ  
        .KeepTogether = True WVkJ=r0Ny  
        .PageBreakBefore = True E#^?M#C  
        .NoLineNumber = False V.H<KyaJ  
        .OutlineLevel = wdOutlineLevelBodyText # ZcFxB6)  
         fo5+3iu^  
        .LeftIndent = CentimetersToPoints(0) n^+rxG6 L  
        .RightIndent = CentimetersToPoints(0) >SSRwYIN  
        .FirstLineIndent = CentimetersToPoints(0) Hp1n*0%dZ&  
         i3usZ{_r  
        .CharacterUnitLeftIndent = 0 n1;y"`gHk  
        .CharacterUnitRightIndent = 0 d :%!)s  
        .CharacterUnitFirstLineIndent = 0 W:TF8Onw  
         r_EuLFMA  
        .LineUnitBefore = 1 laX67Vjv  
        .LineUnitAfter = 1 TQiDbgFo  
         fo$A c  
        .BaseLineAlignment = wdBaselineAlignAuto |h{#r7H0  
    End With +1(L5Do}  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False  1(*Pa  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll +^tw@b  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS 5IfyD ]<  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True c.JMeh  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese ]$xN`O4W{  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True |`c=`xK7'  
    DoEvents pU)g93  
     c_+y~X)i  
    '中文摘要 r[votdFo  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") D8r=V f  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" =c1t]%P,  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False B 4m y  
    With ActiveDocument.Styles("QLNU中文摘要").Font Vt;!FZ  
        .NameFarEast = "宋体" u''~nSR3&  
        .NameAscii = "Times New Roman" Q4!6|%n8v  
        .NameOther = "Times New Roman" 8Z1pQx-P2C  
        .Name = "Times New Roman" ^a?H "  
        .Size = 12 48t_?2>  
        .Bold = wdUndefined +:D90p$e  
        .Superscript = wdUndefined \UR/tlw+/  
        .Subscript = wdUndefined /GDGE }  
        .Italic = wdUndefined D$$,T.'u  
        .Underline = wdUnderlineNone [pgld9To  
        .UnderlineColor = wdColorAutomatic !ZC0n`  
        .Color = wdColorAutomatic .C7;T'>!  
    End With O%R*1 P9  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat 0oU;Cmw.  
        .LineSpacingRule = wdLineSpaceExactly GJB= 5nE  
        .LineSpacing = 20 |8<P%:*N  
        .Alignment = wdAlignParagraphLeft gZ&' J\  
         :f|X$> b  
        .WidowControl = False  uZA^o  
        .KeepWithNext = False ,^d!K(xb  
        .KeepTogether = True ,f2tG+P  
        .PageBreakBefore = False )?D w)s5  
        .NoLineNumber = False HaiaDY)  
        .OutlineLevel = wdOutlineLevelBodyText tMnwY'  
         Btu=MUS  
        .LeftIndent = CentimetersToPoints(0) A\S1{JrR  
        .RightIndent = CentimetersToPoints(0) fD:>cje  
        .FirstLineIndent = CentimetersToPoints(0) dX vp-oi  
         VfON{ 1g  
        .CharacterUnitLeftIndent = 0 SPEDN}/^  
        .CharacterUnitRightIndent = 0 du0]LiHV  
        .CharacterUnitFirstLineIndent = 2 [bIR$c[G  
        .LineUnitBefore = 0 v<SCh)[-p  
        .LineUnitAfter = 0 :4'Fq;%C  
         FaVeP%v  
    End With )?qH#>mD6  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False =m6yH_`@  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll *M ^t@hl  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS /`"&n1  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True IP e"9xb  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese @w]z"UCwV@  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True 9YjO  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete w\f>.N  
    DoEvents Xj+oV  
     @*}?4wU^k  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") YnLwBJ2i  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" RLtIn!2OU  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False LnY`f -H  
    With ActiveDocument.Styles("QLNU英文标题").Font rh%-va9  
        .NameFarEast = "黑体" wEp*j+Mmce  
        .NameAscii = "Arial Narrow" b( qO fek  
        .Name = "Arial Narrow" '<v_YxEn  
        .Size = 16 X&+*?Q^  
        .Bold = True ;;cPt44s  
        .Bold = wdUndefined `kERM-@A  
        .Superscript = wdUndefined hD I}V 1)  
        .Subscript = wdUndefined bo%v(  
        .Italic = wdUndefined KWzJ  
         ( /):  
        .Underline = wdUnderlineNone fj,]dQ T  
        .UnderlineColor = wdColorAutomatic ~3F\7%Iqc  
        .StrikeThrough = False Y\pRk6,  
        .DoubleStrikeThrough = False 8ta`sNy9  
    End With pS C5$a(  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat /H m), 9NN  
        .LineSpacingRule = wdLineSpaceSingle ]0yYMnqvr  
        .Alignment = wdAlignParagraphCenter |4tnG&=  
        .WidowControl = True xM6v0Ua  
        .KeepWithNext = False 5Rc^5Nv  
        .KeepTogether = False g3"eEg5NY  
        .PageBreakBefore = False UvPD/qu$8D  
        .NoLineNumber = False ~~D =Z#  
        .FirstLineIndent = CentimetersToPoints(0) zEu15!~   
        .OutlineLevel = wdOutlineLevelBodyText 28rC>*+z  
         Tl2e?El;4  
        .LeftIndent = CentimetersToPoints(0) H*&ZX AKv  
        .RightIndent = CentimetersToPoints(0) .o!z:[IPY  
        .FirstLineIndent = CentimetersToPoints(0) ?5yj</W  
         Q*h%'oc`  
        .CharacterUnitLeftIndent = 0 ! !9l@  
        .CharacterUnitRightIndent = 0 JMa[Ulz  
        .CharacterUnitFirstLineIndent = 0 SSh=r  
         {?zbr gQ<Z  
        .LineUnitBefore = 1 W<"{d  
        .LineUnitAfter = 1 X|3l*FL  
         'dFhZ08 u}  
    End With yxpDQ O~x  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False i9FtS7  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll RX DPT  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS b}OOG  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True (b}}'  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese C1 YG=!  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True $*Z Zh  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete _s> Z Y0  
    DoEvents PiTe/  
[q5N 4&q\  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") /Wqx@#  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" :a#p zEK  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False qp6*v&  
    With ActiveDocument.Styles("QLNU英文摘要").Font 1G6MO  
        .NameFarEast = "宋体" Bt\z0*t=s  
        .NameAscii = "Arial" >tFv&1iR  
        .NameOther = "Arial" zLa3Q\T  
        .Name = "Arial" ^& R H]q  
        .Size = 12 XA%a7Xtni  
        .Bold = wdUndefined ^twJNm{99  
        .Italic = wdUndefined y?1<7>L5~  
        .Superscript = wdUndefined 14,Pf`5Sz  
        .Subscript = wdUndefined 5W29oz}-S  
    End With nR()ei^X  
     aTx*6;-PH  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat D#?jddr-  
         qauZ-Qoc9  
        .LineSpacingRule = wdLineSpaceExactly / j0zb&  
        .LineSpacing = 20 +#|):aF  
         AHA4{Zu[  
        .Alignment = wdAlignParagraphJustify w`?Rd  
         djxM/"xo  
        .WidowControl = False D]UqM<0Rz  
        .KeepWithNext = False tg X},OU^  
        .KeepTogether = False ,& ^vc_}  
        .PageBreakBefore = False *i>?YT  
        .NoLineNumber = False ,@b7N[h  
         (3;dtp>Xx  
        .OutlineLevel = wdOutlineLevelBodyText =:;KY uTr  
         Q4&|^RLLG  
        .LeftIndent = CentimetersToPoints(0) mGK-&|gq  
        .RightIndent = CentimetersToPoints(0) 7?O~3  
        .FirstLineIndent = CentimetersToPoints(0) $)fybn Y  
         qXQ/M]  
        .CharacterUnitLeftIndent = 0 U.[?1:v  
        .CharacterUnitRightIndent = 0 1p[Z`m*9  
        .CharacterUnitFirstLineIndent = 2 +[sZE X  
         V>2mz c  
        .LineUnitBefore = 0 5r$ X  
        .LineUnitAfter = 1 U =G^w L  
         s, 8a1o  
    End With ;Q0WCm\5  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False <e :2DB&  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll Qf}^x9'  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS ^ld ?v  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False A,2dK}\>  
    DoEvents w|uO)/v  
g[,1$39Z|@  
    Options.Pagination = True Rt{`v<  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." R1%2]?  
    DoEvents v FL\O  
    ActiveDocument.Repaginate ?5oeyBA@  
NQD*8PGfj  
End Sub 5"]t{-PD  
dK=<%)N  
g+-=/Ge  
杺栫杣杊椌柮栬，䒴蓉艿芖。
回复 引用
举报顶端
伍胥之 离线
级别: 军区司令员

显示用户信息 
101楼  发表于: 2024-12-28   
只看该作者 ┊  小 中 大
姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 zLs[vg.(  
nj7wc9z4  
引用
引用第20楼newport93于06-14-2010 13:47发表的  : M=}vDw]Q  
u,d@ oF(=  
老五，I 服了U。 "SuBtoK  
-}Jf4k#G  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 f8Xe%"<  
8qEK6-  
杺栫杣杊椌柮栬，䒴蓉艿芖。
回复 引用
举报顶端
上一主题下一主题
«3456»Pages: 6/6
 Bay Area Chinese--灣區華人 » 乱讲
描述
快速回复

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