Dim bContinue As Boolean IWMqmCbv  
1"!<e$&$X  
Dim regEX As New RegExp F<^,j7@  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 ^Yn6kF  
5E.cJ{  
Dim LastTitle0String As String, LastTitle0No As Long ^ qE4:|e  
Dim LastTitle1String As String, LastTitle1No As Long 31bKgU{  
Dim LastTitle2String As String, LastTitle2No As Long ]cA){^.Jz  
Dim LastTitle3String As String, LastTitle3No As Long Q)Ppx7)  
Dim LastTitle4String As String, LastTitle4No As Long KIuYWr7&  
Dim LastTitle5String As String, LastTitle5No As Long Q2Q`g`*O:  
Dim LastTabelString As String, LastTableNo As Long XKR?vr7A2  
Dim LastFigureString As String, LastFigureNo As Long S& R~*  
;JAe=wt^'I  
Dim strSeperator As String 3J[ P(G>Q  
}7&;YAt  
Sub ConvertWidth(fTEXT As String, rText As String) pR~PB  
        Selection.Find.ClearFormatting jo"[$%0`  
        Selection.Find.Replacement.ClearFormatting DE. Pw+5<.  
        Selection.Find.Wrap = wdFindContinue a Y{E'K=  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText nkG 6.  
        DoEvents Tl25t^Y  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True 0<o#;Z Q]  
End Sub  [bv.`  
0"<gg5  
Sub ClearDomain() n#x{~oQc  
        With Selection.Find C BO8^M<K  
            .ClearFormatting #"f:m`  
            .Replacement.ClearFormatting t#<q O6&B  
            .Wrap = wdFindContinue OS \co:  
            Me.txtStatus.Text = "清除所有域代码" W Q6E8t)  
            DoEvents WM >9sJf  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False d/* [t!  
        End With QtX ->6P>  
End Sub .11iu
lQ  
Omh(UHZBB  
Private Sub cmdCheck_Click() IOfo]p-  
    bContinue = True 3K54:  
    Dim NoSeries1(1 To 16) As String ;
/EH@V|  
    Dim NoSeries2(1 To 16) As String R?I(f(ib   
    Dim NoSeries5(1 To 16) As String N5~g:([k  
    Dim NoSeriesRM(1 To 16) As String g\X"E>X  
    Dim paraTotal As Long, ParaText As String P=S)V  
    Dim ttString As String, ttNo As String ;jnnCXp>  
     N;s
sO,  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long wRLkO/Fw  
Ujw^j  
    Me.txtStatus.Visible = True N\xqy-L9  
    Me.lbParaType.Visible = True W'6*$Ron  
    Me.cmdCheck.Enabled = False F.T~txQ~u  
     .Sb|+[{  
     u/k#b2BqL  
     )iEK7d^-  
     yqB{QFXO  
    Dim ParaType As String, rText As String gA.G:1v  
     iv5
6zs R  
    Selection.WholeStory ,Cx5( ~kU  
    Selection.NoProofing = True SXgp j  
     <
Qsz mE  
    tm1 = Now 9l(e:_`_  
     d)dIIzv  
        ActiveWindow.View.Type = wdNormalView bz<wihZj  
     xu_Tocvop  
    NoSeries1(1) = "一" \yM[?/<  
    NoSeries1(2) = "二" o_={xrmIA  
    NoSeries1(3) = "三" i?mDR$X:  
    NoSeries1(4) = "四" 6!+"7r6  
    NoSeries1(5) = "五" nY(jN D  
    NoSeries1(6) = "六" #Dy;x\a  
    NoSeries1(7) = "七" fC(lY4,H3R  
    NoSeries1(8) = "八" s7&%_!4  
    NoSeries1(9) = "九" } |sP;Rpu  
    NoSeries1(10) = "十" *D`,z3/*  
    NoSeries1(11) = "十一" ~6@~fhu  
    NoSeries1(12) = "十二" `~*q
jA  
    NoSeries1(13) = "十三" LsBDfp5/  
    NoSeries1(14) = "十四" E9 q8tE}  
    NoSeries1(15) = "十五" g#Yqw  
    NoSeries1(16) = "十六" ~1}NQa(  
     WL$WWA08_  
    NoSeries2(1) = "㈠" 6 rmK_Y  
    NoSeries2(2) = "㈡" abI[J]T9G  
    NoSeries2(3) = "㈢" o5zth^p[  
    NoSeries2(4) = "㈣" {!E<hQ2<$9  
    NoSeries2(5) = "㈤" )zr/9aV  
    NoSeries2(6) = "㈥" UpB7hA  
    NoSeries2(7) = "㈦" t}TtWI  
    NoSeries2(8) = "㈧" M*0&3Y Z  
    NoSeries2(9) = "㈨" Z.,Pl  
    NoSeries2(10) = "㈩" EmY8AN(*  
     jixU9]  
    NoSeries5(1) = "①" :*Ckq~[Hg  
    NoSeries5(1) = "②" vA+RZ  
    NoSeries5(3) = "③" `W|2Xi=^5  
    NoSeries5(4) = "④" !Ng^k>*h  
    NoSeries5(5) = "⑤" x)V.^-  
    NoSeries5(6) = "⑥" ZXr]V'Q?  
    NoSeries5(7) = "⑦" zW+Y{^hf  
    NoSeries5(8) = "⑧" J$'T2@H#  
    NoSeries5(9) = "⑨" |nocz]yU$  
    NoSeries5(10) = "⑩" E<~/AReo  
     &Vl, x/  
     ^3*gf}  
    NoSeriesRM(1) = "I" 9 X=#wh,q  
    NoSeriesRM(2) = "II" "hQV\|!\  
    NoSeriesRM(3) = "III" l`,`N+FG  
    NoSeriesRM(4) = "IV" {J|P2a[  
    NoSeriesRM(5) = "V" if_e$,dh~>  
    NoSeriesRM(6) = "VI" ~\
XB'  
    NoSeriesRM(7) = "VII" d9sgk3K  
    NoSeriesRM(8) = "VIII" x6F\|nb  
    NoSeriesRM(9) = "IX" ZwG+rTW  
    NoSeriesRM(10) = "X" ]4hXK!^Uu  
    NoSeriesRM(11) = "XI" =Jem.Ph  
    NoSeriesRM(12) = "XII" =m-_0xo  
    NoSeriesRM(13) = "XIII" .W?POJT  
    NoSeriesRM(14) = "XIV" [IW@mn>  
    NoSeriesRM(15) = "XV" E1VCm[j2  
    NoSeriesRM(16) = "XVI" ?F`lI""E  
     Jbs:}]2  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo)
I]  
     :G}tvFcOAF  
    If i = vbNo Then TcRnjsY$  
        Exit Sub {4:En;  
    End If #=
$4 U!yL  
     }rG
DM  
    If Me.chkSuper.Value Then )P|Ql-rE4  
        Me.txtStatus.Text = "检查修改所有的上标格式" }KZ/>Z;^  
     b6Ntt
Y!3  
        CheckSuperScript <5L!.Ci  
         $H5PB' b  
    End If L@G)K  
     q^12Rj;H  
    If Me.chkStyle.Value Then GW}KmTa]&  
        Me.txtStatus.Text = "设置样式，请稍候...." Yh"Z@D[d  
        DoEvents /G84T,H  
        CeateOrModifyStyle zBc7bbK  
    End If s"a*S\a;b  
     0.+iVOz+Y  
     /=Xen mmS  
     SuuWrt}5  
    ClearDomain 7<N X;Fx  
         ` 6"\.@4  
     %
DRDe  
     w7%N=hL1
 
    If Me.chkLIST.Value Then yy#Xs:/  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" R~c(^.|r  
     %\-+SeC  
        ConvertListToOrdinary MjG.Ili$m  
    End If `knw1,qL"  
     9|#h )*  
     f \4Qp  
    Dim pType As String, trimpTEXT As String Z{ p;J^:  
    If Me.chkNum.Value = True Then e HOm^.gd  
        Me.txtStatus.Text = "转换全角数字形式为半角" <{cPa\  
        ConvertWidth "１", "1" u1<xt1K  
        DoEvents IkkJ4G  
        ConvertWidth "２", "2" blp)a  
        DoEvents 6^ KDc  
        ConvertWidth "３", "3" I>P</TE7  
        DoEvents =z@'vu$Fh  
        ConvertWidth "４", "4" ^ 5GS!u"  
        DoEvents ,lN!XP{M6w  
        ConvertWidth "５", "5" OTV)#,occ  
        DoEvents :I&iDS>u1  
        ConvertWidth "６", "6" gW* ee  
        DoEvents ^?juY}rZ=|  
        ConvertWidth "７", "7"
WUqAPN  
        DoEvents X;}_[=-  
        ConvertWidth "８", "8" o}Xp-P   
        DoEvents xds"n5  
        ConvertWidth "９", "9" +{#BQbx6  
        DoEvents R6M@pO  
        ConvertWidth "０", "0" ViVYyA  
        DoEvents fc!%W#-  
        ConvertWidth "ａ", "a" ,U<Ku*}B  
        DoEvents 3a#!^G!~  
        ConvertWidth "ｂ", "b" |-e=P9,  
        DoEvents WxXVL"  
        ConvertWidth "ｃ", "c" _Juhl^LM;  
        DoEvents DO%YOv  
        ConvertWidth "ｄ", "d" 1,pg:=N9  
        DoEvents QZwRg&d<o  
        ConvertWidth "ｅ", "e" }D=h "\_=  
        DoEvents Um9=<*p  
        ConvertWidth "ｆ", "f" tG#F7%+E  
        DoEvents Kfj*#)SZ  
        ConvertWidth "ｇ", "g" b<[eBXe  
        DoEvents m7!l3W2  
        ConvertWidth "ｈ", "h" J4co@=AJ  
        DoEvents DPe`C%Oc1  
        ConvertWidth "ｉ", "i" 4Uwt--KtFh  
        DoEvents (+Uo;)~!YC  
        ConvertWidth "ｊ", "j" 9xu&n%L=  
        DoEvents TbXZU$[c  
        ConvertWidth "ｋ", "k" zZE?G:isR  
        DoEvents q#WqU8~Y  
        ConvertWidth "ｌ", "l" ?2G^6>O`  
        DoEvents mKn[>M1  
        ConvertWidth "ｍ", "m" 5-&P4  
        DoEvents j+Tk|GRab  
        ConvertWidth "ｎ", "n" C8{CKrVE  
        ConvertWidth "ｏ", "o" e`_3= kI  
        ConvertWidth "ｐ", "p" V];RQWs  
        ConvertWidth "ｑ", "q" .y'OoDe  
        ConvertWidth "ｒ", "r" ;eA~z"g  
        ConvertWidth "ｓ", "s" S)[2\Z{**T  
        ConvertWidth "ｔ", "t" Xt~/8)&  
        ConvertWidth "ｕ", "u" bqLv81V  
        ConvertWidth "ｖ", "v" :m+:%ke K  
        ConvertWidth "ｗ", "w" ]_-$  
        ConvertWidth "ｘ", "x" :Mt/6}
 
        ConvertWidth "ｙ", "y" 8[y7(Xw  
        ConvertWidth "ｚ", "z" tdt6*  
        ConvertWidth "Ａ", "A" ?jOpW1  
        ConvertWidth "Ｂ", "B" Rd#,Tl\  
        ConvertWidth "Ｃ", "C" 'dht5iI;Yw  
        ConvertWidth "Ｄ", "D" oiR`\uY  
        ConvertWidth "Ｅ", "E" DSnsi@Mi  
        ConvertWidth "Ｆ", "F" RhDa`kV%t  
        ConvertWidth "Ｇ", "G" (8>k_  
        ConvertWidth "Ｈ", "H" %EVg.k$  
        ConvertWidth "Ｉ", "I" OZv&{_b_  
        ConvertWidth "Ｊ", "J" ](0A/,#q6  
        ConvertWidth "Ｋ", "K" "/\:Fdc^  
        ConvertWidth "Ｌ", "L" :Z+(H+lyZ  
        ConvertWidth "Ｍ", "M" 6!gGWn5>}  
        ConvertWidth "Ｎ", "N" E3KPjK  
        ConvertWidth "Ｏ", "O" |0Zj/1<$  
        ConvertWidth "Ｐ", "P" _p~ `nQ=7  
        ConvertWidth "Ｑ", "Q" z?i82B[Tm  
        ConvertWidth "Ｒ", "R" _e-a>y  
        ConvertWidth "Ｓ", "S" @{$SjR8Q $  
        ConvertWidth "Ｔ", "T" 5N[Y
2  
        ConvertWidth "Ｕ", "U" }k,Si9O  
        ConvertWidth "Ｖ", "V" F'h[g.\}  
        ConvertWidth "Ｗ", "W" )c!f J7o:  
        ConvertWidth "Ｘ", "X" K+GjJ8  
        ConvertWidth "Ｙ", "Y" ) .]Z}g&  
        ConvertWidth "Ｚ", "Z" 3+#bkG  
        ConvertWidth "^l", "^p" m.4y=69 &  
        ConvertWidth "（", "(" g1}RA@9  
        ConvertWidth "）", ")" koi e  
     /evh.S  
    End If kPxrI=  
;aFQP:l/  
    With ActiveDocument f{b"=hQ  
        Dim tbl As Table lca.(3u  
        For Each tbl In .Tables *]H ./a:1  
            tbl.Rows.Alignment = wdAlignRowCenter hz/5k%%UX  
            tbl.Range.Font.NameFarEast = "楷体" qI'a|p4fn?  
            tbl.Range.Font.NameAscii = "Times New Roman" "%Rx;xw|  
            tbl.Range.Font.Size = 10.5 v/m6(z  
        Next 8>epKFEg  
        Set tbl = Nothing _mO\Nw0  
    End With ?}Mv
5SO  
     f< '~K  
     oZzE.Q1T  
    With ActiveDocument xAoozDj  
         RZz]. Nx  
        For i = 1 To .TablesOfContents.Count |epe;/  
            .TablesOfContents(i).Delete r<0.!j%c  
        Next ~E`l4'g?  
         UkGUxQ,GU  
         h.8J6;36  
         Cvl"")ZZ`  
        paraTotal = .Paragraphs.Count VWNmqeP  
        paraCounter = 1 E@N
_~1  
         LAvAjvRc  
        LastTitle0No = 0 _x>u"w  
        LastTitle1No = 0 ciXAyT cG  
        LastTitle2No = 0 U3Dy:K[  
        LastTitle3No = 0 6Es-{u(,  
        LastTitle4No = 0 lc'Jn$O@  
        LastTableNo = 0 .rMGI"  
        LastFigureNo = 0 ZBnf?fU  
         [qb#>P2G3  
        Dim Sec As Long 2R1W[,Ga!  
         +-{HT+W  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) @ojn<7W  
        If Sec = 0 Then b.t]p  
            Exit Sub 3W27R  
        End If ?^6RFbke+  
         K1$Z=]a+  
        k = 0 4f/8APA  
        Do While (paraCounter < paraTotal) And bContinue \dCdyl6V  
            k = k + 1 3|~(9b{+  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then <Z
nA
Ph  
                Exit Do t<`BaU  
            End If ?HBc7$nW  
            paraCounter = paraCounter + 1 aFbA=6  
            If k Mod 20 = 0 Then IYrO; GQ  
                Me.lbCounter.Caption = paraCounter M9iu#6P  
                DoEvents hio{
: (  
            End If  %RJW@~!  
        Loop 6x.#K9@q4  
         <CH7jbK  
         L1J"_.=P  
        Do While (paraCounter < paraTotal) And bContinue i,V~5dE[I<  
             dpE+[O_  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) ]6(NeS+  
            ShapeHeight = 0 b0 5h,  
            ShapeWidth = 0 u'
'(;U[  
           \?}ZXKuJj  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth 0{ jRXa-(  
             l~\'Z2op  
            Select Case ParaType rv\<Q-uQ8  
                Case "【】表格内容" YoahqXR`  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" ANWa%%\T  
                Case "章" 9BF#R<}h  
                    LastTitle0No = LastTitle0No + 1 xvW+;3;  
                    '新一章开始，复位其下属标题编号 `4$" mO>+  
                    LastTitle1No = 0 e0aeiG$/0  
                    LastTitle2No = 0 4w\')@`[jk  
                    LastTitle3No = 0 udw5A*Ls  
                    LastTitle4No = 0 {Ynr(J.  
                     N7[i443a  
                    k = Val(ttNo) v/(< fI^  
                    If k = 0 Then '非数字编号章节 0/),ylCj  
                        If ttNo <> NoSeries1(LastTitle0No) Then T3Tk:r  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString Q"\*JV
5  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText Iunt!L  
                        End If gB&'MA!  
                    Else J%%nv5y  
                        If Val(ttNo) <> LastTitle0No Then 6W$k^<S  
                            rText = "第" & LastTitle0No & ttString F+}MW/ra@  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText 2"2b\b}my  
                        End If xKIm2% U9  
                         F*(<
`V  
                    End If _I75[W!  
                     UoBu0Rx  
                    '章段落设置 _o<8R@1  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 fRq2sK;+  
                    .Paragraphs(paraCounter).Style = "QLNU章节" !$fBo3!B_8  
                    .Paragraphs(paraCounter).Range.Select j'v2m
6/  
                    Selection.EndKey unit:=wdLine i8EMjLBUR  
                    tc = Replace(rText, vbCr, "") ]ul]L R%.  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False aP2  
                Case "一级标题" |>d56  
                    LastTitle1No = LastTitle1No + 1 !K3 #4   
                    '新一级标题开始，复位其下属标题编号 sg2T)^*V  
                    LastTitle2No = 0 b}axw+  
                    LastTitle3No = 0 (?$ }Vp  
                    LastTitle4No = 0 $n>.;CV  
                     )5p0fw  
                    If ttNo <> NoSeries1(LastTitle1No) Then qy.Mi{=~:  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString I>fEwMk ~  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText M$|^?U>cm  
                    End If 02bv0  
                   ^cX);koO  
                     %e=BC^VW  
                    '一级标题段落设置  格式：一、标题内容 e6,/i  
                    .Paragraphs(paraCounter).Range.Text = rText vJK0>":G  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" D4[t@*m>7  
                    .Paragraphs(paraCounter).Range.Select 8 \%*4L'  
                    Selection.EndKey unit:=wdLine bluhiiATd  
                    tc = Replace(rText, vbCr, "") :+en8^r%  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False f%d7?<rw  
                Case "二级标题" U%"v7G-  
                    LastTitle2No = LastTitle2No + 1 3>c
<E1   
                    '新二级标题开始，复位其下属标题编号 +Z/Pj_.o  
                    LastTitle3No = 0 >^kRIoBkg  
                    LastTitle4No = 0 IhY[c/|i  
                     LzP+l>m  
                    If ttNo <> NoSeries1(LastTitle2No) Then jsH7EhF{'  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString ]B\ H  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText B`9'COw  
                    End If "1WwSh}Z  
                     / tDwgxJ  
                    '二级标题段落设置 格式：(一)、标题内容 Mej
M(o_kk  
                    .Paragraphs(paraCounter).Range.Text = rText OZDnU6  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" abx/h#_q  
                     qfx=   
                    .Paragraphs(paraCounter).Range.Select 3)p#}_u{  
                    Selection.EndKey unit:=wdLine
RCgZ GP  
                    tc = Replace(rText, vbCr, "") ?/5WM%  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False [|E 93g  
                 evz{@;.R  
                Case "三级标题" W(Xb]t=19  
                    LastTitle3No = LastTitle3No + 1 x^xlH!Sc  
                    '新三级标题开始，复位其下属标题编号 ms`R^6Ra  
                    LastTitle4No = 0 ALJ^XvB4V  
                     X\V1c$13CK  
                    If Val(ttNo) <> LastTitle3No Then k0Rd:
DxO  
                            rText = LastTitle3No & ". " & ttString R~PD[.\u  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText L;wzvz\+  
                         hZ[,.  
                    End If tg.[.vKs  
                    '三级标题段落设置 格式：1. 标题内容 :$L^l{gT  
                    .Paragraphs(paraCounter).Range.Text = rText +?DP r  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" 1T!(M"'Ij  
                    .Paragraphs(paraCounter).Range.Select =0 mf   
                    Selection.EndKey unit:=wdLine Am{Vtl)i  
                    tc = Replace(rText, vbCr, "") H0LEK(K  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False LJ\uRfs  
                Case "四级标题" p gWBW9\  
                    LastTitle4No = LastTitle4No + 1 {ZrIA+eH  
                     s Zx
f.  
                    If Val(ttNo) <> LastTitle4No Then $!H;,Jxv  
                            rText = "(" & LastTitle4No & "). " & ttString .}=gr+<bf  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText Rm>AU=  
                     o]u,<bM$  
                    End If GHaD32  
                    '四级标题段落设置 格式：(1). 标题内容 XOe)tz L  
                    .Paragraphs(paraCounter).Range.Text = rText ~M _@_  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" a9}7K/Y=d  
                    .Paragraphs(paraCounter).Range.Select h/?$~OD  
                    Selection.EndKey unit:=wdLine I($0&Y\De  
                    tc = Replace(rText, vbCr, "") ga%gu9  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False z.P<)[LUc  
                 $3psSQQo  
                Case "表格标题" `bY>f_5+  
                    LastTableNo = LastTableNo + 1 8eGq.+5G  
                     62)Qr  
                    If ttNo <> CStr(LastTableNo) Then avxr|uk  
                            rText = "表" & LastTableNo & ". " & ttString 9kZ[Z ,=>  
                            ErrMsg.AddItem "表格编号错误：" & ParaText Eh B0w;c  
                   <$metN~9j  
                    End If % 8u97f W  
                     Ymt.> 8L  
                    '表格名称段落设置 格式：表1. 表格名称 lC|`DG-B  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" ~>6d}7xs  
                    xe = Replace(rText, vbCr, "") (#KSwWo{ed  
                    .Paragraphs(paraCounter).Range.Select (JenTL`%u  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 AWo\u!j  
                    Selection.Range.Text = xe UNY O P{  
                    Selection.EndKey !Pd@0n4  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False "{>BP$Jz  
                 n- P<y  
                Case "表格首行" [ *P~\' U  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" '1P~"P3  
                Case "图片标题" ?V&#nA  
                    LastFigureNo = LastFigureNo + 1 r9sq3z|%  
                     W 2yNwB+{  
                    If ttNo <> CStr(LastFigureNo) Then nM#/uuRl|  
                            rText = "图" & LastFigureNo & ". " & ttString `X)y5*##wq  
                            ErrMsg.AddItem "表格编号错误：" & ParaText Lp31Y . 4  
                   -j& A;G  
                    End If .=G?Zd  
                    '图片名称段落设置 格式：图1. 图名称 weX%S&#?  
                    .Paragraphs(paraCounter).Range.Text = rText DL<b)# h#  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" 5y^I~"_i  
                    .Paragraphs(paraCounter).Range.Select $y{rM%6JU  
                    Selection.EndKey unit:=wdLine Y2$wL9">  
                    xe = Replace(rText, vbCr, "") )IBvm1  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False -A1@a=q  
                Case "正文" g A+p^`;[  
                     '正文名称段落设置 f(S9>c2  
                    .Paragraphs(paraCounter).Style = "QLNU正文" `s8*n(\h  
               Case "文献条目" }ZqnsLu[)  
                    With .Paragraphs(paraCounter) b,h@.s  
                        '.Range.Select }jdMo83  
                        'Selection.ClearFormatting Y[sBVz'j5  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” +-2W{lX  
                        .Style = "QLNU参考文献" -<0xS.^  
                    End With 2S
gv  
               Case "图表注解" H^sImIEUT  
                    With .Paragraphs(paraCounter) BcXPgM!Xqz  
                        .Range.Font.NameFarEast = "楷体" = q\TWz  
                        .Range.Font.NameAscii = "Times New Roman" yjE$o?A  
                        .Range.Font.Size = 9 '小5号字 emT/5'y  
                         >dK# tsp  
                        .Alignment = wdAlignParagraphCenter S/
,)X  
                        .LeftIndent = 0 ?*AhGza/  
                        .RightIndent = 0 6K7DZ96 L  
                        .FirstLineIndent = 0 unvS`>)Np  
                        .LineSpacing = 12 K&4FFZ  
                        .LineSpacingRule = wdLineSpaceExactly Wr+/ 9  
                        .LineUnitAfter = 0 .RW&=1D6  
                        .LineUnitBefore = 0 z"%{SI^  
                        .OutlineLevel = wdOutlineLevelBodyText eL" +_lW  
                        .PageBreakBefore = False @o KW$\  
                        .RightIndent = 0 R,8 W7 3  
                        .WordWrap = True #IvHxSo&  
                        .LineUnitAfter = 0.5 3-Bz5sj9  
                         A'6-E{  
                    End With /$NR@56 \  
                Case Else HkPdqNC&  
                    '不作处理 9ERyr1-u v  
            End Select l~Hu#+O  
             do[w&`jw8  
            '含有inlineshape的段落处理 %p;; aZG  
            If ShapeHeight > 30 Then slnvre
l  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 (&i c3/-  
            End If B=}s7
$^  
             ZyX+V?4  
            If (ShapeWidth + ShapeHeight) > 150 Then N(J'h $E  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" A1Es>NK[qW  
            End If XOL_vS24  
              MFyi#nq  
            '段落计数器递 V7<w9MM  
            paraCounter = paraCounter + 1 fnJx$PD~  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter y$8S+N?>  
            Me.txtStatus.Text = ParaText GLp~SeF#  
            DoEvents 1<G,0Lt  
        Loop 7}L.(Jp9  
    End With a)S{9q}%  
     Cy\ o{6  
    msg = "" \_)[FC@  
     Hkrhd   
    For i = 0 To Me.ErrMsg.ListCount - 1 XUVBD;"f!  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) v%muno,  
    Next  CH$K_\  
     <:>[24LJ{  
     FtW=Cc`hC_  
     )mH(Hx  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg yZ-Ql11
 
    Me.cmdCheck.Enabled = True B7.<A#y2  
    Me.txtStatus.Visible = True %RX!Pi}5+g  
    Me.lbParaType.Visible = False *+TO%{4  
     PDpuHHB  
    bContinue = False 6 \?GY  
End Sub 4(? Z1S  
#Xk/<It  
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) .6c Bx  
    Dim pTEXT As String OIs!,G|  
     U!jRF  
    pTEXT = ChKRange.Text LJSx~)@  
     &})Zqc3Lqk  
    ParaType = "其它" X`C ozyYuD  
    TitleString = pTEXT ;w;+< Rd  
    TitleNo = "N/A" [(; .D  
     ^|%N _ s  
    shpCounter = ChKRange.InlineShapes.Count XMF#l]P  
    If shpCounter <> 0 Then kl|m @Nxp
 
        MaxShpHeight = 0: TotalShpWidth = 0 b63DD(  
        For i = 1 To shpCounter bg2r  
            k = ChKRange.InlineShapes(i).Height =j%ORD[  
            l = ChKRange.InlineShapes(i).Width *JOp)e0b  
            If k > MaxShpHeight Then UNA!vzOb  
                MaxShpHeight = k 0HI0/Tvu$<  
            End If Et'&}NjI  
            TotalShpWidth = TotalShpWidth + l x<5;#  
        Next 'soll[J  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then <uImZC  
            Exit Sub ~ zoZ{YqP  
        End If 
z $iI  
    End If by$S#ef  
     q}]z8 L  
    '空行 [5PQrf~M
o  
    If Len(pTEXT) <= 2 Then Tdxc%'l  
        Exit Sub =%S*h)}@  
    End If p#N2K{E  
     S]ed96V v  
         zG7y$\A  
    '是否为表格中的文字 g*WY kv  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then v2ab84 C*  
        ParaType = "表格内容" L*6>S_l[  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) 5Nt9'
"  
        If k = 1 Then ^YB3$:@$U  
            ParaType = "表格首行" UW Px|]RC  
        End If /tJ% gF  
        Exit Sub * Na8w'Q  
    End If |[@v+koq  
     Z*Fn2I4  
    '例外情况：脚注 6RfS_  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then C;YtMY:  
        ParaType = "脚注" geNvp0  
        Exit Sub u)~::2BXAn  
    End If `^)oVs  
     C_ W%]8u  
    '例外情况：尾注 ^3C%&  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then l]L"Ex{  
        ParaType = "尾注" 7WHq'R{@  
        Exit Sub 8"ulAx74>  
    End If o;v
_vCLO  
     ;Ouu+#s  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then loD:4e1  
        ParaType = "页眉页脚" EdCcnl?R6  
        Exit Sub d z\yP v~  
    End If ]x@36Ok)A  
     (/|f6_9!  
     p@3 <{kLm  
    With regEX k^%F4d3z@C  
        .Global = True v{) *P.E  
         ~,{nBp9*  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" v
"sN K  
        If regEX.Test(pTEXT) Then FXbalQ?^  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") )5x,-m@  
            TitleString = regEX.Replace(pTEXT, "$3") ei @$_w*TH  
            TitleNo = regEX.Replace(pTEXT, "$1") [ak[ZXC,  
            ParaType = "章" RCMO?CBe  
            Exit Sub {qFAX<{D  
        End If V7?Pv Q  
         H6Kt^s<6xu  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" H,)2Ou-Wn  
        If regEX.Test(pTEXT) Then w"!zLB&9[  
            ParaType = "一级标题" FD.L{  
            regEX.Execute (pTEXT) Od~uYOL/B  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") go AV+V7  
            TitleString = regEX.Replace(pTEXT, "$3") 4~h0/H"  
            TitleNo = regEX.Replace(pTEXT, "$1") 6384$mT,S  
            Exit Sub F+(S-Qk1  
        End If .ZF%$H  
         \{:A&X~\!  
        '全角或半角括号中的数字 g^+p7G  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$"  5)'Y\~2  
        If regEX.Test(pTEXT) Then ajk}&`Wj"  
            ParaType = "二级标题" B2Y.1mXq  
            regEX.Execute (pTEXT) O[t?*m1/  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") d;YKw1  
            TitleString = regEX.Replace(pTEXT, "$5") Slg*[r
#  
            TitleNo = regEX.Replace(pTEXT, "$2") \^"Vqx  
            Exit Sub vRC >=y*=  
        End If 5["3[h  
         5uQ+'*xN%  
        '阿拉伯数字  1. 2. f;BY%$  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" D1ZyJs#  
        If regEX.Test(pTEXT) Then 4h|*r !  
            ParaType = "三级标题" g]: [^p  
            regEX.Execute (pTEXT) 0j(U &  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 ,zM@)Q;9  
            TitleString = regEX.Replace(pTEXT, "$3") >dJuk6J&c&  
            TitleNo = regEX.Replace(pTEXT, "$1") yjL+1_"B  
            Exit Sub ~:7y!=8#  
        End If A)"L+Yu5  
         Dh2Cj-| ~  
        '全角或半角括号中的阿拉伯数字 s=(q#Z  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" HL4=P,'  
        If regEX.Test(pTEXT) Then P B$beQ  
            ParaType = "四级标题" !;,\HvEZYw  
            regEX.Execute (pTEXT) -#9e
t30  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") x;yvv3-$  
            TitleString = regEX.Replace(pTEXT, "$5") L5I!
YP#v  
            TitleNo = regEX.Replace(pTEXT, "$2") X;W
0r5T  
            Exit Sub 0}NDi|o  
        End If 4;Ucas6  
         _-y1>{]H  
        '表格名称 T
YGI f4z  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" SXqB<j$.;  
        If regEX.Test(pTEXT) Then ?g4Rk9<!i  
            ParaType = "表格标题" |Qcz5M90e  
            regEX.Execute (pTEXT) 9&f+I@K  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) T,9q~*"  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) S!u8JG1  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) PY7H0\S)  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 \f^xlX3&`  
            Exit Sub {guOAT-w  
        End If WyatHC  
         E8
r6P:5d`  
        '图片名称 <
DR|r  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" |;~=^a3?q  
        If regEX.Test(pTEXT) Then i8e*9;4@  
            ParaType = "图片标题" %Hd[,duwO  
            regEX.Execute (pTEXT) \;~Nj#  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") N ? Jy  
            TitleString = regEX.Replace(pTEXT, "$3") 3#t#N W*e  
            TitleNo = regEX.Replace(pTEXT, "$1") s,#We} bv  
            Exit Sub u~M$<|;  
        End If Dch\k<Te  
         o0`']-)*2  
        '参考文献 v; i4ZSV^A  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 xA7~"q&u  
        If regEX.Test(pTEXT) Then ;&6 {c  
            ParaType = "文献条目" U$gR}8\e  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") l%_K
$$C  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") p2 1|  
            Exit Sub zTB&Wlt  
        End If u>9` ?O44  
         C\5G43`  
        prfx = Left(pTEXT, 2) !hq*WtIk  
        If prfx = "注：" Or prfx = "注:" Then
bVU4H$k  
            ParaType = "图表注解" q-;Y }q  
            Exit Sub T}^3Re`i  
        End If b_nE4>  
         41Q5%2  
         Pp!4Ak4TT9  
        ParaType = "正文" =9 ff983  
         N gF7$@S  
    End With tWy. Gz\  
End Sub pt.V^a  
ZN)EbTpc\a  
Sub ConvertListToOrdinary() G1j j:]1  
    Dim st As Paragraph li3,6{S
#  
    With ActiveDocument .o`Io[io  
        For i = .Paragraphs.Count To 1 Step -1 Ny7*MZ-  
            Set st = .Paragraphs(i) T>% 5<P
 
            lst = st.Range.ListFormat.ListString _*e_?]G-  
            If lst <> "" Then rc[~S  
                st.Range.ListFormat.RemoveNumbers 9qCE{[(  
                st.Range.InsertBefore lst & " " @6~lZgXOV[  
            End If \:{K",2  
        Next qA)YYg/G  
    End With s$pXn&:  
    Set st = Nothing axUj3J>  
End Sub
1-E6ACq  
i,ZEUdd*_  
Private Sub UserForm_Activate() Hh;l
T  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" L q>lj`>  
    Me.lbTotal.Font.Bold = True q]OIP"yv  
    Me.txtStatus.Visible = False Ph""[0n%o  
    Me.cmdCheck.Enabled = True G !$~'o%/  
ZAfuW^r  
End Sub eg/itty  
WlQCPC  
nC,QvV  
Sub CheckSuperScript() Hj r'C?[  
    Selection.Find.ClearFormatting 1Zc=QJw@  
    Selection.Find.Replacement.ClearFormatting .+(
V</  
    With Selection.Find F\+AA  
        .Text = "[【\[［〖](*)[】\]〗］]" FhY#3-jH  
        .Replacement.Text = "[\1]" '(B -{}l  
        .Replacement.Font.Superscript = True ~w uCa!!A  
        '.Replacement.Font.Color = wdColorBlue yC
1OeO8{  
        .Forward = True +^(_S9CO  
        .Wrap = wdFindContinue -(?/95 Y  
        .FORMAT = True @-[}pZ/  
        .MatchCase = False 9#U]?^DJ@  
        .MatchWholeWord = False FhUi{`  
        .MatchByte = False Jyg1z,B <  
        .MatchAllWordForms = False ?SgFD4<~P  
        .MatchSoundsLike = False aXj UDu7  
        .MatchWildcards = True #d$zW4ur2  
    End With GalSqtbmDt  
    Selection.Find.Execute Replace:=wdReplaceAll QGfwvFm  
End Sub Ty
&1
R?  
bdstxjJ`  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) X<8|uP4  
    bContinue = False EF:ec9 .  
    Set regEX = Nothing dlfjx  
End Sub M}[Q2v\  
Rs"=o>Qu  
Sub CeateOrModifyStyle() 6agG*
x  
' 8a8a:d  
' k@lJ8(i^qU  
Dim stl As Style SeXgBbGAne  
     9Zl4NV&B  
    Options.Pagination = False z9IW&f~~P  
     u]
NsCHKlT  
    On Error Resume Next c>D~MCNxg  
    For Each stl In ActiveDocument.Styles UZs '[pm)  
        stl.Delete cJ$jU{}  
    Next 9*s8%pL  
    On Error GoTo 0 KDE yVYO:  
    
n~yHt/T  
    Set stl = Nothing QxW+|Gt._  
     }O~D3z4l0  
    DoEvents q]: 72+  
    On Error Resume Next 9*I[q[>9  
     =JE<oVP8  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph z{OL+-OY  
     B(Yg1jAe  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph z8a{M$-Q
 
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph .B~yI3D`M  
     m] U  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph KdozB!\  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph qc,EazmU  
     `&c[s%0  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph XlF,_  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph W'@G5e  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph H.l0kBeG  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph Q +l{> sL  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph (v?@evQ  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph 0-uj0"r`  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph yT OZa-  
     ib(|}7Je  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph bgE]Wk0  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph 'Iw`+=iVz  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph 9{fP.ifdv7  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph Ao?b1VYy/  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph @xo8"kl  
     |GQq:MB;z  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph W gyRK2#!  
    On Error GoTo 0 BTr oe=R  
    DoEvents Ux',ma1JK  
     (ww4(  
    'BaseStyle b X38=.up  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False =t_+ajY%  
    With ActiveDocument.Styles("BaseStyle").Font *c4OhMU(  
        .NameFarEast = "宋体" p9i7<X2&  
        .NameAscii = "Times New Roman" no-";{c  
        .NameOther = "宋体" hb*Y-$Zp  
        .Size = 10.5 NqF*h at  
        .Bold = wdUndefined KtAEM;g  
        .Italic = wdUndefined b~fl,(sZp  
        .Subscript = wdUndefined ^n~Kr1}nj  
        .Subscript = wdUndefined a7_Q8iMe  
         am/}V%^  
        .Underline = wdUnderlineNone .a2R2~35  
        .UnderlineColor = wdColorAutomatic .&b^6$dC  
        .StrikeThrough = False prS%lg>  
        .DoubleStrikeThrough = False e^q^AP+*  
         *sp")h#Z  
        .Outline = False yj_/:eX  
        .Emboss = False />Zfx.Aj6  
        .Shadow = False
n5~Dxk  
        .Hidden = False aO1.9 !<v  
        .SmallCaps = False 8HLL3H0  
        .AllCaps = False T$M
Xsq  
        .Color = wdColorAutomatic OcF_x/#  
        .Engrave = False |g{50r'=  
        .Scaling = 100 l5^Q
  
        .Kerning = 1 Yl a
u  
        .Animation = wdAnimationNone +/$&P3  
        .DisableCharacterSpaceGrid = False ^-?^iWQG  
        .EmphasisMark = wdEmphasisMarkNone (BH<\&yHE  
    End With C\"C12n{  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat %6fnL~A  
        .LeftIndent = 0 .sit5
BX  
        .RightIndent = 0 )M7yj O!  
        .SpaceBefore = 0 ]+ub R;  
        .SpaceBeforeAuto = False OF1^_s;  
        .SpaceAfter = 0 BIMX2.S1o  
        .SpaceAfterAuto = False dAG@'A\f  
         a {7*um  
        .LineSpacingRule = wdLineSpaceSingle >j]Gz-wC  
        .Alignment = wdAlignParagraphJustify tC1'IE-h  
         ozS'n]8*  
        .WidowControl = False 4Kj8i  
        .KeepWithNext = False ]{i0?c  
        .KeepTogether = False .DwiIr'  
        .PageBreakBefore = False j#c@
dze  
        .NoLineNumber = False H{E(=S  
         F',1R"/}  
        .FirstLineIndent = CentimetersToPoints(0) z
I9jxwXU  
        .OutlineLevel = wdOutlineLevelBodyText NlhC7  
        .CharacterUnitLeftIndent = 0 fMf;  
        .CharacterUnitRightIndent = 0 s3ASA.*  
        .CharacterUnitFirstLineIndent = 0 +-t&li%F  
        .LineUnitBefore = 0 (oiQ5s^f  
        .LineUnitAfter = 0 '#A_KHD  
        .AutoAdjustRightIndent = True ok,O/|E}?  
        .DisableLineHeightGrid = True 0*P-/)o x  
         FDiDHOR  
        .FarEastLineBreakControl = True \0}bOHqEH  
        .WordWrap = True 5<GeAW8ns]  
        .Hyphenation = False O '#FVZ.g  
         BHz_1+d  
        .HangingPunctuation = True <au_S\n  
        .HalfWidthPunctuationOnTopOfLine = True hUi5~;Q5Fi  
        .AddSpaceBetweenFarEastAndAlpha = True c9uu4%KG6<  
        .AddSpaceBetweenFarEastAndDigit = True hb
1h.F  
        .BaseLineAlignment = wdBaselineAlignBaseline r!{i2I|  
    End With 8$JJI({bH  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False 7{"F%`7L  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll Z{
YuX
 
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese K
7x;/O  
    ActiveDocument.Styles("BaseStyle").NoProofing = False wk'(g_DP  
     D)L~vA/8b  
    '一级标题题样式 1A;,"8kBd  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") XH0Vs.w  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" c;29GHs2  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False #
WDpiV7B  
    With ActiveDocument.Styles("QLNU一级标题").Font o|84yT!~  
        .NameFarEast = "黑体" A0.xPru1p  
        .NameAscii = "Arial Black" ={h^X0<s9  
        .NameOther = "黑体" CO ZfR~}  
        .Name = "黑体" ?o]
NV  
        .Size = 16              '三号 _^eA1}3  
        .Bold = True PCDv
EbpG  
        .Italic = wdUndefined 'q/C: Yo  
        .Subscript = wdUndefined hn6'
$P  
        .Superscript = wdUndefined ~tNk\Kkv  
    End With ~P!=fU)  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat =<M>fJ )  
         o}w RgG  
        .LeftIndent = CentimetersToPoints(0) [D?xd/G  
        .RightIndent = CentimetersToPoints(0) U
b\&k[F  
        .FirstLineIndent = CentimetersToPoints(0) +=L+35M  
         9*"K+t:  
        .LineSpacingRule = wdLineSpaceSingle RM%Z"pc Y6  
        .Alignment = wdAlignParagraphCenter t
g%<@U`7=  
         |Cfo(]>G  
        .WidowControl = True i)'u!V  
        .KeepWithNext = True dj,lbUL  
        .KeepTogether = True 3uvl'1(%J  
        .OutlineLevel = wdOutlineLevelBodyText uuUjIZCtz  
         7 oYD;li$k  
        .LineUnitBefore = 0.5 Sxy3cv53  
        .LineUnitAfter = 0.5 (/> yfL]J  
    End With {c1wJ  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False Ym]rG 4  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll 2gvS`+<TP  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese 4Im}!q5;:<  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True w3>G3=b  
    DoEvents f4X}F|!h  
     '/ueY#eG  
    '二级 x1CMW`F  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") M-!#-l  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" BNJG-b|g^  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False :w4H$+j  
    With ActiveDocument.Styles("QLNU二级标题").Font _ -ec(w~/  
        .NameFarEast = "黑体" `Sj8IxO  
        .NameAscii = "Arial Narrow" -%VFC^'5  
        .NameOther = "黑体" k]TJL9Q  
        .Name = "黑体" (Zy=e?E,  
        .Size = 15        '小三号 h^K>(x  
        .Bold = False X5tV Xd  
        .Outline = False Df1eHa5-7  
        .Italic = wdUndefined 4uVyf^f\]f  
        .Subscript = wdUndefined Eh`W J~  
        .Superscript = wdUndefined at3YL[,[Z  
    End With e [F33%  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat b]8\%=d  
        .LeftIndent = CentimetersToPoints(0) I= z+`o8  
        .RightIndent = CentimetersToPoints(0) {5fq4AA6  
        .FirstLineIndent = CentimetersToPoints(0) Y(R],9h8  
         `lO/I+8  
        .LineSpacingRule = wdLineSpaceSingle 127@ TN"  
        .Alignment = wdAlignParagraphLeft KA`)dMWL  
         wp/x|AV  
        .WidowControl = True $i `@0+:  
        .KeepWithNext = True LR17ilaa'  
        .KeepTogether = True @[rlwwG,  
        .PageBreakBefore = False r7)iNTQ1  
        .OutlineLevel = wdOutlineLevelBodyText E?mW4?  
         r^\Wo7q  
        .LineUnitBefore = 0.5 0wETv  
        .LineUnitAfter = 0.5 D>wo>,G  
         .B$3y#TOb  
    End With Ujly\ix`  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False %N<>3c<8P  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll C|ou7g4'p  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese %Z
lnGr  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True y2C/DyuAY|  
    DoEvents \g@jc OKU  
     o{| |Ig  
    '三级标题样式 MD+eLA7  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") k#@)gL  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" %bnjK
#o"Q  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False ;u%4K$   
    With ActiveDocument.Styles("QLNU三级标题").Font JAL"On#c#0  
        .NameFarEast = "宋体" l?beqw:  
        .NameAscii = "Times New Roman" Cmj `WSSa  
        .NameOther = "黑体" IZ_ B $mo  
        .Name = "黑体" 9l7 youZ]  
        .Size = 14               '四号 Q[Tbdc%1EG  
        .Bold = False VqB9^qJ]!  
        .Outline = False gm&O-N"=U  
        .Italic = wdUndefined kZ 9n@($B  
        .Subscript = wdUndefined SR\$fmo  
        .Superscript = wdUndefined 
,!^w  
    End With }% ?WS  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat ;77q~_g$  
        .LeftIndent = CentimetersToPoints(0) A'? W5~F  
        .RightIndent = CentimetersToPoints(0)  PuU<  
        .FirstLineIndent = CentimetersToPoints(0) *;(GL  
         v\COl*  
        .LineSpacingRule = wdLineSpaceSingle SYK?5_804  
        .Alignment = wdAlignParagraphLeft -(.\> F  
         xJ|Z]m=d   
        .WidowControl = True x\(yjNZH  
        .KeepWithNext = True TGPHjSZ1  
        .KeepTogether = True \cq.M/p  
        .PageBreakBefore = False IRDD   
        .OutlineLevel = wdOutlineLevelBodyText .rbKvd?-}  
         Z@:R'u2Lk  
        .CharacterUnitLeftIndent = 0 }pPt- k  
        .CharacterUnitRightIndent = 0 k Nw3Qr  
        .CharacterUnitFirstLineIndent = 2 }4I;<%L3`  
         7otqGE\2  
        .LineUnitBefore = 0.5 C)s*1@af  
        .LineUnitAfter = 0 s!BZrVM%I`  
    End With X1h*.reFAL  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False rxI Ygh  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll v]KI=!Gs  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese X `n*M]  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True \"@`Rf   
    DoEvents >za=v  
     GEf[k OQ  
    '四级标题样式 04<T2)QgK  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") D61e  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" ol8uV{:"  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False 6NqLo^ "g  
    With ActiveDocument.Styles("QLNU四级标题").Font GUK3`}!%  
        .NameFarEast = "宋体" 7wc{.~+  
        .NameAscii = "Times New Roman" Bcy$" F|r  
        .NameOther = "宋体" JYWc3o6  
        .Name = "宋体" qS+Il g  
        .Size = 12               '小四号 S1n'r}z8  
        .Bold = True / k8;k56  
        .Outline = False Y3wL EG%,:  
        .Italic = wdUndefined rO{"jJ  
        .Subscript = wdUndefined x?Oc<CQ-2  
        .Superscript = wdUndefined (G6N@>V(`  
    End With uv dx>5]  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat A&fh0E (t  
         ^l/$ 13=  
        .LeftIndent = CentimetersToPoints(0) }u7&SU  
        .RightIndent = CentimetersToPoints(0) q&wXs/$a  
        .FirstLineIndent = CentimetersToPoints(0) 6Bm2_B  
         #3u471bp  
        .LineSpacingRule = wdLineSpaceSingle -x1O|q69  
        .Alignment = wdAlignParagraphLeft C!" .[3  
         0CO6-&F9n  
        .WidowControl = True ui6B  
        .KeepWithNext = True V/-~L]G  
        .KeepTogether = True T)B1V,2j=  
        .PageBreakBefore = False EMejvPnZO  
        .OutlineLevel = wdOutlineLevelBodyText &gR)bNIC_=  
         }UWRH.;v  
        .CharacterUnitLeftIndent = 0 g
BG.3\[  
        .CharacterUnitRightIndent = 0 Swz1RT  
        .CharacterUnitFirstLineIndent = 2 W( tXq  
         wen6"  
        .LineUnitBefore = 0 $/(H%f&  
        .LineUnitAfter = 0 t |zLR  
         s2ys>2k  
    End With MXhRnVz"W  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False Pjff%r^  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll ,Pd2ZfZ  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese $rC
`)"t  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True Fw5r\J87c  
    DoEvents W}1h~rNy  
     |KC
3^  
    '正文校式 9?W38EF  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") fJC,ubP[5  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" MY[
" zv  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False 8)k.lPoo.  
    With ActiveDocument.Styles("QLNU正文").Font w,.Hdd6  
         , 0rC_)&B  
        .NameFarEast = "宋体" :+,qvu!M7  
        .NameAscii = "Times New Roman" %t
zz3Y  
        .NameOther = "宋体" K`2a{`  
        .Name = "宋体" jWW2&cBm\  
         p8^^Pva/  
        .Size = 12               '小四号 .ODtduURe  
         Cst>'g-yB  
        .Bold = wdUndefined /(nA)V( :  
        .Italic = wdUndefined 3^us;aOr  
        .Subscript = wdUndefined f i!wrvO  
        .Superscript = wdUndefined o&~z8/?LA  
         (Qq$ql27  
        .Outline = False Q\:'gx8`  
        .Emboss = False tIC_/ 6  
        .Shadow = False q& Vt*  
        .Hidden = False Yazpfw 7'd  
         3r{'@Y =)Y  
        .DisableCharacterSpaceGrid = True es(vW
f'  
    End With W:>RstbnMG  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat 5y"yd6O]O5  
         MJXm7<(  
        .LeftIndent = CentimetersToPoints(0) i
x&hsNzD  
        .RightIndent = CentimetersToPoints(0) lv ^=g  
        .FirstLineIndent = CentimetersToPoints(0) I/)dXk~  
         u-k?ef  
        .LineSpacingRule = wdLineSpaceExactly {+t'XkA  
        .LineSpacing = 20 uYMW5k_,>  
        .Alignment = wdAlignParagraphLeft ^J~ }KOH  
         7F'61}qL  
        .WidowControl = False *<#&ne8  
        .KeepWithNext = False a}c(#ZLs  
        .KeepTogether = False C>;yW7*g"  
        .PageBreakBefore = False >8tE`2[i*  
        .Hyphenation = False g%=\Wiit]  
         }u+R,@ l/  
        .OutlineLevel = wdOutlineLevelBodyText Vq'&t <K#  
         28BiuxVW  
       >k\*NW  
        .CharacterUnitLeftIndent = 0 ccm <rZ7  
        .CharacterUnitRightIndent = 0 Ruk6+U  
        .CharacterUnitFirstLineIndent = 2 uR)@v^$FE  
         ]-fZeyY$  
        .LineUnitBefore = 0 Il;'s  
        .LineUnitAfter = 0 sq)Nn&5A  
        .SpaceBefore = 0 KQ9:lJKr  
        .SpaceAfter = 0 G:e}>'  
         {@, L  
        .DisableLineHeightGrid = True IB*%PMTF  
    End With $~~=SOd0  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False 3.d=1|E  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll d=4MqX r  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese uV 6f~cQ  
    ActiveDocument.Styles("QLNU正文").NoProofing = True G(0bulq  
    DoEvents j^!J:Bj  
     _Wb-&6{  
    '图片段落样式 v*BA\ &  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") S5Px9&N8(  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" %""Cac
X  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False _1R`xbV  
    With ActiveDocument.Styles("QLNU图片段落").Font X}usyO'pW  
        .Size = 12               '小四号 7_Q86o  
        .Italic = wdUndefined FUcs=7c  
        .Subscript = wdUndefined {G{@bUG]p  
        .Superscript = wdUndefined @i)tQd!s  
    End With P|(J]/  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat 1k/l7&n"  
         dnaf>G3  
        .LeftIndent = CentimetersToPoints(0) *<A;jP  
        .RightIndent = CentimetersToPoints(0) |XH3$;=*h  
        .FirstLineIndent = CentimetersToPoints(0) rP\7C+  
          +NXj/  
        .LineSpacingRule = wdLineSpaceSingle f@/qW!o
 
        .Alignment = wdAlignParagraphCenter -=sxbs.aA  
        .KeepWithNext = True \A~
 '&  
        .OutlineLevel = wdOutlineLevelBodyText *r%mqAx(  
         <s7{6n')  
        .CharacterUnitLeftIndent = 0 p$%h!.~99T  
        .CharacterUnitRightIndent = 0 }.gg!V'9w  
        .CharacterUnitFirstLineIndent = 0 ytC{E_
 
         0'~b<>G%  
        .LineUnitBefore = 0 bA^a@ lv a  
        .LineUnitAfter = 0 z vYDE]  
    End With n `Xz<Q!  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False Ti/iD2g  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll (7wR*vO^  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese e-K8K+7  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True q-3KF  
    DoEvents D&^:hs@  
     {Jy%h8n*  
     \rN_CBM  
    '第X章 bT*4Qd4W  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") nRE}F5k  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" 1aDDl-8,  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False &4%J35~  
    With ActiveDocument.Styles("QLNU章节标题").Font N^ET qg  
        .NameFarEast = "黑体" 
}-Ma~/  
        .NameAscii = "Arial Black" )UdS(Bj  
        .NameOther = "Arial Black" =Fs LF  
        .Name = "黑体" P3 Evv]sB@  
        .Size = 16 z$V8<&q  
        .Bold = True LK%B6-;~-  
        .UnderlineColor = wdColorAutomatic SBoF(0<  
        .Outline = False %7@H7^s}9  
        .Italic = wdUndefined m{5$4v,[
 
        .Subscript = wdUndefined \9?<E[  
        .Superscript = wdUndefined A_fU 7'B  
        .Scaling = 100 w:LCm `d  
        .DisableCharacterSpaceGrid = True c]n03o  
    End With W|Tew-H{h_  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat #~f+F0#%?  
        .LineSpacingRule = wdLineSpaceSingle
Gehl/i-  
        .Alignment = wdAlignParagraphCenter %N  
        .WidowControl = True "PHv~_:^R  
        .KeepWithNext = True ).S<{zm7  
        .KeepTogether = True _NZHrN  
        .PageBreakBefore = True :58'U|
 
        .OutlineLevel = wdOutlineLevelBodyText ]VH@\ f  
         WuQYEbap  
        .LeftIndent = CentimetersToPoints(0) X]*/]Xx  
        .RightIndent = CentimetersToPoints(0) Jqj6L993e  
        .FirstLineIndent = CentimetersToPoints(0) BT1'@qF  
         o'4@]ae   
        .CharacterUnitLeftIndent = 0 4Qo1f5>N  
        .CharacterUnitRightIndent = 0 Q(IS=

 
        .CharacterUnitFirstLineIndent = 0 8JrGZ8Q4RM  
         !491 \W0ZH  
        .LineUnitBefore = 1 E!<$J^  
        .LineUnitAfter = 0.5 9C 05  
         .%<&W1  
        .AutoAdjustRightIndent = False )89jP 088V  
        .DisableLineHeightGrid = True 11T\2&Q  
        .FarEastLineBreakControl = True
A (p  
        .WordWrap = True .Topg.7W  
    End With \@3  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False & NQR*Tn  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll eM"mP&TTL  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese ]."c4S_)|  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True W>
bW1h  
    DoEvents ?t42=nvf  
     NGs9Jke2  
    '表格标题 TjK5UML  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 90ag!  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" yy1r,dw  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False <3x#(ms!!  
    With ActiveDocument.Styles("QLNU表格标题").Font Lx{N%;t*E  
        .NameFarEast = "楷体" z\Y^x9  
        .NameAscii = "Arial" IpXhb[UZ?  
        .Name = "楷体" EM/+1 _u  
        .Size = 10.5 ]+dl=SmF  
        .Bold = True 4Z<l>!  
        .Underline = wdUnderlineNone ^ks^9*'|j  
        .Italic = wdUndefined Av>j+O ;  
        .Subscript = wdUndefined ncr-i!Jjk  
        .Superscript = wdUndefined ;T+U&U0d|  
        .Color = wdColorAutomatic Pc HFj+:  
    End With *SMPHWH[c  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat jFTV\|C  
         $)]FCuv  
        .LineSpacingRule = wdLineSpaceSingle ;j>d"i36&  
        .Alignment = wdAlignParagraphCenter P$>kBW53  
        .KeepWithNext = True I?g__u=n~  
        .KeepTogether = True L)'rM-nkFh  
        .OutlineLevel = wdOutlineLevelBodyText :+Ax3  
         J\$l3i/I  
        .LeftIndent = CentimetersToPoints(0) X/Rx]}[   
        .RightIndent = CentimetersToPoints(0) &:#8ol(n5b  
        .FirstLineIndent = CentimetersToPoints(0) si_HN{  
         <&%1pZ/6.  
        .CharacterUnitLeftIndent = 0 $#FlnM<=  
        .CharacterUnitRightIndent = 0 }t3FAy(%  
        .CharacterUnitFirstLineIndent = 0 WbWW=(N'd  
         xBfe8lor  
        .LineUnitBefore = 1 LC\:xia {X  
        .LineUnitAfter = 0 ,HkhKbQ  
         z8 ;#H tr  
    End With -+>r4  P  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False i!oj&&  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll d KQV4dc>  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese ?67I|@^  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True DjzBG*f/  
    DoEvents o[[r_v_d  
r{R7"  
    '表格首行 PZ(<eJ>  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") @dCPa7:>&  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False _xgVuJ  
    With ActiveDocument.Styles("QLNU表格首行").Font 7XWBI\SW  
        .NameFarEast = "楷体" $,,>R[;w  
        .NameAscii = "Times New Roman" hYXZ21(K#  
        .Name = "楷体" a`~eC)T  
        .Size = 9 H!.D2J  
        .Bold = True )B$P#dP)i  
        .Underline = wdUnderlineNone #]DZrD&q  
        .Italic = wdUndefined akW3\(W}  
        .Subscript = wdUndefined 6Su@a%=j  
        .Superscript = wdUndefined u<shhb-  
    End With 8{Eo8L'V  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat n=
o'ocdS)  
        .LineSpacingRule = wdLineSpaceSingle ;Fem<p)V  
        .Alignment = wdAlignParagraphCenter za]p ,bMX  
         {Y:ZY+  
        .LeftIndent = CentimetersToPoints(0) .7gE^  
        .RightIndent = CentimetersToPoints(0) Qb't*2c%  
        .FirstLineIndent = CentimetersToPoints(0) r82o[+$u0K  
         o$`kpr  
         }t%>_  
        .CharacterUnitLeftIndent = -0.5 SslY ]d]  
        .CharacterUnitRightIndent = -0.5 5Vo}G %g  
        .CharacterUnitFirstLineIndent = -0.5 6_5d  
         t?nc0;Q9,@  
        .LineUnitBefore = 0 rYFau1  
        .LineUnitAfter = 0 m_"p$m ;  
        .SpaceBefore = 0 .`&/QiD  
        .SpaceAfter = 0 {I-a;XBX  
         /4 LR0`A'  
    End With iq ednk%  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False XCIa2
Syo  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll G(0y|Eq  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese Ryq"\Q>+  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True #>:(#^Uu  
    DoEvents y /:T(tk$  
4iv ]N
4  
    '表格内容 ?5yH'9zE  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") sjzXJ`s  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False Sn
0g TsZ  
    With ActiveDocument.Styles("QLNU表格内容").Font 0)oN[
  
        .NameFarEast = "楷体" l/ rZcf8z  
        .NameAscii = "Times New Roman" .K@x4 /1  
        .Name = "楷体" -[pCP_`)u  
        .Size = 9 HD:%
Yv  
        .Bold = False RzzFhU#r  
        .Underline = wdUnderlineNone W8,tl>(  
        .Italic = wdUndefined J,1osG<6x  
        .Subscript = wdUndefined },fo+vRM  
        .Superscript = wdUndefined u.
kY
p  
    End With 0/:=wn^pg  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat &oeN#5Es8C  
        .LineSpacingRule = wdLineSpaceSingle j|&DP-@g/  
        .Alignment = wdAlignParagraphCenter B8UZ9I$n  
         inBPT~
y  
        .LeftIndent = CentimetersToPoints(0) &=-e`=qJ'6  
        .RightIndent = CentimetersToPoints(0) t*a*v;iz  
        .FirstLineIndent = CentimetersToPoints(0) =\Vu=I  
         .'S^&M/$  
        .CharacterUnitLeftIndent = -0.5 Aa`MK$29F  
        .CharacterUnitRightIndent = -0.5 /:y2Up-  
        .CharacterUnitFirstLineIndent = -0.5 NYjS  
        .LineUnitBefore = 0 MKe^_uF  
        .LineUnitAfter = 0 Vj=Xcn#*8  
        .SpaceBefore = 0 fi&uB9hc  
        .SpaceAfter = 0 MV<!<Qmj  
    End With !2Y!jz  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False ?]W~ qgA  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll kPO6gdwq$  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese bR'mV-2'  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True w*:GM8=6  
    DoEvents p/hvQyE  
|0L=8~M(j  
    '图片标题 CzSZ>E$%U  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") fK'.wX9  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" W]
O@DS zR  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False wHtJ_Y  
    With ActiveDocument.Styles("QLNU图片标题").Font Eq=wdI  
        .NameFarEast = "楷体" 7 DY WdDX  
        .NameAscii = "Times New Roman" /bmXDDYH4  
        .Name = "楷体" feI./E  
        .Size = 10.5 Q54r?|'V  
        .Bold = True ^`rpf\GX(  
        .Underline = wdUnderlineNone d@4rD}_Z  
        .Italic = wdUndefined \TbsoWX  
        .Subscript = wdUndefined `*NO_K  
        .Superscript = wdUndefined hV-VeKjZ(  
        .Outline = False ;P;"F21^>  
        .Shadow = False e"fN~`NhY  
        .Color = wdColorAutomatic ;}/U+`=D?  
    End With tyEPU^PM  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat I/O
n3"U%  
        .LineSpacingRule = wdLineSpaceSingle #v4L oNm  
        .Alignment = wdAlignParagraphCenter N-2([
v  
         PFS;/   
        .KeepWithNext = wdUndefined x6^l6N  
        .KeepTogether = True 2e9jo,i  
        .OutlineLevel = wdOutlineLevelBodyText h(@R]GUX  
         }!%JYG^!D  
        .LeftIndent = CentimetersToPoints(0) ~H^'al2PK  
        .RightIndent = CentimetersToPoints(0) #ya\Jdx   
        .FirstLineIndent = CentimetersToPoints(0) DH:GI1Yu>I  
         iuC7Y|  
        .CharacterUnitLeftIndent = 0 1~2R^#rm  
        .CharacterUnitRightIndent = 0 <vB<`   
        .CharacterUnitFirstLineIndent = 0 q^a|
wTC  
         ~)q  g  
        .LineUnitBefore = 0 \ ]   
        .LineUnitAfter = 0 'qL5$zG  
    End With >ZT& `E  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False Vi|7%!j<  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll y?pD(u  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese o"p^/'ri  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True c,y|c`T 2  
    DoEvents /gz:zThf{  
#?{qlgv<p  
    '目录项 H8@8MFz\  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") e-X HN  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" KD% TxK  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False }* QO]_U?  
    With ActiveDocument.Styles("QLNU目录项").Font Eh\ 1O(a(  
        .NameFarEast = "黑体" Al7<s  
        .NameAscii = "Times New Roman" U4>O\sU  
        .NameOther = "Times New Roman" [o2w1R\H+x  
        .Name = "黑体" "h=6Q+Ze  
        .Size = 10.5 UJz#QkAio  
        .Bold = False TE^7
P0bh  
        .Italic = wdUndefined 0"EoC  
        .Underline = wdUnderlineNone hv*>%p  
        .Color = wdColorAutomatic g(aZT#ii=  
        .Superscript = wdUndefined 4YszVT-MU~  
        .Subscript = wdUndefined Q}kfM^i  
    End With ~U6" ?  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat ^P`NMSw  
         wV\%R,bZj  
        .LineSpacingRule = wdLineSpaceSingle egm)a   
        .Alignment = wdAlignParagraphLeft P|e`^Frxt  
         pDu{e>S|:  
        .WidowControl = False VFv9Q2/.  
        .KeepWithNext = False M`GP^Ta  
        .KeepTogether = False ?c!:81+\  
        .PageBreakBefore = False Dv&>*0B  
        .NoLineNumber = False xS'zZ%?  
        .OutlineLevel = wdOutlineLevelBodyText F4Zn5&.)  
         i +f7  
        .LeftIndent = CentimetersToPoints(0) b~7Jh:%@;  
        .RightIndent = CentimetersToPoints(0) 1Cm~X$S.  
        .FirstLineIndent = CentimetersToPoints(0) %*lp< D  
         Q1Ux!$_  
        .CharacterUnitLeftIndent = 0 h#i\iK&A
  
        .CharacterUnitRightIndent = 0 >':5?\C+-  
        .CharacterUnitFirstLineIndent = 0 b1u}fp GF  
         ! ja[4.  
        .LineUnitBefore = 0 V vu(`9u]  
        .LineUnitAfter = 0 8
j%'9vPi  
    End With 6*u,c^a  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False nH@(Y&S  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll m0|K#^  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot -hWC_X:9jP  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese ;DuXSy!g  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True n`q2s'Pc  
    DoEvents rH&G<o&,  
     aD9rp V  
    '参考文献 mwh{"FL(  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") #~^btL'dHF  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" Ln.9|9  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False rK7W(D
}  
    With ActiveDocument.Styles("QLNU参考文献").Font '0|o`qoLzA  
        .NameFarEast = "宋体" "PMQyzl  
        .NameAscii = "Times New Roman" +t98@  
        .NameOther = "Times New Roman" ?aBj#  
        .Name = "Times New Roman" ak;6z]f8[  
        .Size = 12 L=O lyHO  
        .Bold = False <l$P&jSF3  
        .Italic = wdUndefined xCWz\-;  
        .Subscript = wdUndefined A\z`c e!  
        .Superscript = wdUndefined {Oj7  
        .Underline = wdUnderlineNone |uI?ySF  
        .UnderlineColor = wdColorAutomatic =m7H)z)i*J  
        .Color = wdColorAutomatic #;[Bl=3(  
        .Engrave = False 
q-nER<  
    End With G?`-]FMO  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat ["y6b*;x  
         fkjeR B  
        .LineSpacingRule = wdLineSpaceExactly XphE loL  
        .LineSpacing = 16 GIT#<+"  
        .Alignment = wdAlignParagraphLeft %_MEfuL  
        .WidowControl = False vJ"i.:Gf4  
        .KeepWithNext = False whye)w  
        .KeepTogether = False DP9LO_{  
        .PageBreakBefore = False P7:d ly[,q  
        .OutlineLevel = wdOutlineLevelBodyText /b5>Qp  
         Z) Wnow  
        .LeftIndent = CentimetersToPoints(0) `0bP0^w  
        .RightIndent = CentimetersToPoints(0) mN*?%t  
        .FirstLineIndent = CentimetersToPoints(0) ExVDkt0  
         tx"LeZZ  
        .CharacterUnitLeftIndent = 0 x)SralWb  
        .CharacterUnitRightIndent = 0 m:uPEpcU  
        .CharacterUnitFirstLineIndent = -2 yto[8;)_  
         F";.6%;AC  
        .LineUnitBefore = 0 %MZP)k,&U  
        .LineUnitAfter = 0 IA4N@ijRxh  
        .SpaceBefore = 0 h7]EB!D\A  
        .SpaceAfter = 0 }#1/fok  
         wN97_Y=`n  
    End With  fRB5U'  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False ^C/
 
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll ZF6c{ ~D  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS mM_ k^4:  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True irbw'^;y  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese R_ ZK0ar  
    DoEvents O^Q,-=tA\  
c6&Q^p|CF  
    ' " ?3`  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") !E2W\chi  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" ;)," M{"v  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False Es!Q8.  
    With ActiveDocument.Styles("QLNU论文题目").Font IXpc,l `  
        .NameFarEast = "黑体" KkcXNjPVS  
        .NameAscii = "Arial Black" h|D 0z_f  
        .NameOther = "Arial Black" zF`3gl.  
        .Name = "Arial Black" rf.`h{!!  
        .Size = 16 h!gk s-0  
        .Bold = False k7@t{Cu0D&  
        .Italic = wdUndefined 4;<ut$G  
        .Superscript = wdUndefined [1_A8s){u  
        .Subscript = wdUndefined _,haD)1g~  
        .Underline = wdUnderlineNone V`kMCE;?l  
        .UnderlineColor = wdColorAutomatic MHU74//fe  
        .Color = wdColorAutomatic [;A[.&6  
IgIYguQ  
    End With a0=

WfeT  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat /3!
fA=+  
        .LineSpacingRule = wdLineSpaceSingle o]ePP,  
        .Alignment = wdAlignParagraphCenter oDn|2Sdqd  
        .WidowControl = True jQS 6J+F]  
        .KeepWithNext = True M f~}/h  
        .KeepTogether = True ) ;FS7R  
        .PageBreakBefore = True "ZrOrdlg+A  
        .NoLineNumber = False kLj$@E`4  
        .OutlineLevel = wdOutlineLevelBodyText )5_jmW`n  
         S<`I Jpkv  
        .LeftIndent = CentimetersToPoints(0) i#/]KsSp  
        .RightIndent = CentimetersToPoints(0) W3H+.E  
        .FirstLineIndent = CentimetersToPoints(0) ~q+hV+fa>  
         Q>Qibr  
        .CharacterUnitLeftIndent = 0 oD9^ID+  
        .CharacterUnitRightIndent = 0 E&`Nh5JfC  
        .CharacterUnitFirstLineIndent = 0 ]
e'fa/I  
         'Gl&Pa1g?  
        .LineUnitBefore = 1 C0jj(ku&  
        .LineUnitAfter = 1 <\ `$Jx#  
         a5YIUVCv  
        .BaseLineAlignment = wdBaselineAlignAuto xtfBfA  
    End With mN|r)4{`  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False FAsFjRS  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll rV6/Tdy  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS x3 >  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True nKoiG*PI  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese ;G\8jP'   
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True as
*4UT3  
    DoEvents #P<N^[m  
     99xEm  
    '中文摘要 A A^{B  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") 2ZcKK8X;7  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" #bH_Dg
5I  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False C;+h.;}<D  
    With ActiveDocument.Styles("QLNU中文摘要").Font _ :Ag?2  
        .NameFarEast = "宋体" ?W>qUr
Z  
        .NameAscii = "Times New Roman" 1)m@?CaI`  
        .NameOther = "Times New Roman" 5Xn.CBd]  
        .Name = "Times New Roman" c;?fMX  
        .Size = 12 V#REjsf,t-  
        .Bold = wdUndefined >-8cU_m7s  
        .Superscript = wdUndefined Zf$Np50@(  
        .Subscript = wdUndefined $5x ,6[&  
        .Italic = wdUndefined ryB}b1`D  
        .Underline = wdUnderlineNone '2^7-3_1  
        .UnderlineColor = wdColorAutomatic 5"XC$?I<}  
        .Color = wdColorAutomatic jhu07HX_  
    End With NIdZ  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat ^9Qy/Er'  
        .LineSpacingRule = wdLineSpaceExactly R;,g1m|]  
        .LineSpacing = 20 >/[GTqi  
        .Alignment = wdAlignParagraphLeft eET&pP3Rp  
         AIMSX]m  
        .WidowControl = False a =cvCf  
        .KeepWithNext = False Ar*^; /  
        .KeepTogether = True jTO), v:w  
        .PageBreakBefore = False b 5yW_Ozdh  
        .NoLineNumber = False hj'(*ND7z  
        .OutlineLevel = wdOutlineLevelBodyText ktIi$v  
         2 3OC2|  
        .LeftIndent = CentimetersToPoints(0) 0}!\$"|D  
        .RightIndent = CentimetersToPoints(0) ~t9tnLc$  
        .FirstLineIndent = CentimetersToPoints(0) 8>hwK)av  
         (aOv#Vor]%  
        .CharacterUnitLeftIndent = 0 {9UEq0  
        .CharacterUnitRightIndent = 0 >leU:7  
        .CharacterUnitFirstLineIndent = 2 4=<tWa|@9  
        .LineUnitBefore = 0 }PTV] q%  
        .LineUnitAfter = 0 `x%'jPP1^  
         (x/k.&  
    End With ck?YI]q|  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False dXF^(y]l  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll p w8 s8?  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS ,) J~,^f6  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True 9IX/wm"  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese lXcx@
#~  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True o2<#s)GpY  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete :VTTh |E%#  
    DoEvents ns6(c J^a  
     xJ#d1[kzo  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") J8mdoVt  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" SkmT`*v@  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False :POj6j/  
    With ActiveDocument.Styles("QLNU英文标题").Font ^0/j0]O  
        .NameFarEast = "黑体" 0$,SF3K  
        .NameAscii = "Arial Narrow" ZK>WW  
        .Name = "Arial Narrow" 15o9 .   
        .Size = 16 L4!{h|  
        .Bold = True B95B|tU>.  
        .Bold = wdUndefined tH-C8Qxy  
        .Superscript = wdUndefined ,^uEYT}j  
        .Subscript = wdUndefined ]]zPq<b2  
        .Italic = wdUndefined `@nl  
         293M\5:  
        .Underline = wdUnderlineNone o!)3?  
        .UnderlineColor = wdColorAutomatic #O+),,WS  
        .StrikeThrough = False Q%xC}||1s"  
        .DoubleStrikeThrough = False 6i1LjLB  
    End With '&\kxNglJ  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat
6Vz9?puD  
        .LineSpacingRule = wdLineSpaceSingle \[y`'OD~  
        .Alignment = wdAlignParagraphCenter 17`1 SGZ  
        .WidowControl = True ~]QHk?[wc  
        .KeepWithNext = False nDHTV!]<  
        .KeepTogether = False oH_;4QU4y  
        .PageBreakBefore = False EOCN
&_Z;  
        .NoLineNumber = False rk #sy$  
        .FirstLineIndent = CentimetersToPoints(0) BocSwf;v.  
        .OutlineLevel = wdOutlineLevelBodyText V#iPj'*   
         E{|W(z,  
        .LeftIndent = CentimetersToPoints(0) Y'8?.a
]'  
        .RightIndent = CentimetersToPoints(0) 9jw\s P@  
        .FirstLineIndent = CentimetersToPoints(0) cXKjrL[b  
         3f,hw5R  
        .CharacterUnitLeftIndent = 0 /
pT=0=  
        .CharacterUnitRightIndent = 0 B

]Thn  
        .CharacterUnitFirstLineIndent = 0 Q\ 0cvmU  
         p>4-s, W  
        .LineUnitBefore = 1 9Gnc9_]I;W  
        .LineUnitAfter = 1 \SBc;  
         >
k (C  
    End With (L/_^!ZX  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False PpAu!2lt9  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll "vOwd.(?N  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS y!_C/!d  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True -4 SY=NC_  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese JU)dr4S?  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True FY#C.mL  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete 5yP\I+Fm  
    DoEvents ]x(!&y:h  
{0WHn.,2Y  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") $42{HFGq  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" ;IZwTXu!S  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False c}2jmwq  
    With ActiveDocument.Styles("QLNU英文摘要").Font T
( U_  
        .NameFarEast = "宋体" `~By)?cT_>  
        .NameAscii = "Arial" 5fd]v<  
        .NameOther = "Arial" ~5}*
d  
        .Name = "Arial" 5: KQg  
        .Size = 12 Y2~nBb  
        .Bold = wdUndefined gcl5jB5)>  
        .Italic = wdUndefined oU.R2\ Q  
        .Superscript = wdUndefined kZmpu?P  
        .Subscript = wdUndefined l4uMG]m  
    End With NgP&.39U  
     pC@{DW;V6R  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat {#@W)4)cA  
         woK&q7Vn  
        .LineSpacingRule = wdLineSpaceExactly {+Rog/;S'  
        .LineSpacing = 20 \D*KGd]M0  
         Al}B34.uh  
        .Alignment = wdAlignParagraphJustify 9,:l8  
         hYG6 pTCb  
        .WidowControl = False X:nN0p #  
        .KeepWithNext = False "W955?4m  
        .KeepTogether = False 8|l\EVV6  
        .PageBreakBefore = False ]H+8rY%+  
        .NoLineNumber = False ,)Znb=  
         Y,^@P  
        .OutlineLevel = wdOutlineLevelBodyText CDK5  
         >JFO@O5  
        .LeftIndent = CentimetersToPoints(0) #."-#"0  
        .RightIndent = CentimetersToPoints(0) 0tT(W^ho g  
        .FirstLineIndent = CentimetersToPoints(0) K^j7T[pR  
         G9ku(2cq  
        .CharacterUnitLeftIndent = 0 +CL`]'~;E-  
        .CharacterUnitRightIndent = 0 8SII>iL{  
        .CharacterUnitFirstLineIndent = 2 xMNUyB{?  
         25%[nkO4  
        .LineUnitBefore = 0 <U(wLG'XS  
        .LineUnitAfter = 1 iIFM 5CT
  
         .$5QM&  
    End With Coz\fL
 
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False ) -x0xY  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll b6sj/V8  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS 7M*&^P\}es  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False "w.gP8`  
    DoEvents 5s3!{zT{  
5[3vup?  
    Options.Pagination = True a"gZw9m@  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." H1iewsfzH  
    DoEvents 'E FP/(2J  
    ActiveDocument.Repaginate >5Y%4++(  
k@MAi*  
End Sub C&Rv$<qc  
Z _W.
iBF  
Nv!If$d  

姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 D@.+B`bA  
u*n%cXY;J/  

引用

引用第20楼newport93于06-14-2010 13:47发表的  : ;5S'?fj  
$W}YXLFj?  
老五，I 服了U。 4WspPHj  
1nGpW$Gx  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 2h=QJgpCG  

Z'hHXSXM