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

显示用户信息 
100楼  发表于: 2021-07-18   
只看该作者 ┊  小 中 大
Dim bContinue As Boolean !.q 9:|oc  
V2M4g  
Dim regEX As New RegExp %*wE zvt *  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 yNn=r;FZQ  
CR%h$+dzy  
Dim LastTitle0String As String, LastTitle0No As Long !E_|Zp]up  
Dim LastTitle1String As String, LastTitle1No As Long &zJ*afi)  
Dim LastTitle2String As String, LastTitle2No As Long %7w8M{I R3  
Dim LastTitle3String As String, LastTitle3No As Long +zq"dj_  
Dim LastTitle4String As String, LastTitle4No As Long @:#J^CsM+'  
Dim LastTitle5String As String, LastTitle5No As Long $p&eS_f  
Dim LastTabelString As String, LastTableNo As Long aNNRw(0/  
Dim LastFigureString As String, LastFigureNo As Long D!/ 4u0m  
+`>E_+Mp  
Dim strSeperator As String U1pE2o-  
xpo^\E?2  
Sub ConvertWidth(fTEXT As String, rText As String) wU<j=lY?f  
        Selection.Find.ClearFormatting b4bd^nrqV  
        Selection.Find.Replacement.ClearFormatting ksuePMIK  
        Selection.Find.Wrap = wdFindContinue Dj'?12Onu=  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText V45adDiZ  
        DoEvents @G=7A;-pv0  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True W*#5Sk  
End Sub {;& U5<NO  
_>kc:  
Sub ClearDomain() ->.9[|lIg  
        With Selection.Find vNuws_  
            .ClearFormatting DI2e%`$  
            .Replacement.ClearFormatting o$Nhx_F  
            .Wrap = wdFindContinue 6NhGTLI  
            Me.txtStatus.Text = "清除所有域代码" &GJVFr~z  
            DoEvents g1"Z pD  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False aX6}:"R2C  
        End With c$L1aZ o  
End Sub :yJ ([  
ID! S}D  
Private Sub cmdCheck_Click() VKX|0~  
    bContinue = True #\n* Qg4p  
    Dim NoSeries1(1 To 16) As String _@[W[= |H  
    Dim NoSeries2(1 To 16) As String D1v0`od'  
    Dim NoSeries5(1 To 16) As String wy${EY^h  
    Dim NoSeriesRM(1 To 16) As String U`HY eJ  
    Dim paraTotal As Long, ParaText As String S-Vj$asv!  
    Dim ttString As String, ttNo As String &z:bZH]DH  
     l&e$:=;8  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long x9a\~XL>a  
W} H~ka  
    Me.txtStatus.Visible = True ~u2f`67{  
    Me.lbParaType.Visible = True ruB D ^-  
    Me.cmdCheck.Enabled = False OY:rcGc`t  
     -T{2R:\{  
     ty rP[y  
     nXoDI1<[  
     ujmIS~"  
    Dim ParaType As String, rText As String ]4 c+{  
     |3!)  
    Selection.WholeStory $qdynKK  
    Selection.NoProofing = True X9]} UX  
     j 4=iHnE;  
    tm1 = Now Q1x&Zm1v  
     Ddg!1SF  
        ActiveWindow.View.Type = wdNormalView {z0iWY2Xw  
     " M?dU^U^  
    NoSeries1(1) = "一" X#JUorGp  
    NoSeries1(2) = "二" LD5`9-  
    NoSeries1(3) = "三" 4 l-Urn Z  
    NoSeries1(4) = "四" |Rkw/5  
    NoSeries1(5) = "五" \R]2YY`EP  
    NoSeries1(6) = "六" q Tdwi?j_  
    NoSeries1(7) = "七" 7(h@5  
    NoSeries1(8) = "八" *.k*JsU~B  
    NoSeries1(9) = "九" F;}JSb"  
    NoSeries1(10) = "十" U4K ZPk  
    NoSeries1(11) = "十一" ~&qvS  
    NoSeries1(12) = "十二" 0zSz[;A  
    NoSeries1(13) = "十三" .udLMS/_  
    NoSeries1(14) = "十四" Dv/7 w[F  
    NoSeries1(15) = "十五" ,(K-;Id4  
    NoSeries1(16) = "十六" UdM2!f  
     K[OOI~"C  
    NoSeries2(1) = "㈠" at@tS>D v  
    NoSeries2(2) = "㈡" 6o3#<ap<  
    NoSeries2(3) = "㈢" U0:*?uA.  
    NoSeries2(4) = "㈣" _LC*_LT_  
    NoSeries2(5) = "㈤" \ f+;X  
    NoSeries2(6) = "㈥" 37a1O>A  
    NoSeries2(7) = "㈦" js <Up/1  
    NoSeries2(8) = "㈧" M 80Q6K  
    NoSeries2(9) = "㈨" M kJBKS  
    NoSeries2(10) = "㈩" UWV%  y P  
     [w@S/K[_|  
    NoSeries5(1) = "①" uK"FopUJ4i  
    NoSeries5(1) = "②" l9a81NF{s  
    NoSeries5(3) = "③" ~Hub\kn  
    NoSeries5(4) = "④" !o_eK\p  
    NoSeries5(5) = "⑤" _",(!(  
    NoSeries5(6) = "⑥" \X %FM"r  
    NoSeries5(7) = "⑦" q@[F|EF=  
    NoSeries5(8) = "⑧" z7`|N`$Z#s  
    NoSeries5(9) = "⑨" Q. O4R_H  
    NoSeries5(10) = "⑩" "49dsKIOH  
     X5 or5v  
     *P`wuXn}  
    NoSeriesRM(1) = "I" vCJa%}  
    NoSeriesRM(2) = "II" #\Rxqh7  
    NoSeriesRM(3) = "III" @!! u>1  
    NoSeriesRM(4) = "IV" md'wre3  
    NoSeriesRM(5) = "V" b5^>QzgD  
    NoSeriesRM(6) = "VI" ,iP YsW]5  
    NoSeriesRM(7) = "VII" \ Voly  
    NoSeriesRM(8) = "VIII" <iU@ M31  
    NoSeriesRM(9) = "IX" ;NdH]a {  
    NoSeriesRM(10) = "X" 7>O`UT<t4@  
    NoSeriesRM(11) = "XI" 2v4K3O60G  
    NoSeriesRM(12) = "XII" <Y?Z&rNb  
    NoSeriesRM(13) = "XIII" }kvix{  
    NoSeriesRM(14) = "XIV" Zf!Q4a "  
    NoSeriesRM(15) = "XV" -#T%*  
    NoSeriesRM(16) = "XVI" 8_HBcZWs  
     Y]0c%Fd  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) ZZo<0kDk  
     [(#)9/3,  
    If i = vbNo Then u$[8Zmgzz  
        Exit Sub ^$lZ  
    End If SF-"3M  
     M`'DD-Q  
    If Me.chkSuper.Value Then Q> y!  
        Me.txtStatus.Text = "检查修改所有的上标格式" |a#ikY _nd  
     'ZMh<M[  
        CheckSuperScript &k}B66  
         w[gt9]}N  
    End If Ul]7IUzsu  
     S 4 17.n  
    If Me.chkStyle.Value Then fv8x7l7  
        Me.txtStatus.Text = "设置样式，请稍候...." <%uEWb)  
        DoEvents L@AFt)U  
        CeateOrModifyStyle k@|px#k q  
    End If l_:P |  
     $RYGAh  
     bRm;d_9zC  
     L{F]uz_[x  
    ClearDomain r.#r!.6 q  
         @U5gxK*  
     W& 0R/y7  
     +O 7( >a  
    If Me.chkLIST.Value Then -sJD:G,%  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" H<i!C|AF  
     -A w]b} #v  
        ConvertListToOrdinary 0Pf88'6  
    End If b,~pwbHf  
     ^t gjs$M|  
     [iq^'E  
    Dim pType As String, trimpTEXT As String 1[Yl8W%pj  
    If Me.chkNum.Value = True Then ,Owk;MV@  
        Me.txtStatus.Text = "转换全角数字形式为半角" Y3:HQ0w`|  
        ConvertWidth "１", "1" Bt@?l]Y  
        DoEvents BX[ IWP\%  
        ConvertWidth "２", "2" aXVldt'  
        DoEvents _p0Yhju?  
        ConvertWidth "３", "3" N}B&(dJ  
        DoEvents qX-5/;n  
        ConvertWidth "４", "4" [=jZP,b&),  
        DoEvents hui #<2{  
        ConvertWidth "５", "5" )?#K0o[<  
        DoEvents  eu$VKLY*  
        ConvertWidth "６", "6" 0:[A4S`X  
        DoEvents ~$T>,^K y  
        ConvertWidth "７", "7" _^GBfM.  
        DoEvents #1'q'f:7 &  
        ConvertWidth "８", "8" /Ls|'2J<$  
        DoEvents TCyev[(  
        ConvertWidth "９", "9" }'x)e  
        DoEvents 95@u|#n  
        ConvertWidth "０", "0" T2w4D !  
        DoEvents N^oP,^+U  
        ConvertWidth "ａ", "a" %+j/nA1%S  
        DoEvents )$E){(Aa  
        ConvertWidth "ｂ", "b" %pjeA[-m#  
        DoEvents v0 :n:q  
        ConvertWidth "ｃ", "c" wQy~5+LE  
        DoEvents SEzjc ~@3  
        ConvertWidth "ｄ", "d" qfJ2iE|o2.  
        DoEvents dR\yRC]I  
        ConvertWidth "ｅ", "e" f]%S FQ+  
        DoEvents JX 5/PCO  
        ConvertWidth "ｆ", "f" eUN aq&M  
        DoEvents _%2ukuJ `  
        ConvertWidth "ｇ", "g" ~\NQkaBkY  
        DoEvents `0]N#G T  
        ConvertWidth "ｈ", "h" uVU)LOx  
        DoEvents m s}o[Z@n  
        ConvertWidth "ｉ", "i" hfY/)-60o  
        DoEvents RNB&!NC  
        ConvertWidth "ｊ", "j" LZ_VLW9w E  
        DoEvents h]&  
        ConvertWidth "ｋ", "k" 61kSCu  
        DoEvents (!{*@?S  
        ConvertWidth "ｌ", "l" -9{N7H  
        DoEvents C;JW \J~W  
        ConvertWidth "ｍ", "m" @Drl5C}+  
        DoEvents unn2I|XH  
        ConvertWidth "ｎ", "n" 9;7"S.7AV  
        ConvertWidth "ｏ", "o" 8ly)G  
        ConvertWidth "ｐ", "p" :~8@fEKb{  
        ConvertWidth "ｑ", "q" ^ei[1 #  
        ConvertWidth "ｒ", "r" us|H b  
        ConvertWidth "ｓ", "s" >@ 8'C"F  
        ConvertWidth "ｔ", "t" sd%)g<t  
        ConvertWidth "ｕ", "u" Q}B]b-c+E  
        ConvertWidth "ｖ", "v" d9TTAaf  
        ConvertWidth "ｗ", "w" 8h=m()Eu  
        ConvertWidth "ｘ", "x" (jU_lsG  
        ConvertWidth "ｙ", "y" i3|xdYe$  
        ConvertWidth "ｚ", "z" Ss 5@n  
        ConvertWidth "Ａ", "A" Iga +8k  
        ConvertWidth "Ｂ", "B" `H:`JBe=+[  
        ConvertWidth "Ｃ", "C" \[[xyd  
        ConvertWidth "Ｄ", "D" 8o|C43Q_  
        ConvertWidth "Ｅ", "E" Aj cKz  
        ConvertWidth "Ｆ", "F" }1 qQ7}v  
        ConvertWidth "Ｇ", "G" =bD.5,F)  
        ConvertWidth "Ｈ", "H" dX1jn; 7  
        ConvertWidth "Ｉ", "I" tb~E.Lm\  
        ConvertWidth "Ｊ", "J" nsi? .c&0!  
        ConvertWidth "Ｋ", "K" $)ka1L"N  
        ConvertWidth "Ｌ", "L" $nmt&lm  
        ConvertWidth "Ｍ", "M" E%v0@  
        ConvertWidth "Ｎ", "N" AH'c:w]~  
        ConvertWidth "Ｏ", "O" d 5Ae67  
        ConvertWidth "Ｐ", "P" w" [T  
        ConvertWidth "Ｑ", "Q" fWEQ vQ  
        ConvertWidth "Ｒ", "R" QjSWl,{ $D  
        ConvertWidth "Ｓ", "S" %zGv+H?  
        ConvertWidth "Ｔ", "T" w#A\(z%;x  
        ConvertWidth "Ｕ", "U" FNL S=4  
        ConvertWidth "Ｖ", "V" 7M~/ q.  
        ConvertWidth "Ｗ", "W" z-gMk@l  
        ConvertWidth "Ｘ", "X" yD& Y`f#  
        ConvertWidth "Ｙ", "Y" }W 5ks-L6  
        ConvertWidth "Ｚ", "Z" )Hin{~h  
        ConvertWidth "^l", "^p" DQW)^j h  
        ConvertWidth "（", "(" @u/CNx,`X  
        ConvertWidth "）", ")" [UzacXt  
     wMCg` rk  
    End If c8mh#T bl  
nm<VcCc  
    With ActiveDocument aeN #<M&$<  
        Dim tbl As Table iLBORT !;  
        For Each tbl In .Tables o[Qb/ 7  
            tbl.Rows.Alignment = wdAlignRowCenter ER9{D$  
            tbl.Range.Font.NameFarEast = "楷体" #OM'2@  
            tbl.Range.Font.NameAscii = "Times New Roman" r?[[.zm"7  
            tbl.Range.Font.Size = 10.5 S"G(_%  
        Next b?`2LAgn  
        Set tbl = Nothing z~`X4Segw  
    End With xf;>o$oN0P  
     B$2GEg]Ri  
     ZPE-  
    With ActiveDocument YL|)`m0-^5  
         m0^ "fMV  
        For i = 1 To .TablesOfContents.Count d*Mqs}8  
            .TablesOfContents(i).Delete T<Xw[PEnP  
        Next 8~Zw"  
         $[`rY D/.  
         1\@PrO35J  
         O(%6/r`L,k  
        paraTotal = .Paragraphs.Count {c3FJ5:  
        paraCounter = 1 fTR6]i;  
         Gf#l ^yr   
        LastTitle0No = 0 aG;F=e  
        LastTitle1No = 0 tc`3-goX  
        LastTitle2No = 0 pEcYfj3M  
        LastTitle3No = 0 D mi.@.  
        LastTitle4No = 0 yN`hW&K  
        LastTableNo = 0 r{r~!=u  
        LastFigureNo = 0 , 2#Q >  
         N 5zWeFq@6  
        Dim Sec As Long D%3$"4M7!  
         |z3!3?%R  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) L$O\fhO?  
        If Sec = 0 Then (OES~G  
            Exit Sub ;Z0&sFm  
        End If h&L-G j  
         |Y}YhUI&  
        k = 0 O6?{@l  
        Do While (paraCounter < paraTotal) And bContinue 8k:^( kByF  
            k = k + 1 <FBH;}]  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then =C,DR4xh  
                Exit Do <h9nt4F  
            End If b1#C,UWK  
            paraCounter = paraCounter + 1 7NT} Zwf  
            If k Mod 20 = 0 Then .up[wt gN  
                Me.lbCounter.Caption = paraCounter p({@t =L3g  
                DoEvents Z JWpb  
            End If V]J"v#!{  
        Loop  .GJbrz  
         !\{2s!l~  
         ~x9J&*zxM  
        Do While (paraCounter < paraTotal) And bContinue .^=I&X/P  
             &S+*1<|`K  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) fh)eL<I  
            ShapeHeight = 0 Jy}~ZY  
            ShapeWidth = 0 :35h0;8+  
           9[VYd '  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth c"kB@P  
             3t+{ ~{Dj  
            Select Case ParaType U`3?bhzua  
                Case "【】表格内容" c.LRS$o/j  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" '"7b;%EN'  
                Case "章" xa'U_]m  
                    LastTitle0No = LastTitle0No + 1 `. JW_F)1  
                    '新一章开始，复位其下属标题编号 3,v/zcV  
                    LastTitle1No = 0 T5}3Y3G,6  
                    LastTitle2No = 0 `T+> E0H(f  
                    LastTitle3No = 0 -E6av|c,F  
                    LastTitle4No = 0 Dx /w&v  
                     ]8}2  
                    k = Val(ttNo) 4rL`||  
                    If k = 0 Then '非数字编号章节 ,_(=w.F   
                        If ttNo <> NoSeries1(LastTitle0No) Then ?,riwDI 2  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString Eu&$Rq}  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText Ww8U{f  
                        End If yc]_?S>9  
                    Else B=]L%~xL$  
                        If Val(ttNo) <> LastTitle0No Then 9*FA=E  
                            rText = "第" & LastTitle0No & ttString [I%e Ro[  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText (Q||5  
                        End If [Uq`B &F:  
                         %fS1g Sf h  
                    End If +-;v+{  
                     ".|8(Y  
                    '章段落设置 0$`pYW]  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 l]&A5tz3  
                    .Paragraphs(paraCounter).Style = "QLNU章节" 3,G|oR{D  
                    .Paragraphs(paraCounter).Range.Select eSObOG/  
                    Selection.EndKey unit:=wdLine w)S 4Xi=  
                    tc = Replace(rText, vbCr, "") -:d{x#  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False Gev\bQa  
                Case "一级标题" ec# `9w$  
                    LastTitle1No = LastTitle1No + 1 ~.^:?yCA  
                    '新一级标题开始，复位其下属标题编号 1WqCezI  
                    LastTitle2No = 0 *>qc6d@'  
                    LastTitle3No = 0 %KO8 i)n  
                    LastTitle4No = 0 viU}  
                     JE:LA+ (  
                    If ttNo <> NoSeries1(LastTitle1No) Then ul N1z  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString dkEbP*y Xg  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText DI;LhS*z  
                    End If [-l>f P0  
                   S6bYd`  
                     ={cM6 F}a@  
                    '一级标题段落设置  格式：一、标题内容 Ygg+=@].@  
                    .Paragraphs(paraCounter).Range.Text = rText y~]D402Cx  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" l[5** ?#  
                    .Paragraphs(paraCounter).Range.Select V}<<?_  
                    Selection.EndKey unit:=wdLine *^ ]  
                    tc = Replace(rText, vbCr, "")  R h6CV  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False MwQtf(_  
                Case "二级标题" e^~dx}X  
                    LastTitle2No = LastTitle2No + 1 4Yok,<  
                    '新二级标题开始，复位其下属标题编号 r%=a:GdAg  
                    LastTitle3No = 0 ,V]FAIJ  
                    LastTitle4No = 0 J| &aqY  
                     _Fj\0S"  
                    If ttNo <> NoSeries1(LastTitle2No) Then .yUD\ZGJ u  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString 7lF;(l^Z>}  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText |wb_im  
                    End If DC>?e[oOz  
                     N4VZl[7?  
                    '二级标题段落设置 格式：(一)、标题内容 3`SH-"{j%  
                    .Paragraphs(paraCounter).Range.Text = rText n)a/pO_  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" {-7ovH?  
                     o-_,l J7o^  
                    .Paragraphs(paraCounter).Range.Select T7ShE-X  
                    Selection.EndKey unit:=wdLine w_`;Mn%p  
                    tc = Replace(rText, vbCr, "") +ah4 K(+3  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False n3V$Xtxw  
                 S`mB1(h  
                Case "三级标题" . &}x[~g  
                    LastTitle3No = LastTitle3No + 1 rLD1Cpeb,w  
                    '新三级标题开始，复位其下属标题编号 0hkYexX73  
                    LastTitle4No = 0 jl 7>  
                     KMb'm+  
                    If Val(ttNo) <> LastTitle3No Then ^=-25%&^  
                            rText = LastTitle3No & ". " & ttString o\W>$$EXD  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText 2.);OFk+  
                         z<A8S=s6n  
                    End If |]q{ qsy  
                    '三级标题段落设置 格式：1. 标题内容 ZI$P Qz2i  
                    .Paragraphs(paraCounter).Range.Text = rText dmkGIg}  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" (K6vXq.;\\  
                    .Paragraphs(paraCounter).Range.Select U"@p3$2QW  
                    Selection.EndKey unit:=wdLine D?Ol)aj?  
                    tc = Replace(rText, vbCr, "") l#ct;KZ  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False %C Qa8<q  
                Case "四级标题" U%1M?vT/  
                    LastTitle4No = LastTitle4No + 1 dQH8s  
                     SLkg Ib~'X  
                    If Val(ttNo) <> LastTitle4No Then ~a7@O^q 4  
                            rText = "(" & LastTitle4No & "). " & ttString ueW/i  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText Bf^K?:r"V  
                     :SN?t  
                    End If !7]^QdBLY  
                    '四级标题段落设置 格式：(1). 标题内容 \Qnr0t@0  
                    .Paragraphs(paraCounter).Range.Text = rText `_ neYT  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" 7 w5l[a/  
                    .Paragraphs(paraCounter).Range.Select `{w|2 [C3  
                    Selection.EndKey unit:=wdLine :G9d,B7*  
                    tc = Replace(rText, vbCr, "") BH}rg,]G  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False Tp~Qg{%Og  
                 !F6rcDKI  
                Case "表格标题" m#Z9wf] F  
                    LastTableNo = LastTableNo + 1 &u"mFweS  
                     po]<sB  
                    If ttNo <> CStr(LastTableNo) Then "\9 beK:l  
                            rText = "表" & LastTableNo & ". " & ttString w"M!**bP  
                            ErrMsg.AddItem "表格编号错误：" & ParaText 4M>]0%3.D  
                   mrsN@(X0  
                    End If #>CWee;  
                     [}Rs  
                    '表格名称段落设置 格式：表1. 表格名称 AxJqLSfyb,  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" vqUYr  
                    xe = Replace(rText, vbCr, "") ~Odclrs  
                    .Paragraphs(paraCounter).Range.Select ^Bw"+6d  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 uW}M1kq?+l  
                    Selection.Range.Text = xe H_Hr=_8}-  
                    Selection.EndKey 0V"(}!=2a  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False _8`S&[E?  
                 qa: muW  
                Case "表格首行" 60|m3| 0o  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" 2}P{7flDY  
                Case "图片标题" OL#i!ia.  
                    LastFigureNo = LastFigureNo + 1 _ !"[Zr  
                     {KTZSs $n  
                    If ttNo <> CStr(LastFigureNo) Then 9XS>;<"2  
                            rText = "图" & LastFigureNo & ". " & ttString t]3:vp5N]  
                            ErrMsg.AddItem "表格编号错误：" & ParaText Ek0 6=2i  
                   c0jTQMe4yl  
                    End If 9ygNJX'~  
                    '图片名称段落设置 格式：图1. 图名称 *6_>/!ywI  
                    .Paragraphs(paraCounter).Range.Text = rText ;6]ag< Q  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" %dmQmO,  
                    .Paragraphs(paraCounter).Range.Select )99^58my  
                    Selection.EndKey unit:=wdLine Mp5Z=2l5  
                    xe = Replace(rText, vbCr, "") Bz,Xg-k+  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False E'+z.~+  
                Case "正文" ) cOBP}j+  
                     '正文名称段落设置 )WEOqaR]  
                    .Paragraphs(paraCounter).Style = "QLNU正文" _iqaKYT$  
               Case "文献条目" 0Iyb}  
                    With .Paragraphs(paraCounter) vXdI)Sx[  
                        '.Range.Select ZLP0SCkuR  
                        'Selection.ClearFormatting Frx_aGLH1  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” E7SmiD@)  
                        .Style = "QLNU参考文献" w1F)R^tU  
                    End With M>BVnB_,-  
               Case "图表注解" - t 4F  
                    With .Paragraphs(paraCounter) [8DPZU@  
                        .Range.Font.NameFarEast = "楷体" 8-L -W[  
                        .Range.Font.NameAscii = "Times New Roman" ij_5=4aZ-  
                        .Range.Font.Size = 9 '小5号字 b\NY!)B  
                         0yUn~'+(Sp  
                        .Alignment = wdAlignParagraphCenter n%vmo f  
                        .LeftIndent = 0 # '#@H  
                        .RightIndent = 0 {Aj=Rj@  
                        .FirstLineIndent = 0 6lr< {k7Nw  
                        .LineSpacing = 12 &ML-\aSal  
                        .LineSpacingRule = wdLineSpaceExactly *m&'6qsS  
                        .LineUnitAfter = 0 0|\A5 eG  
                        .LineUnitBefore = 0 '|%\QWuZ  
                        .OutlineLevel = wdOutlineLevelBodyText #x6w M~  
                        .PageBreakBefore = False ,4,./wIq  
                        .RightIndent = 0 yi-)4#YN  
                        .WordWrap = True FVOPC:}bj  
                        .LineUnitAfter = 0.5 Zwtz )ZII  
                         .nA9irc  
                    End With 7/=r-  
                Case Else [m<8SOMG(  
                    '不作处理 se_Oi$VZ{  
            End Select @9]TjZd  
             |hvclEu,  
            '含有inlineshape的段落处理 2R3)/bz-SV  
            If ShapeHeight > 30 Then HXB & 6  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 FYg{IKg  
            End If Ni;jMc  
             T!&VT;   
            If (ShapeWidth + ShapeHeight) > 150 Then eY:jVYG(  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" e/)Vx'd `+  
            End If K9RRY,JB  
             ~^3U@( :  
            '段落计数器递 dHn,;Vv^6  
            paraCounter = paraCounter + 1 (f"LD8MJ/  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter y?*Y=,"  
            Me.txtStatus.Text = ParaText ]>+ teG:4  
            DoEvents }mk z_P(Z  
        Loop *'@T+$3s  
    End With [;C* 9Nl  
     /dR:\ffz2  
    msg = "" @C~gU@F  
     (x[z=_I%`  
    For i = 0 To Me.ErrMsg.ListCount - 1 -?)z@Lc  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) \gir  
    Next Jd|E 4h~(  
     @zsqjm  
     =@;\9j  
     '_n$xfH  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg y&F&Z3t  
    Me.cmdCheck.Enabled = True c5eimA%`  
    Me.txtStatus.Visible = True %:-2P  
    Me.lbParaType.Visible = False DnB :~&Dw  
     uH } }z!  
    bContinue = False dP/1E6*m  
End Sub 2;SiH]HNS  
k#5Qwxu`  
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) 8(:O5#  
    Dim pTEXT As String +'g~3A-G  
     :{#w-oC>6P  
    pTEXT = ChKRange.Text .k5&C/jv  
     DL '{ rK  
    ParaType = "其它" vWYU'_=  
    TitleString = pTEXT ~#rmw6y  
    TitleNo = "N/A" hus9Zv4  
     _6sSS\  
    shpCounter = ChKRange.InlineShapes.Count s%zdP  
    If shpCounter <> 0 Then l8DZ2cw]  
        MaxShpHeight = 0: TotalShpWidth = 0 Ez^wK~  
        For i = 1 To shpCounter NF*Z<$'%  
            k = ChKRange.InlineShapes(i).Height :u?L y[x  
            l = ChKRange.InlineShapes(i).Width Lnltt86  
            If k > MaxShpHeight Then Cj6$W5I m  
                MaxShpHeight = k QIcc@PGT9a  
            End If VF:<q  
            TotalShpWidth = TotalShpWidth + l AHP;N6Y6  
        Next ,V+,3TT  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then H|d"45J_  
            Exit Sub [:{HX U7y  
        End If {9./-  
    End If e yByAT~W,  
     Y)C!N$=@Q  
    '空行 H$3:Ra+ S  
    If Len(pTEXT) <= 2 Then k`0m|<$  
        Exit Sub Kl :x?"g)  
    End If $r(9'm}W  
     {@X)=.Zf  
         0{47TX*YX  
    '是否为表格中的文字 ~2 J!I ^ J  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then b;G#MjQp'  
        ParaType = "表格内容" KD..X~Me  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) `Y<FR  
        If k = 1 Then Gl>*e|}  
            ParaType = "表格首行" T$Rf  
        End If >s ;dooZ  
        Exit Sub 0 SDyE  
    End If Ij7[2V] c  
     GUvEOD=p  
    '例外情况：脚注 HUGhz  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then D;oX*`  
        ParaType = "脚注" tNDv[IF  
        Exit Sub vSJ# }&  
    End If ShU1RQk  
     >yt8gw0J  
    '例外情况：尾注 x?G"58  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then pJ@D}2u(  
        ParaType = "尾注" gp]T.ol  
        Exit Sub CGZ3-OW@E  
    End If _Qf310oONS  
     |#O>DdKHT  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then ff 2`4_ ,|  
        ParaType = "页眉页脚" lMb&F[KJ7  
        Exit Sub r )f+j@KF  
    End If =zwn3L8fL  
     f] kG%JEK  
     3c[TPD_:  
    With regEX _VLA2#V>   
        .Global = True  bR83N  
         8]% e[  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" AbOF/ g)C  
        If regEX.Test(pTEXT) Then \ UiITP<  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") 3TnrPO1E  
            TitleString = regEX.Replace(pTEXT, "$3") >+ku:<Hw%.  
            TitleNo = regEX.Replace(pTEXT, "$1") 5}'W8gV?  
            ParaType = "章" zHQSx7Ow 5  
            Exit Sub EpH\;25u  
        End If ~d=Y98'xS  
         /baSAoh/e  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" Zopi;O J  
        If regEX.Test(pTEXT) Then ^[hx`Rh`t  
            ParaType = "一级标题" ~:"//%M3l  
            regEX.Execute (pTEXT) p) m0\  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") 6F3FcUL  
            TitleString = regEX.Replace(pTEXT, "$3") Uf\U~wM<  
            TitleNo = regEX.Replace(pTEXT, "$1") %_ Vj'z~T  
            Exit Sub qbD[<T  
        End If nW_cjYS%  
         =a_ >")  
        '全角或半角括号中的数字 QWAtF@qTV  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" zXv2plw(  
        If regEX.Test(pTEXT) Then t``q_!s}F  
            ParaType = "二级标题" SH1)@K-  
            regEX.Execute (pTEXT) !s[[X5  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") :Mnl1;oh  
            TitleString = regEX.Replace(pTEXT, "$5") -h, ?_d>  
            TitleNo = regEX.Replace(pTEXT, "$2") j4]y(AA  
            Exit Sub 5P![fX|5  
        End If N9BfjT}  
         "|d# +C  
        '阿拉伯数字  1. 2. yz^Rm2$f9  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" C.?~D*Q  
        If regEX.Test(pTEXT) Then %v<BE tq  
            ParaType = "三级标题" yo!Y%9  
            regEX.Execute (pTEXT) A0gRX]  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 t'bhA20Z\  
            TitleString = regEX.Replace(pTEXT, "$3") 7toDk$jJRg  
            TitleNo = regEX.Replace(pTEXT, "$1") Xny{8Oo<1?  
            Exit Sub 7) Qq  
        End If 7E\k97#G  
         ,^&amWey  
        '全角或半角括号中的阿拉伯数字 / yTPb  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" C5EaP%s  
        If regEX.Test(pTEXT) Then Ox&]{  
            ParaType = "四级标题" l !:kwF  
            regEX.Execute (pTEXT) |aS272'  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") C"g bol^  
            TitleString = regEX.Replace(pTEXT, "$5") [ih^VlZ  
            TitleNo = regEX.Replace(pTEXT, "$2") h~u|v[@{J  
            Exit Sub V%[34G  
        End If 4)E$. F^   
         +E }q0GV  
        '表格名称 %HcCe[d5l  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" }\aJ%9X02  
        If regEX.Test(pTEXT) Then ?4YLt|sn  
            ParaType = "表格标题" zEs:OOM  
            regEX.Execute (pTEXT) .% +y_.l  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) .CBb%onx  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) YaAOP'p  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) iO{LsG*5Z  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 L}pj+xB  
            Exit Sub `z<I<  
        End If &[y+WrGG  
         e3]v *<bj  
        '图片名称 \MB$Cwc  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" -5#cfi4^*  
        If regEX.Test(pTEXT) Then r5'bt"K\>  
            ParaType = "图片标题" 6l& ,!fd  
            regEX.Execute (pTEXT) 3?bTs =  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") ~r?VXO p"  
            TitleString = regEX.Replace(pTEXT, "$3") L_R(K89w  
            TitleNo = regEX.Replace(pTEXT, "$1") NbUbLzE  
            Exit Sub p?'&P!  
        End If a<l DT_2b  
         6=g! Hs{  
        '参考文献 9}aEV 0 V|  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 sc$I,|d2  
        If regEX.Test(pTEXT) Then i&\ c DQ 3  
            ParaType = "文献条目"  Jju^4  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") O#x=iZI  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") I)q"M]~  
            Exit Sub -s9()K(vZG  
        End If D7v_ <  
         U,7}VdO  
        prfx = Left(pTEXT, 2) sTw+.m{F  
        If prfx = "注：" Or prfx = "注:" Then 5b;~& N4~  
            ParaType = "图表注解" <^Jdl.G  
            Exit Sub U*7x81v?j  
        End If jAy 0k  
         -qdt$jIM  
         "WzD+<oL  
        ParaType = "正文" cng166}1A  
         1SSS0&  
    End With b>L?0p$ej  
End Sub 80 ckh  
EM,=R  
Sub ConvertListToOrdinary() V3q [ $~9  
    Dim st As Paragraph A/88WC$v  
    With ActiveDocument J1@skj4#\~  
        For i = .Paragraphs.Count To 1 Step -1 tYCVVs`?  
            Set st = .Paragraphs(i) }mOo=)C!  
            lst = st.Range.ListFormat.ListString V$3`y=8  
            If lst <> "" Then <,,X\>B  
                st.Range.ListFormat.RemoveNumbers p'\zL:3  
                st.Range.InsertBefore lst & " " eR: C?v  
            End If sI6coe5n  
        Next ,#K{+1z:  
    End With u Fn?U)  
    Set st = Nothing |H>;a@2d  
End Sub :?SD#Vvrh.  
Nf)$K'/  
Private Sub UserForm_Activate() I9*BT T]  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" )F,z pGG  
    Me.lbTotal.Font.Bold = True 2$FH+wuW  
    Me.txtStatus.Visible = False (ty&$  
    Me.cmdCheck.Enabled = True @IV,sz e  
`j!XWh*$  
End Sub >Xw0i\G  
/n1L},67 h  
[Z;ei1l  
Sub CheckSuperScript() hr3<vWAD  
    Selection.Find.ClearFormatting hd@jm^k  
    Selection.Find.Replacement.ClearFormatting q@vqhE4  
    With Selection.Find du_~P"[  
        .Text = "[【\[［〖](*)[】\]〗］]" eD!mR3Ai@D  
        .Replacement.Text = "[\1]" 8~ u/gM  
        .Replacement.Font.Superscript = True H7(D8.y )  
        '.Replacement.Font.Color = wdColorBlue w/csLi.O  
        .Forward = True ;Pe=cc"@  
        .Wrap = wdFindContinue 2BV]@]qB  
        .FORMAT = True [I`:%y  
        .MatchCase = False %F13*hOu  
        .MatchWholeWord = False Ik-E_U2  
        .MatchByte = False qIvnPaY W  
        .MatchAllWordForms = False ]Wtg.y6;  
        .MatchSoundsLike = False ~,.'#=V  
        .MatchWildcards = True "w3%BbIx  
    End With "D'"uMS`H  
    Selection.Find.Execute Replace:=wdReplaceAll ew<_2Xy"<  
End Sub AejM\#>  
;2[),k  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) L5r02VzbD  
    bContinue = False YFP<^y=  
    Set regEX = Nothing DcN!u6sJ  
End Sub %a']TX  
'zOB!QqA`v  
Sub CeateOrModifyStyle() /h9v'Y}c  
' U< <XeSp  
' __}ut+H^5p  
Dim stl As Style bD. KD)5  
     !wTrWD!  
    Options.Pagination = False m}6Jdt'|  
     |!{ Y:f;  
    On Error Resume Next &pW2R}  
    For Each stl In ActiveDocument.Styles U'@ ![Fp  
        stl.Delete }VeE4-p B  
    Next GI6]Ecc  
    On Error GoTo 0 WV}H N  
     y% O^Zm1  
    Set stl = Nothing 5&qBG@Hw]  
     `RXlqj#u  
    DoEvents n 0g8B  
    On Error Resume Next Q hdG(`PY~  
     p4D.nB8  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph z `jLKPP!=  
     Z{x)v5yh2V  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph /h8100  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph % _nmv  
     c2-oFLNP=  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph Vllxv6/_  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph w@pJ49  
     EVP{7}K1  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph |G_,1$  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph ]A%~bQ7  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph `R!Q(rePx  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph k~)@D| ?  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph !6,rN_a@Y  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph ~ +h4i'  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph D>0(*O  
     a[p$e?gka  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph wsB  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph #n]K$k>  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph ~BMUea(  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph Q" r y@ (I  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph !,]2.:{0z  
     AG><5 }  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph & H8  %  
    On Error GoTo 0 ,0{x-S0jX<  
    DoEvents 6q^\pJY%&7  
     Lf,C5 0  
    'BaseStyle i;#AW($+a  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False ?o(Y\YJf  
    With ActiveDocument.Styles("BaseStyle").Font ks8xxY  
        .NameFarEast = "宋体" i, /Q.XL  
        .NameAscii = "Times New Roman" ,*wj~NE  
        .NameOther = "宋体" zENo2#{_N  
        .Size = 10.5 U6M&7 l8  
        .Bold = wdUndefined VjSA& R  
        .Italic = wdUndefined } ejc  
        .Subscript = wdUndefined Z-i$KF  
        .Subscript = wdUndefined mTa^At"  
         #~6X9,x=  
        .Underline = wdUnderlineNone )1&,khd/u  
        .UnderlineColor = wdColorAutomatic z.:IUm{z  
        .StrikeThrough = False . "j*4  
        .DoubleStrikeThrough = False z6OJT6<'  
         $t>ow~Xi  
        .Outline = False *L5L.: Ze  
        .Emboss = False n(\VP!u5r  
        .Shadow = False d`KW]HJw  
        .Hidden = False c+u) C%g  
        .SmallCaps = False (XQl2C  
        .AllCaps = False Eqh&<]q  
        .Color = wdColorAutomatic =l$qwcfbo  
        .Engrave = False p{JE@TM  
        .Scaling = 100 !?m8UE  
        .Kerning = 1 o&E2ds3  
        .Animation = wdAnimationNone HTP~5J  
        .DisableCharacterSpaceGrid = False 5{#y a 2  
        .EmphasisMark = wdEmphasisMarkNone M5B?`mTl  
    End With CHM+@lD  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat U&6f:IV  
        .LeftIndent = 0 D]Gt=2\NG9  
        .RightIndent = 0 }}v28"\TA  
        .SpaceBefore = 0 7=4V1FS6i  
        .SpaceBeforeAuto = False  ePI)~  
        .SpaceAfter = 0 ?tYc2R9x6"  
        .SpaceAfterAuto = False h{Y#. j~aS  
         -\~x^5K  
        .LineSpacingRule = wdLineSpaceSingle !x D_=O  
        .Alignment = wdAlignParagraphJustify /7b$C]@k  
         LMYO>]dg  
        .WidowControl = False Y.o-e)zX  
        .KeepWithNext = False V7>{,  
        .KeepTogether = False (a8oI )~  
        .PageBreakBefore = False r)Iq47Uiw  
        .NoLineNumber = False J]Qbg7|  
         5?MKx!%  
        .FirstLineIndent = CentimetersToPoints(0) jF%l\$)/  
        .OutlineLevel = wdOutlineLevelBodyText ,:3Di (  
        .CharacterUnitLeftIndent = 0 7A>glZ/x  
        .CharacterUnitRightIndent = 0 "cX*GTNi8  
        .CharacterUnitFirstLineIndent = 0 G;bE_O  
        .LineUnitBefore = 0 nB , &m&  
        .LineUnitAfter = 0 p:qj.ukw  
        .AutoAdjustRightIndent = True y &%2  
        .DisableLineHeightGrid = True 9/50+2F  
         gx6$:j;   
        .FarEastLineBreakControl = True 0bG2YMs  
        .WordWrap = True iLkP@OYgQ  
        .Hyphenation = False b%I2ig  
         2ZFp(e^%  
        .HangingPunctuation = True u}KEH@yv  
        .HalfWidthPunctuationOnTopOfLine = True M{~KT3c  
        .AddSpaceBetweenFarEastAndAlpha = True nL* SNQ_  
        .AddSpaceBetweenFarEastAndDigit = True -\fn\n  
        .BaseLineAlignment = wdBaselineAlignBaseline h+Tt+ Q\  
    End With CFx$r_!~  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False T8J[B( )L  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll rKWkT"  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese w24@KaKFo  
    ActiveDocument.Styles("BaseStyle").NoProofing = False YS&Q4nv-  
     sm @Ot~;  
    '一级标题题样式 qXQ7Jg9  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") \YsYOFc|  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" `@i! 'h  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False )V*V  
    With ActiveDocument.Styles("QLNU一级标题").Font Amvl/bO  
        .NameFarEast = "黑体" Qtn%h:i S~  
        .NameAscii = "Arial Black" ,46k8%WW  
        .NameOther = "黑体"  V|bN<BYJ  
        .Name = "黑体" 4O3-PU>N  
        .Size = 16              '三号 = Qw`F0t  
        .Bold = True mkt%|Kb.  
        .Italic = wdUndefined l050n9#9p  
        .Subscript = wdUndefined ?!kPW^gD  
        .Superscript = wdUndefined ( cqVCys  
    End With . vQCX1V(  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat "npLl]XM  
         5J<ghv>\P  
        .LeftIndent = CentimetersToPoints(0) C9FQo7   
        .RightIndent = CentimetersToPoints(0) c*x5t"{  
        .FirstLineIndent = CentimetersToPoints(0) EXYr_$gRs  
         [?Q$b5j/M  
        .LineSpacingRule = wdLineSpaceSingle p'IF2e&z  
        .Alignment = wdAlignParagraphCenter mGqT_   
         s:#\U!>0`  
        .WidowControl = True a;e~D 9%1  
        .KeepWithNext = True Sf*b{6lcC  
        .KeepTogether = True [P746b_\e  
        .OutlineLevel = wdOutlineLevelBodyText Mi_/ ^  
         E 14Dq#L  
        .LineUnitBefore = 0.5 ]Syr{|  
        .LineUnitAfter = 0.5 fP:g}Z  
    End With 2:l8 RH!Y  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False 6'qC *r   
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll #Y9~ Xp^.  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese y2 ,M9  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True [D%5 Fh\0  
    DoEvents 7q[a8rUdh  
     (lVHKg&U[  
    '二级 -?68%[4lm_  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 2N:|BO>  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" -V)DKf"f  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False }Qm: g  
    With ActiveDocument.Styles("QLNU二级标题").Font |Ptv)D  
        .NameFarEast = "黑体" "i;c)ZP  
        .NameAscii = "Arial Narrow" <; Bv6.Z  
        .NameOther = "黑体" )R'~{;z }  
        .Name = "黑体" X,8 ]g.<  
        .Size = 15        '小三号 |\MgE.N  
        .Bold = False ULkhTB  
        .Outline = False T#e ;$\  
        .Italic = wdUndefined $Y5m"wySZ  
        .Subscript = wdUndefined \4OX]{  
        .Superscript = wdUndefined &*N;yW""f  
    End With /^<Uy3F[p  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat m|w-}s,  
        .LeftIndent = CentimetersToPoints(0) Sq,x57-  
        .RightIndent = CentimetersToPoints(0) \P|PAU@,  
        .FirstLineIndent = CentimetersToPoints(0) -(]s!,  
         UL.x*@o  
        .LineSpacingRule = wdLineSpaceSingle B#K{Y$!v  
        .Alignment = wdAlignParagraphLeft f?A1=lm~  
         h|j $Jy  
        .WidowControl = True 3@/\j^U  
        .KeepWithNext = True yk| < P\  
        .KeepTogether = True 9vZD?6D,n  
        .PageBreakBefore = False oMV<Yn_<  
        .OutlineLevel = wdOutlineLevelBodyText L^0s  
         &%Lps_+fJ  
        .LineUnitBefore = 0.5 / `Glf|  
        .LineUnitAfter = 0.5 5J4'\M  
         Ma,2_oq+  
    End With kq kj.#u  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False .v{ok,&  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll ]hL `HP  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese d}t7bgk'j  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True aqk0+  
    DoEvents zg2}R4h  
     (}u2) 9  
    '三级标题样式 a.yCd/  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") AsW!GdIN  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" _c 4kj  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False :_FnQhzg  
    With ActiveDocument.Styles("QLNU三级标题").Font RrGFGn{  
        .NameFarEast = "宋体" 2\p8U# ""  
        .NameAscii = "Times New Roman" KK%R3{  
        .NameOther = "黑体" 0qj:v"~ Q  
        .Name = "黑体" lef,-{X-  
        .Size = 14               '四号 i/%+x-#  
        .Bold = False "ebm3t@C  
        .Outline = False M3U*'A\  
        .Italic = wdUndefined fGtUr _D  
        .Subscript = wdUndefined k_hV.CV  
        .Superscript = wdUndefined :"9P {xe^  
    End With `'Af`u\R  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat rv\m0*\<  
        .LeftIndent = CentimetersToPoints(0) B~RVFc +  
        .RightIndent = CentimetersToPoints(0) z_^Vgb]  
        .FirstLineIndent = CentimetersToPoints(0) K*_5M  
         =x/Ap1  
        .LineSpacingRule = wdLineSpaceSingle :mwJJIjUW  
        .Alignment = wdAlignParagraphLeft V_T.#"C4=z  
         dyz)22{\!`  
        .WidowControl = True *|T]('xwC  
        .KeepWithNext = True U2 u\Q1  
        .KeepTogether = True R"9^FQ13  
        .PageBreakBefore = False #Jo#[-r  
        .OutlineLevel = wdOutlineLevelBodyText Is $I;`  
         N%k6*FBp~  
        .CharacterUnitLeftIndent = 0 R>iRnrn:-  
        .CharacterUnitRightIndent = 0 }9GD'N?4  
        .CharacterUnitFirstLineIndent = 2 '*~_!lE5  
         # ~(VOcRI  
        .LineUnitBefore = 0.5 + S^OzCGk  
        .LineUnitAfter = 0 <B?@,S>  
    End With '518S"T @  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False u._B7R&>  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll e bSG|F  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese ' R!pc  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True ([r4N#lx  
    DoEvents dp3>G2Yq  
     s?8vs%(l  
    '四级标题样式 <:mV^tK  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") Nj<}t/e  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" 0'IV"eH2  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False ]b"Oy}ARW  
    With ActiveDocument.Styles("QLNU四级标题").Font :QGd/JX$n`  
        .NameFarEast = "宋体" /7 CF f&4  
        .NameAscii = "Times New Roman" gua +-##)  
        .NameOther = "宋体" ?9E shw2  
        .Name = "宋体" G98P<cyD  
        .Size = 12               '小四号 q*|H*sS  
        .Bold = True "+g9}g  
        .Outline = False &G)I|mv  
        .Italic = wdUndefined #JFTD[1  
        .Subscript = wdUndefined kf8-#Q/B  
        .Superscript = wdUndefined 0GtL6M@pP  
    End With Nm.H  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat Z-fQ{&a{  
         0Y_?r$M  
        .LeftIndent = CentimetersToPoints(0) =o@CCUKpj  
        .RightIndent = CentimetersToPoints(0) arR9uxP  
        .FirstLineIndent = CentimetersToPoints(0) jo8hVWJ7V*  
         L"|~,SVF  
        .LineSpacingRule = wdLineSpaceSingle !y&uK&1  
        .Alignment = wdAlignParagraphLeft M?i U$qI  
         6 K+DgNK  
        .WidowControl = True ^]&uMkPN  
        .KeepWithNext = True X2? ^t]-N  
        .KeepTogether = True QxSJLi7t  
        .PageBreakBefore = False >VQP,J{  
        .OutlineLevel = wdOutlineLevelBodyText F~`Yh6v  
         QgZwU$`p0  
        .CharacterUnitLeftIndent = 0 J3F-Yl|  
        .CharacterUnitRightIndent = 0 LyaFWx   
        .CharacterUnitFirstLineIndent = 2 F%t_9S,)O  
         ET_a>]<mv  
        .LineUnitBefore = 0 ?*36&Iq}  
        .LineUnitAfter = 0 WU wH W  
         <QlpIgr  
    End With #mI{D\UR  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False `K,{Y_  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll M7O 5uW`  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese q`HuVilNH  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True _.9):i2<SF  
    DoEvents EqN<""2  
     vr,8i7*0  
    '正文校式 A{[joo  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") Z`UwXp_ s  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" E<j}"W$a  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False #Sxk[[KwH*  
    With ActiveDocument.Styles("QLNU正文").Font _6b?3[Xz  
         M.|cl#  
        .NameFarEast = "宋体" %V,2,NCd  
        .NameAscii = "Times New Roman" r\OunGUP  
        .NameOther = "宋体" S_E-H.d"  
        .Name = "宋体" G E=J Y  
         cBZK t  
        .Size = 12               '小四号 5r*5Co+  
         ,N[N;Uoj  
        .Bold = wdUndefined T<hS  
        .Italic = wdUndefined Wchu-]  
        .Subscript = wdUndefined 0zQ^ 6@  
        .Superscript = wdUndefined #H'j;=]:  
         CFm( yFk  
        .Outline = False O_zW/#  
        .Emboss = False D5o[z:V7"  
        .Shadow = False fgiOYvIS2m  
        .Hidden = False \~sc6ho  
         Tz\ PQ)!  
        .DisableCharacterSpaceGrid = True )w?DB@Tx  
    End With {:D8@jb[  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat ! :[`>=!  
         2 L>;M  
        .LeftIndent = CentimetersToPoints(0) 1 ZL91'U  
        .RightIndent = CentimetersToPoints(0) 3pxZk%  
        .FirstLineIndent = CentimetersToPoints(0) BGtr=&Hq  
         ae1?8man  
        .LineSpacingRule = wdLineSpaceExactly =cwQG&as  
        .LineSpacing = 20 n{d 0}N =  
        .Alignment = wdAlignParagraphLeft g[oa'.*OB  
         {X85  
        .WidowControl = False +3a} ~pW  
        .KeepWithNext = False @/MI Oxg[  
        .KeepTogether = False b`%3>  
        .PageBreakBefore = False g*]hmkYe9  
        .Hyphenation = False +-DF3(  
         #.<Uy."z2  
        .OutlineLevel = wdOutlineLevelBodyText (=2-*((&(A  
         |WiE`&? xP  
       #ujry. m  
        .CharacterUnitLeftIndent = 0 :]Nn(},  
        .CharacterUnitRightIndent = 0 (i1 JDe  
        .CharacterUnitFirstLineIndent = 2 (E{>L).~  
         ($Cy-p  
        .LineUnitBefore = 0 -6Y@ _N  
        .LineUnitAfter = 0 BBV"nm_(/  
        .SpaceBefore = 0 >@b]t,rrK  
        .SpaceAfter = 0 I~^t\iujs  
         7L%JCH#F  
        .DisableLineHeightGrid = True dRdI('  
    End With DFgQ1:6[  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False -0QoVGw  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll }M cqoZ%F  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese Dq [ f  
    ActiveDocument.Styles("QLNU正文").NoProofing = True a ns(^Up$  
    DoEvents ;6 ?a8t@  
     N('=qp9  
    '图片段落样式 prHM}n{0  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") 9nM_LV  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" rr@h9bak;g  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False 9J3@8h p  
    With ActiveDocument.Styles("QLNU图片段落").Font Kyf,<z F  
        .Size = 12               '小四号 (yx^zW7  
        .Italic = wdUndefined Qm-I=Rh+  
        .Subscript = wdUndefined _Sq*m=  
        .Superscript = wdUndefined q9e(YX>  
    End With lOp7rW]$  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat Xkqq$A4  
         1^f7  
        .LeftIndent = CentimetersToPoints(0) C+0MzfLgf  
        .RightIndent = CentimetersToPoints(0) VjI=5)+~  
        .FirstLineIndent = CentimetersToPoints(0) * ~D|M  
         eD|p1+76  
        .LineSpacingRule = wdLineSpaceSingle F@]9 oF  
        .Alignment = wdAlignParagraphCenter N)I9NM[  
        .KeepWithNext = True  i/vo  
        .OutlineLevel = wdOutlineLevelBodyText TANv)&,|9  
         D*%?0  
        .CharacterUnitLeftIndent = 0 AiP#wK;  
        .CharacterUnitRightIndent = 0 fH@P&SX  
        .CharacterUnitFirstLineIndent = 0 IP LKOT~  
         ^n|yfvR  
        .LineUnitBefore = 0 ~ u)} /  
        .LineUnitAfter = 0 Wc*jTip  
    End With m 4 k:uk7N  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False y*G3dWb  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll B\73 Vf  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese x%v[(*F#y  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True =JkPE2mU  
    DoEvents R@X65o  
     ag_*Z\  
     Wbq0K6X  
    '第X章 \aN*x  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") :F |ll?  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle"  uc<JF=  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False `!udU, |N  
    With ActiveDocument.Styles("QLNU章节标题").Font L@5j? N?F  
        .NameFarEast = "黑体" w)rd--9f  
        .NameAscii = "Arial Black" AV>_ bw.  
        .NameOther = "Arial Black" D-/q-=zd  
        .Name = "黑体" "t.Jv%0=  
        .Size = 16 [!~= m  
        .Bold = True kF;N}O2?{  
        .UnderlineColor = wdColorAutomatic wD\viu q0  
        .Outline = False fT2F$U  
        .Italic = wdUndefined rAn:hR{  
        .Subscript = wdUndefined o2 ;  
        .Superscript = wdUndefined 3 T1,:r  
        .Scaling = 100 o7r7HmA@  
        .DisableCharacterSpaceGrid = True 9\zasa  
    End With &KYPi'C9!z  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat d-sT+4o}  
        .LineSpacingRule = wdLineSpaceSingle ;u8a%h!  
        .Alignment = wdAlignParagraphCenter W?F Q  
        .WidowControl = True 5%_aN_1?ef  
        .KeepWithNext = True V&h{a8xa$  
        .KeepTogether = True dwpE(G y6c  
        .PageBreakBefore = True #n7F7X  
        .OutlineLevel = wdOutlineLevelBodyText _qxBjB4t"a  
         tEN8S]X  
        .LeftIndent = CentimetersToPoints(0) 2zV{I*  
        .RightIndent = CentimetersToPoints(0) }@y(-7t  
        .FirstLineIndent = CentimetersToPoints(0) E0*KKo%  
         /E39Z*  
        .CharacterUnitLeftIndent = 0 gTS} 'w{  
        .CharacterUnitRightIndent = 0 w;{=  
        .CharacterUnitFirstLineIndent = 0 Ke;eI+P[  
         |AQU\BUj  
        .LineUnitBefore = 1 57K\sT4[  
        .LineUnitAfter = 0.5 H| IG"JB  
         \{a!Z&df  
        .AutoAdjustRightIndent = False Ob&m&2s,  
        .DisableLineHeightGrid = True QZm7 Q4  
        .FarEastLineBreakControl = True +SB>>  
        .WordWrap = True j* ZU}Ss  
    End With [;Y,nSw  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False Q}: $F{  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll Tc.QzD\  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese g5C$#<28  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True g8SVuG<DI\  
    DoEvents Yyr qO^9m  
     j S4\;  
    '表格标题 'ti~TG  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") y ;if+  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" i91 =h   
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False _f1;Hhoa  
    With ActiveDocument.Styles("QLNU表格标题").Font hm\UqIt  
        .NameFarEast = "楷体" Vb8Qh601  
        .NameAscii = "Arial" +8|9&v`  
        .Name = "楷体" N>H#Ew@2U  
        .Size = 10.5 dq{+ -XaEk  
        .Bold = True oj(st{,  
        .Underline = wdUnderlineNone r  j.X"  
        .Italic = wdUndefined 2oF1do;  
        .Subscript = wdUndefined 2<T/N  
        .Superscript = wdUndefined j"s7P%  
        .Color = wdColorAutomatic ^OOoo2  
    End With 9Tg k=  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat F%:74.]Y  
         Eq?U$eE  
        .LineSpacingRule = wdLineSpaceSingle GBl[s,g[|  
        .Alignment = wdAlignParagraphCenter .(&w/jR  
        .KeepWithNext = True *Fg)`M3g  
        .KeepTogether = True  Zsn@O2  
        .OutlineLevel = wdOutlineLevelBodyText WM;5/;bB  
         i5,yrPF  
        .LeftIndent = CentimetersToPoints(0) a&Z,~Vp  
        .RightIndent = CentimetersToPoints(0) b['v0x  
        .FirstLineIndent = CentimetersToPoints(0) G=F_{z\}  
         fm^J-  
        .CharacterUnitLeftIndent = 0 +lXIv  
        .CharacterUnitRightIndent = 0 8 :;]tt  
        .CharacterUnitFirstLineIndent = 0 VaW^;d#  
         ``-pjD(t  
        .LineUnitBefore = 1 ? Rk[P cX<  
        .LineUnitAfter = 0  6oI/*`>  
         #tIeI6 Qw  
    End With 8B(=Y;w  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False p/qu4[Mm  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll OQIr"  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese ^;9<7 h[l  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True 4?fpk9c{2  
    DoEvents R.\]JvqO  
6)PnzeYW  
    '表格首行 QHr'r/0  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") z1^3~U$}  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False Uc, J+j0F  
    With ActiveDocument.Styles("QLNU表格首行").Font tVe =c  
        .NameFarEast = "楷体" >V>`}TIH  
        .NameAscii = "Times New Roman" 4wN5x[vp  
        .Name = "楷体" zsLMROo3  
        .Size = 9 5WA:gygB&  
        .Bold = True o-o -'0l  
        .Underline = wdUnderlineNone gN2oUbf8  
        .Italic = wdUndefined Q;s {M{u  
        .Subscript = wdUndefined .Y0O.  
        .Superscript = wdUndefined s f.z(o  
    End With -<ome~|  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat ;Dbx5- t  
        .LineSpacingRule = wdLineSpaceSingle |)C #  
        .Alignment = wdAlignParagraphCenter O#k eoC4  
         P }^Y"zF2  
        .LeftIndent = CentimetersToPoints(0) O ^!Bc}$  
        .RightIndent = CentimetersToPoints(0) 4H^ACw  
        .FirstLineIndent = CentimetersToPoints(0) lbX YWZ ~7  
         o`Af6C;Q  
         EOZ 6F-':  
        .CharacterUnitLeftIndent = -0.5 qg/FI#r  
        .CharacterUnitRightIndent = -0.5 A>8~deZ9  
        .CharacterUnitFirstLineIndent = -0.5 AmZW=n2^  
         {<$t Ej:  
        .LineUnitBefore = 0 lCgzQZ  
        .LineUnitAfter = 0 W ' ~s  
        .SpaceBefore = 0 01&@8z'E  
        .SpaceAfter = 0 E4'z  
         UpPl-jeT  
    End With n2~WUK  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False +w7U7" xQ  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll dC;&X g`  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese ,c-*/{3  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True |@~_&g  
    DoEvents A 0Q`Aqs  
J(K/z,4h  
    '表格内容 >& 4):  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") @^<&LG5^  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False  LJ;&02w@  
    With ActiveDocument.Styles("QLNU表格内容").Font Uq @].3nf  
        .NameFarEast = "楷体" D@O5Gd  
        .NameAscii = "Times New Roman" %{7*o5`  
        .Name = "楷体"  ^We}i  
        .Size = 9 5 NC77}^.  
        .Bold = False kl[(!"p  
        .Underline = wdUnderlineNone { P,hH~!  
        .Italic = wdUndefined eso-{W,D  
        .Subscript = wdUndefined ACy}w?D<  
        .Superscript = wdUndefined M~7Cb>%<  
    End With 7n o6  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat mK/E1a)AG3  
        .LineSpacingRule = wdLineSpaceSingle  "UreV  
        .Alignment = wdAlignParagraphCenter vcCNxIzEG  
         +p`BoF9~  
        .LeftIndent = CentimetersToPoints(0) $)nPj_h  
        .RightIndent = CentimetersToPoints(0) 5 1N/XEk  
        .FirstLineIndent = CentimetersToPoints(0) C4qK52'2s  
         lU%oU&P/"S  
        .CharacterUnitLeftIndent = -0.5 omGzyuPF  
        .CharacterUnitRightIndent = -0.5 y@,PTF  
        .CharacterUnitFirstLineIndent = -0.5 F3K<-JK+  
        .LineUnitBefore = 0 E=CAWj\  
        .LineUnitAfter = 0 a~J!G:(  
        .SpaceBefore = 0 aOw#]pB|  
        .SpaceAfter = 0 en/h`h]h  
    End With ;5.<M<PH  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False 4x}U+1B  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll Lyf5Yf([-  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese d#XgO5eyO  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True <Y6zJ#BD  
    DoEvents ]R>NmjAI  
$f _C~O  
    '图片标题 h-|IZ}F7  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle")  4Y}Nu  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" .jg@UAK  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False _!VtM#G[  
    With ActiveDocument.Styles("QLNU图片标题").Font 'sXrtl7{^  
        .NameFarEast = "楷体" mr/?w0(C  
        .NameAscii = "Times New Roman" *]; QPi~  
        .Name = "楷体" b`$qKO  
        .Size = 10.5 pKpB  
        .Bold = True pg!MtuC}  
        .Underline = wdUnderlineNone 4:S]n19nq  
        .Italic = wdUndefined gaxM#  
        .Subscript = wdUndefined B=;kC#Emtf  
        .Superscript = wdUndefined Mtv{37k~  
        .Outline = False 2 S~(P  
        .Shadow = False ` d^Q!QxE  
        .Color = wdColorAutomatic Dn@ZS_f  
    End With ;N(L,  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat C7G,M  
        .LineSpacingRule = wdLineSpaceSingle Wz # Cyjo  
        .Alignment = wdAlignParagraphCenter _3D9>8tzE7  
         pdR\Ne0P*  
        .KeepWithNext = wdUndefined sp:4b$zX  
        .KeepTogether = True m?4hEwQxf  
        .OutlineLevel = wdOutlineLevelBodyText =PQ4S2Q  
         .>#O'Z&q9  
        .LeftIndent = CentimetersToPoints(0) JV@G9PT  
        .RightIndent = CentimetersToPoints(0) X(eW +,H  
        .FirstLineIndent = CentimetersToPoints(0) KO7&dM  
         9a=>gEF],@  
        .CharacterUnitLeftIndent = 0 fI`gF^u(  
        .CharacterUnitRightIndent = 0 9r+'DX?>  
        .CharacterUnitFirstLineIndent = 0 :aBxyS*}G  
         QuG"]$  
        .LineUnitBefore = 0 ~;]kqYIJ  
        .LineUnitAfter = 0 :* &c'  
    End With k7Qs#L  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False kW2DKr-[  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll -b{<VrZ  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese P9qIq]M  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True =Gu&0f  
    DoEvents ~c<8;,cjYR  
@MVul_@6  
    '目录项 NA/`LaJ  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") dt@c,McN|Q  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" 9Bw #VQ  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False [U",yN]d  
    With ActiveDocument.Styles("QLNU目录项").Font +or <(%o @  
        .NameFarEast = "黑体" mv#hy  
        .NameAscii = "Times New Roman" Ihf)gfHj  
        .NameOther = "Times New Roman" UimofFmI%  
        .Name = "黑体" akNqSZwj  
        .Size = 10.5 G S=E6  
        .Bold = False {J izCUo_'  
        .Italic = wdUndefined _tX=xAO9  
        .Underline = wdUnderlineNone ^\Z+Xq1~/  
        .Color = wdColorAutomatic Axns  
        .Superscript = wdUndefined qEXN} Pq<  
        .Subscript = wdUndefined j`"!G*Vh  
    End With 8#lq:  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat M_Ag *?2I  
         qbD 7\%  
        .LineSpacingRule = wdLineSpaceSingle d{Jk:@.1  
        .Alignment = wdAlignParagraphLeft P`{$7ST'Hh  
         [520!JhZY  
        .WidowControl = False vG'#5%,|  
        .KeepWithNext = False i0$*):b  
        .KeepTogether = False jd-ccnR l  
        .PageBreakBefore = False jc)7FE  
        .NoLineNumber = False 1P[x.t#  
        .OutlineLevel = wdOutlineLevelBodyText &z1U0uk  
         ,dTmI{@O  
        .LeftIndent = CentimetersToPoints(0) d4BzFGsW  
        .RightIndent = CentimetersToPoints(0) * 30K}&T  
        .FirstLineIndent = CentimetersToPoints(0) lH`TF_  
         p&x!m}!  
        .CharacterUnitLeftIndent = 0 ]vB\yQ E  
        .CharacterUnitRightIndent = 0 aQ $sn<-l  
        .CharacterUnitFirstLineIndent = 0 =?0v,;F9|  
         I=#`8deH(  
        .LineUnitBefore = 0 te2vv]W1  
        .LineUnitAfter = 0 s5{=lP  
    End With 2b"DkJj'  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False \u{4=-C.  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll d1\nMm}v  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot ~WTkX(\  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese fn,hP_  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True GJZjQH-#P  
    DoEvents zsQ|L wQ  
     B7[d^Y60B  
    '参考文献 !CX WoM  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") RG'76?z  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" ObEz0Rj  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False eK l; T  
    With ActiveDocument.Styles("QLNU参考文献").Font ;veD?|  
        .NameFarEast = "宋体" X*@ tp,t  
        .NameAscii = "Times New Roman" ih/E,B"  
        .NameOther = "Times New Roman" -*4*hHmb  
        .Name = "Times New Roman" -W1p=od  
        .Size = 12 {eI'0==  
        .Bold = False  |@'O3KA  
        .Italic = wdUndefined C{pOGc@  
        .Subscript = wdUndefined KS93v9|  
        .Superscript = wdUndefined 5 | ,b  
        .Underline = wdUnderlineNone yD7}  
        .UnderlineColor = wdColorAutomatic #f) TAA  
        .Color = wdColorAutomatic y)&K9 I  
        .Engrave = False H}5WglV.  
    End With s$>n U  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat qjhV/fsfb  
         :K]7(y7>  
        .LineSpacingRule = wdLineSpaceExactly =xIZJ8e  
        .LineSpacing = 16 }R#W<4:  
        .Alignment = wdAlignParagraphLeft t!3N|`x  
        .WidowControl = False j; y~vX b  
        .KeepWithNext = False 9/29>K_  
        .KeepTogether = False lTqlQ<`V  
        .PageBreakBefore = False ceE]^X;p  
        .OutlineLevel = wdOutlineLevelBodyText Y2QX <  
         ltgtD k  
        .LeftIndent = CentimetersToPoints(0) @9KW ]7  
        .RightIndent = CentimetersToPoints(0) v;e8W9M  
        .FirstLineIndent = CentimetersToPoints(0) hI!BX};+}  
         N4C7I1ihq  
        .CharacterUnitLeftIndent = 0 vuPNru" 2  
        .CharacterUnitRightIndent = 0 `8W HVC$  
        .CharacterUnitFirstLineIndent = -2 =?.oH|&\h  
         )S%t) }  
        .LineUnitBefore = 0 &H;,,7u  
        .LineUnitAfter = 0 Dho6N]86r  
        .SpaceBefore = 0 ]<f(@]R/d  
        .SpaceAfter = 0 T2<%[AF0  
         ;\2Z?Kq  
    End With Y /_CPY  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False aim\ 3y~  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll XP?jsBE  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS  &Q~W{.  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True `"&Nw,C  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese k*fU:q1  
    DoEvents H,L{N'[Xph  
$xZ ~bE9  
    ' i m;6$3  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") E|f[ #+:+  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" n_km]~  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False {owuYVm  
    With ActiveDocument.Styles("QLNU论文题目").Font i^%$ydg  
        .NameFarEast = "黑体" %r(WS_%K|  
        .NameAscii = "Arial Black" WV$CZgL  
        .NameOther = "Arial Black" kaekH*m~  
        .Name = "Arial Black" rnj$u-8  
        .Size = 16 i>YQ<A1  
        .Bold = False d6QrB"J`  
        .Italic = wdUndefined tj@ (0}pi4  
        .Superscript = wdUndefined NUltuM  
        .Subscript = wdUndefined <Pt?N2]A|  
        .Underline = wdUnderlineNone ]qv0Y~+`-K  
        .UnderlineColor = wdColorAutomatic 0,t%us/q  
        .Color = wdColorAutomatic (8h4\utA  
4G(7V:  
    End With @!f4>iUy  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat F =e9o*z  
        .LineSpacingRule = wdLineSpaceSingle h:362&?]  
        .Alignment = wdAlignParagraphCenter %|(c?`2|  
        .WidowControl = True ALTOi?  
        .KeepWithNext = True ~SQ xFAto  
        .KeepTogether = True (~^fx\-S  
        .PageBreakBefore = True 70c]|5  
        .NoLineNumber = False @h{|tP%"  
        .OutlineLevel = wdOutlineLevelBodyText L/tn;0  
         k(dakFaC^  
        .LeftIndent = CentimetersToPoints(0) GmWr  
        .RightIndent = CentimetersToPoints(0) Y)X7*iTi'j  
        .FirstLineIndent = CentimetersToPoints(0) i)z|= |?  
         pVy=rS -  
        .CharacterUnitLeftIndent = 0 bJ!\eI%ld  
        .CharacterUnitRightIndent = 0 TsaQR2J@  
        .CharacterUnitFirstLineIndent = 0 1}DA| !~  
         Re8x!e'>  
        .LineUnitBefore = 1 )Wk_|zO-  
        .LineUnitAfter = 1 ~%/Rc`  
         D:/ n2_  
        .BaseLineAlignment = wdBaselineAlignAuto 8O,\8:I#  
    End With . |T=T0^  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False h.>SVQzU  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll f?sm~PwC-  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS ! g]5y=  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True :9UgERjra  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese Bxm,?=h  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True 8J(j}</>a  
    DoEvents ^b+>r  
     MMFwT(l<1  
    '中文摘要 =WY 'n l'  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") R}=5:)%w  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" 29RP$$gR  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False Kt_oo[ey{  
    With ActiveDocument.Styles("QLNU中文摘要").Font 8~o']B;lJ  
        .NameFarEast = "宋体" mgjJNzclL  
        .NameAscii = "Times New Roman" eTS}-  
        .NameOther = "Times New Roman" C.92FiC  
        .Name = "Times New Roman" 4@?0wV  
        .Size = 12 {\l  
        .Bold = wdUndefined #,d~t  
        .Superscript = wdUndefined j1K3|E  
        .Subscript = wdUndefined ~U]g;u  
        .Italic = wdUndefined SU~a()"  
        .Underline = wdUnderlineNone l:V R8g[  
        .UnderlineColor = wdColorAutomatic ! dzgi:  
        .Color = wdColorAutomatic  lln"c  
    End With  h$l/wn  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat "17) `Yf  
        .LineSpacingRule = wdLineSpaceExactly /IUu-/ D  
        .LineSpacing = 20 R#d~a;j  
        .Alignment = wdAlignParagraphLeft qLDj\%~(  
          l!|c_  
        .WidowControl = False 9Lb96K?=>  
        .KeepWithNext = False !'jq.RawP  
        .KeepTogether = True 1XSnnkJm  
        .PageBreakBefore = False CjQO5  
        .NoLineNumber = False :*''ci  
        .OutlineLevel = wdOutlineLevelBodyText x"12$7 9=  
         ^}=)jLS  
        .LeftIndent = CentimetersToPoints(0) :x\[aG9  
        .RightIndent = CentimetersToPoints(0) :DN!1~ZtW  
        .FirstLineIndent = CentimetersToPoints(0) `-L?x2)U  
         crM5&L9zF  
        .CharacterUnitLeftIndent = 0 q`<:CfCt  
        .CharacterUnitRightIndent = 0 Q*smH-Sw  
        .CharacterUnitFirstLineIndent = 2 yV{B,T`W  
        .LineUnitBefore = 0 !uEEuD#  
        .LineUnitAfter = 0 j~ qm$'H  
         SN{+ Pk  
    End With o{ s2T)2  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False S:_Ms{S  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll +NPL.b|  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS !LN8=u.  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True F<* /J]  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese !2LX+*;  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True 3^o(\=-JX  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete ~wb1sn3  
    DoEvents p`Pa;=L  
     fc9;ZX7  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") >j5\J_( ;D  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" Y_'ERq Q  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False V,&%[H [  
    With ActiveDocument.Styles("QLNU英文标题").Font +FT c/r  
        .NameFarEast = "黑体" \c IN]=#  
        .NameAscii = "Arial Narrow" Y P2VSK2Q  
        .Name = "Arial Narrow" qk(Eyp  
        .Size = 16 EjR(AqZY  
        .Bold = True JY0aE  
        .Bold = wdUndefined ?gE=hh  
        .Superscript = wdUndefined RPz[3y  
        .Subscript = wdUndefined h:%,>I%{  
        .Italic = wdUndefined h&<"jCjL  
         JtL> mH  
        .Underline = wdUnderlineNone 2zBk#c+  
        .UnderlineColor = wdColorAutomatic %v0M~J}+  
        .StrikeThrough = False ZLkl:'E_  
        .DoubleStrikeThrough = False buGBqx[  
    End With i 9) G t  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat ;>J!$B?,  
        .LineSpacingRule = wdLineSpaceSingle Xsq @E#@S  
        .Alignment = wdAlignParagraphCenter } e[ E  
        .WidowControl = True (0$~T}lH  
        .KeepWithNext = False P>7Xbm,VP  
        .KeepTogether = False Tru{8]uMH  
        .PageBreakBefore = False 3Zb%-_%j  
        .NoLineNumber = False '$tCAS  
        .FirstLineIndent = CentimetersToPoints(0) *4cuWkQ,  
        .OutlineLevel = wdOutlineLevelBodyText Z,).)y#B  
         <&5z0rDKWw  
        .LeftIndent = CentimetersToPoints(0) ;'"'|} xn  
        .RightIndent = CentimetersToPoints(0) _\WR3Q!V  
        .FirstLineIndent = CentimetersToPoints(0) w+br)  
         <>] DcA  
        .CharacterUnitLeftIndent = 0 (g##wa)L  
        .CharacterUnitRightIndent = 0 hw DxGiU  
        .CharacterUnitFirstLineIndent = 0 RaJTya^  
         |`T(:ZKXZ2  
        .LineUnitBefore = 1 m!V,W*RNr  
        .LineUnitAfter = 1 hLO)-ueb  
         pi"H?EHk  
    End With INg0[Lpc  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False `fBQ?[05.  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll !vSI"$xd  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS s fM"!{7  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True o7) y~ ke  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese Ds`e-X)O;\  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True #t+?eye~  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete ZoG@"vr2  
    DoEvents MpCPY"WLL  
-/Q5?0z  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") oB:7R^a  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" HXLnjXoe  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False E'QAsU8pP  
    With ActiveDocument.Styles("QLNU英文摘要").Font L< F8+a7i  
        .NameFarEast = "宋体" U%q)T61  
        .NameAscii = "Arial" 6j%%CWU{~  
        .NameOther = "Arial" Ebnb-Lze,  
        .Name = "Arial" .hT>a<  
        .Size = 12 xVx s~p1  
        .Bold = wdUndefined "<CM 'R  
        .Italic = wdUndefined .a%6A#<X  
        .Superscript = wdUndefined F]$ Nu  
        .Subscript = wdUndefined |a(KVo  
    End With I5Vn#_q+b  
     &tyS6S+  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat (Z),gxt  
         .p#kW:zspA  
        .LineSpacingRule = wdLineSpaceExactly S,&LH-ps   
        .LineSpacing = 20 y~9wxK  
         h,{m{Xh  
        .Alignment = wdAlignParagraphJustify )@g[aRFa  
         [EAOk=X  
        .WidowControl = False uJ% <+I  
        .KeepWithNext = False Y)rK'OY'  
        .KeepTogether = False 'oa.-g5  
        .PageBreakBefore = False T Dh)}Ms  
        .NoLineNumber = False 72<9xNcB!}  
         7)rQf{q7  
        .OutlineLevel = wdOutlineLevelBodyText Wg-mJu(  
         Fy=GU<&AI  
        .LeftIndent = CentimetersToPoints(0) RNT9M:w  
        .RightIndent = CentimetersToPoints(0) F @ PPhzZ  
        .FirstLineIndent = CentimetersToPoints(0) N1t4o~  
         /vQ)$;xf#  
        .CharacterUnitLeftIndent = 0 _H+]G"k/r  
        .CharacterUnitRightIndent = 0 C;BO6$*_e  
        .CharacterUnitFirstLineIndent = 2 +b|F_  
         t~+M>Fjm?d  
        .LineUnitBefore = 0 ;d?BVe?  
        .LineUnitAfter = 1  9 [eiN  
         PQHztS"  
    End With D;,p?]mgO~  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False +:KZEFY?<  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll >F$9&s&  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS T^A(v(^D  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False 2q?/aw ;Z  
    DoEvents UTA|Ps$  
S^QEctXU  
    Options.Pagination = True f1 'ByV'2  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." '}OdF*L  
    DoEvents PR{ubM n  
    ActiveDocument.Repaginate XcJ5K Tn  
529; _|  
End Sub 9jal D X  
(X Z[-M7  
m<gdyY   
杺栫杣杊椌柮栬，䒴蓉艿芖。
回复 引用
举报顶端
伍胥之 离线
级别: 军区司令员

显示用户信息 
101楼  发表于: 2024-12-28   
只看该作者 ┊  小 中 大
姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 tQMz1$  
*MWI`=c  
引用
引用第20楼newport93于06-14-2010 13:47发表的  : s,laJf  
: T4ap_Ycq  
老五，I 服了U。 obX2/   
)Ps<u-V  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 MzW!iG  
$reQdN=~  
杺栫杣杊椌柮栬，䒴蓉艿芖。
回复 引用
举报顶端
上一主题下一主题
«3456»Pages: 6/6
 Bay Area Chinese--灣區華人 » 乱讲
描述
快速回复

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