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

显示用户信息 
100楼  发表于: 2021-07-18   
只看该作者 ┊  小 中 大
Dim bContinue As Boolean [lVfhXc&  
C%{2 sMJ z  
Dim regEX As New RegExp *e<}hm Dr  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 5g O9 <  
B/o8r4[80  
Dim LastTitle0String As String, LastTitle0No As Long _1mpsY< k  
Dim LastTitle1String As String, LastTitle1No As Long FnI}N;"  
Dim LastTitle2String As String, LastTitle2No As Long HF"TS*  
Dim LastTitle3String As String, LastTitle3No As Long 2-jXj9kp`  
Dim LastTitle4String As String, LastTitle4No As Long e\^}PU  
Dim LastTitle5String As String, LastTitle5No As Long U$3DIJVI  
Dim LastTabelString As String, LastTableNo As Long %*o  
Dim LastFigureString As String, LastFigureNo As Long 0-;>O|U3  
9%53 _nx?  
Dim strSeperator As String 2 |JEGyDS-  
wmIe x  
Sub ConvertWidth(fTEXT As String, rText As String) Dr[;\/|#  
        Selection.Find.ClearFormatting +@yU `  
        Selection.Find.Replacement.ClearFormatting pzaU'y#PM  
        Selection.Find.Wrap = wdFindContinue fK *l?Hr  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText [h !i{QD  
        DoEvents lw99{y3<<  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True g'{?j~g  
End Sub 0pG + yec  
iOSt=-p  
Sub ClearDomain() sjb.Ezoq3  
        With Selection.Find <&gs)BY  
            .ClearFormatting &328pOT4  
            .Replacement.ClearFormatting ob'" ^LO\  
            .Wrap = wdFindContinue '[HQ}Wvn  
            Me.txtStatus.Text = "清除所有域代码" <mj/P|P@  
            DoEvents H_Va$}8z  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False ~j(vGO3JB  
        End With 6 VuyKt  
End Sub LI&E.(:  
uqU&k@  
Private Sub cmdCheck_Click() }0Uh<v@  
    bContinue = True pKGhNIj$  
    Dim NoSeries1(1 To 16) As String t_*x.{x-  
    Dim NoSeries2(1 To 16) As String z>iXNwz"?  
    Dim NoSeries5(1 To 16) As String &/-MUKN  
    Dim NoSeriesRM(1 To 16) As String 4; 0#Z^p  
    Dim paraTotal As Long, ParaText As String 'Bxj(LaV-  
    Dim ttString As String, ttNo As String <m\<yZ2aa  
     $ZZ?*I  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long 0rz1b6F5,  
iH@u3[w  
    Me.txtStatus.Visible = True H1L)9oa  
    Me.lbParaType.Visible = True Km!ACA&s6  
    Me.cmdCheck.Enabled = False !]Qk?T~9-  
     |yz o|%]3  
     VBS}2>p  
     R9Wr?  
     `#wEa'v6  
    Dim ParaType As String, rText As String \13Q>iAu  
     Gqc6]{  
    Selection.WholeStory s6Dkh}:d  
    Selection.NoProofing = True w!v^6[!  
     :zq Un&k&  
    tm1 = Now Di27=_J  
     </@5>hx/  
        ActiveWindow.View.Type = wdNormalView 023uAaI^3r  
     u[PG/p loc  
    NoSeries1(1) = "一" hdcB*j?4  
    NoSeries1(2) = "二" x X[WX#'f  
    NoSeries1(3) = "三" H V-;? 5  
    NoSeries1(4) = "四" ')~V=F  
    NoSeries1(5) = "五" zi_$r oq=)  
    NoSeries1(6) = "六" z wRF-{s  
    NoSeries1(7) = "七" ]7>#YKH.  
    NoSeries1(8) = "八"  7U1 M;@y  
    NoSeries1(9) = "九" =S\^j"  
    NoSeries1(10) = "十" sD2,!/'  
    NoSeries1(11) = "十一" Y .cjEeL@  
    NoSeries1(12) = "十二" 4nP4F +  
    NoSeries1(13) = "十三" :uB?h1|  
    NoSeries1(14) = "十四" Q4L=]qc T  
    NoSeries1(15) = "十五" 6R^32VeK($  
    NoSeries1(16) = "十六" UN F\k1[  
     `LLmdm 6i  
    NoSeries2(1) = "㈠" /$]S'[5uF  
    NoSeries2(2) = "㈡" 9<toDg _  
    NoSeries2(3) = "㈢" >)='.aR<  
    NoSeries2(4) = "㈣" lJ]QAO  
    NoSeries2(5) = "㈤" 8 5)C7tJ-g  
    NoSeries2(6) = "㈥" (aC=,5N  
    NoSeries2(7) = "㈦" Eb@**%  
    NoSeries2(8) = "㈧" &|}QdbW  
    NoSeries2(9) = "㈨" 7SH3k=x  
    NoSeries2(10) = "㈩" kX`m( N$  
     2boyBz}=S  
    NoSeries5(1) = "①" ;%(sbA  
    NoSeries5(1) = "②" Z 4i5,f  
    NoSeries5(3) = "③" 9N{?J"ido  
    NoSeries5(4) = "④" FG+pR 8aA$  
    NoSeries5(5) = "⑤" q }>3NCh  
    NoSeries5(6) = "⑥" ,c$tKj5ulQ  
    NoSeries5(7) = "⑦" ^Y;,cLXJ  
    NoSeries5(8) = "⑧" ?e4H{Y/M  
    NoSeries5(9) = "⑨" _b>{:H&\  
    NoSeries5(10) = "⑩" ::'Y07  
     8~t8^eBg  
     Z2`M8xEiH  
    NoSeriesRM(1) = "I" HeO&p@  
    NoSeriesRM(2) = "II" 7l/lY-zO  
    NoSeriesRM(3) = "III" n7G`b'  
    NoSeriesRM(4) = "IV" 5h^BXX|Y*  
    NoSeriesRM(5) = "V" 3c7i8b$  
    NoSeriesRM(6) = "VI" = +Odu  
    NoSeriesRM(7) = "VII" Ejr'Yzl3_  
    NoSeriesRM(8) = "VIII" O(2c_!d  
    NoSeriesRM(9) = "IX" Lu:*nJ%1[  
    NoSeriesRM(10) = "X" Bq HqS  
    NoSeriesRM(11) = "XI" wB' !@>db  
    NoSeriesRM(12) = "XII" W)J5[p?  
    NoSeriesRM(13) = "XIII" %4F\#" A  
    NoSeriesRM(14) = "XIV" reArXmU<u  
    NoSeriesRM(15) = "XV" ='w 2"4  
    NoSeriesRM(16) = "XVI" tU2#Z=a  
     ]\A=[T^  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) vnVT0)Lel  
     l0URJRK{*  
    If i = vbNo Then &+A78I   
        Exit Sub "S6";G^I  
    End If rNo/H<J%+j  
     n1JV)4Mv  
    If Me.chkSuper.Value Then 64mD%URT  
        Me.txtStatus.Text = "检查修改所有的上标格式" .9=4Af  
     MBw;+'93qf  
        CheckSuperScript K1A<m=If  
         C'y2!Q /"  
    End If V*fv>f:Yv  
     >o{JG(Rn  
    If Me.chkStyle.Value Then F[%k ;aJ  
        Me.txtStatus.Text = "设置样式，请稍候...." D29Lu(f  
        DoEvents Wa.xm_4s2  
        CeateOrModifyStyle 1n}#54  
    End If _?cum ~A@  
     r-L& ee   
     (n: A` ]  
     o qysfLJ  
    ClearDomain e1E_$oJP  
         lF.kAEC  
     8! !h6dQgI  
     kZ)}tA7j  
    If Me.chkLIST.Value Then 3{t[>O;  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" vqQ)Pu?T  
     *`wz  
        ConvertListToOrdinary  ,dK)I1"C  
    End If v0! 1W  
     C96*,.j~'  
     H25Qx;(dTk  
    Dim pType As String, trimpTEXT As String _[rQt 8zn  
    If Me.chkNum.Value = True Then cN?/YkW?]  
        Me.txtStatus.Text = "转换全角数字形式为半角" (3D&GY!/  
        ConvertWidth "１", "1" |[mmEYc  
        DoEvents <-b9 )>  
        ConvertWidth "２", "2" 7NWkN7:B  
        DoEvents $ (xdF  
        ConvertWidth "３", "3" g[t paQ  
        DoEvents %,z;W-#gnY  
        ConvertWidth "４", "4" }2e s"  
        DoEvents .U@u |  
        ConvertWidth "５", "5" iymN|KdpaZ  
        DoEvents u kZK*Y9P  
        ConvertWidth "６", "6" Gos# =H  
        DoEvents |4 \2,M#  
        ConvertWidth "７", "7" eD2eDxN2  
        DoEvents trrK6(p  
        ConvertWidth "８", "8" p%sizn  
        DoEvents U9^1 A*  
        ConvertWidth "９", "9" *s" OqTM]x  
        DoEvents \xl$z *zI  
        ConvertWidth "０", "0" IQtQf_"e1  
        DoEvents D_JGbNigA  
        ConvertWidth "ａ", "a" 3)#Nc|  
        DoEvents kRwUR34yc  
        ConvertWidth "ｂ", "b" EK[J!~  
        DoEvents 8q{|nH  
        ConvertWidth "ｃ", "c" [xrsa!$   
        DoEvents ]1>R8  
        ConvertWidth "ｄ", "d" DUl+Jqn4B  
        DoEvents 3h=kn@I  
        ConvertWidth "ｅ", "e" 4@Db $PHs  
        DoEvents 9_jiUZFje  
        ConvertWidth "ｆ", "f" 7%? bl  
        DoEvents l4r >#n\yj  
        ConvertWidth "ｇ", "g" o3|4PAA/  
        DoEvents V>Z4gZp5sc  
        ConvertWidth "ｈ", "h" X0^@E   
        DoEvents pU !:  
        ConvertWidth "ｉ", "i" |te=DCO  
        DoEvents S2E z}*plp  
        ConvertWidth "ｊ", "j" jVN06,3z  
        DoEvents w|S b`eR  
        ConvertWidth "ｋ", "k" ]dJ"_  
        DoEvents ty#6%  
        ConvertWidth "ｌ", "l" (7b9irL&cn  
        DoEvents X])iQyN  
        ConvertWidth "ｍ", "m" \<`oW>  
        DoEvents v&/H6r#E.  
        ConvertWidth "ｎ", "n" U?{oxy_[2  
        ConvertWidth "ｏ", "o" rFzj\%xa[  
        ConvertWidth "ｐ", "p" Y G8C<g6E7  
        ConvertWidth "ｑ", "q" X"q[rsB  
        ConvertWidth "ｒ", "r" [pm IQ228  
        ConvertWidth "ｓ", "s" qWWt5rJ  
        ConvertWidth "ｔ", "t" %Gyn.9\  
        ConvertWidth "ｕ", "u" siCm)B  
        ConvertWidth "ｖ", "v" [?9 `x- Q  
        ConvertWidth "ｗ", "w" /Mw;oP{&b  
        ConvertWidth "ｘ", "x" bQ q/~  
        ConvertWidth "ｙ", "y" VY8cy2  
        ConvertWidth "ｚ", "z" umq6X8K  
        ConvertWidth "Ａ", "A" LS9,:!$  
        ConvertWidth "Ｂ", "B" n&P~<2^M#  
        ConvertWidth "Ｃ", "C" Keo<#C c?  
        ConvertWidth "Ｄ", "D" *VJISJC  
        ConvertWidth "Ｅ", "E" uo2k  
        ConvertWidth "Ｆ", "F" DW9MX`!Xc  
        ConvertWidth "Ｇ", "G" ,vf#e= Z  
        ConvertWidth "Ｈ", "H" /J_ ],KdU  
        ConvertWidth "Ｉ", "I" f sh9-iY8e  
        ConvertWidth "Ｊ", "J" <&) hg:  
        ConvertWidth "Ｋ", "K" hbvcIGaT  
        ConvertWidth "Ｌ", "L" -2[4 @  
        ConvertWidth "Ｍ", "M" wL, -"  
        ConvertWidth "Ｎ", "N" 9@ fSO<  
        ConvertWidth "Ｏ", "O" S#8)N`  
        ConvertWidth "Ｐ", "P" ]ilLed  
        ConvertWidth "Ｑ", "Q" Jh&DL8`  
        ConvertWidth "Ｒ", "R" 1Hr1Ir<KR  
        ConvertWidth "Ｓ", "S" c?_7e9 }2  
        ConvertWidth "Ｔ", "T" :n{{\SSIgX  
        ConvertWidth "Ｕ", "U" f"j9C% '*  
        ConvertWidth "Ｖ", "V" h6O'"  
        ConvertWidth "Ｗ", "W" L8h!%56s  
        ConvertWidth "Ｘ", "X" p o)lN[v  
        ConvertWidth "Ｙ", "Y" @M-w8!.~  
        ConvertWidth "Ｚ", "Z" c;X,-Q9  
        ConvertWidth "^l", "^p" U_PH#e  
        ConvertWidth "（", "(" Lhux~,EH  
        ConvertWidth "）", ")" vWESu4W`L  
     wn.6l `  
    End If 2P8wvNDG  
L YB @L06a  
    With ActiveDocument e CN:  
        Dim tbl As Table %(khE-SW  
        For Each tbl In .Tables Y %bb-|\W  
            tbl.Rows.Alignment = wdAlignRowCenter 9m2FH~  
            tbl.Range.Font.NameFarEast = "楷体" K`9~#Zx$  
            tbl.Range.Font.NameAscii = "Times New Roman" i?(cp["7  
            tbl.Range.Font.Size = 10.5 k]r4b`x`  
        Next ?K:\WW  
        Set tbl = Nothing pQ0*)}l,  
    End With u1y>7,Z6W  
     vw3[(_MV3_  
     YU[#4f~  
    With ActiveDocument |T/OOIA=sI  
         JZxA:dg l  
        For i = 1 To .TablesOfContents.Count ^L d5<  
            .TablesOfContents(i).Delete N1c 0>{  
        Next _^(1Qb[  
         +3-5\t`  
         `f&::>5tD  
         y6d!?M(0U  
        paraTotal = .Paragraphs.Count z{w %pUn}  
        paraCounter = 1 $3p48`.\  
         3'0vLi  
        LastTitle0No = 0 _, (s  
        LastTitle1No = 0 8+gp"!E  
        LastTitle2No = 0 Bi \fB-|  
        LastTitle3No = 0 I9+h-t  
        LastTitle4No = 0 fu~ iF  
        LastTableNo = 0 RDHK'PGA  
        LastFigureNo = 0 JmR2skoV,  
         \C>IVz<O  
        Dim Sec As Long z Gg)R  
         ~? aFc)  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) X=m^+%iD  
        If Sec = 0 Then >%92,hg  
            Exit Sub M _%KhK  
        End If 7~Inxk;  
         d@{12 hq  
        k = 0 H3R{+7  
        Do While (paraCounter < paraTotal) And bContinue l\V1c90m  
            k = k + 1 W&9 qgbO]  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then ibQ xL3  
                Exit Do `~=z0I  
            End If 3]JJCaf  
            paraCounter = paraCounter + 1 F::Ki4{jJ  
            If k Mod 20 = 0 Then Km= Y^x0  
                Me.lbCounter.Caption = paraCounter juF=ZW%i  
                DoEvents /LWk>[Z;  
            End If =,N"% }  
        Loop L(Twclrb  
         hO.b?>3NL  
         "k@[7 7  
        Do While (paraCounter < paraTotal) And bContinue LFi* O&  
             xsRkO9x  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) U7n#TPet  
            ShapeHeight = 0 vI(LIfe;  
            ShapeWidth = 0 rBQ<5.  
           *@#Gc%mGu  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth (Ytr&gh;0  
             g7hI9(8+  
            Select Case ParaType K O\HH  
                Case "【】表格内容" Ieq_XF]U  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" PH8 88O  
                Case "章" &XcPHZy'  
                    LastTitle0No = LastTitle0No + 1 ,@;|+C  
                    '新一章开始，复位其下属标题编号 U&R)a| 7R  
                    LastTitle1No = 0 t~K[`=G\ex  
                    LastTitle2No = 0 BI,]pf;GWv  
                    LastTitle3No = 0 9RJ#zUK  
                    LastTitle4No = 0 T}Wbt=\M  
                     o*7NyiJ@z  
                    k = Val(ttNo) ZLKbF9lo  
                    If k = 0 Then '非数字编号章节 ~:Z|\a58j  
                        If ttNo <> NoSeries1(LastTitle0No) Then iZnLgkk@  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString hwe6@T.#  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText !^MwE]  
                        End If j?o6>j  
                    Else mUP!jTF  
                        If Val(ttNo) <> LastTitle0No Then V 1d#7rP  
                            rText = "第" & LastTitle0No & ttString :PN%'~}n  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText RZ{O6~VH  
                        End If .,qh,m\Fo  
                         O-p`9(_m  
                    End If  iVeH\a  
                     %`5K8eB  
                    '章段落设置 <h#W*a  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 |gxP uAXa)  
                    .Paragraphs(paraCounter).Style = "QLNU章节" ?d?.&nt  
                    .Paragraphs(paraCounter).Range.Select f!YlYk5  
                    Selection.EndKey unit:=wdLine #=y)Wuo=  
                    tc = Replace(rText, vbCr, "") J?Y,3cc.  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False )_j(NX-C:  
                Case "一级标题" jGkDD8K [  
                    LastTitle1No = LastTitle1No + 1 PD S( /x&  
                    '新一级标题开始，复位其下属标题编号 zJ}abo6rVw  
                    LastTitle2No = 0 _qf~ hhi  
                    LastTitle3No = 0 QwG_-  
                    LastTitle4No = 0 EMr|#}]#s  
                     WO%pX+PoH  
                    If ttNo <> NoSeries1(LastTitle1No) Then tpA-IL?KQw  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString {#?|&n<  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText 5p~5-_JX  
                    End If 0 !%G #~th  
                   jf;n*  
                     [75?cQD  
                    '一级标题段落设置  格式：一、标题内容 xqg4b{  
                    .Paragraphs(paraCounter).Range.Text = rText xWY\,'+Q  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" T&6>Eb0{  
                    .Paragraphs(paraCounter).Range.Select }8}`A\ dgV  
                    Selection.EndKey unit:=wdLine t`hes $E  
                    tc = Replace(rText, vbCr, "") SOsz=bVx  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False Z~94<*LEp  
                Case "二级标题" .3_u5N|[=W  
                    LastTitle2No = LastTitle2No + 1 PPG +~.7  
                    '新二级标题开始，复位其下属标题编号 x5\Du6 3  
                    LastTitle3No = 0 5({_2meJ:  
                    LastTitle4No = 0 ;(}~m&p  
                     nJv=kk1|o  
                    If ttNo <> NoSeries1(LastTitle2No) Then V73/q  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString Y$,~"$su|  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText J"E _i]  
                    End If {Z <`@\K3  
                     x 4LPrF1  
                    '二级标题段落设置 格式：(一)、标题内容 X)RgXl{  
                    .Paragraphs(paraCounter).Range.Text = rText 5o4KV?"  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" #=)>,6Z w  
                     o58c!44  
                    .Paragraphs(paraCounter).Range.Select .UX4p =  
                    Selection.EndKey unit:=wdLine Tzj v-9^V  
                    tc = Replace(rText, vbCr, "") v8C($<3%  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False ->;2CcpHB  
                 -"H$ &p~  
                Case "三级标题" G~&8/ s  
                    LastTitle3No = LastTitle3No + 1 f0^s<:*  
                    '新三级标题开始，复位其下属标题编号 Z 6Mjc/  
                    LastTitle4No = 0 =IX-n$d`>  
                     ~};q/-[r  
                    If Val(ttNo) <> LastTitle3No Then vmNI$ KZM  
                            rText = LastTitle3No & ". " & ttString DEkv,e  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText JBc*m  
                         32aI0CT  
                    End If {y5 L  
                    '三级标题段落设置 格式：1. 标题内容 _(:$ :*@  
                    .Paragraphs(paraCounter).Range.Text = rText [x, `)Fk  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" *K?UWi#$  
                    .Paragraphs(paraCounter).Range.Select mc2uI-W  
                    Selection.EndKey unit:=wdLine & uwOyb  
                    tc = Replace(rText, vbCr, "") 2x|F Vp  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False [8Z#HjhQ  
                Case "四级标题" 5Zhl@v,L%  
                    LastTitle4No = LastTitle4No + 1 4/*@cW  
                     ?ZC!E0]  
                    If Val(ttNo) <> LastTitle4No Then zXlerQWUv  
                            rText = "(" & LastTitle4No & "). " & ttString  <{ v %2  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText OUwnVAZZ6  
                     sb_/F E5e  
                    End If Mby4(M+&n  
                    '四级标题段落设置 格式：(1). 标题内容 9vDOSwU*  
                    .Paragraphs(paraCounter).Range.Text = rText -\%5aXr  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" ^uw]/H3? L  
                    .Paragraphs(paraCounter).Range.Select r~QE}00@^  
                    Selection.EndKey unit:=wdLine J1gnR  
                    tc = Replace(rText, vbCr, "") ^%Y-~yB-  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False F"M/gy  
                 WZ!zUUp}V  
                Case "表格标题" se>\5k  
                    LastTableNo = LastTableNo + 1 Z 369<  
                     XGe;v~L  
                    If ttNo <> CStr(LastTableNo) Then @C=gMn.E  
                            rText = "表" & LastTableNo & ". " & ttString vAop#V  
                            ErrMsg.AddItem "表格编号错误：" & ParaText M(\{U"%@?  
                   znWB.H  
                    End If byt$Wqdl  
                     m-~3c]pA  
                    '表格名称段落设置 格式：表1. 表格名称 4IY|<  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" RRQv<x  
                    xe = Replace(rText, vbCr, "") 3]}RjOTU  
                    .Paragraphs(paraCounter).Range.Select Oop6o $k  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 B9 ?58v&  
                    Selection.Range.Text = xe ~bzac2Rp  
                    Selection.EndKey ^@=4HtA  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False zHNBX Rx  
                 ^gyI-S(;  
                Case "表格首行" a0A=R5_  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" L|(U%$  
                Case "图片标题" !^NZp%Yd  
                    LastFigureNo = LastFigureNo + 1 4|Y1W}!0/  
                     wXnVQ-6H  
                    If ttNo <> CStr(LastFigureNo) Then oz]3 Tx  
                            rText = "图" & LastFigureNo & ". " & ttString F3o"ETle  
                            ErrMsg.AddItem "表格编号错误：" & ParaText W79.Nj2`  
                   _~umE/tz  
                    End If I} Q+{/?/  
                    '图片名称段落设置 格式：图1. 图名称 :6(@P1vA 6  
                    .Paragraphs(paraCounter).Range.Text = rText rk;]7Wu  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" }#&[[}@th  
                    .Paragraphs(paraCounter).Range.Select (s|WmSQ  
                    Selection.EndKey unit:=wdLine >e- 0A  
                    xe = Replace(rText, vbCr, "") Fx1FxwIJ  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False }z9v*C  
                Case "正文" G9j f]Ye;  
                     '正文名称段落设置 y eIS}O  
                    .Paragraphs(paraCounter).Style = "QLNU正文" 6pC1C.  
               Case "文献条目" UNv!G/i-5  
                    With .Paragraphs(paraCounter) g__s(  IJ  
                        '.Range.Select pih 0ME}z  
                        'Selection.ClearFormatting uxKO "  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” eYkg4O'  
                        .Style = "QLNU参考文献" e87a9ZPm  
                    End With 2$t%2>1>@  
               Case "图表注解" Us# /#-hJ  
                    With .Paragraphs(paraCounter) If&y 5C  
                        .Range.Font.NameFarEast = "楷体" Jwj=a1I 53  
                        .Range.Font.NameAscii = "Times New Roman" 87S,6Y  
                        .Range.Font.Size = 9 '小5号字 ?0sTx6 x@  
                         KC:6^h'.  
                        .Alignment = wdAlignParagraphCenter [%6)  
                        .LeftIndent = 0 n?D/bXp  
                        .RightIndent = 0 xf7YIhL^*  
                        .FirstLineIndent = 0 y#`;[!  
                        .LineSpacing = 12 e_!Z-#\J%  
                        .LineSpacingRule = wdLineSpaceExactly Vep 41\g^  
                        .LineUnitAfter = 0 \=|= (kt)  
                        .LineUnitBefore = 0 M5:*aCN6P  
                        .OutlineLevel = wdOutlineLevelBodyText D(<0tU^[  
                        .PageBreakBefore = False rxy5Nrue  
                        .RightIndent = 0 /d"@$+  
                        .WordWrap = True qZV|}M>P)  
                        .LineUnitAfter = 0.5 j}tGcFwvSN  
                         k}}' f A  
                    End With P&[&Dj  
                Case Else ?< yYm;B  
                    '不作处理 8sI$  
            End Select w<]-~` K  
             z9 #-  
            '含有inlineshape的段落处理 ~@@$-,}X   
            If ShapeHeight > 30 Then jyyig%  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 *""W`x  
            End If suWO:]FR  
             ([rSYKpi  
            If (ShapeWidth + ShapeHeight) > 150 Then }?6;;d#  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" GCw4sb4~w  
            End If BOA7@Zaa$p  
             !v%>W< 3Q  
            '段落计数器递 {<}Hut:a  
            paraCounter = paraCounter + 1 a ^juZ  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter 8 ?y|  
            Me.txtStatus.Text = ParaText VhMVoW  
            DoEvents `Z{s,!z  
        Loop &dni6E4  
    End With \3K7)o^  
     DMp@B]>  
    msg = "" l:/x &=w  
     C+`V?rp=s  
    For i = 0 To Me.ErrMsg.ListCount - 1 fJk'5kv  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) *M#L)c;6  
    Next [wQJVYv  
     2w+4B4  
     #s>'IPc0  
     8D?$@!-  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg #k>A,   
    Me.cmdCheck.Enabled = True %{^|Av1Uz  
    Me.txtStatus.Visible = True 7\nXJ381  
    Me.lbParaType.Visible = False }1Mf0S  
     ;+o6"ky5  
    bContinue = False glROT@  
End Sub # SJJ@SM  
}F9#3W&`c  
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) ^liW*F"UY  
    Dim pTEXT As String S+t2k&pm  
     "8U=0a  
    pTEXT = ChKRange.Text P&: [pPG  
     )xz_ }6b]  
    ParaType = "其它" c (5XT[Tw  
    TitleString = pTEXT lS p"(&  
    TitleNo = "N/A" yQ<h>J>  
     %WmTG }L)  
    shpCounter = ChKRange.InlineShapes.Count rL+.3ZO):P  
    If shpCounter <> 0 Then LIz'hfS!  
        MaxShpHeight = 0: TotalShpWidth = 0 @;hdZLG]`&  
        For i = 1 To shpCounter IBu\Sh-  
            k = ChKRange.InlineShapes(i).Height \K%M.>]vq  
            l = ChKRange.InlineShapes(i).Width fsnZHL}=n  
            If k > MaxShpHeight Then HmU6:8V *Z  
                MaxShpHeight = k Y8lZ]IB  
            End If y | I9"R  
            TotalShpWidth = TotalShpWidth + l 9Nv?j=*$  
        Next B#5[PX  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then kv?DE4=;  
            Exit Sub G7-k ,P^  
        End If suLC7x`Z  
    End If w"QZ7EyJ  
     ;qWSfCt/^  
    '空行 5~2_wWjX  
    If Len(pTEXT) <= 2 Then 0u( 0*Xl  
        Exit Sub MujEjD "|  
    End If b<"jmB{  
     61gyx6v  
         eq&QWxiD*  
    '是否为表格中的文字 _]D 6m2R  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then uT<<G )v)  
        ParaType = "表格内容" >mEfd=p  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) -rgdKA@)(  
        If k = 1 Then ;<b7kepR  
            ParaType = "表格首行" }'>mT,ytgk  
        End If Q^@7Yg @l  
        Exit Sub yn<J>e  
    End If Hmx.BBz  
     Ix@B*Xz:`  
    '例外情况：脚注 T VSCjI  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then &u6n5-!v  
        ParaType = "脚注" G'dN<Nw6  
        Exit Sub ^rjUye%EK  
    End If OpIeo+^X*  
     BxQ,T@  
    '例外情况：尾注 jk\V2x@DR  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then UH\{:@GjNO  
        ParaType = "尾注" O?A%  
        Exit Sub Pq(LW(  
    End If E GZiWBr  
     anfnqa8  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then {7%HK2='  
        ParaType = "页眉页脚" 15' fU!  
        Exit Sub z> DQ  
    End If ,Sy& ?t}`  
     Cp>y<C"  
     lHTr7uF(  
    With regEX \"Z\Af<  
        .Global = True A9"!=/~  
         9v3n4=gc  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" 1^tX:qR  
        If regEX.Test(pTEXT) Then GY0OVAW6'c  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") +$2`"%nBG  
            TitleString = regEX.Replace(pTEXT, "$3") Gui[/iY,F  
            TitleNo = regEX.Replace(pTEXT, "$1") `f~$h?}3-@  
            ParaType = "章" mDD96y  
            Exit Sub &0%B3  
        End If E?BF8t_fTE  
         Vw`Q:qo0:b  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" tw\1&*:  
        If regEX.Test(pTEXT) Then |68/FJZ,5  
            ParaType = "一级标题" R>;&4Sjr  
            regEX.Execute (pTEXT) 0,.|-OZ  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") g4+Hq *  
            TitleString = regEX.Replace(pTEXT, "$3") #,XZ@u+  
            TitleNo = regEX.Replace(pTEXT, "$1") V U5</si+  
            Exit Sub 2*Pk1 vrI  
        End If J}#2W y^{  
         "sY}@Q7  
        '全角或半角括号中的数字 # kNp);  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" z zW$ F)X  
        If regEX.Test(pTEXT) Then U&a(WQV9&  
            ParaType = "二级标题" 8ZCA vEy  
            regEX.Execute (pTEXT) '}bmDb*  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") =9 ^}>u  
            TitleString = regEX.Replace(pTEXT, "$5") T*8K.yw2  
            TitleNo = regEX.Replace(pTEXT, "$2") V*Xr}FE  
            Exit Sub ^~@3X[No  
        End If $}z/BV1I  
         1cRF0MI  
        '阿拉伯数字  1. 2. JV'aqnb.8\  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" zM<L_l&  
        If regEX.Test(pTEXT) Then fZ;}_wR-H  
            ParaType = "三级标题" ! R3P@,j  
            regEX.Execute (pTEXT) 8$ #z>  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 #qD[dC$[t  
            TitleString = regEX.Replace(pTEXT, "$3") qcQq.cS_'N  
            TitleNo = regEX.Replace(pTEXT, "$1") W@'*G*f  
            Exit Sub ];b+f@  
        End If ZBN,%P!P0  
         mh SknyqT  
        '全角或半角括号中的阿拉伯数字 sdyNJh7Jr  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" BD86t[${W  
        If regEX.Test(pTEXT) Then hk S:_e=  
            ParaType = "四级标题" ({!H ()  
            regEX.Execute (pTEXT) `s Pk:cNz~  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") . P?n<n#  
            TitleString = regEX.Replace(pTEXT, "$5") r_ B.b K  
            TitleNo = regEX.Replace(pTEXT, "$2") C=cn .CX  
            Exit Sub Vx> Q  
        End If , `EOJ"|  
         )N1iGJO)  
        '表格名称 K~S*< ?  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" zfg+gd)Z  
        If regEX.Test(pTEXT) Then Sl<1Rme=w  
            ParaType = "表格标题" 7^LCP*  
            regEX.Execute (pTEXT) @v&s|X '  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) I'p+9H$  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) ozl!vf# kv  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) +o"CMI  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 ;#0$iE  
            Exit Sub "5sA&^_#_  
        End If {Ja(+NQ  
         d\JB jT1g  
        '图片名称 zn_#}}e;G  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" gwXmoM5  
        If regEX.Test(pTEXT) Then ]IeLKcn  
            ParaType = "图片标题" *">CEQ[MT  
            regEX.Execute (pTEXT) }:;UnE}  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") 0G33hIOS  
            TitleString = regEX.Replace(pTEXT, "$3") C+5X 8  
            TitleNo = regEX.Replace(pTEXT, "$1") >lzXyT6x8  
            Exit Sub ^=1u2YdVw  
        End If ?.lo[X<,*  
         -!li,&,A1  
        '参考文献 U0{)goN.  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 zpeCT3Q5O  
        If regEX.Test(pTEXT) Then nLv~)IQ}:  
            ParaType = "文献条目" hdSP#Y'-  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") pLV %g#h  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") ;c DMcKKIA  
            Exit Sub L%QRWhB  
        End If ;'08-Et  
         BF;}9QebmS  
        prfx = Left(pTEXT, 2) z5Tsu1 c  
        If prfx = "注：" Or prfx = "注:" Then g#7Q-n3^  
            ParaType = "图表注解" *rHz/& ,  
            Exit Sub H=g%>W%3  
        End If 6iF&!Fd>J  
         d"Wuu1tEY  
         |>m'szca4  
        ParaType = "正文" (uhE'IQ{(  
         z 1^fG)  
    End With i ?uX'apk  
End Sub vH1,As  
7l~^KsX  
Sub ConvertListToOrdinary() <hTHY E=  
    Dim st As Paragraph Y %- !% |  
    With ActiveDocument ~kSO YvK$'  
        For i = .Paragraphs.Count To 1 Step -1 ^3H:I8gRCl  
            Set st = .Paragraphs(i) Fa v++z  
            lst = st.Range.ListFormat.ListString tns8B  
            If lst <> "" Then ,Oy$q~.  
                st.Range.ListFormat.RemoveNumbers k_zn>aR$F  
                st.Range.InsertBefore lst & " " iSW<7pNq0  
            End If `YE= B{q  
        Next J]{<Z?%  
    End With vNl)ltzJF  
    Set st = Nothing j|N<6GSke  
End Sub $ Y^0l  
n"D` =  
Private Sub UserForm_Activate() l"DHG`kb  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" ?TK`sGy  
    Me.lbTotal.Font.Bold = True bqp^\yu-E  
    Me.txtStatus.Visible = False [? O4l`  
    Me.cmdCheck.Enabled = True t,*1=S5  
$|3zsi2  
End Sub n00J21  
X  u HR  
T JZ~Rpq  
Sub CheckSuperScript() (c^ {T)  
    Selection.Find.ClearFormatting %N`_g' r!  
    Selection.Find.Replacement.ClearFormatting [6_.Y*}N  
    With Selection.Find !IO\g"y~|%  
        .Text = "[【\[［〖](*)[】\]〗］]" N mxh zjJ  
        .Replacement.Text = "[\1]" lcjOBu  
        .Replacement.Font.Superscript = True sK&kp=zu  
        '.Replacement.Font.Color = wdColorBlue BT_XqO  
        .Forward = True pPo(nH|<  
        .Wrap = wdFindContinue m.1-[2{8~  
        .FORMAT = True .y3E @0a  
        .MatchCase = False g7*Uuh#  
        .MatchWholeWord = False -zqpjxU:  
        .MatchByte = False -38"S;M 8  
        .MatchAllWordForms = False 748:* (O  
        .MatchSoundsLike = False tY!l}:E[  
        .MatchWildcards = True D_~;!^  
    End With H)"]I3  
    Selection.Find.Execute Replace:=wdReplaceAll '<uM\v^k  
End Sub >P\eHR,{-  
O"\_%=X9  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) \b8#x T}  
    bContinue = False jWi~Q o+  
    Set regEX = Nothing #)twk `!^  
End Sub H^@Hco>|  
&NoA, `|7  
Sub CeateOrModifyStyle() YZSQOLN{  
' w\eC{,00:  
'  (FaYagD  
Dim stl As Style oSkQ/5hg.  
     4Y2I'~'  
    Options.Pagination = False r `n|fD.  
     _;Xlw{FN^  
    On Error Resume Next WG,1%=M@  
    For Each stl In ActiveDocument.Styles H>;,r ,  
        stl.Delete vR2);ywX  
    Next Q@>1z*'I  
    On Error GoTo 0 Iz. h  
     [)GRP  
    Set stl = Nothing 1IS1P)4_0  
     ~_N,zw{x  
    DoEvents C7*YZe  
    On Error Resume Next XM w6b*O  
     \=im{(0h  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph h$6'9rL&i  
     _X;,,VEV!  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph F --b,,  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph .35~+aqC  
     \/;c^!(<  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph SOM? 0.  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph C/qKa[mg  
     ]sL.+.P  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph /#(IV_Eol  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph [MwL=9;!H  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph 8#Z)qQWi_t  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph yI#qkl-  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph KB :JVK^<  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph GA[D@Wy  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph HQ" trV  
     hif;atO  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph O2p E"8=4Q  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph . _|=Btoo  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph z uW4gJ  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph V;"2=)X  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph ipp`99  
     Cb?  !+U  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph #0uu19+}  
    On Error GoTo 0 ex1!7A!}g  
    DoEvents 1hgIR^;[b  
     "5 ~{  
    'BaseStyle Ax;?~v4Z  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False V4ePYud;^  
    With ActiveDocument.Styles("BaseStyle").Font 'PY;  
        .NameFarEast = "宋体" .PVYYhrt  
        .NameAscii = "Times New Roman" N0kCdJv  
        .NameOther = "宋体" _|0#  
        .Size = 10.5 .S#i/A'x  
        .Bold = wdUndefined K{/i2^4  
        .Italic = wdUndefined  R.HvqO  
        .Subscript = wdUndefined qK#"uU8B  
        .Subscript = wdUndefined Y$n+\K  
         ht]n*  
        .Underline = wdUnderlineNone r"h09suZBW  
        .UnderlineColor = wdColorAutomatic 9"+MZ$  
        .StrikeThrough = False oST)E5X;7  
        .DoubleStrikeThrough = False vfv?Qj R  
         6'/ Zq  
        .Outline = False LmqSxHs0Q  
        .Emboss = False 'iZwM>l\  
        .Shadow = False ('C)S)98C  
        .Hidden = False SM RKEPwp&  
        .SmallCaps = False ,\P|%yv  
        .AllCaps = False Y<VX.S2kf  
        .Color = wdColorAutomatic U+ ik& R#  
        .Engrave = False xt pY*  
        .Scaling = 100 [m h>N$  
        .Kerning = 1 IE996   
        .Animation = wdAnimationNone R=E4Sh  
        .DisableCharacterSpaceGrid = False f x(8 o+  
        .EmphasisMark = wdEmphasisMarkNone *P/A&"i[E  
    End With { >izfG,\  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat A>upT'  
        .LeftIndent = 0 ;w"h n*  
        .RightIndent = 0 Ib{l$#  
        .SpaceBefore = 0 <ml?DXT  
        .SpaceBeforeAuto = False #t(/wa4  
        .SpaceAfter = 0 -bOtF%  
        .SpaceAfterAuto = False 3))R91I  
         vnQFq  
        .LineSpacingRule = wdLineSpaceSingle qp6'n&^&  
        .Alignment = wdAlignParagraphJustify OEjX(F3=  
         uKM` umE  
        .WidowControl = False  ArAe=m!u  
        .KeepWithNext = False I5l%X{u"N  
        .KeepTogether = False &ZC{ _t  
        .PageBreakBefore = False NcF>}f,}\  
        .NoLineNumber = False #TR!x,Hc  
         =0Y0o_  
        .FirstLineIndent = CentimetersToPoints(0) -p)`ob-  
        .OutlineLevel = wdOutlineLevelBodyText E=,5%>C0#%  
        .CharacterUnitLeftIndent = 0 \-6y#R-B  
        .CharacterUnitRightIndent = 0 f&^}yqmuE  
        .CharacterUnitFirstLineIndent = 0 IO"P /Q  
        .LineUnitBefore = 0 Oh CdBO  
        .LineUnitAfter = 0 R$ +RTG:E  
        .AutoAdjustRightIndent = True 2ns,q0I A  
        .DisableLineHeightGrid = True =CD6x= l6  
         JluA?B7E  
        .FarEastLineBreakControl = True Jc mMbd&B  
        .WordWrap = True KO#kIM-  
        .Hyphenation = False mkyYs[  
         a BMV6'  
        .HangingPunctuation = True _[-MyUs  
        .HalfWidthPunctuationOnTopOfLine = True 9D=X3{be#  
        .AddSpaceBetweenFarEastAndAlpha = True ?#:']q  
        .AddSpaceBetweenFarEastAndDigit = True  XA;PWl5!  
        .BaseLineAlignment = wdBaselineAlignBaseline Nh^I{%.x  
    End With 9(S=0<  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False ]oSx]R>{f  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll KNQj U-A  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese )z74,n7-  
    ActiveDocument.Styles("BaseStyle").NoProofing = False hN=kU9@knC  
      wk8fa  
    '一级标题题样式 @^YXE ,  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") gsM$VaF(  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" FO^6c  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False {[Ri:^nHgL  
    With ActiveDocument.Styles("QLNU一级标题").Font e\[q3J  
        .NameFarEast = "黑体" %pOz%v~  
        .NameAscii = "Arial Black" 5!Y\STn  
        .NameOther = "黑体" IO8 @u;&  
        .Name = "黑体" P (7el  
        .Size = 16              '三号 JB'tc!!*  
        .Bold = True 2(3Q#3V  
        .Italic = wdUndefined 2D"my]FnF  
        .Subscript = wdUndefined H#hpaP;  
        .Superscript = wdUndefined 'h6G"=+  
    End With E`^ D9:3:)  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat KP0(w(q  
         5ILKYUg,  
        .LeftIndent = CentimetersToPoints(0) vjm? X  
        .RightIndent = CentimetersToPoints(0) `^8mGR>OpI  
        .FirstLineIndent = CentimetersToPoints(0) oz{X"jfu  
         WeH_1 $n5  
        .LineSpacingRule = wdLineSpaceSingle WK*tXc_[b  
        .Alignment = wdAlignParagraphCenter 2'M5+[8y8  
         !BkE-9v?w  
        .WidowControl = True leNX5 sX  
        .KeepWithNext = True 5cQ]vb  
        .KeepTogether = True M=;csazN  
        .OutlineLevel = wdOutlineLevelBodyText $+4 4US  
         p7`9 d1n  
        .LineUnitBefore = 0.5 Zh;}Q(w  
        .LineUnitAfter = 0.5 Y]`=cR`/"  
    End With &0Y |pY  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False k}<H  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll *lLCH,  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese diM*jN#  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True ]6`K  
    DoEvents H9TeMY  
      jJ<&!=  
    '二级 YzZj=]\`b  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") j1{`}\e  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" ,{q#U3  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False ti9e(Jt!O  
    With ActiveDocument.Styles("QLNU二级标题").Font z-We>KX  
        .NameFarEast = "黑体" b~>@x{  
        .NameAscii = "Arial Narrow" DU"Gz!X]Jd  
        .NameOther = "黑体" $=E4pb4Y  
        .Name = "黑体" |iBf6smF  
        .Size = 15        '小三号 C/N;4  
        .Bold = False =GP L>a&  
        .Outline = False ^J7q,tvbJ  
        .Italic = wdUndefined 6<S -o|Xw  
        .Subscript = wdUndefined (&Q!5{$W  
        .Superscript = wdUndefined `{Oqb  
    End With jmq^98jB  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat &4WA/'>R  
        .LeftIndent = CentimetersToPoints(0) A#I&&qZ  
        .RightIndent = CentimetersToPoints(0) iCiKr aW  
        .FirstLineIndent = CentimetersToPoints(0) b1IAp>*2l  
         ?OnL,y|  
        .LineSpacingRule = wdLineSpaceSingle C7m/<  
        .Alignment = wdAlignParagraphLeft vS5}OV  
         _7:Bxx4B  
        .WidowControl = True *.wj3' wV  
        .KeepWithNext = True =d5;F`m  
        .KeepTogether = True B:v_5e\f@  
        .PageBreakBefore = False RXAE jzf   
        .OutlineLevel = wdOutlineLevelBodyText oO?+2pTQV  
         [|*7"Q(  
        .LineUnitBefore = 0.5 oupWzjo  
        .LineUnitAfter = 0.5 <`vXyPA6  
          8(K:2  
    End With D Q ={  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False Z P|k3   
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll xu-bn  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese |*zgX]-+;  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True + XBF,<P  
    DoEvents O_2o/  
     L6nsVL&  
    '三级标题样式 v ))`U,Gm  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") p{GO-gE@  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" H*<E5^#dw  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False -WyB2$!(  
    With ActiveDocument.Styles("QLNU三级标题").Font ERK{smL  
        .NameFarEast = "宋体" r>bgCQ#-n  
        .NameAscii = "Times New Roman" S m=ln)G=  
        .NameOther = "黑体" 5D7 L)>  
        .Name = "黑体" 0~$9z+S  
        .Size = 14               '四号 lj&\F|-i  
        .Bold = False [Nm?qY  
        .Outline = False 4pXY7+e 2'  
        .Italic = wdUndefined 6 .?0 {2s  
        .Subscript = wdUndefined OMjPC_  
        .Superscript = wdUndefined _I'k&R  
    End With 0$Mxu7 /  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat 3*%+NQIj  
        .LeftIndent = CentimetersToPoints(0) k3B_M9>!  
        .RightIndent = CentimetersToPoints(0) =eW4?9Uq  
        .FirstLineIndent = CentimetersToPoints(0) Kg<~Uf=1  
         h2mHbe43  
        .LineSpacingRule = wdLineSpaceSingle oaq,4FT  
        .Alignment = wdAlignParagraphLeft &I'J4gk[  
         -t<1A8%  
        .WidowControl = True f&5S`}C  
        .KeepWithNext = True VK*H1EH1  
        .KeepTogether = True Xqm ?@JN  
        .PageBreakBefore = False (HeSL),1  
        .OutlineLevel = wdOutlineLevelBodyText rf+}J_  
         kP('X/  
        .CharacterUnitLeftIndent = 0 ='kCY}dkO  
        .CharacterUnitRightIndent = 0 snkMxc6c[  
        .CharacterUnitFirstLineIndent = 2 7vPG b:y  
          n9&fH  
        .LineUnitBefore = 0.5 SbL7e#!!  
        .LineUnitAfter = 0 yG~V vpv  
    End With c%b|+4 }x  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False Ipz U=+ h  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll - 9+$z|K  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese P;gd!Yl<-  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True k??CXW  
    DoEvents XHgW9;M!  
     d<OdQvW.  
    '四级标题样式 A-myY30  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 0VJHE~Bgi  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" s-SFu  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False 4n(w{W>  
    With ActiveDocument.Styles("QLNU四级标题").Font SufM ~9Ll  
        .NameFarEast = "宋体" ON!F k:-  
        .NameAscii = "Times New Roman" _M7|:*  
        .NameOther = "宋体" ,s}&|+ '"  
        .Name = "宋体" }8"i~>>a  
        .Size = 12               '小四号 X5+^b({  
        .Bold = True GYf{~J  
        .Outline = False !JDuVqW  
        .Italic = wdUndefined j<Pw0?~s6  
        .Subscript = wdUndefined @Bkg<  
        .Superscript = wdUndefined QRl+7V  
    End With @0H0!9'  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat T&S=/cRBK}  
         751Q i  
        .LeftIndent = CentimetersToPoints(0) V{>;Z vj1R  
        .RightIndent = CentimetersToPoints(0) ~qL/P 5*+  
        .FirstLineIndent = CentimetersToPoints(0) Rd;t}E$  
         tNZZCdB  
        .LineSpacingRule = wdLineSpaceSingle bY,dWNS:  
        .Alignment = wdAlignParagraphLeft ^oq|^O  
         X[w]aJnAr  
        .WidowControl = True ZK2&l 8  
        .KeepWithNext = True _N|A I"sj.  
        .KeepTogether = True Imzh`SI,  
        .PageBreakBefore = False 438r]f?0|{  
        .OutlineLevel = wdOutlineLevelBodyText 8?<J,zu@AV  
         9'|k@i:  
        .CharacterUnitLeftIndent = 0 jc>B^mqx  
        .CharacterUnitRightIndent = 0 .pl,ujv  
        .CharacterUnitFirstLineIndent = 2 D2 o|.e<r  
         ^a3 (QKS  
        .LineUnitBefore = 0 r_bG+iw7p  
        .LineUnitAfter = 0 W>{&" 5  
         gV:0&g\v  
    End With %O[1yZh \  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False IJPyCi)  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll <]oPr1  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese /s(PFN8#Y  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True ^ -~=U^2tC  
    DoEvents N@'l: N'f4  
     (<OmYnm  
    '正文校式 ^l ;Bo3^_  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") Z5wQhhH  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" *j1Skd.#At  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False lQ [JA[  
    With ActiveDocument.Styles("QLNU正文").Font '_K`1&#U  
         {~g7&+9x*  
        .NameFarEast = "宋体" _m a;b<I/<  
        .NameAscii = "Times New Roman" -g 9CW[  
        .NameOther = "宋体" K!>3`[:I"  
        .Name = "宋体" >U4bK ^/Bp  
         $j(4FyH\  
        .Size = 12               '小四号 n@C#,v#^0  
         %Y|AXx R  
        .Bold = wdUndefined Ym -U{a  
        .Italic = wdUndefined 91a);d  
        .Subscript = wdUndefined Q>w)b]d~c  
        .Superscript = wdUndefined 0@u{(m  
         oz3!%'  
        .Outline = False _q@lP|  
        .Emboss = False MD4m h2  
        .Shadow = False T2|<YJ=  
        .Hidden = False Ew{N 2  
         ~<Wa$~oY  
        .DisableCharacterSpaceGrid = True R*ex!u60M  
    End With 0&&P+adk  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat l96 AJB'  
         ;U tEHvE*  
        .LeftIndent = CentimetersToPoints(0) =''*'a-P  
        .RightIndent = CentimetersToPoints(0) RJT55Rv{  
        .FirstLineIndent = CentimetersToPoints(0) X^m @*,[s  
         0,__{?!  
        .LineSpacingRule = wdLineSpaceExactly : G^4/A_  
        .LineSpacing = 20 Vj)"?|V  
        .Alignment = wdAlignParagraphLeft {JKG-0)z?  
         h"2^` )!u  
        .WidowControl = False & }"I!  
        .KeepWithNext = False Tn3C0  
        .KeepTogether = False Mj19;nc0I  
        .PageBreakBefore = False %>O}bdSf  
        .Hyphenation = False DEfhR?v  
         G[zysxd  
        .OutlineLevel = wdOutlineLevelBodyText iz tF  
         x< d ew  
       .rDao]K  
        .CharacterUnitLeftIndent = 0 > -fXn  
        .CharacterUnitRightIndent = 0 )J[Ady^5  
        .CharacterUnitFirstLineIndent = 2 EW)r/Av:,  
         6is+ \  
        .LineUnitBefore = 0 [a^<2V!vMn  
        .LineUnitAfter = 0 t[b(erO'  
        .SpaceBefore = 0 D[YdPg@-  
        .SpaceAfter = 0 r|3u]rt  
         ~g~`,:Qc  
        .DisableLineHeightGrid = True 5':j=KQE_  
    End With ;gRPTk$X3  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False 9/#b1NGv  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll \naG  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese X0$?$ ta  
    ActiveDocument.Styles("QLNU正文").NoProofing = True fv>Jn`  
    DoEvents l,b_' m@  
     FklO#+<:  
    '图片段落样式 $K|2k7  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") 8L@@UUjr  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" ]@}@G[e#[  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False bX%4[BKP  
    With ActiveDocument.Styles("QLNU图片段落").Font ~ :B/`1[m  
        .Size = 12               '小四号 k5 )IBO  
        .Italic = wdUndefined p1z^i(  
        .Subscript = wdUndefined c Ct5m  
        .Superscript = wdUndefined lrMkp@ f.  
    End With HE2t0sAYX  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat !) d  
         cZt5;"xgr]  
        .LeftIndent = CentimetersToPoints(0) aJ]t1  
        .RightIndent = CentimetersToPoints(0) ) I.uqG  
        .FirstLineIndent = CentimetersToPoints(0) r9-)+R J  
         G6"4JTWO  
        .LineSpacingRule = wdLineSpaceSingle $7Lcn9 ?G  
        .Alignment = wdAlignParagraphCenter %+ MYg^  
        .KeepWithNext = True Mw;^`ZxT  
        .OutlineLevel = wdOutlineLevelBodyText f+c{<fX  
         o3OJI_ v &  
        .CharacterUnitLeftIndent = 0 L{c\7  
        .CharacterUnitRightIndent = 0 ~;wR}s<}(  
        .CharacterUnitFirstLineIndent = 0 D@iS#+22  
         Q6[h;lzGV  
        .LineUnitBefore = 0 ;q<:iaY9  
        .LineUnitAfter = 0 <g8{LG0  
    End With 1<M~ #  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False 2+LvlS)C  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll kw1Lm1C  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese V5I xZn%  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True "1ZVuI  
    DoEvents vZSwX@0  
     JQ\o[t  
     #Pq6q.UB  
    '第X章 # kmI#W"^  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") \5) ZI'q  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" `zcpaE.@  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False DEzL]1;P  
    With ActiveDocument.Styles("QLNU章节标题").Font 6y@o[=m  
        .NameFarEast = "黑体" W5 RZsS]  
        .NameAscii = "Arial Black" F2=#\ U$  
        .NameOther = "Arial Black" Yd~Tzh  
        .Name = "黑体" @d[)i,d:G  
        .Size = 16  $)(Zt^  
        .Bold = True %U97{y  
        .UnderlineColor = wdColorAutomatic <,nd]a  
        .Outline = False kr]_?B(r  
        .Italic = wdUndefined E{}eYU  
        .Subscript = wdUndefined f%STkL)  
        .Superscript = wdUndefined 9Bu=8P?  
        .Scaling = 100 +$G P(Uu,  
        .DisableCharacterSpaceGrid = True 8O^z{Yh7  
    End With DJNM =v  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat K5d>{c  
        .LineSpacingRule = wdLineSpaceSingle "&kXAwe  
        .Alignment = wdAlignParagraphCenter 072`i 46  
        .WidowControl = True y;LZX-Z-  
        .KeepWithNext = True )|S!k\^A  
        .KeepTogether = True `+WQ^dP@  
        .PageBreakBefore = True A^ry|4`3(  
        .OutlineLevel = wdOutlineLevelBodyText gHU0Pr9'  
         ?vP }#N!=d  
        .LeftIndent = CentimetersToPoints(0) ZpU4"x>  
        .RightIndent = CentimetersToPoints(0) xx%*85<  
        .FirstLineIndent = CentimetersToPoints(0) gf|&u4D  
         `XbV*{7  
        .CharacterUnitLeftIndent = 0 T:udw  
        .CharacterUnitRightIndent = 0 lN::veD  
        .CharacterUnitFirstLineIndent = 0 ;cWFh4_  
         k%cT38V*  
        .LineUnitBefore = 1 XZPq4(,9}  
        .LineUnitAfter = 0.5 gO! :WD  
         \OF"hPq  
        .AutoAdjustRightIndent = False (Yc}V  
        .DisableLineHeightGrid = True 0OVxx> p/x  
        .FarEastLineBreakControl = True !2]G.|5/A  
        .WordWrap = True [i N}W5 m  
    End With _d3/="=  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False t*!Q9GC_  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll eN I6V/\`  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese 9uY$@7qH  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True g*:f#u5  
    DoEvents , @6_sl  
     W#<ZaGsq  
    '表格标题 _&F*4t! n_  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ^(yU)k3pu  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" |Iq\ZX%q  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False  *U4eL-  
    With ActiveDocument.Styles("QLNU表格标题").Font Ob7F39):N  
        .NameFarEast = "楷体" gM Z `  
        .NameAscii = "Arial" >K;C?gHo  
        .Name = "楷体" e p\a  
        .Size = 10.5 #c2JWDH1F  
        .Bold = True <F5x}i~(C  
        .Underline = wdUnderlineNone 0-A@X>6bs  
        .Italic = wdUndefined p4wXsOQ}  
        .Subscript = wdUndefined ;KW}F|  
        .Superscript = wdUndefined ? $X1X`@  
        .Color = wdColorAutomatic Z <tJ+  
    End With lV<j?I~?Q  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat <UO'&?G  
         3sBu`R*hk  
        .LineSpacingRule = wdLineSpaceSingle I!,FxOM|$  
        .Alignment = wdAlignParagraphCenter Y !nE65  
        .KeepWithNext = True \Ot,&Z k2  
        .KeepTogether = True 0SWec7G  
        .OutlineLevel = wdOutlineLevelBodyText GVzG  
         c5tCw3$t  
        .LeftIndent = CentimetersToPoints(0) PF/eQZ*4  
        .RightIndent = CentimetersToPoints(0) H9T'{R*FC  
        .FirstLineIndent = CentimetersToPoints(0) sBu- \P#  
         e@crM'R7Lo  
        .CharacterUnitLeftIndent = 0 cH\.-5NQ  
        .CharacterUnitRightIndent = 0 t{ScK%S6  
        .CharacterUnitFirstLineIndent = 0 =wX(a  
         u+vUv~4A6  
        .LineUnitBefore = 1 D& #ph%U,P  
        .LineUnitAfter = 0 9.$k^|~  
         Y[ toN9,  
    End With d+Jj4OnP  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False #s^~'2^%4  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll _n_|skG  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese '|l1-yD_  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True ukRbSJ5a5  
    DoEvents } Z}4_/E  
#+Cu&l  
    '表格首行 q%GlS=o "  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") m]:|j[!*M  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False 5J8U] :Y)  
    With ActiveDocument.Styles("QLNU表格首行").Font Ycve[31BDd  
        .NameFarEast = "楷体" c4n]#((%a  
        .NameAscii = "Times New Roman" *H,vqs\}y  
        .Name = "楷体" go$zi5{h#  
        .Size = 9 YXhxzH hPd  
        .Bold = True Q>emyij  
        .Underline = wdUnderlineNone +&hd3  
        .Italic = wdUndefined &8uq5uKg  
        .Subscript = wdUndefined L+y90 T6?  
        .Superscript = wdUndefined '}NQ`\k  
    End With IHtNaN )  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat yGtGhP8  
        .LineSpacingRule = wdLineSpaceSingle ~!a~ -:#  
        .Alignment = wdAlignParagraphCenter D>Dch0{H,:  
         seEG~/U<  
        .LeftIndent = CentimetersToPoints(0) :Sd iG=t  
        .RightIndent = CentimetersToPoints(0) Aaq!i*y  
        .FirstLineIndent = CentimetersToPoints(0) zHvG3Ed@  
         MHkTN  
         =7uxzg/%Tj  
        .CharacterUnitLeftIndent = -0.5 x*uQBNf=  
        .CharacterUnitRightIndent = -0.5 rXlJW]i  
        .CharacterUnitFirstLineIndent = -0.5 Y5Jrkr)k  
         =h9&`iwiu  
        .LineUnitBefore = 0 I= 'S).  
        .LineUnitAfter = 0 DkGC+Dw  
        .SpaceBefore = 0 =E''$b?Em  
        .SpaceAfter = 0 PF?tEw_WB  
         juQQ  
    End With ^X/[x]UOT@  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False d'Z  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll h*9s^`9)  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese Ks  @  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True X8(, ,>_  
    DoEvents VdV18-ea  
9My |G)M6  
    '表格内容 ]%VR Nm  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") UFy" hJchO  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False VCZ.{MD  
    With ActiveDocument.Styles("QLNU表格内容").Font k&PxhDf  
        .NameFarEast = "楷体"  &(Ot(.  
        .NameAscii = "Times New Roman" + \AiUY  
        .Name = "楷体" ?oX.$E?(  
        .Size = 9 +WYXj  
        .Bold = False 4=E9$.3a  
        .Underline = wdUnderlineNone *CtO Q  
        .Italic = wdUndefined VUaYK  
        .Subscript = wdUndefined w8df-]r  
        .Superscript = wdUndefined O_jf)N\pi  
    End With 0]3#3TH  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat  Wq1%  
        .LineSpacingRule = wdLineSpaceSingle R4Vi*H  
        .Alignment = wdAlignParagraphCenter =N%;HfUD  
         yY$:zc"J  
        .LeftIndent = CentimetersToPoints(0) @] ` _+\y  
        .RightIndent = CentimetersToPoints(0) Gn_rf"  
        .FirstLineIndent = CentimetersToPoints(0)  0"_FQv  
         Td !7Rx _  
        .CharacterUnitLeftIndent = -0.5 8QN#PaY  
        .CharacterUnitRightIndent = -0.5 _Hn-bp[?>  
        .CharacterUnitFirstLineIndent = -0.5 QK3j.Ss  
        .LineUnitBefore = 0 B2P jS1z2  
        .LineUnitAfter = 0 n2$(MDdL`  
        .SpaceBefore = 0 ~]_g q;bG  
        .SpaceAfter = 0 ({}JvSn1  
    End With Hki  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False Z&!5'_9{V  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll z\fmwI  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese IP E2t  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True b+.P4+  
    DoEvents !Z*2X ^  
X>`e(1`_O  
    '图片标题  X)^kJ`  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") q;p:)Q"  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" *uq;O*s  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False 7]w]i5  
    With ActiveDocument.Styles("QLNU图片标题").Font &nk[gb o\  
        .NameFarEast = "楷体" y JJNr]oq  
        .NameAscii = "Times New Roman" 9fyJw1  
        .Name = "楷体" ? L A>5  
        .Size = 10.5 7LM?<lp]  
        .Bold = True ersddb^J]  
        .Underline = wdUnderlineNone GDgq 4vfj  
        .Italic = wdUndefined jF}u%T)HL  
        .Subscript = wdUndefined Bu\:+3)  
        .Superscript = wdUndefined :eIu<_,}  
        .Outline = False [h>RO55e  
        .Shadow = False BuE=(v2}  
        .Color = wdColorAutomatic Ne)H*DT  
    End With l H@hV  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat Jf-4Q!  
        .LineSpacingRule = wdLineSpaceSingle cZ{-h  
        .Alignment = wdAlignParagraphCenter mBC?Pg  
         Qb}1tn)  
        .KeepWithNext = wdUndefined %,G&By&,  
        .KeepTogether = True #R<ErX)F  
        .OutlineLevel = wdOutlineLevelBodyText JlZU31Xws  
         1I*b7t  
        .LeftIndent = CentimetersToPoints(0) n-P)X<\  
        .RightIndent = CentimetersToPoints(0) Vnu*+  
        .FirstLineIndent = CentimetersToPoints(0) Bg?f}nu7  
         U=4tJb  
        .CharacterUnitLeftIndent = 0 ]D@_cxud3  
        .CharacterUnitRightIndent = 0 *-gd k9  
        .CharacterUnitFirstLineIndent = 0 A3VXh^y+  
         4PwjG;!K  
        .LineUnitBefore = 0 Ydw04WEJ  
        .LineUnitAfter = 0 b'Scoa7@'  
    End With F|t3%dpj  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False [YQVZBT|{  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll 9 -\.|5;:  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese -^i[   
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True brk>oM;t  
    DoEvents b42"Y,sbB  
^Gc#D:zU  
    '目录项 h <s.o#8  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") e^?0uVxS1  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" }i7Gv K<[:  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False Gy+ /P6  
    With ActiveDocument.Styles("QLNU目录项").Font FOAy'76p  
        .NameFarEast = "黑体" "Cz8nG  
        .NameAscii = "Times New Roman" Gm 0&y  
        .NameOther = "Times New Roman" p,hDZea  
        .Name = "黑体" xWv@PqXD  
        .Size = 10.5 $n30[P@p;  
        .Bold = False %Y7\0q~Z  
        .Italic = wdUndefined /~?'zr  
        .Underline = wdUnderlineNone +} al_.  
        .Color = wdColorAutomatic {=5Wi|  
        .Superscript = wdUndefined 'gDhi!h%  
        .Subscript = wdUndefined qHT_,\l2  
    End With UQmdm$.  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat UE2!,Z,  
         o& g0 1t  
        .LineSpacingRule = wdLineSpaceSingle @ j/UDM  
        .Alignment = wdAlignParagraphLeft %jgB;Y  
         w%(Ats  
        .WidowControl = False 0=3Av8  
        .KeepWithNext = False <<,YgRl2  
        .KeepTogether = False Z= P]U D  
        .PageBreakBefore = False +}eGCZra  
        .NoLineNumber = False s}NE[Tw  
        .OutlineLevel = wdOutlineLevelBodyText Dp)5u@I  
         `*5_`^t   
        .LeftIndent = CentimetersToPoints(0) oDtgB O<  
        .RightIndent = CentimetersToPoints(0) Q Q3a&  
        .FirstLineIndent = CentimetersToPoints(0) \t6k(5J  
         T) ZO+}  
        .CharacterUnitLeftIndent = 0 EZ6\pyNB0#  
        .CharacterUnitRightIndent = 0 MlDWK_y_&  
        .CharacterUnitFirstLineIndent = 0 gVM&wo |  
         W+v7OSd92  
        .LineUnitBefore = 0 Vz(O=w=  
        .LineUnitAfter = 0 S${n:e0\  
    End With noali96J  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False jA&ZO>4  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll +j*hbG=  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot ^W&qTSjh  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese ;<j[0~qp:  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True U}w,$ Y  
    DoEvents cO]_5@#f'8  
     v1s.j2T  
    '参考文献 G4=R4'hC  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") |yqL0x0\l  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" (%&HufT  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False MN wMF  
    With ActiveDocument.Styles("QLNU参考文献").Font gLyXe,Jp  
        .NameFarEast = "宋体" ;}iV`)S  
        .NameAscii = "Times New Roman" 8.9Z0  
        .NameOther = "Times New Roman" @WmEcX|  
        .Name = "Times New Roman" EDMuQu/D8  
        .Size = 12 I{e[Y_  
        .Bold = False #GTR}|Aga  
        .Italic = wdUndefined Pz+2(Z  
        .Subscript = wdUndefined 6FYO5=R  
        .Superscript = wdUndefined f,Z* o  
        .Underline = wdUnderlineNone P4&3jQ[ o  
        .UnderlineColor = wdColorAutomatic `QpkD8  
        .Color = wdColorAutomatic 381a(F[$e  
        .Engrave = False ;L <D-=  
    End With 3#O R fr(  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat 4'Svio  
         T d E.e(  
        .LineSpacingRule = wdLineSpaceExactly {yo<19kV@  
        .LineSpacing = 16 N:"S/G>r ;  
        .Alignment = wdAlignParagraphLeft h!k[]bt5  
        .WidowControl = False LHQ$0LVt>T  
        .KeepWithNext = False E}7@?o7u}  
        .KeepTogether = False KaEL*  
        .PageBreakBefore = False I?2S{]!?  
        .OutlineLevel = wdOutlineLevelBodyText cPFs K*w  
         p_^Jr*Mv  
        .LeftIndent = CentimetersToPoints(0) "iu9r%l94  
        .RightIndent = CentimetersToPoints(0) TuF;>{~}  
        .FirstLineIndent = CentimetersToPoints(0) 4f)B@A-  
         (n4\$LdP-  
        .CharacterUnitLeftIndent = 0 k0@b"y*  
        .CharacterUnitRightIndent = 0 ] LcCom:]  
        .CharacterUnitFirstLineIndent = -2 C`4m#  
         ~F gxhK2+  
        .LineUnitBefore = 0 ""0 cw  
        .LineUnitAfter = 0 #@rvoi  
        .SpaceBefore = 0 fVb~j;  
        .SpaceAfter = 0 JDp"!x{O  
         2P`Z >_  
    End With .uo9VL<  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False FTVV+9.l:  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll FX"j8i/N  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS F$tshe(  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True _h?hFs,N]  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese Pdq}~um3{  
    DoEvents t)!(s,;T  
,~ z*V;y)  
    ' })v`` +  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") Y (a0*fh  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" zv~dW4'  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False }:04bIaV  
    With ActiveDocument.Styles("QLNU论文题目").Font AQx:}PO  
        .NameFarEast = "黑体" IE^xk@  
        .NameAscii = "Arial Black" XLu Y  
        .NameOther = "Arial Black" mE|?0mRA %  
        .Name = "Arial Black" 8>\tD  
        .Size = 16 DW@|H  
        .Bold = False 3} Xf  
        .Italic = wdUndefined <D_UF1Pk  
        .Superscript = wdUndefined <$ "   
        .Subscript = wdUndefined T[M:%vjYF  
        .Underline = wdUnderlineNone LqZsH0C  
        .UnderlineColor = wdColorAutomatic @N tiT,3k  
        .Color = wdColorAutomatic U*p; N,SjQ  
<8  $fo  
    End With QfdATK P  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat z CS.P.$  
        .LineSpacingRule = wdLineSpaceSingle f ye=8 r  
        .Alignment = wdAlignParagraphCenter 4l2/eh]Hc(  
        .WidowControl = True W 'w{}|  
        .KeepWithNext = True CyR1.|!@  
        .KeepTogether = True ?M< q95pL  
        .PageBreakBefore = True G\X}gqe(OJ  
        .NoLineNumber = False jDWmI% Y.  
        .OutlineLevel = wdOutlineLevelBodyText 4qsP/`8  
         0*=[1tdWY  
        .LeftIndent = CentimetersToPoints(0) >8v4fk IK  
        .RightIndent = CentimetersToPoints(0) [w1 4hHnq  
        .FirstLineIndent = CentimetersToPoints(0) iE 6?Px9]  
         3A`|$So  
        .CharacterUnitLeftIndent = 0 8M<\?JD~_f  
        .CharacterUnitRightIndent = 0 nM<B{AR5^  
        .CharacterUnitFirstLineIndent = 0 |~+i=y  
         S)?V;@p6  
        .LineUnitBefore = 1 3ql Y=5Y  
        .LineUnitAfter = 1 JZ l"k  
         lG1\41ZxB  
        .BaseLineAlignment = wdBaselineAlignAuto // k`X  
    End With rpB0?h!$  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False h4 X=d5qd  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll k_o$ Ci  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS Q\QSnMM&]  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True 8q}955Nl  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese )z" .lw  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True *F^t)K2  
    DoEvents  V6L0\  
     yhuzjn  
    '中文摘要 NFs Cq_f  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") v,[E*qMN  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" ;4%Co)Rw  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False ~x-"?K  
    With ActiveDocument.Styles("QLNU中文摘要").Font h/i L/Q=  
        .NameFarEast = "宋体" s"'ns  
        .NameAscii = "Times New Roman" ^t 2b`n60  
        .NameOther = "Times New Roman" d-rqZn}  
        .Name = "Times New Roman" ehpU`vQz  
        .Size = 12 J,W<vrKOcN  
        .Bold = wdUndefined '{ $7Dbo  
        .Superscript = wdUndefined `K%f"by  
        .Subscript = wdUndefined #CV;Np  
        .Italic = wdUndefined ^uV=|1<%  
        .Underline = wdUnderlineNone D\4pLm"!v  
        .UnderlineColor = wdColorAutomatic j5Cf\*B4J  
        .Color = wdColorAutomatic _9pcHhJux  
    End With }!`_Bz:  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat ^b;3Jj  
        .LineSpacingRule = wdLineSpaceExactly k#oe:u`<  
        .LineSpacing = 20 ,pTj'I  
        .Alignment = wdAlignParagraphLeft Y\ C"3+I  
         q*^m8  
        .WidowControl = False ~LfFLC  
        .KeepWithNext = False : Yb_  
        .KeepTogether = True P9W!xvV`w  
        .PageBreakBefore = False fe3a_gYPz  
        .NoLineNumber = False Ib&]1ger#=  
        .OutlineLevel = wdOutlineLevelBodyText +I <^w)  
         X$Y\/|!z  
        .LeftIndent = CentimetersToPoints(0) ]4X08Cm^  
        .RightIndent = CentimetersToPoints(0) )wM881_!  
        .FirstLineIndent = CentimetersToPoints(0) )` ^/Dj;  
         ] >4CBm$  
        .CharacterUnitLeftIndent = 0 ~VKuRli|m  
        .CharacterUnitRightIndent = 0 Hz >_tA"^T  
        .CharacterUnitFirstLineIndent = 2 >53Hqzm&  
        .LineUnitBefore = 0 o..iT:f;n  
        .LineUnitAfter = 0 nu6p{_M  
         -U BH,U  
    End With VE $Kdo^  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False gj@>9  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll M669G;w(K  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS 0^25uAD=  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True \dHdL\f  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese 1C5~GI`  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True sqv!,@*q  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete %W8*vSbx  
    DoEvents HYwtGj~5  
     qydRmi  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") v[b|J7k  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" i"h~QEE  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False INRP@Cp1  
    With ActiveDocument.Styles("QLNU英文标题").Font U&'Xs z  
        .NameFarEast = "黑体" MwHxn%  
        .NameAscii = "Arial Narrow" ul&}'jBr  
        .Name = "Arial Narrow" c D5N'3  
        .Size = 16 @TraEBJGL  
        .Bold = True qy( kb(J  
        .Bold = wdUndefined :5#iVa#<  
        .Superscript = wdUndefined mD_sf_2>  
        .Subscript = wdUndefined .5E6 MF  
        .Italic = wdUndefined p6&6^v\  
         Njmb{L]Cps  
        .Underline = wdUnderlineNone e` eh;@9p  
        .UnderlineColor = wdColorAutomatic PN"=P2e/ 6  
        .StrikeThrough = False f{w[H S,z  
        .DoubleStrikeThrough = False >h9T/J8  
    End With 9$WA<1PK+  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat ]^6r7nfR6|  
        .LineSpacingRule = wdLineSpaceSingle QR\2 %}9b  
        .Alignment = wdAlignParagraphCenter 7.nNz&UG]5  
        .WidowControl = True w gkY \Q  
        .KeepWithNext = False 3| F\a|N  
        .KeepTogether = False 7Ml OBPh  
        .PageBreakBefore = False mum4Uj  
        .NoLineNumber = False 5,#aN}v#?  
        .FirstLineIndent = CentimetersToPoints(0) >*1YL)DBT\  
        .OutlineLevel = wdOutlineLevelBodyText qM(@wFg  
         Z&6*8#wn  
        .LeftIndent = CentimetersToPoints(0) (r-8*)Qh8  
        .RightIndent = CentimetersToPoints(0) y(yBRR  
        .FirstLineIndent = CentimetersToPoints(0) {wp tOZ  
         _ X~xfmU  
        .CharacterUnitLeftIndent = 0 Z5 Tu*u=  
        .CharacterUnitRightIndent = 0 U1=]iG<%  
        .CharacterUnitFirstLineIndent = 0 I~&*8)xM  
         AmX ~KK  
        .LineUnitBefore = 1 j-k]|0ea}  
        .LineUnitAfter = 1 +EvY-mwfQ  
         `G<|5pe  
    End With swfjKBfw+g  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False T( CTU/a-,  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll We@wN:  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS jyFKO[s\X  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True >f:OU,"  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese G DwijZw  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True 4Jk[X>I~  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete 2&0#'Tb  
    DoEvents :OD-L)Or  
2rrC y C  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") l:14uWu|  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" %g7B*AX]  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False u a_(wBipy  
    With ActiveDocument.Styles("QLNU英文摘要").Font z]R% A:6K  
        .NameFarEast = "宋体" -uhg7N[3  
        .NameAscii = "Arial" Id?2(Tg  
        .NameOther = "Arial" Q[&CtM  
        .Name = "Arial" o(@^V!}V  
        .Size = 12 yaK4% k  
        .Bold = wdUndefined +<^c2diX  
        .Italic = wdUndefined $|o[l.q2  
        .Superscript = wdUndefined +-PFISa<r  
        .Subscript = wdUndefined bmw"-W^U[  
    End With 4<S=KFT_  
     NI2-* G_M  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat ,H@ x.  
         8 S@"6TG`  
        .LineSpacingRule = wdLineSpaceExactly *d}{7UMy#  
        .LineSpacing = 20 bI:cYn1  
         l a_FZ  
        .Alignment = wdAlignParagraphJustify UJ^-T+fut  
         3z!^UA>q  
        .WidowControl = False E.4 X,  
        .KeepWithNext = False rds0EZ4W  
        .KeepTogether = False y:VY8a 4  
        .PageBreakBefore = False 4Ep6vm X  
        .NoLineNumber = False ^o[(F<q  
         |D~#9  
        .OutlineLevel = wdOutlineLevelBodyText [W8?ww%qT  
         psAr>:\3  
        .LeftIndent = CentimetersToPoints(0) |Li9Y"5  
        .RightIndent = CentimetersToPoints(0) qFwAzW;"  
        .FirstLineIndent = CentimetersToPoints(0) -"x25~k!?F  
         ) B[S4K2  
        .CharacterUnitLeftIndent = 0  Wo,fHY  
        .CharacterUnitRightIndent = 0 &&TAX  
        .CharacterUnitFirstLineIndent = 2 "64D.c(r$  
         }3 S6TJ+  
        .LineUnitBefore = 0 g]PC6xr38  
        .LineUnitAfter = 1 b/&{:g!B  
         2T-3rC)  
    End With [w}KjV/yi  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False 4=ZN4=(_[  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll tREC)+*\  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS hEfFMi=a`  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False Ht7v+lY90^  
    DoEvents HC RmW'  
L r9z~T:ED  
    Options.Pagination = True T-.Bof(?w  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." _MzdbUb5,  
    DoEvents |K'7BK_^J  
    ActiveDocument.Repaginate V ee;&  
RO.bh#A$  
End Sub !UX7R\qu|  
FK,Jk04on  
BF(Kaf;<t.  
杺栫杣杊椌柮栬，䒴蓉艿芖。
回复 引用
举报顶端
伍胥之 离线
级别: 军区司令员

显示用户信息 
101楼  发表于: 2024-12-28   
只看该作者 ┊  小 中 大
姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 zXT[}J VV  
_|KeB(W  
引用
引用第20楼newport93于06-14-2010 13:47发表的  : @+^5ze\  
nISfRXU;  
老五，I 服了U。 )jaNFJ 3  
:t6.J  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 4e9'yi  
"jAE Z  
杺栫杣杊椌柮栬，䒴蓉艿芖。
回复 引用
举报顶端
上一主题下一主题
«3456»Pages: 6/6
 Bay Area Chinese--灣區華人 » 乱讲
描述
快速回复

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