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

显示用户信息 
100楼  发表于: 2021-07-18   
只看该作者 ┊  小 中 大
Dim bContinue As Boolean {3!A \OR  
W!TT fj   
Dim regEX As New RegExp ,eL&Ner  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 )5Cqyp~P  
'%YTM N@  
Dim LastTitle0String As String, LastTitle0No As Long PAVlZ}kj  
Dim LastTitle1String As String, LastTitle1No As Long R1.Y x?  
Dim LastTitle2String As String, LastTitle2No As Long '8I=Tn  
Dim LastTitle3String As String, LastTitle3No As Long ]n$ v ^  
Dim LastTitle4String As String, LastTitle4No As Long y;O 6q206  
Dim LastTitle5String As String, LastTitle5No As Long rERtOgi  
Dim LastTabelString As String, LastTableNo As Long h-o;vC9fC  
Dim LastFigureString As String, LastFigureNo As Long L f{pTxKr  
Z$35`:x&h  
Dim strSeperator As String b'xBPTN  
=YtK@+| i  
Sub ConvertWidth(fTEXT As String, rText As String) 'z+Pa^)v  
        Selection.Find.ClearFormatting [T,Df&   
        Selection.Find.Replacement.ClearFormatting ':utU1dL  
        Selection.Find.Wrap = wdFindContinue ,3)JZ M  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText 9yLPh/!Ob  
        DoEvents xx?0F tuq  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True @#9xSs#  
End Sub H/*i-%]v+(  
ol_&epG;ST  
Sub ClearDomain() :MH=6  
        With Selection.Find K5(T7S  
            .ClearFormatting /N@NT/.M<  
            .Replacement.ClearFormatting g7eI;Tpv  
            .Wrap = wdFindContinue [u-=<hnoa  
            Me.txtStatus.Text = "清除所有域代码" =s S=  
            DoEvents Ra C6RH  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False % 5BSXAc  
        End With -'i[/{  
End Sub >as+#rz1p  
Gr3 q  
Private Sub cmdCheck_Click() ! e?=g%(  
    bContinue = True Z(J 1A x  
    Dim NoSeries1(1 To 16) As String *6v5JH&K  
    Dim NoSeries2(1 To 16) As String |6`7kb;p  
    Dim NoSeries5(1 To 16) As String ?w)A`G_  
    Dim NoSeriesRM(1 To 16) As String aQso<oK  
    Dim paraTotal As Long, ParaText As String b}N \h<\G  
    Dim ttString As String, ttNo As String 475jmQ{q  
     FE06,i\{  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long >(sS4_O7N  
TJ,?C$3  
    Me.txtStatus.Visible = True &3*r-9 BZ  
    Me.lbParaType.Visible = True :rvBx"  
    Me.cmdCheck.Enabled = False Kke _?/fT  
     TdoH(( nY  
     T{BGg  
     u R!'v  
     bnE&-N*  
    Dim ParaType As String, rText As String f1d<xGx  
     'qeUI}[  
    Selection.WholeStory /4+*!X  
    Selection.NoProofing = True S:c lyx  
     m^^#3*qa  
    tm1 = Now y!j>_m){w  
     q"LT8nD\  
        ActiveWindow.View.Type = wdNormalView )P.,h&h/  
     ,yi@?lc  
    NoSeries1(1) = "一" frWY8&W^H  
    NoSeries1(2) = "二" sr:hR Q27  
    NoSeries1(3) = "三" %Wc$S]>i  
    NoSeries1(4) = "四" zS?DXE  
    NoSeries1(5) = "五" q?f-h<yRQ  
    NoSeries1(6) = "六" lB|.TCbW  
    NoSeries1(7) = "七" 4U[X-AIY&  
    NoSeries1(8) = "八" -1R7 8(1  
    NoSeries1(9) = "九" #;"lBqxY`  
    NoSeries1(10) = "十" 0s.4]Zg>5  
    NoSeries1(11) = "十一" `Cu9y+t  
    NoSeries1(12) = "十二" (k%r_O 6  
    NoSeries1(13) = "十三" ldG$hk'  
    NoSeries1(14) = "十四" ^brh\M,:@  
    NoSeries1(15) = "十五" %\%&1  
    NoSeries1(16) = "十六" EV~?]Kt~  
     pf3-  
    NoSeries2(1) = "㈠" I*(7(>zgyv  
    NoSeries2(2) = "㈡" \i)@"}  
    NoSeries2(3) = "㈢" c>C!vAg  
    NoSeries2(4) = "㈣" >rFM8P(  
    NoSeries2(5) = "㈤"  GU xhn  
    NoSeries2(6) = "㈥" vLCm,Bb2L  
    NoSeries2(7) = "㈦" @_h=,g #@  
    NoSeries2(8) = "㈧" E7] a#  
    NoSeries2(9) = "㈨" 4_4|2L3  
    NoSeries2(10) = "㈩" ^9|&w.:@Q  
     [bN_0T.YI  
    NoSeries5(1) = "①" FWS!b!#,N  
    NoSeries5(1) = "②" eBe5H =I@  
    NoSeries5(3) = "③" Xd&oERJj  
    NoSeries5(4) = "④" R LDu5  
    NoSeries5(5) = "⑤" TI7)yxa=`  
    NoSeries5(6) = "⑥" Ge76/T%{Q  
    NoSeries5(7) = "⑦" ay=f1<a  
    NoSeries5(8) = "⑧" |@)jS.Bn  
    NoSeries5(9) = "⑨" Ft>,  
    NoSeries5(10) = "⑩" ck8Qs08  
      o7AI  
     M/}i7oS]  
    NoSeriesRM(1) = "I" qmnW  
    NoSeriesRM(2) = "II" +ZRm1q   
    NoSeriesRM(3) = "III" r \} O{ZO  
    NoSeriesRM(4) = "IV" g;y*F;0@  
    NoSeriesRM(5) = "V" McvLU+  
    NoSeriesRM(6) = "VI" M!\6Fl{ b  
    NoSeriesRM(7) = "VII" &hzr(v~;  
    NoSeriesRM(8) = "VIII" ;i 3C  
    NoSeriesRM(9) = "IX" o1Wf#Zq   
    NoSeriesRM(10) = "X" o6r ^  
    NoSeriesRM(11) = "XI" ?j} Fxr  
    NoSeriesRM(12) = "XII" |:d_IB@  
    NoSeriesRM(13) = "XIII" 8sL+ik"  
    NoSeriesRM(14) = "XIV" e#?rK=C?9  
    NoSeriesRM(15) = "XV" QRER[8]r$  
    NoSeriesRM(16) = "XVI" 5)M#hx%]#  
     LM".]f!,  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) e4 cWi  
     Vb~;"WABo  
    If i = vbNo Then hrbeTtqi  
        Exit Sub PS??wlp7  
    End If b28C (  
     "K*^%{   
    If Me.chkSuper.Value Then 5eas^Rm  
        Me.txtStatus.Text = "检查修改所有的上标格式" 9cMMkOM J  
     qp ]s VY  
        CheckSuperScript *0 ;|  
         :NWrbfz  
    End If YMn=9EUp  
     j,N,WtE  
    If Me.chkStyle.Value Then @OC*:?!4  
        Me.txtStatus.Text = "设置样式，请稍候...." .O9Pn,:  
        DoEvents QFEc?sEe  
        CeateOrModifyStyle c5{3  
    End If A2B]E,JMp  
     U[!wu]HMF  
     w)gMJX/0yw  
     PMiG:bM  
    ClearDomain ]tEH`Kl  
         J5\2`U_F Z  
     Ak2Vf0Eb  
     vu/P"?F  
    If Me.chkLIST.Value Then zZ])G  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" hHsO?([99  
     jL~. =QD  
        ConvertListToOrdinary ?qtL*;  
    End If SS-7y:6y>  
     bj 0-72V  
     5OC3:%g  
    Dim pType As String, trimpTEXT As String p2 m`pT  
    If Me.chkNum.Value = True Then X""}]@B9z  
        Me.txtStatus.Text = "转换全角数字形式为半角" 0U:9&j P,  
        ConvertWidth "１", "1" E%)3{# .z  
        DoEvents 4n.EA,:g:(  
        ConvertWidth "２", "2" 0ac'<;9]zP  
        DoEvents diF2:80o  
        ConvertWidth "３", "3" c A+O]",}  
        DoEvents ybgw#jv=  
        ConvertWidth "４", "4" *&W1|Qkg_  
        DoEvents $ 2k9gO  
        ConvertWidth "５", "5" NW?h~2  
        DoEvents zMAlZ[DN  
        ConvertWidth "６", "6" @]%c UjQ  
        DoEvents Fi#b0S  
        ConvertWidth "７", "7" U6_GEBz~y  
        DoEvents `Zz;[<*<  
        ConvertWidth "８", "8" Za1VJ5-  
        DoEvents <t.  w(?  
        ConvertWidth "９", "9" _ud !:q  
        DoEvents W; ?'  
        ConvertWidth "０", "0" l' a<k"  
        DoEvents IN!IjInaT@  
        ConvertWidth "ａ", "a" w Yr M2X@  
        DoEvents w;T?m,"  
        ConvertWidth "ｂ", "b" %XZdz =B  
        DoEvents G~Fjla\?Q  
        ConvertWidth "ｃ", "c" .BZ 3>]F3<  
        DoEvents Y; q['h  
        ConvertWidth "ｄ", "d" OlYCw.Zu  
        DoEvents qg8T}y>  
        ConvertWidth "ｅ", "e" ,wk %)^  
        DoEvents 1=Q3WMT  
        ConvertWidth "ｆ", "f" `~ R%}ID  
        DoEvents 0bR})}a+Yg  
        ConvertWidth "ｇ", "g" {>>Gc2UT  
        DoEvents M Y>o8A  
        ConvertWidth "ｈ", "h" X FvPc  
        DoEvents  <:`x> _  
        ConvertWidth "ｉ", "i" J<7nOB}OD  
        DoEvents @{8SC~ha  
        ConvertWidth "ｊ", "j" M'ZA(LVp  
        DoEvents  /w(t=Y  
        ConvertWidth "ｋ", "k" 5> =Ia@I   
        DoEvents k+Ay^i}s.  
        ConvertWidth "ｌ", "l" }m-+EUEo9  
        DoEvents @jH8x!5u:  
        ConvertWidth "ｍ", "m" VXu1Y xY  
        DoEvents dn= g!=  
        ConvertWidth "ｎ", "n" v iM6q<Ht  
        ConvertWidth "ｏ", "o" }9(:W</}  
        ConvertWidth "ｐ", "p" BO-=X 78f@  
        ConvertWidth "ｑ", "q" LgoUD*MbQ  
        ConvertWidth "ｒ", "r" hjY)W;  
        ConvertWidth "ｓ", "s" J(x42Q}*S  
        ConvertWidth "ｔ", "t" nsV;6^>  
        ConvertWidth "ｕ", "u" Pb@9<NXm'  
        ConvertWidth "ｖ", "v" Q 1e hW  
        ConvertWidth "ｗ", "w" 7_AcvsdW  
        ConvertWidth "ｘ", "x" gA:N>w&<X  
        ConvertWidth "ｙ", "y" %%k`+nK~  
        ConvertWidth "ｚ", "z" *'ex>4^  
        ConvertWidth "Ａ", "A" $5#+;A'Q+  
        ConvertWidth "Ｂ", "B" `n~bDG>  
        ConvertWidth "Ｃ", "C" +J%9%DqF  
        ConvertWidth "Ｄ", "D" LXcH<)  
        ConvertWidth "Ｅ", "E" !4!Y~7sI"\  
        ConvertWidth "Ｆ", "F" Fu#mMn0c  
        ConvertWidth "Ｇ", "G" P/hIJV[  
        ConvertWidth "Ｈ", "H" /g]m ,Y{OI  
        ConvertWidth "Ｉ", "I" ai(J%"D"  
        ConvertWidth "Ｊ", "J" Nn|~ :9#  
        ConvertWidth "Ｋ", "K" qi-!iT(fe  
        ConvertWidth "Ｌ", "L" Y,C3E>}Dq  
        ConvertWidth "Ｍ", "M" swT/ tesj  
        ConvertWidth "Ｎ", "N" +"2IQme5  
        ConvertWidth "Ｏ", "O" 9\W }p\c  
        ConvertWidth "Ｐ", "P" 9WsGoZP n  
        ConvertWidth "Ｑ", "Q" l+i9)Fc<i  
        ConvertWidth "Ｒ", "R" Wq]Lb:&{a  
        ConvertWidth "Ｓ", "S" /YH5s=  
        ConvertWidth "Ｔ", "T" "]D2}E>U;  
        ConvertWidth "Ｕ", "U" 0p' =Vel{}  
        ConvertWidth "Ｖ", "V" HESORa;  
        ConvertWidth "Ｗ", "W" F;_L/8Ov1  
        ConvertWidth "Ｘ", "X" rz3!0P!"K  
        ConvertWidth "Ｙ", "Y" X{b qG]j  
        ConvertWidth "Ｚ", "Z" [#6Eax,j  
        ConvertWidth "^l", "^p" I:%O`F  
        ConvertWidth "（", "(" 66l$}+|Zzc  
        ConvertWidth "）", ")" E;^~}  
     mkOj&Q  
    End If 2x&mJ}o#k  
xQ7-4 N,  
    With ActiveDocument uWKc .  
        Dim tbl As Table kkE1CHY  
        For Each tbl In .Tables 4V0j1 k&'  
            tbl.Rows.Alignment = wdAlignRowCenter m\xE8D(,  
            tbl.Range.Font.NameFarEast = "楷体" c_^-`7 g  
            tbl.Range.Font.NameAscii = "Times New Roman" }[*BC5{>  
            tbl.Range.Font.Size = 10.5 w6[uM%fHG  
        Next _,;|,  
        Set tbl = Nothing ] 6rr;S  
    End With Upkw.`D`  
     eZ~ZWb,%  
     Wo+'j $k  
    With ActiveDocument H {3A6fb<  
         cA{zyq26  
        For i = 1 To .TablesOfContents.Count 2Aq%;=+*  
            .TablesOfContents(i).Delete  7ehs+GI  
        Next Gdf*x<T1  
         :TzHI    
         K\]ey;Bd  
         _4jRUsvjY  
        paraTotal = .Paragraphs.Count 6P KH%  
        paraCounter = 1 s'|^6/  
         }^ j"@{~  
        LastTitle0No = 0 U[UjL)U  
        LastTitle1No = 0 L0O},O  
        LastTitle2No = 0 -I#1xJU  
        LastTitle3No = 0 5>'1[e45  
        LastTitle4No = 0 S+EC!;@Xg  
        LastTableNo = 0 lnoK.Vk9,  
        LastFigureNo = 0 Ou<Vg\Mu  
         SMdQ,n1]  
        Dim Sec As Long J_^Ml)@iy  
         a,sU-w!X'  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) Fn~?YN  
        If Sec = 0 Then +TnRuehtk  
            Exit Sub Dpa PRA)x  
        End If 2_]"9d4  
         71ctjU`U2  
        k = 0 qm1;^j&y  
        Do While (paraCounter < paraTotal) And bContinue K)C9)J<  
            k = k + 1 jP9)utEm6  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then 2|n~5\K|t  
                Exit Do H,H=y},  
            End If A12#v,  
            paraCounter = paraCounter + 1 [LJ1wBMw  
            If k Mod 20 = 0 Then _n;V iQMu  
                Me.lbCounter.Caption = paraCounter A<zSh }eh6  
                DoEvents v&GBu  
            End If FF"`F8-w>Z  
        Loop |tU4(hC  
         `kd P)lI `  
         } 1 >i  
        Do While (paraCounter < paraTotal) And bContinue vpGeG  
             ."m2/Ks7  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) h)qapC5z,  
            ShapeHeight = 0 lJloa'%v9  
            ShapeWidth = 0 E%vG#  
           g&30@D"  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth ^Pk-<b4}  
             cR+9^DzA  
            Select Case ParaType 71?>~PnbH}  
                Case "【】表格内容" {$ghf"  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" HJ2r~KIw  
                Case "章" Z?^~f}+  
                    LastTitle0No = LastTitle0No + 1 7VdG6`TDR  
                    '新一章开始，复位其下属标题编号 hC[MYAaF  
                    LastTitle1No = 0 i|5K4Puu  
                    LastTitle2No = 0 /~Q2SrYH  
                    LastTitle3No = 0 420cJ{;A  
                    LastTitle4No = 0 {- ( B  
                     W c"f  
                    k = Val(ttNo) x xh(VQdg  
                    If k = 0 Then '非数字编号章节 Ol9'ZB|R  
                        If ttNo <> NoSeries1(LastTitle0No) Then SBY  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString (&U8NeWZ  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText 4EiEE{9V  
                        End If \*0ow`|K  
                    Else "&ElKy 7j  
                        If Val(ttNo) <> LastTitle0No Then BEkxH.   
                            rText = "第" & LastTitle0No & ttString a0oM KGW:  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText )(|+z '  
                        End If u^T{sQ"_  
                         \)?[1b&[_  
                    End If b{KpfbxcI  
                     jc |"wN]  
                    '章段落设置 K 5SHt'P  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 H"H&uA9"  
                    .Paragraphs(paraCounter).Style = "QLNU章节" b[3K:ot+  
                    .Paragraphs(paraCounter).Range.Select U[b $VZ}  
                    Selection.EndKey unit:=wdLine 0N~AQu  
                    tc = Replace(rText, vbCr, "") 5X5&(S\  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False ~97T0{E3  
                Case "一级标题" Jm|eZDp  
                    LastTitle1No = LastTitle1No + 1 lth t'|  
                    '新一级标题开始，复位其下属标题编号 4$oX,Q`#  
                    LastTitle2No = 0 n)(E 0h  
                    LastTitle3No = 0 j`Xe0U<  
                    LastTitle4No = 0 `)[bu  
                     p<\yp<g  
                    If ttNo <> NoSeries1(LastTitle1No) Then mRT`'f xK  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString MXbt`]`_  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText 4|*H0}HOm  
                    End If %z&=A%'a  
                   '{:WxGgi  
                     >900O4  
                    '一级标题段落设置  格式：一、标题内容 xA-O?s"CY  
                    .Paragraphs(paraCounter).Range.Text = rText )/u?_)b4"  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" ]C =+  
                    .Paragraphs(paraCounter).Range.Select Jp<Y2-  
                    Selection.EndKey unit:=wdLine 0?]*-wvp  
                    tc = Replace(rText, vbCr, "") *OT6)]|k  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False  |.x |BJ  
                Case "二级标题" > !thxG/_  
                    LastTitle2No = LastTitle2No + 1 xe;1D'(   
                    '新二级标题开始，复位其下属标题编号 ]:m}nJ_  
                    LastTitle3No = 0 &n.7~C]R  
                    LastTitle4No = 0 (#WE9~Sru  
                     w6M EY"<L  
                    If ttNo <> NoSeries1(LastTitle2No) Then AKVll  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString YY (,H!  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText }>\+eG  
                    End If _N 5$>2  
                     R!i9N'gGG(  
                    '二级标题段落设置 格式：(一)、标题内容 }kaU0 P  
                    .Paragraphs(paraCounter).Range.Text = rText <j93   
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" jj,Y:  
                     hVe@:1og#  
                    .Paragraphs(paraCounter).Range.Select U[1Ir92:  
                    Selection.EndKey unit:=wdLine 821@qr|`e  
                    tc = Replace(rText, vbCr, "") Q]7Rqslz  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False x(nWyVB  
                 }];8v+M  
                Case "三级标题" G!J{$0.  
                    LastTitle3No = LastTitle3No + 1 wD-(3ZVd4  
                    '新三级标题开始，复位其下属标题编号 ?3wEO>u  
                    LastTitle4No = 0 }\E2Z[  
                     @3/.W+  
                    If Val(ttNo) <> LastTitle3No Then HY.?? 5MH  
                            rText = LastTitle3No & ". " & ttString z}vgp\cuT  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText $\xS~ w  
                         15i8) 4h  
                    End If P %8zxU;  
                    '三级标题段落设置 格式：1. 标题内容 G'/36M@  
                    .Paragraphs(paraCounter).Range.Text = rText 7tgn"wK  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" t0*JinK I  
                    .Paragraphs(paraCounter).Range.Select oe$Y= `  
                    Selection.EndKey unit:=wdLine }5Yd:%u5  
                    tc = Replace(rText, vbCr, "") D&f(h][hH?  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False RzG<&a3B3s  
                Case "四级标题" 'OKDB7Ni  
                    LastTitle4No = LastTitle4No + 1 []D@"Bz  
                     ,4hQ#x  
                    If Val(ttNo) <> LastTitle4No Then 6>! ;g'k  
                            rText = "(" & LastTitle4No & "). " & ttString S .b B.<  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText m"P"iK/Av(  
                     $F!)S  
                    End If 8v7;{4^  
                    '四级标题段落设置 格式：(1). 标题内容 ad).X:Qs  
                    .Paragraphs(paraCounter).Range.Text = rText , 4Vr,?"EO  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" [:geDk9O#'  
                    .Paragraphs(paraCounter).Range.Select ULq#2l  
                    Selection.EndKey unit:=wdLine /jdq7CF  
                    tc = Replace(rText, vbCr, "") N'nI ^=  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False 20G..>zW  
                 V#:`:-$$+  
                Case "表格标题" Fh u(u  
                    LastTableNo = LastTableNo + 1 Y]ML-smN  
                     '"{ IV  
                    If ttNo <> CStr(LastTableNo) Then LEoL6ga  
                            rText = "表" & LastTableNo & ". " & ttString K8{Ub  
                            ErrMsg.AddItem "表格编号错误：" & ParaText N-fGc?E  
                   H]5%"(h  
                    End If |kL^k{=zV  
                     \vVGfG?6  
                    '表格名称段落设置 格式：表1. 表格名称 9S ~!!7oj  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" S&jZYq**  
                    xe = Replace(rText, vbCr, "") kK]JN  
                    .Paragraphs(paraCounter).Range.Select A ^YHtJ  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 9IgozYj  
                    Selection.Range.Text = xe >1[Hk0 <x  
                    Selection.EndKey PSX-b)wb  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False rmj?jBKQU  
                 85U')LY  
                Case "表格首行" 3+gp_7L  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" ^lCys  
                Case "图片标题" lLy^@s  
                    LastFigureNo = LastFigureNo + 1 6$qn'K$  
                     #!d@;= [\  
                    If ttNo <> CStr(LastFigureNo) Then w,(e,8#:  
                            rText = "图" & LastFigureNo & ". " & ttString 9K*yds  
                            ErrMsg.AddItem "表格编号错误：" & ParaText JHpaDy*  
                   F0O"rN{  
                    End If q(0V#kKC  
                    '图片名称段落设置 格式：图1. 图名称 %/17K2g  
                    .Paragraphs(paraCounter).Range.Text = rText +;7Rz_.6f  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" L Of0_g/  
                    .Paragraphs(paraCounter).Range.Select 1*{ ` .  
                    Selection.EndKey unit:=wdLine Z `FqC  
                    xe = Replace(rText, vbCr, "") KUG\C\z6=  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False \hpD  
                Case "正文" X kZ82w#b  
                     '正文名称段落设置 0?3Ztdlb  
                    .Paragraphs(paraCounter).Style = "QLNU正文" kYwk'\s  
               Case "文献条目" xy>~ 15  
                    With .Paragraphs(paraCounter) |EuWzhNAO  
                        '.Range.Select md_9bq/w  
                        'Selection.ClearFormatting tSK{Abw1B  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” gbOd(ugH  
                        .Style = "QLNU参考文献" l][{ #>V  
                    End With R9X* R3n B  
               Case "图表注解" RkVU^N"  
                    With .Paragraphs(paraCounter) ViqcJD  
                        .Range.Font.NameFarEast = "楷体" ^J3\ U{B  
                        .Range.Font.NameAscii = "Times New Roman" &K@2kq,  
                        .Range.Font.Size = 9 '小5号字 ZOGH.`  
                         9s\;,!b  
                        .Alignment = wdAlignParagraphCenter L4I1nl  
                        .LeftIndent = 0 8<}f:9/  
                        .RightIndent = 0 Fw!CssW  
                        .FirstLineIndent = 0 rt r0 d  
                        .LineSpacing = 12 @[M5$,"  
                        .LineSpacingRule = wdLineSpaceExactly nd(O;XBI  
                        .LineUnitAfter = 0 uc@f#(-  
                        .LineUnitBefore = 0 v=15pW  
                        .OutlineLevel = wdOutlineLevelBodyText TY[{)aH{S  
                        .PageBreakBefore = False :*V1jp+  
                        .RightIndent = 0 J,ZvaF  
                        .WordWrap = True 6 <JiHVP7  
                        .LineUnitAfter = 0.5 G*_$[|H  
                         \(Uw.ri  
                    End With GQXN1R   
                Case Else SsiKuoxk  
                    '不作处理 z}v6!u|iZu  
            End Select FCv3ZF?K  
             A+d&aE }3V  
            '含有inlineshape的段落处理 #gbJ$1s  
            If ShapeHeight > 30 Then H~1&hF"d  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 %\8E{M:  
            End If qiQS:0|_  
             pj.}VF!d  
            If (ShapeWidth + ShapeHeight) > 150 Then Z)cGe1?q  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" +qsNz*@p"  
            End If "' g*_  
             YNCQPN\v`1  
            '段落计数器递 ydOJ^Yty  
            paraCounter = paraCounter + 1 5tMp@$F\{[  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter ]YcM45xg  
            Me.txtStatus.Text = ParaText y=)Cid  
            DoEvents 1*aw~nY0  
        Loop VmM?KlC  
    End With Rckqr7q  
     !\.%^LK1  
    msg = "" F;l*@y Tq  
     a=*&OW  
    For i = 0 To Me.ErrMsg.ListCount - 1 k 9 Xi|Yj  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) ]t-_.E )F  
    Next J1kG'cH05  
     zCxr]md  
     4:A dn?"  
     +~lZ]a7k  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg Iuk!A?XV  
    Me.cmdCheck.Enabled = True %dMq'j  
    Me.txtStatus.Visible = True (rV#EA+6[`  
    Me.lbParaType.Visible = False |T:' G  
     .du FMJl  
    bContinue = False t><AaYij_  
End Sub ..RCR_DIp  
/7Z;/| oU  
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) U5 ~L^  
    Dim pTEXT As String .JIn(  
     )0Av:eF-+  
    pTEXT = ChKRange.Text }r:H7&|&  
     ,B ]kX/W  
    ParaType = "其它" ,TY&N-  
    TitleString = pTEXT j #e^PK <  
    TitleNo = "N/A" DDh$n?2fd  
     [ UN`~  
    shpCounter = ChKRange.InlineShapes.Count .[Ezg(U}ze  
    If shpCounter <> 0 Then ;C,D1_20Z  
        MaxShpHeight = 0: TotalShpWidth = 0 =H&@9=D*  
        For i = 1 To shpCounter Z'EX q.hk  
            k = ChKRange.InlineShapes(i).Height ng $`<~=)\  
            l = ChKRange.InlineShapes(i).Width {R b|";  
            If k > MaxShpHeight Then iXpLcHi  
                MaxShpHeight = k A7!!kR":  
            End If yD6lzuk{X  
            TotalShpWidth = TotalShpWidth + l 4 %do.D*  
        Next c}K>#{YeB  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then _h1n]@ d5  
            Exit Sub l :\DC  
        End If FV|/o%XqK  
    End If NLZTIZCK  
     R1Jj 3k  
    '空行 Gz)]1Z{%$  
    If Len(pTEXT) <= 2 Then 8w &A89  
        Exit Sub 4$D:<8B  
    End If z7X[$T$V  
     J0@ ^h  
         JR='c)6:  
    '是否为表格中的文字 #Pi}2RBRu  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then wmh[yYWc  
        ParaType = "表格内容" >, 22@4  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) S~auwY,<  
        If k = 1 Then umV5Y`  
            ParaType = "表格首行" V$O{s~@ti  
        End If cl s-x@ Kd  
        Exit Sub 7XLz Ewa  
    End If L7i^?40  
     G%N3h'zDi  
    '例外情况：脚注 g:bw;6^ u  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then e >W}3H5w0  
        ParaType = "脚注" _:|/4.]`_  
        Exit Sub u\gPx4]4c  
    End If o)<c1\q  
     n DLr17  
    '例外情况：尾注 dQ+{Dv3A  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then 3(|8gWQ  
        ParaType = "尾注" vr#_pu)f4  
        Exit Sub `* !t<?$i  
    End If N- E)b  
     alM ^ X  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then i}mvKV?!|1  
        ParaType = "页眉页脚" %j9'HtjEa  
        Exit Sub TqURYnNd  
    End If ^|KX)g  
     Bd 8,~8  
     pq0F!XmU  
    With regEX z?V'1L1gM  
        .Global = True ^3*k6h [(  
         z Qtg]@S  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" F6 ?4E"d  
        If regEX.Test(pTEXT) Then I6}ine ps  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") J}IHQZS  
            TitleString = regEX.Replace(pTEXT, "$3") Z3Le?cMt^  
            TitleNo = regEX.Replace(pTEXT, "$1") dY>oj<9  
            ParaType = "章" gKK*` L~  
            Exit Sub tm27J8wPzV  
        End If -DgJkyt+<  
          Qx,jUL#2  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" xf/ SUO F  
        If regEX.Test(pTEXT) Then *3_@#Uu7  
            ParaType = "一级标题" {L 7O{:J  
            regEX.Execute (pTEXT) qF!oP  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") iYE:o{  
            TitleString = regEX.Replace(pTEXT, "$3") (xnXM}M&2Y  
            TitleNo = regEX.Replace(pTEXT, "$1") ! Ff/RRo  
            Exit Sub {MK.jw9/  
        End If tjw4.L<r  
         u Ey>7I  
        '全角或半角括号中的数字  h"<-^=b  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" fv?vO2nj  
        If regEX.Test(pTEXT) Then Cf#[E~24  
            ParaType = "二级标题" G2Zr (b')  
            regEX.Execute (pTEXT) `em}vdY  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") Y> }[c   
            TitleString = regEX.Replace(pTEXT, "$5") -ZXC^zt  
            TitleNo = regEX.Replace(pTEXT, "$2") C^>txui8  
            Exit Sub 5x";}Vp>P  
        End If "0al"?  
         -:w+`x?XaB  
        '阿拉伯数字  1. 2. Z>GqLq\`ed  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" P h(bgQg  
        If regEX.Test(pTEXT) Then fN4d^0&  
            ParaType = "三级标题" %<cfjo  
            regEX.Execute (pTEXT) &HdzbKO=  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 "W:#4@ F  
            TitleString = regEX.Replace(pTEXT, "$3") RGrra<  
            TitleNo = regEX.Replace(pTEXT, "$1") E;7vGGf]  
            Exit Sub $J8?!Xg  
        End If A8bDg:G1i  
         MpZ #  
        '全角或半角括号中的阿拉伯数字 S+LE ASOr  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" ]=T`8)_r)  
        If regEX.Test(pTEXT) Then gp Aqz Y  
            ParaType = "四级标题" We]mm3M3  
            regEX.Execute (pTEXT) DpG|Kl|d  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") 8P8@i+[]W  
            TitleString = regEX.Replace(pTEXT, "$5") ~Dsz9  f  
            TitleNo = regEX.Replace(pTEXT, "$2") w-9FF%@<  
            Exit Sub 9/N=7< $  
        End If 0Q]@T@F.  
         }F'B!8n  
        '表格名称 w#EP`aM2$=  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" 5c*kgj:x  
        If regEX.Test(pTEXT) Then u;$g1 3  
            ParaType = "表格标题" 'urn5[i  
            regEX.Execute (pTEXT)  [wS~.  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) Kt Wn08D!  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) =bt/2 nPV  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) A1{ 7g<k6  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 cfn\De%.  
            Exit Sub Ji<^s@8Zc  
        End If 4,D$% .  
         KrwG><+j  
        '图片名称 o5(`7XV6D  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" 24u;'i-y5  
        If regEX.Test(pTEXT) Then pJ*x[y  
            ParaType = "图片标题" {%WQQs  
            regEX.Execute (pTEXT) gWcl@|I;\  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3")  c=? =u  
            TitleString = regEX.Replace(pTEXT, "$3") !F3Y7R  
            TitleNo = regEX.Replace(pTEXT, "$1") ^_dYE]t  
            Exit Sub G 2L?j   
        End If ,1-n=eTQ  
         iY @MnnX  
        '参考文献 ]F:5-[V#  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 r= 8(n<;Co  
        If regEX.Test(pTEXT) Then ~@8r-[  
            ParaType = "文献条目" Z]H`s{3  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") 35 /)S@  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") M~ =Bln5  
            Exit Sub k)+2+hX&>  
        End If ~V,~' W  
         ZMs$C3  
        prfx = Left(pTEXT, 2) F2QX ^*  
        If prfx = "注：" Or prfx = "注:" Then 9|19ia@[\  
            ParaType = "图表注解" t;ZA}>/  
            Exit Sub U&W{; myt  
        End If 9H$$Og  
         SM3Q29XIw  
         o#wDA0T  
        ParaType = "正文" V-Ebi^gz5W  
         S%ULGX:@ga  
    End With SF?Ublc!   
End Sub 7]}n 0*fe  
:{za[,  
Sub ConvertListToOrdinary() L`v7|!X  
    Dim st As Paragraph l(;~9u0sa  
    With ActiveDocument .qBL.b_`  
        For i = .Paragraphs.Count To 1 Step -1 g]B! 29M  
            Set st = .Paragraphs(i) o&tETJ5Bhe  
            lst = st.Range.ListFormat.ListString .QRa{l_)  
            If lst <> "" Then |)4Fe/!cJ  
                st.Range.ListFormat.RemoveNumbers cB~D3a0Th  
                st.Range.InsertBefore lst & " "  WW5AD$P*  
            End If R0>GM`{  
        Next bDh,r!I  
    End With ? OrRTRW  
    Set st = Nothing e C\;n  
End Sub kjW Y{7b!  
"YY6_qQR'  
Private Sub UserForm_Activate() j. 1@{H  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" FbxrBM  
    Me.lbTotal.Font.Bold = True }Yd7<"kp  
    Me.txtStatus.Visible = False p$r=jF&  
    Me.cmdCheck.Enabled = True Jb. V4  
q'r(#,B<3  
End Sub O5^!\j.WR  
)HPt(Ck  
@f<q&K%FJ  
Sub CheckSuperScript() MXy~kb&  
    Selection.Find.ClearFormatting GabY xYK  
    Selection.Find.Replacement.ClearFormatting &DnX6%2  
    With Selection.Find <=m@Sg{o  
        .Text = "[【\[［〖](*)[】\]〗］]" Kh{C$b  
        .Replacement.Text = "[\1]" E3IB> f  
        .Replacement.Font.Superscript = True v6r,2Va/  
        '.Replacement.Font.Color = wdColorBlue n)]]g3y2  
        .Forward = True M<'AM4  
        .Wrap = wdFindContinue "AH1)skB:  
        .FORMAT = True [l;9](\8O  
        .MatchCase = False tqdw y.  
        .MatchWholeWord = False *;(wtMg  
        .MatchByte = False ~j}7Fre  
        .MatchAllWordForms = False crx8+  
        .MatchSoundsLike = False n}NO"eF>-s  
        .MatchWildcards = True <[7 bUB  
    End With y7)s0g>%H  
    Selection.Find.Execute Replace:=wdReplaceAll AcF6p)@_  
End Sub 0Q\6GCzN\  
I$Z8]&m  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) l/|bU9o /u  
    bContinue = False Y", :u@R  
    Set regEX = Nothing "P4#Q_  
End Sub 2D,EWk/4  
\F_~?$  
Sub CeateOrModifyStyle() Jzqv6A 3G  
' eC+S'Jgf  
' mJjd2a"vi  
Dim stl As Style CxyL'k  
     @9yY`\"ed  
    Options.Pagination = False .c#G0t<i[  
     p#['CqP8  
    On Error Resume Next &O0@)jIV  
    For Each stl In ActiveDocument.Styles oA_T9uh[  
        stl.Delete .Sz<%d7XIQ  
    Next ZHQa}C+  
    On Error GoTo 0 3ya _47D  
     2<18j  
    Set stl = Nothing aZK%?c  
     `/WX!4eR,  
    DoEvents 8t { -  
    On Error Resume Next NWK+.{s>m  
     & ,KxE(C  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph Q};g~b3  
     9~AAdD  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph TF_~)f(`  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph %!_okf   
     v;!f  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph KW&5&~)2  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph ZM:!LkK  
     _0Mt*]L }  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph zq(R!a6  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph Mp8BilH-T  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph ==$>M d  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph K x7'm1  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph | Vl Q0{  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph PjL"7^Q&  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph <+0TN]?  
     3v oas  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph ;xp^F K P  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph /uXEh61$8  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph J<[Hw g  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph :C%cnU;N  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph Tyc `U&  
     xMck A<E  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph &<Gs@UX~w  
    On Error GoTo 0 $:v!*0/  
    DoEvents lRIS&9vA3  
     37j-FLbW  
    'BaseStyle X?p. U  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False 1y/_D$~ZO  
    With ActiveDocument.Styles("BaseStyle").Font ?`jh5Kw%y  
        .NameFarEast = "宋体" -Re4G78%  
        .NameAscii = "Times New Roman" x  RV@ _  
        .NameOther = "宋体" e -sZ_<GH  
        .Size = 10.5 vjfV??XSU  
        .Bold = wdUndefined @@&([f  
        .Italic = wdUndefined Ebmd[A&&  
        .Subscript = wdUndefined t)O8ON  
        .Subscript = wdUndefined G}MJWf Hl  
         $j ZU(<4,  
        .Underline = wdUnderlineNone U _QCe+  
        .UnderlineColor = wdColorAutomatic f$\gm+&hXE  
        .StrikeThrough = False %hEhZW{:  
        .DoubleStrikeThrough = False dd$}FlT  
         e MX?x7  
        .Outline = False $Tc"7nYu  
        .Emboss = False =!@5!  
        .Shadow = False /wF*@/PTH  
        .Hidden = False A^  :/*  
        .SmallCaps = False Re`'dde=  
        .AllCaps = False Uc j eB  
        .Color = wdColorAutomatic mW_B|dM"  
        .Engrave = False =LP,+z  
        .Scaling = 100 _z`g@[m :t  
        .Kerning = 1 "YUh4uZ~P  
        .Animation = wdAnimationNone }p2YRTHx  
        .DisableCharacterSpaceGrid = False . fZ*N/  
        .EmphasisMark = wdEmphasisMarkNone U9uy (KOW  
    End With 3B{B6w}t&  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat !KYX\HRW  
        .LeftIndent = 0 `%PU_;Y5Q  
        .RightIndent = 0 Fo$kD(  
        .SpaceBefore = 0 K'Gv+UC*6  
        .SpaceBeforeAuto = False  >^<%9{  
        .SpaceAfter = 0 (5-4`:1ux  
        .SpaceAfterAuto = False 0vu$d xb[  
         _]g?3Gw7!  
        .LineSpacingRule = wdLineSpaceSingle 3%"r%:fQB/  
        .Alignment = wdAlignParagraphJustify Vh%=JL sK  
         }]i re2j8  
        .WidowControl = False %TOYU (k  
        .KeepWithNext = False FZUN*5`  
        .KeepTogether = False rD7L==Ld  
        .PageBreakBefore = False y'5 y  
        .NoLineNumber = False Y|NL #F  
         {w,g~ew `  
        .FirstLineIndent = CentimetersToPoints(0) @' V=Vr  
        .OutlineLevel = wdOutlineLevelBodyText /hNZ7\|P  
        .CharacterUnitLeftIndent = 0 $)V_oQSqn  
        .CharacterUnitRightIndent = 0 q4'Vb  
        .CharacterUnitFirstLineIndent = 0 jB"?iC.  
        .LineUnitBefore = 0 Wmm'j&hI  
        .LineUnitAfter = 0 4 w$f-   
        .AutoAdjustRightIndent = True yXuc< m  
        .DisableLineHeightGrid = True Q db~I#}m'  
         x<mHTh:-V  
        .FarEastLineBreakControl = True dZS v=UY)  
        .WordWrap = True 7'pmW,;  
        .Hyphenation = False 8&gr}r- 5  
         W7k0!Grrl  
        .HangingPunctuation = True @k"Q e&BQ  
        .HalfWidthPunctuationOnTopOfLine = True .BaU}-5  
        .AddSpaceBetweenFarEastAndAlpha = True ;QRnZqSv  
        .AddSpaceBetweenFarEastAndDigit = True @U~i<kt  
        .BaseLineAlignment = wdBaselineAlignBaseline "4 Lt:o4x  
    End With #osP"~{  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False >= G{.H  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll "r:i  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese -d|Q|zF^x  
    ActiveDocument.Styles("BaseStyle").NoProofing = False {  S]"-x  
     G-5 4D_ 4  
    '一级标题题样式 {$dq7m(  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 9e`.H0  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" G4VdJ(_  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False YPq4VX,  
    With ActiveDocument.Styles("QLNU一级标题").Font }ZP;kM$g  
        .NameFarEast = "黑体" mJj [f8  
        .NameAscii = "Arial Black" C`p)S`d  
        .NameOther = "黑体" BCrX>Pp }r  
        .Name = "黑体" -#9Hb.Q ;  
        .Size = 16              '三号 i4' ,d#  
        .Bold = True 8$c_ M   
        .Italic = wdUndefined n0/H2>I[  
        .Subscript = wdUndefined >EMsBX  
        .Superscript = wdUndefined ~E]ct F  
    End With e@Cv')]B  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat XN*?<s3  
         # p?7{"Ep  
        .LeftIndent = CentimetersToPoints(0) Jp'XZ]o\  
        .RightIndent = CentimetersToPoints(0) 6}Iu~| 5  
        .FirstLineIndent = CentimetersToPoints(0) v, =[!=8!  
         "ggViIOw&  
        .LineSpacingRule = wdLineSpaceSingle eM3-S=R?<g  
        .Alignment = wdAlignParagraphCenter oNk ASAd  
         88K=jo))b  
        .WidowControl = True qHAZ)Tz  
        .KeepWithNext = True "kYzgi  
        .KeepTogether = True s>pOfXIx  
        .OutlineLevel = wdOutlineLevelBodyText Q9Y$x{R&  
          .<0s?Q  
        .LineUnitBefore = 0.5 ;q8tOvQ  
        .LineUnitAfter = 0.5 , W w\C  
    End With G`a,(<kT;  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False f3g #(1  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll W .B>"u  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese C4Tn  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True ~+JE l%  
    DoEvents KGVAP  
     fmDn1N-bG  
    '二级 ucVWvXCr  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ?Re6oLm<B  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" hkK+BmMj\  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False zOkIPv52~  
    With ActiveDocument.Styles("QLNU二级标题").Font nBVR)|+M  
        .NameFarEast = "黑体" S:\a&+og  
        .NameAscii = "Arial Narrow" l phELPh  
        .NameOther = "黑体" U}6F B =  
        .Name = "黑体" pl-2O $  
        .Size = 15        '小三号 2 /rDi  
        .Bold = False a!_vd B  
        .Outline = False r87)?-B  
        .Italic = wdUndefined FuA8vTV{  
        .Subscript = wdUndefined <c,/+ lQ^  
        .Superscript = wdUndefined *%{  
    End With H 3e(-  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat (%i)A$i6a  
        .LeftIndent = CentimetersToPoints(0) a\UhOPFF  
        .RightIndent = CentimetersToPoints(0) Q|!}&=  
        .FirstLineIndent = CentimetersToPoints(0) u{H'evv0O  
         V_>)m3zsL  
        .LineSpacingRule = wdLineSpaceSingle APfD y  
        .Alignment = wdAlignParagraphLeft zF%'~S0{  
         )ZyEn%  
        .WidowControl = True qtqTLl@u  
        .KeepWithNext = True h{$mL#J  
        .KeepTogether = True 1l8kuwH  
        .PageBreakBefore = False =LFrV9  
        .OutlineLevel = wdOutlineLevelBodyText 0:,8Ce  
         $>72 g.B  
        .LineUnitBefore = 0.5 W7j-siWJ  
        .LineUnitAfter = 0.5 yq?7!X  
         j.'Rm%@u  
    End With &~%( RO  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False Hy?+p{{G  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll Bi!j re  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese L\:f#b~W  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True #[4MwM3  
    DoEvents 9PU9BYBG  
     fs43\m4= m  
    '三级标题样式 shjq4# 9  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") v7V.,^6+  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" %XpYiW#AK  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False 17itC9U  
    With ActiveDocument.Styles("QLNU三级标题").Font (Wj2%*NT  
        .NameFarEast = "宋体" 500qg({2]  
        .NameAscii = "Times New Roman" &ye,A(4  
        .NameOther = "黑体" Q%seV<!/  
        .Name = "黑体" FqvMi:F  
        .Size = 14               '四号 Up(Jw-.  
        .Bold = False gypE~@  
        .Outline = False Z5oX "Yx  
        .Italic = wdUndefined ^m3[mY [a  
        .Subscript = wdUndefined 4f}:)M$5  
        .Superscript = wdUndefined `I\)Kk@*b9  
    End With <`'^rCWI?  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat *=6,}rX"I  
        .LeftIndent = CentimetersToPoints(0) IT.'`!T  
        .RightIndent = CentimetersToPoints(0) Ab"mX0n  
        .FirstLineIndent = CentimetersToPoints(0) M~6x&|2  
         =:|fN3nJ2  
        .LineSpacingRule = wdLineSpaceSingle 7 Q`'1oE?  
        .Alignment = wdAlignParagraphLeft @YH<Hc  
         ,>DaS(  
        .WidowControl = True EB/.M+~a  
        .KeepWithNext = True MzF9 &{N  
        .KeepTogether = True f9Vxtd  
        .PageBreakBefore = False eX+FtN  
        .OutlineLevel = wdOutlineLevelBodyText |5ifgSZ  
         75O-%9lFF  
        .CharacterUnitLeftIndent = 0 [i8,rOa7  
        .CharacterUnitRightIndent = 0 H-*"%SJ  
        .CharacterUnitFirstLineIndent = 2 _n[4+S*v(  
         uV\ _j3,2  
        .LineUnitBefore = 0.5 M"E ]r=1  
        .LineUnitAfter = 0 JOR ? xCc  
    End With K*ZH<@o4  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False HjX!a29Wf  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll nA!Xb'y&  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese v(H CnC  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True c|kQ3(  
    DoEvents E^RPK{zO  
     ,u^RZ[}  
    '四级标题样式 liYR8D |  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") xnyp'O8yk  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" H%K,2/Nj  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False Bn[5M [  
    With ActiveDocument.Styles("QLNU四级标题").Font ?89ZnH2/  
        .NameFarEast = "宋体" {29x5J  
        .NameAscii = "Times New Roman" ?q68{!{bi  
        .NameOther = "宋体" :6,qp?/  
        .Name = "宋体" k 5<[N2D|!  
        .Size = 12               '小四号 208dr*6U  
        .Bold = True Fu K(SP3  
        .Outline = False :%#(<@{  
        .Italic = wdUndefined m4U7{sE  
        .Subscript = wdUndefined D^ E+#a 1  
        .Superscript = wdUndefined dIOj]5H3F  
    End With ,O9rL :?  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat  >%~E <  
         Jkc1ih`^  
        .LeftIndent = CentimetersToPoints(0) X j'7nj  
        .RightIndent = CentimetersToPoints(0) 2MN AY%iT  
        .FirstLineIndent = CentimetersToPoints(0) q=o"] 6  
          5y}kI  
        .LineSpacingRule = wdLineSpaceSingle xk1pZQ8c  
        .Alignment = wdAlignParagraphLeft X(b"b:j'  
         o9tvf|+z  
        .WidowControl = True SqiLp!Y`  
        .KeepWithNext = True g{`rWKj  
        .KeepTogether = True 2n9E:tc  
        .PageBreakBefore = False wbC'SOM  
        .OutlineLevel = wdOutlineLevelBodyText +O@v|}9"w3  
         \Ty%E<  
        .CharacterUnitLeftIndent = 0 0@ -3U{Q  
        .CharacterUnitRightIndent = 0 rC(-dJkV  
        .CharacterUnitFirstLineIndent = 2 *-!&5~o/U  
         JG2)-x;9  
        .LineUnitBefore = 0 W6Os|z9&|  
        .LineUnitAfter = 0 oNgu- &  
         :&]THUw  
    End With HxC_n h  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False WsA(8Ck<  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll l )hg! (  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese .ZK|%VGW  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True _ ]W }6?i  
    DoEvents 9$9Pv%F:j  
      2iUdTy$  
    '正文校式 =Yxu {]G  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") c'9-SY1'~  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" x*)@:W!  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False #-QQ_  
    With ActiveDocument.Styles("QLNU正文").Font yM3]<~m  
         ;K'1dsA  
        .NameFarEast = "宋体" l_G&#sQ0  
        .NameAscii = "Times New Roman" G1Qc\mp  
        .NameOther = "宋体" 7VP[U,  
        .Name = "宋体" ([-xM%BI6  
         o'W[v0> L-  
        .Size = 12               '小四号 nUZ+N)*  
         q><E?  
        .Bold = wdUndefined .K`^n\T t  
        .Italic = wdUndefined )8H5ovj.  
        .Subscript = wdUndefined ^,Sl^ 9K  
        .Superscript = wdUndefined =w~phn  
         =xs{Ov=  
        .Outline = False zuWfR&U|W  
        .Emboss = False {y{& tz Z  
        .Shadow = False $X.X_  
        .Hidden = False I|6wPV?  
         E57J).x-BP  
        .DisableCharacterSpaceGrid = True PV2cZ/  
    End With KUC (n!  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat $/sQatic  
         hL\gI(B  
        .LeftIndent = CentimetersToPoints(0) k5>K/;*9  
        .RightIndent = CentimetersToPoints(0)  TP6iSF  
        .FirstLineIndent = CentimetersToPoints(0) ]}g;q*!J  
         Ax#$z  
        .LineSpacingRule = wdLineSpaceExactly &ZjQa.-U>  
        .LineSpacing = 20 [qHLo> HaL  
        .Alignment = wdAlignParagraphLeft DqLZc01>  
         H8>u:  
        .WidowControl = False %"R |tlG  
        .KeepWithNext = False x<  Td  
        .KeepTogether = False kEM5eY  
        .PageBreakBefore = False EM_`` 0^  
        .Hyphenation = False lP@/x+6tg  
         -O o7]8  
        .OutlineLevel = wdOutlineLevelBodyText YpFh_Zr[  
         {9 >jWNx  
       2?]NQE9lA  
        .CharacterUnitLeftIndent = 0 IC-k  
        .CharacterUnitRightIndent = 0 t~xp&LQiY  
        .CharacterUnitFirstLineIndent = 2 Ksp!xFk  
         W_zv"c  
        .LineUnitBefore = 0 ]-o0HY2  
        .LineUnitAfter = 0 ,gR9~k,  
        .SpaceBefore = 0 DR."C+  
        .SpaceAfter = 0 >L#HE  
         NqsIMCl  
        .DisableLineHeightGrid = True M PMa  
    End With E7eOKNVC#  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False bK)gB!  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll *wml 4lh  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese P1f?'i ?J  
    ActiveDocument.Styles("QLNU正文").NoProofing = True a95QDz  
    DoEvents axTvA(k9  
     UB3b  
    '图片段落样式 bDLPA27  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") p;S<WJv k  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" t83n`LC  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False O k-*xd  
    With ActiveDocument.Styles("QLNU图片段落").Font {+V1>6  
        .Size = 12               '小四号 E(i<3U"4h[  
        .Italic = wdUndefined rYnjQr2a  
        .Subscript = wdUndefined =O qw`jw  
        .Superscript = wdUndefined K-$gTV  
    End With '_z#}P<  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat ^]He]FW':G  
         LB<,(dyh  
        .LeftIndent = CentimetersToPoints(0) Z4\$h1tl  
        .RightIndent = CentimetersToPoints(0) ^cYm.EHI  
        .FirstLineIndent = CentimetersToPoints(0) 4uU G0o  
         :)GtPTD  
        .LineSpacingRule = wdLineSpaceSingle giy4<  
        .Alignment = wdAlignParagraphCenter yNk9KK)  
        .KeepWithNext = True x,Im%!h  
        .OutlineLevel = wdOutlineLevelBodyText fP41 B  
         IxY%d}[uo  
        .CharacterUnitLeftIndent = 0 #ii,GN~N  
        .CharacterUnitRightIndent = 0 8ODrW!o  
        .CharacterUnitFirstLineIndent = 0 *@'\4OO  
         t]Ey~-Rx  
        .LineUnitBefore = 0 +L4_]  
        .LineUnitAfter = 0 \Rc7$bS2H  
    End With DrD68$,QN  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False b|i94y(  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll qDq gU  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese l$%mZl  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True jgLCs)=5hV  
    DoEvents $7{V+>  
     M[ea!an  
     }.<%46_Z-  
    '第X章 XgUvgJ  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") f#:7$:{F1  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" sa%2,e'  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False LPgP;%ohO/  
    With ActiveDocument.Styles("QLNU章节标题").Font ;Ry )^5Q  
        .NameFarEast = "黑体" C LhD[/Fo  
        .NameAscii = "Arial Black" b {e nD  
        .NameOther = "Arial Black" 2}P<}-?6  
        .Name = "黑体" f`X#1w9  
        .Size = 16 MtAD&+3$  
        .Bold = True )-FQ_K%  
        .UnderlineColor = wdColorAutomatic g->cgExj  
        .Outline = False J[:3H6%`  
        .Italic = wdUndefined vb{+yEa  
        .Subscript = wdUndefined Zy2@1-z6  
        .Superscript = wdUndefined M2ig iR  
        .Scaling = 100 i[b?W$]7  
        .DisableCharacterSpaceGrid = True fu/v1Nhm  
    End With ]k[y#oB  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat uy~KJn?Tu  
        .LineSpacingRule = wdLineSpaceSingle '|r('CIBN/  
        .Alignment = wdAlignParagraphCenter yQ> *F  
        .WidowControl = True K (yuL[p`  
        .KeepWithNext = True T,h,)|:I^  
        .KeepTogether = True |C9qM  
        .PageBreakBefore = True ZbJUOa?WF  
        .OutlineLevel = wdOutlineLevelBodyText lgC |3]  
         ~%9ofXy  
        .LeftIndent = CentimetersToPoints(0) pA9:1*+;;  
        .RightIndent = CentimetersToPoints(0) :%Dw3IrOM  
        .FirstLineIndent = CentimetersToPoints(0) <!h&h  
         Ws[[Me, =  
        .CharacterUnitLeftIndent = 0 `;L0ax  
        .CharacterUnitRightIndent = 0 C[$uf  
        .CharacterUnitFirstLineIndent = 0 <tZPS`c'_  
         :('7ly!h  
        .LineUnitBefore = 1 kI974:e42  
        .LineUnitAfter = 0.5 B9;-Blh  
         !m"(SJn"  
        .AutoAdjustRightIndent = False |9)Q =(  
        .DisableLineHeightGrid = True `vJ+ sRf  
        .FarEastLineBreakControl = True p1 tfN$-  
        .WordWrap = True hia_CuY#  
    End With Z']D8>d  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False X*Mw0;+T  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll "1rZwFI0l  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese XJ;kyEx3=O  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True zmI?p4,  
    DoEvents /IM5#M5~  
     }}v04~  
    '表格标题 1!. CfQi  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ]p~QdUR(  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" ~y{(&7sM  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False Do }mCv  
    With ActiveDocument.Styles("QLNU表格标题").Font @>'.F<:P<  
        .NameFarEast = "楷体" [o)P  
        .NameAscii = "Arial" M>df7.N7%P  
        .Name = "楷体" <o5+*X  
        .Size = 10.5 #2c-@),  
        .Bold = True 2RD os#  
        .Underline = wdUnderlineNone MjMPbGU X{  
        .Italic = wdUndefined 9V&%_.Z  
        .Subscript = wdUndefined jyPY]r  
        .Superscript = wdUndefined mqGp]'{  
        .Color = wdColorAutomatic _s./^B_w!  
    End With { #CyO b4  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat {9KG06%+  
         K,YKU? z6  
        .LineSpacingRule = wdLineSpaceSingle xUE9%qO  
        .Alignment = wdAlignParagraphCenter iulM8"P  
        .KeepWithNext = True 7~[1%`  
        .KeepTogether = True ]@bo;.  
        .OutlineLevel = wdOutlineLevelBodyText 0(VQwGC[  
         zO`54^  
        .LeftIndent = CentimetersToPoints(0) =:(8F*Q  
        .RightIndent = CentimetersToPoints(0) UA3%I8gu_  
        .FirstLineIndent = CentimetersToPoints(0) _N~h#(  
         uY;-x~Z  
        .CharacterUnitLeftIndent = 0 ='=\!md  
        .CharacterUnitRightIndent = 0 X%!#Ic]Q  
        .CharacterUnitFirstLineIndent = 0 \HF h?3-g  
         Y418k  
        .LineUnitBefore = 1 =V:rO;qX+@  
        .LineUnitAfter = 0 2s,wC!',  
         EAq/Yw2$  
    End With ;p%a!Im_ <  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False ,L&Ka|N0  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll 95giqQ(N  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese v/f&rK*>  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True !8]W"@qb  
    DoEvents K"1xtpy  
T"-HBwl  
    '表格首行 %&9tn0B  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") :0pxacD"!  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False xKz^J SF  
    With ActiveDocument.Styles("QLNU表格首行").Font 9="i'nYp  
        .NameFarEast = "楷体" V ^=o@I  
        .NameAscii = "Times New Roman" emb~l{K$  
        .Name = "楷体" }2M2R}D  
        .Size = 9 mP GF Y  
        .Bold = True CqDMq!  
        .Underline = wdUnderlineNone JMN1+:7i  
        .Italic = wdUndefined -\yaP8V  
        .Subscript = wdUndefined 5:SfPAx  
        .Superscript = wdUndefined _$"qC[.  
    End With Y[x9c0  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat 6/9 A'!4C  
        .LineSpacingRule = wdLineSpaceSingle + oyW_!(  
        .Alignment = wdAlignParagraphCenter W&y%fd\&3  
         4RsV\Y{FN  
        .LeftIndent = CentimetersToPoints(0) $H^hK0?'  
        .RightIndent = CentimetersToPoints(0) u79.`,Ad&  
        .FirstLineIndent = CentimetersToPoints(0) R,01.N( U  
         u2'xM0nQ  
         6sl*Ko[  
        .CharacterUnitLeftIndent = -0.5 <'QH e4  
        .CharacterUnitRightIndent = -0.5 Nzz" w_#  
        .CharacterUnitFirstLineIndent = -0.5 BvpGP  
         SE{$a3`UzP  
        .LineUnitBefore = 0  L's_lC  
        .LineUnitAfter = 0 e-f_ #!bW  
        .SpaceBefore = 0 ~DcX}VCm  
        .SpaceAfter = 0 $(_Xt-6  
         0Ph,E   
    End With UT$G?D";M  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False rWF~a ec  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll PL<q|y  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese !G3O!]  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True R% XbO~{u  
    DoEvents f+Nq?GvwBQ  
nK Rx_D$d  
    '表格内容 68R[Lc9q5  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") r: n^U#  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False oQ@X}6B%S  
    With ActiveDocument.Styles("QLNU表格内容").Font %"@KuqV  
        .NameFarEast = "楷体" ]t]s/;9]K  
        .NameAscii = "Times New Roman" KcP86H52I  
        .Name = "楷体" @jg*L2L6  
        .Size = 9 p_ =^E*J]  
        .Bold = False nn$,|/  
        .Underline = wdUnderlineNone :*TfGV  
        .Italic = wdUndefined |/zE(ePc{  
        .Subscript = wdUndefined >1xlP/4jx  
        .Superscript = wdUndefined Zr'VA,v  
    End With 0*W=u-|s6  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat %WHue  
        .LineSpacingRule = wdLineSpaceSingle IZeWswz  
        .Alignment = wdAlignParagraphCenter GWRKiTu9  
         y!fV+S,  
        .LeftIndent = CentimetersToPoints(0) 9>d$a2 nc  
        .RightIndent = CentimetersToPoints(0) X:+;d8rCy  
        .FirstLineIndent = CentimetersToPoints(0) o <8L, u(U  
         :<Y,^V(  
        .CharacterUnitLeftIndent = -0.5 dNG>:p  
        .CharacterUnitRightIndent = -0.5 Fsv%=E{  
        .CharacterUnitFirstLineIndent = -0.5 LX4S}QXw  
        .LineUnitBefore = 0 71nXROB  
        .LineUnitAfter = 0 R1/ )Yy  
        .SpaceBefore = 0 h9LA&!  
        .SpaceAfter = 0 LJYFz=p "  
    End With 3t[2Bd  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False ~: Dr]kt  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll CD%wi:C%|  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese n_sCZ6uXEQ  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True `TKe+oS)  
    DoEvents ^3IO.`|  
d raY /  
    '图片标题 v"6q!  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") Ra[{K@  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" Lllyx20U  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False JC}y{R8  
    With ActiveDocument.Styles("QLNU图片标题").Font U,Nf&g  
        .NameFarEast = "楷体" SfQ ,uD6  
        .NameAscii = "Times New Roman" OOs Y{8xM  
        .Name = "楷体" ?n>h/[/  
        .Size = 10.5 PoY+Y3  
        .Bold = True & H;0 N"Fn  
        .Underline = wdUnderlineNone #/!a= 0  
        .Italic = wdUndefined pUZe.S>G  
        .Subscript = wdUndefined He. gl  
        .Superscript = wdUndefined 4dv+RRpGOv  
        .Outline = False %7pT\8E5  
        .Shadow = False Z.<OtsQN  
        .Color = wdColorAutomatic +j&4[;8P:  
    End With Z ) qc-~S  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat zS18Kl  
        .LineSpacingRule = wdLineSpaceSingle v! uD]}  
        .Alignment = wdAlignParagraphCenter bTE%p0  
         XKLkJZN  
        .KeepWithNext = wdUndefined Hn0 ,LH$/  
        .KeepTogether = True JadXdK=gE  
        .OutlineLevel = wdOutlineLevelBodyText xl@l<  
         &V$_u#<  
        .LeftIndent = CentimetersToPoints(0) X*1vIs;[@  
        .RightIndent = CentimetersToPoints(0) ^KhA\MzY  
        .FirstLineIndent = CentimetersToPoints(0) zn&NLsA  
         Af1mTbf=  
        .CharacterUnitLeftIndent = 0 6",1JH,;p  
        .CharacterUnitRightIndent = 0 BftW<1,U^  
        .CharacterUnitFirstLineIndent = 0 ?8fa/e  
         = l&7~  
        .LineUnitBefore = 0 ` *x;&.&v  
        .LineUnitAfter = 0 $fV47;U'*  
    End With mu04TPj  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False * Ibl+  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll {LVii}<  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese U)=?3}s(  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True "zJ1vIZY  
    DoEvents `$SX%AZA  
9a"[-B:  
    '目录项 8-UlbO6  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") Y~hBVz2g  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" _a"5[sG  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False !]7Z) ,s  
    With ActiveDocument.Styles("QLNU目录项").Font rq Dre`m  
        .NameFarEast = "黑体" f"q='B9_T\  
        .NameAscii = "Times New Roman" U-#wFc2N  
        .NameOther = "Times New Roman" >`Gys8T  
        .Name = "黑体" J7/"8S_#N  
        .Size = 10.5 SaMg)s~B  
        .Bold = False fmY=SqQG-  
        .Italic = wdUndefined +'Pf|S  
        .Underline = wdUnderlineNone nJY#d;  
        .Color = wdColorAutomatic A#RA;Dt:  
        .Superscript = wdUndefined #GT/Q3{C  
        .Subscript = wdUndefined y|Tb&XPD  
    End With E$=!l{Ms  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat J,%v`A~ N  
         W'eF | hu  
        .LineSpacingRule = wdLineSpaceSingle -("sp  
        .Alignment = wdAlignParagraphLeft r ,D T>  
         3qE2mYK  
        .WidowControl = False rg)>ZHx  
        .KeepWithNext = False fI;6!M#  
        .KeepTogether = False 1|l'oTAA  
        .PageBreakBefore = False ,1EyT>  
        .NoLineNumber = False 5ycccMx0V  
        .OutlineLevel = wdOutlineLevelBodyText 7RM$%'n \  
         Eb{Zm<TP  
        .LeftIndent = CentimetersToPoints(0) g"c\ouSY  
        .RightIndent = CentimetersToPoints(0) k?3NF:Yy7  
        .FirstLineIndent = CentimetersToPoints(0) xCz(qR  
         iyAeR!`  
        .CharacterUnitLeftIndent = 0 ob05:D_bc9  
        .CharacterUnitRightIndent = 0 C,Q>OkSc  
        .CharacterUnitFirstLineIndent = 0 @v\Osp t=  
         vzM8U>M  
        .LineUnitBefore = 0 "C&l7K;bp  
        .LineUnitAfter = 0 ({i}EC7{  
    End With (4o_\&  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False b/HhGA0  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll t J N;WK.6  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot "VR>nyG%  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese URdCV{@42  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True w2_$>z  
    DoEvents C|bnUN  
     ;D&FZ|`(u  
    '参考文献 [KMW *pA7  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") zBtlkBPu  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" <SGO+1zt p  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False C;];4[XR  
    With ActiveDocument.Styles("QLNU参考文献").Font u6Fm qK]Dj  
        .NameFarEast = "宋体" c+,F)i^`  
        .NameAscii = "Times New Roman" k#NIY4%.  
        .NameOther = "Times New Roman" XdjM/hB{fD  
        .Name = "Times New Roman" /J )MW{;O  
        .Size = 12 !f[LFQD  
        .Bold = False {.qeVE{  
        .Italic = wdUndefined 3&:Us| }  
        .Subscript = wdUndefined K?o( zh;  
        .Superscript = wdUndefined YAQ]2<H  
        .Underline = wdUnderlineNone }m0* w3  
        .UnderlineColor = wdColorAutomatic 0+%{1JkJq  
        .Color = wdColorAutomatic c1B < 9_  
        .Engrave = False AE? 0UVI  
    End With *UhYX)J  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat dc.9:u*w  
         +XCLdf}dC  
        .LineSpacingRule = wdLineSpaceExactly UJMM&  
        .LineSpacing = 16 uP2e/a  
        .Alignment = wdAlignParagraphLeft uMKO^D  
        .WidowControl = False  u:JD  
        .KeepWithNext = False jcD_<WSe  
        .KeepTogether = False 3 5;|r  
        .PageBreakBefore = False ? XN=Er^  
        .OutlineLevel = wdOutlineLevelBodyText N^z4I,GV(  
         W{:^P0l  
        .LeftIndent = CentimetersToPoints(0) }5 ^2g!M  
        .RightIndent = CentimetersToPoints(0) 8Yc'4v#}  
        .FirstLineIndent = CentimetersToPoints(0) :_V9Jwu  
         L"{qF<@V7&  
        .CharacterUnitLeftIndent = 0 d"o5uo  
        .CharacterUnitRightIndent = 0 |fqYMhA U  
        .CharacterUnitFirstLineIndent = -2 kk#%x#L[  
         >?>@&A/  
        .LineUnitBefore = 0 A?V}$PTlx  
        .LineUnitAfter = 0 k%Dpy2uH  
        .SpaceBefore = 0 ^=`7]E[p  
        .SpaceAfter = 0 67/JsL  
         +A%|.;  
    End With l{<+V)  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False Q46^i7=  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll 15dhr]8E  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS CAg~K[  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True W|h~&O  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese 'Dw+k;RH  
    DoEvents [Z9 lxZ|  
qM78s>\-h  
    ' 2-=Ov@y2k!  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") dZ}gf}.v  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" '[(]62j  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False " O0p.o  
    With ActiveDocument.Styles("QLNU论文题目").Font 9'+Eu)l:  
        .NameFarEast = "黑体" uqy&P S  
        .NameAscii = "Arial Black" U|SF;T .  
        .NameOther = "Arial Black"  zGgPW  
        .Name = "Arial Black" |2t g3m@  
        .Size = 16 2q]y(kW+  
        .Bold = False HR'sMu3  
        .Italic = wdUndefined VZuluV  
        .Superscript = wdUndefined eA q/[(  
        .Subscript = wdUndefined PJ}d-   
        .Underline = wdUnderlineNone E| eEAa  
        .UnderlineColor = wdColorAutomatic VF[$hs  
        .Color = wdColorAutomatic AB(WK9o  
!Q[j;f   
    End With ~ +DPq|-O  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat z7TMg^9 #  
        .LineSpacingRule = wdLineSpaceSingle HXV4E\JA  
        .Alignment = wdAlignParagraphCenter S;@nP zhc  
        .WidowControl = True 8'XAZSd(  
        .KeepWithNext = True `R[cM; c2  
        .KeepTogether = True t 7GK\B8:  
        .PageBreakBefore = True ^f6p w!  
        .NoLineNumber = False JC 6?*R  
        .OutlineLevel = wdOutlineLevelBodyText jHjap:i`cI  
         mD@*vq  
        .LeftIndent = CentimetersToPoints(0) "[h9hoN  
        .RightIndent = CentimetersToPoints(0) @cYb37)q=  
        .FirstLineIndent = CentimetersToPoints(0) J]G] <)  
         "y~tAg  
        .CharacterUnitLeftIndent = 0 j=|cx+nb  
        .CharacterUnitRightIndent = 0 ;IyA"C(i  
        .CharacterUnitFirstLineIndent = 0 )&/ecx"2Q  
         wNc.z*+O"H  
        .LineUnitBefore = 1 }@6Tcn1  
        .LineUnitAfter = 1 $fifx>!  
         ]q^6az(Ud  
        .BaseLineAlignment = wdBaselineAlignAuto 6[+@#IWx  
    End With kIl!n  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False V'b$P2 ?^  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll qFQO1"mu  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS F(h jP  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True 5<64 C}fE3  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese 9u[^9tL+D  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True :Kq]b@ X  
    DoEvents ($QQuM=  
     \jA#RF.W  
    '中文摘要 RvQa&r5l  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") X5U#^^O$E%  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" vq?Lej  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False YoDL/  
    With ActiveDocument.Styles("QLNU中文摘要").Font IQZ/8UwB  
        .NameFarEast = "宋体" WSEw:pln  
        .NameAscii = "Times New Roman" suKr//_  
        .NameOther = "Times New Roman" }jE [vVlRw  
        .Name = "Times New Roman" [vv $"$z  
        .Size = 12 ZZ'5BfI"I%  
        .Bold = wdUndefined d{/#A%.  
        .Superscript = wdUndefined ya3k;j2C  
        .Subscript = wdUndefined +G: CR,Z>+  
        .Italic = wdUndefined M02 U,!di  
        .Underline = wdUnderlineNone 'Fq +\J#%  
        .UnderlineColor = wdColorAutomatic i?{)o]i  
        .Color = wdColorAutomatic T'6MAxEZUq  
    End With #hMS?F|  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat  iYaS  
        .LineSpacingRule = wdLineSpaceExactly f4'WT  
        .LineSpacing = 20 SG$V%z"e  
        .Alignment = wdAlignParagraphLeft ehTrjb3k  
         a gk w)#  
        .WidowControl = False 8MQb5( !  
        .KeepWithNext = False ' % d-  
        .KeepTogether = True trx y3k;  
        .PageBreakBefore = False WwDd62g  
        .NoLineNumber = False N 2XL5<  
        .OutlineLevel = wdOutlineLevelBodyText q4MR9ig1E_  
         !d.bCE~  
        .LeftIndent = CentimetersToPoints(0) <n1panS  
        .RightIndent = CentimetersToPoints(0) jouA ]E  
        .FirstLineIndent = CentimetersToPoints(0) ^cDHC^Wm  
         7l(GBr  
        .CharacterUnitLeftIndent = 0 r7ebFJEf  
        .CharacterUnitRightIndent = 0 hs^K9Jt  
        .CharacterUnitFirstLineIndent = 2 ^sVr#T  
        .LineUnitBefore = 0 |hl:!j.t  
        .LineUnitAfter = 0 :+ZLKm  
         Am ~P$dN  
    End With sP:nTpTsC  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False xeNj@\jdC5  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll bZ 0{wpeK=  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS <%4M\n  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True ;_X2E~i[  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese g1kYL$o4  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True A3mvd-k  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete G!T_X*^q2U  
    DoEvents ,A%p9  
     )4#YS$B$@)  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") Xb<>AzEM  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" X aE;i57$l  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False /\. [@]  
    With ActiveDocument.Styles("QLNU英文标题").Font ]9 $iUA%Ef  
        .NameFarEast = "黑体" .Gt_~x  
        .NameAscii = "Arial Narrow" 2A=q{7s  
        .Name = "Arial Narrow" LvqWA}  
        .Size = 16 fI v?HD:j  
        .Bold = True xmNs%  
        .Bold = wdUndefined a%nf )-}|  
        .Superscript = wdUndefined p>N8g #G  
        .Subscript = wdUndefined sOJXloeO[6  
        .Italic = wdUndefined xlcL;e&^P  
         emSky-{$u  
        .Underline = wdUnderlineNone &+5ij;AD  
        .UnderlineColor = wdColorAutomatic ;\g0* b(  
        .StrikeThrough = False zC,c9b  
        .DoubleStrikeThrough = False C4aAPkcp2$  
    End With oRZ98?Y\B  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat zJ6""38Pr  
        .LineSpacingRule = wdLineSpaceSingle -e4TqzRr  
        .Alignment = wdAlignParagraphCenter j:2TicHD C  
        .WidowControl = True G^|!'V  
        .KeepWithNext = False fc&djd`FuX  
        .KeepTogether = False $GR rTC!  
        .PageBreakBefore = False s0O]vDTR,H  
        .NoLineNumber = False b>2{F6F  
        .FirstLineIndent = CentimetersToPoints(0) 9:E:3%%  
        .OutlineLevel = wdOutlineLevelBodyText S]&:R)#@  
         VqUCcT  
        .LeftIndent = CentimetersToPoints(0) ?W>`skQ  
        .RightIndent = CentimetersToPoints(0) {'p < o$(S  
        .FirstLineIndent = CentimetersToPoints(0) M5 a&eO  
         ? 9;CC]D  
        .CharacterUnitLeftIndent = 0 p#%*z~ui  
        .CharacterUnitRightIndent = 0 k|,Y_h0Y  
        .CharacterUnitFirstLineIndent = 0 %*NED zy  
         fK^W6)uuV  
        .LineUnitBefore = 1 Ht:\ z;cu  
        .LineUnitAfter = 1 .?vHoNvo  
         kRjNz~g  
    End With O DEFs?%'  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False -UM|u_  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll ]Twy j  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS 7gcR/HNeF  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True Aydpr_lp  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese 5Gs>rq" #  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True %8H$62w]  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete %VGW]!QR  
    DoEvents f Gd1  
to'CuPkT  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") Lf)JO|o  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" g< xE}[gF  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False Uc,MZV4  
    With ActiveDocument.Styles("QLNU英文摘要").Font -2[#1S*  
        .NameFarEast = "宋体" PJ)l{c  
        .NameAscii = "Arial" _NB*+HVo  
        .NameOther = "Arial" ~N%+ZXh&E  
        .Name = "Arial" DRpF EWsm  
        .Size = 12 -{}h6r  
        .Bold = wdUndefined g >@a  
        .Italic = wdUndefined km*Y#`{  
        .Superscript = wdUndefined DaQ+XUH?  
        .Subscript = wdUndefined H:|.e)$i  
    End With kY?tUpM!TB  
     0l3[?YtXc  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat '?jsH+j+  
         :>iN#)S  
        .LineSpacingRule = wdLineSpaceExactly ^TD%l8o6  
        .LineSpacing = 20 XzPOqZ`Nv  
         ,CI-IR2  
        .Alignment = wdAlignParagraphJustify ,k_"T.w  
         ^Ze(WE)  
        .WidowControl = False Q6HghG  
        .KeepWithNext = False H $ %F0'0  
        .KeepTogether = False qm"SN<2S*  
        .PageBreakBefore = False HC} vO0X4  
        .NoLineNumber = False GM8Q#vc  
         ^J&D)&"j  
        .OutlineLevel = wdOutlineLevelBodyText 02tt.0go  
         ?YMBZ   
        .LeftIndent = CentimetersToPoints(0) C1fd@6  
        .RightIndent = CentimetersToPoints(0) *MS$C$HOq  
        .FirstLineIndent = CentimetersToPoints(0) @t a:9wZ  
         *u-$$@|y  
        .CharacterUnitLeftIndent = 0 @ x .`z  
        .CharacterUnitRightIndent = 0 nU ' qE  
        .CharacterUnitFirstLineIndent = 2 E~#G_opQA  
         c`/VYgcTqB  
        .LineUnitBefore = 0 et/:vLl13  
        .LineUnitAfter = 1 0hhxTOp  
         == E8^jYJw  
    End With i\_LLXc  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False >|z:CX$]  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll lu00@~rx/  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS Ims?  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False :tbgX;tCs5  
    DoEvents { "M2V+ep  
R`Fgne$4  
    Options.Pagination = True  H~TuQ  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." o l41%q*  
    DoEvents }K={HW1>  
    ActiveDocument.Repaginate 064k;|>D  
x |yJCs>  
End Sub ? )h8uf4  
< =~=IZ)  
",&QO 7_  
杺栫杣杊椌柮栬，䒴蓉艿芖。
回复 引用
举报顶端
伍胥之 离线
级别: 军区司令员

显示用户信息 
101楼  发表于: 2024-12-28   
只看该作者 ┊  小 中 大
姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。  [Q{\Ik  
%VFoK-a  
引用
引用第20楼newport93于06-14-2010 13:47发表的  : a7c`[   
.hu7JM+  
老五，I 服了U。 i%!<6K6UT  
U+*l!"O,  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 V]; i$  
$cIaLq  
杺栫杣杊椌柮栬，䒴蓉艿芖。
回复 引用
举报顶端
上一主题下一主题
«3456»Pages: 6/6
 Bay Area Chinese--灣區華人 » 乱讲
描述
快速回复

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