登录注册
社区应用 最新帖子 精华区 社区服务 会员列表 统计排行
主题 : [ZT]我和电脑亲密接触的心路历程
伍胥之 离线
级别: 军区司令员

显示用户信息 
100楼  发表于: 2021-07-18   
Dim bContinue As Boolean :*vSC:q  
?pdN!zOeL  
Dim regEX As New RegExp [x%8l,O #l  
Dim paraCounter As Long  '全局段落计数,仅在主程序中可读写,其它过程函数应为只读 SBaTbY0  
cS BS38>  
Dim LastTitle0String As String, LastTitle0No As Long y(*5qa<>  
Dim LastTitle1String As String, LastTitle1No As Long cj4o[l  
Dim LastTitle2String As String, LastTitle2No As Long cm8co  
Dim LastTitle3String As String, LastTitle3No As Long HqI[]T@  
Dim LastTitle4String As String, LastTitle4No As Long hltUf5m'b  
Dim LastTitle5String As String, LastTitle5No As Long | 2GrOM&S  
Dim LastTabelString As String, LastTableNo As Long KGf@d*ZOMz  
Dim LastFigureString As String, LastFigureNo As Long uF ;8B]"  
6FX]b4  
Dim strSeperator As String 4 }Y? :R  
qYPgn _  
Sub ConvertWidth(fTEXT As String, rText As String) L'$({  
        Selection.Find.ClearFormatting P_P~c~o  
        Selection.Find.Replacement.ClearFormatting 8 .&P4u i  
        Selection.Find.Wrap = wdFindContinue tiy#b 8  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText iOk`_LG#  
        DoEvents &k`/jl;u  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True /g1;`F(MS/  
End Sub O) )j  
cpPS8V  
Sub ClearDomain() o{' J O3  
        With Selection.Find b)>l7nOc  
            .ClearFormatting 9&HaEAme  
            .Replacement.ClearFormatting ? <w[ZWytm  
            .Wrap = wdFindContinue #<@_mbQ@|K  
            Me.txtStatus.Text = "清除所有域代码" )afH:  
            DoEvents lmIphOUoIw  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False <' j ygZ(  
        End With 1]W8A.ZS  
End Sub gk}.L E  
J[UTn'M8]  
Private Sub cmdCheck_Click() ]D^zTl3=q  
    bContinue = True S#0C^  
    Dim NoSeries1(1 To 16) As String F ~e}=Nb  
    Dim NoSeries2(1 To 16) As String 3*F|`js"  
    Dim NoSeries5(1 To 16) As String M=fhRCUB  
    Dim NoSeriesRM(1 To 16) As String Odm1;\=Eg+  
    Dim paraTotal As Long, ParaText As String ~iIFe+6  
    Dim ttString As String, ttNo As String ~(L&*/c  
     *o6QBb  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long ZftucD|ZY/  
s]HJcgI  
    Me.txtStatus.Visible = True 'X\C/8\  
    Me.lbParaType.Visible = True P  V9q=  
    Me.cmdCheck.Enabled = False UZL-mF:)&  
     -j^G4J  
     c],Zw  
     @7sHFwtar?  
     V0bKtg1f?-  
    Dim ParaType As String, rText As String a ~k*Gd(  
     2h) *  
    Selection.WholeStory >J,IxRGi  
    Selection.NoProofing = True {M23a _t\  
     j'XND`3  
    tm1 = Now A&d_! u>  
     F)50 6  
        ActiveWindow.View.Type = wdNormalView uZP( -}  
     CHdYY7\{  
    NoSeries1(1) = "一" Wt=%.Y( x  
    NoSeries1(2) = "二" #UnGU,J  
    NoSeries1(3) = "三" <^+&A7 Q-_  
    NoSeries1(4) = "四" J=H8^4M  
    NoSeries1(5) = "五" FC4hvO(/m  
    NoSeries1(6) = "六" AY]rQ:I  
    NoSeries1(7) = "七"  ?QcS$i  
    NoSeries1(8) = "八" >`n)-8  
    NoSeries1(9) = "九" ;`Sn66&  
    NoSeries1(10) = "十" 'h> l_A  
    NoSeries1(11) = "十一" e63io0g>  
    NoSeries1(12) = "十二" yn2k!2]&T<  
    NoSeries1(13) = "十三" 4)9Pgp :  
    NoSeries1(14) = "十四" pW&8 =Ew  
    NoSeries1(15) = "十五" G&yF9s)Lvs  
    NoSeries1(16) = "十六" OYOczb]  
     C?rb}(m  
    NoSeries2(1) = "㈠" ;?gR,AKZ  
    NoSeries2(2) = "㈡" ^C8f(  
    NoSeries2(3) = "㈢" "77 l~3  
    NoSeries2(4) = "㈣" '<wZe.Q!  
    NoSeries2(5) = "㈤" 0 d2to5 (  
    NoSeries2(6) = "㈥" Ut(BQM>U+$  
    NoSeries2(7) = "㈦" m.U&O=]5  
    NoSeries2(8) = "㈧" rY"EW"y  
    NoSeries2(9) = "㈨" >BjZ{7?Ok  
    NoSeries2(10) = "㈩" ?aZ\D g{  
     InG<B,/W?  
    NoSeries5(1) = "①" 3ZAzv en  
    NoSeries5(1) = "②" K&&YxX~ 3  
    NoSeries5(3) = "③" ^.[+)0I  
    NoSeries5(4) = "④" c- [IgX e  
    NoSeries5(5) = "⑤" NV^n}]ci  
    NoSeries5(6) = "⑥" WhL"-f  
    NoSeries5(7) = "⑦" )IuwI#pm  
    NoSeries5(8) = "⑧" 1! R:}r3t  
    NoSeries5(9) = "⑨" 3UcOpq2i\  
    NoSeries5(10) = "⑩" LfsOGC  
     VKr oikz@]  
     CasFj9,  
    NoSeriesRM(1) = "I" MENrP5AL  
    NoSeriesRM(2) = "II" 6w0r)  
    NoSeriesRM(3) = "III" 2yV {y#\   
    NoSeriesRM(4) = "IV" /j:-GJb*!u  
    NoSeriesRM(5) = "V" )7F$:*e  
    NoSeriesRM(6) = "VI" UQ 2;Dg G%  
    NoSeriesRM(7) = "VII" Y2>*' nU  
    NoSeriesRM(8) = "VIII" Uc j>gc=  
    NoSeriesRM(9) = "IX" \U?{m)N  
    NoSeriesRM(10) = "X" )1&,khd/u  
    NoSeriesRM(11) = "XI" z.:IUm{z  
    NoSeriesRM(12) = "XII" ^p~3H  
    NoSeriesRM(13) = "XIII" AH ]L C6-  
    NoSeriesRM(14) = "XIV" C 2?p>S/q  
    NoSeriesRM(15) = "XV" =Y R+`[bfI  
    NoSeriesRM(16) = "XVI" -<5H8P-  
     a{iG0T.{Yh  
    i = MsgBox("为了你的数据安全,请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗?", vbYesNo) &^ =Y76  
     6 wD  
    If i = vbNo Then e pAC%a  
        Exit Sub >&|/4`HSB  
    End If +B OuU#  
     2J7JEv|  
    If Me.chkSuper.Value Then {Yt i  
        Me.txtStatus.Text = "检查修改所有的上标格式" kJ0otr2P  
     W0Q;1${  
        CheckSuperScript 1c $iW>0K  
         L;' v,s  
    End If <gSZ<T  
     =!2(7Nr  
    If Me.chkStyle.Value Then .7H* F9  
        Me.txtStatus.Text = "设置样式,请稍候...." }}v28"\TA  
        DoEvents -axmfE?g0  
        CeateOrModifyStyle ="[6Z$R  
    End If cs)z!  
     E"%G@,|3*  
     Va\?"dH>M  
     oSoU9_W  
    ClearDomain ACH!Gw~  
         j`"cU$NRM  
     SVT'fPm1M  
     RTYhgq  
    If Me.chkLIST.Value Then Il#9t?/  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" wk6tdY{&s  
     r)Iq47Uiw  
        ConvertListToOrdinary zj'uKBDl  
    End If _lG\_6oJ,  
      av!~B,  
     jF%l\$)/  
    Dim pType As String, trimpTEXT As String ,:3Di (  
    If Me.chkNum.Value = True Then H{*R(S<I  
        Me.txtStatus.Text = "转换全角数字形式为半角" G6j9,#2@  
        ConvertWidth "1", "1" ZQDw|*a@  
        DoEvents 0Yc#f D  
        ConvertWidth "2", "2" v:Z.8m8D  
        DoEvents t-w4rXvF   
        ConvertWidth "3", "3" ]m ""ga  
        DoEvents j*1O(p+  
        ConvertWidth "4", "4" QLyBP!X-  
        DoEvents iLkP@OYgQ  
        ConvertWidth "5", "5" f@J-6uQ7w  
        DoEvents 2ZFp(e^%  
        ConvertWidth "6", "6" d#nKTqSg  
        DoEvents 96CC5  
        ConvertWidth "7", "7" &M+fb4:_  
        DoEvents nL* SNQ_  
        ConvertWidth "8", "8" 4Yl:1rz  
        DoEvents +DP{_x)t  
        ConvertWidth "9", "9" Edav }z  
        DoEvents rxAb]~MMp  
        ConvertWidth "0", "0" .Ue1}'v*,  
        DoEvents " ZFK-jn/  
        ConvertWidth "a", "a" y :8Oc?  
        DoEvents Gw Z(3  
        ConvertWidth "b", "b" ESv&x6H  
        DoEvents mdIa`OZr  
        ConvertWidth "c", "c" @c{ b\is2  
        DoEvents 0t}&32lL&  
        ConvertWidth "d", "d" @&]%%o+  
        DoEvents U*Pi%J  
        ConvertWidth "e", "e" (B;rjpK  
        DoEvents 2aO.t  
        ConvertWidth "f", "f" <o\I C?A  
        DoEvents MQGR-W V=5  
        ConvertWidth "g", "g" XDq*nA8#5B  
        DoEvents ZIM 5$JdCv  
        ConvertWidth "h", "h" W RVm^  
        DoEvents $Z^HI  
        ConvertWidth "i", "i" [ f`V_1d3  
        DoEvents $F86Dwd  
        ConvertWidth "j", "j" j*N:Kdzvl  
        DoEvents . xdSUe  
        ConvertWidth "k", "k" S%m$LM]NCg  
        DoEvents $v+t ~b  
        ConvertWidth "l", "l" 626 !6E;T  
        DoEvents ~@bh[o~rF  
        ConvertWidth "m", "m" !`#xFRHe  
        DoEvents <f`G@  
        ConvertWidth "n", "n" HWT^u$a"  
        ConvertWidth "o", "o" 421ol  
        ConvertWidth "p", "p" [O(8iz v  
        ConvertWidth "q", "q" |0/~7l  
        ConvertWidth "r", "r" DU-&bm  
        ConvertWidth "s", "s" @I|gA  
        ConvertWidth "t", "t" _8"%nV  
        ConvertWidth "u", "u" +eD+Z.{  
        ConvertWidth "v", "v" F]~>qt<ia  
        ConvertWidth "w", "w" 3.s.&^  
        ConvertWidth "x", "x" &\GB_UA  
        ConvertWidth "y", "y"  uvf}7  
        ConvertWidth "z", "z" [D%5 Fh\0  
        ConvertWidth "A", "A" Q#rj>+?  
        ConvertWidth "B", "B" yPza  
        ConvertWidth "C", "C" S-k:+4  
        ConvertWidth "D", "D" eo&nAr  
        ConvertWidth "E", "E" QGQ> shIeZ  
        ConvertWidth "F", "F" 4q\bnt  
        ConvertWidth "G", "G" S&YC"  
        ConvertWidth "H", "H" { z/Y~rf  
        ConvertWidth "I", "I" r+%}XS%;h  
        ConvertWidth "J", "J" ];1Mg  
        ConvertWidth "K", "K" ')>& :~  
        ConvertWidth "L", "L" 8z h{?0  
        ConvertWidth "M", "M" _}-Ed,.=  
        ConvertWidth "N", "N" BSB;0OM  
        ConvertWidth "O", "O" vmZyvJSE  
        ConvertWidth "P", "P" J M,ndl  
        ConvertWidth "Q", "Q" ~1v5 H]T{  
        ConvertWidth "R", "R" nB1[OB{  
        ConvertWidth "S", "S" m|w-}s,  
        ConvertWidth "T", "T" Sq,x57-  
        ConvertWidth "U", "U" \P|PAU@,  
        ConvertWidth "V", "V" -(]s!,  
        ConvertWidth "W", "W" &I$MV5)u  
        ConvertWidth "X", "X" B#K{Y$!v  
        ConvertWidth "Y", "Y" %Cz&7qf"  
        ConvertWidth "Z", "Z" h|j $Jy  
        ConvertWidth "^l", "^p" 5L4{8X0X8  
        ConvertWidth "(", "(" I ;Sm<P7*  
        ConvertWidth ")", ")" 0xYPK7a=L\  
     gK8{=A0c  
    End If <wZ2S3RNA  
Q-}yZ  
    With ActiveDocument xMu[#\Vc  
        Dim tbl As Table |B;tv #mKD  
        For Each tbl In .Tables %nfaU~IqK  
            tbl.Rows.Alignment = wdAlignRowCenter hf~'EdU  
            tbl.Range.Font.NameFarEast = "楷体" 9I;d>%  
            tbl.Range.Font.NameAscii = "Times New Roman" V>&WZY  
            tbl.Range.Font.Size = 10.5 P[E5e+ A)  
        Next t$lO~~atr  
        Set tbl = Nothing k*3F7']8  
    End With '=2/0-;Jf  
     ?@i_\<A2  
     3,<$z1Jm  
    With ActiveDocument 2=PX1kI  
         sox0:9Oqnf  
        For i = 1 To .TablesOfContents.Count $ RDwy)9  
            .TablesOfContents(i).Delete 54%@q[-  
        Next j!:^+F/  
         J XIxk"m  
         x4C}AyR  
         lef,-{X-  
        paraTotal = .Paragraphs.Count cn$o$:tW  
        paraCounter = 1 plRBfw>]N  
         =k\V~8X Z  
        LastTitle0No = 0 V94eUmx>?+  
        LastTitle1No = 0 sV)) Z2sq  
        LastTitle2No = 0 j:;[Y`2  
        LastTitle3No = 0 kgV_*0^  
        LastTitle4No = 0 xQ=sZv^M  
        LastTableNo = 0 $R2iSu{kO  
        LastFigureNo = 0 rv\m0*\<  
         B~RVFc +  
        Dim Sec As Long S_VZ^1X]  
         MM*B.y~TxZ  
        Sec = InputBox("正文从第一节开始?", "节设置", 6) + q/ j  
        If Sec = 0 Then %|:Gn)8  
            Exit Sub y7quKv7L}  
        End If 5QR=$?K  
         ~<?+(V^D  
        k = 0 Pu=,L#+FN  
        Do While (paraCounter < paraTotal) And bContinue M;\iL?,  
            k = k + 1 D!- 78h  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then 3S~Gi,  
                Exit Do ;ctJ9"_g  
            End If #ONad0T;  
            paraCounter = paraCounter + 1 Y nzhvE  
            If k Mod 20 = 0 Then <n)J~B^  
                Me.lbCounter.Caption = paraCounter Oist>A$Z  
                DoEvents j[Y$)HF  
            End If 69{BJ] q  
        Loop VM1`:1Z:$  
         1@)kNg)*$  
         oK5"RW  
        Do While (paraCounter < paraTotal) And bContinue  TM1isZ  
             Wz~=JvRHh  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) 8tR(i[L   
            ShapeHeight = 0 \L"Vx9xT  
            ShapeWidth = 0 .I"Qu:``  
           %)$^_4.g  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth +M"Fv9  
             SCCBTpmf2B  
            Select Case ParaType -r6cK,WVU  
                Case "【】表格内容" em+dQ15  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" 4Y)rgLFj  
                Case "章" NT6OGBl&  
                    LastTitle0No = LastTitle0No + 1 [ !ghI%VK  
                    '新一章开始,复位其下属标题编号 q*|H*sS  
                    LastTitle1No = 0 Be=J*D!E=>  
                    LastTitle2No = 0 &G)I|mv  
                    LastTitle3No = 0 G>/Gw90E  
                    LastTitle4No = 0 .S l{m[nV8  
                     Stkyz:,(  
                    k = Val(ttNo) WPmH4L>T  
                    If k = 0 Then '非数字编号章节 McRAy%{z  
                        If ttNo <> NoSeries1(LastTitle0No) Then qW1d;pt  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString =o@CCUKpj  
                            Me.ErrMsg.AddItem "章节编号错误:" & ParaText arR9uxP  
                        End If f.%mp$~T  
                    Else L"|~,SVF  
                        If Val(ttNo) <> LastTitle0No Then !y&uK&1  
                            rText = "第" & LastTitle0No & ttString M?i U$qI  
                            Me.ErrMsg.AddItem "章节编号错误:" & ParaText 6 K+DgNK  
                        End If ^]&uMkPN  
                         *ydkx\pT  
                    End If sO,%Ok1  
                     kPm{tc  
                    '章段落设置 mUmU_L u8  
                    '字体大小:三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 OO Hw-MW  
                    .Paragraphs(paraCounter).Style = "QLNU章节" 3++}4%w  
                    .Paragraphs(paraCounter).Range.Select F3XB};  
                    Selection.EndKey unit:=wdLine yM *-e m  
                    tc = Replace(rText, vbCr, "") hmRnr=2N  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False !\ IgT t,  
                Case "一级标题" ADTx _tE  
                    LastTitle1No = LastTitle1No + 1 0UJ% tPS  
                    '新一级标题开始,复位其下属标题编号 7*9a`p3w  
                    LastTitle2No = 0 J|9kWjOf+i  
                    LastTitle3No = 0 []'gIF  
                    LastTitle4No = 0 #mI{D\UR  
                     G% |$3  
                    If ttNo <> NoSeries1(LastTitle1No) Then ! z^%$;p  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString b'!t\m  
                            Me.ErrMsg.AddItem "一级标题编号错误:" & ParaText ^usZ&9"@P  
                    End If _.9):i2<SF  
                   ''{REFjK7  
                     b) k\?'j  
                    '一级标题段落设置  格式:一、标题内容 -VqZw&"  
                    .Paragraphs(paraCounter).Range.Text = rText 9w^lRbn  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" NtuO&{}i  
                    .Paragraphs(paraCounter).Range.Select f4JmY1)@  
                    Selection.EndKey unit:=wdLine #Sxk[[KwH*  
                    tc = Replace(rText, vbCr, "") B}PT-S1l  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False )U? Tmh  
                Case "二级标题" ^Pn XnH?  
                    LastTitle2No = LastTitle2No + 1 u3"0K['3  
                    '新二级标题开始,复位其下属标题编号 WF)(Q~op0U  
                    LastTitle3No = 0 iYqZBLf{S  
                    LastTitle4No = 0 Vq'\`$_  
                     gn2*'_V~3  
                    If ttNo <> NoSeries1(LastTitle2No) Then L\cd=&b`  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString :!SVpCt3  
                            ErrMsg.AddItem "二级标题编号错误:" & ParaText [g bYIwL.  
                    End If S'Hb5C2u  
                     5s=ZA*(sY  
                    '二级标题段落设置 格式:(一)、标题内容 yqEX0|V%  
                    .Paragraphs(paraCounter).Range.Text = rText KT3W>/#E  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" Mbj{C  
                     B-oQ 9[~  
                    .Paragraphs(paraCounter).Range.Select emhI1 *}  
                    Selection.EndKey unit:=wdLine P=.yXirm?  
                    tc = Replace(rText, vbCr, "") i++a^f  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False DqfWu*  
                 !Ez5@  
                Case "三级标题" ?ztI8 I/  
                    LastTitle3No = LastTitle3No + 1 ,buSU~c_Q  
                    '新三级标题开始,复位其下属标题编号 PTU_<\  
                    LastTitle4No = 0 a.n;ika]-  
                     F/ZB%;O9  
                    If Val(ttNo) <> LastTitle3No Then 7$;#- l  
                            rText = LastTitle3No & ". " & ttString y9K U&L2  
                            Me.ErrMsg.AddItem "三级标题编号错误:" & ParaText #G DnV/0)  
                         PQl^jS  
                    End If O_9M /[<  
                    '三级标题段落设置 格式:1. 标题内容 ^#|Sl D]  
                    .Paragraphs(paraCounter).Range.Text = rText R&>G6jZ?8  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" 'qL:7  
                    .Paragraphs(paraCounter).Range.Select Lro[ |A  
                    Selection.EndKey unit:=wdLine m* Zq3j  
                    tc = Replace(rText, vbCr, "") eP d  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False [y(DtOR  
                Case "四级标题" Q[j'FtP%  
                    LastTitle4No = LastTitle4No + 1 eGwO!Lv}B  
                     DzfgPY_Py  
                    If Val(ttNo) <> LastTitle4No Then iKJ-$x_5  
                            rText = "(" & LastTitle4No & "). " & ttString r8.`W\SKX  
                            ErrMsg.AddItem "四级标题编号错误:" & ParaText eb6Ux  
                     rq>}] U  
                    End If (Dy6I;S  
                    '四级标题段落设置 格式:(1). 标题内容 m\4V;F  
                    .Paragraphs(paraCounter).Range.Text = rText Ic 5TtN~/>  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" Jy#c 6  
                    .Paragraphs(paraCounter).Range.Select B]K R*  
                    Selection.EndKey unit:=wdLine GI+x,p  
                    tc = Replace(rText, vbCr, "") y:Wq;xEiDo  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False HE;}B!>  
                 z\d{A7  
                Case "表格标题" #?OJ9pyG'  
                    LastTableNo = LastTableNo + 1 ~XzT~WxW  
                     XniPNU  
                    If ttNo <> CStr(LastTableNo) Then {8TLL @T4  
                            rText = "表" & LastTableNo & ". " & ttString o1kT B&E4B  
                            ErrMsg.AddItem "表格编号错误:" & ParaText s6q6)RD"  
                   Wq5 }SM  
                    End If ,Wv@D"4?  
                     I7@|{L1|FB  
                    '表格名称段落设置 格式:表1. 表格名称 !lVOZ %  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题"  ?z hw0  
                    xe = Replace(rText, vbCr, "") u|ph_?6 o  
                    .Paragraphs(paraCounter).Range.Select / [s TN.MG  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 )8cb @N  
                    Selection.Range.Text = xe q,i&%  
                    Selection.EndKey oZD+AF$R  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False .wU0F  
                 ',WnT:  
                Case "表格首行" j*.K|77WHj  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" sf([ 8YUd  
                Case "图片标题" og`rsl  
                    LastFigureNo = LastFigureNo + 1 J?wCqA  
                     i\zVP.c])*  
                    If ttNo <> CStr(LastFigureNo) Then y% Q0* _  
                            rText = "图" & LastFigureNo & ". " & ttString TpAE9S  
                            ErrMsg.AddItem "表格编号错误:" & ParaText yt'P,m  
                   j8cIpbp8x  
                    End If fY 4I(~Q  
                    '图片名称段落设置 格式:图1. 图名称 L;7u0Yg  
                    .Paragraphs(paraCounter).Range.Text = rText 3`JLb]6  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" W)_|jpd[  
                    .Paragraphs(paraCounter).Range.Select {Jna' eS  
                    Selection.EndKey unit:=wdLine 0N |l1Sn  
                    xe = Replace(rText, vbCr, "") UmR\2 cs  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False kB)u@`</mV  
                Case "正文" e3 #0r  
                     '正文名称段落设置 diz=|g=w  
                    .Paragraphs(paraCounter).Style = "QLNU正文" V< Ib#rd'  
               Case "文献条目" .+07 Ui]I!  
                    With .Paragraphs(paraCounter) ~'9\y"N1  
                        '.Range.Select ':>u*  
                        'Selection.ClearFormatting xU1_L*tu '  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分, 而StrSeperator传回了正确的格式与分隔符如“[15] ” w4nU86oZYl  
                        .Style = "QLNU参考文献" @A5'vf|2;.  
                    End With t)4><22of  
               Case "图表注解" @%'1Jd7-Wp  
                    With .Paragraphs(paraCounter) |p .o^  
                        .Range.Font.NameFarEast = "楷体" vGCvJ*4!  
                        .Range.Font.NameAscii = "Times New Roman" !K8Kw W|X  
                        .Range.Font.Size = 9 '小5号字 rD\)ndPv  
                         J dM0f!3  
                        .Alignment = wdAlignParagraphCenter >1}@Q(n/}{  
                        .LeftIndent = 0 \,AE5hnO  
                        .RightIndent = 0 (# c|San  
                        .FirstLineIndent = 0 #n7F7X  
                        .LineSpacing = 12 Sx0/Dm  
                        .LineSpacingRule = wdLineSpaceExactly 2q NA\-0i>  
                        .LineUnitAfter = 0 `<Q[$z  
                        .LineUnitBefore = 0 y+aKk6(_W  
                        .OutlineLevel = wdOutlineLevelBodyText ^ Fnag]qQ  
                        .PageBreakBefore = False O"GuVC}B  
                        .RightIndent = 0 ~Ydm"G  
                        .WordWrap = True YYN'LF#j  
                        .LineUnitAfter = 0.5 :MP*Xy\7&J  
                         %lnVzGP  
                    End With :R{pV7<O  
                Case Else l(y,lK=YP1  
                    '不作处理 8.!+Hm4  
            End Select 83adnm  
             V0<g$,W=  
            '含有inlineshape的段落处理 /h7u E  
            If ShapeHeight > 30 Then :R-_EY$k6  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 ;e"dxAUe!^  
            End If `0_,>Z  
             {>3J96  
            If (ShapeWidth + ShapeHeight) > 150 Then 0H +!v  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" 5|jsv)M+  
            End If eJ%b"H!  
             >T#" Im-  
            '段落计数器递 = yFOH~_  
            paraCounter = paraCounter + 1 q^DQ9B  
            Me.lbCounter.Caption = "当前检测段落:" & paraCounter Vb8Qh601  
            Me.txtStatus.Text = ParaText FN w0x6,~R  
            DoEvents N>H#Ew@2U  
        Loop E !9(6G4  
    End With |@1M'  
     P;G]qV%  
    msg = "" ~n~j2OE  
     YNB7`:  
    For i = 0 To Me.ErrMsg.ListCount - 1 U2Tw_  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) !(F?Np Am  
    Next S\SYFXUl  
     3&!v"ms  
     l;SXR <EU  
     k%TBpG:T  
    Me.txtStatus.Text = "格式化完成!" & vbCrLf & "开始时间:" & tm1 & vbCrLf & "结束时间:" & Now & vbCrLf & msg I/*^s  
    Me.cmdCheck.Enabled = True 3xz|d`A  
    Me.txtStatus.Visible = True _ P` ^B  
    Me.lbParaType.Visible = False ~>#?.f  
     b8 E{~z  
    bContinue = False 2lCgUe) N  
End Sub x[y}{T  
b['v0x  
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) G=F_{z\}  
    Dim pTEXT As String fm^J-  
     vdcPpj^d5  
    pTEXT = ChKRange.Text L)n_  Q  
     8 :;]tt  
    ParaType = "其它" VaW^;d#  
    TitleString = pTEXT ``-pjD(t  
    TitleNo = "N/A" bt};Pn{3  
     Sy/Z}H  
    shpCounter = ChKRange.InlineShapes.Count A"O\u=!  
    If shpCounter <> 0 Then ICEyz| C  
        MaxShpHeight = 0: TotalShpWidth = 0 ? *v*fs0  
        For i = 1 To shpCounter OQIr"  
            k = ChKRange.InlineShapes(i).Height ^;9<7 h[l  
            l = ChKRange.InlineShapes(i).Width +MqJJuWB  
            If k > MaxShpHeight Then %g~&$oZmq  
                MaxShpHeight = k p'0X>>$  
            End If jqj4(J@%yr  
            TotalShpWidth = TotalShpWidth + l 2 :4o`o  
        Next ([dwZ6$/J  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then :Xs4C%H;  
            Exit Sub  I.'/!11>  
        End If AQ?;UDqU  
    End If AtUtE#K  
     m1e Sn |)7  
    '空行 f5Hv![x  
    If Len(pTEXT) <= 2 Then o-o -'0l  
        Exit Sub gN2oUbf8  
    End If Q;s {M{u  
     gZ| !'  
         H _JE)a:+  
    '是否为表格中的文字 73_=CP" t  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then XtQwLH+F  
        ParaType = "表格内容" ck b(+*+l  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) ~z\a:+  
        If k = 1 Then ~.4y* &  
            ParaType = "表格首行" #+N_wIP4  
        End If {r~=mQ  
        Exit Sub }U(bMo@;  
    End If njZJp|y6  
     Na4O( d`  
    '例外情况:脚注 }4T`)  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then 0CvGpM,  
        ParaType = "脚注" '1rGsfp6In  
        Exit Sub WD_{bd)  
    End If 9q+W>wt  
     (< >Lfn  
    '例外情况:尾注 |~ytAyw  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then rvU^W+ d  
        ParaType = "尾注" Zd'Yu{<_2N  
        Exit Sub ts% n tnvI  
    End If w59q* 2  
     O+|ipw*B%  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then m] yUcj{F  
        ParaType = "页眉页脚" 764eXh  
        Exit Sub -G~/ GO  
    End If ZXN`8!]&  
     6<9}>Wkf  
     D@O5Gd  
    With regEX ^s #+`Y05/  
        .Global = True  ^We}i  
         5 NC77}^.  
        .Pattern = "^第([1-9]|1|2|3|4|5|6|7|8|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|.)+(.{1,30})$" 6oq5CDoq  
        If regEX.Test(pTEXT) Then 3 l}9'j  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") eso-{W,D  
            TitleString = regEX.Replace(pTEXT, "$3") m[%':^vSr  
            TitleNo = regEX.Replace(pTEXT, "$1") M~7Cb>%<  
            ParaType = "章" 7n o6  
            Exit Sub mK/E1a)AG3  
        End If  "UreV  
         d!46`b$rd  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|.)+(.{1,40})$"  iDx(qdla  
        If regEX.Test(pTEXT) Then KLW>O_+   
            ParaType = "一级标题" Y<jX[ET!  
            regEX.Execute (pTEXT) <CB%e!~.9  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") vS"h`pL  
            TitleString = regEX.Replace(pTEXT, "$3") Ir-QD !!<  
            TitleNo = regEX.Replace(pTEXT, "$1") +'Y?K]zbt  
            Exit Sub =1k%T{>  
        End If S?6 -I,]h  
         5rfDm  
        '全角或半角括号中的数字 j{'_sI{{  
        .Pattern = "(^\(|()(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|))(、|\.|\s|。|.)*(.{1,40})$" Q@W!6]*\  
        If regEX.Test(pTEXT) Then -L4G)%L\  
            ParaType = "二级标题" lo1bj*Y2  
            regEX.Execute (pTEXT) 6.a5%:  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") LEOri=?RF  
            TitleString = regEX.Replace(pTEXT, "$5") pY[b[ezb  
            TitleNo = regEX.Replace(pTEXT, "$2") (7N!Jvg9  
            Exit Sub }& W=  
        End If a6gPJF[Jo  
         >tPf.xI|l  
        '阿拉伯数字  1. 2. 4JU 2x  
        .Pattern = "^([1-9]|1|2|3|4|5|6|7|8|9|0){1,2}(、|\.|\s|。|.)+(.{1,80})$" ce#Iu#qT  
        If regEX.Test(pTEXT) Then .vctuy&  
            ParaType = "三级标题" *>"NUHq  
            regEX.Execute (pTEXT) .zl[nx[9"D  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换,如需要可分成两步分别检测 mr/?w0(C  
            TitleString = regEX.Replace(pTEXT, "$3") *]; QPi~  
            TitleNo = regEX.Replace(pTEXT, "$1") zy%0;%  
            Exit Sub " dGN0i  
        End If pg!MtuC}  
         {* :^K\-  
        '全角或半角括号中的阿拉伯数字 mQ<4(qd)  
        .Pattern = "^(^\(|()([0-9]|0|1|2|3|4|5|6|7|8|9){1,2}(\)|))(、|\.|\s|。|.)*(.{1,80})$" AE+BrN +"2  
        If regEX.Test(pTEXT) Then 0g6sGz=  
            ParaType = "四级标题" xMNQT.A  
            regEX.Execute (pTEXT) XI |k,Ko<  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") }!{R;,5/n  
            TitleString = regEX.Replace(pTEXT, "$5") Dn@ZS_f  
            TitleNo = regEX.Replace(pTEXT, "$2") { ]cr.y]\  
            Exit Sub n$XEazUb0N  
        End If =+UtA f<n  
         G3`9'-2q@c  
        '表格名称 +Adk1N8  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|.|\s]{1,9})(.{1,120})$" pdR\Ne0P*  
        If regEX.Test(pTEXT) Then x /CM)!U)  
            ParaType = "表格标题" @C!&lrf3  
            regEX.Execute (pTEXT) N Uv Vhy]{  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) 6Q\|8a  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) 7y3WV95Z\  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) _WvVF*Q"k  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么,但是发现传回的replacetext在修改Paragraph对象的Range.Text后,表格标题就会落入第一个单元格中,所以,只能用Paragraph.Range.Find.Execute方法替换 4`)r1D!U  
            Exit Sub BgD3P.;[  
        End If maDWV&Db  
         \b%c_e  
        '图片名称 -.y1] 4  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|.)+(.{1,120})$" mj?Gc  
        If regEX.Test(pTEXT) Then y2#"\5dC  
            ParaType = "图片标题" SD: D8"8  
            regEX.Execute (pTEXT) |1tpXpe  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") d/jP2uu A  
            TitleString = regEX.Replace(pTEXT, "$3") kW2DKr-[  
            TitleNo = regEX.Replace(pTEXT, "$1") -b{<VrZ  
            Exit Sub tc/  
        End If -)^vO*b 0  
         W7'<Jom|?  
        '参考文献 ]Ml  
        .Pattern = "^([\[|[])(\d+)([]|\]])([、|\.|\s|。|.]{0,1})"  '[数字]、 #;~HoOK*#  
        If regEX.Test(pTEXT) Then +p6 3J  
            ParaType = "文献条目" pDYJLh-C  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") EPH n"YK  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") }eW<P079  
            Exit Sub _Y ;tD  
        End If OJ"./* H  
         Z1I.f"XY  
        prfx = Left(pTEXT, 2) +v 3: \#  
        If prfx = "注:" Or prfx = "注:" Then 7l$ u.[  
            ParaType = "图表注解" ^+CWo@.  
            Exit Sub LEeA ,Y  
        End If >qOG^{&x  
         Pzq^x]  
         d5>&, {o7N  
        ParaType = "正文" qEXN} Pq<  
         j`"!G*Vh  
    End With 8#lq:  
End Sub M_Ag *?2I  
8C8S) ;  
Sub ConvertListToOrdinary() m7y[Y  
    Dim st As Paragraph PuREqa\_[  
    With ActiveDocument =]-z?O6^`  
        For i = .Paragraphs.Count To 1 Step -1 GC7WRA  
            Set st = .Paragraphs(i) lct  
            lst = st.Range.ListFormat.ListString A-:k4] {%P  
            If lst <> "" Then ZLxa|R7  
                st.Range.ListFormat.RemoveNumbers yU&;\'  
                st.Range.InsertBefore lst & " " 7 s{vou  
            End If KUYwc@si\  
        Next ~tt\^:\3~S  
    End With CEI"p2  
    Set st = Nothing ` 6*]cn#(  
End Sub %Z<{CV  
p&x!m}!  
Private Sub UserForm_Activate() ]vB\yQ E  
    Me.lbTotal.Caption = "当前文章段落总数:" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" aQ $sn<-l  
    Me.lbTotal.Font.Bold = True =?0v,;F9|  
    Me.txtStatus.Visible = False I=#`8deH(  
    Me.cmdCheck.Enabled = True BCe'J!  
R'`'q1=R  
End Sub NJ.oME@=  
+|d]\WlJ  
c QuL9Xo  
Sub CheckSuperScript() Lo_+W1+  
    Selection.Find.ClearFormatting qe#5;#  
    Selection.Find.Replacement.ClearFormatting xl`AiO `K  
    With Selection.Find RC[Sa wA  
        .Text = "[【\[[〖](*)[】\]〗]]" bY.VNA  
        .Replacement.Text = "[\1]" {icTfPR4E  
        .Replacement.Font.Superscript = True wpYk `L r  
        '.Replacement.Font.Color = wdColorBlue GW'v\O  
        .Forward = True ,>rvl P  
        .Wrap = wdFindContinue 5N $XY@  
        .FORMAT = True G\BZ^SwE  
        .MatchCase = False O+|C<;K  
        .MatchWholeWord = False ih/E,B"  
        .MatchByte = False J_Tz\bZ3)  
        .MatchAllWordForms = False Pb>/b\&JS  
        .MatchSoundsLike = False pXl[I;  
        .MatchWildcards = True 3p&T?E%  
    End With 6];3h>c]N  
    Selection.Find.Execute Replace:=wdReplaceAll 0y,w\'j  
End Sub Z3hZy&_I  
3sdL\  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 3k9n*jY0  
    bContinue = False YmaS,Q-  
    Set regEX = Nothing y)&K9 I  
End Sub rkR5>S( 2M  
Rr %x;-  
Sub CeateOrModifyStyle() C 5gdvJN  
' i(;`x  
' O 1z0 dHa  
Dim stl As Style YIg43Av  
     96<oX:#  
    Options.Pagination = False z/xPI)R[  
     PBb&.<   
    On Error Resume Next u-,}ug|  
    For Each stl In ActiveDocument.Styles M yHv>  
        stl.Delete "E\mj'k  
    Next D)ri_w!Q  
    On Error GoTo 0 f\dfKNm6  
     $Q8 &TM}E  
    Set stl = Nothing [Cv./hEQi  
     v;e8W9M  
    DoEvents <C&|8@A0  
    On Error Resume Next =/46;844T  
     8!Wh`n<  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph =n"kgn  
     X2Z)> 10  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph Rv9jLH  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph }q@#M8b  
     NT*r7_e  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph E3O^Tg?j  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph 9;U? _   
     T2<%[AF0  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph ] 5S`y{j1  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph Y /_CPY  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph aim\ 3y~  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph XP?jsBE  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph Na/Y1RW  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph T8z?_ *k  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph }Cu[x'J  
     I_v}}h{  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph +m%%Bz>  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph Pn OWQ8=  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph B??07j  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph N7J?S~x  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph f; |fS~  
     $N)G:=M!s  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph {:uv}4Z  
    On Error GoTo 0 :}v-+eIQ  
    DoEvents kaekH*m~  
     rnj$u-8  
    'BaseStyle i>YQ<A1  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False IB[$~sGe  
    With ActiveDocument.Styles("BaseStyle").Font tj@ (0}pi4  
        .NameFarEast = "宋体" }psRgF  
        .NameAscii = "Times New Roman" 0dC5 -/+  
        .NameOther = "宋体" v>} +->f  
        .Size = 10.5 YP _L~zZ  
        .Bold = wdUndefined Blzvn19'h  
        .Italic = wdUndefined PmE)FthdP(  
        .Subscript = wdUndefined H/*ol^X7  
        .Subscript = wdUndefined vlbZ5  
         950N\Y @u  
        .Underline = wdUnderlineNone )/::i O&$:  
        .UnderlineColor = wdColorAutomatic 5 0N4J  
        .StrikeThrough = False #mu L-V  
        .DoubleStrikeThrough = False +,>%Yb =EA  
         :Fb>=e  
        .Outline = False ,<tJ` ,0X  
        .Emboss = False lfc&#G i3  
        .Shadow = False U*$P"sS`  
        .Hidden = False k(dakFaC^  
        .SmallCaps = False $C\ETQ@  
        .AllCaps = False Y)X7*iTi'j  
        .Color = wdColorAutomatic i)z|= |?  
        .Engrave = False dz9 U.:C  
        .Scaling = 100 H\ejW@< ;h  
        .Kerning = 1 X"r)zCP+t  
        .Animation = wdAnimationNone Z*co\ pW  
        .DisableCharacterSpaceGrid = False 8-nf4=ll  
        .EmphasisMark = wdEmphasisMarkNone ed p I?  
    End With NA vR^"I~  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat (4R(5t  
        .LeftIndent = 0 jn V=giBu  
        .RightIndent = 0 *tF~CG$r  
        .SpaceBefore = 0 ):! =XhQ  
        .SpaceBeforeAuto = False 32\.-v  
        .SpaceAfter = 0 v&YeQC>  
        .SpaceAfterAuto = False >J:=)1`  
         t Y  
        .LineSpacingRule = wdLineSpaceSingle 2P"9m  
        .Alignment = wdAlignParagraphJustify 1^WGJ"1  
         g;63$_<  
        .WidowControl = False tf~B,?  
        .KeepWithNext = False R}=5:)%w  
        .KeepTogether = False w I_@  
        .PageBreakBefore = False Kt_oo[ey{  
        .NoLineNumber = False p5fr}#en  
         mgjJNzclL  
        .FirstLineIndent = CentimetersToPoints(0) &*<27-x  
        .OutlineLevel = wdOutlineLevelBodyText C.92FiC  
        .CharacterUnitLeftIndent = 0 MJ)lZ!KZ  
        .CharacterUnitRightIndent = 0 ^r\ rpSN  
        .CharacterUnitFirstLineIndent = 0 #,d~t  
        .LineUnitBefore = 0 pd'0|  
        .LineUnitAfter = 0 sg $db62>  
        .AutoAdjustRightIndent = True {'O><4  
        .DisableLineHeightGrid = True a'i Q("  
         }UW7py!TN  
        .FarEastLineBreakControl = True $~G,T g  
        .WordWrap = True 0 jth} \9  
        .Hyphenation = False g^]Iw~T6$  
         njy2pDC@  
        .HangingPunctuation = True ]u_j6y!  
        .HalfWidthPunctuationOnTopOfLine = True V|MGG  
        .AddSpaceBetweenFarEastAndAlpha = True elCYH9W^  
        .AddSpaceBetweenFarEastAndDigit = True VyxYv-$Y  
        .BaseLineAlignment = wdBaselineAlignBaseline nTqU~'d'  
    End With ~ 1h#  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False s7 "xDDV  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll .c"nDCFVR  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese (G"'Fb6d  
    ActiveDocument.Styles("BaseStyle").NoProofing = False :]-oo*xP  
     9b+jT{Tg  
    '一级标题题样式 6^"QABc  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") -XV,r<''  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" dM -cQo:  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False 4!Js="  
    With ActiveDocument.Styles("QLNU一级标题").Font | ;tH?E  
        .NameFarEast = "黑体" .zO2g8(VR  
        .NameAscii = "Arial Black" r<+C,h;aww  
        .NameOther = "黑体" l/X_CM8y~  
        .Name = "黑体" X,|8Wpi=  
        .Size = 16              '三号 2!/Kt O)i^  
        .Bold = True lnZ{Ryo(  
        .Italic = wdUndefined YJ _eE  
        .Subscript = wdUndefined LlQsc{ Ddf  
        .Superscript = wdUndefined '8X>,un  
    End With YvU%OO-+,  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat 3^o(\=-JX  
         ~wb1sn3  
        .LeftIndent = CentimetersToPoints(0) p`Pa;=L  
        .RightIndent = CentimetersToPoints(0) fc9;ZX7  
        .FirstLineIndent = CentimetersToPoints(0) >j5\J_( ;D  
         Y_'ERq Q  
        .LineSpacingRule = wdLineSpaceSingle R{#< NE  
        .Alignment = wdAlignParagraphCenter +FT c/r  
         t/i I!}  
        .WidowControl = True 9*)&hhBs,  
        .KeepWithNext = True q3$8"Q^  
        .KeepTogether = True lYx_8x2  
        .OutlineLevel = wdOutlineLevelBodyText c|Ivet>3  
         03 @a G  
        .LineUnitBefore = 0.5 ;l@94 )@0  
        .LineUnitAfter = 0.5 `>:5[Y  
    End With h:%,>I%{  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False h&<"jCjL  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll e%\^V\L  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese 2zBk#c+  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True 9pp +<c  
    DoEvents ZLkl:'E_  
     2Xt4Rqk$  
    '二级 *r`=hNr  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 1X?ro;  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" OpU fK4U)  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False (u,)v_Oo]a  
    With ActiveDocument.Styles("QLNU二级标题").Font &K9;GZS?  
        .NameFarEast = "黑体" 0WUBj:@g  
        .NameAscii = "Arial Narrow" ?Z#N9Z~\  
        .NameOther = "黑体" _ .vG)  
        .Name = "黑体" B@,r8)D  
        .Size = 15        '小三号 !Z!)$3 bB  
        .Bold = False o^"+X7)  
        .Outline = False Ww]$zd-bo  
        .Italic = wdUndefined kt6x"'"1  
        .Subscript = wdUndefined -N45ni87  
        .Superscript = wdUndefined xE1?)  
    End With ]at$ohS  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat gmL~n7m:K  
        .LeftIndent = CentimetersToPoints(0) uk):z$ x  
        .RightIndent = CentimetersToPoints(0) a1cX+{W  
        .FirstLineIndent = CentimetersToPoints(0) fq7#rZCxX  
         +MoUh'/u  
        .LineSpacingRule = wdLineSpaceSingle CY1WT  
        .Alignment = wdAlignParagraphLeft hLO)-ueb  
         E=sh^Q(A  
        .WidowControl = True r6DLShP-Ur  
        .KeepWithNext = True R}&?9tVRR  
        .KeepTogether = True `fBQ?[05.  
        .PageBreakBefore = False !vSI"$xd  
        .OutlineLevel = wdOutlineLevelBodyText PF{uaKWk  
         o7) y~ ke  
        .LineUnitBefore = 0.5 s.2f'i+  
        .LineUnitAfter = 0.5 \QvGkcDc{  
         -H-U8/WC  
    End With ]EiM~n  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False )pWgt5:7~  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll hg)Xr5>  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese X{-4w([  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True VdHT3r  
    DoEvents >ED;_L*_o  
     ; vH2r~  
    '三级标题样式 U%q)T61  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") C(N' =-;Kl  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" *QC6zJ  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False Y+?QHtZL  
    With ActiveDocument.Styles("QLNU三级标题").Font xVx s~p1  
        .NameFarEast = "宋体" "<CM 'R  
        .NameAscii = "Times New Roman" .a%6A#<X  
        .NameOther = "黑体" F]$ Nu  
        .Name = "黑体" clE9I<1v  
        .Size = 14               '四号 I5Vn#_q+b  
        .Bold = False &tyS6S+  
        .Outline = False (Z),gxt  
        .Italic = wdUndefined .p#kW:zspA  
        .Subscript = wdUndefined BhJ>G%  
        .Superscript = wdUndefined y~9wxK  
    End With c#OxI*,+/  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat )@g[aRFa  
        .LeftIndent = CentimetersToPoints(0) @kYY1mv;  
        .RightIndent = CentimetersToPoints(0) uJ% <+I  
        .FirstLineIndent = CentimetersToPoints(0) Y)rK'OY'  
         b fxE}>  
        .LineSpacingRule = wdLineSpaceSingle T Dh)}Ms  
        .Alignment = wdAlignParagraphLeft }LUvh  
         7)rQf{q7  
        .WidowControl = True q)q 3p  
        .KeepWithNext = True Fy=GU<&AI  
        .KeepTogether = True RNT9M:w  
        .PageBreakBefore = False F @ PPhzZ  
        .OutlineLevel = wdOutlineLevelBodyText N1t4o~  
         /vQ)$;xf#  
        .CharacterUnitLeftIndent = 0 _H+]G"k/r  
        .CharacterUnitRightIndent = 0 c2E /-n4K@  
        .CharacterUnitFirstLineIndent = 2 +b|F_  
         5aQ)qUgAW  
        .LineUnitBefore = 0.5 ;d?BVe?  
        .LineUnitAfter = 0 =M\yh,s!  
    End With 'P.y?  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False S:xXD^n#H  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll yzS]FwW7  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese BZeEZ2"  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True )PYPlSQ*V  
    DoEvents { *_Ln  
     s9?mX@>h  
    '四级标题样式 U2VEFm6  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") vt EfH  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" H=/1d.p  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False !sT>]e  
    With ActiveDocument.Styles("QLNU四级标题").Font '@n"'vks(\  
        .NameFarEast = "宋体" #7uH>\r  
        .NameAscii = "Times New Roman" N63?4'_W  
        .NameOther = "宋体" {wS i?;[Gq  
        .Name = "宋体" m<gdyY   
        .Size = 12               '小四号 N*IroT3  
        .Bold = True _J,**AZ~z  
        .Outline = False b_x!m{  
        .Italic = wdUndefined aBA oSn  
        .Subscript = wdUndefined $fb%?n{  
        .Superscript = wdUndefined TegdB|y7O  
    End With !wYN",R-  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat ]cRvdUGv  
         )."ob=m  
        .LeftIndent = CentimetersToPoints(0) CsR[@&n'  
        .RightIndent = CentimetersToPoints(0) ?^&ih:"  
        .FirstLineIndent = CentimetersToPoints(0) )vtbA=RH?  
         6uRE9h|  
        .LineSpacingRule = wdLineSpaceSingle g\aO::  
        .Alignment = wdAlignParagraphLeft yFE0a"0y  
         8lF9LZ8  
        .WidowControl = True N.|F8b]v  
        .KeepWithNext = True > X~\(|EM  
        .KeepTogether = True ;}B=g/C  
        .PageBreakBefore = False _}{KS, f]0  
        .OutlineLevel = wdOutlineLevelBodyText  5wK==hZ  
         a"(Ws]K  
        .CharacterUnitLeftIndent = 0 N_%@_$3G]  
        .CharacterUnitRightIndent = 0 z teu{0  
        .CharacterUnitFirstLineIndent = 2 _H| )g*]t  
         v^9eTeF O  
        .LineUnitBefore = 0 d6i}xnmC  
        .LineUnitAfter = 0 _/>ktYo:  
         6i/unwe!`)  
    End With c&c  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False rZUTBLZ`j  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll B:zx 9  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese re/-Yu$'  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True %`C e#b()'  
    DoEvents @rhS[^1wi+  
     @&*TGU  
    '正文校式 \' O/3Y7?X  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") 5gz^3R|`f  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" "im5Fn u  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False bJ2-lU% ;2  
    With ActiveDocument.Styles("QLNU正文").Font {|9knP  
         1j2U,_-  
        .NameFarEast = "宋体" 6~dAK3v5  
        .NameAscii = "Times New Roman" @]Q4K%1^"  
        .NameOther = "宋体" z%}"=  
        .Name = "宋体" ?q!4RE M  
         igu1s}F  
        .Size = 12               '小四号 m[%356u  
         ekx(i QA  
        .Bold = wdUndefined :!i=g+e]  
        .Italic = wdUndefined eD*764tG  
        .Subscript = wdUndefined -jj B2xP  
        .Superscript = wdUndefined eF3NyL(A  
         -@AhJY.  
        .Outline = False 5OdsT-y  
        .Emboss = False tB;PGk_6  
        .Shadow = False o[;P@F  
        .Hidden = False ruaZ(R[  
         XfcYcN  
        .DisableCharacterSpaceGrid = True C|y^{4 |R  
    End With H{cOkuy  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat AD   
         e1[ReZW  
        .LeftIndent = CentimetersToPoints(0) RE!WuLs0"  
        .RightIndent = CentimetersToPoints(0) N XB8u6  
        .FirstLineIndent = CentimetersToPoints(0) e N`+r  
         )Kx.v'  
        .LineSpacingRule = wdLineSpaceExactly 7FwtBO  
        .LineSpacing = 20 0Gu77&  
        .Alignment = wdAlignParagraphLeft {aE[h[=r  
         `0upm%A  
        .WidowControl = False UP#@gxF  
        .KeepWithNext = False fw %p_Cm  
        .KeepTogether = False Zbo4{.#  
        .PageBreakBefore = False shw?_#?1dy  
        .Hyphenation = False %DuPM6 6r  
         p5]W2i.,  
        .OutlineLevel = wdOutlineLevelBodyText 0A} X hX  
         l>*X+TpA,  
       2I:P}!  
        .CharacterUnitLeftIndent = 0 zlLZ8b+  
        .CharacterUnitRightIndent = 0 Od.@G~  
        .CharacterUnitFirstLineIndent = 2 U&"L9o`2  
         :$I "n\  
        .LineUnitBefore = 0 / `cy4<  
        .LineUnitAfter = 0 jTwSyW  
        .SpaceBefore = 0 F2 YBkwI  
        .SpaceAfter = 0 \J:+Wl.9A  
         W=Syo&;F8  
        .DisableLineHeightGrid = True 1c,#`\Iikd  
    End With 8wWp+Hk  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False cc${[yj)  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll MJX ny4n  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese - ~z@W3\  
    ActiveDocument.Styles("QLNU正文").NoProofing = True '@t,G,F J  
    DoEvents ?g1eW q&  
     .XgY&5Qk  
    '图片段落样式 _;}$/  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") s:{[Y7\?  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" :h@V,m Z  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False !>(uhuTBF  
    With ActiveDocument.Styles("QLNU图片段落").Font  W2` 3 p  
        .Size = 12               '小四号 >V.?XZ nt  
        .Italic = wdUndefined Q & /5B  
        .Subscript = wdUndefined 0d[O/Q`  
        .Superscript = wdUndefined <.`i,|?MHS  
    End With KXMf2)pa  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat I=DVMG|  
         J_F\cM   
        .LeftIndent = CentimetersToPoints(0) /CALX wL  
        .RightIndent = CentimetersToPoints(0) 1n8y4k)  
        .FirstLineIndent = CentimetersToPoints(0) #>yOp *  
         MTt8O+J?P~  
        .LineSpacingRule = wdLineSpaceSingle :%sG'_d  
        .Alignment = wdAlignParagraphCenter i~x]!!  
        .KeepWithNext = True J5a8U&A  
        .OutlineLevel = wdOutlineLevelBodyText k3&68 +  
         "1|g eO|  
        .CharacterUnitLeftIndent = 0 Jk{SlH3'  
        .CharacterUnitRightIndent = 0 c Lyf[z)W  
        .CharacterUnitFirstLineIndent = 0 H[w';u[%  
         km>ZhsqD  
        .LineUnitBefore = 0 D <~UaHfk  
        .LineUnitAfter = 0 ?z&n I#  
    End With )EMlGM'2q  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False M8lw; (  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll 4+8)0;<H  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese Dp ['U  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True l_k:O Z  
    DoEvents 7 \xCNOKh  
      LcLHX  
     Z6B$\Q5Od  
    '第X章 6O?zi|J[:  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") e&ti(Q=  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" ~v&Q\>'  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False [fCnq  
    With ActiveDocument.Styles("QLNU章节标题").Font 4UbqYl3 |a  
        .NameFarEast = "黑体" . LAB8bg  
        .NameAscii = "Arial Black" T Tbe{nb  
        .NameOther = "Arial Black" '(iPI  
        .Name = "黑体" _"*vj-{-y  
        .Size = 16 ](I||JJa9f  
        .Bold = True &SIf|IX.  
        .UnderlineColor = wdColorAutomatic 8Z}%,G*n  
        .Outline = False 7 @\i5  
        .Italic = wdUndefined M_0f{  
        .Subscript = wdUndefined uznqq}  
        .Superscript = wdUndefined o0AT&<K  
        .Scaling = 100 T T 3 6Y  
        .DisableCharacterSpaceGrid = True /y1+aTiJ  
    End With 86LE )z  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat Jd ` Qa+  
        .LineSpacingRule = wdLineSpaceSingle i^WY/ OhL  
        .Alignment = wdAlignParagraphCenter O<fy^[r:`  
        .WidowControl = True ( x% 4*  
        .KeepWithNext = True CeU= A9  
        .KeepTogether = True 1.%|Er 4  
        .PageBreakBefore = True x7B;\D#`i/  
        .OutlineLevel = wdOutlineLevelBodyText &y0GdzfQd  
         h5P ]`r  
        .LeftIndent = CentimetersToPoints(0) ;u`8pF!_eE  
        .RightIndent = CentimetersToPoints(0) 'Rnzu0<lF  
        .FirstLineIndent = CentimetersToPoints(0) ^coCsV^CW"  
         Bor_(eL^  
        .CharacterUnitLeftIndent = 0 L=54uCv Q  
        .CharacterUnitRightIndent = 0 )Q9Qo)D T  
        .CharacterUnitFirstLineIndent = 0 V+D<626o  
         #n&/v'!\  
        .LineUnitBefore = 1 o w(9dB&E  
        .LineUnitAfter = 0.5 L5UZ@R,  
         Z|KDi `S  
        .AutoAdjustRightIndent = False h@JX?LzZS  
        .DisableLineHeightGrid = True &qY]W=9uK  
        .FarEastLineBreakControl = True -[N 9"Z,  
        .WordWrap = True IqlCl>_j  
    End With {$t*XTY6R  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False ,J2qLH1  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll =XYc2. t  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese :~vg'v~C  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True "+2Cs  
    DoEvents cK[=IE5  
     yC ?p,Ci,  
    '表格标题 B0 A`@9  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") \v+>qY<q  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" V~jp  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False 6RIbsy  
    With ActiveDocument.Styles("QLNU表格标题").Font {1=|H$wKg  
        .NameFarEast = "楷体" Qu<6X@+5  
        .NameAscii = "Arial" oFp1QrI3k8  
        .Name = "楷体" O\uIIuy  
        .Size = 10.5 ;\|GU@K{hC  
        .Bold = True "Plo[E  
        .Underline = wdUnderlineNone $S>bcsAy  
        .Italic = wdUndefined 6wT ])84  
        .Subscript = wdUndefined nGX3_-U4  
        .Superscript = wdUndefined Z@Q/P(t  
        .Color = wdColorAutomatic lA4-ZQ2Zp[  
    End With  &I-T  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat ta5_k&3N  
         (z;lNl(*C  
        .LineSpacingRule = wdLineSpaceSingle =x?WZMO  
        .Alignment = wdAlignParagraphCenter y k!K 5  
        .KeepWithNext = True VJ h]j (  
        .KeepTogether = True m|B)A"Sm  
        .OutlineLevel = wdOutlineLevelBodyText Zs|Ga,T  
         bGB$a0  
        .LeftIndent = CentimetersToPoints(0) W4.w  
        .RightIndent = CentimetersToPoints(0) E"[p_ALdC  
        .FirstLineIndent = CentimetersToPoints(0) q'trd};xR  
         >+<b_q|P  
        .CharacterUnitLeftIndent = 0 AEM;ZQU  
        .CharacterUnitRightIndent = 0 |) cJ  
        .CharacterUnitFirstLineIndent = 0 ?=)lbSu K  
         Z[&FIG% tV  
        .LineUnitBefore = 1 W'Ew!]Q3  
        .LineUnitAfter = 0 `uLr^G=;  
         AJ}m2EH  
    End With PN99 R]K0g  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False tKyGD|g S  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll 6n]jx:CZ,  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese t+d7{&B  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True 22y SMtxn  
    DoEvents f.j<VKF}  
Fn k@)1  
    '表格首行 yX*$PNL5w  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") &2%| ?f|  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False (!b)<V*  
    With ActiveDocument.Styles("QLNU表格首行").Font 6.tA$#6HP  
        .NameFarEast = "楷体" 2oc18#iG (  
        .NameAscii = "Times New Roman" s% rmfIp"  
        .Name = "楷体" ;`x CfOY(  
        .Size = 9 L1+s0g>  
        .Bold = True Y6Y"fb%K  
        .Underline = wdUnderlineNone gT+wn-3  
        .Italic = wdUndefined bLWY Tj  
        .Subscript = wdUndefined y5c\\e  
        .Superscript = wdUndefined Yx,E5}-  
    End With G*_]Lz(N  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat hl0X, G+@  
        .LineSpacingRule = wdLineSpaceSingle G3y8M |:  
        .Alignment = wdAlignParagraphCenter t@R n#(~"  
         uDJ;GD[yc  
        .LeftIndent = CentimetersToPoints(0) Q3hSWXq'  
        .RightIndent = CentimetersToPoints(0) A#K<5%U{Mv  
        .FirstLineIndent = CentimetersToPoints(0) 6d5J*y2  
         OpazWcMoo  
         og8hc~:ro  
        .CharacterUnitLeftIndent = -0.5 kWa5=BW2f  
        .CharacterUnitRightIndent = -0.5 *MlEfmB(  
        .CharacterUnitFirstLineIndent = -0.5 :B=Gb8?  
         du'`&{_/  
        .LineUnitBefore = 0 e*`ht+  
        .LineUnitAfter = 0 'y>Y*/  
        .SpaceBefore = 0 D=%1?8K  
        .SpaceAfter = 0 Is6}VLbB  
         WqM| nX  
    End With ]Ue aXwaU  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False S W6oaa81  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll cGm?F,/`  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese teb(gUy}L6  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True aeNbZpFQ  
    DoEvents 7jxx,#I:  
%=*|: v  
    '表格内容 o+8H:7,o'  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") 9D `K#3}  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False 9fs-|E[5  
    With ActiveDocument.Styles("QLNU表格内容").Font PP\ bDEPy  
        .NameFarEast = "楷体" SAitufS  
        .NameAscii = "Times New Roman" 7l/ZRz }1  
        .Name = "楷体" +-),E.  
        .Size = 9 zp:QcL"  
        .Bold = False Ad,n+%"e  
        .Underline = wdUnderlineNone Wj!+ E{y<r  
        .Italic = wdUndefined :81d~f7  
        .Subscript = wdUndefined s8's(*]  
        .Superscript = wdUndefined A4rMJ+!5  
    End With mA.,.<xE@  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat Y j bp:  
        .LineSpacingRule = wdLineSpaceSingle DC/Czkv9  
        .Alignment = wdAlignParagraphCenter 1_!?wMo:f  
         w\D !e  
        .LeftIndent = CentimetersToPoints(0) qe(gKKA%q  
        .RightIndent = CentimetersToPoints(0) dg~lz80  
        .FirstLineIndent = CentimetersToPoints(0) \K"7U  
         iO Z#}"  
        .CharacterUnitLeftIndent = -0.5 I0H]s/*C%9  
        .CharacterUnitRightIndent = -0.5 +w.$"dF!  
        .CharacterUnitFirstLineIndent = -0.5 \`z%5/@f;  
        .LineUnitBefore = 0 6&;GC<].(y  
        .LineUnitAfter = 0 }%PK %/ zI  
        .SpaceBefore = 0 | @ ut/  
        .SpaceAfter = 0 21Dc.t{  
    End With >l%8d'=Jl  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False fwA8=o SZd  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll <%d !Sk4  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese ?M|1'`!c8  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True opm_ |0  
    DoEvents 7q;`~tbC  
W,H8B%e  
    '图片标题 k{vbi-^6rf  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ^$% Sg//  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" 2ry@<88  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False g-UCvY I  
    With ActiveDocument.Styles("QLNU图片标题").Font <b *sn] l  
        .NameFarEast = "楷体" i\^4EQ  
        .NameAscii = "Times New Roman" /W*Z.  
        .Name = "楷体" <)!,$]S  
        .Size = 10.5 k]$oir  
        .Bold = True {K"hlu[  
        .Underline = wdUnderlineNone +C~d;p  
        .Italic = wdUndefined a:l-cZ/!  
        .Subscript = wdUndefined [[^95:  
        .Superscript = wdUndefined G{4s~Pco[Q  
        .Outline = False Wq+GlB*  
        .Shadow = False ,YvOk|@R  
        .Color = wdColorAutomatic `) cH(Rj  
    End With b+:J?MR;}  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat LWTPNp:"{w  
        .LineSpacingRule = wdLineSpaceSingle >"=DN5w ,S  
        .Alignment = wdAlignParagraphCenter pZ \7!rON  
         flC%<V%'-  
        .KeepWithNext = wdUndefined Ng !d6]  
        .KeepTogether = True R)*DkL!  
        .OutlineLevel = wdOutlineLevelBodyText y9d"sqyh  
         V7nOT*N:Q  
        .LeftIndent = CentimetersToPoints(0) E X'PRNB,  
        .RightIndent = CentimetersToPoints(0) (57!{ [J  
        .FirstLineIndent = CentimetersToPoints(0) NZ i3U  
         ! #! MTk  
        .CharacterUnitLeftIndent = 0 j-R*!i  
        .CharacterUnitRightIndent = 0 ,e9M%VIu6[  
        .CharacterUnitFirstLineIndent = 0 |BZrV3;H  
          3TCRCz  
        .LineUnitBefore = 0 2'-"&d+ O  
        .LineUnitAfter = 0 !dGu0wE  
    End With >l AtfN='  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False u<cnz% @  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll ihwJBN>(  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese TvDC4tm-:  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True [(3s5)O  
    DoEvents KgkRs?'z  
^Z;zA@[wt  
    '目录项 {]}94T~/k  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") %>=6v} f,+  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" QM 3DB  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False 9NU0K2S  
    With ActiveDocument.Styles("QLNU目录项").Font #>bj6<  
        .NameFarEast = "黑体" _9 '_w&  
        .NameAscii = "Times New Roman" /u.Zv Y3,  
        .NameOther = "Times New Roman" TbNH{w|p  
        .Name = "黑体" EZ|v,1`e  
        .Size = 10.5 X|Y(*$?D7  
        .Bold = False ;9h;oB@  
        .Italic = wdUndefined LOi}\O8  
        .Underline = wdUnderlineNone hPNMp@Nm6  
        .Color = wdColorAutomatic 8aWEl%  
        .Superscript = wdUndefined I-r+1gty  
        .Subscript = wdUndefined w5%i  
    End With lTq"j?#E]m  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat (oX!D(OI  
         Q*%}w_D6f  
        .LineSpacingRule = wdLineSpaceSingle /QyKXg6)l  
        .Alignment = wdAlignParagraphLeft njX$?V   
         egG<"e*W}N  
        .WidowControl = False /<8y>  
        .KeepWithNext = False EI 35&7(  
        .KeepTogether = False HLwMo&*rA  
        .PageBreakBefore = False #L+:MA7H  
        .NoLineNumber = False xIa7F$R 0  
        .OutlineLevel = wdOutlineLevelBodyText lD3nz<p  
         r <5}& B`  
        .LeftIndent = CentimetersToPoints(0) jci,]*X4  
        .RightIndent = CentimetersToPoints(0) 7>j~;p{  
        .FirstLineIndent = CentimetersToPoints(0) 9!uiQ  
         ^O+(eA7E  
        .CharacterUnitLeftIndent = 0 PgK7CG7G  
        .CharacterUnitRightIndent = 0 JL1A3G  
        .CharacterUnitFirstLineIndent = 0 ;T WLo_  
         ?hkOL$v<9}  
        .LineUnitBefore = 0 yTd8)zWq  
        .LineUnitAfter = 0 ]'(D*4  
    End With /o m++DxV  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False W!? h2[  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll _,T 4DS6  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot &LAXNk2  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese A)C)5W  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True %Rn*oV  
    DoEvents zX&SnT1~  
     / }$n_N\!)  
    '参考文献 m!%aB{e  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") (V jU,'h  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" )'U0n`=  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False 6u+aP  
    With ActiveDocument.Styles("QLNU参考文献").Font w90YlWS#  
        .NameFarEast = "宋体" ]1< GZ`  
        .NameAscii = "Times New Roman" kc^,V|Nbq6  
        .NameOther = "Times New Roman" oXnaL)Rk  
        .Name = "Times New Roman" 0(eaVi-%D  
        .Size = 12 i I IXv  
        .Bold = False f2;.He  
        .Italic = wdUndefined 7:<w)Al!  
        .Subscript = wdUndefined w(6n  
        .Superscript = wdUndefined 8;DDCop 8L  
        .Underline = wdUnderlineNone l^Rb%?4Z  
        .UnderlineColor = wdColorAutomatic k[ro[E  
        .Color = wdColorAutomatic s||" } l  
        .Engrave = False A'KH_])  
    End With TMj;NS c3  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat W/ Q*NB  
         _/I">/ivlM  
        .LineSpacingRule = wdLineSpaceExactly gk%@& TB/  
        .LineSpacing = 16 6qH0]7maI  
        .Alignment = wdAlignParagraphLeft {k) gDJU  
        .WidowControl = False |M?vFF]TN  
        .KeepWithNext = False 'q)g, 2B%  
        .KeepTogether = False .N qXdari  
        .PageBreakBefore = False :HO5 T  
        .OutlineLevel = wdOutlineLevelBodyText [ncK+rGAc  
         &2`p#riAS  
        .LeftIndent = CentimetersToPoints(0) Fa )QDBz)  
        .RightIndent = CentimetersToPoints(0) LjBIRV7  
        .FirstLineIndent = CentimetersToPoints(0) /qX?ca1_4^  
         -U=Ci  
        .CharacterUnitLeftIndent = 0 3J+2#ML  
        .CharacterUnitRightIndent = 0 yk`qF'4]  
        .CharacterUnitFirstLineIndent = -2 _rwJ: r  
         >SK:b/i  
        .LineUnitBefore = 0 Y/FPkH4  
        .LineUnitAfter = 0 ;Nj9,Va(t  
        .SpaceBefore = 0 +1y$#~dl  
        .SpaceAfter = 0 8 XB[CbO  
         kJ_8|  
    End With t+8e ?="  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False VX$WL"A  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll V9<`?[Usv  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS Zj_2>A  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True 3O/#^~\'hW  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese @m#OhERv  
    DoEvents 'f-r 6'_ZX  
y'K2#Y~1e  
    ' 3OZPy|".ax  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") fu^W# "{  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" !,m  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False cl%+m  
    With ActiveDocument.Styles("QLNU论文题目").Font ;2<5^hgk  
        .NameFarEast = "黑体" x)~i`$  
        .NameAscii = "Arial Black" IA@>'O  
        .NameOther = "Arial Black" ;KlYiu  
        .Name = "Arial Black" wu)+n\mt'  
        .Size = 16 m$W >~  
        .Bold = False ;XurH%Mg  
        .Italic = wdUndefined wfmM`4Y   
        .Superscript = wdUndefined v4n< G-  
        .Subscript = wdUndefined sCFxn  
        .Underline = wdUnderlineNone 4KM-$h,4O  
        .UnderlineColor = wdColorAutomatic XVN`J]XHk  
        .Color = wdColorAutomatic \#_ymM0  
{rUg,y{v  
    End With P0n1I7|  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat QJVbt  
        .LineSpacingRule = wdLineSpaceSingle @&ZQDi  
        .Alignment = wdAlignParagraphCenter i7Up AHd/  
        .WidowControl = True %tyo(HZQ  
        .KeepWithNext = True p%3z*2,(  
        .KeepTogether = True y QW7ng7D0  
        .PageBreakBefore = True }4A] x`3  
        .NoLineNumber = False `5IrV&a  
        .OutlineLevel = wdOutlineLevelBodyText "o&8\KSs  
         V95o(c.p  
        .LeftIndent = CentimetersToPoints(0) OM*c7&  
        .RightIndent = CentimetersToPoints(0) nF,F#V8l  
        .FirstLineIndent = CentimetersToPoints(0) CF '&Yo  
         SMX]JZmH  
        .CharacterUnitLeftIndent = 0 ^viabkf C  
        .CharacterUnitRightIndent = 0 -fq  
        .CharacterUnitFirstLineIndent = 0 Q\N*)&Sd<M  
         &J>e; X  
        .LineUnitBefore = 1 ITn%  
        .LineUnitAfter = 1 ?RsrY4P  
         I,{YxY[$7  
        .BaseLineAlignment = wdBaselineAlignAuto ec&/a2M  
    End With 4 o*i(W  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False !bE-&c  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll @Vre)OrN#  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS vk92j?  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True QrYF Lh  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese %f;dn<m=c  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True l-+=Yk!X  
    DoEvents }5;4'l8  
     C`[<6>&y  
    '中文摘要 x}+zhRJ  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") 8=`L#FkRp  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" ,CfslhO{j  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False }KI/fh  
    With ActiveDocument.Styles("QLNU中文摘要").Font 51jgx,-|$  
        .NameFarEast = "宋体" r/j:A#6M]o  
        .NameAscii = "Times New Roman" s?w2^<P  
        .NameOther = "Times New Roman" X4 Arn,  
        .Name = "Times New Roman" gM&IV{k3  
        .Size = 12 QqA=QTZ}  
        .Bold = wdUndefined vYed_'_  
        .Superscript = wdUndefined (~GQncqa  
        .Subscript = wdUndefined lP F326e  
        .Italic = wdUndefined hmu>s'  
        .Underline = wdUnderlineNone =-h^j  
        .UnderlineColor = wdColorAutomatic 1RRE{]2v#  
        .Color = wdColorAutomatic &lQ%;)'  
    End With Ie.*x'b?y  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat y{%0[x*N<m  
        .LineSpacingRule = wdLineSpaceExactly y[8;mCh  
        .LineSpacing = 20 nkW})Ly B\  
        .Alignment = wdAlignParagraphLeft O3} JOv_  
         J}#gTG( '  
        .WidowControl = False (pxH<k=Ah  
        .KeepWithNext = False x b,XI/  
        .KeepTogether = True Eomfa:WL  
        .PageBreakBefore = False QyD0WC}i  
        .NoLineNumber = False )+G"57p  
        .OutlineLevel = wdOutlineLevelBodyText {&=+lr_h?  
         xZ'fer`&  
        .LeftIndent = CentimetersToPoints(0) Q(bOar5  
        .RightIndent = CentimetersToPoints(0) &k:xr,N=  
        .FirstLineIndent = CentimetersToPoints(0) ytZo0pad  
         eZ$7VWG#  
        .CharacterUnitLeftIndent = 0 !g@K y$  
        .CharacterUnitRightIndent = 0 oac)na:O#  
        .CharacterUnitFirstLineIndent = 2 o,6t: ?Z  
        .LineUnitBefore = 0 YOl$sgg}  
        .LineUnitAfter = 0 n i#jAwkN5  
         gP2zDI   
    End With .-d' *$ yJ  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False h?mDtMCw2  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll vK',!1]y  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS uX_H;,n  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True I/O3OD  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese +A| Bc~2!  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True [,o:nry'a  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete im<bo Mv  
    DoEvents Q{l,4P  
     =;Gq:mHi  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") %{u@{uG0'3  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" XF!L.'zH  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False n{tc{LII/  
    With ActiveDocument.Styles("QLNU英文标题").Font  /8x';hQ  
        .NameFarEast = "黑体" ^A$=6=CX  
        .NameAscii = "Arial Narrow" A)f-r  
        .Name = "Arial Narrow" !eW1d0n'+f  
        .Size = 16 VOEV[?>ss  
        .Bold = True +fP.Ewi  
        .Bold = wdUndefined u]yy%@U1  
        .Superscript = wdUndefined Bs"D<r&ro  
        .Subscript = wdUndefined fVbjU1N  
        .Italic = wdUndefined (dy(.4W\  
         #Rw!a#CX.  
        .Underline = wdUnderlineNone ]auvtm- [  
        .UnderlineColor = wdColorAutomatic jI ol`WX  
        .StrikeThrough = False K10G+'H^  
        .DoubleStrikeThrough = False fAs b:P  
    End With a(gXvgrf[  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat =zkN 63S  
        .LineSpacingRule = wdLineSpaceSingle J @Hg7Faz  
        .Alignment = wdAlignParagraphCenter c1#0o) q*7  
        .WidowControl = True GX>8B:]o|  
        .KeepWithNext = False 9@ k8$@  
        .KeepTogether = False nK>CPqB^(  
        .PageBreakBefore = False # T=iS(i  
        .NoLineNumber = False lL D#|T3  
        .FirstLineIndent = CentimetersToPoints(0) g ) Lf^  
        .OutlineLevel = wdOutlineLevelBodyText J p'^!  
         mY"7/dw<v  
        .LeftIndent = CentimetersToPoints(0) O ~3 A>j  
        .RightIndent = CentimetersToPoints(0) &<A,\ M  
        .FirstLineIndent = CentimetersToPoints(0) 6TP /0o)  
         L;Ff(0x|  
        .CharacterUnitLeftIndent = 0 y )QLR<wf  
        .CharacterUnitRightIndent = 0 h^ Wb<O`S  
        .CharacterUnitFirstLineIndent = 0 nu0pzq\6  
         "#1\uoH  
        .LineUnitBefore = 1 )bUnk +_  
        .LineUnitAfter = 1 z`{sD]  
         giakEPl  
    End With ={g)[:(C.  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False l6  G6H$  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll )w7vE\n3  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS UB$}`39@  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True @8L5 UT  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese -xn-A f!v  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True O_FB^BB  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete j4$nr=d.6  
    DoEvents $vs],C"pX  
IMf|/a9-  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") GA^hev  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" %_(vSpk  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False %U\,IO`g  
    With ActiveDocument.Styles("QLNU英文摘要").Font ^^a6 (b  
        .NameFarEast = "宋体" 6jq*lnA%  
        .NameAscii = "Arial" 3&hR#;,"X  
        .NameOther = "Arial" hA7=:LG  
        .Name = "Arial" ^ZwZze:2  
        .Size = 12 p<5]QV7st  
        .Bold = wdUndefined \+ se%O  
        .Italic = wdUndefined V*vQNPe y  
        .Superscript = wdUndefined / Hr|u  
        .Subscript = wdUndefined x[0T$  
    End With 3#7V1  
     uo"<}>iJ  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat qG9a!sj   
         nBy-/BU&  
        .LineSpacingRule = wdLineSpaceExactly 7^gO>2~  
        .LineSpacing = 20 y;b#qUd5a  
         )U&9d  
        .Alignment = wdAlignParagraphJustify hb`9Vn\ -E  
         AyE*1 FD  
        .WidowControl = False |E8sw a  
        .KeepWithNext = False Z@bgJL8 3  
        .KeepTogether = False [\8rh^LFi  
        .PageBreakBefore = False Ac:`xk<  
        .NoLineNumber = False JRl=j2z  
         L!}!k N:?  
        .OutlineLevel = wdOutlineLevelBodyText ]A5F}wV4  
         \c_g9Iqa  
        .LeftIndent = CentimetersToPoints(0) CI W4E  
        .RightIndent = CentimetersToPoints(0) 6. @.k  
        .FirstLineIndent = CentimetersToPoints(0) Nq8ON!<<  
         20c5U%  
        .CharacterUnitLeftIndent = 0 F 9%_@n  
        .CharacterUnitRightIndent = 0 |AYii-g  
        .CharacterUnitFirstLineIndent = 2 vjEDd`jYZ  
         v;,W ^#`  
        .LineUnitBefore = 0 =H{<}>W'  
        .LineUnitAfter = 1 K=gg<E<  
         m?e/MQr  
    End With R@c])\^]  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False f_~T  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll s)-An( Uw  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS TU|#Pz7n-Z  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False "w caJ;Os  
    DoEvents S?688  
f_c\uN@f  
    Options.Pagination = True 8zK#./0\  
    Me.txtStatus.Text = "样式修改完成,重新进行分页,请稍候....." U0&myj 8L  
    DoEvents %1?t)Bg  
    ActiveDocument.Repaginate VVJ0?G (?  
%' DO FiU  
End Sub CFpBosoFt^  
,=)DykP  
iOiF kka  
杺栫杣杊椌柮栬,䒴蓉艿芖。
伍胥之 离线
级别: 军区司令员

显示用户信息 
101楼  发表于: 2024-12-28   
姐妹儿,你也快RETIRED 了, 你欠得帐我可记得呢! 你该单独开帖填坑了。 }3lG'Y#Kpy  
3@~a)E}T  
引用
引用第20楼newport93于06-14-2010 13:47发表的  : 6,q0F*q  
@`[e1KQ  
老五,I 服了U。 N@thewt|  
+$C9@CZM9  
哪一天等俺退休了,也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 v!I z&M:z  
]xRR/S4  
杺栫杣杊椌柮栬,䒴蓉艿芖。
描述
快速回复

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