Dim bContinue As Boolean j6~`C ?(  
vE8'B^h1  
Dim regEX As New RegExp XOQ0(e6  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 UR=s=G|  
aG~zMO_)]  
Dim LastTitle0String As String, LastTitle0No As Long ?
V+\E2  
Dim LastTitle1String As String, LastTitle1No As Long Y3FFi M[s~  
Dim LastTitle2String As String, LastTitle2No As Long D|m0 Vj b  
Dim LastTitle3String As String, LastTitle3No As Long L;?F^RK{U  
Dim LastTitle4String As String, LastTitle4No As Long 3`vKEThY)  
Dim LastTitle5String As String, LastTitle5No As Long 6^V( C;5!  
Dim LastTabelString As String, LastTableNo As Long T,uF^%$@AQ  
Dim LastFigureString As String, LastFigureNo As Long km5gO|V>m  
%mU$]^Tw(  
Dim strSeperator As String 9a`~ K L  
8v8-5N  
Sub ConvertWidth(fTEXT As String, rText As String) dmv0hof  
        Selection.Find.ClearFormatting <YEKbnw$o  
        Selection.Find.Replacement.ClearFormatting NIQ}+xpC  
        Selection.Find.Wrap = wdFindContinue @lWNSf  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText wb(S7OsMO  
        DoEvents ("j;VqYUL  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True ub9[!}r't  
End Sub dhxzW@'nIL  
N~IAm:G}[  
Sub ClearDomain() C;/ONF   
        With Selection.Find `v)'(R7){  
            .ClearFormatting 0V]MAuD($  
            .Replacement.ClearFormatting Mt`LOdiC_  
            .Wrap = wdFindContinue R@NFpiw  
            Me.txtStatus.Text = "清除所有域代码" qLb~^'<iD  
            DoEvents "eOl(TSu/  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False ~MC5rOA  
        End With )4s7,R  
End Sub }vOg9/[{  
[A{o"zY  
Private Sub cmdCheck_Click() 50Gu~No6  
    bContinue = True ohyq/u+y~A  
    Dim NoSeries1(1 To 16) As String *y7Yf7  
    Dim NoSeries2(1 To 16) As String ^>!&]@  
    Dim NoSeries5(1 To 16) As String bV2a2#kj  
    Dim NoSeriesRM(1 To 16) As String f QU_:[ Uz  
    Dim paraTotal As Long, ParaText As String )m8Gbkj<  
    Dim ttString As String, ttNo As String $kHXt]fU  
     X"`[&l1  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long SFtcO  
wme#8/eUk  
    Me.txtStatus.Visible = True bXc*d9]  
    Me.lbParaType.Visible = True gg^iYTpt  
    Me.cmdCheck.Enabled = False t\ z@k9  
     0<uLQVoR2n  
     /ar0K9`c  
     .o]I^3tfc  
     =-/'$7R,  
    Dim ParaType As String, rText As String YryMB,\  
     2^Im~p~ByE  
    Selection.WholeStory {` bX*]  
    Selection.NoProofing = True 'WmjQsf  
     5izpQ'>  
    tm1 = Now VB4V[jraCF  
     lqh:c  
        ActiveWindow.View.Type = wdNormalView o$%KbfXO]  
     }S')!3[G  
    NoSeries1(1) = "一" n{~&^Nby*I  
    NoSeries1(2) = "二" AX6:*aZB  
    NoSeries1(3) = "三" |&-*&)iD|w  
    NoSeries1(4) = "四" jr.{M  
    NoSeries1(5) = "五" K
f(Px%G6K  
    NoSeries1(6) = "六" ZBx,'ph}4  
    NoSeries1(7) = "七" o+{i26%  
    NoSeries1(8) = "八" 1R *;U8?  
    NoSeries1(9) = "九" X6$Cd]MN  
    NoSeries1(10) = "十" Ei+lVLoC  
    NoSeries1(11) = "十一" xW9R-J\W  
    NoSeries1(12) = "十二" }aa]1X(u  
    NoSeries1(13) = "十三" 2G5|J{4w  
    NoSeries1(14) = "十四" mC\<fo-u  
    NoSeries1(15) = "十五" R)$]r>YZF  
    NoSeries1(16) = "十六" HN/YuP03[  
     ;w]1H&mc*A  
    NoSeries2(1) = "㈠" ;@gI*i N"  
    NoSeries2(2) = "㈡" m8F \ESL  
    NoSeries2(3) = "㈢" L>WxAeyu1K  
    NoSeries2(4) = "㈣" lf KV%  
    NoSeries2(5) = "㈤" e&8Meiv+d  
    NoSeries2(6) = "㈥" _7;G$\^&.  
    NoSeries2(7) = "㈦" L8'4d'N+>  
    NoSeries2(8) = "㈧" lFcHE c  
    NoSeries2(9) = "㈨" yil5aUA  
    NoSeries2(10) = "㈩" @gf <%>  
     Kx,X{$Pe  
    NoSeries5(1) = "①" b%"/8rK  
    NoSeries5(1) = "②" j"TEp$x  
    NoSeries5(3) = "③" TxN+-< f  
    NoSeries5(4) = "④" DoO ;VF  
    NoSeries5(5) = "⑤" ^qBm%R(  
    NoSeries5(6) = "⑥" {2 T:4i5  
    NoSeries5(7) = "⑦" i,Z-UA|f=T  
    NoSeries5(8) = "⑧" K%/\XnCY  
    NoSeries5(9) = "⑨" #hs&)6Sf  
    NoSeries5(10) = "⑩" s[UV(::E  
     F g):>];<9  
     <6hs<qXqi  
    NoSeriesRM(1) = "I" qM 1ZCt  
    NoSeriesRM(2) = "II" %
" mki>  
    NoSeriesRM(3) = "III" <_*5BO  
    NoSeriesRM(4) = "IV" U1/ww-!Z  
    NoSeriesRM(5) = "V" x30|0EHYl[  
    NoSeriesRM(6) = "VI" 'x?|tKzd  
    NoSeriesRM(7) = "VII" jgXr2JQ<  
    NoSeriesRM(8) = "VIII" fU%Ys9:wU  
    NoSeriesRM(9) = "IX" mRyf +O[  
    NoSeriesRM(10) = "X" Gf.xr%mUZr  
    NoSeriesRM(11) = "XI" QZ7W:%r(4  
    NoSeriesRM(12) = "XII" =^*EM<WG)  
    NoSeriesRM(13) = "XIII" +Lc+"0*gV*  
    NoSeriesRM(14) = "XIV" H=WB6~8)   
    NoSeriesRM(15) = "XV" a Iyzt  
    NoSeriesRM(16) = "XVI" fy$CtQM  
     \SwqBw  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) )>Z @')Uk:  
     D,FgX/&i/  
    If i = vbNo Then ?*kB>U9e  
        Exit Sub ~p{YuW[e  
    End If j
w\4`NZ]  
     !nsr( 7X2  
    If Me.chkSuper.Value Then Rc D5X{qS#  
        Me.txtStatus.Text = "检查修改所有的上标格式" pjV70D8$A  
     P92pQ_W  
        CheckSuperScript BonjK#  
         [5-IkT0  
    End If ]w]BKpU=  
     H >]*<2(=-  
    If Me.chkStyle.Value Then H|j]uLZ  
        Me.txtStatus.Text = "设置样式，请稍候...." ds+2z=!!e  
        DoEvents n4XkhY|  
        CeateOrModifyStyle zT/woiyB`  
    End If |pMP-  
     Kc1w[EQ  
     |t3}>+"?z  
     S;8=+I,  
    ClearDomain 67}8EV!/k  
         F/j ; q  
     S7cD}yx*[  
     (=gqqOOl~  
    If Me.chkLIST.Value Then yU7XX+cB7  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" (k"0/*F4_  
     ~+BU@PHv  
        ConvertListToOrdinary F &5iA\  
    End If 7T!t*sSO'  
     %zEy.7Ux  
     XS^du{ai  
    Dim pType As String, trimpTEXT As String #_3-(H5u  
    If Me.chkNum.Value = True Then U Lq`!1{   
        Me.txtStatus.Text = "转换全角数字形式为半角" {IBbN05 ;  
        ConvertWidth "１", "1" 3|G~_'`RLt  
        DoEvents O)&ME  
        ConvertWidth "２", "2" ).u>%4=6  
        DoEvents J?Q@f  
        ConvertWidth "３", "3" k`[>Bk%b  
        DoEvents /J!hKK^k  
        ConvertWidth "４", "4" GvA4.s,  
        DoEvents }waZGJLN  
        ConvertWidth "５", "5" 3?h!nVI+2J  
        DoEvents Xf{p>-+DL  
        ConvertWidth "６", "6" `2V{]F  
        DoEvents TI"Ki$jC  
        ConvertWidth "７", "7" ErsJWp  
        DoEvents <bhJ>  
        ConvertWidth "８", "8" p`U#  
        DoEvents 7hMh%d0d(_  
        ConvertWidth "９", "9" RASk=B  
        DoEvents lY,9bSF$  
        ConvertWidth "０", "0" !&@t  
        DoEvents }y+a)2  
        ConvertWidth "ａ", "a" 1{cF/ :o  
        DoEvents 4-'0# a  
        ConvertWidth "ｂ", "b" !rqs!-cCQ  
        DoEvents j 7O!uUQQ  
        ConvertWidth "ｃ", "c" =Bh,>Kg  
        DoEvents wxvVtV{u>|  
        ConvertWidth "ｄ", "d" 9M|#X1r{%{  
        DoEvents Jzy:^PObT  
        ConvertWidth "ｅ", "e" U%VFr#  
        DoEvents wu{%gtx/;^  
        ConvertWidth "ｆ", "f" +mKII>{  
        DoEvents Qch'C0u  
        ConvertWidth "ｇ", "g" k!+v*+R+V  
        DoEvents 69uDc  
        ConvertWidth "ｈ", "h" 0CX9tr2J  
        DoEvents
}PDtx:T-  
        ConvertWidth "ｉ", "i" l 8GAZ*+  
        DoEvents >oEFuwE  
        ConvertWidth "ｊ", "j" {Q]7!/>>  
        DoEvents ?=kH}'igq  
        ConvertWidth "ｋ", "k" %){/O}I]>  
        DoEvents $mf6!p4  
        ConvertWidth "ｌ", "l" ~\u>jel  
        DoEvents PIQd=%?'  
        ConvertWidth "ｍ", "m" tI9p2!  
        DoEvents TDg<&ND3  
        ConvertWidth "ｎ", "n" ^y|`\oyqwN  
        ConvertWidth "ｏ", "o" E J6|y'  
        ConvertWidth "ｐ", "p" [fkt3fS  
        ConvertWidth "ｑ", "q" V!+<  
        ConvertWidth "ｒ", "r" B*QLKO:)i  
        ConvertWidth "ｓ", "s" 0BjP|API  
        ConvertWidth "ｔ", "t" '?{L gj^R  
        ConvertWidth "ｕ", "u" LT,zk)5  
        ConvertWidth "ｖ", "v" }J\7IsM&  
        ConvertWidth "ｗ", "w" m,w^,)  
        ConvertWidth "ｘ", "x" ^tjM1uaZ5(  
        ConvertWidth "ｙ", "y" q="ymx~  
        ConvertWidth "ｚ", "z" ^QHgc_oDm  
        ConvertWidth "Ａ", "A" 2U+Fat@  
        ConvertWidth "Ｂ", "B" EW]8k@&g  
        ConvertWidth "Ｃ", "C" '=K~M  
        ConvertWidth "Ｄ", "D" DC$> 5FDv  
        ConvertWidth "Ｅ", "E" ;\/RgN  
        ConvertWidth "Ｆ", "F" vsI|HxpyC,  
        ConvertWidth "Ｇ", "G" "zFTPL"  
        ConvertWidth "Ｈ", "H" 0\"]XYOH  
        ConvertWidth "Ｉ", "I" oVfRp.a  
        ConvertWidth "Ｊ", "J" 8N#.@\'kz.  
        ConvertWidth "Ｋ", "K" +tYskx/  
        ConvertWidth "Ｌ", "L" O4a~(*f  
        ConvertWidth "Ｍ", "M" Gh%dVP9B@P  
        ConvertWidth "Ｎ", "N" }1sd<<\`  
        ConvertWidth "Ｏ", "O" [Mv'*.7  
        ConvertWidth "Ｐ", "P" f=4q]y#& X  
        ConvertWidth "Ｑ", "Q" N#:W#C{16w  
        ConvertWidth "Ｒ", "R" >DzW OB  
        ConvertWidth "Ｓ", "S" Zjc 0R   
        ConvertWidth "Ｔ", "T" l]IQjjJ`  
        ConvertWidth "Ｕ", "U" /" &Jf}r  
        ConvertWidth "Ｖ", "V" "*d%el\63  
        ConvertWidth "Ｗ", "W" ah!RQ2hDrV  
        ConvertWidth "Ｘ", "X" V`feUFw3  
        ConvertWidth "Ｙ", "Y" BBl9<ne$  
        ConvertWidth "Ｚ", "Z" }72+i  
        ConvertWidth "^l", "^p" S^i<_?nwg  
        ConvertWidth "（", "(" 9Z3Y,`R,  
        ConvertWidth "）", ")" SvQj'5~<  
     MP Q?Q]'  
    End If "!Hm.^1  
A_J!VXq  
    With ActiveDocument WO+>W+|N  
        Dim tbl As Table 8}Maj  
        For Each tbl In .Tables }:b) =fs  
            tbl.Rows.Alignment = wdAlignRowCenter `
n e 9&+  
            tbl.Range.Font.NameFarEast = "楷体" 5* ~EdT  
            tbl.Range.Font.NameAscii = "Times New Roman" :%zAX  
            tbl.Range.Font.Size = 10.5 g9 =O<u#  
        Next reoCyP\!!  
        Set tbl = Nothing 2>Kn'p  
    End With N\hHu6  
     s8r[U, }(  
     #CB`7}jq  
    With ActiveDocument P>*`<$FR  
         N&Uqzt*  
        For i = 1 To .TablesOfContents.Count 0qN?4h)7  
            .TablesOfContents(i).Delete dW|S\
S'&  
        Next 6:G::"ew  
         >-CNHb  
         <Lq.J`|+  
         eGbjk~,f'  
        paraTotal = .Paragraphs.Count $
1D>}5Ex  
        paraCounter = 1 f kdJgK  
         7 /DDQ  
        LastTitle0No = 0 %w/:mH3FA  
        LastTitle1No = 0 xw1n;IO4  
        LastTitle2No = 0 {r?Ly15  
        LastTitle3No = 0 ;@[ax{ J  
        LastTitle4No = 0 sbFA{l3  
        LastTableNo = 0 N#X(gEV  
        LastFigureNo = 0 r$!  
         R&L^+?  
        Dim Sec As Long XO/JnJ^B  
         \e?w8R.6w^  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) +C=^,B!,  
        If Sec = 0 Then S%Z2J)H"  
            Exit Sub QWwEfL  
        End If tW3Nry  
         `u;4Z2Lr0  
        k = 0 P;p20+  
        Do While (paraCounter < paraTotal) And bContinue 1tCe#*|95  
            k = k + 1 iN+&7#x;/  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then O-<nLB!Wf  
                Exit Do M >s,I^  
            End If 3DZ8-N S  
            paraCounter = paraCounter + 1 ~NwX,-ri  
            If k Mod 20 = 0 Then M/8EaQs}  
                Me.lbCounter.Caption = paraCounter glNXamo  
                DoEvents \ 3l3,VYH  
            End If W -5wjc  
        Loop ;J?zD9  
         sYyya:ykxT  
         L'x[wM0w;  
        Do While (paraCounter < paraTotal) And bContinue >=L<3W1  
             E&b!Y '  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) p=f8A71  
            ShapeHeight = 0 p+{*&Hm5  
            ShapeWidth = 0 {F*81q\  
           +H3;{ h9,  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth *Cx3bg*Gan  
             {UOR_Vt!*  
            Select Case ParaType G:|=d0  
                Case "【】表格内容" Ky[-ZQQo=5  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" /p[lOg  
                Case "章" :c&F\Q=  
                    LastTitle0No = LastTitle0No + 1 ,N2|P:x  
                    '新一章开始，复位其下属标题编号 1Qo2Z;h@  
                    LastTitle1No = 0 9%bqY 9NFd  
                    LastTitle2No = 0 V#d8fRm  
                    LastTitle3No = 0 C;eM:v0A[  
                    LastTitle4No = 0 77zDHq=  
                     /m*+N9)  
                    k = Val(ttNo) ^36m$J$  
                    If k = 0 Then '非数字编号章节 |z.Z='`  
                        If ttNo <> NoSeries1(LastTitle0No) Then f`,isy[  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString  )9$>i5l  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText Cn8w})B  
                        End If 7|pF(sb0  
                    Else rp,PhS  
                        If Val(ttNo) <> LastTitle0No Then 0tah$;c e  
                            rText = "第" & LastTitle0No & ttString ?C|b>wM/  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText #,\qjY  
                        End If >l0D,-O]m  
                         X&bnyo P  
                    End If fGDjX!3-S  
                     $3:O}X>  
                    '章段落设置 &^b mZj!  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 K<D=QweOon  
                    .Paragraphs(paraCounter).Style = "QLNU章节" 7T9Mo .  
                    .Paragraphs(paraCounter).Range.Select uI_h__  
                    Selection.EndKey unit:=wdLine Kd^,N Ag  
                    tc = Replace(rText, vbCr, "") |),3`*N  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False 4.i< `'  
                Case "一级标题" t3FfPV!P"  
                    LastTitle1No = LastTitle1No + 1 Qj/.x#T  
                    '新一级标题开始，复位其下属标题编号 A>Oi9%OY:  
                    LastTitle2No = 0 >{w"aJ" F  
                    LastTitle3No = 0 v.e~m2u_F  
                    LastTitle4No = 0 dW2Lvnh!>/  
                     DTSK*a`  
                    If ttNo <> NoSeries1(LastTitle1No) Then x[eho,6)  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString m<e-XT  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText 1 c4I`#_v  
                    End If uSn<]OrZo`  
                   P{h$> 6c  
                     orr6._xw  
                    '一级标题段落设置  格式：一、标题内容 c=\H&x3X  
                    .Paragraphs(paraCounter).Range.Text = rText p |xMXoa`  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" $+Vp
>  
                    .Paragraphs(paraCounter).Range.Select _6&TCd<  
                    Selection.EndKey unit:=wdLine g{$F;qbkO  
                    tc = Replace(rText, vbCr, "") SRpPLY{:F  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False YWUCrnr  
                Case "二级标题" ?Y#x`DMh  
                    LastTitle2No = LastTitle2No + 1 C\C*' l6d  
                    '新二级标题开始，复位其下属标题编号 $tFmp)  
                    LastTitle3No = 0 b:>t1S Ul  
                    LastTitle4No = 0 lG!W
e'?  
                     uMM?s?q  
                    If ttNo <> NoSeries1(LastTitle2No) Then #~>ykuq  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString q.g0Oz@z  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText r4FGz!U  
                    End If i slg5  
                     #MI4 `FZ  
                    '二级标题段落设置 格式：(一)、标题内容 j= Ebk;6p  
                    .Paragraphs(paraCounter).Range.Text = rText y6 _,U/9
 
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" P[bj{lo  
                     p7d[)* L>C  
                    .Paragraphs(paraCounter).Range.Select "yc_*R(pU  
                    Selection.EndKey unit:=wdLine  vB T]a  
                    tc = Replace(rText, vbCr, "") >$iQDVh!  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False ;bxL$1  
                 IA?v[xu  
                Case "三级标题" ~xP4}gs1  
                    LastTitle3No = LastTitle3No + 1 Lb%Wz*Fa%!  
                    '新三级标题开始，复位其下属标题编号 M?zwXmTVW0  
                    LastTitle4No = 0 sas:5iB5  
                     p$OkWSi~
 
                    If Val(ttNo) <> LastTitle3No Then >`!Lh`n7_  
                            rText = LastTitle3No & ". " & ttString zz~AoX7V6  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText lDm0O)Dh!  
                         CYWL@<p,  
                    End If j@+QwZL|  
                    '三级标题段落设置 格式：1. 标题内容 s.uV,E*wu  
                    .Paragraphs(paraCounter).Range.Text = rText O&De!Gx  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" sT|FgB  
                    .Paragraphs(paraCounter).Range.Select o+T%n1$+V  
                    Selection.EndKey unit:=wdLine y72=d?]W  
                    tc = Replace(rText, vbCr, "") @{y[2M} %]  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False 6P6Pl&  
                Case "四级标题" ;p4|M  
                    LastTitle4No = LastTitle4No + 1 %N }0,a0  
                     ;/]vmgl2  
                    If Val(ttNo) <> LastTitle4No Then v08Xe*gNU  
                            rText = "(" & LastTitle4No & "). " & ttString R#i{eE*WF  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText jV!9IK;HA.  
                     VygiR|f-  
                    End If ,"Nfo`7  
                    '四级标题段落设置 格式：(1). 标题内容 Xeo2 < @[  
                    .Paragraphs(paraCounter).Range.Text = rText ?3{:[*  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" 5t&;>-A'?'  
                    .Paragraphs(paraCounter).Range.Select !XJS"owr  
                    Selection.EndKey unit:=wdLine BK16~Wl  
                    tc = Replace(rText, vbCr, "") gx)!0n;  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False vpl> 5%  
                 mU3 @|a/@0  
                Case "表格标题" &>&UqWL  
                    LastTableNo = LastTableNo + 1 y&$v@]t1  
                     c  O[
Hr  
                    If ttNo <> CStr(LastTableNo) Then 8KrqJN0\  
                            rText = "表" & LastTableNo & ". " & ttString h1`u-tc2x  
                            ErrMsg.AddItem "表格编号错误：" & ParaText ES&"zjr$  
                   }Kc03Ue`%e  
                    End If ^saH^kg1"  
                     S>s{ t=AY~  
                    '表格名称段落设置 格式：表1. 表格名称 n_X)6 s  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" BLskUrPF  
                    xe = Replace(rText, vbCr, "") MTxe5ob`$Q  
                    .Paragraphs(paraCounter).Range.Select P7 `sJ("#  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 :CJ]^v  
                    Selection.Range.Text = xe +:&,Ts/  
                    Selection.EndKey Y &"rf   
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False pAd 8-a  
                 =u#xPI0:  
                Case "表格首行" bx&?EUx+b  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" M@b:~mI[sw  
                Case "图片标题" .Q^8_'ZG  
                    LastFigureNo = LastFigureNo + 1  UX& ?^]  
                     r#C
QCq  
                    If ttNo <> CStr(LastFigureNo) Then cK(S{|F  
                            rText = "图" & LastFigureNo & ". " & ttString >SR!*3$5  
                            ErrMsg.AddItem "表格编号错误：" & ParaText ;"77?)  
                   bW9a_myE  
                    End If @3F4Lg6H|  
                    '图片名称段落设置 格式：图1. 图名称 3HP o*~"]  
                    .Paragraphs(paraCounter).Range.Text = rText 9e*v&A2Y'  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" tEXY>=  
                    .Paragraphs(paraCounter).Range.Select xJ18M@"j  
                    Selection.EndKey unit:=wdLine v0}R]h~>\H  
                    xe = Replace(rText, vbCr, "") }JePEmj  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False :n} NQzs  
                Case "正文" !.nyIA(  
                     '正文名称段落设置 =5jng.  
                    .Paragraphs(paraCounter).Style = "QLNU正文" qz .{[l  
               Case "文献条目" Dy[_Ix/Y,  
                    With .Paragraphs(paraCounter) L)`SNN\ipR  
                        '.Range.Select VS{po:]A  
                        'Selection.ClearFormatting ;m[-yqX  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” qfQg?Mr  
                        .Style = "QLNU参考文献" 3RyB 0 n  
                    End With o2C{V1nB  
               Case "图表注解" 1\'zq;I~  
                    With .Paragraphs(paraCounter) Rt^~db  
                        .Range.Font.NameFarEast = "楷体" w`")^KXi  
                        .Range.Font.NameAscii = "Times New Roman" !^:)zORYR  
                        .Range.Font.Size = 9 '小5号字 %3r`EIB6  
                         1D/ 9lR,  
                        .Alignment = wdAlignParagraphCenter .0b$mSV[  
                        .LeftIndent = 0 DiLZ5^`]  
                        .RightIndent = 0 hkhk,bhI  
                        .FirstLineIndent = 0 ~j&#D
G&L  
                        .LineSpacing = 12 Fuuy_+p@G  
                        .LineSpacingRule = wdLineSpaceExactly ~ojH$=K>d  
                        .LineUnitAfter = 0 E0Y>2HOuL  
                        .LineUnitBefore = 0 1>BY:xZr  
                        .OutlineLevel = wdOutlineLevelBodyText lS.&>{  
                        .PageBreakBefore = False Z+*t=?L,,G  
                        .RightIndent = 0 2#y!(D8  
                        .WordWrap = True ~T_4M  
                        .LineUnitAfter = 0.5 T3W?-,  
                         iVg3=R)[1  
                    End With d/fg  
                Case Else nYc8+5CcK'  
                    '不作处理 ~rWys=  
            End Select ^-yEb\\i  
             im6Rx=}E{  
            '含有inlineshape的段落处理 9Rg|oCP_  
            If ShapeHeight > 30 Then @6N$!Q?  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 O_u2V'jy9  
            End If [Pnk@jIk4  
             d 18>0R  
            If (ShapeWidth + ShapeHeight) > 150 Then * )6:yn  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" %xq/eC7  
            End If {xzs{)9|Y4  
             CE'd`_;HLn  
            '段落计数器递 6!eI=h2P  
            paraCounter = paraCounter + 1 ah(lH5r  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter X?'v FC  
            Me.txtStatus.Text = ParaText l*`2EJ  
            DoEvents G{ 9p.Q  
        Loop |H LU5=Y  
    End With l^B PTg)X@  
     {|;5P.,l  
    msg = "" nF8|*}w  
     Kn!n}GtR  
    For i = 0 To Me.ErrMsg.ListCount - 1 srbU}u3VZ  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) iIe\mV  
    Next !G0O
D$  
     *C(/2  
     F"k.1.  
     ZT\=:X*e  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg "5+x6/9b  
    Me.cmdCheck.Enabled = True q (?%$u.  
    Me.txtStatus.Visible = True dZ1/w 0<M2  
    Me.lbParaType.Visible = False NZ}DbA+g;|  
     h*2NFL~#  
    bContinue = False e95x,|.-_  
End Sub hd@ >p.  
,'KQFC   
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) &ZmHR^Flz  
    Dim pTEXT As String t=IpVl!  
     _h=kjc}[.O  
    pTEXT = ChKRange.Text V@QWJZ"  
     Aw3 8Tw  
    ParaType = "其它" d'4^c,d  
    TitleString = pTEXT yMQZulCWE  
    TitleNo = "N/A" wstH&^  
     _wC4n }J  
    shpCounter = ChKRange.InlineShapes.Count VhWF(*  
    If shpCounter <> 0 Then ]CFh0N|(L  
        MaxShpHeight = 0: TotalShpWidth = 0 h]6"~ m  
        For i = 1 To shpCounter <)vjoRv  
            k = ChKRange.InlineShapes(i).Height b xU13ESv  
            l = ChKRange.InlineShapes(i).Width m3cO{ 1I  
            If k > MaxShpHeight Then '_nJ DM  
                MaxShpHeight = k `H_.<``>  
            End If phT|w H  
            TotalShpWidth = TotalShpWidth + l [M7&  
        Next 9&>)4HNd?  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then ] X9
e|  
            Exit Sub /qYo*S_cG  
        End If =sR]/XSK  
    End If .fQ/a`As
U  
     k|Hxd^^I  
    '空行 &g{b5x{iD  
    If Len(pTEXT) <= 2 Then H R/"Nwr  
        Exit Sub -t<8)9q(  
    End If :2qUel\PEC  
     E7_)P>aS5  
         ]Tb ?k+a  
    '是否为表格中的文字 :KJG3j?   
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then Vz"Ja  
        ParaType = "表格内容" ^X&n-ui   
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) |m^qA](M  
        If k = 1 Then &_LFV@/  
            ParaType = "表格首行" [%8t~zg  
        End If z2Pnni7Ys  
        Exit Sub !yo/ F&6  
    End If ((2 g  
     %,l+
?fF  
    '例外情况：脚注 qM."W=XVN  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then 8op,;Z7Y  
        ParaType = "脚注" 'q#$^='o  
        Exit Sub :|GC~JElo5  
    End If HW{si]~q  
     @dy<=bh~  
    '例外情况：尾注 C Rd1zDB  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then DH#n7s'b  
        ParaType = "尾注" 4z_>Ci
A  
        Exit Sub F)W7,^=X>-  
    End If X"S-f;b#  
     J73B$0FP  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then _o 2pyV&  
        ParaType = "页眉页脚" yE aim~  
        Exit Sub

:f~[tox  
    End If 6 3J_u-o  
     "1<>c/h  
     !zhg3B#p  
    With regEX O[N}@%HMW  
        .Global = True |Ew~3-u!  
         )4[Yplo  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" $*%ipD}f  
        If regEX.Test(pTEXT) Then Auq)  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") Yt 9{:+[RK  
            TitleString = regEX.Replace(pTEXT, "$3") h\jV@g$  
            TitleNo = regEX.Replace(pTEXT, "$1") | JmEI9n2  
            ParaType = "章" $yZ(c#L  
            Exit Sub [@l:C\2  
        End If /``4!jU  
         *K{-J*   
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" syEWc(5  
        If regEX.Test(pTEXT) Then [a\
U8 w  
            ParaType = "一级标题" muAI$IRR  
            regEX.Execute (pTEXT) )9^0Qk' ]  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") 36NENzK  
            TitleString = regEX.Replace(pTEXT, "$3") AI$r ^t1  
            TitleNo = regEX.Replace(pTEXT, "$1") '^TQ Ubw  
            Exit Sub bJ[{[|yEd  
        End If w3,1ImrXp  
         E@/yg(?d=  
        '全角或半角括号中的数字 J?yNZK$WqN  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" 3$.R=MQ7  
        If regEX.Test(pTEXT) Then NA%(ZRSg(  
            ParaType = "二级标题" \m>mE/N  
            regEX.Execute (pTEXT) our$Ka31  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") r[>=iim  
            TitleString = regEX.Replace(pTEXT, "$5") SMMV$;O{9  
            TitleNo = regEX.Replace(pTEXT, "$2") B1EI'<S  
            Exit Sub Px!M^ T!Pi  
        End If |C\%H R  
         Rmq8lU  
        '阿拉伯数字  1. 2. h)W?8
XdM  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" zL1*w@6  
        If regEX.Test(pTEXT) Then -P+@n)?T6  
            ParaType = "三级标题" igoXMsifT+  
            regEX.Execute (pTEXT) <Ae1YHUY  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 Ya#,\;dTT  
            TitleString = regEX.Replace(pTEXT, "$3") .pP{;:Avpn  
            TitleNo = regEX.Replace(pTEXT, "$1") j^t#>tZS  
            Exit Sub o3_dHbdI  
        End If l>KkK|!T^i  
         9]ga\>v  
        '全角或半角括号中的阿拉伯数字 VSK!Pc.G}
 
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" ewo
1^&#>  
        If regEX.Test(pTEXT) Then ;*3OkNxa3  
            ParaType = "四级标题" X=:|v<E   
            regEX.Execute (pTEXT) #~&SkIhBE  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") JGJXV
3AT  
            TitleString = regEX.Replace(pTEXT, "$5") ?!N@%R>5rN  
            TitleNo = regEX.Replace(pTEXT, "$2") y>:-6)pv  
            Exit Sub ` >w4G|{  
        End If  d"E@e21  
         i \2d1Z  
        '表格名称 h  0EpW5  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" l3d^V&Sk  
        If regEX.Test(pTEXT) Then `^rN"\  
            ParaType = "表格标题" {,Y?+F  
            regEX.Execute (pTEXT) mfYY?]A*+  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) 9@nDXZPY&  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) ,a:!"Z^f  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) X3C"A|HE9  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 !>~W5c^  
            Exit Sub E>/kNl  
        End If c$cb2V7,  
        
2D5S%27,  
        '图片名称 N36<EHq  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" #].n0[  
        If regEX.Test(pTEXT) Then C q/936`O  
            ParaType = "图片标题" o\_@4hXf  
            regEX.Execute (pTEXT) `N+A8  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") [k"@n+%  
            TitleString = regEX.Replace(pTEXT, "$3") 9t 3mU:  
            TitleNo = regEX.Replace(pTEXT, "$1") mkA1Sh{hX>  
            Exit Sub a/9R~DwN  
        End If fM[Qn *.  
         u7rA8u|TO  
        '参考文献  aOS:rC  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 P1<Y7+n  
        If regEX.Test(pTEXT) Then g]'Rw
I  
            ParaType = "文献条目" $ekB+ t:cj  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") [D]9M"L,vQ  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") TRQ@=.  
            Exit Sub EcBJ-j6d  
        End If 3DNw=Ic0k  
         9?VyF'r=  
        prfx = Left(pTEXT, 2) (+@ Lnz\  
        If prfx = "注：" Or prfx = "注:" Then t0
[H_  
            ParaType = "图表注解" 9#:b+Amzz  
            Exit Sub we6kV-L.  
        End If \#(3r1(  
         ]et4B+=i  
         >~;MQDU5*Y  
        ParaType = "正文" 6x1!!X+)+  
         uXs.7+f  
    End With y^7ol;t  
End Sub }y<p_dZI  
J ! ;g.q  
Sub ConvertListToOrdinary() dQ4VpR9|;  
    Dim st As Paragraph 7pB5o2CD0  
    With ActiveDocument F %OA  
        For i = .Paragraphs.Count To 1 Step -1 6} DGEHc1  
            Set st = .Paragraphs(i)  2EG`  
            lst = st.Range.ListFormat.ListString h0YI PB  
            If lst <> "" Then fl{wF@C6  
                st.Range.ListFormat.RemoveNumbers kC=e>v  
                st.Range.InsertBefore lst & " " bITc9Hqc  
            End If B{\ cV-X$0  
        Next 6$1d
d#  
    End With K~j&Q{yws@  
    Set st = Nothing k{*IR  
End Sub >^cP]gGY  
* u_nu>  
Private Sub UserForm_Activate() EhEUkZE3)  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" A!([k}@=j  
    Me.lbTotal.Font.Bold = True 0]x
gE  
    Me.txtStatus.Visible = False <,U=w[cH  
    Me.cmdCheck.Enabled = True ~m ,xG  
@a AR99M  
End Sub 6m#V=4e*  
A]fN~PR  
41c]o<!=)j  
Sub CheckSuperScript() '8.r   
    Selection.Find.ClearFormatting Yx- 2ux  
    Selection.Find.Replacement.ClearFormatting 6mP s;I  
    With Selection.Find Cu5fp.OS7  
        .Text = "[【\[［〖](*)[】\]〗］]" 4C/8hsn  
        .Replacement.Text = "[\1]" U!a"r8u|8q  
        .Replacement.Font.Superscript = True .bl0w"c^qq  
        '.Replacement.Font.Color = wdColorBlue +29;T0>a  
        .Forward = True +^+wS`Y  
        .Wrap = wdFindContinue l@*/1O)v  
        .FORMAT = True t%z7#}9$  
        .MatchCase = False s/[i>`g/9  
        .MatchWholeWord = False [6S"iNiyKT  
        .MatchByte = False ^@L[0Z`  
        .MatchAllWordForms = False Xy*X4JJh^  
        .MatchSoundsLike = False _ga !TQ:  
        .MatchWildcards = True |V9%@ Y?  
    End With f9- |!]s  
    Selection.Find.Execute Replace:=wdReplaceAll ;( 0:6P8I  
End Sub *Kzs(O  
X}zKV  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) UxicqkX  
    bContinue = False
Vd<= y  
    Set regEX = Nothing K=5_jE^e  
End Sub e+R.0E  
\Di~DN1  
Sub CeateOrModifyStyle() ap%o\&T;  
' )Qxv9:X  
' G^m
k<pH  
Dim stl As Style n'*Ljp  
     xYu~}kMu  
    Options.Pagination = False !CB
x$1z  
     QrA8KSLC  
    On Error Resume Next mFF]d  
    For Each stl In ActiveDocument.Styles J#V`W&\,6  
        stl.Delete 4_.k Q"'DH  
    Next ]|`gTD6  
    On Error GoTo 0 /1li^</|p`  
     ['km'5uZ^  
    Set stl = Nothing 9jPb-I-   
     A}y1v;FB  
    DoEvents >!)VkDAG  
    On Error Resume Next 'fAD Dh}  
     oh@r0`J]x  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph JNp`@`0V  
     gy =`cMS@  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph PYHm6'5BtB  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph 8v^i%Gg  
     @B9|{[P  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph qk,cp},2K  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph 4\OELU  
     ')1sw%[2  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph 3X!~*_ iC  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph Zc4h jg  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph .hJ8K#r  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph ^Js9E  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph 2FVKgyV  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph )ql?}  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph f[}SS]d:E  
     *VlYl"  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph <Ab:yD`K!  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph M.8!BB7\8e  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph $m=z87hX  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph .sG,TLE[<  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph ,;d9uG2  
     C]=E$^|{  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph Na~_=3+a  
    On Error GoTo 0 d}o1 j  
    DoEvents &HXSO,@  
     zRJ y3/>  
    'BaseStyle >A,WXzAK}S  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False *>'R R<  
    With ActiveDocument.Styles("BaseStyle").Font oNU* q .Q  
        .NameFarEast = "宋体" }"&(sYQ*`  
        .NameAscii = "Times New Roman" ;W+-x]O  
        .NameOther = "宋体" |%V.Lae  
        .Size = 10.5 !F<
?he<U  
        .Bold = wdUndefined rbtV,Y  
        .Italic = wdUndefined *i?qOv/=>  
        .Subscript = wdUndefined =h_gj >  
        .Subscript = wdUndefined %xZ.+Ff%  
         _@OYC<  
        .Underline = wdUnderlineNone /3TorB~Y  
        .UnderlineColor = wdColorAutomatic k
N$70N7I;  
        .StrikeThrough = False nIi_4=Z  
        .DoubleStrikeThrough = False xRY
5[=97  
         ;ZqFrHI M`  
        .Outline = False #wjBMR%  
        .Emboss = False S-/#3  
        .Shadow = False tJu<#hX  
        .Hidden = False twu6z5<!-=  
        .SmallCaps = False Qx,G3m[}  
        .AllCaps = False  yY| .  
        .Color = wdColorAutomatic p 5o;Rvr  
        .Engrave = False {f&ga  
        .Scaling = 100 {PVu3W  
        .Kerning = 1 ^r& {V"l]  
        .Animation = wdAnimationNone wwAT@=X*}  
        .DisableCharacterSpaceGrid = False " }ZD)7K  
        .EmphasisMark = wdEmphasisMarkNone ;&!dD6N  
    End With Azle ;\l`  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat =5|5j!
i=q  
        .LeftIndent = 0 UKJY.W!w4  
        .RightIndent = 0 (;j7{(  
        .SpaceBefore = 0 ]Cz16e&=2  
        .SpaceBeforeAuto = False UA8!?r-cR
 
        .SpaceAfter = 0 hrL<jcv|  
        .SpaceAfterAuto = False =0)^![y]v  
         V0AX1?H~w  
        .LineSpacingRule = wdLineSpaceSingle LuqaGy}>-  
        .Alignment = wdAlignParagraphJustify 5->PD p  
         lhI;K
4#  
        .WidowControl = False ;?o C=c  
        .KeepWithNext = False jF;4 8g@^  
        .KeepTogether = False Td F<  
        .PageBreakBefore = False P&tK}Se^V  
        .NoLineNumber = False \S<5b&G  
         H\k5B_3OU  
        .FirstLineIndent = CentimetersToPoints(0) ,pASjFWi  
        .OutlineLevel = wdOutlineLevelBodyText +i>q;=~  
        .CharacterUnitLeftIndent = 0 YiCDV(prT  
        .CharacterUnitRightIndent = 0 $~YuS_sYg  
        .CharacterUnitFirstLineIndent = 0 \fz j fZ1n  
        .LineUnitBefore = 0 =@w:   
        .LineUnitAfter = 0 @iRVY|t/  
        .AutoAdjustRightIndent = True []]3"n  
        .DisableLineHeightGrid = True bvx:R
~E$  
         JgB# EoF  
        .FarEastLineBreakControl = True lewDR"0Kx  
        .WordWrap = True i`SF<)M(  
        .Hyphenation = False 2$o[  
         !:t9{z{Ixg  
        .HangingPunctuation = True JJ~?ON.H  
        .HalfWidthPunctuationOnTopOfLine = True jwq"B$ap  
        .AddSpaceBetweenFarEastAndAlpha = True E&+^H on  
        .AddSpaceBetweenFarEastAndDigit = True 0hkuBQb\  
        .BaseLineAlignment = wdBaselineAlignBaseline 0l=}v%D  
    End With ,![=_d  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False >" .qFn g  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll 19.cf 3Dh  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese uf^:3{1  
    ActiveDocument.Styles("BaseStyle").NoProofing = False ~/U0S.C  
     $aA.d^  
    '一级标题题样式 V3oAZ34)  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") `-H:j:U{  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" Vw*x3>`  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False LbR-uc?x  
    With ActiveDocument.Styles("QLNU一级标题").Font ^8
m+*t  
        .NameFarEast = "黑体" h0 Sf=[>
z  
        .NameAscii = "Arial Black" ]2(c$R
 
        .NameOther = "黑体" V d0GTpB?1  
        .Name = "黑体" jyGVbno
`  
        .Size = 16              '三号 if
s *-f  
        .Bold = True UYQ$c }Z5  
        .Italic = wdUndefined mb/[2y<  
        .Subscript = wdUndefined g,:Nzb  
        .Superscript = wdUndefined <n\.S  
    End With 5G<CDgl^!  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat [KH?5C  
         ]1&9~TL  
        .LeftIndent = CentimetersToPoints(0) rxK0<pWJhx  
        .RightIndent = CentimetersToPoints(0) zFtGc  
        .FirstLineIndent = CentimetersToPoints(0) K
8J2eV\  
         X4$e2f  
        .LineSpacingRule = wdLineSpaceSingle Ng"vBycy  
        .Alignment = wdAlignParagraphCenter 2f!oA~| 2  
         >>$|,Q-.  
        .WidowControl = True @;6}xO2  
        .KeepWithNext = True QP B"EW  
        .KeepTogether = True  {K9E% ,w  
        .OutlineLevel = wdOutlineLevelBodyText faq K D:  
         _")h %)f  
        .LineUnitBefore = 0.5  /Xz4q!Ul  
        .LineUnitAfter = 0.5 >D/~|`=p  
    End With OD]J@m  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False c2^7"`  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll JC"K{V{  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese ^JtHTLH
L=  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True >y9o&D  
    DoEvents gn"&/M9E  
     lAk1ncx  
    '二级 w4'K2 7  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") uB1!*S1f  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" <dL04F  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False 5gD)2Q6  
    With ActiveDocument.Styles("QLNU二级标题").Font }BJ1#<  
        .NameFarEast = "黑体" f4S@lyYF  
        .NameAscii = "Arial Narrow" 42CMRGv  
        .NameOther = "黑体" :6?
&FzD`  
        .Name = "黑体" S7a6ntei  
        .Size = 15        '小三号 =.E(p)fz  
        .Bold = False  W6O.E  
        .Outline = False 4QF
OO sNp  
        .Italic = wdUndefined 9@Sb! 9h  
        .Subscript = wdUndefined <~M9nz(<  
        .Superscript = wdUndefined ? sW`**j  
    End With H040-Q;S'  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat X=pt}j,QrP  
        .LeftIndent = CentimetersToPoints(0) y.:-  
        .RightIndent = CentimetersToPoints(0) w.aFaR)04  
        .FirstLineIndent = CentimetersToPoints(0) n:'BN ([]o  
         cf'}*$[S  
        .LineSpacingRule = wdLineSpaceSingle ~It+|X=Kx  
        .Alignment = wdAlignParagraphLeft zt2-w/[Q  
         UWp8I)p!\O  
        .WidowControl = True ]7t\%_  
        .KeepWithNext = True  _)E8XyzF  
        .KeepTogether = True C[nr>  
        .PageBreakBefore = False 6B/"M-YME  
        .OutlineLevel = wdOutlineLevelBodyText #`4^zU)  
         9Nu#&_2R  
        .LineUnitBefore = 0.5 %-/:ps  
        .LineUnitAfter = 0.5 6\Vu#r  
         rO$>zdmYHs  
    End With ]&U|d  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False
#U52\3G  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll [\9
(@Bx  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese _CJr6Evs  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True )6E*Qz  
    DoEvents uS#Cb+*F  
     5v
i#ItN}|  
    '三级标题样式 <88}+j  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") IKDjatn  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" P$/A!r  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False T(UYlLe  
    With ActiveDocument.Styles("QLNU三级标题").Font oRThJB  
        .NameFarEast = "宋体" 3Z

:!o$  
        .NameAscii = "Times New Roman" iT5 SuIv  
        .NameOther = "黑体" `_U0>Bfg;  
        .Name = "黑体" -Y=c g;  
        .Size = 14               '四号 H}V*<mgw  
        .Bold = False THgzT\_zq  
        .Outline = False 1vs>2` DLa  
        .Italic = wdUndefined Zf v(\SI  
        .Subscript = wdUndefined aRKRy  
        .Superscript = wdUndefined Kw0V4UF  
    End With j!MA]0lTM  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat sK-|xU.  
        .LeftIndent = CentimetersToPoints(0) R9/xC7
l@  
        .RightIndent = CentimetersToPoints(0) ev%
t5NZ  
        .FirstLineIndent = CentimetersToPoints(0) 'uACoME@  
         ,,_K/='m  
        .LineSpacingRule = wdLineSpaceSingle 1IQOl  
        .Alignment = wdAlignParagraphLeft "tB"j9Jb  
         Y"kS!!C>[  
        .WidowControl = True *rz(}(r  
        .KeepWithNext = True Qz)8eIO:  
        .KeepTogether = True $lAb6e$n  
        .PageBreakBefore = False oHXW])[  
        .OutlineLevel = wdOutlineLevelBodyText k*3_) S -  
         'eDgeWt/CQ  
        .CharacterUnitLeftIndent = 0 aE+$&_>ef  
        .CharacterUnitRightIndent = 0 s<_LcQbt{  
        .CharacterUnitFirstLineIndent = 2 [l%fL9  
         Zmbz-##HQ  
        .LineUnitBefore = 0.5 ?VZXJO{^  
        .LineUnitAfter = 0 1+t
t'  
    End With
Ym{%"EB  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False mUyv+n,  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll jjwMvf.R  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese B"8JFf}"q  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True }t D!xI;  
    DoEvents Usf"K*A  
     L+rySP  
    '四级标题样式 y2"S\%7$h  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 0 ,Qj:  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" gQd=0"MV  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False ^xw [d}0S  
    With ActiveDocument.Styles("QLNU四级标题").Font /Np"J  
        .NameFarEast = "宋体" p5;,/ |Ft  
        .NameAscii = "Times New Roman" Gx_`|I{P  
        .NameOther = "宋体" "8iiRzt#  
        .Name = "宋体" J=SB/8tQ)T  
        .Size = 12               '小四号 k\&IFSp  
        .Bold = True !BQ ELB$0  
        .Outline = False
oB06{/6  
        .Italic = wdUndefined 0rJ\
e  
        .Subscript = wdUndefined ;=VK_3"  
        .Superscript = wdUndefined 199hQxib:  
    End With <6b\i5j  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat |@L &yg,x  
         8wpwJs&V  
        .LeftIndent = CentimetersToPoints(0) ,cy/fW  
        .RightIndent = CentimetersToPoints(0) @EP{VV  
        .FirstLineIndent = CentimetersToPoints(0) Be>c)90bO_  
         bOSYr<R&  
        .LineSpacingRule = wdLineSpaceSingle m)|.:sj  
        .Alignment = wdAlignParagraphLeft 
_HHJw""j  
         FHNuMdFn  
        .WidowControl = True .V 3X#t  
        .KeepWithNext = True Y0X94k.u  
        .KeepTogether = True f+TBs_   
        .PageBreakBefore = False q8xc70: R  
        .OutlineLevel = wdOutlineLevelBodyText }Q r0T  
         a
RO_,n
9  
        .CharacterUnitLeftIndent = 0 v8[
ek@  
        .CharacterUnitRightIndent = 0 g1 Wtu*K3  
        .CharacterUnitFirstLineIndent = 2 ?sf2h:\N  
         &Wv`AoV  
        .LineUnitBefore = 0 76_8e{zbr  
        .LineUnitAfter = 0 D*T$ v   
         ss X6kgq_(  
    End With MZMS?}.2  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False h/0-Mrk;e  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll kYA'PW/[)  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese S,Wl)\  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True .`Old{<  
    DoEvents ?fa,[r|G  
     $:u7Dv}\  
    '正文校式 `b#nC[b6|v  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") \LoSUl i  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" Z_V&IQo-7  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False v>y8s&/  
    With ActiveDocument.Styles("QLNU正文").Font gc2|V6(  
         v`+n`DT  
        .NameFarEast = "宋体" 3w^J"O/T  
        .NameAscii = "Times New Roman" u5XU`!  
        .NameOther = "宋体" {uwk[f{z  
        .Name = "宋体" me[J\MJ;w^  
         fyg~KF}  
        .Size = 12               '小四号 \B>[j e-d  
         vi!r8k  
        .Bold = wdUndefined !/Bw,y ri<  
        .Italic = wdUndefined t`8e#n 9  
        .Subscript = wdUndefined (m3I#L  
        .Superscript = wdUndefined %YvSHh;c  
         xL39>P
B  
        .Outline = False 7Ysy\gZ&wp  
        .Emboss = False \p@nH%@v  
        .Shadow = False )>/j&>%  
        .Hidden = False AYPf)K;%  
         g?A5'o&Yu  
        .DisableCharacterSpaceGrid = True !: EW21m  
    End With uU[[[ LQq  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat iZ.&q 6  
         Ca5Sc, no  
        .LeftIndent = CentimetersToPoints(0) J!
A/r<  
        .RightIndent = CentimetersToPoints(0) ^=izqh5S  
        .FirstLineIndent = CentimetersToPoints(0) ^{fi^lL=  
         $O~F>.
*  
        .LineSpacingRule = wdLineSpaceExactly g"Q} h  
        .LineSpacing = 20 zN)|g  
        .Alignment = wdAlignParagraphLeft CdzkMVH
  
         'x45E.wYw  
        .WidowControl = False )0n29  
        .KeepWithNext = False =2g[tsY  
        .KeepTogether = False nd
KvJH4  
        .PageBreakBefore = False
(J^Lqh_  
        .Hyphenation = False :L [YmZ  
         C?/r}ly<\  
        .OutlineLevel = wdOutlineLevelBodyText ??\*D9rCn  
         Bgk~R.
l  
       8!&ds~?  
        .CharacterUnitLeftIndent = 0 fD\^M{5f  
        .CharacterUnitRightIndent = 0 im4e!gRE  
        .CharacterUnitFirstLineIndent = 2 -@ UN]K  
         N}}PlGp$  
        .LineUnitBefore = 0 9#s9
5RO  
        .LineUnitAfter = 0 z%}CBTm  
        .SpaceBefore = 0
EN-8uY.  
        .SpaceAfter = 0 x<{;1F,k3  
         Wp7@  
        .DisableLineHeightGrid = True ek(kY6x:  
    End With NDe[2  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False QSn;a 4f  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll 0+n&BkS'  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese Z}LOy^TL  
    ActiveDocument.Styles("QLNU正文").NoProofing = True K.V!@bPlw9  
    DoEvents TRySl5jx@  
     XMeL^|D  
    '图片段落样式 RP`GG+K  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle")  J:~[j  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" *2" bG1`  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False a_ 9|xI  
    With ActiveDocument.Styles("QLNU图片段落").Font -VreBKn  
        .Size = 12               '小四号 mV**9-"  
        .Italic = wdUndefined `b^ #quz  
        .Subscript = wdUndefined y?Hj%,  
        .Superscript = wdUndefined c>u>Pi;Z  
    End With \~z?PA.$  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat u"#6_-0y  
         <i:*p1#Bm  
        .LeftIndent = CentimetersToPoints(0) 7}#*3*
]  
        .RightIndent = CentimetersToPoints(0) *3.yumcv{L  
        .FirstLineIndent = CentimetersToPoints(0) yd0=h7s  
         $/<"Si&(  
        .LineSpacingRule = wdLineSpaceSingle 75\RG+kQ  
        .Alignment = wdAlignParagraphCenter a9? v\hG  
        .KeepWithNext = True RFZU}.*K$  
        .OutlineLevel = wdOutlineLevelBodyText x^M5D+o  
         tyn?o  
        .CharacterUnitLeftIndent = 0 AT%* ~tr  
        .CharacterUnitRightIndent = 0 (^tr}?C  
        .CharacterUnitFirstLineIndent = 0 0uVk
$\:i  
         J3lG"Ww  
        .LineUnitBefore = 0 + 4V1>e+  
        .LineUnitAfter = 0 QLF,/"  
    End With 9
&O#+FU  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False ;"d,~nLn  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll as\<nPT{Fj  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese y(/jTS/hd  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True {FV,j.D  
    DoEvents E'&OOEMN-  
     To#E@Nw  
    
^ Hz  
    '第X章 'B:Z=0{>N  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") /`4v"f0V  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" zt)p`kdD  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False k\+y4F8$x  
    With ActiveDocument.Styles("QLNU章节标题").Font >}dT
O/  
        .NameFarEast = "黑体" e9z$+h  
        .NameAscii = "Arial Black" so?pA@O
 
        .NameOther = "Arial Black" koncWyW  
        .Name = "黑体" #RR:3ZPZC  
        .Size = 16 o;M.Rt\A  
        .Bold = True Nl=m'4@`  
        .UnderlineColor = wdColorAutomatic B91S h`  
        .Outline = False e'k;
A{Oh  
        .Italic = wdUndefined PS_3Oq)  
        .Subscript = wdUndefined 1EC-e|M.  
        .Superscript = wdUndefined HO%E-5b9  
        .Scaling = 100 {2}tPT[a(  
        .DisableCharacterSpaceGrid = True Qfkh0DX B  
    End With #sz]PZ\  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat 629~Uc6]  
        .LineSpacingRule = wdLineSpaceSingle JAGi""3HG  
        .Alignment = wdAlignParagraphCenter SZim >@R  
        .WidowControl = True  Z;j/K  
        .KeepWithNext = True 1R'u v4e  
        .KeepTogether = True LaIW,+  
        .PageBreakBefore = True aW`:)y&f  
        .OutlineLevel = wdOutlineLevelBodyText 
PZ   
         A6?qIy  
        .LeftIndent = CentimetersToPoints(0) 0v_6cYA  
        .RightIndent = CentimetersToPoints(0) cS"f  
        .FirstLineIndent = CentimetersToPoints(0) *1|YLy  
         z9k*1:  
        .CharacterUnitLeftIndent = 0 ^f^-.X  
        .CharacterUnitRightIndent = 0 p|&ZJ@3  
        .CharacterUnitFirstLineIndent = 0 r,`Z.A  
         Z-^uM`],G  
        .LineUnitBefore = 1 0%;N9\  
        .LineUnitAfter = 0.5 ?r -\%_J_(  
         ]~j_N^oZ1X  
        .AutoAdjustRightIndent = False +Fc ET  
        .DisableLineHeightGrid = True m%e^&N#%6r  
        .FarEastLineBreakControl = True h.4qlx|  
        .WordWrap = True 3o+KP[A  
    End With blRY7  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False 38V $<w  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll 6)=](VmNL`  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese Tm%$J  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True avu*>SB  
    DoEvents 8N=%X-R%  
     XPHQAo[(s  
    '表格标题 x !#Ma  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") %+AS0 Jh
B  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" PtQQZ"ept  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False 88Fb1!a5Z  
    With ActiveDocument.Styles("QLNU表格标题").Font +8LM~voB  
        .NameFarEast = "楷体" m!HC-
[<  
        .NameAscii = "Arial" NqiB8hZ~  
        .Name = "楷体" J- t=1  
        .Size = 10.5 n~1tm  
        .Bold = True #d}0}7ue  
        .Underline = wdUnderlineNone MuDFdbtR  
        .Italic = wdUndefined }G>v]bV0V  
        .Subscript = wdUndefined ?o2;SY(-  
        .Superscript = wdUndefined \]Y\P~n  
        .Color = wdColorAutomatic bn0"M+7)f  
    End With 4)3g!o?  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat tyc8{t#Z  
         d u.HSXK  
        .LineSpacingRule = wdLineSpaceSingle jGO9n  
        .Alignment = wdAlignParagraphCenter b\SXZN)Be  
        .KeepWithNext = True 2x-'>i_|g  
        .KeepTogether = True EpRXjz  
        .OutlineLevel = wdOutlineLevelBodyText 6V'wQqJ  
         ]%gp?9wy  
        .LeftIndent = CentimetersToPoints(0) /[\6oa  
        .RightIndent = CentimetersToPoints(0) NEqt).   
        .FirstLineIndent = CentimetersToPoints(0) @Ufa-h5"(  
         ePV-yy  
        .CharacterUnitLeftIndent = 0 4mEzcwo'  
        .CharacterUnitRightIndent = 0 !7A"vTs  
        .CharacterUnitFirstLineIndent = 0 jo 7Hyw!g  
         =]=B}L`  
        .LineUnitBefore = 1
/HB+ami,  
        .LineUnitAfter = 0 -rEeKt  
         o\_ Td  
    End With qg^(w fI  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False 7!O^;]+,  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll ??|d=4g\  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese I#i?**  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True ]*bAF^8i  
    DoEvents ((Vj]I% ;  
fC=fJZU7$  
    '表格首行 J|n(dVen/  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") MC4284A5  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False =}~NRmmF  
    With ActiveDocument.Styles("QLNU表格首行").Font R'S c  
        .NameFarEast = "楷体" #^5a\XJb  
        .NameAscii = "Times New Roman" e(?:g@]-r  
        .Name = "楷体" <'r0r/0g?  
        .Size = 9 [NQmL=l  
        .Bold = True Of1IdE6~  
        .Underline = wdUnderlineNone NY4!TOp  
        .Italic = wdUndefined `)rg|~#k  
        .Subscript = wdUndefined Ty`-r5  
        .Superscript = wdUndefined Wr]O  
    End With JaH* rDs-  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat v57N^DR{  
        .LineSpacingRule = wdLineSpaceSingle *D\0.K,o  
        .Alignment = wdAlignParagraphCenter >nc4v6s  
         ' oBo|  
        .LeftIndent = CentimetersToPoints(0) pwa.q  
        .RightIndent = CentimetersToPoints(0) 5,F;j<F  
        .FirstLineIndent = CentimetersToPoints(0) hNH.G(l0  
         TFBYY {Y  
         2~vo+ng  
        .CharacterUnitLeftIndent = -0.5 kxwNbxC  
        .CharacterUnitRightIndent = -0.5 $-m@KB  
        .CharacterUnitFirstLineIndent = -0.5 t{+ M|Y  
         uQeqnGp  
        .LineUnitBefore = 0 _aVJ$N.  
        .LineUnitAfter = 0 77+ |#<J  
        .SpaceBefore = 0 x^z dTMNhw  
        .SpaceAfter = 0 * eA{[  
         CkRyzF  
    End With IO}+[%ptc*  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False 7sj<|g<h(_  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll zx ct(  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese aML#Z|n  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True [<_"`$sm=  
    DoEvents EYA/CI   
S$S_nNq

 
    '表格内容 4O$mR  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") 4uFIpS|rq  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False }$^]dn@  
    With ActiveDocument.Styles("QLNU表格内容").Font #0}Ok98P  
        .NameFarEast = "楷体" WLE%d]'%M  
        .NameAscii = "Times New Roman" =Nw2;TkB[  
        .Name = "楷体" j%#?m2J}  
        .Size = 9 \M+MDT&  
        .Bold = False uQ{=o]sy  
        .Underline = wdUnderlineNone :lgHL3yl  
        .Italic = wdUndefined pNP_f:A|  
        .Subscript = wdUndefined LEWa6'0rq
 
        .Superscript = wdUndefined YKc>6)j  
    End With [:Be[pLC
 
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat @/9>=#4c  
        .LineSpacingRule = wdLineSpaceSingle 3 t/ R2 M  
        .Alignment = wdAlignParagraphCenter 66/Z\H^d  
         Hr(6TLNw  
        .LeftIndent = CentimetersToPoints(0) \^Ep>Pq`]  
        .RightIndent = CentimetersToPoints(0) aPprMQ5  
        .FirstLineIndent = CentimetersToPoints(0) @XeEpDn]  
         h8em\<;  
        .CharacterUnitLeftIndent = -0.5 XFtO mY
 
        .CharacterUnitRightIndent = -0.5 :aHcPc:  
        .CharacterUnitFirstLineIndent = -0.5 64?Pfir6  
        .LineUnitBefore = 0 `tX@8|  
        .LineUnitAfter = 0 l+t #"3  
        .SpaceBefore = 0 `GP Q((la  
        .SpaceAfter = 0 P=c?QYF  
    End With _B}9f  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False Tj Mb>w9  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll :lNg:r$4  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese <' W=]IAV  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True pfR"s:#  
    DoEvents >H$;Z$o*(  
_Q> "\_,  
    '图片标题 ?2/uSG|  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 3 sl =>;-  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" p=2zS.   
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False <}&7 a s  
    With ActiveDocument.Styles("QLNU图片标题").Font I=U+G Y:  
        .NameFarEast = "楷体" \xF;{}v  
        .NameAscii = "Times New Roman" w2k<)3 g~  
        .Name = "楷体" q1H~ |1  
        .Size = 10.5 Ah*wQow  
        .Bold = True w nWgy4:  
        .Underline = wdUnderlineNone t @;WgIp(&  
        .Italic = wdUndefined ]Qd{ '}+  
        .Subscript = wdUndefined oE$hqd s  
        .Superscript = wdUndefined mU>&ql?e  
        .Outline = False it~Z|$  
        .Shadow = False zkd3Z$C
e  
        .Color = wdColorAutomatic expxp#S  
    End With 3u*82s\8T  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat j]>=1Rd0b(  
        .LineSpacingRule = wdLineSpaceSingle =PV/`I_h  
        .Alignment = wdAlignParagraphCenter JwjI{,jY  
         h(_P
9E[g  
        .KeepWithNext = wdUndefined ~eHRlXL'  
        .KeepTogether = True y">fN0{<  
        .OutlineLevel = wdOutlineLevelBodyText J6DnPaw-G  
         K|US~Hgv  
        .LeftIndent = CentimetersToPoints(0) Sobtz}A*  
        .RightIndent = CentimetersToPoints(0) JfbKf~g  
        .FirstLineIndent = CentimetersToPoints(0) F#B5sLNb  
         `N$!s7M  
        .CharacterUnitLeftIndent = 0 &&&9  
        .CharacterUnitRightIndent = 0 #^Ys{  
        .CharacterUnitFirstLineIndent = 0 #
$FY+`  
          '6O|H  
        .LineUnitBefore = 0 z9 O~W5-U  
        .LineUnitAfter = 0 F%Kp9I*  
    End With F,Q?s9s  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False z/weit  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll U7E  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese s_xV-C#q@  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True 8qN"3 Et  
    DoEvents `
v~!H\q  
B=r0?%DX"1  
    '目录项 m*`cuSU|o  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") V`by*s  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" GYd]5`ri  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False s1{[{L3  
    With ActiveDocument.Styles("QLNU目录项").Font -/zp&*0gcx  
        .NameFarEast = "黑体" cs t&0  
        .NameAscii = "Times New Roman" `%oIRuYG]j  
        .NameOther = "Times New Roman" 3B;}j/h2  
        .Name = "黑体" ^xt9pa$f  
        .Size = 10.5 <. }Ua(  
        .Bold = False '[Xl>
Z[  
        .Italic = wdUndefined ujx@@N  
        .Underline = wdUnderlineNone BMdSf(l  
        .Color = wdColorAutomatic V`[P4k+b   
        .Superscript = wdUndefined fSjs?zd`  
        .Subscript = wdUndefined *o!l/>4g  
    End With U~wjR"='  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat oKRFd_r+  
         :\mRtVH   
        .LineSpacingRule = wdLineSpaceSingle o*-9J 2V=J  
        .Alignment = wdAlignParagraphLeft DKTD Z*  
         Lbsr_*4t  
        .WidowControl = False zi }(^~Fe  
        .KeepWithNext = False 7lwTZ*rnY  
        .KeepTogether = False D; jK/2  
        .PageBreakBefore = False )%qtE34`  
        .NoLineNumber = False |:N>8%@6c  
        .OutlineLevel = wdOutlineLevelBodyText U-eI\Lu  
         #sZIDn J#  
        .LeftIndent = CentimetersToPoints(0) +1/b^Ac  
        .RightIndent = CentimetersToPoints(0) y+A{Y  
        .FirstLineIndent = CentimetersToPoints(0) &Xv1[nByU  
         mpAHL(  
        .CharacterUnitLeftIndent = 0 %kq ^]S2O  
        .CharacterUnitRightIndent = 0 I(n }<)eF  
        .CharacterUnitFirstLineIndent = 0 Sl"BK0:%7  
         g,=^'D  
        .LineUnitBefore = 0 }a^|L"  
        .LineUnitAfter = 0 ck$M(^)l  
    End With qi&D+~Gv!  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False 5/ * >v  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll (8G$(MK  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot 9_UN.]  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese t7bqk!6hM\  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True =-Nsc1&  
    DoEvents -TTs.O8P|<  
     ei|cD[ NY  
    '参考文献 wdwp9r  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") iV!@bC,  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" lufe
ieW  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False nVXg,Jl  
    With ActiveDocument.Styles("QLNU参考文献").Font 1q]&7R  
        .NameFarEast = "宋体" (
UGol[f<  
        .NameAscii = "Times New Roman" 1A^1@^{m'  
        .NameOther = "Times New Roman" 4%J|DcY2  
        .Name = "Times New Roman" [zQWyDu  
        .Size = 12 g_vm&~U/'  
        .Bold = False > ws!5q  
        .Italic = wdUndefined 3 z=\.R  
        .Subscript = wdUndefined dMV=jJ%Y  
        .Superscript = wdUndefined LWD#a~  
        .Underline = wdUnderlineNone f?^S bp
 
        .UnderlineColor = wdColorAutomatic &{ZSE^  
        .Color = wdColorAutomatic J(e7{aRJ9  
        .Engrave = False pv&^D,H,  
    End With U(*yL-  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat &\^r Qi/tf  
         ,#d[ad<  
        .LineSpacingRule = wdLineSpaceExactly w12}Rn8  
        .LineSpacing = 16 *T1~)z}j<  
        .Alignment = wdAlignParagraphLeft +ubnx{VC  
        .WidowControl = False bAiJn<  
        .KeepWithNext = False \2>?6zs  
        .KeepTogether = False (sCAR=5v\  
        .PageBreakBefore = False \(fq8AL?  
        .OutlineLevel = wdOutlineLevelBodyText @1g&Z}L o  
         Xk,>l6vc  
        .LeftIndent = CentimetersToPoints(0) Xpl?g= B&u  
        .RightIndent = CentimetersToPoints(0) + xp*]a  
        .FirstLineIndent = CentimetersToPoints(0) /c#l9&,  
         h55>{)(E  
        .CharacterUnitLeftIndent = 0 :6D0j  
        .CharacterUnitRightIndent = 0 'E-FO_N  
        .CharacterUnitFirstLineIndent = -2 AF$\WWrB  
         iP#=:HZu;  
        .LineUnitBefore = 0 G6Nb{m  
        .LineUnitAfter = 0 DW|vMpU]u  
        .SpaceBefore = 0 qjAh6Q/E`
 
        .SpaceAfter = 0 63M=,0-Qt  
         gu<V(M\  
    End With a$$ Wt<&Y
 
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False %i"}x/CD[  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll
-zKxf@"  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS #wjH4DT
 
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True mxp Y&Y  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese
0hwj\{"  
    DoEvents j5^-.sEEw  
`Mk4sKU\a  
    ' \ bold"  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") 1 i3k  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" f4"4Z V cr  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False OH6n^WKY  
    With ActiveDocument.Styles("QLNU论文题目").Font |')-VhLLK  
        .NameFarEast = "黑体" 'zxoRc-b@N  
        .NameAscii = "Arial Black" kZxW"2  
        .NameOther = "Arial Black"
x8\<qh*:  
        .Name = "Arial Black" .S7:;%qL6  
        .Size = 16 ;LQ9#M ?  
        .Bold = False \$pkk6Q3,w  
        .Italic = wdUndefined [PWL<t::c  
        .Superscript = wdUndefined :YNp8!?T?  
        .Subscript = wdUndefined lhO2'#]i  
        .Underline = wdUnderlineNone R ]P;sk5  
        .UnderlineColor = wdColorAutomatic {/|qjkT&W  
        .Color = wdColorAutomatic ARWZ; GX  
6P*O&1 hv  
    End With 55m<XC  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat vv+J0f^  
        .LineSpacingRule = wdLineSpaceSingle RJ}#)cT  
        .Alignment = wdAlignParagraphCenter n8u*JeN  
        .WidowControl = True h1f8ktF  
        .KeepWithNext = True bfdVED  
        .KeepTogether = True %4,?kh``D  
        .PageBreakBefore = True y@;%Uv&  
        .NoLineNumber = False 1bSD,;$sQ  
        .OutlineLevel = wdOutlineLevelBodyText <2<87PU  
         10O$'`  
        .LeftIndent = CentimetersToPoints(0) QVtM.oi!Q  
        .RightIndent = CentimetersToPoints(0) e&1\'Zq?>  
        .FirstLineIndent = CentimetersToPoints(0) URw
5U1  
         qyyq&  
        .CharacterUnitLeftIndent = 0 OCK> %o$[  
        .CharacterUnitRightIndent = 0 &{z<kmc$6  
        .CharacterUnitFirstLineIndent = 0 g_q<ze  
         Uc&iZFid2K  
        .LineUnitBefore = 1 E\$C/}T  
        .LineUnitAfter = 1 ;GOz>pg  
         mQr0sI,o]  
        .BaseLineAlignment = wdBaselineAlignAuto Cj^{9'0  
    End With Z0*%Rq  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False 2d`c!  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll hs(W;tR@W  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS <kb yZXV@K  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True g_z/{1$  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese :E'P7A  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True 6ep>hS4A&  
    DoEvents 3n48%
5  
     Vz"u>BP3~  
    '中文摘要 !9 f4R/ ?  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") u|fXP)>.  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" E FY@Y
[  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False CS@&^SEj  
    With ActiveDocument.Styles("QLNU中文摘要").Font RH[+1z8  
        .NameFarEast = "宋体" H?
Jm'\~  
        .NameAscii = "Times New Roman" S
laDt  
        .NameOther = "Times New Roman" 0m)&YFZ[(  
        .Name = "Times New Roman" Phs-(3  
        .Size = 12 Eju~}:Lo  
        .Bold = wdUndefined c\.P/~  
        .Superscript = wdUndefined  'Cc(3  
        .Subscript = wdUndefined fdv`7u+}a  
        .Italic = wdUndefined >|*yh~  
        .Underline = wdUnderlineNone LM"y\q ]  
        .UnderlineColor = wdColorAutomatic "b,%8  
        .Color = wdColorAutomatic $$1qF"GF  
    End With euQ.ArF  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat NXU`wnVJ  
        .LineSpacingRule = wdLineSpaceExactly >]?H`>4(  
        .LineSpacing = 20 L`[z[p{?  
        .Alignment = wdAlignParagraphLeft =k{`oO~:9+  
         T3pdx~66  
        .WidowControl = False 4["&O=:d  
        .KeepWithNext = False s'u(B]E  
        .KeepTogether = True Vmi{X b]<  
        .PageBreakBefore = False p]ivf  
        .NoLineNumber = False X?o( b/F-  
        .OutlineLevel = wdOutlineLevelBodyText yI)~]K r  
         J/W{/E>;  
        .LeftIndent = CentimetersToPoints(0) ,Z~;U  
        .RightIndent = CentimetersToPoints(0) }}T,W.#%u  
        .FirstLineIndent = CentimetersToPoints(0) vAi$[p*im  
         C@gXT]Q 0}  
        .CharacterUnitLeftIndent = 0 P8I*dvu _  
        .CharacterUnitRightIndent = 0 ax|1b`XUr"  
        .CharacterUnitFirstLineIndent = 2 |d}MxS`^  
        .LineUnitBefore = 0 FWY2s(5p  
        .LineUnitAfter = 0 x0Z5zV9  
         _MfD  
    End With  }roG(  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False YZE.@Rz  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll e@n!x}t8  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS 
rU2iy"L  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True MGt]'}  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese shgAhx  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True Vrp[r *V@E  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete Q6'nSBi:A_  
    DoEvents g^~Kze  
     ^p=L\S
J  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 
uaw<  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" _[K#O,D,  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False \Fb| {6+  
    With ActiveDocument.Styles("QLNU英文标题").Font i::\Z$L";i  
        .NameFarEast = "黑体" (^n*Am;zlH  
        .NameAscii = "Arial Narrow" .}`hCt08  
        .Name = "Arial Narrow" ]Pc^#=(R0  
        .Size = 16 Qa`hR  
        .Bold = True
:i*JnlvZ  
        .Bold = wdUndefined lMifpK  
        .Superscript = wdUndefined m,_d^  
        .Subscript = wdUndefined Q+$Tt7/  
        .Italic = wdUndefined =? :@  
         <@uOCRbV  
        .Underline = wdUnderlineNone Z|*!y]W
e  
        .UnderlineColor = wdColorAutomatic ]%dnKP~  
        .StrikeThrough = False XL5Es:"+?S  
        .DoubleStrikeThrough = False nH[+n `{
o  
    End With {9 PR() _  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat %2l7Hmp4H  
        .LineSpacingRule = wdLineSpaceSingle ~<9{#uM  
        .Alignment = wdAlignParagraphCenter ^g>1U5c  
        .WidowControl = True K@:m/Z}|4  
        .KeepWithNext = False v:|(8Y  
        .KeepTogether = False <J{'o`{  
        .PageBreakBefore = False r\M9_s8  
        .NoLineNumber = False MI#mAg<  
        .FirstLineIndent = CentimetersToPoints(0) ra6o>lI(,  
        .OutlineLevel = wdOutlineLevelBodyText vqNsZ 8|`  
         rg QEUDEQ  
        .LeftIndent = CentimetersToPoints(0) Y+-xvx :  
        .RightIndent = CentimetersToPoints(0) jC, FG'P  
        .FirstLineIndent = CentimetersToPoints(0) - u3e5gW  
         p>*i$  
        .CharacterUnitLeftIndent = 0 BNucc']  
        .CharacterUnitRightIndent = 0 XFqJ '
R  
        .CharacterUnitFirstLineIndent = 0 Re=WfG  
         |m G7XL,  
        .LineUnitBefore = 1 [L~@uAMw:  
        .LineUnitAfter = 1 P0GeZ02]  
         0 P|&Pq&IH  
    End With vO@s$qi  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False 9NpD!A&64<  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll yTBS=+X  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS #AVi M_u  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True TMVryb  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese l{WjDed  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True ,|T7hTn=  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete KEr\nKT1  
    DoEvents pwX C  
SpSnoVI  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") z2y J#  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" t+TYb#Tc  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False /Cr/RG:OX  
    With ActiveDocument.Styles("QLNU英文摘要").Font my.`k'  
        .NameFarEast = "宋体" adO&_NR  
        .NameAscii = "Arial" 0GXO&rCG  
        .NameOther = "Arial" lWZuXb,G  
        .Name = "Arial" /^7iZ|>:M:  
        .Size = 12 3f76kl(&  
        .Bold = wdUndefined *cv}*D  
        .Italic = wdUndefined 1|Q vN1?  
        .Superscript = wdUndefined

=XY
]x  
        .Subscript = wdUndefined !|G(Yg7C  
    End With d/,E2i{I7  
     r/:%}(7;  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat MXvXVhCU  
         [=TCEU{"~  
        .LineSpacingRule = wdLineSpaceExactly 8cWZ"v  
        .LineSpacing = 20 [r
YT  
         UlovXb  
        .Alignment = wdAlignParagraphJustify 0ZI(/r  
         ` ,>wC+}  
        .WidowControl = False %y`7);.q  
        .KeepWithNext = False vS?odqi#n  
        .KeepTogether = False kBEmmgL  
        .PageBreakBefore = False cu7(.  
        .NoLineNumber = False ` %?9=h%  
         /SR^C$h'I  
        .OutlineLevel = wdOutlineLevelBodyText z;}6f  
         2WBq  
        .LeftIndent = CentimetersToPoints(0) <vc`^Q&4B  
        .RightIndent = CentimetersToPoints(0) ;</Lf=+Vm  
        .FirstLineIndent = CentimetersToPoints(0) !u;>Wyd W  
         XhW %,/<  
        .CharacterUnitLeftIndent = 0 lj
J>;g+  
        .CharacterUnitRightIndent = 0 N2, D:m\  
        .CharacterUnitFirstLineIndent = 2 $#NQ<3  
         `NNf&y)y  
        .LineUnitBefore = 0 mZvG|P$}  
        .LineUnitAfter = 1 eiMH['X5  
         oQ2KW..q  
    End With #=,(JmQPt  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False T1Ta?b  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll HZ"Evl|n  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS E;(Rm>lB  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False dZ(|uC!?  
    DoEvents w YNloU  
;?L\Fz(<
 
    Options.Pagination = True 'c` jyn  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." h y-cG%f  
    DoEvents (Xxn\*S  
    ActiveDocument.Repaginate ;h/pnmhP  
pBJAaCGm  
End Sub pa]"iZz  
>yK0iK{  
L/r@ S'  

姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 ' P"g\;Ij  
quu*xJ;Ci  

引用

引用第20楼newport93于06-14-2010 13:47发表的  : aw $L$7b}  
x%> e)L<  
老五，I 服了U。 1&)_(|p[C  
P>QpvSd_#  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 TCVl8)j  

RMYP"