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

显示用户信息 
100楼  发表于: 07-18   
Dim bContinue As Boolean K;G1cFFyG  
C/e`O|G  
Dim regEX As New RegExp bK; -Xcm  
Dim paraCounter As Long  '全局段落计数,仅在主程序中可读写,其它过程函数应为只读 ?]f+)tCMs  
=2bW"gs I  
Dim LastTitle0String As String, LastTitle0No As Long US'X9=b_  
Dim LastTitle1String As String, LastTitle1No As Long 3mZ[email protected]@  
Dim LastTitle2String As String, LastTitle2No As Long n.67f  
Dim LastTitle3String As String, LastTitle3No As Long AynWs5|z=  
Dim LastTitle4String As String, LastTitle4No As Long %p"x|e  
Dim LastTitle5String As String, LastTitle5No As Long _< 69d  
Dim LastTabelString As String, LastTableNo As Long [X)+(-J  
Dim LastFigureString As String, LastFigureNo As Long GY<Y,  
jt tlzCDn  
Dim strSeperator As String Gu~y/CE'  
@.T'  
Sub ConvertWidth(fTEXT As String, rText As String) _x z_D12  
        Selection.Find.ClearFormatting iBxCk^  
        Selection.Find.Replacement.ClearFormatting K8{ j oh  
        Selection.Find.Wrap = wdFindContinue n<\^&_a  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText ~.AUy%$_g+  
        DoEvents Vlce^\s;  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True A2Rr*e  
End Sub X.,SXNS+B  
(G} *ho  
Sub ClearDomain() B[C2uVEX:  
        With Selection.Find O?D*<rwD  
            .ClearFormatting :^3MN  
            .Replacement.ClearFormatting *f.eyg #  
            .Wrap = wdFindContinue 6*kY7  
            Me.txtStatus.Text = "清除所有域代码" B c*[email protected]  
            DoEvents +KDB^{  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False :cG_aO kid  
        End With Q0,]Q ]_  
End Sub @= 6}w_  
/`D] m?  
Private Sub cmdCheck_Click() TuBg4\V  
    bContinue = True =bZ>>-<  
    Dim NoSeries1(1 To 16) As String `f*?|)  
    Dim NoSeries2(1 To 16) As String SYB } e  
    Dim NoSeries5(1 To 16) As String ;Y [email protected]=   
    Dim NoSeriesRM(1 To 16) As String HvK<>9  
    Dim paraTotal As Long, ParaText As String QgEG%YqB  
    Dim ttString As String, ttNo As String g$?B!!qT  
     <N=p_m 2T  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long "X>Z!>  
m=PSC Ib  
    Me.txtStatus.Visible = True joAR;J  
    Me.lbParaType.Visible = True G#)>D$Ck#  
    Me.cmdCheck.Enabled = False hBz~FB];&  
     )1lR;fD  
     +G? 4Wc1  
     T WEmW&Q  
     Yj/S(4(h?  
    Dim ParaType As String, rText As String P00d#6hPJ  
     f 7y1V(t  
    Selection.WholeStory :"3WCB  
    Selection.NoProofing = True so8isDC'9  
     %K;,qS'N_  
    tm1 = Now 4B<D.i ;}  
     aoco'BR F  
        ActiveWindow.View.Type = wdNormalView T5-50nU,~  
     '-4);:(^  
    NoSeries1(1) = "一" $oH?oD1  
    NoSeries1(2) = "二" 5(%+8<2  
    NoSeries1(3) = "三" _|wgw^.LJ]  
    NoSeries1(4) = "四" 5X|=qZ  
    NoSeries1(5) = "五" WA8Qt\Q  
    NoSeries1(6) = "六" >UE_FC*u  
    NoSeries1(7) = "七" T}$1<^NK  
    NoSeries1(8) = "八" Mm :6+  
    NoSeries1(9) = "九" I(s\ Q [  
    NoSeries1(10) = "十" WsL*P .J  
    NoSeries1(11) = "十一" 7sC$hm]  
    NoSeries1(12) = "十二" rV"<1y:g  
    NoSeries1(13) = "十三" pxM^|?Hxc  
    NoSeries1(14) = "十四" X{9D fgW  
    NoSeries1(15) = "十五" PX(.bP2^Lq  
    NoSeries1(16) = "十六" ]"q)X{G(+  
     Dvo.yn|kB  
    NoSeries2(1) = "㈠" ;f^.7|  
    NoSeries2(2) = "㈡" :v* _Ay  
    NoSeries2(3) = "㈢" %8yfF rk  
    NoSeries2(4) = "㈣" KU"? ZI  
    NoSeries2(5) = "㈤" 1G=1FGvP  
    NoSeries2(6) = "㈥" 9|D!&=8   
    NoSeries2(7) = "㈦" jL I(Z  
    NoSeries2(8) = "㈧" E&#AX:  
    NoSeries2(9) = "㈨" {Rc/Ten  
    NoSeries2(10) = "㈩" /$! / [email protected]^  
     9-Ikd>9  
    NoSeries5(1) = "①" z(:[email protected]5  
    NoSeries5(1) = "②" 1 [[` ^v  
    NoSeries5(3) = "③" 245(ajxHC  
    NoSeries5(4) = "④" G>M# BuU  
    NoSeries5(5) = "⑤" 8,a&i:C  
    NoSeries5(6) = "⑥" E O52 E|  
    NoSeries5(7) = "⑦" LU?X|{z  
    NoSeries5(8) = "⑧" 3:PBVt=  
    NoSeries5(9) = "⑨" H(lq=M0~  
    NoSeries5(10) = "⑩" zob^[email protected]2  
     6U @3 xU`  
     ?>1AT ==wI  
    NoSeriesRM(1) = "I" U!XC-RA3 _  
    NoSeriesRM(2) = "II" ]chcRc[!  
    NoSeriesRM(3) = "III" R KFz6t  
    NoSeriesRM(4) = "IV" KX"?3#U#Fm  
    NoSeriesRM(5) = "V" R N5\,>+  
    NoSeriesRM(6) = "VI" GL cf'$l  
    NoSeriesRM(7) = "VII" =xSFKu *  
    NoSeriesRM(8) = "VIII" mK%!9F V  
    NoSeriesRM(9) = "IX" D}SRr,4v  
    NoSeriesRM(10) = "X" z~L4BY@z  
    NoSeriesRM(11) = "XI" drBWo|/  
    NoSeriesRM(12) = "XII" rG:IS =  
    NoSeriesRM(13) = "XIII" (Vf&,b@U_  
    NoSeriesRM(14) = "XIV" ^e"BY(  
    NoSeriesRM(15) = "XV" =V5<>5"M?  
    NoSeriesRM(16) = "XVI" 2ELw}9  
     2Y(P hw2%  
    i = MsgBox("为了你的数据安全,请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗?", vbYesNo)  ~Hd{+0  
     \wCj$- ;Jt  
    If i = vbNo Then (8?t0}#t  
        Exit Sub eZ[CqUJ&  
    End If f` 2W}|(jA  
     Y 1rU  
    If Me.chkSuper.Value Then L Bb&av  
        Me.txtStatus.Text = "检查修改所有的上标格式" `4'v)!?  
     U?[a@Hj{  
        CheckSuperScript V9`VF O  
         UAFl+d!  
    End If YjdCCju  
     >DBaKLu\  
    If Me.chkStyle.Value Then xlp^XT6#  
        Me.txtStatus.Text = "设置样式,请稍候...." [uT& sZxmg  
        DoEvents X-|`|>3E  
        CeateOrModifyStyle SZpBbX$  
    End If -N<s =  
     S)iv k x  
     beRpA;  
     p(8H[L4Y  
    ClearDomain B# |w}hj  
         :@y!5[88!  
     i;s&;_0{  
     &{!FE`ZC_  
    If Me.chkLIST.Value Then 6H+gF XIv  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" :7K cD\fCj  
     *NS:X7p!V  
        ConvertListToOrdinary u> XCE|D*  
    End If a9j f7r1  
     v?,_SVgAi  
     = 7d{lK  
    Dim pType As String, trimpTEXT As String g>12!2}  
    If Me.chkNum.Value = True Then v(W$\XH  
        Me.txtStatus.Text = "转换全角数字形式为半角" ^ b{0|:  
        ConvertWidth "1", "1" 6%sX<)n%]  
        DoEvents 8)s}>:}  
        ConvertWidth "2", "2" &#;vR 0O  
        DoEvents 3lcd:=  
        ConvertWidth "3", "3" -GLI$_lLF  
        DoEvents {" woBOaA  
        ConvertWidth "4", "4" @] uvpI!h  
        DoEvents #K.OJJ aG  
        ConvertWidth "5", "5" |Gx-c ,{{  
        DoEvents ]R32dI8N  
        ConvertWidth "6", "6" {u{n b3/jl  
        DoEvents  3,DUT{2  
        ConvertWidth "7", "7" z lco? Rt  
        DoEvents dYrw&gn  
        ConvertWidth "8", "8" i+( k  
        DoEvents >B<jR$`[email protected]  
        ConvertWidth "9", "9" 2a'b}<|[(  
        DoEvents ekND>Qjj  
        ConvertWidth "0", "0" qPDe; $J )  
        DoEvents es 8%JTi  
        ConvertWidth "a", "a" ~~!iDF \  
        DoEvents wa-#C,R\_#  
        ConvertWidth "b", "b" i2j_=X-  
        DoEvents 0"o%=i;  
        ConvertWidth "c", "c" N_(qMW  
        DoEvents rJH u~/_Dq  
        ConvertWidth "d", "d" ZX[ @P?A+-  
        DoEvents Aj((tMJNOw  
        ConvertWidth "e", "e" Clr~:2g\  
        DoEvents ;|*o^9q  
        ConvertWidth "f", "f" pKJ0+mN #"  
        DoEvents [0<N[KZ)  
        ConvertWidth "g", "g" 7TD%vhbiwi  
        DoEvents R8O; 8c?D  
        ConvertWidth "h", "h" !LB#K?I  
        DoEvents %"B+;{y(5  
        ConvertWidth "i", "i" ZFp i'u.&  
        DoEvents 2L Kpwz?  
        ConvertWidth "j", "j" 2XI%z4\)!  
        DoEvents  b )/,  
        ConvertWidth "k", "k" { _T?0L  
        DoEvents mj:X'BVA  
        ConvertWidth "l", "l" ~3bH2,{L[  
        DoEvents +AkAMZ"Mg  
        ConvertWidth "m", "m" `d]D=DtH  
        DoEvents ,'[email protected]A  
        ConvertWidth "n", "n" 7%DA0.g  
        ConvertWidth "o", "o" qp$Td<'Y  
        ConvertWidth "p", "p" 8 :B(}Y4K  
        ConvertWidth "q", "q" -7{qTe {  
        ConvertWidth "r", "r" 5q4sxY9T  
        ConvertWidth "s", "s" ]yI~S(  
        ConvertWidth "t", "t" :'p+Ql~c  
        ConvertWidth "u", "u" $fZVh%  
        ConvertWidth "v", "v" x.W93e[]H  
        ConvertWidth "w", "w" Zpc R   
        ConvertWidth "x", "x" 3"afrA  
        ConvertWidth "y", "y" h[H FZv~{  
        ConvertWidth "z", "z" K;j}qJvsb  
        ConvertWidth "A", "A" $0+n0*fp  
        ConvertWidth "B", "B" 0 ~K4vSa  
        ConvertWidth "C", "C" W C z+  
        ConvertWidth "D", "D" L *",4!  
        ConvertWidth "E", "E" <g9@iUOI  
        ConvertWidth "F", "F" DvL/xlN  
        ConvertWidth "G", "G" y/{&mo1\  
        ConvertWidth "H", "H" $}_a`~u  
        ConvertWidth "I", "I" 86+nFk  
        ConvertWidth "J", "J" <E/"v  
        ConvertWidth "K", "K" Y6<"_  
        ConvertWidth "L", "L" BO]}E:C9  
        ConvertWidth "M", "M" K`%{(^}.  
        ConvertWidth "N", "N" $7\Al$W\  
        ConvertWidth "O", "O" BhFyEY(  
        ConvertWidth "P", "P" nz-( 8{ae  
        ConvertWidth "Q", "Q" U4PnQ K,  
        ConvertWidth "R", "R" o[email protected] 16  
        ConvertWidth "S", "S" Ib V 7}  
        ConvertWidth "T", "T" DVC<P}/  
        ConvertWidth "U", "U" 1:{BC2P  
        ConvertWidth "V", "V" 3hUU$|^4gm  
        ConvertWidth "W", "W" .zDm{_'  
        ConvertWidth "X", "X" LYM(eK5V  
        ConvertWidth "Y", "Y" FQ6jM~  
        ConvertWidth "Z", "Z" D X|yL!4[  
        ConvertWidth "^l", "^p" *Y"j 0Yob  
        ConvertWidth "(", "(" fT$Fv  
        ConvertWidth ")", ")" ( q8uB  
     4\Nt"#U)g  
    End If  P`ZYm  
zI$24L9*  
    With ActiveDocument \~ACWF 7l  
        Dim tbl As Table h 7x_VO  
        For Each tbl In .Tables T1Gy_ G/  
            tbl.Rows.Alignment = wdAlignRowCenter @ckOLtxE>  
            tbl.Range.Font.NameFarEast = "楷体" e/S^Rx4W  
            tbl.Range.Font.NameAscii = "Times New Roman" T][r'jWQ  
            tbl.Range.Font.Size = 10.5 !`UHr]HJ  
        Next vH`m W`=  
        Set tbl = Nothing Zcq 4?-&  
    End With ZA;VA=)\8  
     Xwer QwO=  
     E]opA$JQ  
    With ActiveDocument Z{#;my*X|  
         QAI!/bB  
        For i = 1 To .TablesOfContents.Count aC9PlKI  
            .TablesOfContents(i).Delete /d/Q uro  
        Next gr&Rkuyfv  
         Q|3SYJf  
         rEWPVT  
         %b)~K|NEFf  
        paraTotal = .Paragraphs.Count ~YYg~6}vV  
        paraCounter = 1 d7O\p(M1  
         9[[email protected]*7A`m  
        LastTitle0No = 0 fD>0  
        LastTitle1No = 0 JE[+   
        LastTitle2No = 0 xQKD1#y  
        LastTitle3No = 0 >WKlR` J%  
        LastTitle4No = 0 !uno!wUIYd  
        LastTableNo = 0 Vv]81y15Q;  
        LastFigureNo = 0 A&dNCB  
         [+j39d.Q  
        Dim Sec As Long x?|C-v  
         G iF})e}  
        Sec = InputBox("正文从第一节开始?", "节设置", 6) C/sDyv$  
        If Sec = 0 Then x>E**a?!L  
            Exit Sub @C}Hx;f6  
        End If fUJ\W"qya  
         4_A9o9&_Rh  
        k = 0 Ob|[/NN  
        Do While (paraCounter < paraTotal) And bContinue /p&)bL  
            k = k + 1 guD?~-Q  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then <;?&<qMo,P  
                Exit Do 0lvX,78G;  
            End If /G>reG,G  
            paraCounter = paraCounter + 1 l imzDQ^  
            If k Mod 20 = 0 Then N,><,7!q$,  
                Me.lbCounter.Caption = paraCounter [email protected]#t  
                DoEvents iN}BMd.U  
            End If hVfiF  
        Loop B-OuBS,fwC  
         i"rrM1/r  
         (\^)@Y  
        Do While (paraCounter < paraTotal) And bContinue M~G1ZB  
             tv _Cn w  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) ;[_w&"[6a  
            ShapeHeight = 0 x_&m$Fh  
            ShapeWidth = 0 B1&H5gxgN  
           -CTsB)=\,  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth ^z[-pTY  
             jZ'y_  
            Select Case ParaType jaoGm$o>"F  
                Case "【】表格内容" N1V qK  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" \E'Nk$V3  
                Case "章" n.m6n*sf7  
                    LastTitle0No = LastTitle0No + 1 ;,z^!bD  
                    '新一章开始,复位其下属标题编号 p,?8 s%  
                    LastTitle1No = 0 GMw|@?:{  
                    LastTitle2No = 0 v!;E1  
                    LastTitle3No = 0 (VPT% l6  
                    LastTitle4No = 0 O ).1>  
                     u&=SZX&G k  
                    k = Val(ttNo) X-Sso9/q.  
                    If k = 0 Then '非数字编号章节 4LU'E%vlC  
                        If ttNo <> NoSeries1(LastTitle0No) Then cZRLYOC  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString |U_48  
                            Me.ErrMsg.AddItem "章节编号错误:" & ParaText N_vVEIO9  
                        End If u+]v. Mt  
                    Else %Km_Sy[7']  
                        If Val(ttNo) <> LastTitle0No Then Fj Up+5  
                            rText = "第" & LastTitle0No & ttString 7p?6j)rj  
                            Me.ErrMsg.AddItem "章节编号错误:" & ParaText tPS.r.0#^  
                        End If I  +,D,Vg  
                         ;+-$=l3[a  
                    End If M} IRagm  
                     B[ f{Ys  
                    '章段落设置 's{-1aW  
                    '字体大小:三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 JH~ve  
                    .Paragraphs(paraCounter).Style = "QLNU章节" Zq|oj^  
                    .Paragraphs(paraCounter).Range.Select ;8 ~`fK  
                    Selection.EndKey unit:=wdLine 'aB0abr|  
                    tc = Replace(rText, vbCr, "") /$hfd?L  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False  ?4 `K8  
                Case "一级标题" xDBEs*  
                    LastTitle1No = LastTitle1No + 1 r\Wp\LfY&{  
                    '新一级标题开始,复位其下属标题编号 lLHHuQpuj  
                    LastTitle2No = 0 %iI0JF*E z  
                    LastTitle3No = 0 LnJ/t(KV  
                    LastTitle4No = 0 _%s_w)  
                     y(:hN)  
                    If ttNo <> NoSeries1(LastTitle1No) Then ]xfAdBi  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString `h M:U  
                            Me.ErrMsg.AddItem "一级标题编号错误:" & ParaText Gvt.m&_  
                    End If h<*l=`#  
                   'uUp1+  
                     )_T[thf]  
                    '一级标题段落设置  格式:一、标题内容 r0kA47  
                    .Paragraphs(paraCounter).Range.Text = rText [pbX_  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" qH6DZ |  
                    .Paragraphs(paraCounter).Range.Select gQ h0-Dnw  
                    Selection.EndKey unit:=wdLine jh]wHG  
                    tc = Replace(rText, vbCr, "") dUn8Xqj1  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False -!MDYj+U  
                Case "二级标题" 8Es]WR5 ^  
                    LastTitle2No = LastTitle2No + 1 _]tR1T5e  
                    '新二级标题开始,复位其下属标题编号 ja~b5Tf9  
                    LastTitle3No = 0 G=3/PYp  
                    LastTitle4No = 0 p;j$i6YJ  
                     UhY )rezh  
                    If ttNo <> NoSeries1(LastTitle2No) Then [email protected]mKbp  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString 1 X2oz  
                            ErrMsg.AddItem "二级标题编号错误:" & ParaText VzpPopD,QW  
                    End If  z$-/yT"M  
                     44?5]C7  
                    '二级标题段落设置 格式:(一)、标题内容 K 3&MR=#^  
                    .Paragraphs(paraCounter).Range.Text = rText 1 l\O9D +$  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" N)RWC7th{  
                     )1j~(C)E8  
                    .Paragraphs(paraCounter).Range.Select mo#4jtCE  
                    Selection.EndKey unit:=wdLine ;0xCrE{l"  
                    tc = Replace(rText, vbCr, "") 5]; 8  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False Rv q_Zsm  
                 Dt1{]~30  
                Case "三级标题" *^c4q|G.-  
                    LastTitle3No = LastTitle3No + 1 qB]z"Hfq,  
                    '新三级标题开始,复位其下属标题编号 7^ KQQ([  
                    LastTitle4No = 0 W\U zw,vI  
                     Lj(hk @  
                    If Val(ttNo) <> LastTitle3No Then B0q![  
                            rText = LastTitle3No & ". " & ttString Eg-b5Z);  
                            Me.ErrMsg.AddItem "三级标题编号错误:" & ParaText g,y`[dr  
                         M=o,Sav5*  
                    End If #TW$J/Jb  
                    '三级标题段落设置 格式:1. 标题内容 kc8GnKM&mc  
                    .Paragraphs(paraCounter).Range.Text = rText qR]4m]o  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" 8)"KPr63M  
                    .Paragraphs(paraCounter).Range.Select b q[Q  
                    Selection.EndKey unit:=wdLine <?qmB }Y  
                    tc = Replace(rText, vbCr, "") %/etoK  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False r-N2*uYtu  
                Case "四级标题" QJdSNkc6  
                    LastTitle4No = LastTitle4No + 1 &%qD Som3  
                     m1F<L  
                    If Val(ttNo) <> LastTitle4No Then jI;bV G  
                            rText = "(" & LastTitle4No & "). " & ttString //ZB B,[@  
                            ErrMsg.AddItem "四级标题编号错误:" & ParaText [email protected]Zm8r<  
                     -& ,NM  
                    End If nQ$N(2<Fe  
                    '四级标题段落设置 格式:(1). 标题内容 h%=b"x  
                    .Paragraphs(paraCounter).Range.Text = rText d'[aOH4}  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" 7=QV^G  
                    .Paragraphs(paraCounter).Range.Select <u2*(BM4  
                    Selection.EndKey unit:=wdLine hD >:WJ  
                    tc = Replace(rText, vbCr, "") kOdS^-  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False a _  
                 qZ\zsOnp  
                Case "表格标题" @%\ANM$S  
                    LastTableNo = LastTableNo + 1 sWavxh8A  
                     x ;Gyo  
                    If ttNo <> CStr(LastTableNo) Then n+Ag |.,|  
                            rText = "表" & LastTableNo & ". " & ttString m qw!C  
                            ErrMsg.AddItem "表格编号错误:" & ParaText >D:S)"  
                   V'K$:9^x[8  
                    End If ['s_qCA[  
                     =l7LEkR  
                    '表格名称段落设置 格式:表1. 表格名称 C4 Wdt  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" Gzp)OHgJ  
                    xe = Replace(rText, vbCr, "") :!}zdeRJ  
                    .Paragraphs(paraCounter).Range.Select Z:/[email protected]y  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 mu{%%b7|^  
                    Selection.Range.Text = xe e/Q[%y.X  
                    Selection.EndKey Uw&+zJ  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False 2O T6*+D  
                 EL}v>sC  
                Case "表格首行" 3&y u  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" iT5H<uS  
                Case "图片标题" )<^ ~${$U  
                    LastFigureNo = LastFigureNo + 1 :X4\4B*~  
                     \~?s= LT  
                    If ttNo <> CStr(LastFigureNo) Then oTa ! F;I  
                            rText = "图" & LastFigureNo & ". " & ttString wj'iU&aca  
                            ErrMsg.AddItem "表格编号错误:" & ParaText ]#:xl}'LS  
                   bR8)s{p6  
                    End If >8 JvnBFx=  
                    '图片名称段落设置 格式:图1. 图名称 |@ldXuYb  
                    .Paragraphs(paraCounter).Range.Text = rText \FKIEg+(2  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" $Ilr.6';  
                    .Paragraphs(paraCounter).Range.Select $`=?N[email protected]@#  
                    Selection.EndKey unit:=wdLine O,OGq0c  
                    xe = Replace(rText, vbCr, "") "mH^Owai  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False 2(c#m*Q!b  
                Case "正文" 8U(a&G6gn  
                     '正文名称段落设置 wlpbfO e/  
                    .Paragraphs(paraCounter).Style = "QLNU正文" M^[ jA](a  
               Case "文献条目" '~2v/[<`}  
                    With .Paragraphs(paraCounter) /Z@.;M  
                        '.Range.Select ttKfZ0  
                        'Selection.ClearFormatting [`b{eLCFX]  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分, 而StrSeperator传回了正确的格式与分隔符如“[15] ” s24H.>Z  
                        .Style = "QLNU参考文献" l|fd,  
                    End With )Z_i[1V  
               Case "图表注解" _0f[.vN  
                    With .Paragraphs(paraCounter) 3AL.UBj&}  
                        .Range.Font.NameFarEast = "楷体" *AA1e}R{B  
                        .Range.Font.NameAscii = "Times New Roman" Hb$q}1+y  
                        .Range.Font.Size = 9 '小5号字 b;O+QRa  
                         Rd$<R  
                        .Alignment = wdAlignParagraphCenter DVS7N_cx2o  
                        .LeftIndent = 0 1k~jVC2VA  
                        .RightIndent = 0 Lg nGqIlx  
                        .FirstLineIndent = 0 %51pfuL  
                        .LineSpacing = 12 b7,qzh  
                        .LineSpacingRule = wdLineSpaceExactly ' FK"-)s  
                        .LineUnitAfter = 0 WE"'3u^k  
                        .LineUnitBefore = 0 > @%!r  
                        .OutlineLevel = wdOutlineLevelBodyText <?g{Rn  
                        .PageBreakBefore = False ;i:7E#@  
                        .RightIndent = 0 :ox CF0Y  
                        .WordWrap = True z[rB/ |2  
                        .LineUnitAfter = 0.5 ( BGipX4  
                         MDq@:t  
                    End With `WT7w']NT  
                Case Else - +=8&Wa  
                    '不作处理 wf4Q}l2,d  
            End Select gn%"dfm  
             OG+$F  
            '含有inlineshape的段落处理 6{~I7!m"  
            If ShapeHeight > 30 Then RW)C<g  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 8B+uNN~%]  
            End If @e7+[email protected] O<  
             3YRzBf:h  
            If (ShapeWidth + ShapeHeight) > 150 Then L}mhMxOTi  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" O+N-x8W{  
            End If MI}D%n*  
             |H4'*NP"  
            '段落计数器递 iI1t P  
            paraCounter = paraCounter + 1 ]VME`]t`  
            Me.lbCounter.Caption = "当前检测段落:" & paraCounter *8p</Q  
            Me.txtStatus.Text = ParaText Vh8uE  
            DoEvents [ZbK)L+_  
        Loop "mf;k^sqS  
    End With 8\9EDgT  
     cPbz7  
    msg = "" 8{YxUD  
     ^bG!k]U!2  
    For i = 0 To Me.ErrMsg.ListCount - 1 Ydx5kUJV<  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) [email protected]* ^]'  
    Next SD&[K 8-i2  
     DbN'b(+  
     #<o#kJL  
     dq([email protected]&J  
    Me.txtStatus.Text = "格式化完成!" & vbCrLf & "开始时间:" & tm1 & vbCrLf & "结束时间:" & Now & vbCrLf & msg kXr %73s  
    Me.cmdCheck.Enabled = True ?>Aff`dHY  
    Me.txtStatus.Visible = True "x)DE,  
    Me.lbParaType.Visible = False hqPn~Tq  
     BR2y1Hfi  
    bContinue = False 5o/rV.I  
End Sub ThxrhQ q[+  
F?=u:  
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) Os{qpR^<I:  
    Dim pTEXT As String +mQSlEo  
     Ub,unU  
    pTEXT = ChKRange.Text eXK`%'  
     *-_Np u6  
    ParaType = "其它" 2#3R]zIO  
    TitleString = pTEXT 1RA$h[email protected]}  
    TitleNo = "N/A" kdC OcJB  
     I8?[@kg5b'  
    shpCounter = ChKRange.InlineShapes.Count dI-5%Um  
    If shpCounter <> 0 Then l'QR2r7&.  
        MaxShpHeight = 0: TotalShpWidth = 0 F6p1 VFs  
        For i = 1 To shpCounter <Z' hZ  
            k = ChKRange.InlineShapes(i).Height Ao T7sy7  
            l = ChKRange.InlineShapes(i).Width aB^G  
            If k > MaxShpHeight Then n^N]iw{G  
                MaxShpHeight = k 1!3kAcBP  
            End If !Y u-a!   
            TotalShpWidth = TotalShpWidth + l >nQ yF  
        Next 5>)jNtZ  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then " 44?n <1  
            Exit Sub fh#_Mj+y  
        End If [email protected]9c9  
    End If SWpUVZyd  
     }eM <A$J  
    '空行 p8l#=]\ ;  
    If Len(pTEXT) <= 2 Then &F_rg,q&_  
        Exit Sub =joXP$n^  
    End If VU9P\|[email protected]<  
     zF&UdS3  
         2< Bv=B  
    '是否为表格中的文字 GDp p`'\  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then a}fClI-u  
        ParaType = "表格内容" +o]BjgG  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) 5Q`n6x|  
        If k = 1 Then ?(yFwR,(  
            ParaType = "表格首行" CDj Dhs  
        End If S7{.liHf  
        Exit Sub RH]>>tJ^e  
    End If ,hLSRj{  
     sdYj'e:N  
    '例外情况:脚注 aG _O N0g  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then dM{~Ubb  
        ParaType = "脚注" 3^> a TU<Z  
        Exit Sub 1Uk~m  
    End If @T1+b"TC  
     <0)ud)~u  
    '例外情况:尾注 D|j \ nQ  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then 8Ql'(5|T  
        ParaType = "尾注"  ii y3  
        Exit Sub g)qnjeSs]  
    End If ><Z3<7K9  
     {@__%=`CCS  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then BK9x`Oo2  
        ParaType = "页眉页脚" D1~x  
        Exit Sub dqA[|bV  
    End If ggc?J<Dv  
     WwtE=od  
     @B[Cc`IN"  
    With regEX 2 BX GVo  
        .Global = True M5WtGIV  
         /I'u/{KB  
        .Pattern = "^第([1-9]|1|2|3|4|5|6|7|8|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|.)+(.{1,30})$" S?\hbM]V-o  
        If regEX.Test(pTEXT) Then qlITQKGG  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") rw[{@|)'z  
            TitleString = regEX.Replace(pTEXT, "$3") DnsP7k.8T  
            TitleNo = regEX.Replace(pTEXT, "$1") 5}bZs` C  
            ParaType = "章" ;'QY<,p[e  
            Exit Sub X2dc\v.x  
        End If |( 9#v t#  
         !L. K)9I  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|.)+(.{1,40})$" t-*|Hfp*^  
        If regEX.Test(pTEXT) Then q%k(M[  
            ParaType = "一级标题" a T:AxYn8  
            regEX.Execute (pTEXT) D`:d'ow~KQ  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") PuZs 5J3  
            TitleString = regEX.Replace(pTEXT, "$3") Nv?-*&L  
            TitleNo = regEX.Replace(pTEXT, "$1") xVkTRCh  
            Exit Sub ( *>/w$%  
        End If bk"k&.C^+  
         7X{bB  
        '全角或半角括号中的数字 'nWs0iH.  
        .Pattern = "(^\(|()(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|))(、|\.|\s|。|.)*(.{1,40})$" }"?nU4q;S  
        If regEX.Test(pTEXT) Then ~,*YmB=Z  
            ParaType = "二级标题" )R8%'X;U  
            regEX.Execute (pTEXT) 0w(T^G hZ  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") .^~l_ LkA  
            TitleString = regEX.Replace(pTEXT, "$5") W .`Xm(y  
            TitleNo = regEX.Replace(pTEXT, "$2") M ?xpwq u\  
            Exit Sub Kka8cG  
        End If Np<&#s[dQ  
         !3I(4?G,  
        '阿拉伯数字  1. 2. ^@`e  
        .Pattern = "^([1-9]|1|2|3|4|5|6|7|8|9|0){1,2}(、|\.|\s|。|.)+(.{1,80})$" \} Ac q;  
        If regEX.Test(pTEXT) Then kg: uGP9  
            ParaType = "三级标题" + sywgb)  
            regEX.Execute (pTEXT) UM( l%  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换,如需要可分成两步分别检测 WVWS7N\  
            TitleString = regEX.Replace(pTEXT, "$3") +an^e'  
            TitleNo = regEX.Replace(pTEXT, "$1") twtkH~`"Q  
            Exit Sub xshAr J& A  
        End If xd|~+4  
         !/6\m!e|1R  
        '全角或半角括号中的阿拉伯数字 }B=qH7u.K  
        .Pattern = "^(^\(|()([0-9]|0|1|2|3|4|5|6|7|8|9){1,2}(\)|))(、|\.|\s|。|.)*(.{1,80})$" r%F(?gKXkd  
        If regEX.Test(pTEXT) Then wD6!#t k  
            ParaType = "四级标题" FL`1yD^2  
            regEX.Execute (pTEXT) 7"F|6JP"$c  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") ~mK-8U4>K,  
            TitleString = regEX.Replace(pTEXT, "$5") i}`_H^  
            TitleNo = regEX.Replace(pTEXT, "$2") j!x<QNNX  
            Exit Sub xaWGa1V'z  
        End If 3WCqKXJ7  
         5:%..e`T  
        '表格名称 cophAP  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|.|\s]{1,9})(.{1,120})$" 6h2x[email protected]  
        If regEX.Test(pTEXT) Then f2 ydL/M,  
            ParaType = "表格标题" Jh$"fr3  
            regEX.Execute (pTEXT) B:?#l=FL  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) ?""\  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) eu}Fd@GO  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) F?b'L JS  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么,但是发现传回的replacetext在修改Paragraph对象的Range.Text后,表格标题就会落入第一个单元格中,所以,只能用Paragraph.Range.Find.Execute方法替换 X'FEOF  
            Exit Sub my ;  
        End If LG=X)w)W4S  
         )X~Pr?52?  
        '图片名称 ]yAEjn9cN  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|.)+(.{1,120})$" (_w %  
        If regEX.Test(pTEXT) Then ?ds [email protected]\  
            ParaType = "图片标题" [`.3f'")j  
            regEX.Execute (pTEXT) ~V2ajM1Z&O  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") @7@e`b?  
            TitleString = regEX.Replace(pTEXT, "$3") 5pRY&6So  
            TitleNo = regEX.Replace(pTEXT, "$1") 9H h~ nR?  
            Exit Sub AanH{  
        End If ~$4]HDg  
         A[email protected]+(\  
        '参考文献 d7"U WY^  
        .Pattern = "^([\[|[])(\d+)([]|\]])([、|\.|\s|。|.]{0,1})"  '[数字]、 ^]$$)(jw  
        If regEX.Test(pTEXT) Then +{xMIl_  
            ParaType = "文献条目" dD/t_ {h  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") 50LHF %  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") Q[J [=  
            Exit Sub \|2t TvW,0  
        End If xLx"*jyL  
         #PPR"w2g  
        prfx = Left(pTEXT, 2) rI0)F  
        If prfx = "注:" Or prfx = "注:" Then  VQ`,#`wV  
            ParaType = "图表注解" ybZ}  
            Exit Sub of8mwnZR  
        End If )A="eW_>  
         v%lv8Lar'  
         ^^G-kg  
        ParaType = "正文" \ Y*h  
         NW{y% Z  
    End With \O kc5;kB2  
End Sub M#OH Y *  
 yp=|7  
Sub ConvertListToOrdinary() %p0b{P j_p  
    Dim st As Paragraph +XEjXH5K  
    With ActiveDocument 96c"I;\GXX  
        For i = .Paragraphs.Count To 1 Step -1 Ovv ny$  
            Set st = .Paragraphs(i) [{`)j  
            lst = st.Range.ListFormat.ListString .Y!;xB/  
            If lst <> "" Then Z'Kd^`mt 9  
                st.Range.ListFormat.RemoveNumbers NEA_Plt  
                st.Range.InsertBefore lst & " " [%)@|^hw91  
            End If |*:tyP%m^  
        Next jCzGus!rM  
    End With .i$,}wtw  
    Set st = Nothing 16I&7=S,  
End Sub !:(C"}5wM  
QhsMd- v  
Private Sub UserForm_Activate() 6sPk:5  
    Me.lbTotal.Caption = "当前文章段落总数:" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" U,PZMz`2j  
    Me.lbTotal.Font.Bold = True Iz#yQ`  
    Me.txtStatus.Visible = False 0Cl,8P  
    Me.cmdCheck.Enabled = True Bi e?M  
NCa~#i:F8  
End Sub k({2yc#RD&  
*=Doe2(!C  
);nz4/V  
Sub CheckSuperScript() V1<ow'^i  
    Selection.Find.ClearFormatting bFg*l$`5  
    Selection.Find.Replacement.ClearFormatting Yp*,Jp1  
    With Selection.Find WSQ[.C  
        .Text = "[【\[[〖](*)[】\]〗]]" ! .AhzU1%Y  
        .Replacement.Text = "[\1]" %y>+1hakkX  
        .Replacement.Font.Superscript = True X~lZOVmS  
        '.Replacement.Font.Color = wdColorBlue P+h6!=nD7  
        .Forward = True Z!= L   
        .Wrap = wdFindContinue .(|+oHg<  
        .FORMAT = True 4r\*@rq  
        .MatchCase = False ~\$=w10  
        .MatchWholeWord = False Z==!C=SBv  
        .MatchByte = False id^|\hDR  
        .MatchAllWordForms = False :r&iM b:Ra  
        .MatchSoundsLike = False vQ 4}WtvA  
        .MatchWildcards = True G$C }?" l  
    End With *(G&B\  
    Selection.Find.Execute Replace:=wdReplaceAll 4qt+uNe!  
End Sub il12T`a  
@lS==O-`f  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) A:eFd]E{(  
    bContinue = False b6"}"b G  
    Set regEX = Nothing vt.P*Z5  
End Sub f ba&`  
ocF>LR%P  
Sub CeateOrModifyStyle() _.{zpF=j  
' zsDocR   
' r| f-_D  
Dim stl As Style %:3'4;jh%  
     (s s3A9tG  
    Options.Pagination = False :Hk_8J  
     rfs(#  
    On Error Resume Next aG(hs J)  
    For Each stl In ActiveDocument.Styles k#C f})  
        stl.Delete O2.' -  
    Next KY$k`f6?P  
    On Error GoTo 0 */w7?QOv  
     T~Ly^|Ihz  
    Set stl = Nothing H\E7o" m  
     Vr/Bu4V"  
    DoEvents BC! 6O/kr  
    On Error Resume Next KlN/\N\  
     zBY ~lNB  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph X&a:g  
     ;F5"}x  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph mu[Op*)  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph nO{ x^b <  
     :g2  }C  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph XWUP=D~  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph 8[zb{PRu  
     Kb&V!#o)  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph XA<ozq'  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph K]/Od  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph ?^u^im  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph 9 |.Ao  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph |0sPka/u16  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph FI"HJwAs  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph #DFp[\)1  
     mnjs(x<m  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph CqFeF?xd8h  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph pJBg?D  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph >2b`\Q*<  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph _c2WqQ-05  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph pu9^e4B9  
     c8Z A5|  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph "(`2eXRn  
    On Error GoTo 0 KjYAdia:H  
    DoEvents B=n[)"5fBO  
     j6S"UwJjp  
    'BaseStyle 0[xpEiDx  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False z.oU4c  
    With ActiveDocument.Styles("BaseStyle").Font &Z;_TN9[  
        .NameFarEast = "宋体" r37[)kJ  
        .NameAscii = "Times New Roman" lpgd#vr  
        .NameOther = "宋体" Eectxyr?;N  
        .Size = 10.5 C ^w)|2o}  
        .Bold = wdUndefined 3mO;JXd  
        .Italic = wdUndefined ?9mkRd}c  
        .Subscript = wdUndefined };,/0Fu  
        .Subscript = wdUndefined XNehP ZYS  
         "Sridh?  
        .Underline = wdUnderlineNone J !HjeZ  
        .UnderlineColor = wdColorAutomatic sy/nESZs  
        .StrikeThrough = False &~~wX,6+  
        .DoubleStrikeThrough = False 5Bjgr  
         S6xgiem  
        .Outline = False G2:%g(  
        .Emboss = False +f|BiW  
        .Shadow = False [email protected]A?  
        .Hidden = False X~oK[Nf'9  
        .SmallCaps = False -!e7L>w  
        .AllCaps = False J2VTo: In  
        .Color = wdColorAutomatic 0w=R_C) s  
        .Engrave = False 2;2}wM[  
        .Scaling = 100 g}x(hF  
        .Kerning = 1 a5jL7a?6]  
        .Animation = wdAnimationNone N&,]^>^u  
        .DisableCharacterSpaceGrid = False ^D{ lPu 3  
        .EmphasisMark = wdEmphasisMarkNone o-C#|t3hH  
    End With S( ^.?z  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat p{D4"Qn+P9  
        .LeftIndent = 0 ;# uZhd  
        .RightIndent = 0 BU|#e5  
        .SpaceBefore = 0 U_B(( Z(g  
        .SpaceBeforeAuto = False CGbwm Px  
        .SpaceAfter = 0 3Ot~!AlR  
        .SpaceAfterAuto = False bBc[bc>R  
         0Ua%DyJ  
        .LineSpacingRule = wdLineSpaceSingle T;5r{{  
        .Alignment = wdAlignParagraphJustify z (?=Iv3  
         em{(4!W>  
        .WidowControl = False Wb}c=hZv  
        .KeepWithNext = False PcT?<HU  
        .KeepTogether = False )2IH 5  
        .PageBreakBefore = False oU*45B`"  
        .NoLineNumber = False _)T5lEFl=  
         )wvHGecp*  
        .FirstLineIndent = CentimetersToPoints(0) Dd/wUP  
        .OutlineLevel = wdOutlineLevelBodyText g%[c<l9  
        .CharacterUnitLeftIndent = 0 sEJC-$   
        .CharacterUnitRightIndent = 0 **3 z;58 i  
        .CharacterUnitFirstLineIndent = 0 qOih`dla  
        .LineUnitBefore = 0 42J {aJVH  
        .LineUnitAfter = 0 $D'- k]E[H  
        .AutoAdjustRightIndent = True T~0k"uTE  
        .DisableLineHeightGrid = True "pP^*9FrA  
         ~*[email protected] \R  
        .FarEastLineBreakControl = True o1cErI&q"  
        .WordWrap = True c2t=_aAIPQ  
        .Hyphenation = False . mLK`c6  
         anMF-x4/*q  
        .HangingPunctuation = True j)C,%Ol  
        .HalfWidthPunctuationOnTopOfLine = True w-wV3Q6X  
        .AddSpaceBetweenFarEastAndAlpha = True eq(am%3~  
        .AddSpaceBetweenFarEastAndDigit = True fC,:{}  
        .BaseLineAlignment = wdBaselineAlignBaseline }XO K,Hw  
    End With /='. 4 v  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False SCvVt  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll 2'EU[email protected]  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese +LM#n#T  
    ActiveDocument.Styles("BaseStyle").NoProofing = False ?=m?jNa;nC  
     +t5U.No  
    '一级标题题样式 3 @ak<9&  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") F *FwRj  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" 7(5xL T$  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False QnZcBXI8  
    With ActiveDocument.Styles("QLNU一级标题").Font s<qe,' Y  
        .NameFarEast = "黑体" Q8!) !r%  
        .NameAscii = "Arial Black" ),G =s Oo  
        .NameOther = "黑体" -gSUjP  
        .Name = "黑体" vVE2m=!v  
        .Size = 16              '三号 v\m ]A1  
        .Bold = True 91 =OF*w  
        .Italic = wdUndefined MrZh09y  
        .Subscript = wdUndefined ^6 _e=jIN  
        .Superscript = wdUndefined Oo"^%F~%  
    End With Tb3J9q+ya  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat &boOtl^  
         `c<;DhNO  
        .LeftIndent = CentimetersToPoints(0) O8B\{T1  
        .RightIndent = CentimetersToPoints(0) }ZYv~E'  
        .FirstLineIndent = CentimetersToPoints(0) ;\f gF@  
         (h >-&.` &  
        .LineSpacingRule = wdLineSpaceSingle $2W%2rZ  
        .Alignment = wdAlignParagraphCenter >}+/{(K"E|  
         :yUEkm8  
        .WidowControl = True /YZr~|65  
        .KeepWithNext = True c-B cA  
        .KeepTogether = True b )B? F  
        .OutlineLevel = wdOutlineLevelBodyText zuUW|r  
         W[Ls|<Q  
        .LineUnitBefore = 0.5 rg^'S1x|  
        .LineUnitAfter = 0.5 "rx-_uK*  
    End With 3AU;>D^5  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False 9I6a"PGDb  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll :]\([Q+a  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese YB-h.1T-  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True i\,-oO  
    DoEvents Zl^\Q=*s  
     Qk:Y2mL  
    '二级 OX\A|$GS  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") MF5[lK9e  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" @7IIM{  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False &5yV xL:  
    With ActiveDocument.Styles("QLNU二级标题").Font )h7<[email protected]&  
        .NameFarEast = "黑体" bbE!qk;hEP  
        .NameAscii = "Arial Narrow" U|jS a,}  
        .NameOther = "黑体" P G[email protected]  
        .Name = "黑体" j0oR) du  
        .Size = 15        '小三号 Z&1\{PG3*  
        .Bold = False Zy`m!]G]80  
        .Outline = False 'Gj3:-xqL  
        .Italic = wdUndefined YtmrRDQs  
        .Subscript = wdUndefined 8Vr%n2M  
        .Superscript = wdUndefined fU/>z]K  
    End With fdFo#P  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat hgPa6Kd  
        .LeftIndent = CentimetersToPoints(0) k>;`FFQU>  
        .RightIndent = CentimetersToPoints(0) Ayxkv)%:@)  
        .FirstLineIndent = CentimetersToPoints(0) b3=rG(0f  
         MTuV^0%jD  
        .LineSpacingRule = wdLineSpaceSingle g6j?,c|y  
        .Alignment = wdAlignParagraphLeft ! >FYK}c7  
         Lt64JH^lz  
        .WidowControl = True m| n  
        .KeepWithNext = True *4\:8  
        .KeepTogether = True ;U/&I3dzV  
        .PageBreakBefore = False LSL/ZvSP  
        .OutlineLevel = wdOutlineLevelBodyText jeoz* Dz  
         ?9 <:QE;I>  
        .LineUnitBefore = 0.5 ]_f_w 9]  
        .LineUnitAfter = 0.5 e"{{ TcNk  
         &."iFe  
    End With cr7 }^s  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False 5_GYrR2  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll 3l rT3a3vV  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese (KjoSN( K  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True n] ._uza  
    DoEvents ?WGA?J %2  
     n(1l}TJy  
    '三级标题样式  -*1d!  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") }T(D7|^R  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" \V;F/Zy(  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False P) Jgs  
    With ActiveDocument.Styles("QLNU三级标题").Font  dm\F  
        .NameFarEast = "宋体" b/+u4'"  
        .NameAscii = "Times New Roman" ]E5o1eeg  
        .NameOther = "黑体" n@<YI  
        .Name = "黑体" 03$mYS_?  
        .Size = 14               '四号 G|bT9f$  
        .Bold = False r8`ffH  
        .Outline = False (nQ ^  
        .Italic = wdUndefined ^9v4OUG  
        .Subscript = wdUndefined .]8ZwAs=&  
        .Superscript = wdUndefined hNC&T`.-~B  
    End With y8]B:_iU9  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat KjD/o?JUr  
        .LeftIndent = CentimetersToPoints(0) {&&z-^  
        .RightIndent = CentimetersToPoints(0) =x/X:;) >  
        .FirstLineIndent = CentimetersToPoints(0) R$R *'l  
         j\eI0b @*  
        .LineSpacingRule = wdLineSpaceSingle $o+j El>  
        .Alignment = wdAlignParagraphLeft owVX*&b{  
         L^1NY3=$  
        .WidowControl = True R)c?` :iUB  
        .KeepWithNext = True Amtq"<h9a  
        .KeepTogether = True 0_jf/an,%  
        .PageBreakBefore = False 5?f ^Rz  
        .OutlineLevel = wdOutlineLevelBodyText ^ gdaa>L  
         6_(&6]}66  
        .CharacterUnitLeftIndent = 0 /p/]t,-j2  
        .CharacterUnitRightIndent = 0 _P!m%34|  
        .CharacterUnitFirstLineIndent = 2 9Gvd&U  
         2R[:]-b  
        .LineUnitBefore = 0.5 *I B4[6  
        .LineUnitAfter = 0 Na<pwC  
    End With 4S7v:1~xe  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False bTI|F]^!  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll z}.e]|b^H  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese oh4E7yN  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True  {y)=eX9  
    DoEvents  CT&|QH{  
     i}cRi&2[  
    '四级标题样式 Z3Og=XHR  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 0- B5`=yU  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" 9=s<Ld  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False zrvF]|1UP  
    With ActiveDocument.Styles("QLNU四级标题").Font E fqX y>W  
        .NameFarEast = "宋体" T~-ycVc  
        .NameAscii = "Times New Roman" t$`r4Lb9/  
        .NameOther = "宋体" &j;wCvE4+  
        .Name = "宋体"  \__i  
        .Size = 12               '小四号 W<'m:dq  
        .Bold = True ~$c\JKH-  
        .Outline = False \P[Y`LYL  
        .Italic = wdUndefined ."g`3tVK  
        .Subscript = wdUndefined =0 #O U  
        .Superscript = wdUndefined oe^I  
    End With !n`fTK<$  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat !M(xG%M-V  
         [DuttFX^x  
        .LeftIndent = CentimetersToPoints(0) -oGdk|Yn  
        .RightIndent = CentimetersToPoints(0) [z:!j$K  
        .FirstLineIndent = CentimetersToPoints(0) &0d# Y]D4`  
         h0EEpL|\  
        .LineSpacingRule = wdLineSpaceSingle ?4YGT  
        .Alignment = wdAlignParagraphLeft ;[ZEDF5H  
         j;zM{qu_  
        .WidowControl = True /l3V3B7  
        .KeepWithNext = True .e#w)K  
        .KeepTogether = True *tA1az -jO  
        .PageBreakBefore = False *;W+>W  
        .OutlineLevel = wdOutlineLevelBodyText KM, \  
         $t+,Tav  
        .CharacterUnitLeftIndent = 0 7g^]:3f!   
        .CharacterUnitRightIndent = 0 !aUs>1i  
        .CharacterUnitFirstLineIndent = 2 : 6jbt:  
         Xg6Jh``  
        .LineUnitBefore = 0 4Z3su^XR  
        .LineUnitAfter = 0 1C+13LE$U  
         xo^b&ktQd  
    End With +|[email protected]=.V  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False t 9lPb_70  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll 70d1ReQ  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese Z-%\ <zT  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True ic:zsuEm  
    DoEvents iT+8|Yia  
     #~]zhHI  
    '正文校式 @mCEHI{P  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") |"}FXa O  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" zpn9,,~u  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False u,ho7ht3(  
    With ActiveDocument.Styles("QLNU正文").Font "Fr.fhh'~  
         kt#fMd$  
        .NameFarEast = "宋体" K-)] 1BG  
        .NameAscii = "Times New Roman" ),%%$G\  
        .NameOther = "宋体" HQdxL*N%^  
        .Name = "宋体" ,L2ZinU:  
         %6 zB Sje  
        .Size = 12               '小四号 5Pc;5 o0C  
         mthA4sz  
        .Bold = wdUndefined 8 /]S^'>  
        .Italic = wdUndefined +HpA:]#Y  
        .Subscript = wdUndefined {lzWrUGO  
        .Superscript = wdUndefined ?>:g?.+  
         Y1\}5k{>  
        .Outline = False b~P`qj[  
        .Emboss = False #P9~}JB3,  
        .Shadow = False VBlYvZ;$*  
        .Hidden = False F~vuM$+d  
         ?=msH=N<l  
        .DisableCharacterSpaceGrid = True .NC!7+1m  
    End With )r?}P1J7  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat Dj?> <@  
         }-{H  Y  
        .LeftIndent = CentimetersToPoints(0) O/(`S<iip  
        .RightIndent = CentimetersToPoints(0) }"H,h)T  
        .FirstLineIndent = CentimetersToPoints(0) |3b^~?S  
         5 V~oIL  
        .LineSpacingRule = wdLineSpaceExactly n38p!oS  
        .LineSpacing = 20 @i_FTN  
        .Alignment = wdAlignParagraphLeft 8 FK/~,I  
         79j+vH!zh  
        .WidowControl = False p` dU2gV  
        .KeepWithNext = False 2a)xTA#  
        .KeepTogether = False s\(k<Ks  
        .PageBreakBefore = False &|1<v<I5  
        .Hyphenation = False H|<[YYk  
         k"%~"9  
        .OutlineLevel = wdOutlineLevelBodyText ~Ffo-Nd-  
         p4rL}Jm&  
       \:'/'^=#|  
        .CharacterUnitLeftIndent = 0 Rok7n1gW  
        .CharacterUnitRightIndent = 0 >>)b 'c  
        .CharacterUnitFirstLineIndent = 2 wmL'F:UP  
         qr^3R&z!}  
        .LineUnitBefore = 0 ZQsJL\x[UK  
        .LineUnitAfter = 0 1=c\Rr9]  
        .SpaceBefore = 0 eK=xrk  
        .SpaceAfter = 0 8 >EWKI9  
         #G|RnV%t$~  
        .DisableLineHeightGrid = True pj{`'; :g  
    End With XEp{[email protected]=  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False !Pvf;rNI1T  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll I*{ nP)^9  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese On:il$MU  
    ActiveDocument.Styles("QLNU正文").NoProofing = True /t57!&  
    DoEvents 5lmHotj#  
     _Ey9G  
    '图片段落样式 [email protected]]Pg  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") 2#]#sZmk  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" k,6f &#x  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False jD]~ AwRJ  
    With ActiveDocument.Styles("QLNU图片段落").Font 6I4\q.^qw  
        .Size = 12               '小四号 iC32nY?  
        .Italic = wdUndefined #U4F0BdA  
        .Subscript = wdUndefined Gr'  CtO  
        .Superscript = wdUndefined OA1uY83"  
    End With Jb@ V}Ul$  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat O2E/jj  
         KnQ*vM*VM  
        .LeftIndent = CentimetersToPoints(0) 3?9IJ5p  
        .RightIndent = CentimetersToPoints(0) YeL#jtC  
        .FirstLineIndent = CentimetersToPoints(0) Dlae;5 D  
         ~d4 )/y  
        .LineSpacingRule = wdLineSpaceSingle *uf'zQ<9  
        .Alignment = wdAlignParagraphCenter 0B/,/KX  
        .KeepWithNext = True Su7?;Oh/yI  
        .OutlineLevel = wdOutlineLevelBodyText _$Yk M,  
         gIa+5\qYY  
        .CharacterUnitLeftIndent = 0 wC+u73599  
        .CharacterUnitRightIndent = 0 I\{ 1u  
        .CharacterUnitFirstLineIndent = 0 [email protected]^w3  
         "Mn6U-  
        .LineUnitBefore = 0 <tNBxa$gS  
        .LineUnitAfter = 0 KIf dafRL  
    End With gMmaK0uhS  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False ? 7n`A >T  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll Gbr=+AT  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese )e+>w=t  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True ^z IW+:  
    DoEvents GqvpA# i  
     BC#C9|n  
     +H-6eP  
    '第X章 ;kQhx6Z  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ColV8oVnU  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" 3g,`.I_  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False u(>^3PJ+  
    With ActiveDocument.Styles("QLNU章节标题").Font L-WT]&n_  
        .NameFarEast = "黑体" 2g-j.TM  
        .NameAscii = "Arial Black" wj^3N7_:w  
        .NameOther = "Arial Black" .m,[email protected],  
        .Name = "黑体" O7m(o:t x3  
        .Size = 16 ^R7lom.  
        .Bold = True }<[email protected]1  
        .UnderlineColor = wdColorAutomatic Ys!82M$g  
        .Outline = False ^e_hLX\SW  
        .Italic = wdUndefined wedbx00o  
        .Subscript = wdUndefined t ;;U}  
        .Superscript = wdUndefined HZC"nb}r4  
        .Scaling = 100 ]Kt6^|S$a  
        .DisableCharacterSpaceGrid = True QvlObEhcS  
    End With e "4 ''/  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat xQ-<WF1i  
        .LineSpacingRule = wdLineSpaceSingle u<tbbKM  
        .Alignment = wdAlignParagraphCenter *=/ { HvJ  
        .WidowControl = True {9&;Q|D z  
        .KeepWithNext = True x_N'TjS^{  
        .KeepTogether = True x;P_1J %Q  
        .PageBreakBefore = True Eex~xiiV  
        .OutlineLevel = wdOutlineLevelBodyText SumF  2  
         QC OM_$y  
        .LeftIndent = CentimetersToPoints(0) >=I|xY,  
        .RightIndent = CentimetersToPoints(0) 2>xF){`  
        .FirstLineIndent = CentimetersToPoints(0) dk#k bG;  
         a od-3"7[  
        .CharacterUnitLeftIndent = 0 3</_c1~  
        .CharacterUnitRightIndent = 0 NqazpB*  
        .CharacterUnitFirstLineIndent = 0 w7.V6S$Ga  
         C\Wmq [  
        .LineUnitBefore = 1 {0Yf]FQb-a  
        .LineUnitAfter = 0.5 P6 '1. R  
         Z*] 9E^  
        .AutoAdjustRightIndent = False i/;\7n  
        .DisableLineHeightGrid = True b7?uq9  
        .FarEastLineBreakControl = True _/s$ZCd  
        .WordWrap = True FF`T\&u  
    End With by1<[$8r  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False WTQ\PANAaR  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll v!-/&}W)1  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese ?4#Li~q  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True q.^;!f1  
    DoEvents ;s= l52  
      L2[($ l  
    '表格标题 hc(#{]].  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle")  j|DsG,  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" E1aHKjLQ  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False mUAi4N  
    With ActiveDocument.Styles("QLNU表格标题").Font e\`&p  
        .NameFarEast = "楷体" ed{ -/l~j  
        .NameAscii = "Arial" w,p PYf/t  
        .Name = "楷体" B?gOHG*vd>  
        .Size = 10.5 x*\Y) 9Vgy  
        .Bold = True k<nZ+! M  
        .Underline = wdUnderlineNone ~|D Ut   
        .Italic = wdUndefined iJ)_RSFK  
        .Subscript = wdUndefined kYP#SH/  
        .Superscript = wdUndefined CAig ]=2'  
        .Color = wdColorAutomatic Wq D4YGN  
    End With \g`\`e53?  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat }<0BX\@I  
         h ohfE3rd  
        .LineSpacingRule = wdLineSpaceSingle Fbr;{T .  
        .Alignment = wdAlignParagraphCenter 6m/r+?'  
        .KeepWithNext = True + /4 A  
        .KeepTogether = True J\} twYty  
        .OutlineLevel = wdOutlineLevelBodyText e  }?db  
         gS!:+G%  
        .LeftIndent = CentimetersToPoints(0) Fj8z  
        .RightIndent = CentimetersToPoints(0) [email protected]&  
        .FirstLineIndent = CentimetersToPoints(0) Q",t3i4  
         ]N QfX[  
        .CharacterUnitLeftIndent = 0 X&.ArXn*  
        .CharacterUnitRightIndent = 0 |#v7/$!  
        .CharacterUnitFirstLineIndent = 0 r!|6:G+Q  
         ?um;s-x)  
        .LineUnitBefore = 1 ]!W=^!  
        .LineUnitAfter = 0 A_"w^E{P  
         l?v86k  
    End With Hs;4lSyUO  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False :[.vM  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll 0mYXv4 <  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese <6%?OJhp  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True 5 8}U^IW  
    DoEvents !,_u)4  
\S `:y?[Y  
    '表格首行 nK1Slg#U  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") t4."/ .=+  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False 4@+`q *  
    With ActiveDocument.Styles("QLNU表格首行").Font //up5R_nx  
        .NameFarEast = "楷体" W 8<&gh +  
        .NameAscii = "Times New Roman" o*+"|  
        .Name = "楷体" rK 8lBy:<  
        .Size = 9 3,_aAgeE  
        .Bold = True ueogaifvB  
        .Underline = wdUnderlineNone hk;5w{t}}  
        .Italic = wdUndefined yt+L0wzzB  
        .Subscript = wdUndefined nUaJz Pl  
        .Superscript = wdUndefined }`@vF|2L  
    End With F> Ah0U0  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat ^x]r`b  
        .LineSpacingRule = wdLineSpaceSingle MVp[email protected]  
        .Alignment = wdAlignParagraphCenter w0 M>[ 4  
         ~Py`P'+  
        .LeftIndent = CentimetersToPoints(0) ;DQ ZT  
        .RightIndent = CentimetersToPoints(0) `{@8Vsmy:  
        .FirstLineIndent = CentimetersToPoints(0) 7uqzm  
         B&M%I:i  
         mX"oW_EK  
        .CharacterUnitLeftIndent = -0.5 M/B_#yK  
        .CharacterUnitRightIndent = -0.5 -u+vJ6EY  
        .CharacterUnitFirstLineIndent = -0.5 t[email protected]|%  
         I.(, hFx;  
        .LineUnitBefore = 0 ?6!JCQJ<  
        .LineUnitAfter = 0 {f_={k  
        .SpaceBefore = 0 kM l+yli3c  
        .SpaceAfter = 0 tn\yI!a  
         /obfw^  
    End With VcE:G#]5  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False P7bMIe  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll ;J( 8 L  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese V;VHv=9`o  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True - a}Dp~j  
    DoEvents =`oCLsz=  
dw>[email protected]#"  
    '表格内容 R{`(c/%8  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") $?iLLA~  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False AEI>\Y  
    With ActiveDocument.Styles("QLNU表格内容").Font c% -Tem'#  
        .NameFarEast = "楷体" /|m2WxK)  
        .NameAscii = "Times New Roman" 4HXo>0  
        .Name = "楷体" :1Xz4wkWS*  
        .Size = 9 XAKs0*J>  
        .Bold = False _#E 0g'3  
        .Underline = wdUnderlineNone :wyno#8`-  
        .Italic = wdUndefined bn&TF3b  
        .Subscript = wdUndefined bTNgjc  
        .Superscript = wdUndefined JPI3[.o  
    End With |)DGkOtd  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat m,_Z6=I:  
        .LineSpacingRule = wdLineSpaceSingle |*eZD-f  
        .Alignment = wdAlignParagraphCenter 8mrUotjS  
         [ZwjOi:)  
        .LeftIndent = CentimetersToPoints(0) wc@X.Q[  
        .RightIndent = CentimetersToPoints(0) e`_ LEv  
        .FirstLineIndent = CentimetersToPoints(0) V]6dscQ  
         np^N8$i:n  
        .CharacterUnitLeftIndent = -0.5 z]y.W`i   
        .CharacterUnitRightIndent = -0.5 2eS~/Pq5=i  
        .CharacterUnitFirstLineIndent = -0.5 )[email protected]>e2  
        .LineUnitBefore = 0  :[email protected],Q  
        .LineUnitAfter = 0 vkV0On  
        .SpaceBefore = 0 uk:(pZ-uJ  
        .SpaceAfter = 0 wh`"w7br  
    End With [email protected]/xAq5!  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False 2%Ri,4SRb  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll :gibfk]C  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese |kg7LP3(8,  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True DH!~ BB;  
    DoEvents !;v|'I  
yjX9oxhtL  
    '图片标题 V#$RR!X'  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") R$<&ie6UQ  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" .o^l z 9:  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False ^98~U\ar  
    With ActiveDocument.Styles("QLNU图片标题").Font !sP {gi#=  
        .NameFarEast = "楷体" 1<@[email protected]]  
        .NameAscii = "Times New Roman" 2 c{34:  
        .Name = "楷体" %3-y[f  
        .Size = 10.5 ,AFu C <  
        .Bold = True [email protected]}J  
        .Underline = wdUnderlineNone ;7V%#-  
        .Italic = wdUndefined `5.'_3  
        .Subscript = wdUndefined ^A/k)x6  
        .Superscript = wdUndefined n0 {i&[I~+  
        .Outline = False 6,"Q=9k4[  
        .Shadow = False  skVi Mo  
        .Color = wdColorAutomatic u'DRN,h+  
    End With xGg )Y#  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat _S1>j7RQo  
        .LineSpacingRule = wdLineSpaceSingle J/aC}}5D  
        .Alignment = wdAlignParagraphCenter DV-d(@`K  
         <{cQM$ #  
        .KeepWithNext = wdUndefined Om\[email protected]!  
        .KeepTogether = True *Kg ks4  
        .OutlineLevel = wdOutlineLevelBodyText t\,PB{P:J  
         (m/G(wg  
        .LeftIndent = CentimetersToPoints(0) 1~ 3_^3OT  
        .RightIndent = CentimetersToPoints(0) sIGMA$EK  
        .FirstLineIndent = CentimetersToPoints(0) 4F'LBS]=0  
         -;m0R  
        .CharacterUnitLeftIndent = 0 E,U+o $  
        .CharacterUnitRightIndent = 0 ,T$U'&;  
        .CharacterUnitFirstLineIndent = 0 5x4yyb'  
         06Sceq  
        .LineUnitBefore = 0 IueF x u  
        .LineUnitAfter = 0 [email protected]:aF  
    End With :q% M_  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False B LiF 5  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll ]MitOkX  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese >u[email protected]  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True <)c)%'v  
    DoEvents k"zv~`i'  
xy[3u?,&s!  
    '目录项 SsDmoEeB[  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") dOH  &  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" m nX2a  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False :KP @RZm  
    With ActiveDocument.Styles("QLNU目录项").Font FbFPJ !fb  
        .NameFarEast = "黑体" ,Uqs1#r  
        .NameAscii = "Times New Roman" 9 -a0:bP  
        .NameOther = "Times New Roman" Zt{[ *~  
        .Name = "黑体" s8t;.^1}  
        .Size = 10.5 h]}wp;Z  
        .Bold = False {]@= ijjf  
        .Italic = wdUndefined YZ8>OwQz2  
        .Underline = wdUnderlineNone EUX\^c]n  
        .Color = wdColorAutomatic _|I#{jK  
        .Superscript = wdUndefined `e&Suyf4B  
        .Subscript = wdUndefined G}raA%  
    End With y/7\?qfTk  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat 'S&zCTX7j  
         4!yzsPJL  
        .LineSpacingRule = wdLineSpaceSingle Moza".fiN  
        .Alignment = wdAlignParagraphLeft H40p[email protected]  
         6 V=9M:  
        .WidowControl = False 2eY_%Y0  
        .KeepWithNext = False flbd0NB  
        .KeepTogether = False ;$wVu|&  
        .PageBreakBefore = False U$A]8NZ$S  
        .NoLineNumber = False }(73Syl#  
        .OutlineLevel = wdOutlineLevelBodyText 3bH'H*2  
         Y\8)OBZ  
        .LeftIndent = CentimetersToPoints(0) P}^W)@ +3k  
        .RightIndent = CentimetersToPoints(0) /7F:T[  
        .FirstLineIndent = CentimetersToPoints(0) X5$Iyis  
         ndMA-`Ny,  
        .CharacterUnitLeftIndent = 0 f46t9dxp $  
        .CharacterUnitRightIndent = 0 +\ .Lp 5  
        .CharacterUnitFirstLineIndent = 0 jm/`iXnMf  
         Y.rsR 6  
        .LineUnitBefore = 0 eru.m+\  
        .LineUnitAfter = 0 OA;XiR$xP  
    End With ?%[@Qb=2  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False 4!no~ $b  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll Iit; F  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot /7^4O(iG  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese JL{VD /f  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True A$0fKko  
    DoEvents Pu$Tk |  
     `+:`_4  
    '参考文献 lq; P ch  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") Hf2_0wA3  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" je=a/Y=%U{  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False 'I6i ,+D/q  
    With ActiveDocument.Styles("QLNU参考文献").Font R!gEwTk   
        .NameFarEast = "宋体" c4eBt))}V  
        .NameAscii = "Times New Roman" .p" xVfi6  
        .NameOther = "Times New Roman" vV-`jsq20H  
        .Name = "Times New Roman" 6mxfLlZ  
        .Size = 12 ,R* ]>'  
        .Bold = False ^8N}9a  
        .Italic = wdUndefined Y&Z.2>b  
        .Subscript = wdUndefined GH$pKB  
        .Superscript = wdUndefined !wh8'X*  
        .Underline = wdUnderlineNone ;"-&1qHN  
        .UnderlineColor = wdColorAutomatic [?N~s:}  
        .Color = wdColorAutomatic ^o&. fQ*  
        .Engrave = False Z o(rTCZX  
    End With z5*'{t)  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat K`fuf=  
         /!XVHkX[  
        .LineSpacingRule = wdLineSpaceExactly 60?%<oJ oH  
        .LineSpacing = 16 N2< !}Eyu  
        .Alignment = wdAlignParagraphLeft MeZf*' J  
        .WidowControl = False [email protected]$_  
        .KeepWithNext = False '3^'B0 3  
        .KeepTogether = False p}U ~+:v  
        .PageBreakBefore = False {8bSB.?R  
        .OutlineLevel = wdOutlineLevelBodyText 59;KQ  
         wgGl[_)  
        .LeftIndent = CentimetersToPoints(0) ]2qo+yB  
        .RightIndent = CentimetersToPoints(0) ee76L&:  
        .FirstLineIndent = CentimetersToPoints(0) [email protected](-F!%l  
         U26}gT)  
        .CharacterUnitLeftIndent = 0 5vnrA'BhBU  
        .CharacterUnitRightIndent = 0 p947w,1![  
        .CharacterUnitFirstLineIndent = -2 m G YoM  
         gT6jYQ  
        .LineUnitBefore = 0 D_zZXbNc  
        .LineUnitAfter = 0 suDQ~\ n  
        .SpaceBefore = 0 (V2fRv  
        .SpaceAfter = 0 :P0mx   
         A_q3KB!$=+  
    End With 3eQ&F~S  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False T</F 0su|  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll ' %o#q6O  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS )MTOU47U  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True ds[|   
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese 9V*qQS5<p  
    DoEvents yEE*B:  
)bscB[email protected]  
    ' T{[=oH+  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") smo~7;  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" <frutU16\  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False k~1?VQ+?M  
    With ActiveDocument.Styles("QLNU论文题目").Font aO4?m+  
        .NameFarEast = "黑体" Qh\60f>0  
        .NameAscii = "Arial Black" f9{Rb/l!BQ  
        .NameOther = "Arial Black" u.xnOcOH!  
        .Name = "Arial Black" 'm kLCS  
        .Size = 16 1#+S+g@#  
        .Bold = False YS"=yye 3e  
        .Italic = wdUndefined ^Xh^xL2cn  
        .Superscript = wdUndefined c'yxWZEv  
        .Subscript = wdUndefined {F.[&/A  
        .Underline = wdUnderlineNone nZYBE030  
        .UnderlineColor = wdColorAutomatic .eVG:tl\  
        .Color = wdColorAutomatic >tW#/\x{  
< h *4Q  
    End With Q>i^[email protected]  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat FVJ GL  
        .LineSpacingRule = wdLineSpaceSingle k~w*W X'  
        .Alignment = wdAlignParagraphCenter X45%e!  
        .WidowControl = True A6(/;+n  
        .KeepWithNext = True 7J<5f)  
        .KeepTogether = True -e:`|(Mo  
        .PageBreakBefore = True >pe.oxY  
        .NoLineNumber = False zIAD9mQex  
        .OutlineLevel = wdOutlineLevelBodyText E hMNap}5"  
         z-)O9PV  
        .LeftIndent = CentimetersToPoints(0) SO0PF|{\r  
        .RightIndent = CentimetersToPoints(0) g]0_5?i  
        .FirstLineIndent = CentimetersToPoints(0) 3)ywX&4"L  
         ^k9I(f^c-_  
        .CharacterUnitLeftIndent = 0 p0vVkdd  
        .CharacterUnitRightIndent = 0 oXF.1f/h  
        .CharacterUnitFirstLineIndent = 0 5$C-9  
         11;MN  
        .LineUnitBefore = 1 #AQV(;[email protected]  
        .LineUnitAfter = 1 v` 1lxX'*  
         rFL;'C [email protected]  
        .BaseLineAlignment = wdBaselineAlignAuto pFjK}J OF  
    End With  *J`O"a  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False ZPYS$Ydy  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll vx5Zl&6r  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS Rnq7LGy  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True TuaBm1S{f  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese [email protected] y\9  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True Z(CkZll  
    DoEvents 3(80:@|  
     )l DD\J7  
    '中文摘要 IjnU?Bf  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") g[4WzDF*  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" R (n2A$  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False M9%$lCl   
    With ActiveDocument.Styles("QLNU中文摘要").Font ncT&Gr   
        .NameFarEast = "宋体" 1bwOm hkS  
        .NameAscii = "Times New Roman" ^^ixa1H<  
        .NameOther = "Times New Roman" a9V,es"BWQ  
        .Name = "Times New Roman" :^h$AWR^f  
        .Size = 12 6.yu-xm  
        .Bold = wdUndefined x7 ,5  
        .Superscript = wdUndefined [email protected]  
        .Subscript = wdUndefined @cXMG6:{  
        .Italic = wdUndefined + mT_QsLEv  
        .Underline = wdUnderlineNone AH~E)S  
        .UnderlineColor = wdColorAutomatic .8JTe 0  
        .Color = wdColorAutomatic SXP]%{@ R/  
    End With +ami?#Sz*;  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat |M;7>'YNC*  
        .LineSpacingRule = wdLineSpaceExactly )zDCu`  
        .LineSpacing = 20 4;2uW#dG"  
        .Alignment = wdAlignParagraphLeft X%x*f3[  
         H3-hcx54T  
        .WidowControl = False [v!f<zSQK  
        .KeepWithNext = False (X*^dO  
        .KeepTogether = True PXNuL&   
        .PageBreakBefore = False 3F^Q51:t  
        .NoLineNumber = False `C'H.g\>2Q  
        .OutlineLevel = wdOutlineLevelBodyText *MW\^PR?  
         5'u<i SmBo  
        .LeftIndent = CentimetersToPoints(0) P?P#RhvA1  
        .RightIndent = CentimetersToPoints(0) 2&J)dtqz  
        .FirstLineIndent = CentimetersToPoints(0) {Ou1KDy#)  
         XC#oB~K'  
        .CharacterUnitLeftIndent = 0 LCV(,lu  
        .CharacterUnitRightIndent = 0 Xne1gms  
        .CharacterUnitFirstLineIndent = 2 vo{--+{ky!  
        .LineUnitBefore = 0 +k R4E23:  
        .LineUnitAfter = 0 [AJJSd/:  
         !U Ln7\@  
    End With n|yO9:Uw<  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False ]7c=PC  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll rEz^  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS <qt|d&  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True ~6md !o%i  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese i SQu#p@  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True sU^1wB Rj  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete Pr C{'XDlU  
    DoEvents _ jlRlt  
     )%fH(ns(  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 0jWVp- y  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" Bk{]g=DO  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False as =fCuJ  
    With ActiveDocument.Styles("QLNU英文标题").Font "_?nN" A7  
        .NameFarEast = "黑体" VuZr:-K/  
        .NameAscii = "Arial Narrow" %E;'ln4h&,  
        .Name = "Arial Narrow" Qn2&nD%zi  
        .Size = 16 %iqD5x$OA  
        .Bold = True 86a\+Kz%%L  
        .Bold = wdUndefined Y8t8!{ytg  
        .Superscript = wdUndefined ?:9"X$XR  
        .Subscript = wdUndefined 1X1dG#:  
        .Italic = wdUndefined wVtwx0|1  
         n~Lt\K:  
        .Underline = wdUnderlineNone uCB=u[]y4  
        .UnderlineColor = wdColorAutomatic 'dc#F3  
        .StrikeThrough = False |;{6& S  
        .DoubleStrikeThrough = False e&>2 n  
    End With `\ol,B_l  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat fI|$K )K  
        .LineSpacingRule = wdLineSpaceSingle {id4:^u&;  
        .Alignment = wdAlignParagraphCenter @>7%qS  
        .WidowControl = True WTiD[u  
        .KeepWithNext = False a?oI>8*  
        .KeepTogether = False `XDl_E+>l  
        .PageBreakBefore = False M869MDo  
        .NoLineNumber = False ,<X9Y 2B  
        .FirstLineIndent = CentimetersToPoints(0) 2st3  
        .OutlineLevel = wdOutlineLevelBodyText #4;wjcGWw  
         y8xE 6i  
        .LeftIndent = CentimetersToPoints(0) cm+P]8o%{  
        .RightIndent = CentimetersToPoints(0) &#i"=\d  
        .FirstLineIndent = CentimetersToPoints(0) uHNCSz H(  
         g 0E'g  
        .CharacterUnitLeftIndent = 0  DVeE1Q  
        .CharacterUnitRightIndent = 0 2B`JGFcdcB  
        .CharacterUnitFirstLineIndent = 0 7uk[Oy<_  
         ?\n > AC  
        .LineUnitBefore = 1 zKK9r~ M  
        .LineUnitAfter = 1 )O6>*wq  
         o}{5i Tg=  
    End With MWh6]gGs  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False 5 IpDeJ$  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll u$`a7Lp,n  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS @PIp* [7oC  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True *yGGBqd  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese wdoR%b{M  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True dgP [email protected]`YS  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete Ws12b $  
    DoEvents >.D4co>  
 WfRXP^a  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") 4 H&#q>  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" U%/+B]6jP  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False ^kSqsT"  
    With ActiveDocument.Styles("QLNU英文摘要").Font K.yb ^dg5  
        .NameFarEast = "宋体" -7|H}!DFT  
        .NameAscii = "Arial" c4zR*  
        .NameOther = "Arial" Y|/ 8up  
        .Name = "Arial" kSo"Ak!  
        .Size = 12 ,]/X\t5]D  
        .Bold = wdUndefined ;O #>Y  
        .Italic = wdUndefined rW#T vUn  
        .Superscript = wdUndefined 'O-"\J\  
        .Subscript = wdUndefined 'we>q@  
    End With nT)vNWT=  
     Z #m+ObHK1  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat LXCx~;{\  
         ]{>,rK[So  
        .LineSpacingRule = wdLineSpaceExactly U`s{ Jm  
        .LineSpacing = 20 W(/h Vt  
         `wU!`\  
        .Alignment = wdAlignParagraphJustify i{qgn%#}Y  
         ( uidNq  
        .WidowControl = False 8a"%0d#  
        .KeepWithNext = False wUM0M?_p[  
        .KeepTogether = False "J3x_~,[4m  
        .PageBreakBefore = False N4HqLh 23H  
        .NoLineNumber = False ijU*|8n{>  
         M"To&?OI  
        .OutlineLevel = wdOutlineLevelBodyText !Xw5<J3L-  
         <=C?e<Y  
        .LeftIndent = CentimetersToPoints(0) >c}u>]D  
        .RightIndent = CentimetersToPoints(0) 9(<@O%YU  
        .FirstLineIndent = CentimetersToPoints(0) p{dj~ &v  
         pI<f) r  
        .CharacterUnitLeftIndent = 0 h!9ei6  
        .CharacterUnitRightIndent = 0 S`Rs82>  
        .CharacterUnitFirstLineIndent = 2 T&7qC=E#5  
         o3}3p]S\  
        .LineUnitBefore = 0 )}O8?d`  
        .LineUnitAfter = 1 8*a&Jl  
         "5$B>S(Q  
    End With C+&l< fM&  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False seeB S/%  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll 0+b1vhQ  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS ,UE83j8D^  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False @pU)_d!pJ  
    DoEvents \Y}8S/]  
mpJ#:}n  
    Options.Pagination = True 6 3B?.  
    Me.txtStatus.Text = "样式修改完成,重新进行分页,请稍候....." "kqPmeI  
    DoEvents R ViuJ;  
    ActiveDocument.Repaginate }*"p?L^p{  
\1Em`nvOX  
End Sub [email protected]@=M  
qJUK_6|3  
@U}1EC{A  
杺栫杣杊椌柮栬,䒴蓉艿芖。
描述
快速回复

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