Dim bContinue As Boolean ZZZ9C#hK^9  
ypG*41  
Dim regEX As New RegExp <qpzs@  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 +0z7}u\x  
T@i* F M  
Dim LastTitle0String As String, LastTitle0No As Long #T2J +  
Dim LastTitle1String As String, LastTitle1No As Long &Jb\}c}  
Dim LastTitle2String As String, LastTitle2No As Long z'$1$~I  
Dim LastTitle3String As String, LastTitle3No As Long 7(X z%v  
Dim LastTitle4String As String, LastTitle4No As Long PZJ9f8V  
Dim LastTitle5String As String, LastTitle5No As Long "f_qG2A{  
Dim LastTabelString As String, LastTableNo As Long YI;iG[T,&  
Dim LastFigureString As String, LastFigureNo As Long c AO: fb7  
TEY~E*=}$  
Dim strSeperator As String aA52Li
  
}zf!mlk  
Sub ConvertWidth(fTEXT As String, rText As String) (AtyM?*  
        Selection.Find.ClearFormatting ~gW^9nWYU  
        Selection.Find.Replacement.ClearFormatting 5qW>#pTFVV  
        Selection.Find.Wrap = wdFindContinue
N
) _24  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText Jy%?"wn  
        DoEvents !OY}`a(z  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True mICEJ\`x  
End Sub 5\XD/Q M  
d6'G 7'9  
Sub ClearDomain() \.O&-oi  
        With Selection.Find {4,],0bjx/  
            .ClearFormatting .,p=e$x]  
            .Replacement.ClearFormatting /z4c>)fV  
            .Wrap = wdFindContinue ;s{'cN[.  
            Me.txtStatus.Text = "清除所有域代码" ~=iH*AQR  
            DoEvents 2vLun
  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False ;> jEeIlT  
        End With @-L]mLY  
End Sub }.E^_`  
viUJ4Pn
 
Private Sub cmdCheck_Click() :&TM0O  
    bContinue = True <\<o#Vq  
    Dim NoSeries1(1 To 16) As String uOeal^uS  
    Dim NoSeries2(1 To 16) As String rvy%8%e?  
    Dim NoSeries5(1 To 16) As String hEu_mw#  
    Dim NoSeriesRM(1 To 16) As String qf\W,SM  
    Dim paraTotal As Long, ParaText As String o.A:29KoU  
    Dim ttString As String, ttNo As String SU4i'o  
     ?YS>_MN  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long oV0 45G  
@WS77d~S  
    Me.txtStatus.Visible = True K&`1{,  
    Me.lbParaType.Visible = True <A8>To<  
    Me.cmdCheck.Enabled = False ;J TY#)Bh  
    
[. 9[?8  
     :,aY|2si  
     ERIMz,  
     2O[sRm)  
    Dim ParaType As String, rText As String !pw)sO~  
     iaEQF]*cC  
    Selection.WholeStory $7DW-TA  
    Selection.NoProofing = True f+uyO7  
     {~&Q"8 }G  
    tm1 = Now w/ rQOHV{  
     0>7Ij7\[8  
        ActiveWindow.View.Type = wdNormalView bV&9>fC  
     WIf.;B)L  
    NoSeries1(1) = "一" @QVg5  
    NoSeries1(2) = "二" )V2W:M  
    NoSeries1(3) = "三" cI\[)5&  
    NoSeries1(4) = "四" 4xm JQ>/  
    NoSeries1(5) = "五" X1`3KqK<9  
    NoSeries1(6) = "六" 8I
/3T  
    NoSeries1(7) = "七" o>,r<
  
    NoSeries1(8) = "八" o4WQA"VxM  
    NoSeries1(9) = "九" qc @cdi  
    NoSeries1(10) = "十" >bz e0`}Z  
    NoSeries1(11) = "十一" k%cE8c}R;A  
    NoSeries1(12) = "十二" _8u TK
%|  
    NoSeries1(13) = "十三" dGBjV #bNT  
    NoSeries1(14) = "十四" s$hO/INr  
    NoSeries1(15) = "十五" Y06^M?}  
    NoSeries1(16) = "十六" rY45.,qWs  
     JOY&YA$U  
    NoSeries2(1) = "㈠" 4 O8ct,Y  
    NoSeries2(2) = "㈡" G@ `F{l  
    NoSeries2(3) = "㈢"
Oa~ThbX7  
    NoSeries2(4) = "㈣" ~>u|7M$(  
    NoSeries2(5) = "㈤" -i2rcH  
    NoSeries2(6) = "㈥" ,GYQ,9:  
    NoSeries2(7) = "㈦" ~W8Xg)  
    NoSeries2(8) = "㈧" .
waw=C  
    NoSeries2(9) = "㈨" G]f |
?  
    NoSeries2(10) = "㈩" 8R3{
YJ6@T  
     Ld}?daPj  
    NoSeries5(1) = "①" v f{{z%3T  
    NoSeries5(1) = "②" .6C/,rQ?c  
    NoSeries5(3) = "③" !P=Cv=  
    NoSeries5(4) = "④" +`k30-<P  
    NoSeries5(5) = "⑤" =;uMrb4  
    NoSeries5(6) = "⑥" * &:_Vgu  
    NoSeries5(7) = "⑦" 'Y)aGH(  
    NoSeries5(8) = "⑧" d2#
NRqgQ  
    NoSeries5(9) = "⑨" f1ANziC;i  
    NoSeries5(10) = "⑩" U_5`  
     (b f IS  
     +:;ddV  
    NoSeriesRM(1) = "I" 8A3/@Z;0S  
    NoSeriesRM(2) = "II" lxL.ztL  
    NoSeriesRM(3) = "III" Mww ^  
    NoSeriesRM(4) = "IV" F5 ]<=i  
    NoSeriesRM(5) = "V" vnvpb! @Q  
    NoSeriesRM(6) = "VI" .yZLC%}  
    NoSeriesRM(7) = "VII" $YEm(:v$  
    NoSeriesRM(8) = "VIII" fF0i^E<  
    NoSeriesRM(9) = "IX" lEFd^@t  
    NoSeriesRM(10) = "X" mYgfGPF`  
    NoSeriesRM(11) = "XI" ]5f;Kz)  
    NoSeriesRM(12) = "XII" _Pqq*  
    NoSeriesRM(13) = "XIII" [cd1Mf:[Y  
    NoSeriesRM(14) = "XIV" f_S$CFa@  
    NoSeriesRM(15) = "XV" Z5 IW
oY  
    NoSeriesRM(16) = "XVI" &/WM:]^?0)  
     }OAU5P!rp  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) ;F"! $Z/  
     M.mn9kw`  
    If i = vbNo Then Cj8&wz}ez  
        Exit Sub /o;L,mcx*  
    End If W3 4xrm  
     w !20  
    If Me.chkSuper.Value Then >[;@ [4}  
        Me.txtStatus.Text = "检查修改所有的上标格式" !2Nk  
     1 6zxPSTr}  
        CheckSuperScript Ie. on)  
         -|m3=#  
    End If baII !ks  
     .u7}p#  
    If Me.chkStyle.Value Then xyGwYv>*KO  
        Me.txtStatus.Text = "设置样式，请稍候...." e`qrafa  
        DoEvents W`Gbo uxd  
        CeateOrModifyStyle !t2
3 _b0  
    End If O0qG 6a  
     Yn~fnI{  
     x'`{#bKD  
     0AQ4:K
V(Y  
    ClearDomain '2 r  
         }Kgi!$<aQx  
     hD ~/ywS&  
     ;b0Q%TDh  
    If Me.chkLIST.Value Then fAULuF  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" 9u(pn`e 3  
     k=mQG~  
        ConvertListToOrdinary j;-Wf6h{  
    End If 7<^+)DsS?  
     Hloe7+5UD  
     ~rBFP)  
    Dim pType As String, trimpTEXT As String )_jboaNzwI  
    If Me.chkNum.Value = True Then cRnDAn#42  
        Me.txtStatus.Text = "转换全角数字形式为半角" y 9]d{:9  
        ConvertWidth "１", "1" Vpnk>GWD  
        DoEvents y5j:+2|I  
        ConvertWidth "２", "2" Ea@0>_U|  
        DoEvents 'lZlfS:Z8  
        ConvertWidth "３", "3" 7y|U!r"Y  
        DoEvents Df4O~j$U"s  
        ConvertWidth "４", "4" M?h{'$T  
        DoEvents 
_'!?fA  
        ConvertWidth "５", "5" ~][~aEat;V  
        DoEvents  +x 3x  
        ConvertWidth "６", "6" ;]-08lzO<4  
        DoEvents zas&gsl-;  
        ConvertWidth "７", "7" aA|{r/.10K  
        DoEvents j V sH  
        ConvertWidth "８", "8" :.+w'SEn4M  
        DoEvents ;\0|1Eem`  
        ConvertWidth "９", "9" eVfD&&@  
        DoEvents HqWWWCWal  
        ConvertWidth "０", "0" , lR(5ZI  
        DoEvents L[2qCxB'^  
        ConvertWidth "ａ", "a" *m"9F'(Sd  
        DoEvents I3nE]OcW@  
        ConvertWidth "ｂ", "b" ta)gOc)r R  
        DoEvents @n)?=[p  
        ConvertWidth "ｃ", "c" _s^tL2Pc  
        DoEvents L}*o8l`  
        ConvertWidth "ｄ", "d" {S=<(A@  
        DoEvents uy<3B>3~.  
        ConvertWidth "ｅ", "e" f 3H uT=n  
        DoEvents m0bxVV^DK!  
        ConvertWidth "ｆ", "f" U7x  
        DoEvents gGVt( ^  
        ConvertWidth "ｇ", "g" @GKDSS4jv  
        DoEvents "mJo<i}  
        ConvertWidth "ｈ", "h" ,/+Mp  
        DoEvents *B|hRZka1A  
        ConvertWidth "ｉ", "i" #EzhtuHxn  
        DoEvents F|F0#HC ?  
        ConvertWidth "ｊ", "j" 9A.NM+u7  
        DoEvents |URfw5Hm  
        ConvertWidth "ｋ", "k" -t4:%-wv  
        DoEvents M +OVqTsFU  
        ConvertWidth "ｌ", "l" FFw(`[A_  
        DoEvents S5hc@^|0Z  
        ConvertWidth "ｍ", "m" .:j{d}p}  
        DoEvents }h;Z_XF&  
        ConvertWidth "ｎ", "n" ED>7  
        ConvertWidth "ｏ", "o" 8UjIC4'  
        ConvertWidth "ｐ", "p" ?_g
vI  
        ConvertWidth "ｑ", "q" w PR Ns9^  
        ConvertWidth "ｒ", "r" ^&Yt
ZjV  
        ConvertWidth "ｓ", "s" b /UXO$_~-  
        ConvertWidth "ｔ", "t" F-3=eKZ  
        ConvertWidth "ｕ", "u" b;QgL_w  
        ConvertWidth "ｖ", "v" "^$Ht`p[  
        ConvertWidth "ｗ", "w" W8g13oAu"  
        ConvertWidth "ｘ", "x" @o0HD
S  
        ConvertWidth "ｙ", "y" u<:uL  
        ConvertWidth "ｚ", "z" 1!1JT;gG^9  
        ConvertWidth "Ａ", "A" 0cHcBxdF  
        ConvertWidth "Ｂ", "B" jv~#'=T'  
        ConvertWidth "Ｃ", "C" ([q>.[WbH]  
        ConvertWidth "Ｄ", "D" M$EF 8  
        ConvertWidth "Ｅ", "E" oYw?kxRZ  
        ConvertWidth "Ｆ", "F" aE07#  
        ConvertWidth "Ｇ", "G" j_rO_m<8  
        ConvertWidth "Ｈ", "H" "Q OQ  
        ConvertWidth "Ｉ", "I" 0OHXg=   
        ConvertWidth "Ｊ", "J" nN{DO:_o  
        ConvertWidth "Ｋ", "K" D=a*Xu2zq  
        ConvertWidth "Ｌ", "L" #!Cg$6%x9  
        ConvertWidth "Ｍ", "M" P}Ig6^[m\  
        ConvertWidth "Ｎ", "N" *,X)tZ6VX  
        ConvertWidth "Ｏ", "O" U^7hw(}me  
        ConvertWidth "Ｐ", "P" E^rBs2;9
  
        ConvertWidth "Ｑ", "Q" ~},H+A!?  
        ConvertWidth "Ｒ", "R" QwhO/  
        ConvertWidth "Ｓ", "S" EcH
Zmf  
        ConvertWidth "Ｔ", "T" 0e8  
        ConvertWidth "Ｕ", "U" 55O}SUs!P  
        ConvertWidth "Ｖ", "V" _K9PA[m5~  
        ConvertWidth "Ｗ", "W" mHMsK}=~  
        ConvertWidth "Ｘ", "X" Hi[lN7ma8  
        ConvertWidth "Ｙ", "Y" uN<=v&]q  
        ConvertWidth "Ｚ", "Z" r!!uA1!7  
        ConvertWidth "^l", "^p" c/K#W$ l  
        ConvertWidth "（", "(" /1LN\Eu  
        ConvertWidth "）", ")" U=D;CjAh  
     !b`fykC  
    End If 961&rR}d  
7RUztu\_  
    With ActiveDocument la{?
&75]  
        Dim tbl As Table {1)bLG|$  
        For Each tbl In .Tables J8~hIy6]  
            tbl.Rows.Alignment = wdAlignRowCenter U[pHT _U  
            tbl.Range.Font.NameFarEast = "楷体" j4i$2ZT'  
            tbl.Range.Font.NameAscii = "Times New Roman" GcRH$
,<XG  
            tbl.Range.Font.Size = 10.5 jF;<9-m&  
        Next DL,R~  
        Set tbl = Nothing aZ~e;}w.Zq  
    End With z!6_u@^-  
     Q I";[  
     N#M>2b<A/T  
    With ActiveDocument hXI[FICQU{  
         ia\Gmh  
        For i = 1 To .TablesOfContents.Count 28^/By:J  
            .TablesOfContents(i).Delete X40 gJV<  
        Next h{mzYy}b  
         0t!Z MH  
         l)$mpMgAD  
         $CB&>?~  
        paraTotal = .Paragraphs.Count my sXgS&S  
        paraCounter = 1 h's[) t  
         bsu?Q'q  
        LastTitle0No = 0 &pI\VIx ?  
        LastTitle1No = 0 =M 8Mt/P  
        LastTitle2No = 0 |5;,]lbt  
        LastTitle3No = 0 jW#dUKS(  
        LastTitle4No = 0 v>K|hH  
        LastTableNo = 0 65zwi-  
        LastFigureNo = 0 Tr;.%/4Q  
         <T7@,_T  
        Dim Sec As Long |h $Gs2  
         auN
8M.  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) {($mLfC4  
        If Sec = 0 Then Ut~YvWc9  
            Exit Sub 49E| f ^q  
        End If w31O~Ve  
         \Nik`v*Pd  
        k = 0 kVtP~  
        Do While (paraCounter < paraTotal) And bContinue 2f:hz  
            k = k + 1 ;,U@zB;\%(  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then X#axCDM-  
                Exit Do puMVvo  
            End If ,'c%S|]U7  
            paraCounter = paraCounter + 1 TQeIAy  
            If k Mod 20 = 0 Then D7pQWlN\  
                Me.lbCounter.Caption = paraCounter %GjG.11V,_  
                DoEvents [5xm>Y&}  
            End If wOL%otEf  
        Loop JL_(%._J  
         s8(Z&pQ  
         }%w;@[@L  
        Do While (paraCounter < paraTotal) And bContinue K_U`T;Z\  
             Jy:@&c  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) ^'Lp<YJs6  
            ShapeHeight = 0 }%wP^6G*x\  
            ShapeWidth = 0 *><j(uz!  
           rIPg,4y*S!  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth jR1^e$  
             &S.p%Qe"  
            Select Case ParaType [x>Pf1  
                Case "【】表格内容" %+/v")8+?  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" 1<x5{/CZ  
                Case "章" ;t7F%cDA  
                    LastTitle0No = LastTitle0No + 1 WuVs
W3@  
                    '新一章开始，复位其下属标题编号 W9gQho%9b  
                    LastTitle1No = 0 <8
%+-[(  
                    LastTitle2No = 0 GX19GI@k  
                    LastTitle3No = 0 ~jKIuO/  
                    LastTitle4No = 0 \t{4pobo  
                     fPN/Mxu  
                    k = Val(ttNo) >}.~Y#Ge  
                    If k = 0 Then '非数字编号章节 Usht\<{  
                        If ttNo <> NoSeries1(LastTitle0No) Then 8Ie0L3d-  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString VKXi*F9  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText =:T"naY(  
                        End If 7]u_  
                    Else Flpl,|n a  
                        If Val(ttNo) <> LastTitle0No Then 8 u[.s`^  
                            rText = "第" & LastTitle0No & ttString ?}^ y6  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText br0\O  
                        End If zk70D_}L  
                         :F5(]g 7  
                    End If q:>`|~M
X  
                     d<?Zaehe\  
                    '章段落设置 fC^d@4ha  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 uF%N`e^S  
                    .Paragraphs(paraCounter).Style = "QLNU章节" .))k
  
                    .Paragraphs(paraCounter).Range.Select aU +uPP  
                    Selection.EndKey unit:=wdLine 0F!Uai1  
                    tc = Replace(rText, vbCr, "") hTAc}'^$  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False xg%{p``  
                Case "一级标题" dh}"uM}a  
                    LastTitle1No = LastTitle1No + 1 2:.$:wS  
                    '新一级标题开始，复位其下属标题编号 vIi&D;  
                    LastTitle2No = 0 _j$V[=kdM/  
                    LastTitle3No = 0 .nr%c*JUp  
                    LastTitle4No = 0 &VjPdu57  
                     b%F'Ou~  
                    If ttNo <> NoSeries1(LastTitle1No) Then ([JFX@  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString RU.j[8N$  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText 8fvKVS  
                    End If h Q Att  
                   78T;b7!-C  
                     zGO_S\  
                    '一级标题段落设置  格式：一、标题内容 =S^ vIo)  
                    .Paragraphs(paraCounter).Range.Text = rText :'
t"kS  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" z4.|N  
                    .Paragraphs(paraCounter).Range.Select L) _ VdB  
                    Selection.EndKey unit:=wdLine tre`iCH~  
                    tc = Replace(rText, vbCr, "") k"dE?v\cG  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False [PrJf"Z "  
                Case "二级标题" * s1o?'e  
                    LastTitle2No = LastTitle2No + 1 kVWrZ>McK  
                    '新二级标题开始，复位其下属标题编号 8f?o?c|  
                    LastTitle3No = 0 /jaO\
t'q  
                    LastTitle4No = 0 t(,2x%{  
                     %D7^.  
                    If ttNo <> NoSeries1(LastTitle2No) Then 6EWCJ%_  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString K~&3etQF  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText V[44aN  
                    End If S-6i5H"B&  
                     mV7_O//  
                    '二级标题段落设置 格式：(一)、标题内容 t- //.  
                    .Paragraphs(paraCounter).Range.Text = rText Zjc /GO  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" 4`CO>Q  
                     ENYc.$r  
                    .Paragraphs(paraCounter).Range.Select ;(g"=9 e  
                    Selection.EndKey unit:=wdLine 2#`d:@r  
                    tc = Replace(rText, vbCr, "") GYT0zMMf  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False 5 U_ar   
                 @uxg;dyI~  
                Case "三级标题" M;-FW5O't  
                    LastTitle3No = LastTitle3No + 1 K/(Z\lL  
                    '新三级标题开始，复位其下属标题编号 cw BiT  
                    LastTitle4No = 0 ^s8JW"H  
                     6jal5<H  
                    If Val(ttNo) <> LastTitle3No Then ]~m=b
`o  
                            rText = LastTitle3No & ". " & ttString ) \ cnz  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText EA:_PBZ  
                         l9rN!Q|  
                    End If bnp:J |(ld  
                    '三级标题段落设置 格式：1. 标题内容 q<g!bW%  
                    .Paragraphs(paraCounter).Range.Text = rText W70BRXe04D  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题"  Mv%B#J  
                    .Paragraphs(paraCounter).Range.Select zS\m
8[+]  
                    Selection.EndKey unit:=wdLine {yBd{x<>/  
                    tc = Replace(rText, vbCr, "") Q>=/u-  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False w `M/0.)V  
                Case "四级标题" &6Wim<*  
                    LastTitle4No = LastTitle4No + 1 F j"]C.6B.  
                     CwEb ?  
                    If Val(ttNo) <> LastTitle4No Then 2zjY|g/  
                            rText = "(" & LastTitle4No & "). " & ttString sGM
nm  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText TTxSl p2=;  
                     R'1"`@fG  
                    End If /{ 8.Jcx$  
                    '四级标题段落设置 格式：(1). 标题内容 ^3&-!<*  
                    .Paragraphs(paraCounter).Range.Text = rText fb]=M oiJ  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" DqH]FS?]  
                    .Paragraphs(paraCounter).Range.Select w/0;N`YB  
                    Selection.EndKey unit:=wdLine d D^?%,a  
                    tc = Replace(rText, vbCr, "") 4=ha$3h$  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False e+MsFXnB8  
                 n<[H!4  
                Case "表格标题" Iak06E  
                    LastTableNo = LastTableNo + 1 '(:R-u!pp  
                     {>&M:_`k  
                    If ttNo <> CStr(LastTableNo) Then RCGpZyl  
                            rText = "表" & LastTableNo & ". " & ttString l~`JFWur]  
                            ErrMsg.AddItem "表格编号错误：" & ParaText VDy_s8Z#  
                   2IDn4<`  
                    End If 1N8YD .3  
                     3A b_Z  
                    '表格名称段落设置 格式：表1. 表格名称 zt )WX9  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" ^
F"eHUg  
                    xe = Replace(rText, vbCr, "") Zvz}Z8jW  
                    .Paragraphs(paraCounter).Range.Select NjA\*M9  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 }Oy/F  
                    Selection.Range.Text = xe >F!X'#Iv  
                    Selection.EndKey G>^ _&(c@2  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False 6nk.q|n:g  
                 $)O\i^T  
                Case "表格首行" X`}4=>  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" n22OPvp  
                Case "图片标题" "FfP&lF/  
                    LastFigureNo = LastFigureNo + 1 wB*}XJah  
                     cmLI!"RLe  
                    If ttNo <> CStr(LastFigureNo) Then P$A'WEO'  
                            rText = "图" & LastFigureNo & ". " & ttString &4F iYZ  
                            ErrMsg.AddItem "表格编号错误：" & ParaText 5sMyH[5zY  
                   Gc!&I+kd  
                    End If sr.!EQ]  
                    '图片名称段落设置 格式：图1. 图名称 ukXKUYNm8  
                    .Paragraphs(paraCounter).Range.Text = rText YP}r15P  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" e]d\S]5  
                    .Paragraphs(paraCounter).Range.Select %t-}dC&  
                    Selection.EndKey unit:=wdLine ~!dO2\X+  
                    xe = Replace(rText, vbCr, "") s[/)v:  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False Z5

>}  
                Case "正文" kh*td(pfP9  
                     '正文名称段落设置 Luh*+l-nO  
                    .Paragraphs(paraCounter).Style = "QLNU正文" <C7/b#4>\  
               Case "文献条目" ^#j{9FpPs  
                    With .Paragraphs(paraCounter) p
["20?^  
                        '.Range.Select 'P >h2^z  
                        'Selection.ClearFormatting }l@7t&T|  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” 3n TpL#  
                        .Style = "QLNU参考文献" =hK u85  
                    End With /%)x!dmy  
               Case "图表注解" 771r(X?Fa  
                    With .Paragraphs(paraCounter) {$-\)K  
                        .Range.Font.NameFarEast = "楷体" C'0=eel[  
                        .Range.Font.NameAscii = "Times New Roman" ~M J3-<I  
                        .Range.Font.Size = 9 '小5号字 9O#?r82  
                         K}Pi"Le@W  
                        .Alignment = wdAlignParagraphCenter fL R.2vJ  
                        .LeftIndent = 0 Yh;A  
                        .RightIndent = 0 yCye3z.  
                        .FirstLineIndent = 0 \E:l E/y  
                        .LineSpacing = 12 2W`<P2IA  
                        .LineSpacingRule = wdLineSpaceExactly {&Sr<d
5  
                        .LineUnitAfter = 0 8J#TP7;  
                        .LineUnitBefore = 0 ,HO@bCK  
                        .OutlineLevel = wdOutlineLevelBodyText ,G(bwE9~  
                        .PageBreakBefore = False h`p9H2}0  
                        .RightIndent = 0 k'Z$#  
                        .WordWrap = True xHdv?69,  
                        .LineUnitAfter = 0.5 V}"w8i+D?  
                         2Y{r2m|o  
                    End With 8U&93$  
                Case Else QW"BGg~6c  
                    '不作处理 fyt`$y_E[  
            End Select Ja6PX P]'  
             ?9AtFT  
            '含有inlineshape的段落处理 'WQ<|(:{  
            If ShapeHeight > 30 Then u'EzYJ7  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 sr,8Qd0M  
            End If EPwM+#|e-  
             W(UrG]J*l  
            If (ShapeWidth + ShapeHeight) > 150 Then B6a   
                .Paragraphs(paraCounter).Style = "QLNU图片段落" J"RmV@|  
            End If syLpnNx=  
             %L;'C v  
            '段落计数器递
mMV-IL  
            paraCounter = paraCounter + 1 yE),GJ-m\<  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter <</ Le%  
            Me.txtStatus.Text = ParaText XB-l[4?  
            DoEvents ~f>km|Q{u  
        Loop 5oIgxy  
    End With H;eOrX{GT  
     ( &Z`P  
    msg = "" @8GW?R  
     ns[Q %_  
    For i = 0 To Me.ErrMsg.ListCount - 1 MDKiwT@#  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) mq~L1<f  
    Next 4wQ>HrS)(  
     5;-?qcb^w  
     '@+a]kCMev  
     CpF&Vy K  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg )OcG$H NK  
    Me.cmdCheck.Enabled = True o8lwwM*  
    Me.txtStatus.Visible = True o5eFLJ6  
    Me.lbParaType.Visible = False Kf7v_T
/  
     v/lQ5R1  
    bContinue = False E; Z1HF R  
End Sub (|<.7K N  
!;^TW$ G  
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) T8rf+B/.L  
    Dim pTEXT As String H GRH9W  
     q!zsGf{  
    pTEXT = ChKRange.Text cH%#qE3  
     `JL&x|q o  
    ParaType = "其它" O:,Fif?;  
    TitleString = pTEXT \a\ApD  
    TitleNo = "N/A" ;X3bgA']  
     <oWoJP`G  
    shpCounter = ChKRange.InlineShapes.Count -%x9^oQwY  
    If shpCounter <> 0 Then (t)a u  
        MaxShpHeight = 0: TotalShpWidth = 0 m2$Qp{C6H  
        For i = 1 To shpCounter DR6 OR B7  
            k = ChKRange.InlineShapes(i).Height {n>W8sN<  
            l = ChKRange.InlineShapes(i).Width KUqD<Jj?  
            If k > MaxShpHeight Then {$mj9?n=v  
                MaxShpHeight = k *z A1NH5  
            End If ?rn#S8nNx<  
            TotalShpWidth = TotalShpWidth + l SLG3u;Ab  
        Next -=D6[DjU<  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then }PDNW  
            Exit Sub \;smH; m  
        End If +p:@ ,_  
    End If T&`H )o  
     cU'^ Ja?%  
    '空行 C6C 7*ks  
    If Len(pTEXT) <= 2 Then "ewB4F[  
        Exit Sub 9>"To  
    End If hd}"%
9p  
     RGim):1e  
         =-qv[;%&6  
    '是否为表格中的文字 5#U*vGVT
 
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then jFBnP,WQ  
        ParaType = "表格内容" n7S~nk  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) F
WbA+{8  
        If k = 1 Then "Q~-C|x  
            ParaType = "表格首行" "xV9$m>
 
        End If F$Q@UVA  
        Exit Sub UE9r1g`z  
    End If Ll L8Q  
     &ii3Vlyzg  
    '例外情况：脚注 
2x7%6'  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then a_0G4@=T  
        ParaType = "脚注" 7BhRt8FSD+  
        Exit Sub ;tF7GjEp  
    End If }TCOm_Y/qL  
     oLXQ#{([  
    '例外情况：尾注 A[6$'IJ  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then `<L6Q2Y>j  
        ParaType = "尾注" CdRgI^5  
        Exit Sub _ADK8a6%)  
    End If A"@C }f  
     `)W}4itm  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then :8~*NSEFd  
        ParaType = "页眉页脚" Lc<C1I 5=  
        Exit Sub $fE$j {  
    End If "K8<X  
     L@ {5:#-  
     M/,jHG8v  
    With regEX )'R
LK4l  
        .Global = True qeyBZ8BG  
         R3$K[Lv,  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" huau(s0um  
        If regEX.Test(pTEXT) Then 2ajQ*aNq  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") m{bw(+r  
            TitleString = regEX.Replace(pTEXT, "$3") e_BOzN~c  
            TitleNo = regEX.Replace(pTEXT, "$1") E30VKh |  
            ParaType = "章" t3 q0|S
  
            Exit Sub {]}}rx'|P  
        End If Iz#h:O  
         AdtAc$@xK  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" S/ Y1NH  
        If regEX.Test(pTEXT) Then /L1qdkG  
            ParaType = "一级标题" WlnI`!)d  
            regEX.Execute (pTEXT) N*Owfr1N  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") ;ml;{<jI  
            TitleString = regEX.Replace(pTEXT, "$3") nO~TW  
            TitleNo = regEX.Replace(pTEXT, "$1") &OiJJl[9  
            Exit Sub "(+>#  
        End If eFPDW;  
         UUx0#D/U0C  
        '全角或半角括号中的数字 EnrRnVB  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" av1*i3  
        If regEX.Test(pTEXT) Then oh5fNx  
            ParaType = "二级标题" {qm(Z+wcmb  
            regEX.Execute (pTEXT) l#,WM
u&  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") *p.P/w@1  
            TitleString = regEX.Replace(pTEXT, "$5") ,!f*OWnZ  
            TitleNo = regEX.Replace(pTEXT, "$2") #isBE}sT{  
            Exit Sub QMzBx*g(  
        End If .jhuC#x{/  
         ^zv28Wq>  
        '阿拉伯数字  1. 2. ^AUmIyf_  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" (l.`g@(L  
        If regEX.Test(pTEXT) Then a"{tqNc  
            ParaType = "三级标题" or u.a  
            regEX.Execute (pTEXT) sYt8NsQ  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 wL2d.$?TEg  
            TitleString = regEX.Replace(pTEXT, "$3") b "4W ` A  
            TitleNo = regEX.Replace(pTEXT, "$1") otXB:a  
            Exit Sub tF)aNtX4^  
        End If ?.:C+*+  
         nJYcC"f  
        '全角或半角括号中的阿拉伯数字 ]y,6  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" 1_7}B4  
        If regEX.Test(pTEXT) Then 7 3k3(r
Z  
            ParaType = "四级标题" cvbv\G'aT  
            regEX.Execute (pTEXT) _AQ :<0/#  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") ;&|ja]r  
            TitleString = regEX.Replace(pTEXT, "$5") h!f7/)|[o  
            TitleNo = regEX.Replace(pTEXT, "$2") FxC@KZG  
            Exit Sub j"E_nV:Qc  
        End If pbivddi2  
         LmLV2f  
        '表格名称 h{]l?6`  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" '$M=H.  
        If regEX.Test(pTEXT) Then ?<Dinq  
            ParaType = "表格标题" "~4ULl<i'  
            regEX.Execute (pTEXT) Xv'M\T}6C+  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) $+sNjwv^F  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) ?R0sY ?u  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) @fp (uu  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 +>oVc\$  
            Exit Sub NwmO[pt+  
        End If Ftm%@S?  
         H;<hmbN?d  
        '图片名称 G1Cn[F;e  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" Gt[!q\^?  
        If regEX.Test(pTEXT) Then #Vanw!  
            ParaType = "图片标题" i+&*
W{Re  
            regEX.Execute (pTEXT) r}P{opn$t  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") iuq-M?1  
            TitleString = regEX.Replace(pTEXT, "$3") cT8jG,+"}  
            TitleNo = regEX.Replace(pTEXT, "$1") LD WFc_  
            Exit Sub ?0+D1w  
        End If X;T(?,,  
         CCX\ "-C  
        '参考文献 1dOVH7  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 ,|b<as@X  
        If regEX.Test(pTEXT) Then Ku_`F2Q  
            ParaType = "文献条目" +E QRNbA  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") ,k/*f+t  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") c{j0A;XMS  
            Exit Sub a Kb2:1EQ  
        End If #zXkg[J6d  
         2-u>=r0L  
        prfx = Left(pTEXT, 2) POc< G^  
        If prfx = "注：" Or prfx = "注:" Then k@AOE0m  
            ParaType = "图表注解" kzGD*  
            Exit Sub "}|n;:r  
        End If Nl7"|()e  
         C}+ w<  
         `I<*R0Qe  
        ParaType = "正文" K.] *:fd  
         (?&X<=|"  
    End With ;y?,myO  
End Sub 8@qYzSx[  
8p7Uvn+m*  
Sub ConvertListToOrdinary() v\t$. _at  
    Dim st As Paragraph ;t@zH+*}  
    With ActiveDocument Tc@r#!.m  
        For i = .Paragraphs.Count To 1 Step -1 o\8yYX  
            Set st = .Paragraphs(i) @Q3aJ98)2  
            lst = st.Range.ListFormat.ListString bzmT.!  
            If lst <> "" Then X#(?V[F]  
                st.Range.ListFormat.RemoveNumbers j ij:}.d6  
                st.Range.InsertBefore lst & " " $CO^dFf  
            End If &@A(8(%  
        Next ;*+jCL2F  
    End With /+Xv(B  
    Set st = Nothing
RNiZ2:  
End Sub mz[rB|v"/7  
}7vX4{Yn  
Private Sub UserForm_Activate()
}(dhXOf\q  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" G;FY2;adK  
    Me.lbTotal.Font.Bold = True :h N*  
    Me.txtStatus.Visible = False gmWR
w{nS+  
    Me.cmdCheck.Enabled = True 2<yE3:VX  
&`<j!xlG  
End Sub VVvV]rU~  
.8l\;/o|  
w@4q D  
Sub CheckSuperScript() ;|b D
@%@  
    Selection.Find.ClearFormatting ^l ~i>:V  
    Selection.Find.Replacement.ClearFormatting 7[:9vY  
    With Selection.Find R1X9  
        .Text = "[【\[［〖](*)[】\]〗］]" ~d7!)c`z  
        .Replacement.Text = "[\1]" ;]MHU/  
        .Replacement.Font.Superscript = True DVRE;+Jt  
        '.Replacement.Font.Color = wdColorBlue ]E88zWDY`  
        .Forward = True H(!)]dO  
        .Wrap = wdFindContinue [z`U9J  
        .FORMAT = True )=;0  
        .MatchCase = False o8RagSIo8  
        .MatchWholeWord = False 5FnWlFc  
        .MatchByte = False BULX*eOt  
        .MatchAllWordForms = False Xf9<kbRw/  
        .MatchSoundsLike = False ~jmHzFkQ  
        .MatchWildcards = True AU$W=Z*  
    End With /_?Ly$>'  
    Selection.Find.Execute Replace:=wdReplaceAll &?/h#oF@\  
End Sub xe|o(!(  
N/Z3 EF_  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) (D{ Fln\  
    bContinue = False k#ED#']N  
    Set regEX = Nothing x9~d_>'A  
End Sub :sFP{rFx~  
v-X1if1%  
Sub CeateOrModifyStyle() O(h4;'/E  
' Ip( IGR"  
' sn/^#Aa=N  
Dim stl As Style 2Q)"~3  
     -d6|D?}S  
    Options.Pagination = False v'S}&zmF]  
     R|ViLty  
    On Error Resume Next Z= dEk`  
    For Each stl In ActiveDocument.Styles wnP#.[,V  
        stl.Delete MVH^["AeR  
    Next 93[c^sc9*a  
    On Error GoTo 0 c{6!}0Q4  
     "MKgU[t  
    Set stl = Nothing h2!We #  
     +o!".Hp  
    DoEvents @X"p"3V  
    On Error Resume Next ;4Y@xS2M  
     7Xm pq&g  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph g` 6Xrf  
     ykxjT@[  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph ;c_X ^"d  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph GrW+P[j9  
     ?z171X0  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph 1Qtojph  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph <u*~RYA2  
     ~9
p*zC3M  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph
V(A6>0s$|  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph M/
0!B_(R  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph D&/(Avx.  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph 'u{m37ZJ  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph EMmNlj6  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph {$HW_\w  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph m]+g[L?-  
     o';sHa'  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph UC;_}>  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph ,Zb]3  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph 7:I` ~ @m  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph 9@#Z6[=R,  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph x,STt{I=  
     }?^5\otu  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph @/ wJW``;  
    On Error GoTo 0 $[6:KV  
    DoEvents jtV{Lf3<  
     h2zuPgz,  
    'BaseStyle { o=4(RC  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False +T+f``RcK  
    With ActiveDocument.Styles("BaseStyle").Font 1 +O- g  
        .NameFarEast = "宋体" $xyG0Q.  
        .NameAscii = "Times New Roman" pN&5vu30  
        .NameOther = "宋体" D!ToCVo s  
        .Size = 10.5 OOGqtA;  
        .Bold = wdUndefined j Aw&5,  
        .Italic = wdUndefined /,f*IdB  
        .Subscript = wdUndefined /<9VKMR_k  
        .Subscript = wdUndefined i))S%!/r~  
         DT8|2"H  
        .Underline = wdUnderlineNone !%_Z>a  
        .UnderlineColor = wdColorAutomatic C#`eN{%.YT  
        .StrikeThrough = False tEf_
XBjKV  
        .DoubleStrikeThrough = False PtCwr)B,  
         ync2X{ 9D  
        .Outline = False +n%uIv  
        .Emboss = False k+{-iPm{  
        .Shadow = False `ux U H#  
        .Hidden = False ZTW
be  
        .SmallCaps = False 4WG~7eIgy  
        .AllCaps = False 4T`u?T]  
        .Color = wdColorAutomatic :kfHILi  
        .Engrave = False @ 3K)VjY7  
        .Scaling = 100 3205gI,  
        .Kerning = 1 d%
\{,  
        .Animation = wdAnimationNone 4$+1jjC]>~  
        .DisableCharacterSpaceGrid = False p}hOkx4R\  
        .EmphasisMark = wdEmphasisMarkNone F"#bCnS  
    End With KTD# a1W  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat 
cj`g)cX|  
        .LeftIndent = 0 M])Y|}wv8  
        .RightIndent = 0 ;WC]Lf<Z^  
        .SpaceBefore = 0 ec[
S?-  
        .SpaceBeforeAuto = False 81fpeoNO  
        .SpaceAfter = 0 7@$Hua,GY  
        .SpaceAfterAuto = False a=& a)FR  
         zy~vw6vu  
        .LineSpacingRule = wdLineSpaceSingle PCH&eTKN  
        .Alignment = wdAlignParagraphJustify  _p\  
         8xs[{?|:  
        .WidowControl = False .vj`[?T  
        .KeepWithNext = False DmM<Kkg.J  
        .KeepTogether = False w-2p'u['Z  
        .PageBreakBefore = False DKAqQ?fS  
        .NoLineNumber = False WLQm|C,  
        
znw\Dn?g  
        .FirstLineIndent = CentimetersToPoints(0) K3$83%E  
        .OutlineLevel = wdOutlineLevelBodyText mEm z
nA  
        .CharacterUnitLeftIndent = 0 H2l/9+  
        .CharacterUnitRightIndent = 0 #Sr_PEo _  
        .CharacterUnitFirstLineIndent = 0 ]vMr@JM-G  
        .LineUnitBefore = 0 wbshKkUh_*  
        .LineUnitAfter = 0 _{)e\n  
        .AutoAdjustRightIndent = True $(H%|Oyn  
        .DisableLineHeightGrid = True -~~"}u  
         +u#;k!B/>  
        .FarEastLineBreakControl = True \C5YVl#  
        .WordWrap = True ZWQrG'$?o8  
        .Hyphenation = False 8C#R  
         k, &*d4  
        .HangingPunctuation = True r9sW:cM:e  
        .HalfWidthPunctuationOnTopOfLine = True yjaX\Wb[z[  
        .AddSpaceBetweenFarEastAndAlpha = True ^\Nsx)Y;  
        .AddSpaceBetweenFarEastAndDigit = True 6e(|t2^  
        .BaseLineAlignment = wdBaselineAlignBaseline H-~V:OCB~  
    End With G4vXPx%a8  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False QM=M<~<Voh  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll &*B=5W;6^u  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese <f&
z~y=  
    ActiveDocument.Styles("BaseStyle").NoProofing = False hn#i,XnY  
     3k py3z[%  
    '一级标题题样式 \?{nP6=  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") s"#JBw\7  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" %Wkvo-rOq  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False ,di'279|  
    With ActiveDocument.Styles("QLNU一级标题").Font v=EV5#A  
        .NameFarEast = "黑体" dFFJw[$8w  
        .NameAscii = "Arial Black" ]y>)e
s1  
        .NameOther = "黑体" 8bLA6qmM\  
        .Name = "黑体" Mdsn"Y V  
        .Size = 16              '三号 !Low%rP  
        .Bold = True U+F?b\  
        .Italic = wdUndefined (|I:
d!>:U  
        .Subscript = wdUndefined Sg(fZ' -  
        .Superscript = wdUndefined -@X?~4Idz  
    End With Xi^3o  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat , \|S BS  
         @cA`del  
        .LeftIndent = CentimetersToPoints(0) r t@Jw]az  
        .RightIndent = CentimetersToPoints(0) laG@SV  
        .FirstLineIndent = CentimetersToPoints(0) 0tv"tA;  
         NK2Kw{c"iI  
        .LineSpacingRule = wdLineSpaceSingle w>>)3:Ytd  
        .Alignment = wdAlignParagraphCenter m_\w)  
         `=g9Rg/<  
        .WidowControl = True EYtf>D  
        .KeepWithNext = True 3`S|I_$(T"  
        .KeepTogether = True 9bRlSb@  
        .OutlineLevel = wdOutlineLevelBodyText T$5u+4>"  
         oMawINDa  
        .LineUnitBefore = 0.5 0f}zm8p7.  
        .LineUnitAfter = 0.5 /_5I}{  
    End With f^z~{|%l!  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False 1{i)7:Y  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll l)< '1dqe  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese R5c Ya  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True T&c0j(  
    DoEvents U~n>k<`sr  
     YQ9@Dk0R  
    '二级 hqIYo .<  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") D0Yl?LU3  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" !'o5X]s  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False r63_|~JVB<  
    With ActiveDocument.Styles("QLNU二级标题").Font Kq e,p{=  
        .NameFarEast = "黑体" '^)Ve:K-.  
        .NameAscii = "Arial Narrow" OvqCuX  
        .NameOther = "黑体" &^3KF0\Q  
        .Name = "黑体" 6ziiV_p  
        .Size = 15        '小三号 
="<5+G  
        .Bold = False REUWK#>  
        .Outline = False ! /;@kXN
 
        .Italic = wdUndefined ifTMoC%  
        .Subscript = wdUndefined mr dG-t(k  
        .Superscript = wdUndefined bmgK6OyVR  
    End With kwU~kcM  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat bwR_ uF  
        .LeftIndent = CentimetersToPoints(0) x%ju(B>  
        .RightIndent = CentimetersToPoints(0) 3e4; '5q;  
        .FirstLineIndent = CentimetersToPoints(0) _-eF &D  
         p\T9q  
        .LineSpacingRule = wdLineSpaceSingle *{8<4CVv  
        .Alignment = wdAlignParagraphLeft >Ig%|4Hw  
         QlmZBqK}&  
        .WidowControl = True _xT=AF9~o  
        .KeepWithNext = True 7^7Rk  
        .KeepTogether = True dznHR6x  
        .PageBreakBefore = False k~Qb"6n2  
        .OutlineLevel = wdOutlineLevelBodyText ,#3u.=IR[  
         1 t haQ"  
        .LineUnitBefore = 0.5 sVtxh
]  
        .LineUnitAfter = 0.5 P0NGjS|Z{  
        
M3c!SXx\  
    End With 4A^=4"BCV  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False X]ow5{e  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll 4A6D>ChB'E  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese PPSf8-MLW  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True >Y=HP&A<  
    DoEvents =r=[e}&9  
     Pw i6Ly`  
    '三级标题样式 ):OGhW
q  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") Bf33%I~  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" 6X2>zUHR  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False #va|&QBZxM  
    With ActiveDocument.Styles("QLNU三级标题").Font WBD e`  
        .NameFarEast = "宋体" c`}-i6  
        .NameAscii = "Times New Roman" 3mKmd iD  
        .NameOther = "黑体" y`O !,kW  
        .Name = "黑体" qI;"yG-x-  
        .Size = 14               '四号 :9un6A9JS  
        .Bold = False p?(w!O  
        .Outline = False Y^80
@MJ  
        .Italic = wdUndefined 4lhoA  
        .Subscript = wdUndefined iU3)4(R  
        .Superscript = wdUndefined Jlw%t!Kx  
    End With UQ6UZd37   
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat ,RIGV[u  
        .LeftIndent = CentimetersToPoints(0) AoB~ZWq   
        .RightIndent = CentimetersToPoints(0) D-\WS^#  
        .FirstLineIndent = CentimetersToPoints(0) 5ws|4V  
         eQ_dO]Q  
        .LineSpacingRule = wdLineSpaceSingle &~VWh}=r  
        .Alignment = wdAlignParagraphLeft ru[W?O"  
         eAKK uML  
        .WidowControl = True "D0:Y(\  
        .KeepWithNext = True v H/<!jtI  
        .KeepTogether = True I{Hl2?CnI,  
        .PageBreakBefore = False CA%p^4Q  
        .OutlineLevel = wdOutlineLevelBodyText EV{kd.=f  
         !T;*F%G9  
        .CharacterUnitLeftIndent = 0 PkA_uDhw  
        .CharacterUnitRightIndent = 0 ^%l~

|w  
        .CharacterUnitFirstLineIndent = 2 ,0+%ji^V  
          ?w6zq|  
        .LineUnitBefore = 0.5 "Y0:Y?Vz"  
        .LineUnitAfter = 0 7|4hs:4mD  
    End With k x,9n)  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False KNT(lA0s  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll ^% y<7>%  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese V#8]io  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True )D\cm7WX^[  
    DoEvents q>:>f+4  
     w#.Tp-AZ;\  
    '四级标题样式 dYEF,\Z'  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") EH))%LY1y  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" [=M0%"  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False AffVah2o:  
    With ActiveDocument.Styles("QLNU四级标题").Font 4/YE
kD  
        .NameFarEast = "宋体" c4QegN  
        .NameAscii = "Times New Roman" 6v~` jS%3  
        .NameOther = "宋体" .3WDtVE  
        .Name = "宋体" #;FHyKx  
        .Size = 12               '小四号 62lG,y_L  
        .Bold = True 2,,zN-9mt  
        .Outline = False N2:};a[ui5  
        .Italic = wdUndefined :Awnj!KNCc  
        .Subscript = wdUndefined YI05?J}  
        .Superscript = wdUndefined MG ,exN @  
    End With i'&KoR?  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat UB[tYZ  
         Pw:(X0@  
        .LeftIndent = CentimetersToPoints(0) C@+"d3  
        .RightIndent = CentimetersToPoints(0) k8fvg4  
        .FirstLineIndent = CentimetersToPoints(0) lrSdFJ%  
         Q`mw2$zv  
        .LineSpacingRule = wdLineSpaceSingle +E8\g  
        .Alignment = wdAlignParagraphLeft Kq!E<|yM  
         /3|uU   
        .WidowControl = True cx%[hM09  
        .KeepWithNext = True <SM{yMz  
        .KeepTogether = True  .b] 32Ww  
        .PageBreakBefore = False *:t]|$;E\  
        .OutlineLevel = wdOutlineLevelBodyText t}m6];  
         hnWo.5;$  
        .CharacterUnitLeftIndent = 0 o('W2Bs-o  
        .CharacterUnitRightIndent = 0 :M" NB+T  
        .CharacterUnitFirstLineIndent = 2 mD}&
X 7  
         Z-(#}(HD  
        .LineUnitBefore = 0 {Ic~ }>w  
        .LineUnitAfter = 0 XrR@cDNx{  
         V_Z~$  
    End With mNkS!(L6  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False 86Q\G.h7  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll |jB]5ciT  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese JqWMO!1  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True
+C3IP  
    DoEvents +g36,!q  
     v&g(6~b_>  
    '正文校式 1Xy{&Ut\  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") ! K? o H  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" Cb}hE ro  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False =Gsn4>~%n  
    With ActiveDocument.Styles("QLNU正文").Font 3&Dln  
         weQC9e~d{-  
        .NameFarEast = "宋体" j" wX7  
        .NameAscii = "Times New Roman" c\GJfsVk  
        .NameOther = "宋体" H
':dLR  
        .Name = "宋体" vd7%#sHH&  
         &8!*u3  
        .Size = 12               '小四号 d>"t*>i]>  
         gQy{OU  
        .Bold = wdUndefined 8joJe>9VJ  
        .Italic = wdUndefined _Eq*  
        .Subscript = wdUndefined 4k' 2FkDA  
        .Superscript = wdUndefined :$Lu V5  
         (ov=D7>t0  
        .Outline = False A:Y] <jt  
        .Emboss = False w)I!q&`Y  
        .Shadow = False v4]7"7GuW  
        .Hidden = False 0{|ib !  
         LL,&!KW[S  
        .DisableCharacterSpaceGrid = True ,EPs>#
d  
    End With Jej P91  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat $47cKit|k:  
         @91Q=S  
        .LeftIndent = CentimetersToPoints(0) fsc^8  
        .RightIndent = CentimetersToPoints(0) GCx1lm  
        .FirstLineIndent = CentimetersToPoints(0) 0gY
,[aQ2  
         ;{b 1'  
        .LineSpacingRule = wdLineSpaceExactly i<<NKv8;  
        .LineSpacing = 20 'Y23U7 n0B  
        .Alignment = wdAlignParagraphLeft ydp
?%RB3w  
         l:NEK`>i  
        .WidowControl = False CD#:*  
        .KeepWithNext = False O+Z[bis`  
        .KeepTogether = False ^bpxhf x  
        .PageBreakBefore = False SI
_{%~k*B  
        .Hyphenation = False :UjHP}s  
         fuJ6 fmT  
        .OutlineLevel = wdOutlineLevelBodyText vUa~PN+Iy  
         S-^y;#=  
       EoLF7j<W  
        .CharacterUnitLeftIndent = 0 g Z3VT{  
        .CharacterUnitRightIndent = 0 ;)ffGg>  
        .CharacterUnitFirstLineIndent = 2 1B~H*=t4h  
         PAF2=  
        .LineUnitBefore = 0 1_vaSEov  
        .LineUnitAfter = 0 51.! S  
        .SpaceBefore = 0 #"|Y"#@k  
        .SpaceAfter = 0 R03V+t=  
         gE8=#%1<  
        .DisableLineHeightGrid = True y7M"Dr%t^  
    End With :nki6Rkowt  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False w <zO  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll U85t !U  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese }>:v  
    ActiveDocument.Styles("QLNU正文").NoProofing = True d
R2#n  
    DoEvents >T3HkOT  
     .S/W_R  
    '图片段落样式 +gb2>fei&  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") ,=KJ7zIK?  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" | >xUgpQi  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False >@^z?nb  
    With ActiveDocument.Styles("QLNU图片段落").Font 9k.
LV/Y  
        .Size = 12               '小四号 iN%\wkx*N  
        .Italic = wdUndefined Zf;1U98oC  
        .Subscript = wdUndefined V^Wo%e7#u[  
        .Superscript = wdUndefined ]9z{ 95  
    End With |6LC>'  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat \ B 0xL,o<  
         f:L%th  
        .LeftIndent = CentimetersToPoints(0) ,sPsL9]$  
        .RightIndent = CentimetersToPoints(0) )fSQTbB;0  
        .FirstLineIndent = CentimetersToPoints(0) xQs2)  
         9ls<Y  
        .LineSpacingRule = wdLineSpaceSingle .E:QZH'M  
        .Alignment = wdAlignParagraphCenter N*JWd  
        .KeepWithNext = True 7NG^X"N{Ul  
        .OutlineLevel = wdOutlineLevelBodyText /$zYSP)YT  
         w
?kdM1T  
        .CharacterUnitLeftIndent = 0 @ ?y(\>  
        .CharacterUnitRightIndent = 0 <Q)6N!Tp^  
        .CharacterUnitFirstLineIndent = 0 BBw]>*  
         'qBg^c  
        .LineUnitBefore = 0 k)\Yl`4au  
        .LineUnitAfter = 0 O?X g%k#  
    End With <rc3&qmd  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False "El$Sat`  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll DmAMr=p  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese nIVP h99  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True Y604peUF  
    DoEvents )_!t9gn*wr  
     C`OdMM>D  
     SPA_a\6_  
    '第X章 l= 5kd.{  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") D6Ov]E:fa  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" q[]EVs0$ew  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False w2y{3O"p=  
    With ActiveDocument.Styles("QLNU章节标题").Font b\~rL,7(  
        .NameFarEast = "黑体" Y<Y5HI"  
        .NameAscii = "Arial Black" mMO:m8W  
        .NameOther = "Arial Black" c0ET]  
        .Name = "黑体" @=x=dL
(  
        .Size = 16 -)@DH;[tb  
        .Bold = True m;o \.s  
        .UnderlineColor = wdColorAutomatic *%5#\ I  
        .Outline = False O6gI%Jdp  
        .Italic = wdUndefined *1iJa  
        .Subscript = wdUndefined ehj&A+Ip  
        .Superscript = wdUndefined 7]a6dMh  
        .Scaling = 100 -Zfzl`r
 
        .DisableCharacterSpaceGrid = True '3=[xVnv  
    End With !]qwRB$5  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat (PU0\bGA  
        .LineSpacingRule = wdLineSpaceSingle
OIB~W  
        .Alignment = wdAlignParagraphCenter Ty\&ARjb 8  
        .WidowControl = True J'tc5Ip!}V  
        .KeepWithNext = True 0hcrQ^BB!b  
        .KeepTogether = True !pl<  
        .PageBreakBefore = True >69xl^Gd  
        .OutlineLevel = wdOutlineLevelBodyText B]]_rl,  
         }_}C ^  
        .LeftIndent = CentimetersToPoints(0) /Kb7#uq  
        .RightIndent = CentimetersToPoints(0) 1vQf=t%lw  
        .FirstLineIndent = CentimetersToPoints(0) 04NI.Jv  
         Z[KXDQn8  
        .CharacterUnitLeftIndent = 0 Fc>W]1  
        .CharacterUnitRightIndent = 0 ~$w-I\Q!  
        .CharacterUnitFirstLineIndent = 0 Sj{z  
         c_a*{L|c  
        .LineUnitBefore = 1 g<oSTAw  
        .LineUnitAfter = 0.5 bnLvJ]i )  
         {/12.y=)~  
        .AutoAdjustRightIndent = False hfP}+on%  
        .DisableLineHeightGrid = True [r_,BH\nu  
        .FarEastLineBreakControl = True dUeM+(s1  
        .WordWrap = True UzFd@W u#  
    End With k!O#6
Z  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False LoUi Yf  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll " M8j?  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese +jzpB*@  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True ?1}1uJMj-  
    DoEvents yNdtq\h  
     2Jrr;"r  
    '表格标题 &!JX  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") R{)Sv|+`  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" HB`u@9le  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False lY!`<_Am  
    With ActiveDocument.Styles("QLNU表格标题").Font O-:#Q(H!  
        .NameFarEast = "楷体" Oa\!5Pw1  
        .NameAscii = "Arial" > taT;[Oa  
        .Name = "楷体" dsqqq,>Q  
        .Size = 10.5 _={*<E  
        .Bold = True %b'ic  
        .Underline = wdUnderlineNone @P+k7"f  
        .Italic = wdUndefined a_'W1ek-@  
        .Subscript = wdUndefined iOm1U_S  
        .Superscript = wdUndefined %stZ'
IX  
        .Color = wdColorAutomatic W fkm'BnV  
    End With rP,i,1Ar 4  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat ?sDm~]Z  
         P"W$
ZX  
        .LineSpacingRule = wdLineSpaceSingle vV.'&."g  
        .Alignment = wdAlignParagraphCenter 0wXfu"E{  
        .KeepWithNext = True *\m 53mb  
        .KeepTogether = True F7UY>z3jL  
        .OutlineLevel = wdOutlineLevelBodyText #B:J7&@fn  
         Hk8:7"4Q  
        .LeftIndent = CentimetersToPoints(0) |//cA
2@.  
        .RightIndent = CentimetersToPoints(0) .z7
XYmv  
        .FirstLineIndent = CentimetersToPoints(0) My'M~#kO,  
         RvV4SlZz
 
        .CharacterUnitLeftIndent = 0 sxJKu  
        .CharacterUnitRightIndent = 0 N5c sq(  
        .CharacterUnitFirstLineIndent = 0 N8}R<3/  
         zAt!jP0E  
        .LineUnitBefore = 1 K$(&Qx}  
        .LineUnitAfter = 0 Zu:cF+hl  
         S(mJ; C  
    End With !TP8LQ  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False p#'BV'0bl  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll |332G6
4K  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese L+bO X  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True ~|@aV:k  
    DoEvents ~\DC )  

ovzIJbf  
    '表格首行 |ap{+ xh  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") &$jg *Kr  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False UZMo(rG.]{  
    With ActiveDocument.Styles("QLNU表格首行").Font 8e)k5[\m  
        .NameFarEast = "楷体" EaFd1  
        .NameAscii = "Times New Roman" o\h[K<^> )  
        .Name = "楷体" 6'395x_.\  
        .Size = 9 j a70w:ja  
        .Bold = True qdm5dQ (c  
        .Underline = wdUnderlineNone "Q
'#V!  
        .Italic = wdUndefined <M=U  @  
        .Subscript = wdUndefined J]nb;4w  
        .Superscript = wdUndefined 3G8BYP  
    End With F%bv vw*(  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat 4JFi|oK0H  
        .LineSpacingRule = wdLineSpaceSingle bmhvC 9  
        .Alignment = wdAlignParagraphCenter 016l$K4  
         Ki}PO`s  
        .LeftIndent = CentimetersToPoints(0) h=YY> x  
        .RightIndent = CentimetersToPoints(0) ;r>?V2,tm  
        .FirstLineIndent = CentimetersToPoints(0) fGb(=l  
         $4'I3{$  
         =1)yI>2e%}  
        .CharacterUnitLeftIndent = -0.5 rX%#Q\
0h  
        .CharacterUnitRightIndent = -0.5 `rW{zQYM  
        .CharacterUnitFirstLineIndent = -0.5 mN@)b+~(S  
         kmNY ;b6Y$  
        .LineUnitBefore = 0 6tI7vLmG  
        .LineUnitAfter = 0 b|n%l5 1  
        .SpaceBefore = 0 Df02#493  
        .SpaceAfter = 0 A2qus$  
         I>bLgt]u3  
    End With =#n05*^  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False I yIh0B~i  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll uNl<=1  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese )-|A|1Uo  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True g$kK)z  
    DoEvents Fp+^`;j  
Mkko1T=6  
    '表格内容 wKe^5|Rr  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") ?(>7v[=iT  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False wwnc  
    With ActiveDocument.Styles("QLNU表格内容").Font $iDatQ[  
        .NameFarEast = "楷体" <<LmO-92  
        .NameAscii = "Times New Roman" }\=9l
<|  
        .Name = "楷体" $&EZVZ{r  
        .Size = 9 D; H</5
#Q  
        .Bold = False fo&q/;l\  
        .Underline = wdUnderlineNone Hs~M!eK  
        .Italic = wdUndefined rw8O<No4.o  
        .Subscript = wdUndefined R}Uvi9?  
        .Superscript = wdUndefined t*zve,?}  
    End With NwD*EuPF:  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat F*>:~'%  
        .LineSpacingRule = wdLineSpaceSingle [=u8$5/a  
        .Alignment = wdAlignParagraphCenter 7xB#)o53  
         ;#78`x2  
        .LeftIndent = CentimetersToPoints(0) 2V/A%  
        .RightIndent = CentimetersToPoints(0) ~Y O')  
        .FirstLineIndent = CentimetersToPoints(0) t#MU2b  
         e'(n ^_$nl  
        .CharacterUnitLeftIndent = -0.5 |^C?~g  
        .CharacterUnitRightIndent = -0.5 HI#}M|4n  
        .CharacterUnitFirstLineIndent = -0.5 pZ+zm6\$  
        .LineUnitBefore = 0 f'TjR#w  
        .LineUnitAfter = 0 'IFbD["r  
        .SpaceBefore = 0 kI]i,v#F  
        .SpaceAfter = 0 RPPxiYU^  
    End With wd~e3%JM  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False HcUiv
C  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll 2 W|4
 
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese {}N*e"<O  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True c%>t(ce`Tl  
    DoEvents @jN!j*Y H  
lg&"=VXx51  
    '图片标题 X&MO}  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ~^$O NmI
5  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" !;pmql  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False R+P,kD?  
    With ActiveDocument.Styles("QLNU图片标题").Font N'Ywn}!js  
        .NameFarEast = "楷体" ]o$Kh$~5  
        .NameAscii = "Times New Roman" a36n}R4Q  
        .Name = "楷体" +VDwDJ)lG  
        .Size = 10.5 ,~X^8oY  
        .Bold = True Vm_y,;/(-R  
        .Underline = wdUnderlineNone f|WNPFQ$x  
        .Italic = wdUndefined [email protected]Wrv  
        .Subscript = wdUndefined  N~EM`d  
        .Superscript = wdUndefined muT+H(Zp}  
        .Outline = False 3ypB~bNw  
        .Shadow = False 4o9#B:N]J  
        .Color = wdColorAutomatic ;"!dq)  
    End With G~a;q+7v'$  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat Hlp!6\gukp  
        .LineSpacingRule = wdLineSpaceSingle m
l.l( 6A  
        .Alignment = wdAlignParagraphCenter *W y0hnr;]  
         {a `kPfP  
        .KeepWithNext = wdUndefined T5B~CC'6  
        .KeepTogether = True dE_BV=H{  
        .OutlineLevel = wdOutlineLevelBodyText 6S])IA&VJ  
        
.sAcnf"  
        .LeftIndent = CentimetersToPoints(0) Ig"K
rz  
        .RightIndent = CentimetersToPoints(0) PkF B.  
        .FirstLineIndent = CentimetersToPoints(0) 3%{XJ V  
         knh^q;q*  
        .CharacterUnitLeftIndent = 0 aW
m0*W"(@  
        .CharacterUnitRightIndent = 0 (3 8.s:-  
        .CharacterUnitFirstLineIndent = 0 kGc;j8>."  
         <5@+:7Dv  
        .LineUnitBefore = 0 )K -@{v^|  
        .LineUnitAfter = 0 H&[CSc  
    End With FlOKTY  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False Au#(g uvm  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll )AXTi4MNp  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese D@^ r  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True Ooc,R(  
    DoEvents W:4]-i?2  
yC =5/wy`  
    '目录项 $n(?oyf  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") p+snBaAo}  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" ~bL(mq  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False uZz^>*b  
    With ActiveDocument.Styles("QLNU目录项").Font S"CsY2;  
        .NameFarEast = "黑体" |q^e&M<  
        .NameAscii = "Times New Roman" 37?%xQ!  
        .NameOther = "Times New Roman" bd_U%0)pi1  
        .Name = "黑体" )_NQ*m  
        .Size = 10.5 a^iefwsNc  
        .Bold = False }di)4=U9  
        .Italic = wdUndefined xVuGeanCv  
        .Underline = wdUnderlineNone r&A#h;EQX2  
        .Color = wdColorAutomatic ,@
R~y  
        .Superscript = wdUndefined &sR{3pC}  
        .Subscript = wdUndefined g v&xC 6>  
    End With tQ5gmj  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat J^hj R%H  
         OQ 5{#  
        .LineSpacingRule = wdLineSpaceSingle =:P9 $  
        .Alignment = wdAlignParagraphLeft x@m"[u  
         $V]D7kDph*  
        .WidowControl = False 93kSBF#  
        .KeepWithNext = False 9Wb9 g/L  
        .KeepTogether = False #?}k0Y  
        .PageBreakBefore = False }(Nb]_H  
        .NoLineNumber = False &?9p\oY[  
        .OutlineLevel = wdOutlineLevelBodyText ~)tIO<$U  
         9x?" %b  
        .LeftIndent = CentimetersToPoints(0) f5 wn`a~h  
        .RightIndent = CentimetersToPoints(0) 7 '2E-#^  
        .FirstLineIndent = CentimetersToPoints(0) E+dr\Xhv  
         g (ZeGNV8  
        .CharacterUnitLeftIndent = 0 U;i:k%Bzy  
        .CharacterUnitRightIndent = 0 qXt2m  
        .CharacterUnitFirstLineIndent = 0 K*'(;1AiW  
         QJTGeJ Y  
        .LineUnitBefore = 0 Q {3"&  
        .LineUnitAfter = 0 r9%4q4D?>9  
    End With j1v fp"J1  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False F&lWO!4  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll *hF5cM[  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot (
nbqL+  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese BEg%u)"([  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True p W:[Q\rSj  
    DoEvents 5Jp@n .  
     3xsC"c>  
    '参考文献 G<4H~1?P  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") VHM,W]  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" JiDX|Q<c  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False oPk2ac  
    With ActiveDocument.Styles("QLNU参考文献").Font `R!0uRu  
        .NameFarEast = "宋体" ]Q-ON&/  
        .NameAscii = "Times New Roman" ZajQ B  
        .NameOther = "Times New Roman" QVL9 2"  
        .Name = "Times New Roman" {}D8Y_=9\  
        .Size = 12 1jh^-d5  
        .Bold = False Fb*^GH)J  
        .Italic = wdUndefined nFzhj%Pt;  
        .Subscript = wdUndefined i :&Y{iPQp  
        .Superscript = wdUndefined HO41)m+&  
        .Underline = wdUnderlineNone 8n?P'iM  
        .UnderlineColor = wdColorAutomatic N1\u~%AT"  
        .Color = wdColorAutomatic "@ Zy+zLU  
        .Engrave = False x7L$x=8s  
    End With d5T0#ue/e  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat KAjKv_6=g  
         _;
yp^^S  
        .LineSpacingRule = wdLineSpaceExactly R7KHfXy'm  
        .LineSpacing = 16
kej@,8  
        .Alignment = wdAlignParagraphLeft PD|I3qv~  
        .WidowControl = False xh#ef=Bw  
        .KeepWithNext = False ``1#^ `  
        .KeepTogether = False J}i$ny_3OB  
        .PageBreakBefore = False ?WG9}R[qE/  
        .OutlineLevel = wdOutlineLevelBodyText wS%I.  
         fH`P8?](x  
        .LeftIndent = CentimetersToPoints(0) +"?K00*(  
        .RightIndent = CentimetersToPoints(0) $A
7[?Ai ?  
        .FirstLineIndent = CentimetersToPoints(0) uB 6`e!Q  
         Z]1~9:7ap  
        .CharacterUnitLeftIndent = 0 Xleoh2&M  
        .CharacterUnitRightIndent = 0 U/&?rY^|  
        .CharacterUnitFirstLineIndent = -2 Um9!<G=;  
         r*>XkM& M  
        .LineUnitBefore = 0 4^w>An6  
        .LineUnitAfter = 0 rD%(*|Y"c  
        .SpaceBefore = 0 CP7Zin1S/w  
        .SpaceAfter = 0 @=K> uyB  
         v8y77:  
    End With ]QtdT8~  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False G( nT.\  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll TqKL(Qw E  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS Y?S!8-z  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True 6 2'j!"xv  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese j!_;1++q  
    DoEvents |s'Po^Sy  
?a8^1:  
    ' }0eF~>Df  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") y6LWx:  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" 0F]>Jby  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False !HrKXy0{  
    With ActiveDocument.Styles("QLNU论文题目").Font Q7*SE%H  
        .NameFarEast = "黑体" M1 :uJkO.  
        .NameAscii = "Arial Black" B{|8#jq Y  
        .NameOther = "Arial Black" qo p^;~  
        .Name = "Arial Black" u&`XB|~  
        .Size = 16 _hN\10ydY  
        .Bold = False GO8GJ;B-U  
        .Italic = wdUndefined tro7Di2Q  
        .Superscript = wdUndefined 0>C T=(A  
        .Subscript = wdUndefined 0C1pt5K  
        .Underline = wdUnderlineNone "|Xk2U  
        .UnderlineColor = wdColorAutomatic os,* 3WO  
        .Color = wdColorAutomatic g>Y|9Y  
\!>3SKs(e  
    End With d^RxQuA  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat kB3H="3[[  
        .LineSpacingRule = wdLineSpaceSingle uZM{BgXXD  
        .Alignment = wdAlignParagraphCenter j2ve^F:Q  
        .WidowControl = True iEd\6EZ  
        .KeepWithNext = True L_vISy%\b  
        .KeepTogether = True |y&*MTfV4L  
        .PageBreakBefore = True *;1,5L  
        .NoLineNumber = False I`p+Qt  
        .OutlineLevel = wdOutlineLevelBodyText O/,aJCe  
         NYE`Kin-  
        .LeftIndent = CentimetersToPoints(0) }x@2]juJ  
        .RightIndent = CentimetersToPoints(0) q ]M+/sl  
        .FirstLineIndent = CentimetersToPoints(0) {/"2Vk<H8  
         Y'yH;Mz  
        .CharacterUnitLeftIndent = 0 xgbJ2Mh  
        .CharacterUnitRightIndent = 0 {wO3<
9  
        .CharacterUnitFirstLineIndent = 0 q-.,nMUF  
         :axRoRg  
        .LineUnitBefore = 1 ~R_ztD+C(  
        .LineUnitAfter = 1 :e]a$  
         0KYEb%44  
        .BaseLineAlignment = wdBaselineAlignAuto $eD.W
 
    End With 5Y.vJz  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False plUZ"Tr  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll 9 TvV=  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS vtw6FX_B  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True b6}H$Sx~  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese vk+VP 1D  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True qC}-_u7s
 
    DoEvents ?kWC}k{  
     !+1<E*NQ S  
    '中文摘要 m6TNBX  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") >_e]C}QUr  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" >*]Hq.&8  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False %C$%!C  
    With ActiveDocument.Styles("QLNU中文摘要").Font r
YogW!  
        .NameFarEast = "宋体" |kw)KEi}H  
        .NameAscii = "Times New Roman" #,7e NM"  
        .NameOther = "Times New Roman" ZYI{i?Te#  
        .Name = "Times New Roman"  `dFq:8v  
        .Size = 12 >xF/Pl  
        .Bold = wdUndefined >ZPsjQuf"  
        .Superscript = wdUndefined [pl'|B  
        .Subscript = wdUndefined 0*rQ3Z  
        .Italic = wdUndefined "l*Pd$sr  
        .Underline = wdUnderlineNone Y ]NSN-t  
        .UnderlineColor = wdColorAutomatic TcIcS]w%  
        .Color = wdColorAutomatic |K6REkzr  
    End With #.it]Nv{  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat aa?w:3  
        .LineSpacingRule = wdLineSpaceExactly 8)O[Aq::  
        .LineSpacing = 20 }R1
< 0~g  
        .Alignment = wdAlignParagraphLeft z*kutZ:6Y  
         =; ^%(%Y{m  
        .WidowControl = False )f}YW/'  
        .KeepWithNext = False  CsTF  
        .KeepTogether = True z8QAo\_I(  
        .PageBreakBefore = False V=zi >o`   
        .NoLineNumber = False p;._ HJ(  
        .OutlineLevel = wdOutlineLevelBodyText , 8:(OB|a  
         33#0J$j7  
        .LeftIndent = CentimetersToPoints(0) cV 5CaaL  
        .RightIndent = CentimetersToPoints(0) z54EG:x.7^  
        .FirstLineIndent = CentimetersToPoints(0) E_k$W5  
         )=5ng-  
        .CharacterUnitLeftIndent = 0 7B
b9t  
        .CharacterUnitRightIndent = 0 P/c&@_b  
        .CharacterUnitFirstLineIndent = 2 +s,Qmmb7)  
        .LineUnitBefore = 0 lLp^Gt^}w(  
        .LineUnitAfter = 0 nN*
w~f"  
         4kG,*3&2  
    End With lL{5SH<Q  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False vY%d  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll JQV%fTHS  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS I|>^1kr8w  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True n;(\5{a  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese IIg^FZ*]_  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True k
*Q<3@S  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete ~V&aUDO>/  
    DoEvents ZT,B(#m  
     zN!ZyI$nqP  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ~MS\  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" ])L A42|  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False SF&BbjBE0  
    With ActiveDocument.Styles("QLNU英文标题").Font ux_Mr
h'  
        .NameFarEast = "黑体" |p><'Q%*  
        .NameAscii = "Arial Narrow" \=uKHNP?#  
        .Name = "Arial Narrow" oX0D
 
        .Size = 16 b /@#}Gc  
        .Bold = True l7W 6qNB  
        .Bold = wdUndefined :X.b}^Z(  
        .Superscript = wdUndefined )#.<]&P}  
        .Subscript = wdUndefined >;L6xt3  
        .Italic = wdUndefined
U4gF(Q  
         X=hYB}}nu  
        .Underline = wdUnderlineNone odPL{XFj  
        .UnderlineColor = wdColorAutomatic (@t(?Js  
        .StrikeThrough = False <z]cy
Xv/  
        .DoubleStrikeThrough = False c/zJv*}x?  
    End With \<y`!"c  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat hJDi7P  
        .LineSpacingRule = wdLineSpaceSingle kD*2~Z?;  
        .Alignment = wdAlignParagraphCenter q0$ !y!~  
        .WidowControl = True zRq-b`<7V  
        .KeepWithNext = False LM} Ib.  
        .KeepTogether = False _acE :H  
        .PageBreakBefore = False I 6<*X  
        .NoLineNumber = False [* @5\NWR}  
        .FirstLineIndent = CentimetersToPoints(0) )6+eNsxMlC  
        .OutlineLevel = wdOutlineLevelBodyText T(e!_VY|m  
         O) WCW<p  
        .LeftIndent = CentimetersToPoints(0) _h X]%  
        .RightIndent = CentimetersToPoints(0)  #tZ4N7  
        .FirstLineIndent = CentimetersToPoints(0) {jYOsl  
         @$LWWTr;  
        .CharacterUnitLeftIndent = 0 /G5d|P  
        .CharacterUnitRightIndent = 0 Z2TL#@  
        .CharacterUnitFirstLineIndent = 0 $/.zm;D  
         U7oo$gW%|T  
        .LineUnitBefore = 1 1j
N-4&  
        .LineUnitAfter = 1 uM_#  
         Uc_'(IyO  
    End With  :@%4  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False 31rx-D8o  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll R,F[XI+=N  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS r9 ui|>U"  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True 3~}uqaGt  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese D+]a.& {p  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True 3 |hHR  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete enp)-nS0  
    DoEvents 7qj9&bEy  
3=Cc.a/3  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") )=AHf?hn  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" c3:,Ab|  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False H2um|6>  
    With ActiveDocument.Styles("QLNU英文摘要").Font EGZb7:Y?  
        .NameFarEast = "宋体" O9EKRt  
        .NameAscii = "Arial" `t_W2y
  
        .NameOther = "Arial" m9"n4a|:  
        .Name = "Arial" ^j"
.  
        .Size = 12 }z\_;\7  
        .Bold = wdUndefined } p&&_?  
        .Italic = wdUndefined E_8\f_%wK  
        .Superscript = wdUndefined tZ^Ou89:rG  
        .Subscript = wdUndefined .a._NW  
    End With 0
JlZs
]  
     7PANtCFb&  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat J.ck~;3  
         "Qja1TQ  
        .LineSpacingRule = wdLineSpaceExactly 5e$~)
fL  
        .LineSpacing = 20 q)Fq i  
         O [i#9)  
        .Alignment = wdAlignParagraphJustify |4T!&[r  
         FI3)i>CnW  
        .WidowControl = False TiYnc3Bz}J  
        .KeepWithNext = False 5dB'&8DX  
        .KeepTogether = False u86"Y^d#  
        .PageBreakBefore = False g>dA$h %  
        .NoLineNumber = False %n h
m  
         $)RNKMZC}A  
        .OutlineLevel = wdOutlineLevelBodyText q{t*34R  
         {@tv>!WW  
        .LeftIndent = CentimetersToPoints(0) f}1&HI8r  
        .RightIndent = CentimetersToPoints(0) d!:6[7X6  
        .FirstLineIndent = CentimetersToPoints(0) .Fnwm}  
         <^z
HE=h"  
        .CharacterUnitLeftIndent = 0 qe!fk?T}  
        .CharacterUnitRightIndent = 0 =$nB/K,8AX  
        .CharacterUnitFirstLineIndent = 2 jBU4F~1y  
         R }lsnX<  
        .LineUnitBefore = 0 ?Rj~f{%g  
        .LineUnitAfter = 1 h\nI!{A0  
         |1b
_3?e  
    End With kAu+zX>S+  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False agjv{  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll Xtp"QY p  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS 9'{}!-(xR  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False D3)zk@N  
    DoEvents ?r?jl;A&  
'g$(QvGF9  
    Options.Pagination = True Sh?4ri@:  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." ^4,
a8`
  
    DoEvents q-c=nkN3  
    ActiveDocument.Repaginate 7.Z@Wr?  
*e-A6Sh  
End Sub Y=?yhAw  
^my].Qpt  
R,|d `)T  

姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 2^)1N>"g  
ZeEWp3vW  

引用

引用第20楼newport93于06-14-2010 13:47发表的  : \#rI
QOPl?  
fgBM_c&9T  
老五，I 服了U。
D`xHD#j h  
%s&ChM?8F  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 Dgx8\~(E'  

C#H:-Q&