Dim bContinue As Boolean 'fs tfk  
b'ZzDYN  
Dim regEX As New RegExp  O
$nW  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 EI9;J-c  
eZoAy[  
Dim LastTitle0String As String, LastTitle0No As Long fikDpR  
Dim LastTitle1String As String, LastTitle1No As Long ?n]adS{  
Dim LastTitle2String As String, LastTitle2No As Long J-|&[-Z  
Dim LastTitle3String As String, LastTitle3No As Long 4@+
']vN4  
Dim LastTitle4String As String, LastTitle4No As Long $bDaZGy  
Dim LastTitle5String As String, LastTitle5No As Long y|0!sNg  
Dim LastTabelString As String, LastTableNo As Long 5hH LC7tT9  
Dim LastFigureString As String, LastFigureNo As Long O14\_eAu6  
QuP)j1"X  
Dim strSeperator As String !}5f{,.RO  
o}&{Y2!x  
Sub ConvertWidth(fTEXT As String, rText As String) BbM/Rd1tAm  
        Selection.Find.ClearFormatting ~?4BP%g-y  
        Selection.Find.Replacement.ClearFormatting >~0~h:M+  
        Selection.Find.Wrap = wdFindContinue NQGa=kXeJ  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText 4ClSl #X#i  
        DoEvents C2aA])7D  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True Q#X'.](1  
End Sub 48Jt5Jz_  
i&1rf|  
Sub ClearDomain() 
xk  
        With Selection.Find K.=5p/^a
 
            .ClearFormatting [8<0Q_?,  
            .Replacement.ClearFormatting S0Ur{!9\#^  
            .Wrap = wdFindContinue ;PB_@Zg  
            Me.txtStatus.Text = "清除所有域代码" 3-=AmRxW't  
            DoEvents E/hT/BOPK  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False f
|=
u{6  
        End With o!ZG@k?#  
End Sub P(s:+  
m2H?VY.^K  
Private Sub cmdCheck_Click() <-mhz`^  
    bContinue = True y^e3Gyk  
    Dim NoSeries1(1 To 16) As String ?@z/#3b  
    Dim NoSeries2(1 To 16) As String fP[S.7F+No  
    Dim NoSeries5(1 To 16) As String @M OaXe  
    Dim NoSeriesRM(1 To 16) As String UT5xUv5'  
    Dim paraTotal As Long, ParaText As String K_AdMXF9  
    Dim ttString As String, ttNo As String UlWm). b;v  
     o[1#)&  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long cV"Ov@_.k  
Qqi?DW1)-  
    Me.txtStatus.Visible = True .p]rS =#  
    Me.lbParaType.Visible = True }$'XV.  
    Me.cmdCheck.Enabled = False l1#.rg  
     P:_bF>r ?  
     ]61Si~Z  
     _R(
9O?;q  
     ,J'_Vi  
    Dim ParaType As String, rText As String .hM t:BMf*  
     E]v]fy"  
    Selection.WholeStory /N({"G'  
    Selection.NoProofing = True c|d,:u#  
     c
^O&A\+;  
    tm1 = Now RH:vd|q+  
     <@# g2b  
        ActiveWindow.View.Type = wdNormalView v k=|TE  
     @( \R@
`#  
    NoSeries1(1) = "一" 5*f54g"'  
    NoSeries1(2) = "二" mlCBstt{  
    NoSeries1(3) = "三" -uu&{$  
    NoSeries1(4) = "四" j/_&]6!
  
    NoSeries1(5) = "五" }a/z.&x]V  
    NoSeries1(6) = "六" W"*2,R[}%  
    NoSeries1(7) = "七" fdWqc_  
    NoSeries1(8) = "八" }JWkV1  
    NoSeries1(9) = "九" TpwN2 =  
    NoSeries1(10) = "十" Mo<q(_ZeRP  
    NoSeries1(11) = "十一" 9pPLOXr ,  
    NoSeries1(12) = "十二" sa&`CEa  
    NoSeries1(13) = "十三" g~b$WV%  
    NoSeries1(14) = "十四" P;@j   
    NoSeries1(15) = "十五" :8j7}'  
    NoSeries1(16) = "十六" )[cuYH>  
     6bc\ )n`  
    NoSeries2(1) = "㈠" rQ_]%ies8  
    NoSeries2(2) = "㈡" ;BqCjS%`N  
    NoSeries2(3) = "㈢" \gkhSL
q  
    NoSeries2(4) = "㈣" Ssuz
%*  
    NoSeries2(5) = "㈤" UX[s5#  
    NoSeries2(6) = "㈥" 'e*w8h  
    NoSeries2(7) = "㈦" w[\rS` J  
    NoSeries2(8) = "㈧" RjH68=n  
    NoSeries2(9) = "㈨" ^-Ygh[x  
    NoSeries2(10) = "㈩" (X Oz0.W  
     !V(r p80  
    NoSeries5(1) = "①" S6_:\Q  
    NoSeries5(1) = "②" >d=pl}-kOQ  
    NoSeries5(3) = "③" 1og+(m`BL  
    NoSeries5(4) = "④" mhX66R  
    NoSeries5(5) = "⑤" ;2\6U;  
    NoSeries5(6) = "⑥" 52 Qr  
    NoSeries5(7) = "⑦" Ll-QhcC$  
    NoSeries5(8) = "⑧" 122s7A  
    NoSeries5(9) = "⑨" cC>Svf[CzK  
    NoSeries5(10) = "⑩" }#u #m.  
     ]jm:VF]4  
     ;gZ/i93 :Q  
    NoSeriesRM(1) = "I" jDqG9]  
    NoSeriesRM(2) = "II" utBrH  
    NoSeriesRM(3) = "III" VH~YwO!x  
    NoSeriesRM(4) = "IV" '<YBoU{e*  
    NoSeriesRM(5) = "V" b1cVAfUP  
    NoSeriesRM(6) = "VI" "&/2 @

 
    NoSeriesRM(7) = "VII" Ncsh{.
  
    NoSeriesRM(8) = "VIII" |0oaEd ^*}  
    NoSeriesRM(9) = "IX" $/|) ,n  
    NoSeriesRM(10) = "X" W7b m}JHn  
    NoSeriesRM(11) = "XI" r#2Fk&Z9  
    NoSeriesRM(12) = "XII" :fwtPvLo  
    NoSeriesRM(13) = "XIII" xpO;V}M|  
    NoSeriesRM(14) = "XIV" z6l'v~\  
    NoSeriesRM(15) = "XV" \o/eF&  
    NoSeriesRM(16) = "XVI" 4p-"1c$  
     mNacLkh[  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) 9&uf
  
     +-(,'slov  
    If i = vbNo Then gpf0-g-X  
        Exit Sub b=1E
87i@W  
    End If !H) -  
     0IdA!.|  
    If Me.chkSuper.Value Then @tY]=pqn_  
        Me.txtStatus.Text = "检查修改所有的上标格式" A7%/sMv  
     uSRhIKy  
        CheckSuperScript UOf\pG   
         (xN1?qXB.  
    End If wBwTJCX  
    
.gmS1ju  
    If Me.chkStyle.Value Then 9M3"'^ {$  
        Me.txtStatus.Text = "设置样式，请稍候...." 9(q(;|;Hp  
        DoEvents e3W~6P  
        CeateOrModifyStyle d"miPR  
    End If c?EvrtND  
     kE
.4 #  
     9]w?mHslE  
     GM'yOJo  
    ClearDomain #=S^i[K/  
         p%&$%yz$  
     Hnk&2bY  
    
-y$6gCRY  
    If Me.chkLIST.Value Then }.&;NgZS  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" D>7J[ Yxg-  
     {QylNC
9  
        ConvertListToOrdinary c`p'5qz  
    End If (YYg-@IO  
     {ri={p]l  
     M2|h.+[Q  
    Dim pType As String, trimpTEXT As String ;Su-Y!&%  
    If Me.chkNum.Value = True Then LtX53c  
        Me.txtStatus.Text = "转换全角数字形式为半角" YS){N=g&'  
        ConvertWidth "１", "1" H\a"=&M  
        DoEvents  >(ip-R  
        ConvertWidth "２", "2" 1=z[U|&R  
        DoEvents 0QW=2rs  
        ConvertWidth "３", "3" -,b+tC<V)0  
        DoEvents _p%n%Oce
 
        ConvertWidth "４", "4" S} OO)  
        DoEvents ;m#4Q6k)V?  
        ConvertWidth "５", "5" zD<W`_z  
        DoEvents z)U7  
        ConvertWidth "６", "6" Vc;[0iB  
        DoEvents sH;_U)ssH  
        ConvertWidth "７", "7" 5|*`} ;/y  
        DoEvents }.E^_`  
        ConvertWidth "８", "8" oPr`SYB  
        DoEvents z8awND  
        ConvertWidth "９", "9" ;*<R~HJt  
        DoEvents uOeal^uS  
        ConvertWidth "０", "0" 'UWkJ2:!  
        DoEvents {9}CU ~R  
        ConvertWidth "ａ", "a" (@5`beEd  
        DoEvents (^y"'B  
        ConvertWidth "ｂ", "b" -u'"l(n)~  
        DoEvents |,:p[Oy  
        ConvertWidth "ｃ", "c" oV0 45G  
        DoEvents @WS77d~S  
        ConvertWidth "ｄ", "d" `62v5d*>a  
        DoEvents <A8>To<  
        ConvertWidth "ｅ", "e" ;J TY#)Bh  
        DoEvents
[. 9[?8  
        ConvertWidth "ｆ", "f" :,aY|2si  
        DoEvents ERIMz,  
        ConvertWidth "ｇ", "g" 2O[sRm)  
        DoEvents !pw)sO~  
        ConvertWidth "ｈ", "h" iaEQF]*cC  
        DoEvents $7DW-TA  
        ConvertWidth "ｉ", "i"
?@,EGY<  
        DoEvents {~&Q"8 }G  
        ConvertWidth "ｊ", "j" 6{]F#ig=  
        DoEvents 8\{z>y  
        ConvertWidth "ｋ", "k" HrvyI)4{  
        DoEvents ;J,(YNI 1  
        ConvertWidth "ｌ", "l" bA#9'Qu^j  
        DoEvents 2{63:f1c`'  
        ConvertWidth "ｍ", "m" S\N1qux{  
        DoEvents z5]6"v-  
        ConvertWidth "ｎ", "n" "%Y=+  
        ConvertWidth "ｏ", "o" gh?[x.U  
        ConvertWidth "ｐ", "p" =FhP$r*  
        ConvertWidth "ｑ", "q" > B@c74  
        ConvertWidth "ｒ", "r" aMhVO(+FW  
        ConvertWidth "ｓ", "s" ?l?l<`sTO  
        ConvertWidth "ｔ", "t" 0t^FM<7G  
        ConvertWidth "ｕ", "u"  jb&MC2  
        ConvertWidth "ｖ", "v" {<gv1Yht  
        ConvertWidth "ｗ", "w" r5S/lp+Y+N  
        ConvertWidth "ｘ", "x" A8vd@0  
        ConvertWidth "ｙ", "y" <n]PD;.4  
        ConvertWidth "ｚ", "z" S\8v)|Pr  
        ConvertWidth "Ａ", "A" gtu<#h(  
        ConvertWidth "Ｂ", "B" ^ZQMRNP{r  
        ConvertWidth "Ｃ", "C" oH%[8!#  
        ConvertWidth "Ｄ", "D" -i2rcH  
        ConvertWidth "Ｅ", "E" [QgP6f]=  
        ConvertWidth "Ｆ", "F" ~W8Xg)  
        ConvertWidth "Ｇ", "G" .
waw=C  
        ConvertWidth "Ｈ", "H" G]f |
?  
        ConvertWidth "Ｉ", "I" 8R3{
YJ6@T  
        ConvertWidth "Ｊ", "J" M
casnjC  
        ConvertWidth "Ｋ", "K" O;<wDh)Yt  
        ConvertWidth "Ｌ", "L" zT78FliY6  
        ConvertWidth "Ｍ", "M" +|obU9M  
        ConvertWidth "Ｎ", "N" zvdut ,6<  
        ConvertWidth "Ｏ", "O" vJ65F6=G  
        ConvertWidth "Ｐ", "P" 2wY|E<E  
        ConvertWidth "Ｑ", "Q" 7[;!enO  
        ConvertWidth "Ｒ", "R" `hj,rF+4  
        ConvertWidth "Ｓ", "S" 8.B'O> \T  
        ConvertWidth "Ｔ", "T" b~,e(D9DG  
        ConvertWidth "Ｕ", "U" cZ:jht  
        ConvertWidth "Ｖ", "V" ai sa2#  
        ConvertWidth "Ｗ", "W" d'ZNp2L  
        ConvertWidth "Ｘ", "X" {+WY,%e  
        ConvertWidth "Ｙ", "Y" oc( '!c  
        ConvertWidth "Ｚ", "Z" ^BA%]pe$I  
        ConvertWidth "^l", "^p" #Z2'Y[@.  
        ConvertWidth "（", "(" vnvpb! @Q  
        ConvertWidth "）", ")" .yZLC%}  
     } jJKE  
    End If fF0i^E<  
lEFd^@t  
    With ActiveDocument [A84R04_%  
        Dim tbl As Table ]5f;Kz)  
        For Each tbl In .Tables ?<!qF:r:  
            tbl.Rows.Alignment = wdAlignRowCenter 37zBX~  
            tbl.Range.Font.NameFarEast = "楷体" -t|/g5.w_  
            tbl.Range.Font.NameAscii = "Times New Roman" rV%T+!n%c  
            tbl.Range.Font.Size = 10.5 @}d;-m~  
        Next l5Bm.H_  
        Set tbl = Nothing mEd2f^R  
    End With <N=k&\  
     'l.tV7  
     Fk/I (Q  
    With ActiveDocument T[|#DMg$F  
         JpfA+r  
        For i = 1 To .TablesOfContents.Count apk,\L@sZ  
            .TablesOfContents(i).Delete BjvQ6M{Y"+  
        Next 5U475&  
         xjo`u:BH  
         CLaQE{  
         HD=F2p  
        paraTotal = .Paragraphs.Count fYk>LW  
        paraCounter = 1 (O0Ry2uk  
         #!R>`l(S  
        LastTitle0No = 0 '37 {$VHw  
        LastTitle1No = 0 B~KxUp  
        LastTitle2No = 0 Th9V8Rg+E  
        LastTitle3No = 0 cr!W5+r  
        LastTitle4No = 0 W|>jj$/o  
        LastTableNo = 0 ?^%[*OCCC!  
        LastFigureNo = 0 iX+8!>Q  
         NLMvi!5w,  
        Dim Sec As Long <@.e.H  
         0AQ4:K
V(Y  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) n]IF`kYQV  
        If Sec = 0 Then [_)`G*X(N  
            Exit Sub dRJ ](Gw  
        End If ~o^|>]  
         ;b0Q%TDh  
        k = 0  Ol }5ry  
        Do While (paraCounter < paraTotal) And bContinue 9u(pn`e 3  
            k = k + 1 ^~[7])}g6  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then j;-Wf6h{  
                Exit Do 5Z!$?J4Rl  
            End If Hloe7+5UD  
            paraCounter = paraCounter + 1 0#J~@1Gf  
            If k Mod 20 = 0 Then )_jboaNzwI  
                Me.lbCounter.Caption = paraCounter tw$EwNI[  
                DoEvents 9xK>fM&u  
            End If @n)?=[p  
        Loop
PuP"( M  
         ]%6%rq%9C  
         $#hU_vr  
        Do While (paraCounter < paraTotal) And bContinue )4ek!G]Rb  
             b\}a   
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) ;-u]@35  
            ShapeHeight = 0 ,H7_eVLWR  
            ShapeWidth = 0 9!n:hhJM  
           1
7~Pc  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth pWRdI_  
             2X2Ax~d@  
            Select Case ParaType lm4A%4-db  
                Case "【】表格内容" ElW\;C:K*  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" B46:LQ9[  
                Case "章" |D)CAQn,  
                    LastTitle0No = LastTitle0No + 1 e`4mrBtz|  
                    '新一章开始，复位其下属标题编号 MF"*xr v  
                    LastTitle1No = 0 uQW)pD{_  
                    LastTitle2No = 0 +yO) 3  
                    LastTitle3No = 0 arm_SyL0  
                    LastTitle4No = 0 }h;Z_XF&  
                     ED>7  
                    k = Val(ttNo) n{4iW_/D  
                    If k = 0 Then '非数字编号章节 ?_g
vI  
                        If ttNo <> NoSeries1(LastTitle0No) Then `VwG]2 I  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString %>*?uO`z[  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText ,'(|,f42  
                        End If FvT 4?7-  
                    Else B9"o Ru^}  
                        If Val(ttNo) <> LastTitle0No Then Dr.eos4 ~  
                            rText = "第" & LastTitle0No & ttString v"1&xe^4  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText 1-p#}VX  
                        End If ejV`W7U  
                         YdCl  
                    End If jv~#'=T'  
                     Jq` Dvz  
                    '章段落设置 M$EF 8  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 oYw?kxRZ  
                    .Paragraphs(paraCounter).Style = "QLNU章节" aE07#  
                    .Paragraphs(paraCounter).Range.Select  ,h^6y  
                    Selection.EndKey unit:=wdLine ">Qxb.Y}  
                    tc = Replace(rText, vbCr, "") =cl#aS}e8  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False nN{DO:_o  
                Case "一级标题" D=a*Xu2zq  
                    LastTitle1No = LastTitle1No + 1 $=plAi  
                    '新一级标题开始，复位其下属标题编号 bDvGFSAH  
                    LastTitle2No = 0 "Y+VNS  
                    LastTitle3No = 0 SdlO]y9E  
                    LastTitle4No = 0 .@&FJYkLYi  
                     QgU]3`z"  
                    If ttNo <> NoSeries1(LastTitle1No) Then 6n 2RTH  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString */K[B(G  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText I'P|:XKI  
                    End If epnZGz,A  
                   VjWJx^ZL#  
                     3J"`mQ  
                    '一级标题段落设置  格式：一、标题内容 ^N<a HFF  
                    .Paragraphs(paraCounter).Range.Text = rText \2/X$x<?X  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" K7&]|^M9  
                    .Paragraphs(paraCounter).Range.Select IMD^(k 2  
                    Selection.EndKey unit:=wdLine U=D;CjAh  
                    tc = Replace(rText, vbCr, "") !b`fykC  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False @TALZk'%  
                Case "二级标题" \>:t={>;  
                    LastTitle2No = LastTitle2No + 1 k$%{w\?Jf  
                    '新二级标题开始，复位其下属标题编号 t_Eivm-,B  
                    LastTitle3No = 0 9\!&c<i=  
                    LastTitle4No = 0 ti+e U$  
                     J0IKI,X.  
                    If ttNo <> NoSeries1(LastTitle2No) Then Bdh*[S\u@E  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString p_Xfj2E4c  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText N#M>2b<A/T  
                    End If hXI[FICQU{  
                     ia\Gmh  
                    '二级标题段落设置 格式：(一)、标题内容 Mt4]\pMUb  
                    .Paragraphs(paraCounter).Range.Text = rText ODu/B'*  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" 2tK~]0x  
                     c(hC'Cp  
                    .Paragraphs(paraCounter).Range.Select :/(G#ZaV  
                    Selection.EndKey unit:=wdLine Q+Nnj(AQY  
                    tc = Replace(rText, vbCr, "") 2Di~}*9&  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False 8x1!15Wiz  
                 xCL)<8[R,}  
                Case "三级标题" BPkMw'a:  
                    LastTitle3No = LastTitle3No + 1 3|$?T|#B  
                    '新三级标题开始，复位其下属标题编号 .K~V DUu  
                    LastTitle4No = 0 KN_n:`cH{  
                     mdL T7  
                    If Val(ttNo) <> LastTitle3No Then Tr;.%/4Q  
                            rText = LastTitle3No & ". " & ttString <T7@,_T  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText &k)+]r  
                         auN
8M.  
                    End If {($mLfC4  
                    '三级标题段落设置 格式：1. 标题内容 -aJ(-Np$f  
                    .Paragraphs(paraCounter).Range.Text = rText )q'dX+4=eL  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" GThGV"  
                    .Paragraphs(paraCounter).Range.Select Z|@-=S(.  
                    Selection.EndKey unit:=wdLine +jrx;xwot  
                    tc = Replace(rText, vbCr, "") [UkcG9  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False R~oY R,L;  
                Case "四级标题" X#axCDM-  
                    LastTitle4No = LastTitle4No + 1 eJqx,W5MK]  
                     3\ajnd|  
                    If Val(ttNo) <> LastTitle4No Then e[x,@P`  
                            rText = "(" & LastTitle4No & "). " & ttString EUw4$Jt^p  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText eW.qMx#:od  
                     @GAj%MK$  
                    End If gs1  
                    '四级标题段落设置 格式：(1). 标题内容 ,?U(PEO\f  
                    .Paragraphs(paraCounter).Range.Text = rText + q2\3REzx  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" !pe[H*Cy  
                    .Paragraphs(paraCounter).Range.Select XKp(31])  
                    Selection.EndKey unit:=wdLine <2j$P Y9  
                    tc = Replace(rText, vbCr, "") b^i$2$9_  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False nS$4[!0  
                 UV%o&tv|<  
                Case "表格标题" :6C R~p  
                    LastTableNo = LastTableNo + 1 b?=r%D->w  
                     f(}&8~&  
                    If ttNo <> CStr(LastTableNo) Then \l(}8;5}  
                            rText = "表" & LastTableNo & ". " & ttString ly!3
~W  
                            ErrMsg.AddItem "表格编号错误：" & ParaText >.39OQ#  
                   zhE4:g9v  
                    End If M97+YMY)  
                     m?Jnb\0  
                    '表格名称段落设置 格式：表1. 表格名称 or ~@!  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" $igMk'%Nmb  
                    xe = Replace(rText, vbCr, "") B7A.~'=  
                    .Paragraphs(paraCounter).Range.Select rfdA?X{Q0  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 $m>( kd1  
                    Selection.Range.Text = xe QN;NuDHN  
                    Selection.EndKey X%!?\3S  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False g0 ~m[[
 
                 5Mxl({oI]  
                Case "表格首行" 9&
kY>M>z0  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" +:#g6(P]  
                Case "图片标题"  svo%NQ  
                    LastFigureNo = LastFigureNo + 1 *>iJ=H  
                     #\F8(lZ  
                    If ttNo <> CStr(LastFigureNo) Then 'lC=k7@x  
                            rText = "图" & LastFigureNo & ". " & ttString #@Tm5z  
                            ErrMsg.AddItem "表格编号错误：" & ParaText )jI4]6  
                   !pa7]cZ  
                    End If Z^F>sUMR  
                    '图片名称段落设置 格式：图1. 图名称 ~&0lWa  
                    .Paragraphs(paraCounter).Range.Text = rText N<(rP1)`v  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" E]{0lG`l  
                    .Paragraphs(paraCounter).Range.Select YedF%  
                    Selection.EndKey unit:=wdLine B$=1@  
                    xe = Replace(rText, vbCr, "") \8Ewl|"N:u  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False LUx'Dm"  
                Case "正文" =*4^Dtp  
                     '正文名称段落设置 #I ,c'Vj  
                    .Paragraphs(paraCounter).Style = "QLNU正文" `h'Ab63  
               Case "文献条目" " d~M\Az  
                    With .Paragraphs(paraCounter) !`U #Pjp.  
                        '.Range.Select K:4G(?w  
                        'Selection.ClearFormatting `T2DGv  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” WVyq$ p/V  
                        .Style = "QLNU参考文献" RionKi
N  
                    End With DS|x*w'I  
               Case "图表注解"
-K^(L#G  
                    With .Paragraphs(paraCounter) UT_ t]m  
                        .Range.Font.NameFarEast = "楷体" (s1iYK  
                        .Range.Font.NameAscii = "Times New Roman" >SZuN"r8`  
                        .Range.Font.Size = 9 '小5号字 D_f:D^  
                         $43CNnf3N  
                        .Alignment = wdAlignParagraphCenter ,+Ya'4x  
                        .LeftIndent = 0 M+=q"#&  
                        .RightIndent = 0 50S*_4R  
                        .FirstLineIndent = 0 Oa5-^&I  
                        .LineSpacing = 12 T/L \|_:'  
                        .LineSpacingRule = wdLineSpaceExactly } &ew}'*9)  
                        .LineUnitAfter = 0 ;h~kB  
                        .LineUnitBefore = 0 yh4%  
                        .OutlineLevel = wdOutlineLevelBodyText 5=poe@1g  
                        .PageBreakBefore = False R8% u9o  
                        .RightIndent = 0 s0Y7`uD^  
                        .WordWrap = True BhyLcUBuB  
                        .LineUnitAfter = 0.5 C`oB [  
                         W70BRXe04D  
                    End With  Mv%B#J  
                Case Else zS\m
8[+]  
                    '不作处理 ~8Ef`zL  
            End Select Q>=/u-  
             } F*=+n  
            '含有inlineshape的段落处理 E&vCzQ  
            If ShapeHeight > 30 Then U$ZbBVa`~  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 iQh:y:Jo1&  
            End If mh_GYzd  
             6>d3*  
            If (ShapeWidth + ShapeHeight) > 150 Then + L5  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" )A;jBfr  
            End If kvN6K6  
             f`J[u!Ja  
            '段落计数器递 ]_y;Igaj  
            paraCounter = paraCounter + 1 =:RNpi,  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter H
Ba6Y&)<  
            Me.txtStatus.Text = ParaText ijNI6_eU  
            DoEvents 
||Wg'$3  
        Loop K8iQ
?  
    End With Z!?T&:  
     8/9YR(H3H  
    msg = "" K!88 Nox(  
     G#^6H]`[J:  
    For i = 0 To Me.ErrMsg.ListCount - 1 toox`|  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) KC\W6|NtGj  
    Next su=]gE@  
     ~r]$(V n  
     v@!r$jZ  
     U%2{PbL  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg #b=*hi`E  
    Me.cmdCheck.Enabled = True zt )WX9  
    Me.txtStatus.Visible = True 1rmN)  
    Me.lbParaType.Visible = False Zvz}Z8jW  
     NjA\*M9  
    bContinue = False }Oy/F  
End Sub =?B[oq  
F.R0c@&W  
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) ~;uW) [  
    Dim pTEXT As String L!W5H2Mc  
     OdJ=4 x>  
    pTEXT = ChKRange.Text 49#? I:l  
     KU0;}GSNX}  
    ParaType = "其它" ,Hc,]TPC4  
    TitleString = pTEXT b@1";+(27  
    TitleNo = "N/A" cmLI!"RLe  
     -uK@2}NZ  
    shpCounter = ChKRange.InlineShapes.Count &4F iYZ  
    If shpCounter <> 0 Then 5sMyH[5zY  
        MaxShpHeight = 0: TotalShpWidth = 0 Gc!&I+kd  
        For i = 1 To shpCounter sr.!EQ]  
            k = ChKRange.InlineShapes(i).Height L:_pJP  
            l = ChKRange.InlineShapes(i).Width @v\jL+B+m  
            If k > MaxShpHeight Then >3ASrM+>w  
                MaxShpHeight = k )%?SWuS?N  
            End If Q mz3GH@wg  
            TotalShpWidth = TotalShpWidth + l QTI^?@+N>  
        Next ^W ,x  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then iHOvCrp+X  
            Exit Sub 
!
:dhK  
        End If FwSV \N+#'  
    End If
4vPKDd  
     EO.}{1m=hx  
    '空行 1b"3 ]?  
    If Len(pTEXT) <= 2 Then FiNB$A  
        Exit Sub rOq>jv y  
    End If $-]PD`wmY  
     MW.,}f  
         v.]W{~PI2V  
    '是否为表格中的文字 [ %7oq;^J  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then v/C*?/ ~  
        ParaType = "表格内容" `> $l2
,  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) .$-%rU:*}  
        If k = 1 Then 9O#?r82  
            ParaType = "表格首行" K}Pi"Le@W  
        End If !%yd'"6Dl  
        Exit Sub oO,"B8a  
    End If ^F$iD (f  
     ZltY_5l  
    '例外情况：脚注 /\uW[
mt  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then |G >Lud
 
        ParaType = "脚注" QcDtZg\  
        Exit Sub Nxt z1  
    End If m[*y9A1  
     y +c 3#  
    '例外情况：尾注 Q92hI"  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then fxX4  !r  
        ParaType = "尾注" :j!N7c{  
        Exit Sub wo!;Bxo N  
    End If /T/7O  
     T_?,?  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then ,`l8KRd  
        ParaType = "页眉页脚" <3aW3i/jTc  
        Exit Sub e/u(Re  
    End If gNo}\ lm4V  
     a{8g9a4  
     'ZQR
@~G  
    With regEX vJ!<7 l&  
        .Global = True p[gq^5WuC  
         0\^K\J,.  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" N]@e7P'9F  
        If regEX.Test(pTEXT) Then qeZ*!H6-  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") V\><6v  
            TitleString = regEX.Replace(pTEXT, "$3") umj5M5oe3  
            TitleNo = regEX.Replace(pTEXT, "$1") IDv|i.q3  
            ParaType = "章" SSI('6Z/  
            Exit Sub fxk6q$'  
        End If -qnd
BS  
         ~Aq$GH 4  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" oQ8If$a}  
        If regEX.Test(pTEXT) Then FZhjI 8+,~  
            ParaType = "一级标题" i/WiSwh:  
            regEX.Execute (pTEXT) Q|J$R  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") erZ%C <  
            TitleString = regEX.Replace(pTEXT, "$3") 0Fm,F&12  
            TitleNo = regEX.Replace(pTEXT, "$1") h/F,D_O>ZO  
            Exit Sub *+'l|VaVq\  
        End If ~C2[5r{So  
         ;*E PAC+  
        '全角或半角括号中的数字 2(sq*!tX  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" MDKiwT@#  
        If regEX.Test(pTEXT) Then mq~L1<f  
            ParaType = "二级标题" 4wQ>HrS)(  
            regEX.Execute (pTEXT) 5;-?qcb^w  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") p^QB^HEV  
            TitleString = regEX.Replace(pTEXT, "$5") zd3%9rj$  
            TitleNo = regEX.Replace(pTEXT, "$2") 'gwh:8Xc  
            Exit Sub E#c ZM>  
        End If <swYo<?J#  
         s;-%Dfn  
        '阿拉伯数字  1. 2. 5%Q[X  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" }fKpih  
        If regEX.Test(pTEXT) Then @#5PPXp  
            ParaType = "三级标题" vy330SQPo  
            regEX.Execute (pTEXT) %]i("21  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 4 U`5=BI  
            TitleString = regEX.Replace(pTEXT, "$3") v5o@l
s  
            TitleNo = regEX.Replace(pTEXT, "$1") }7jg>3ng(  
            Exit Sub 0FD+iID  
        End If Arb-,[kwN  
         '
fm}&0  
        '全角或半角括号中的阿拉伯数字 7EAkY`Op  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" M%8:  
        If regEX.Test(pTEXT) Then \!4sd2Yi  
            ParaType = "四级标题" UF00K1dbz  
            regEX.Execute (pTEXT) %A<|@OSdOa  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") _:tisr
{  
            TitleString = regEX.Replace(pTEXT, "$5") Q@lJ|  
            TitleNo = regEX.Replace(pTEXT, "$2") aBLE:v  
            Exit Sub &N!;d E  
        End If u*$ 1e  
         b 64~Y|8  
        '表格名称 LMvsYc~]q  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" :2fz4n0{/  
        If regEX.Test(pTEXT) Then a_0G4@=T  
            ParaType = "表格标题" D 4\T`j:  
            regEX.Execute (pTEXT) ;tF7GjEp  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) IuQY~!  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) oLXQ#{([  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) <v)Ai;l,  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 t o  
            Exit Sub wz P")}[0  
        End If CL$mK5u  
         A"@C }f  
        '图片名称 `)W}4itm  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" :8~*NSEFd  
        If regEX.Test(pTEXT) Then w<]Wg^dyQ  
            ParaType = "图片标题" &v^LxLt+s  
            regEX.Execute (pTEXT) L@ {5:#-  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") M/,jHG8v  
            TitleString = regEX.Replace(pTEXT, "$3") )'R
LK4l  
            TitleNo = regEX.Replace(pTEXT, "$1") qeyBZ8BG  
            Exit Sub  PiRbdl  
        End If zV }-_u.  
         Wh)QCp0|n  
        '参考文献 ? h$>7|  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 7QlA/iKqK  
        If regEX.Test(pTEXT) Then FFNv'\)  
            ParaType = "文献条目" |h,aV(Q  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") q)uq?sZe  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") t3 q0|S
  
            Exit Sub [yF4_UoF  
        End If Iz#h:O  
         !.'@3-w]  
        prfx = Left(pTEXT, 2) c!BiGw,;  
        If prfx = "注：" Or prfx = "注:" Then h.6yI  
            ParaType = "图表注解" 5[|MO.CB$  
            Exit Sub <,Zk9 t&  
        End If *zy0,{bl  
         WJ+<&6W8  
         `~"l a>}  
        ParaType = "正文" &OiJJl[9  
         "(+>#  
    End With eFPDW;  
End Sub 24Y~x`W   
EnrRnVB  
Sub ConvertListToOrdinary() 'l U9*e9  
    Dim st As Paragraph [lsr[`SJ<  
    With ActiveDocument @Kd lX>i  
        For i = .Paragraphs.Count To 1 Step -1 !
=.5$/  
            Set st = .Paragraphs(i) ^L;`F  
            lst = st.Range.ListFormat.ListString  @GYM4T  
            If lst <> "" Then hNV"{V3`{  
                st.Range.ListFormat.RemoveNumbers MOFIR wVZ+  
                st.Range.InsertBefore lst & " " j !;?=s  
            End If 7ST[XLwt%}  
        Next bYEq`kjzc  
    End With PT|W{RlNl  
    Set st = Nothing m(Cn'@i`"0  
End Sub PF1m :Iz`d  
dOFxzk,g&R  
Private Sub UserForm_Activate() ) tGC&l+?/  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" m.MOn3n]  
    Me.lbTotal.Font.Bold = True K@6tI~un  
    Me.txtStatus.Visible = False tF)aNtX4^  
    Me.cmdCheck.Enabled = True 'W~O?  
nJYcC"f  
End Sub 3`&2 -  
1_7}B4  
R0M(e@H~  
Sub CheckSuperScript() cvbv\G'aT  
    Selection.Find.ClearFormatting MdWT[  
    Selection.Find.Replacement.ClearFormatting .! LOhZ  
    With Selection.Find ~h;c3#wuc  
        .Text = "[【\[［〖](*)[】\]〗］]" (d[)U<  
        .Replacement.Text = "[\1]" =S-'
*
F  
        .Replacement.Font.Superscript = True %cD7}o:u  
        '.Replacement.Font.Color = wdColorBlue 1X/ q7lR  
        .Forward = True >Z?3dM~[  
        .Wrap = wdFindContinue i%M2(8&^Q  
        .FORMAT = True :Q\b$=,:  
        .MatchCase = False /0 ,#c2aq  
        .MatchWholeWord = False $+sNjwv^F  
        .MatchByte = False tLpDIA_8  
        .MatchAllWordForms = False 4 ~17s`+  
        .MatchSoundsLike = False ejwFQ'wTx  
        .MatchWildcards = True )#r]x1[Kn  
    End With GCx]VN3&  
    Selection.Find.Execute Replace:=wdReplaceAll ()vxTTa  
End Sub v!ULErs  
gJ>?<F;  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) +EcN[-~  
    bContinue = False Od'!v &  
    Set regEX = Nothing ?0+D1w  
End Sub er}/~@JJ  
1dOVH7  
Sub CeateOrModifyStyle() 4ow)vS(  
' lhx6+w  
' 77OH.E|$  
Dim stl As Style  G LL,  
     q [l},nw  
    Options.Pagination = False 7,_N9Q]rB  
     K!k,]90Ko  
    On Error Resume Next JcZs\ fl9  
    For Each stl In ActiveDocument.Styles cp2e,%o  
        stl.Delete zHr1FxD  
    Next Fp-d69Npo  
    On Error GoTo 0 #P-S.b  
     W z3y+I/&  
    Set stl = Nothing 'uBW1,  
     :M1S*"&:  
    DoEvents G6Z2[Ej1  
    On Error Resume Next 4_`+&  
     .-[UHO05^8  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph 'rU [V
+  
     y-{^L`%Mk  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph \A _g  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph +is;$1rq  
     N>7IN K  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph W=o90TwbN  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph 6.2_UN^<  
     d)(61  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph :Cw|BX@??U  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph S[{#AX=0  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph 8MM#q+8  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph Tul_/`An  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph |~CN]N  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph ;58l_ue  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph s6w</  
     Z6X?M&-Lz  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph veAGUE %3  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph 5Y"lr Y38  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph *\I?gDON  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph R|ViLty  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph Tv3 Bej  
     F>)u<f,C  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph 93[c^sc9*a  
    On Error GoTo 0 v$w!hYsQ  
    DoEvents ?Il$f_"B:  
     ]6p?mBuQ  
    'BaseStyle kp[+Iun?  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False I2qC,Nkk  
    With ActiveDocument.Styles("BaseStyle").Font I)]wi%  
        .NameFarEast = "宋体" 2md1GWyP  
        .NameAscii = "Times New Roman" n!&DLB1z  
        .NameOther = "宋体" k(><kuJ`3  
        .Size = 10.5 U"A
]b(54  
        .Bold = wdUndefined 'AE)&56  
        .Italic = wdUndefined %:N6#;l M  
        .Subscript = wdUndefined vN-#Ej. u  
        .Subscript = wdUndefined Lcf =)GL  
         1[a;2xA~  
        .Underline = wdUnderlineNone $&='&q  
        .UnderlineColor = wdColorAutomatic *;(
LKRV  
        .StrikeThrough = False B[
!wo  
        .DoubleStrikeThrough = False ATv.3cy   
         UW<V(6P  
        .Outline = False qXkc~{W_  
        .Emboss = False HjbC>*  
        .Shadow = False /fWVgyW>6  
        .Hidden = False k;R*mg*K  
        .SmallCaps = False l];,)ddD9  
        .AllCaps = False D!ToCVo s  
        .Color = wdColorAutomatic  ot]E\g+!  
        .Engrave = False kV(}45i]s  
        .Scaling = 100 MZB0vdx  
        .Kerning = 1 f[HhLAVGK`  
        .Animation = wdAnimationNone }L{en  
        .DisableCharacterSpaceGrid = False ync2X{ 9D  
        .EmphasisMark = wdEmphasisMarkNone zJOjc/\  
    End With [7ZFxr\:!  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat 9;k_"@A6  
        .LeftIndent = 0 l!<Nw8+U  
        .RightIndent = 0 Rgw\qOb  
        .SpaceBefore = 0 {^1GHU  
        .SpaceBeforeAuto = False \Q|1I  
        .SpaceAfter = 0 G@oY2sM"  
        .SpaceAfterAuto = False 3aQWzEnh  
         @>_`g=  
        .LineSpacingRule = wdLineSpaceSingle h)"PPI  
        .Alignment = wdAlignParagraphJustify @H"~/m_o  
         =2BGS\$#  
        .WidowControl = False G)';ucs:,  
        .KeepWithNext = False KtUI(*$`  
        .KeepTogether = False YB N@{P$  
        .PageBreakBefore = False RRqHo~*0  
        .NoLineNumber = False )
dbi  
         G,e>dp_cPu  
        .FirstLineIndent = CentimetersToPoints(0) EkgS*q_  
        .OutlineLevel = wdOutlineLevelBodyText p[VBeO^%  
        .CharacterUnitLeftIndent = 0 ^< '5 V)  
        .CharacterUnitRightIndent = 0 !krbGpTVH  
        .CharacterUnitFirstLineIndent = 0 r ioNP(  
        .LineUnitBefore = 0 @Nn9-#iW  
        .LineUnitAfter = 0 z*.
4Y  
        .AutoAdjustRightIndent = True b{=2#J-  
        .DisableLineHeightGrid = True 5vj;lJKcd`  
         iv2did4  
        .FarEastLineBreakControl = True x'{L%c>L  
        .WordWrap = True IExo#\0'6  
        .Hyphenation = False SEq_37  
         -~~"}u  
        .HangingPunctuation = True ^I@1y}xi  
        .HalfWidthPunctuationOnTopOfLine = True ZWQrG'$?o8  
        .AddSpaceBetweenFarEastAndAlpha = True <LIL{g0eX  
        .AddSpaceBetweenFarEastAndDigit = True UJ1iXV[h"  
        .BaseLineAlignment = wdBaselineAlignBaseline hW
$B;  
    End With V~tq _  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False 1hw1AJ}(F  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll aB;syl {  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese Q>] iRx>MZ  
    ActiveDocument.Styles("BaseStyle").NoProofing = False {1;j1|CI  
     .i>; ?( GH  
    '一级标题题样式 %Wkvo-rOq  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ;t{Ew+s  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" dFFJw[$8w  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False Q<3=s6@T  
    With ActiveDocument.Styles("QLNU一级标题").Font XZLo*C!MG  
        .NameFarEast = "黑体" @tWyc%t  
        .NameAscii = "Arial Black" cJd~UQ<k  
        .NameOther = "黑体" t8DySFT  
        .Name = "黑体"  iUJqAi1o  
        .Size = 16              '三号 7"Sw))H|  
        .Bold = True <UOx>=h  
        .Italic = wdUndefined $73 7oV<  
        .Subscript = wdUndefined :^tw!U%y1  
        .Superscript = wdUndefined ce{(5IC  
    End With M>VT$!Lx  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat 0W<:3+|n4  
         T3,"g=  
        .LeftIndent = CentimetersToPoints(0) 2`tdH|Z`  
        .RightIndent = CentimetersToPoints(0) "5"6mw?  
        .FirstLineIndent = CentimetersToPoints(0) @r]wZ~@  
         x*Y&s<  
        .LineSpacingRule = wdLineSpaceSingle uo;aC$US  
        .Alignment = wdAlignParagraphCenter _]a8lr+_-  
         zV_U/]y  
        .WidowControl = True HpSmB[WF  
        .KeepWithNext = True 47.c  
        .KeepTogether = True U~n>k<`sr  
        .OutlineLevel = wdOutlineLevelBodyText YQ9@Dk0R  
         hqIYo .<  
        .LineUnitBefore = 0.5 D0Yl?LU3  
        .LineUnitAfter = 0.5 G x ci  
    End With mD{<Lp=  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False Y u\
<  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll la:i!qAH  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese D7H,49#1Q  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True l2QO\O I9m  
    DoEvents ]fvU}4!  
     $_CE!_G&)  
    '二级 =p,+a/*  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") /. GHR  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" FtXd6)_S  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False }CnqJ@>C5  
    With ActiveDocument.Styles("QLNU二级标题").Font p\T9q  
        .NameFarEast = "黑体" T+ey> [  
        .NameAscii = "Arial Narrow" ,ef"S r  
        .NameOther = "黑体" dznHR6x  
        .Name = "黑体" -Zx hh  
        .Size = 15        '小三号 1 t haQ"  
        .Bold = False np,L39:sf  
        .Outline = False qR^KvAEQSo  
        .Italic = wdUndefined ]#=43  
        .Subscript = wdUndefined M24FuS  
        .Superscript = wdUndefined M>W-lp^3  
    End With Pj9n`LwM  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat .|[ZEXq  
        .LeftIndent = CentimetersToPoints(0) VU3xP2c:  
        .RightIndent = CentimetersToPoints(0) fmyyQ|]O"  
        .FirstLineIndent = CentimetersToPoints(0) ):OGhW
q  
         86igP  
        .LineSpacingRule = wdLineSpaceSingle  }_93}e  
        .Alignment = wdAlignParagraphLeft B?`n@/  
         ^j&'2n@9a  
        .WidowControl = True q
plz !=  
        .KeepWithNext = True VN`T:!&  
        .KeepTogether = True ]H<5]({F  
        .PageBreakBefore = False Y[Jt+p]  
        .OutlineLevel = wdOutlineLevelBodyText =<mpZ'9gW  
         2g5Ft  
        .LineUnitBefore = 0.5 [lZo'o  
        .LineUnitAfter = 0.5 Seh[".l  
         tZ,vt7  
    End With u3) Oj7cX  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False ],CJSA!5F  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll 4+%;eY.A  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese sf
)ojq6s  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True ]v
j4E"2;  
    DoEvents 7zo)t1H1  
     m8'B7|s  
    '三级标题样式 dzJ\+ @4  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") qOy3D~  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" [SGt ~bRJ  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False ReE-I/n8f  
    With ActiveDocument.Styles("QLNU三级标题").Font e=K2]Y Q{  
        .NameFarEast = "宋体" .J:04t1  
        .NameAscii = "Times New Roman" 4|*b{Ni  
        .NameOther = "黑体" gM_z`H5[!  
        .Name = "黑体" 0!X;C!v;  
        .Size = 14               '四号 ~wG.'d]  
        .Bold = False >^}nk04  
        .Outline = False !R*%F  
        .Italic = wdUndefined ;d$PQi  
        .Subscript = wdUndefined *fyC@fI>  
        .Superscript = wdUndefined ,4W|e!  
    End With *#+e_)d  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat 7L~LpB  
        .LeftIndent = CentimetersToPoints(0) (qd$wv^h  
        .RightIndent = CentimetersToPoints(0) <tkxE!xF`J  
        .FirstLineIndent = CentimetersToPoints(0) 4a3Xz,[(a  
         v,t;!u,40  
        .LineSpacingRule = wdLineSpaceSingle &2IrST{d:V  
        .Alignment = wdAlignParagraphLeft G{$(t\>8  
         Q-([3%  
        .WidowControl = True AZ' "M{wiI  
        .KeepWithNext = True i(DoAfYf/q  
        .KeepTogether = True uim4,Zm{  
        .PageBreakBefore = False }YUUCq&  
        .OutlineLevel = wdOutlineLevelBodyText M`IiK+IoU  
         UB[tYZ  
        .CharacterUnitLeftIndent = 0 JTbg8b  
        .CharacterUnitRightIndent = 0 hz#S b~g  
        .CharacterUnitFirstLineIndent = 2 o=i)s2  
         l{oAqTN  
        .LineUnitBefore = 0.5 jR8~EI+  
        .LineUnitAfter = 0 cx%[hM09  
    End With |O0=Q,<m  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False *?jU$&Qpj*  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll 46 (Vq|  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese ~5Wr |qg%{  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True i*34/  
    DoEvents wn*<.s  
     |Y'xtOMX  
    '四级标题样式 U 7mA~t2E  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") DVCO( fz  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" ,4dES|)sP  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False ?" MJ 'u  
    With ActiveDocument.Styles("QLNU四级标题").Font Y4*ezt:;Q  
        .NameFarEast = "宋体" tI50z khaB  
        .NameAscii = "Times New Roman" 'Okitq+O  
        .NameOther = "宋体" ! K? o H  
        .Name = "宋体" 9>~UqP9  
        .Size = 12               '小四号 T&Dt;CSF  
        .Bold = True b;$ -s \%  
        .Outline = False ^]mwL)I}  
        .Italic = wdUndefined tln* Baq  
        .Subscript = wdUndefined vd7%#sHH&  
        .Superscript = wdUndefined { ?p55o  
    End With !(\OT  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat 'VA\dpa{J  
         ""`>v`\  
        .LeftIndent = CentimetersToPoints(0) S"?py=7  
        .RightIndent = CentimetersToPoints(0) (lv|-Phc.  
        .FirstLineIndent = CentimetersToPoints(0) BNU]NcA#*,  
         B"N8NVn  
        .LineSpacingRule = wdLineSpaceSingle :ie7HF  
        .Alignment = wdAlignParagraphLeft CD#:*  
         KQsS)ju  
        .WidowControl = True 9( ;lcOz  
        .KeepWithNext = True a<+Qw'  
        .KeepTogether = True $<^4G  
        .PageBreakBefore = False ]'Y vI!r  
        .OutlineLevel = wdOutlineLevelBodyText 0gNwC~IA8  
         I}oxwc  
        .CharacterUnitLeftIndent = 0 [\N,ow,n  
        .CharacterUnitRightIndent = 0 b 62 o  
        .CharacterUnitFirstLineIndent = 2 .<JD'%?"  
         rAqg<fR*  
        .LineUnitBefore = 0 (1e;7sNG@  
        .LineUnitAfter = 0 + >o/Ob  
         e-<fkU9^W  
    End With i9}n\r0=c  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False b~\gV_Z  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll zo66=vE!  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese [uO
W \)`  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True ,=KJ7zIK?  
    DoEvents }N;c  
     [~$Ji&Dd  
    '正文校式 5A]IiX4Z  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") Ko%&~C_  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" x#yL&+'?Mj  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False 75vd ]45as  
    With ActiveDocument.Styles("QLNU正文").Font hg7`jE&2  
         d!) &@k  
        .NameFarEast = "宋体" ,sPsL9]$  
        .NameAscii = "Times New Roman" rtcY(5Q  
        .NameOther = "宋体" 9ls<Y  
        .Name = "宋体" FY"!%)TV  
         = !D<1<  
        .Size = 12               '小四号 H?8uy_Sc  
         "Yw-1h`fR  
        .Bold = wdUndefined kE QT[Lo  
        .Italic = wdUndefined )W9$_<Z  
        .Subscript = wdUndefined r.M8#YL  
        .Superscript = wdUndefined CFD& -tED&  
         p1t9s N,  
        .Outline = False "El$Sat`  
        .Emboss = False +=I_3Wtth  
        .Shadow = False u->UV:
u  
        .Hidden = False rlu{C4l  
         {xr!H-9ZAA  
        .DisableCharacterSpaceGrid = True ^!^8]u<Q  
    End With `WF?87l1  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat r-]Au -  
         b\~rL,7(  
        .LeftIndent = CentimetersToPoints(0) qA:CV(Z  
        .RightIndent = CentimetersToPoints(0) . (*V|&n  
        .FirstLineIndent = CentimetersToPoints(0) K V^`  
         hnS ~r4  
        .LineSpacingRule = wdLineSpaceExactly  $oK,&_  
        .LineSpacing = 20 Gad!}dz  
        .Alignment = wdAlignParagraphLeft +GMM&6<  
         K9   
        .WidowControl = False %Bg} a  
        .KeepWithNext = False o2?[*pa  
        .KeepTogether = False l'-dB  
        .PageBreakBefore = False UMUr"-l =  
        .Hyphenation = False *EOIgQp  
         h &9Ld:p  
        .OutlineLevel = wdOutlineLevelBodyText /yn1MW[.  
         y6Xfddd61  
       FCQIfJ#  
        .CharacterUnitLeftIndent = 0 04NI.Jv  
        .CharacterUnitRightIndent = 0 !$hrK6o  
        .CharacterUnitFirstLineIndent = 2 ~$w-I\Q!  
         R(@7$  
        .LineUnitBefore = 0 %,%s09tO  
        .LineUnitAfter = 0 C$ cX{hV  
        .SpaceBefore = 0 hfP}+on%  
        .SpaceAfter = 0 # 4`*`)%  
         V_Kpb*3
 
        .DisableLineHeightGrid = True ,eD@)K_:  
    End With LoUi Yf  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False C)`ZI8  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll |mV*HdqU  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese OtJYr1:y_  
    ActiveDocument.Styles("QLNU正文").NoProofing = True fKIwdk%!-  
    DoEvents _m0HgLS~  
     rFZB6A<(]  
    '图片段落样式 5~4I.+~8  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") 8m1@l$  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" ":?>6'*1  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False t`03$&Cx7  
    With ActiveDocument.Styles("QLNU图片段落").Font rs2~spN;h  
        .Size = 12               '小四号 %stZ'
IX  
        .Italic = wdUndefined a?E]-Zf  
        .Subscript = wdUndefined ?sDm~]Z  
        .Superscript = wdUndefined Rj9ME,u  
    End With 0wXfu"E{  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat ^Qz8`1`;Z  
         #B:J7&@fn  
        .LeftIndent = CentimetersToPoints(0) K^?yD   
        .RightIndent = CentimetersToPoints(0) VcIsAK".4[  
        .FirstLineIndent = CentimetersToPoints(0) :6PWU$z$7  
         3JEH sYxs  
        .LineSpacingRule = wdLineSpaceSingle ya{vR* '~  
        .Alignment = wdAlignParagraphCenter MzYTEe&-L  
        .KeepWithNext = True K$(&Qx}  
        .OutlineLevel = wdOutlineLevelBodyText !TP8LQ  
         h>$,97EU  
        .CharacterUnitLeftIndent = 0 ' ^gF  
        .CharacterUnitRightIndent = 0 hFuS>Hx  
        .CharacterUnitFirstLineIndent = 0
ovzIJbf  
         +pc_KR  
        .LineUnitBefore = 0 wA) NB  
        .LineUnitAfter = 0 qrO]t\  
    End With b,/fz6 {N  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False ^"K
 
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll yAR''>  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese g1
muT.W]S  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True r Y|'<$wvg  
    DoEvents 4fw>(d(2  
      IPa08/  
     D|9C|
q  
    '第X章 /L'm@8  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") g}|a-  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" u-Ct-0  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False vlIet$k  
    With ActiveDocument.Styles("QLNU章节标题").Font 
A
,e/y  
        .NameFarEast = "黑体" DSYtj}>  
        .NameAscii = "Arial Black" =A9>Ej /  
        .NameOther = "Arial Black" *aS|4M-  
        .Name = "黑体" hE-`N,i}  
        .Size = 16 *RUB`tEL  
        .Bold = True ?2OT:/I,  
        .UnderlineColor = wdColorAutomatic |uV1S^!A  
        .Outline = False e"hm|'  
        .Italic = wdUndefined Yi&;4vC  
        .Subscript = wdUndefined V\ %;S  
        .Superscript = wdUndefined f!e8xDfA  
        .Scaling = 100 #>O,w0<qM  
        .DisableCharacterSpaceGrid = True \`jFy[(Pa'  
    End With #nX0xV5=  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat <<LmO-92  
        .LineSpacingRule = wdLineSpaceSingle n99:2r_  
        .Alignment = wdAlignParagraphCenter yEtI5Qk  
        .WidowControl = True r^_8y8&l  
        .KeepWithNext = True $$<9tqA  
        .KeepTogether = True SG |!wH^  
        .PageBreakBefore = True Crh5^?  
        .OutlineLevel = wdOutlineLevelBodyText ~ygiKsD6b  
         9c9-1iS  
        .LeftIndent = CentimetersToPoints(0) vLDMa>  
        .RightIndent = CentimetersToPoints(0) 2V/A%  
        .FirstLineIndent = CentimetersToPoints(0) ;gy_Qf2U  
         .}kUD]pW  
        .CharacterUnitLeftIndent = 0 +`u]LOAyP=  
        .CharacterUnitRightIndent = 0 r-'\<d(J$  
        .CharacterUnitFirstLineIndent = 0 yfiRMN"2  
         NS-u,5Jt  
        .LineUnitBefore = 1 U
d^+a H  
        .LineUnitAfter = 0.5 I/jMe'Kp  
         IE: x&q`3  
        .AutoAdjustRightIndent = False G%;XJsFGp  
        .DisableLineHeightGrid = True 9 }|Bs=q  
        .FarEastLineBreakControl = True oiJa1X  
        .WordWrap = True 5*[zIKdt2  
    End With MA.1t  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False 4otB1{  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll }C"EkT!F  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese ?(*KQ#d  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True @7 &rDZ  
    DoEvents jkQv cU  
     5b0Ipg  
    '表格标题 Ko\m8\3?fK  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ;T/W7=4CZ  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" .=3Sm%  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False +>KWYPH  
    With ActiveDocument.Styles("QLNU表格标题").Font U&C\5N]  
        .NameFarEast = "楷体" ^>h
9<  
        .NameAscii = "Arial" S"CsY2;  
        .Name = "楷体" 3T# zxu  
        .Size = 10.5 Ayc}uuu  
        .Bold = True 
}/x `w  
        .Underline = wdUnderlineNone 9Vxsv*OR,  
        .Italic = wdUndefined yrR<F5xge  
        .Subscript = wdUndefined RQy|W}d_  
        .Superscript = wdUndefined ;dRTr *  
        .Color = wdColorAutomatic ?=_l=dR  
    End With 3*CF!Y%  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat <\8dh(>  
         =:P9 $  
        .LineSpacingRule = wdLineSpaceSingle @ Rig@  
        .Alignment = wdAlignParagraphCenter 93kSBF#  
        .KeepWithNext = True W!4GL>9m}A  
        .KeepTogether = True }(Nb]_H  
        .OutlineLevel = wdOutlineLevelBodyText <po.:c Ce  
         `XP]y=  
        .LeftIndent = CentimetersToPoints(0) _Z#yI/5r  
        .RightIndent = CentimetersToPoints(0) )6PZ.s/F6p  
        .FirstLineIndent = CentimetersToPoints(0) g (ZeGNV8  
         ^>.?kh9z  
        .CharacterUnitLeftIndent = 0 mJc'oG-  
        .CharacterUnitRightIndent = 0 %LXk9K^]e  
        .CharacterUnitFirstLineIndent = 0 2[[pd&MJZ  
         NAZ xM9  
        .LineUnitBefore = 1 9j49#wG0"B  
        .LineUnitAfter = 0 +NxEx/{  
         llhJ,wD  
    End With t B&D~M6[  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False 6?+bi\6  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll P}~6y X  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese 3xsC"c>  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True Y{1IRP?S  
    DoEvents JiDX|Q<c  
0+P_z(93?  
    '表格首行 6f?5/hq  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle")  
,'= Y  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False AQ32rJT8c`  
    With ActiveDocument.Styles("QLNU表格首行").Font 1jh^-d5  
        .NameFarEast = "楷体" NVS U)#  
        .NameAscii = "Times New Roman" )$P!7$C-  
        .Name = "楷体" (jPN+yQ  
        .Size = 9 LZ|G"5X[  
        .Bold = True H_ .@{8I  
        .Underline = wdUnderlineNone 9:!n'mn  
        .Italic = wdUndefined (5_l7hWY  
        .Subscript = wdUndefined +V dYT6{p  
        .Superscript = wdUndefined )Y\},O  
    End With #h/-  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat 16keCG\  
        .LineSpacingRule = wdLineSpaceSingle J}i$ny_3OB  
        .Alignment = wdAlignParagraphCenter $T^O38$  
         8|dlt$  
        .LeftIndent = CentimetersToPoints(0) j08G-_Gjn  
        .RightIndent = CentimetersToPoints(0) Wgq*|teW  
        .FirstLineIndent = CentimetersToPoints(0) "}\z7^.W>  
         -[~{c]/c  
         s_.q/D@vu  
        .CharacterUnitLeftIndent = -0.5 |5F]y"Nb  
        .CharacterUnitRightIndent = -0.5 []1VD#  
        .CharacterUnitFirstLineIndent = -0.5 RA+Y./*h  
         /]>&OSV  
        .LineUnitBefore = 0 hnvn&{|  
        .LineUnitAfter = 0 ]QtdT8~  
        .SpaceBefore = 0 xHJ+!   
        .SpaceAfter = 0 _Eq:Qbw#  
         )qn =  
    End With {3$ge  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False C&NoEtL>s  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll 59$mfW o>  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese 7_E+y$i=  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True S%Pk@n`z]  
    DoEvents 6%U1%
;  
w{F8]N>0<  
    '表格内容 cGsP0LkHC  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") yf3%g\k  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False 9H1R0iWW  
    With ActiveDocument.Styles("QLNU表格内容").Font \r324Bw>2  
        .NameFarEast = "楷体" q}ZZqYk  
        .NameAscii = "Times New Roman" "o<:[c9/  
        .Name = "楷体" 9V.)=*0hp  
        .Size = 9 b\UQ6V  
        .Bold = False S?OK
@UEJ  
        .Underline = wdUnderlineNone @K4} cP  
        .Italic = wdUndefined .#5<ZAh/?  
        .Subscript = wdUndefined M4nM%qRGQ  
        .Superscript = wdUndefined +SrE  
    End With 1^}()H62}  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat 67 7p9{:  
        .LineSpacingRule = wdLineSpaceSingle 0w8Id . ,  
        .Alignment = wdAlignParagraphCenter <rRmbFH#  
         $SG^, !!&A  
        .LeftIndent = CentimetersToPoints(0) vFL3eu#  
        .RightIndent = CentimetersToPoints(0) Q7"KgqpQ3  
        .FirstLineIndent = CentimetersToPoints(0) e~'y%|D  
         2i |wQU5w  
        .CharacterUnitLeftIndent = -0.5 ]v rpr%K  
        .CharacterUnitRightIndent = -0.5 3hO`GM  
        .CharacterUnitFirstLineIndent = -0.5 @]H&(bw  
        .LineUnitBefore = 0 a}
M7"
v9  
        .LineUnitAfter = 0 P6i4Dr  
        .SpaceBefore = 0 GQ2&D}zh  
        .SpaceAfter = 0 PLFM[t/  
    End With #8;^ys1f  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False tI*u"%#t  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll [53@ '@26  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese +]I;C  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True ujmW {()  
    DoEvents ^zsCF0  
+**H7: bO  
    '图片标题 ^T(l3r  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") L@CN0ezQs  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" rU<  H7U  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False &r~~1BnpHm  
    With ActiveDocument.Styles("QLNU图片标题").Font P%'bSx1  
        .NameFarEast = "楷体" w]tv<U={  
        .NameAscii = "Times New Roman" U+@ yx>!  
        .Name = "楷体" ^=OjsN

 
        .Size = 10.5  t
Z\  
        .Bold = True Ip.5I!h[Xb  
        .Underline = wdUnderlineNone Q`5jEtu#,  
        .Italic = wdUndefined L9fhe,en  
        .Subscript = wdUndefined > 5/dmHPc  
        .Superscript = wdUndefined 75!IzJG  
        .Outline = False eK/[ jxNO  
        .Shadow = False v :6`(5  
        .Color = wdColorAutomatic Bwb3@vNA  
    End With Haj`mc!<D0  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat AJt0l|F  
        .LineSpacingRule = wdLineSpaceSingle 4%\L8:  
        .Alignment = wdAlignParagraphCenter kL*Q})  
         n3 isLNvIp  
        .KeepWithNext = wdUndefined HY5g>wv@  
        .KeepTogether = True 4{CVBowi  
        .OutlineLevel = wdOutlineLevelBodyText zclt2?  
         .}SW`RPk  
        .LeftIndent = CentimetersToPoints(0) "h$A.S  
        .RightIndent = CentimetersToPoints(0) E^A9u
|x  
        .FirstLineIndent = CentimetersToPoints(0) 72~)bu
 
         f]T#q@|lE  
        .CharacterUnitLeftIndent = 0 IH}?CZ@{?  
        .CharacterUnitRightIndent = 0 lsJ'dS  
        .CharacterUnitFirstLineIndent = 0 U+~0m!|4  
         qZKU=HM  
        .LineUnitBefore = 0 #jA|
04w  
        .LineUnitAfter = 0 6D{|!i|r4  
    End With ^Ye
nS6`F  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False RBt"7'  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll TeHL=\L-^  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese Wf0ui1@  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True wd..{j0&  
    DoEvents :#d$[:r#  
Kk9 JZ[nT'  
    '目录项 Q&`$:h.~  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") {s=QwZdR  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" 9WtTUk
 
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False {r[*}Bv  
    With ActiveDocument.Styles("QLNU目录项").Font p8Lb*7W  
        .NameFarEast = "黑体" [FF%HRce,.  
        .NameAscii = "Times New Roman" BI4p3-  
        .NameOther = "Times New Roman" p*#SSR9<  
        .Name = "黑体" cU%#oEMf<  
        .Size = 10.5 ,6i67!lb  
        .Bold = False h!yF  
        .Italic = wdUndefined c!{.BgGN  
        .Underline = wdUnderlineNone dfc-#I p?  
        .Color = wdColorAutomatic ?v8RY,Q30  
        .Superscript = wdUndefined r A0[y  
        .Subscript = wdUndefined -Zocu<Rs  
    End With 2#T|+mKxZM  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat RX?Nv4-  
         (tyo4Tz1  
        .LineSpacingRule = wdLineSpaceSingle kRSu6r 9  
        .Alignment = wdAlignParagraphLeft i1FFf[[L  
         fJc,KZy  
        .WidowControl = False Xw9,O8}C7  
        .KeepWithNext = False KkJ cHU  
        .KeepTogether = False v SHb\V#  
        .PageBreakBefore = False &Vnet7L fU  
        .NoLineNumber = False @iC
!Q>D  
        .OutlineLevel = wdOutlineLevelBodyText J>!p^|S{  
         I4qzdD  
        .LeftIndent = CentimetersToPoints(0) \Qu~iB(Y  
        .RightIndent = CentimetersToPoints(0) )c]GgPH  
        .FirstLineIndent = CentimetersToPoints(0)  Gp@Y=mU  
         8 l}tYl`|  
        .CharacterUnitLeftIndent = 0 | 2p\M?@  
        .CharacterUnitRightIndent = 0 sl |S9Ix  
        .CharacterUnitFirstLineIndent = 0 X*$ 7g;  
         iu*u|e  
        .LineUnitBefore = 0 h-lMrI)U?h  
        .LineUnitAfter = 0  ?o9l{4~g  
    End With _ f^q!tP&d  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False =Q3Go8b4HJ  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll r;upJbSX  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot o=;.RYi  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese wqA5GK>m2  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True )ckx&e  
    DoEvents &[R&@l Y  
     (5_oH  
    '参考文献 W%0-SR  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") '~liDz*O   
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" vQ u) uml  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False tQo"$ JN}  
    With ActiveDocument.Styles("QLNU参考文献").Font nHyWb6  
        .NameFarEast = "宋体" G\jr^d\  
        .NameAscii = "Times New Roman" :T%,.sH  
        .NameOther = "Times New Roman" n9cWvy&f  
        .Name = "Times New Roman" -}4H'%Z(i  
        .Size = 12 Yk?uxZ4)H  
        .Bold = False e!eWwC9u  
        .Italic = wdUndefined rLh490
@  
        .Subscript = wdUndefined ,_\h)R_  
        .Superscript = wdUndefined L?Wl#wP\;*  
        .Underline = wdUnderlineNone 8Q#&=]W$  
        .UnderlineColor = wdColorAutomatic u+8_et5T  
        .Color = wdColorAutomatic PM%./  
        .Engrave = False 6Oo'&3 @  
    End With gJvc<]W8!  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat wT*`Od8w  
         |])%yRAGQ  
        .LineSpacingRule = wdLineSpaceExactly m_\CK5T_  
        .LineSpacing = 16 9L!Vj J  
        .Alignment = wdAlignParagraphLeft ^]E| >~\  
        .WidowControl = False X903;&Cim  
        .KeepWithNext = False _I5p 7X  
        .KeepTogether = False ' nf"u  
        .PageBreakBefore = False >a_K:O|AJ  
        .OutlineLevel = wdOutlineLevelBodyText <C${1FO7If  
         ?G!
^|^S*  
        .LeftIndent = CentimetersToPoints(0) nez5z:7F  
        .RightIndent = CentimetersToPoints(0) g.F{yX]  
        .FirstLineIndent = CentimetersToPoints(0) F^A1'J  
         $Cc4Sggq  
        .CharacterUnitLeftIndent = 0 ;h/Y9uYn  
        .CharacterUnitRightIndent = 0 _IT,> #ba  
        .CharacterUnitFirstLineIndent = -2 8b6:n1<fn  
         F^`sIrZvs  
        .LineUnitBefore = 0 RoJ&dK  
        .LineUnitAfter = 0 ;#rtV ;  
        .SpaceBefore = 0 `z+:Z>>  
        .SpaceAfter = 0 U?xl%qF`)  
         G >#L  
    End With kE6\G}zj  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False t@4X(i0  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll &S3szhe  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS -pg7>vOq  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True %\:.rs^  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese aL#b8dCy'  
    DoEvents B: {bmvy  
]6=cSs!  
    ' Ij#%Qu  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") pjjs'A*y  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" r8Gq\
^  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False 6"ZQN)7  
    With ActiveDocument.Styles("QLNU论文题目").Font 1<bSHn9  
        .NameFarEast = "黑体" &^&k]JBaV  
        .NameAscii = "Arial Black" W%vh7>.  
        .NameOther = "Arial Black" \?g)
jY  
        .Name = "Arial Black"  $JX_e  
        .Size = 16 %,6@Uu#%6  
        .Bold = False N_/&xHw  
        .Italic = wdUndefined 0F
Eb[+N  
        .Superscript = wdUndefined QbOmJQ  
        .Subscript = wdUndefined QD\S E  
        .Underline = wdUnderlineNone RsTpjY*Xb  
        .UnderlineColor = wdColorAutomatic 3 5|5|ma  
        .Color = wdColorAutomatic *dUnP{6g  
8MW|C M4Q  
    End With Nm\I_wjX  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat }=XL^a|V  
        .LineSpacingRule = wdLineSpaceSingle }o)GBWqHR  
        .Alignment = wdAlignParagraphCenter 2Ybz`O!  
        .WidowControl = True m#%5H  
        .KeepWithNext = True ]!0*k#i_.  
        .KeepTogether = True =_ -@1 1a  
        .PageBreakBefore = True 5%tIAbGW  
        .NoLineNumber = False nwO;>Qr  
        .OutlineLevel = wdOutlineLevelBodyText 7p u*/W~  
         FUq@ dUv  
        .LeftIndent = CentimetersToPoints(0) {&K#~[)  
        .RightIndent = CentimetersToPoints(0) [Hn+r&  
        .FirstLineIndent = CentimetersToPoints(0) (CuaBHR  
         ^IQC:21  
        .CharacterUnitLeftIndent = 0 -qx Z3   
        .CharacterUnitRightIndent = 0 W-Hw%bwN/q  
        .CharacterUnitFirstLineIndent = 0 VZ_4B *D  
         F\Tlpp9  
        .LineUnitBefore = 1 2"V?+Hhz  
        .LineUnitAfter = 1 d/R:-{J)c  
         yDy3;*lE  
        .BaseLineAlignment = wdBaselineAlignAuto F_V~UX1D  
    End With We9C9)0  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False mE^6Zu  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll <
7^_M*F9  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS (sr_&7A  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True 8iX?4qj{P  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese HC!$Z`}Y  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True 1s!hl{n<~  
    DoEvents IybMO5Mwn  
     =>S5}6  
    '中文摘要 ;=UrIA@y;=  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") W P.6ea7k  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" 4(B,aU>y  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False RQ/X{<lQ)  
    With ActiveDocument.Styles("QLNU中文摘要").Font !f7}5/YC7v  
        .NameFarEast = "宋体" 7/aJ?:gX  
        .NameAscii = "Times New Roman" nM}X1^PiK"  
        .NameOther = "Times New Roman" #C!8a  
        .Name = "Times New Roman" {u9VHAXCf  
        .Size = 12 V3I&0P k  
        .Bold = wdUndefined O a-ZeCq  
        .Superscript = wdUndefined 9"MC<  
        .Subscript = wdUndefined yt_?4Hc"  
        .Italic = wdUndefined M-|4cd]6  
        .Underline = wdUnderlineNone A"S})  
        .UnderlineColor = wdColorAutomatic %)q5hB  
        .Color = wdColorAutomatic 5F <zW-;  
    End With
;t*45  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat xj%
h-@o6  
        .LineSpacingRule = wdLineSpaceExactly ,ci tzh  
        .LineSpacing = 20 (A(d]l  
        .Alignment = wdAlignParagraphLeft "v^Q !  
         hnG'L*HooE  
        .WidowControl = False fkk\Q>J9!=  
        .KeepWithNext = False ^>k[T.  
        .KeepTogether = True DZLSn Ax  
        .PageBreakBefore = False i~l0XjQbs  
        .NoLineNumber = False <VgnrqF6:  
        .OutlineLevel = wdOutlineLevelBodyText ze,HNFg@>  
         jF-z?  
        .LeftIndent = CentimetersToPoints(0) 5QMu=/  
        .RightIndent = CentimetersToPoints(0) Y Xn)?  
        .FirstLineIndent = CentimetersToPoints(0) VCvuZU{<  
         4-cnkv\~  
        .CharacterUnitLeftIndent = 0 =I7#Vtd^K<  
        .CharacterUnitRightIndent = 0 M;3uG/E\  
        .CharacterUnitFirstLineIndent = 2 O'$:wc#  
        .LineUnitBefore = 0 pD`7N<F 3  
        .LineUnitAfter = 0 pw&l.t6 .  
         v*]|1q%/  
    End With ^*}L 9Ot~  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False M^+~r,D1u  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll = #ocp  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS 8 +uOYNXsA  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True *^" 4 )  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese Ybd){Je "z  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True *"1]NAz+  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete c%i/ '<Afr  
    DoEvents 2r[Q$GPM<  
     D97oS!*  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") SDdK5@1O4o  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" bl}$ x/  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False f]o DZO%^  
    With ActiveDocument.Styles("QLNU英文标题").Font 9e8@0 ?0  
        .NameFarEast = "黑体" o a;[[2c  
        .NameAscii = "Arial Narrow" =_L"x~0I-  
        .Name = "Arial Narrow" -+ $ u  
        .Size = 16 w 7=Y_  
        .Bold = True 37M7bB0  
        .Bold = wdUndefined QD /| zi  
        .Superscript = wdUndefined cWh Aj>?_Q  
        .Subscript = wdUndefined $K;4=zN>t:  
        .Italic = wdUndefined P1z 6sGG  
         !|Vjv}UO  
        .Underline = wdUnderlineNone u%h]k ,(E  
        .UnderlineColor = wdColorAutomatic |h6)p;`gc  
        .StrikeThrough = False ,'82;oP4  
        .DoubleStrikeThrough = False Ct"h.rD]  
    End With L>pP3[~DV  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat 6>bKlYl&9  
        .LineSpacingRule = wdLineSpaceSingle 0g`WRe  
        .Alignment = wdAlignParagraphCenter 1N:eM/a  
        .WidowControl = True d![EnkyL;  
        .KeepWithNext = False @@!t$dD  
        .KeepTogether = False )"j_NlO  
        .PageBreakBefore = False WY<ip<  
        .NoLineNumber = False a>""MC2  
        .FirstLineIndent = CentimetersToPoints(0) iM}cd$r{  
        .OutlineLevel = wdOutlineLevelBodyText PjRKYa_U  
         80:na7$)#  
        .LeftIndent = CentimetersToPoints(0) Wq"
pKI#x  
        .RightIndent = CentimetersToPoints(0) +J.^JXyp0  
        .FirstLineIndent = CentimetersToPoints(0) uOm fpgO  
         .}a@OLJd  
        .CharacterUnitLeftIndent = 0 nLo:\I(  
        .CharacterUnitRightIndent = 0 0]i#1Si~@  
        .CharacterUnitFirstLineIndent = 0 MO/l(wO  
         $,'r} %  
        .LineUnitBefore = 1 .Jou09+  
        .LineUnitAfter = 1 \n+`~< i  
         p[g!LD  
    End With 0/-[k  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False _Se>X=  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll KDHR}`  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS xa!@$w=U&  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True e2/[`k=7-  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese pMs%`j#T  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True KOwEw~  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete C7)].vUN  
    DoEvents l^"g
pO${K  
Kd^ ._  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") 9J l9\y9  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" G0a
UZCw  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False |urohua  
    With ActiveDocument.Styles("QLNU英文摘要").Font ^"*r'  
        .NameFarEast = "宋体" sQTW?KA-Te  
        .NameAscii = "Arial" NhpGa@[D  
        .NameOther = "Arial" B4U+q|OD#  
        .Name = "Arial" &b{L|I'KYT  
        .Size = 12 7!L"ef62o  
        .Bold = wdUndefined NV*
t  
        .Italic = wdUndefined ,4EE9 ?J  
        .Superscript = wdUndefined 5TzMv3;in2  
        .Subscript = wdUndefined kO/dZ%vj  
    End With Av+
R~ &h  
     O% 9~1_  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat 97<Y. 0  
         w[]7{D];  
        .LineSpacingRule = wdLineSpaceExactly W)j/[  
        .LineSpacing = 20 U_oMR$/Z  
         O:k@'&  
        .Alignment = wdAlignParagraphJustify gIRFqEz@o  
         |bB..b  
        .WidowControl = False h9SS o0]F  
        .KeepWithNext = False lD 9'^J  
        .KeepTogether = False ;~xkT'  
        .PageBreakBefore = False <q
v:7@  
        .NoLineNumber = False o5AyJuS-u$  
         H-0deJ[>  
        .OutlineLevel = wdOutlineLevelBodyText ]TD]
  
         'B6D&xn'%&  
        .LeftIndent = CentimetersToPoints(0) O+z-6:`  
        .RightIndent = CentimetersToPoints(0) JnPA;1@/  
        .FirstLineIndent = CentimetersToPoints(0) 1.jW^sM  
         [R& P.E7w'  
        .CharacterUnitLeftIndent = 0 rS6iZp,  
        .CharacterUnitRightIndent = 0 MhJq~G p  
        .CharacterUnitFirstLineIndent = 2 4sROMk=l
  
         &eg]8kV  
        .LineUnitBefore = 0 E ~{-RZNK  
        .LineUnitAfter = 1 -u)06C*39  
         X~n Kuo  
    End With [ub,&j^  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False 5E}0
<&  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll q$U;\Mg)  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS oX!s u  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False -OVJ]  
    DoEvents CDR^xo5 dP  
@HaWd3  
    Options.Pagination = True 2u#
{K9g  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." ygT,I+7\  
    DoEvents /m9t2,KB  
    ActiveDocument.Repaginate /C3=-Hp  
&/Tx@j^.C  
End Sub = `70]%  
_khQ  
?Y
z.t g  

姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。  AZ!G-73  
,0#OA*0B  

引用

引用第20楼newport93于06-14-2010 13:47发表的  : ?nUV3#6{  
7"8HlOHA  
老五，I 服了U。 ]T zN*6o  
a$9UUH-|  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 !j7b7<wR  

t }*teo[