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

显示用户信息 
100楼  发表于: 2021-07-18   
只看该作者 ┊  小 中 大
Dim bContinue As Boolean ^\3r}kJ0Lp  
DC+l3N  
Dim regEX As New RegExp &{z RuF  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 m>&:)K}m  
 7I;A5f  
Dim LastTitle0String As String, LastTitle0No As Long R!y`p:O C  
Dim LastTitle1String As String, LastTitle1No As Long $-p#4^dg  
Dim LastTitle2String As String, LastTitle2No As Long >(BAIjF E\  
Dim LastTitle3String As String, LastTitle3No As Long KbM1b  
Dim LastTitle4String As String, LastTitle4No As Long TJ+,G4z  
Dim LastTitle5String As String, LastTitle5No As Long CEEAyip-c  
Dim LastTabelString As String, LastTableNo As Long 3Xl!Z^W  
Dim LastFigureString As String, LastFigureNo As Long a*bAf'=  
}+ dDGFk  
Dim strSeperator As String \ wM8I-f!  
6!$2nK+  
Sub ConvertWidth(fTEXT As String, rText As String) 6u [ B}%l  
        Selection.Find.ClearFormatting -v &  
        Selection.Find.Replacement.ClearFormatting Gm.2!F=R4A  
        Selection.Find.Wrap = wdFindContinue ds "N*\.  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText l0nm>ps'D  
        DoEvents 4B$|UG  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True <BX'Owbs!O  
End Sub C<yjGt VD  
'Fr"96C$  
Sub ClearDomain() `w K6B5>  
        With Selection.Find ?CSv;:  
            .ClearFormatting H%G|8,4  
            .Replacement.ClearFormatting WNcJ710k27  
            .Wrap = wdFindContinue Dg'BlrwbR  
            Me.txtStatus.Text = "清除所有域代码" %pBc]n@_  
            DoEvents Xn # v!  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False pWOK~=t  
        End With >&D}^TMYY  
End Sub ? uu,w  
@D+2dT0[M  
Private Sub cmdCheck_Click() mT&?DZ9<  
    bContinue = True Q~zs]{\  
    Dim NoSeries1(1 To 16) As String y$`@QRW  
    Dim NoSeries2(1 To 16) As String 716r/@y$6  
    Dim NoSeries5(1 To 16) As String t*(buAx  
    Dim NoSeriesRM(1 To 16) As String :`<ME/"YE  
    Dim paraTotal As Long, ParaText As String C|-QU  
    Dim ttString As String, ttNo As String )m<C mYr2  
     \SyG#.$  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long wS @-EcCB  
DtglPo_(  
    Me.txtStatus.Visible = True :O/QgGZN$  
    Me.lbParaType.Visible = True [I2vg<my  
    Me.cmdCheck.Enabled = False &[qJ=HMm I  
     X6G2$|  
     T))F r:  
     wHE1Jqpo  
     qj:\ )#I  
    Dim ParaType As String, rText As String "fOxS\ er  
     +Z1y1%a  
    Selection.WholeStory [Nv)37|W  
    Selection.NoProofing = True B*&HQW *u  
     <Oihwr@5<  
    tm1 = Now SK t&BnW  
     Cd'`rs}3  
        ActiveWindow.View.Type = wdNormalView $9rQ w1#e  
     E:ti]$$  
    NoSeries1(1) = "一" &b9bb{y_$K  
    NoSeries1(2) = "二" k4+Q$3"  
    NoSeries1(3) = "三" c$b~? Mx  
    NoSeries1(4) = "四" {N'<_%c u  
    NoSeries1(5) = "五" :7[4wQDt4  
    NoSeries1(6) = "六" 2f0qfF  
    NoSeries1(7) = "七" 'j 'G4P_G  
    NoSeries1(8) = "八" r O-=):2  
    NoSeries1(9) = "九" a2SXg A  
    NoSeries1(10) = "十" < gu>06  
    NoSeries1(11) = "十一" u5rHQA0%  
    NoSeries1(12) = "十二" :)DvZxHE@  
    NoSeries1(13) = "十三" 1g>>{ y  
    NoSeries1(14) = "十四" BI:O?!:9)  
    NoSeries1(15) = "十五" Apbgm[m|{  
    NoSeries1(16) = "十六" /y[zOT6  
     m,^UD{  
    NoSeries2(1) = "㈠" >bbvQb +j  
    NoSeries2(2) = "㈡" L7PM am  
    NoSeries2(3) = "㈢" @ @"abhT  
    NoSeries2(4) = "㈣" Yx':~  
    NoSeries2(5) = "㈤" ,lb  >  
    NoSeries2(6) = "㈥" 0;Z] vl/|  
    NoSeries2(7) = "㈦" 't n-o  
    NoSeries2(8) = "㈧" ,?(U4pzX  
    NoSeries2(9) = "㈨" |{9&!=/qf  
    NoSeries2(10) = "㈩" g66x;2Q  
     .M([n-  
    NoSeries5(1) = "①" SmCtwcB1  
    NoSeries5(1) = "②" P \{ }yd  
    NoSeries5(3) = "③" v%E~sX&CG  
    NoSeries5(4) = "④" O\q-Ai  
    NoSeries5(5) = "⑤" q"Th\? }%  
    NoSeries5(6) = "⑥" 4`'V%)M  
    NoSeries5(7) = "⑦" ufvjW]   
    NoSeries5(8) = "⑧" H{ I,m-  
    NoSeries5(9) = "⑨" M%v 6NxN  
    NoSeries5(10) = "⑩" IXC2w *'m  
     \ fSo9$  
     6oy[0hj  
    NoSeriesRM(1) = "I" pz ~REsx  
    NoSeriesRM(2) = "II" ^7i P!-w/  
    NoSeriesRM(3) = "III" BNq6dz$J  
    NoSeriesRM(4) = "IV" NEW0dF&)  
    NoSeriesRM(5) = "V" {4YD_$4W  
    NoSeriesRM(6) = "VI" C8AR ^F W  
    NoSeriesRM(7) = "VII" L17{W4  
    NoSeriesRM(8) = "VIII" "9O8#i<Nr  
    NoSeriesRM(9) = "IX" /amWf^z  
    NoSeriesRM(10) = "X" 1HBWOV7z.?  
    NoSeriesRM(11) = "XI" h )h%y )1  
    NoSeriesRM(12) = "XII" Z7J4r TA  
    NoSeriesRM(13) = "XIII" +O!4~k^  
    NoSeriesRM(14) = "XIV" k\Z@B!VAq  
    NoSeriesRM(15) = "XV" Rv Uw,=  
    NoSeriesRM(16) = "XVI" +6Ye'IOG  
     =i:,")W7=  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) gPcOm b  
     a Juv{  
    If i = vbNo Then Q3rLCg,;  
        Exit Sub ^a?g~G  
    End If mu$rG3M  
     6!Uk c'r  
    If Me.chkSuper.Value Then ~*hCTqH vN  
        Me.txtStatus.Text = "检查修改所有的上标格式" 6wH:jd9,  
     0 LQ%tn  
        CheckSuperScript t`pbEjE0K  
         rp,Us#>6  
    End If )*nZ6Cg'  
     rj/1AK  
    If Me.chkStyle.Value Then tOxTiaa=  
        Me.txtStatus.Text = "设置样式，请稍候...." y,Z2`Zmu  
        DoEvents r;@"s g  
        CeateOrModifyStyle Tl L\&n.$  
    End If 3T~DeqAyw  
     2U& +K2  
     4a zqH;i  
     >6Ody<JPHP  
    ClearDomain yM# %UeZ\  
         ~ugH2jiB  
     =h,J!0Y  
     6[\1Nzy>  
    If Me.chkLIST.Value Then VU;98  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" `2 hLs _  
     $%.,=~W7  
        ConvertListToOrdinary k%?qN,Cl  
    End If !dOpLUh l  
     3v>w$6  
     rAh| r}R  
    Dim pType As String, trimpTEXT As String ,jdTe?[*^  
    If Me.chkNum.Value = True Then +c' n,O~3  
        Me.txtStatus.Text = "转换全角数字形式为半角" %hi]oz  
        ConvertWidth "１", "1" 349BQ5ND  
        DoEvents V>& 1;n  
        ConvertWidth "２", "2" P1dFoQz  
        DoEvents Kj/Lcx;bh  
        ConvertWidth "３", "3" a^7QHYJ6  
        DoEvents KskPFXxP  
        ConvertWidth "４", "4" =+w/t9I[  
        DoEvents ccwz:7r  
        ConvertWidth "５", "5" ~WKWx.ul  
        DoEvents qflOi8  
        ConvertWidth "６", "6" FXh*!%"*  
        DoEvents ]e(\<R6Gf  
        ConvertWidth "７", "7" OXS.CFZM  
        DoEvents <[' ucp  
        ConvertWidth "８", "8" w}0rDWuR[  
        DoEvents l._g[qa  
        ConvertWidth "９", "9" 3hfv^H  
        DoEvents }gKY_e3  
        ConvertWidth "０", "0" $J=`fx  
        DoEvents \]0+J  
        ConvertWidth "ａ", "a" bJ^Jmb  
        DoEvents cv-;fd>'  
        ConvertWidth "ｂ", "b" 2?kVbF  
        DoEvents *3rp g  
        ConvertWidth "ｃ", "c" -FQc_k?VF  
        DoEvents 58t~? 2E  
        ConvertWidth "ｄ", "d" ;^cMP1SH  
        DoEvents (o4':/es  
        ConvertWidth "ｅ", "e" O:Wd ,3_  
        DoEvents -%TwtO<$']  
        ConvertWidth "ｆ", "f" WXd#`f%  
        DoEvents &"d :+!4h  
        ConvertWidth "ｇ", "g" X/FRe[R  
        DoEvents H^<?h6T  
        ConvertWidth "ｈ", "h" JfRqOEP4Y  
        DoEvents V)]l ca  
        ConvertWidth "ｉ", "i" dpcU`$kt  
        DoEvents A9y@v{txN  
        ConvertWidth "ｊ", "j" X3HJ3F;==  
        DoEvents *Rgl (Ba  
        ConvertWidth "ｋ", "k" Uj^Y\w-@Z  
        DoEvents !*PX -  
        ConvertWidth "ｌ", "l" xtK}XEhG!  
        DoEvents XwDt8TxL  
        ConvertWidth "ｍ", "m" NL&![;  
        DoEvents B/dJ j#  
        ConvertWidth "ｎ", "n" <vd}oiB@  
        ConvertWidth "ｏ", "o" wU-Cb<^  
        ConvertWidth "ｐ", "p" 00pe4^U  
        ConvertWidth "ｑ", "q" }c=YiH,o  
        ConvertWidth "ｒ", "r" Daq lL  
        ConvertWidth "ｓ", "s" zQoJ8i>  
        ConvertWidth "ｔ", "t" m O"Rq 5  
        ConvertWidth "ｕ", "u" ;i!$rL  
        ConvertWidth "ｖ", "v" _7<G6q2(  
        ConvertWidth "ｗ", "w" 5MK.>3fE  
        ConvertWidth "ｘ", "x" C:z7R" yj  
        ConvertWidth "ｙ", "y" lcXo>  
        ConvertWidth "ｚ", "z" +>Pq]{Uf1j  
        ConvertWidth "Ａ", "A" X0]Se(  
        ConvertWidth "Ｂ", "B" 8i Ew;I_  
        ConvertWidth "Ｃ", "C" Kh{_BdN  
        ConvertWidth "Ｄ", "D" zvwv7JtB  
        ConvertWidth "Ｅ", "E" s){R/2O3F  
        ConvertWidth "Ｆ", "F" &/?OP)N,}  
        ConvertWidth "Ｇ", "G" qRXHaQi@9  
        ConvertWidth "Ｈ", "H" T;v^BVn  
        ConvertWidth "Ｉ", "I" K0\`0E^,  
        ConvertWidth "Ｊ", "J" r o8C^d]  
        ConvertWidth "Ｋ", "K" |8fdhqy_  
        ConvertWidth "Ｌ", "L" Y mm*p,`  
        ConvertWidth "Ｍ", "M" 6 kO+E5;X  
        ConvertWidth "Ｎ", "N" LBIEG_/m  
        ConvertWidth "Ｏ", "O" DTl&V|h$  
        ConvertWidth "Ｐ", "P" 0s6eF+bs  
        ConvertWidth "Ｑ", "Q" _ME?o  
        ConvertWidth "Ｒ", "R" .&.L@CRH  
        ConvertWidth "Ｓ", "S" 1w#vy1m J  
        ConvertWidth "Ｔ", "T" Iv/h1j> H  
        ConvertWidth "Ｕ", "U" zC`ediyu  
        ConvertWidth "Ｖ", "V" ekd;sEO  
        ConvertWidth "Ｗ", "W" u. 2^t :A  
        ConvertWidth "Ｘ", "X" irMBd8WG  
        ConvertWidth "Ｙ", "Y" mh35S!I3I^  
        ConvertWidth "Ｚ", "Z" ~?B\+6<V  
        ConvertWidth "^l", "^p" 7-mo\jw<  
        ConvertWidth "（", "(" J9P\D!  
        ConvertWidth "）", ")" ;}'Z2gZ B  
     rBZ00}  
    End If j]m|}n  
!, {-q)'D  
    With ActiveDocument g{JH5IZ~  
        Dim tbl As Table 'y7<!uo?  
        For Each tbl In .Tables \~.elKw<U  
            tbl.Rows.Alignment = wdAlignRowCenter V o%GO 9b;  
            tbl.Range.Font.NameFarEast = "楷体" YGhHIziI  
            tbl.Range.Font.NameAscii = "Times New Roman" O@>{%u  
            tbl.Range.Font.Size = 10.5 O^IS:\JX&  
        Next L#fSP  
        Set tbl = Nothing ([]\7}+8  
    End With 64D4*GQ  
     3iw. yR  
     o3HS|  
    With ActiveDocument 6>b' g ~I  
         JqtOoR  
        For i = 1 To .TablesOfContents.Count 9#a/at]  
            .TablesOfContents(i).Delete EUS^Gtc  
        Next i}@5<&J  
         0OBw e6*  
         G{0f* cH)  
         ~zDFL15w  
        paraTotal = .Paragraphs.Count W=4|ahk$  
        paraCounter = 1 a> S -50  
         `[~LMV&2U  
        LastTitle0No = 0 Vk%W4P"l  
        LastTitle1No = 0 r@ba1*y0  
        LastTitle2No = 0 BJjxy0+  
        LastTitle3No = 0 m V}eMw  
        LastTitle4No = 0 Tj=@5lj0  
        LastTableNo = 0 }D Q[C&  
        LastFigureNo = 0 n6{nx[%7N7  
         =cxG4R1x  
        Dim Sec As Long /Q'O]h0a  
         ;0}C2Cz'  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) :AyZe7:(D  
        If Sec = 0 Then -l{ wB"  
            Exit Sub rLcXo %w  
        End If cq9d;~q  
         \3whM6tK  
        k = 0 @}{Fw;,(7n  
        Do While (paraCounter < paraTotal) And bContinue (qDJgf4fgn  
            k = k + 1 c[EG cY={  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then 9mEhZ"  
                Exit Do *2Q x69`  
            End If 4g?qKoc i  
            paraCounter = paraCounter + 1 gXB&Sgjo  
            If k Mod 20 = 0 Then $}P>_bq  
                Me.lbCounter.Caption = paraCounter BG+X8t8\  
                DoEvents 10*^  
            End If cBU@853  
        Loop hroRDD   
         =<U'Jtu6'  
         fa,;Sw  
        Do While (paraCounter < paraTotal) And bContinue 8},f u3Z  
             P c vA/W  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) r]&&*:  
            ShapeHeight = 0 .&/A!3pW  
            ShapeWidth = 0 U!T#'H5'-  
           !={QL:  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth Pcr;+'q  
             Ps~)l#gue  
            Select Case ParaType ]CgZt' h{  
                Case "【】表格内容" RMa#z [{0  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" +'UxO'v3]  
                Case "章" uN6xOq/  
                    LastTitle0No = LastTitle0No + 1 M \>5",0  
                    '新一章开始，复位其下属标题编号 +Q!Kj7EU/  
                    LastTitle1No = 0 [Rzn>  
                    LastTitle2No = 0 [H>/N7v19*  
                    LastTitle3No = 0 qGgdWDn`  
                    LastTitle4No = 0 kLbo |p"cT  
                     >2tosxH M  
                    k = Val(ttNo) _RX*Ps=  
                    If k = 0 Then '非数字编号章节 y|Y hDO  
                        If ttNo <> NoSeries1(LastTitle0No) Then b 2YOnV  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString ; .hTfxE0  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText ,J'@e+jV  
                        End If ||.Ve,<:  
                    Else XNkQ0 o0  
                        If Val(ttNo) <> LastTitle0No Then #}xPOz7:  
                            rText = "第" & LastTitle0No & ttString nG"Ae8r  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText L'a>D  
                        End If PAu/iqCH  
                         a!:R_P} 7  
                    End If K_V$ktL  
                     1 w9Aoc  
                    '章段落设置 T7Yg^ -"  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 /(bn+l}W  
                    .Paragraphs(paraCounter).Style = "QLNU章节" ,@t#)HV  
                    .Paragraphs(paraCounter).Range.Select ;MjOs&1f0K  
                    Selection.EndKey unit:=wdLine }j,G)\g#  
                    tc = Replace(rText, vbCr, "") v9Ez0 :)  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False Wl3fR[@3Q  
                Case "一级标题" yj9 Ad*.  
                    LastTitle1No = LastTitle1No + 1 < !]7Gt  
                    '新一级标题开始，复位其下属标题编号 62#8c~ dL  
                    LastTitle2No = 0 %xt\|Lt  
                    LastTitle3No = 0 XU$\.g p-  
                    LastTitle4No = 0 k? =_p6>  
                     Y'o.`':\~  
                    If ttNo <> NoSeries1(LastTitle1No) Then p fg>H  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString  34~[dY  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText O9F#gO|!  
                    End If ni3A+Y0  
                   {1W,-%  
                     }fz;La:b  
                    '一级标题段落设置  格式：一、标题内容 kZS&q/6A*  
                    .Paragraphs(paraCounter).Range.Text = rText 9R4q^tGR\  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" `Dv &.  
                    .Paragraphs(paraCounter).Range.Select m`8tHHF  
                    Selection.EndKey unit:=wdLine ]BBjFs4#  
                    tc = Replace(rText, vbCr, "") =eG:Scoug?  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False 'w}/ o+x@  
                Case "二级标题" znd fIt^  
                    LastTitle2No = LastTitle2No + 1 9|//_4]  
                    '新二级标题开始，复位其下属标题编号 C-ipxL"r  
                    LastTitle3No = 0 sB`zk[ R;  
                    LastTitle4No = 0 2LH.If  
                     }pv<<7}|  
                    If ttNo <> NoSeries1(LastTitle2No) Then 2graLJ?9Z  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString XwdehyPhT2  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText K|-RAjE  
                    End If P87qUC  
                     }ABHGr5[  
                    '二级标题段落设置 格式：(一)、标题内容 z#sSLE.$Z  
                    .Paragraphs(paraCounter).Range.Text = rText Q |^c5  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" +IfU 5&5<  
                     SL>0_  
                    .Paragraphs(paraCounter).Range.Select )nUTux0K\  
                    Selection.EndKey unit:=wdLine $ -f(.S  
                    tc = Replace(rText, vbCr, "") %:[Y/K-   
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False kam \dn04  
                 D~%h3HM  
                Case "三级标题" r$-]NYPi  
                    LastTitle3No = LastTitle3No + 1 Y ptP_R:2p  
                    '新三级标题开始，复位其下属标题编号 c(0Ez@  
                    LastTitle4No = 0 o<%s\n  
                     "_e /O&-cH  
                    If Val(ttNo) <> LastTitle3No Then )9>E} SU/  
                            rText = LastTitle3No & ". " & ttString Cg&cz]*q|  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText ?:sQ]S/Er  
                         y&+Sp/6BYA  
                    End If !u|s| 6{\  
                    '三级标题段落设置 格式：1. 标题内容 u< .N\/  
                    .Paragraphs(paraCounter).Range.Text = rText Tz K[:o  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" % ck/ Z  
                    .Paragraphs(paraCounter).Range.Select O.+X,CQG*  
                    Selection.EndKey unit:=wdLine l&v&a!EU  
                    tc = Replace(rText, vbCr, "") 8BwJWxBQ  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False 3UQ~U 8  
                Case "四级标题" Fv9n>%W&  
                    LastTitle4No = LastTitle4No + 1 ,]-A~^|  
                     I?i,21:5  
                    If Val(ttNo) <> LastTitle4No Then G7H'OB &  
                            rText = "(" & LastTitle4No & "). " & ttString )NS& 1$  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText ,Mw;kevw  
                     n7K\\|X  
                    End If lDhuL;9e  
                    '四级标题段落设置 格式：(1). 标题内容 d!]_n|B@9  
                    .Paragraphs(paraCounter).Range.Text = rText L\X 2Olfz1  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" L<TL6  
                    .Paragraphs(paraCounter).Range.Select ziui  
                    Selection.EndKey unit:=wdLine a]_eSU@  
                    tc = Replace(rText, vbCr, "") wmG[*a_H  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False viR-h iD   
                 .=4k'99,  
                Case "表格标题" d512Y[ R  
                    LastTableNo = LastTableNo + 1 k/V:QdD Sb  
                     1\+d 5Q0  
                    If ttNo <> CStr(LastTableNo) Then UI.>BZ6}  
                            rText = "表" & LastTableNo & ". " & ttString "+J[7p}`@  
                            ErrMsg.AddItem "表格编号错误：" & ParaText !RwOU Ck  
                   |#-GH$.v  
                    End If :0B' b   
                      (.B+U'6  
                    '表格名称段落设置 格式：表1. 表格名称 XvspE}~y  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" G=%SMl>[  
                    xe = Replace(rText, vbCr, "") fQOh%i9n5  
                    .Paragraphs(paraCounter).Range.Select ~eHu +pv  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 -dsE9)&8DX  
                    Selection.Range.Text = xe ?AJE*=b  
                    Selection.EndKey Lj03Mx.2S  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False *^P$^lm?S  
                 ar| !iU  
                Case "表格首行" 2s:$4]K D  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" w"K;e(S  
                Case "图片标题" 6H}8^'/u  
                    LastFigureNo = LastFigureNo + 1 ]QAMCu(>  
                     xu7Q^F#u  
                    If ttNo <> CStr(LastFigureNo) Then lVQy {`Ns  
                            rText = "图" & LastFigureNo & ". " & ttString Gfn?1Kt{  
                            ErrMsg.AddItem "表格编号错误：" & ParaText O<?z\yBtS^  
                   3F6=/  
                    End If lGtTZ cg  
                    '图片名称段落设置 格式：图1. 图名称 |cUBS)[)X  
                    .Paragraphs(paraCounter).Range.Text = rText ~!{y3thZ  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" ThSB\  
                    .Paragraphs(paraCounter).Range.Select Yn }Ivg  
                    Selection.EndKey unit:=wdLine > H(o=39s  
                    xe = Replace(rText, vbCr, "") EAM2t|M G.  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False Ykd< }KE>  
                Case "正文" w(Hio-l=  
                     '正文名称段落设置 ",qJG]_ <  
                    .Paragraphs(paraCounter).Style = "QLNU正文" x4vowF  
               Case "文献条目" _l;$<]re\k  
                    With .Paragraphs(paraCounter) H '(Ky  
                        '.Range.Select w>ap8><4  
                        'Selection.ClearFormatting j:6VWdgq  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” Da"GYEC  
                        .Style = "QLNU参考文献" /{d5$(Y"  
                    End With 1ti4 ZM  
               Case "图表注解" <i!7f26r  
                    With .Paragraphs(paraCounter) 1#<KZN =$  
                        .Range.Font.NameFarEast = "楷体" h\i>4^]X.  
                        .Range.Font.NameAscii = "Times New Roman" COf>H0^%Q  
                        .Range.Font.Size = 9 '小5号字 !%4&O  
                         c/G]r|k  
                        .Alignment = wdAlignParagraphCenter Td6"o&0A!  
                        .LeftIndent = 0 }hv" ku6!  
                        .RightIndent = 0  G(1y_t  
                        .FirstLineIndent = 0 KcQe1mT!+  
                        .LineSpacing = 12 bR}{xHe  
                        .LineSpacingRule = wdLineSpaceExactly ]DO"2r  
                        .LineUnitAfter = 0 9!sR}  
                        .LineUnitBefore = 0 'u{DFMB-A  
                        .OutlineLevel = wdOutlineLevelBodyText @ "=wn:O+  
                        .PageBreakBefore = False "~&d= f0m  
                        .RightIndent = 0 U}Aoz|  
                        .WordWrap = True H o;bgva  
                        .LineUnitAfter = 0.5 k3wAbGp  
                         >'X[*:Cx  
                    End With +Tw]u`  
                Case Else >?Ps5n]b  
                    '不作处理  <c &6M  
            End Select !3'&_vmG$  
             tX#8 G09G+  
            '含有inlineshape的段落处理 )2 jBhT  
            If ShapeHeight > 30 Then `<:D.9vO "  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 {g(-C&  
            End If vCh/%7+  
             I6E!$ }  
            If (ShapeWidth + ShapeHeight) > 150 Then x:O;Z~ |.  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" Mli`[8@(  
            End If Hs~u&c  
             5E!G   
            '段落计数器递 uY6|LTK&x  
            paraCounter = paraCounter + 1 =whYo?cE(  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter P@z,[,sy"$  
            Me.txtStatus.Text = ParaText ;<=B I!  
            DoEvents u:0M,Ye  
        Loop c _v;"QZ  
    End With Ev7fvz =  
     b];p/V# <  
    msg = "" 5==}8<$  
     b:w {7  
    For i = 0 To Me.ErrMsg.ListCount - 1 {)8!>K%G  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) otgU6S7F  
    Next ~Z#jIG<?g  
     CUR70[pB)  
     b0_Ih6  
     PHh&@:  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg ^1^mu c[  
    Me.cmdCheck.Enabled = True "2'p S <|  
    Me.txtStatus.Visible = True C`0;  
    Me.lbParaType.Visible = False !w9w{dtW=  
     6X@$xe847[  
    bContinue = False ^ |^Q(  
End Sub `Mxi2Y{vp  
a5AD$bP  
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) S!;:7?mq  
    Dim pTEXT As String BcvCm+.S:  
     .oNs8._:  
    pTEXT = ChKRange.Text 'sCj|=y2Qc  
     _#8OHG.x  
    ParaType = "其它" TE.O@:7Z  
    TitleString = pTEXT AGdFJ>/  
    TitleNo = "N/A" (wRJ"Nwu  
     Dqw?3 KB  
    shpCounter = ChKRange.InlineShapes.Count jw"] U jub  
    If shpCounter <> 0 Then lp;= f  
        MaxShpHeight = 0: TotalShpWidth = 0 oHbG-p  
        For i = 1 To shpCounter (7qdrAeP  
            k = ChKRange.InlineShapes(i).Height +w]KK6  
            l = ChKRange.InlineShapes(i).Width #AJo75E%  
            If k > MaxShpHeight Then >$yqx1=jW  
                MaxShpHeight = k Lh(` 9(tX  
            End If _s_%}8o  
            TotalShpWidth = TotalShpWidth + l *l[;g  
        Next g}B|ZRz+{  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then >[ox|_o  
            Exit Sub RvPC7,vh  
        End If b&V}&9'[M;  
    End If mw*BaDN@Q  
     e5 ?;{H  
    '空行 =R  <X!@  
    If Len(pTEXT) <= 2 Then *N;# _0)/  
        Exit Sub eaxp(VX?oy  
    End If `IQ76Xl  
     s @ ~Y !A  
         NJ;D Qv  
    '是否为表格中的文字 O*ql!9}E{  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then uzx?U3.\  
        ParaType = "表格内容" 7O,y%NW aK  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) 0Lo)Ni^"  
        If k = 1 Then G-)Q*p{i|  
            ParaType = "表格首行" @l:o0(!W  
        End If `]8z]PD  
        Exit Sub AGe\PCn-  
    End If 18AKM  
     ;m+*R/  
    '例外情况：脚注 d}.*hgk  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then RnX:T)+o  
        ParaType = "脚注" ^at X/  
        Exit Sub |9F^"7Q~C  
    End If 7jZ=+2  
     9y~5@/3 2R  
    '例外情况：尾注 / ao|v  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then s]"NqwIPK  
        ParaType = "尾注" @,Iy n<v{B  
        Exit Sub }op0`-Xb  
    End If kT+Idu  
     & bwhD.:=  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then 8a^E{x@HT  
        ParaType = "页眉页脚" Ae0jfTv  
        Exit Sub .qcIl)3  
    End If POtj6 ?a  
     \NEXtr`Th  
     xSQ:#o=8G  
    With regEX 'w8k*@cQ  
        .Global = True <=D\Ckmb  
         QyGT m"9l  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" <&+\X6w[  
        If regEX.Test(pTEXT) Then E26zw9d  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") mct$.{~  
            TitleString = regEX.Replace(pTEXT, "$3") s 9Y'MQo*  
            TitleNo = regEX.Replace(pTEXT, "$1") h}k/okG  
            ParaType = "章" BP6|^Q  
            Exit Sub 5VU 5kiCt  
        End If mP@< UjxI  
         g.3a5#t  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" ?J<V-,i  
        If regEX.Test(pTEXT) Then DO#!ce  
            ParaType = "一级标题" YjTRz.e{[7  
            regEX.Execute (pTEXT) FC:+[.fi  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") ;w/|5 ;{A;  
            TitleString = regEX.Replace(pTEXT, "$3") MrW#~S|ED  
            TitleNo = regEX.Replace(pTEXT, "$1") ld-Cb 3R^  
            Exit Sub $fhb-c3  
        End If 5 p.vo"7  
         !5hNG('f  
        '全角或半角括号中的数字 %V+hm5Q  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" <QUjhWxDb  
        If regEX.Test(pTEXT) Then W_%p'8,  
            ParaType = "二级标题" %q~YJ*\  
            regEX.Execute (pTEXT) }W:Rg}v  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") 5u<F0$qHc  
            TitleString = regEX.Replace(pTEXT, "$5") nNCG*Vu  
            TitleNo = regEX.Replace(pTEXT, "$2") ^*{:;F@  
            Exit Sub ;PO{ ips  
        End If fq@r6\TI  
         RZtY3:FBx|  
        '阿拉伯数字  1. 2. DcO$&)Eb  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" ,[ UqUEO  
        If regEX.Test(pTEXT) Then YTc X4cC  
            ParaType = "三级标题" #^+C k HX  
            regEX.Execute (pTEXT) [f^:V:) {  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 zT\nj&7  
            TitleString = regEX.Replace(pTEXT, "$3") 4pin\ZS:C  
            TitleNo = regEX.Replace(pTEXT, "$1") P;V$%r`yD  
            Exit Sub @2Lp I*]C  
        End If  =V- ^  
         m+t<<5I[-  
        '全角或半角括号中的阿拉伯数字 zPonG d1  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" J-6l<%962%  
        If regEX.Test(pTEXT) Then (9#$za>  
            ParaType = "四级标题" "G^Z>Z-`  
            regEX.Execute (pTEXT) 4@b~)av)  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") &DX&*Xq2  
            TitleString = regEX.Replace(pTEXT, "$5") JH4hy 9i  
            TitleNo = regEX.Replace(pTEXT, "$2") (Q_J{[F  
            Exit Sub % Rv ;e  
        End If i;u#<y{E  
         K/Q%tr1W0  
        '表格名称 8QYP\7}o  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" VO (KQx  
        If regEX.Test(pTEXT) Then  T\(w}  
            ParaType = "表格标题" )(?,1>k`Z  
            regEX.Execute (pTEXT) &%@b;)]J  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) ^dR="N  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) M@k8;_5  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) qHZ!~Kq,"'  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 =N62 ){{  
            Exit Sub 4=G)j+RCH  
        End If $ ]ew<j  
         k q{PM-]l  
        '图片名称 'F\@KE -d  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" 9; \a|8O  
        If regEX.Test(pTEXT) Then X=8CZq4  
            ParaType = "图片标题" 9h Jlc  
            regEX.Execute (pTEXT) "Je*70LG#  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") g[D(]t\#x  
            TitleString = regEX.Replace(pTEXT, "$3") ;qA(!`h+  
            TitleNo = regEX.Replace(pTEXT, "$1") Ix-bJE6+I,  
            Exit Sub -x~4@~  
        End If ?5N7,|K)  
         {Dc{e5K  
        '参考文献 s?fO)7ly  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 eHQS\n  
        If regEX.Test(pTEXT) Then m| / ?((s  
            ParaType = "文献条目" 0tL#-47  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") F9Hxqa#1T  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") sew0n`d1  
            Exit Sub `b11,lg  
        End If w$XqxI/&  
         N;YAG#'9~_  
        prfx = Left(pTEXT, 2) -`I&hzl6E  
        If prfx = "注：" Or prfx = "注:" Then HX;JO[0  
            ParaType = "图表注解" o9<)rUy  
            Exit Sub b"DV8fdX  
        End If ` XvuyH  
         4Bn <L&@/  
         >/r^l)`9_f  
        ParaType = "正文" }{R?i,j(  
         %4=r .9  
    End With rZij[6]Y^  
End Sub m-< "`:+  
\aEarIX#*  
Sub ConvertListToOrdinary() wM-I*<L>  
    Dim st As Paragraph  LU-,B?1  
    With ActiveDocument ?M}W ;Z  
        For i = .Paragraphs.Count To 1 Step -1 #j+0jFu  
            Set st = .Paragraphs(i) tdCD!rV`{  
            lst = st.Range.ListFormat.ListString lU`}  
            If lst <> "" Then X6T*?t3!9[  
                st.Range.ListFormat.RemoveNumbers &>@  
                st.Range.InsertBefore lst & " " !Ojf9 6is  
            End If U,tl)(!@Q-  
        Next :t7M'BSm2z  
    End With ]O^C'GzZ  
    Set st = Nothing d)R7#HLZ7  
End Sub ^69ZX61vt  
wWI1%#__|o  
Private Sub UserForm_Activate() KW&vX%i(.  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" 0SHF 8kek  
    Me.lbTotal.Font.Bold = True 6UK}?+r~  
    Me.txtStatus.Visible = False wNfWHaH" m  
    Me.cmdCheck.Enabled = True PnUYL.v  
^Fn~@'  
End Sub Rk8oshS+2  
R0WI s:k2  
xJ);P.  
Sub CheckSuperScript() >" &&,~  
    Selection.Find.ClearFormatting Izapx\GK9  
    Selection.Find.Replacement.ClearFormatting CDT%/9+-  
    With Selection.Find N!{waPbPi  
        .Text = "[【\[［〖](*)[】\]〗］]" $:RP tG  
        .Replacement.Text = "[\1]" J7RO*.O&Iq  
        .Replacement.Font.Superscript = True +o4W8f=Ga  
        '.Replacement.Font.Color = wdColorBlue Ft[)m#Dj`  
        .Forward = True 'yw7|i2  
        .Wrap = wdFindContinue mj7Em&  
        .FORMAT = True f\|R<3 L  
        .MatchCase = False $`wo8A| )  
        .MatchWholeWord = False 7 {n>0@_  
        .MatchByte = False z6Xn9  
        .MatchAllWordForms = False x1O]@Z{d\  
        .MatchSoundsLike = False k"L?("~   
        .MatchWildcards = True >O z~j>jL  
    End With  EOn[!  
    Selection.Find.Execute Replace:=wdReplaceAll 2H p<(  
End Sub "!AbH<M;@  
]\.3<^  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) <hv {,1p-r  
    bContinue = False mu>L9Z~(L_  
    Set regEX = Nothing smJ#.I6/L  
End Sub !&f>,?wlP  
A*a:#'"*N  
Sub CeateOrModifyStyle() L'@@ewA  
' KE_GC ;bQ  
' wn&5Ul9Elb  
Dim stl As Style K:JM*4W  
     ?xT ^9  
    Options.Pagination = False ju8DmC5  
     `J26Y"]P  
    On Error Resume Next  ds#om2)  
    For Each stl In ActiveDocument.Styles \Wn0,%x2  
        stl.Delete VQV%1f  
    Next U9/>}Ni%3G  
    On Error GoTo 0 ?r%kif)  
      {ch+G~oS  
    Set stl = Nothing 79bt%P  
     H6vO}pq) r  
    DoEvents w vQ.9  
    On Error Resume Next 8%,u~ELA  
     gz~)v\5D/  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph %n!7'XF'[  
     Wu1">|  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph (nUSgZz5  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph FRR`<do5$,  
     iiWm>yy  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph hgmo b"o  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph RHIGNzSz  
     )/Mk\``j  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph XZew$Om[  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph 5i eF8F%  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph Ltrw)H}  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph -Z<V? SFOK  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph qJyGr ?  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph 3m]8>1e1"  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph <0M 2qt8  
     jg3 X6/'  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph LPRvzlY=  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph d>YX18'<Q  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph VS\+"TPuH  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph +p\+ 15  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph *$Tz g!/  
     C"[d bh!  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph "/~KB~bB  
    On Error GoTo 0 p4sU:  
    DoEvents t91z <Y|  
     )C^@U&h&  
    'BaseStyle tDQo1,(oY  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False upc-Qvk  
    With ActiveDocument.Styles("BaseStyle").Font zir?13N7  
        .NameFarEast = "宋体" d"#& VlKcv  
        .NameAscii = "Times New Roman" h)o5j-M>4  
        .NameOther = "宋体" $psPNJG  
        .Size = 10.5 Dx*tolF  
        .Bold = wdUndefined UVlXDebl  
        .Italic = wdUndefined i9O;D*  
        .Subscript = wdUndefined +)06*"I  
        .Subscript = wdUndefined w dpd`  
         Tz<@k  
        .Underline = wdUnderlineNone 8IQqDEY^  
        .UnderlineColor = wdColorAutomatic rJ^*8C!  
        .StrikeThrough = False }^"#&w3<  
        .DoubleStrikeThrough = False y/\0qQ/  
         EjjW%"C,  
        .Outline = False KM&bu='L^  
        .Emboss = False 5W4Tp% Lda  
        .Shadow = False :vWixgLg  
        .Hidden = False !gX(Vh*k  
        .SmallCaps = False tsys</E&  
        .AllCaps = False QZ?%xN(4  
        .Color = wdColorAutomatic #BOLq`9 f  
        .Engrave = False }u&,;]  
        .Scaling = 100 }48 o{\  
        .Kerning = 1 e'MLLC [  
        .Animation = wdAnimationNone 1!"iN~  
        .DisableCharacterSpaceGrid = False 9_&N0>OF  
        .EmphasisMark = wdEmphasisMarkNone 37U$9]  
    End With s^lm 81;  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat RGC DC*\  
        .LeftIndent = 0 47yzI-1H+  
        .RightIndent = 0 C%T$l8$  
        .SpaceBefore = 0 ;]A:(HSZj  
        .SpaceBeforeAuto = False C?-_8OA  
        .SpaceAfter = 0 ZhnRsn9  
        .SpaceAfterAuto = False C<"b99\2`  
         %&\DCAFk  
        .LineSpacingRule = wdLineSpaceSingle z.6I6IfL\L  
        .Alignment = wdAlignParagraphJustify {u@w^ hZ$  
         dxk~  
        .WidowControl = False gg+!e#-X  
        .KeepWithNext = False /~6)Vt  
        .KeepTogether = False h5p,BRtu  
        .PageBreakBefore = False FXO{i:Zo  
        .NoLineNumber = False d:GAa   
         sNbCOTow  
        .FirstLineIndent = CentimetersToPoints(0) t}m"rMbt  
        .OutlineLevel = wdOutlineLevelBodyText 7Pp~)Kq=  
        .CharacterUnitLeftIndent = 0 _fmOTz G  
        .CharacterUnitRightIndent = 0 K=Y{iHn  
        .CharacterUnitFirstLineIndent = 0 Bm:N@w g  
        .LineUnitBefore = 0 (|t)MnPfY  
        .LineUnitAfter = 0 #Ab,h#f*7  
        .AutoAdjustRightIndent = True (+w .?l  
        .DisableLineHeightGrid = True I5H#]U  
         /`H{ n$  
        .FarEastLineBreakControl = True g(-}M`  
        .WordWrap = True J,, +JoD  
        .Hyphenation = False Fb^f`UI  
         lDF26<<\`  
        .HangingPunctuation = True cK _:?G  
        .HalfWidthPunctuationOnTopOfLine = True &:}}T=@M1  
        .AddSpaceBetweenFarEastAndAlpha = True _a&M k  
        .AddSpaceBetweenFarEastAndDigit = True wU(N<9  
        .BaseLineAlignment = wdBaselineAlignBaseline A"pV 7 y  
    End With bG&vCH;}%  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False =CGB}qU l0  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll Q2 jl61d_9  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese v#ERXIrf  
    ActiveDocument.Styles("BaseStyle").NoProofing = False $?Z-BD1  
     whb,2=gIE  
    '一级标题题样式 DFN  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") dePI&z:  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" o )SA^5  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False 1WJ%n;  
    With ActiveDocument.Styles("QLNU一级标题").Font -5.~POO  
        .NameFarEast = "黑体" :!WKD@]  
        .NameAscii = "Arial Black" a0*qK)gH  
        .NameOther = "黑体" snti*e4"V  
        .Name = "黑体" 68YJ@(iS  
        .Size = 16              '三号 fF.qQTy;7  
        .Bold = True FTT=h0t  
        .Italic = wdUndefined ^,,lo<d_L  
        .Subscript = wdUndefined P d)<Iw^<  
        .Superscript = wdUndefined eczS(KoL4  
    End With l~j{i/>  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat -gR }^D   
         OJTEvb6nPg  
        .LeftIndent = CentimetersToPoints(0) x^u [L$  
        .RightIndent = CentimetersToPoints(0) Q ~>="Yiu  
        .FirstLineIndent = CentimetersToPoints(0) jdW#; ]7+y  
         ?CHFy2%Y  
        .LineSpacingRule = wdLineSpaceSingle .p?kAf`  
        .Alignment = wdAlignParagraphCenter \rPT7\ZA  
         n}!D)Gx  
        .WidowControl = True 8Ssk>M*  
        .KeepWithNext = True n.tJ-l5[  
        .KeepTogether = True ; +%|!~  
        .OutlineLevel = wdOutlineLevelBodyText e(~Y!:Q#O  
         "Qfw)!#  
        .LineUnitBefore = 0.5 NUb:5tL  
        .LineUnitAfter = 0.5 8iKupaaOX  
    End With Qu6Q)dZ<  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False +x:- W0C:  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll +E8}5pDt  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese ~RIn7/A  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True }\wTV*n`X  
    DoEvents ^ e4y:#Nu  
     n1+,Pe*)  
    '二级 q A?j-H  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") QCVwslj,K  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" &Rxy]kBA  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False O}cg1Q8p  
    With ActiveDocument.Styles("QLNU二级标题").Font yMCd5%=M\  
        .NameFarEast = "黑体" ^iz2 =}Q8  
        .NameAscii = "Arial Narrow" :^ *9E b  
        .NameOther = "黑体" VSQxlAGk@  
        .Name = "黑体" h& Q9  
        .Size = 15        '小三号 Zg2F%f$Y  
        .Bold = False &XH{,fv$  
        .Outline = False +t`QHvx v  
        .Italic = wdUndefined m~ U2 L  
        .Subscript = wdUndefined B%^ $fJ|  
        .Superscript = wdUndefined 1 6G/'Hb  
    End With ]CZ&JL  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat zm`^=cV  
        .LeftIndent = CentimetersToPoints(0) 6z>Zm1h  
        .RightIndent = CentimetersToPoints(0) (25v7 Y ]  
        .FirstLineIndent = CentimetersToPoints(0) Sh2; ^6d  
         &9,<_1~  
        .LineSpacingRule = wdLineSpaceSingle .p d_SQ~  
        .Alignment = wdAlignParagraphLeft bWOn`#+&  
         Ii4lwZnz  
        .WidowControl = True `z]MQdE_w  
        .KeepWithNext = True dt=5 Pnf[y  
        .KeepTogether = True &] euL:C  
        .PageBreakBefore = False +'fdAc:5',  
        .OutlineLevel = wdOutlineLevelBodyText N,Ys}qP  
         '@ C\,E  
        .LineUnitBefore = 0.5 7.DAwx.HYK  
        .LineUnitAfter = 0.5 o;<oXv  
         3t^r;b  
    End With Bvy(vc=UDW  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False wD'LX  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll Kl)PF),  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese J^]Y`Q`  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True -f!oq7U  
    DoEvents 0"O22<K3a  
     6D n[9V  
    '三级标题样式 UB&)U\hn  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") .f~x *@  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" Y/aNrIK7  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False oP( Hkp,'  
    With ActiveDocument.Styles("QLNU三级标题").Font '.&z y#  
        .NameFarEast = "宋体" M+q|z0U  
        .NameAscii = "Times New Roman" 8`j;v>2  
        .NameOther = "黑体" jhmWwT/O8^  
        .Name = "黑体" ecgGl,{  
        .Size = 14               '四号 %U$PcHOo  
        .Bold = False S/l?wwD  
        .Outline = False q9`!T4,  
        .Italic = wdUndefined I_/kJ#7vj  
        .Subscript = wdUndefined l|onH;g\  
        .Superscript = wdUndefined //\UthOT  
    End With 3cztMi  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat b6E,u*)"  
        .LeftIndent = CentimetersToPoints(0) wtL_c  
        .RightIndent = CentimetersToPoints(0) v4V|j<R  
        .FirstLineIndent = CentimetersToPoints(0) Nq3q##Ut:  
         k2S6 SB  
        .LineSpacingRule = wdLineSpaceSingle j)[ w X  
        .Alignment = wdAlignParagraphLeft *=O~TY<](  
         !Qd4Y =  
        .WidowControl = True m+Bt9|d  
        .KeepWithNext = True |K%nVcR=  
        .KeepTogether = True D Tw3$:  
        .PageBreakBefore = False ]\Tcy[5  
        .OutlineLevel = wdOutlineLevelBodyText qp@:Zqz8  
         0W1=9+c|X  
        .CharacterUnitLeftIndent = 0 ctg[C$<q|  
        .CharacterUnitRightIndent = 0 {}TR'Y4  
        .CharacterUnitFirstLineIndent = 2 2rK <UPIq  
         .sk$@Q  
        .LineUnitBefore = 0.5 z9#iU> @  
        .LineUnitAfter = 0 zXHCP.Rmg  
    End With "jyh.@<  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False {Noa4i  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll 5$ra4+k0  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese SmJ6Fm6  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True MxXu&.| _  
    DoEvents Y"U -Rc  
     R;*3";+v|:  
    '四级标题样式 ]c \gUU  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") b-x,`s  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" t6)wR  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False h) .  ([  
    With ActiveDocument.Styles("QLNU四级标题").Font ^KsiTVY  
        .NameFarEast = "宋体" l'2a?1/q  
        .NameAscii = "Times New Roman" !Xbr7:UPN1  
        .NameOther = "宋体" YLfZ;W|6u  
        .Name = "宋体" @ I '_  
        .Size = 12               '小四号 e2v[ma-  
        .Bold = True @pKQ}?  
        .Outline = False 7TC=$y ,  
        .Italic = wdUndefined !a[1rQH  
        .Subscript = wdUndefined }FTyRHD|  
        .Superscript = wdUndefined _=.f+1W  
    End With oKJj?%dHK9  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat ^dzg'6M  
         N?'V,p 0=  
        .LeftIndent = CentimetersToPoints(0) u}7#3JfLn  
        .RightIndent = CentimetersToPoints(0) 5r:SBt|/  
        .FirstLineIndent = CentimetersToPoints(0) N}*|*!6hI  
         'b* yYX<  
        .LineSpacingRule = wdLineSpaceSingle 7xOrG],E  
        .Alignment = wdAlignParagraphLeft [Yzh(a8  
         N:y3tpG  
        .WidowControl = True 4ZK8Y[]Lv  
        .KeepWithNext = True #.(6 .Li  
        .KeepTogether = True yBPaGZ{f  
        .PageBreakBefore = False 1o;+. ]B  
        .OutlineLevel = wdOutlineLevelBodyText ZMH b  
         [V5ebj:6w  
        .CharacterUnitLeftIndent = 0 s C9j73 vf  
        .CharacterUnitRightIndent = 0 Ba\l`$%X  
        .CharacterUnitFirstLineIndent = 2 ,\|W,N}~  
         [Pu~kiN  
        .LineUnitBefore = 0 l(T CF  
        .LineUnitAfter = 0 }lk_Oe1  
         C NNyz$  
    End With /Wh} ;YTv^  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False pOCLyM9c  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll ^]$x/1I;  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese L{)e1p]q  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True Q`Q%;%t  
    DoEvents >HUU`= SC  
     FX FTf2*T  
    '正文校式 GB(o)I#h  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") 5Z7<X2  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" z~/z>_y$nv  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False wPn#>\/L  
    With ActiveDocument.Styles("QLNU正文").Font \V|\u=@H  
         ;^Vsd\ac0  
        .NameFarEast = "宋体" /h ef3DV5I  
        .NameAscii = "Times New Roman" 24)3^1P\V  
        .NameOther = "宋体" n0T\dc~  
        .Name = "宋体" ?dukK3u  
         Y d4J:  
        .Size = 12               '小四号 5_ @8g+ ~  
         T #&9|  
        .Bold = wdUndefined &sp7YkaW  
        .Italic = wdUndefined -$E_L :M  
        .Subscript = wdUndefined 3+<}Hm+  
        .Superscript = wdUndefined &cSTem 0  
         Ocq.<#||H  
        .Outline = False @LS*WJ< w-  
        .Emboss = False (>x4X@b  
        .Shadow = False /3! KfG  
        .Hidden = False DAG2pc8zA  
         ey@]B5  
        .DisableCharacterSpaceGrid = True c]>s(/}T  
    End With M%dXy^e  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat $/aZ/O)F  
         5'/Ney9N  
        .LeftIndent = CentimetersToPoints(0) b<de)MG  
        .RightIndent = CentimetersToPoints(0) SSKn7`  
        .FirstLineIndent = CentimetersToPoints(0) bUf2uWy7  
         BpL,<r,  
        .LineSpacingRule = wdLineSpaceExactly Y. ]FVq  
        .LineSpacing = 20 lCDu,r;\  
        .Alignment = wdAlignParagraphLeft V fJYYR  
         1Z?en  
        .WidowControl = False jmbwV,@Q2  
        .KeepWithNext = False vr|9NP]v  
        .KeepTogether = False )QGj\2I  
        .PageBreakBefore = False 'b#`8k~>  
        .Hyphenation = False FY [WdZDZ  
         0Ii* "?s  
        .OutlineLevel = wdOutlineLevelBodyText ~Cx07I_lf  
         Ji_3*(  
       zo-hH8J:  
        .CharacterUnitLeftIndent = 0 =h?WT*  
        .CharacterUnitRightIndent = 0 O+Fu zCWj  
        .CharacterUnitFirstLineIndent = 2 6.},y<E  
         ~a:0Q{>a  
        .LineUnitBefore = 0 bb# F2r4  
        .LineUnitAfter = 0 bsw0+UY=9  
        .SpaceBefore = 0 A@BYd'}]  
        .SpaceAfter = 0 0*MY4r|-  
         J#7\R':}zl  
        .DisableLineHeightGrid = True L'LZK  
    End With wuCiO;w  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False (PjC]`FK  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll %nQii? 1`i  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese ZR<T\w  
    ActiveDocument.Styles("QLNU正文").NoProofing = True I @TR|  
    DoEvents wRn]  
      `Nn=6[]  
    '图片段落样式 .eAN`-t;  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") a$p?r3y  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" 5-M E Oy(  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False wfQ 6J0  
    With ActiveDocument.Styles("QLNU图片段落").Font .az +'1  
        .Size = 12               '小四号 _ji"##K  
        .Italic = wdUndefined O(8Px  
        .Subscript = wdUndefined 3%Z:B8:<y  
        .Superscript = wdUndefined |*5Kfxq  
    End With 37DyDzW)'  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat r#^/qs(~  
         %|$h<~  
        .LeftIndent = CentimetersToPoints(0) W3s>+yU  
        .RightIndent = CentimetersToPoints(0) k/A8 |  
        .FirstLineIndent = CentimetersToPoints(0) GndU}[0J  
         pe>R2<!$  
        .LineSpacingRule = wdLineSpaceSingle hA.?19<Z  
        .Alignment = wdAlignParagraphCenter Y<0;;tVf4U  
        .KeepWithNext = True V(mz||'*  
        .OutlineLevel = wdOutlineLevelBodyText xJtblZ1sr  
         bI 3o|  
        .CharacterUnitLeftIndent = 0 +85i;gO5  
        .CharacterUnitRightIndent = 0 Hn5:*;N  
        .CharacterUnitFirstLineIndent = 0 w yP|#Z\  
         >M{=qs  
        .LineUnitBefore = 0 7F OG^  
        .LineUnitAfter = 0 I@a y&NNh  
    End With XBE+O7  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False i>YD_#w  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll =  *7K_M&  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese ?!=yp#  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True }{Ab:+aNd  
    DoEvents !63p?Q=  
     095:"Gv O  
     =&RpW7]  
    '第X章 tLXwszR0r  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") S"ZH5O(  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" +G';no\h  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False LeDty_   
    With ActiveDocument.Styles("QLNU章节标题").Font cRPW  
        .NameFarEast = "黑体" U|QLc   
        .NameAscii = "Arial Black" MaDdiyeC  
        .NameOther = "Arial Black" <rZ( B>$  
        .Name = "黑体" z^z_!@7v   
        .Size = 16 9MQ!5Zn  
        .Bold = True YvD+Lk'hm  
        .UnderlineColor = wdColorAutomatic e^)+bmh  
        .Outline = False 6? I,sZW  
        .Italic = wdUndefined #nV F.  
        .Subscript = wdUndefined 8yEN )RqI  
        .Superscript = wdUndefined Umx~!YL!  
        .Scaling = 100 G+2!+N\P  
        .DisableCharacterSpaceGrid = True qRkY-0vB P  
    End With o2  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat ;i*<HNQ  
        .LineSpacingRule = wdLineSpaceSingle (_h<<`@B  
        .Alignment = wdAlignParagraphCenter h.PVRAwk  
        .WidowControl = True DPCB=2E  
        .KeepWithNext = True )[&'\SOO  
        .KeepTogether = True  J jRz<T;  
        .PageBreakBefore = True 0Q? XU.v  
        .OutlineLevel = wdOutlineLevelBodyText 6%bZZTP`  
         m20:{fld  
        .LeftIndent = CentimetersToPoints(0) h>AK^fX  
        .RightIndent = CentimetersToPoints(0) c5x2FM z  
        .FirstLineIndent = CentimetersToPoints(0) 84v7g`lrR  
         wVU. j$+_#  
        .CharacterUnitLeftIndent = 0 ]hNio6CVm  
        .CharacterUnitRightIndent = 0 $VOSd<87  
        .CharacterUnitFirstLineIndent = 0 0$)uOUVJ  
         |[apLQ6  
        .LineUnitBefore = 1 :.wR*E  
        .LineUnitAfter = 0.5 l"70|~  
         &[u%ZL  
        .AutoAdjustRightIndent = False $+CKy>   
        .DisableLineHeightGrid = True 8aDh HXI  
        .FarEastLineBreakControl = True ~d]X@(G&  
        .WordWrap = True f]Jn\7j4  
    End With 7kX;|NA1  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False W^{zlg  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll Bx9R!u5D  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese q`1"]gy.  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True _m.u@+g  
    DoEvents :.8@ xVH  
     KY5it9e  
    '表格标题 VfWU-lJ  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 0LEJnl  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" hKVj\88  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False 1t&LNIc|^  
    With ActiveDocument.Styles("QLNU表格标题").Font iI T7pq1  
        .NameFarEast = "楷体" oasp/Y.p  
        .NameAscii = "Arial" N 4Kj)E@  
        .Name = "楷体" WzD=Ol  
        .Size = 10.5 oYOR%'0*m+  
        .Bold = True g=*'kj7c3  
        .Underline = wdUnderlineNone Vwxb6,}Z  
        .Italic = wdUndefined cP#vzFB0>  
        .Subscript = wdUndefined E,u/^V9x  
        .Superscript = wdUndefined bMe/jQuL.$  
        .Color = wdColorAutomatic }8 V/Cd9  
    End With /-%0y2"7  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat D6X0(pU0  
         7A6Qrfw  
        .LineSpacingRule = wdLineSpaceSingle $gZC"~BR  
        .Alignment = wdAlignParagraphCenter PkM]jbLe8  
        .KeepWithNext = True 8t)5b.PS  
        .KeepTogether = True I'6 wh+  
        .OutlineLevel = wdOutlineLevelBodyText n~ w.\939@  
         r<< ]41  
        .LeftIndent = CentimetersToPoints(0) @JB9qT  
        .RightIndent = CentimetersToPoints(0) \ZNUt$\  
        .FirstLineIndent = CentimetersToPoints(0) mhh^kwW  
          zciL'9  
        .CharacterUnitLeftIndent = 0 +H"[WZ5  
        .CharacterUnitRightIndent = 0 u={A4A#  
        .CharacterUnitFirstLineIndent = 0 D,R"P }G  
         -|F(qf  
        .LineUnitBefore = 1 '" MT$MrT  
        .LineUnitAfter = 0 MZJ@qIg[Y  
         *CtWDUxSdW  
    End With Fpe>| "&  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False i2bkgyzB.  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll CMu/n]?c  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese d\c?sYLv  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True )W,tL*9[  
    DoEvents t`F<lOKj  
f/"? (7F  
    '表格首行 6:\0=k5  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") % YgGw:wZ  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False }4$k-,1S  
    With ActiveDocument.Styles("QLNU表格首行").Font LtrE;+%2oz  
        .NameFarEast = "楷体" N{b ;kiZq  
        .NameAscii = "Times New Roman" w3hG\2)[HS  
        .Name = "楷体" V46=48K.  
        .Size = 9 3m;*gOLk6  
        .Bold = True -hy`Np  
        .Underline = wdUnderlineNone >)`yG'[  
        .Italic = wdUndefined .VD:FFkW  
        .Subscript = wdUndefined Dk ^,iY(u  
        .Superscript = wdUndefined w?eJVi@w{  
    End With {&u`d.Lk2p  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat O+f'Ql  
        .LineSpacingRule = wdLineSpaceSingle JSp V2c5Q  
        .Alignment = wdAlignParagraphCenter hYvWD.c}  
         Y\7WCaSgi  
        .LeftIndent = CentimetersToPoints(0) nDG41)|  
        .RightIndent = CentimetersToPoints(0) A^L8"  
        .FirstLineIndent = CentimetersToPoints(0) py-5 :g}d  
         h7? uM^p  
         X(r$OZ  
        .CharacterUnitLeftIndent = -0.5 ^9_4#Ep(  
        .CharacterUnitRightIndent = -0.5 Nqy)jfyex  
        .CharacterUnitFirstLineIndent = -0.5 \US'tF)/  
         qoZUX3{  
        .LineUnitBefore = 0 !+R_Z#gB  
        .LineUnitAfter = 0 FaA'%P@  
        .SpaceBefore = 0 5vP=Wf cW  
        .SpaceAfter = 0 b=87k  
         Z'Uc }M'U  
    End With G~. bi<(v  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False PiL[&_8g  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll y)//u:l  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese P3e}G-Oz  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True D MzDV_  
    DoEvents 0:C^-zrx  
{7F?30: ]  
    '表格内容 V1l9T_;f  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") rjaG{ i  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False [B_(,/?  
    With ActiveDocument.Styles("QLNU表格内容").Font bM@8[&t a  
        .NameFarEast = "楷体" Zqi;by%  
        .NameAscii = "Times New Roman" %DQ!#Nl*  
        .Name = "楷体" QV%,s!_b  
        .Size = 9 v % c-El%  
        .Bold = False A#;TY:D2  
        .Underline = wdUnderlineNone qI= j >x  
        .Italic = wdUndefined +uqP:z  
        .Subscript = wdUndefined tK P zM  
        .Superscript = wdUndefined pw, <0UhV  
    End With UngK9uB~  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat A_pc v7=@  
        .LineSpacingRule = wdLineSpaceSingle 6}/m~m  
        .Alignment = wdAlignParagraphCenter cXDG(.!n7B  
         <>l!  
        .LeftIndent = CentimetersToPoints(0) XYrZI/R  
        .RightIndent = CentimetersToPoints(0) f.e4 C,  
        .FirstLineIndent = CentimetersToPoints(0) |g`:K0BI  
         $ca>b X]  
        .CharacterUnitLeftIndent = -0.5 bVgmjt2&>  
        .CharacterUnitRightIndent = -0.5 'uBa gd>*  
        .CharacterUnitFirstLineIndent = -0.5 ]r&dWF  
        .LineUnitBefore = 0 &YpWfY&V  
        .LineUnitAfter = 0 bnZ`Wc*5b  
        .SpaceBefore = 0 WHkrd8  
        .SpaceAfter = 0 _~}n(?>  
    End With 9JtPP  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False k$d+w][  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll  26[.te9  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese K lbUs\E  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True LX%UkfA9  
    DoEvents eVvDis  
P`$Y73L  
    '图片标题 [kp#  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") `VL<pqPP  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" `mp3ORR;$  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False yN/Uyhq  
    With ActiveDocument.Styles("QLNU图片标题").Font .E/NlGm[  
        .NameFarEast = "楷体" .ng:Z7  
        .NameAscii = "Times New Roman"  b^dBX  
        .Name = "楷体" i_' u:P<t  
        .Size = 10.5 +)<H,?/  
        .Bold = True [j;#w,Wb  
        .Underline = wdUnderlineNone UmNh0n S  
        .Italic = wdUndefined z~0f[As.  
        .Subscript = wdUndefined w~|z0;hC  
        .Superscript = wdUndefined b!l/O2 G  
        .Outline = False vVfIe5+OP  
        .Shadow = False \L5h&  
        .Color = wdColorAutomatic 3:B4;  
    End With ?ISv|QpC  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat Gi S{=+=5  
        .LineSpacingRule = wdLineSpaceSingle ^`f( Pg!  
        .Alignment = wdAlignParagraphCenter nq,P.~l  
         cERmCe|/CG  
        .KeepWithNext = wdUndefined -egu5#d>  
        .KeepTogether = True ^2<nn op  
        .OutlineLevel = wdOutlineLevelBodyText }'c@E0"  
         Kc#42 C;t/  
        .LeftIndent = CentimetersToPoints(0) \!J9|  
        .RightIndent = CentimetersToPoints(0) =JDa[_lpN  
        .FirstLineIndent = CentimetersToPoints(0) .NX>d@ Kc  
         O8<@+xlX  
        .CharacterUnitLeftIndent = 0 :yS Q[AJ"  
        .CharacterUnitRightIndent = 0 F7N4qq1  
        .CharacterUnitFirstLineIndent = 0 TM*<hC  
         o4d[LV4DS  
        .LineUnitBefore = 0  Z5[f  
        .LineUnitAfter = 0 r$/.x6g//  
    End With |)pgUI2O[  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False A1kqWhg\  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll R2B 0?fu  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese |$QL>{81  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True 2nv-/ %]  
    DoEvents U66}nN9  
rvw fQ'14  
    '目录项 i9B1/?^W&  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") R1/87eB  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" a";xG,U  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False cuUl r  
    With ActiveDocument.Styles("QLNU目录项").Font A6AIkKjzq  
        .NameFarEast = "黑体" =7P(T`j  
        .NameAscii = "Times New Roman" bqI| wGCA"  
        .NameOther = "Times New Roman" >&DNxw  
        .Name = "黑体" ~'3hK4  
        .Size = 10.5 67b[T~92o  
        .Bold = False 3`^Na Q  
        .Italic = wdUndefined 1}DUe. a  
        .Underline = wdUnderlineNone K4|{[YpPB  
        .Color = wdColorAutomatic H'2Un(#Al  
        .Superscript = wdUndefined ,].S~6IM  
        .Subscript = wdUndefined ]>"q>XgnI  
    End With +jrMvk"  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat oP`yBX  
         [*2|#KSCX  
        .LineSpacingRule = wdLineSpaceSingle nd xijqw  
        .Alignment = wdAlignParagraphLeft `mo>~c7  
         @;T?R  
        .WidowControl = False {z0PB] U  
        .KeepWithNext = False YThFskRoO  
        .KeepTogether = False W:XN!  
        .PageBreakBefore = False EVE<LF?  
        .NoLineNumber = False h"849c;C.  
        .OutlineLevel = wdOutlineLevelBodyText rxM)SC;P  
         *=~X1s  
        .LeftIndent = CentimetersToPoints(0) o<f|jGY0  
        .RightIndent = CentimetersToPoints(0) FK!UUy;  
        .FirstLineIndent = CentimetersToPoints(0) qcdENIy0b  
         i#1~<U  
        .CharacterUnitLeftIndent = 0 {WYmO1  
        .CharacterUnitRightIndent = 0 3!<} -sW4  
        .CharacterUnitFirstLineIndent = 0 Z`97= :W  
         =F>nqklc  
        .LineUnitBefore = 0 ]Yd7  
        .LineUnitAfter = 0 $"`9QD~  
    End With .!`v2_  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False %n< .)R  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll ^{(i;IVG  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot j[q$;uSD  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese J6m(\o  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True /&Vgo ~.J  
    DoEvents g$eZT{{W  
     8C 4 =f  
    '参考文献 ;x~[om21;  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") .|Bmg6g*  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" }y P98N5o  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False Da WzQe=  
    With ActiveDocument.Styles("QLNU参考文献").Font |&xjuBC  
        .NameFarEast = "宋体" ja|XFs~  
        .NameAscii = "Times New Roman" 1WbawiG}  
        .NameOther = "Times New Roman" QnPgp(d <  
        .Name = "Times New Roman" u9~RD  
        .Size = 12 @[] A&)B  
        .Bold = False z6 A`/ jF}  
        .Italic = wdUndefined j"Vb8}  
        .Subscript = wdUndefined G ?&T0  
        .Superscript = wdUndefined .} ||!  
        .Underline = wdUnderlineNone j9IeqlL  
        .UnderlineColor = wdColorAutomatic *iW$>Yjb  
        .Color = wdColorAutomatic v*.#LJEm  
        .Engrave = False WKB@9Vfju  
    End With |Je+y;P7  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat AG==A&d>$  
         #Ies yNKZ  
        .LineSpacingRule = wdLineSpaceExactly eOI#T'5  
        .LineSpacing = 16 dtT2h>h9  
        .Alignment = wdAlignParagraphLeft i@|.1dWh  
        .WidowControl = False Hz] p]  
        .KeepWithNext = False q*kieqG  
        .KeepTogether = False G*$a81dAX  
        .PageBreakBefore = False {Vj25Gt  
        .OutlineLevel = wdOutlineLevelBodyText TR([u  
         T.j& UEsd  
        .LeftIndent = CentimetersToPoints(0) i <%  
        .RightIndent = CentimetersToPoints(0) lS:R##  
        .FirstLineIndent = CentimetersToPoints(0) !s:v UY58  
         H%:u9DlEK/  
        .CharacterUnitLeftIndent = 0 eODprFkt}  
        .CharacterUnitRightIndent = 0 @N0(%o&  
        .CharacterUnitFirstLineIndent = -2 B%e#u.'6  
         c?1 :='MC  
        .LineUnitBefore = 0 $}/Q%r  
        .LineUnitAfter = 0 B,dHhwO*l  
        .SpaceBefore = 0 =P"Sm r  
        .SpaceAfter = 0 ]p.eFYDh7  
         05>xQx?"m4  
    End With 68v59)0U  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False `'^&* 7,  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll R.+yVO2  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS J@I-tS  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True ie+746tFW  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese T2$V5RyX  
    DoEvents ;"@FLq(n  
$3C$])k  
    ' )xMP  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") }hjJt,m  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" F< #!83*%  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False gUq)M  
    With ActiveDocument.Styles("QLNU论文题目").Font 4{1 .[##]o  
        .NameFarEast = "黑体" LN?b6s75U  
        .NameAscii = "Arial Black" v8L&F9 o  
        .NameOther = "Arial Black" ]CIZF,  
        .Name = "Arial Black" 9+sOSz~ P  
        .Size = 16 (KDv>@5  
        .Bold = False ;<yVJox  
        .Italic = wdUndefined b[I;6HW  
        .Superscript = wdUndefined Hx]{'?   
        .Subscript = wdUndefined ,UD,)ZPf[  
        .Underline = wdUnderlineNone 389puDjy  
        .UnderlineColor = wdColorAutomatic /rqaUC)A  
        .Color = wdColorAutomatic {lhdropd  
+J~q: b.  
    End With "[LSDE"(  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat fDa$TbhjI  
        .LineSpacingRule = wdLineSpaceSingle D(]])4  
        .Alignment = wdAlignParagraphCenter t,8p}2,$  
        .WidowControl = True \I4*|6kA  
        .KeepWithNext = True A -dL_3  
        .KeepTogether = True # Y*cLN`Y7  
        .PageBreakBefore = True (n~ e2tZ/  
        .NoLineNumber = False FS vtiNW<  
        .OutlineLevel = wdOutlineLevelBodyText }Pj3O~ z  
         W2a9P_  
        .LeftIndent = CentimetersToPoints(0) Cl+TjmOV\`  
        .RightIndent = CentimetersToPoints(0) 1K;i/  
        .FirstLineIndent = CentimetersToPoints(0) ]GS@ub  
         q;kN+NK64  
        .CharacterUnitLeftIndent = 0 X[cSmkp7  
        .CharacterUnitRightIndent = 0 pSq3\#Twr  
        .CharacterUnitFirstLineIndent = 0 vKX $Nf  
         Q3vWwP;t~  
        .LineUnitBefore = 1 GAlAFsB  
        .LineUnitAfter = 1 o5N];Nj  
         Yjr6/&ML  
        .BaseLineAlignment = wdBaselineAlignAuto Dl#%tYL+3h  
    End With vkXdKL(q  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False y/}>)o4Q  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll Z`l97$\  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS L/.$0@$bv  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True zJfoU*G/B  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese f'\NGL  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True ]bq<vI%  
    DoEvents  t : =  
     F<UEipe/N  
    '中文摘要 PG1#Z?_  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") n+EK}= DK  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" |x AwiF_  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False p5KM(N6f  
    With ActiveDocument.Styles("QLNU中文摘要").Font E!4Qc+.   
        .NameFarEast = "宋体" "DFj4XKXY9  
        .NameAscii = "Times New Roman" E&/D%}Wl  
        .NameOther = "Times New Roman" 4^KoH eM6  
        .Name = "Times New Roman" Rp2~d  
        .Size = 12 \sIRV}Tk}N  
        .Bold = wdUndefined j;O{Hvvz  
        .Superscript = wdUndefined !0g+}  
        .Subscript = wdUndefined $UZ4,S?V  
        .Italic = wdUndefined s1!_zf_  
        .Underline = wdUnderlineNone 042sjt  
        .UnderlineColor = wdColorAutomatic BHwQB2t gc  
        .Color = wdColorAutomatic jaAv_=93f  
    End With *yv@-lP5s  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat !8|]R  
        .LineSpacingRule = wdLineSpaceExactly $rySz7NI  
        .LineSpacing = 20 2wWL]`(E  
        .Alignment = wdAlignParagraphLeft X`ifjZ9}d  
         <N%8"o  
        .WidowControl = False PUUBn"U-  
        .KeepWithNext = False GLe(?\Ug=  
        .KeepTogether = True fWR]L47n  
        .PageBreakBefore = False .bOueB-  
        .NoLineNumber = False m4@y58n=  
        .OutlineLevel = wdOutlineLevelBodyText #_+T@|r  
         C/Ig.KmXF{  
        .LeftIndent = CentimetersToPoints(0) +|OkT  
        .RightIndent = CentimetersToPoints(0) eXaa'bTx  
        .FirstLineIndent = CentimetersToPoints(0) "mA Vkq~  
         / 4K*iq  
        .CharacterUnitLeftIndent = 0 \kiCczW_  
        .CharacterUnitRightIndent = 0 W"rX$D [Le  
        .CharacterUnitFirstLineIndent = 2 >a]4}  
        .LineUnitBefore = 0 6/9h=-w&  
        .LineUnitAfter = 0 N[j7^q7Xt  
         <[^nD>t_  
    End With ]u_^~   
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False X,/@#pSOz  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll >NN|vj  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS 62}bs/%  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True F6T@YSP  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese &/J[PdSb$  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True )>ed6A1  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete #;RP ?s  
    DoEvents |n;gGR\  
     @NXGVmY1}  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") '"5" $)7  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" O,_2dj d  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False xa#:oKF3  
    With ActiveDocument.Styles("QLNU英文标题").Font Y.?|[x0Wh  
        .NameFarEast = "黑体" _c|>m4+X  
        .NameAscii = "Arial Narrow" qFV=P k  
        .Name = "Arial Narrow" j\nnx8`7  
        .Size = 16 a$MMp=p  
        .Bold = True J ,fXXi)J  
        .Bold = wdUndefined &50Kn[  
        .Superscript = wdUndefined oy'Q#!  
        .Subscript = wdUndefined S{A u%Rs  
        .Italic = wdUndefined >qn@E?Uf  
         zjh&?G]:G  
        .Underline = wdUnderlineNone HnVUG4yZTD  
        .UnderlineColor = wdColorAutomatic fV3!x,H  
        .StrikeThrough = False 3MC| O5R4  
        .DoubleStrikeThrough = False S\Qh#y FT  
    End With P,!k^J3:l  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat $&m^WrZaY  
        .LineSpacingRule = wdLineSpaceSingle 4];Qpln  
        .Alignment = wdAlignParagraphCenter 181-m7W  
        .WidowControl = True i\B >J?Q\  
        .KeepWithNext = False Nh41o0  
        .KeepTogether = False *?gn@ 4Ly  
        .PageBreakBefore = False J-fU,*Bk  
        .NoLineNumber = False %2<chq  
        .FirstLineIndent = CentimetersToPoints(0) >]=1~ sF  
        .OutlineLevel = wdOutlineLevelBodyText jow^~   
         k 6~k  
        .LeftIndent = CentimetersToPoints(0) Zg7~&vs$  
        .RightIndent = CentimetersToPoints(0) }0uSm%,"  
        .FirstLineIndent = CentimetersToPoints(0) Ifu$p]~z$  
         ^Y xqJy  
        .CharacterUnitLeftIndent = 0 p;) ;Vm+8  
        .CharacterUnitRightIndent = 0 Yuze9b\[  
        .CharacterUnitFirstLineIndent = 0 ?x@BZe  
         sm}v0V.Js  
        .LineUnitBefore = 1  !+IxPn  
        .LineUnitAfter = 1 F5%-6@=  
         C%v@ u$N  
    End With K+H?, I  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False dH!k {3bL  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll g?(Z+w4A 3  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS tqrvcnQr^  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True d {moU\W  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese doXd6q4H  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True /'G'GQrr  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete #JZf] rtp  
    DoEvents 3l>P>[<o  
H(]lqvO  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") K4xZT+Qb  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" Tm_vo-   
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False h GS";g[?  
    With ActiveDocument.Styles("QLNU英文摘要").Font *ZGQ`#1.X6  
        .NameFarEast = "宋体" oC U8;z  
        .NameAscii = "Arial" [kFX>G4  
        .NameOther = "Arial" ]k{cPK  
        .Name = "Arial" /w!b2KwV  
        .Size = 12 mn" a$  
        .Bold = wdUndefined M!=v"C#  
        .Italic = wdUndefined p7! q#o  
        .Superscript = wdUndefined S'Q$N-Dy  
        .Subscript = wdUndefined 2 Z,;#t  
    End With tF&%7(EU3  
     AY0o0\6cw  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat YjS|Ht->  
         9XS+W w7  
        .LineSpacingRule = wdLineSpaceExactly Lq  LciD  
        .LineSpacing = 20 ]&VD$Z984r  
         -MHu BgYJ-  
        .Alignment = wdAlignParagraphJustify +:It1`A~]  
         I~"-  
        .WidowControl = False .gT@_.ZD9  
        .KeepWithNext = False 6%ID*  
        .KeepTogether = False QE!cf@~n"  
        .PageBreakBefore = False R]/F{Xs  
        .NoLineNumber = False HqOSQ<-Fo  
         >Q+a'bd w  
        .OutlineLevel = wdOutlineLevelBodyText b_Ba0h=  
         Q%QpG)E  
        .LeftIndent = CentimetersToPoints(0) "S[VtuxPCU  
        .RightIndent = CentimetersToPoints(0) G`mC=*M a;  
        .FirstLineIndent = CentimetersToPoints(0) -H.;73Kb[  
         nH% /  
        .CharacterUnitLeftIndent = 0 ~srmlBi6  
        .CharacterUnitRightIndent = 0 h&yaug,.  
        .CharacterUnitFirstLineIndent = 2 Ft`#]=IS  
         TDY}oGmNn  
        .LineUnitBefore = 0 >K-O2dry*  
        .LineUnitAfter = 1 "6pjkEt4  
         SNff  
    End With -.g5|B  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False 8.jd'yp*J  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll 1WcT>_$  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS f]5bAs  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False Dw[w%uz  
    DoEvents 4pq>R  
>g93Bj*  
    Options.Pagination = True fXIeCn  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." KfWVz*DC!  
    DoEvents )R ,*  
    ActiveDocument.Repaginate $F G4wA  
pq-zy6^  
End Sub Z#>k:v  
:!tQqy2  
\s<iM2]Kl  
杺栫杣杊椌柮栬，䒴蓉艿芖。
回复 引用
举报顶端
伍胥之 离线
级别: 军区司令员

显示用户信息 
101楼  发表于: 2024-12-28   
只看该作者 ┊  小 中 大
姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 <o?qpW$,>  
5>A3;P  
引用
引用第20楼newport93于06-14-2010 13:47发表的  : 9sE>K)  
' {:(4>&  
老五，I 服了U。 S~6<'N&[  
E >'pMw  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 UBC[5E$  
4,<~t>M1  
杺栫杣杊椌柮栬，䒴蓉艿芖。
回复 引用
举报顶端
上一主题下一主题
«3456»Pages: 6/6
 Bay Area Chinese--灣區華人 » 乱讲
描述
快速回复

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