Dim bContinue As Boolean H
FYe@2r  
TL-ALtG  
Dim regEX As New RegExp d;3f80Kd*  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 n(n7"+B  

Q/HEWk  
Dim LastTitle0String As String, LastTitle0No As Long n"~K",~P  
Dim LastTitle1String As String, LastTitle1No As Long *uxKI:rB:  
Dim LastTitle2String As String, LastTitle2No As Long {)kL7>u]^V  
Dim LastTitle3String As String, LastTitle3No As Long \f]w'qiW5  
Dim LastTitle4String As String, LastTitle4No As Long az }zoFl  
Dim LastTitle5String As String, LastTitle5No As Long !WB3%E,I  
Dim LastTabelString As String, LastTableNo As Long C(KV5c  
Dim LastFigureString As String, LastFigureNo As Long rc`Il{~k  
*Hv d  
Dim strSeperator As String <8h3)$  
a_DK"8I  
Sub ConvertWidth(fTEXT As String, rText As String) zQGj,EAM}  
        Selection.Find.ClearFormatting Xz/aytp~A  
        Selection.Find.Replacement.ClearFormatting ;s4e8![o3  
        Selection.Find.Wrap = wdFindContinue W3X;c*j  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText t`Xx\  
        DoEvents 4VA]S  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True UpiZd/K  
End Sub ^g<Lu/5w  
v9gaRqi8  
Sub ClearDomain() O!F"w!5@  
        With Selection.Find @t
e}Asv  
            .ClearFormatting ^Y8G}Z|  
            .Replacement.ClearFormatting wSALK)T1{  
            .Wrap = wdFindContinue B>"-8#B[4  
            Me.txtStatus.Text = "清除所有域代码" k<o<!   
            DoEvents ,[_)BM  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False Jcp=<z*0  
        End With mkgL/h*  
End Sub ZxDh!_[s  
S4E@wLi  
Private Sub cmdCheck_Click() xi.QHKBZaH  
    bContinue = True pUgas?e&  
    Dim NoSeries1(1 To 16) As String Idj Z2)$  
    Dim NoSeries2(1 To 16) As String ~jWp D7px  
    Dim NoSeries5(1 To 16) As String 27F:-C~.9  
    Dim NoSeriesRM(1 To 16) As String mndEB!b  
    Dim paraTotal As Long, ParaText As String }$@K  
    Dim ttString As String, ttNo As String JvJ)}d$,&  
     JmBMc}54  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long @ L/i  
# M Y4Mr  
    Me.txtStatus.Visible = True rdX;  
    Me.lbParaType.Visible = True 3m~3l d  
    Me.cmdCheck.Enabled = False <rU+{&FKNL  
     5["n] i  
     cvpZF5mL]U  
     20 Rm|CNH?  
     pC&i!la{o}  
    Dim ParaType As String, rText As String n@oSLo`k,`  
     7i=ER*F~  
    Selection.WholeStory ,M\/[_:  
    Selection.NoProofing = True u b@'(
*  
     B\dhw@hM  
    tm1 = Now Lk)T
K/JM)  
     E /ycPqD  
        ActiveWindow.View.Type = wdNormalView 0U2dNLc  
     TP`"x}ACa?  
    NoSeries1(1) = "一" X`]>J5  
    NoSeries1(2) = "二" ])zpx-  
    NoSeries1(3) = "三" S;{[];  
    NoSeries1(4) = "四" wA87|YK8*  
    NoSeries1(5) = "五" k$,y1hH;f8  
    NoSeries1(6) = "六" 3 "|A5>Vo  
    NoSeries1(7) = "七" M l_!
)b  
    NoSeries1(8) = "八" V* ,u;*  
    NoSeries1(9) = "九" S! .N3ezn  
    NoSeries1(10) = "十" ?J"Y4,{  
    NoSeries1(11) = "十一" YIl,8! z~  
    NoSeries1(12) = "十二" ^<aj~0v  
    NoSeries1(13) = "十三" fKs3H?|  
    NoSeries1(14) = "十四" OJ7
y  
    NoSeries1(15) = "十五" G<~P||Lu^  
    NoSeries1(16) = "十六" 2\Yv;J+;  
     GlT/JZ9  
    NoSeries2(1) = "㈠" #vR5a}BAk  
    NoSeries2(2) = "㈡" U71A#OD^U  
    NoSeries2(3) = "㈢" <1U *{y  
    NoSeries2(4) = "㈣" A.!3{pAb  
    NoSeries2(5) = "㈤" Vl :M6d1  
    NoSeries2(6) = "㈥" /\pUA!G)BD  
    NoSeries2(7) = "㈦" c,*a|@  
    NoSeries2(8) = "㈧" oTpoh]|[
 
    NoSeries2(9) = "㈨" 7#g<
fh  
    NoSeries2(10) = "㈩"
s%N6^}N  
     r6+IJxUd  
    NoSeries5(1) = "①"
f 
a/p  
    NoSeries5(1) = "②" !:D,|k\m  
    NoSeries5(3) = "③" HDhG1B"NL  
    NoSeries5(4) = "④" Mi[,-8Sk  
    NoSeries5(5) = "⑤" %1i *Y*wg  
    NoSeries5(6) = "⑥" +C4NhA2  
    NoSeries5(7) = "⑦" T zHR  
    NoSeries5(8) = "⑧" I=8M
Lv  
    NoSeries5(9) = "⑨" Lo9 \[4FP  
    NoSeries5(10) = "⑩"  8KzH -  
     tqU8>d0^  
     z9zo5Xc=  
    NoSeriesRM(1) = "I" =?hbi]  
    NoSeriesRM(2) = "II" 1| xKb(_l  
    NoSeriesRM(3) = "III" tkdyR1-  
    NoSeriesRM(4) = "IV" G?+]BIiL  
    NoSeriesRM(5) = "V" A+hT2Ew@t}  
    NoSeriesRM(6) = "VI" c+<gc:#jy  
    NoSeriesRM(7) = "VII" (`f)Tt=`  
    NoSeriesRM(8) = "VIII" fp"GdkO#}i  
    NoSeriesRM(9) = "IX" \@7 4I7  
    NoSeriesRM(10) = "X" {6wy}<ynC+  
    NoSeriesRM(11) = "XI" DEenvS`,P  
    NoSeriesRM(12) = "XII" ?z
K>[L  
    NoSeriesRM(13) = "XIII" aS+i`A:a  
    NoSeriesRM(14) = "XIV" Nw3IDy~T  
    NoSeriesRM(15) = "XV" B=i%Z_r]w  
    NoSeriesRM(16) = "XVI" zOL*XZ0c  
     NB&zBJ#  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) T%2%*oa  
     TyaK_XW  
    If i = vbNo Then 2\[ Q{T=Qe  
        Exit Sub #XAH ` L\  
    End If 5=.mg6:  
     .zdmUS:  
    If Me.chkSuper.Value Then S`[r]msw  
        Me.txtStatus.Text = "检查修改所有的上标格式" m gBxcmv  
     Wp=&nh  
        CheckSuperScript z|N*Gs>,  
         wq#'o9s,  
    End If .@Jos^rxgJ  
     ;BEX|wxn  
    If Me.chkStyle.Value Then 3>^S6h}o  
        Me.txtStatus.Text = "设置样式，请稍候...." < 'r<MA<  
        DoEvents 0h"uJco,  
        CeateOrModifyStyle jTok1k  
    End If j1dz'G}hj  
     i#Fe`Z ~J  
     ;;zd/n2b  
     RSF@Oo{  
    ClearDomain 95-%>?4  
         #Xun>0  
     xT8!X5;  
    
`J
l_'P}  
    If Me.chkLIST.Value Then xb^M33-y  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" EJTa~  
     mp0!S  
        ConvertListToOrdinary fH_Xm :%  
    End If OKNGV,{`  
     7+J<N@.d  
     X^.~f+d~  
    Dim pType As String, trimpTEXT As String ~#JX 0J=  
    If Me.chkNum.Value = True Then MAG/7T5  
        Me.txtStatus.Text = "转换全角数字形式为半角" J2$=H1-  
        ConvertWidth "１", "1"
&."ltB  
        DoEvents 3;EBKGg|  
        ConvertWidth "２", "2" 7FP @ vng  
        DoEvents 3WY:Fn+#  
        ConvertWidth "３", "3" n,|YJ,v[  
        DoEvents ; 5!8LmZ0#  
        ConvertWidth "４", "4" FHZQyO<|  
        DoEvents Hd~fSXFl  
        ConvertWidth "５", "5" $/P\@|MqYQ  
        DoEvents vg[zRWh8  
        ConvertWidth "６", "6" d|$-l:( J  
        DoEvents 9CHn6 v ~)  
        ConvertWidth "７", "7" j(Tk6S  
        DoEvents _dn*H-5hO  
        ConvertWidth "８", "8" W o$UV  
        DoEvents +D#.u^  
        ConvertWidth "９", "9" q%Lw#f  
        DoEvents i&,1  
        ConvertWidth "０", "0" ;0E[ ; L!  
        DoEvents DOWZhD  
        ConvertWidth "ａ", "a" 6E:5w9_=c  
        DoEvents wW'.bqA  
        ConvertWidth "ｂ", "b" VD2o#.7*eu  
        DoEvents izr 3{y5  
        ConvertWidth "ｃ", "c" [N*`3UZk"  
        DoEvents sQa 9M  
        ConvertWidth "ｄ", "d" 2H`;?#Uq:  
        DoEvents ltmD=-]G_  
        ConvertWidth "ｅ", "e" Th5}?j7  
        DoEvents :j% B(@b  
        ConvertWidth "ｆ", "f" ]+AgXUrbOD  
        DoEvents D?9EO=  
        ConvertWidth "ｇ", "g" yI$MqR  
        DoEvents ;HjT  
        ConvertWidth "ｈ", "h" 8BM[c;-{g`  
        DoEvents X0%BE!  
        ConvertWidth "ｉ", "i" 6NzS<  
        DoEvents <+; cgF!+  
        ConvertWidth "ｊ", "j" &d[%  
        DoEvents U{-[lpd  
        ConvertWidth "ｋ", "k" -<q@0IYyi  
        DoEvents ltXGm)+  
        ConvertWidth "ｌ", "l" @-}!o&G0  
        DoEvents T`|>oX  
        ConvertWidth "ｍ", "m" HlX2:\\  
        DoEvents q3Y49d  
        ConvertWidth "ｎ", "n" _K|?;j#x0k  
        ConvertWidth "ｏ", "o" VDPq3`$+v{  
        ConvertWidth "ｐ", "p" !o/;"'&E  
        ConvertWidth "ｑ", "q" 5~SBZYI  
        ConvertWidth "ｒ", "r" (:J U  
        ConvertWidth "ｓ", "s" l)91v"vJ  
        ConvertWidth "ｔ", "t" Kr;F4G|Qt  
        ConvertWidth "ｕ", "u" 4 !M6RL8{  
        ConvertWidth "ｖ", "v" ]hA]o7k  
        ConvertWidth "ｗ", "w" )mRKIM}*W  
        ConvertWidth "ｘ", "x" u BBW2  
        ConvertWidth "ｙ", "y" Kl+4A}Uo  
        ConvertWidth "ｚ", "z" W:=CpbwENX  
        ConvertWidth "Ａ", "A" ;Q%3WD  
        ConvertWidth "Ｂ", "B" b]5S9^=LI  
        ConvertWidth "Ｃ", "C" ;F>I+l_X  
        ConvertWidth "Ｄ", "D" R2nDK7j  
        ConvertWidth "Ｅ", "E" 4S,/Z{ J.  
        ConvertWidth "Ｆ", "F" 0:k MnHn\  
        ConvertWidth "Ｇ", "G" ,koG*sn  
        ConvertWidth "Ｈ", "H" <e'l"3+9(  
        ConvertWidth "Ｉ", "I" ))#_@CwRr  
        ConvertWidth "Ｊ", "J" F
[U0TP@&*  
        ConvertWidth "Ｋ", "K" %Wb$qpa  
        ConvertWidth "Ｌ", "L" M%FKg/  
        ConvertWidth "Ｍ", "M" fuA8jx  
        ConvertWidth "Ｎ", "N" )]
m_ L$9  
        ConvertWidth "Ｏ", "O" t)*A#
  
        ConvertWidth "Ｐ", "P" m_>~e}2'A  
        ConvertWidth "Ｑ", "Q" ("j*!Dsd  
        ConvertWidth "Ｒ", "R" ^]?Yd)v  
        ConvertWidth "Ｓ", "S" O6r.q&U  
        ConvertWidth "Ｔ", "T" 05vu{>  
        ConvertWidth "Ｕ", "U"  J~rjI24  
        ConvertWidth "Ｖ", "V" 8]0?mV8iOE  
        ConvertWidth "Ｗ", "W" 4 {3< `  
        ConvertWidth "Ｘ", "X" |0aGX]Y  
        ConvertWidth "Ｙ", "Y" |:d:uj/  
        ConvertWidth "Ｚ", "Z" N!=Q]\ZD  
        ConvertWidth "^l", "^p" `v$Bib)  
        ConvertWidth "（", "(" jh.e&6  
        ConvertWidth "）", ")" dZjh@yGP.  
     h5m6 )0"  
    End If sh8(+hg  
d0@czNWIC  
    With ActiveDocument qt#4i.Iu+  
        Dim tbl As Table u=p-]?  
        For Each tbl In .Tables ?VT ]bxb  
            tbl.Rows.Alignment = wdAlignRowCenter O7tL,)Vv  
            tbl.Range.Font.NameFarEast = "楷体" e!*%U=[Q  
            tbl.Range.Font.NameAscii = "Times New Roman" JB\BP$ap  
            tbl.Range.Font.Size = 10.5 >R8eAR$N  
        Next 3`\)Qm  
        Set tbl = Nothing ffE>%M*  
    End With .(8eWc YK  
     s2\6\8Ipn  
     vD4<G{  
    With ActiveDocument +\`t@Ht#  
         v_ W03\  
        For i = 1 To .TablesOfContents.Count 9w,u4q  
            .TablesOfContents(i).Delete t%>x}b"2T  
        Next rlVo}kc7:  
         ;Ajy54}
7  
         [=I==?2`X  
         Ol. rjz9  
        paraTotal = .Paragraphs.Count mnWbV\VY  
        paraCounter = 1 ]%/a '[  
         <\S j5  
        LastTitle0No = 0 @V# wYt  
        LastTitle1No = 0 nXF|AeAco  
        LastTitle2No = 0 $ *^E  
        LastTitle3No = 0 {uMqd-Uu  
        LastTitle4No = 0 H!ISQ8{V  
        LastTableNo = 0 { V9}W<  
        LastFigureNo = 0 2T#>66^@q  
         X~Vr}  
        Dim Sec As Long }X*.Vv A  
         wa4(tM2  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) 'P?DZE  
        If Sec = 0 Then H(Q|qckj  
            Exit Sub $5m_)]w4a  
        End If 7Ke#sW.HN  
         zE<GwVI~  
        k = 0 LC:bHM,e  
        Do While (paraCounter < paraTotal) And bContinue 
V{G9E  
            k = k + 1 /Q[M2DN@  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then W&(98}oT  
                Exit Do wC[Bh^]  
            End If K=C).5=U  
            paraCounter = paraCounter + 1 O1K~]Nt  
            If k Mod 20 = 0 Then Lg
4I6 G  
                Me.lbCounter.Caption = paraCounter j{a3AEmps  
                DoEvents {^n\ r^5  
            End If *]_GFixi  
        Loop *A d7GG1/u  
         cxQ8/0^  
         `mTc  
        Do While (paraCounter < paraTotal) And bContinue 2M d'<.  
             6 bnuC  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) w~(x*R}  
            ShapeHeight = 0 ZIrJ"*QO=  
            ShapeWidth = 0 Nd4!:.  
           )CCrO   
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth PNM f5'@m  
             |K6hY-uC  
            Select Case ParaType xd`!z`X!,s  
                Case "【】表格内容" a0ze7F<(  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" ~.wDb,*  
                Case "章" R]{AJ"p  
                    LastTitle0No = LastTitle0No + 1 4?^t=7N  
                    '新一章开始，复位其下属标题编号 uua1_#a  
                    LastTitle1No = 0 tcxs%yWO
1  
                    LastTitle2No = 0 c;e2= A  
                    LastTitle3No = 0 lhA<wV1-9G  
                    LastTitle4No = 0 Li;(~_62a]  
                     J]| lCwF  
                    k = Val(ttNo) |+MV%QG;  
                    If k = 0 Then '非数字编号章节 p;rGaLo:u  
                        If ttNo <> NoSeries1(LastTitle0No) Then :+>:>$ao  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString ZXj;ymC'  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText `FM^)(wT  
                        End If %L9A6%gr  
                    Else VX;tglu2  
                        If Val(ttNo) <> LastTitle0No Then mjq
VP.  
                            rText = "第" & LastTitle0No & ttString D;0xROW8{  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText 1y5$  
                        End If _}B:SM  
                         ;hLne0|)}  
                    End If /M "E5  
                     kDG'5X;+  
                    '章段落设置 j\SW~}d9  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 ) {oVVLs  
                    .Paragraphs(paraCounter).Style = "QLNU章节" :i6k6=  
                    .Paragraphs(paraCounter).Range.Select :J}@*>c  
                    Selection.EndKey unit:=wdLine _(8HK  
                    tc = Replace(rText, vbCr, "") 88ydAx#P  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False O$=)  
                Case "一级标题" }3Y3f).ZW  
                    LastTitle1No = LastTitle1No + 1 Il cFW  
                    '新一级标题开始，复位其下属标题编号 8\^[@9g3\3  
                    LastTitle2No = 0 ep<2u x  
                    LastTitle3No = 0  }[<eg>9#  
                    LastTitle4No = 0 afMIqQ?  
                     Ng} AEAFp  
                    If ttNo <> NoSeries1(LastTitle1No) Then <IBz
h_  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString d>Z{TFY  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText '.wyfSH@  
                    End If 1=t\|Th-  
                   ~=,|dGAa$  
                     RZ[r XV5  
                    '一级标题段落设置  格式：一、标题内容 L.xzI-I@D  
                    .Paragraphs(paraCounter).Range.Text = rText #?z1cgCg  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" nJ4CXSdE  
                    .Paragraphs(paraCounter).Range.Select &n:F])`2  
                    Selection.EndKey unit:=wdLine N|ut^X+|\  
                    tc = Replace(rText, vbCr, "") ;U|^Tsuc`  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False i%~4>k  
                Case "二级标题" Xx0}KJq~"  
                    LastTitle2No = LastTitle2No + 1 +0O{"XM  
                    '新二级标题开始，复位其下属标题编号 O$%C(n(  
                    LastTitle3No = 0 4JHFn [%  
                    LastTitle4No = 0 }hFjl4`xa  
                     \8!&XcA  
                    If ttNo <> NoSeries1(LastTitle2No) Then <Z
c:  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString 2Ax HhD.  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText z.[ Ok  
                    End If ?7cF_Zvve  
                     [-sE:O`yt  
                    '二级标题段落设置 格式：(一)、标题内容 B94mh  
                    .Paragraphs(paraCounter).Range.Text = rText M#qZ0JT4  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" ~qiSkG  
                     1& k_&o  
                    .Paragraphs(paraCounter).Range.Select ;6} *0V_!k  
                    Selection.EndKey unit:=wdLine S{NfU/: dL  
                    tc = Replace(rText, vbCr, "")  F%6`D  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False G'z&U?Ng  
                 swVq%]')"  
                Case "三级标题" |^m
l|cb  
                    LastTitle3No = LastTitle3No + 1 N+?kFob  
                    '新三级标题开始，复位其下属标题编号 m GWT</=[$  
                    LastTitle4No = 0 .Wq`qF(;  
                     e.0vh?{\  
                    If Val(ttNo) <> LastTitle3No Then &0 VM <  
                            rText = LastTitle3No & ". " & ttString 9k^;]jE  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText eD, 7gC-  
                         jBEt!Azur  
                    End If .O'gD.|^N  
                    '三级标题段落设置 格式：1. 标题内容 r^?%N3  
                    .Paragraphs(paraCounter).Range.Text = rText {A(=phN  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" !o 7uZC\  
                    .Paragraphs(paraCounter).Range.Select VB 8t"5  
                    Selection.EndKey unit:=wdLine F^=|NlU&%  
                    tc = Replace(rText, vbCr, "") eP3)
8
QC  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False $s hlNW\  
                Case "四级标题" MQQ!@I`  
                    LastTitle4No = LastTitle4No + 1 5|-(Ic  
                     gTR:9E:B  
                    If Val(ttNo) <> LastTitle4No Then )^^r\  
                            rText = "(" & LastTitle4No & "). " & ttString 4\?I4|{pC  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText Wv"[,5 Z13  
                     m)q;eQs  
                    End If *4^!e/  
                    '四级标题段落设置 格式：(1). 标题内容 0n_Cuh\  
                    .Paragraphs(paraCounter).Range.Text = rText MWCP/~>a2  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题"

%xR;8IO  
                    .Paragraphs(paraCounter).Range.Select nYuZg6K  
                    Selection.EndKey unit:=wdLine 3Nh;^  
                    tc = Replace(rText, vbCr, "") u+zq:2)H6  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False 9`)NFy?  
                 xnu|?;.}!  
                Case "表格标题" }b YiyG\  
                    LastTableNo = LastTableNo + 1 
N2}].}  
                     A;h0BQ
m/j  
                    If ttNo <> CStr(LastTableNo) Then 1GW=QbO 6  
                            rText = "表" & LastTableNo & ". " & ttString Uc}L/ax  
                            ErrMsg.AddItem "表格编号错误：" & ParaText %f@VOS s  
                   0X)'8N  
                    End If q5[%B K  
                     2D MH@U2  
                    '表格名称段落设置 格式：表1. 表格名称 SF;;4og  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" h"YIAQ',  
                    xe = Replace(rText, vbCr, "") (0"9562  
                    .Paragraphs(paraCounter).Range.Select -{ZTp8P>  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 CD^_>sya  
                    Selection.Range.Text = xe WW;S  
                    Selection.EndKey .l*]W!L]  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False R$*{@U  
                 ;sa
-Bh=j^  
                Case "表格首行" e@L'H)w,  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" B{|P}fN5}  
                Case "图片标题" 5jg^ 12EP  
                    LastFigureNo = LastFigureNo + 1 y-"*[5{W  
                     >;QkV6i7  
                    If ttNo <> CStr(LastFigureNo) Then $xS `i-|  
                            rText = "图" & LastFigureNo & ". " & ttString UsYH#?|O  
                            ErrMsg.AddItem "表格编号错误：" & ParaText {61NLF\0H  
                   X63DBF4A  
                    End If -?!Z/#i4  
                    '图片名称段落设置 格式：图1. 图名称 ''wWw(2O  
                    .Paragraphs(paraCounter).Range.Text = rText q01zN:|-1  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" D;<Qm,[  
                    .Paragraphs(paraCounter).Range.Select ;2}0Hr'|  
                    Selection.EndKey unit:=wdLine HF5aU :M  
                    xe = Replace(rText, vbCr, "") ~]A';xH&  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False gB<p  
                Case "正文" mYb8  
                     '正文名称段落设置 B\}E v&  
                    .Paragraphs(paraCounter).Style = "QLNU正文" + &b`QcH<  
               Case "文献条目" 8\y%J!b  
                    With .Paragraphs(paraCounter) x-U^U.i@  
                        '.Range.Select -b(:kAwStk  
                        'Selection.ClearFormatting C>@~W(IE  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” [(`T*c.#.X  
                        .Style = "QLNU参考文献" KI$?0O  
                    End With /,= wP)  
               Case "图表注解" q!<`ci,uS  
                    With .Paragraphs(paraCounter) y3$' gu|  
                        .Range.Font.NameFarEast = "楷体" (>>pla^  
                        .Range.Font.NameAscii = "Times New Roman" S
]1+tj  
                        .Range.Font.Size = 9 '小5号字 qEf)TW(  
                         [ WZ<d^L  
                        .Alignment = wdAlignParagraphCenter cCU'~  
                        .LeftIndent = 0 s+^o[R T3  
                        .RightIndent = 0 *Yvfp{B  
                        .FirstLineIndent = 0 :M ix*NCf  
                        .LineSpacing = 12 mb?DnP,z  
                        .LineSpacingRule = wdLineSpaceExactly 'oEFN
C9V  
                        .LineUnitAfter = 0 ZH`6>:  
                        .LineUnitBefore = 0 T |'Ur#  
                        .OutlineLevel = wdOutlineLevelBodyText o&?Tz*"l  
                        .PageBreakBefore = False q?Q"Ab  
                        .RightIndent = 0 ~@bCSOIy  
                        .WordWrap = True ,q/K&'0`  
                        .LineUnitAfter = 0.5 ^C):yxNP  
                         pp#Kb 2*  
                    End With tZU"Ud  
                Case Else f<WnPoV  
                    '不作处理 *s?&)][  
            End Select "`,PLC  
             VPn#O  
            '含有inlineshape的段落处理 : Ot\l  
            If ShapeHeight > 30 Then ^$_ifkkLz  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 =o_d2Ak  
            End If oRy?Dx+H  
             akBR"y:~:H  
            If (ShapeWidth + ShapeHeight) > 150 Then _ZD)#?  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" =}r&>|rrJ  
            End If /43DR;4  
             [gzw<b: `  
            '段落计数器递 8+ B.x  
            paraCounter = paraCounter + 1 cWp n/.a  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter Gr?"okaA  
            Me.txtStatus.Text = ParaText UY{ Uo@k9x  
            DoEvents N!"GwH  
        Loop ?GD{}f33  
    End With 1w+&Y;d|  
     0tn5>Dsk  
    msg = "" rgIJ]vmy<H  
     L|6clGp  
    For i = 0 To Me.ErrMsg.ListCount - 1 m3 (fr  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) 9T|7edl  
    Next aiw~4ix  
     R.|fc5_"+  
     /n?5J`6  
     J`}/+WN7  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg DD|%F  
    Me.cmdCheck.Enabled = True ?$;_a%v6  
    Me.txtStatus.Visible = True KzeA+PI  
    Me.lbParaType.Visible = False Si*Pi  
     6l [TQ  
    bContinue = False jfqWcX.X=  
End Sub .m/Lon E  
'iMI&?8u  
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) ;b cy(Fp,\  
    Dim pTEXT As String 2{XQDOyA  
     w*#k&N[X  
    pTEXT = ChKRange.Text +5?hkQCX1^  
     G~a/g6M4  
    ParaType = "其它" u/y`M] 17  
    TitleString = pTEXT <pYGcVB9V  
    TitleNo = "N/A" 5&2=;?E O  
     w69`vK  
    shpCounter = ChKRange.InlineShapes.Count 5:CC\!&QBV  
    If shpCounter <> 0 Then '/;#{("  
        MaxShpHeight = 0: TotalShpWidth = 0 %r6~5_A  
        For i = 1 To shpCounter $NG}YOP)@  
            k = ChKRange.InlineShapes(i).Height ):LJ {.0R  
            l = ChKRange.InlineShapes(i).Width ID'@}69.S  
            If k > MaxShpHeight Then BIbcm,YQ  
                MaxShpHeight = k #B`"B  
            End If cKF02?)TX  
            TotalShpWidth = TotalShpWidth + l s4MP!n?gB  
        Next AUS?Pt[w  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then %~^R Iwm  
            Exit Sub !j%)nU  
        End If wxo(  
    End If SY<!-g<1F  
     3'u%[bx E  
    '空行 s.C-II?e  
    If Len(pTEXT) <= 2 Then *qY`MW
  
        Exit Sub =#T6,[5  
    End If _4zlEo-.gU  
     $hn_4$
 
         ^o:0 Y}v=  
    '是否为表格中的文字 }[D~#Z!k  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then <B$Lu4b@c  
        ParaType = "表格内容" 8xg:ItJaA0  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) / )5B  
        If k = 1 Then Mk|h ><Q"  
            ParaType = "表格首行" +*)B;)P  
        End If "H%TOk7l  
        Exit Sub F2oY_mA   
    End If Q`AJR$L  
     fn#b3ee  
    '例外情况：脚注 z~o%U&DO}  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then L V33vy  
        ParaType = "脚注" $L:g7?)k  
        Exit Sub %Dsa ~{  
    End If g6QkF41nG  
     RJF1~9  
    '例外情况：尾注 RS<c&{?  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then faD (,H  
        ParaType = "尾注" EW#.)@-  
        Exit Sub ./5|i*ow  
    End If a2Q9tt>Q  
     T"9`[Lzva  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then ,!%[CpM3  
        ParaType = "页眉页脚" 1;vn*w`p  
        Exit Sub a_QO)  
    End If a/L?R Uu  
     'n!;7*  
     r^#.yUz  
    With regEX 39"8Nq|e  
        .Global = True a/_ sL(F{  
         Xd|@w{.m*  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" j*W]^uT,  
        If regEX.Test(pTEXT) Then 4w]u: eU  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") ;13lu1  
            TitleString = regEX.Replace(pTEXT, "$3") {U^mL6=&v  
            TitleNo = regEX.Replace(pTEXT, "$1") z>~`9Qiw'  
            ParaType = "章" 7ou2SL}k  
            Exit Sub 1#]tCi`  
        End If RFg$N@g,  
         ?PyI#G   
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" D\j1`  
        If regEX.Test(pTEXT) Then  `U(A
5  
            ParaType = "一级标题" [^ 7^&/0  
            regEX.Execute (pTEXT) G:u[Lk#6K  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") Sr2c'T"  
            TitleString = regEX.Replace(pTEXT, "$3") HewVwD<C  
            TitleNo = regEX.Replace(pTEXT, "$1") ,D ;`t   
            Exit Sub C&<f YCwG  
        End If s(Kf%ZoE  
         z56W5g2  
        '全角或半角括号中的数字 Eto0>YyZ  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" KQ3)^ J_Z  
        If regEX.Test(pTEXT) Then 'OBAnE<.  
            ParaType = "二级标题" Z9=Cw0( w?  
            regEX.Execute (pTEXT) 6prN,*k5  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") @] )a  
            TitleString = regEX.Replace(pTEXT, "$5") Xb$)}n\9  
            TitleNo = regEX.Replace(pTEXT, "$2") rCYNdfdpp  
            Exit Sub g"#R>&P  
        End If 6<]&T lS]  
         YD jQ&EH  
        '阿拉伯数字  1. 2. .t"s>jq 1  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" I+`~6  
        If regEX.Test(pTEXT) Then us`hR!_  
            ParaType = "三级标题" vx!nC}f"k`  
            regEX.Execute (pTEXT) v{?9PRf\s  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 t4h05
i  
            TitleString = regEX.Replace(pTEXT, "$3") quGb;)3  
            TitleNo = regEX.Replace(pTEXT, "$1") I|Z5*iXqCm  
            Exit Sub l4R:_Z<  
        End If wg!  
         @f*/V e0.  
        '全角或半角括号中的阿拉伯数字 NYR^y\u  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" rU.e
w~  
        If regEX.Test(pTEXT) Then nV:.-JR  
            ParaType = "四级标题" uO
7Ti]H  
            regEX.Execute (pTEXT) z<
^HohT  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") UvQxtT]  
            TitleString = regEX.Replace(pTEXT, "$5") R
8o9$&4_  
            TitleNo = regEX.Replace(pTEXT, "$2") 86IAAO`#  
            Exit Sub qG=`'%,m  
        End If bB)EJCPq>  
         xiA9X]FB  
        '表格名称 /=m=i%& #  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" ;\Wg>sq  
        If regEX.Test(pTEXT) Then .%WbXs  
            ParaType = "表格标题" P>4(+s  
            regEX.Execute (pTEXT) {r'#(\  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) iKp4@6an  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) =\:YNP/  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) 2{+\\.4Evk  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 QdC>fy  
            Exit Sub l<7 b  
        End If zq{L:.#ha  
         VCbnS191*  
        '图片名称 20%xD e  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" J"6_H =s   
        If regEX.Test(pTEXT) Then G;fP  
            ParaType = "图片标题" zUwz[^d<C  
            regEX.Execute (pTEXT) [2)Y0; ["  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") ua4QtDSs  
            TitleString = regEX.Replace(pTEXT, "$3") )v
uxy  
            TitleNo = regEX.Replace(pTEXT, "$1") O%0G37h  
            Exit Sub G_42ckLq  
        End If [|k@Suv |z  
         >K50 h  
        '参考文献 @*%5"~F  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 V)N9V|O'  
        If regEX.Test(pTEXT) Then g%4|vA8  
            ParaType = "文献条目" *e _ /D$SC  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") aeH 9:GQ6  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") Rq4\~F?  
            Exit Sub tQ?? nI2  
        End If l Fzb$k}_{  
         #FuOTBNvB  
        prfx = Left(pTEXT, 2) Q6.},o  
        If prfx = "注：" Or prfx = "注:" Then (]mN09uE  
            ParaType = "图表注解" U6.$F#n  
            Exit Sub L2Gm0 v  
        End If wk8XD( &  
         og2]B\mN4  
         
3b#KrN'  
        ParaType = "正文" BszkQ>#6  
         I"T _<  
    End With bE]2:~  
End Sub H~||]_ q|  
5Z`f)qE  
Sub ConvertListToOrdinary() u ERc\TZ  
    Dim st As Paragraph Ae`K 9  
    With ActiveDocument G9Xrwk<g4  
        For i = .Paragraphs.Count To 1 Step -1 lW^RwNcd  
            Set st = .Paragraphs(i) evimnV  
            lst = st.Range.ListFormat.ListString d['BtVJ  
            If lst <> "" Then dLQ!hKD~  
                st.Range.ListFormat.RemoveNumbers #[I`VA\x  
                st.Range.InsertBefore lst & " " /7P4[~vw  
            End If )5&w  
        Next -I4@` V  
    End With lD !^MqK  
    Set st = Nothing EkOBI[`  
End Sub xQaN\):^8  
=C<_rBY  
Private Sub UserForm_Activate() ?LvZEiJ  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" uiDR}   
    Me.lbTotal.Font.Bold = True gfih;i.pY  
    Me.txtStatus.Visible = False T:na\y/{j  
    Me.cmdCheck.Enabled = True Dyt}"r\  
#MOEY|6  
End Sub -f Zm_FE  
(MNbABZQ  
<5C3c&sds  
Sub CheckSuperScript() mjB%"w!S  
    Selection.Find.ClearFormatting 7*@qd&  
    Selection.Find.Replacement.ClearFormatting Nz5gu.a6{L  
    With Selection.Find sEhdkN
}6  
        .Text = "[【\[［〖](*)[】\]〗］]" kCN9`9XI{  
        .Replacement.Text = "[\1]" 9.1%T06$  
        .Replacement.Font.Superscript = True 'H*S-d6V  
        '.Replacement.Font.Color = wdColorBlue =$b^X?x  
        .Forward = True bS* "C,b~s  
        .Wrap = wdFindContinue u^iK?S#Ci8  
        .FORMAT = True SC86+  
        .MatchCase = False 5;dnxhf  
        .MatchWholeWord = False LRB#|PW  
        .MatchByte = False )ALf!E%{  
        .MatchAllWordForms = False #W!@j"8eK  
        .MatchSoundsLike = False `;QpPSw+  
        .MatchWildcards = True 'y;[ fwo7  
    End With M@8 <^CK  
    Selection.Find.Execute Replace:=wdReplaceAll BhdJ/C^  
End Sub ir%/9=^d  
H$1R\rE`  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) wCn W]<+  
    bContinue = False Zroj-3-X~  
    Set regEX = Nothing zy+|)^E  
End Sub L6 h
Tz'  
u4#BD!W  
Sub CeateOrModifyStyle() f&{2G2O%  
'  b.C!4^  
' W~dS8B=<  
Dim stl As Style 10}\7p8  
     }v@w(*)h:  
    Options.Pagination = False Et`z7Q*e  
     aSKI%<?xN  
    On Error Resume Next (B,CL222x  
    For Each stl In ActiveDocument.Styles `sJkOEc`  
        stl.Delete Jqjb@'i  
    Next |910xd`Z  
    On Error GoTo 0 hQ8/-#LO_  
     ^ U:pv0Qz  
    Set stl = Nothing C4Bh #C  
     tR0o6s@v/<  
    DoEvents 1(rH5z'F  
    On Error Resume Next QXgh[9wG  
     qBKIl= ne  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph gZ/M0px  
     7c4
\'dt#  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph Os?~U/  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph Sn
" 1XU  
     3Yg/-=U(  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph x*bM C&Ea  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph obaJT"1  
     F!'b_gmz  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph Td"f(&Hk&  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph Ngh9+b6[  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph -i?!em'J  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph pS*vwYA  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph !cp ,OrO\  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph ).-B@&Eu%  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph A*MlK"  
     rJ9a@n,  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph b_\aSEaTT  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph <\2,7K{{+;  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph V:My1R0  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph GG%j+Ed  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph X^fMt]  
     >8>`-  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph  ]|~],\  
    On Error GoTo 0 F/&Z1G.  
    DoEvents EiIbp4*e  
     )}n`MRDB  
    'BaseStyle y\r8_rBo  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False n1.]5c3p  
    With ActiveDocument.Styles("BaseStyle").Font tC-(GDGy5  
        .NameFarEast = "宋体" K^s!0[6  
        .NameAscii = "Times New Roman" uK}k]x\z  
        .NameOther = "宋体" ?s p  
        .Size = 10.5 R;
'Pe>  
        .Bold = wdUndefined ihf5`mk/$  
        .Italic = wdUndefined h"]v+u`!SM  
        .Subscript = wdUndefined 6D3fk vcZ  
        .Subscript = wdUndefined V0ulIKck  
         f:Ju20D  
        .Underline = wdUnderlineNone RK"
dPr  
        .UnderlineColor = wdColorAutomatic 3V LwMF?  
        .StrikeThrough = False ZZzf+F)T  
        .DoubleStrikeThrough = False FeLWQn/aV6  
         9[6xo!  
        .Outline = False q.uI
Z  
        .Emboss = False _%z)Y=Q  
        .Shadow = False 4vp,izNW  
        .Hidden = False \W}?4kz  
        .SmallCaps = False f=g/_R2$xN  
        .AllCaps = False WR gAc%  
        .Color = wdColorAutomatic aq,&W q@  
        .Engrave = False ZDcv-6C)B  
        .Scaling = 100 /Q})%j1S0  
        .Kerning = 1 )#IiHB F  
        .Animation = wdAnimationNone i n F&Pv  
        .DisableCharacterSpaceGrid = False 4N*Fq!k~  
        .EmphasisMark = wdEmphasisMarkNone Fu{[5uv  
    End With ,R ]]]7)+  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat .5KRi6  
        .LeftIndent = 0 r?[PIf  
        .RightIndent = 0 'S
 E%9
 
        .SpaceBefore = 0 vr=iG xD  
        .SpaceBeforeAuto = False U#d&#",s  
        .SpaceAfter = 0 s26:(J [{  
        .SpaceAfterAuto = False IkL|bV3E0  
         &hyr""NkAm  
        .LineSpacingRule = wdLineSpaceSingle Hc5@gN  
        .Alignment = wdAlignParagraphJustify hY/SR'8  
         .2[>SI  
        .WidowControl = False "7Zb)Ocb  
        .KeepWithNext = False qmtVk  
        .KeepTogether = False Y@_ i32,r  
        .PageBreakBefore = False X2q$i  
        .NoLineNumber = False UH.M)br  
         mY#[D;mUe  
        .FirstLineIndent = CentimetersToPoints(0) lNls8@  
        .OutlineLevel = wdOutlineLevelBodyText zSj.Y{J  
        .CharacterUnitLeftIndent = 0 nWmc  
        .CharacterUnitRightIndent = 0 IEjKI"  
        .CharacterUnitFirstLineIndent = 0 9V[|_  
        .LineUnitBefore = 0 ! T6oD]x3  
        .LineUnitAfter = 0 +cQ4u4  
        .AutoAdjustRightIndent = True )?I1*(1{A  
        .DisableLineHeightGrid = True u <D&RT  
         L7%Dc2{^(  
        .FarEastLineBreakControl = True [[oX$0Fp\!  
        .WordWrap = True b3<<4Vf  
        .Hyphenation = False 1LT)%_d@  
         =TwV_Dro~  
        .HangingPunctuation = True Y-gj X$qGo  
        .HalfWidthPunctuationOnTopOfLine = True DJ[U^dWRn  
        .AddSpaceBetweenFarEastAndAlpha = True y<
8)mw  
        .AddSpaceBetweenFarEastAndDigit = True tJbOn$]2"  
        .BaseLineAlignment = wdBaselineAlignBaseline vC&y:XMt,`  
    End With j}#48{  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False 2 os&d|  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll h,rGa\X~0  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese =pN?h<dc  
    ActiveDocument.Styles("BaseStyle").NoProofing = False _I3j7
f,V  
     =36vsps=  
    '一级标题题样式 N[){yaj  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") n"(n*Hf7b  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" 9%>H}7=  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False ) m%ghpX  
    With ActiveDocument.Styles("QLNU一级标题").Font qYGnebn@\  
        .NameFarEast = "黑体" o5i?|HJ  
        .NameAscii = "Arial Black" !gW$A-XD  
        .NameOther = "黑体" Xr6lYO_R  
        .Name = "黑体" E6y/,s^~S_  
        .Size = 16              '三号 ^md7ezXL  
        .Bold = True ZQsE07  
        .Italic = wdUndefined P/,7CfyPd  
        .Subscript = wdUndefined 8/Z JkI  
        .Superscript = wdUndefined :-ax5,J>q  
    End With E9!IGci  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat V0c*M>V  
         S2;{)"mS  
        .LeftIndent = CentimetersToPoints(0) Ga+\b>C  
        .RightIndent = CentimetersToPoints(0) v^H DR 3I  
        .FirstLineIndent = CentimetersToPoints(0) )}]<o |'  
         XDz![s  
        .LineSpacingRule = wdLineSpaceSingle T{{J' _s5L  
        .Alignment = wdAlignParagraphCenter r/Qq-1E  
         <!-8g!  
        .WidowControl = True H.v`JNs(  
        .KeepWithNext = True KFCuv15w,3  
        .KeepTogether = True 4YXtl+G  
        .OutlineLevel = wdOutlineLevelBodyText 9IN=m 5  
         ZgZ}^x  
        .LineUnitBefore = 0.5 UVxE~801Y  
        .LineUnitAfter = 0.5 M!;H3*  
    End With K:465r:  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False -TjYQ  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll It(8s)5  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese xXp\U'Ad~~  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True KaBze67<|  
    DoEvents toX4kmC  
     ` m`jX|`  
    '二级 zf5s\w.4  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") E)NH6~  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" [/6$P[  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False 9Rb-QI  
    With ActiveDocument.Styles("QLNU二级标题").Font I8 8y9sW  
        .NameFarEast = "黑体" 'g|%Ro/  
        .NameAscii = "Arial Narrow" =}Bq"m  
        .NameOther = "黑体" /^P^K  
        .Name = "黑体" v>~ottQ|  
        .Size = 15        '小三号 }8fxCW*|  
        .Bold = False T,`'qZ>  
        .Outline = False FOM~ Uj  
        .Italic = wdUndefined `IFt;Ja\6  
        .Subscript = wdUndefined aVO5zR./)  
        .Superscript = wdUndefined :_p3nb[r  
    End With ](x 4q  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat s~IOc%3  
        .LeftIndent = CentimetersToPoints(0) <@A/`3_O)  
        .RightIndent = CentimetersToPoints(0) R^f~aLl  
        .FirstLineIndent = CentimetersToPoints(0) G0^23j  
         ^qIp+[/'  
        .LineSpacingRule = wdLineSpaceSingle <E&1HeP  
        .Alignment = wdAlignParagraphLeft {!o-
y=  
         %R7Q`!@8  
        .WidowControl = True 9K Ih}Q@P  
        .KeepWithNext = True 43A6B  
        .KeepTogether = True d3&gHt2  
        .PageBreakBefore = False c zL[W2l  
        .OutlineLevel = wdOutlineLevelBodyText z%`Tf&UL  
         DN&ZRA  
        .LineUnitBefore = 0.5 X>wB=z5PXK  
        .LineUnitAfter = 0.5 RR75ke[Hs  
         >Y1?`  
    End With &!N5}N&  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False [j 'Og
m7"  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll ;6e#W!  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese \#m;L/D  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True ^.nvX{H8~=  
    DoEvents i>7f9D7  
     P@PZm  
    '三级标题样式 ?*9U d  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") yodJGGAzk  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" (+>+@G~o  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False |pqLwnOu  
    With ActiveDocument.Styles("QLNU三级标题").Font ;=5V)1~i1;  
        .NameFarEast = "宋体"  S`U Gk  
        .NameAscii = "Times New Roman" Ty*ec%U9F  
        .NameOther = "黑体" 8r
GW G  
        .Name = "黑体" ]BO{Q+?d2  
        .Size = 14               '四号 $io-<Z#Q  
        .Bold = False N#bWMZ"  
        .Outline = False =yz#L@\!  
        .Italic = wdUndefined LCyci1\@  
        .Subscript = wdUndefined O->i>d  
        .Superscript = wdUndefined rf@/<Wu  
    End With 4CW /  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat b+OLmd  
        .LeftIndent = CentimetersToPoints(0) dt',)i8D  
        .RightIndent = CentimetersToPoints(0) uQ vW@Tt  
        .FirstLineIndent = CentimetersToPoints(0) G"5Nj3vd  
         _B8e1an  
        .LineSpacingRule = wdLineSpaceSingle ]i8K )/  
        .Alignment = wdAlignParagraphLeft Y H 2iV  
         PxfeU2^{0  
        .WidowControl = True mkk74NY  
        .KeepWithNext = True HvKueTQ  
        .KeepTogether = True y$r9Y !?s  
        .PageBreakBefore = False {,]BqFXv  
        .OutlineLevel = wdOutlineLevelBodyText HdJLD+k/  
         ?"{+m
 
        .CharacterUnitLeftIndent = 0 nbMH:UY,J  
        .CharacterUnitRightIndent = 0 m{JiF-=u  
        .CharacterUnitFirstLineIndent = 2 `JG~%0Z?}  
         P qagep d  
        .LineUnitBefore = 0.5 PJAE
~|a  
        .LineUnitAfter = 0 mB"zyL-  
    End With 6mep|![6  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False _>dqz(8#  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll bL)g+<:F  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese 5y(irbk7  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True -E2[P W4$  
    DoEvents ;}A#ws_CD_  
     5caYA&R  
    '四级标题样式 7. G  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 9x;/q7  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" [YHvyfk~_  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False >QE^KtZ  
    With ActiveDocument.Styles("QLNU四级标题").Font ^W_}Gd<-#Y  
        .NameFarEast = "宋体" cEsBKaN
 
        .NameAscii = "Times New Roman" pnxjuDN7}x  
        .NameOther = "宋体" _-% ay  
        .Name = "宋体" (e=ksah3>  
        .Size = 12               '小四号 :0CR=]WM  
        .Bold = True JjfNH ~  
        .Outline = False c 72Oy+#  
        .Italic = wdUndefined d;mQ=k 1  
        .Subscript = wdUndefined w_KGn17  
        .Superscript = wdUndefined #_2V@F+,  
    End With a_
waL H/  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat q)G*"  
         F}H!vh[  
        .LeftIndent = CentimetersToPoints(0) Te[[x
hTyw  
        .RightIndent = CentimetersToPoints(0) 9(ZzwkD'>  
        .FirstLineIndent = CentimetersToPoints(0) C: kl/9M@  
         W#u}d2mP  
        .LineSpacingRule = wdLineSpaceSingle Rb#Z'1D'G  
        .Alignment = wdAlignParagraphLeft 6lT1X)  
         @Sq=#f/=  
        .WidowControl = True }E*d)n|  
        .KeepWithNext = True MeQ(,irr^  
        .KeepTogether = True 6 N~ jt  
        .PageBreakBefore = False 7Kk rfJqN  
        .OutlineLevel = wdOutlineLevelBodyText \$?[
>=<wB  
         J}._v\Q7P  
        .CharacterUnitLeftIndent = 0 i_`YZ7Hxp
 
        .CharacterUnitRightIndent = 0 ii2oWU  
        .CharacterUnitFirstLineIndent = 2 E;VBoN [  
         nd3]&occ  
        .LineUnitBefore = 0 fOE:~3Q  
        .LineUnitAfter = 0 ZNOoyWYi5  
         L]K* Do  
    End With 66p_d'U  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False w?jmi~6  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll Q,#M 0  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese ~<v{CBq[  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True Qc[[@=S%  
    DoEvents ~-']Q0Z  
     6|T{BOW!d  
    '正文校式 mH;Z_ME"  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") v0"|J3  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" Jgtvia  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False {)4Vv`n  
    With ActiveDocument.Styles("QLNU正文").Font AN^
,  
         qE$.a[  
        .NameFarEast = "宋体" ;f=:~go  
        .NameAscii = "Times New Roman" Ef%
8+_  
        .NameOther = "宋体" l2VO=RDiW  
        .Name = "宋体" u+I-!3J87  
         +FY-r[_~  
        .Size = 12               '小四号 _q6+]  
         )6bxP&k  
        .Bold = wdUndefined f910drg 7  
        .Italic = wdUndefined *9j9=N?  
        .Subscript = wdUndefined Ct}"o  
        .Superscript = wdUndefined &U4]hawbOU  
         <e/O"6='Z  
        .Outline = False <'P|g  
        .Emboss = False ]DmqhK`  
        .Shadow = False {D."A$AAa  
        .Hidden = False QAygr4\X^  
         m9#u.Q*  
        .DisableCharacterSpaceGrid = True 1yX&iO^d  
    End With Qi=rhN`  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat vbDw
2  
         7w>"M  
        .LeftIndent = CentimetersToPoints(0) ^3=8*Xr  
        .RightIndent = CentimetersToPoints(0) +bdkqdB9  
        .FirstLineIndent = CentimetersToPoints(0) mKe{y.  
         qhK;#<#  
        .LineSpacingRule = wdLineSpaceExactly &sS k~:  
        .LineSpacing = 20 ~gI%   
        .Alignment = wdAlignParagraphLeft
T?AGQcG  
         pxI*vgfN7  
        .WidowControl = False gvoK  
        .KeepWithNext = False ( fdDFb#1  
        .KeepTogether = False JGj_{|=:  
        .PageBreakBefore = False 2<ef&?ljk  
        .Hyphenation = False U?$v1||  
         YLSG 5vF+  
        .OutlineLevel = wdOutlineLevelBodyText _& KaI }O  
         B1nb23SY T  
       `(Q58wR}  
        .CharacterUnitLeftIndent = 0 !~ -^s  
        .CharacterUnitRightIndent = 0 Z]w_2- -  
        .CharacterUnitFirstLineIndent = 2 YgM6z K~  
         =_^g]?5i  
        .LineUnitBefore = 0 wTIf#y1=9  
        .LineUnitAfter = 0 Dcus-,u~  
        .SpaceBefore = 0 `d OjCA_&  
        .SpaceAfter = 0 ;Jx ^  
         -\UzL:9>  
        .DisableLineHeightGrid = True :\4O9f*5+  
    End With /jj!DO#  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False {E6W]Mno  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll u52;)"&=)  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese Z:T4Z}4N  
    ActiveDocument.Styles("QLNU正文").NoProofing = True t&eD;lg :  
    DoEvents N..9N$+(  
     {GHGFi
`Z  
    '图片段落样式 9sYX(Fl  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") Ae ue:u>  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" Z #V[N9L  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False {F@;45)o  
    With ActiveDocument.Styles("QLNU图片段落").Font #y>oCB`EM  
        .Size = 12               '小四号 _F@FcFG1Z*  
        .Italic = wdUndefined +Kf::[wP7  
        .Subscript = wdUndefined }PED#Uv  
        .Superscript = wdUndefined D"^ogY#LK  
    End With a#uJzYB0  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat Y Nq<%i!>  
         k;LENB2iv  
        .LeftIndent = CentimetersToPoints(0) 5+ fS$Q  
        .RightIndent = CentimetersToPoints(0) y:2o-SJn  
        .FirstLineIndent = CentimetersToPoints(0) l_,8_u7G  
         0 |F(qR  
        .LineSpacingRule = wdLineSpaceSingle N"E\o,_  
        .Alignment = wdAlignParagraphCenter g^0  
        .KeepWithNext = True ^+GN8LUs  
        .OutlineLevel = wdOutlineLevelBodyText i w m7M  
         zEO 9TuBO  
        .CharacterUnitLeftIndent = 0 p%3';7W\  
        .CharacterUnitRightIndent = 0 'kx{0J?  
        .CharacterUnitFirstLineIndent = 0 nF=Ig-NX^  
         b]|7{yMV  
        .LineUnitBefore = 0 _I$]L8hC  
        .LineUnitAfter = 0 jU4Ir{f  
    End With FfD2 &(-R  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False A)`M*(~  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll qZ1fQN1yG  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese }DZkCzK  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True vm4]KEyrX  
    DoEvents @F3d9t-  
     F&cA!~  
     .-W
CB  
    '第X章 |?g2k:fzB7  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") @kqy!5)K  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" Pyyx/u+?@  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False ^'
[|  
    With ActiveDocument.Styles("QLNU章节标题").Font %+pXzw`B  
        .NameFarEast = "黑体" DcOu=Y> 1  
        .NameAscii = "Arial Black" VJ=!0v  
        .NameOther = "Arial Black" k?S-peyRO  
        .Name = "黑体" (
>;~((2  
        .Size = 16 6?,r d  
        .Bold = True A@DIq/^xM  
        .UnderlineColor = wdColorAutomatic dDm<'30?*v  
        .Outline = False rzl2Oj"4  
        .Italic = wdUndefined ?C $_?Qi  
        .Subscript = wdUndefined 0hN
c#x6  
        .Superscript = wdUndefined 6b]vHT|p  
        .Scaling = 100 2l\Oufer"  
        .DisableCharacterSpaceGrid = True ~4
\bR  
    End With pAa{,,Qc  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat V).M\  
        .LineSpacingRule = wdLineSpaceSingle )%MBo.NL  
        .Alignment = wdAlignParagraphCenter )L#I#%  
        .WidowControl = True ?^"S%Vb  
        .KeepWithNext = True 8=2)I.   
        .KeepTogether = True 4e%SF|(Y'h  
        .PageBreakBefore = True @l;f'
;+  
        .OutlineLevel = wdOutlineLevelBodyText 4cV(Z-\  
         =%]dk=n?TN  
        .LeftIndent = CentimetersToPoints(0) \lY26'  
        .RightIndent = CentimetersToPoints(0) aX~iY ~?_  
        .FirstLineIndent = CentimetersToPoints(0) ^ )+tn  
         OKf/[hyu  
        .CharacterUnitLeftIndent = 0 lcUL7  
        .CharacterUnitRightIndent = 0 IF1?/D"<  
        .CharacterUnitFirstLineIndent = 0 
r;Dl  
         KRXe\
Sx  
        .LineUnitBefore = 1
$}\.)^[}  
        .LineUnitAfter = 0.5 `mWg$e,  
         l7x%G@1#~W  
        .AutoAdjustRightIndent = False vkt)!hl `  
        .DisableLineHeightGrid = True CV& SNA  
        .FarEastLineBreakControl = True DAvAozM  
        .WordWrap = True S 8]g'!  
    End With 4Yn*q~f  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False V'6%G:?0a  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll RKBtw Zx>f  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese }NYsKu_cM  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True 5k\61(*s  
    DoEvents ](a<b@p  
     `q5*VqIhs  
    '表格标题 9JU lu  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") FijzO  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" wiFckF/  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False _Y~+ #Vc  
    With ActiveDocument.Styles("QLNU表格标题").Font Ur@'X-  
        .NameFarEast = "楷体" t;4{l`dk  
        .NameAscii = "Arial" Fh?q;o Ej  
        .Name = "楷体" IzL yn  
        .Size = 10.5 c^=,@#  
        .Bold = True Zd5frc$  
        .Underline = wdUnderlineNone ^$T>3@rDB  
        .Italic = wdUndefined $Z;0/\r%  
        .Subscript = wdUndefined sXfx[)T<  
        .Superscript = wdUndefined ~Aq UT]l  
        .Color = wdColorAutomatic rsc8lSjH  
    End With
=XW
i+')  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat r-!8in2  
         W}Z|v M$  
        .LineSpacingRule = wdLineSpaceSingle 8<g5.$xyz  
        .Alignment = wdAlignParagraphCenter f|< *2Mk  
        .KeepWithNext = True tZ6KU11O  
        .KeepTogether = True 7,(:vjI
Xd  
        .OutlineLevel = wdOutlineLevelBodyText a2g15;kM  
         (>Tu~Vo  
        .LeftIndent = CentimetersToPoints(0) )P,jpE8  
        .RightIndent = CentimetersToPoints(0) ~5JXY5*o  
        .FirstLineIndent = CentimetersToPoints(0) .IYE "0)wJ  
         N:d" {k  
        .CharacterUnitLeftIndent = 0 IB?5y~+h
 
        .CharacterUnitRightIndent = 0 QzV:^!0J  
        .CharacterUnitFirstLineIndent = 0 K}wUM^  
         )9PQj  
        .LineUnitBefore = 1 a"ht\v}1  
        .LineUnitAfter = 0 #=zh&`  
         \.*aC)  
    End With
dwmj *
+  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False Uq[
NOJC  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll 7d9%L}+q  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese 2?m'Dy'JE  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True r<~1:/F|  
    DoEvents 4K4?Q+?  
,ur_n7+LH  
    '表格首行 +:^tp pg  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") z}pdcQl#
 
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False ^WVr@6  
    With ActiveDocument.Styles("QLNU表格首行").Font py,z7_Nuh  
        .NameFarEast = "楷体" hx:x5L>  
        .NameAscii = "Times New Roman" #PFf`7b,z  
        .Name = "楷体" 5X[=Q>  
        .Size = 9 >Ks|yNJ  
        .Bold = True \ 6sp"KqP  
        .Underline = wdUnderlineNone W/&cnp\  
        .Italic = wdUndefined S(rA96n  
        .Subscript = wdUndefined 0_%u
(?  
        .Superscript = wdUndefined tt`b+NOH>  
    End With yuhSP{pv'  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat O-
mP{  
        .LineSpacingRule = wdLineSpaceSingle 7[8PSoo  
        .Alignment = wdAlignParagraphCenter Bh@j6fv  
         hB|LW^@v  
        .LeftIndent = CentimetersToPoints(0) jT'1k[vJj  
        .RightIndent = CentimetersToPoints(0) Rr:,'cXGi  
        .FirstLineIndent = CentimetersToPoints(0) &|',o ?'F  
         cQN}z Ke  
         & }}o9  
        .CharacterUnitLeftIndent = -0.5 JA1(yt  
        .CharacterUnitRightIndent = -0.5 { \Q'eL8  
        .CharacterUnitFirstLineIndent = -0.5 q5QYp  
         WF:i}+g
+^  
        .LineUnitBefore = 0 A3h[VnuG,  
        .LineUnitAfter = 0 {E!$<A9  
        .SpaceBefore = 0 tTP"*Bb  
        .SpaceAfter = 0 :PjHsNp;^  
         ^Dd$8$?[  
    End With n*'|7#;  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False 'GNT'y_  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll ~xzRx$vU  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese &%INfl>o7.  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True zs7K :OlkA  
    DoEvents nC2A&n&>  
Qs*g)Yr  
    '表格内容 fpzC#  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") J;G+6C$:  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False N|8TE7- F|  
    With ActiveDocument.Styles("QLNU表格内容").Font  @4H*kA  
        .NameFarEast = "楷体" 4egq Y0A  
        .NameAscii = "Times New Roman" dx:],VB  
        .Name = "楷体" p5Y"W(5_  
        .Size = 9 8wwD\1pLS  
        .Bold = False p+A#t~K  
        .Underline = wdUnderlineNone 5]gd,&^?>  
        .Italic = wdUndefined S^
~GI$  
        .Subscript = wdUndefined Nno*X9>~  
        .Superscript = wdUndefined h PH=.rX  
    End With +]Ydf^rF  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat ]JtK)9  
        .LineSpacingRule = wdLineSpaceSingle 9r8*'.K`Z  
        .Alignment = wdAlignParagraphCenter H{9di\xnEm  
         V~ZAs+(2Z  
        .LeftIndent = CentimetersToPoints(0) J6| 5*|*^  
        .RightIndent = CentimetersToPoints(0) p"Fj6T2  
        .FirstLineIndent = CentimetersToPoints(0) &|55:Y87  
         !7Ta Vx}`(  
        .CharacterUnitLeftIndent = -0.5 q(_pk&/  
        .CharacterUnitRightIndent = -0.5 :3
u>%  
        .CharacterUnitFirstLineIndent = -0.5 R`A@F2  
        .LineUnitBefore = 0 rr2|xL?+u  
        .LineUnitAfter = 0 #=+d;RdlW  
        .SpaceBefore = 0 wD"Y
1?Mr  
        .SpaceAfter = 0 ,LU/xI0O  
    End With 6x6PP}IX  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False JZN'U<R  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll @R>J\>  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese lS 9rgq<n  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True @e+QGd;}  
    DoEvents rT5dv3^MW!  
p]IF=~b  
    '图片标题 g)2}`}  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") t|d9EC]c(  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" :X/j%m*  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False 6d+p7x  
    With ActiveDocument.Styles("QLNU图片标题").Font [|l?2j\  
        .NameFarEast = "楷体" ( e"iO`H  
        .NameAscii = "Times New Roman" )XWP\ h  
        .Name = "楷体" YM DMH"3  
        .Size = 10.5 )aX,%yK  
        .Bold = True VsA'de!V4[  
        .Underline = wdUnderlineNone FN[{s  
        .Italic = wdUndefined xZV1k~C  
        .Subscript = wdUndefined p0pWzwTG3  
        .Superscript = wdUndefined 9Vf1Xz  
        .Outline = False |2KAo! PI  
        .Shadow = False h>Hb`G<  
        .Color = wdColorAutomatic <jed!x  
    End With zz& ?{vJ  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat @$T 9Ll  
        .LineSpacingRule = wdLineSpaceSingle RVeEkv[qp  
        .Alignment = wdAlignParagraphCenter ~jsLqY*(+  
         tr7 <]Hm:  
        .KeepWithNext = wdUndefined /JT#^Y  
        .KeepTogether = True 3N_"rNKD  
        .OutlineLevel = wdOutlineLevelBodyText /@|/^vld  
         `UBYp p  
        .LeftIndent = CentimetersToPoints(0) +o9":dl  
        .RightIndent = CentimetersToPoints(0) c*@G _rb  
        .FirstLineIndent = CentimetersToPoints(0) &d|r~NhP  
         GH
[wv<  
        .CharacterUnitLeftIndent = 0 4Fm90O  
        .CharacterUnitRightIndent = 0 r7',3V  
        .CharacterUnitFirstLineIndent = 0 Zv#Ll@v  
         2+X\}s1vN  
        .LineUnitBefore = 0 q/n,,!  
        .LineUnitAfter = 0 rylzcN9RM$  
    End With @lvyDu6e  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False JY6 Qp  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll <qGu7y"  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese &~W:xg(jN  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True {GJ@psG*  
    DoEvents 9*a=iL*Nw  
2,*M|+W~  
    '目录项 :kGU,>BN  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") 5ls6t{Ci  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" HbW0wuI  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False %dY<=x#b  
    With ActiveDocument.Styles("QLNU目录项").Font B7!3-1<k>  
        .NameFarEast = "黑体" ) Yd?m0m*  
        .NameAscii = "Times New Roman" $LU"?aAW  
        .NameOther = "Times New Roman" ~s5SZK*  
        .Name = "黑体" %HJK;   
        .Size = 10.5 NC38fiH_N  
        .Bold = False 0'IBN}  
        .Italic = wdUndefined Q1+dCCY#F  
        .Underline = wdUnderlineNone ^`G}gWBx}w  
        .Color = wdColorAutomatic ,TFIG^Dvq  
        .Superscript = wdUndefined s-v  
        .Subscript = wdUndefined /i77  
    End With 8]LD]h)B"  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat +>PX&F  
         ^#sU*trr  
        .LineSpacingRule = wdLineSpaceSingle /E\ %>wv  
        .Alignment = wdAlignParagraphLeft o]opdw  
         _]:z \TDn  
        .WidowControl = False LGtIm7  
        .KeepWithNext = False V5rST +  
        .KeepTogether = False Sy 'Dp9!|  
        .PageBreakBefore = False uS^Ipxe\  
        .NoLineNumber = False ow]053:i  
        .OutlineLevel = wdOutlineLevelBodyText rvw)-=qR[  
         6H7],aMg$A  
        .LeftIndent = CentimetersToPoints(0) s)pbS}L  
        .RightIndent = CentimetersToPoints(0) :ijAqfX  
        .FirstLineIndent = CentimetersToPoints(0) 9yfJVg  
         ' MxrQ;|S  
        .CharacterUnitLeftIndent = 0 X*\J_  
        .CharacterUnitRightIndent = 0 B $mX3B
+a  
        .CharacterUnitFirstLineIndent = 0 ^U!0-y  
         JeE;V![  
        .LineUnitBefore = 0 =&
:Y6XP  
        .LineUnitAfter = 0 GP#aya  
    End With \P6$mh\T  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False '  <=+;q  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll 5s]. @C8  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot \o^2y.q:>  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese r3PT1'P?L  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True *IM;tD+7Q~  
    DoEvents #Q /Arq  
     LSRk7'0  
    '参考文献 jB(|";G  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") 9B9(8PVG  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" *I0T{~  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False hyFyP\u]  
    With ActiveDocument.Styles("QLNU参考文献").Font zOiu5  
        .NameFarEast = "宋体" 1Yn +<I  
        .NameAscii = "Times New Roman" :*KHx|Q  
        .NameOther = "Times New Roman" _FWBUZ;N  
        .Name = "Times New Roman" <S r  
        .Size = 12 ^cuc.g)c$?  
        .Bold = False )h)]SF}  
        .Italic = wdUndefined [D4 Es   
        .Subscript = wdUndefined @!1x7%]G  
        .Superscript = wdUndefined Ll4g[8  
        .Underline = wdUnderlineNone J7g8D{4  
        .UnderlineColor = wdColorAutomatic aYSCw3C <  
        .Color = wdColorAutomatic 9_5ow  
        .Engrave = False ?pd8
w#O  
    End With \:UIc*S  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat :n-]>Q>5=k  
         c.e2M/  
        .LineSpacingRule = wdLineSpaceExactly [;J>bi;3N  
        .LineSpacing = 16 l~$+,U&XNe  
        .Alignment = wdAlignParagraphLeft NN?`"Fww  
        .WidowControl = False ^=-y%kp"  
        .KeepWithNext = False 5wDg'X]>V  
        .KeepTogether = False uu>Pkfo  
        .PageBreakBefore = False {.INnFGP@)  
        .OutlineLevel = wdOutlineLevelBodyText
@n
Cd  
         $ F5 b  
        .LeftIndent = CentimetersToPoints(0) ^\S~?0^m  
        .RightIndent = CentimetersToPoints(0) w {3<{  
        .FirstLineIndent = CentimetersToPoints(0) ,JQp'e  
         (:
>,u*x%  
        .CharacterUnitLeftIndent = 0 Ptdpj)oi&Q  
        .CharacterUnitRightIndent = 0 73\JwOn~  
        .CharacterUnitFirstLineIndent = -2 ?snp8W-WB  
         FFEfI4&SfS  
        .LineUnitBefore = 0 Zo~  
        .LineUnitAfter = 0 D-._z:_  
        .SpaceBefore = 0 m+T;O/lG0{  
        .SpaceAfter = 0 io8'g3<  
         7](
KV"%V  
    End With D1=((`v '  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False Ev}C<zk*  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll OL^l 3F  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS  #^A*  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True fNW"+ <W  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese mrF58Uq;A  
    DoEvents CTZ8Da^  
TtTj28k7  
    ' ?m\t|/0Q  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") "[ZB+-|[0  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" @pRlxkvV  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False pz.JWCU1  
    With ActiveDocument.Styles("QLNU论文题目").Font }xh$T'M8  
        .NameFarEast = "黑体" z\%67C  
        .NameAscii = "Arial Black" yL-YzF2  
        .NameOther = "Arial Black" i=oU;7~zK  
        .Name = "Arial Black" ~ r438&  
        .Size = 16 m()RU"WY  
        .Bold = False %#xaA'? [  
        .Italic = wdUndefined !*B'?|a<\  
        .Superscript = wdUndefined ,tu
.2VQc@  
        .Subscript = wdUndefined wG -HF'0L  
        .Underline = wdUnderlineNone MjC_ (cs  
        .UnderlineColor = wdColorAutomatic @X;!92i  
        .Color = wdColorAutomatic .E8_Oz  
o9dY9o+Z  
    End With kZGRxp9  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat SSWP~ t  
        .LineSpacingRule = wdLineSpaceSingle U ^5Kz-5.  
        .Alignment = wdAlignParagraphCenter 2`N, ,  
        .WidowControl = True f@
|A[>"V  
        .KeepWithNext = True vkEiOFU!u  
        .KeepTogether = True 3!|;iJRH  
        .PageBreakBefore = True oUQ,6
1H  
        .NoLineNumber = False %_%Q8,W  
        .OutlineLevel = wdOutlineLevelBodyText "4{LN}`  
         TI,&!E?;  
        .LeftIndent = CentimetersToPoints(0) 2Tp1n8FV  
        .RightIndent = CentimetersToPoints(0) j~jV'f.:H  
        .FirstLineIndent = CentimetersToPoints(0) HOJs[m
qB%  
         I7n"&{s"*  
        .CharacterUnitLeftIndent = 0 .7avpOfz  
        .CharacterUnitRightIndent = 0 P"8~$ P#  
        .CharacterUnitFirstLineIndent = 0 9 %I?).5  
         IS&ZqE(`e  
        .LineUnitBefore = 1 n|RJ;d30Q  
        .LineUnitAfter = 1 FWG6uKv  
         U`NjPZe5^  
        .BaseLineAlignment = wdBaselineAlignAuto mQ|v26R  
    End With VoWNW  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False %1xb,g KO  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll +b3RkkC  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS S]Mw#O|  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True AW!?"xdZ  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese b((M)Gz  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True MS 81sN\d  
    DoEvents QLiu2U o  
     _C*fs<#  
    '中文摘要 'R'*kxf  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") gf &Pn  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" 8"8t-E#?  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False f$Fhf?'  
    With ActiveDocument.Styles("QLNU中文摘要").Font PIoLywpRn  
        .NameFarEast = "宋体" afuOeZP  
        .NameAscii = "Times New Roman" jN;@

=COi  
        .NameOther = "Times New Roman" .yqM7U_  
        .Name = "Times New Roman" 7`zHX&-W  
        .Size = 12 q=Sgk>NA  
        .Bold = wdUndefined -~v2BN/  
        .Superscript = wdUndefined OuID%p"O  
        .Subscript = wdUndefined e]$}-i@#  
        .Italic = wdUndefined (mTE;s(  
        .Underline = wdUnderlineNone fPR1f~r  
        .UnderlineColor = wdColorAutomatic {byBcG  
        .Color = wdColorAutomatic $Y/ 9SV,  
    End With "8x8UgG  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat <oT^A|JFj  
        .LineSpacingRule = wdLineSpaceExactly uXJ;A *  
        .LineSpacing = 20 d\|?-hY`[  
        .Alignment = wdAlignParagraphLeft ;RC{<wBTx  
         U4C 9<h&  
        .WidowControl = False UU;(rS/  
        .KeepWithNext = False x7!L{(E3  
        .KeepTogether = True L\xk:j1[  
        .PageBreakBefore = False mpU$+  
        .NoLineNumber = False <66X Xh.  
        .OutlineLevel = wdOutlineLevelBodyText v4`"1Ss,K  
        
_u5#v0Y  
        .LeftIndent = CentimetersToPoints(0) 0z l
b0[  
        .RightIndent = CentimetersToPoints(0) '$ =>  
        .FirstLineIndent = CentimetersToPoints(0) %7IugHH9y  
         4~Vx3gEV:  
        .CharacterUnitLeftIndent = 0 l3Q(TH~I  
        .CharacterUnitRightIndent = 0 t\k$};qJ  
        .CharacterUnitFirstLineIndent = 2 g9}Dn
CT*.  
        .LineUnitBefore = 0 8<pzb}xK  
        .LineUnitAfter = 0 >> t@}F)  
         4C61GB?Vy  
    End With i1NY9br  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False wnEyl[ac  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll irFMmIb  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS Oj3.q#)`Z  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True YQ9'0F[l  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese S >X:ZYYC  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True j<VFn~*_  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete =hC,@R>;  
    DoEvents ;o2$ Q  
     wsZF;8ut  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") [65`$x
-  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" bYpntV  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False 5 ZGNz1)?V  
    With ActiveDocument.Styles("QLNU英文标题").Font 8D3OOab  
        .NameFarEast = "黑体" 2Mc3|T4)U  
        .NameAscii = "Arial Narrow" DEG[Z7Ju  
        .Name = "Arial Narrow" RI 5yF  
        .Size = 16 pN:Kdi  
        .Bold = True a!7A_q8M  
        .Bold = wdUndefined Sq/ qu-%X  
        .Superscript = wdUndefined ;g5m0l5  
        .Subscript = wdUndefined VM GS[qrG  
        .Italic = wdUndefined c[wla<dO*  
         4:$4u@   
        .Underline = wdUnderlineNone !;Yg/'vD-  
        .UnderlineColor = wdColorAutomatic 6}[I2F_^  
        .StrikeThrough = False N kb|Fd/s  
        .DoubleStrikeThrough = False 
aQ?/%\>  
    End With \E72L5nJW  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat fTS5yb%  
        .LineSpacingRule = wdLineSpaceSingle }Gz~nf%  
        .Alignment = wdAlignParagraphCenter 4sF"6+%5d  
        .WidowControl = True `scR*]f1+  
        .KeepWithNext = False SPX$U5&  
        .KeepTogether = False 1 d}Z(My  
        .PageBreakBefore = False &C,'x4c"  
        .NoLineNumber = False =9O
^p@Q#W  
        .FirstLineIndent = CentimetersToPoints(0) :dl]h&C^  
        .OutlineLevel = wdOutlineLevelBodyText oTU!R ,  
         4B =7
:r  
        .LeftIndent = CentimetersToPoints(0) )t0$qd ]  
        .RightIndent = CentimetersToPoints(0) y&q*maa[  
        .FirstLineIndent = CentimetersToPoints(0) n'wU;!W9  
         (
[\  
        .CharacterUnitLeftIndent = 0 ,Ys %:>?  
        .CharacterUnitRightIndent = 0 BP'36?=Zo  
        .CharacterUnitFirstLineIndent = 0 "}u.v?HYz  
         %p ^wZtm  
        .LineUnitBefore = 1 \qdHX  
        .LineUnitAfter = 1 W=^#v  
         M -cTRd-i  
    End With 42_`+Vt]d7  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False
+Mo9kC  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll l&O
KBUG  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS 591>rh)  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True p Dx1z|@z  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese VRWAm>u  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True 0=@?ob7  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete Z&Pg"a?\  
    DoEvents *}F3M\  
LSa,1{  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") :)wy.r;N  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" Q]Y*K  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False jSh5!6O
  
    With ActiveDocument.Styles("QLNU英文摘要").Font #^lL5=  
        .NameFarEast = "宋体" !"HO]3-o  
        .NameAscii = "Arial" >kj`7GA  
        .NameOther = "Arial" bhTb[r  
        .Name = "Arial" N..yQ-6x?  
        .Size = 12 R&8Iz yM  
        .Bold = wdUndefined r?
+%?$  
        .Italic = wdUndefined 5{|7$VqPF  
        .Superscript = wdUndefined kO.%9wFbz  
        .Subscript = wdUndefined 0%9 q8M;  
    End With
-BrMp%C  
     2h|MXI\g  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat j"
ThEx0  
          8n#HFJ~  
        .LineSpacingRule = wdLineSpaceExactly @| M|+k3  
        .LineSpacing = 20 2iY3Lsna  
         gn8R[5:!V  
        .Alignment = wdAlignParagraphJustify \\PjKAsh  
         #|Y5,a,{  
        .WidowControl = False 1n >X[! 8x  
        .KeepWithNext = False Ygm`ZA y  
        .KeepTogether = False Y_;#UU689  
        .PageBreakBefore = False rn/ /%  
        .NoLineNumber = False 8p^bD}lN7  
         B6u /mo<  
        .OutlineLevel = wdOutlineLevelBodyText bR*-Ht+wd  
         l4D +Y  
        .LeftIndent = CentimetersToPoints(0) *xx'@e|<;  
        .RightIndent = CentimetersToPoints(0) 8##-EN;ag  
        .FirstLineIndent = CentimetersToPoints(0) @TLS<~  
         0Is,*Srr  
        .CharacterUnitLeftIndent = 0 wa<MRt W=  
        .CharacterUnitRightIndent = 0 !O+)sbd<  
        .CharacterUnitFirstLineIndent = 2 9_
# >aOqL  
         lGV0*Cji  
        .LineUnitBefore = 0 rHC>z7+z.  
        .LineUnitAfter = 1 J`peX0Stl  
          =)M/@T  
    End With c(3~0Yr  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False `YFtL  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll M>wYD\oeg  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS 3EV;LH L  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False 5A)2} D]  
    DoEvents /7aBDc-v  
$? m9")  
    Options.Pagination = True HmiR.e%<b  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." 5gb|w\N>  
    DoEvents *]ly0nP  
    ActiveDocument.Repaginate PlU*X8  
A;;fACF8e  
End Sub Pu7_ v  
%q/62f 7?  
_Z
p}?b5Q  

姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 [
=E  
9%8"e>~  

引用

引用第20楼newport93于06-14-2010 13:47发表的  : Vr)<\h  
h hG4-HD  
老五，I 服了U。 FK:;e lZ  
E=jNi  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 d:ARf  

xAqb\|$^