Dim bContinue As Boolean a4n5i.;  
NOmFQ)/ &  
Dim regEX As New RegExp "}vxHN#  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 "U/yq
 
#v; :K8  
Dim LastTitle0String As String, LastTitle0No As Long | {Q}:_/q  
Dim LastTitle1String As String, LastTitle1No As Long iJ`zWpj+{Q  
Dim LastTitle2String As String, LastTitle2No As Long Gk xtGe  
Dim LastTitle3String As String, LastTitle3No As Long "RTv[n!  
Dim LastTitle4String As String, LastTitle4No As Long gC(@]%  
Dim LastTitle5String As String, LastTitle5No As Long 45k.U$<|  
Dim LastTabelString As String, LastTableNo As Long W ",yq|  
Dim LastFigureString As String, LastFigureNo As Long U F$O@l  
Yv.7-DHNl  
Dim strSeperator As String -]t>'Q?  
7AlL,&+  
Sub ConvertWidth(fTEXT As String, rText As String) a(kY,<}  
        Selection.Find.ClearFormatting Hb/8X !=  
        Selection.Find.Replacement.ClearFormatting EQ.K+d*K][  
        Selection.Find.Wrap = wdFindContinue Rg^ps  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText a$\Bt_  
        DoEvents my0
iE:  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True R90#T6^  
End Sub nok-![  
4'TssRot@h  
Sub ClearDomain() U>sEFzBup  
        With Selection.Find 9h/Hy aN  
            .ClearFormatting I4KE@H"%7  
            .Replacement.ClearFormatting |h&Z.  
            .Wrap = wdFindContinue H>

o \C  
            Me.txtStatus.Text = "清除所有域代码"  !#zO%  
            DoEvents O`5hjq#  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False `"o{MaFA  
        End With X]o"4#CQIX  
End Sub  /PTq.  
yy+:x/(N[  
Private Sub cmdCheck_Click() Bw
rX.!M  
    bContinue = True t)= dKC  
    Dim NoSeries1(1 To 16) As String o=6 <?v7  
    Dim NoSeries2(1 To 16) As String \_YDSmjy  
    Dim NoSeries5(1 To 16) As String ?L0|$#Iw  
    Dim NoSeriesRM(1 To 16) As String ^$X|Lq  
    Dim paraTotal As Long, ParaText As String ksTK'7*  
    Dim ttString As String, ttNo As String B*t1Y<>x  
     lF t^dl^  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long HYL['B?Wid  
4;Vi@(G)  
    Me.txtStatus.Visible = True U1(cBY  
    Me.lbParaType.Visible = True
SSq4KFO1  
    Me.cmdCheck.Enabled = False GG"6O_  
     [b_qC'K[  
    
@1xIph<z  
     GS7'pTsYH  
    
`F]  
    Dim ParaType As String, rText As String !^o{}*]Pi  
     }1%%`  
    Selection.WholeStory nSRNd A  
    Selection.NoProofing = True YrYmPSb=  
     3.1%L"r[)  
    tm1 = Now `sDLxgwI  
     3 NFo=Z8  
        ActiveWindow.View.Type = wdNormalView RB6Q>3g  
     U#&+n-n pO  
    NoSeries1(1) = "一" iXq*EZb"R  
    NoSeries1(2) = "二" _90<*{bt.  
    NoSeries1(3) = "三" s4QCun~m  
    NoSeries1(4) = "四" %'X~9Pvi  
    NoSeries1(5) = "五" Lz!JLiMEET  
    NoSeries1(6) = "六" {pA&Q{ ^  
    NoSeries1(7) = "七" Ud7 Z7?Ym  
    NoSeries1(8) = "八" ioEjbqD<  
    NoSeries1(9) = "九" 3@:O1i  
    NoSeries1(10) = "十" ]s!id[j
 
    NoSeries1(11) = "十一" q!W=U8`  
    NoSeries1(12) = "十二" )+DDIq  
    NoSeries1(13) = "十三" 7&D)+{g  
    NoSeries1(14) = "十四" ?z2!?  
    NoSeries1(15) = "十五" X%iJPJLza  
    NoSeries1(16) = "十六" ?rA3<j  
     7t1as.  
    NoSeries2(1) = "㈠" JPHM+3v  
    NoSeries2(2) = "㈡" i"xV=.  
    NoSeries2(3) = "㈢" {> <1K6t  
    NoSeries2(4) = "㈣" #kh:GAp]  
    NoSeries2(5) = "㈤" V]GF
53D  
    NoSeries2(6) = "㈥" D/JSIDd  
    NoSeries2(7) = "㈦" t\}_WygN  
    NoSeries2(8) = "㈧" )8oN$20  
    NoSeries2(9) = "㈨" S^;;\0#NK  
    NoSeries2(10) = "㈩" C"$~w3A k  
     G&@d J &B  
    NoSeries5(1) = "①" vCNq2l^CW  
    NoSeries5(1) = "②" JU.!<  
    NoSeries5(3) = "③" I~^Xw7  
    NoSeries5(4) = "④" ^d@2Y0h
H  
    NoSeries5(5) = "⑤" xcn~KF8  
    NoSeries5(6) = "⑥" !v(^wqna\  
    NoSeries5(7) = "⑦" >rJ**y
 
    NoSeries5(8) = "⑧" |>[qC O  
    NoSeries5(9) = "⑨" 00{a}@n  
    NoSeries5(10) = "⑩" #C~ </R%  
     H%etYpD  
     Pouo# 5  
    NoSeriesRM(1) = "I" X6T[+]Gc  
    NoSeriesRM(2) = "II" 9X,iQ  
    NoSeriesRM(3) = "III" `SOQPAnK+;  
    NoSeriesRM(4) = "IV" h"/'H)G7_&  
    NoSeriesRM(5) = "V" ?@7!D8$9  
    NoSeriesRM(6) = "VI" ^*.+4iHx  
    NoSeriesRM(7) = "VII" _RbM'_y+E  
    NoSeriesRM(8) = "VIII" tTF<DD}8  
    NoSeriesRM(9) = "IX" IC(:RtJ  
    NoSeriesRM(10) = "X" J@"UFL'^  
    NoSeriesRM(11) = "XI" `<g6^P  
    NoSeriesRM(12) = "XII" z&B9 Yu4M7  
    NoSeriesRM(13) = "XIII" \I-e{'h  
    NoSeriesRM(14) = "XIV" {M7`"+~w  
    NoSeriesRM(15) = "XV" o"FR%%  
    NoSeriesRM(16) = "XVI" QqRF?%7q"q  
     D9NQ3[R 9  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) '7/
F]S0K  
     \#WWJh"W  
    If i = vbNo Then >* opEI+  
        Exit Sub em5~4;&'  
    End If ;]b4O4C\  
     Dy>6L79G  
    If Me.chkSuper.Value Then tW94\3)1  
        Me.txtStatus.Text = "检查修改所有的上标格式" 5!cp^[rGL  
     c~O Lr  
        CheckSuperScript >3pT).wH|M  
         @}:E{J#g  
    End If M@P%k`6C  
     RwYFBc  
    If Me.chkStyle.Value Then :WX OD  
        Me.txtStatus.Text = "设置样式，请稍候...."
^yqRa&  
        DoEvents &3;"$P  
        CeateOrModifyStyle /zb/am1#  
    End If 1KbZ6Msy  
     YM6 J:89  
     ^)I}#  
     /}J_2  
    ClearDomain )QRT/, ;c  
         TET=>6  
     @x !,iT  
     |Olz h63k:  
    If Me.chkLIST.Value Then 2K{'F1"RM  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" nlI3|5  
     1G.?Y3DC<  
        ConvertListToOrdinary /CMgWGI  
    End If \HkBp&bqK  
     K*{RGE  
     7(uz*~Z?`0  
    Dim pType As String, trimpTEXT As String [z ]P5  
    If Me.chkNum.Value = True Then rsLkH &aM  
        Me.txtStatus.Text = "转换全角数字形式为半角" U#] J5'i  
        ConvertWidth "１", "1" ,ms
P(*qoI  
        DoEvents #AC T&J  
        ConvertWidth "２", "2" Wh)  
        DoEvents U\B 9Ab  
        ConvertWidth "３", "3" e^3D`GA  
        DoEvents ]1XtV<  
        ConvertWidth "４", "4" ~[dL:=?c  
        DoEvents <
#4""FO*  
        ConvertWidth "５", "5" 0nL #-`S  
        DoEvents 4L ]4WVc  
        ConvertWidth "６", "6" 8)=(
eI$  
        DoEvents aL*MCgb'  
        ConvertWidth "７", "7" pgiZA?r*<  
        DoEvents |JF,n~n  
        ConvertWidth "８", "8" @eeI4Jz  
        DoEvents Y]KHC
Y  
        ConvertWidth "９", "9" /9&!
u )+  
        DoEvents > Xh=P%  
        ConvertWidth "０", "0" J(@" 7RX  
        DoEvents ZSwuEX  
        ConvertWidth "ａ", "a" WW{_D  
        DoEvents =}kISh  
        ConvertWidth "ｂ", "b" A%?c1`ZxF  
        DoEvents dKCl#~LAI'  
        ConvertWidth "ｃ", "c" U;4i&=.!  
        DoEvents ?upd  
        ConvertWidth "ｄ", "d" %8|lAMTY7/  
        DoEvents Y0krFhL'x0  
        ConvertWidth "ｅ", "e" t&EizH$  
        DoEvents VFx[{Hy  
        ConvertWidth "ｆ", "f" {:*G/*1[.  
        DoEvents f<i K%  
        ConvertWidth "ｇ", "g" CHZ/@g c  
        DoEvents U5TkgHN{y  
        ConvertWidth "ｈ", "h" TWGn:mi  
        DoEvents ygj%VG  
        ConvertWidth "ｉ", "i" wpt$bqs|1  
        DoEvents c0o Z7)*}  
        ConvertWidth "ｊ", "j" @&`^#pok  
        DoEvents VevG 64o  
        ConvertWidth "ｋ", "k" R9 Ab.t  
        DoEvents yj#FO'UY  
        ConvertWidth "ｌ", "l" gd]S;<J h  
        DoEvents \8!CKnfs  
        ConvertWidth "ｍ", "m" yo-> mD  
        DoEvents o$l8"Uv  
        ConvertWidth "ｎ", "n" R]e&JoY  
        ConvertWidth "ｏ", "o" DbLo{mFEIj  
        ConvertWidth "ｐ", "p" y6tqemz  
        ConvertWidth "ｑ", "q" - _8- i1?  
        ConvertWidth "ｒ", "r" J`)/\9'&&  
        ConvertWidth "ｓ", "s" UPr& `kaJ  
        ConvertWidth "ｔ", "t" q~ ZUtF  
        ConvertWidth "ｕ", "u" =}Zl E  
        ConvertWidth "ｖ", "v" &9)/"  
        ConvertWidth "ｗ", "w" ?d%{-  
        ConvertWidth "ｘ", "x" i%.k{MY  
        ConvertWidth "ｙ", "y"  YTZ :D/  
        ConvertWidth "ｚ", "z" _u^3uzu  
        ConvertWidth "Ａ", "A" u"(NN9s  
        ConvertWidth "Ｂ", "B" D (8Z90  
        ConvertWidth "Ｃ", "C" EyVu-4L:#  
        ConvertWidth "Ｄ", "D" Hv/5)  
        ConvertWidth "Ｅ", "E" {<@ud0A:\  
        ConvertWidth "Ｆ", "F" kP+,x H)1  
        ConvertWidth "Ｇ", "G" > ^zNKgSQ  
        ConvertWidth "Ｈ", "H" W_E^+Wl@  
        ConvertWidth "Ｉ", "I" fdX|t"oz  
        ConvertWidth "Ｊ", "J" Khi;2{`  
        ConvertWidth "Ｋ", "K" $Wj{B@k  
        ConvertWidth "Ｌ", "L" hU-FSdR  
        ConvertWidth "Ｍ", "M" 5,##p"O(  
        ConvertWidth "Ｎ", "N" 3N- '{c6]U  
        ConvertWidth "Ｏ", "O" =pi,]m  
        ConvertWidth "Ｐ", "P" q4w]9b/  
        ConvertWidth "Ｑ", "Q" )Sb-e(sl  
        ConvertWidth "Ｒ", "R" MD;Z UAX<  
        ConvertWidth "Ｓ", "S" Z!~_#_Ugl  
        ConvertWidth "Ｔ", "T" l
+>Y
  
        ConvertWidth "Ｕ", "U" XPqGv=CN  
        ConvertWidth "Ｖ", "V" ^h2+""  
        ConvertWidth "Ｗ", "W" {l!{b1KJ  
        ConvertWidth "Ｘ", "X" VgIk'.  
        ConvertWidth "Ｙ", "Y" ,7bhUE/VB  
        ConvertWidth "Ｚ", "Z" VBPtM{g  
        ConvertWidth "^l", "^p" }|2A6^F
H.  
        ConvertWidth "（", "(" ,
cS#  
        ConvertWidth "）", ")" ]r3/hDRDL@  
     COu5Tu^  
    End If }xt^}:D  
|v8hg])I+  
    With ActiveDocument )1B?<4  
        Dim tbl As Table C]8w[)d[`;  
        For Each tbl In .Tables K mH))LIv  
            tbl.Rows.Alignment = wdAlignRowCenter _b&26!gl  
            tbl.Range.Font.NameFarEast = "楷体" E56  
            tbl.Range.Font.NameAscii = "Times New Roman" *cCx]C.~  
            tbl.Range.Font.Size = 10.5 (}6\_k[}m  
        Next %q3`k#?<  
        Set tbl = Nothing &U?4e'N)T  
    End With _q#pEv  
     B!,&{[D  
     @@U  
    With ActiveDocument dWiNe!oY2  
         XP o#qT8n  
        For i = 1 To .TablesOfContents.Count ZCj1Cz]"l<  
            .TablesOfContents(i).Delete hBnUpYec  
        Next d]E={}qo&  
         \By_mw  
         ]?H12xz  
         YR0AI l:L  
        paraTotal = .Paragraphs.Count tt2 S.j  
        paraCounter = 1 ^*`#+*C  
         \ui'~n_t]  
        LastTitle0No = 0 X"d"a={]  
        LastTitle1No = 0 l$\B>u,>  
        LastTitle2No = 0 RHn3\N  
        LastTitle3No = 0 m4oj1h_4  
        LastTitle4No = 0 J-'XT_k:iM  
        LastTableNo = 0 -*KKrte  
        LastFigureNo = 0 y[85eM  
         Q"u2<  
        Dim Sec As Long qMVuFwPhi  
         B-w`mcqp$  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) 7r'_p$  
        If Sec = 0 Then h[iO'V
q  
            Exit Sub '_
4apyq|  
        End If r u2M"]T  
         g$#A'Du  
        k = 0 ~mt{j7  
        Do While (paraCounter < paraTotal) And bContinue ]58~b%s  
            k = k + 1 (>A#|N1U  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then Vf~-v$YI  
                Exit Do aY?VP?BL  
            End If "Zhh>cz  
            paraCounter = paraCounter + 1 \3^V-/SJf  
            If k Mod 20 = 0 Then c}n66qJF5  
                Me.lbCounter.Caption = paraCounter h M7 SGEV  
                DoEvents +@!\3a4!  
            End If 4hxP`!<  
        Loop ;f[##=tm  
         )'f=!'X  
         P HOngn  
        Do While (paraCounter < paraTotal) And bContinue ejyx[CF  
             y*X.DS 1(w  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text)
Hy\q{  
            ShapeHeight = 0 I*Dj@f`  
            ShapeWidth = 0 (nq""kO6'  
           *9r(lmrfj  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth 8CRbo24"s  
             Uv>e :U7;  
            Select Case ParaType }"WovU{*s  
                Case "【】表格内容" us?q^>u  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" %.f%Q?P  
                Case "章" Zl&ED{k<  
                    LastTitle0No = LastTitle0No + 1 Z]Udx  
                    '新一章开始，复位其下属标题编号 zn^7#$fC  
                    LastTitle1No = 0 8%u|[Si;  
                    LastTitle2No = 0 lMu9Dp  
                    LastTitle3No = 0 0]*W0#{Zj  
                    LastTitle4No = 0 ysK J=  
                     $8U$.~v  
                    k = Val(ttNo) b3[[ Ah-  
                    If k = 0 Then '非数字编号章节 4(P<'FK $  
                        If ttNo <> NoSeries1(LastTitle0No) Then eL"'- d+]  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString HAI)+J   
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText n:wAxU  
                        End If WO9vOS>  
                    Else Gr&e]M[l  
                        If Val(ttNo) <> LastTitle0No Then AN:s%w2  
                            rText = "第" & LastTitle0No & ttString z(Uz<*h8  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText lJ=EP.T  
                        End If &x\)] i2f  
                         :3R3>o6m  
                    End If =>c0NT  
                     qGV(p}$O  
                    '章段落设置 0lniu=xmQ-  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 `3ha~+Goo!  
                    .Paragraphs(paraCounter).Style = "QLNU章节" ]5QXiF8`  
                    .Paragraphs(paraCounter).Range.Select U4-RI]Cpf  
                    Selection.EndKey unit:=wdLine d9S?dx  
                    tc = Replace(rText, vbCr, "") `lOW7Z}  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False M0lJyzJ  
                Case "一级标题" $mKExW  
                    LastTitle1No = LastTitle1No + 1 u(8{5"
C  
                    '新一级标题开始，复位其下属标题编号 k6z ]-XG  
                    LastTitle2No = 0 K<::M3eQ  
                    LastTitle3No = 0 OqMdm~4B!j  
                    LastTitle4No = 0 k"gm;,`  
                     *q=\
e9  
                    If ttNo <> NoSeries1(LastTitle1No) Then hy;V~J#  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString /v<Gt%3X  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText iR9duP+  
                    End If h>*3i#  
                   4Ol1 T(J#  
                     ob/<;SrU<  
                    '一级标题段落设置  格式：一、标题内容 Ru#pJb(R  
                    .Paragraphs(paraCounter).Range.Text = rText 6c(b*o  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" FIfLDT+Wh  
                    .Paragraphs(paraCounter).Range.Select Q.eD:
@%iE  
                    Selection.EndKey unit:=wdLine D:j5/ *  
                    tc = Replace(rText, vbCr, "") f?=0Wzb  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False V6d,}Z+"z'  
                Case "二级标题" A9@coP5  
                    LastTitle2No = LastTitle2No + 1 zj2y=A|Y  
                    '新二级标题开始，复位其下属标题编号 6 l 2O>V  
                    LastTitle3No = 0 PPV T2;9  
                    LastTitle4No = 0 %pOxt<  
                     Wd!Z
`,R  
                    If ttNo <> NoSeries1(LastTitle2No) Then RAu(FJ  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString s 7wA3|9  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText *a\x!c"  
                    End If rp<
~=X  
                     9]
ZfSn)  
                    '二级标题段落设置 格式：(一)、标题内容 eP:\\; ;  
                    .Paragraphs(paraCounter).Range.Text = rText J5jI/
P  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" LNR1YC1c  
                     $Bc3| `K1v  
                    .Paragraphs(paraCounter).Range.Select w/ZP.B  
                    Selection.EndKey unit:=wdLine `a[fC9  
                    tc = Replace(rText, vbCr, "") b|k^   
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False Y
KU|D32  
                 "2-D[rYZ  
                Case "三级标题" r ^*D8  
                    LastTitle3No = LastTitle3No + 1 X=f%!
  
                    '新三级标题开始，复位其下属标题编号 {g[kn^|  
                    LastTitle4No = 0 :oW 16m1`  
                     QR(;a:  
                    If Val(ttNo) <> LastTitle3No Then 1>\V>g
9  
                            rText = LastTitle3No & ". " & ttString f,6V#,  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText h { Jio>  
                         H)Me!^@[D  
                    End If E>-I |X"L1  
                    '三级标题段落设置 格式：1. 标题内容 C:sgT6  
                    .Paragraphs(paraCounter).Range.Text = rText p ]jLs|tat  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" N.Q}.(N0  
                    .Paragraphs(paraCounter).Range.Select G?LC!9MB  
                    Selection.EndKey unit:=wdLine K/Y
"oQ2  
                    tc = Replace(rText, vbCr, "") NQuqM`LSQ  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False A =Z$H2  
                Case "四级标题" 5c}loOq  
                    LastTitle4No = LastTitle4No + 1 0S>L0qp  
                     }BT0dKx  
                    If Val(ttNo) <> LastTitle4No Then wsQuJrG  
                            rText = "(" & LastTitle4No & "). " & ttString f$5pp=s:n  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText gzvgXZ1q"  
                     pN9U1!|uam  
                    End If Tr}XG  
                    '四级标题段落设置 格式：(1). 标题内容 &+k*+  
                    .Paragraphs(paraCounter).Range.Text = rText m*B4a9f  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" jHE^d<=O^  
                    .Paragraphs(paraCounter).Range.Select EQpF:@_  
                    Selection.EndKey unit:=wdLine AZik:C"Q  
                    tc = Replace(rText, vbCr, "") x<rS2d-Y  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False [+W<;iep  
                 ;<T,W[3J  
                Case "表格标题" Yc6.v8a  
                    LastTableNo = LastTableNo + 1 icIWv  
                     C .B=E"e  
                    If ttNo <> CStr(LastTableNo) Then f>Ua7!b  
                            rText = "表" & LastTableNo & ". " & ttString ; }T+ImjA  
                            ErrMsg.AddItem "表格编号错误：" & ParaText {0+WVZ4u  
                   y<nPZ<h  
                    End If pZ*%zt]-a  
                     nvwf!iU6  
                    '表格名称段落设置 格式：表1. 表格名称 UEx<;P8rP  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" nTtEv~a_n  
                    xe = Replace(rText, vbCr, "") qgfP6W$  
                    .Paragraphs(paraCounter).Range.Select ojm IEzsz  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 "Vl4=W)u  
                    Selection.Range.Text = xe a @3s71  
                    Selection.EndKey WPpO(@sn  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False ,gG RCp  
                 5wAKA`p"z  
                Case "表格首行" P'}B5I~  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" jy>?+hm?  
                Case "图片标题" r: >RH,  
                    LastFigureNo = LastFigureNo + 1 {fV$\^c  
                     ='+I dn#5  
                    If ttNo <> CStr(LastFigureNo) Then k$f2i,7'  
                            rText = "图" & LastFigureNo & ". " & ttString KTot40osj  
                            ErrMsg.AddItem "表格编号错误：" & ParaText !'[?cE
og  
                   kmu`sk"  
                    End If +03/A`PKrB  
                    '图片名称段落设置 格式：图1. 图名称 >/ A'G  
                    .Paragraphs(paraCounter).Range.Text = rText |w
#~v%w  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" GNrRc3dr$  
                    .Paragraphs(paraCounter).Range.Select CSW+UaE  
                    Selection.EndKey unit:=wdLine bd}[X'4d  
                    xe = Replace(rText, vbCr, "") `J03t\  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False Pe\Obd8d  
                Case "正文" &\cS{35  
                     '正文名称段落设置 {SXSQ'=  
                    .Paragraphs(paraCounter).Style = "QLNU正文" T fI OS]  
               Case "文献条目" S#yGqN0i  
                    With .Paragraphs(paraCounter) ,G="wI  
                        '.Range.Select I] [&*V1  
                        'Selection.ClearFormatting h*1T3U$  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” @VG@|BQWa  
                        .Style = "QLNU参考文献" aqQ+A:g  
                    End With [YODyf}M>\  
               Case "图表注解" D{y7[#$h$  
                    With .Paragraphs(paraCounter) Bvjsl  
                        .Range.Font.NameFarEast = "楷体" #M'V%^xP  
                        .Range.Font.NameAscii = "Times New Roman" /!;v$es S  
                        .Range.Font.Size = 9 '小5号字 ~9#x=nU:+V  
                         yVXVHCB  
                        .Alignment = wdAlignParagraphCenter `[}X_d 1A  
                        .LeftIndent = 0 ?fC9)s  
                        .RightIndent = 0 j6k"%QHf  
                        .FirstLineIndent = 0 ?GhMGpdMq  
                        .LineSpacing = 12 Wuk 8&P3  
                        .LineSpacingRule = wdLineSpaceExactly %*Mr ^=  
                        .LineUnitAfter = 0 UA~ 4O Q]  
                        .LineUnitBefore = 0 }hg2}g99  
                        .OutlineLevel = wdOutlineLevelBodyText |`o1B;lc  
                        .PageBreakBefore = False xqY'-Hom  
                        .RightIndent = 0 s>\^dtG7  
                        .WordWrap = True zd!%7 UP  
                        .LineUnitAfter = 0.5 ,3-^EfccW  
                         T"X]@9g^-  
                    End With #%E^cGfY  
                Case Else !m-`~3P#l,  
                    '不作处理 :HY =^$\  
            End Select k
kb+qo  
             'PFjZGaKR  
            '含有inlineshape的段落处理 (4ZO[Ae  
            If ShapeHeight > 30 Then O(=9&PRi  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 H-u SdT  
            End If $%31Gk[I  
             ;;Z'd@  
            If (ShapeWidth + ShapeHeight) > 150 Then rMjb,2*rC7  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" ns \I Y<Yo  
            End If ir{ 4k  
             r7?nHF  
            '段落计数器递 Oi^cs=}  
            paraCounter = paraCounter + 1 {29aNm  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter Pn.DeoHme  
            Me.txtStatus.Text = ParaText 1HAnOy0   
            DoEvents j[w=pF,o  
        Loop coPdyw'9&  
    End With 0QfDgDX  
     $X/'BCb  
    msg = "" H%rNQxA2 +  
     +%K~  
    For i = 0 To Me.ErrMsg.ListCount - 1 .b<W*4{j0H  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i)  #$2
/<  
    Next EH M59s|B  
     Qhc;Zl  
     #l: 1R&F  
     (^g XO  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg gCG#?f  
    Me.cmdCheck.Enabled = True /2/aMF(J  
    Me.txtStatus.Visible = True Kj3Gm>B<y  
    Me.lbParaType.Visible = False bE2O[B  
     emrA!<w!W  
    bContinue = False %t!S 7UD  
End Sub #Y   
m||9,z-  
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) I''n1v?N  
    Dim pTEXT As String ;]>)6  
     m]fUV8U  
    pTEXT = ChKRange.Text Z^4+ 88  
     ,tyPZR_  
    ParaType = "其它" -+Yark  
    TitleString = pTEXT ZbdGI@  
    TitleNo = "N/A" (/]#G8  
     w3>11bE  
    shpCounter = ChKRange.InlineShapes.Count h2Th)&Fb>  
    If shpCounter <> 0 Then 4~FRE)8  
        MaxShpHeight = 0: TotalShpWidth = 0 $Q'z9ghEg  
        For i = 1 To shpCounter 0
pEM0M  
            k = ChKRange.InlineShapes(i).Height L'aB/5_%  
            l = ChKRange.InlineShapes(i).Width k_1@?&3  
            If k > MaxShpHeight Then ly6zz|c5  
                MaxShpHeight = k 7(tsmP  
            End If HOPy& Fp  
            TotalShpWidth = TotalShpWidth + l kMnG1K  
        Next 5%fWX'mS  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then oZ tCx  
            Exit Sub GU@#\3  
        End If r`EjD}2d  
    End If f>ktv76  
     39P55B/o%  
    '空行 &zEBfr  
    If Len(pTEXT) <= 2 Then `0M6<e]C  
        Exit Sub ~UO}PI`C  
    End If );t+~YPS  
     q<z8P;oP^  
         i(cKg&+ktd  
    '是否为表格中的文字 =l* xM/S  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then |_8l9rB5ip  
        ParaType = "表格内容" >ZG$8y 'j  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) Xfqin4/jC  
        If k = 1 Then 9"gu>  
            ParaType = "表格首行" 9=T;Dxn  
        End If 2@2d |  
        Exit Sub M | "'`zc  
    End If '2<r{  
     ['pO=ho  
    '例外情况：脚注 1%N*GJlwJ  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then 2;:p H3  
        ParaType = "脚注" UXpp1/d|e  
        Exit Sub 4Nt4(3Kf  
    End If ]Z6? m  
     ;sAGTq  
    '例外情况：尾注 7'i{JPm  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then v;;3 K*c>  
        ParaType = "尾注" C|3Xz[k{  
        Exit Sub 2; ,8 u  
    End If "Z,T%]  
     J!5b~8`v  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then >,3
uu}s  
        ParaType = "页眉页脚" 6XU p$Pd(  
        Exit Sub ` Z5dRLrd  
    End If o}/|"(K   
     s>L
.V2!$0  
     x`@`y7(  
    With regEX l*&N<Yu  
        .Global = True h| wdx(4  
         Mz2TwU_  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" S!z3$@o  
        If regEX.Test(pTEXT) Then \ ya@9OA  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") g.hYhg'KUh  
            TitleString = regEX.Replace(pTEXT, "$3") rQ]JM  
            TitleNo = regEX.Replace(pTEXT, "$1") +ls`;f  
            ParaType = "章" M")/6PH8  
            Exit Sub Vym0|cW  
        End If g\ .$4N  
         Jkbeh .  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" ~ *"iLf@,  
        If regEX.Test(pTEXT) Then e_KfnPY   
            ParaType = "一级标题" URbB2 Bi  
            regEX.Execute (pTEXT) xYYa%PhIC  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") *xsBFCR U  
            TitleString = regEX.Replace(pTEXT, "$3") gSw<C+  
            TitleNo = regEX.Replace(pTEXT, "$1") ysIhUpd  
            Exit Sub {R@V  
        End If KT<$E!@  
         ZBY2,%nAo  
        '全角或半角括号中的数字 )&>W/56/  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" @d 7V@F0d  
        If regEX.Test(pTEXT) Then @Bhcb.kbq  
            ParaType = "二级标题" K@cWg C  
            regEX.Execute (pTEXT) YOGj__:  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") 7/QK"0  
            TitleString = regEX.Replace(pTEXT, "$5") #m?)XB^_  
            TitleNo = regEX.Replace(pTEXT, "$2") OM\1TD/-  
            Exit Sub sw$uZ$$~#  
        End If AL3iNkEa  
         @/^mFqr2  
        '阿拉伯数字  1. 2. LOfw #+]d  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" <a
nKw|  
        If regEX.Test(pTEXT) Then   P3|s}&  
            ParaType = "三级标题" r#)1/`h  
            regEX.Execute (pTEXT) _]4p51r0  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 HNBmq>XDc  
            TitleString = regEX.Replace(pTEXT, "$3") F
5/,S   
            TitleNo = regEX.Replace(pTEXT, "$1") >JS^yVk  
            Exit Sub 0^o/cSF  
        End If >|kD(}Axf  
         C&vi7Yx  
        '全角或半角括号中的阿拉伯数字 1eshuL  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" y<Xu65  
        If regEX.Test(pTEXT) Then -/{FGbpR;  
            ParaType = "四级标题" C]5 kQ1Og  
            regEX.Execute (pTEXT) x:!s+q` s  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") wDW%v@  
            TitleString = regEX.Replace(pTEXT, "$5") Bz-jy.  
            TitleNo = regEX.Replace(pTEXT, "$2") zEW+1-=)+7  
            Exit Sub ;zD4#7=  
        End If !1=OaOT  
         Y01!D"{\  
        '表格名称 '&#gs P9  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" 2 Kjd!~Z$  
        If regEX.Test(pTEXT) Then o#f"wQH;p  
            ParaType = "表格标题" JRFUNy1+e1  
            regEX.Execute (pTEXT) `{Q'iydU  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) 3s%ND7!/  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) G(#t,}S}@  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) *OFG3uM  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 fpo{`;&F  
            Exit Sub z_y cH%p  
        End If n^ fUKi*;  
         X`Q+,tx$  
        '图片名称 YuknZ&Q  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" W>d)(  
        If regEX.Test(pTEXT) Then vZTXvdF  
            ParaType = "图片标题" HV/:OCK  
            regEX.Execute (pTEXT) a0sz$u  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") AK&>3D  
            TitleString = regEX.Replace(pTEXT, "$3") h`1<+1J9  
            TitleNo = regEX.Replace(pTEXT, "$1") Hh=fv~X  
            Exit Sub MAFdJ+n#  
        End If x$BNFb%I1  
         Wmcd{MOS  
        '参考文献 Yn="vpM1  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 -W('^v_*  
        If regEX.Test(pTEXT) Then MU a[}?  
            ParaType = "文献条目" yFDeYPZP  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") Nv36#^Z  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") .aY$-Y<  
            Exit Sub ,jis@]:  
        End If TQ4L~8  
         Y 2ANt w@  
        prfx = Left(pTEXT, 2) ]Rxo}A  
        If prfx = "注：" Or prfx = "注:" Then lNg){3  
            ParaType = "图表注解" /^nIOAeE  
            Exit Sub  ,/b!Xm:  
        End If JJ?rVq1g  
         fy"}# 2  
         pIcg+~  
        ParaType = "正文" b}0h()v  
         Sf*v#?  
    End With HBE[q#  
End Sub f2IH2^)P  
\'j(@b,  
Sub ConvertListToOrdinary() >iOf3I-ATt  
    Dim st As Paragraph /v5A)A$7  
    With ActiveDocument 65~E<)UJ  
        For i = .Paragraphs.Count To 1 Step -1 l| gi2~ %Y  
            Set st = .Paragraphs(i) zQY ,}a  
            lst = st.Range.ListFormat.ListString YQG l8E'  
            If lst <> "" Then 70R6:  
                st.Range.ListFormat.RemoveNumbers g_syGQ\  
                st.Range.InsertBefore lst & " " ?cRF;!o"  
            End If B1nm?E 0i  
        Next $]E+E.P  
    End With j%nN*ms  
    Set st = Nothing kpn|C 9r  
End Sub [%dsq`b#  
2n@`Og_0  
Private Sub UserForm_Activate() pK3A/ry<  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" }BlyEcw'aN  
    Me.lbTotal.Font.Bold = True CipDeqau2  
    Me.txtStatus.Visible = False .@OQ$D<  
    Me.cmdCheck.Enabled = True `K.B`  
+X^GS^mz  
End Sub !9/`PcNIpy  
C'$}{%Cc@$  
~bb6NP;'L  
Sub CheckSuperScript() ]}rNxT4<  
    Selection.Find.ClearFormatting )f:i4.M  
    Selection.Find.Replacement.ClearFormatting 2\ 1+M)  
    With Selection.Find vNs%e/~vj  
        .Text = "[【\[［〖](*)[】\]〗］]" Zc~ 7R`v7}  
        .Replacement.Text = "[\1]" c HFW"g78  
        .Replacement.Font.Superscript = True )>FAtE   
        '.Replacement.Font.Color = wdColorBlue ~-7/9$ay5  
        .Forward = True G:$
kGzhJ  
        .Wrap = wdFindContinue `X@\Zv=}  
        .FORMAT = True SQcic]Ep  
        .MatchCase = False L4/ns@e  
        .MatchWholeWord = False lUEbxN  
        .MatchByte = False a`w=0]1&*  
        .MatchAllWordForms = False a4^hC[a  
        .MatchSoundsLike = False X|hYZR  
        .MatchWildcards = True ,#ZPg_x?1  
    End With iLSUz j`  
    Selection.Find.Execute Replace:=wdReplaceAll R'c dEo
y  
End Sub K.}jOm  

2w7$"N  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) -@w,tbc$  
    bContinue = False :wIA.1bK}  
    Set regEX = Nothing ?Xypn#OPt  
End Sub wz:e\ !  
V[/9?5pM  
Sub CeateOrModifyStyle() u$%C`v
>  
' # `E  
' u$aK19K/  
Dim stl As Style BNdq=|,+"  
     6P _+:Mf  
    Options.Pagination = False -6- sI  
     n&;JW6VQS  
    On Error Resume Next LvG$J*  
    For Each stl In ActiveDocument.Styles M,H8ZO:R  
        stl.Delete "H(3pl.  
    Next Ly2,*\7  
    On Error GoTo 0 2T2<I/")O  
     n?r8ZDJ'  
    Set stl = Nothing PDD2ouv4  
     a^J(TW /  
    DoEvents }5vKQf  
    On Error Resume Next $GRw
k>N  
     %;QK5L 
 
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph _D4qnb@  
     a[~[lk=7  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph j "<?9/r  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph .2@T|WD!Ah  
     PM[W7gT  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph sX~E ~$_g  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph s|<n7 =J  
     Q*#Lr4cm{  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph cwzkA,e@  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph {"Sv~L|J;  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph
?`?Tg&W  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph _$>);qIP4  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph ?{TWsuP7  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph /(s |'"6  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph Lbz/M_G  
     .Bl:hk\  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph #VX]tr
h,  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph 1w7tRw  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph Sn
FyK5  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph qA7,txQ:  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph Qt4mg?X/  
     aYa`ex  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph |=IJ^y(x|  
    On Error GoTo 0 _ )5E=  
    DoEvents @3c'4O   
     75Z|meG~  
    'BaseStyle )b1hF  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False kQ\ $0=6N9  
    With ActiveDocument.Styles("BaseStyle").Font wGLMLbj5  
        .NameFarEast = "宋体" ZXQ5fBx  
        .NameAscii = "Times New Roman"  ?pEPwc  
        .NameOther = "宋体" ( 9%?ik  
        .Size = 10.5 ; j
.d  
        .Bold = wdUndefined q&@s/k  
        .Italic = wdUndefined 8wkhbD|;  
        .Subscript = wdUndefined ZUHW*U.  
        .Subscript = wdUndefined &{8:XJe*,%  
         W've
kuM  
        .Underline = wdUnderlineNone 9]=J+ (M  
        .UnderlineColor = wdColorAutomatic }V]b4t  
        .StrikeThrough = False RM_%
u=jC  
        .DoubleStrikeThrough = False 85&7WAco"B  
         1r>]XhRFZ  
        .Outline = False _\+]/rY9o  
        .Emboss = False _?"y1L.  
        .Shadow = False q#AEu xI1  
        .Hidden = False KU $,{Sn6@  
        .SmallCaps = False j%'2^C8  
        .AllCaps = False 8+w*,R
y`  
        .Color = wdColorAutomatic tdRvg7v,N%  
        .Engrave = False QYo04`Rl  
        .Scaling = 100 %l&oRBC  
        .Kerning = 1 ^O7sQ7V"f=  
        .Animation = wdAnimationNone x@43ZH_  
        .DisableCharacterSpaceGrid = False
OlyW/hd  
        .EmphasisMark = wdEmphasisMarkNone dnD@BQ  
    End With %_s)Gw&sq  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat #>aq'47j  
        .LeftIndent = 0 [6l0|Y  
        .RightIndent = 0 kNWT
M%u9  
        .SpaceBefore = 0 > .NLmzUX  
        .SpaceBeforeAuto = False Y }VJ4!%U
 
        .SpaceAfter = 0 [G8EX3  
        .SpaceAfterAuto = False ZOPK  
         Rf4K Rhi  
        .LineSpacingRule = wdLineSpaceSingle O)&W0`VY  
        .Alignment = wdAlignParagraphJustify |Yw k  
         afX|R  
        .WidowControl = False vcQl0+
&  
        .KeepWithNext = False 
>C_G~R  
        .KeepTogether = False [(*Eg!?W
=  
        .PageBreakBefore = False u=nd7:bv  
        .NoLineNumber = False 7#j.yf4  
         Wx-0Ip'9  
        .FirstLineIndent = CentimetersToPoints(0) zl8M<z1`1  
        .OutlineLevel = wdOutlineLevelBodyText f
eyc  
        .CharacterUnitLeftIndent = 0 Nxt:U{`T'  
        .CharacterUnitRightIndent = 0 5?H8?~&dz  
        .CharacterUnitFirstLineIndent = 0 )e0k r46  
        .LineUnitBefore = 0 }d}sC\>U  
        .LineUnitAfter = 0 9cB+x`+Lu  
        .AutoAdjustRightIndent = True >U*p[FGW  
        .DisableLineHeightGrid = True [#Apd1S_  
         If'2 m_  
        .FarEastLineBreakControl = True -51LF=(!L  
        .WordWrap = True #:BkDidt2v  
        .Hyphenation = False ZbT$f^o}M]  
         $#f_p-N  
        .HangingPunctuation = True {?lndBP<  
        .HalfWidthPunctuationOnTopOfLine = True >6Uc|D  
        .AddSpaceBetweenFarEastAndAlpha = True wyX3qH  
        .AddSpaceBetweenFarEastAndDigit = True /Yi4j,8!|  
        .BaseLineAlignment = wdBaselineAlignBaseline -'qVnu  
    End With mTu>S  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False RP{0+  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll T=YVG@fm?  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese A^).i_&#  
    ActiveDocument.Styles("BaseStyle").NoProofing = False 7Q|<6210  
     jA9uB.I,"b  
    '一级标题题样式 ^dLu#,;  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 8:
c=h/fa  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" {K+f&75  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False &u& WP  
    With ActiveDocument.Styles("QLNU一级标题").Font ]CLM'$  
        .NameFarEast = "黑体" K!\v?WbF  
        .NameAscii = "Arial Black" QSF0?Puf  
        .NameOther = "黑体" [(Z(8{3i  
        .Name = "黑体" AjEy@/  
        .Size = 16              '三号 f$:Y' $Z1  
        .Bold = True &=)O:J
fa  
        .Italic = wdUndefined `oNJ=,p  
        .Subscript = wdUndefined
39O rY  
        .Superscript = wdUndefined z0LspRaz  
    End With X7-*`NI^  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat G 3U[)("  
         =cV|o]  
        .LeftIndent = CentimetersToPoints(0) _Vp"G)1Y  
        .RightIndent = CentimetersToPoints(0) 6HBDs:   
        .FirstLineIndent = CentimetersToPoints(0) O'(Us!aq  
         NUVKAAgMX  
        .LineSpacingRule = wdLineSpaceSingle Qqg.z-G%.  
        .Alignment = wdAlignParagraphCenter 4r4 #u'Om  
         ~.3v\Q  
        .WidowControl = True zB0*KgAn{  
        .KeepWithNext = True a6vej  
        .KeepTogether = True ?l%4 P5  
        .OutlineLevel = wdOutlineLevelBodyText d`rZgY  
         BhDg\oxZ  
        .LineUnitBefore = 0.5 P`@Rt  
        .LineUnitAfter = 0.5 `l'T/F\  
    End With s1wlOy  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False 55s5(]`d  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll t<fah3hl  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese P9 HKev?y  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True 0fX` >-X  
    DoEvents 8>WA5:]v  
     {E%c%zzQ  
    '二级 |*JMPg?zI  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") D|(\5]:R  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" 2F*>&n&Db7  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False rP]|`*B  
    With ActiveDocument.Styles("QLNU二级标题").Font J|{50?S{^  
        .NameFarEast = "黑体" KE"6I  
        .NameAscii = "Arial Narrow" 4o M~  
        .NameOther = "黑体" S||W  
        .Name = "黑体" <o|fH~?X  
        .Size = 15        '小三号 Nzgi)xX0HX  
        .Bold = False 1_S]t[?I/  
        .Outline = False kCEuzd=$V  
        .Italic = wdUndefined @4UX~=:686  
        .Subscript = wdUndefined ^z!=,M<+{  
        .Superscript = wdUndefined kCD]  &  
    End With n[e C  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat (bv{17K  
        .LeftIndent = CentimetersToPoints(0) &c!6e<o[p  
        .RightIndent = CentimetersToPoints(0) +&)/dHbL`]  
        .FirstLineIndent = CentimetersToPoints(0) RK- bsf  
         v)*MgfS  
        .LineSpacingRule = wdLineSpaceSingle U9T}iI  
        .Alignment = wdAlignParagraphLeft ByP<-Deh  
         U&6A)SW,k  
        .WidowControl = True v#{Nh8n  
        .KeepWithNext = True OW rQKd  
        .KeepTogether = True ?=4oxPe  
        .PageBreakBefore = False k^|z.$+  
        .OutlineLevel = wdOutlineLevelBodyText &,<,!j)Jr  
         w( SY  
        .LineUnitBefore = 0.5 IrZ\;!NK  
        .LineUnitAfter = 0.5 -){6ynqv  
         bvh#Q_  
    End With >3D1:0Sg  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False 'gor*-o:wu  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll ``<#F3  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese R.WB.FP  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True 3'x>$5W  
    DoEvents |Q)mBvvN  
     >)C7IQ/  
    '三级标题样式 _+9i  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") p
Le4dz WA  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" &'i_A%V  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False " {~FEx4  
    With ActiveDocument.Styles("QLNU三级标题").Font v`
QDms,{  
        .NameFarEast = "宋体" Gr\jjf `  
        .NameAscii = "Times New Roman" ^@8XJ[C,_  
        .NameOther = "黑体" b#N P*L&  
        .Name = "黑体" *cM=>3ws/  
        .Size = 14               '四号 nG3SDL#(k  
        .Bold = False
ds+K7B$  
        .Outline = False 0J/yd  
        .Italic = wdUndefined `XE>Td>Bs  
        .Subscript = wdUndefined I,#E`)  
        .Superscript = wdUndefined &)6}.$`  
    End With 0cKsGDm  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat m%u`#67oK  
        .LeftIndent = CentimetersToPoints(0) jj2=|)w$3  
        .RightIndent = CentimetersToPoints(0) WqefH{PB  
        .FirstLineIndent = CentimetersToPoints(0) 8D`+3  
         T8\@CV!  
        .LineSpacingRule = wdLineSpaceSingle J'|[-D-a  
        .Alignment = wdAlignParagraphLeft I2HV{1(i  
         `AE6s.p?  
        .WidowControl = True Czw]5  
        .KeepWithNext = True e0y.J  
        .KeepTogether = True >;Oa|G  
        .PageBreakBefore = False y _apT<P  
        .OutlineLevel = wdOutlineLevelBodyText $+J39%Y!^  
         `q]' ^EzJ  
        .CharacterUnitLeftIndent = 0 0~ nCT&V  
        .CharacterUnitRightIndent = 0 1@{ov!YB]  
        .CharacterUnitFirstLineIndent = 2 nI?*[y
}  
         kSEA  
        .LineUnitBefore = 0.5 ~l:Cj*6x8  
        .LineUnitAfter = 0 VRY(@# q  
    End With kM4z %  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False |sr\SCx  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll Q8Ek}O\MC  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese K_Y{50#  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True sx azl]
 
    DoEvents *JX$5bZsI  
     wN'S+4  
    '四级标题样式 }iDRlE,  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ]vB^%  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" ,=CipL9]  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False Pi=FnS  
    With ActiveDocument.Styles("QLNU四级标题").Font ){P`-ZF  
        .NameFarEast = "宋体" <2
@t~9  
        .NameAscii = "Times New Roman" |-vyhr0  
        .NameOther = "宋体" b+:mV7eX  
        .Name = "宋体" l-W)?d  
        .Size = 12               '小四号 MVzj7~+  
        .Bold = True pSC{0Y$g  
        .Outline = False i_m&qy<v  
        .Italic = wdUndefined zUJXA:L9  
        .Subscript = wdUndefined R5QW4i9  
        .Superscript = wdUndefined lwt,w<E$  
    End With `:Wyw<^  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat mY"Dw^)  
         eD7\,}O  
        .LeftIndent = CentimetersToPoints(0) EwG+' nlE  
        .RightIndent = CentimetersToPoints(0) XsJ`x  
        .FirstLineIndent = CentimetersToPoints(0) 'X+aYF}Ye  
         /Z*$k{qIR&  
        .LineSpacingRule = wdLineSpaceSingle \mu'
;[gLd  
        .Alignment = wdAlignParagraphLeft ;p*L(8<YI  
         "24d:vf\  
        .WidowControl = True XOqHzft h6  
        .KeepWithNext = True >.P*lT  
        .KeepTogether = True Y<POd bg  
        .PageBreakBefore = False 9Oj b~  
        .OutlineLevel = wdOutlineLevelBodyText _:Q^mV=;j  
         hoBFC1  
        .CharacterUnitLeftIndent = 0 4N=,9  
        .CharacterUnitRightIndent = 0 $I-iq @  
        .CharacterUnitFirstLineIndent = 2 ;Co"bP's  
         wH@<0lw`<  
        .LineUnitBefore = 0 b?0WA.[{  
        .LineUnitAfter = 0 a9lYX*:  
         rkS'OC  
    End With hU(  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False D_<B^3w)  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll _3wJ;cn.  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese U[;ECw@  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True \4$Nx/@Q}  
    DoEvents M
.5F|7  
     $/Wec,`&  
    '正文校式 E l.eK9L  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle")  "Ke_dM  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" !V#*(_+n  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False `::j\3B&Y-  
    With ActiveDocument.Styles("QLNU正文").Font 
Kc r)W  
         O<!^^7/h0  
        .NameFarEast = "宋体" Ap\]v2G  
        .NameAscii = "Times New Roman" kKbbsB  
        .NameOther = "宋体" 7>7n|N  
        .Name = "宋体" !^L}LtqHI  
         `4@`G:6BL  
        .Size = 12               '小四号 (*eX'^Q)d  
         9VaSCB  
        .Bold = wdUndefined *]q`:~u2  
        .Italic = wdUndefined :FSg %IUX  
        .Subscript = wdUndefined zB y%$5~Fw  
        .Superscript = wdUndefined N0lFx?4  
         GPAC0K^p  
        .Outline = False L ~Vw`C  
        .Emboss = False fU.hb%m)Q\  
        .Shadow = False o>]w76A^(  
        .Hidden = False :/? Op  
         w0js_P-uv  
        .DisableCharacterSpaceGrid = True "e\73?P  
    End With Yy[=E\z  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat >@4Ds"Ye"O  
         oKSW:A  
        .LeftIndent = CentimetersToPoints(0) Brg0:5H   
        .RightIndent = CentimetersToPoints(0) n$j B"1  
        .FirstLineIndent = CentimetersToPoints(0) wAR:GO 'n  
         >oy%qLHe~t  
        .LineSpacingRule = wdLineSpaceExactly aAoAjVNkK  
        .LineSpacing = 20 $aXYtHI  
        .Alignment = wdAlignParagraphLeft =#TQXm']Gi  
         WR.7%U';  
        .WidowControl = False FhH*lO&  
        .KeepWithNext = False tMf5TiWu@  
        .KeepTogether = False '%Oo1:wJ  
        .PageBreakBefore = False (ce)A,;  
        .Hyphenation = False "[A&S!  
         RToX[R;1E  
        .OutlineLevel = wdOutlineLevelBodyText Q!~1Xc0S`p  
         b N>Ar  
       z}5'TV=^  
        .CharacterUnitLeftIndent = 0 b2F1^]p  
        .CharacterUnitRightIndent = 0 c?xeBC1-  
        .CharacterUnitFirstLineIndent = 2 P K?}hz  
         m|cR
j{xZF  
        .LineUnitBefore = 0 ZQz;EV!  
        .LineUnitAfter = 0 &e[Lb:Uk)  
        .SpaceBefore = 0 0~<t :q!  
        .SpaceAfter = 0 w\t  
         *X|%H-Q:H`  
        .DisableLineHeightGrid = True cv_O2Q4,@  
    End With /%?bO-  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False 5.0;xz}#y  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll /Jk.b/t.*S  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese uTbMp~cYB  
    ActiveDocument.Styles("QLNU正文").NoProofing = True V/OW=WCzN  
    DoEvents $\4Or  
     W#b++}S  
    '图片段落样式 ~c1~)QzZ  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") e!i.u
'z  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" :i
?c  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False N9)ERW2`*  
    With ActiveDocument.Styles("QLNU图片段落").Font F+xMXBD@>*  
        .Size = 12               '小四号 QIN# \  
        .Italic = wdUndefined QBoX3w=  
        .Subscript = wdUndefined jAt65a  
        .Superscript = wdUndefined I GcR5/3  
    End With mn<ea&  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat [MC}zd'/  
         EjVB\6,  
        .LeftIndent = CentimetersToPoints(0) |@-y+vbA*  
        .RightIndent = CentimetersToPoints(0) 9D%~~~ %b  
        .FirstLineIndent = CentimetersToPoints(0) gJOswN;([  
         E h_[8:dK  
        .LineSpacingRule = wdLineSpaceSingle Yic'p0< ?V  
        .Alignment = wdAlignParagraphCenter q|D*H9[ke  
        .KeepWithNext = True yCg>]6B  
        .OutlineLevel = wdOutlineLevelBodyText AQ.q?'vE)  
         Q%GLT,f1.  
        .CharacterUnitLeftIndent = 0 4f0dc\$  
        .CharacterUnitRightIndent = 0 SR)@'-Wd  
        .CharacterUnitFirstLineIndent = 0 C$c.(5/O  
         BYS>"  
        .LineUnitBefore = 0 Yu
^}  
        .LineUnitAfter = 0 p|*b] 36  
    End With K e&
fTK  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False [iSLn3XXRX  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll )^^}!U#|e  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese e8]mdU{)  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True hi]\M)l&x  
    DoEvents 10/3-)+  
     &P8Q|A-u  
     0j/i):@  
    '第X章 J_|>rfW  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") FUPJ&7+B  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" 8>:2li  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False V
KrKA71Z~  
    With ActiveDocument.Styles("QLNU章节标题").Font H @E-=Ly  
        .NameFarEast = "黑体" K&Q0]r?  
        .NameAscii = "Arial Black" 7xT<|3 I  
        .NameOther = "Arial Black" z#&qWO  
        .Name = "黑体" P|)SXR  
        .Size = 16 ^h|'\-d\  
        .Bold = True ]@1ncn7N  
        .UnderlineColor = wdColorAutomatic VHws9)  
        .Outline = False eP3 itrH(  
        .Italic = wdUndefined p7O4CP>9[  
        .Subscript = wdUndefined \=~<I  
        .Superscript = wdUndefined 9Bmgz =8  
        .Scaling = 100 CV7.hF<  
        .DisableCharacterSpaceGrid = True w@f_TG"Vt  
    End With X_|} b[b  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat m7mC 7x  
        .LineSpacingRule = wdLineSpaceSingle WUi7~Ei}  
        .Alignment = wdAlignParagraphCenter b}G +7B  
        .WidowControl = True &9g#Vq%   
        .KeepWithNext = True 0P5 3dF  
        .KeepTogether = True t,P+~ A  
        .PageBreakBefore = True qm}7w3I^  
        .OutlineLevel = wdOutlineLevelBodyText *JOv  
         9zd)[4%=  
        .LeftIndent = CentimetersToPoints(0) cKy%0oTla  
        .RightIndent = CentimetersToPoints(0) 4]8PF  
        .FirstLineIndent = CentimetersToPoints(0) {gi"ktgk  
         {k~$\J?.  
        .CharacterUnitLeftIndent = 0 X}bgRzj  
        .CharacterUnitRightIndent = 0 veE8 N~0N.  
        .CharacterUnitFirstLineIndent = 0 ck<4_?1]  
         tbk9N( R  
        .LineUnitBefore = 1 }#u}{  
        .LineUnitAfter = 0.5 ;6)|'3.B9  
         J5rR?[i{  
        .AutoAdjustRightIndent = False
Q{Bj(f  
        .DisableLineHeightGrid = True zKWi9  
        .FarEastLineBreakControl = True , 9M \`6  
        .WordWrap = True &c@I4RV|q  
    End With CblL1q8  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False %BHq2~J  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll p|bpE F=U  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese /3Gv51'  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True !p9F'7;Y<  
    DoEvents  L_Ai/'
 
     ,|c_l)  
    '表格标题 ;j_#,Da9<  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") $S cjEG:6  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" EGM
cU|yL  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False 'Ph;:EMj
 
    With ActiveDocument.Styles("QLNU表格标题").Font @o^sp|k !  
        .NameFarEast = "楷体" X:g5>is|  
        .NameAscii = "Arial" j+ys&pDczm  
        .Name = "楷体" B'0Il"g'  
        .Size = 10.5 MDCf(LhEH  
        .Bold = True CC87<>V  
        .Underline = wdUnderlineNone (}qLxZ/U  
        .Italic = wdUndefined >\p}UPx  
        .Subscript = wdUndefined !kKKJ~,;  
        .Superscript = wdUndefined Ul@'z|  
        .Color = wdColorAutomatic =O_[9kuJ  
    End With SoY&R=  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat {S&&X&A`v  
         YvHn~gNPhs  
        .LineSpacingRule = wdLineSpaceSingle i\eykYc,  
        .Alignment = wdAlignParagraphCenter kI;^V  
        .KeepWithNext = True 0UB'6wRVo  
        .KeepTogether = True g%[Ruugu  
        .OutlineLevel = wdOutlineLevelBodyText 1!NaOfP;@  
         - jw=Iyv  
        .LeftIndent = CentimetersToPoints(0) BR%:`uiQ<  
        .RightIndent = CentimetersToPoints(0) %E!0,y,:  
        .FirstLineIndent = CentimetersToPoints(0) jKQP0 t-  
         ^ pR&  
        .CharacterUnitLeftIndent = 0 `4p
9K  
        .CharacterUnitRightIndent = 0 5Q'R5
]?h  
        .CharacterUnitFirstLineIndent = 0 LtvyWc`  
         lJ,s}l7  
        .LineUnitBefore = 1 4* hmeS"  
        .LineUnitAfter = 0 BZ T%+s;u9  
         \%^3Izsc  
    End With hg>YOf&RG  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False }w@nZG ^ &  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll / q!&I  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese J/*[wj  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True C Ud'*Ewu  
    DoEvents Z,&ywMm/G  
&\K#UVDyhh  
    '表格首行 |3cR'|<Ual  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") ]-`{kX  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False 6u7HO-aa  
    With ActiveDocument.Styles("QLNU表格首行").Font J\0YL\jw1K  
        .NameFarEast = "楷体" NV;tsuA|  
        .NameAscii = "Times New Roman" 5m3sjcp_  
        .Name = "楷体" Kj>_XaFCg!  
        .Size = 9 Te13Af~  
        .Bold = True [(K^x?\Y0'  
        .Underline = wdUnderlineNone V!=]a^]:  
        .Italic = wdUndefined \ a<Ye T  
        .Subscript = wdUndefined ,J#5Y.  
        .Superscript = wdUndefined p5'\< gQ  
    End With 1|89-Ii]  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat zC^Ib&gm>,  
        .LineSpacingRule = wdLineSpaceSingle %~[F^   
        .Alignment = wdAlignParagraphCenter MLb\:Ihy  
         cK } Qu  
        .LeftIndent = CentimetersToPoints(0) ?0<3"2 Db~  
        .RightIndent = CentimetersToPoints(0) u@3w$"Pv1  
        .FirstLineIndent = CentimetersToPoints(0) pVY.&XBZ$  
         >y@w-,1he  
         pL-$Np] V  
        .CharacterUnitLeftIndent = -0.5 ']NM_0  
        .CharacterUnitRightIndent = -0.5 ^YZ#P0 y  
        .CharacterUnitFirstLineIndent = -0.5 vtT:c.~d  
         &pAT  
        .LineUnitBefore = 0 +$'/!vN  
        .LineUnitAfter = 0 +Snjb0  
        .SpaceBefore = 0 GgYomR:  
        .SpaceAfter = 0 _B[(/wY  
         g<-cHF  
    End With Z~gqTB]H  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False uQNoIy J)  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll 334*nQ  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese ),Rj@52l  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True W2k~N X#@  
    DoEvents "8X+F%  
f<'C<xnf  
    '表格内容 +Lr0i_al  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") mB~&nDU  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False kgu+q\?  
    With ActiveDocument.Styles("QLNU表格内容").Font M
/qiA.C@W  
        .NameFarEast = "楷体" $p@g#3X`  
        .NameAscii = "Times New Roman" "
86
9n37  
        .Name = "楷体" EIfrZg7R  
        .Size = 9 tpD?-`9o  
        .Bold = False hU{%x#8}lK  
        .Underline = wdUnderlineNone s'^#[%EgB  
        .Italic = wdUndefined I|:j~EY  
        .Subscript = wdUndefined k4P.}SJ?  
        .Superscript = wdUndefined rG]Xgq"   
    End With @mazwr{B  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat >4E,_`3N  
        .LineSpacingRule = wdLineSpaceSingle "8I4]
'  
        .Alignment = wdAlignParagraphCenter b,W'0gl  
         !]nCeo  
        .LeftIndent = CentimetersToPoints(0) {m?x},  
        .RightIndent = CentimetersToPoints(0) 90!Ib~7zH  
        .FirstLineIndent = CentimetersToPoints(0) o5R\7}]GE  
         7$;$4.'  
        .CharacterUnitLeftIndent = -0.5 3PGyqt(   
        .CharacterUnitRightIndent = -0.5 hdB[H8Q  
        .CharacterUnitFirstLineIndent = -0.5 U8mu<
)  
        .LineUnitBefore = 0 v>5F[0gE  
        .LineUnitAfter = 0 y()( 8L  
        .SpaceBefore = 0 2^aTW` >L  
        .SpaceAfter = 0 ;rKYWj>IR  
    End With SOL=3hfb^  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False xd3  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll |<0@RCgM  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese @!da1jN  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True @6SSk=9_S  
    DoEvents SJ-Sac58r  
"gz;Q  
    '图片标题 ,L;vN6~  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 2 *$n?  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" _<7FR:oBZ  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False - G 'lyH  
    With ActiveDocument.Styles("QLNU图片标题").Font ihVQ,Cth  
        .NameFarEast = "楷体" NC}#P<U  
        .NameAscii = "Times New Roman" mI%/k7:sf  
        .Name = "楷体" 11sW$@xs 9  
        .Size = 10.5 -Me\nu8(RF  
        .Bold = True DvCt^O*  
        .Underline = wdUnderlineNone G ;;~xfE'  
        .Italic = wdUndefined g]#Wve  
        .Subscript = wdUndefined vo-{3]u#=  
        .Superscript = wdUndefined luT8>9X^:a  
        .Outline = False q g/5m;U  
        .Shadow = False Ln|${c  
        .Color = wdColorAutomatic :S12=sFl$  
    End With kR]SxG9  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat S8
VR#  
        .LineSpacingRule = wdLineSpaceSingle 7fqYSMHR  
        .Alignment = wdAlignParagraphCenter M)7enp) F.  
         'Ot[q^,KRG  
        .KeepWithNext = wdUndefined I1~g?jpH  
        .KeepTogether = True Vvj]2V3  
        .OutlineLevel = wdOutlineLevelBodyText EiUV?Gvz  
         [)A#9L~s=  
        .LeftIndent = CentimetersToPoints(0) F?kVW[h?q  
        .RightIndent = CentimetersToPoints(0) Cs{f'I  
        .FirstLineIndent = CentimetersToPoints(0) U:9vjY  
         4;||g@f'[  
        .CharacterUnitLeftIndent = 0 jHCKV  
        .CharacterUnitRightIndent = 0 s|T7)PgR  
        .CharacterUnitFirstLineIndent = 0 i`$rzXcS  
         Kc0OLcu^d  
        .LineUnitBefore = 0 -wfV  
        .LineUnitAfter = 0 !*gAGt_  
    End With D.b<I79bX  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False ,0bM*qob  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll MVdx5 ,t  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese )|x5#b-lz  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True }nl)*l  
    DoEvents 6pR#z@,  
W\7*T1TDj  
    '目录项 CdO-xL6F  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") YC<I|&"  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" #8jd,I%L  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False \irjIXtV  
    With ActiveDocument.Styles("QLNU目录项").Font Uj) ]nJX  
        .NameFarEast = "黑体" dk/*%a +  
        .NameAscii = "Times New Roman"
* U4:K@y  
        .NameOther = "Times New Roman" }q W aE  
        .Name = "黑体" 1`{ib  
        .Size = 10.5 FF/R_xnx  
        .Bold = False r.;iO0[/  
        .Italic = wdUndefined D$E9%'i
r  
        .Underline = wdUnderlineNone df& |Lc1J  
        .Color = wdColorAutomatic :F=nb+HZ  
        .Superscript = wdUndefined +.I'U9QeUN  
        .Subscript = wdUndefined 'wrpW#  
    End With . $YF|v[=  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat {6sfa?1j  
         [@Y q^.6t  
        .LineSpacingRule = wdLineSpaceSingle c^IEj1@}'?  
        .Alignment = wdAlignParagraphLeft [)~@N N  
         (K6StNtN  
        .WidowControl = False I:<R@V<~#  
        .KeepWithNext = False UAZ&*{MM^  
        .KeepTogether = False 9lCKz !E
 
        .PageBreakBefore = False CaBS0' n  
        .NoLineNumber = False 4 G[ hU4L  
        .OutlineLevel = wdOutlineLevelBodyText KCE-6T  
         rbbu
SI  
        .LeftIndent = CentimetersToPoints(0) ;r"B?]JO  
        .RightIndent = CentimetersToPoints(0) Zd ,=  
        .FirstLineIndent = CentimetersToPoints(0) `F8 ;{`a  
         1,'^BgI,  
        .CharacterUnitLeftIndent = 0 oFR'GUQC  
        .CharacterUnitRightIndent = 0 3H2;mqq  
        .CharacterUnitFirstLineIndent = 0 GNc|)$  
         ^^l"brPa  
        .LineUnitBefore = 0 VYo;[ue([  
        .LineUnitAfter = 0 ^ZUgDQduc  
    End With I;H9<o5  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False :j<JZs>`R  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll [uQZD1<q  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot J94YMyOo  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese GuvF    
    ActiveDocument.Styles("QLNU目录项").NoProofing = True )fc"])&8  
    DoEvents cV,Dl`1r  
     `r(J6,O  
    '参考文献 {PtTPz  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") uTGvXKL7  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" 1o78e2B  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False 98'XSL|  
    With ActiveDocument.Styles("QLNU参考文献").Font #/<Y!qV&  
        .NameFarEast = "宋体" PSS/JFZ^  
        .NameAscii = "Times New Roman" .6o y>4  
        .NameOther = "Times New Roman" O/oYaAlFF@  
        .Name = "Times New Roman" z|)1 l`  
        .Size = 12 [Od9,XBa  
        .Bold = False C/XyDbH  
        .Italic = wdUndefined h##?~!xDmq  
        .Subscript = wdUndefined }p?V5Qp  
        .Superscript = wdUndefined Vj`s_IPY  
        .Underline = wdUnderlineNone Q$/FgS  
        .UnderlineColor = wdColorAutomatic "0zXpQi,B  
        .Color = wdColorAutomatic 6D"`FPC  
        .Engrave = False (Gc`3jJ  
    End With =3dbw8I  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat <|Eby!KXR  
         |S`yXsg  
        .LineSpacingRule = wdLineSpaceExactly 'xoE [0!  
        .LineSpacing = 16 <L/vNP  
        .Alignment = wdAlignParagraphLeft n4T2'e  
        .WidowControl = False {0WIDD  
        .KeepWithNext = False ]Wt6V^M'@  
        .KeepTogether = False ./y[<e  
        .PageBreakBefore = False VQjFEJ  
        .OutlineLevel = wdOutlineLevelBodyText #'J7Wy
 
         KVpAV$|e  
        .LeftIndent = CentimetersToPoints(0) @aN=U=  
        .RightIndent = CentimetersToPoints(0) E/$@ud|l"  
        .FirstLineIndent = CentimetersToPoints(0) {<4?o? 1g  
         )"jn{%/t  
        .CharacterUnitLeftIndent = 0 L4*fF  
        .CharacterUnitRightIndent = 0 wf<`J/7u  
        .CharacterUnitFirstLineIndent = -2 b(-t)5^}  
         aDvO (C  
        .LineUnitBefore = 0 8!Mzr1:  
        .LineUnitAfter = 0 BBE1}V!u  
        .SpaceBefore = 0 j{Jc6U  
        .SpaceAfter = 0 U{uWk3I_b  
         ur,"K'w  
    End With |SukiXJZF  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False }6,bq`MN  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll X8n/XG~_  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS '# Iu Y  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True pjs9b%.  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese ::Q);  
    DoEvents V3~a!k  
NF(IF.8G  
    ' qs1.@l("  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") $o$Ev@mi  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" m
YOdBd  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False ^npS==Y]!.  
    With ActiveDocument.Styles("QLNU论文题目").Font 
I+j|'=M  
        .NameFarEast = "黑体" P9mxY*K)%5  
        .NameAscii = "Arial Black" K(KP3
Q  
        .NameOther = "Arial Black" G[<[#$(  
        .Name = "Arial Black" _.*4Y  
        .Size = 16 CSqb)\8Oi*  
        .Bold = False 3et2\wOX1x  
        .Italic = wdUndefined })Mv9~&S  
        .Superscript = wdUndefined ?$@KwA  
        .Subscript = wdUndefined fQTA@WAr  
        .Underline = wdUnderlineNone eTRx6Fri(  
        .UnderlineColor = wdColorAutomatic ;E? hz  
        .Color = wdColorAutomatic LO}:Ub  
mImbS)V  
    End With ?"<r9S|[O  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat +;wqX]SD&  
        .LineSpacingRule = wdLineSpaceSingle O-!fOdX8_k  
        .Alignment = wdAlignParagraphCenter
~muIi#4  
        .WidowControl = True %OTA5  
        .KeepWithNext = True Nk7eiQ  
        .KeepTogether = True vWi.[]  
        .PageBreakBefore = True U[e8K  
        .NoLineNumber = False X)iWb(@k"7  
        .OutlineLevel = wdOutlineLevelBodyText 8xpYQ<cax  
         .6 ?>t!&W  
        .LeftIndent = CentimetersToPoints(0) &Bz7fKCo  
        .RightIndent = CentimetersToPoints(0) #[0\=B-  
        .FirstLineIndent = CentimetersToPoints(0) &J/4J  
         [gh[F  
        .CharacterUnitLeftIndent = 0 )C01fZ
hD  
        .CharacterUnitRightIndent = 0 Nu S|X   
        .CharacterUnitFirstLineIndent = 0 %v+fN?%x,d  
         E,D:D3O  
        .LineUnitBefore = 1 :n>ccZeMv  
        .LineUnitAfter = 1 ~eV!!38 J  
         rE{ Xo:Cf  
        .BaseLineAlignment = wdBaselineAlignAuto +=*m! 7Mr  
    End With cYWy\+  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False E%\7Uo-  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll p1VahjRE-  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS b~Pxgfu"  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True 90h1e7Zc
C  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese CX ]\Q-y  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True ['4\O43yv  
    DoEvents ['Y+z2k  
     kGuk - P  
    '中文摘要 ogc('HqF^'  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") :CkR4J!m3  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" q>|[JJ*6_N  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False a[74%L?  
    With ActiveDocument.Styles("QLNU中文摘要").Font _`X#c-J  
        .NameFarEast = "宋体" #C,f/PXfaB  
        .NameAscii = "Times New Roman" 4lh   
        .NameOther = "Times New Roman" "X{aS}  
        .Name = "Times New Roman" ic0v*Y$  
        .Size = 12 NzeI/f3K5  
        .Bold = wdUndefined 7fW=5wc  
        .Superscript = wdUndefined ,F`KQ )\"  
        .Subscript = wdUndefined ]D) 'I`  
        .Italic = wdUndefined OBw`!G*w  
        .Underline = wdUnderlineNone 78a
-3){  
        .UnderlineColor = wdColorAutomatic ;4/dk_~p]  
        .Color = wdColorAutomatic ldCKSWIi-  
    End With bDFCZH-:'O  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat F@K*T2uh  
        .LineSpacingRule = wdLineSpaceExactly Il^\3T+  
        .LineSpacing = 20 gR-Qj  
        .Alignment = wdAlignParagraphLeft ,JQxs7@2k  
         <`p75B  
        .WidowControl = False ZP63Alt  
        .KeepWithNext = False iy.% kHC  
        .KeepTogether = True 7tfivIj)e  
        .PageBreakBefore = False IzGB  
        .NoLineNumber = False 3gI[]4lRH  
        .OutlineLevel = wdOutlineLevelBodyText 4/`h@]8P  
         rTsbP40  
        .LeftIndent = CentimetersToPoints(0) e
:GgA  
        .RightIndent = CentimetersToPoints(0) 4I#eC#"  
        .FirstLineIndent = CentimetersToPoints(0) 3b?OW7H  
         rxy{a  
        .CharacterUnitLeftIndent = 0 Mi/ &$"=  
        .CharacterUnitRightIndent = 0 lA.;ZD!  
        .CharacterUnitFirstLineIndent = 2 H?`)[#  
        .LineUnitBefore = 0 V^`?8P8d  
        .LineUnitAfter = 0 wSJ]3gJM`  
         3?*M{Y|  
    End With |:(23O  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False >NH4A_  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll xf^ <ec  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS jqX@&}3@  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True VTJIaqw  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese \Sw+]pr~  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True Rgfc29(8  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete 1t\b a1x  
    DoEvents ANFg]g.Az  
     x'M^4{4[  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") D-o7yc"K  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" N7~)qqb  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False hM36QOdm  
    With ActiveDocument.Styles("QLNU英文标题").Font 3m43nJ.~  
        .NameFarEast = "黑体" :<N6i/  
        .NameAscii = "Arial Narrow" uFm+Y]h  
        .Name = "Arial Narrow" 0Y6q$h>4  
        .Size = 16 &G pA1  
        .Bold = True KCJN<  
        .Bold = wdUndefined znQ'm^h  
        .Superscript = wdUndefined |,1bkJt  
        .Subscript = wdUndefined ;X$q#qzN
#  
        .Italic = wdUndefined _Vo)<--+I  
         hSkc9jBF
 
        .Underline = wdUnderlineNone W) 33;E/}  
        .UnderlineColor = wdColorAutomatic 1A?\BJ"  
        .StrikeThrough = False 0tW<LR-}E  
        .DoubleStrikeThrough = False 2GiUPtO&Gj  
    End With }#ep}h  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat dDqr B-G  
        .LineSpacingRule = wdLineSpaceSingle ;Y@!:p-H  
        .Alignment = wdAlignParagraphCenter >9.5-5"   
        .WidowControl = True CCW%G,$U9  
        .KeepWithNext = False f E.L  
        .KeepTogether = False { p!_-sL  
        .PageBreakBefore = False |ilv|UV  
        .NoLineNumber = False &PRx,G5  
        .FirstLineIndent = CentimetersToPoints(0) F%PwIB~cy  
        .OutlineLevel = wdOutlineLevelBodyText TDAWI_83-  
         P>{US1t  
        .LeftIndent = CentimetersToPoints(0) $c@w$2  
        .RightIndent = CentimetersToPoints(0) r)
6uX  
        .FirstLineIndent = CentimetersToPoints(0) e' U"`)S  
         %_b^!FR  
        .CharacterUnitLeftIndent = 0 tIGVB +g{F  
        .CharacterUnitRightIndent = 0 u(1J=h  
        .CharacterUnitFirstLineIndent = 0 @q> ktE_  
         + %MO7vL  
        .LineUnitBefore = 1 N>A{)_k3  
        .LineUnitAfter = 1 N;Z`%&  
         aJ5H3X}Y  
    End With Q5p+W  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False Sg.+`xww3  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll mfeMmKFu\  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS /B,:<&_-  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True 6I v(  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese mFqSD  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True =mHkXHE~:  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete t_I\P.aMA  
    DoEvents ySwYV  
m/YH^N0  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") 6WE&((r^  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" 4?>18%7&  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False ?o~:'Z  
    With ActiveDocument.Styles("QLNU英文摘要").Font 2gd<8a''  
        .NameFarEast = "宋体" VX^o"9Ntl  
        .NameAscii = "Arial" AezvBY0'`z  
        .NameOther = "Arial" p~Hvl3SxR  
        .Name = "Arial" 6o=qJ`m[?  
        .Size = 12 lX98"}  
        .Bold = wdUndefined *<*0".#  
        .Italic = wdUndefined Lh8bQH  
        .Superscript = wdUndefined Dd!Sr8L[
 
        .Subscript = wdUndefined -,~;qSs  
    End With %6NO0 F^  
     *'9)H0  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat w~kHQ%A  
         2E`~
qn  
        .LineSpacingRule = wdLineSpaceExactly Si?$\H*:  
        .LineSpacing = 20 ~Na=+}.q_  
         hWq.#e6  
        .Alignment = wdAlignParagraphJustify G3RrjWtO  
         "t[M'[ `C  
        .WidowControl = False y4xT:G/M  
        .KeepWithNext = False 6 X@mPj[/  
        .KeepTogether = False gohAp
 
        .PageBreakBefore = False 4GG1E. z}  
        .NoLineNumber = False ;YK!EMM4!h  
         uQGz;F x  
        .OutlineLevel = wdOutlineLevelBodyText <91t`&aWW  
         gEZwW]r-  
        .LeftIndent = CentimetersToPoints(0) `y\*m]:  
        .RightIndent = CentimetersToPoints(0) o {=qC:b  
        .FirstLineIndent = CentimetersToPoints(0) tmO;:n<N  
         O^.%C`*  
        .CharacterUnitLeftIndent = 0 V#ndyUM;  
        .CharacterUnitRightIndent = 0 }Vvsh3  
        .CharacterUnitFirstLineIndent = 2 uP{;*E3?  
         ^ckj3Y#;  
        .LineUnitBefore = 0 .MDYGWKt  
        .LineUnitAfter = 1 rQ9*J  
         ],;D2]<s  
    End With uy/y wm/?=  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False Dh2:2Rz=#7  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll cQ8dc+ {  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS gw_|C|!P  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False "| Kf'/r  
    DoEvents _Ry_K3K  
`9. dgV  
    Options.Pagination = True 1s#yW
Q   
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." R<f#r03@|  
    DoEvents `IEq@Wr#$!  
    ActiveDocument.Repaginate <,jAk
4  
%ZujCZn  
End Sub B0f_kH
~p~  
,f}h}  
#|qm!aGs  

姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 im=5{PbJ^  
29%=:*R$  

引用

引用第20楼newport93于06-14-2010 13:47发表的  : dgXg kB'  
s}wO7Df=+  
老五，I 服了U。 _ j~4+ H  
I-,>DLG  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 dsV ~|D6:  

)]73S@P(=