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

显示用户信息 
100楼  发表于: 2021-07-18   
只看该作者 ┊  小 中 大
Dim bContinue As Boolean jGDuKb@:  
}#Kl6x  
Dim regEX As New RegExp @3?dI@i(  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 MX|@x~9W  
|O*?[|`H  
Dim LastTitle0String As String, LastTitle0No As Long suN}6C I  
Dim LastTitle1String As String, LastTitle1No As Long 5RKs 2 eV  
Dim LastTitle2String As String, LastTitle2No As Long yM?jiy  
Dim LastTitle3String As String, LastTitle3No As Long -]:1zU  
Dim LastTitle4String As String, LastTitle4No As Long .ITTYQHv)  
Dim LastTitle5String As String, LastTitle5No As Long FMl_I26]  
Dim LastTabelString As String, LastTableNo As Long ]OC?g2&6  
Dim LastFigureString As String, LastFigureNo As Long 3AcDW6x|  
j Oxnf%jl  
Dim strSeperator As String *3y_FTh8ra  
2=n,{rkmj%  
Sub ConvertWidth(fTEXT As String, rText As String) yk2XfY  
        Selection.Find.ClearFormatting #*+$o<Q]9  
        Selection.Find.Replacement.ClearFormatting cM=_i{c  
        Selection.Find.Wrap = wdFindContinue kM7 6?M  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText 4CxU eq  
        DoEvents |u[@g`Z  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True [qxDCuxq  
End Sub <t,lq  
)kE1g&  
Sub ClearDomain() CmtDfE  
        With Selection.Find Lv-M.  
            .ClearFormatting R`%O=S*]  
            .Replacement.ClearFormatting fs, >X!l+  
            .Wrap = wdFindContinue !*,m=*[3  
            Me.txtStatus.Text = "清除所有域代码" F^!_!V B  
            DoEvents ~01t_Xp qc  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False uAV-wc  
        End With \Bl`;uXb  
End Sub KN.WTaO  
@:P:`Zk  
Private Sub cmdCheck_Click() p '=XW#2 >  
    bContinue = True A/~^4DR  
    Dim NoSeries1(1 To 16) As String p7,dl*'  
    Dim NoSeries2(1 To 16) As String o r[! C %  
    Dim NoSeries5(1 To 16) As String #ahe@|E'Y  
    Dim NoSeriesRM(1 To 16) As String [XD3}'Aa  
    Dim paraTotal As Long, ParaText As String v2vtkYQN  
    Dim ttString As String, ttNo As String 7C~g ?1  
     /)V8X#,  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long L#MMNc+  
.R&jRtb/E  
    Me.txtStatus.Visible = True X1&c?T1 %[  
    Me.lbParaType.Visible = True MVp+2@)}s  
    Me.cmdCheck.Enabled = False /,+&O#SX  
     IG4`f~k^  
     `Oe}OSxnT  
     xp]_>WGq  
     88 zK)k{  
    Dim ParaType As String, rText As String 9i!|wkx  
     W'Y#(N[ktP  
    Selection.WholeStory @KU^B_{i  
    Selection.NoProofing = True KWn.  
     fczH^+mI  
    tm1 = Now ;@<e]Ft  
     a=*JyZ.2  
        ActiveWindow.View.Type = wdNormalView c,5yH  
     if+97^Oy  
    NoSeries1(1) = "一" 1sXVuto  
    NoSeries1(2) = "二" -'j|U[&N\  
    NoSeries1(3) = "三" P2 z~U  
    NoSeries1(4) = "四" G=m18Bv{  
    NoSeries1(5) = "五" .s3y^ 1C  
    NoSeries1(6) = "六" 9Hs5u Be  
    NoSeries1(7) = "七" r G'W#!^*  
    NoSeries1(8) = "八" (5)DQ 1LaF  
    NoSeries1(9) = "九" |N5|B Q(y$  
    NoSeries1(10) = "十" ]mx1djNA  
    NoSeries1(11) = "十一" vgKdhN2kI  
    NoSeries1(12) = "十二" %WFZ&>en&  
    NoSeries1(13) = "十三" Yo,n#<37  
    NoSeries1(14) = "十四" v<gve<]  
    NoSeries1(15) = "十五" .Q DeS|l  
    NoSeries1(16) = "十六" E<tJ8&IGk  
     G@,XUP  
    NoSeries2(1) = "㈠" Y58et9gRO  
    NoSeries2(2) = "㈡" i5czm?x  
    NoSeries2(3) = "㈢" Wtp;se@#  
    NoSeries2(4) = "㈣" lR5k1J1n  
    NoSeries2(5) = "㈤" 3mo Du  
    NoSeries2(6) = "㈥" !eD f}~  
    NoSeries2(7) = "㈦" Gi,4PD-ro  
    NoSeries2(8) = "㈧" y~py+:_  
    NoSeries2(9) = "㈨" A7aW]  
    NoSeries2(10) = "㈩" -\8v{ry  
     #$ ,b )Uy  
    NoSeries5(1) = "①" Jy-V\.N>s  
    NoSeries5(1) = "②" 77%I%<#  
    NoSeries5(3) = "③" 9*? i89T  
    NoSeries5(4) = "④" OJ<V<=MYZ  
    NoSeries5(5) = "⑤" 3d(:Y6D)  
    NoSeries5(6) = "⑥" 4l_~-Peh  
    NoSeries5(7) = "⑦" {\n?IGP?wd  
    NoSeries5(8) = "⑧" 'H'R6<z5  
    NoSeries5(9) = "⑨" R(#ZaFuo[  
    NoSeries5(10) = "⑩" G g{M  
     9@ :QBe3]  
     +\25ynM  
    NoSeriesRM(1) = "I" "E7YCZQR  
    NoSeriesRM(2) = "II" p u[S  
    NoSeriesRM(3) = "III" jR^_1bu  
    NoSeriesRM(4) = "IV" ~ lr,}K,  
    NoSeriesRM(5) = "V"  o=C'u  
    NoSeriesRM(6) = "VI" *NoixV1>  
    NoSeriesRM(7) = "VII" mfr7w+DK  
    NoSeriesRM(8) = "VIII" h:<?)g~U  
    NoSeriesRM(9) = "IX" 'A'[N :i  
    NoSeriesRM(10) = "X" d08:lYQ  
    NoSeriesRM(11) = "XI" `'b2 z=j  
    NoSeriesRM(12) = "XII" \mNN ) K@  
    NoSeriesRM(13) = "XIII" GNoUn7Y  
    NoSeriesRM(14) = "XIV" A_I\6&b4  
    NoSeriesRM(15) = "XV" Gg5+Ap D  
    NoSeriesRM(16) = "XVI" 8]l(D  
     2:;;  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) 'E4}++\  
     $u::(s} x<  
    If i = vbNo Then B[ r04YGh  
        Exit Sub q4Y7 HE|ym  
    End If dEPLkv  
     vm8ER,IW)  
    If Me.chkSuper.Value Then />V& OX `  
        Me.txtStatus.Text = "检查修改所有的上标格式" &LHS<Nv^:  
     i: VMC NH  
        CheckSuperScript A0H6}53, $  
         B[;aNyd<  
    End If x\K,@  
     Dn+hI_"# _  
    If Me.chkStyle.Value Then [(Ihue  
        Me.txtStatus.Text = "设置样式，请稍候...." Ko %e#q-  
        DoEvents <!derr-K  
        CeateOrModifyStyle ZO]P9b  
    End If fmv,)UP  
     Pr#uV3\  
     ]eo%eaA   
     uS5AD h  
    ClearDomain )^j62uv  
         /2:s g1  
     l6pvQ|  
     `5MK(K :  
    If Me.chkLIST.Value Then $[+)N ~  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" |L(h+/>aWX  
     GyQvodqD  
        ConvertListToOrdinary Z8\/Fb  
    End If HD>UTX`&mc  
     &Yd6w}8  
     2X0<-Y#'  
    Dim pType As String, trimpTEXT As String @8 lT*O2j  
    If Me.chkNum.Value = True Then X> U  _v  
        Me.txtStatus.Text = "转换全角数字形式为半角" @ [%K D  
        ConvertWidth "１", "1" F<Ig(Wl#az  
        DoEvents N)  
        ConvertWidth "２", "2" .:B;%*  
        DoEvents y*#+:D]o*  
        ConvertWidth "３", "3" 6K5mMu#4  
        DoEvents TECp!`)j"  
        ConvertWidth "４", "4" M,oRi;V  
        DoEvents 8T3Nz8Q7  
        ConvertWidth "５", "5" REJHh\:.77  
        DoEvents xi15B5 _Ps  
        ConvertWidth "６", "6" oe[f2?-  
        DoEvents WUGFo$ xA  
        ConvertWidth "７", "7" 3% O[W  
        DoEvents aJ J 6 3aJ  
        ConvertWidth "８", "8" F+ <Z%KuCu  
        DoEvents MCl-er"]D  
        ConvertWidth "９", "9" 4,?WNPqo  
        DoEvents pLtK:Z  
        ConvertWidth "０", "0" -mG ,_}F  
        DoEvents & DhdB0Hjf  
        ConvertWidth "ａ", "a" P5&8^YV`N  
        DoEvents |F&02 f!]@  
        ConvertWidth "ｂ", "b" E*d UJ.>  
        DoEvents !twYjOryH[  
        ConvertWidth "ｃ", "c" =&WH9IKz  
        DoEvents \qtdbi|Y  
        ConvertWidth "ｄ", "d" /NQ PTr  
        DoEvents G@scz!Nt  
        ConvertWidth "ｅ", "e" m`Pk)c0  
        DoEvents \/R  $p  
        ConvertWidth "ｆ", "f" ?{wD%58^oG  
        DoEvents )&93YrHgC  
        ConvertWidth "ｇ", "g" Te7xj8<  
        DoEvents ;e6- *  
        ConvertWidth "ｈ", "h" b8|<O:]Hp  
        DoEvents RSup_4A  
        ConvertWidth "ｉ", "i" S%df'bh$  
        DoEvents /?u]Fj  
        ConvertWidth "ｊ", "j" NF'<8{~  
        DoEvents #E#Fk3-ljQ  
        ConvertWidth "ｋ", "k" % \Mc6  
        DoEvents N,4hh?  
        ConvertWidth "ｌ", "l" | &/_{T  
        DoEvents $ U-#woXa  
        ConvertWidth "ｍ", "m" /&zlC{:G92  
        DoEvents Mt&n|']`8  
        ConvertWidth "ｎ", "n" VI?kbq jo  
        ConvertWidth "ｏ", "o" 5.QY{ +k  
        ConvertWidth "ｐ", "p" +nL#c{  
        ConvertWidth "ｑ", "q" K<M WiB&  
        ConvertWidth "ｒ", "r" "pc t#  
        ConvertWidth "ｓ", "s" {pC$jd>T  
        ConvertWidth "ｔ", "t" >FqU=Q  
        ConvertWidth "ｕ", "u" @]dv   
        ConvertWidth "ｖ", "v" TEi1,yc  
        ConvertWidth "ｗ", "w" Y-~ M kB  
        ConvertWidth "ｘ", "x" | cL,$G  
        ConvertWidth "ｙ", "y" Z=(Tq1t  
        ConvertWidth "ｚ", "z" zEYQZywc  
        ConvertWidth "Ａ", "A" ,91n  
        ConvertWidth "Ｂ", "B" hp}JKj@  
        ConvertWidth "Ｃ", "C" c"/H v  
        ConvertWidth "Ｄ", "D" iKG,"  
        ConvertWidth "Ｅ", "E" |2Uw8M7.E  
        ConvertWidth "Ｆ", "F" mEyIbMci  
        ConvertWidth "Ｇ", "G" sCE%./h]  
        ConvertWidth "Ｈ", "H" {2U3   
        ConvertWidth "Ｉ", "I" W6V((84(O  
        ConvertWidth "Ｊ", "J" ~%@1-  
        ConvertWidth "Ｋ", "K" y-mjfW`n  
        ConvertWidth "Ｌ", "L" C0CJ;   
        ConvertWidth "Ｍ", "M" $.zd,}l@L  
        ConvertWidth "Ｎ", "N" +HlZ ?1g  
        ConvertWidth "Ｏ", "O" ba^/Ar(B  
        ConvertWidth "Ｐ", "P" )C0d*T0i  
        ConvertWidth "Ｑ", "Q" Zm6|aHx8v  
        ConvertWidth "Ｒ", "R" \w)ddc!ZS  
        ConvertWidth "Ｓ", "S" O"J"H2}S  
        ConvertWidth "Ｔ", "T" ym'!f|9AA  
        ConvertWidth "Ｕ", "U" `@8O|j  
        ConvertWidth "Ｖ", "V" XC4wm #R  
        ConvertWidth "Ｗ", "W" Av!xI  
        ConvertWidth "Ｘ", "X" 5),&{k!  
        ConvertWidth "Ｙ", "Y" wxy@XN"/i+  
        ConvertWidth "Ｚ", "Z" LR3>_t  
        ConvertWidth "^l", "^p" EF'8-*  
        ConvertWidth "（", "(" z-h?Q4;  
        ConvertWidth "）", ")" vK$wc~  
     \4>& zb4  
    End If ,>Dpt <  
I!T=$Um  
    With ActiveDocument f9vitFkb+  
        Dim tbl As Table F12$BK DH  
        For Each tbl In .Tables cJzkA^T9  
            tbl.Rows.Alignment = wdAlignRowCenter }4kQu#0o")  
            tbl.Range.Font.NameFarEast = "楷体" S{N=9934_  
            tbl.Range.Font.NameAscii = "Times New Roman" DC0O N`  
            tbl.Range.Font.Size = 10.5 $4hi D;n  
        Next SNSHX2  
        Set tbl = Nothing K?>sP%m)  
    End With pRA%07?W  
     co-1r/ -O  
     RV%)~S@!R  
    With ActiveDocument Cng_*\=O  
         RSCQ`.  
        For i = 1 To .TablesOfContents.Count ? 0+N  
            .TablesOfContents(i).Delete |\W~+}'g~  
        Next A0bR.*3  
         ?%$~Bb _  
         K|=va>   
         0{-?Wy  
        paraTotal = .Paragraphs.Count +3Z+#nGtk  
        paraCounter = 1 0 gR_1~3  
         8\p"V.o>  
        LastTitle0No = 0 Y~@(  
        LastTitle1No = 0 rA}mp]  
        LastTitle2No = 0 MhIHfW]b  
        LastTitle3No = 0 /z:1nq  
        LastTitle4No = 0 (,b\"Q  
        LastTableNo = 0 ]d.e(yCuE  
        LastFigureNo = 0 0S$TLbx  
         B_>r|^Vh  
        Dim Sec As Long O) D$UG\<  
         _}.WRFIJ@L  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) _} K3}}  
        If Sec = 0 Then 6VLo4bq 5  
            Exit Sub C$4{'J-ZH  
        End If PW\me7iCz  
         QwL*A `@  
        k = 0 3Pvz57z{  
        Do While (paraCounter < paraTotal) And bContinue FcyF E~>2  
            k = k + 1 $GYy[8{:V  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then (S2E'L L{  
                Exit Do ;7*T6~tv  
            End If J+}z*/)|#  
            paraCounter = paraCounter + 1 P_)=sj!>-  
            If k Mod 20 = 0 Then >X*Y jv:r  
                Me.lbCounter.Caption = paraCounter MHJRBn{}  
                DoEvents 8+H 0  
            End If lv+: `   
        Loop 1C0' Gf)3  
         =,8nfJ+x  
         wQa,o l_p  
        Do While (paraCounter < paraTotal) And bContinue LMuDda  
             rU|?3x  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) %!8w)1U  
            ShapeHeight = 0 5F#FC89Kk  
            ShapeWidth = 0 7MsJ*E n  
           9+ |W;  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth I]BhkJ  
             1\nzfxx   
            Select Case ParaType p!DOc8a.\e  
                Case "【】表格内容" @mb'!r  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" zx@L sp  
                Case "章" z<gII~%  
                    LastTitle0No = LastTitle0No + 1 c )=a;_h  
                    '新一章开始，复位其下属标题编号 ]GD&EQ  
                    LastTitle1No = 0 4gZ)9ya   
                    LastTitle2No = 0 $LiBJ~vV<  
                    LastTitle3No = 0 \i\>$'f*z  
                    LastTitle4No = 0 M>xT\  
                     Q 7\j:.  
                    k = Val(ttNo) POf xN.  
                    If k = 0 Then '非数字编号章节 4/OmgBo '  
                        If ttNo <> NoSeries1(LastTitle0No) Then tJmy}.t1  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString F<Xtp8  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText }z qo<o  
                        End If t%Bh'HkG  
                    Else "Y@q?ey[1  
                        If Val(ttNo) <> LastTitle0No Then +.z X ?}  
                            rText = "第" & LastTitle0No & ttString 5 9i2*<k  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText `q Ryh}Ax"  
                        End If x=kJl GT  
                         V Ds0+RC  
                    End If 8fktk?|  
                     .o]9 HbIk5  
                    '章段落设置 2#N?WlYw<S  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 3#y`6e=5  
                    .Paragraphs(paraCounter).Style = "QLNU章节" + WT?p]  
                    .Paragraphs(paraCounter).Range.Select &P"13]^@  
                    Selection.EndKey unit:=wdLine u=Xpu,q  
                    tc = Replace(rText, vbCr, "") Yv0y8Vz@  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False `ZT/lB`  
                Case "一级标题" ! Y&]Y G  
                    LastTitle1No = LastTitle1No + 1 A5Q4wy`  
                    '新一级标题开始，复位其下属标题编号 HDaeJk  
                    LastTitle2No = 0 m#4h5_N  
                    LastTitle3No = 0 6OqF-nso[E  
                    LastTitle4No = 0 I hv@2{*(b  
                     ,C|{_4  
                    If ttNo <> NoSeries1(LastTitle1No) Then QL*RzFAD 3  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString |9X2AS Qu  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText Wr-I~>D%_  
                    End If #^(Yw|/K  
                   ~(B%E'  
                     sE ^YOT<  
                    '一级标题段落设置  格式：一、标题内容 YFW/ Fa\7  
                    .Paragraphs(paraCounter).Range.Text = rText 0.2stBw  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" uc}F|O   
                    .Paragraphs(paraCounter).Range.Select h6n!"z8H  
                    Selection.EndKey unit:=wdLine )0g!lCfb  
                    tc = Replace(rText, vbCr, "") =woP~+  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False F{c8{?:  
                Case "二级标题" + R~ !G  
                    LastTitle2No = LastTitle2No + 1 bh#6yvpMR  
                    '新二级标题开始，复位其下属标题编号 [f}`reRlZ  
                    LastTitle3No = 0 R<ORw]  
                    LastTitle4No = 0 pl$wy}W-  
                     GMB3`&qh  
                    If ttNo <> NoSeries1(LastTitle2No) Then Zr=B8wuT  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString yYSoJqj Q  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText |<O^M q  
                    End If HTMg{_r(%  
                     <{@D^L6h  
                    '二级标题段落设置 格式：(一)、标题内容 w9n0p0xr<  
                    .Paragraphs(paraCounter).Range.Text = rText 1(RRjT 9  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" Ya(3Z_f+VZ  
                     yXqC  
                    .Paragraphs(paraCounter).Range.Select 2p 4iir  
                    Selection.EndKey unit:=wdLine lJ,\^\q  
                    tc = Replace(rText, vbCr, "") i0*Cs#(=h  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False U@D\+T0  
                 h<8c{RuoZC  
                Case "三级标题"  ?@kz`BY  
                    LastTitle3No = LastTitle3No + 1 C ](djkA$  
                    '新三级标题开始，复位其下属标题编号 p<?lF   
                    LastTitle4No = 0 xM@s`s|n  
                     *`LrvE@t  
                    If Val(ttNo) <> LastTitle3No Then  g_Rp}6g  
                            rText = LastTitle3No & ". " & ttString +SW|/oIU  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText 0A-yQzL|  
                         S!b?pl  
                    End If {Ppb ;  
                    '三级标题段落设置 格式：1. 标题内容 (!qfd Qq#  
                    .Paragraphs(paraCounter).Range.Text = rText 6/T/A+u  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" N(3Bzd)   
                    .Paragraphs(paraCounter).Range.Select P1Eg%Y6  
                    Selection.EndKey unit:=wdLine Onou:kmf1  
                    tc = Replace(rText, vbCr, "") m(D-?mhL  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False v`G} sgn  
                Case "四级标题" O+/{[9s  
                    LastTitle4No = LastTitle4No + 1 Zj_2B_|WN#  
                     e+:X%a4\  
                    If Val(ttNo) <> LastTitle4No Then ;=k{[g 'gv  
                            rText = "(" & LastTitle4No & "). " & ttString 2%9L'-  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText pred{HEye  
                     Jd',v  
                    End If <0? r# }  
                    '四级标题段落设置 格式：(1). 标题内容 5NhAb$q2Y  
                    .Paragraphs(paraCounter).Range.Text = rText '-Oh$hqCx|  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" ZkO2*;  
                    .Paragraphs(paraCounter).Range.Select VJl0UM3{J  
                    Selection.EndKey unit:=wdLine f2&6NC;  
                    tc = Replace(rText, vbCr, "") p"- %~%J=  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False 2##mVEo.(  
                 GG-b)64h`  
                Case "表格标题" G9GHBwT  
                    LastTableNo = LastTableNo + 1 yu&muCA  
                     6y57m;JW/  
                    If ttNo <> CStr(LastTableNo) Then pp(?rE$S  
                            rText = "表" & LastTableNo & ". " & ttString V?mk*CU  
                            ErrMsg.AddItem "表格编号错误：" & ParaText eW8{ ],B  
                   }RKsS3}   
                    End If ?$uEN_1O\@  
                     rixVIfVF  
                    '表格名称段落设置 格式：表1. 表格名称 `Q#)N0  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" BPm" )DMo  
                    xe = Replace(rText, vbCr, "") +$#XV@@~  
                    .Paragraphs(paraCounter).Range.Select B-$zioZ  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 -$Kc"rX  
                    Selection.Range.Text = xe E9Dy)f]#W  
                    Selection.EndKey L3'isaz&^  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False  Z'l!/l!  
                 h9!4\{V;h  
                Case "表格首行" ;PnN$g]Q  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" ZS=;)  
                Case "图片标题" Ts3!mjn  
                    LastFigureNo = LastFigureNo + 1 f`_{SU"3  
                     [_(uz,'  
                    If ttNo <> CStr(LastFigureNo) Then j>l  
                            rText = "图" & LastFigureNo & ". " & ttString 27,c}OS5o  
                            ErrMsg.AddItem "表格编号错误：" & ParaText a>9_#_hI  
                   vK+!m~kDu  
                    End If 2J%L%6z8~  
                    '图片名称段落设置 格式：图1. 图名称 )X:Sfk  
                    .Paragraphs(paraCounter).Range.Text = rText X.FoX  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" T 1_B0H2  
                    .Paragraphs(paraCounter).Range.Select m,J IId%O  
                    Selection.EndKey unit:=wdLine D:?"Rf{)  
                    xe = Replace(rText, vbCr, "") lQ4^I^?m  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False 33wVP}e5  
                Case "正文" y?A*$6  
                     '正文名称段落设置 /q,=!&f2  
                    .Paragraphs(paraCounter).Style = "QLNU正文" H q?F@X  
               Case "文献条目" R y(<6u0  
                    With .Paragraphs(paraCounter) ;' |CSjco  
                        '.Range.Select }Kp$/CYd  
                        'Selection.ClearFormatting bg_io*K  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” ~ 4Mz:h^  
                        .Style = "QLNU参考文献" ,?IXfJ`c  
                    End With 2X*n93AQi  
               Case "图表注解" U2tgBF?)A  
                    With .Paragraphs(paraCounter) 'o*\ N%  
                        .Range.Font.NameFarEast = "楷体" uEG4^  
                        .Range.Font.NameAscii = "Times New Roman" eibkG  
                        .Range.Font.Size = 9 '小5号字 Om>?"=yDE  
                         Z;BEUtR c  
                        .Alignment = wdAlignParagraphCenter dmcY]m  
                        .LeftIndent = 0 )EQI>1_  
                        .RightIndent = 0 zAvI f  
                        .FirstLineIndent = 0 #W l^!)#j?  
                        .LineSpacing = 12 ShvC4Xb 0  
                        .LineSpacingRule = wdLineSpaceExactly a/H5Y,b>  
                        .LineUnitAfter = 0 .Cs'@[Ciy  
                        .LineUnitBefore = 0 [O|c3;  
                        .OutlineLevel = wdOutlineLevelBodyText b$_qG6)IJO  
                        .PageBreakBefore = False ZX.,<vumSy  
                        .RightIndent = 0 "gzn%k[D9m  
                        .WordWrap = True %++S;#)~  
                        .LineUnitAfter = 0.5 >Z<ZT  
                          vILB$%I  
                    End With )OucJQ  
                Case Else 49O_A[(d  
                    '不作处理 y4aT-^C'  
            End Select "u&7Y:)^wr  
             (l9jczi  
            '含有inlineshape的段落处理 Y,EF'Ot  
            If ShapeHeight > 30 Then /~7M @`1  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 p! )tA  
            End If W$&*i1<a+  
             !0|&f>y  
            If (ShapeWidth + ShapeHeight) > 150 Then - *hPEgcV9  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" ?I:_FT  
            End If 6c27X/'Z  
             l -!"   
            '段落计数器递 vjh'<5w9Wi  
            paraCounter = paraCounter + 1 [;4ak )!  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter l@u  "iGw  
            Me.txtStatus.Text = ParaText ^ k{/Yl  
            DoEvents gB+CM? LKq  
        Loop +lZ-xU1  
    End With =|dm#w_L"  
     ,,6lQ]wG  
    msg = "" AE`UnlUSF  
     $uUyp8F  
    For i = 0 To Me.ErrMsg.ListCount - 1 ~X %cbFom=  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) |2 =w":2#  
    Next g>'6"p;  
     qu]a+cYY  
     ;`kOFg#`)c  
     e=Ib Em{|  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg X56q ,jCJ{  
    Me.cmdCheck.Enabled = True t6 kLZ  
    Me.txtStatus.Visible = True nD>X?yz2  
    Me.lbParaType.Visible = False |u$*'EsP  
     )56L`5#tS  
    bContinue = False Dq9f Fe  
End Sub WE_'u+!B  
_ouZd.  
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) W<[7LdAB  
    Dim pTEXT As String ;~WoJlEK3  
     (2"4PU8  
    pTEXT = ChKRange.Text Zm|il9y4m  
     .x/H2r'1  
    ParaType = "其它" 1=E}X5  
    TitleString = pTEXT &e#pL`N  
    TitleNo = "N/A" ~k?t  
     +ut%C.1  
    shpCounter = ChKRange.InlineShapes.Count 2`ERrh^i"  
    If shpCounter <> 0 Then gbh/ `  
        MaxShpHeight = 0: TotalShpWidth = 0 Z0D&ayzkh^  
        For i = 1 To shpCounter yp@cn(:~  
            k = ChKRange.InlineShapes(i).Height .i*ja*   
            l = ChKRange.InlineShapes(i).Width 9$ VdYw7D  
            If k > MaxShpHeight Then 3UZ_1nY  
                MaxShpHeight = k -em3 #V  
            End If a9_2 b}t  
            TotalShpWidth = TotalShpWidth + l {ehYE^%N  
        Next NNTrH\SU #  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then V:+vB "  
            Exit Sub .L^;aL  
        End If JHVndK4L  
    End If :B|rs&  
     hp}rCy|01  
    '空行 jGJf[:M&Pm  
    If Len(pTEXT) <= 2 Then (Ia:>ocE0  
        Exit Sub /X#OX 8gb]  
    End If wN6sica|  
     RU=g|TL  
         9ao?\]&t  
    '是否为表格中的文字 eecIF0hp  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then 3/& |Z<f  
        ParaType = "表格内容" ~ 7Nqwwx  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) 5GPAt  
        If k = 1 Then */TO $ ^s  
            ParaType = "表格首行" N[O_}_  
        End If 8^^ehaxy  
        Exit Sub @E h(GZN  
    End If gh"_,ZhZt  
     3+:NX6Ewb*  
    '例外情况：脚注 zJ ;]z0O  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then m}: X\G(6Q  
        ParaType = "脚注" |8x_Av0  
        Exit Sub *laFG <;  
    End If *tkf) [(  
     XuZgyt"=r  
    '例外情况：尾注 f^5sJ 0;%  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then 0TICv2l!  
        ParaType = "尾注" Pl#u ,Y  
        Exit Sub 9c1q:>|  
    End If >qGWDCKr  
     Bxj4rC[  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then N " eK9>  
        ParaType = "页眉页脚" L]BTX]  
        Exit Sub F^TOLwix  
    End If NA/Sv"7om  
     d)XT> &  
     rEU1 VvE  
    With regEX iU~d2R+  
        .Global = True ^<v.= 7cL0  
         ZX{eggXl  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" "/UPq6  
        If regEX.Test(pTEXT) Then ?6I`$ &OA  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") /8hjs{(;  
            TitleString = regEX.Replace(pTEXT, "$3") o$*DFvk  
            TitleNo = regEX.Replace(pTEXT, "$1") C)9-{Yp  
            ParaType = "章" !4t%\N6Ib  
            Exit Sub SL^%Zh/~  
        End If `$3P@SO"  
         5`K'2  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" ,pk zNe`F  
        If regEX.Test(pTEXT) Then XoMgb DC  
            ParaType = "一级标题" 09G]t1!,  
            regEX.Execute (pTEXT) cRf;7G  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") R \$6_  
            TitleString = regEX.Replace(pTEXT, "$3") &;Go CU Le  
            TitleNo = regEX.Replace(pTEXT, "$1") *S4&V<W>  
            Exit Sub ;[Eso p  
        End If 2elj@EB,M  
         dPgA~~  
        '全角或半角括号中的数字 `<Hc,D; p  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" 2Y=Q%  
        If regEX.Test(pTEXT) Then "e29j'u!*  
            ParaType = "二级标题" Vt9o8naz  
            regEX.Execute (pTEXT) a{?>F&vnU  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") 6e}T zc\@(  
            TitleString = regEX.Replace(pTEXT, "$5") .Dr7 YquW  
            TitleNo = regEX.Replace(pTEXT, "$2") (m. jC}J  
            Exit Sub L9whgXD  
        End If pBQ[lPCY/  
         l|9'l[}&  
        '阿拉伯数字  1. 2. H-X5A\\5  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" X&K,,C  
        If regEX.Test(pTEXT) Then xu;^F  
            ParaType = "三级标题" A7|x|mW  
            regEX.Execute (pTEXT) R~N%sn  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 ?:zMrlX  
            TitleString = regEX.Replace(pTEXT, "$3") : R8+jO   
            TitleNo = regEX.Replace(pTEXT, "$1") qrt2uE{K  
            Exit Sub % %2~%FVb  
        End If >4#\ U!  
         *S Z]xrs  
        '全角或半角括号中的阿拉伯数字 _,-\;  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" jar?" o  
        If regEX.Test(pTEXT) Then (hv}K*c{  
            ParaType = "四级标题" $ WWi2cI;  
            regEX.Execute (pTEXT) kQ)2DCb dn  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") Ja@ ?.gW  
            TitleString = regEX.Replace(pTEXT, "$5") sn@)L~$V  
            TitleNo = regEX.Replace(pTEXT, "$2") DFGgyFay  
            Exit Sub :+ "JPF4X  
        End If kYd=DY   
         1;>RK  
        '表格名称 [Kbna>`  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" #`"B YFV[E  
        If regEX.Test(pTEXT) Then |txzIc.#  
            ParaType = "表格标题" I+Fr#1  
            regEX.Execute (pTEXT) \nQEvcH  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) ];0:aSi#  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) mj y+_  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) v\kd78,  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 .3 ^*_  
            Exit Sub /J,&G: E r  
        End If Z \ -  
         Yc( lY N  
        '图片名称 2Ju,P_<dt  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" 7G_lGV_  
        If regEX.Test(pTEXT) Then hrOp9|!m  
            ParaType = "图片标题" fAvB!e  
            regEX.Execute (pTEXT) .+^o{b  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") 8}^ym^H|j  
            TitleString = regEX.Replace(pTEXT, "$3") 6(HJYa  
            TitleNo = regEX.Replace(pTEXT, "$1") `7',RUj|D  
            Exit Sub TR{dNO!q  
        End If qZSW5lC0  
         !|Y&h0e  
        '参考文献 HsK5 2<  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 F0Z cV>j}  
        If regEX.Test(pTEXT) Then / pR,l5  
            ParaType = "文献条目" %5(v'/dQ  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") |'#uV)b0@  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") r8L'C  
            Exit Sub Y XxWu8  
        End If Z o,]Dx  
          6AmFl<  
        prfx = Left(pTEXT, 2) yhyh\.  
        If prfx = "注：" Or prfx = "注:" Then #8bI4J{dE  
            ParaType = "图表注解" P$G|o|h  
            Exit Sub Q@UY4gA '  
        End If .q$/#hN:e  
         lx~mn~;x  
         %E2C4UbY  
        ParaType = "正文" Q $>SYvW  
         061f  
    End With E95VR?nUg  
End Sub K%vGfQ8Er-  
An !i  
Sub ConvertListToOrdinary() .MRLA G  
    Dim st As Paragraph / B  
    With ActiveDocument .GPuKP|  
        For i = .Paragraphs.Count To 1 Step -1 0+S'i82=M  
            Set st = .Paragraphs(i) j!`2Z@  
            lst = st.Range.ListFormat.ListString y? 65*lUl  
            If lst <> "" Then KhbbGdmfS$  
                st.Range.ListFormat.RemoveNumbers [dXRo rd  
                st.Range.InsertBefore lst & " " 2f-Or/v  
            End If 'zTa]y]a  
        Next v8A{ q  
    End With 6[>Zy)P  
    Set st = Nothing P99s   
End Sub E __A1j*gd  
(8j@+J   
Private Sub UserForm_Activate() #D H eEE  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" 0'*'%Iga  
    Me.lbTotal.Font.Bold = True R~BW=Dz,e  
    Me.txtStatus.Visible = False 3-2?mV>5  
    Me.cmdCheck.Enabled = True DRi/<  
d _koF-7  
End Sub Xec U&  
c1_?Z  
mDU-;3OqF  
Sub CheckSuperScript() gr$H?|n l  
    Selection.Find.ClearFormatting \V.U8asfI  
    Selection.Find.Replacement.ClearFormatting *(<3 oIRS  
    With Selection.Find DZ|/#- k  
        .Text = "[【\[［〖](*)[】\]〗］]" UX<0/"0h  
        .Replacement.Text = "[\1]" yAVt[+0  
        .Replacement.Font.Superscript = True gH/k}M7tA#  
        '.Replacement.Font.Color = wdColorBlue o/\z4Ri)$  
        .Forward = True &oiBMk`*  
        .Wrap = wdFindContinue z[_G g8e  
        .FORMAT = True 7kidPAhY  
        .MatchCase = False 2O9OEZdKB  
        .MatchWholeWord = False pJwy ~ L  
        .MatchByte = False rYr.mX  
        .MatchAllWordForms = False woK?td|/  
        .MatchSoundsLike = False /ec~^S8X  
        .MatchWildcards = True :y[tZ&*<_?  
    End With y]f| U-f:~  
    Selection.Find.Execute Replace:=wdReplaceAll I~Z m**L  
End Sub !GVxQll[f  
cY*lsBo  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)  3Kum  
    bContinue = False & |o V\L  
    Set regEX = Nothing cV)~%e/  
End Sub [ x|{VJ(h  
YyR~pT#ffT  
Sub CeateOrModifyStyle() fBt7#Tc=U  
' @BXV>U2B{  
' GpM_ Qp  
Dim stl As Style n 6| \  
     T k4"qGC.  
    Options.Pagination = False )F35WP~  
     Rd*/J~TK  
    On Error Resume Next (*YENT}  
    For Each stl In ActiveDocument.Styles KHXnB  
        stl.Delete R0mWVg oz  
    Next LIHf]+  
    On Error GoTo 0 %5H>tG`]   
     >pA9'KWs]  
    Set stl = Nothing cj/FqU"  
     M3 $MgsN:  
    DoEvents gG=E2+=uy  
    On Error Resume Next "A9 c]  
     $rE_rZ+]="  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph gs77")K&  
     \>-%OcYlM  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph ktKT=(F&  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph  Z@`HFZJ  
     \<A@Nf"  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph x; R9Gc[5  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph -n~VMLd?@  
     lL:J:  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph Z?-l-s K  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph K&noA  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph n-_-;TYH  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph jVu3!{}  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph ~UJ_Rr54  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph :!Tb/1  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph uJ$!lyJ6L  
     yS-owtVCGF  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph >j$CM:w  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph /1lUFL2D  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph #65Uei|F`+  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph nEm+cHHo?  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph sxLq'3(  
     RA+k/2]y!  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph Ws`P(WHm  
    On Error GoTo 0 ?wx|n_3<:  
    DoEvents I2'UC) 0  
     }KHdlhD  
    'BaseStyle C,D~2G  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False %fz!'C_4  
    With ActiveDocument.Styles("BaseStyle").Font W;C41>^?/  
        .NameFarEast = "宋体" #y VY! +A  
        .NameAscii = "Times New Roman" ]Z\.Vx  
        .NameOther = "宋体" 1jozM"H7Q  
        .Size = 10.5 zKk2 >.  
        .Bold = wdUndefined ;=6~,k)  
        .Italic = wdUndefined %/&?t`%H  
        .Subscript = wdUndefined Io&F0~Z;;(  
        .Subscript = wdUndefined up7]Yy;o=  
         r 6STc,%5  
        .Underline = wdUnderlineNone b=+'i  
        .UnderlineColor = wdColorAutomatic <[7.+{qfW  
        .StrikeThrough = False kSw.Q2ao  
        .DoubleStrikeThrough = False *^u5?{$l(  
         [nlW}1)46  
        .Outline = False IPnbR)[%  
        .Emboss = False Fi qcM-Af4  
        .Shadow = False X^H)2 G>e  
        .Hidden = False fW4N+2  
        .SmallCaps = False f+huhJS5 e  
        .AllCaps = False Pw'3ya8  
        .Color = wdColorAutomatic cf0D q~G  
        .Engrave = False .gWYKZM  
        .Scaling = 100 8+ 1t ys  
        .Kerning = 1 Xu:S h<:R  
        .Animation = wdAnimationNone >2~q{e  
        .DisableCharacterSpaceGrid = False #\$R^u]!  
        .EmphasisMark = wdEmphasisMarkNone ( Qw"^lE3  
    End With y8un&LP  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat I%whM~M1+  
        .LeftIndent = 0 ;HJ|)PN5L  
        .RightIndent = 0 /wL} +  
        .SpaceBefore = 0 LdAfY0  
        .SpaceBeforeAuto = False Vj"B#  
        .SpaceAfter = 0 v7/qJ9l  
        .SpaceAfterAuto = False / %U+kW  
         eg-,;X#  
        .LineSpacingRule = wdLineSpaceSingle ~V"D|U;i +  
        .Alignment = wdAlignParagraphJustify :_Y@,CpIEg  
         sD* 8:Hl  
        .WidowControl = False i4N '[ P}  
        .KeepWithNext = False PDo%ob\Ym  
        .KeepTogether = False 6nRD:CH)X  
        .PageBreakBefore = False g%A p<iT  
        .NoLineNumber = False *eytr#0B-  
         pVt8z|p_;{  
        .FirstLineIndent = CentimetersToPoints(0) <gKT7ONtg  
        .OutlineLevel = wdOutlineLevelBodyText >LwZ"IE V  
        .CharacterUnitLeftIndent = 0 \5Jpr'mY5  
        .CharacterUnitRightIndent = 0   Hs8c%C  
        .CharacterUnitFirstLineIndent = 0 Pz1pEyuL  
        .LineUnitBefore = 0 gX34'<Z  
        .LineUnitAfter = 0 ,!3G  
        .AutoAdjustRightIndent = True [L,Tf_t^Y  
        .DisableLineHeightGrid = True p/xxoU  
         :d-+Z%Y  
        .FarEastLineBreakControl = True /AP@Bhm  
        .WordWrap = True n ||/3-HDj  
        .Hyphenation = False A|8(3PiP  
         oToUpkAI  
        .HangingPunctuation = True =x~HcsJ8!R  
        .HalfWidthPunctuationOnTopOfLine = True ?y7x#_Exc  
        .AddSpaceBetweenFarEastAndAlpha = True 969*mcq'  
        .AddSpaceBetweenFarEastAndDigit = True ;X! sTs  
        .BaseLineAlignment = wdBaselineAlignBaseline Q%(LMq4UG  
    End With ,\f !e#d  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False .3&zP  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll |[?"$g9v  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese nmVL%66K  
    ActiveDocument.Styles("BaseStyle").NoProofing = False D`LcL|nm H  
     Z*QsDS  
    '一级标题题样式 <w.W[ak  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") CC>]Gc7  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" Qsc%qt-l  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False ,&!Txyye  
    With ActiveDocument.Styles("QLNU一级标题").Font },'2j  
        .NameFarEast = "黑体" 40oRO0p  
        .NameAscii = "Arial Black" ^ e>`ob  
        .NameOther = "黑体" n=n!Hn  
        .Name = "黑体" nqt;Ge M  
        .Size = 16              '三号 jYRwtP\  
        .Bold = True k9.2*+vvg  
        .Italic = wdUndefined q7C>A`w  
        .Subscript = wdUndefined .Kr?vD^nG  
        .Superscript = wdUndefined Uax- z  
    End With WLEjRx  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat >9(lFh0P  
         hd.^ZD7  
        .LeftIndent = CentimetersToPoints(0) !~cTe!T  
        .RightIndent = CentimetersToPoints(0) Be+vC=\K  
        .FirstLineIndent = CentimetersToPoints(0) *.AokY)_a  
         DGTSk9iK(  
        .LineSpacingRule = wdLineSpaceSingle g# ;w)-Zj  
        .Alignment = wdAlignParagraphCenter k#% BxT  
         :~pPB#)nk  
        .WidowControl = True E[>4b7{g:  
        .KeepWithNext = True <IGQBu#ZH  
        .KeepTogether = True 1+PLj[;jJ:  
        .OutlineLevel = wdOutlineLevelBodyText T"XP`gk  
         B]q &?~  
        .LineUnitBefore = 0.5 ~&=-*  
        .LineUnitAfter = 0.5 Y0=qn'`.  
    End With _U)DL=a'  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False HKCM KHR  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll ]C-hl}iq  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese GH![rK  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True GM{m(Y  
    DoEvents _ pM&Ya  
     nW3`Z1kq})  
    '二级 # &o3[.)9  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") PWOV~ `^;  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" =usx' #rb  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False Kgi%Nd  
    With ActiveDocument.Styles("QLNU二级标题").Font AS[cz! >  
        .NameFarEast = "黑体" yK<%AV@v  
        .NameAscii = "Arial Narrow" Pm6/sO  
        .NameOther = "黑体" 52BlFBNV  
        .Name = "黑体" Aq}]{gfQ1  
        .Size = 15        '小三号 EaG3:<>J  
        .Bold = False %< JjftNQ  
        .Outline = False c.Pyt  
        .Italic = wdUndefined 67Z|=B !7  
        .Subscript = wdUndefined ,YJ\ $?  
        .Superscript = wdUndefined ;$ =`BI)  
    End With  [ottUS@  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat yw2^kk93|  
        .LeftIndent = CentimetersToPoints(0) vDz)q  
        .RightIndent = CentimetersToPoints(0) H3}{]&a  
        .FirstLineIndent = CentimetersToPoints(0) vAi kd#C)  
         +s c|PB  
        .LineSpacingRule = wdLineSpaceSingle ?ZDXT2b~~  
        .Alignment = wdAlignParagraphLeft <SUjz}_Oa:  
         HjV3PFg  
        .WidowControl = True (t1:2WY@  
        .KeepWithNext = True 3HC aZ?Ry'  
        .KeepTogether = True .OVIQxf  
        .PageBreakBefore = False  cpp0Y^  
        .OutlineLevel = wdOutlineLevelBodyText ] FvN*@lG  
         BDyOX6  
        .LineUnitBefore = 0.5 [XjJsk,  
        .LineUnitAfter = 0.5 Sve~-aG  
         W\o(f W  
    End With Z +@"  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False NA>h$N  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll DHJh.Y@H  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese ]QM6d(zDA  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True b2. xJ4  
    DoEvents <P7f\$o~  
     p mcy(<  
    '三级标题样式 0Np }O=>  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") |_8- 3  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" gd-4hR  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False 5@bLD P  
    With ActiveDocument.Styles("QLNU三级标题").Font a-,!K  
        .NameFarEast = "宋体" d {a^  
        .NameAscii = "Times New Roman" B0NKav  
        .NameOther = "黑体" 8'_>A5L/C  
        .Name = "黑体" &Jv j@,>$d  
        .Size = 14               '四号 PmO utYV  
        .Bold = False .HF+JHIUu  
        .Outline = False 1g5%Gr/0$5  
        .Italic = wdUndefined 6+A<_r`#Q  
        .Subscript = wdUndefined r}MXX n,f  
        .Superscript = wdUndefined f@+[-yF  
    End With gR"'|c   
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat 0~Ot  
        .LeftIndent = CentimetersToPoints(0) kehv85  
        .RightIndent = CentimetersToPoints(0) dX: (%_Mn  
        .FirstLineIndent = CentimetersToPoints(0) Zh]d&Xeq  
         $%"i|KTsv:  
        .LineSpacingRule = wdLineSpaceSingle )V%xbDdS  
        .Alignment = wdAlignParagraphLeft :f?\ mVS+  
         [S9T@Q  
        .WidowControl = True gYfN ?A*`_  
        .KeepWithNext = True 2f16 /0J@  
        .KeepTogether = True h #Od tc1)  
        .PageBreakBefore = False f@T/^|`mh  
        .OutlineLevel = wdOutlineLevelBodyText 8P0XY S@  
         G0Smss=K  
        .CharacterUnitLeftIndent = 0 *r$Yv&c,  
        .CharacterUnitRightIndent = 0 1+v&SU  
        .CharacterUnitFirstLineIndent = 2 wIz<Y{HA=  
         Mb=vIk{B f  
        .LineUnitBefore = 0.5 11}X2j~Ww  
        .LineUnitAfter = 0 V|ax(tHv  
    End With Xy:'f".M~\  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False mnu4XE#|  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll MQY^#N  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese (m 4`l_  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True >XjSVRO  
    DoEvents N&U=5c`Q'  
     RyKsM.   
    '四级标题样式 ?2_Oa%M  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") -mOSB(#bo  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" A9ia[2[  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False +^YXqOXU  
    With ActiveDocument.Styles("QLNU四级标题").Font O E0w/{  
        .NameFarEast = "宋体" uuHR !  
        .NameAscii = "Times New Roman" 3:7J@>  
        .NameOther = "宋体" -z./6dQ  
        .Name = "宋体" :TqvL'9o  
        .Size = 12               '小四号 j{SRE1tqh  
        .Bold = True uA7~`78  
        .Outline = False r5> FU>7'  
        .Italic = wdUndefined _?kjIF  
        .Subscript = wdUndefined &WE|9  
        .Superscript = wdUndefined j1%o+#df  
    End With d76k1-m\o  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat 4=td}%  
         CTQF+Oe8O  
        .LeftIndent = CentimetersToPoints(0) ;3OQgKI  
        .RightIndent = CentimetersToPoints(0) "qjkw f)\  
        .FirstLineIndent = CentimetersToPoints(0) wd2GKq!  
         $Mm=5 K%  
        .LineSpacingRule = wdLineSpaceSingle S(eCG2gR  
        .Alignment = wdAlignParagraphLeft P% _cIR  
         <61T)7  
        .WidowControl = True "<H.F 87Z)  
        .KeepWithNext = True G < Z)y#  
        .KeepTogether = True :oY u+ cQ  
        .PageBreakBefore = False xQ9P'ru   
        .OutlineLevel = wdOutlineLevelBodyText S:4'k^E  
         \:9dt8(-U  
        .CharacterUnitLeftIndent = 0 A(2_hl-  
        .CharacterUnitRightIndent = 0 j}3Avu%  
        .CharacterUnitFirstLineIndent = 2 MW l?pG!Y  
         hJ\IE?+  
        .LineUnitBefore = 0 ~+}w>jIm{|  
        .LineUnitAfter = 0 Qyvn A|&  
         qZACX.Hw  
    End With Gf( hN|X.  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False x7)j?2  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll A94ZG:   
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese 2jV.\C k  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True b}< T<  
    DoEvents KWbnSL8  
     i"Hec9Ri  
    '正文校式 \7rFfN3  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") .|iMKRq  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" >UvLeS2h:y  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False zgRZgVj  
    With ActiveDocument.Styles("QLNU正文").Font 7Vd"k;:X  
         !|;^  
        .NameFarEast = "宋体" mIgc)"  
        .NameAscii = "Times New Roman" bD*V$w*P  
        .NameOther = "宋体" ~=9 1K xf  
        .Name = "宋体" NFw7g&1;Kp  
         JpqZVu"7  
        .Size = 12               '小四号 g*?)o!_*  
         9W88_rE'e}  
        .Bold = wdUndefined ["Mq  
        .Italic = wdUndefined 4$.$j=Ct."  
        .Subscript = wdUndefined =(:{>tO_"  
        .Superscript = wdUndefined Z&9MtpC+N3  
         "<ua G?:  
        .Outline = False ]Ir{9EE v  
        .Emboss = False IV*@}~BJ  
        .Shadow = False ' RK .w^  
        .Hidden = False @TF^6)4f  
         a3D ''Ra  
        .DisableCharacterSpaceGrid = True /8(c^  
    End With P1KXvc}JGe  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat <"F\&M`G  
         =lY6v -MBw  
        .LeftIndent = CentimetersToPoints(0) dCv@l7hE  
        .RightIndent = CentimetersToPoints(0) s\i:;`l:=5  
        .FirstLineIndent = CentimetersToPoints(0) 2(M^8Bl  
         gsFyZ  
        .LineSpacingRule = wdLineSpaceExactly 5SPhdpIg@[  
        .LineSpacing = 20 "&;8U.  
        .Alignment = wdAlignParagraphLeft CZ* #FY  
         !=%0  
        .WidowControl = False JLo'=(  
        .KeepWithNext = False TP7'tb  
        .KeepTogether = False Y|JC+ Ee  
        .PageBreakBefore = False vFKX@wV S  
        .Hyphenation = False ^Z1t'-xZ  
         5p!X}u ]  
        .OutlineLevel = wdOutlineLevelBodyText %;ZWYj`]n  
         &AM<H}>  
       jej|B#?`  
        .CharacterUnitLeftIndent = 0 afrU>#+"  
        .CharacterUnitRightIndent = 0 l3kYfq{";"  
        .CharacterUnitFirstLineIndent = 2 ^*JpdmVhu  
         :j_OO5b!  
        .LineUnitBefore = 0 hbl%<ItI49  
        .LineUnitAfter = 0 p|fSPSz  
        .SpaceBefore = 0 zY_xJ"/9  
        .SpaceAfter = 0 &c!d}pU}  
         YuufgPE*H  
        .DisableLineHeightGrid = True  mG4$  
    End With V@krw"vW  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False rP$vZ^/c  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll aDEz |>q  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese *FhD%><  
    ActiveDocument.Styles("QLNU正文").NoProofing = True 7OuzQzhcK  
    DoEvents xuBXOr4"P  
     CR8a)X4j#  
    '图片段落样式 & D@/_m $  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") y.,S}7l:  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" =P'33) \ )  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False '](4g/%  
    With ActiveDocument.Styles("QLNU图片段落").Font -+MGs]),  
        .Size = 12               '小四号 Z9P rw/8P  
        .Italic = wdUndefined qYpuo D   
        .Subscript = wdUndefined }?[^q  
        .Superscript = wdUndefined X 'D~#r  
    End With \i1>/`F  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat h1O^~"x  
         &q~**^;'  
        .LeftIndent = CentimetersToPoints(0) OSP#FjH  
        .RightIndent = CentimetersToPoints(0) 5'iJN$7  
        .FirstLineIndent = CentimetersToPoints(0) 8/q6vk><  
         /tIR}qK  
        .LineSpacingRule = wdLineSpaceSingle 7 0pt5O3]  
        .Alignment = wdAlignParagraphCenter ,K4*0!TXP  
        .KeepWithNext = True LF o{,%B  
        .OutlineLevel = wdOutlineLevelBodyText &XG k  
         81?7u!=ic+  
        .CharacterUnitLeftIndent = 0 { a2Y7\C/  
        .CharacterUnitRightIndent = 0 vwy10PlqL  
        .CharacterUnitFirstLineIndent = 0 F>N3GPRl  
         9 {&APxm  
        .LineUnitBefore = 0 xX;@ BS  
        .LineUnitAfter = 0 "s-e) svB  
    End With 5W hR |  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False p }p1>-j  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll yLv jf P1  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese BC!n;IAe  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True _D{zB1d\0  
    DoEvents WKVoqp}  
     9J>b6   
     jvfVB'Tmr  
    '第X章 Ve/"9 ?Y_  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ?naPti1GX  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" b-Fv vA  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False Mou@G3  
    With ActiveDocument.Styles("QLNU章节标题").Font IX/FKSuq  
        .NameFarEast = "黑体" Q I!c=:u  
        .NameAscii = "Arial Black" Q2^~^'Y k  
        .NameOther = "Arial Black" - ^A =U7  
        .Name = "黑体" <eWGvIEP[  
        .Size = 16  3Ee8_(E\  
        .Bold = True g;p]lVx=>  
        .UnderlineColor = wdColorAutomatic 38Rod]\E  
        .Outline = False 4a'O#;h o  
        .Italic = wdUndefined 1X-KuGaD  
        .Subscript = wdUndefined /JP]5M)   
        .Superscript = wdUndefined z9> yg_Q  
        .Scaling = 100 x0t&hY>P!  
        .DisableCharacterSpaceGrid = True Z)iRc$;  
    End With Eu%19s; u  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat >y P`8Oq[  
        .LineSpacingRule = wdLineSpaceSingle b1X.#pz7F  
        .Alignment = wdAlignParagraphCenter 31BN ?q  
        .WidowControl = True `D2wlyqO6  
        .KeepWithNext = True  ?gZJ v  
        .KeepTogether = True [>`[1;aX  
        .PageBreakBefore = True 1-z*'Ghys  
        .OutlineLevel = wdOutlineLevelBodyText /cmnX'z  
         t<`h(RczHI  
        .LeftIndent = CentimetersToPoints(0) m3|KIUP  
        .RightIndent = CentimetersToPoints(0) aFkxR\x 6%  
        .FirstLineIndent = CentimetersToPoints(0) dU!`aPL?  
         &uLxA w  
        .CharacterUnitLeftIndent = 0 5Gj?'Wov9  
        .CharacterUnitRightIndent = 0 /t "p^9!^  
        .CharacterUnitFirstLineIndent = 0 k:?+75?$  
         TWv${m zE  
        .LineUnitBefore = 1 ` b(y 5Z  
        .LineUnitAfter = 0.5 m>po+7"b  
         c k~gB  
        .AutoAdjustRightIndent = False q;I`&JK  
        .DisableLineHeightGrid = True 5fh@nR  
        .FarEastLineBreakControl = True {HgW9N(  
        .WordWrap = True iEDZ\\,  
    End With `i{k^Q  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False s3G\L<~mB  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll R'E8>ee; ^  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese NW-l_]k  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True fVR:m`'Iq_  
    DoEvents 6k#H>zY,  
     j s(E-d/  
    '表格标题 WA);Z=  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") R=D\VIu,Z  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" +{%@kX<V_  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False zs+[Aco)  
    With ActiveDocument.Styles("QLNU表格标题").Font [\9WqHs  
        .NameFarEast = "楷体" ]mU,y$IQ  
        .NameAscii = "Arial" | ?6 wlf  
        .Name = "楷体" >.R6\>N%  
        .Size = 10.5 wp/u*g  
        .Bold = True ETu7G5?  
        .Underline = wdUnderlineNone )p.+39]{2  
        .Italic = wdUndefined ;bt@wgY  
        .Subscript = wdUndefined )B d`N^k+  
        .Superscript = wdUndefined >$.u|a  
        .Color = wdColorAutomatic ] o!#]]   
    End With Ru%: z>Y  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat Lh=~3  
         #=WDJ T:  
        .LineSpacingRule = wdLineSpaceSingle JOj\#!\>k0  
        .Alignment = wdAlignParagraphCenter 47Y| 1  
        .KeepWithNext = True a S- rng  
        .KeepTogether = True q.(p.uD  
        .OutlineLevel = wdOutlineLevelBodyText d6lhA7  
         DdI7%?hK  
        .LeftIndent = CentimetersToPoints(0) T;-Zl[H  
        .RightIndent = CentimetersToPoints(0) -Q@jL{Ue  
        .FirstLineIndent = CentimetersToPoints(0) kndP?#> p1  
         ?FRR";  
        .CharacterUnitLeftIndent = 0 qA- ya 6  
        .CharacterUnitRightIndent = 0 ;qI5GQ {  
        .CharacterUnitFirstLineIndent = 0 Z$R2Z$f  
         '-jKv=D+  
        .LineUnitBefore = 1 {Y5h*BD>  
        .LineUnitAfter = 0 #Id.MLHxA_  
         uo1G   
    End With 0F'75  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False Tb-`0^y&X1  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll I3Sl>e(Z  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese ~A8%[.({5  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True 1B3,lYBM  
    DoEvents fgxsC7P$  
h.)2,  
    '表格首行 B0c}5V  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") c%.f|/.k  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False -X#J<u T/  
    With ActiveDocument.Styles("QLNU表格首行").Font W7N Hr5RC  
        .NameFarEast = "楷体" >l$vu-k)~4  
        .NameAscii = "Times New Roman" kO<`RHlX=  
        .Name = "楷体" =q|fe%#  
        .Size = 9 }@'xEx  
        .Bold = True (l 2 2p  
        .Underline = wdUnderlineNone Q^Ln`zMe  
        .Italic = wdUndefined <$liWAGX\  
        .Subscript = wdUndefined RJs_ S  
        .Superscript = wdUndefined ` w S g/  
    End With < %Qw dEO  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat m[^;HwJ  
        .LineSpacingRule = wdLineSpaceSingle }iy`Ko+B"b  
        .Alignment = wdAlignParagraphCenter d9/E^)TT  
         wAHb 5>!  
        .LeftIndent = CentimetersToPoints(0) Vvx(7p-GQ  
        .RightIndent = CentimetersToPoints(0) *jWU8.W  
        .FirstLineIndent = CentimetersToPoints(0) PMZdz>>T  
         @ ADY?  
         Q:+Y-&||"  
        .CharacterUnitLeftIndent = -0.5 D} 0>x~  
        .CharacterUnitRightIndent = -0.5 $8&HpX#h$  
        .CharacterUnitFirstLineIndent = -0.5 a@@!Eg A  
         )!dELS \ix  
        .LineUnitBefore = 0 ;U<) $ 5  
        .LineUnitAfter = 0 S&-sl   
        .SpaceBefore = 0 *f8,R"]-g  
        .SpaceAfter = 0 Ja-D}|;  
         QnxkD)f*0  
    End With T 4 SByX9  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False [Hdk=p  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll 81a&99 k#  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese yZ&By?.0  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True NrvS/ cI!t  
    DoEvents hvBuQuk)  
cFLu+4.jsG  
    '表格内容 ilK8V4k<T)  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") SX}GKu  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False Pi?*rr5WZ  
    With ActiveDocument.Styles("QLNU表格内容").Font mxHNK4/  
        .NameFarEast = "楷体" y_"GMw  
        .NameAscii = "Times New Roman" 2h&pm   
        .Name = "楷体" 4\(;}M-R{  
        .Size = 9 EpGe'S  
        .Bold = False Tu_dkif'  
        .Underline = wdUnderlineNone (Cp:NS  
        .Italic = wdUndefined hk ./G'E  
        .Subscript = wdUndefined ZNB*Azi  
        .Superscript = wdUndefined 7kn=j6I  
    End With pmCBe6n \l  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat We#*.nr{3Z  
        .LineSpacingRule = wdLineSpaceSingle lGB7(  
        .Alignment = wdAlignParagraphCenter HqgTu`  
         0jv9N6IM  
        .LeftIndent = CentimetersToPoints(0) !U`T;\ ,v5  
        .RightIndent = CentimetersToPoints(0) kSNVI-Wzu  
        .FirstLineIndent = CentimetersToPoints(0)  Vm8;{Sq  
         _| 8"&*T^  
        .CharacterUnitLeftIndent = -0.5 @6*<Xs =  
        .CharacterUnitRightIndent = -0.5 f.jAJ; N>  
        .CharacterUnitFirstLineIndent = -0.5 iy tSC  
        .LineUnitBefore = 0 }sy3M rb  
        .LineUnitAfter = 0 r"fu{4aX  
        .SpaceBefore = 0 xSb/9 8;  
        .SpaceAfter = 0 MC#bo{Bq3-  
    End With $ O!f*lG  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False @YwaOc_%  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll *MagicA  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese lRt8{GFy  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True 8KWT d  
    DoEvents qUtVqS  
]^ O<WD  
    '图片标题 6lT'%ho}B  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") Rl5}W\&  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" >^J!Z~;L)  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False d+T]EpQJ*  
    With ActiveDocument.Styles("QLNU图片标题").Font 4 d]  
        .NameFarEast = "楷体" {OAy@6 +  
        .NameAscii = "Times New Roman" (f#W:]o/  
        .Name = "楷体" LR)is  
        .Size = 10.5 bT{P1nUu  
        .Bold = True y6*i/3  
        .Underline = wdUnderlineNone !.t'3~dUf$  
        .Italic = wdUndefined >4Ec V1y  
        .Subscript = wdUndefined *C\4%l   
        .Superscript = wdUndefined >Dtw^1i  
        .Outline = False r.ajw&J2  
        .Shadow = False HTqikw5X  
        .Color = wdColorAutomatic FeV=4tsy  
    End With `MTOe 1  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat h]EXD   
        .LineSpacingRule = wdLineSpaceSingle D'nV &m  
        .Alignment = wdAlignParagraphCenter TaolX*$5  
         F$ h/k^  
        .KeepWithNext = wdUndefined 0[3b,  
        .KeepTogether = True #gN{8Yk>  
        .OutlineLevel = wdOutlineLevelBodyText qE,%$0g  
         BC$In!  
        .LeftIndent = CentimetersToPoints(0) 30H:x@='9  
        .RightIndent = CentimetersToPoints(0) hChM hc  
        .FirstLineIndent = CentimetersToPoints(0) .j&jf^a5  
         rW\~sTH  
        .CharacterUnitLeftIndent = 0 RM<\bZPc  
        .CharacterUnitRightIndent = 0 B8s|VI  
        .CharacterUnitFirstLineIndent = 0 !;\-V}V  
         Fah}#,  
        .LineUnitBefore = 0 *fd` .}  
        .LineUnitAfter = 0 b1*6 )  
    End With  Mx r#  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False ?tA- `\E  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll t1Jz?Ix6%  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese NZlJ_[\$C  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True D[-Ct  
    DoEvents bfpW ^y  
8%xtb6#7M  
    '目录项 8=nm`7(]  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") *Mp<4B  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" Ne9 .wd  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False 1~`g fHI4  
    With ActiveDocument.Styles("QLNU目录项").Font v>R.M"f  
        .NameFarEast = "黑体" 19# )# n^  
        .NameAscii = "Times New Roman" W' 2)$e  
        .NameOther = "Times New Roman" {Zseu$c  
        .Name = "黑体" +mxYz#reX  
        .Size = 10.5 q6G([h7  
        .Bold = False ptDA))7M/  
        .Italic = wdUndefined ))KsQJ"V  
        .Underline = wdUnderlineNone |d`?wm-   
        .Color = wdColorAutomatic *E. 2R{  
        .Superscript = wdUndefined  zIAMM  
        .Subscript = wdUndefined gSe{ S  
    End With Fk9(FOFg  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat t o?"{  
         mmjB1 L  
        .LineSpacingRule = wdLineSpaceSingle +?@qu x!  
        .Alignment = wdAlignParagraphLeft 2Qk \}KWs  
         s+CXKb +  
        .WidowControl = False &0C!P=-p  
        .KeepWithNext = False fglZjT  
        .KeepTogether = False / 9;Pbxn  
        .PageBreakBefore = False PRah?|*0s  
        .NoLineNumber = False {W4t]Ff  
        .OutlineLevel = wdOutlineLevelBodyText !<X_XA  
         7I44BC*R~  
        .LeftIndent = CentimetersToPoints(0) SQ1&n;M}f  
        .RightIndent = CentimetersToPoints(0) =:0(&NCRq  
        .FirstLineIndent = CentimetersToPoints(0) $\K(EBi#G  
         l|up3A3)  
        .CharacterUnitLeftIndent = 0 ud#8`/!mq  
        .CharacterUnitRightIndent = 0 h">X!I  
        .CharacterUnitFirstLineIndent = 0 a0LX<}   
         x) U;  
        .LineUnitBefore = 0 Y zvtxX*  
        .LineUnitAfter = 0 g1{wxB FE  
    End With O~Fk0}-  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False qnm9L w#  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll 5g5pzww  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot mn4;$1~e>H  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese ./g#<  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True hWW<]qzA,  
    DoEvents hBqu,A  
     '{u#:TTj  
    '参考文献 0,3 ':Df  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") T a[74;VO  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" .z4FuG,R  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False :|A db\b  
    With ActiveDocument.Styles("QLNU参考文献").Font H Z}'W<N  
        .NameFarEast = "宋体" >5gzo6j/  
        .NameAscii = "Times New Roman" {r}}X@|5  
        .NameOther = "Times New Roman" UD(#u3z  
        .Name = "Times New Roman" >WEg8'#O  
        .Size = 12 K*}j1A  
        .Bold = False $ta#] >{  
        .Italic = wdUndefined $Yxy(7d7w  
        .Subscript = wdUndefined ge?ymaU$a  
        .Superscript = wdUndefined a|5 3E<5X  
        .Underline = wdUnderlineNone CFA>  
        .UnderlineColor = wdColorAutomatic Z"^@B2v  
        .Color = wdColorAutomatic h ,n!x:zy@  
        .Engrave = False A3$b_i@P  
    End With 68>zO %  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat hWu)0t  
         |S}*M<0  
        .LineSpacingRule = wdLineSpaceExactly 1lQ1 0J  
        .LineSpacing = 16 $G}Q}f  
        .Alignment = wdAlignParagraphLeft 0q;] ;m  
        .WidowControl = False Dm^kuTIG  
        .KeepWithNext = False v;8XRR:  
        .KeepTogether = False t 8+93,*B  
        .PageBreakBefore = False 18HHEW{  
        .OutlineLevel = wdOutlineLevelBodyText Smu x&e  
         &tOD  
        .LeftIndent = CentimetersToPoints(0) +~v(*s C  
        .RightIndent = CentimetersToPoints(0) NNdS:(  
        .FirstLineIndent = CentimetersToPoints(0) m{yON&y  
         l`]!)j|+  
        .CharacterUnitLeftIndent = 0 J|q_&MX/  
        .CharacterUnitRightIndent = 0 qs b4@jt+  
        .CharacterUnitFirstLineIndent = -2 #lC{R^SL  
         iTvCkb48m  
        .LineUnitBefore = 0 y$"L`*W  
        .LineUnitAfter = 0 H}~^,B2;  
        .SpaceBefore = 0 Lgfr"{C  
        .SpaceAfter = 0 e+WVN5"ID>  
         [P,nW/H  
    End With  M:$nL  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False Qw-qcG  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll <am7t[G."  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS ]z%9Q8q'  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True  zVa+5\Q  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese 0Q9OQqg m  
    DoEvents 6;*(6$ ;  
Z}C%%2Iz  
    ' LN^8U  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") F{+`F<r  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" E;Hjw0M'k  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False "8]170  
    With ActiveDocument.Styles("QLNU论文题目").Font $F%?l\7j  
        .NameFarEast = "黑体" Ye6O!,R  
        .NameAscii = "Arial Black"  f#nmr5F  
        .NameOther = "Arial Black" ;CZcY] ol  
        .Name = "Arial Black" t*#&y:RG  
        .Size = 16 cOgtBEhn  
        .Bold = False 7EXmmB~>,  
        .Italic = wdUndefined mx4*zj  
        .Superscript = wdUndefined $gTPW,~s[  
        .Subscript = wdUndefined Ei<:=6EX?8  
        .Underline = wdUnderlineNone 19t*THgq  
        .UnderlineColor = wdColorAutomatic m t^1[  
        .Color = wdColorAutomatic Sx"I]N  
|{K:.x#^  
    End With u2Obb`p S  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat `y#C%9#  
        .LineSpacingRule = wdLineSpaceSingle . gJKr  
        .Alignment = wdAlignParagraphCenter 3"n8B6  
        .WidowControl = True p'4P2   
        .KeepWithNext = True w1b <>A?87  
        .KeepTogether = True jFv<]D%A[  
        .PageBreakBefore = True :[39g;V}c  
        .NoLineNumber = False \#r_H9&s6  
        .OutlineLevel = wdOutlineLevelBodyText g1|c?#fwo  
         "U.=A7r  
        .LeftIndent = CentimetersToPoints(0) -tdG} Gu  
        .RightIndent = CentimetersToPoints(0) ~-%A@Lt  
        .FirstLineIndent = CentimetersToPoints(0) co80M;4  
         ( -@>  
        .CharacterUnitLeftIndent = 0 9R[','x  
        .CharacterUnitRightIndent = 0 ~dLZ[6Z  
        .CharacterUnitFirstLineIndent = 0 LfApVUm  
         y|se^dn  
        .LineUnitBefore = 1 LNE[c  
        .LineUnitAfter = 1 J;`~ !g  
         Z(eSnV_RL  
        .BaseLineAlignment = wdBaselineAlignAuto uSJP"Lw  
    End With >cb gL%  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False nE;gM1I  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll A'8K^,<  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS Hv\*F51p=  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True SI9hS4<j  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese QR'g*Bro  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True eV0S:mit  
    DoEvents QEKFuY<E+  
     WU\bJ}  
    '中文摘要 Biy 9jIWI  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") "-?Y UY`  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" oUSG`g^P(M  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False :bDA<B6bb  
    With ActiveDocument.Styles("QLNU中文摘要").Font (^9M9+L[i  
        .NameFarEast = "宋体" W V U9NmvE  
        .NameAscii = "Times New Roman" Qg!*=<b  
        .NameOther = "Times New Roman" nL!@#{z  
        .Name = "Times New Roman" J.l%H U  
        .Size = 12 7p$*/5fk  
        .Bold = wdUndefined 6%#'X  
        .Superscript = wdUndefined K;y\ &'E  
        .Subscript = wdUndefined #^ #i]{g  
        .Italic = wdUndefined Gf\_WNrSE+  
        .Underline = wdUnderlineNone >JOvg*a?"  
        .UnderlineColor = wdColorAutomatic E=NY{| >  
        .Color = wdColorAutomatic v!xrUyN~m  
    End With KOx#LGz  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat ?< QFW#:)  
        .LineSpacingRule = wdLineSpaceExactly dDbC0} x/  
        .LineSpacing = 20 .*blM1+6i/  
        .Alignment = wdAlignParagraphLeft Uzn|)OfWP  
         uek3Y[n  
        .WidowControl = False _'U?!  
        .KeepWithNext = False \[EWxu  
        .KeepTogether = True "r"An"  
        .PageBreakBefore = False n #I}!x>2  
        .NoLineNumber = False O$/ swwB!  
        .OutlineLevel = wdOutlineLevelBodyText *Mc\7D  
         4?& a?*M  
        .LeftIndent = CentimetersToPoints(0) OvG0UXRU  
        .RightIndent = CentimetersToPoints(0) nj`q V   
        .FirstLineIndent = CentimetersToPoints(0)  F`.7_D  
         iGk{8Da<  
        .CharacterUnitLeftIndent = 0 }8: -I Nj4  
        .CharacterUnitRightIndent = 0 55b |zf  
        .CharacterUnitFirstLineIndent = 2 q?4uH;h:^G  
        .LineUnitBefore = 0 X)O P316yx  
        .LineUnitAfter = 0 pNFIO t:(  
         *XO KH+_u  
    End With hp4(f W  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False VAE?={-  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll h';v'"DoW`  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS vq7%SEkES  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True `h!&->  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese ~[q:y|3b  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True ;@ X   
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete oJT@'{;*z  
    DoEvents 66^t[[  
     J9.p8A^^2  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 8]\h^k4f  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" @|Bp'`j%J  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False ! hr@{CD  
    With ActiveDocument.Styles("QLNU英文标题").Font !\O,dq  
        .NameFarEast = "黑体" Gx_e\fe-/  
        .NameAscii = "Arial Narrow" ~|C1$.-  
        .Name = "Arial Narrow" F@bCm+z-  
        .Size = 16 D  .R  
        .Bold = True iQ C&d_#  
        .Bold = wdUndefined ,{*fOpn  
        .Superscript = wdUndefined 'LLx$y.Ei[  
        .Subscript = wdUndefined 9z/_`Xd_  
        .Italic = wdUndefined 2z# @:Q  
         UO<claV  
        .Underline = wdUnderlineNone jgw'MpQm{  
        .UnderlineColor = wdColorAutomatic >8O=^7  
        .StrikeThrough = False c[lo b{,  
        .DoubleStrikeThrough = False 5udoZ >T  
    End With \Pmk`^T  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat Qmx~_  
        .LineSpacingRule = wdLineSpaceSingle z.HNb$;  
        .Alignment = wdAlignParagraphCenter SkRQFm0a~  
        .WidowControl = True [F[<2{FQF  
        .KeepWithNext = False gGml c:/J%  
        .KeepTogether = False IFofF Xv_  
        .PageBreakBefore = False M~F2cX W  
        .NoLineNumber = False <9tG_  
        .FirstLineIndent = CentimetersToPoints(0) &"%|`gE  
        .OutlineLevel = wdOutlineLevelBodyText e*6` dz@  
         D D;+& fe  
        .LeftIndent = CentimetersToPoints(0) (kyo?3  
        .RightIndent = CentimetersToPoints(0) Q8cPKDB  
        .FirstLineIndent = CentimetersToPoints(0) `Kw8rG\]:  
         -xIhN?r)  
        .CharacterUnitLeftIndent = 0 g*r;( H>e  
        .CharacterUnitRightIndent = 0 kQlcT"R  
        .CharacterUnitFirstLineIndent = 0 `1<3Hu_  
         hg'!  
        .LineUnitBefore = 1 ?Hxgx  
        .LineUnitAfter = 1 -L?% o_  
         p!QneeA`&X  
    End With A!Ct,%   
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False igj@{FN  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll 91d`LsP  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS }QW~.>`  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True c.A/{a  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese Sc 3M#qm_  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True To%*)a  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete kdPm # $-  
    DoEvents 59BHGvaF  
T)tHN#6I  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") +u:O AsR  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" jI<WzvhYG  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False >1pH 91c'  
    With ActiveDocument.Styles("QLNU英文摘要").Font '/gwC7*-&  
        .NameFarEast = "宋体" .x?zky^  
        .NameAscii = "Arial" KqUSTR1e[  
        .NameOther = "Arial" N/{Yi _n  
        .Name = "Arial" nL 07^6(  
        .Size = 12 DLVs>?Y  
        .Bold = wdUndefined ]J=)pD rk  
        .Italic = wdUndefined  ^-*Tn  
        .Superscript = wdUndefined <?7,`P:h[  
        .Subscript = wdUndefined 4qXRDsbCf  
    End With G iO#1gA  
     O[p^lr(B7  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat cYy @  
         ":^ NLBm>5  
        .LineSpacingRule = wdLineSpaceExactly  ,bp pM  
        .LineSpacing = 20 &|"I0|tJ  
         :fKz^@mY4  
        .Alignment = wdAlignParagraphJustify fA0=Y,pzv  
         Zi@+T  
        .WidowControl = False `Mp7 })  
        .KeepWithNext = False xj q7%R_,  
        .KeepTogether = False L{%a4 Ip  
        .PageBreakBefore = False l@/kPEh  
        .NoLineNumber = False T1!Gr!=  
         +Z~!n  
        .OutlineLevel = wdOutlineLevelBodyText 7oLf5V1~  
         @mRrA#E#{  
        .LeftIndent = CentimetersToPoints(0) %<#3_}"T|  
        .RightIndent = CentimetersToPoints(0) 'Qq_Xn 8  
        .FirstLineIndent = CentimetersToPoints(0) #L= eK8^e  
         @:QdCG+  
        .CharacterUnitLeftIndent = 0 %R*vSRG/U  
        .CharacterUnitRightIndent = 0 (Cd{#j<  
        .CharacterUnitFirstLineIndent = 2 't?7.#,6O  
         15T[J%7f  
        .LineUnitBefore = 0 Il`k]XM  
        .LineUnitAfter = 1 N z3%}6F:  
         UQ?OD~7  
    End With ,3- -ERf  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False )^>XZ*eK  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll 9f%y)[ \  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS (s@tU>4U  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False : tqm2t  
    DoEvents Dzjt|U0ru9  
n ,:.]3v%  
    Options.Pagination = True ?r E]s!K  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." C9Z\G 3  
    DoEvents n.XhK_6n]M  
    ActiveDocument.Repaginate )Z]y.W)  
agU!D[M_G  
End Sub zM r!WoW  
^C)TM@+  
D62 NU  
杺栫杣杊椌柮栬，䒴蓉艿芖。
回复 引用
举报顶端
伍胥之 离线
级别: 军区司令员

显示用户信息 
101楼  发表于: 2024-12-28   
只看该作者 ┊  小 中 大
姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 :EmQ_?(^  
KW|\)83$  
引用
引用第20楼newport93于06-14-2010 13:47发表的  : 4`U0">gY  
*fH_lG%  
老五，I 服了U。 G]mWaA  
:9F''f$AP  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 {`H<=h__  
'uKkl(==%  
杺栫杣杊椌柮栬，䒴蓉艿芖。
回复 引用
举报顶端
上一主题下一主题
«3456»Pages: 6/6
 Bay Area Chinese--灣區華人 » 乱讲
描述
快速回复

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