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

显示用户信息 
100楼  发表于: 2021-07-18   
Dim bContinue As Boolean S6uBk"V!  
ek<U2C_ u#  
Dim regEX As New RegExp $oz ZFvJF  
Dim paraCounter As Long  '全局段落计数,仅在主程序中可读写,其它过程函数应为只读 *(J<~:V?  
x.I-z@\E  
Dim LastTitle0String As String, LastTitle0No As Long "#%T*c{Tf0  
Dim LastTitle1String As String, LastTitle1No As Long Wk?XlCj  
Dim LastTitle2String As String, LastTitle2No As Long Om*Dy}  
Dim LastTitle3String As String, LastTitle3No As Long qdhD6#r  
Dim LastTitle4String As String, LastTitle4No As Long hO8B]4=&*  
Dim LastTitle5String As String, LastTitle5No As Long }j x{Cw  
Dim LastTabelString As String, LastTableNo As Long Z q)A"'Y  
Dim LastFigureString As String, LastFigureNo As Long ]v#Q\Q8>  
y!j1xnzki  
Dim strSeperator As String 8in8_/x  
ul E\>5O4h  
Sub ConvertWidth(fTEXT As String, rText As String) 4I$#R  
        Selection.Find.ClearFormatting /}wGmX! -!  
        Selection.Find.Replacement.ClearFormatting H4U;~)i  
        Selection.Find.Wrap = wdFindContinue ]4PG[9J@  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText dJk.J9Z  
        DoEvents \W4SZR%u  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True b1+Nm  
End Sub MWB?V?qPSC  
:hr%iu  
Sub ClearDomain() Y (Q8P{@(  
        With Selection.Find d{  Z  
            .ClearFormatting \%#jT GFs~  
            .Replacement.ClearFormatting ;,D7VxWhY  
            .Wrap = wdFindContinue iPao54Z  
            Me.txtStatus.Text = "清除所有域代码" l\H9Io3  
            DoEvents +-ue={ '  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False TAP /gN'  
        End With *ZHk^d:  
End Sub y3vOb, 4  
.[7m4iJf  
Private Sub cmdCheck_Click() 2ma.zI@^u9  
    bContinue = True zK}.Bhj#  
    Dim NoSeries1(1 To 16) As String JP#m} W  
    Dim NoSeries2(1 To 16) As String ~dv C$   
    Dim NoSeries5(1 To 16) As String 5}f$O  
    Dim NoSeriesRM(1 To 16) As String HRk+2'wjAz  
    Dim paraTotal As Long, ParaText As String 7J\I%r  
    Dim ttString As String, ttNo As String =d 9%ce  
     )<+Z,6  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long wx<DzC  
T ^uBMDYe  
    Me.txtStatus.Visible = True &}WSfZ0{  
    Me.lbParaType.Visible = True )s M}BY  
    Me.cmdCheck.Enabled = False ,%u\2M  
     8I*fPf  
     <=p"c k@  
     /%~`B[4F  
     >%{h_5  
    Dim ParaType As String, rText As String 9.<$&mVk7`  
     6d,"GT  
    Selection.WholeStory eb7`R81G  
    Selection.NoProofing = True :t(}h!7  
     C)`/Q(^  
    tm1 = Now /IgTmXxxj  
     P;h/)-q8  
        ActiveWindow.View.Type = wdNormalView 7l?-2I'c  
     I3A](`  
    NoSeries1(1) = "一" %"o4IYV#  
    NoSeries1(2) = "二" nRvV+F0#  
    NoSeries1(3) = "三" {Tx+m;5F  
    NoSeries1(4) = "四" 3+IS7ATn  
    NoSeries1(5) = "五" {oO!v}]  
    NoSeries1(6) = "六" ]RV6( |U4_  
    NoSeries1(7) = "七" C0e< _6p=  
    NoSeries1(8) = "八" Yk }zN_v  
    NoSeries1(9) = "九" K}6}Opr,Tt  
    NoSeries1(10) = "十" cOIshT1  
    NoSeries1(11) = "十一" p0b&CrALx  
    NoSeries1(12) = "十二" @qeI4io-n  
    NoSeries1(13) = "十三" qk+:p]2  
    NoSeries1(14) = "十四" u4%-e )$X  
    NoSeries1(15) = "十五" cdk;HK_Ve.  
    NoSeries1(16) = "十六" 'kp:yI7w  
     avdi9!J2  
    NoSeries2(1) = "㈠" G'!Hc6OZ  
    NoSeries2(2) = "㈡" H}A67J9x  
    NoSeries2(3) = "㈢" ]F,5Oh :OY  
    NoSeries2(4) = "㈣" *M&~R(TMn  
    NoSeries2(5) = "㈤" ]^dXB 0  
    NoSeries2(6) = "㈥" XMpPG~XdN  
    NoSeries2(7) = "㈦" } pA0mW9  
    NoSeries2(8) = "㈧" Ltc>@  
    NoSeries2(9) = "㈨" 6x_8m^+m  
    NoSeries2(10) = "㈩" |3s-BKbN4  
     ${ e{#  
    NoSeries5(1) = "①" 4!D!.t~r  
    NoSeries5(1) = "②" 8L0#<"'0  
    NoSeries5(3) = "③" z`{x1*w_  
    NoSeries5(4) = "④" g8^$,  
    NoSeries5(5) = "⑤" 5'@}8W3b  
    NoSeries5(6) = "⑥" rN OwB2e  
    NoSeries5(7) = "⑦" k9a-\UIMet  
    NoSeries5(8) = "⑧" M^H357r%  
    NoSeries5(9) = "⑨" M}HGFN  
    NoSeries5(10) = "⑩" *T  6<'a  
     _bW#* Y5  
     U4%P0}q/  
    NoSeriesRM(1) = "I" @A g=2\9  
    NoSeriesRM(2) = "II" Bp9 u6R  
    NoSeriesRM(3) = "III" 7&2xUcsz )  
    NoSeriesRM(4) = "IV" H`kfI"u8  
    NoSeriesRM(5) = "V" (g5T2(_6L  
    NoSeriesRM(6) = "VI" ="MG>4j3.F  
    NoSeriesRM(7) = "VII" yhZ2-*pTg  
    NoSeriesRM(8) = "VIII" d^4!=^HN  
    NoSeriesRM(9) = "IX" 4W6gKY  
    NoSeriesRM(10) = "X" "zfy_h  
    NoSeriesRM(11) = "XI" :0r@o:H  
    NoSeriesRM(12) = "XII" eP6>a7gc  
    NoSeriesRM(13) = "XIII" |ML|P\1&V  
    NoSeriesRM(14) = "XIV" Tk)y*y  
    NoSeriesRM(15) = "XV" hX8;G!/  
    NoSeriesRM(16) = "XVI" 1_ %3cN.  
     .^uNzN~  
    i = MsgBox("为了你的数据安全,请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗?", vbYesNo) RxcX\:  
     ~|riFp=J  
    If i = vbNo Then po!0j+r3  
        Exit Sub x-cg df  
    End If ZjbMk 3Y  
     OF!(BJ L  
    If Me.chkSuper.Value Then =ayl~"bW  
        Me.txtStatus.Text = "检查修改所有的上标格式" . F_pP2A  
     e_7a9:2e  
        CheckSuperScript ?bY'J6n.  
         F@[l&`7  
    End If *&!&Y*Jzg  
     64Q{Yu I  
    If Me.chkStyle.Value Then _ HGbR/  
        Me.txtStatus.Text = "设置样式,请稍候...." U",kAQY  
        DoEvents FK>8(M/  
        CeateOrModifyStyle dQTJC %]O  
    End If o[aRG7C  
     7h0LR7  
     S9- FKjU  
     c.r]w  
    ClearDomain p%8y!^g  
         pFhznH{0  
     [WuN?H  
     *IfLoKS'  
    If Me.chkLIST.Value Then 3 (jI  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" 7iT#dpF/A  
     <\Lii0hi!  
        ConvertListToOrdinary 4; y*y tY*  
    End If eWE7>kwh  
     QrDI$p7;'  
     p v%`aQ]o{  
    Dim pType As String, trimpTEXT As String ELPzqBI  
    If Me.chkNum.Value = True Then Iy'a2@   
        Me.txtStatus.Text = "转换全角数字形式为半角" wm_xH_{F  
        ConvertWidth "1", "1" :(E.sT "R  
        DoEvents rdSkGb  
        ConvertWidth "2", "2" 5@6F8:x}V  
        DoEvents vT)FLhH6*  
        ConvertWidth "3", "3" l'm!e'7_  
        DoEvents WQK ~;GV-  
        ConvertWidth "4", "4" 0.qnbDw_  
        DoEvents J.35Ad1hM  
        ConvertWidth "5", "5" Xnpw'<~X  
        DoEvents v:|_!+g:  
        ConvertWidth "6", "6" K8daSvc  
        DoEvents :.J Ad$>P  
        ConvertWidth "7", "7" PS**d$ S  
        DoEvents 6;Wns'  
        ConvertWidth "8", "8" l*^c?lp)  
        DoEvents CN+[|Mz*p  
        ConvertWidth "9", "9" h:[%' htz  
        DoEvents M:rE^El  
        ConvertWidth "0", "0" f }P6P>0T  
        DoEvents w a2?%y_G  
        ConvertWidth "a", "a" Gg$4O8  
        DoEvents c7Jfo x V  
        ConvertWidth "b", "b" tP^2NTs%]  
        DoEvents J4"?D9T3G  
        ConvertWidth "c", "c" lXjhT  
        DoEvents S8 .1%sw  
        ConvertWidth "d", "d" LB$#] Z  
        DoEvents E:(DidSE@  
        ConvertWidth "e", "e" n Hz Xp:"  
        DoEvents c<fl6o)  
        ConvertWidth "f", "f" f@rR2xZoQ  
        DoEvents tFn_{fCc>  
        ConvertWidth "g", "g" "w7wd5h  
        DoEvents M8(N9)N  
        ConvertWidth "h", "h" [`2V!rU  
        DoEvents t}w<xe  
        ConvertWidth "i", "i" 9bwG3jn4?  
        DoEvents lf-1;6nyk"  
        ConvertWidth "j", "j" e#BxlC  
        DoEvents #? u#=]  
        ConvertWidth "k", "k" epXvk &  
        DoEvents clyZD`*  
        ConvertWidth "l", "l" 0w<vc} {t  
        DoEvents eaB6e@]@  
        ConvertWidth "m", "m"  h&}z@  
        DoEvents fAYp\ k  
        ConvertWidth "n", "n" ]O]6O%.ao  
        ConvertWidth "o", "o" OiI29  
        ConvertWidth "p", "p" L.X"wIs^  
        ConvertWidth "q", "q" ';'gKX!9V  
        ConvertWidth "r", "r" *sz:c3{_  
        ConvertWidth "s", "s" 21_sg f?  
        ConvertWidth "t", "t" 1L3 +KD~  
        ConvertWidth "u", "u" V(wm?Cc]  
        ConvertWidth "v", "v" %0&59q]LM  
        ConvertWidth "w", "w" @| N{E I  
        ConvertWidth "x", "x" yzWVUqtXm  
        ConvertWidth "y", "y" M-7^\wXTA  
        ConvertWidth "z", "z" QN)E PS:y  
        ConvertWidth "A", "A" '3R o`p{  
        ConvertWidth "B", "B" B:oE&Ahh{  
        ConvertWidth "C", "C" ^Q,-4\ec  
        ConvertWidth "D", "D"  +7E&IK  
        ConvertWidth "E", "E" #:[^T,YD0  
        ConvertWidth "F", "F" [`(W(0U%  
        ConvertWidth "G", "G" m9Xauk$(  
        ConvertWidth "H", "H" x`n7D  
        ConvertWidth "I", "I" #l 7(W G  
        ConvertWidth "J", "J" A s"% u  
        ConvertWidth "K", "K" Op<,e{[]  
        ConvertWidth "L", "L" &Zy% Zz  
        ConvertWidth "M", "M" DsX+/)d  
        ConvertWidth "N", "N" e>J.r("f  
        ConvertWidth "O", "O" s`#g<_{X  
        ConvertWidth "P", "P" ZW>iq M^9  
        ConvertWidth "Q", "Q" E/Of kL*\  
        ConvertWidth "R", "R" o&-D[|E|  
        ConvertWidth "S", "S" 8GlRO4yd  
        ConvertWidth "T", "T" 7G':h0i8  
        ConvertWidth "U", "U" r?7tI0  
        ConvertWidth "V", "V" efN5(9*9R  
        ConvertWidth "W", "W" _O#R,Y2#  
        ConvertWidth "X", "X" y8%QS*  
        ConvertWidth "Y", "Y" zPm|$d  
        ConvertWidth "Z", "Z" Yc^;?n`x  
        ConvertWidth "^l", "^p" vLI'Z)\  
        ConvertWidth "(", "(" M,w5F5  
        ConvertWidth ")", ")" Xnc?oT+  
     grVPu! B;  
    End If ;x,yGb`  
c'md)nD2M  
    With ActiveDocument BMi5F?Q'G  
        Dim tbl As Table L+ K,Y:D!W  
        For Each tbl In .Tables "vvv@sYxi  
            tbl.Rows.Alignment = wdAlignRowCenter ;r?s7b/>  
            tbl.Range.Font.NameFarEast = "楷体" yo^M>^P\N  
            tbl.Range.Font.NameAscii = "Times New Roman" 40=*Ul U-  
            tbl.Range.Font.Size = 10.5 Jo'~oZ$  
        Next &a8%j+j  
        Set tbl = Nothing 7/e25LS!`U  
    End With 03Uj0.Z|7  
     =W[M=_0u  
     <]Btx;}  
    With ActiveDocument )kIZm Q|f1  
         OjWg>v\ v  
        For i = 1 To .TablesOfContents.Count Bi-x gq'z  
            .TablesOfContents(i).Delete 1 EL#T&  
        Next [[s^rC<d  
         pd dumbp  
         #n_t5 O[  
         ,,8'29yEq  
        paraTotal = .Paragraphs.Count adY ,Nz  
        paraCounter = 1 o#u hPUZ  
         tZ>'tE   
        LastTitle0No = 0 ; .+ C  
        LastTitle1No = 0 jI/#NCKE  
        LastTitle2No = 0 H"NBjVRU%  
        LastTitle3No = 0 t9~Y ?  
        LastTitle4No = 0 }y>/#]X  
        LastTableNo = 0 =C#22xqQ.  
        LastFigureNo = 0 # KUN ZW  
         fL(_V/p^  
        Dim Sec As Long WU\Bs2  
         weH;,e*r  
        Sec = InputBox("正文从第一节开始?", "节设置", 6) l3N '@GO  
        If Sec = 0 Then _J&IL!S2  
            Exit Sub \%}w7J;  
        End If yRy^'E~  
         ^UmhSxQ##  
        k = 0 W %<,GV  
        Do While (paraCounter < paraTotal) And bContinue \ v2-}jU(  
            k = k + 1 v`&>m '  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then g|Xjw Ti8$  
                Exit Do 0d/ f4  
            End If s{uSU1lQn  
            paraCounter = paraCounter + 1 AGhr(\j  
            If k Mod 20 = 0 Then U+G8Hs/y  
                Me.lbCounter.Caption = paraCounter sW]>#e  
                DoEvents O- (gkE  
            End If W4#E&8g%  
        Loop dnzZ\t>U  
         K?@x'q1  
         Ju-#F@38  
        Do While (paraCounter < paraTotal) And bContinue O[+\` 63F=  
             w!r.MWE  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) ;iA$ yw:  
            ShapeHeight = 0 eWOZC(I*z  
            ShapeWidth = 0 L'HO"EZFj  
           Ug#EAV<m  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth nTv^][  
             @Zzg^1Ilpu  
            Select Case ParaType Z6 fR2A~Q[  
                Case "【】表格内容" ?>Bt|[p:s)  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" bQ`2ll*(  
                Case "章" @yNCWa~N  
                    LastTitle0No = LastTitle0No + 1 3[UaK`/1C  
                    '新一章开始,复位其下属标题编号 (j&7`9<5  
                    LastTitle1No = 0 1VA%xOURh  
                    LastTitle2No = 0 \2Yo*jE}  
                    LastTitle3No = 0 jO.c>C[?  
                    LastTitle4No = 0 nmw#4yHYy:  
                     V~7Oa2'#B  
                    k = Val(ttNo) AzMX~cd  
                    If k = 0 Then '非数字编号章节 7V%b!R}  
                        If ttNo <> NoSeries1(LastTitle0No) Then U !b~vrr^  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString 0ZJrK\K;  
                            Me.ErrMsg.AddItem "章节编号错误:" & ParaText D\Fu4Eg  
                        End If 09 v m5|  
                    Else k r5'E#  
                        If Val(ttNo) <> LastTitle0No Then 8vx#QU8E/  
                            rText = "第" & LastTitle0No & ttString yRWZ/,9x   
                            Me.ErrMsg.AddItem "章节编号错误:" & ParaText .h-k*F0Ga)  
                        End If byHXRA )39  
                         Iu ve~ugO  
                    End If Y;=GM:*H  
                     04c`7[  
                    '章段落设置 DD'RSV5]  
                    '字体大小:三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 H2{&da@D5  
                    .Paragraphs(paraCounter).Style = "QLNU章节" lm8<0*;,  
                    .Paragraphs(paraCounter).Range.Select $Yj4&Two<  
                    Selection.EndKey unit:=wdLine \Icd>>)*  
                    tc = Replace(rText, vbCr, "") !DBaC%TGC  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False Wb#ON|.2  
                Case "一级标题" {# N,&? [  
                    LastTitle1No = LastTitle1No + 1 ._p^0UxT  
                    '新一级标题开始,复位其下属标题编号 u}-)ywX  
                    LastTitle2No = 0 ua!RwSo  
                    LastTitle3No = 0 2,rjy|R`  
                    LastTitle4No = 0 /6FPiASbS  
                     <z QUa  
                    If ttNo <> NoSeries1(LastTitle1No) Then &;[0.:;  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString b\ vL^\bX8  
                            Me.ErrMsg.AddItem "一级标题编号错误:" & ParaText YR"IPyj  
                    End If 8b X?HeYrr  
                   W]5 sqtF;6  
                     a?X #G/)  
                    '一级标题段落设置  格式:一、标题内容 mr+8[0  
                    .Paragraphs(paraCounter).Range.Text = rText QV8;c^EZ  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" vv1W<X0e<  
                    .Paragraphs(paraCounter).Range.Select XZ 4H(Cj  
                    Selection.EndKey unit:=wdLine 42Cc`a%U  
                    tc = Replace(rText, vbCr, "") rT'<6]`  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False i9^m;Y)^I  
                Case "二级标题" r12e26_Ab  
                    LastTitle2No = LastTitle2No + 1 }g"K\x:Z  
                    '新二级标题开始,复位其下属标题编号 pnGDM)H7  
                    LastTitle3No = 0 E9Hyd #A  
                    LastTitle4No = 0 ]#\/1!W  
                     `L @`l  
                    If ttNo <> NoSeries1(LastTitle2No) Then D 26A%[^O  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString ^ux"<?  
                            ErrMsg.AddItem "二级标题编号错误:" & ParaText /t04}+,e ^  
                    End If =c#; c+a  
                     ,-)ww:  
                    '二级标题段落设置 格式:(一)、标题内容 Lf+3nN  
                    .Paragraphs(paraCounter).Range.Text = rText uDMyO<\  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" "b0!h6$!H  
                     r5Xi2!   
                    .Paragraphs(paraCounter).Range.Select ui&^ m,  
                    Selection.EndKey unit:=wdLine b`^mpB*6R  
                    tc = Replace(rText, vbCr, "") # {~3bgY  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False {^@qfkZz^  
                 i%otvDn1  
                Case "三级标题"  WYW@%t  
                    LastTitle3No = LastTitle3No + 1 qb PC5v  
                    '新三级标题开始,复位其下属标题编号 Fv3:J~Yf  
                    LastTitle4No = 0 KV|ywcGhT  
                     ?mh0^G  
                    If Val(ttNo) <> LastTitle3No Then $+n5l@W  
                            rText = LastTitle3No & ". " & ttString &!? qSi~V  
                            Me.ErrMsg.AddItem "三级标题编号错误:" & ParaText yb-/_{Y  
                          6AKT -r.  
                    End If "uU[I,h  
                    '三级标题段落设置 格式:1. 标题内容 oN[# C>#(  
                    .Paragraphs(paraCounter).Range.Text = rText +~?K@n  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" l)qGG$7$  
                    .Paragraphs(paraCounter).Range.Select ?>iZ){0,  
                    Selection.EndKey unit:=wdLine aFDCVm%U|  
                    tc = Replace(rText, vbCr, "") &P(vm@*  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False 8]&lUMaqVZ  
                Case "四级标题" |"Fm<  
                    LastTitle4No = LastTitle4No + 1 @l?2",  
                     IWnyqt(k  
                    If Val(ttNo) <> LastTitle4No Then t_iZ\_8  
                            rText = "(" & LastTitle4No & "). " & ttString <xAlp;8m5  
                            ErrMsg.AddItem "四级标题编号错误:" & ParaText Cgn@@ P5ZC  
                     sx][X itR+  
                    End If e:(~=9}Li  
                    '四级标题段落设置 格式:(1). 标题内容 Y#fiJ  
                    .Paragraphs(paraCounter).Range.Text = rText *Edr\P  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" eQsoZQA1  
                    .Paragraphs(paraCounter).Range.Select [KsVI.gn  
                    Selection.EndKey unit:=wdLine ^ =RSoR  
                    tc = Replace(rText, vbCr, "") C-;}a%c"  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False .KxE>lJbqM  
                 oT^r  
                Case "表格标题" fVxRK\a\\  
                    LastTableNo = LastTableNo + 1 C72btS  
                     "yPKdwP  
                    If ttNo <> CStr(LastTableNo) Then Nu6]R677Y  
                            rText = "表" & LastTableNo & ". " & ttString lPn&,\9@~  
                            ErrMsg.AddItem "表格编号错误:" & ParaText (Ek=0;Cr  
                   n$jf($*  
                    End If `bEum3l\6]  
                     etL)T":XV  
                    '表格名称段落设置 格式:表1. 表格名称 &;@U54,wV  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" F>rf cW2  
                    xe = Replace(rText, vbCr, "") o88Dz}a  
                    .Paragraphs(paraCounter).Range.Select !Nno@S P@  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 6N'HXL UlQ  
                    Selection.Range.Text = xe 5h>t4 [~  
                    Selection.EndKey (N$$N:ac[t  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False q^+Z>   
                 EhHW`  
                Case "表格首行" l&m'?. g f  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" f2FGod<CzN  
                Case "图片标题" C lzz!v  
                    LastFigureNo = LastFigureNo + 1 ybVdWOqv  
                     Ge4 tc  
                    If ttNo <> CStr(LastFigureNo) Then %M;{+90p>t  
                            rText = "图" & LastFigureNo & ". " & ttString 6| {uZNz  
                            ErrMsg.AddItem "表格编号错误:" & ParaText {#%;HqP  
                   uT{.\qHo  
                    End If .E0*lem'hE  
                    '图片名称段落设置 格式:图1. 图名称 6T=zHFf~  
                    .Paragraphs(paraCounter).Range.Text = rText Z. mnD+{  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" *,p16"Q;  
                    .Paragraphs(paraCounter).Range.Select G+l9QaFv  
                    Selection.EndKey unit:=wdLine l|K`'YS!<{  
                    xe = Replace(rText, vbCr, "") Mta;6<  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False }S>:!9f  
                Case "正文" gfAVxMg  
                     '正文名称段落设置 n`g:dz  
                    .Paragraphs(paraCounter).Style = "QLNU正文" Y^CbpG&-vC  
               Case "文献条目" Ia>>b #h  
                    With .Paragraphs(paraCounter) bHH=MLZR:  
                        '.Range.Select P%xz"l i  
                        'Selection.ClearFormatting t+B L O<  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分, 而StrSeperator传回了正确的格式与分隔符如“[15] ” ^1NtvQe@Y\  
                        .Style = "QLNU参考文献" be5NasC  
                    End With O7\ )C]A  
               Case "图表注解" _Rnq 5y  
                    With .Paragraphs(paraCounter) ^p!bteA>  
                        .Range.Font.NameFarEast = "楷体" e,Fe,5E&g  
                        .Range.Font.NameAscii = "Times New Roman" Ld YaJh~h  
                        .Range.Font.Size = 9 '小5号字 g6 3?(+Fz  
                         Mq$N ra  
                        .Alignment = wdAlignParagraphCenter dM3V2TT  
                        .LeftIndent = 0 rFR2c?j8  
                        .RightIndent = 0 POvpaPAZ<  
                        .FirstLineIndent = 0 _\2^s&iJh  
                        .LineSpacing = 12 od~`q4p1(-  
                        .LineSpacingRule = wdLineSpaceExactly b{Kw.?85  
                        .LineUnitAfter = 0 g@7j<UY  
                        .LineUnitBefore = 0 9C)w'\u9+  
                        .OutlineLevel = wdOutlineLevelBodyText !;YQQ<D  
                        .PageBreakBefore = False {T[/B"QZG  
                        .RightIndent = 0 =v]eQIp  
                        .WordWrap = True <jRs/?1R  
                        .LineUnitAfter = 0.5 7<%Rx19L*  
                         Y&_1U/}h  
                    End With Y/w) VV  
                Case Else O5p]E7/e  
                    '不作处理 2 -M]!x)  
            End Select fO{E65uA  
             7c Gq.U  
            '含有inlineshape的段落处理 D^H<)5d9  
            If ShapeHeight > 30 Then IWcYa.=tZ  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 Gg9NG`e6I  
            End If `)R@\@jt  
             7w=%aW|  
            If (ShapeWidth + ShapeHeight) > 150 Then QZ54Osdl  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" ?W"9G0hTqM  
            End If s% ~p?_P   
             yD!V;?EnK  
            '段落计数器递 2_ HPsEx  
            paraCounter = paraCounter + 1 P =9Zm  
            Me.lbCounter.Caption = "当前检测段落:" & paraCounter $\@yH^hL  
            Me.txtStatus.Text = ParaText ^#L? HIM  
            DoEvents T4{&@b 0*  
        Loop A4W61f  
    End With DeTZl+qm1E  
     eX>X=Ku  
    msg = "" GQ8r5V4:  
     RU'DUf  
    For i = 0 To Me.ErrMsg.ListCount - 1 |_;Vb  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) Epm=&6zf  
    Next 1f1J'du  
     DqHVc)9  
     u!DSyHR '  
     ,/g\;#:{@]  
    Me.txtStatus.Text = "格式化完成!" & vbCrLf & "开始时间:" & tm1 & vbCrLf & "结束时间:" & Now & vbCrLf & msg =7`0hS<@F  
    Me.cmdCheck.Enabled = True !S', V&Yb  
    Me.txtStatus.Visible = True x9NLJI21/  
    Me.lbParaType.Visible = False ;{~F7:i  
     ^ok;<fJ  
    bContinue = False md/Z[du:'  
End Sub 6'6@VB  
`'`T'+0  
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) p }bTI5  
    Dim pTEXT As String ')w*c  
     S Yvifgp  
    pTEXT = ChKRange.Text -j_J 1P0,  
     *ad"3>  
    ParaType = "其它" hOx">yki  
    TitleString = pTEXT cuP5cL/Y  
    TitleNo = "N/A" <P3r}|K  
     U;:,$]+  
    shpCounter = ChKRange.InlineShapes.Count %.R_[.W  
    If shpCounter <> 0 Then -W+67@(\8H  
        MaxShpHeight = 0: TotalShpWidth = 0 ~4iI G}Y<  
        For i = 1 To shpCounter ZR'q.y[k)  
            k = ChKRange.InlineShapes(i).Height 1H_#5hd  
            l = ChKRange.InlineShapes(i).Width a;`-LOO5&  
            If k > MaxShpHeight Then <`q|6XWL  
                MaxShpHeight = k $V)LGu2( m  
            End If uOrvmb  
            TotalShpWidth = TotalShpWidth + l 8EPV\M1%  
        Next 7o+!Gts]  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then ]Zim8^n?`.  
            Exit Sub ^eEj 5Rh  
        End If Yn}_"FO'  
    End If 8 D: {05  
     :*!u\lV\  
    '空行 K/u`W z~A  
    If Len(pTEXT) <= 2 Then ,&HZvU&  
        Exit Sub p stQithS  
    End If Cs % -f"  
     r\"O8\  
         hoihdVjv  
    '是否为表格中的文字 <nj[=C4v  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then sy` : wp  
        ParaType = "表格内容" %zyM WC  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) OI.2CF  
        If k = 1 Then ${ ~UA 6  
            ParaType = "表格首行" <8 At =U  
        End If [#td  
        Exit Sub 5b[:B~J  
    End If puv*p %E  
     V|.aud=7z  
    '例外情况:脚注 _|Ml6;1aZ  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then [,a O*7 N  
        ParaType = "脚注" ]Nvtiw 6  
        Exit Sub VmkYl$WZo  
    End If DwZt.*  
     [j0I} +@4H  
    '例外情况:尾注 MOG[c p  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then @"HR"@pX  
        ParaType = "尾注" morI'6N  
        Exit Sub +2w54X%?M  
    End If D.<CkD B  
     HJ5m5':a  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then 0{Kl5>Z9M  
        ParaType = "页眉页脚" Co19^g*  
        Exit Sub dTaR 8i  
    End If 88U4I  
     7`tnoTUv  
     GD'C^\E aZ  
    With regEX  #~.i\|VL  
        .Global = True XI\aZ\v  
         *ma/_rjK  
        .Pattern = "^第([1-9]|1|2|3|4|5|6|7|8|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|.)+(.{1,30})$" 5 ^iU1 \(L  
        If regEX.Test(pTEXT) Then ! o4xI?  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") h ;5 -X7  
            TitleString = regEX.Replace(pTEXT, "$3") E!V AA=  
            TitleNo = regEX.Replace(pTEXT, "$1") @WU_GQas3  
            ParaType = "章" vd /_`l.D  
            Exit Sub ,/W< E  
        End If ZZE  
         4W.;p"S2  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|.)+(.{1,40})$" *4qsM,t  
        If regEX.Test(pTEXT) Then o oIMN =  
            ParaType = "一级标题" C)z[Blt  
            regEX.Execute (pTEXT) R\:C|/6f  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") ;?2vW8{p<  
            TitleString = regEX.Replace(pTEXT, "$3") vO{ijHKE  
            TitleNo = regEX.Replace(pTEXT, "$1") [NvEX Td  
            Exit Sub Oyq<y~}  
        End If =O)JPo&iwY  
         =,[46 ;q  
        '全角或半角括号中的数字 [`fq4Ky  
        .Pattern = "(^\(|()(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|))(、|\.|\s|。|.)*(.{1,40})$" i:kWO7aP  
        If regEX.Test(pTEXT) Then ja7Z v[  
            ParaType = "二级标题" P+3G*M=}  
            regEX.Execute (pTEXT) `CK;,>i   
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") q'hV 'U  
            TitleString = regEX.Replace(pTEXT, "$5") z[v5hhI)4  
            TitleNo = regEX.Replace(pTEXT, "$2") ^^?DYC   
            Exit Sub vt mO  
        End If MQY1he2M  
         9zO3KT2  
        '阿拉伯数字  1. 2. B dO$  
        .Pattern = "^([1-9]|1|2|3|4|5|6|7|8|9|0){1,2}(、|\.|\s|。|.)+(.{1,80})$" ''BP4=r5 n  
        If regEX.Test(pTEXT) Then &,."=G  
            ParaType = "三级标题" &F'v_9  
            regEX.Execute (pTEXT) 2c%}p0<;|?  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换,如需要可分成两步分别检测 U&3*c+B4  
            TitleString = regEX.Replace(pTEXT, "$3") B0z.s+.  
            TitleNo = regEX.Replace(pTEXT, "$1") |k/;.  
            Exit Sub OV8b~k4=  
        End If kFM'?L&  
         ;*W]]4 fy  
        '全角或半角括号中的阿拉伯数字 cT0utR&  
        .Pattern = "^(^\(|()([0-9]|0|1|2|3|4|5|6|7|8|9){1,2}(\)|))(、|\.|\s|。|.)*(.{1,80})$" 6ddkUPTF  
        If regEX.Test(pTEXT) Then R~ w(]  
            ParaType = "四级标题" Z{p6Q1u  
            regEX.Execute (pTEXT) p!aeL}g`  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") B@zJ\Ir[  
            TitleString = regEX.Replace(pTEXT, "$5") X=\ #n-*  
            TitleNo = regEX.Replace(pTEXT, "$2") SC2C%.%l`  
            Exit Sub 4!k={Pd  
        End If N`Bt|#R  
         : 6>H\  
        '表格名称 "}SERC7  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|.|\s]{1,9})(.{1,120})$" ? 3}UO:B  
        If regEX.Test(pTEXT) Then v[a#>!;s  
            ParaType = "表格标题" rpEFyHorJ  
            regEX.Execute (pTEXT) d;<n [)@  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) P1) 80<t  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) 6eDIS|/  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) DhZtiqL#_  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么,但是发现传回的replacetext在修改Paragraph对象的Range.Text后,表格标题就会落入第一个单元格中,所以,只能用Paragraph.Range.Find.Execute方法替换 6>=>Yj  
            Exit Sub N0vd>b  
        End If @su{Uno8/  
         @L<[38  
        '图片名称 E;4Ns  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|.)+(.{1,120})$" fSqbGoIQ  
        If regEX.Test(pTEXT) Then b7AuKY{L  
            ParaType = "图片标题" M+hc,;6  
            regEX.Execute (pTEXT) w ^<Y5K  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") Msd!4TrBJ  
            TitleString = regEX.Replace(pTEXT, "$3") ){YPP!8cI  
            TitleNo = regEX.Replace(pTEXT, "$1") INbjk;k  
            Exit Sub M?cKt.t  
        End If cZ!s/^o ?f  
         Y6L+3*Qt  
        '参考文献 }=;>T)QmMO  
        .Pattern = "^([\[|[])(\d+)([]|\]])([、|\.|\s|。|.]{0,1})"  '[数字]、 U[A*A^$c}  
        If regEX.Test(pTEXT) Then ^ Nsl5  
            ParaType = "文献条目" doR'=@ W  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") @>9p2u)=  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") Q5,@ P?  
            Exit Sub h{* O9O<  
        End If B?0{=u  
         uCu,'F,6Y  
        prfx = Left(pTEXT, 2) _kY5 6  
        If prfx = "注:" Or prfx = "注:" Then G'Q7(c  
            ParaType = "图表注解" zt,-O7I'1  
            Exit Sub 3yKI2en"  
        End If .@6]_h;  
         k9Sqp :l,  
         MW`a>'0t?  
        ParaType = "正文" uPF yRWK  
         |Lhz^5/  
    End With "}OFwes  
End Sub ]R4 )FH|><  
Y$ChMf  
Sub ConvertListToOrdinary() Yip9K[  
    Dim st As Paragraph xu:m~8%  
    With ActiveDocument amBz75N{  
        For i = .Paragraphs.Count To 1 Step -1 y{<#pS.  
            Set st = .Paragraphs(i) F7;xf{n<  
            lst = st.Range.ListFormat.ListString 'o7PIhD"  
            If lst <> "" Then ,K9UT#h  
                st.Range.ListFormat.RemoveNumbers ?J~JQe42  
                st.Range.InsertBefore lst & " " f0D Ch]  
            End If L\Jl'r|  
        Next b f74 "  
    End With @^` <iTK&p  
    Set st = Nothing @Qs-A^.  
End Sub QhGg^h%6  
z'qVEHc)  
Private Sub UserForm_Activate() m|]^f;7z  
    Me.lbTotal.Caption = "当前文章段落总数:" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" y2+a2  
    Me.lbTotal.Font.Bold = True BL8\p_U  
    Me.txtStatus.Visible = False  Nr[Rp  
    Me.cmdCheck.Enabled = True (j~V  
-ufmpq.  
End Sub zDl, bLiJ  
5dgBSL$A}]  
iO!lG  
Sub CheckSuperScript() i9xv`Ev=R  
    Selection.Find.ClearFormatting ^X&9"x)4  
    Selection.Find.Replacement.ClearFormatting dJLJh*=AG  
    With Selection.Find *b)b#p  
        .Text = "[【\[[〖](*)[】\]〗]]" `5 6QX'?  
        .Replacement.Text = "[\1]" /B!m|)h5~  
        .Replacement.Font.Superscript = True i52R,hz  
        '.Replacement.Font.Color = wdColorBlue oX}n"5o:  
        .Forward = True %UQ{'JW?K  
        .Wrap = wdFindContinue EORRSP,$2  
        .FORMAT = True 8zc!g|5"  
        .MatchCase = False w//w$}v  
        .MatchWholeWord = False FvJSJ.;E,  
        .MatchByte = False |?| u-y  
        .MatchAllWordForms = False %7d"()L  
        .MatchSoundsLike = False eYcx+BJ  
        .MatchWildcards = True q9 ;\B&  
    End With c}QJ-I   
    Selection.Find.Execute Replace:=wdReplaceAll bY2Mw8e%  
End Sub -Y[-t;  
!n{c#HfG  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) zl:D|h77  
    bContinue = False ? w?k-v  
    Set regEX = Nothing `{wku@  
End Sub W vJ?e  
d_,tXV"z&  
Sub CeateOrModifyStyle() =P#!>*\ar  
' DrEtnt   
' g \-3c=X  
Dim stl As Style AfEEYP)N  
     V^{!d}  
    Options.Pagination = False &tgvE6/V  
     x5|v# -F ^  
    On Error Resume Next lBn*G&(P  
    For Each stl In ActiveDocument.Styles q],R6GcVr  
        stl.Delete ]T51;j'48  
    Next >1~`tP  
    On Error GoTo 0 O2,g]t~C  
     q8h{-^"  
    Set stl = Nothing btF%}<o)  
     6J 5)4^bk  
    DoEvents ?8,N4T0)  
    On Error Resume Next J :lwq@u  
     cLU*Tx\  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph GiZ'IDV  
     0l6iv[qu5w  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph YxtkI:C?  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph ,>UmKrYo  
     Q#Y3%WF  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph 68c; Vb  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph &JlR70gdHi  
     ^ <VE5OM  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph NNE,| :  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph ziycyf.d  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph cA%U   
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph +lT]s#Fif  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph d8kwW!m+  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph >slN:dr0:  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph 2SJh6U  
     '&QT }B  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph nwo!A3w:  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph M([H\^\:  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph )A0 &16<  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph n`}&, UA$4  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph 3b 3cNYP  
     5lxq-E3  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph :b ;1P@W<  
    On Error GoTo 0 4LjSDgA  
    DoEvents I7PWO d  
     5dp#\J@  
    'BaseStyle ]R{"=H'  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False _;q-+"6L;  
    With ActiveDocument.Styles("BaseStyle").Font GF!{SO4  
        .NameFarEast = "宋体" M=WE^v!b  
        .NameAscii = "Times New Roman" na3kHx@  
        .NameOther = "宋体" lDU:EJ&DHE  
        .Size = 10.5 #(IMRdUf  
        .Bold = wdUndefined b(q&}60  
        .Italic = wdUndefined 3=l-jGJk  
        .Subscript = wdUndefined ^.C X6%  
        .Subscript = wdUndefined 'c[LTpn4=  
         YhT1P fl  
        .Underline = wdUnderlineNone "|'`'W  
        .UnderlineColor = wdColorAutomatic 9,5II0N L  
        .StrikeThrough = False iFCH$!  
        .DoubleStrikeThrough = False Hm* vKFhz  
         Ql@yN@V  
        .Outline = False (A'q@-XQ  
        .Emboss = False ZY!pw6R1>*  
        .Shadow = False {@ y,  
        .Hidden = False &{/>Sv!6#  
        .SmallCaps = False _~nex,;r  
        .AllCaps = False H27Oq8  
        .Color = wdColorAutomatic i 9tJHeSm  
        .Engrave = False #=H} 6!18  
        .Scaling = 100 c2\vG  
        .Kerning = 1 'h^DI`  
        .Animation = wdAnimationNone /V<`L  
        .DisableCharacterSpaceGrid = False `7%eA9*.m  
        .EmphasisMark = wdEmphasisMarkNone C9H11g7 {  
    End With dO4#BDn"=  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat NoAb}1uae  
        .LeftIndent = 0 IVzA> Vd  
        .RightIndent = 0 pmyM&'#Id  
        .SpaceBefore = 0 % B &?D@  
        .SpaceBeforeAuto = False tN3 {7'\7  
        .SpaceAfter = 0 >.hGoT!_k  
        .SpaceAfterAuto = False ^Ai_/! "  
         ,Q#tA|:8j  
        .LineSpacingRule = wdLineSpaceSingle !;*2*WuO;  
        .Alignment = wdAlignParagraphJustify (MoTG^MrBY  
         D Ok^ON  
        .WidowControl = False :J`!'{r  
        .KeepWithNext = False =Xjuz:9D~  
        .KeepTogether = False  |~uzQU7  
        .PageBreakBefore = False 8Qz7uPq  
        .NoLineNumber = False $ XsQ e  
         TcLaWf!c5  
        .FirstLineIndent = CentimetersToPoints(0) 7 3z Y^ x  
        .OutlineLevel = wdOutlineLevelBodyText |J Q:.h  
        .CharacterUnitLeftIndent = 0 7oe@bS/Z  
        .CharacterUnitRightIndent = 0 `VFl|o#H  
        .CharacterUnitFirstLineIndent = 0 .&x?`pER  
        .LineUnitBefore = 0 f5GR#3-h(  
        .LineUnitAfter = 0 Kc[u} .U  
        .AutoAdjustRightIndent = True !-RpRRR[Co  
        .DisableLineHeightGrid = True #KNq:@wp6  
         O 4Pd N?  
        .FarEastLineBreakControl = True Mto~ /  
        .WordWrap = True :5K ~/=6x  
        .Hyphenation = False ?SOF n  
         : |*,Lwvd  
        .HangingPunctuation = True ,L{o, qzC  
        .HalfWidthPunctuationOnTopOfLine = True P>T*:!s;  
        .AddSpaceBetweenFarEastAndAlpha = True .&Pe7`.BE  
        .AddSpaceBetweenFarEastAndDigit = True \Tf{ui  
        .BaseLineAlignment = wdBaselineAlignBaseline R, w54},  
    End With <SM&VOiaOz  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False &#oZ>`Qu  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll sR>;h /  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese q AVfbcb  
    ActiveDocument.Styles("BaseStyle").NoProofing = False Z^`=!n-V  
     &/hr-5k  
    '一级标题题样式 ?*R^?[  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ;k&k#>L!K  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" 4EhBpTg  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False !bV(VRbu  
    With ActiveDocument.Styles("QLNU一级标题").Font ROt0<^<  
        .NameFarEast = "黑体" ]<;i} n| <  
        .NameAscii = "Arial Black" iRwW>a3/  
        .NameOther = "黑体" 7k t7^V<  
        .Name = "黑体" ]6%%X+$7  
        .Size = 16              '三号 )]b@eGNGj  
        .Bold = True :y-0qz D?  
        .Italic = wdUndefined ua|Z`qUyq  
        .Subscript = wdUndefined )~blx+\y  
        .Superscript = wdUndefined VtzmY  
    End With jbhJ;c:  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat "4k=(R?  
         YNJpQAuSn)  
        .LeftIndent = CentimetersToPoints(0) "">fn(  
        .RightIndent = CentimetersToPoints(0) %M)oHX1p  
        .FirstLineIndent = CentimetersToPoints(0) )|h;J4V  
         9Oo*8wvGG  
        .LineSpacingRule = wdLineSpaceSingle D@(M+u9/%  
        .Alignment = wdAlignParagraphCenter ?tC}M;~  
         k *;{n8o?)  
        .WidowControl = True )Kk(P/s  
        .KeepWithNext = True B mBzOk^  
        .KeepTogether = True ~2A$R'xb  
        .OutlineLevel = wdOutlineLevelBodyText mf;^b.mKh  
         zj$_iB`9  
        .LineUnitBefore = 0.5 LJNie*  
        .LineUnitAfter = 0.5 ilRm}lU|x  
    End With \eMYw7y5 M  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False C|d !'"p  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll c7l!G~yx'  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese &iND &>?  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True rI^~9Rz  
    DoEvents X|damI%  
     t2 -nCRXEP  
    '二级 u};]LX\E  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") P$6f+{  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" qgC-@I  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False !!+/Wgd:6  
    With ActiveDocument.Styles("QLNU二级标题").Font .f !] @"\  
        .NameFarEast = "黑体" K!D_PxV  
        .NameAscii = "Arial Narrow" rxgVT4  
        .NameOther = "黑体" ;vv!qBl|@  
        .Name = "黑体" BtpjQNN  
        .Size = 15        '小三号 t1:S!@  
        .Bold = False QVG0>,+}$  
        .Outline = False Vi? ~0.Z%  
        .Italic = wdUndefined $>h!J.t  
        .Subscript = wdUndefined "'}v0*[  
        .Superscript = wdUndefined *L4]\wf  
    End With A D}}>v  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat + ptF-  
        .LeftIndent = CentimetersToPoints(0) hKH$AEHEU}  
        .RightIndent = CentimetersToPoints(0) #1jtprc  
        .FirstLineIndent = CentimetersToPoints(0) ]~ #+ b>  
         q:- ]d0B+  
        .LineSpacingRule = wdLineSpaceSingle 61+pryW%g  
        .Alignment = wdAlignParagraphLeft %is,t<G  
         F'UguC">  
        .WidowControl = True yS uLt@X  
        .KeepWithNext = True 3dX=xuQ%/  
        .KeepTogether = True 'e<HPNi)  
        .PageBreakBefore = False -0KbdHIKb'  
        .OutlineLevel = wdOutlineLevelBodyText ycl> git]  
         Wq{d8|)1  
        .LineUnitBefore = 0.5 @RoRNat  
        .LineUnitAfter = 0.5 o3i,B),K  
         .i3lG( YG  
    End With orQ V'  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False WJY4>7}{B@  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll PQ&Q71  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese PK 2Rj%  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True 6N %L8Q  
    DoEvents @O<@f 8-  
     ~^%0V<*-}  
    '三级标题样式 4gv.E 0Fo  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") LG Y!j_bD  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" [aWDD[#j~  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False Pi"~/MGP$  
    With ActiveDocument.Styles("QLNU三级标题").Font 3!"b guE  
        .NameFarEast = "宋体" KT lP:pB;  
        .NameAscii = "Times New Roman" Oa.f~|  
        .NameOther = "黑体" |`k1zc)9  
        .Name = "黑体" {+/ .5  
        .Size = 14               '四号 5v !DYx  
        .Bold = False 0[2BY]`Z.  
        .Outline = False rAlh& ?X  
        .Italic = wdUndefined Ukh$`q}  
        .Subscript = wdUndefined u1pc5 Y{  
        .Superscript = wdUndefined oc3dd"8}@  
    End With 47C(\\  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat [DotS\p!z  
        .LeftIndent = CentimetersToPoints(0) ! =\DC,-CB  
        .RightIndent = CentimetersToPoints(0) ~`~%(DA=  
        .FirstLineIndent = CentimetersToPoints(0) 38w.sceaT  
         ~E<PtDab  
        .LineSpacingRule = wdLineSpaceSingle /Oq )3fU e  
        .Alignment = wdAlignParagraphLeft s0 \f9D  
         <*A|pn s  
        .WidowControl = True DYT@BiW{  
        .KeepWithNext = True z@Z_] h  
        .KeepTogether = True Ere?d~8  
        .PageBreakBefore = False }rKJeOo^x?  
        .OutlineLevel = wdOutlineLevelBodyText ?`N57'iPb  
         1Es*=zg  
        .CharacterUnitLeftIndent = 0  d-ag  
        .CharacterUnitRightIndent = 0 _>gXNS r4u  
        .CharacterUnitFirstLineIndent = 2 }DDVGs[  
         T1Gp$l  
        .LineUnitBefore = 0.5 z<yNG/M1>U  
        .LineUnitAfter = 0 TXd5v#_vo  
    End With [V> :`?  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False 7Ykj#"BZ  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll -TK|Y"  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese 3WO#^}t  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True xs2,t*  
    DoEvents Nl$gU3kL  
     f%Z ;05  
    '四级标题样式 IDGQIg  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") Z^'?|qFj!  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" "}'8`k+d  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False 5#TrCPi6A  
    With ActiveDocument.Styles("QLNU四级标题").Font j.=UI-&m  
        .NameFarEast = "宋体" xfV,==uF  
        .NameAscii = "Times New Roman" H})Dcg3  
        .NameOther = "宋体" H 9Y2n 0  
        .Name = "宋体" -~v l+L  
        .Size = 12               '小四号 [l8V<*x%S9  
        .Bold = True 7]/dg*A )C  
        .Outline = False \A'|XdQ  
        .Italic = wdUndefined ,YP 1$gj  
        .Subscript = wdUndefined [)Z 'N/;0  
        .Superscript = wdUndefined 4T-,'P{?  
    End With H )BOSZD  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat >%uAQiU  
         ;NiArcAS!  
        .LeftIndent = CentimetersToPoints(0) iA55yT+  
        .RightIndent = CentimetersToPoints(0) Ie G7@  
        .FirstLineIndent = CentimetersToPoints(0) F,p`- m[q  
         ^eT  DD  
        .LineSpacingRule = wdLineSpaceSingle V-D}U$fw  
        .Alignment = wdAlignParagraphLeft <&qpl0U)Y  
         QvG56:M3  
        .WidowControl = True u( V  
        .KeepWithNext = True 3bbp>7V!  
        .KeepTogether = True ] ?DDCew  
        .PageBreakBefore = False >\|kJ?h  
        .OutlineLevel = wdOutlineLevelBodyText !G)mjvEe  
         rxs~y{ Xi  
        .CharacterUnitLeftIndent = 0 5+e>+$2  
        .CharacterUnitRightIndent = 0 QHHW(InG<  
        .CharacterUnitFirstLineIndent = 2 %sOWg.0_  
         5u2{n rc  
        .LineUnitBefore = 0 ~_DF06G  
        .LineUnitAfter = 0 E;6Y? vJ  
         )z2|"Lp  
    End With Af2=qe  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False g,t3OnxS?  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll _'! aj +{  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese 0t#NMW  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True d] b~)!VW  
    DoEvents Hv8SYQ|  
     ^l Hb&\X  
    '正文校式 Od0S2hHO  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") :r1;}hIA9  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" zAeGkP~K  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False Qqd6.F  
    With ActiveDocument.Styles("QLNU正文").Font (v|r'B9 b  
         ioB|*D<U2  
        .NameFarEast = "宋体" {l&Ltruhz  
        .NameAscii = "Times New Roman" U0NOU#  
        .NameOther = "宋体" 5kGxhD  
        .Name = "宋体" =y)p>3p}&  
         vKcl6bVT  
        .Size = 12               '小四号 Vk MinE  
         eV[`P&j_C  
        .Bold = wdUndefined XIr{U5$<6  
        .Italic = wdUndefined v-P8WFjca  
        .Subscript = wdUndefined ;]2 x  
        .Superscript = wdUndefined NoFs-GGGh  
         ;j>*;Q`  
        .Outline = False ,s O:$  
        .Emboss = False AddGB^7yl  
        .Shadow = False ?8 SK\{9r6  
        .Hidden = False hnp`s%e,  
         Uby,Tu  
        .DisableCharacterSpaceGrid = True j2RRSz&9  
    End With 38[)[{G)Hv  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat [8,PO  
         j y7  
        .LeftIndent = CentimetersToPoints(0) jrIA]K6  
        .RightIndent = CentimetersToPoints(0) DRH' A!r!  
        .FirstLineIndent = CentimetersToPoints(0) )>(L{y|uYX  
         8|1`Tn}o  
        .LineSpacingRule = wdLineSpaceExactly 6BDt.bG  
        .LineSpacing = 20 lp,\]]  
        .Alignment = wdAlignParagraphLeft -'I _*fu  
         UppBnw  
        .WidowControl = False UH5w7M  
        .KeepWithNext = False v#RW{kI  
        .KeepTogether = False PV?]UUc'n<  
        .PageBreakBefore = False V -q%r  
        .Hyphenation = False @bY('gC,  
         :|Z$3q  
        .OutlineLevel = wdOutlineLevelBodyText 4rI:1 yGt@  
         FJO"|||Y'|  
       1a<]$tZk  
        .CharacterUnitLeftIndent = 0 3LKB;  
        .CharacterUnitRightIndent = 0 oS~}TR:}  
        .CharacterUnitFirstLineIndent = 2 <A)+|Y"^h6  
         "e~k-\^Y  
        .LineUnitBefore = 0 .qSBh hH\  
        .LineUnitAfter = 0 \.c]kG>k-  
        .SpaceBefore = 0 'I&|1I^  
        .SpaceAfter = 0 Wm<z?.lS  
         zL9VR;q  
        .DisableLineHeightGrid = True z )5S^{(  
    End With fJX\'Rc\  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False Y.q>EUSH  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll Hl4\M]]/&  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese o:_^gJ+|  
    ActiveDocument.Styles("QLNU正文").NoProofing = True dSwm|kIa  
    DoEvents `'u Umyg  
     sa_R$ /H  
    '图片段落样式 ;4!=DFbU  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") CV s8s  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" kGpV;F==*  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False BR;QY1  
    With ActiveDocument.Styles("QLNU图片段落").Font p lK=D#)  
        .Size = 12               '小四号 %PzQ\c  
        .Italic = wdUndefined !tI=`Ml[  
        .Subscript = wdUndefined k]Zo-xh4  
        .Superscript = wdUndefined L'>s(CR  
    End With pss6Oz8  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat c\M#5+1j  
         s0r"N7~  
        .LeftIndent = CentimetersToPoints(0) CE{z-_{ ^  
        .RightIndent = CentimetersToPoints(0) B El n6zj  
        .FirstLineIndent = CentimetersToPoints(0) ?8Et[tFg  
         +W6Hva.  
        .LineSpacingRule = wdLineSpaceSingle hF2/ y.:P  
        .Alignment = wdAlignParagraphCenter {] O`g G  
        .KeepWithNext = True  Kaf>  
        .OutlineLevel = wdOutlineLevelBodyText 0Qm"n6NQ  
         9ftN 8Svw  
        .CharacterUnitLeftIndent = 0 gF3TwAr  
        .CharacterUnitRightIndent = 0 SC'BmR"ox  
        .CharacterUnitFirstLineIndent = 0 vK(I3db !  
         JL.5QzA  
        .LineUnitBefore = 0 sYI~dU2H  
        .LineUnitAfter = 0 *9J1$Wa  
    End With 'V&2Xvl%  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False tG/1pW  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll ,E&Bn8L~O  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese UV4u.7y  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True Y[Es  
    DoEvents h}avX*Lx_  
     R8tF/dx>7  
     [Gh"ojt]w  
    '第X章 +O'vj  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 5^>n5u/  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" !6Q`>s]  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False ):krJ+-/y  
    With ActiveDocument.Styles("QLNU章节标题").Font =HMmrmz:  
        .NameFarEast = "黑体" i`+B4I8[  
        .NameAscii = "Arial Black" S."7+g7Ar  
        .NameOther = "Arial Black" Tj`yJ!0  
        .Name = "黑体" GJX4KA8J  
        .Size = 16 hm3jpWi 8  
        .Bold = True BBvZeG $Y  
        .UnderlineColor = wdColorAutomatic `|]e6 Pb  
        .Outline = False 7$ d}!S  
        .Italic = wdUndefined jPnO@ H1  
        .Subscript = wdUndefined ^;zWWg/d  
        .Superscript = wdUndefined P<u"97@8a  
        .Scaling = 100 yLW/ -%I#u  
        .DisableCharacterSpaceGrid = True s;J\Kc?"|  
    End With @44P4?;  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat z5 Bi=~=#  
        .LineSpacingRule = wdLineSpaceSingle p'&*r2_ram  
        .Alignment = wdAlignParagraphCenter VpSEVd:n  
        .WidowControl = True eZNitGaU  
        .KeepWithNext = True "IG+V:{ou  
        .KeepTogether = True 4YLs^1'TG0  
        .PageBreakBefore = True f/ajejYo?,  
        .OutlineLevel = wdOutlineLevelBodyText uArR\k(  
         +e'X;  
        .LeftIndent = CentimetersToPoints(0) ~n6[$WjZA  
        .RightIndent = CentimetersToPoints(0) !h>D;k6 e  
        .FirstLineIndent = CentimetersToPoints(0) Y;,Hzmbs6w  
          {7X#4o0  
        .CharacterUnitLeftIndent = 0 }kE87 x'  
        .CharacterUnitRightIndent = 0 8Y# bN*!  
        .CharacterUnitFirstLineIndent = 0 /&h+t^l_Qj  
         "<*awWNI  
        .LineUnitBefore = 1 S8%n.<OB  
        .LineUnitAfter = 0.5 #XI"@pD  
         =E y`M#t;  
        .AutoAdjustRightIndent = False h~w4, T  
        .DisableLineHeightGrid = True rs:Q%V ^  
        .FarEastLineBreakControl = True Y dI0E   
        .WordWrap = True X2gz6|WJ  
    End With &3Tx@XhO  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False }~Q5Y3]#~  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll ?>V6P_r>  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese 1kmQX+f   
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True Zm(dY*z5:J  
    DoEvents =OYQM<q  
     t8& q9$  
    '表格标题 w>qCg XU3  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") I]X  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" [Uli>/%JB  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False , H2Yp Zk  
    With ActiveDocument.Styles("QLNU表格标题").Font !%xP}{(7  
        .NameFarEast = "楷体" YUscz!rM  
        .NameAscii = "Arial" 'S?;J ,/  
        .Name = "楷体" aX^+ O,  
        .Size = 10.5 &x0C4Kh  
        .Bold = True Zhzy.u/>  
        .Underline = wdUnderlineNone PKA }zZ  
        .Italic = wdUndefined S$e Dnw~$  
        .Subscript = wdUndefined wVqd$nsY"  
        .Superscript = wdUndefined "!H@k%eAM|  
        .Color = wdColorAutomatic ,)h)5o(?  
    End With bC~~5Cm  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat C c*( {  
         B wC+ov=  
        .LineSpacingRule = wdLineSpaceSingle gDCOLDM  
        .Alignment = wdAlignParagraphCenter B,_`btJh  
        .KeepWithNext = True M^6$ MMx  
        .KeepTogether = True qX$u4I!,  
        .OutlineLevel = wdOutlineLevelBodyText -#?<05/C>  
         7yI`e*EOD  
        .LeftIndent = CentimetersToPoints(0) -(>qu.[8=  
        .RightIndent = CentimetersToPoints(0) K;U39ofW  
        .FirstLineIndent = CentimetersToPoints(0) i"HgvBHx  
         xMI+5b8  
        .CharacterUnitLeftIndent = 0 ,=o 0BD2q  
        .CharacterUnitRightIndent = 0 K)S;:MLG=  
        .CharacterUnitFirstLineIndent = 0 Fk1.iRVzi  
         bU`=*  
        .LineUnitBefore = 1 ]` ]g@v  
        .LineUnitAfter = 0 [;KmT{I9  
         Rg* J}  
    End With t)N;'v  &  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False \dq!q=b\  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll ([ dT!B#aH  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese @T& t.|`  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True vG Vd  
    DoEvents H{V)g  
=MLf[   
    '表格首行 3]U]?h  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") >fzwFNdo  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False >qR~'$,$  
    With ActiveDocument.Styles("QLNU表格首行").Font xd8 *<,Wj  
        .NameFarEast = "楷体" G#[* |+f8  
        .NameAscii = "Times New Roman" ['[KR BJL  
        .Name = "楷体" jxw_*^w"  
        .Size = 9 4:mCXP,x  
        .Bold = True 59*M"1['Q  
        .Underline = wdUnderlineNone '<@=vGsye  
        .Italic = wdUndefined 0xpx(T[  
        .Subscript = wdUndefined &Y7C0v  
        .Superscript = wdUndefined 9vI]Lf P  
    End With *7" L ]6  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat f: xWu-  
        .LineSpacingRule = wdLineSpaceSingle B9X8  
        .Alignment = wdAlignParagraphCenter }Qrab#v  
         ?_q+&)4-o  
        .LeftIndent = CentimetersToPoints(0) ;GsQR+en  
        .RightIndent = CentimetersToPoints(0) GK{{7B  
        .FirstLineIndent = CentimetersToPoints(0) ~]WVG@-  
         a3@w|KLt  
         b2 kWjg.4  
        .CharacterUnitLeftIndent = -0.5 /smiopFcq  
        .CharacterUnitRightIndent = -0.5 N[Sb#w`[/  
        .CharacterUnitFirstLineIndent = -0.5 44sy`e  
         6)e5zKW!?  
        .LineUnitBefore = 0 X=~V6m  
        .LineUnitAfter = 0 kWL.ewTiex  
        .SpaceBefore = 0 `cr(wdvI  
        .SpaceAfter = 0 ?a.+j8pbGg  
         8]< f$3.  
    End With |}[nH>  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False KJh,,xI>by  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll 4v dNMV~  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese u3ZCT" !  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True _+w/ pS`M  
    DoEvents $/_ qE  
7Kf}O6nE  
    '表格内容 I^3:YVR&  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") 5Qa zHlJ  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False $h28(K%  
    With ActiveDocument.Styles("QLNU表格内容").Font & ,L9O U  
        .NameFarEast = "楷体" Vq ^]s $'  
        .NameAscii = "Times New Roman" V 0{tap}  
        .Name = "楷体" 'v&}(  
        .Size = 9 Z$'I Bv  
        .Bold = False N4UM82N  
        .Underline = wdUnderlineNone z`$J_CjY  
        .Italic = wdUndefined xh0xSqDM  
        .Subscript = wdUndefined c ~F dx  
        .Superscript = wdUndefined P<;7j?  
    End With ;sPzOS9  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat $%2H6Eg0  
        .LineSpacingRule = wdLineSpaceSingle >dQK.CG  
        .Alignment = wdAlignParagraphCenter ml u 3 K  
         8`v$liH  
        .LeftIndent = CentimetersToPoints(0) R,Oe$J<  
        .RightIndent = CentimetersToPoints(0) x#8w6@iPQ  
        .FirstLineIndent = CentimetersToPoints(0) QH@>icAb  
         i0pU!`0  
        .CharacterUnitLeftIndent = -0.5 } /:\U p  
        .CharacterUnitRightIndent = -0.5 I@ \#up}  
        .CharacterUnitFirstLineIndent = -0.5 uDuF#3 +"  
        .LineUnitBefore = 0 x5Zrz<Y$w  
        .LineUnitAfter = 0 V"RpH,  
        .SpaceBefore = 0 mBk5+KyT  
        .SpaceAfter = 0 Q\kub_I{@  
    End With 2KI!af[I  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False zAScR g$:?  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll xxa} YIe8  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese !.Zt[g}  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True Llz[ '"m  
    DoEvents @Doyt{|T  
Q M 1F?F  
    '图片标题 2t1I3yA'{z  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 4]&<?"LSK  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" 9 E1W|KE  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False Mkv|TyC  
    With ActiveDocument.Styles("QLNU图片标题").Font Bw< rp-  
        .NameFarEast = "楷体" c3xl9S,5  
        .NameAscii = "Times New Roman" rZwB> c  
        .Name = "楷体" MZv\ C  
        .Size = 10.5 .36^[Jsz":  
        .Bold = True +=P@HfVfiq  
        .Underline = wdUnderlineNone 9=+-QdX+0]  
        .Italic = wdUndefined j+^L~, S  
        .Subscript = wdUndefined z?ucIsbR  
        .Superscript = wdUndefined Jb(Y,LO^  
        .Outline = False }zMf7<C  
        .Shadow = False 6 )*xU|fU  
        .Color = wdColorAutomatic 8SmjZpQ?  
    End With >nn Y:7m  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat j9y3hQ+q  
        .LineSpacingRule = wdLineSpaceSingle I cF@F>>  
        .Alignment = wdAlignParagraphCenter -50AX1h31:  
         BW Uq%o,@g  
        .KeepWithNext = wdUndefined t\R; < x  
        .KeepTogether = True p25Fn`}H  
        .OutlineLevel = wdOutlineLevelBodyText Y2T$BJJ  
         |)U|:F/{@  
        .LeftIndent = CentimetersToPoints(0) K5"sj|d&  
        .RightIndent = CentimetersToPoints(0) ?m"|QS!!K  
        .FirstLineIndent = CentimetersToPoints(0) =-jD~rN4;P  
         7_\ Mwy{P  
        .CharacterUnitLeftIndent = 0 J7&DR^.Sw  
        .CharacterUnitRightIndent = 0 &M"ouy Zo9  
        .CharacterUnitFirstLineIndent = 0 ?S#\K^  
         O`W%Tr  
        .LineUnitBefore = 0 ~&VN_;j_  
        .LineUnitAfter = 0 n:#TOU1ix<  
    End With raB+,Oi$G  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False jqcz\n d  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll =mt?C n}  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese ", B'k  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True `  2%6V)s  
    DoEvents ;vp\YIeX1  
(#Mp 5C'X  
    '目录项 TD,nIgH`  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") ($!KzxF3  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" 1dG06<!  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False Ax<\jW<  
    With ActiveDocument.Styles("QLNU目录项").Font aXR%;]<Dw  
        .NameFarEast = "黑体" Hi,t@!!  
        .NameAscii = "Times New Roman" & 0v.E"0<  
        .NameOther = "Times New Roman" y] V1b{9p  
        .Name = "黑体" .;I29yk\XS  
        .Size = 10.5 f_6`tq m%  
        .Bold = False 7 'w0  
        .Italic = wdUndefined y?z\L   
        .Underline = wdUnderlineNone FJS'G^  
        .Color = wdColorAutomatic s ic$uT  
        .Superscript = wdUndefined LAs7>hM  
        .Subscript = wdUndefined  <!'M} s  
    End With --k:a$Nt  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat m J  
         6Wf^0ok  
        .LineSpacingRule = wdLineSpaceSingle iI?{"}BZ  
        .Alignment = wdAlignParagraphLeft :Jxh2  
         Tz-X o  
        .WidowControl = False UTk r.T+2X  
        .KeepWithNext = False QT!5l`  
        .KeepTogether = False 4zc<GL3[  
        .PageBreakBefore = False |X(2Zv^O  
        .NoLineNumber = False \,xFg w4  
        .OutlineLevel = wdOutlineLevelBodyText DJ;g|b  
         J !#Zi#8sF  
        .LeftIndent = CentimetersToPoints(0) Ok H\^  
        .RightIndent = CentimetersToPoints(0) 1~5trsB+5  
        .FirstLineIndent = CentimetersToPoints(0) <Gb %uny  
         \cySWP [  
        .CharacterUnitLeftIndent = 0 +]!lS7nsW  
        .CharacterUnitRightIndent = 0 y{ =NP  
        .CharacterUnitFirstLineIndent = 0 :pC;`iQ  
         ;#anZC;  
        .LineUnitBefore = 0 kDsI p=  
        .LineUnitAfter = 0 lF4u{B9DM  
    End With q&si%  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False s: |M].  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll EESN\_{~.  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot |!*Xl) ]  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese  t@B(+  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True Nw<P bklz  
    DoEvents %5B%KCCN  
     Dgi~rr1`'s  
    '参考文献 hU {-a`  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") wD9a#AgEd  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" j F5Blc  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False %%}A|,  
    With ActiveDocument.Styles("QLNU参考文献").Font #$1$T  
        .NameFarEast = "宋体" zICI_*~  
        .NameAscii = "Times New Roman" FxU'LN<;HY  
        .NameOther = "Times New Roman" 9`Q@'( m  
        .Name = "Times New Roman" 6`e@$(dfA  
        .Size = 12 B@K[3  
        .Bold = False XB\zkf_}Xc  
        .Italic = wdUndefined Fvl`2W94;  
        .Subscript = wdUndefined 5vOCCW  
        .Superscript = wdUndefined 'ZHdV,dd  
        .Underline = wdUnderlineNone n9UKcN-  
        .UnderlineColor = wdColorAutomatic l[Z)@bC1   
        .Color = wdColorAutomatic v.g"{us  
        .Engrave = False i^2IW&+}e}  
    End With  v[,Src  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat Z[L5 ;  
         wyY*:{lZ  
        .LineSpacingRule = wdLineSpaceExactly w G!u+  
        .LineSpacing = 16 yI8tH!  
        .Alignment = wdAlignParagraphLeft ?b:_AO&  
        .WidowControl = False d,F5:w&  
        .KeepWithNext = False >- Bg%J9  
        .KeepTogether = False *e4TSqC|  
        .PageBreakBefore = False $:vkX   
        .OutlineLevel = wdOutlineLevelBodyText ]H[8Z|i""  
         9]yW_]P  
        .LeftIndent = CentimetersToPoints(0) *Xr$/N  
        .RightIndent = CentimetersToPoints(0) k onoI&kV|  
        .FirstLineIndent = CentimetersToPoints(0)  tFh|V pB  
         ]T<^{jG  
        .CharacterUnitLeftIndent = 0 tk?UX7F  
        .CharacterUnitRightIndent = 0 ijYvqZ_  
        .CharacterUnitFirstLineIndent = -2 >P(`MSc  
         8tc*.H{^+  
        .LineUnitBefore = 0 N}Vn;29  
        .LineUnitAfter = 0 /L~m#HxWU  
        .SpaceBefore = 0 < oI8-f  
        .SpaceAfter = 0 By((,QpB  
         H{zPft  
    End With >L>+2z  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False $k0H9_  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll 1/iE`Si  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS NGTe4Crx  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True 3N4.$#>#9@  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese L\  j:  
    DoEvents GESXc $E8  
3LK%1+)4  
    ' Dkw7]9Qm  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") =uV,bG5V1  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" $99R|^  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False (JZ".En#X  
    With ActiveDocument.Styles("QLNU论文题目").Font AR B7>"  
        .NameFarEast = "黑体" a(x?f a[D  
        .NameAscii = "Arial Black" U}AX0* S  
        .NameOther = "Arial Black" L* |1/  
        .Name = "Arial Black" 8Qrpa o  
        .Size = 16 j6>tH"i  
        .Bold = False +;gsRhWk  
        .Italic = wdUndefined J=}F2C   
        .Superscript = wdUndefined .9M.|  
        .Subscript = wdUndefined ?0vNEz[  
        .Underline = wdUnderlineNone 7_)|I? =0d  
        .UnderlineColor = wdColorAutomatic fE25(wCz7  
        .Color = wdColorAutomatic ?U9/fl  
K0fv( !r{  
    End With Z9 w:&oa@  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat bhg}-dto  
        .LineSpacingRule = wdLineSpaceSingle AK/:I>M  
        .Alignment = wdAlignParagraphCenter =>LZ m+P  
        .WidowControl = True SkP[|g '56  
        .KeepWithNext = True ]0 ~qi@  
        .KeepTogether = True &RY)o^g[4  
        .PageBreakBefore = True JF9Hfs/ jS  
        .NoLineNumber = False r6Nm!Bq7  
        .OutlineLevel = wdOutlineLevelBodyText j\2[H^   
         G[yI*/E;  
        .LeftIndent = CentimetersToPoints(0) l5 J.A@0  
        .RightIndent = CentimetersToPoints(0) G$=-,6kZO  
        .FirstLineIndent = CentimetersToPoints(0) >Y&KTSD"  
         WZ~> BM  
        .CharacterUnitLeftIndent = 0 @$U e$  
        .CharacterUnitRightIndent = 0 OyVm(%Z   
        .CharacterUnitFirstLineIndent = 0 b9("DZW;  
         ZK dh%8C  
        .LineUnitBefore = 1 l)|lTOjb  
        .LineUnitAfter = 1 JP=ZUu  
         &Ocu#Cb  
        .BaseLineAlignment = wdBaselineAlignAuto t4K56H.L?  
    End With ElR)Gd_8  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False u-><}OVf~  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll =ApY9`  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS ]b1Li}  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True ecFi (eMD  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese p:[LnL  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True 1f//wk|  
    DoEvents >FFVY{F  
     MCy~@)-IN  
    '中文摘要 P6Xp<^%E  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") MOHHZApt  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" ]VjLKFb~U  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False !nw [  
    With ActiveDocument.Styles("QLNU中文摘要").Font v\0^mp  
        .NameFarEast = "宋体" n0fRu`SNV  
        .NameAscii = "Times New Roman" !,bPe5?Ql  
        .NameOther = "Times New Roman" ,"G\f1  
        .Name = "Times New Roman" =,:K)  
        .Size = 12 GU6 qIz|  
        .Bold = wdUndefined Bc ^4 T1  
        .Superscript = wdUndefined E(Gr0#8  
        .Subscript = wdUndefined "tR}j,=S:D  
        .Italic = wdUndefined 5~}!@yzc  
        .Underline = wdUnderlineNone F(4yS2h(  
        .UnderlineColor = wdColorAutomatic )I9aC~eAD  
        .Color = wdColorAutomatic Zu#<  
    End With z7=fDe -  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat r+ \/G{+=}  
        .LineSpacingRule = wdLineSpaceExactly u,9q<&,  
        .LineSpacing = 20 p;->hn~D'5  
        .Alignment = wdAlignParagraphLeft qgexb\x\4  
         #7W.s!#}Dd  
        .WidowControl = False Eo=HNe  
        .KeepWithNext = False w}k B6o]  
        .KeepTogether = True \Jpw1,6  
        .PageBreakBefore = False kL;t8{n  
        .NoLineNumber = False "c Pz|~  
        .OutlineLevel = wdOutlineLevelBodyText  W"qL-KW  
         r{ @ `o@q  
        .LeftIndent = CentimetersToPoints(0) A ,<@m2  
        .RightIndent = CentimetersToPoints(0) B,y3] g6u  
        .FirstLineIndent = CentimetersToPoints(0) HdCk!Fv  
         *m&&1W_  
        .CharacterUnitLeftIndent = 0 &?T${*~  
        .CharacterUnitRightIndent = 0 n;OHH{E{  
        .CharacterUnitFirstLineIndent = 2 !~J WYY  
        .LineUnitBefore = 0 L@A9{,9Pl  
        .LineUnitAfter = 0 6>B \|  
         z,+m[x=/N  
    End With 'NjSu64W  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False `:5,e/5,  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll ,nYZxYLf+  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS 0yQe5i}  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True [.3sE  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese !5.v'K '  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True fM:80bn L+  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete !-(J-45  
    DoEvents WZ* &@|w  
     RKe?.  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") kI+b <$:D  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" 5$^c@ 0  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False shK&2Noan  
    With ActiveDocument.Styles("QLNU英文标题").Font 3B#!2|  
        .NameFarEast = "黑体" i+ic23$4M  
        .NameAscii = "Arial Narrow" RV92qn B  
        .Name = "Arial Narrow" 'j#a%j@{  
        .Size = 16 l<N?'&  
        .Bold = True #W5Yw>$  
        .Bold = wdUndefined b|wWHNEdb,  
        .Superscript = wdUndefined SLh~_ 5  
        .Subscript = wdUndefined D_ ug-<QT  
        .Italic = wdUndefined viV-e$s`.  
         9 z*(8d  
        .Underline = wdUnderlineNone 3- )kwy6L  
        .UnderlineColor = wdColorAutomatic =|JKu'  
        .StrikeThrough = False =t.F2'<[Z  
        .DoubleStrikeThrough = False { _X#fq0}  
    End With hht+bpHl  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat sT1j F3  
        .LineSpacingRule = wdLineSpaceSingle (`mOB6j  
        .Alignment = wdAlignParagraphCenter h/=-tr  
        .WidowControl = True v=MzI#0L  
        .KeepWithNext = False n/-N;'2J  
        .KeepTogether = False 0UjyMEiK  
        .PageBreakBefore = False HA\A$>  
        .NoLineNumber = False 8b~7~VCk  
        .FirstLineIndent = CentimetersToPoints(0) :SeLkQC  
        .OutlineLevel = wdOutlineLevelBodyText llqDT-cp  
         2'dG7lLu4  
        .LeftIndent = CentimetersToPoints(0) M6x;BjrV  
        .RightIndent = CentimetersToPoints(0) C$y fMK,,N  
        .FirstLineIndent = CentimetersToPoints(0) V=9Bto00  
         8;.` {'r  
        .CharacterUnitLeftIndent = 0 GfNWP  
        .CharacterUnitRightIndent = 0 h7RD `k:mF  
        .CharacterUnitFirstLineIndent = 0 Gx|Dql  
         MM*-i=  
        .LineUnitBefore = 1 Is kSX  
        .LineUnitAfter = 1 hvcR.f)C>  
         _w%s(dzk  
    End With ZjavD^ky  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False Y-7.Vjt^  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll ~ i'C/[P  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS Iq@IUFpc7~  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True ,whM22Af~{  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese U]mO7HK  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True F]SIT\kBm  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete c8\g"T  
    DoEvents skSNzF7'  
3H <`Z4;  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") J\GKqt;5@  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" 8fEAYRGd  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False Oo$%Yh51~  
    With ActiveDocument.Styles("QLNU英文摘要").Font SmvwhX  
        .NameFarEast = "宋体" 10TSc j  
        .NameAscii = "Arial" ]o!&2:'N`  
        .NameOther = "Arial" 6d(b'S^  
        .Name = "Arial" Y?e3Bx7*b  
        .Size = 12 (ai72#nFtb  
        .Bold = wdUndefined C64eDX^  
        .Italic = wdUndefined s9kTuhoK  
        .Superscript = wdUndefined wE v*1y4  
        .Subscript = wdUndefined "mG!L$  
    End With z22N7W=7  
     X)Ocn`|  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat ~Gwas0e Na  
         `F@f?*s:  
        .LineSpacingRule = wdLineSpaceExactly @OrXbG7&>#  
        .LineSpacing = 20 <WgG=Kf)N  
         Z%A<#%    
        .Alignment = wdAlignParagraphJustify &U8 54  
         GMt)}Hz  
        .WidowControl = False su%Z{f)#  
        .KeepWithNext = False B=^2g}mgK  
        .KeepTogether = False @]<DR*<  
        .PageBreakBefore = False  *X0K2|  
        .NoLineNumber = False v.]'%+::#  
         LsUFz_  
        .OutlineLevel = wdOutlineLevelBodyText [)bz6\d[  
         n *Q4G}p  
        .LeftIndent = CentimetersToPoints(0) vLD:(qTi  
        .RightIndent = CentimetersToPoints(0) s}<)B RZi  
        .FirstLineIndent = CentimetersToPoints(0) J$<:/^t  
         HMFl/ %z  
        .CharacterUnitLeftIndent = 0 c|3h|  
        .CharacterUnitRightIndent = 0 8L@UB6b\  
        .CharacterUnitFirstLineIndent = 2 }$ w4SpR  
         ?|gGsm+  
        .LineUnitBefore = 0 dUUPhk0  
        .LineUnitAfter = 1 ~c9vdK  
         <w%Yq?^  
    End With dcM+ylB  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False h^Arb=I  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll e(4bx5 <*  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS )lE3GDAPgZ  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False 4bFv"b  
    DoEvents OcLg3.:L  
upZYv~Sa  
    Options.Pagination = True P=}H1 #  
    Me.txtStatus.Text = "样式修改完成,重新进行分页,请稍候....." Py}!C@e  
    DoEvents \qRjXadj  
    ActiveDocument.Repaginate Vl&+/-V  
H,/~=d: ^  
End Sub ?%_]rr9  
01UqDdoj  
5I wX\  
杺栫杣杊椌柮栬,䒴蓉艿芖。
伍胥之 离线
级别: 军区司令员

显示用户信息 
101楼  发表于: 2024-12-28   
姐妹儿,你也快RETIRED 了, 你欠得帐我可记得呢! 你该单独开帖填坑了。 N6-2*ES  
Ae,2Xi  
引用
引用第20楼newport93于06-14-2010 13:47发表的  : Q&:92f\y  
#! K~_DL  
老五,I 服了U。 Q_UCF'f;}  
f@,hO5h(_|  
哪一天等俺退休了,也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 z22|Kv;w  
2J>A;x_?  
杺栫杣杊椌柮栬,䒴蓉艿芖。
描述
快速回复

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