Dim bContinue As Boolean d [K56wbpx  
$K;4=zN>t:  
Dim regEX As New RegExp n;O 3.2  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 d \0K3=h  
!|Vjv}UO  
Dim LastTitle0String As String, LastTitle0No As Long 3(vI{[yhT  
Dim LastTitle1String As String, LastTitle1No As Long Ak>RLD25_  
Dim LastTitle2String As String, LastTitle2No As Long |h6)p;`gc  
Dim LastTitle3String As String, LastTitle3No As Long E})PNf;  
Dim LastTitle4String As String, LastTitle4No As Long 0~n=|3*P  
Dim LastTitle5String As String, LastTitle5No As Long #M{
}Grg  
Dim LastTabelString As String, LastTableNo As Long (Rs<'1+>  
Dim LastFigureString As String, LastFigureNo As Long n6ud;jN|  

jd(=? !_  
Dim strSeperator As String O^sgUT1O  
G7zfyw}W  
Sub ConvertWidth(fTEXT As String, rText As String) %&e5i  
        Selection.Find.ClearFormatting %{o5}TqD  
        Selection.Find.Replacement.ClearFormatting gKS^
-X{x  
        Selection.Find.Wrap = wdFindContinue 0jj }j w  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText iM}cd$r{  
        DoEvents PjRKYa_U  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True 80:na7$)#  
End Sub y . AN0  
QE-t v00  
Sub ClearDomain() 5#WZXhlc}  
        With Selection.Find SznNvd <  
            .ClearFormatting I>ofSaN  
            .Replacement.ClearFormatting ;k!Ej-(  
            .Wrap = wdFindContinue y"2#bq  
            Me.txtStatus.Text = "清除所有域代码" b4,yLVi<T  
            DoEvents 63F0Za}h  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False V3F2
Z_VH2  
        End With b/ ~&M+)  
End Sub uQpV1o5iA  
HM ^rk  
Private Sub cmdCheck_Click() R,6?1Z:J  
    bContinue = True &/a/V  
    Dim NoSeries1(1 To 16) As String xa!@$w=U&  
    Dim NoSeries2(1 To 16) As String !~>u\h  
    Dim NoSeries5(1 To 16) As String 6,c yi|s  
    Dim NoSeriesRM(1 To 16) As String pMs%`j#T  
    Dim paraTotal As Long, ParaText As String EY> %#0  
    Dim ttString As String, ttNo As String P
ksHq77  
     %;n y  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long .F%RW8=Q  
QN*'MA"M  
    Me.txtStatus.Visible = True bpKb<c  
    Me.lbParaType.Visible = True 2+y4Gd 7  
    Me.cmdCheck.Enabled = False sowkxw.^Q  
     Q.vtU%T  
     8FbBv"LI,g  
     o7hjx hmC  
     F>!fu.Ws  
    Dim ParaType As String, rText As String Z$6W)~;,
 
     o.y4&bC14;  
    Selection.WholeStory kk^KaD4dA  
    Selection.NoProofing = True &z%7Nu  
     2BRY2EF  
    tm1 = Now ! =|{  
     Pm" ,7  
        ActiveWindow.View.Type = wdNormalView OP``g/x)  
     Pf(z0o&  
    NoSeries1(1) = "一" 5 _] i==M  
    NoSeries1(2) = "二" #[Ns\%Ri0  
    NoSeries1(3) = "三" bYowEzieF  
    NoSeries1(4) = "四" ?4gYUEM#  
    NoSeries1(5) = "五" ~~wz05oRG  
    NoSeries1(6) = "六" V

I37  
    NoSeries1(7) = "七" Y}e$5  
    NoSeries1(8) = "八" tPFV6n i  
    NoSeries1(9) = "九" 1gCp/m2r7  
    NoSeries1(10) = "十" $yc&f(Tv  
    NoSeries1(11) = "十一" y{"8VT)  
    NoSeries1(12) = "十二" qItj`F)d  
    NoSeries1(13) = "十三" h9SS o0]F  
    NoSeries1(14) = "十四" lD 9'^J  
    NoSeries1(15) = "十五" umD .  
    NoSeries1(16) = "十六" C 5)G^  
     DQ~+\  
    NoSeries2(1) = "㈠" oh,
Nu_!  
    NoSeries2(2) = "㈡" ]]9eUw=  
    NoSeries2(3) = "㈢" //|9J(B]  
    NoSeries2(4) = "㈣" se7_:0+w  
    NoSeries2(5) = "㈤" iOzw)<  
    NoSeries2(6) = "㈥" \s+<
w3  
    NoSeries2(7) = "㈦" U
 .G*C  
    NoSeries2(8) = "㈧" ^Z2%b>  
    NoSeries2(9) = "㈨" bzB9u&  
    NoSeries2(10) = "㈩" qmJFXnf  
     ?XW+&!ar  
    NoSeries5(1) = "①" Etn]e;z4  
    NoSeries5(1) = "②" >W 8!YOc  
    NoSeries5(3) = "③" RwY) O5  
    NoSeries5(4) = "④" W99Fb+$I  
    NoSeries5(5) = "⑤" QeU>%qKT  
    NoSeries5(6) = "⑥" |V:k8Ab  
    NoSeries5(7) = "⑦" [Zgy,j\\  
    NoSeries5(8) = "⑧" VYlg+MlT0  
    NoSeries5(9) = "⑨" 0( /eSmet  
    NoSeries5(10) = "⑩" /I".n]  
     g[:5@fI#*  
     I,t 0X)  
    NoSeriesRM(1) = "I" sF(U?)48  
    NoSeriesRM(2) = "II" vmW4a3  
    NoSeriesRM(3) = "III" &ec_jxF  
    NoSeriesRM(4) = "IV" $6ITa}o  
    NoSeriesRM(5) = "V" hb^e2@i;Oq  
    NoSeriesRM(6) = "VI" 3$WK%"%T  
    NoSeriesRM(7) = "VII" >Li ~Og@  
    NoSeriesRM(8) = "VIII" wk)gxn1A,  
    NoSeriesRM(9) = "IX" !4-NbtT  
    NoSeriesRM(10) = "X" ZLo3 0*  
    NoSeriesRM(11) = "XI" QWfwoe&;R:  
    NoSeriesRM(12) = "XII" _mFb+8C  
    NoSeriesRM(13) = "XIII" &Sc0l/  
    NoSeriesRM(14) = "XIV" SE%i@}  
    NoSeriesRM(15) = "XV" I"Y?vj9]  
    NoSeriesRM(16) = "XVI" h`Y t4 -Y  
     >TK`s@jdSV  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) /T*{Mo{B  
     Fda<cS]  
    If i = vbNo Then pE15[fJ`  
        Exit Sub Q7`zrCh  
    End If 5.5dB2w  
     ,>"1'i&@  
    If Me.chkSuper.Value Then W6~<7  
        Me.txtStatus.Text = "检查修改所有的上标格式" &X +@,!  
     sm\/wlbE  
        CheckSuperScript A\k-OP]  
         z?FZu
,h}  
    End If X9zTz2 Fy  
     dp_J*8  
    If Me.chkStyle.Value Then Y5Ey%Mm6  
        Me.txtStatus.Text = "设置样式，请稍候...." 5M*q{k X)  
        DoEvents WMl_$Fd6  
        CeateOrModifyStyle 
b%T-nY2  
    End If o<T>G{XYB  
    
}RW4  
     AGOK%[[Ws  
     e`8z1r  
    ClearDomain YHCXVu<.b  
         GTJ\APrH  
     vjbot^W9  
     0D0#*J  
    If Me.chkLIST.Value Then zKgW9j<(  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" @WFjM  
     d|DIqT~{W  
        ConvertListToOrdinary Zw"6-h4  
    End If %3"3OOT7  
     :tR%y"
 
     [xM07%:  
    Dim pType As String, trimpTEXT As String $3"0w   
    If Me.chkNum.Value = True Then pmHd1 Wub  
        Me.txtStatus.Text = "转换全角数字形式为半角" qF( ]Ce  
        ConvertWidth "１", "1" t_P1a0Zu  
        DoEvents 7Zr jU{  
        ConvertWidth "２", "2" <}B|4($  
        DoEvents 4#4kfGoT  
        ConvertWidth "３", "3" u%v^(9z  
        DoEvents ]P] lG-  
        ConvertWidth "４", "4"
uyAhN  
        DoEvents
h'T\gF E%  
        ConvertWidth "５", "5" qY#*zx  
        DoEvents j:U>V7Kn3~  
        ConvertWidth "６", "6" WDgp(Av!  
        DoEvents _VR4|)1g  
        ConvertWidth "７", "7" ChGwG.-%L  
        DoEvents  '6 w|z^  
        ConvertWidth "８", "8" zM[WbB+"m  
        DoEvents Gs*ea'T)  
        ConvertWidth "９", "9" 1NJ*EzJ~?  
        DoEvents nc@ul')  
        ConvertWidth "０", "0" ZFrK'BvbR  
        DoEvents z36nyo  
        ConvertWidth "ａ", "a" w&C SE  
        DoEvents Rp. @  
        ConvertWidth "ｂ", "b" g/VC$I!'  
        DoEvents @{t^8I#]  
        ConvertWidth "ｃ", "c" EA?:GtH  
        DoEvents q_HD`tW  
        ConvertWidth "ｄ", "d" bYG}CO  
        DoEvents >+1^XeeS  
        ConvertWidth "ｅ", "e" TX;OA"3=\-  
        DoEvents M
(oW;^B  
        ConvertWidth "ｆ", "f" o&I0*~sN  
        DoEvents .8.ivfmJh  
        ConvertWidth "ｇ", "g" 5Ko
"-  
        DoEvents /j3oHi$  
        ConvertWidth "ｈ", "h" ?86h:9  
        DoEvents ~V5k  
        ConvertWidth "ｉ", "i" MQR2UK(  
        DoEvents )Q7;)iPY#  
        ConvertWidth "ｊ", "j" 0!+ab'3a  
        DoEvents F \}
 Kh3  
        ConvertWidth "ｋ", "k" 9chiu%20  
        DoEvents S,Tm=} wj  
        ConvertWidth "ｌ", "l" I|iI ,l/9  
        DoEvents :gQc@)jZ(*  
        ConvertWidth "ｍ", "m" ^_2Ki  
        DoEvents 9n@jK%m  
        ConvertWidth "ｎ", "n" <&W3\/xx  
        ConvertWidth "ｏ", "o" '90B),c{  
        ConvertWidth "ｐ", "p" I0)iC[s8;  
        ConvertWidth "ｑ", "q" tDIzn`$z  
        ConvertWidth "ｒ", "r" oHeo]<
Fbv  
        ConvertWidth "ｓ", "s" AO^F6Y/  
        ConvertWidth "ｔ", "t" hhYo9jTHW  
        ConvertWidth "ｕ", "u" :~6%nFo  
        ConvertWidth "ｖ", "v" (m.]0v*&c  
        ConvertWidth "ｗ", "w" hRc\&+#/  
        ConvertWidth "ｘ", "x" \k;raQR4t*  
        ConvertWidth "ｙ", "y" rKi)VVkx_  
        ConvertWidth "ｚ", "z" kv`x  
        ConvertWidth "Ａ", "A" F(SeD)ml  
        ConvertWidth "Ｂ", "B" _k6N(c2Nd  
        ConvertWidth "Ｃ", "C" Q9W*)gBvn  
        ConvertWidth "Ｄ", "D" /D)@y548~~  
        ConvertWidth "Ｅ", "E" U.>n ]/&  
        ConvertWidth "Ｆ", "F" azOp53zR  
        ConvertWidth "Ｇ", "G" <-FZ-asem  
        ConvertWidth "Ｈ", "H" !gJAK< ]iW  
        ConvertWidth "Ｉ", "I" ~49+$.2  
        ConvertWidth "Ｊ", "J" j7"E0Wc^o_  
        ConvertWidth "Ｋ", "K" 9f BD.9A  
        ConvertWidth "Ｌ", "L" ;'p0"\SV  
        ConvertWidth "Ｍ", "M" ?A2EuvQH]  
        ConvertWidth "Ｎ", "N" VFG)|Z  
        ConvertWidth "Ｏ", "O" _)%4NjWKk  
        ConvertWidth "Ｐ", "P" PB }$.8  
        ConvertWidth "Ｑ", "Q"  vuw1ycy)  
        ConvertWidth "Ｒ", "R" ,QG,tf?  
        ConvertWidth "Ｓ", "S" ;5y!,OF6  
        ConvertWidth "Ｔ", "T" |vEfE{  
        ConvertWidth "Ｕ", "U" Za=<euc 7  
        ConvertWidth "Ｖ", "V" n7{1m$/  
        ConvertWidth "Ｗ", "W" *%8,G'"r?  
        ConvertWidth "Ｘ", "X" ts9N$?0:V  
        ConvertWidth "Ｙ", "Y" {9C(\i +  
        ConvertWidth "Ｚ", "Z" /dWuHS  
        ConvertWidth "^l", "^p" c}rRNS$F  
        ConvertWidth "（", "(" r 2U2pAy#  
        ConvertWidth "）", ")" M~ *
E!  
     mP:mzmUw  
    End If sH+]lTSX6{  
94K;=5h  
    With ActiveDocument ;5 IS58L  
        Dim tbl As Table eb( =V*  
        For Each tbl In .Tables oZOFZ-
<  
            tbl.Rows.Alignment = wdAlignRowCenter `=CF |I  
            tbl.Range.Font.NameFarEast = "楷体" ]YOQIzkL4}  
            tbl.Range.Font.NameAscii = "Times New Roman" [~jhOv^  
            tbl.Range.Font.Size = 10.5 :()4eK/\  
        Next M5P63=1+  
        Set tbl = Nothing gB
kb0  
    End With &dOV0y_  
     )Dq
v&^  
     %\5y6  
    With ActiveDocument ^!kvgm<{$  
         'n>|jw)  
        For i = 1 To .TablesOfContents.Count cl)MI,/>  
            .TablesOfContents(i).Delete ` qt4~rD  
        Next g:f0K2)\r:  
         u6B (f;  
         gvsS:4N"Nq  
         0imz}Z]  
        paraTotal = .Paragraphs.Count urtcSq&H'  
        paraCounter = 1 nNQ\rO  
         S6]D;c8GE  
        LastTitle0No = 0 UbMcXH8=F  
        LastTitle1No = 0 TxxW/f9D  
        LastTitle2No = 0 li;P,kg$  
        LastTitle3No = 0 #*Mk@XrV  
        LastTitle4No = 0 1f}S:Z  
        LastTableNo = 0 kW-5H;>  
        LastFigureNo = 0 )03.6Pvs  
         tP3H7Yl!g  
        Dim Sec As Long ,pAMQ5  
         EDnmYaa)dZ  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) Qt@~y'O  
        If Sec = 0 Then nq6]?ZJ  
            Exit Sub x`B:M7+\  
        End If dB_\,%vAd  
         $xloB  
        k = 0 7Y#b7H  
        Do While (paraCounter < paraTotal) And bContinue /Ee0S8!Z!1  
            k = k + 1 >6<g5ps.n  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then a"WnBdFZ  
                Exit Do e3(0L I  
            End If )
;,#H`'  
            paraCounter = paraCounter + 1 L^ +0K}eD  
            If k Mod 20 = 0 Then ^//N-?Fx  
                Me.lbCounter.Caption = paraCounter [5m;L5  
                DoEvents jhg!K.A  
            End If .|iUDp6vz  
        Loop LO` (V  
         JaIj9KLNX  
         *>\RGL;]8  
        Do While (paraCounter < paraTotal) And bContinue x/9`2X`~  
             ytAhhwN~  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) yM#W,@  
            ShapeHeight = 0 ~zRW*pd  
            ShapeWidth = 0 v $pARt  
           [r]USCq  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth 3QXGbu}:h!  
             TF M}
P  
            Select Case ParaType 59EAqz[:  
                Case "【】表格内容" {J99F  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" <@zOdW|{:  
                Case "章" <(^-o4Cl  
                    LastTitle0No = LastTitle0No + 1 ,t)mCgbcO  
                    '新一章开始，复位其下属标题编号 5dL-v&W  
                    LastTitle1No = 0 nLQ X?:  
                    LastTitle2No = 0 v`v+M4upC  
                    LastTitle3No = 0 ]B5\S  
                    LastTitle4No = 0 x,p|n  
                     hs/nM"V  
                    k = Val(ttNo) Zr$PSp}  
                    If k = 0 Then '非数字编号章节 5_`.9@eh.  
                        If ttNo <> NoSeries1(LastTitle0No) Then "bw4{pa+  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString ,,{Uz)>'W6  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText Z2 t0l%  
                        End If 8PQ$X2)  
                    Else N%Lh_2EzqV  
                        If Val(ttNo) <> LastTitle0No Then q<;9!2py  
                            rText = "第" & LastTitle0No & ttString Y-,#3%bT;;  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText Mq*Sp UR  
                        End If yGN<.IP75  
                         @j^qT-0M  
                    End If Qh{=Z^r  
                     _L: /2  
                    '章段落设置 Xf#;GYO|2  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 W t4!XV  
                    .Paragraphs(paraCounter).Style = "QLNU章节" -iJ[9O  
                    .Paragraphs(paraCounter).Range.Select lGcHf W)Y  
                    Selection.EndKey unit:=wdLine x"N,
oDs  
                    tc = Replace(rText, vbCr, "") Kvk;D ]$  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False c)$/Uu  
                Case "一级标题" Hq%`DWus\  
                    LastTitle1No = LastTitle1No + 1 ~gX@2!D5k  
                    '新一级标题开始，复位其下属标题编号 _ROe!w 1  
                    LastTitle2No = 0 s"sX#l[J  
                    LastTitle3No = 0 `NGCUGQ_7  
                    LastTitle4No = 0 L8ZCGW\Rr  
                     3mBrnq]j>  
                    If ttNo <> NoSeries1(LastTitle1No) Then  c<4pu  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString v4qvqGK  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText F*]AjD-  
                    End If @l@lE0  
                   '!y ^  
                     "EN gu/A !  
                    '一级标题段落设置  格式：一、标题内容 !\"C
<*5  
                    .Paragraphs(paraCounter).Range.Text = rText Rf8|-G-}#  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" *1elUI2Rg  
                    .Paragraphs(paraCounter).Range.Select DU[UGJg  
                    Selection.EndKey unit:=wdLine _ -?)-L&g  
                    tc = Replace(rText, vbCr, "") -6  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False E^|b3G6T  
                Case "二级标题" gbI0?G6XN/  
                    LastTitle2No = LastTitle2No + 1 o>W}1_  
                    '新二级标题开始，复位其下属标题编号 8 `^I.tD  
                    LastTitle3No = 0 x^C,xP[#Y;  
                    LastTitle4No = 0 PHz/^p3F  
                     sA` bPhk  
                    If ttNo <> NoSeries1(LastTitle2No) Then
rW1>t+  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString <89js87  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText 3g5i5 G\  
                    End If 1nvs51?H  
                     lSbAZ6  
                    '二级标题段落设置 格式：(一)、标题内容 yyiZV\ /  
                    .Paragraphs(paraCounter).Range.Text = rText $?'z%a{  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" pR~PB  
                     t[^}/ S  
                    .Paragraphs(paraCounter).Range.Select <rCl  
                    Selection.EndKey unit:=wdLine 9@:&E  
                    tc = Replace(rText, vbCr, "") q A03EU  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False a Y{E'K=  
                 o}NKqA3  
                Case "三级标题" q
kR.{?x  
                    LastTitle3No = LastTitle3No + 1 - +>
~  
                    '新三级标题开始，复位其下属标题编号 @9QHv  
                    LastTitle4No = 0 Bp4QHv9xqL  
                     Z9!goI  
                    If Val(ttNo) <> LastTitle3No Then D6v 0n6w  
                            rText = LastTitle3No & ". " & ttString xorFz{  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText #"f:m`  
                         Z0-W%W  
                    End If F1/f:<}  
                    '三级标题段落设置 格式：1. 标题内容 O?{pln  
                    .Paragraphs(paraCounter).Range.Text = rText #xts*{u-#  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" /] R]7  
                    .Paragraphs(paraCounter).Range.Select w0 "h,{  
                    Selection.EndKey unit:=wdLine Pp26UWW  
                    tc = Replace(rText, vbCr, "") `;i| %$TU  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False >~ne(n4qy  
                Case "四级标题" <27e7H*6  
                    LastTitle4No = LastTitle4No + 1 gNxnoOY  
                     wN*e6dOF  
                    If Val(ttNo) <> LastTitle4No Then l "d&Sgnj  
                            rText = "(" & LastTitle4No & "). " & ttString JQ.ZAhv  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText  -EITz  
                     P=S)V  
                    End If qk:F6kL\`  
                    '四级标题段落设置 格式：(1). 标题内容 27Lya!/  
                    .Paragraphs(paraCounter).Range.Text = rText /n:s9eq  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" /'">H-r  
                    .Paragraphs(paraCounter).Range.Select !8P#t{2_|  
                    Selection.EndKey unit:=wdLine GR|Vwxs<@P  
                    tc = Replace(rText, vbCr, "") !7}5"j ;A  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False ){gOb  
                 Z\@vN[[  
                Case "表格标题" J.El&Dev  
                    LastTableNo = LastTableNo + 1 4;j#7  
                     A$^}zP'u0<  
                    If ttNo <> CStr(LastTableNo) Then |e+I5  
                            rText = "表" & LastTableNo & ". " & ttString BT`6v+,h7k  
                            ErrMsg.AddItem "表格编号错误：" & ParaText 'g ,Oi1|~  
                   . vYGJ8(P  
                    End If 9l(e:_`_  
                     d)dIIzv  
                    '表格名称段落设置 格式：表1. 表格名称 "-I>  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" Mu{mj4Y{  
                    xe = Replace(rText, vbCr, "") (:@qn+ a  
                    .Paragraphs(paraCounter).Range.Select %PyU3  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 kQ4%J,7e4  
                    Selection.Range.Text = xe mu:Q2t^  
                    Selection.EndKey f2yc]I<lr~  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False SX*os$  
                 A03PEaZO  
                Case "表格首行" na/t=<{  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" ko  ~iDT  
                Case "图片标题" XrBLw}lD`N  
                    LastFigureNo = LastFigureNo + 1 a0AI
q44  
                     *D`,z3/*  
                    If ttNo <> CStr(LastFigureNo) Then FJ#V"|}  
                            rText = "图" & LastFigureNo & ". " & ttString 'kYV}rq;l  
                            ErrMsg.AddItem "表格编号错误：" & ParaText ?(ks=rRK  
                   ?VReKv1\  
                    End If ^t #]E#  
                    '图片名称段落设置 格式：图1. 图名称 Hm4lR{A  
                    .Paragraphs(paraCounter).Range.Text = rText xb1)ZJH  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" 9]h
c{\  
                    .Paragraphs(paraCounter).Range.Select EB>laZy>  
                    Selection.EndKey unit:=wdLine |F6C&GNYT  
                    xe = Replace(rText, vbCr, "") ,`H=
%#  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False o F@{&  
                Case "正文" ae P4%h  
                     '正文名称段落设置 dJCu`34Y'|  
                    .Paragraphs(paraCounter).Style = "QLNU正文" y .mojx%?a  
               Case "文献条目" r:YAn^Lg  
                    With .Paragraphs(paraCounter) BHU(
Hd  
                        '.Range.Select cZ o]*Gv.  
                        'Selection.ClearFormatting ^hZwm8G  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” MR8-xO'w  
                        .Style = "QLNU参考文献" M@csB.'  
                    End With n>!E ]  
               Case "图表注解" [0_Kz"|  
                    With .Paragraphs(paraCounter) b_
][Jye&P  
                        .Range.Font.NameFarEast = "楷体" x)V.^-  
                        .Range.Font.NameAscii = "Times New Roman" l*%?C*  
                        .Range.Font.Size = 9 '小5号字 @ tp/0E?  
                         J$'T2@H#  
                        .Alignment = wdAlignParagraphCenter
U:8^>_  
                        .LeftIndent = 0 7tfFRUw  
                        .RightIndent = 0 UVU}  
                        .FirstLineIndent = 0 ~r@'kUXKK  
                        .LineSpacing = 12 'OJXllGi  
                        .LineSpacingRule = wdLineSpaceExactly "hQV\|!\  
                        .LineUnitAfter = 0 ,j2qY'wi  
                        .LineUnitBefore = 0 {J|P2a[  
                        .OutlineLevel = wdOutlineLevelBodyText tT'd]  
                        .PageBreakBefore = False Sqfa,3?L  
                        .RightIndent = 0 %yptML9  
                        .WordWrap = True -
FE)  
                        .LineUnitAfter = 0.5 c*6o{x}K  
                         <2,@rYe/  
                    End With !.p!  
                Case Else ]4hXK!^Uu  
                    '不作处理 >%d]"]  
            End Select u}#rS%SF*  
             to,=Q8)0  
            '含有inlineshape的段落处理 9lny[{9  
            If ShapeHeight > 30 Then mflI>J=g  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 + n)(\k{
 
            End If (U-p&q>z  
             OE:t!66
 
            If (ShapeWidth + ShapeHeight) > 150 Then hW/*]7AM^  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" V+D"_  
            End If J"[OH,/_  
             ?u8+F  
            '段落计数器递 n>iPAD  
            paraCounter = paraCounter + 1 U7:~@eYy  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter a>s v  
            Me.txtStatus.Text = ParaText j*+r`CX  
            DoEvents a^s
R?.+3  
        Loop )P|Ql-rE4  
    End With TTqOAo[-Z  
     4e*0kItC  
    msg = "" b6Ntt
Y!3  
     xaSkn  
    For i = 0 To Me.ErrMsg.ListCount - 1 -3K B:K<  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) n1$##=wK]  
    Next nPv2: x  
     e {c.4'q  
     Yh"Z@D[d  
     h8S%Q|-  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg oNiS"\t  
    Me.cmdCheck.Enabled = True RRq*CLj  
    Me.txtStatus.Visible = True 0BE%~W  
    Me.lbParaType.Visible = False %/UQ0d~b  
     G+5G,|}  
    bContinue = False eKu&_q  
End Sub 9:BGA/?  
0A}'.LI  
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) HWe.|fH:  
    Dim pTEXT As String YQ?|Vb U  
     c&R.  
    pTEXT = ChKRange.Text s/ A]&!`  
     dQ^k-  
    ParaType = "其它" Fs&m'g  
    TitleString = pTEXT J-X5n 3I&  
    TitleNo = "N/A" JgK?j&!hs:  
     OFUN hbg  
    shpCounter = ChKRange.InlineShapes.Count t`DUY3>36  
    If shpCounter <> 0 Then ',O@0L]L  
        MaxShpHeight = 0: TotalShpWidth = 0 fM2[wh@  
        For i = 1 To shpCounter EBebyQcon  
            k = ChKRange.InlineShapes(i).Height wmoOp;C  
            l = ChKRange.InlineShapes(i).Width S - 7JDE>  
            If k > MaxShpHeight Then _I'O4s1S  
                MaxShpHeight = k ]Q,RVEtKp  
            End If |,yS>kjp  
            TotalShpWidth = TotalShpWidth + l 2TAy'BB;)  
        Next 8q0f#/`v  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then ` D4J9;|;]  
            Exit Sub zpa'G1v  
        End If & [3!Lk`.0  
    End If <v{jJ7w  
     Jg%sl&65  
    '空行 %:oGyV7a  
    If Len(pTEXT) <= 2 Then O|gb{  
        Exit Sub r#{lpF,3Ib  
    End If h]' fX  
     89 SsSb  
         MvRuW:  
    '是否为表格中的文字 U&B~GJT+  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then h[B Ft{x  
        ParaType = "表格内容" X;}_[=-  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) <F!:dyl  
        If k = 1 Then S>H W`   
            ParaType = "表格首行" Ex*g>~e  
        End If +{#BQbx6  
        Exit Sub s)To#  
    End If r&TxRsg{  
     $G=\i>R.  
    '例外情况：脚注 fc!%W#-  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then s:fnOMv "  
        ParaType = "脚注" hSg:Rqnk  
        Exit Sub ~ 4&_$e!  
    End If |-e=P9,  
     heh!cDK  
    '例外情况：尾注 />n0&~k[h  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then B:^U~sR  
        ParaType = "尾注" -'8|D!>v2  
        Exit Sub ?8~$du$  
    End If 2QBtwlQ?[  
     =jG3wf*  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then Gn_v}31d%  
        ParaType = "页眉页脚" ,fYO>l';`f  
        Exit Sub neZ_TT/
3K  
    End If &0ULj6jj  
     m7!l3W2  
     esLY1c%"/  
    With regEX s"Kp+tTWj  
        .Global = True DPe`C%Oc1  
         #b8/gRfS  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" :F<
a~_k  
        If regEX.Test(pTEXT) Then %Z}dY~:  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") C{>?~@z&5  
            TitleString = regEX.Replace(pTEXT, "$3") xt`znNN  
            TitleNo = regEX.Replace(pTEXT, "$1") E+3~w?1  
            ParaType = "章" zZE?G:isR  
            Exit Sub Ni0lj:  
        End If 5hD
E&hp  
         )s^XVs.-  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" p=r{ODw#3  
        If regEX.Test(pTEXT) Then >#8`Zy:/Y  
            ParaType = "一级标题" tL IE^  
            regEX.Execute (pTEXT) | _S9U|  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") Q!|71{5U  
            TitleString = regEX.Replace(pTEXT, "$3") HX <;=m  
            TitleNo = regEX.Replace(pTEXT, "$1") As>po+T*  
            Exit Sub pkM32v-  
        End If oVsl,V  
         *}2o \h6Q  
        '全角或半角括号中的数字 ;eA~z"g  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" /\\C&Px  
        If regEX.Test(pTEXT) Then %%DK?{jo`  
            ParaType = "二级标题" vhUuf+P*  
            regEX.Execute (pTEXT) Xi|v!^IT  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") "#JoB X@yE  
            TitleString = regEX.Replace(pTEXT, "$5") (m,O!935f  
            TitleNo = regEX.Replace(pTEXT, "$2") ")o.x7
~N  
            Exit Sub :Mt/6}
 
        End If (/N`Wu  
         8[y7(Xw  
        '阿拉伯数字  1. 2. ({i|  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" k}<mmKB  
        If regEX.Test(pTEXT) Then d&U;rMEv  
            ParaType = "三级标题" 9(
B)  
            regEX.Execute (pTEXT) 9PR&/Q F5  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 RGxO
b  
            TitleString = regEX.Replace(pTEXT, "$3") JHMj4Zkp  
            TitleNo = regEX.Replace(pTEXT, "$1") ?pxx,o6l  
            Exit Sub x'  
        End If =+"XV8Fi,  
         ~ 01]VA  
        '全角或半角括号中的阿拉伯数字 [hiOFmMJZ-  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" S@*@*>s^  
        If regEX.Test(pTEXT) Then YE-kdzff
 
            ParaType = "四级标题" h2 tzv~  
            regEX.Execute (pTEXT) e%f8|3
<6  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") >! c^  
            TitleString = regEX.Replace(pTEXT, "$5") iu:e>r  
            TitleNo = regEX.Replace(pTEXT, "$2") Q2#)Jx\6!  
            Exit Sub xr?r3Y~^e  
        End If VSSiuo'5w  
         CiMN J  
        '表格名称 JUXK}0d%eN  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" p4el9O&-tV  
        If regEX.Test(pTEXT) Then =RV$8.Xp  
            ParaType = "表格标题" ',Cc LN  
            regEX.Execute (pTEXT) fmSA.z  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) %ZZ}TUI W  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) FEP\5d>  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) Ep'C FNbtW  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 e~}+.B0  
            Exit Sub O0Z'vbFG  
        End If B$lbp03z  
         ?s _q
|d_  
        '图片名称 0\i&v  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$"   ()SG  
        If regEX.Test(pTEXT) Then ^^%*2^  
            ParaType = "图片标题" \ oL+O|  
            regEX.Execute (pTEXT) 7*
4F-5G/  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") kPxrI=  
            TitleString = regEX.Replace(pTEXT, "$3") \[8I5w-  
            TitleNo = regEX.Replace(pTEXT, "$1") D1Fc7!TV  
            Exit Sub |X_yL3`Zb  
        End If [Q%3=pm_  
        
R.RCa$  
        '参考文献 qI'a|p4fn?  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 ).vdKNzw  
        If regEX.Test(pTEXT) Then > h:~*g  
            ParaType = "文献条目" T$q]iSgu  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") +q2l,{|?  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") f< '~K  
            Exit Sub (d~'H{q  
        End If #}vcffgZ  
         2Nj0 Hqjq  
        prfx = Left(pTEXT, 2) C( r?1 ma  
        If prfx = "注：" Or prfx = "注:" Then *.K}`89T  
            ParaType = "图表注解" W:tE ?H u  
            Exit Sub S ":-5S6  
        End If zU}0AVlIL:  
         h.8J6;36  
         CBF>157B  
        ParaType = "正文" 9PGSr4V1  
         !WIL|\jbh  
    End With f^]2qoN  
End Sub }ShZ4 xMz  

.lE"N1  
Sub ConvertListToOrdinary() U 26I z  
    Dim st As Paragraph ~o8$/%Oeb/  
    With ActiveDocument XFX:)l#o  
        For i = .Paragraphs.Count To 1 Step -1 U3Dy:K[  
            Set st = .Paragraphs(i) ]w')~yk  
            lst = st.Range.ListFormat.ListString fNlU c  
            If lst <> "" Then HWHGxg['r  
                st.Range.ListFormat.RemoveNumbers FB</~ g  
                st.Range.InsertBefore lst & " " ]V9\4#I4  
            End If k r/[|.bq  
        Next [qb#>P2G3  
    End With fY6&PuDf.  
    Set st = Nothing vu*08<M~i|  
End Sub +-{HT+W  
Uh7kB`2  
Private Sub UserForm_Activate() czT$mKj3  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" t[DXG2&  
    Me.lbTotal.Font.Bold = True q= tDMK'h  
    Me.txtStatus.Visible = False H-S28%.  
    Me.cmdCheck.Enabled = True mM95BUB  
9EH%[wfv  
End Sub bZKK'd$I  
.vb*|So  
T0G u(c`1d  
Sub CheckSuperScript() 3|~(9b{+  
    Selection.Find.ClearFormatting yX)2 hj:s  
    Selection.Find.Replacement.ClearFormatting apYf,"|9  
    With Selection.Find ?vk &k(FT  
        .Text = "[【\[［〖](*)[】\]〗］]" LS \4y&J40  
        .Replacement.Text = "[\1]" irL ehPX9  
        .Replacement.Font.Superscript = True DG& kY+  
        '.Replacement.Font.Color = wdColorBlue au#IA  
        .Forward = True Cx@,J\rsQ  
        .Wrap = wdFindContinue i.'f<z$<  
        .FORMAT = True N8!B2uPQ  
        .MatchCase = False {j(,Q qB;f  
        .MatchWholeWord = False AAs&wYp8Yh  
        .MatchByte = False k!!o!rBS  
        .MatchAllWordForms = False <CH7jbK  
        .MatchSoundsLike = False #2`tsZ]=I  
        .MatchWildcards = True 0/*z]2  
    End With LUCpZ3F1  
    Selection.Find.Execute Replace:=wdReplaceAll 0phGn+"R  
End Sub ^h' wZ7-\  
. Bv;Zv  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) b0 5h,  
    bContinue = False a{{([uZ  
    Set regEX = Nothing J M`uIVnNA  
End Sub .E@yB`AR  
XCk \#(VSE  
Sub CeateOrModifyStyle() D!y Cnq=8  
' @F=4B0=  
' g{nu3F}8){  
Dim stl As Style u'iOa  
     rK`*v*  
    Options.Pagination = False 8ayB<b>+]"  
     \75%[;.  
    On Error Resume Next T}zOM%]]  
    For Each stl In ActiveDocument.Styles ANWa%%\T  
        stl.Delete 'g$|:bw/  
    Next `4$" mO>+  
    On Error GoTo 0 Yr0%ZYfN  
     _jr%s  
    Set stl = Nothing Qn6&M  
     v/(< fI^  
    DoEvents ni3^J5XW  
    On Error Resume Next Qg4qjX](?  
     WJhI6lu  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph iHR?]]RF  
     4sG^bZ,  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph q3 9RD  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph qf'uXH  
     1[^2f70n  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph iJ#sg+  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph 6W$k^<S  
     z5Po,@W  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph Gm_Cq2PD(  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph ;BpuNB  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph ,(]hykbXp  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph VdYu| w;v  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph G<>`O;i  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph m'a3}vRV(  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph 7$/ O{GBJ  
     2!l)%F`  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph *P9)M%  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph <<[`;"CF  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph 6Siz
9  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph xeZ,}YP)  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph P=V~/,>SZ!  
     IV!&jL  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph ?-Oy/Y K  
    On Error GoTo 0 zm_mLk$4H  
    DoEvents >7 4'g}  
     gx#TRp}-
 
    'BaseStyle +A/n<VH  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False x! Z|^q  
    With ActiveDocument.Styles("BaseStyle").Font {E>kFeg  
        .NameFarEast = "宋体" (?$ }Vp  
        .NameAscii = "Times New Roman" "tm2YUG},s  
        .NameOther = "宋体" rrmr#a  
        .Size = 10.5 qy.Mi{=~:  
        .Bold = wdUndefined )x8Izn  
        .Italic = wdUndefined @m#7E4+  
        .Subscript = wdUndefined \-c70v63X
 
        .Subscript = wdUndefined S_1R]n1/  
         o-49o5:1  
        .Underline = wdUnderlineNone 
^e)KEkh  
        .UnderlineColor = wdColorAutomatic #W*5=Cf  
        .StrikeThrough = False St'3e<  
        .DoubleStrikeThrough = False & [4Gv61  
         mKn:EqA  
        .Outline = False ` a  
        .Emboss = False Un7jzAvQ  
        .Shadow = False @VVBl I  
        .Hidden = False U Tw\_s  
        .SmallCaps = False :+en8^r%  
        .AllCaps = False X 5pp8~  
        .Color = wdColorAutomatic #_|6yo}  
        .Engrave = False 3>c
<E1   
        .Scaling = 100 ]iYjS  
        .Kerning = 1 >P/.X^G0  
        .Animation = wdAnimationNone `WX @1 ]m  
        .DisableCharacterSpaceGrid = False ax,%07hJ  
        .EmphasisMark = wdEmphasisMarkNone LzP+l>m  
    End With >f74]J=V  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat 0~)cAKus  
        .LeftIndent = 0 F"~uu9u  
        .RightIndent = 0 "1WwSh}Z  
        .SpaceBefore = 0 He~)i)co  
        .SpaceBeforeAuto = False 1Hk`i%  
        .SpaceAfter = 0 ^~(@QfY  
        .SpaceAfterAuto = False F0])g  
         4E<iIA\
x  
        .LineSpacingRule = wdLineSpaceSingle \za 0?b  
        .Alignment = wdAlignParagraphJustify ^
vfp;  
         wxN'Lv=R  
        .WidowControl = False QGn3xM66  
        .KeepWithNext = False 3~%9;.I3!  
        .KeepTogether = False P^T]Ubv"  
        .PageBreakBefore = False K+2<{qwh  
        .NoLineNumber = False 6|~N5E~SX  
         eG=Hyc  
        .FirstLineIndent = CentimetersToPoints(0) l/#;GYB]  
        .OutlineLevel = wdOutlineLevelBodyText w%KU@$  
        .CharacterUnitLeftIndent = 0 ALJ^XvB4V  
        .CharacterUnitRightIndent = 0 p^MV<}kk  
        .CharacterUnitFirstLineIndent = 0 AEp|#H' >  
        .LineUnitBefore = 0 e@w-4G(;  
        .LineUnitAfter = 0 ]uG9WT6l  
        .AutoAdjustRightIndent = True !S$LRm\'  
        .DisableLineHeightGrid = True g>u{H:  
         hZ[,.  
        .FarEastLineBreakControl = True 7c5+8k3  
        .WordWrap = True `ZC_F! E  
        .Hyphenation = False R:fERj<s  
         +?DP r  
        .HangingPunctuation = True Fe{lM' 8  
        .HalfWidthPunctuationOnTopOfLine = True {p=`"H>  
        .AddSpaceBetweenFarEastAndAlpha = True ^yyL4{/  
        .AddSpaceBetweenFarEastAndDigit = True OXT 5 y)   
        .BaseLineAlignment = wdBaselineAlignBaseline fH}#.vy  
    End With 'QeCJ5p]  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False ewvFUD'j  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll sWa`-gc  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese !.Eua3:V*  
    ActiveDocument.Styles("BaseStyle").NoProofing = False MV'q_{J  
     $!H;,Jxv  
    '一级标题题样式 *@^9]$*$  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") a=]tqV_  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" g\ilK:r}  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False *QH@c3vUe\  
    With ActiveDocument.Styles("QLNU一级标题").Font tHgu #k0  
        .NameFarEast = "黑体" MZZEqsD5[  
        .NameAscii = "Arial Black" XOe)tz L  
        .NameOther = "黑体" x2%xrlv<J/  
        .Name = "黑体" !?#B*JGFS  
        .Size = 16              '三号 ckykRqk}  
        .Bold = True .hPk}B/KV  
        .Italic = wdUndefined :2ILN. &  
        .Subscript = wdUndefined 6QO[!^lY  
        .Superscript = wdUndefined Utd`T+AF*  
    End With .!/w[Z]  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat ~ H N  
         !Z]#1"A8  
        .LeftIndent = CentimetersToPoints(0) 9kZ[Z ,=>  
        .RightIndent = CentimetersToPoints(0) bvzNur_  
        .FirstLineIndent = CentimetersToPoints(0) td@I ;d2  
         Kg4\:A7Sa.  
        .LineSpacingRule = wdLineSpaceSingle r om`%qp^  
        .Alignment = wdAlignParagraphCenter /Ps/m!  
         KW`^uoY$  
        .WidowControl = True -Ri/I4Xj  
        .KeepWithNext = True @
komb IK  
        .KeepTogether = True A6eIf  
        .OutlineLevel = wdOutlineLevelBodyText b\^X1eo  
         w#0/&\b=  
        .LineUnitBefore = 0.5 ( y0  
        .LineUnitAfter = 0.5 ~XU%_Hz  
    End With !Pd@0n4  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False L6<.> \^Z"  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll ktF\f[  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese $S(<7[Z  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True w=JO$7  
    DoEvents ,6@ s N'c  
     x *:v]6y  
    '二级 ?V&#nA  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") z{$2bV  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" ?DJ/Yw>>3  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False W 2yNwB+{  
    With ActiveDocument.Styles("QLNU二级标题").Font UZvF5Hoe+O  
        .NameFarEast = "黑体" )d(F]uV:y  
        .NameAscii = "Arial Narrow" \Hb"bv  
        .NameOther = "黑体" %JoHc?  
        .Name = "黑体" bAOL<0RS9`  
        .Size = 15        '小三号 .=G?Zd  
        .Bold = False ZP-^10  
        .Outline = False N_L~oX_  
        .Italic = wdUndefined %j $r"  
        .Subscript = wdUndefined ,! b9  
        .Superscript = wdUndefined $y{rM%6JU  
    End With i=3~ h Zl  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat c6-~PKJ L  
        .LeftIndent = CentimetersToPoints(0) <<WqL?8W  
        .RightIndent = CentimetersToPoints(0) IX+!+XC"U  
        .FirstLineIndent = CentimetersToPoints(0) ?$$Xg3w_#  
         ERTjY%A  
        .LineSpacingRule = wdLineSpaceSingle D`hl}  
        .Alignment = wdAlignParagraphLeft K4U_sCh#f  
         yrvV<}  
        .WidowControl = True l/xpAx  
        .KeepWithNext = True *3@ =XY7  
        .KeepTogether = True aoqG*qh}b  
        .PageBreakBefore = False r_ >]y p  
        .OutlineLevel = wdOutlineLevelBodyText OKi}aQ2R*  
         -<0xS.^  
        .LineUnitBefore = 0.5 !1m7^3l7j  
        .LineUnitAfter = 0.5 S(2_s,J^  
         Oz{FM6  
    End With |
!m8JV|x  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False TF_wT28AU2  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll d%,@,>>)  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese 9u?[{h.`B  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True xB:]{9r  
    DoEvents ?COLjk  
     >dK# tsp  
    '三级标题样式 /qaWUUf  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") E5iNuJj=f  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" W79Sz}):  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False 3R>"X c  
    With ActiveDocument.Styles("QLNU三级标题").Font MZd
?cS  
        .NameFarEast = "宋体" t4d^DZDh!  
        .NameAscii = "Times New Roman" K&4FFZ  
        .NameOther = "黑体" 7H])
2:)  
        .Name = "黑体" 0q6xXNAX  
        .Size = 14               '四号 V |c PAT%  
        .Bold = False ^tFlA)  
        .Outline = False V*6
o|#  
        .Italic = wdUndefined M
!tR>NMH  
        .Subscript = wdUndefined 3QhQpPk),  
        .Superscript = wdUndefined h~`^H9?M  
    End With GHWt3K:*w  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat 3-Bz5sj9  
        .LeftIndent = CentimetersToPoints(0) *q-VY[2  
        .RightIndent = CentimetersToPoints(0) "UYlC0 S\  
        .FirstLineIndent = CentimetersToPoints(0) dkWV/DAm  
         -y|*x-iZ  
        .LineSpacingRule = wdLineSpaceSingle b9R0"w!ml  
        .Alignment = wdAlignParagraphLeft l~Hu#+O  
         tqD=)0Uzs  
        .WidowControl = True j82x$I*  
        .KeepWithNext = True 3D}Pa  
        .KeepTogether = True slnvre
l  
        .PageBreakBefore = False W\EvMV"  
        .OutlineLevel = wdOutlineLevelBodyText q:cCk#ra  
         ;UpdkY 1  
        .CharacterUnitLeftIndent = 0 ZyX+V?4  
        .CharacterUnitRightIndent = 0 `c)[aP{vN  
        .CharacterUnitFirstLineIndent = 2 LK|1[y^h  
         6w`.'5  
        .LineUnitBefore = 0.5 Xk] uXx:TN  
        .LineUnitAfter = 0 ;:  xE'-  
    End With [Smqe>U1  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False V7<w9MM  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll 'ws@I?!r  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese A$3ll|%j  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True 7I/a  
    DoEvents O$ARk+  
     hs Ak7KC  
    '四级标题样式 oM^VtH=>  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle")  )vD:  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" S'(IG m4  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False 7}L.(Jp9  
    With ActiveDocument.Styles("QLNU四级标题").Font vd9PBN  
        .NameFarEast = "宋体" Z'~/=a)7  
        .NameAscii = "Times New Roman" 6o.Dgt/f  
        .NameOther = "宋体" r XT6u  
        .Name = "宋体" :z-?L0C=0  
        .Size = 12               '小四号 <:>[24LJ{  
        .Bold = True FtW=Cc`hC_  
        .Outline = False "cwvx8un  
        .Italic = wdUndefined |
R;`  
        .Subscript = wdUndefined GJ\bZ"vDo  
        .Superscript = wdUndefined kx%\Cz  
    End With
z2iWr  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat &3Ry0?RET  
         6 \?GY  
        .LeftIndent = CentimetersToPoints(0) Nd He::  
        .RightIndent = CentimetersToPoints(0) 5cj&D74o  
        .FirstLineIndent = CentimetersToPoints(0) R$x(3eyx  
         d(YAH@  
        .LineSpacingRule = wdLineSpaceSingle f5z*AeI  
        .Alignment = wdAlignParagraphLeft p`Ok(C_  
         {)I&&fSz  
        .WidowControl = True ;T
KsAU  
        .KeepWithNext = True .U#oN_D  
        .KeepTogether = True SaOOD-u  
        .PageBreakBefore = False yu}T><Wst  
        .OutlineLevel = wdOutlineLevelBodyText cwE?+vB  
         *|OUd7P:hU  
        .CharacterUnitLeftIndent = 0 q*<FfO=eQ  
        .CharacterUnitRightIndent = 0  p ~pl|  
        .CharacterUnitFirstLineIndent = 2 gb=tc`  
         ,f~)CXNT?  
        .LineUnitBefore = 0 :z`L)  
        .LineUnitAfter = 0 ?aQVaw&L!7  
         JLGC'mbJ  
    End With XnKf<|j6k  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False =j%ORD[  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll F?Fxm*Wa/  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese qN'%q+n  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True -I:L6ft8  
    DoEvents 'soll[J  
     _D{{C  
    '正文校式 79 \SbB  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") 734H{,~  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" a+B3`6  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False [+!~RV_  
    With ActiveDocument.Styles("QLNU正文").Font YRu/KUT$ 7  
         Bxf&gDwjgr  
        .NameFarEast = "宋体" f3*S IKi  
        .NameAscii = "Times New Roman" v2ab84 C*  
        .NameOther = "宋体" je74As[  
        .Name = "宋体" $\aJ.N6
rb  
         nj#kz
D[n>  
        .Size = 12               '小四号 UW Px|]RC  
         7g4IAsoD  
        .Bold = wdUndefined zUA -  
        .Italic = wdUndefined /&em%/  
        .Subscript = wdUndefined F!RP *  
        .Superscript = wdUndefined Z*Fn2I4  
         LYuMR,7E  
        .Outline = False Ny$N5/b!!  
        .Emboss = False CN6b982&  
        .Shadow = False +.a->SZ5"  
        .Hidden = False &r!jjT  
         `^)oVs  
        .DisableCharacterSpaceGrid = True c3)6{  
    End With ;y;UgwAM  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat ,_bG'Hmt  
         # <5i/5&  
        .LeftIndent = CentimetersToPoints(0) =&mdxKoT0  
        .RightIndent = CentimetersToPoints(0) z J V>;  
        .FirstLineIndent = CentimetersToPoints(0) ~PX#' Jr  
         'Uo| @tK  
        .LineSpacingRule = wdLineSpaceExactly @Ll^ze&HI  
        .LineSpacing = 20 lT8^BT  
        .Alignment = wdAlignParagraphLeft 'DUYf5nF  
         ^@$T>SB1  
        .WidowControl = False |~+bbN |b  
        .KeepWithNext = False hdpA& OteR  
        .KeepTogether = False
VO<P9g$UD  
        .PageBreakBefore = False JD~]aoH  
        .Hyphenation = False 2U
3WH.o  
         loD:4e1  
        .OutlineLevel = wdOutlineLevelBodyText h`D+NZtWm  
         QSvgbjdE  
       J@IF='{  
        .CharacterUnitLeftIndent = 0 A/OGF>  
        .CharacterUnitRightIndent = 0 W . dm1  
        .CharacterUnitFirstLineIndent = 2 Bam 4%G5  
         ~"cqFdnO  
        .LineUnitBefore = 0  -K4uqUp  
        .LineUnitAfter = 0 .G>6_n 3  
        .SpaceBefore = 0 <%"CQT6g%  
        .SpaceAfter = 0 Ku8qn\2"  
         ej[Y `N  
        .DisableLineHeightGrid = True ei @$_w*TH  
    End With 5ZjM:wrF|  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False {;={abj  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll 
s-S|#5  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese `8D'r|=`Eh  
    ActiveDocument.Styles("QLNU正文").NoProofing = True [?n}?0  
    DoEvents H6Kt^s<6xu  
     Cdc=1,U(  
    '图片段落样式 T*#<p;  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") fRt&-z('  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" npcL<$<6X  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False cN7|Zsc\  
    With ActiveDocument.Styles("QLNU图片段落").Font O*1la/~m  
        .Size = 12               '小四号 m$bNQ7  
        .Italic = wdUndefined 2*Mu"v,  
        .Subscript = wdUndefined Gu%}B@4^  
        .Superscript = wdUndefined !I Byv%m&\  
    End With @}tk/7-E  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat rk `]]  
         Y~bGgd]T  
        .LeftIndent = CentimetersToPoints(0) &($Zs'X  
        .RightIndent = CentimetersToPoints(0) rO{"jJ  
        .FirstLineIndent = CentimetersToPoints(0) Z})n%l8J]p  
         gbRdng7(}  
        .LineSpacingRule = wdLineSpaceSingle z'}?mE3i  
        .Alignment = wdAlignParagraphCenter TMQu'<?V  
        .KeepWithNext = True 6PI-"He  
        .OutlineLevel = wdOutlineLevelBodyText V.274e  
         #8jH_bi  
        .CharacterUnitLeftIndent = 0 1&
}^{ Ys  
        .CharacterUnitRightIndent = 0 6Bm2_B  
        .CharacterUnitFirstLineIndent = 0 /%GM bO_  
         7dU7cc  
        .LineUnitBefore = 0 p
NzGpCk  
        .LineUnitAfter = 0 p V))g e\  
    End With :W nXoL  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False [?`c>  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll IyA8+N y  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese @$'1  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True (gv ~Vq  
    DoEvents MRHkQE+K@8  
     EMejvPnZO  
     M+TF0c  
    '第X章 ;w}5:3+  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") H}
c, P('  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" eDSBs
3k7H  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False &9'JHF!l  
    With ActiveDocument.Styles("QLNU章节标题").Font /C}fE]n{X  
        .NameFarEast = "黑体" 6.'+y1yS)  
        .NameAscii = "Arial Black" R OQIw  
        .NameOther = "Arial Black" jNNl5.  
        .Name = "黑体" $yb8..+  
        .Size = 16 ;EfMTI}6K  
        .Bold = True 6Gs,-Kb:  
        .UnderlineColor = wdColorAutomatic KhV; />(  
        .Outline = False MXhRnVz"W  
        .Italic = wdUndefined oYN# T=Xi  
        .Subscript = wdUndefined y0'"  
        .Superscript = wdUndefined Gu_Rf&:  
        .Scaling = 100 xX.Ox  
        .DisableCharacterSpaceGrid = True [%8+Fa~Wa  
    End With [}_ar  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat {\e wf_pFk  
        .LineSpacingRule = wdLineSpaceSingle [0e]zy B+  
        .Alignment = wdAlignParagraphCenter gB@Wv91  
        .WidowControl = True !f\6=Z?>3  
        .KeepWithNext = True .*g;2.-qv&  
        .KeepTogether = True )FqE8oN-  
        .PageBreakBefore = True Fk,3th  
        .OutlineLevel = wdOutlineLevelBodyText AH],>i3  
         h(G(U_V-Od  
        .LeftIndent = CentimetersToPoints(0) tgYIM`f  
        .RightIndent = CentimetersToPoints(0) v+=_  
        .FirstLineIndent = CentimetersToPoints(0) 2WOd TM{u  
         ),6Z1 K1  
        .CharacterUnitLeftIndent = 0 $mOK|=tI_  
        .CharacterUnitRightIndent = 0 t(MlZ>H  
        .CharacterUnitFirstLineIndent = 0 Ic/<jFZXM  
         U-s6h;^O  
        .LineUnitBefore = 1 M$gy J!Pb  
        .LineUnitAfter = 0.5 /qL&)24  
         7_/.a9$G  
        .AutoAdjustRightIndent = False g `B?bBg  
        .DisableLineHeightGrid = True a~~"2LE`  
        .FarEastLineBreakControl = True /a
Jl0GL4!  
        .WordWrap = True i,,>@R  
    End With Yazpfw 7'd  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False uyG4zV\h*  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll }H,A T  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese L4;n$=e  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True q+o(`N'~G  
    DoEvents EX&y !  
     I>-jKSkwc  
    '表格标题 9H3#8T] ;  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") q#Qr@Jf  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" I/)dXk~  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False ?t}[Wi}7  
    With ActiveDocument.Styles("QLNU表格标题").Font ^HL#)fK2I  
        .NameFarEast = "楷体" TCF[i
E{  
        .NameAscii = "Arial" XW Y0WDh:  
        .Name = "楷体" X>|.BvY|  
        .Size = 10.5 
5>w>J  
        .Bold = True O!]wJ
  
        .Underline = wdUnderlineNone )-a_,3x%j  
        .Italic = wdUndefined 73.o{V  
        .Subscript = wdUndefined T+4Musu{V  
        .Superscript = wdUndefined Z?hBn`.  
        .Color = wdColorAutomatic %9NGVC  
    End With R4JO)<'K&  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat 6]g
s{zG  
         t7A.b~#  
        .LineSpacingRule = wdLineSpaceSingle a4: PufS  
        .Alignment = wdAlignParagraphCenter +uwjZN'9a  
        .KeepWithNext = True ESASsRzk  
        .KeepTogether = True ]@?3,N  
        .OutlineLevel = wdOutlineLevelBodyText c/2OR#$t  
         >k\*NW  
        .LeftIndent = CentimetersToPoints(0) y9)l,@D  
        .RightIndent = CentimetersToPoints(0) s_Dl8O4u  
        .FirstLineIndent = CentimetersToPoints(0) XLbrE|0A?  
         L6A6|+H%E  
        .CharacterUnitLeftIndent = 0 iQGoy@<R  
        .CharacterUnitRightIndent = 0 c*1x*'j.  
        .CharacterUnitFirstLineIndent = 0 <qRw! 'S^  
         t8)Fkx#8}  
        .LineUnitBefore = 1 ;.:UfW  
        .LineUnitAfter = 0 I@L-%#@R1  
         iy: ;g  
    End With U0N[~yW(t1  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False #lLL5ji  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll  %r!#  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese a*IJ)'S  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True cW GU?cv}  
    DoEvents kb7\qH!n  
ln=zGX.e  
    '表格首行 BS|-E6E<  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") *,-YWx4
 
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False Iwn@%?7  
    With ActiveDocument.Styles("QLNU表格首行").Font 0`ib_&yI  
        .NameFarEast = "楷体" Ol%*3To  
        .NameAscii = "Times New Roman" wc,y+C#V  
        .Name = "楷体" n`:l`n>N$  
        .Size = 9 q-8 GD7  
        .Bold = True @e0Q+
t  
        .Underline = wdUnderlineNone "?9fL#8f*!  
        .Italic = wdUndefined *,
n7&  
        .Subscript = wdUndefined 'b^:"\t'Rh  
        .Superscript = wdUndefined sy@k3wQ  
    End With wA~Nfn ^  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat 6|dUz*Pr|\  
        .LineSpacingRule = wdLineSpaceSingle #i]@"R  
        .Alignment = wdAlignParagraphCenter Vi?Z`G]w!  
         q3P3euK3  
        .LeftIndent = CentimetersToPoints(0) wFd*6%  
        .RightIndent = CentimetersToPoints(0) yauP j&^R  
        .FirstLineIndent = CentimetersToPoints(0) 9vj:=,TNu  
         m9B3]H  
         l9L;Tjj  
        .CharacterUnitLeftIndent = -0.5 <s7{6n')  
        .CharacterUnitRightIndent = -0.5 F#<PFT4i  
        .CharacterUnitFirstLineIndent = -0.5 G#*!)#M <
 
         IkZ_N#m  
        .LineUnitBefore = 0 J/=A f [  
        .LineUnitAfter = 0 F'~/  
        .SpaceBefore = 0 R$3JbR.  
        .SpaceAfter = 0 ' R@<4Ib|  
         =4%C?(\  
    End With (7wR*vO^  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False Y3zO7*-@  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll =}"hC`3e  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese G[^G~U\+!  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True q,(&2./  
    DoEvents :<v$vER,&  
\S@A /t6pa  
    '表格内容 BxT~1SBFq  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") D!sSe|sL^  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False ?rK%;GTo  
    With ActiveDocument.Styles("QLNU表格内容").Font x> q3w# B  
        .NameFarEast = "楷体"
h1gb&?w5P  
        .NameAscii = "Times New Roman" %5KR}NXX6  
        .Name = "楷体" mcXakWmi  
        .Size = 9 ( gFA? aD<  
        .Bold = False 
}-Ma~/  
        .Underline = wdUnderlineNone Z {CL!  
        .Italic = wdUndefined aKUr":z  
        .Subscript = wdUndefined Ni)#tz_9  
        .Superscript = wdUndefined w0I /  
    End With =! c+|X
`  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat %7@H7^s}9  
        .LineSpacingRule = wdLineSpaceSingle x
XYens}  
        .Alignment = wdAlignParagraphCenter AP7W)S  
         <Ztda !  
        .LeftIndent = CentimetersToPoints(0) w:LCm `d  
        .RightIndent = CentimetersToPoints(0) @ixX?N)V  
        .FirstLineIndent = CentimetersToPoints(0) 7r<>^j'  
         Iw:("A&~  
        .CharacterUnitLeftIndent = -0.5 #~f+F0#%?  
        .CharacterUnitRightIndent = -0.5 C/vLEpP{(/  
        .CharacterUnitFirstLineIndent = -0.5 C} kJGi  
        .LineUnitBefore = 0
;' W5|.ZN  
        .LineUnitAfter = 0 "PHv~_:^R  
        .SpaceBefore = 0 A X#!9-m3  
        .SpaceAfter = 0 H.mG0x`M"E  
    End With PmY:sJ{M  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False :58'U|
 
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll UKBMGzu2:  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese e ^qnUjMy  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True c\'pA^m6  
    DoEvents Rp|&1nS  
Iq=B]oE  
    '图片标题 &sgwY  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") @iceMD.  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" yk)j;i4@  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False 3.H-G~  
    With ActiveDocument.Styles("QLNU图片标题").Font d&u/7rm  
        .NameFarEast = "楷体" @~XlI1g$i  
        .NameAscii = "Times New Roman" 8JrGZ8Q4RM  
        .Name = "楷体" (R}X(u  
        .Size = 10.5 I7_D $a=  
        .Bold = True c>
!J@[,  
        .Underline = wdUnderlineNone T??aVe]c  
        .Italic = wdUndefined !U!E_D.O  
        .Subscript = wdUndefined =ar soCa  
        .Superscript = wdUndefined <`*P/V  
        .Outline = False \|t0~sRwh  
        .Shadow = False DQICD.X6R  
        .Color = wdColorAutomatic DmrfD28j~F  
    End With i+Dgw  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat H7=z%Y9y  
        .LineSpacingRule = wdLineSpaceSingle 79x9<,a)  
        .Alignment = wdAlignParagraphCenter b?NeSiswn  
         'nS3o.}  
        .KeepWithNext = wdUndefined 7tpZE+OX  
        .KeepTogether = True -YyH"f  
        .OutlineLevel = wdOutlineLevelBodyText D` X6'PP  
         bx^EaXj(r  
        .LeftIndent = CentimetersToPoints(0) Rx"Qwi,\U  
        .RightIndent = CentimetersToPoints(0) gWo~o]f  
        .FirstLineIndent = CentimetersToPoints(0) sN}@b8o@  
         PPO<{  
        .CharacterUnitLeftIndent = 0 NXNon*"  
        .CharacterUnitRightIndent = 0 NETC{:j  
        .CharacterUnitFirstLineIndent = 0 $Ig,cTR.b  
         oI~Qo*4eh  
        .LineUnitBefore = 0 @/(7kh+  
        .LineUnitAfter = 0 =k7\g /  
    End With x=#5\t9  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False <3x#(ms!!  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll Kx+Bc&X  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese xi\RUAW  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True @R&D["!  
    DoEvents IpXhb[UZ?  
}x1IFTa!  
    '目录项 ` W>B8  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") z}tp0~C  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" 4Z<l>!  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False rM=A"  
    With ActiveDocument.Styles("QLNU目录项").Font 'uzv\[  
        .NameFarEast = "黑体" Av>j+O ;  
        .NameAscii = "Times New Roman" Kc\'s65.]  
        .NameOther = "Times New Roman" 1n(}Q1fa  
        .Name = "黑体" P/9J!.Cm  
        .Size = 10.5 ]e~^YZOs  
        .Bold = False Pc HFj+:  
        .Italic = wdUndefined <xjv7`G7  
        .Underline = wdUnderlineNone 3/=QZ8HA&-  
        .Color = wdColorAutomatic 0
5 Q8`  
        .Superscript = wdUndefined D*gVS  
        .Subscript = wdUndefined $)]FCuv  
    End With [s{:}ZuKc  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat P$>kBW53  
         I?g__u=n~  
        .LineSpacingRule = wdLineSpaceSingle 9prsL#Fn  
        .Alignment = wdAlignParagraphLeft kte.E%.PE  
         PEt8,,x<"  
        .WidowControl = False ZC*d^n]x.  
        .KeepWithNext = False I<
K/d  
        .KeepTogether = False )o</gt)  
        .PageBreakBefore = False E}vO*ZZEw  
        .NoLineNumber = False O9X:1>a@i  
        .OutlineLevel = wdOutlineLevelBodyText *m@ w^In^  
         Z;'.pU~  
        .LeftIndent = CentimetersToPoints(0) ydqmuZ%2h#  
        .RightIndent = CentimetersToPoints(0) ~+ wamX3  
        .FirstLineIndent = CentimetersToPoints(0) xBfe8lor  
         k1U8w
doT  
        .CharacterUnitLeftIndent = 0 U hhmG+  
        .CharacterUnitRightIndent = 0 2\\3<  
        .CharacterUnitFirstLineIndent = 0 ASa!y
V=g  
         e=UVsYNx  
        .LineUnitBefore = 0 G?d,$NMo|  
        .LineUnitAfter = 0 i!oj&&  
    End With ^p zxwt  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False {4aY}= -Q*  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll N pND/  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot u=}bq{  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese ^[[b$h$  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True EJ ~kZ3  
    DoEvents ,wi=!KzX  
     <?{}Bo0xG  
    '参考文献 ]
N"F?3J 8  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") tZCe?n]  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle"
&N_c-@2O  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False *Yu\YjLPG  
    With ActiveDocument.Styles("QLNU参考文献").Font [Um4\QvUx  
        .NameFarEast = "宋体" ?EQ^n3U$  
        .NameAscii = "Times New Roman" ls7A5 <  
        .NameOther = "Times New Roman" %e7(HfW-U  
        .Name = "Times New Roman" tZ j,A%<  
        .Size = 12 A=C3e4.C  
        .Bold = False kok^4VV  
        .Italic = wdUndefined 6Su@a%=j  
        .Subscript = wdUndefined :+Q"MIU  
        .Superscript = wdUndefined b\;u9C2y'  
        .Underline = wdUnderlineNone 6Hbf9,vI  
        .UnderlineColor = wdColorAutomatic `s>=Sn&UP  
        .Color = wdColorAutomatic )USC  
        .Engrave = False V<V\0n!0  
    End With Qb't*2c%  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat ?g;ZbD  
         !GGGh0Bj  
        .LineSpacingRule = wdLineSpaceExactly 7$'mC9  
        .LineSpacing = 16 Te@6N\g  
        .Alignment = wdAlignParagraphLeft ^%%5  
        .WidowControl = False $dp#nyP  
        .KeepWithNext = False <I%9O:R  
        .KeepTogether = False u1{ym _  
        .PageBreakBefore = False zMYd|2bc  
        .OutlineLevel = wdOutlineLevelBodyText H'GYJ ?U"  
         rYFau1  
        .LeftIndent = CentimetersToPoints(0) }j(2Dl  
        .RightIndent = CentimetersToPoints(0) [&qbc#L  
        .FirstLineIndent = CentimetersToPoints(0) _=*tDa  
         2ZG1n#  
        .CharacterUnitLeftIndent = 0 1H4Zgh U
 
        .CharacterUnitRightIndent = 0 /3[9{r  
        .CharacterUnitFirstLineIndent = -2 JD{MdhhV  
         @fH&(@  
        .LineUnitBefore = 0 "x|NG,<[9  
        .LineUnitAfter = 0 Dp*$GQ  
        .SpaceBefore = 0 99Yo1Q0  
        .SpaceAfter = 0 l \ ^nC2  
         iE^a%|?}  
    End With {rvbo1t  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False +e8>?dkq   
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll 5nx<,-N*BP  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS #>:(#^Uu  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True
Lcs{OW,  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese [)SR$/A  
    DoEvents ^'[@M'`~L  
,#bb8+z&p  
    ' x:?a;muf  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") YZH#5]o8  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" pP0Vg'V  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False >U~|R=*  
    With ActiveDocument.Styles("QLNU论文题目").Font T6I%FXm}  
        .NameFarEast = "黑体" Sn
0g TsZ  
        .NameAscii = "Arial Black" jfY{z=*]u  
        .NameOther = "Arial Black" p + l_MB  
        .Name = "Arial Black" @\T;PTD-  
        .Size = 16 .K@x4 /1  
        .Bold = False >GznG[Ku  
        .Italic = wdUndefined 2yQ}Lxr(  
        .Superscript = wdUndefined *Cnq2=A]A  
        .Subscript = wdUndefined RzzFhU#r  
        .Underline = wdUnderlineNone E!I  
        .UnderlineColor = wdColorAutomatic fcE)V#c"g  
        .Color = wdColorAutomatic ?YO=J  
+~4bB$6*4)  
    End With `N,Vs n"  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat .^LL9{?  
        .LineSpacingRule = wdLineSpaceSingle G?ugMl}  
        .Alignment = wdAlignParagraphCenter =`1m-   
        .WidowControl = True @v~Pwr!  
        .KeepWithNext = True U$A7EFK'  
        .KeepTogether = True zd9]qo  
        .PageBreakBefore = True PNJ e&q0*  
        .NoLineNumber = False wVp4c?s  
        .OutlineLevel = wdOutlineLevelBodyText  0Ox|^V  
         -H4+ur JJ  
        .LeftIndent = CentimetersToPoints(0) E./__Mz @  
        .RightIndent = CentimetersToPoints(0) XW?ybH6  
        .FirstLineIndent = CentimetersToPoints(0) .'S^&M/$  
         \|~?x# aA  
        .CharacterUnitLeftIndent = 0 zvGK6qCk  
        .CharacterUnitRightIndent = 0 T")i+
v  
        .CharacterUnitFirstLineIndent = 0 L8dU(P  
         <4Q12:  
        .LineUnitBefore = 1 MKe^_uF  
        .LineUnitAfter = 1 t[?a@S~6  
         d=?Mj]  
        .BaseLineAlignment = wdBaselineAlignAuto Be{/2jU%  
    End With i$bzdc#s  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False {M@@)27gW  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll j6e}7  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS L-z;:Ztk  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True bR'mV-2'  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese !eR-Kor  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True ~#x:z^U  
    DoEvents afY_9g!\  
     w<Yv`$-`  
    '中文摘要 |)-|2cPRur  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") |}M0,AS  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" w#xeua|*I#  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False wHtJ_Y  
    With ActiveDocument.Styles("QLNU中文摘要").Font 5c]}G.
NV  
        .NameFarEast = "宋体" feI./E  
        .NameAscii = "Times New Roman" g8I!E$  
        .NameOther = "Times New Roman" ^`rpf\GX(  
        .Name = "Times New Roman" l`b1%0y  
        .Size = 12 qx2E-PDL;<  
        .Bold = wdUndefined }Kj Ju ;  
        .Superscript = wdUndefined V#NG+U.B  
        .Subscript = wdUndefined PUP"ky^q"  
        .Italic = wdUndefined -
^iUVO`z  
        .Underline = wdUnderlineNone cq,v1Y<  
        .UnderlineColor = wdColorAutomatic K$GRJ  
        .Color = wdColorAutomatic fVDDYo2\  
    End With M@~~f   
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat gMs+?SNHAh  
        .LineSpacingRule = wdLineSpaceExactly SE^j=1  
        .LineSpacing = 20 N-2([
v  
        .Alignment = wdAlignParagraphLeft zJ;>.0  
         H|;*_  
        .WidowControl = False E.J0fwyT  
        .KeepWithNext = False 2e9jo,i  
        .KeepTogether = True <&5m N  
        .PageBreakBefore = False Qz@IK:B}  
        .NoLineNumber = False dn
ZzA  
        .OutlineLevel = wdOutlineLevelBodyText 2mqK3-c  
         V uG ?B{  
        .LeftIndent = CentimetersToPoints(0) E dn[c
H7  
        .RightIndent = CentimetersToPoints(0) Xnv@H:$mxk  
        .FirstLineIndent = CentimetersToPoints(0) |5
xYT 'V  
         SyK9Is{8  
        .CharacterUnitLeftIndent = 0 !K3})& w  
        .CharacterUnitRightIndent = 0 Vd+td;9(  
        .CharacterUnitFirstLineIndent = 2 , 3X: )  
        .LineUnitBefore = 0 uf)W-Er6~  
        .LineUnitAfter = 0 M18qa,fK{  
         %MJL5  
    End With ~x|aoozL  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False sM9FE{,mx  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll =)I"wR"v$  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS 7tSJniB  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True *@_u4 T7|{  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese /!GKh5|  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True :dP~.ZY7  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete KD% TxK  
    DoEvents e ~{^oM  
     }zFf0.82  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") Eh\ 1O(a(  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" AGOx@;w  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False (CdJ;-@D  
    With ActiveDocument.Styles("QLNU英文标题").Font n/QfdAg  
        .NameFarEast = "黑体" 'K@-Z]  
        .NameAscii = "Arial Narrow" \q~w<%9Dq  
        .Name = "Arial Narrow" 2_;]  
        .Size = 16 l~ bKBz  
        .Bold = True "S5S|dBc  
        .Bold = wdUndefined d0(Cn}m"c  
        .Superscript = wdUndefined 2fl4 h<V  
        .Subscript = wdUndefined  fb\DiKsW  
        .Italic = wdUndefined c$0_R;4/  
         QyPg |#T2>  
        .Underline = wdUnderlineNone /+VIw`E  
        .UnderlineColor = wdColorAutomatic VeZey)Q  
        .StrikeThrough = False ?J t$ a;  
        .DoubleStrikeThrough = False XZS5B~E '  
    End With 4% HGMr  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat XrF3kz!44  
        .LineSpacingRule = wdLineSpaceSingle 55.;+B5L*  
        .Alignment = wdAlignParagraphCenter bGv*-; *  
        .WidowControl = True *AZ?~ i^o  
        .KeepWithNext = False 5|ic3  
        .KeepTogether = False *>jjMyn  
        .PageBreakBefore = False =/FF1jQ  
        .NoLineNumber = False zv //K_  
        .FirstLineIndent = CentimetersToPoints(0) ''IoC j  
        .OutlineLevel = wdOutlineLevelBodyText lT.zNhz:d9  
         }N3V
5cab  
        .LeftIndent = CentimetersToPoints(0) /XcDYMKgh  
        .RightIndent = CentimetersToPoints(0) 0$6*o}N%  
        .FirstLineIndent = CentimetersToPoints(0) A\K,_&x1Z  
         1Cm~X$S.  
        .CharacterUnitLeftIndent = 0 H@{Objh
1  
        .CharacterUnitRightIndent = 0 `Da+75 f6v  
        .CharacterUnitFirstLineIndent = 0 E&*: jDg  
         'b^l'KN:S  
        .LineUnitBefore = 1 `} =yG_!A  
        .LineUnitAfter = 1 IU@_
)I+6  
         KP3n^ $~  
    End With V vu(`9u]  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False Lf. 1>s  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll F|9+ +)  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS WsR+Np@c  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True -G9|n#zCU  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese ?"6Ov ]  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True ;DuXSy!g  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete ?GdsOg^  
    DoEvents St@l]u9  
nnNv0?>d(  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") aD9rp V  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" s5l3V2k  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False V/PAi.GZ  
    With ActiveDocument.Styles("QLNU英文摘要").Font Sk:2+inU  
        .NameFarEast = "宋体" #,L~w  
        .NameAscii = "Arial" wW:7y>z)  
        .NameOther = "Arial" \m4T3fy  
        .Name = "Arial" $I@GUtzjp  
        .Size = 12 ZK6Hvc0  
        .Bold = wdUndefined #'@ilk/.  
        .Italic = wdUndefined fN-Gk(Ic  
        .Superscript = wdUndefined ?aBj#  
        .Subscript = wdUndefined .NJ|p=fy  
    End With 1dFa@<5  
     9R p2W  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat xCWz\-;  
         m9$a"$c  
        .LineSpacingRule = wdLineSpaceExactly -gS"pE^1  
        .LineSpacing = 20 -v+&pG?m  
         )RN<GW'  
        .Alignment = wdAlignParagraphJustify a2`%ghW3  
         ["y6b*;x  
        .WidowControl = False KOey8tB)1  
        .KeepWithNext = False 5 L/x-i  
        .KeepTogether = False ,_jC$  
        .PageBreakBefore = False GIT#<+"  
        .NoLineNumber = False p3c"ZPO~z  
         !Xj#@e  
        .OutlineLevel = wdOutlineLevelBodyText BOvF)4`  
         i|]7(z#OyI  
        .LeftIndent = CentimetersToPoints(0)  G2`${aMS  
        .RightIndent = CentimetersToPoints(0) s)zJT  
        .FirstLineIndent = CentimetersToPoints(0) dC.bt|#Oz  
         vE%s,E,  
        .CharacterUnitLeftIndent = 0 dAc ?O-~  
        .CharacterUnitRightIndent = 0 {uU 2)5i2-  
        .CharacterUnitFirstLineIndent = 2 *5k+t  
         |;+qld[4z  
        .LineUnitBefore = 0 ^~$\ g]  
        .LineUnitAfter = 1 ExVDkt0  
         PU1,DU  
    End With }7ehF6  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False A%u_&a}  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll ~.^AL}zm_  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS {$d<1y^  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False W@.Ji B  
    DoEvents F";.6%;AC  
Q&CEl
x?L  
    Options.Pagination = True O0T/#<Cn!  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." c 6"Ib)  
    DoEvents h7]EB!D\A  
    ActiveDocument.Repaginate |7"$w%2  
,zhJY ?sk  
End Sub 7]Em,  
 fRB5U'  
v4rW2F:X  

姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 ^ uBxgWIC  
? *>]")[>  

引用

引用第20楼newport93于06-14-2010 13:47发表的  : /,@p\Ae5  
FAsFjRS  
老五，I 服了U。 b2,!g }I  
q%Yn;g|_  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 bN$r k|  

>w+HHs/$wK