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

显示用户信息 
100楼  发表于: 2021-07-18   
Dim bContinue As Boolean Lc#GBaJ  
nZ'-3  
Dim regEX As New RegExp ;=p3L<~c`K  
Dim paraCounter As Long  '全局段落计数,仅在主程序中可读写,其它过程函数应为只读 0,/I2!dF?  
=%ok:+D]  
Dim LastTitle0String As String, LastTitle0No As Long $*Kr4vh  
Dim LastTitle1String As String, LastTitle1No As Long 85T"( HhT  
Dim LastTitle2String As String, LastTitle2No As Long @PT([1C  
Dim LastTitle3String As String, LastTitle3No As Long `y|_hb  
Dim LastTitle4String As String, LastTitle4No As Long OUk"aAo  
Dim LastTitle5String As String, LastTitle5No As Long :pfLa2f+  
Dim LastTabelString As String, LastTableNo As Long "2~L  
Dim LastFigureString As String, LastFigureNo As Long -tZ~& 1"  
$ niG)@*  
Dim strSeperator As String @V&c=8) 8  
@j xP3:s  
Sub ConvertWidth(fTEXT As String, rText As String) AP:Q]A6}  
        Selection.Find.ClearFormatting * '_(.Z:  
        Selection.Find.Replacement.ClearFormatting l0 8vF$k|d  
        Selection.Find.Wrap = wdFindContinue \$4 [qG=  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText 9Vru ,7g  
        DoEvents mCyn:+  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True R4y]<8}  
End Sub IIG9&F$G  
45?% D}  
Sub ClearDomain() ZZn$N-  
        With Selection.Find ,v%' 2[}  
            .ClearFormatting j'k <  
            .Replacement.ClearFormatting uOO\!Hqq  
            .Wrap = wdFindContinue 1Q/= s,{u  
            Me.txtStatus.Text = "清除所有域代码" jF}-dfe  
            DoEvents #CV]S4/^  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False E<l/o5<nC  
        End With "Ccy j/  
End Sub iInWw"VbKe  
RH.qbPjx  
Private Sub cmdCheck_Click() F8S>Ld  
    bContinue = True 'u:-~nSX)  
    Dim NoSeries1(1 To 16) As String e }Mf  
    Dim NoSeries2(1 To 16) As String PjD9D.  
    Dim NoSeries5(1 To 16) As String N; '] &f  
    Dim NoSeriesRM(1 To 16) As String e\em;GTy  
    Dim paraTotal As Long, ParaText As String p|C[T]J\@  
    Dim ttString As String, ttNo As String `*l aUn  
     0NeIQr1N_  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long +CM>]Ze  
5a-x$Qb9  
    Me.txtStatus.Visible = True +Bf?35LP  
    Me.lbParaType.Visible = True N=PSr4  
    Me.cmdCheck.Enabled = False N;`/>R4|I  
     lA pZC6Iwk  
     vc :%  
     gYCr,-_i  
     {h=gnR-9  
    Dim ParaType As String, rText As String )n]" ~I^  
     _i_P@I<M|~  
    Selection.WholeStory >%ovL8F  
    Selection.NoProofing = True pM^ZC  
     [l3ys  
    tm1 = Now \h"U+Bv7  
     <5? pa3  
        ActiveWindow.View.Type = wdNormalView Ptc+ypTu  
     _u+ 7>  
    NoSeries1(1) = "一" Gl@{y (  
    NoSeries1(2) = "二" VV{>Kq+&,v  
    NoSeries1(3) = "三" P(3k1S M  
    NoSeries1(4) = "四" 2t4\L 3  
    NoSeries1(5) = "五" /5<=m:  
    NoSeries1(6) = "六" WfD fj  
    NoSeries1(7) = "七" E.Q]X]q  
    NoSeries1(8) = "八" egvb#:zW?  
    NoSeries1(9) = "九" Z}TLk^_[  
    NoSeries1(10) = "十" #R>x]Nt}  
    NoSeries1(11) = "十一" m"T}em#   
    NoSeries1(12) = "十二" j^7A }fz  
    NoSeries1(13) = "十三" sH.=Faos  
    NoSeries1(14) = "十四" 9QaE)wt  
    NoSeries1(15) = "十五" hrm<!uKn  
    NoSeries1(16) = "十六" V)5K/ U{  
     /O5&)%N  
    NoSeries2(1) = "㈠" =W &Mt  
    NoSeries2(2) = "㈡" 9O -2  
    NoSeries2(3) = "㈢" Wqkzj^;"G  
    NoSeries2(4) = "㈣" m):*>o55  
    NoSeries2(5) = "㈤" y^"@$   
    NoSeries2(6) = "㈥" X$;&Mdo.  
    NoSeries2(7) = "㈦" 64mg:ed&  
    NoSeries2(8) = "㈧" kU+|QBA@  
    NoSeries2(9) = "㈨" f4 qVUU  
    NoSeries2(10) = "㈩" 0,nz*UDk  
     8qqN0"{,  
    NoSeries5(1) = "①" RC/45:hZZ  
    NoSeries5(1) = "②" f1]zsn:  
    NoSeries5(3) = "③" _6Y+E"@zs  
    NoSeries5(4) = "④" f~F{@),acZ  
    NoSeries5(5) = "⑤" R8cOb*D  
    NoSeries5(6) = "⑥" P}]o$nWT  
    NoSeries5(7) = "⑦" 2E?!Q I\O  
    NoSeries5(8) = "⑧" AN:yL a!  
    NoSeries5(9) = "⑨" 4-t^?T: qF  
    NoSeries5(10) = "⑩" @ 5^nrB  
     j.ucv  
     !b"?l"C+u  
    NoSeriesRM(1) = "I" hLbWqF  
    NoSeriesRM(2) = "II" qVKdc*R-  
    NoSeriesRM(3) = "III" cT(6>@9@  
    NoSeriesRM(4) = "IV" {fnx=BaG  
    NoSeriesRM(5) = "V" r\d(*q3B  
    NoSeriesRM(6) = "VI" >MGWN  
    NoSeriesRM(7) = "VII" ^nK<t?KS  
    NoSeriesRM(8) = "VIII" zs~Tu  
    NoSeriesRM(9) = "IX" u4_QLf@I  
    NoSeriesRM(10) = "X" #1/~eIEY  
    NoSeriesRM(11) = "XI" }DXG;L  
    NoSeriesRM(12) = "XII" \n t~K}a  
    NoSeriesRM(13) = "XIII" gfs;?vP  
    NoSeriesRM(14) = "XIV" 'f!U[Qatg  
    NoSeriesRM(15) = "XV" Z,/K$;YWo  
    NoSeriesRM(16) = "XVI" Z6rhInIY  
     ~ney~Pz_  
    i = MsgBox("为了你的数据安全,请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗?", vbYesNo) j)2I+[aoB  
     d\ 8v VZ  
    If i = vbNo Then f4fBUZ^ A  
        Exit Sub &iInru3  
    End If Lo~ ;pvv  
     'L7qf'RV  
    If Me.chkSuper.Value Then fz\Q>u'T  
        Me.txtStatus.Text = "检查修改所有的上标格式" WFiX=@SS  
     'S1u@p,q  
        CheckSuperScript }b1FB<e]  
         :{2~s  
    End If #]x3(}3W  
     o]~\u{o#.  
    If Me.chkStyle.Value Then wS);KLe3  
        Me.txtStatus.Text = "设置样式,请稍候...."  kDE-GX"Y  
        DoEvents h7 E~I J  
        CeateOrModifyStyle | DV?5>>  
    End If ujRXAN@mC  
     fO$){(]^  
     mwo:+^v(  
     :{#O   
    ClearDomain v,S5C  
         #n'.a1R  
     b?l>vUgAg  
     @uH!n~QV  
    If Me.chkLIST.Value Then {g!  7K  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" [Q0V5P~Q'  
     c7jmzo  
        ConvertListToOrdinary ^3TNj  
    End If {u/1ph-  
     a8f#q]TyQ  
     Lx wi"ndP  
    Dim pType As String, trimpTEXT As String >Jmla~A  
    If Me.chkNum.Value = True Then ?0_ <u4  
        Me.txtStatus.Text = "转换全角数字形式为半角" ly-(F2  
        ConvertWidth "1", "1" F?|Efpzow?  
        DoEvents \4L ur  
        ConvertWidth "2", "2" E?G'F3i  
        DoEvents HMCLJ/  
        ConvertWidth "3", "3" +bS\iw+  
        DoEvents iCPm7AU  
        ConvertWidth "4", "4" $uZmIu9Bi+  
        DoEvents pY`$k#5  
        ConvertWidth "5", "5" MzD1sWmK  
        DoEvents CtXbAcN2B  
        ConvertWidth "6", "6" G;3%k.{  
        DoEvents Td'Mc-/  
        ConvertWidth "7", "7" @^<odmM  
        DoEvents VD$5 Djq  
        ConvertWidth "8", "8" cv aG[N F  
        DoEvents HbegdbTJ  
        ConvertWidth "9", "9" Ln4]uqMG.  
        DoEvents A<ds+0  
        ConvertWidth "0", "0" BYB4- ,  
        DoEvents 16zReI(  
        ConvertWidth "a", "a" ]*#i_dho7  
        DoEvents KGYbPty}  
        ConvertWidth "b", "b" 8i154#l+\  
        DoEvents _6nAxm&x`%  
        ConvertWidth "c", "c" :Ln)j%&  
        DoEvents >[AmIYg  
        ConvertWidth "d", "d" 393c |8M  
        DoEvents (T_-`N|  
        ConvertWidth "e", "e"  SvT0%2  
        DoEvents >U vP/rp  
        ConvertWidth "f", "f" 0+e=s0s.  
        DoEvents "esuLQC  
        ConvertWidth "g", "g" 3'Y-~^ml|  
        DoEvents >jX "  
        ConvertWidth "h", "h" '9z W#b  
        DoEvents  px<psR5  
        ConvertWidth "i", "i" -67Z!N  
        DoEvents pM?~AYWb  
        ConvertWidth "j", "j" =I`S7oF  
        DoEvents &{V|%u}v  
        ConvertWidth "k", "k" |n/;x$Cb  
        DoEvents hBjU(}\3  
        ConvertWidth "l", "l" 8f9wUPr  
        DoEvents t,?, T~#9  
        ConvertWidth "m", "m" } Bf@69  
        DoEvents LUbj^iQ9  
        ConvertWidth "n", "n" (dq_ ,LI  
        ConvertWidth "o", "o" `qc"JB  
        ConvertWidth "p", "p" TP rq:"K  
        ConvertWidth "q", "q"  u]Ku96!  
        ConvertWidth "r", "r" ,*J@ic7"  
        ConvertWidth "s", "s" uQIPnd(V  
        ConvertWidth "t", "t" F:!6B b C  
        ConvertWidth "u", "u" >$JE!.p%o  
        ConvertWidth "v", "v" Z*m^K%qJ  
        ConvertWidth "w", "w" ) 2Ei <  
        ConvertWidth "x", "x" Z 2N6r6  
        ConvertWidth "y", "y" Hu"$ )V  
        ConvertWidth "z", "z" F qH) )2  
        ConvertWidth "A", "A" +@QrGY  
        ConvertWidth "B", "B" Z)s !p  
        ConvertWidth "C", "C" `eM ZhY o  
        ConvertWidth "D", "D" }PBme'kP  
        ConvertWidth "E", "E" +})QTFV  
        ConvertWidth "F", "F" WT'-.UX m  
        ConvertWidth "G", "G" c!ZZMC s  
        ConvertWidth "H", "H" uu.X>agg  
        ConvertWidth "I", "I" [)Nt;|U  
        ConvertWidth "J", "J" rLsY_7!  
        ConvertWidth "K", "K" <= o<lRU  
        ConvertWidth "L", "L" 9wYm(7M6  
        ConvertWidth "M", "M" A|\A|8=b  
        ConvertWidth "N", "N" SBreA-2  
        ConvertWidth "O", "O" f~NS{gL*  
        ConvertWidth "P", "P" )8A.Wg4S;c  
        ConvertWidth "Q", "Q" x/DV>Nfn  
        ConvertWidth "R", "R" KL'1)G"OH  
        ConvertWidth "S", "S" +]eG=. u  
        ConvertWidth "T", "T" M0w Uis:`  
        ConvertWidth "U", "U" N4vcd=uG#  
        ConvertWidth "V", "V" '2.ey33V  
        ConvertWidth "W", "W" e,JBz~CK*w  
        ConvertWidth "X", "X" h$&Tg_/'#D  
        ConvertWidth "Y", "Y" ij $NTY=u  
        ConvertWidth "Z", "Z" ZAr6RRv ^  
        ConvertWidth "^l", "^p" @Chl>s  
        ConvertWidth "(", "(" 5@2Rl>B$  
        ConvertWidth ")", ")" ,)1C"'  
     ]lwf6'  
    End If Dd r.6`VJ  
TcaW'&(K  
    With ActiveDocument KnkmGy  
        Dim tbl As Table : :>|[ND  
        For Each tbl In .Tables ,`bW (V  
            tbl.Rows.Alignment = wdAlignRowCenter :}e<   
            tbl.Range.Font.NameFarEast = "楷体" f'oTN!5WF  
            tbl.Range.Font.NameAscii = "Times New Roman" _ L HbP=B  
            tbl.Range.Font.Size = 10.5 MJ JC6:  
        Next p< 7rF_?W0  
        Set tbl = Nothing Cw,a)XB  
    End With <[k3x8H'  
     4 neZw'm  
     yv4x.cfI2W  
    With ActiveDocument ^ 8}P_  
         9 3]63NY  
        For i = 1 To .TablesOfContents.Count 1m~|e.g_'`  
            .TablesOfContents(i).Delete Wq A) V,E  
        Next }|Qh+{H*.  
         3Y)&[aj  
         k+9F;p7  
         8J3#(aBm  
        paraTotal = .Paragraphs.Count mD9Iao%4~  
        paraCounter = 1 HPt3WBRzS;  
         V *@q< rQ  
        LastTitle0No = 0 IU8zidn&  
        LastTitle1No = 0 CtCReH03  
        LastTitle2No = 0 6\.g,>   
        LastTitle3No = 0 $5i\D rs  
        LastTitle4No = 0 C ~h#pAh  
        LastTableNo = 0 Gd 4S7JE  
        LastFigureNo = 0 ,/?J!W @m  
         cg8/v:B  
        Dim Sec As Long I6^y` 2X  
         $mPR)T  
        Sec = InputBox("正文从第一节开始?", "节设置", 6) 05 6K)E  
        If Sec = 0 Then l$gJ^Wf2gY  
            Exit Sub ZWCsrV*;  
        End If l ms^|?  
         =3035{\  
        k = 0 *:CTIV5N0  
        Do While (paraCounter < paraTotal) And bContinue sWlxt qg  
            k = k + 1 }k VC ]+  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then NCKR<!(  
                Exit Do d~aTjf  
            End If j\>&]0-Iq  
            paraCounter = paraCounter + 1 p%$r\G-x  
            If k Mod 20 = 0 Then {'{}@CuA2  
                Me.lbCounter.Caption = paraCounter GJB+] b-  
                DoEvents N/o?\q8  
            End If }!iopu  
        Loop `,V&@}&"n  
         PA^*|^;Xh  
         xRWfZ3E #  
        Do While (paraCounter < paraTotal) And bContinue jWUrw  
             ;5/Se"Nd  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) \ ^(#b,k#  
            ShapeHeight = 0 :zU4K=kR  
            ShapeWidth = 0 SD^::bH  
           E!Q@AZ  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth k9 r49lb  
             z\|<h=EU  
            Select Case ParaType >V^8<^?G  
                Case "【】表格内容" I0F [Z\U  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" k M /:n  
                Case "章" lf( +]k30  
                    LastTitle0No = LastTitle0No + 1 4BMu0["6|s  
                    '新一章开始,复位其下属标题编号 ._0$#J S[  
                    LastTitle1No = 0 &u:U"j  
                    LastTitle2No = 0 "o- -MBq4  
                    LastTitle3No = 0 X?haHM#]  
                    LastTitle4No = 0 96\FJHt Z  
                     +PYV-@q  
                    k = Val(ttNo) 7**zb"#y  
                    If k = 0 Then '非数字编号章节 }@bp v  
                        If ttNo <> NoSeries1(LastTitle0No) Then zu}uW,XH-  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString (')t >B1Z  
                            Me.ErrMsg.AddItem "章节编号错误:" & ParaText GG#-x$jK  
                        End If =#2%[kGq  
                    Else t%mi#Gh(  
                        If Val(ttNo) <> LastTitle0No Then ~;HASHu  
                            rText = "第" & LastTitle0No & ttString XO;_F"H=  
                            Me.ErrMsg.AddItem "章节编号错误:" & ParaText RhJ3>DL  
                        End If l iY/BkpH  
                         r.?dT |A  
                    End If W>' DQB  
                     Ov(k:"N  
                    '章段落设置 pss')YP.  
                    '字体大小:三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 570ja7C:  
                    .Paragraphs(paraCounter).Style = "QLNU章节" Xn"#Zy_  
                    .Paragraphs(paraCounter).Range.Select t XzuP_0  
                    Selection.EndKey unit:=wdLine y;ey(  
                    tc = Replace(rText, vbCr, "") Jj ]<SWh  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False S_sHwObFu|  
                Case "一级标题" 4M"'B A<  
                    LastTitle1No = LastTitle1No + 1 '{,JuX"n  
                    '新一级标题开始,复位其下属标题编号 $D`Kz*/.  
                    LastTitle2No = 0 |}77'w :  
                    LastTitle3No = 0 dU-:#QV6  
                    LastTitle4No = 0 2po8n _  
                     bD v& ;Z  
                    If ttNo <> NoSeries1(LastTitle1No) Then W _[9  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString PlCw,=K8f  
                            Me.ErrMsg.AddItem "一级标题编号错误:" & ParaText Oyb9 ql^  
                    End If ^X#)'\T  
                   Idu'+O4  
                     _oZ3n2v}@  
                    '一级标题段落设置  格式:一、标题内容 e[fld,s  
                    .Paragraphs(paraCounter).Range.Text = rText MTwzL<@$  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" r`ftflNh(  
                    .Paragraphs(paraCounter).Range.Select htYfIy{5w  
                    Selection.EndKey unit:=wdLine 9+(b7L   
                    tc = Replace(rText, vbCr, "") &DQ_qOKD  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False w%wVB/(  
                Case "二级标题" @^0}wk  
                    LastTitle2No = LastTitle2No + 1 rv{Wti[  
                    '新二级标题开始,复位其下属标题编号 "'DPb%o  
                    LastTitle3No = 0 &v]xYb)+<  
                    LastTitle4No = 0 V N-0hw/A  
                     JXuks`:Q  
                    If ttNo <> NoSeries1(LastTitle2No) Then jXx~  5  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString tuH#Cy  
                            ErrMsg.AddItem "二级标题编号错误:" & ParaText AIP0PJI3  
                    End If HA c"&#pG  
                     \)*\$I\]  
                    '二级标题段落设置 格式:(一)、标题内容 |+h x2?Nv  
                    .Paragraphs(paraCounter).Range.Text = rText qi@Nz=t#HJ  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" .P8m%$'N  
                     -wUT@a  
                    .Paragraphs(paraCounter).Range.Select ;- i)}<  
                    Selection.EndKey unit:=wdLine xRZ K&vkKE  
                    tc = Replace(rText, vbCr, "") {U9{*e$=  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False tG]W!\C'h  
                 `$"{-  
                Case "三级标题" 7IUJHc?  
                    LastTitle3No = LastTitle3No + 1 ,M]W_\N~E  
                    '新三级标题开始,复位其下属标题编号 =8vwaJ  
                    LastTitle4No = 0 G9S3r3  
                     [ !~8TF  
                    If Val(ttNo) <> LastTitle3No Then fm#7}Y  
                            rText = LastTitle3No & ". " & ttString 0]ai*\,W7~  
                            Me.ErrMsg.AddItem "三级标题编号错误:" & ParaText ^Cp;#|g,  
                         uaD+G:{ [  
                    End If `_&vvJPn@!  
                    '三级标题段落设置 格式:1. 标题内容 c @lF*"4  
                    .Paragraphs(paraCounter).Range.Text = rText s|WcJV  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" nVpDjUpN  
                    .Paragraphs(paraCounter).Range.Select )l*3^kwL{U  
                    Selection.EndKey unit:=wdLine ]@_|A, ]  
                    tc = Replace(rText, vbCr, "") yTc&C)Jba  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False hXH+C-%{  
                Case "四级标题" Z{u]qI{l  
                    LastTitle4No = LastTitle4No + 1 FS7D  
                     P=_W{6  
                    If Val(ttNo) <> LastTitle4No Then rxx VLW  
                            rText = "(" & LastTitle4No & "). " & ttString 3Q&@l49q  
                            ErrMsg.AddItem "四级标题编号错误:" & ParaText e<DcuF<ZS  
                     oVl:g:K40  
                    End If #Hy9 ;Q  
                    '四级标题段落设置 格式:(1). 标题内容 mb'{@  
                    .Paragraphs(paraCounter).Range.Text = rText )3F}IgD  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" -R9{Ak  
                    .Paragraphs(paraCounter).Range.Select l(MjLXw5  
                    Selection.EndKey unit:=wdLine G=e'H-  
                    tc = Replace(rText, vbCr, "") ;qzn_W  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False Cf 202pF3y  
                 YxnZ0MY  
                Case "表格标题" 9 n5uO[D  
                    LastTableNo = LastTableNo + 1 5-4  
                     dRs\e(H'  
                    If ttNo <> CStr(LastTableNo) Then 4{,!'NA  
                            rText = "表" & LastTableNo & ". " & ttString )"Ujx`]4r  
                            ErrMsg.AddItem "表格编号错误:" & ParaText 'QpDx&~QP  
                   UN<$F yb  
                    End If ./ tZ*sP:  
                     HII@Ed f?  
                    '表格名称段落设置 格式:表1. 表格名称 4[Ko|  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" :MYLap&L&  
                    xe = Replace(rText, vbCr, "") 6Po {tKU  
                    .Paragraphs(paraCounter).Range.Select 1)u,%  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 ~- aUw}U  
                    Selection.Range.Text = xe {#t7lV'4  
                    Selection.EndKey lE+Duap:  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False a'q&[08  
                 R<3 -!p1v  
                Case "表格首行" 3W[||V[r]<  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" CT\rx>[J.6  
                Case "图片标题" s_Z5M2o  
                    LastFigureNo = LastFigureNo + 1 -{oZK{a1  
                     n1x3q/~  
                    If ttNo <> CStr(LastFigureNo) Then %f\j)qw  
                            rText = "图" & LastFigureNo & ". " & ttString ;<MHl[jJD  
                            ErrMsg.AddItem "表格编号错误:" & ParaText OHY|< &*  
                   OZKZv,  
                    End If {Zs EYUP  
                    '图片名称段落设置 格式:图1. 图名称 8V pmcGvc3  
                    .Paragraphs(paraCounter).Range.Text = rText ,\T`gh  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" v)vogtAQa  
                    .Paragraphs(paraCounter).Range.Select p;%5o0{1  
                    Selection.EndKey unit:=wdLine jJ RaY3  
                    xe = Replace(rText, vbCr, "") E.B6u, Te  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False D3tcwjXoW_  
                Case "正文" ?J|  
                     '正文名称段落设置 75h]# k9\  
                    .Paragraphs(paraCounter).Style = "QLNU正文" O*F= xG  
               Case "文献条目" p=[I;U-#H  
                    With .Paragraphs(paraCounter) TPj,4&|  
                        '.Range.Select 6 {`J I  
                        'Selection.ClearFormatting Zirp_[KZ%  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分, 而StrSeperator传回了正确的格式与分隔符如“[15] ” OgK' ~j  
                        .Style = "QLNU参考文献" A(XX2f!i  
                    End With TCgW^iu  
               Case "图表注解" e6y!,My<  
                    With .Paragraphs(paraCounter) cI6Td*vM  
                        .Range.Font.NameFarEast = "楷体" Bi/E{k,  
                        .Range.Font.NameAscii = "Times New Roman" xNJ*TA[+  
                        .Range.Font.Size = 9 '小5号字 WK#c* rsij  
                         tI0D{Xrc  
                        .Alignment = wdAlignParagraphCenter Ix@nRc'  
                        .LeftIndent = 0 dF&@ q,  
                        .RightIndent = 0 yJw.z#bB#  
                        .FirstLineIndent = 0 ZlMS=<hgFx  
                        .LineSpacing = 12 A/Sj>Y1j  
                        .LineSpacingRule = wdLineSpaceExactly #|V)>")  
                        .LineUnitAfter = 0 p`"Ic2xPJ  
                        .LineUnitBefore = 0 B90fUK2g  
                        .OutlineLevel = wdOutlineLevelBodyText F${}n1D  
                        .PageBreakBefore = False l >oJ^J  
                        .RightIndent = 0 ubKp P %Z  
                        .WordWrap = True R-k~\vCW  
                        .LineUnitAfter = 0.5 ;Rxc(tR!n  
                         wgQx.8 h>  
                    End With x9]vhR/av  
                Case Else -23sm~`  
                    '不作处理 f]Zj"Tt-  
            End Select ASSe;+yp  
             NwKj@Jos  
            '含有inlineshape的段落处理 *aYuuRx  
            If ShapeHeight > 30 Then ;wHyX)&X $  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 &`g^b^i  
            End If ND3|wQ`M0  
             Z0 c|;  
            If (ShapeWidth + ShapeHeight) > 150 Then h5n@SE>G  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" '~{kR=+  
            End If n "I{aJ]K  
             T0o0_R  
            '段落计数器递 MHCwjo"  
            paraCounter = paraCounter + 1 <pFbm  
            Me.lbCounter.Caption = "当前检测段落:" & paraCounter ^C2SLLgeJ  
            Me.txtStatus.Text = ParaText YvUV9qps~  
            DoEvents y?iW^>|?L=  
        Loop $m-@ICG#  
    End With b-#oE{(\'  
     s?9`dv} P  
    msg = "" gd0a,_`M  
     Rd@?2)Xm  
    For i = 0 To Me.ErrMsg.ListCount - 1 /mn'9=ks  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) 02[*b  
    Next 7a4Z~r27/  
     7Zft]C?|@  
     Wq25,M'  
     b. :2x4  
    Me.txtStatus.Text = "格式化完成!" & vbCrLf & "开始时间:" & tm1 & vbCrLf & "结束时间:" & Now & vbCrLf & msg e\ZV^h}TQ  
    Me.cmdCheck.Enabled = True I!Fd~g9I4  
    Me.txtStatus.Visible = True GG4FS  
    Me.lbParaType.Visible = False QNZ#SG8  
     `Gg,oCQg  
    bContinue = False 5z.Y}  
End Sub ( s51GRC  
Q ~eh_>"  
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) Eh *u6K)Z  
    Dim pTEXT As String ;6=* E'  
     F:Yp1Wrb<  
    pTEXT = ChKRange.Text ?%T]V+40  
     DnCIfda2g  
    ParaType = "其它" bhKe"#m|S  
    TitleString = pTEXT ,W$&OD  
    TitleNo = "N/A" XCGK&O GI  
     R$2\Xl@qQF  
    shpCounter = ChKRange.InlineShapes.Count OP``+z>  
    If shpCounter <> 0 Then MdnapxuS  
        MaxShpHeight = 0: TotalShpWidth = 0 h.xtkD)Y~  
        For i = 1 To shpCounter rj2 9$d?Y9  
            k = ChKRange.InlineShapes(i).Height 1,n\Osd  
            l = ChKRange.InlineShapes(i).Width ] $F%  
            If k > MaxShpHeight Then [KEw5-=i@  
                MaxShpHeight = k Xk:_aJ  
            End If BWkT Qd<t  
            TotalShpWidth = TotalShpWidth + l :?gp}.  
        Next DU@SXb  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then ^_=bssaOd  
            Exit Sub aC3Qmo6?m  
        End If !#4b#l(e6  
    End If =|V#~p*  
     &'m&'wDt:  
    '空行 CSzu $Hnq  
    If Len(pTEXT) <= 2 Then > =Na,D  
        Exit Sub .sZ"|j9m  
    End If "!#KQ''R  
     1/=6s5vS}  
         \ 5# eBJ  
    '是否为表格中的文字 k7nke^,|  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then !3ji]q;uF  
        ParaType = "表格内容" .aC/ g?U  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) Lo O"d'{  
        If k = 1 Then dp }z G+  
            ParaType = "表格首行" ,H] S-uK~  
        End If }gQnr;lv  
        Exit Sub &8JK^zQq  
    End If Xz'o<S  
     5"L.C32  
    '例外情况:脚注 7! /+[G  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then G[zVGqk  
        ParaType = "脚注" w*7wSP  
        Exit Sub iG{xDj{CKv  
    End If e'3y^Vg  
     i@ehD@.dH  
    '例外情况:尾注 FD8d-G  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then yh+.Yn=+  
        ParaType = "尾注" nYTPcT4x|  
        Exit Sub >B$B|g~  
    End If eB<R"Yvi  
     I 9sQPa  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then p%+'iDb  
        ParaType = "页眉页脚" |Syulus  
        Exit Sub =GC,1WVEqV  
    End If 5~RR _G  
     :!wt/Y  
     wd2z=^S~  
    With regEX mfk^t`w_  
        .Global = True Md*.q^:  
         2GRv%:rZ  
        .Pattern = "^第([1-9]|1|2|3|4|5|6|7|8|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|.)+(.{1,30})$" V+$fh2t  
        If regEX.Test(pTEXT) Then 50Ov>(f@7  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") 'On%p|s)H  
            TitleString = regEX.Replace(pTEXT, "$3") S0lt _~  
            TitleNo = regEX.Replace(pTEXT, "$1") \[]4rXZN0  
            ParaType = "章" xH>j  
            Exit Sub =<r1sqf  
        End If +o K*5 Y  
         tf>"fU\P  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|.)+(.{1,40})$" {Ok]$0L  
        If regEX.Test(pTEXT) Then ( $,qxPOn  
            ParaType = "一级标题" "8\2w]"  
            regEX.Execute (pTEXT) $g }aH(vf  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") CS;4ysNf  
            TitleString = regEX.Replace(pTEXT, "$3") d M;v39  
            TitleNo = regEX.Replace(pTEXT, "$1") Eu[/* t+l  
            Exit Sub n }8}:3"  
        End If /Uni6O)oc  
          qy/t<2'  
        '全角或半角括号中的数字 ~6#O5plKc  
        .Pattern = "(^\(|()(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|))(、|\.|\s|。|.)*(.{1,40})$" eI/5foA  
        If regEX.Test(pTEXT) Then be HEAQ  
            ParaType = "二级标题" T:*l+<?  
            regEX.Execute (pTEXT) ;IR.6k$;  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") =F46v{la  
            TitleString = regEX.Replace(pTEXT, "$5") }(9ZME<(  
            TitleNo = regEX.Replace(pTEXT, "$2") OgCz[QXr_  
            Exit Sub RVh{wg  
        End If (JT 273  
         Ed1y%mR>  
        '阿拉伯数字  1. 2. YLb$/6gj6  
        .Pattern = "^([1-9]|1|2|3|4|5|6|7|8|9|0){1,2}(、|\.|\s|。|.)+(.{1,80})$" 7DWGYvv[  
        If regEX.Test(pTEXT) Then 8-x)8B  
            ParaType = "三级标题" PeJIa %iE  
            regEX.Execute (pTEXT) 9[:TWvd  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换,如需要可分成两步分别检测 SL`nt  
            TitleString = regEX.Replace(pTEXT, "$3") ?DKY;:dZF  
            TitleNo = regEX.Replace(pTEXT, "$1") 5p~hUP]tT  
            Exit Sub C/q!!  
        End If R|]n;*y  
         tcJN`N  
        '全角或半角括号中的阿拉伯数字 wT+\:y  
        .Pattern = "^(^\(|()([0-9]|0|1|2|3|4|5|6|7|8|9){1,2}(\)|))(、|\.|\s|。|.)*(.{1,80})$" [G"Va_A8  
        If regEX.Test(pTEXT) Then 2~%^ y6lR  
            ParaType = "四级标题" pzeCdHF  
            regEX.Execute (pTEXT) kTm}VTr 1  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") !9_'_8  
            TitleString = regEX.Replace(pTEXT, "$5") z2  mjm  
            TitleNo = regEX.Replace(pTEXT, "$2") 2u(G:cR  
            Exit Sub ggy9euWV  
        End If a [E}o<{  
         h*\u0yD)  
        '表格名称 di37   
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|.|\s]{1,9})(.{1,120})$" j7J'd?l  
        If regEX.Test(pTEXT) Then E^m;Ab=  
            ParaType = "表格标题" lLS7K8;4W  
            regEX.Execute (pTEXT) +77B656  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) f%rZ2h)  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) M[QQi2:&  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) rXq{WS`  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么,但是发现传回的replacetext在修改Paragraph对象的Range.Text后,表格标题就会落入第一个单元格中,所以,只能用Paragraph.Range.Find.Execute方法替换 #j)"#1IE2W  
            Exit Sub <sls1,  
        End If D"&Sd@a{  
         ">vi=Tr  
        '图片名称 k\-h-0[|  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|.)+(.{1,120})$" /Edq[5Ah  
        If regEX.Test(pTEXT) Then 9u%(9Ae  
            ParaType = "图片标题" kG`&Z 9P  
            regEX.Execute (pTEXT) FzG>iC}  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") !gJw?(8"  
            TitleString = regEX.Replace(pTEXT, "$3") XmN8S_M>v  
            TitleNo = regEX.Replace(pTEXT, "$1") H4<Q}([w  
            Exit Sub m%s:4Z%=  
        End If &W{v(@  
         l\ Vr D2j8  
        '参考文献 7\yh<?`V8  
        .Pattern = "^([\[|[])(\d+)([]|\]])([、|\.|\s|。|.]{0,1})"  '[数字]、 #g<6ISuf  
        If regEX.Test(pTEXT) Then r'MA$PiS'  
            ParaType = "文献条目" ]#vi/6\J  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") Sv!JA#Ag  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") WF<3 7"A@  
            Exit Sub ZKai*q4?  
        End If LHSbc!Y'.  
         x7/";L>  
        prfx = Left(pTEXT, 2) Hz>Dp !  
        If prfx = "注:" Or prfx = "注:" Then @ I#uv|=N  
            ParaType = "图表注解" WJN) <+d  
            Exit Sub ^ U~ QQ  
        End If 9^@)R ED  
         }ldpudU  
         #gXxBM  
        ParaType = "正文" o_03Io ~Bf  
         I8uFMP  
    End With rl]K :8*  
End Sub i ;^Ya  
\;JZt[  
Sub ConvertListToOrdinary() 5t-, 5  
    Dim st As Paragraph S1U[{R?,  
    With ActiveDocument `yO'-(@"gY  
        For i = .Paragraphs.Count To 1 Step -1 ,( N N)Oj  
            Set st = .Paragraphs(i) TQ=HFs ~  
            lst = st.Range.ListFormat.ListString &_74h);2I:  
            If lst <> "" Then \}_,g  
                st.Range.ListFormat.RemoveNumbers KtHkLYOCG  
                st.Range.InsertBefore lst & " " w@LLxL>Y  
            End If aP#/%  
        Next "Cs36k  
    End With e9>~mtx  
    Set st = Nothing I:("f+ H  
End Sub -_XTy!I  
aa{+,(  
Private Sub UserForm_Activate() IL`=r6\  
    Me.lbTotal.Caption = "当前文章段落总数:" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" gj I>tz}  
    Me.lbTotal.Font.Bold = True iU AY  
    Me.txtStatus.Visible = False ;*0?C' h=  
    Me.cmdCheck.Enabled = True 8#/y`ul  
R[@}Lg7+v  
End Sub  45WJb+$  
m~uT8R#$  
ilAhw4A  
Sub CheckSuperScript() U*?`tdXJ$  
    Selection.Find.ClearFormatting 13+. >  
    Selection.Find.Replacement.ClearFormatting V)P8w#,  
    With Selection.Find qQ 8+gZG$R  
        .Text = "[【\[[〖](*)[】\]〗]]" fElFyOo+  
        .Replacement.Text = "[\1]" 9dWz3b1[ ]  
        .Replacement.Font.Superscript = True YLuf2ja}X  
        '.Replacement.Font.Color = wdColorBlue 7mE9Z o1  
        .Forward = True 9*r^1PRc  
        .Wrap = wdFindContinue 2OQ\ z;s  
        .FORMAT = True  gU1Pb]]  
        .MatchCase = False F6aC'<#/  
        .MatchWholeWord = False kT:I.,N   
        .MatchByte = False 8[D"  
        .MatchAllWordForms = False !;0K=~(Y^  
        .MatchSoundsLike = False o=Y'ns^a(  
        .MatchWildcards = True "F[7b!>R  
    End With SYa O'c  
    Selection.Find.Execute Replace:=wdReplaceAll D"%>  
End Sub lnRL^ }  
BvUiH<-D  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) l]OzE-*$b  
    bContinue = False n#@Qd!uzM  
    Set regEX = Nothing ij;P5OA  
End Sub ILqBa:J  
^b.#4i (v  
Sub CeateOrModifyStyle() KC)}M zt6_  
' 2f62 0   
' b`@J"E}  
Dim stl As Style 6@eF|GoP  
     /aIGq/;Y+a  
    Options.Pagination = False na"!"C s3  
     E;[Uhh|78!  
    On Error Resume Next bkS"]q)>  
    For Each stl In ActiveDocument.Styles [bRE=Zr$Ry  
        stl.Delete pTXF^:8  
    Next Ov ^##E  
    On Error GoTo 0 J_?v=dW`  
     uqLP$At  
    Set stl = Nothing B9Hib1<8  
     b'Km-'MtH  
    DoEvents  Nd&UWk^  
    On Error Resume Next 3#Bb4\_v  
     y G3aF(  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph n>w<v M  
     3R0ioi 7  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph Gr#3GvL  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph IdK<:)Q  
     w 5?D]u  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph gd*2*o$g(  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph Hq!|r8@6  
     eW;3koE  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph " m13HS  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph 5{Q9n{dOh  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph "c|Rpzs[  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph 2t Pf Ig  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph ,Vw>3|C  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph A\#z<h[>  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph ~9E_L?TW*  
     ncMz Hw  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph YV!hlYOBi  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph [:cvy[}v@  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph um}q@BU  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph N$x&k$w R  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph }pIn3B)  
     |Wjpnz  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph Ih>s2nL  
    On Error GoTo 0 !?=U{^|7y  
    DoEvents Wky9w r:g  
     |0Xf":  
    'BaseStyle t"Ah]sD  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False v; R2,`[W  
    With ActiveDocument.Styles("BaseStyle").Font Ri~$hs!  
        .NameFarEast = "宋体" 6)7cw8^  
        .NameAscii = "Times New Roman" 8;r#HtFM  
        .NameOther = "宋体" L9lJ4s  
        .Size = 10.5 @& Bh!_TWc  
        .Bold = wdUndefined _{-[1-lN5_  
        .Italic = wdUndefined !&9(D^  
        .Subscript = wdUndefined ;j7G$s9  
        .Subscript = wdUndefined ]!&$&t8.  
         :mW< E  
        .Underline = wdUnderlineNone %S'+x[ 4W  
        .UnderlineColor = wdColorAutomatic m(*rMO>_  
        .StrikeThrough = False I7~) q`  
        .DoubleStrikeThrough = False q=Vh"]0g  
         b $J S|  
        .Outline = False EO~L.E%W  
        .Emboss = False .ESvMK~x  
        .Shadow = False D:f=Z?L)>  
        .Hidden = False 7eju%d  
        .SmallCaps = False %qiVbm0  
        .AllCaps = False gdA2u;q  
        .Color = wdColorAutomatic *tgu@9b  
        .Engrave = False 8'%m!  
        .Scaling = 100 oeB' {bG  
        .Kerning = 1 8|)^m[c&  
        .Animation = wdAnimationNone S_/S2(V"  
        .DisableCharacterSpaceGrid = False D}LM(s3li7  
        .EmphasisMark = wdEmphasisMarkNone _DH^ K 9,9  
    End With X-(4/T+v  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat n\3 #69VY  
        .LeftIndent = 0 RB4 +"QUh  
        .RightIndent = 0 ,Gg;:)k\  
        .SpaceBefore = 0 ;81,1 Ie<~  
        .SpaceBeforeAuto = False -Ep#q&\  
        .SpaceAfter = 0 EK Vcz'w  
        .SpaceAfterAuto = False -z0;4O (K]  
         \2 e^x  
        .LineSpacingRule = wdLineSpaceSingle N2"B\  
        .Alignment = wdAlignParagraphJustify  tH44\~  
         &J c atI  
        .WidowControl = False kS8?N`2}LV  
        .KeepWithNext = False ;RRw-|/Wm  
        .KeepTogether = False o~)o/(>ox  
        .PageBreakBefore = False gXJBb+P   
        .NoLineNumber = False mO;QT  
         %9a3$OGZX  
        .FirstLineIndent = CentimetersToPoints(0) e6Y>Bk   
        .OutlineLevel = wdOutlineLevelBodyText %^L{K[}  
        .CharacterUnitLeftIndent = 0 yCvtglAJ4  
        .CharacterUnitRightIndent = 0 )*>wa%[-q  
        .CharacterUnitFirstLineIndent = 0 ,(pp+hNq  
        .LineUnitBefore = 0 ninWnQq  
        .LineUnitAfter = 0 \yC/OLXq  
        .AutoAdjustRightIndent = True 6#!CBY^{  
        .DisableLineHeightGrid = True zh*D2/ r  
         #79[Qtkrhm  
        .FarEastLineBreakControl = True f!`? _  
        .WordWrap = True 5a$EXV  
        .Hyphenation = False *LU/3H|}  
         G(TFv\`vH  
        .HangingPunctuation = True C5Q!_x(  
        .HalfWidthPunctuationOnTopOfLine = True 6Eu(C]nC(  
        .AddSpaceBetweenFarEastAndAlpha = True #Pp:H/b  
        .AddSpaceBetweenFarEastAndDigit = True Dws) 4hH  
        .BaseLineAlignment = wdBaselineAlignBaseline )Wr_*>xj  
    End With RYjK4xT?Y/  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False D 2kmBZ3  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll UaF~[toX  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese ?VmgM"'md  
    ActiveDocument.Styles("BaseStyle").NoProofing = False Z|%h-~  
     mXOI"B9Sq  
    '一级标题题样式 9K/EteS  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") (8)9S6  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" t`+A;%=K]  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False |w}j!}u  
    With ActiveDocument.Styles("QLNU一级标题").Font bo/9k 4N3  
        .NameFarEast = "黑体" ]LUcOR  
        .NameAscii = "Arial Black" T7.Iqw3p  
        .NameOther = "黑体" @,TIw[p  
        .Name = "黑体" {0Y6jk>I  
        .Size = 16              '三号 Z17b=x Jw  
        .Bold = True ]i$y;]f  
        .Italic = wdUndefined k#Sr;"  
        .Subscript = wdUndefined R`Z"ey@C  
        .Superscript = wdUndefined YE~IO5   
    End With IBo  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat ypx~WXFK  
         6]Hwr_/tk  
        .LeftIndent = CentimetersToPoints(0) e ,/]]E/o  
        .RightIndent = CentimetersToPoints(0) G rp{ .  
        .FirstLineIndent = CentimetersToPoints(0) KF_fz   
         jDpA>{O[  
        .LineSpacingRule = wdLineSpaceSingle l|?tqCT ^h  
        .Alignment = wdAlignParagraphCenter 9hfg/3t('  
         ={sjoMW  
        .WidowControl = True 1+uZF  
        .KeepWithNext = True "!V`_ S;  
        .KeepTogether = True 3NLn}  
        .OutlineLevel = wdOutlineLevelBodyText R ~kO5jpW  
         c ' wRGMP  
        .LineUnitBefore = 0.5 jts0ZFHc-  
        .LineUnitAfter = 0.5 in<.0v9w  
    End With gVfFEF.  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False J<QZ)<T,&  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll :5,~CtF5 `  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese $jg[6`L$  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True :LY.C<8  
    DoEvents Rz g;GH  
     m0TVi]v  
    '二级 jJ$B^Y"4  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ! 6%?VJB|b  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" _d5:Y  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False <@KIDZYC  
    With ActiveDocument.Styles("QLNU二级标题").Font <VKJ+  
        .NameFarEast = "黑体" rs{)4.I  
        .NameAscii = "Arial Narrow" ~ p? ArZb  
        .NameOther = "黑体" L AasmQ  
        .Name = "黑体" ;v@G  
        .Size = 15        '小三号 e^>>" tr  
        .Bold = False tfGs| x  
        .Outline = False Lz.khE<  
        .Italic = wdUndefined "Zgwe,#  
        .Subscript = wdUndefined W_ `]7RO8  
        .Superscript = wdUndefined WJh TU@'  
    End With 7,+eG">0  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat .EL3}6"A  
        .LeftIndent = CentimetersToPoints(0) W3tin3__  
        .RightIndent = CentimetersToPoints(0) oxlor,lw/  
        .FirstLineIndent = CentimetersToPoints(0) +ig%_QED[\  
         ]EX6Y  
        .LineSpacingRule = wdLineSpaceSingle 6I +0@,I  
        .Alignment = wdAlignParagraphLeft ]O"f%   
         {x_.QWe5  
        .WidowControl = True 7qB4_  
        .KeepWithNext = True ly17FLJ].  
        .KeepTogether = True UpGDLbf^  
        .PageBreakBefore = False .Rk8qR B  
        .OutlineLevel = wdOutlineLevelBodyText hhy+bA}  
         I]v2-rB&-  
        .LineUnitBefore = 0.5 >nghFm  
        .LineUnitAfter = 0.5 z/ 1$G"  
         DJ,LQj  
    End With :}zyd;Rc  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False C!*!n^qA  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll >,{s Fc  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese v"o" W[  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True hi1Ial\Y  
    DoEvents BqNeY<zB*  
     >0{}tRm-P&  
    '三级标题样式 ?l/6DT>e  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") dgkS5Q$/  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" LUMbRrD-  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False W/!P1M n  
    With ActiveDocument.Styles("QLNU三级标题").Font ?n `m  
        .NameFarEast = "宋体" [! $N Tt_  
        .NameAscii = "Times New Roman" 3 y}E*QE  
        .NameOther = "黑体" GpeW<% \P  
        .Name = "黑体" 7z4k5d<^_  
        .Size = 14               '四号 #y:D{%Wp  
        .Bold = False Bdt6 w(`^  
        .Outline = False xR0T ' @q  
        .Italic = wdUndefined 51 q|-d  
        .Subscript = wdUndefined = UH3.  
        .Superscript = wdUndefined t^~vi'bB  
    End With kWXLncE  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat <bzzbR[F  
        .LeftIndent = CentimetersToPoints(0) eUA]OF @  
        .RightIndent = CentimetersToPoints(0) wc;n= %  
        .FirstLineIndent = CentimetersToPoints(0) e c&Y2  
         4f[%Bb  
        .LineSpacingRule = wdLineSpaceSingle >>P5 4|&  
        .Alignment = wdAlignParagraphLeft +twoUn{#  
         >9&31wA_  
        .WidowControl = True Ds">eNq  
        .KeepWithNext = True DO*U7V02  
        .KeepTogether = True e Wux  
        .PageBreakBefore = False f$xXR$mjf  
        .OutlineLevel = wdOutlineLevelBodyText Z v@nK%#J  
         wsWFD xR  
        .CharacterUnitLeftIndent = 0 2CzhaO  
        .CharacterUnitRightIndent = 0 5CFNBb%Xy  
        .CharacterUnitFirstLineIndent = 2 W7qh1}_%  
         $9,&BW_*  
        .LineUnitBefore = 0.5 VV$t*9w  
        .LineUnitAfter = 0 O:wG/et  
    End With &W@2n&U.q  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False {JgY-#R?{(  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll Q M0B6F  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese {|?^@  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True WP L@v+  
    DoEvents a_>|Ny6{  
     UucI>E3?P{  
    '四级标题样式 Jp=fLo 9  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ^?VQ$o2  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" b"h'7C/  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False JI5o~; }m  
    With ActiveDocument.Styles("QLNU四级标题").Font Gaix6@X6'  
        .NameFarEast = "宋体" $y8-JR ~  
        .NameAscii = "Times New Roman"  rL{R=0  
        .NameOther = "宋体" kXSX<b<%  
        .Name = "宋体" 1|MR XK  
        .Size = 12               '小四号 .T'@P7Hdx  
        .Bold = True 5daq} hsQs  
        .Outline = False }<04\t?  
        .Italic = wdUndefined 3PNdc}h&#  
        .Subscript = wdUndefined y/Xs+ {x  
        .Superscript = wdUndefined 4nsJZo#S/  
    End With p'K`K\X  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat ?R)]D:`  
         >$4# G)s  
        .LeftIndent = CentimetersToPoints(0) R@o&c%K"  
        .RightIndent = CentimetersToPoints(0) ,dIev<  
        .FirstLineIndent = CentimetersToPoints(0) U N9hZ>9  
         , QcS[9$  
        .LineSpacingRule = wdLineSpaceSingle bE_8NA"2  
        .Alignment = wdAlignParagraphLeft m-Eh0Zl>Z  
         a `R%\@1  
        .WidowControl = True g_Z tDxz  
        .KeepWithNext = True R*[sO*h\k  
        .KeepTogether = True jW'YQrj{<Y  
        .PageBreakBefore = False 3v8LzS3@  
        .OutlineLevel = wdOutlineLevelBodyText u.GnXuax  
         *LEy# N  
        .CharacterUnitLeftIndent = 0 n3a.)tcC  
        .CharacterUnitRightIndent = 0 *&NP?-E  
        .CharacterUnitFirstLineIndent = 2 CxF d/X,  
         RuPnWx!  
        .LineUnitBefore = 0 N[e,){v  
        .LineUnitAfter = 0 ;77K&#1  
         HuevDy4  
    End With ` =>}*GS  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False $v0,)ALi  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll RxP H[7oZ  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese VzP az\e  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True S+T/(-W  
    DoEvents BX >L7n  
     G4)~p!TSQ  
    '正文校式 ')"+ a^c  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") \vA*dQ-  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" za_b jE  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False npdljL N  
    With ActiveDocument.Styles("QLNU正文").Font }|DspO  
         sK}AS;:  
        .NameFarEast = "宋体" ue_ wuZi  
        .NameAscii = "Times New Roman" !"L.gu-'  
        .NameOther = "宋体" gQn%RPMh  
        .Name = "宋体" YWFE*wQ!  
         1$>+rW{a  
        .Size = 12               '小四号 'FErk~}/4s  
         R BYhU55B  
        .Bold = wdUndefined f>N DtG.6  
        .Italic = wdUndefined b[74$W{  
        .Subscript = wdUndefined }Pcm'o_wT  
        .Superscript = wdUndefined <3;p>4gN  
         rW{!8FhI  
        .Outline = False ;k<dp7^  
        .Emboss = False ~non_pJ  
        .Shadow = False VXeO}>2S  
        .Hidden = False j6m;03<|  
         M-o'`e'  
        .DisableCharacterSpaceGrid = True QUrPV[JQ  
    End With 'R 7 \  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat 2*: q$c  
         -> cL)  
        .LeftIndent = CentimetersToPoints(0) n#(pT3&  
        .RightIndent = CentimetersToPoints(0) C96/   
        .FirstLineIndent = CentimetersToPoints(0) k#].nQG  
         z#*.9/y\^R  
        .LineSpacingRule = wdLineSpaceExactly P%3pM*.  
        .LineSpacing = 20 _ \D %  
        .Alignment = wdAlignParagraphLeft y\?ey'o  
         #{cy(&cz  
        .WidowControl = False g>lZs  
        .KeepWithNext = False r_T)| ||v  
        .KeepTogether = False 5'zXCHt  
        .PageBreakBefore = False ?KC(WaGJQ  
        .Hyphenation = False RzEzNV  
         U$OZkHA[  
        .OutlineLevel = wdOutlineLevelBodyText Tuln#<:  
         G KBoSSnV&  
       R;< q<i_l  
        .CharacterUnitLeftIndent = 0 UqP{Cyy{  
        .CharacterUnitRightIndent = 0 XiW1X6  
        .CharacterUnitFirstLineIndent = 2 =oBpS=<7  
         s4|\cY`b-  
        .LineUnitBefore = 0  ;l$$!PJ  
        .LineUnitAfter = 0 l=~!'1@L}  
        .SpaceBefore = 0 |mEWN/@C  
        .SpaceAfter = 0 Su#0 F0  
         M>AxVL  
        .DisableLineHeightGrid = True ]~TsmR[  
    End With `'YX>u/  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False ^""edCs  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll "aJHCi~l  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese a1Fx|#! mq  
    ActiveDocument.Styles("QLNU正文").NoProofing = True /DQYlNa   
    DoEvents &hOz(825r  
     S_ATsG*(  
    '图片段落样式 da$FY7  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") p* >z:=  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" n!jmxl$  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False :`bC3Mr  
    With ActiveDocument.Styles("QLNU图片段落").Font )Qbd/zd\U  
        .Size = 12               '小四号 aO'#!k*R  
        .Italic = wdUndefined gmGK3am  
        .Subscript = wdUndefined G/_IY;  
        .Superscript = wdUndefined um2a#6uo  
    End With "=h1gql'  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat D-gH_ff<]9  
         .biq)L e  
        .LeftIndent = CentimetersToPoints(0) vSgT36ZF  
        .RightIndent = CentimetersToPoints(0) iGyetFqKw  
        .FirstLineIndent = CentimetersToPoints(0) ]VI^  hhf  
         t<H"J__&  
        .LineSpacingRule = wdLineSpaceSingle 4EB\R"rWXf  
        .Alignment = wdAlignParagraphCenter K`4lL5oH  
        .KeepWithNext = True @*6fEG{,q  
        .OutlineLevel = wdOutlineLevelBodyText TKDG+`TyZ  
         :Jd7q.  
        .CharacterUnitLeftIndent = 0 g)X3:=['  
        .CharacterUnitRightIndent = 0 \-\>JPO~<  
        .CharacterUnitFirstLineIndent = 0 c!6D{(sfh  
         1dH|/9  
        .LineUnitBefore = 0 . ~]|gg~  
        .LineUnitAfter = 0 l1+l@r\  
    End With 8w0~2-v.?V  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False fUT[tkb/!  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll + :MSY p  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese VBhUh~:Om  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True ":!$Jnj,  
    DoEvents $RD~,<oEm  
     F? #3  
     -&Rv=q>  
    '第X章 NoI|Dz  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") mQ[$U  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" *;<fh,wOk  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False QYH-"-)  
    With ActiveDocument.Styles("QLNU章节标题").Font yJA~4  
        .NameFarEast = "黑体" .t8)`MU6.  
        .NameAscii = "Arial Black" SI7rTJ]/  
        .NameOther = "Arial Black" S$mv(C  
        .Name = "黑体" 1NZ"\9=U  
        .Size = 16 >ahDc!Jyu  
        .Bold = True ;+Jx,{ )  
        .UnderlineColor = wdColorAutomatic z0 "DbZ;d  
        .Outline = False Xaq;d'  
        .Italic = wdUndefined 8D*7{Q  
        .Subscript = wdUndefined GP} ;~  
        .Superscript = wdUndefined l]*RiK2AC  
        .Scaling = 100 q W(@p`  
        .DisableCharacterSpaceGrid = True VvhfD2*T  
    End With QS#@xhH  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat ;blL\|ch;  
        .LineSpacingRule = wdLineSpaceSingle ho\1[xS  
        .Alignment = wdAlignParagraphCenter ":]X r!e  
        .WidowControl = True ^m\o(R  
        .KeepWithNext = True xl}rdnf}  
        .KeepTogether = True }[p{%:tP  
        .PageBreakBefore = True  1/DtF  
        .OutlineLevel = wdOutlineLevelBodyText  }k^uup*{  
         '.A!IGsj  
        .LeftIndent = CentimetersToPoints(0) Ymut]`dX  
        .RightIndent = CentimetersToPoints(0) ]J7qsMw  
        .FirstLineIndent = CentimetersToPoints(0) PxkV[ nbS  
         +f3Rzx]  
        .CharacterUnitLeftIndent = 0 SuE~Wb 5&  
        .CharacterUnitRightIndent = 0 [|]J8o@u^  
        .CharacterUnitFirstLineIndent = 0 v:O{"s  
         VPMu)1={:p  
        .LineUnitBefore = 1 5!c/J:z  
        .LineUnitAfter = 0.5 `+H=3`}X  
         u64#,mC[*  
        .AutoAdjustRightIndent = False xR+vu>f  
        .DisableLineHeightGrid = True jv)+qmqo!  
        .FarEastLineBreakControl = True WtM%(8Y[]  
        .WordWrap = True 9CD ei~   
    End With 74%vNKzc~  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False h<.5:a  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll 0z8(9DlTc  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese ptCF))Zm'  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True Eb3ZM#  
    DoEvents 8lyIL^  
     WogUILB  
    '表格标题 )%(ZFn}  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ;UdM8+^/V]  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" }Fe~XO`  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False oF%m   
    With ActiveDocument.Styles("QLNU表格标题").Font wh:;G`6S  
        .NameFarEast = "楷体" o[C^z7WG0  
        .NameAscii = "Arial" i VSNara  
        .Name = "楷体" te@m#` p9  
        .Size = 10.5 {R1]tGOf  
        .Bold = True hRkCB  
        .Underline = wdUnderlineNone [,=?e  
        .Italic = wdUndefined Y=S0|!u  
        .Subscript = wdUndefined sI>w#1.m/&  
        .Superscript = wdUndefined IwyA4Ak Ru  
        .Color = wdColorAutomatic  s*u A3}j  
    End With g6M>S1oOO  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat  rj4@  
         Liqo)m  
        .LineSpacingRule = wdLineSpaceSingle 5P,&VB8L  
        .Alignment = wdAlignParagraphCenter 8P n  
        .KeepWithNext = True {##G.n\~  
        .KeepTogether = True +R'8$  
        .OutlineLevel = wdOutlineLevelBodyText is.t,&H4P]  
         Ob0sB@  
        .LeftIndent = CentimetersToPoints(0) aV;|2}q "  
        .RightIndent = CentimetersToPoints(0) ]7 HR U6$  
        .FirstLineIndent = CentimetersToPoints(0) 8}QM~&&.  
         2yN!yIPR  
        .CharacterUnitLeftIndent = 0 !3b& S 4  
        .CharacterUnitRightIndent = 0 fc#9e9R  
        .CharacterUnitFirstLineIndent = 0 !0{SVsc)  
         85<k'>~L  
        .LineUnitBefore = 1 x9lA';})  
        .LineUnitAfter = 0 {*xE+ |  
         &;PxDlY5  
    End With l+ } =D@l  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False o}N@Q-i gq  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll Gek?+|m  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese *D]:{#C*  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True %YG?7PBB  
    DoEvents L 8 P0bNi  
Q'<AV1<  
    '表格首行 EP>u%]#  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") bZowc {!\  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False :V/".K-:J  
    With ActiveDocument.Styles("QLNU表格首行").Font !I7$e&Uz@  
        .NameFarEast = "楷体" SmXoNiM"y  
        .NameAscii = "Times New Roman" wE .H:q4&  
        .Name = "楷体" iI GK "}  
        .Size = 9 h:Pfiw]  
        .Bold = True HE}0_x.  
        .Underline = wdUnderlineNone F^dJ{<yX  
        .Italic = wdUndefined |Ajd$+3  
        .Subscript = wdUndefined Xaz "!  
        .Superscript = wdUndefined WK%cbFq(  
    End With 6-U_TV  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat [ &TF]az  
        .LineSpacingRule = wdLineSpaceSingle I9?\Jbqg  
        .Alignment = wdAlignParagraphCenter !BQt+4G7  
         @Q1!xA^S  
        .LeftIndent = CentimetersToPoints(0) v({O*OR  
        .RightIndent = CentimetersToPoints(0) *i"9D:  
        .FirstLineIndent = CentimetersToPoints(0) J0sD?V|{1~  
         t3L>@NWG  
         TmgC {_  
        .CharacterUnitLeftIndent = -0.5 /@Lk H$  
        .CharacterUnitRightIndent = -0.5 e!u]l  
        .CharacterUnitFirstLineIndent = -0.5 OUv)`K  
         o"z()w~  
        .LineUnitBefore = 0 yR$_ZXsd  
        .LineUnitAfter = 0 T?3Q<[SmI  
        .SpaceBefore = 0 3vrVX<_  
        .SpaceAfter = 0 Nd(,oXa~  
         cy%M$O|hX5  
    End With @?B+|*cm  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False {gD ED  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll }?[];FB  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese 5U 84 *RY  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True Q{/z>-X\x  
    DoEvents NaR} 0  
H,> }t S  
    '表格内容 j0l{M c5  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") ,,H5zmgA  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False jcCAXk055  
    With ActiveDocument.Styles("QLNU表格内容").Font N&8$tJ(hhx  
        .NameFarEast = "楷体" k1Y\g'1  
        .NameAscii = "Times New Roman" 196aYLE  
        .Name = "楷体" `>"#d ? ,  
        .Size = 9 9< mMU:  
        .Bold = False GQ(Y#HSq  
        .Underline = wdUnderlineNone PT>b%7Of  
        .Italic = wdUndefined A7 RI&g v5  
        .Subscript = wdUndefined teok*'b:  
        .Superscript = wdUndefined %. 1/ #{  
    End With C4m+Ta %  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat %" iX3  
        .LineSpacingRule = wdLineSpaceSingle 1}VaBsEV  
        .Alignment = wdAlignParagraphCenter /?.?1-HM  
         A mZXU b  
        .LeftIndent = CentimetersToPoints(0) 5/.W-Q\pl}  
        .RightIndent = CentimetersToPoints(0) g->*@%?<w>  
        .FirstLineIndent = CentimetersToPoints(0) \h ~_<)  
         &xGdKH  
        .CharacterUnitLeftIndent = -0.5 =, XCjiBeC  
        .CharacterUnitRightIndent = -0.5 ;4 O[/;i  
        .CharacterUnitFirstLineIndent = -0.5 80nEQT y  
        .LineUnitBefore = 0 Du_5iuMh  
        .LineUnitAfter = 0 fJFNS y  
        .SpaceBefore = 0 V]zZb-m=  
        .SpaceAfter = 0 rPk|2l,E,3  
    End With MlV(XG>'  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False b++r#Q g  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll z5@XFaQ  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese xe@e#9N$  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True BJ UG<k  
    DoEvents rWht},-|1  
lZk  z\  
    '图片标题 ,{*g Q%7  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ^J^,@ Hf_  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" .s{ "NqRA  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False UyGo0POW  
    With ActiveDocument.Styles("QLNU图片标题").Font Ts!'>_<Je  
        .NameFarEast = "楷体" s&7 3g0$$  
        .NameAscii = "Times New Roman" l b(  
        .Name = "楷体" L;V 8c  
        .Size = 10.5 w:\} B'u  
        .Bold = True n Bm ]?  
        .Underline = wdUnderlineNone +\=g&G,  
        .Italic = wdUndefined ~RR!~q  
        .Subscript = wdUndefined (]@S<0  
        .Superscript = wdUndefined -Y_, .'ex  
        .Outline = False :1+Aj (  
        .Shadow = False BA\aV hmx  
        .Color = wdColorAutomatic t$BjJ -G  
    End With {!Qu(%  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat <Jgcj 4D  
        .LineSpacingRule = wdLineSpaceSingle yY VR]HH  
        .Alignment = wdAlignParagraphCenter fD!c t;UK  
         6A"$9sj6  
        .KeepWithNext = wdUndefined J3yK^@&&  
        .KeepTogether = True c7mKE`  
        .OutlineLevel = wdOutlineLevelBodyText Y"FV#<9@7E  
         sH6;__e  
        .LeftIndent = CentimetersToPoints(0) eo+<@83  
        .RightIndent = CentimetersToPoints(0) 66val"^W  
        .FirstLineIndent = CentimetersToPoints(0) -XYvjW,|  
         ~[CFs'`(2  
        .CharacterUnitLeftIndent = 0 EL,k z8  
        .CharacterUnitRightIndent = 0 z:Am1B  
        .CharacterUnitFirstLineIndent = 0 7|}4UXr7y  
         \%7*@&  
        .LineUnitBefore = 0 1EU4/6!C  
        .LineUnitAfter = 0  /  
    End With TP p]UG  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False %a/3*vz/I%  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll GDLw_usV  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese 1T|f<ChIF<  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True 8lQ}-8  
    DoEvents v,")XPY  
<8WFaP3,  
    '目录项 217G[YE-  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") x/,;:S  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" snaAn?I4  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False Y j oe|  
    With ActiveDocument.Styles("QLNU目录项").Font 9E7G%-  
        .NameFarEast = "黑体" D!`;vZ\>  
        .NameAscii = "Times New Roman" 4  OPY  
        .NameOther = "Times New Roman" TpU\IQ  
        .Name = "黑体" Q}#Je.;  
        .Size = 10.5 '#6e Ub  
        .Bold = False #-yCR  
        .Italic = wdUndefined PVb[E03  
        .Underline = wdUnderlineNone t:10  
        .Color = wdColorAutomatic >)M{^  
        .Superscript = wdUndefined sq$v6x sl  
        .Subscript = wdUndefined :T-DxP/  
    End With ;21D^e  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat 3)G~ud  
         g Wtc3  
        .LineSpacingRule = wdLineSpaceSingle Odwe1q&  
        .Alignment = wdAlignParagraphLeft Xs2}n^#i  
         0B.Gt&O al  
        .WidowControl = False UF"%FF  
        .KeepWithNext = False )oIh?-WL  
        .KeepTogether = False P%|~Ni_BTX  
        .PageBreakBefore = False s#?ZwD,=  
        .NoLineNumber = False ?V6,>e_+  
        .OutlineLevel = wdOutlineLevelBodyText ]N'3jf`W  
         -6[DQB  
        .LeftIndent = CentimetersToPoints(0) #/>TuJc  
        .RightIndent = CentimetersToPoints(0) HA'~1$#z  
        .FirstLineIndent = CentimetersToPoints(0) UA<Fxt  
         ]-gyXE1.r  
        .CharacterUnitLeftIndent = 0 FGDVBUY@  
        .CharacterUnitRightIndent = 0 r!R-3LO0s  
        .CharacterUnitFirstLineIndent = 0 ggD T5hb  
         ;UQza ]i  
        .LineUnitBefore = 0 }`qAb/Ov  
        .LineUnitAfter = 0 @&\Y:aRO%i  
    End With D4VDWv  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False oC5 h-4~  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll 5` ^@k<  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot aHN"I  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese kcfT|@:MK"  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True 868X/lL  
    DoEvents V k{;g  
     \_Bj"K  
    '参考文献 6n] +(=  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") "3RFy i  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" fZiAl7b!  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False !!C/($  
    With ActiveDocument.Styles("QLNU参考文献").Font vPDw22L;'  
        .NameFarEast = "宋体" |5 V0_79  
        .NameAscii = "Times New Roman" x9YQd69  
        .NameOther = "Times New Roman" <YvXyIs  
        .Name = "Times New Roman" 01A{\O1$j  
        .Size = 12 C]!2   
        .Bold = False GLsa]}m,9  
        .Italic = wdUndefined >9H^r\  
        .Subscript = wdUndefined ]oP1c-GEk  
        .Superscript = wdUndefined ?[JP[ qS  
        .Underline = wdUnderlineNone U WT%0t_T  
        .UnderlineColor = wdColorAutomatic / l$enexSt  
        .Color = wdColorAutomatic %,\JTN|g|A  
        .Engrave = False yd;e;Bb7*  
    End With > ~o- 6g  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat &jJu=6 U B  
         t6"%u3W8M  
        .LineSpacingRule = wdLineSpaceExactly zsp%Cz7T  
        .LineSpacing = 16 ?X@!jB,Pv  
        .Alignment = wdAlignParagraphLeft 7P1Pk?pxy  
        .WidowControl = False ) H,Xkex  
        .KeepWithNext = False z:\9t[e4  
        .KeepTogether = False x3y+=aj  
        .PageBreakBefore = False Tz1^"tx9  
        .OutlineLevel = wdOutlineLevelBodyText >V6t L;+  
         =UKxf  
        .LeftIndent = CentimetersToPoints(0) s|\)Y*B`  
        .RightIndent = CentimetersToPoints(0) V_h&9]RL  
        .FirstLineIndent = CentimetersToPoints(0) 1'&.6{)P  
         Y5aG^wE[:  
        .CharacterUnitLeftIndent = 0 E0ED[d,  
        .CharacterUnitRightIndent = 0 9,?~dx  
        .CharacterUnitFirstLineIndent = -2 O,r;-t4vYU  
         g<Z :`00|  
        .LineUnitBefore = 0 ?~o`mg  
        .LineUnitAfter = 0 3"x_Y  
        .SpaceBefore = 0 Bve|+c6W  
        .SpaceAfter = 0 *qzdt^[ xo  
         +p%3pnj:K  
    End With bv4umL /  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False {;{U@Z  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll z$J m1l  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS P) vD?)Q  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True FJ 3S  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese eIvZhi  
    DoEvents ;FqmZjm  
*D|a`R!Y  
    ' %n|  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") :9hGL  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" i.E2a)  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False ^`cv6;)  
    With ActiveDocument.Styles("QLNU论文题目").Font ~$y"Ldrp  
        .NameFarEast = "黑体" <D a-rv8  
        .NameAscii = "Arial Black" \OW:-  
        .NameOther = "Arial Black" 8 W  
        .Name = "Arial Black" A4"TJZBg}  
        .Size = 16 @} Ig*@  
        .Bold = False 5_(\Cd<#  
        .Italic = wdUndefined BgXZr,?  
        .Superscript = wdUndefined cC-8.2  
        .Subscript = wdUndefined RRja{*R  
        .Underline = wdUnderlineNone e\6H.9=  
        .UnderlineColor = wdColorAutomatic fOi Rstci  
        .Color = wdColorAutomatic <&\ng^Z$  
a&'9[9E1  
    End With ^+yz}YFM  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat JVoC2Z<  
        .LineSpacingRule = wdLineSpaceSingle -DkD*64wu  
        .Alignment = wdAlignParagraphCenter  ;+~5XLk  
        .WidowControl = True 6 - 3?&+  
        .KeepWithNext = True g}W`LIasv  
        .KeepTogether = True  I0 mp[6  
        .PageBreakBefore = True 8"&!3_  
        .NoLineNumber = False |S!R Q-CF  
        .OutlineLevel = wdOutlineLevelBodyText ):K%  
         GxhE5f;  
        .LeftIndent = CentimetersToPoints(0) |u>V> PN  
        .RightIndent = CentimetersToPoints(0) $M}"u [Qq  
        .FirstLineIndent = CentimetersToPoints(0) }2]|*?1,  
         AMyg>n!  
        .CharacterUnitLeftIndent = 0 33 ~MP;  
        .CharacterUnitRightIndent = 0 /"e@rnn  
        .CharacterUnitFirstLineIndent = 0 uZl d9u  
         Q+Bl1xl  
        .LineUnitBefore = 1 rD}g9?ut  
        .LineUnitAfter = 1 p) SW(pS  
         rn-bfzoDS  
        .BaseLineAlignment = wdBaselineAlignAuto Z:{| ?4  
    End With &. =8Q?  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False lrE"phYk  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll =NY;#Jjn  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS {]\7 M|9\  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True naR<  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese @\?HlGWEf  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True /5sn*,  
    DoEvents K+~?yOQj  
     nL?P/ \  
    '中文摘要 Z=&|__ +d  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") H q6%$!q  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" UV2W~g  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False v-#,@&Uwq  
    With ActiveDocument.Styles("QLNU中文摘要").Font qxI $F  
        .NameFarEast = "宋体" Ae7FtJO  
        .NameAscii = "Times New Roman" ]zYIblpde  
        .NameOther = "Times New Roman" lc <V_8  
        .Name = "Times New Roman" DzR,ou  
        .Size = 12 <6(0ZO%,C!  
        .Bold = wdUndefined Ts.2\-+3  
        .Superscript = wdUndefined myj/93p}`b  
        .Subscript = wdUndefined Fn5BWV  
        .Italic = wdUndefined ^=x/:0  
        .Underline = wdUnderlineNone |Z>-<]p9g  
        .UnderlineColor = wdColorAutomatic  N}5  
        .Color = wdColorAutomatic li[[AAWVm  
    End With Y*BmBRN  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat y hKH} kR  
        .LineSpacingRule = wdLineSpaceExactly uUjjAGZ  
        .LineSpacing = 20 .'`aX 7{\  
        .Alignment = wdAlignParagraphLeft 0PkX-.  
         X2V+cre  
        .WidowControl = False Ur@'X-  
        .KeepWithNext = False }2h~o~  
        .KeepTogether = True ;XTP^W!6f  
        .PageBreakBefore = False A f -{'  
        .NoLineNumber = False ;e[-t/SI  
        .OutlineLevel = wdOutlineLevelBodyText $Z;0/\r%  
         H7\EvIM=  
        .LeftIndent = CentimetersToPoints(0) 9wI1/>  
        .RightIndent = CentimetersToPoints(0) =XWi+')  
        .FirstLineIndent = CentimetersToPoints(0) `Y(/G"]  
         e8gD(T  
        .CharacterUnitLeftIndent = 0 "C0oFRk  
        .CharacterUnitRightIndent = 0 Nz]\%c/-  
        .CharacterUnitFirstLineIndent = 2 H ~$a6T"&  
        .LineUnitBefore = 0 U| y+k`  
        .LineUnitAfter = 0 )P,jpE8  
         zb9$  
    End With 0<P -`|X  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False N:d" {k  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll f-23.]`v  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS Y]Xal   
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True Z&21gN  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese + 1cK (Si  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True 0&w.QoZY(  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete K(Cv9YQ  
    DoEvents W{0<ro`  
     H>W A?4  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") Gb MSO  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" 4K4?Q+?  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False .IG(Y!cB  
    With ActiveDocument.Styles("QLNU英文标题").Font "4 ovMan  
        .NameFarEast = "黑体" ^WVr@6  
        .NameAscii = "Arial Narrow" ,7/N=mz  
        .Name = "Arial Narrow" evn ]n  
        .Size = 16 9cj:'KG)!  
        .Bold = True >Ks|yNJ  
        .Bold = wdUndefined TYB^CVSZ  
        .Superscript = wdUndefined ~A6QX8a  
        .Subscript = wdUndefined RE*SdazY?  
        .Italic = wdUndefined /gPn2e;  
         ] ^.#d  
        .Underline = wdUnderlineNone /r]IY.   
        .UnderlineColor = wdColorAutomatic .ipYZg'V  
        .StrikeThrough = False hB|LW^@v  
        .DoubleStrikeThrough = False v'DL >Y  
    End With XRaq\a`=:  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat cQN}z Ke  
        .LineSpacingRule = wdLineSpaceSingle SFh6'v'1N@  
        .Alignment = wdAlignParagraphCenter ,H.q%!{h_  
        .WidowControl = True ya|7hz{  
        .KeepWithNext = False  C9*'.~  
        .KeepTogether = False G-T:7  
        .PageBreakBefore = False y&SueU=  
        .NoLineNumber = False n32BHOVE  
        .FirstLineIndent = CentimetersToPoints(0) }t]CDa_n  
        .OutlineLevel = wdOutlineLevelBodyText y=q\1~]Z  
         ~xzRx$vU  
        .LeftIndent = CentimetersToPoints(0) ^OYar(  
        .RightIndent = CentimetersToPoints(0)  G#K=n  
        .FirstLineIndent = CentimetersToPoints(0) x==%BBnO%  
         4m%_#J{  
        .CharacterUnitLeftIndent = 0 b~cN#w #  
        .CharacterUnitRightIndent = 0 #,$d!l @  
        .CharacterUnitFirstLineIndent = 0 4egq Y0A  
         {HQ?  
        .LineUnitBefore = 1 6R# f 8  
        .LineUnitAfter = 1 7]G3yt->  
         `F(KM '  
    End With 7zy6`O P  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False iGm[fxQ|  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll UB=I>  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS EAx@a%  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True gwT"o  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese mO]>(^c  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True Oi=kL{DG:s  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete ?mrG^TV^+r  
    DoEvents &|55:Y87  
!7Ta Vx}`(  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") dRt]9gIsx  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" 4WDh8U  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False 7X1T9'j I2  
    With ActiveDocument.Styles("QLNU英文摘要").Font #=+d;RdlW  
        .NameFarEast = "宋体" `|Tr"xavf  
        .NameAscii = "Arial" gNN{WFHQX:  
        .NameOther = "Arial" nKufVe  
        .Name = "Arial" p)Z$q2L  
        .Size = 12 <{7B ^'  
        .Bold = wdUndefined C:zK{+  
        .Italic = wdUndefined >8HcCG  
        .Superscript = wdUndefined ^qYJx  
        .Subscript = wdUndefined vMDV%E S1t  
    End With 91e&-acA  
     2et7Vw  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat X8p-VCkV  
         :SziQQ  
        .LineSpacingRule = wdLineSpaceExactly WOR~tS  
        .LineSpacing = 20 leX&py  
         E_7N^htv  
        .Alignment = wdAlignParagraphJustify XkOsnI8n  
         Bo_Ivhe[m  
        .WidowControl = False GuNzrKDr  
        .KeepWithNext = False OZs^c2 W  
        .KeepTogether = False ti3T ?_  
        .PageBreakBefore = False KK}^E_v  
        .NoLineNumber = False }M * Oo  
         0Ocy$  
        .OutlineLevel = wdOutlineLevelBodyText -+-@Yq$  
         WFULQQ*  
        .LeftIndent = CentimetersToPoints(0) GR Rv0M  
        .RightIndent = CentimetersToPoints(0) Hj$JXo[U  
        .FirstLineIndent = CentimetersToPoints(0) Z6A*9m  
         HTvA]-AuM  
        .CharacterUnitLeftIndent = 0 R/xeC [r  
        .CharacterUnitRightIndent = 0 > QDmSy*&  
        .CharacterUnitFirstLineIndent = 2 ( {5LB4  
         !A,]  
        .LineUnitBefore = 0 z45ImItH  
        .LineUnitAfter = 1 iLNKC'  
         oaM $<  
    End With k*[["u^u]  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False =gw 'MA  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll % sbDH  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS [n44;  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False seB ^o}  
    DoEvents iE!\)7y  
6/Q'o5>NL:  
    Options.Pagination = True j"9bt GX  
    Me.txtStatus.Text = "样式修改完成,重新进行分页,请稍候....." 5iwJdm  
    DoEvents yk,o*g  
    ActiveDocument.Repaginate u-$(TyDEl|  
E~3wdOZv1  
End Sub 6 `+dP"@  
"VRcR  
I|@%|s TW  
杺栫杣杊椌柮栬,䒴蓉艿芖。
伍胥之 离线
级别: 军区司令员

显示用户信息 
101楼  发表于: 2024-12-28   
姐妹儿,你也快RETIRED 了, 你欠得帐我可记得呢! 你该单独开帖填坑了。 c=p`5sN)  
Soy!)c]  
引用
引用第20楼newport93于06-14-2010 13:47发表的  : }OZp[V  
[*GIR0  
老五,I 服了U。 $T.we+u  
FAkjFgUJp  
哪一天等俺退休了,也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 "7mY s)=  
U` uP^  
杺栫杣杊椌柮栬,䒴蓉艿芖。
描述
快速回复

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