查看完整版本: [-- [ZT]我和电脑亲密接触的心路历程 --]

Bay Area Chinese--灣區華人 -> 乱讲 -> [ZT]我和电脑亲密接触的心路历程 [打印本页] 登录 -> 注册 -> 回复主题 -> 发表主题

<<  1   2   3  >>  Pages: ( 3 total )

伍胥之 07-18-2021 23:57

[ZT]我和电脑亲密接触的心路历程

Dim bContinue As Boolean X}Ey6*D:  
GAZTCkB"  
Dim regEX As New RegExp ,ZpcvK/S  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 o)X(;o  
G2bZl% ,D  
Dim LastTitle0String As String, LastTitle0No As Long OX"^a$  
Dim LastTitle1String As String, LastTitle1No As Long WcCJ;z:S?k  
Dim LastTitle2String As String, LastTitle2No As Long hnQDm$k  
Dim LastTitle3String As String, LastTitle3No As Long ^V DJGBk  
Dim LastTitle4String As String, LastTitle4No As Long Nh I&w l  
Dim LastTitle5String As String, LastTitle5No As Long B@:c 8}2.  
Dim LastTabelString As String, LastTableNo As Long LDj'L~H  
Dim LastFigureString As String, LastFigureNo As Long BZ]6W/0  
a?zn>tx  
Dim strSeperator As String ')d&:K*M  
K+0&~XU  
Sub ConvertWidth(fTEXT As String, rText As String) 3f u*{8.XZ  
        Selection.Find.ClearFormatting $[L8UUHY<8  
        Selection.Find.Replacement.ClearFormatting j.3#rxq  
        Selection.Find.Wrap = wdFindContinue hmA$gR_  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText %uuh+@/&yz  
        DoEvents 5/v,|  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True `5[$8;  
End Sub ArFs r  
YF+hN\  
Sub ClearDomain() B?Vr9H7n  
        With Selection.Find m3apeIEi[  
            .ClearFormatting 3'd(=hJ45$  
            .Replacement.ClearFormatting Bf72 .gx{0  
            .Wrap = wdFindContinue kQ,#NR/q6  
            Me.txtStatus.Text = "清除所有域代码" pJ` M5pF  
            DoEvents BFU6?\r  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False B!`Dj,_  
        End With 4(VVEe  
End Sub L[]*vj   
A`=;yD  
Private Sub cmdCheck_Click() I9! eL4e  
    bContinue = True uCc .dluU  
    Dim NoSeries1(1 To 16) As String )HrFWI'Y  
    Dim NoSeries2(1 To 16) As String c+6/@y  
    Dim NoSeries5(1 To 16) As String r'kUU] j9  
    Dim NoSeriesRM(1 To 16) As String CQf<En|1  
    Dim paraTotal As Long, ParaText As String E%eTjvvxus  
    Dim ttString As String, ttNo As String n{>Ge,enP0  
     I)xB I~x  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long m;=wQYFr{I  
@}#"o  
    Me.txtStatus.Visible = True r/X4Hy0!lT  
    Me.lbParaType.Visible = True Wc}opp  
    Me.cmdCheck.Enabled = False w/8`]q  
     S$CO T)7  
     uHBEpqC%  
     7x/S4Gs'4  
     ]Qo.X~]  
    Dim ParaType As String, rText As String Q9(J$_:  
     -BY'E$]4  
    Selection.WholeStory 1'skCR|!<  
    Selection.NoProofing = True $Hx00 ho  
     0_}^IiG  
    tm1 = Now 9,?\hBEu  
     U~~Y'R\ NU  
        ActiveWindow.View.Type = wdNormalView [0_JS2KE  
     KGMX >t'  
    NoSeries1(1) = "一" 6sRe. ct<  
    NoSeries1(2) = "二" a@|/D\C  
    NoSeries1(3) = "三" ]=s!cfu  
    NoSeries1(4) = "四" \2?p  
    NoSeries1(5) = "五" i+/:^tc;  
    NoSeries1(6) = "六" h8b*= oq  
    NoSeries1(7) = "七" Kn9O=?Xh;  
    NoSeries1(8) = "八" $/\b`ID  
    NoSeries1(9) = "九" ZS&n,<a5L}  
    NoSeries1(10) = "十" ]!u12^A{  
    NoSeries1(11) = "十一" NDw+bR-  
    NoSeries1(12) = "十二" 63s<U/N  
    NoSeries1(13) = "十三" .Z,3:3,]  
    NoSeries1(14) = "十四" !Gv*iWg  
    NoSeries1(15) = "十五" ?[$=5?  
    NoSeries1(16) = "十六" FmfPi .;1  
     %X)i-^T  
    NoSeries2(1) = "㈠" ;2o+|U@  
    NoSeries2(2) = "㈡" " 6T: &>  
    NoSeries2(3) = "㈢" b-/ztZ@u  
    NoSeries2(4) = "㈣" p^2"g~  
    NoSeries2(5) = "㈤" =j)y.x(  
    NoSeries2(6) = "㈥" 3Y\7+975m  
    NoSeries2(7) = "㈦" - nWs@\  
    NoSeries2(8) = "㈧" q|E0Y   
    NoSeries2(9) = "㈨" _%HpB=  
    NoSeries2(10) = "㈩" }E01B_T9z  
     #q;hX;Va  
    NoSeries5(1) = "①" J{GtH[  
    NoSeries5(1) = "②" ep"YGx  
    NoSeries5(3) = "③" 5^Gv!XW  
    NoSeries5(4) = "④" x.V6C0|6"  
    NoSeries5(5) = "⑤" lpW|GFG  
    NoSeries5(6) = "⑥" Bg^k~NX%  
    NoSeries5(7) = "⑦" T Y|5O! <  
    NoSeries5(8) = "⑧" Wvhg:vup  
    NoSeries5(9) = "⑨" kmJ {(y)w  
    NoSeries5(10) = "⑩" u9 WQ0.  
     A),nkw0X  
     @W\y#5"B  
    NoSeriesRM(1) = "I" 2<d l23  
    NoSeriesRM(2) = "II" GZL{~7n  
    NoSeriesRM(3) = "III" kzA%.bP|  
    NoSeriesRM(4) = "IV" FiTP-~  
    NoSeriesRM(5) = "V" tMN^"sjf*  
    NoSeriesRM(6) = "VI" Zk#^H*jgx  
    NoSeriesRM(7) = "VII" s\c*ibxM,  
    NoSeriesRM(8) = "VIII" 0D;MW  
    NoSeriesRM(9) = "IX" / 38b:,  
    NoSeriesRM(10) = "X" -Jo8jE~>V  
    NoSeriesRM(11) = "XI" Km~\^(a '  
    NoSeriesRM(12) = "XII" J 4$^Hr  
    NoSeriesRM(13) = "XIII" Sm(QgZO[4  
    NoSeriesRM(14) = "XIV" 1B;-ea  
    NoSeriesRM(15) = "XV" cJEO wAN  
    NoSeriesRM(16) = "XVI" ? x1"uH  
     xS~O Acxg  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) O"otzla  
     ~[@Gj{6p0  
    If i = vbNo Then s]=s2.=  
        Exit Sub %5X}4k!p  
    End If ~<M/<%o2*  
     ~R`Rj*Q2Y  
    If Me.chkSuper.Value Then N4 O'{  
        Me.txtStatus.Text = "检查修改所有的上标格式" Z[.+Wd\)-9  
     7g-#v'.N  
        CheckSuperScript S.;>:Dd[K  
         d^"dL" Q6m  
    End If KFCL|9P  
     8\-Q(9q(  
    If Me.chkStyle.Value Then _Qy3A T~  
        Me.txtStatus.Text = "设置样式，请稍候...." m6%csh-N1  
        DoEvents HaP0;9q  
        CeateOrModifyStyle @w1@|"6vF  
    End If fV-vy]x..  
     e*O-LI2O  
     DRldRm/  
     9aLS%-x!+  
    ClearDomain RB5fn+FiZ  
         l@+WGh  
      N-x~\B!  
     ,hj5.;M  
    If Me.chkLIST.Value Then `={s*^Ta  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" )I80Nq  
     _":yUa0D  
        ConvertListToOrdinary ,&S ^Ryc  
    End If ^!]Hm&.a  
     Tct[0B  
     ;4jRsirx9  
    Dim pType As String, trimpTEXT As String MC.,n$O}6  
    If Me.chkNum.Value = True Then Fz Or#(^  
        Me.txtStatus.Text = "转换全角数字形式为半角" )"  H$1  
        ConvertWidth "１", "1" Onr#p4UT  
        DoEvents A>"v1Wk  
        ConvertWidth "２", "2" S~"1q 0  
        DoEvents Zk+J=Cwq}  
        ConvertWidth "３", "3" 7m;2M]BRi  
        DoEvents \`w!v,aM$  
        ConvertWidth "４", "4" {VC4rA  
        DoEvents SnK j:|bV  
        ConvertWidth "５", "5" Q AJX7  
        DoEvents F+;{s(wx  
        ConvertWidth "６", "6" >wK ^W{  
        DoEvents 39;Z+s";  
        ConvertWidth "７", "7" c65_E<5Z  
        DoEvents ?^z!yD\  
        ConvertWidth "８", "8" lVywc:X  
        DoEvents xO2S|DH{  
        ConvertWidth "９", "9" 2 }QD>  
        DoEvents h&7] Bp  
        ConvertWidth "０", "0" 2#4_ /5(j*  
        DoEvents sPCp20x:y8  
        ConvertWidth "ａ", "a" o0-7#2  
        DoEvents (fgX!G[W  
        ConvertWidth "ｂ", "b" 8ALvP}H  
        DoEvents /o =V (  
        ConvertWidth "ｃ", "c" !B==cNq  
        DoEvents Bp3%*va  
        ConvertWidth "ｄ", "d" %0]vW;Q5  
        DoEvents *_<P% J  
        ConvertWidth "ｅ", "e" "ei*iUBN:  
        DoEvents ^(ks ^<}  
        ConvertWidth "ｆ", "f" |>( @n{  
        DoEvents CPq{M.B  
        ConvertWidth "ｇ", "g" =RR225  
        DoEvents G Q&9b_  
        ConvertWidth "ｈ", "h" - b>"2B?  
        DoEvents 0NLoqq  
        ConvertWidth "ｉ", "i" S7-ka{S  
        DoEvents I)~&6@J n  
        ConvertWidth "ｊ", "j" Vp $]  
        DoEvents Jtj_R l !  
        ConvertWidth "ｋ", "k" #C ?T  
        DoEvents { 7y.0_Y  
        ConvertWidth "ｌ", "l" nZ>bOP+,  
        DoEvents [Rh[Z# 6  
        ConvertWidth "ｍ", "m" W11Wv&  
        DoEvents fP`g#t)4Tu  
        ConvertWidth "ｎ", "n" Q]_3 #_'  
        ConvertWidth "ｏ", "o" p*10u@,  
        ConvertWidth "ｐ", "p" lAsDdxB`  
        ConvertWidth "ｑ", "q" ,s'78Dc$  
        ConvertWidth "ｒ", "r" ^/ K\a ,  
        ConvertWidth "ｓ", "s" Ti/t\'6  
        ConvertWidth "ｔ", "t" q# W|*kL3  
        ConvertWidth "ｕ", "u" )u7*YlU\I  
        ConvertWidth "ｖ", "v" L&1VPli  
        ConvertWidth "ｗ", "w" pv2_A   
        ConvertWidth "ｘ", "x" _A*5BAB:h(  
        ConvertWidth "ｙ", "y" n{F$ ,a  
        ConvertWidth "ｚ", "z" Q)\7(n  
        ConvertWidth "Ａ", "A" :sRV]!Iw  
        ConvertWidth "Ｂ", "B" ?3!"js B  
        ConvertWidth "Ｃ", "C" $'3`$   
        ConvertWidth "Ｄ", "D" [GeJn\C_?  
        ConvertWidth "Ｅ", "E" @%L4^ms  
        ConvertWidth "Ｆ", "F" u,0N[.&N  
        ConvertWidth "Ｇ", "G" .I{b]6  
        ConvertWidth "Ｈ", "H" kBY54pl  
        ConvertWidth "Ｉ", "I" Sf>R7.lpP  
        ConvertWidth "Ｊ", "J" ScrEtN  
        ConvertWidth "Ｋ", "K" _8C0z=hz  
        ConvertWidth "Ｌ", "L" !Gu,X'#Ab  
        ConvertWidth "Ｍ", "M" N> R abD  
        ConvertWidth "Ｎ", "N" ?2VY ^7N[  
        ConvertWidth "Ｏ", "O" r}OK3J  
        ConvertWidth "Ｐ", "P" ZF :e6em  
        ConvertWidth "Ｑ", "Q" v}hmI']yf  
        ConvertWidth "Ｒ", "R" N=K|Nw  
        ConvertWidth "Ｓ", "S" N9r}nqCN  
        ConvertWidth "Ｔ", "T" eqcV70E8cK  
        ConvertWidth "Ｕ", "U" -k{n"9a9?  
        ConvertWidth "Ｖ", "V" lkf(t&vL 2  
        ConvertWidth "Ｗ", "W" 66<3zadJZU  
        ConvertWidth "Ｘ", "X" CW k#Amt.  
        ConvertWidth "Ｙ", "Y" VOBzB]  
        ConvertWidth "Ｚ", "Z" :>to?~Z1  
        ConvertWidth "^l", "^p" "J] _B  
        ConvertWidth "（", "(" CIh@H6|  
        ConvertWidth "）", ")" BM*9d%m^  
     @Md%gEh;&  
    End If !dB {E  
>:M3!6H_~{  
    With ActiveDocument :.['e`  
        Dim tbl As Table *D ld?Q  
        For Each tbl In .Tables 4l2i'H  
            tbl.Rows.Alignment = wdAlignRowCenter "}UJ~ j).  
            tbl.Range.Font.NameFarEast = "楷体" -ea>}S  
            tbl.Range.Font.NameAscii = "Times New Roman" ODK$G [-  
            tbl.Range.Font.Size = 10.5 ko2Kz k  
        Next @ NGK2J  
        Set tbl = Nothing OKfJ  
    End With I]P'wav~O  
     Ec| Gom?  
     yc5C`r+6  
    With ActiveDocument kVs'>H@FY  
         W=M`Bkw{  
        For i = 1 To .TablesOfContents.Count :mLcb. E  
            .TablesOfContents(i).Delete &LE,.Q34  
        Next %sb)U~gP  
         ua1ov7w$]  
         ^yH!IRRAq  
         _[-+%RP  
        paraTotal = .Paragraphs.Count <va3Ly)c&  
        paraCounter = 1 ]gYnw;W$  
         c[ ]_gUp8  
        LastTitle0No = 0 v8"plx=3  
        LastTitle1No = 0 D3V5GQ\=  
        LastTitle2No = 0 U'S}7gya  
        LastTitle3No = 0 &^e%gU8!\  
        LastTitle4No = 0 \1'3--n  
        LastTableNo = 0 k"|4 LPv[  
        LastFigureNo = 0 *6~ODiB  
         3*$A;%q  
        Dim Sec As Long I|lz;i}$  
         JqTkNKi/s  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) *)k}@tY  
        If Sec = 0 Then 2g1[ E_?  
            Exit Sub V6"<lK8"  
        End If `_sc_Y|C!  
         a'w~7y!}  
        k = 0 /_E8'qlx  
        Do While (paraCounter < paraTotal) And bContinue 4g]Er<-P  
            k = k + 1 cZKK\hf<  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then !%x8!;za  
                Exit Do Pw/Z;N;:V  
            End If -x2/y:q`  
            paraCounter = paraCounter + 1 UKp- *YukT  
            If k Mod 20 = 0 Then zVe@`gc  
                Me.lbCounter.Caption = paraCounter eRQ}`DjTk  
                DoEvents b:/;  
            End If }l&Uh &B`  
        Loop 0 Vv 6B2<  
         AOQimjW9a  
         J& }/Xw)  
        Do While (paraCounter < paraTotal) And bContinue  lk{  
             U'zW; Lt  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text)  6\ /x  
            ShapeHeight = 0 Z<ozANbk  
            ShapeWidth = 0 iph>"b$D  
           9;s:Bo  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth j <>|Hi #`  
             9ctvy?53H  
            Select Case ParaType ^'i(@{{o\  
                Case "【】表格内容" 24"Trg\WK[  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" IbC(/i#%`  
                Case "章" {4Y@ DQ-  
                    LastTitle0No = LastTitle0No + 1 Ed,`1+  
                    '新一章开始，复位其下属标题编号 @\v,   
                    LastTitle1No = 0 Tx?,]c,(u  
                    LastTitle2No = 0 k|Vq-w  
                    LastTitle3No = 0 v!?bEM3D  
                    LastTitle4No = 0 N-|E^XIV  
                     ~\`lbGJ7?  
                    k = Val(ttNo) R*IO%9O  
                    If k = 0 Then '非数字编号章节 -frmvNJ F  
                        If ttNo <> NoSeries1(LastTitle0No) Then qd"1KzQWO  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString . $uvQpyh  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText ?-0k3  
                        End If cVJ"^wgBt  
                    Else VTySKY+  
                        If Val(ttNo) <> LastTitle0No Then |cStN[97%  
                            rText = "第" & LastTitle0No & ttString S?nk9 T+  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText r  H;@N  
                        End If yC !`6$  
                         `E>HpRcxD  
                    End If 1VK?Svnd  
                     IW3ZHmrpA  
                    '章段落设置 :#58m0YLA:  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 OiNzN.}d  
                    .Paragraphs(paraCounter).Style = "QLNU章节" 9@  [R>C  
                    .Paragraphs(paraCounter).Range.Select Zpg/T K  
                    Selection.EndKey unit:=wdLine 8*3o 9$Pj  
                    tc = Replace(rText, vbCr, "") xy$73K6  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False Qk<W(  
                Case "一级标题" 4>nY't;0  
                    LastTitle1No = LastTitle1No + 1 "P HkbU  
                    '新一级标题开始，复位其下属标题编号 q%TWtQS  
                    LastTitle2No = 0 C%d\DuJ5'~  
                    LastTitle3No = 0 &=H{ 36i@  
                    LastTitle4No = 0 qLBXyQ;U  
                     S!< YVQq  
                    If ttNo <> NoSeries1(LastTitle1No) Then Htn=h~U`z  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString 9{|JmgO!  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText \UM9cAX`  
                    End If BJ!b LQ  
                   $9<q'hf<w  
                     Twyx(~'&R  
                    '一级标题段落设置  格式：一、标题内容 B1T:c4:N  
                    .Paragraphs(paraCounter).Range.Text = rText l CHaRR7  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" 5=tvB,Ux4  
                    .Paragraphs(paraCounter).Range.Select cjt<&b*  
                    Selection.EndKey unit:=wdLine PE3FuJGz  
                    tc = Replace(rText, vbCr, "") F,Q\_H##x4  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False 7l> |G,[c  
                Case "二级标题" sHD8#t^{  
                    LastTitle2No = LastTitle2No + 1 Jm$. $B&I  
                    '新二级标题开始，复位其下属标题编号 v.:aICB5  
                    LastTitle3No = 0 ~4h<nc  
                    LastTitle4No = 0 aAZS^S4v  
                     bqp6cg\p  
                    If ttNo <> NoSeries1(LastTitle2No) Then  S[!K  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString l T~RH0L  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText =LV7K8FSd  
                    End If 6M9t<DQV  
                     /^^t>L  
                    '二级标题段落设置 格式：(一)、标题内容 )&]gX  
                    .Paragraphs(paraCounter).Range.Text = rText :8aa#bA  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" ~K}iVX  
                     u-PAi5&n  
                    .Paragraphs(paraCounter).Range.Select OQMkpX-dH  
                    Selection.EndKey unit:=wdLine R>SS\YC'X  
                    tc = Replace(rText, vbCr, "") Y-\hV6v6  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False w naP?|/  
                 p3ox%4  
                Case "三级标题" '^ bB+  
                    LastTitle3No = LastTitle3No + 1 /ylO["<Q  
                    '新三级标题开始，复位其下属标题编号 JP`$A  
                    LastTitle4No = 0 jY%&G#4  
                     S[,!  
                    If Val(ttNo) <> LastTitle3No Then cHOtMPyQ  
                            rText = LastTitle3No & ". " & ttString E8gXa-hv  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText ^ T@ (`H4@  
                         OJiW@Z_\  
                    End If _#@n^c  
                    '三级标题段落设置 格式：1. 标题内容 0X@!i3eu  
                    .Paragraphs(paraCounter).Range.Text = rText _@9[c9bO  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" ntbl0Sk  
                    .Paragraphs(paraCounter).Range.Select 3~Od2nk(x  
                    Selection.EndKey unit:=wdLine \"Z^{Y[,;  
                    tc = Replace(rText, vbCr, "") >Jh*S`e  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False !E!i`yF  
                Case "四级标题" 2^w3xL"   
                    LastTitle4No = LastTitle4No + 1 vdw5T&Q{{C  
                     d4KT wn5g  
                    If Val(ttNo) <> LastTitle4No Then :)VO,b~r  
                            rText = "(" & LastTitle4No & "). " & ttString tJ[yx_mf  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText Qb< i,`SN  
                     -SZXUN  
                    End If i'9aQi"G  
                    '四级标题段落设置 格式：(1). 标题内容 a5=8zO#%g  
                    .Paragraphs(paraCounter).Range.Text = rText 7S$Am84%  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" %jz]s4u$5j  
                    .Paragraphs(paraCounter).Range.Select wBZ=IMDu\  
                    Selection.EndKey unit:=wdLine 52?zBl`|  
                    tc = Replace(rText, vbCr, "") LVKvPi  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False Ix @rn  
                 c*2 U'A  
                Case "表格标题" koOkm:(,  
                    LastTableNo = LastTableNo + 1 eygmhaE  
                     1Q\P] -  
                    If ttNo <> CStr(LastTableNo) Then H'k$<S  
                            rText = "表" & LastTableNo & ". " & ttString ^Pl(V@  
                            ErrMsg.AddItem "表格编号错误：" & ParaText d%_=r." Y  
                   3qJOE6[}%  
                    End If 3/c3e{,!  
                     Q ^X  
                    '表格名称段落设置 格式：表1. 表格名称 BrF/-F  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" li'h&!|]  
                    xe = Replace(rText, vbCr, "") ly"Jl8/<  
                    .Paragraphs(paraCounter).Range.Select A>WMPe:sSS  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 NRu _6~^^  
                    Selection.Range.Text = xe cb!mV5M-g  
                    Selection.EndKey }5c%v1  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False eKjmU| H  
                 ,5oe8\uz  
                Case "表格首行" 0/K?'&$yvb  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" ws8@y r<R  
                Case "图片标题" Qt`hUyL  
                    LastFigureNo = LastFigureNo + 1 O ]o7  
                     +GCN63 nX  
                    If ttNo <> CStr(LastFigureNo) Then p=%Vo@ *]  
                            rText = "图" & LastFigureNo & ". " & ttString &_Kb;UVRj  
                            ErrMsg.AddItem "表格编号错误：" & ParaText S :)Aj6>6  
                   e$]`  
                    End If -!MrG68  
                    '图片名称段落设置 格式：图1. 图名称 f%vJmpg  
                    .Paragraphs(paraCounter).Range.Text = rText HT&CbEa4'  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" z~&uLu  
                    .Paragraphs(paraCounter).Range.Select 2N*XzVplN  
                    Selection.EndKey unit:=wdLine uQh dg4  
                    xe = Replace(rText, vbCr, "") `roos<F1D  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False ^mxOQc !  
                Case "正文"  8:=&=9%  
                     '正文名称段落设置 X`i'U7%I  
                    .Paragraphs(paraCounter).Style = "QLNU正文"  gGF]Dq  
               Case "文献条目" +UbSqp1BS  
                    With .Paragraphs(paraCounter) ]<b$k  
                        '.Range.Select },58B  
                        'Selection.ClearFormatting D.d(D:  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” AsFn%8_I  
                        .Style = "QLNU参考文献" S_; 5mb+b  
                    End With MzjV>.  
               Case "图表注解" _8t5rF  
                    With .Paragraphs(paraCounter) ?;84 M@  
                        .Range.Font.NameFarEast = "楷体" !5,>[^y3  
                        .Range.Font.NameAscii = "Times New Roman" 4 =/5  
                        .Range.Font.Size = 9 '小5号字 ;1qE:x}'H  
                         zVN/|[KP4  
                        .Alignment = wdAlignParagraphCenter 7P1G^)  
                        .LeftIndent = 0 u=_"* :}  
                        .RightIndent = 0 Gk_%WY*  
                        .FirstLineIndent = 0 PdiP5S }/  
                        .LineSpacing = 12 &"H xAK)f  
                        .LineSpacingRule = wdLineSpaceExactly N(i%Oxp1  
                        .LineUnitAfter = 0 \7b-w81M-  
                        .LineUnitBefore = 0 .EeXq }a[  
                        .OutlineLevel = wdOutlineLevelBodyText DV+ M;r s  
                        .PageBreakBefore = False ZK:dhwer  
                        .RightIndent = 0 +&hhj~I.  
                        .WordWrap = True k1tJ$}  
                        .LineUnitAfter = 0.5 $VEG1]/svp  
                         aAM!;3j]B`  
                    End With j("$qp v  
                Case Else l{b<rUh5W  
                    '不作处理 : 5)Dn87  
            End Select _vOV(#q2a  
             lGrp^  
            '含有inlineshape的段落处理 VB>KT(n-b  
            If ShapeHeight > 30 Then W\]bh'(  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 :QKxpHi  
            End If S&/</%  
             1 & G0;  
            If (ShapeWidth + ShapeHeight) > 150 Then +m?;,JGt  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" \8j5b+  
            End If }/tT=G]91  
             5)h#NkA\J  
            '段落计数器递 k(hYNmmo j  
            paraCounter = paraCounter + 1 n>Cl;cN=  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter C]S~DK1  
            Me.txtStatus.Text = ParaText #a1zk\R3  
            DoEvents `=m[(CLb  
        Loop $t*>A+J  
    End With V~#e%&73FH  
     6cR}Mm9Hx3  
    msg = "" =$bJ`GpJ  
     s5/5>a V  
    For i = 0 To Me.ErrMsg.ListCount - 1 (al.7VA;9  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) vTnrSNdSE  
    Next Vb{5-v ;a  
     b# ga  
     % mP%W<  
     VnlgX\$}  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg N:R6 b5 =}  
    Me.cmdCheck.Enabled = True E/bIq}R6  
    Me.txtStatus.Visible = True L1J \ C  
    Me.lbParaType.Visible = False "FuOWI{in  
     Xge]3Ub  
    bContinue = False U@t" o3E  
End Sub U -RR>j  
%=p:\+`VI  
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) /|7@rH([{  
    Dim pTEXT As String #'`!*VI  
     BR&T,x/d  
    pTEXT = ChKRange.Text R7)\w P*l5  
     D#%aow'(7  
    ParaType = "其它" _#[~?g`  
    TitleString = pTEXT E :gS*tsY  
    TitleNo = "N/A" 5\\#kjjx  
     R F3?q6j ,  
    shpCounter = ChKRange.InlineShapes.Count %v}SJEXF p  
    If shpCounter <> 0 Then M:t!g %  
        MaxShpHeight = 0: TotalShpWidth = 0 .'`7JU#{  
        For i = 1 To shpCounter [3$L}m  
            k = ChKRange.InlineShapes(i).Height `Fn"%P!  
            l = ChKRange.InlineShapes(i).Width "53'FRj_\  
            If k > MaxShpHeight Then FHztF$Z  
                MaxShpHeight = k x"g-okLN  
            End If t "y[  
            TotalShpWidth = TotalShpWidth + l EY~b,MIL4  
        Next sk'< K5~  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then Dl C\sm  
            Exit Sub (<M^C>pldf  
        End If dA,irb I0W  
    End If 3[q&%Z.  
     +65OR'd  
    '空行 F; upb 5  
    If Len(pTEXT) <= 2 Then s*'L^>iZ  
        Exit Sub )"( ojh  
    End If JFOto,6L:  
     |gXtP-  
         hz:^3F`>/&  
    '是否为表格中的文字 #+VH]7]  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then MmIVTf4  
        ParaType = "表格内容" q%H`/~AYM  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) !Cqm=q{K  
        If k = 1 Then oZM6% -@qi  
            ParaType = "表格首行" ~\vGwy  
        End If z+@ CzHCN  
        Exit Sub -dRnozs6W  
    End If _(J;!,  
     NO$n-<ag  
    '例外情况：脚注 7JC^+ rk  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then GCrIa Z  
        ParaType = "脚注" QuF76&)7  
        Exit Sub u_kcuN\Sq  
    End If ^O>G?a  
     {?2jvv  
    '例外情况：尾注 kXj rc  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then T6/d[SH>  
        ParaType = "尾注" rw CFt6;v  
        Exit Sub |X}H&wBWo  
    End If (I<]@7>  
     !T+jb\O_  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then [cJQ"G '  
        ParaType = "页眉页脚" z-9@K<`H  
        Exit Sub ]V*ku%L0  
    End If $O\I9CGr$  
     i 4sd29v  
     0^%\! Xxq  
    With regEX ? PIq/[tk  
        .Global = True @.rVg XE=!  
         ';H"Ye:D=7  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" g(X-]/C{  
        If regEX.Test(pTEXT) Then }Iyr u3M][  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") bIvF5d>9#K  
            TitleString = regEX.Replace(pTEXT, "$3") L&D+0p^lI  
            TitleNo = regEX.Replace(pTEXT, "$1") 3HtLD5%Q  
            ParaType = "章" ,(1n(FZ  
            Exit Sub T/[8w  
        End If U,G!u=+  
         ` u|8WK:  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" S7|6dwQ&  
        If regEX.Test(pTEXT) Then 'A^;P]y  
            ParaType = "一级标题" 4Sj;38F .1  
            regEX.Execute (pTEXT) 72i ]`   
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") m7~<z>5$  
            TitleString = regEX.Replace(pTEXT, "$3") Cx N]fo  
            TitleNo = regEX.Replace(pTEXT, "$1") w@K4u{|  
            Exit Sub Sn o7Ru2  
        End If w)Rtt 9  
         #=}dv8  
        '全角或半角括号中的数字 BIu%A]e"  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" sObH#/l`  
        If regEX.Test(pTEXT) Then <V> [H7  
            ParaType = "二级标题" n jfh4}g:  
            regEX.Execute (pTEXT) *.'9eC0s  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") tQ:g#EqL9B  
            TitleString = regEX.Replace(pTEXT, "$5") B/:+(|  
            TitleNo = regEX.Replace(pTEXT, "$2") 3Jt7IM!9[  
            Exit Sub ;f]p`!] 3  
        End If WA'&0i4  
         O?p8Gjf  
        '阿拉伯数字  1. 2. jwP}{mi*  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" X jJV  
        If regEX.Test(pTEXT) Then g Kp5*  
            ParaType = "三级标题" ^[UWG^d  
            regEX.Execute (pTEXT) Z`FEB0$  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 jruXl>T!U  
            TitleString = regEX.Replace(pTEXT, "$3") B #[UR Z9S  
            TitleNo = regEX.Replace(pTEXT, "$1") AD$$S.zoD<  
            Exit Sub UxGr+q  
        End If [>P9_zID  
         Mz?xvP?z  
        '全角或半角括号中的阿拉伯数字 N}$$<i2o  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" 96V@+I  
        If regEX.Test(pTEXT) Then P4\{be>e  
            ParaType = "四级标题" z XI [f  
            regEX.Execute (pTEXT) E1 | >O  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") E?VPCx  
            TitleString = regEX.Replace(pTEXT, "$5") i146@<\G{P  
            TitleNo = regEX.Replace(pTEXT, "$2") 98c##NV(7|  
            Exit Sub &1=J e$,  
        End If |*G$ilu  
         Ffv v8x  
        '表格名称 9EPE.+ns  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" xH,D bAC;  
        If regEX.Test(pTEXT) Then fX:)mLnO/  
            ParaType = "表格标题" YsX&]4vzm  
            regEX.Execute (pTEXT) \+?>KpE,b  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) v?BVUH>#9  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) Lc&L F*  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) ( M > C  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 zRO-oOJ  
            Exit Sub WFGcR9mN?  
        End If >e g8zN  
         a\K__NCrX  
        '图片名称 /mi9 q  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" 9/8#e+L  
        If regEX.Test(pTEXT) Then |JUb 1|gi  
            ParaType = "图片标题" SxX2+|0g`g  
            regEX.Execute (pTEXT) uTWij4)a  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") j{U#g8  
            TitleString = regEX.Replace(pTEXT, "$3") U@ ;W^Mt  
            TitleNo = regEX.Replace(pTEXT, "$1") @ij8AGE:  
            Exit Sub xJ-(]cO'  
        End If yN'< iTh  
         u~uR:E%'C  
        '参考文献 fbl8:c)I  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 d9j+==S <  
        If regEX.Test(pTEXT) Then {Df97n%h;  
            ParaType = "文献条目" uG5RE  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") -\6"; _Y  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") 1 #zIAN>  
            Exit Sub N5ph70#y3  
        End If $0kuR!U.N  
         )aV\=a |A  
        prfx = Left(pTEXT, 2) +hUS sR&  
        If prfx = "注：" Or prfx = "注:" Then gs xT  
            ParaType = "图表注解" t; 3n  
            Exit Sub KA[8NPhzZ  
        End If k$ ya.b<X/  
         \n&l  
         $uPM.mPFE  
        ParaType = "正文" 5B| &+7dCw  
         /~8<;N>,+  
    End With '8k{\>  
End Sub  (0wQ [(  
^~p^N <  
Sub ConvertListToOrdinary() ^R g=*L  
    Dim st As Paragraph i 4}4U  
    With ActiveDocument @;6I94Bp  
        For i = .Paragraphs.Count To 1 Step -1 UQ7E7yY#  
            Set st = .Paragraphs(i) RJYB=y8l  
            lst = st.Range.ListFormat.ListString "M-zBBY]  
            If lst <> "" Then %OV)O-  
                st.Range.ListFormat.RemoveNumbers bNH72gX2Yh  
                st.Range.InsertBefore lst & " " mJ'Q9x"  
            End If g9T9TQ-O  
        Next P' ";L6h  
    End With -a[[1  
    Set st = Nothing ak SUk)}e  
End Sub IIZu&iZo \  
Bq l 5=p  
Private Sub UserForm_Activate() \zdY$3z  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" tny^sG/'  
    Me.lbTotal.Font.Bold = True K)D5%?D  
    Me.txtStatus.Visible = False hc2AGeZr  
    Me.cmdCheck.Enabled = True \! *3bR  
H3}eFl=i2  
End Sub ?k|}\l[X1  
$] gwaJ:  
=DL |Q  
Sub CheckSuperScript() =6sA49~M  
    Selection.Find.ClearFormatting Q5ZZ4`K!  
    Selection.Find.Replacement.ClearFormatting ZaNZUVBh  
    With Selection.Find 4!q4WQ ;  
        .Text = "[【\[［〖](*)[】\]〗］]" %2S+G?$M?  
        .Replacement.Text = "[\1]" f;PPB@ :`$  
        .Replacement.Font.Superscript = True 0 P+B-K>n  
        '.Replacement.Font.Color = wdColorBlue I^u$H&  
        .Forward = True 5qe6/E@  
        .Wrap = wdFindContinue ~ z< &vQ=  
        .FORMAT = True Q; V *M  
        .MatchCase = False %(P\"hE'  
        .MatchWholeWord = False /'[m6zm]  
        .MatchByte = False L~Hl?bK  
        .MatchAllWordForms = False $i|c6&  
        .MatchSoundsLike = False C;m,{MD  
        .MatchWildcards = True ^(Y}j8sj  
    End With b`9J1p.;  
    Selection.Find.Execute Replace:=wdReplaceAll Iu)76Y@=5=  
End Sub Dc1tND$X3g  
5PcN$r"P  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) &8!~H<S  
    bContinue = False %8L>|QOX  
    Set regEX = Nothing Ar;uq7c,G  
End Sub 7U3b YU~;  
>~%EB?8  
Sub CeateOrModifyStyle() i"B q*b@  
'  9Kpzj43  
' v^;p]_c~2  
Dim stl As Style Mnv2tnU]  
     J{69iQ  
    Options.Pagination = False 'j#J1 xwJ  
     rnkq.  
    On Error Resume Next UI?AM 34  
    For Each stl In ActiveDocument.Styles pv}k=wqJ1  
        stl.Delete A >bpP  
    Next LH@x r\^  
    On Error GoTo 0 \{GBaMwG~  
     ]Qu.-F#g  
    Set stl = Nothing 'Nqa=_<WW  
     g?9IS,Gp  
    DoEvents !{WIN%O  
    On Error Resume Next I6.!0.G  
     doX8Tq   
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph K1_]ne)  
     ^zfO=XN  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph 2 &(w\#'  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph sC< B  
     Y K WiZ  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph ytDp 4x<W)  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph nt5x[xa  
     2 1LJ3rW_  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph `R\nw)xq  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph US.7:S-r"  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph =*[98%b   
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph &*e(  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph h1A/:/_M6  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph t_+Xt$Q7C  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph [9lfR5=Xw[  
     NCXr$ES{  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph ./KXElvQ%  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph l>kREfHq!{  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph #^] v5s  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph %XQ!>BeE  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph i3SrsVSG  
     4Y>J,c  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph 2_i9 q>I  
    On Error GoTo 0 )-u0n] ,  
    DoEvents }+m")=1{  
     2!Gb4 V  
    'BaseStyle MS=zG53y  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False O:I"<w9_1  
    With ActiveDocument.Styles("BaseStyle").Font Cj +{%^#  
        .NameFarEast = "宋体" J% b`*?A  
        .NameAscii = "Times New Roman" kp$w)%2JW  
        .NameOther = "宋体" +HpPVuV  
        .Size = 10.5 T'K6Q cu  
        .Bold = wdUndefined $vR#<a,7>  
        .Italic = wdUndefined rsGQ : c  
        .Subscript = wdUndefined 5;alq]m7  
        .Subscript = wdUndefined J^Mq4&  
         fPA5]a9  
        .Underline = wdUnderlineNone drM@6$k  
        .UnderlineColor = wdColorAutomatic \ y^Ho1Fj  
        .StrikeThrough = False JO&~mio  
        .DoubleStrikeThrough = False [bK5q;#U4  
         SKUri  
        .Outline = False >QcIrq%=  
        .Emboss = False "R!) "B==  
        .Shadow = False $ Ith8p~  
        .Hidden = False =dp(+7Va  
        .SmallCaps = False !EuqJjh  
        .AllCaps = False \\D(St  
        .Color = wdColorAutomatic C||9u}Q<  
        .Engrave = False d41DcgG'j(  
        .Scaling = 100 >Av[`1a2F  
        .Kerning = 1 6F)^8s02h  
        .Animation = wdAnimationNone CI}zu;4|  
        .DisableCharacterSpaceGrid = False  45qSt2  
        .EmphasisMark = wdEmphasisMarkNone Pw :{  
    End With lG>,&(  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat nG~#o  
        .LeftIndent = 0 h,palP6^  
        .RightIndent = 0 `a+"[%  
        .SpaceBefore = 0 w y\0o  
        .SpaceBeforeAuto = False ; Pd nE~  
        .SpaceAfter = 0 rZi\  
        .SpaceAfterAuto = False "J_#6q*  
         5.TeH@(  
        .LineSpacingRule = wdLineSpaceSingle PL}c1Ud  
        .Alignment = wdAlignParagraphJustify X%sMna)  
         x Ilo@W6  
        .WidowControl = False C -:lM1  
        .KeepWithNext = False *URBx"5XZ  
        .KeepTogether = False WxrG o o^  
        .PageBreakBefore = False CC~:z/4,N  
        .NoLineNumber = False YTk"'q-  
         kgl7l?|O  
        .FirstLineIndent = CentimetersToPoints(0) oR1HJ2>Z1  
        .OutlineLevel = wdOutlineLevelBodyText L T2UY*  
        .CharacterUnitLeftIndent = 0 Z+%w|Sx  
        .CharacterUnitRightIndent = 0 ^{m&2l&87  
        .CharacterUnitFirstLineIndent = 0 e{} oQK  
        .LineUnitBefore = 0 oLh 2:c  
        .LineUnitAfter = 0 ;dR4a@  
        .AutoAdjustRightIndent = True d OYEl<!J  
        .DisableLineHeightGrid = True )UoF *vC(  
         AY B~{  
        .FarEastLineBreakControl = True t!2 85J8tn  
        .WordWrap = True *p P&$!bH%  
        .Hyphenation = False *%#Sa~ iPo  
         YPU*T&~  
        .HangingPunctuation = True {~y,.[Ga  
        .HalfWidthPunctuationOnTopOfLine = True o]jPG  
        .AddSpaceBetweenFarEastAndAlpha = True M#CYDEB  
        .AddSpaceBetweenFarEastAndDigit = True <| kS`y  
        .BaseLineAlignment = wdBaselineAlignBaseline |Q\O% cb  
    End With -yJ%G1R  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False F3Y/Miw  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll |({ M8!BS  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese #sRkKl|  
    ActiveDocument.Styles("BaseStyle").NoProofing = False Y;uQq-CP  
     ih[!v"bv  
    '一级标题题样式 \Aa{]t  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ^F?}MY>  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" ;iq58.  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False Ig{ 3>vB  
    With ActiveDocument.Styles("QLNU一级标题").Font e%wzcn  
        .NameFarEast = "黑体" |}07tUq  
        .NameAscii = "Arial Black" x &4gy%b  
        .NameOther = "黑体" &$V&gAN  
        .Name = "黑体" 'Y;M%  
        .Size = 16              '三号 Pf/_lBtL  
        .Bold = True #=81`u  
        .Italic = wdUndefined _=Eb :n+X  
        .Subscript = wdUndefined pOKs VS%fT  
        .Superscript = wdUndefined 5Kw$QJ/  
    End With tF&g3)D:NV  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat @}oY6cW;B*  
         }NgevsV>;  
        .LeftIndent = CentimetersToPoints(0) Xk]:]pl4W  
        .RightIndent = CentimetersToPoints(0) _s%;GWj  
        .FirstLineIndent = CentimetersToPoints(0) t~0!K;nn  
         a:V2(nY  
        .LineSpacingRule = wdLineSpaceSingle yOdh?:Imv  
        .Alignment = wdAlignParagraphCenter 1!P\x=Nn_  
         i .GJO +K  
        .WidowControl = True #<k L.e[  
        .KeepWithNext = True O`rKxP  
        .KeepTogether = True ~B704i  
        .OutlineLevel = wdOutlineLevelBodyText = 9K5f# ;e  
         Gkr?M ^@K  
        .LineUnitBefore = 0.5 .I#ss66h  
        .LineUnitAfter = 0.5 5IJm_oy  
    End With &9ZrZ"]  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False ,jc')#]9B  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll `m_ ('N  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese \YZ7  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True  qH9bo-6  
    DoEvents 1<(('H  
     5?=haGn  
    '二级 # ^q87y  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") a^5.gfzA  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" x Rp;y*  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False Kwmtt  
    With ActiveDocument.Styles("QLNU二级标题").Font TaqqEL  
        .NameFarEast = "黑体" /qwl;_Jcf  
        .NameAscii = "Arial Narrow"  z:p;Wm  
        .NameOther = "黑体" _t7}ny[  
        .Name = "黑体" ri?k}XnhX  
        .Size = 15        '小三号 U1y8Y/  
        .Bold = False  nPRv.h  
        .Outline = False ^lP;JT?  
        .Italic = wdUndefined v\}s(X(J  
        .Subscript = wdUndefined n8RE  
        .Superscript = wdUndefined 6M^NZ0~J  
    End With j-%@A`j;  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat O>tz;RU  
        .LeftIndent = CentimetersToPoints(0) @GyxOc@6  
        .RightIndent = CentimetersToPoints(0) pcC/$5FQ  
        .FirstLineIndent = CentimetersToPoints(0) (/;<K$u*h  
         +!JTEKHKH  
        .LineSpacingRule = wdLineSpaceSingle NSV;R~"  
        .Alignment = wdAlignParagraphLeft AC}[Q p!  
         ar[I| Q_  
        .WidowControl = True 0tS < /G8  
        .KeepWithNext = True M8y:FDX  
        .KeepTogether = True Pz77\DpFi  
        .PageBreakBefore = False =Y]'wb  
        .OutlineLevel = wdOutlineLevelBodyText l RM7s(^l  
         Ss$/Bh>hN  
        .LineUnitBefore = 0.5 |J^}BXW'^)  
        .LineUnitAfter = 0.5 6!T9VL\=H  
         D~T;z pS  
    End With ^NB\[ &  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False q?0&&"T}  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll *2^+QKDG  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese - xE%`X  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True Zjq(]y  
    DoEvents 5oTj^W8M(  
     g=)OcTd#  
    '三级标题样式 vP @\"  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") TO5#iiM)  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" ur@"wcl"V  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False $s S;#r0  
    With ActiveDocument.Styles("QLNU三级标题").Font AbA_s I<;  
        .NameFarEast = "宋体" UfxY D  
        .NameAscii = "Times New Roman" L}hc|(:  
        .NameOther = "黑体" g)`;m%DG6  
        .Name = "黑体" s.IYPH|pn  
        .Size = 14               '四号 sgfci{~  
        .Bold = False d$}!x[g$Z  
        .Outline = False 4 >`2vb  
        .Italic = wdUndefined 30fqD1_{  
        .Subscript = wdUndefined p W,)yo4  
        .Superscript = wdUndefined VNT*@^O_=  
    End With F[5sFk M7  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat [~Vj(H=KwI  
        .LeftIndent = CentimetersToPoints(0) 'Z}3XVZEN  
        .RightIndent = CentimetersToPoints(0) m3']/}xHO  
        .FirstLineIndent = CentimetersToPoints(0) J-U5_>S  
         /!A?>#O&.  
        .LineSpacingRule = wdLineSpaceSingle $)v`roDD.  
        .Alignment = wdAlignParagraphLeft  &peUC n  
         {Q~HMe`,  
        .WidowControl = True w'Vm'zo  
        .KeepWithNext = True rUxjm\  
        .KeepTogether = True bD:[r))#e  
        .PageBreakBefore = False GC3WB4iY@U  
        .OutlineLevel = wdOutlineLevelBodyText s,|"s|P  
         &$NYZ3?9  
        .CharacterUnitLeftIndent = 0 }v4T&/vt-  
        .CharacterUnitRightIndent = 0 KSgYf;  
        .CharacterUnitFirstLineIndent = 2 s%/x3anz=  
         <_ruVy0]  
        .LineUnitBefore = 0.5 ,~nrNkhp  
        .LineUnitAfter = 0 {Lg]chJq?  
    End With 6+LBs.vl}  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False r- 8fvBZ5  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll HE{JiAf  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese m/bP`-/,  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True < .knM  
    DoEvents h#~\-j9>  
     Y9r##r+  
    '四级标题样式 ; nc3O{rU  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 08MY=PC~R  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle"  sg9  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False Q^} I b[  
    With ActiveDocument.Styles("QLNU四级标题").Font A?+cdbxJw  
        .NameFarEast = "宋体" g/(3D  
        .NameAscii = "Times New Roman" pybE0]   
        .NameOther = "宋体" ESyb34T`  
        .Name = "宋体" Z!foD^&R  
        .Size = 12               '小四号 X4dxH_@  
        .Bold = True TJ_pMU  
        .Outline = False 2kkqPBc_  
        .Italic = wdUndefined ojG;[@V  
        .Subscript = wdUndefined y}*J_7-  
        .Superscript = wdUndefined wi-F@})f#  
    End With i}=n6  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat EGw;IFj)  
         ZGsI\3S  
        .LeftIndent = CentimetersToPoints(0) ,vcd>" PK  
        .RightIndent = CentimetersToPoints(0) khQ@DwO*\=  
        .FirstLineIndent = CentimetersToPoints(0) KJYcP72P  
         {g7~e {2  
        .LineSpacingRule = wdLineSpaceSingle FByA4VxB  
        .Alignment = wdAlignParagraphLeft t$EL3U/(  
         S>;+zVF]  
        .WidowControl = True +cwuj  
        .KeepWithNext = True p?V@P6h  
        .KeepTogether = True ?8!\VNC.  
        .PageBreakBefore = False H~<w*[uT  
        .OutlineLevel = wdOutlineLevelBodyText #D ]P3  
         E@/* eJ  
        .CharacterUnitLeftIndent = 0 PR3&LI;B*  
        .CharacterUnitRightIndent = 0 KbGz3O'u  
        .CharacterUnitFirstLineIndent = 2 ZE:!>VXa87  
         r0/aw  
        .LineUnitBefore = 0 5#U=x ,7e  
        .LineUnitAfter = 0 ?^gq  
         77H" =  
    End With zFm:=,9  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False ZbfpMZ g  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll .X\9vVJ  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese Csf!I@}Z  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True ^R h`XE  
    DoEvents b<27XZ@  
     ]Ei*I}  
    '正文校式 "L&84^lmf  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") m"f3hd4D_q  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" MRN=-|fV^  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False 21sXCmYR,t  
    With ActiveDocument.Styles("QLNU正文").Font tRVz4fk[G  
         ` #; "  
        .NameFarEast = "宋体" t|?eNKVV9'  
        .NameAscii = "Times New Roman" Qpocj:  
        .NameOther = "宋体" S~hoAl"xb/  
        .Name = "宋体" @bF4'M  
         YLv5[pV  
        .Size = 12               '小四号  Y+nk:9  
         C17$ qdV/  
        .Bold = wdUndefined [9d4 0>e  
        .Italic = wdUndefined gaWJzK Yc_  
        .Subscript = wdUndefined ^E&WgXlb  
        .Superscript = wdUndefined %V|n2/O Y  
         }!QVcu"+t/  
        .Outline = False [79iC$8B|  
        .Emboss = False NnRX0]  
        .Shadow = False :kKdda<g#  
        .Hidden = False k *K.ZS688  
         o0 |T<_  
        .DisableCharacterSpaceGrid = True a)QSq<2*  
    End With +lw8YH  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat E RjMe'q4  
         ~v6]6+   
        .LeftIndent = CentimetersToPoints(0) cnz+%Y N  
        .RightIndent = CentimetersToPoints(0) w&x$RP  
        .FirstLineIndent = CentimetersToPoints(0) c>%%'c  
         v(P5)R,  
        .LineSpacingRule = wdLineSpaceExactly h'.B-y~c  
        .LineSpacing = 20 vw6DHN)k  
        .Alignment = wdAlignParagraphLeft C;I:?4  
         Dg}$;PK  
        .WidowControl = False L>&9+<-B  
        .KeepWithNext = False Y2aN<>f  
        .KeepTogether = False G]zyx"0Sqb  
        .PageBreakBefore = False [w{x+6uX'  
        .Hyphenation = False LV@tt&|N  
         "0aJE1) p:  
        .OutlineLevel = wdOutlineLevelBodyText i\dd  
         S b.%B^O  
       5pH6]$  
        .CharacterUnitLeftIndent = 0 q$'D}OHT  
        .CharacterUnitRightIndent = 0 *h M5pw  
        .CharacterUnitFirstLineIndent = 2 F% z$^ m-  
         a: 2ezxP  
        .LineUnitBefore = 0 _sK{qQxvM=  
        .LineUnitAfter = 0 88On{Kk.v  
        .SpaceBefore = 0 |_m N:(3  
        .SpaceAfter = 0 +?v2MsF']  
         Kh7C7[&  
        .DisableLineHeightGrid = True 9@>Q7AUCQ  
    End With %[x PyqX  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False gX]ewbPDQ  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll zALtG<_t  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese Xbu P_U'  
    ActiveDocument.Styles("QLNU正文").NoProofing = True f~:wI9  
    DoEvents Ejj+%)n.  
     w>wzV=R  
    '图片段落样式 Z '~Ie~  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") 9`td_qh  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" p&2oe\j$,  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False  vg8Yc  
    With ActiveDocument.Styles("QLNU图片段落").Font ttA'RJ  
        .Size = 12               '小四号 +1nzyD_E  
        .Italic = wdUndefined k]rc -c-  
        .Subscript = wdUndefined .oqe0 $I  
        .Superscript = wdUndefined >e!Y63`  
    End With H,EGB8E2  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat 6t4Khiwx  
         0M!GoqaA  
        .LeftIndent = CentimetersToPoints(0) zs.@=Z"  
        .RightIndent = CentimetersToPoints(0) Hm'aD2k  
        .FirstLineIndent = CentimetersToPoints(0) g\1|<jb3  
         k:8NOx|s"  
        .LineSpacingRule = wdLineSpaceSingle =Q#d0Q  
        .Alignment = wdAlignParagraphCenter <UwYI_OX  
        .KeepWithNext = True $]gflAe2  
        .OutlineLevel = wdOutlineLevelBodyText mo"1|Q&  
         @plh'f}  
        .CharacterUnitLeftIndent = 0 (,D:6(R7t  
        .CharacterUnitRightIndent = 0 SBg|V  
        .CharacterUnitFirstLineIndent = 0 zy`T! $  
         }H:wgy`  
        .LineUnitBefore = 0 <>H^:iqn  
        .LineUnitAfter = 0 `(M0I!t  
    End With INY?@in  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False ,olP}  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll ^s\T<;  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese h_5CWQSi  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True {uurLEe?  
    DoEvents 5c$\DZ(  
     S]Ye`  
     1D1qOg"LE  
    '第X章 rV}&G!V_t  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") *p0Kw>  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" M9~6ry-_  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False .Bojb~zt  
    With ActiveDocument.Styles("QLNU章节标题").Font ~\+Bb8+hpJ  
        .NameFarEast = "黑体" (0["|h32,  
        .NameAscii = "Arial Black" QzxEkTc;  
        .NameOther = "Arial Black" 9V|) 3GF  
        .Name = "黑体" N(%(B  
        .Size = 16 &qP0-x)  
        .Bold = True o~M=o:^nH  
        .UnderlineColor = wdColorAutomatic 1E=E ?$9sg  
        .Outline = False fR]KXfZ  
        .Italic = wdUndefined 7Q9| P?&:z  
        .Subscript = wdUndefined r@EHn[w  
        .Superscript = wdUndefined sGx3O i   
        .Scaling = 100 S0`u!l89(  
        .DisableCharacterSpaceGrid = True W'6sY@0m  
    End With >qZl s'  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat <c$rfjM+JU  
        .LineSpacingRule = wdLineSpaceSingle a U*}.{<!  
        .Alignment = wdAlignParagraphCenter m qwJya  
        .WidowControl = True #, h0K  
        .KeepWithNext = True Vwb_$Yi+]  
        .KeepTogether = True c7D{^$L9 v  
        .PageBreakBefore = True xdh%mG:?  
        .OutlineLevel = wdOutlineLevelBodyText h@dy}Id  
         S$ k=70H  
        .LeftIndent = CentimetersToPoints(0) QUDpAW  
        .RightIndent = CentimetersToPoints(0) og&-P=4O  
        .FirstLineIndent = CentimetersToPoints(0) s8dP=_ `  
         7^C&2k 5G  
        .CharacterUnitLeftIndent = 0 & gcZ4 gpH  
        .CharacterUnitRightIndent = 0 :eIQF7-  
        .CharacterUnitFirstLineIndent = 0 gYBMi)`RT  
         PMT}fg  
        .LineUnitBefore = 1 ~ R eX$9  
        .LineUnitAfter = 0.5 $HCgawQ  
         $b)t`r+  
        .AutoAdjustRightIndent = False ]QGo(+  
        .DisableLineHeightGrid = True T+oOlug  
        .FarEastLineBreakControl = True mbns%%GJU  
        .WordWrap = True g3 Oro}wt6  
    End With $\q.Z b  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False 0 \V)DV.i  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll -$$mrU  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese 0Oa&vx  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True e.fxB  
    DoEvents L tUvFe  
     [5]n,toAh  
    '表格标题 H5*#=It  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") "R"{xOQl  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle"  dZX;k0  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False biV NZdA  
    With ActiveDocument.Styles("QLNU表格标题").Font R_b4S%jhx  
        .NameFarEast = "楷体" &Q*  7  
        .NameAscii = "Arial" <[K3Prf C  
        .Name = "楷体" 13pu{Xak  
        .Size = 10.5 Bru];%Qg%  
        .Bold = True 4s@Tn>%SP  
        .Underline = wdUnderlineNone Ns]$+|  
        .Italic = wdUndefined 0rvB jlFT  
        .Subscript = wdUndefined Q%524%f$  
        .Superscript = wdUndefined bd H+M?k  
        .Color = wdColorAutomatic "]|7%]  
    End With ]D4lZK>H  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat +S WtHj7e  
         LTB rg[X  
        .LineSpacingRule = wdLineSpaceSingle !E|m'_x*  
        .Alignment = wdAlignParagraphCenter Q\>mg*79  
        .KeepWithNext = True BkP4.XRI  
        .KeepTogether = True MRg Ozg  
        .OutlineLevel = wdOutlineLevelBodyText nu Vux5:  
          DTa!vg  
        .LeftIndent = CentimetersToPoints(0) Ze <)B *  
        .RightIndent = CentimetersToPoints(0) Tv6y +l  
        .FirstLineIndent = CentimetersToPoints(0)  : 76zRF  
         Yr>0Qg],  
        .CharacterUnitLeftIndent = 0 (\o4 c0UzK  
        .CharacterUnitRightIndent = 0 2A:&Cqo  
        .CharacterUnitFirstLineIndent = 0 ]E)\>Jb  
         P@D\5}*6  
        .LineUnitBefore = 1 r&IDTS#  
        .LineUnitAfter = 0 C DoD9Hq,  
         w|Ry) [  
    End With j+e~ tCcN/  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False UyFC\vQ  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll U8-OQ:2.  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese :^U>n{   
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True aKE`nA0\B  
    DoEvents T 2_iH=u  
C_JO:$\rE  
    '表格首行 8nWPt!U:  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") R x(yn  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False 5 D=r7  
    With ActiveDocument.Styles("QLNU表格首行").Font hy>0'$mU  
        .NameFarEast = "楷体" T8&eaAoo  
        .NameAscii = "Times New Roman" GFju:8P?  
        .Name = "楷体" !c dY`f6x  
        .Size = 9 TZGk[u^*  
        .Bold = True >TiE Y MW  
        .Underline = wdUnderlineNone "$D'gS oYe  
        .Italic = wdUndefined Mdh]qKw  
        .Subscript = wdUndefined /;{L~f=et)  
        .Superscript = wdUndefined mn\A)R Q  
    End With OMM5ALc(F  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat  v7Ps-a)  
        .LineSpacingRule = wdLineSpaceSingle sVGQ SJJ5  
        .Alignment = wdAlignParagraphCenter 62MQ+H  
         sPVE_n  
        .LeftIndent = CentimetersToPoints(0) RR's W@  
        .RightIndent = CentimetersToPoints(0) |3 I ug  
        .FirstLineIndent = CentimetersToPoints(0) q`?M+c*F  
         v+}${h9  
         @4MQ021(  
        .CharacterUnitLeftIndent = -0.5 G"tlJ7$myQ  
        .CharacterUnitRightIndent = -0.5 A}}dc:$C  
        .CharacterUnitFirstLineIndent = -0.5 \98N8p;,I  
         8I Ip,#%v  
        .LineUnitBefore = 0 yPY{ZADkQ  
        .LineUnitAfter = 0 o 0T1pGs'  
        .SpaceBefore = 0 Y]5spqG  
        .SpaceAfter = 0 Q*M(d\Vs  
         i=1crJ:  
    End With ~ch%mI~  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False M2c7 |  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll qHtIjtt[q  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese L62%s[  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True Z/!awf>  
    DoEvents 0Lb{HLT  
z 2jC48~  
    '表格内容 o';/$xrH  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") ,p /{!BX  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False UR9\g(  
    With ActiveDocument.Styles("QLNU表格内容").Font @WJ\W`P  
        .NameFarEast = "楷体" <1B+@  
        .NameAscii = "Times New Roman" a>rDJw:  
        .Name = "楷体" 9_?e, Q  
        .Size = 9 p w5{=bD  
        .Bold = False I>##iiKN  
        .Underline = wdUnderlineNone ~<~ ~C#R  
        .Italic = wdUndefined Od ^Sr4C  
        .Subscript = wdUndefined 3o0ZS^#eB  
        .Superscript = wdUndefined z&Aya*0v`  
    End With Fn iht<  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat {jH'W)nR  
        .LineSpacingRule = wdLineSpaceSingle "RM\<)IF  
        .Alignment = wdAlignParagraphCenter w^("Pg`  
         OZd (~E  
        .LeftIndent = CentimetersToPoints(0) T\(k=0R M  
        .RightIndent = CentimetersToPoints(0) gFrNk Uqp  
        .FirstLineIndent = CentimetersToPoints(0) e /1x/v'  
         >]&Ow9-  
        .CharacterUnitLeftIndent = -0.5 }/h&`0z `  
        .CharacterUnitRightIndent = -0.5 Yi)s=Q:  
        .CharacterUnitFirstLineIndent = -0.5 4Gh\T`=  
        .LineUnitBefore = 0 KU*aJl_n,  
        .LineUnitAfter = 0 .gzfaxi  
        .SpaceBefore = 0 2Q\\l @b\  
        .SpaceAfter = 0 F_m' 9KX4E  
    End With BFg&@7.X  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False # 5U1F[  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll !s?SI=B8  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese >\3\&[#"  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True co1aG,>"q  
    DoEvents a s('ZD.9  
0FY-e~xr  
    '图片标题 tbiM>qxB  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") KV$4}{  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" )B)f`(SA"<  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False 3Zl:rYD?  
    With ActiveDocument.Styles("QLNU图片标题").Font SWY  
        .NameFarEast = "楷体" 3"< 0_3?W  
        .NameAscii = "Times New Roman" nm& pn*1  
        .Name = "楷体" + d3  
        .Size = 10.5 %vm_v.Q4)  
        .Bold = True zx,9x*g  
        .Underline = wdUnderlineNone eO(U):C2  
        .Italic = wdUndefined 'TuaP `]<  
        .Subscript = wdUndefined T:zM]%Xh  
        .Superscript = wdUndefined A0U9,M  
        .Outline = False Dte5g),R  
        .Shadow = False 1_A_)l11  
        .Color = wdColorAutomatic ^Il*`&+?P  
    End With UqyW8TCf?  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat ,G5[?H;ZN  
        .LineSpacingRule = wdLineSpaceSingle &6 <a<S  
        .Alignment = wdAlignParagraphCenter @6UZC-M0  
         $evuL3GY#  
        .KeepWithNext = wdUndefined UV0[S8A  
        .KeepTogether = True s;=C&N5g  
        .OutlineLevel = wdOutlineLevelBodyText `'sD(e  
         V=% ;5/  
        .LeftIndent = CentimetersToPoints(0) +4 Pes  
        .RightIndent = CentimetersToPoints(0) esQ$.L  
        .FirstLineIndent = CentimetersToPoints(0) yN0`JI  
         ^jUw4Dj~-q  
        .CharacterUnitLeftIndent = 0 t*-c X  
        .CharacterUnitRightIndent = 0 X{Hh^H  
        .CharacterUnitFirstLineIndent = 0 kP^A~ZO.  
         #. [eZ[  
        .LineUnitBefore = 0 ;gSRpTS:  
        .LineUnitAfter = 0 _H@ATut  
    End With B2P@9u|9  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False g>;@(:e^/  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll >`SeX:  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese P9f`<o  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True J 7G-qF\  
    DoEvents ^G(Ee+PN@  
|#M|"7;2z  
    '目录项 %>_6&A{K,d  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") 5E"^>z  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" z7 gX@@T  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False j*Pq<[~  
    With ActiveDocument.Styles("QLNU目录项").Font k.K#i /t  
        .NameFarEast = "黑体" 3Jt# Mp  
        .NameAscii = "Times New Roman" l"1D' Hk  
        .NameOther = "Times New Roman" I[v`)T'_{  
        .Name = "黑体" % @+j@i`&  
        .Size = 10.5 D>@NY qMF  
        .Bold = False .-/IV^lGv  
        .Italic = wdUndefined 'L-DMNxBr  
        .Underline = wdUnderlineNone :$,MAQ'9  
        .Color = wdColorAutomatic !U>WAD9  
        .Superscript = wdUndefined f,Dic%$q  
        .Subscript = wdUndefined dFDf/tH  
    End With Z b$]9(RS  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat ,Kl?-W@  
         e0(aRN{W  
        .LineSpacingRule = wdLineSpaceSingle %lWOW2~R  
        .Alignment = wdAlignParagraphLeft uOJqj{k_."  
         *o4a<.hd2  
        .WidowControl = False X<Z(,B  
        .KeepWithNext = False qt*+ D  
        .KeepTogether = False )RvX }y-  
        .PageBreakBefore = False Bt(<Xj D  
        .NoLineNumber = False >5: O%zQ@  
        .OutlineLevel = wdOutlineLevelBodyText ~6@`;s`[Y  
         {7@*cB qN  
        .LeftIndent = CentimetersToPoints(0) 3\Q9>>  
        .RightIndent = CentimetersToPoints(0) S\< i`q  
        .FirstLineIndent = CentimetersToPoints(0) q~[s KAh  
         +kQ=2 dva  
        .CharacterUnitLeftIndent = 0  ~IjID  
        .CharacterUnitRightIndent = 0 uf9&o#  
        .CharacterUnitFirstLineIndent = 0 MuQ)F-GSUu  
         D9A%8o  
        .LineUnitBefore = 0 {?IbbT  
        .LineUnitAfter = 0 i,a"5DR8  
    End With RR ^7/-  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False #Xox2{~  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll ?6&8-zt1?  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot `o295eiY(b  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese L YF|  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True :S_]!'H  
    DoEvents C!Srv 7  
     c$71~|-[  
    '参考文献 O>1Cx4s5  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") 3B 'j?+A  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" {vCtp   
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False ) y;7\-K0  
    With ActiveDocument.Styles("QLNU参考文献").Font i2  c|_B  
        .NameFarEast = "宋体" htR.p7&Tn  
        .NameAscii = "Times New Roman" O0xqA\  
        .NameOther = "Times New Roman" :op_J!;  
        .Name = "Times New Roman" u;-fG9xs  
        .Size = 12 3]*1%=~X/  
        .Bold = False 9jqsEd-SW  
        .Italic = wdUndefined n+hL/aQ+  
        .Subscript = wdUndefined /*,_\ ;  
        .Superscript = wdUndefined A$5M.  
        .Underline = wdUnderlineNone O^row1D_  
        .UnderlineColor = wdColorAutomatic D_0Vu/v  
        .Color = wdColorAutomatic rf:H$\yw  
        .Engrave = False _W_< bI34  
    End With =3w;<1 ?'  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat ""a$[[ %WC  
         ; %^=V#  
        .LineSpacingRule = wdLineSpaceExactly Yg3nT:K_Y&  
        .LineSpacing = 16 H(K PU1lDw  
        .Alignment = wdAlignParagraphLeft #0[^jJ3J  
        .WidowControl = False y^`JWs,  
        .KeepWithNext = False 2wIJ;rh  
        .KeepTogether = False bIyg7X)/  
        .PageBreakBefore = False X_hDU~5{wC  
        .OutlineLevel = wdOutlineLevelBodyText C` ky=  
          qrw  
        .LeftIndent = CentimetersToPoints(0) J:glJ'4E  
        .RightIndent = CentimetersToPoints(0) PBCGC^0{  
        .FirstLineIndent = CentimetersToPoints(0) Pap6JR{7  
         aE 9Y |6  
        .CharacterUnitLeftIndent = 0 Z%B6J>;uM  
        .CharacterUnitRightIndent = 0 &k%>u[Bo  
        .CharacterUnitFirstLineIndent = -2 QO(F%&v++  
         l[ $bn!_ e  
        .LineUnitBefore = 0 A8*zB=C  
        .LineUnitAfter = 0 tLa%8@;'$  
        .SpaceBefore = 0 1VlU'qY  
        .SpaceAfter = 0 ~Ss,he]Er  
         ZDbe]9#Xh  
    End With I*3}erT  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False *Z_4bR4Q  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll n*=#jL  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS jd-]q2fQ|  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True o#,^7ln  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese 60u_,@rV  
    DoEvents xi(\=LbhY  
7\,9Gcv1  
    ' ~r5S{&  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") Lm2) 3;ei  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" z77>W}d  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False ($[+dR  
    With ActiveDocument.Styles("QLNU论文题目").Font .E}lAd.Mn  
        .NameFarEast = "黑体" aYb97}kI  
        .NameAscii = "Arial Black" #Ir?v  
        .NameOther = "Arial Black" X]D,kKasG  
        .Name = "Arial Black" poxF`a6e+  
        .Size = 16 ~;#}aQYo  
        .Bold = False ;s/<wx-C  
        .Italic = wdUndefined pLtw|S'4  
        .Superscript = wdUndefined ()l3X.t,$  
        .Subscript = wdUndefined ={zTQ+7S`  
        .Underline = wdUnderlineNone 3>@VPMi  
        .UnderlineColor = wdColorAutomatic ufL<L;Z\;  
        .Color = wdColorAutomatic yW= +6@A4  
{XmCG%%L  
    End With O. (2  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat ]>VG}e~b  
        .LineSpacingRule = wdLineSpaceSingle tj[E!  
        .Alignment = wdAlignParagraphCenter ~s'tr&+  
        .WidowControl = True ")STB8kQ  
        .KeepWithNext = True oIj=ba(n1  
        .KeepTogether = True W H/.h$  
        .PageBreakBefore = True A!B.+p[ G  
        .NoLineNumber = False U*$xR<8v  
        .OutlineLevel = wdOutlineLevelBodyText d9M[]{  
         u6ULk<<\  
        .LeftIndent = CentimetersToPoints(0) F. SB_S<'  
        .RightIndent = CentimetersToPoints(0) 8$ u"92  
        .FirstLineIndent = CentimetersToPoints(0) <SI|)M,, 3  
         y]fI7nu&  
        .CharacterUnitLeftIndent = 0 ^F+7<$ 2  
        .CharacterUnitRightIndent = 0 6~x'~T  
        .CharacterUnitFirstLineIndent = 0 l t&(S)  
         =#S.t:HQ*  
        .LineUnitBefore = 1 Jq'8"  
        .LineUnitAfter = 1 daI_@kY"  
         1d<Uwb>  
        .BaseLineAlignment = wdBaselineAlignAuto ~! -JN}H m  
    End With 3>aEP5  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False \toU zTT  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll BA]$Fi.Mw  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS UgC65O2  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True bT aKB-  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese 96(Mu% l  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True Tz,9>uN  
    DoEvents Oti*"dV\::  
     |2u=3#Jp  
    '中文摘要 0yI1r7yNB+  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") ]2wxqglh)  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" aLGq<6Ja  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False 4}uOut  
    With ActiveDocument.Styles("QLNU中文摘要").Font <]M. K3>  
        .NameFarEast = "宋体" {4G/ HW28  
        .NameAscii = "Times New Roman" .PUp3X-  
        .NameOther = "Times New Roman" aIV / c  
        .Name = "Times New Roman" Ptv'.<-  
        .Size = 12 =\WF +r]V  
        .Bold = wdUndefined 5o dT\>Sn  
        .Superscript = wdUndefined fx{8ERo  
        .Subscript = wdUndefined T"_'sSI>tF  
        .Italic = wdUndefined !B}9gT  
        .Underline = wdUnderlineNone , ,{UGe 3  
        .UnderlineColor = wdColorAutomatic k6;bUOo  
        .Color = wdColorAutomatic yQD>7%x  
    End With Q,&Li+u|  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat Ic0Y  
        .LineSpacingRule = wdLineSpaceExactly '|zrzU=  
        .LineSpacing = 20 Q S&B"7;g  
        .Alignment = wdAlignParagraphLeft 1*TbgxS~W  
         hu.o$sV3;  
        .WidowControl = False 6(f 'P_*  
        .KeepWithNext = False ^Fco 'nlM  
        .KeepTogether = True "^n,(l*4x  
        .PageBreakBefore = False yijP  
        .NoLineNumber = False {7OHEArv  
        .OutlineLevel = wdOutlineLevelBodyText -SrZ^  
         +1!iwmch>  
        .LeftIndent = CentimetersToPoints(0) w#|L8VAh  
        .RightIndent = CentimetersToPoints(0) 0 Uropam  
        .FirstLineIndent = CentimetersToPoints(0) rR> X<  
         R}M ;, G  
        .CharacterUnitLeftIndent = 0 "s(~k  
        .CharacterUnitRightIndent = 0 l[38cF  
        .CharacterUnitFirstLineIndent = 2 :eVZ5?F  
        .LineUnitBefore = 0 >5t%_/yeB  
        .LineUnitAfter = 0 kO}&Oi,?  
         @i1e0;\  
    End With 5*p zL0,Y  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False bx8](cT_  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll 3N2d V6u  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS vt| R)[,  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True V*uE83x 1  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese >CqzC8JF  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True J, 9NVw$  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete 'p&,'+x  
    DoEvents No'?8+i  
     GkIY2PD  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") VI&x1C  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" {_O!mI*  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False 6QX m] <  
    With ActiveDocument.Styles("QLNU英文标题").Font -)`_w^Ox  
        .NameFarEast = "黑体" go uU  
        .NameAscii = "Arial Narrow" H4w\ e#|  
        .Name = "Arial Narrow" 0D s3 wN z  
        .Size = 16 ?FQ#I~'<  
        .Bold = True ?BnU0R_r]  
        .Bold = wdUndefined r !mRUw'u  
        .Superscript = wdUndefined f<Hi=Qpm  
        .Subscript = wdUndefined Xo34~V@(  
        .Italic = wdUndefined $ v| W2k  
         * j%x  
        .Underline = wdUnderlineNone D(AH3`*|#  
        .UnderlineColor = wdColorAutomatic ^}_Ka//k  
        .StrikeThrough = False  8b2 =n  
        .DoubleStrikeThrough = False dI{DiPho  
    End With 1`&`y%c?B  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat <-umeY"n>  
        .LineSpacingRule = wdLineSpaceSingle faDSyBLo  
        .Alignment = wdAlignParagraphCenter bO=|utpk  
        .WidowControl = True kOYUxr.b  
        .KeepWithNext = False ai{>rO3 }I  
        .KeepTogether = False &0F' Ca  
        .PageBreakBefore = False @%]A,\  
        .NoLineNumber = False to'7o8Z  
        .FirstLineIndent = CentimetersToPoints(0) m+TAaK  
        .OutlineLevel = wdOutlineLevelBodyText AI-*5[w#A  
         'r?ULft1  
        .LeftIndent = CentimetersToPoints(0) tJ\ $%  
        .RightIndent = CentimetersToPoints(0) k {*QU(  
        .FirstLineIndent = CentimetersToPoints(0) kJWg},-\  
         zfeT>S+  
        .CharacterUnitLeftIndent = 0 >NRppPqL  
        .CharacterUnitRightIndent = 0 d~LoHp  
        .CharacterUnitFirstLineIndent = 0 Xu]~vik  
         +xFn~b/  
        .LineUnitBefore = 1 FE~D:)Xj'?  
        .LineUnitAfter = 1 Lgg,K//g  
         6p9fq3~7Y  
    End With _QPqF{iI  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False &|/_"*uM  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll g'(bk@<BP  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS FZr/trP~  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True .-KI,IU  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese k6(7G@@}  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True C$OVN$lL`8  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete cMw<3u\  
    DoEvents ZEP?~zV\A  
H3A$YkK [  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") m9 h '!X<  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" 9P?0D  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False 1qRquY  
    With ActiveDocument.Styles("QLNU英文摘要").Font 35<A :jKS  
        .NameFarEast = "宋体" JE?rp1.  
        .NameAscii = "Arial" *NmY]  
        .NameOther = "Arial" EhcJE;S)  
        .Name = "Arial" /Nf{;G!kg  
        .Size = 12 I\~[GsDY  
        .Bold = wdUndefined a5 D|#9  
        .Italic = wdUndefined y6XOq>  
        .Superscript = wdUndefined bn(N8MFCV  
        .Subscript = wdUndefined R6+)&:Ab{R  
    End With B*(]T|ff<  
     #S}orWj  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat gq7tSkH@  
         u^" I3u8$  
        .LineSpacingRule = wdLineSpaceExactly ! _S#8"  
        .LineSpacing = 20 EuK}L[Kl  
         pHV^K v#  
        .Alignment = wdAlignParagraphJustify 6hxZ5&;(*  
         YV O$`W^N  
        .WidowControl = False !6!)H8rX  
        .KeepWithNext = False QNj]wm=mp  
        .KeepTogether = False /Z:j:l  
        .PageBreakBefore = False Kxr@!m"  
        .NoLineNumber = False D}_.D=)  
         aSzI5J]/=  
        .OutlineLevel = wdOutlineLevelBodyText !+GYu;_  
         v@ _ 1V  
        .LeftIndent = CentimetersToPoints(0) L:$4o  
        .RightIndent = CentimetersToPoints(0) C= ~c`V5>r  
        .FirstLineIndent = CentimetersToPoints(0) ;tjOEmIiU  
         l4bytI{63  
        .CharacterUnitLeftIndent = 0 ^4dE8Ve"@  
        .CharacterUnitRightIndent = 0 [jMN* p?  
        .CharacterUnitFirstLineIndent = 2 o*cu-j3  
         xE/?ncTK^  
        .LineUnitBefore = 0 ]juPm8eF  
        .LineUnitAfter = 1 qX\*l m/l  
         n|(lPbD  
    End With 0a~t  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False U"PcNQy  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll b6D;98p  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS !}(B=-  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False  ;8sL  
    DoEvents M3(N!xT  
 G 3Z"U  
    Options.Pagination = True AkhG~L  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." NJUKH1lIhR  
    DoEvents sh<Q2X  
    ActiveDocument.Repaginate 8<=^Rkz  
I Dohv[#  
End Sub a>wCBkD  
J]F&4 O  
W0qR? jc  


查看完整版本: [-- [ZT]我和电脑亲密接触的心路历程 --] [-- top --]


Powered by PHPWind v7.5 SP3 Code ©2003-2010 PHPWind
Time 0.020021 second(s),query:2 Gzip disabled

You can contact us