Dim bContinue As Boolean ,]2?S5R  
FFcCoPX_  
Dim regEX As New RegExp gA(npsUHI  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 cWkg.ri-x  
<x^$Fu
 
Dim LastTitle0String As String, LastTitle0No As Long imYfRi=$  
Dim LastTitle1String As String, LastTitle1No As Long fI)XV7,X  
Dim LastTitle2String As String, LastTitle2No As Long sq_>^z3T  
Dim LastTitle3String As String, LastTitle3No As Long /@ @F nQ++  
Dim LastTitle4String As String, LastTitle4No As Long O0#[hY,  
Dim LastTitle5String As String, LastTitle5No As Long i86:@/4~F  
Dim LastTabelString As String, LastTableNo As Long ;pW8a?  
Dim LastFigureString As String, LastFigureNo As Long }MRgNr'k  
TI7$
J #  
Dim strSeperator As String |"SZp
x  
%`&n ;K.c  
Sub ConvertWidth(fTEXT As String, rText As String) ISpV={$Zd  
        Selection.Find.ClearFormatting C{J5:ak  
        Selection.Find.Replacement.ClearFormatting
k-| g  
        Selection.Find.Wrap = wdFindContinue :.*Q@X}-I  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText f 1_;da  
        DoEvents >+dSPI  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True eA!Z7  '  
End Sub M?h{'$T  
kBR=a%kG  
Sub ClearDomain() Og7yT{h_  
        With Selection.Find ['}|#
3*w  
            .ClearFormatting A?lLK&*  
            .Replacement.ClearFormatting /(BS<A  
            .Wrap = wdFindContinue aA|{r/.10K  
            Me.txtStatus.Text = "清除所有域代码" kT@ITA22  
            DoEvents SF:98#pg  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False <=7nTcO~  
        End With Ww-x+U\l  
End Sub '
0+I'_(  
FTZ=u0  
Private Sub cmdCheck_Click() Zmyq6.1q~  
    bContinue = True 6LDZ|K@  
    Dim NoSeries1(1 To 16) As String z[c8W@OJ  
    Dim NoSeries2(1 To 16) As String I_ZJnu<  
    Dim NoSeries5(1 To 16) As String hH1Q:}a  
    Dim NoSeriesRM(1 To 16) As String 5?>4I"ne  
    Dim paraTotal As Long, ParaText As String / 3N2?zS{  
    Dim ttString As String, ttNo As String h.vy SwF"j  
     k_V+;&:%  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long uQO5GDuK>  
utZI'5i  
    Me.txtStatus.Visible = True oDA'$]UL  
    Me.lbParaType.Visible = True r*`e%`HU   
    Me.cmdCheck.Enabled = False V|'@D#\  
     #H~55))F  
     SiaNL:  
     lubsLI  
     #,#_"  
    Dim ParaType As String, rText As String lm4A%4-db  
     %]LoR$|Y  
    Selection.WholeStory yQrgOdo,w  
    Selection.NoProofing = True W/2y;@  
     Z2]0brV  
    tm1 = Now 2.Vrh@FNRo  
     _R\F
B|_  
        ActiveWindow.View.Type = wdNormalView =T[P  
     e#;43=/Ia  
    NoSeries1(1) = "一" ,"`20
.Lv  
    NoSeries1(2) = "二" ]eGa_Ld  
    NoSeries1(3) = "三" Z3TC
i7,m  
    NoSeries1(4) = "四" 3%)cUkD  
    NoSeries1(5) = "五" CB#2XS>V  
    NoSeries1(6) = "六" QlGK+I>y;  
    NoSeries1(7) = "七" :g|.x
  
    NoSeries1(8) = "八" UJ}}H}{  
    NoSeries1(9) = "九" X <xM '  
    NoSeries1(10) = "十" *1dZs~_  
    NoSeries1(11) = "十一" Y5GN7.  
    NoSeries1(12) = "十二" yf:0u_&]  
    NoSeries1(13) = "十三" 9Ad%~qciY  
    NoSeries1(14) = "十四" XE2Un1i}j1  
    NoSeries1(15) = "十五" 1Gr^,Ry  
    NoSeries1(16) = "十六" |Gz<I  
     MM32\}Y6  
    NoSeries2(1) = "㈠" 0BC@wV  
    NoSeries2(2) = "㈡" V4Rs  
    NoSeries2(3) = "㈢" 1/ 9*c *w  
    NoSeries2(4) = "㈣" R1LirZlzJ  
    NoSeries2(5) = "㈤" jI8`trD  
    NoSeries2(6) = "㈥" F7=9> ,  
    NoSeries2(7) = "㈦" PL=v,NB  
    NoSeries2(8) = "㈧" s1_Y~<yX  
    NoSeries2(9) = "㈨" aftt^h  
    NoSeries2(10) = "㈩" ;&j'`t P  
     3~P$p<  
    NoSeries5(1) = "①" F\JS?zt2  
    NoSeries5(1) = "②" wnX;eU/n  
    NoSeries5(3) = "③" RDbNC v#  
    NoSeries5(4) = "④" i 7]o[  
    NoSeries5(5) = "⑤" >V(C>^%->  
    NoSeries5(6) = "⑥" */K[B(G  
    NoSeries5(7) = "⑦" 4xW~@meNB  
    NoSeries5(8) = "⑧" epnZGz,A  
    NoSeries5(9) = "⑨" En&7e  
    NoSeries5(10) = "⑩" 3J"`mQ  
     .vKgiIC:  
     q<E7qY+  
    NoSeriesRM(1) = "I" [s^pP2  
    NoSeriesRM(2) = "II" 7%"|6dw  
    NoSeriesRM(3) = "III" wetu.aMp  
    NoSeriesRM(4) = "IV" ]&]G  
    NoSeriesRM(5) = "V" lD$s, hp  
    NoSeriesRM(6) = "VI" i`@cVYsL  
    NoSeriesRM(7) = "VII" |2^mCL.r  
    NoSeriesRM(8) = "VIII" P[
o"%NZ'  
    NoSeriesRM(9) = "IX" Gk
5'|s  
    NoSeriesRM(10) = "X" C,W@C  
    NoSeriesRM(11) = "XI" MlWKfe<  
    NoSeriesRM(12) = "XII" e2=}qE7
 
    NoSeriesRM(13) = "XIII" zdJPMNHg  
    NoSeriesRM(14) = "XIV" PJB_"?NTTC  
    NoSeriesRM(15) = "XV" ;b [>{Q;  
    NoSeriesRM(16) = "XVI" \*CXXp`  
     LE}`rW3  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) 6E) T;R(@  
     LkJq Bg  
    If i = vbNo Then X{#^O/  
        Exit Sub TYuP EVEXZ  
    End If -`q!mdA2  
     _(f@b1O~
 
    If Me.chkSuper.Value Then |gA@$1+}  
        Me.txtStatus.Text = "检查修改所有的上标格式" z\tY A  
     "T5jz#H#/  
        CheckSuperScript 5]*lH t  
         @~2k5pa  
    End If bsu?Q'q  
     ]xvhUv!G  
    If Me.chkStyle.Value Then @].s^ss9_  
        Me.txtStatus.Text = "设置样式，请稍候...." |5;,]lbt  
        DoEvents E4Q`)6]0  
        CeateOrModifyStyle v>K|hH  
    End If 65zwi-  
     Tr;.%/4Q  
     <T7@,_T  
     |h $Gs2  
    ClearDomain auN
8M.  
         Ia](CN*;6  
     l atm_\  
     Qf0P"s`  
    If Me.chkLIST.Value Then C3 "EZe[R  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" { @KLN<  
     ^kNVQJiZyG  
        ConvertListToOrdinary Q%aF ~  
    End If `{YOl\d_  
     A
&1EOQ=N  
     A(&\wd  
    Dim pType As String, trimpTEXT As String 0i[t[_sce  
    If Me.chkNum.Value = True Then yzfiH4  
        Me.txtStatus.Text = "转换全角数字形式为半角" 1R-0b{w[  
        ConvertWidth "１", "1" 7x`$A  
        DoEvents ;t7F%cDA  
        ConvertWidth "２", "2" WClprSl 8  
        DoEvents <*iFVjSI(  
        ConvertWidth "３", "3" iU.` TqR7  
        DoEvents <8
%+-[(  
        ConvertWidth "４", "4" mu0L_u(P  
        DoEvents u^C\aujg  
        ConvertWidth "５", "5"  @B{  
        DoEvents ,?U(PEO\f  
        ConvertWidth "６", "6" t#M[w|5?  
        DoEvents ';.TQ_I7Y  
        ConvertWidth "７", "7" OtL~N TY  
        DoEvents 7y&=YCkc7  
        ConvertWidth "８", "8" LL:N/1ysG  
        DoEvents 2 O(k@M5E?  
        ConvertWidth "９", "9" UV%o&tv|<  
        DoEvents :6C R~p  
        ConvertWidth "０", "0" 5D3&E_S  
        DoEvents t`&mszd~T  
        ConvertWidth "ａ", "a" XH0{|#hwN  
        DoEvents )+G0m,n  
        ConvertWidth "ｂ", "b" si%V63^lN  
        DoEvents G8F;fG N  
        ConvertWidth "ｃ", "c" bg3kGt0  
        DoEvents  U'b}%[  
        ConvertWidth "ｄ", "d" 0F!Uai1  
        DoEvents n"iaE  
        ConvertWidth "ｅ", "e" xg%{p``  
        DoEvents dh}"uM}a  
        ConvertWidth "ｆ", "f" 2:.$:wS  
        DoEvents :zC=JvKT  
        ConvertWidth "ｇ", "g" _j$V[=kdM/  
        DoEvents ]nV_K}!w  
        ConvertWidth "ｈ", "h" ZyU/ .Uk  
        DoEvents 6;Izw$X  
        ConvertWidth "ｉ", "i" !U5Cwq  
        DoEvents  svo%NQ  
        ConvertWidth "ｊ", "j" k!qOE\%B  
        DoEvents 1\-lAk!   
        ConvertWidth "ｋ", "k" d?U ,}tv  
        DoEvents fX:G;vYn  
        ConvertWidth "ｌ", "l" Lo'G
fHE  
        DoEvents QncjSaEE  
        ConvertWidth "ｍ", "m" S% ptG$Z  
        DoEvents 9%k4Ic%P  
        ConvertWidth "ｎ", "n" y54RD/`-  
        ConvertWidth "ｏ", "o" vRmzj
d~  
        ConvertWidth "ｐ", "p" Qmd2C&Xw  
        ConvertWidth "ｑ", "q" V'.gE6we  
        ConvertWidth "ｒ", "r" /jaO\
t'q  
        ConvertWidth "ｓ", "s" t(,2x%{  
        ConvertWidth "ｔ", "t" zxv y&  
        ConvertWidth "ｕ", "u" L(y~ ,Kc  
        ConvertWidth "ｖ", "v" fm%4ab30T  
        ConvertWidth "ｗ", "w" pOy(XUV9O  
        ConvertWidth "ｘ", "x" WFug-#;e  
        ConvertWidth "ｙ", "y" WVyq$ p/V  
        ConvertWidth "ｚ", "z" %RIu'JXi  
        ConvertWidth "Ａ", "A" DS|x*w'I  
        ConvertWidth "Ｂ", "B" bMqS:+  
        ConvertWidth "Ｃ", "C" '6WZi|(a  
        ConvertWidth "Ｄ", "D" /$8 & r  
        ConvertWidth "Ｅ", "E" UWCm:eRQ  
        ConvertWidth "Ｆ", "F" Pmuk !V}f  
        ConvertWidth "Ｇ", "G" 1:h(8%H@"  
        ConvertWidth "Ｈ", "H" 5 U_ar   
        ConvertWidth "Ｉ", "I" `ER#S_}  
        ConvertWidth "Ｊ", "J" K/(Z\lL  
        ConvertWidth "Ｋ", "K" kad$Fp39  
        ConvertWidth "Ｌ", "L" "H=fWz5z  
        ConvertWidth "Ｍ", "M" kYS\TMt,C  
        ConvertWidth "Ｎ", "N" u8~5e  
        ConvertWidth "Ｏ", "O" l9rN!Q|  
        ConvertWidth "Ｐ", "P" BhyLcUBuB  
        ConvertWidth "Ｑ", "Q" T2T?)_f /  
        ConvertWidth "Ｒ", "R" W.7u6F`  
        ConvertWidth "Ｓ", "S" h1j1PRE  
        ConvertWidth "Ｔ", "T" aIfB^M*c5  
        ConvertWidth "Ｕ", "U" w `M/0.)V  
        ConvertWidth "Ｖ", "V" ,;= S\  
        ConvertWidth "Ｗ", "W" iQh:y:Jo1&  
        ConvertWidth "Ｘ", "X" p{V(! v|  
        ConvertWidth "Ｙ", "Y" sYTToanA$?  
        ConvertWidth "Ｚ", "Z" R'1"`@fG  
        ConvertWidth "^l", "^p" ^> d"D  
        ConvertWidth "（", "(" Zg])uM]\2i  
        ConvertWidth "）", ")" C5^N)-]"  
     Mm^6*L]  
    End If 1kc{`oL  
(yeN> x}_  
    With ActiveDocument Iak06E  
        Dim tbl As Table xUs1-O1i  
        For Each tbl In .Tables H#`&!p  
            tbl.Rows.Alignment = wdAlignRowCenter ~bjT,i  
            tbl.Range.Font.NameFarEast = "楷体" \y/0)NL\  
            tbl.Range.Font.NameAscii = "Times New Roman" |R Qa.^.  
            tbl.Range.Font.Size = 10.5 xl,?Hh%#  
        Next SkXx:@  
        Set tbl = Nothing i;+<5
_  
    End With i\L7z)u
 
     M w+4atO4[  
     G>^ _&(c@2  
    With ActiveDocument y{qKb:~wv  
         qB=%8$J  
        For i = 1 To .TablesOfContents.Count 7!, p,|K  
            .TablesOfContents(i).Delete $5yH8JU  
        Next FE?^}VH  
         k$K>ml/h  
         O$&4{h`  
         k{C|{m  
        paraTotal = .Paragraphs.Count v/C*?/ ~  
        paraCounter = 1 ^$\#aTyFK  
         {[FJkP2l  
        LastTitle0No = 0 Hh;o<N>U  
        LastTitle1No = 0 V^p XbDRl  
        LastTitle2No = 0 q/\Hh9`  
        LastTitle3No = 0 af2yng  
        LastTitle4No = 0 &uv7`VT  
        LastTableNo = 0 >:U{o!N`#_  
        LastFigureNo = 0 Nxt z1  
         W#[3a4%m  
        Dim Sec As Long Fm.IRu<\`  
         Z|Xv_Xo|4  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) `lq[6[n  
        If Sec = 0 Then yNmzRH u  
            Exit Sub vn=0
=(  
        End If @$d_JwI  
         c:z<8#A}  
        k = 0 q0]Z` <w  
        Do While (paraCounter < paraTotal) And bContinue *6*/kV?F  
            k = k + 1 p[gq^5WuC  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then J|I&{  
                Exit Do e;)&Hc:Z  
            End If ,n+~S^r  
            paraCounter = paraCounter + 1 E@$HO_;&  
            If k Mod 20 = 0 Then c`G~.paY|  
                Me.lbCounter.Caption = paraCounter V4 Wn  
                DoEvents |zSoA=7?  
            End If %L;'C v  
        Loop +LAjh)m  
         lilF _y  
         nHi6$} I  
        Do While (paraCounter < paraTotal) And bContinue Ej64^*  
             *+'l|VaVq\  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) .1& F p  
            ShapeHeight = 0 0(dXU\Y  
            ShapeWidth = 0 ns1@=f cO  
           n*fsdo~  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth 5;-?qcb^w  
             N,NEg4 q[  
            Select Case ParaType )OcG$H NK  
                Case "【】表格内容" *l4`2eqZ  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" Kf7v_T
/  
                Case "章"  ~/kx  
                    LastTitle0No = LastTitle0No + 1 -J=N  
                    '新一章开始，复位其下属标题编号 ~,.}@XlgT.  
                    LastTitle1No = 0 #>\+6W 17U  
                    LastTitle2No = 0 v5o@l
s  
                    LastTitle3No = 0 86\B|!   
                    LastTitle4No = 0 Arb-,[kwN  
                     KFMEY\6\h  
                    k = Val(ttNo) J~vK`+Zs  
                    If k = 0 Then '非数字编号章节 14v,z;HXj  
                        If ttNo <> NoSeries1(LastTitle0No) Then  =:-x;  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString (*2kM|  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText 0 <T/P+|  
                        End If wsNM'~(  
                    Else F
WbA+{8  
                        If Val(ttNo) <> LastTitle0No Then _=eeZ4f  
                            rText = "第" & LastTitle0No & ttString 7 n=fB#!*3  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText ( nH3  
                        End If U0:tE>3`  
                         
2x7%6'  
                    End If mmj6YQ0a  
                     ES#K'Lf  
                    '章段落设置 }TCOm_Y/qL  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 E|Lv_4lb=  
                    .Paragraphs(paraCounter).Style = "QLNU章节" %r*zd0*<n1  
                    .Paragraphs(paraCounter).Range.Select c|'hs  
                    Selection.EndKey unit:=wdLine A"@C }f  
                    tc = Replace(rText, vbCr, "") {6yiD  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False Lc<C1I 5=  
                Case "一级标题" W|FPj^*t  
                    LastTitle1No = LastTitle1No + 1 L@ {5:#-  
                    '新一级标题开始，复位其下属标题编号 g2<xr;<t^  
                    LastTitle2No = 0 qeyBZ8BG  
                    LastTitle3No = 0 xv{iWJcs  
                    LastTitle4No = 0 m_z1|zM}o  
                     ? h$>7|  
                    If ttNo <> NoSeries1(LastTitle1No) Then 7QlA/iKqK  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString 5!PU+9Kh  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText m{bw(+r  
                    End If +FoR;v)z=F  
                   t3 q0|S
  
                     ci^+T *  
                    '一级标题段落设置  格式：一、标题内容 !.'@3-w]  
                    .Paragraphs(paraCounter).Range.Text = rText S/ Y1NH  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" hD>O LoO  
                    .Paragraphs(paraCounter).Range.Select ^xGdRaU#  
                    Selection.EndKey unit:=wdLine ;ml;{<jI  
                    tc = Replace(rText, vbCr, "") )up!W4h6o  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False Z=Oo%lM6B  
                Case "二级标题" 2EOt.4cP  
                    LastTitle2No = LastTitle2No + 1 4V7{
5:oa  
                    '新二级标题开始，复位其下属标题编号 ,zLi{a6  
                    LastTitle3No = 0 <o_H]c->  
                    LastTitle4No = 0 @Kd lX>i  
                     Cp_YIcnEJ  
                    If ttNo <> NoSeries1(LastTitle2No) Then  @GYM4T  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString :LL>C)(f  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText j !;?=s  
                    End If G!54 e  
                     PT|W{RlNl  
                    '二级标题段落设置 格式：(一)、标题内容 $zTj
h~ 9  
                    .Paragraphs(paraCounter).Range.Text = rText dOFxzk,g&R  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" H5Rn.n(|  
                     i>S /W!F  
                    .Paragraphs(paraCounter).Range.Select :/9@p  
                    Selection.EndKey unit:=wdLine mb*L'y2r  
                    tc = Replace(rText, vbCr, "") 3`&2 -  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False iaq0\d.[7  
                 cvbv\G'aT  
                Case "三级标题" $b#"Rv  
                    LastTitle3No = LastTitle3No + 1 h!f7/)|[o  
                    '新三级标题开始，复位其下属标题编号 j+n1k^jC  
                    LastTitle4No = 0 7:1c5F~M  
                     1X/ q7lR  
                    If Val(ttNo) <> LastTitle3No Then 9z,?DBMvc  
                            rText = LastTitle3No & ". " & ttString <dzE5]%\  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText C,w$)x5kls  
                         bf `4GD(  
                    End If  _?3bBBy  
                    '三级标题段落设置 格式：1. 标题内容 bgd1j,PWbW  
                    .Paragraphs(paraCounter).Range.Text = rText B_[^<2_  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" 'Z-jj2t}  
                    .Paragraphs(paraCounter).Range.Select G1Cn[F;e  
                    Selection.EndKey unit:=wdLine }0T1* .Cz  
                    tc = Replace(rText, vbCr, "") i+&*
W{Re  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False "6n~,$  
                Case "四级标题" -\j}le6;c  
                    LastTitle4No = LastTitle4No + 1 LD WFc_  
                     Da)[mxJ  
                    If Val(ttNo) <> LastTitle4No Then CCX\ "-C  
                            rText = "(" & LastTitle4No & "). " & ttString }abM:O "Y  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText Z-b^{uP  
                     77OH.E|$  
                    End If ]OH
zE]Q  
                    '四级标题段落设置 格式：(1). 标题内容 ;KmSz 1 A  
                    .Paragraphs(paraCounter).Range.Text = rText POc< G^  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" ~l-Q0wg  
                    .Paragraphs(paraCounter).Range.Select "!gd)^<e  
                    Selection.EndKey unit:=wdLine L&lNpMT  
                    tc = Replace(rText, vbCr, "") i7})V
DsZ  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False u(SdjLf:  
                 )[6H!y
5  
                Case "表格标题" z
48,{H6h  
                    LastTableNo = LastTableNo + 1 &M~*w~w`  
                     jGd{*4{3+  
                    If ttNo <> CStr(LastTableNo) Then ]xA;*b;|h  
                            rText = "表" & LastTableNo & ". " & ttString 5>q|c`&}E  
                            ErrMsg.AddItem "表格编号错误：" & ParaText IyYC).wU}  
                   T<DQi  
                    End If by&#g  
                     1Af~6jz  
                    '表格名称段落设置 格式：表1. 表格名称 1A">tgA1  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" @Wy>4B^  
                    xe = Replace(rText, vbCr, "") T?)?"b\qz  
                    .Paragraphs(paraCounter).Range.Select :=^JHE{  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 %?_pSH}$!  
                    Selection.Range.Text = xe ) ]U-7  
                    Selection.EndKey 1,Uv;s;{  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False &?/h#oF@\  
                 )`^t,x<S  
                Case "表格首行" d$kGYMT"  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" s*:J=+D]G  
                Case "图片标题" VLN=9  
                    LastFigureNo = LastFigureNo + 1 :sFP{rFx~  
                     CfoSow-  
                    If ttNo <> CStr(LastFigureNo) Then Ip( IGR"  
                            rText = "图" & LastFigureNo & ". " & ttString S?*v p=  
                            ErrMsg.AddItem "表格编号错误：" & ParaText N|T%cdh:/  
                   qp^O\>c  
                    End If xRJv_=dT  
                    '图片名称段落设置 格式：图1. 图名称 "Q#/J)N  
                    .Paragraphs(paraCounter).Range.Text = rText 'i{kuTv  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" _UYt  
                    .Paragraphs(paraCounter).Range.Select |SZRO,7x  
                    Selection.EndKey unit:=wdLine fC2e}WR
  
                    xe = Replace(rText, vbCr, "") )wo'i]#2:  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False =g2;sM/  
                Case "正文" U/m6% )Yx(  
                     '正文名称段落设置 ;c_X ^"d  
                    .Paragraphs(paraCounter).Style = "QLNU正文" 0CQ\e1S,#  
               Case "文献条目" ^/2n[orl5  
                    With .Paragraphs(paraCounter) P6zy<w  
                        '.Range.Select 2r"-X  
                        'Selection.ClearFormatting %:N6#;l M  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” (
+38z)f  
                        .Style = "QLNU参考文献" "ZNiTND  
                    End With P(d4~hS  
               Case "图表注解" ^{_`j E  
                    With .Paragraphs(paraCounter) <jQ?l%\  
                        .Range.Font.NameFarEast = "楷体" 9@#Z6[=R,  
                        .Range.Font.NameAscii = "Times New Roman" u}JL*}Q  
                        .Range.Font.Size = 9 '小5号字 Z'>Xn^  
                         @/ wJW``;  
                        .Alignment = wdAlignParagraphCenter $[6:KV  
                        .LeftIndent = 0 jtV{Lf3<  
                        .RightIndent = 0 ea=@r Ng  
                        .FirstLineIndent = 0 |%g^6RN  
                        .LineSpacing = 12 YL=?Nk/  
                        .LineSpacingRule = wdLineSpaceExactly vL`w
n=  
                        .LineUnitAfter = 0 jnYFA[Ab  
                        .LineUnitBefore = 0 lKrD.iYt8  
                        .OutlineLevel = wdOutlineLevelBodyText Ix^xL+Tm  
                        .PageBreakBefore = False /);cl;"  
                        .RightIndent = 0 dOqn0Z  
                        .WordWrap = True (01M0b#  
                        .LineUnitAfter = 0.5 xpKD 'O=T  
                         9l@VxX68M  
                    End With KO<Yc`Fs  
                Case Else xXE/pIXw  
                    '不作处理 }L{en  
            End Select `B"=\0  
             -
wy$ ?Ha  
            '含有inlineshape的段落处理 @O5-w  
            If ShapeHeight > 30 Then m\__F
l  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 jmmm0,#D  
            End If D:U:( pg  
             GNA:|x  
            If (ShapeWidth + ShapeHeight) > 150 Then G?{BVWtl}  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" 5*{U!${a  
            End If {^1GHU  
             #qGfo)  
            '段落计数器递 (!&cf
abL  
            paraCounter = paraCounter + 1 G@oY2sM"  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter [iwn"e  
            Me.txtStatus.Text = ParaText p-GlGEt_X  
            DoEvents 
cj`g)cX|  
        Loop M])Y|}wv8  
    End With #{1w#Iz;  
     ec[
S?-  
    msg = "" j08}5Eo  
     0"(5\T  
    For i = 0 To Me.ErrMsg.ListCount - 1 G)';ucs:,  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) KtUI(*$`  
    Next YB N@{P$  
      _p\  
     FRQ0tIp  
     G,e>dp_cPu  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg EkgS*q_  
    Me.cmdCheck.Enabled = True 5*x k8*  
    Me.txtStatus.Visible = True !krbGpTVH  
    Me.lbParaType.Visible = False K3$83%E  
     z*.
4Y  
    bContinue = False OWxYV$  
End Sub E'?yI'~=  
t?L;k+sMM  
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) 9w^1/t&=04  
    Dim pTEXT As String M2(+}gv;7p  
     \]e"#"v}}_  
    pTEXT = ChKRange.Text < ->Nex  
     ~&4Hc%*IB  
    ParaType = "其它" qYBoo]}a  
    TitleString = pTEXT lOt3^`  
    TitleNo = "N/A" r9sW:cM:e  
     BK]bSj  
    shpCounter = ChKRange.InlineShapes.Count n$g g$<  
    If shpCounter <> 0 Then 1hw1AJ}(F  
        MaxShpHeight = 0: TotalShpWidth = 0 F=U3o=-:  
        For i = 1 To shpCounter ,o& &d.  
            k = ChKRange.InlineShapes(i).Height 2--"@@  
            l = ChKRange.InlineShapes(i).Width 3k py3z[%  
            If k > MaxShpHeight Then WLd{+y5#  
                MaxShpHeight = k Fd":\7p  
            End If R"EX$Zj^E  
            TotalShpWidth = TotalShpWidth + l $-[V
)]h  
        Next xAw$bJj~s  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then I$9^i#O'3  
            Exit Sub +VkhM;'"C  
        End If ?D]4*qsIlu  
    End If Sg(fZ' -  
     ~^cx a%  
    '空行 &u( eu'Q3  
    If Len(pTEXT) <= 2 Then @cA`del  
        Exit Sub  d!5C$C/x  
    End If U8KB@E  
     +!6aB|-  
         "rOe J~4 X  
    '是否为表格中的文字 i[/g& fx  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then Lg0Vn&k  
        ParaType = "表格内容" tT'*Uu5  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) 1O>wXq7q  
        If k = 1 Then (=}cc  
            ParaType = "表格首行" Mo\LFxx>4{  
        End If v=
zqj}T  
        Exit Sub Kv^ez%I  
    End If 'VcZ_m:  
     U~n>k<`sr  
    '例外情况：脚注 =T ;>$&qs  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then & Ed7|k]H  
        ParaType = "脚注" G x ci  
        Exit Sub `mXbF  
    End If "K n JUXpl  
     la:i!qAH  
    '例外情况：尾注 G=W!$( :  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then o^hI\9  
        ParaType = "尾注" l2QO\O I9m  
        Exit Sub 6!bp;iLKy  
    End If wYQTG*&h  
     Fk@A;22N  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then R]O!F)_/'  
        ParaType = "页眉页脚" 8\+kfK  
        Exit Sub pXf!8X&y  
    End If aT1T.3 a  
     {</MC`  
     y|f`sBMM  
    With regEX aG.j0`)%  
        .Global = True 6FNs4|(
d  
         7cV9xIe^  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" UmYReF<<_  
        If regEX.Test(pTEXT) Then :+,>0
%  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") 0vOt.LC/S  
            TitleString = regEX.Replace(pTEXT, "$3") -6a4H?L  
            TitleNo = regEX.Replace(pTEXT, "$1") g /D@/AU1u  
            ParaType = "章" D-\WS^#  
            Exit Sub gZ%wmY  
        End If 0f~7n*XH  
         u&/[sqx  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" 8}9|hT;  
        If regEX.Test(pTEXT) Then eAKK uML  
            ParaType = "一级标题" q}gj.@Q"  
            regEX.Execute (pTEXT) v H/<!jtI  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") I{Hl2?CnI,  
            TitleString = regEX.Replace(pTEXT, "$3") CA%p^4Q  
            TitleNo = regEX.Replace(pTEXT, "$1") ^*.S7.;2o  
            Exit Sub i( P/=B  
        End If '{=dEEi  
         V\Oe]w  
        '全角或半角括号中的数字 Gh}k9-L  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" XOgl>
1O  
        If regEX.Test(pTEXT) Then w:xLg.Eq6  
            ParaType = "二级标题" 09z%y[z  
            regEX.Execute (pTEXT) w@RVg*`%7D  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") F F<xsoZJ  
            TitleString = regEX.Replace(pTEXT, "$5") QWVH4rg  
            TitleNo = regEX.Replace(pTEXT, "$2") YoiM
\gw  
            Exit Sub ,,1H#;j  
        End If #eSVFD5ZU  
         "8MG[$Y  
        '阿拉伯数字  1. 2.
x/D"a|  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" 7L~LpB  
        If regEX.Test(pTEXT) Then \pI)tnu6'U  
            ParaType = "三级标题" 0I_A$Z,x  
            regEX.Execute (pTEXT) ?w'a^+H  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 F[PIo7?K  
            TitleString = regEX.Replace(pTEXT, "$3") tdZ,sHY6  
            TitleNo = regEX.Replace(pTEXT, "$1") EQZu-S`kv  
            Exit Sub
#U45H.Rz  
        End If ^9*FYV  
         1,@-y#V_  
        '全角或半角括号中的阿拉伯数字 Tdtn-  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$"
xxxM  
        If regEX.Test(pTEXT) Then mUW|4zl i}  
            ParaType = "四级标题" ]-h$CJSY  
            regEX.Execute (pTEXT) `L p3snS  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") }YUUCq&  
            TitleString = regEX.Replace(pTEXT, "$5") ~Wy&xs ZH  
            TitleNo = regEX.Replace(pTEXT, "$2") #?%akQ
+w  
            Exit Sub Trd/\tX#v&  
        End If U :6 J~  
         3 $7TeqfAC  
        '表格名称 RDU,yTHq  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" <[{Ty+  
        If regEX.Test(pTEXT) Then @y:mj \J9  
            ParaType = "表格标题" %gj's-!!  
            regEX.Execute (pTEXT) !u~h.DrvZ  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) `k y>M-  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) 8tq6.%\  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) sVP[7&vr~  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 [ pMJ9 d$  
            Exit Sub *?jU$&Qpj*  
        End If AQkH3p/W  
         Wy^43g38'p  
        '图片名称 ~5Wr |qg%{  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" XVwaX2=L  
        If regEX.Test(pTEXT) Then 8BZTHlUB  
            ParaType = "图片标题" wn*<.s  
            regEX.Execute (pTEXT) )=VSERs  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") N< c98  
            TitleString = regEX.Replace(pTEXT, "$3") ]~S,K}T  
            TitleNo = regEX.Replace(pTEXT, "$1") Eq$Q%'5*ua  
            Exit Sub oFt]q =EU  
        End If mXZOkx{  
         }G^Bc4@b  
        '参考文献 5Pmmt&#/Z  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、
+C3IP  
        If regEX.Test(pTEXT) Then p\lS)9  
            ParaType = "文献条目" v&g(6~b_>  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") 1Xy{&Ut\  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") ! K? o H  
            Exit Sub &_X6m0z  
        End If P(?i>F7s  
         T&Dt;CSF  
        prfx = Left(pTEXT, 2) A*l (0`aWq  
        If prfx = "注：" Or prfx = "注:" Then Z}bUvr XP  
            ParaType = "图表注解" Ju5<wjQR\  
            Exit Sub +zodkB~)  
        End If *o]Q<
S>lH  
         XVXiiQ^  
         }`k >6B  
        ParaType = "正文" {SH+lX0]{  
         gQy{OU  
    End With jU')8m[  
End Sub _Eq*  
jR~2mf!h*e  
Sub ConvertListToOrdinary() :$Lu V5  
    Dim st As Paragraph (ov=D7>t0  
    With ActiveDocument :%GxU;<E{  
        For i = .Paragraphs.Count To 1 Step -1
\+OP!`  
            Set st = .Paragraphs(i) 0Yz &aH  
            lst = st.Range.ListFormat.ListString Qx,?v|Xg  
            If lst <> "" Then ?^iX%   
                st.Range.ListFormat.RemoveNumbers s8w7/*<d  
                st.Range.InsertBefore lst & " " sO7$
b@"u.  
            End If pT Yq#9  
        Next \(UEjlo  
    End With y[7*^9J  
    Set st = Nothing ?DP]#9/4  
End Sub Jp)>Wd  
#fgRF  
Private Sub UserForm_Activate() $ijWwrh  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" B"N8NVn  
    Me.lbTotal.Font.Bold = True ydp
?%RB3w  
    Me.txtStatus.Visible = False \ZdV|23  
    Me.cmdCheck.Enabled = True O[+![[N2  
9/Q_Jv-Q  
End Sub n99>oh  
S0.  
U" eP>HHp  
Sub CheckSuperScript() v=Ep
  
    Selection.Find.ClearFormatting c
-nBB  
    Selection.Find.Replacement.ClearFormatting Hb&-pR@e\?  
    With Selection.Find T xRa&1  
        .Text = "[【\[［〖](*)[】\]〗］]" `o(PcX3/}  
        .Replacement.Text = "[\1]" 9TGjcZ1S'  
        .Replacement.Font.Superscript = True CL/8p;
  
        '.Replacement.Font.Color = wdColorBlue k#k!AcC  
        .Forward = True 42:~oKiQ$"  
        .Wrap = wdFindContinue -L7Q,"a$  
        .FORMAT = True E"k\eZns&  
        .MatchCase = False N*JWd  
        .MatchWholeWord = False @DK,ka(  
        .MatchByte = False /$zYSP)YT  
        .MatchAllWordForms = False >O[# 661  
        .MatchSoundsLike = False w91gM*A  
        .MatchWildcards = True BBw]>*  
    End With e"en ma\_  
    Selection.Find.Execute Replace:=wdReplaceAll -05zcIVo  
End Sub O?X g%k#  
<rc3&qmd  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) "El$Sat`  
    bContinue = False s] Z/0:`  
    Set regEX = Nothing Qg  
End Sub btb-MSkO  
k!E`Xeob  
Sub CeateOrModifyStyle() SPA_a\6_  
' Tysh~C|1  
' 4&/u1u0  
Dim stl As Style ]dk44,EL  
     j6Acd~y\2  
    Options.Pagination = False Eugt~j3  
     \2i4]
V  
    On Error Resume Next Q%4>okj,  
    For Each stl In ActiveDocument.Styles G`E%uyjG$j  
        stl.Delete O6gI%Jdp  
    Next N,| :=gD_  
    On Error GoTo 0 7]a6dMh  
     :pQZ) bF  
    Set stl = Nothing !]qwRB$5  
     CD1}.h  
    DoEvents Ty\&ARjb 8  
    On Error Resume Next Nb\4Mv`  
     A"`62  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph h$|K vS  
     xin<.)!E  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph WQ4:=' (  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph 4A0R07"  
      En3Q%  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph w#k'RuOw5  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph e$QX?y .  
     s5Fy P"V  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph l<)(iU  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph %,%s09tO  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph Md'd=Y_0  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph `/ix[:}m^  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph hfP}+on%  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph [r_,BH\nu  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph !I5_
ln  
     3 EB8ls2  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph +g ovnx  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph ~=(?Z2UDA_  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph 7~TE=t  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph ]qL#/ 
 
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph l epR}  
     1g{`1[.QO  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph OtJYr1:y_  
    On Error GoTo 0 _7.Wz7]b  
    DoEvents 2;.7c+r0  
     'wz*GMGWC  
    'BaseStyle x:=Kr@VP  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False X4*{ CM  
    With ActiveDocument.Styles("BaseStyle").Font nU%rSASu  
        .NameFarEast = "宋体" C/%umazP9  
        .NameAscii = "Times New Roman" KZeRbq2jJ  
        .NameOther = "宋体" 4W}8?&T  
        .Size = 10.5 jy{T=Nb  
        .Bold = wdUndefined X<ZIeZBn  
        .Italic = wdUndefined (.7_`T6QG  
        .Subscript = wdUndefined Y[Us"K`  
        .Subscript = wdUndefined q5:-?|jXJ  
         wG2lCv`
d  
        .Underline = wdUnderlineNone 3nf+imAF  
        .UnderlineColor = wdColorAutomatic 2S}%r4$n}  
        .StrikeThrough = False /Q5pAn-u  
        .DoubleStrikeThrough = False yd5r]6ej  
         ;^xlDN  
        .Outline = False punc'~  
        .Emboss = False yi%A*q~MT  
        .Shadow = False AS`0.RC-  
        .Hidden = False /ow/)\/}  
        .SmallCaps = False ^ #e:q  
        .AllCaps = False ')I/
D4v  
        .Color = wdColorAutomatic orf21N+[  
        .Engrave = False i>r4R z!  
        .Scaling = 100 !cT#G  
        .Kerning = 1 x_{ua0BLDf  
        .Animation = wdAnimationNone YnuC<y &p  
        .DisableCharacterSpaceGrid = False *ghkw9/  
        .EmphasisMark = wdEmphasisMarkNone 3WS`,}  
    End With #wbaRx@rc  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat vp &jSfQ^  
        .LeftIndent = 0 h>$,97EU  
        .RightIndent = 0 ?I)-ez  
        .SpaceBefore = 0 ~|@aV:k  
        .SpaceBeforeAuto = False wcP0PfY  
        .SpaceAfter = 0 |ap{+ xh  
        .SpaceAfterAuto = False &$jg *Kr  
         UZMo(rG.]{  
        .LineSpacingRule = wdLineSpaceSingle 8e)k5[\m  
        .Alignment = wdAlignParagraphJustify EaFd1  
         c3&F\3  
        .WidowControl = False ^"K
 
        .KeepWithNext = False VkhZt7]K}B  
        .KeepTogether = False zMt"ST.  
        .PageBreakBefore = False g1
muT.W]S  
        .NoLineNumber = False T^S|u8f  
         J7t
5B}}
 
        .FirstLineIndent = CentimetersToPoints(0) eV^@kI4  
        .OutlineLevel = wdOutlineLevelBodyText :h0as!2@dp  
        .CharacterUnitLeftIndent = 0 7J./SBhB  
        .CharacterUnitRightIndent = 0 Xj"/6|X  
        .CharacterUnitFirstLineIndent = 0 D|9C|
q  
        .LineUnitBefore = 0 o+
`W  
        .LineUnitAfter = 0 }qT @.  
        .AutoAdjustRightIndent = True i68'|4o  
        .DisableLineHeightGrid = True "R+ x  
         IV_uf  
        .FarEastLineBreakControl = True 75wQH*  
        .WordWrap = True 3SVI|A5(d  
        .Hyphenation = False -% PUY(  
         )y'`C@ijI  
        .HangingPunctuation = True C9x'yBDv  
        .HalfWidthPunctuationOnTopOfLine = True k=H{gt  
        .AddSpaceBetweenFarEastAndAlpha = True ~-lIOQ.v  
        .AddSpaceBetweenFarEastAndDigit = True i;*c|ma1>  
        .BaseLineAlignment = wdBaselineAlignBaseline #*,Jqr2f  
    End With iyU@|^B"Wa  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False *_b4j.)ax,  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll 4z Af|Je  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese 1 gts=g.  
    ActiveDocument.Styles("BaseStyle").NoProofing = False $1.iMHb  
     k!t5>kPSQ
 
    '一级标题题样式 TbU\qc m]]  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") f!e8xDfA  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" v<_}Br2I[  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False inZMq(_@$  
    With ActiveDocument.Styles("QLNU一级标题").Font UP 1Y3  
        .NameFarEast = "黑体" ! tv3.:eT  
        .NameAscii = "Arial Black" D}vgXzD  
        .NameOther = "黑体" e<YC=67n)  
        .Name = "黑体" n99:2r_  
        .Size = 16              '三号 COc1np  
        .Bold = True 2GXAq~h@  
        .Italic = wdUndefined jii2gtu'U  
        .Subscript = wdUndefined Hs~M!eK  
        .Superscript = wdUndefined ^2|gQ'7<  
    End With >BMJA:j  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat t*zve,?}  
         PV(bJ7&R  
        .LeftIndent = CentimetersToPoints(0) gWqmK/.U.0  
        .RightIndent = CentimetersToPoints(0) [=u8$5/a  
        .FirstLineIndent = CentimetersToPoints(0) 7xB#)o53  
         >},O_qx  
        .LineSpacingRule = wdLineSpaceSingle 2V/A%  
        .Alignment = wdAlignParagraphCenter ~Y O')  
         511^f`P<  
        .WidowControl = True e'(n ^_$nl  
        .KeepWithNext = True )FT~gl%  
        .KeepTogether = True B~-VGT2o  
        .OutlineLevel = wdOutlineLevelBodyText pZ+zm6\$  
         "w=p@/C  
        .LineUnitBefore = 0.5  Usk@{  
        .LineUnitAfter = 0.5 kI]i,v#F  
    End With ?`AzgM[I  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False _a8^AG  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll tz j]c  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese WW0N"m'  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True ?+D_*'65D  
    DoEvents c%>t(ce`Tl  
     })g|r9=  
    '二级 lg&"=VXx51  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") KCq qwGM  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" FoWE<  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False !;pmql  
    With ActiveDocument.Styles("QLNU二级标题").Font R+P,kD?  
        .NameFarEast = "黑体" 6#7f^uIK  
        .NameAscii = "Arial Narrow" ]o$Kh$~5  
        .NameOther = "黑体" a36n}R4Q  
        .Name = "黑体" MG[?C2KA/  
        .Size = 15        '小三号 ,~X^8oY  
        .Bold = False Vm_y,;/(-R  
        .Outline = False .hn{m9|U  
        .Italic = wdUndefined m/=,O_  
        .Subscript = wdUndefined #l2wF> 0  
        .Superscript = wdUndefined ss T o?WL|  
    End With !-2nIY!  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat 7~C@x+1S/  
        .LeftIndent = CentimetersToPoints(0) [X
#bDO<t  
        .RightIndent = CentimetersToPoints(0) 7n,nODbJ  
        .FirstLineIndent = CentimetersToPoints(0) DGO_fR5L  
         0@C`QW%m  
        .LineSpacingRule = wdLineSpaceSingle Tcz67&c |W  
        .Alignment = wdAlignParagraphLeft zu(/c  
         j^llO1i/  
        .WidowControl = True (03m%\  
        .KeepWithNext = True 7XT2d=)"  
        .KeepTogether = True 0fxA*]h  
        .PageBreakBefore = False }EE   
        .OutlineLevel = wdOutlineLevelBodyText jMcCu
$i7  
         FgE6j;  
        .LineUnitBefore = 0.5 ]d_Id]Qa+  
        .LineUnitAfter = 0.5 PQWo<Uet  
         -kq=W_  
    End With ;dRTr *  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False ?CAP8_  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll _:+W0YS  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese +z+25qWi  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True L7G':oA_`p  
    DoEvents S-gL]r3G8  
     1{_tV^3 @  
    '三级标题样式 qeQTW@6 F  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ;Y?7|G97*S  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" _MR|(mV  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False  h#^I
T  
    With ActiveDocument.Styles("QLNU三级标题").Font , =IbZ  
        .NameFarEast = "宋体" yf*MG&}  
        .NameAscii = "Times New Roman" <po.:c Ce  
        .NameOther = "黑体" SY`NZJK  
        .Name = "黑体" yb* SD!  
        .Size = 14               '四号 -x_b^)x~b7  
        .Bold = False /(BQzCP9O;  
        .Outline = False (+4gq6b  
        .Italic = wdUndefined @,CCwiF'q  
        .Subscript = wdUndefined %&c[g O!Za  
        .Superscript = wdUndefined mJc'oG-  
    End With szF[LRb  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat "%D+_Yb'X  
        .LeftIndent = CentimetersToPoints(0) t2BkQ8vr  
        .RightIndent = CentimetersToPoints(0) Z7JI4"  
        .FirstLineIndent = CentimetersToPoints(0) VeA;zq  
         wHWd~K_q  
        .LineSpacingRule = wdLineSpaceSingle [`=|^2n?  
        .Alignment = wdAlignParagraphLeft 7Nh6 `  
         6?+bi\6  
        .WidowControl = True vs{i2!^  
        .KeepWithNext = True W|G(x8  
        .KeepTogether = True qdCa]n!d  
        .PageBreakBefore = False 8~ .r/!wfy  
        .OutlineLevel = wdOutlineLevelBodyText VHM,W]  
          X4 BDl  
        .CharacterUnitLeftIndent = 0 &w*.S@  ;  
        .CharacterUnitRightIndent = 0 1'"o; a]k/  
        .CharacterUnitFirstLineIndent = 2 /e|`mu%  
          
,'= Y  
        .LineUnitBefore = 0.5 ~4=4Ks0  
        .LineUnitAfter = 0 IJD'0/R'c  
    End With 1jh^-d5  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False ~YlbS-  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll ul(1)q^  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese i :&Y{iPQp  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True HO41)m+&  
    DoEvents 8n?P'iM  
     N1\u~%AT"  
    '四级标题样式 "@ Zy+zLU  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") x7L$x=8s  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" zY(w`Hm2  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False KAjKv_6=g  
    With ActiveDocument.Styles("QLNU四级标题").Font 1zGEf&rv:  
        .NameFarEast = "宋体" J*.Nf)i  
        .NameAscii = "Times New Roman" isj<lnQ  
        .NameOther = "宋体" 1e'-rm F  
        .Name = "宋体" o83HR[
 
        .Size = 12               '小四号 l4O}>#  
        .Bold = True W
;,UhE  
        .Outline = False B:n9*<v(  
        .Italic = wdUndefined +&O[}%W  
        .Subscript = wdUndefined S!#7]wtbP  
        .Superscript = wdUndefined <&8cq@<  
    End With 2"'0OQN0\  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat $ZK4Ps -$  
        
[m|\N  
        .LeftIndent = CentimetersToPoints(0) RA+Y./*h  
        .RightIndent = CentimetersToPoints(0) CP7Zin1S/w  
        .FirstLineIndent = CentimetersToPoints(0) 8/-GrdyE  
         v8y77:  
        .LineSpacingRule = wdLineSpaceSingle mz+>rc  
        .Alignment = wdAlignParagraphLeft @>qzRo  
         #8R\J[9  
        .WidowControl = True IT!u 4iH[  
        .KeepWithNext = True @Fvp~]jCb  
        .KeepTogether = True N`,ppj  
        .PageBreakBefore = False ~ H N  
        .OutlineLevel = wdOutlineLevelBodyText !Z]#1"A8  
         FN0)DN2d}  
        .CharacterUnitLeftIndent = 0 {DlQTgP  
        .CharacterUnitRightIndent = 0 +-"uJIwMD  
        .CharacterUnitFirstLineIndent = 2 Qu"zzb"k  
         Y=6569U2  
        .LineUnitBefore = 0 +#ufW%ZG
 
        .LineUnitAfter = 0 8A'oK8Q  
         o"wvP ~H  
    End With ObnQ,x(  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False !8~A
`  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll RrA9@95+  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese pL2P .  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True AWo\u!j  
    DoEvents X\sOeb:]  
     h9-^aB$8^  
    '正文校式 J[ ;g \  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") "T
e[R%aP  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" 40h  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False vLCyT=OB`  
    With ActiveDocument.Styles("QLNU正文").Font 1u>[0<U~E  
         icS%])3LF  
        .NameFarEast = "宋体" 57@6O-t-  
        .NameAscii = "Times New Roman"
w5Lev}Rb  
        .NameOther = "宋体" &|MdBJ   
        .Name = "宋体" N)CM^$(T|  
         7n}$|h5D  
        .Size = 12               '小四号 ,58XLu  
         eO%w i.Q  
        .Bold = wdUndefined
2zE gAc  
        .Italic = wdUndefined :O)\+s-  
        .Subscript = wdUndefined -j& A;G  
        .Superscript = wdUndefined 5!-+5TJI  
         @-zL"%%dw'  
        .Outline = False ^1`Mz<  
        .Emboss = False >L4q> S^v  
        .Shadow = False l5P!9P  
        .Hidden = False ^`iqa-1  
         #w]UP#^io  
        .DisableCharacterSpaceGrid = True Y2$wL9">  
    End With GW{e"b/x  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat HV21=W  
         <<WqL?8W  
        .LeftIndent = CentimetersToPoints(0) IX+!+XC"U  
        .RightIndent = CentimetersToPoints(0) ?$$Xg3w_#  
        .FirstLineIndent = CentimetersToPoints(0) ERTjY%A  
         }IJE%  
        .LineSpacingRule = wdLineSpaceExactly _"l2UDx  
        .LineSpacing = 20 )?y ${T
 
        .Alignment = wdAlignParagraphLeft %/;*Ewwb  
         :#nfdvqm  
        .WidowControl = False FT8<a }o  
        .KeepWithNext = False [Z]%jABR  
        .KeepTogether = False 1#tFO  
        .PageBreakBefore = False 'Hf+Y/`  
        .Hyphenation = False )>"|<h.2]  
         H^sImIEUT  
        .OutlineLevel = wdOutlineLevelBodyText G'#Uzwo  
         TF_wT28AU2  
       d%,@,>>)  
        .CharacterUnitLeftIndent = 0 9u?[{h.`B  
        .CharacterUnitRightIndent = 0 >uLWfk+y1  
        .CharacterUnitFirstLineIndent = 2 s$g3_
_|Y  
         \gCh'3  
        .LineUnitBefore = 0 e92,@  
        .LineUnitAfter = 0 @V}!elV  
        .SpaceBefore = 0 -sqd?L.p  
        .SpaceAfter = 0 xTnFJ$RK2  
         #M ;j*IBl*  
        .DisableLineHeightGrid = True 2^w8J w9  
    End With yRAfIB$T}"  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False 3kzO VZ  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll u!CcTE*  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese CXiDe)|<E  
    ActiveDocument.Styles("QLNU正文").NoProofing = True :;Xh`br  
    DoEvents [b:0j -  
     DMdVE P"m  
    '图片段落样式 _~Id~b  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") R,8 W7 3  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" utzf7?nIS  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False He9Er  
    With ActiveDocument.Styles("QLNU图片段落").Font E[NszM[P  
        .Size = 12               '小四号 A'6-E{  
        .Italic = wdUndefined tNvjwgV\  
        .Subscript = wdUndefined M!R=&a=
Z  
        .Superscript = wdUndefined D]=V6l=  
    End With 9ERyr1-u v  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat [zJ|61^  
         EQ [K  
        .LeftIndent = CentimetersToPoints(0) .+) AeGh  
        .RightIndent = CentimetersToPoints(0) %p;; aZG  
        .FirstLineIndent = CentimetersToPoints(0) qx5jaa3  
         R :*1Y\o(  
        .LineSpacingRule = wdLineSpaceSingle gT_tR_g  
        .Alignment = wdAlignParagraphCenter B=}s7
$^  
        .KeepWithNext = True y0]"qB   
        .OutlineLevel = wdOutlineLevelBodyText :8t;_f  
         Yr)<1.K4,M  
        .CharacterUnitLeftIndent = 0 A1Es>NK[qW  
        .CharacterUnitRightIndent = 0 J7pF*2  
        .CharacterUnitFirstLineIndent = 0 7TtDI=f  
         H
-iCaX
T  
        .LineUnitBefore = 0 %`bn=~T^  
        .LineUnitAfter = 0 :@4+}  
    End With A$3ll|%j  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False .k -!/^  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll O$ARk+  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese {%Rntb  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True }IRD!  
    DoEvents  )vD:  
     Ua.%?V  
     7}L.(Jp9  
    '第X章 ,K15KN.'  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") hG2WxYk  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" #EA` 
|  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False A'aYH`j  
    With ActiveDocument.Styles("QLNU章节标题").Font \_)[FC@  
        .NameFarEast = "黑体" ~K@p`CRbV  
        .NameAscii = "Arial Black" ~KYA{^`*  
        .NameOther = "Arial Black" K-b`KcX  
        .Name = "黑体" MK.TBv  
        .Size = 16 ^U9b )KA  
        .Bold = True 7Y.mp9,  
        .UnderlineColor = wdColorAutomatic zI= 9  
        .Outline = False yZ-Ql11
 
        .Italic = wdUndefined 1\aV
4T  
        .Subscript = wdUndefined 8;d./!|'&g  
        .Superscript = wdUndefined m1D,#=C,_  
        .Scaling = 100 *+TO%{4  
        .DisableCharacterSpaceGrid = True o&$Of  
    End With tISb
' ^T  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat ,7Dm p7  
        .LineSpacingRule = wdLineSpaceSingle ly`\TnC  
        .Alignment = wdAlignParagraphCenter uquY z_2  
        .WidowControl = True =F% <W7  
        .KeepWithNext = True LFAefl\  
        .KeepTogether = True {
nMCU{*k  
        .PageBreakBefore = True weMufT  
        .OutlineLevel = wdOutlineLevelBodyText 6!@p$ pm)a  
         Mw`S.M. B  
        .LeftIndent = CentimetersToPoints(0) GdM|?u&s"  
        .RightIndent = CentimetersToPoints(0) Tmk'rOg5  
        .FirstLineIndent = CentimetersToPoints(0) Gs/G_E(T  
         1RauI0d*  
        .CharacterUnitLeftIndent = 0 q*<FfO=eQ  
        .CharacterUnitRightIndent = 0 B A i ^t  
        .CharacterUnitFirstLineIndent = 0 TU1W!=Z  
         G Prq(  
        .LineUnitBefore = 1 F8J\#PW  
        .LineUnitAfter = 0.5 =%S*h)}@  
         :j[=  
        .AutoAdjustRightIndent = False mUfA NlQ:  
        .DisableLineHeightGrid = True ll ^I;o0  
        .FarEastLineBreakControl = True nTE\EZ+=2  
        .WordWrap = True *-3*51 jW  
    End With *|
,ye5"  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False D1V^DbUm_  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll K_Kz8qV.?  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese n){u!z)Al  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True 4|hfzCjMI  
    DoEvents 7yal  T.  
     Ow{NI-^K  
    '表格标题 ?NxaJ^  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") G%dzJpC(  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" O{Z bpa^  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False &<Fw  
    With ActiveDocument.Styles("QLNU表格标题").Font 0pBG^I`_  
        .NameFarEast = "楷体" MFz6y":~  
        .NameAscii = "Arial" geNvp0  
        .Name = "楷体" _4LDzVjNRe  
        .Size = 10.5 cS>xT cj  
        .Bold = True $'w>doUlA  
        .Underline = wdUnderlineNone be]Zx`)k  
        .Italic = wdUndefined f9HoQDFsM  
        .Subscript = wdUndefined M1eM^m8U  
        .Superscript = wdUndefined q4niA  
        .Color = wdColorAutomatic 8#|PJc  
    End With R=C+]  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat &S[>*+}{+  
         POQ4&ChA  
        .LineSpacingRule = wdLineSpaceSingle  eI/@ut}v  
        .Alignment = wdAlignParagraphCenter Dc3bG@K*G  
        .KeepWithNext = True au+a7~0~  
        .KeepTogether = True ${tBu#$-d  
        .OutlineLevel = wdOutlineLevelBodyText .X"\ Mg  
         nu X`>Oy  
        .LeftIndent = CentimetersToPoints(0) ;m"R.Q9*  
        .RightIndent = CentimetersToPoints(0) E8.1jCL>{"  
        .FirstLineIndent = CentimetersToPoints(0) hM[I}$M&O  
         ,Qt 2?  
        .CharacterUnitLeftIndent = 0 ;Ouu+#s  
        .CharacterUnitRightIndent = 0 }0F
u  
        .CharacterUnitFirstLineIndent = 0 vv
 D515i  
         -yMD9b  
        .LineUnitBefore = 1 SpMHq_MLM  
        .LineUnitAfter = 0 Np?/r}  
         &g!yRvM!;Q  
    End With eMjW^-RgE5  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False ^= '+#|:  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll BAy)P1  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese eK/rsr  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True lGEfI&1%!  
    DoEvents -l<[CI  
qJK6S4O]  
    '表格首行 ~V/?/J$  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") }q)dXFL=I#  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False #"TL*p  
    With ActiveDocument.Styles("QLNU表格首行").Font 8ZNwo  
        .NameFarEast = "楷体" V0*9Tnc  
        .NameAscii = "Times New Roman" 9-.`~v  
        .Name = "楷体" t x1(6V&l;  
        .Size = 9 oYX#VX  
        .Bold = True Va
h.tOU  
        .Underline = wdUnderlineNone H,)2Ou-Wn  
        .Italic = wdUndefined \O\veB8  
        .Subscript = wdUndefined T*#<p;  
        .Superscript = wdUndefined (X|lK.W y  
    End With O/ZyWT  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat lmx'w  
        .LineSpacingRule = wdLineSpaceSingle ?V})2wwP  
        .Alignment = wdAlignParagraphCenter }^PdW3O*m,  
         xKXD`-|W  
        .LeftIndent = CentimetersToPoints(0) `llSHsIkXb  
        .RightIndent = CentimetersToPoints(0) (o8?j^ -v  
        .FirstLineIndent = CentimetersToPoints(0) 0T:ZWRjH  
         y<)q;fI7  
         8'0KHn{#  
        .CharacterUnitLeftIndent = -0.5 %)L|7v <  
        .CharacterUnitRightIndent = -0.5 41o~5:&  
        .CharacterUnitFirstLineIndent = -0.5 #rx@ 2zi  
         rY(^6[!  
        .LineUnitBefore = 0 z.*=3   
        .LineUnitAfter = 0 PxgLt2dXa  
        .SpaceBefore = 0 XD|vB+j\O  
        .SpaceAfter = 0 fYgX|#Me  
         *Ui>NTl  
    End With oB
zjE v  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False nNcmL/
(  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll vU, ]UJ}  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese fg8U*7  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True ^BQ*l5K  
    DoEvents  ~[ x}  
%I;iP|/  
    '表格内容 1 =9 Kwd  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") 3EX41)u  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False /qO?)p3gk  
    With ActiveDocument.Styles("QLNU表格内容").Font }'Yk #Q  
        .NameFarEast = "楷体" :_+Fe,h>|  
        .NameAscii = "Times New Roman" +FYhDB~m  
        .Name = "楷体" 1ogh8%  
        .Size = 9 N2`u ]*"0  
        .Bold = False e[J0+ x#;r  
        .Underline = wdUnderlineNone !e:HE/&>i  
        .Italic = wdUndefined &^
JY
 
        .Subscript = wdUndefined t 5  
        .Superscript = wdUndefined c h]Q%M  
    End With ]}jY] l  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat ]73BJ  
        .LineSpacingRule = wdLineSpaceSingle Qrt> vOUE7  
        .Alignment = wdAlignParagraphCenter Js!V,={iX  
         f*ZIBTb 9  
        .LeftIndent = CentimetersToPoints(0) =j!Ruy1  
        .RightIndent = CentimetersToPoints(0) S-)%#  
        .FirstLineIndent = CentimetersToPoints(0) u6BLhyS  
         2~SjRIpUw  
        .CharacterUnitLeftIndent = -0.5 6IC/~Woghx  
        .CharacterUnitRightIndent = -0.5 #:M)a?E/%  
        .CharacterUnitFirstLineIndent = -0.5 L51uC ,QF  
        .LineUnitBefore = 0 ){XG%n C  
        .LineUnitAfter = 0 h
h"=|c  
        .SpaceBefore = 0 UP |#WegO  
        .SpaceAfter = 0 3}X;WE `  
    End With oS_<;Fj  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False 6WX+p3Kv  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll ZYD3[" ~x  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese #[ hJm'G  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True 6"U)d7^  
    DoEvents F#$[jh$  
[)83X\CO  
    '图片标题 j%O
nLTZ  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") C6( WnO{6  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" s1NRUV2E  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False `)s>},8W!  
    With ActiveDocument.Styles("QLNU图片标题").Font cdfvc0  
        .NameFarEast = "楷体" 6GtXM3qtS  
        .NameAscii = "Times New Roman" QyX ?  
        .Name = "楷体" q=h~zj Q?R  
        .Size = 10.5 zq&,KZ  
        .Bold = True C~a-R#  
        .Underline = wdUnderlineNone 6z80Y*|eJ  
        .Italic = wdUndefined x'wT%/hp  
        .Subscript = wdUndefined 7nL3+Pq  
        .Superscript = wdUndefined IMay`us]:8  
        .Outline = False _ rf  
        .Shadow = False '1yy&QUZq  
        .Color = wdColorAutomatic C/x<_VJzN/  
    End With }w8:`g'T0/  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat JOJ?.H&su  
        .LineSpacingRule = wdLineSpaceSingle rocG;$[  
        .Alignment = wdAlignParagraphCenter I!sB$=n  
         t&=]>blIs  
        .KeepWithNext = wdUndefined xYCX}bksh  
        .KeepTogether = True {9C+=v?  
        .OutlineLevel = wdOutlineLevelBodyText ^gD%#3>X  
         ?$LKn2C  
        .LeftIndent = CentimetersToPoints(0) @q]{s+#Xf  
        .RightIndent = CentimetersToPoints(0) B?)=d,E  
        .FirstLineIndent = CentimetersToPoints(0) XK4idC  
         naoH685R4  
        .CharacterUnitLeftIndent = 0 =~
~Y@eX  
        .CharacterUnitRightIndent = 0 = A;B-_c  
        .CharacterUnitFirstLineIndent = 0 E>3fk  
         1V37% D  
        .LineUnitBefore = 0 _oJq32  
        .LineUnitAfter = 0 Wg2Y`2@t  
    End With P 2;I0 !  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False ?Em*yc@WD  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll jPf*qe>U  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese )Vb_0n=^  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True ^UAL5}CQt  
    DoEvents '@<aS?@!t  
=D2x@ank[  
    '目录项 csF!*!tta  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") )pAN_e"  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" ;n,@[v  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False PME ?{%&  
    With ActiveDocument.Styles("QLNU目录项").Font -] .Y";  
        .NameFarEast = "黑体" +]%d'h  
        .NameAscii = "Times New Roman" , 1{)B  
        .NameOther = "Times New Roman" ^?)o,djY&  
        .Name = "黑体" &18CCp\3)c  
        .Size = 10.5 H#B~h 4#  
        .Bold = False r&t)%R@q  
        .Italic = wdUndefined }{Ncww!iN  
        .Underline = wdUnderlineNone aGY
F\7  
        .Color = wdColorAutomatic h[0,/`qb{  
        .Superscript = wdUndefined DdL0MGwX  
        .Subscript = wdUndefined #c ndq[H  
    End With S@a#,,\[  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat U ExK|t  
         a}+7MEUmZ/  
        .LineSpacingRule = wdLineSpaceSingle //}[(9b'\  
        .Alignment = wdAlignParagraphLeft @ i
[z4)"S  
         er?'o1M  
        .WidowControl = False :}Tw+S5  
        .KeepWithNext = False &k+'TcWm  
        .KeepTogether = False ,HFoy-Yq  
        .PageBreakBefore = False zi*2> 5g  
        .NoLineNumber = False 9\]%N;;Lo  
        .OutlineLevel = wdOutlineLevelBodyText e)~7pXYV)  
         o(I[_oUy\  
        .LeftIndent = CentimetersToPoints(0) '<C I^5^  
        .RightIndent = CentimetersToPoints(0) FaNH+LPe  
        .FirstLineIndent = CentimetersToPoints(0) 'e4 ;,m  
         ^"h
`U'YC  
        .CharacterUnitLeftIndent = 0 gB\KD{E  
        .CharacterUnitRightIndent = 0 s|U?{Byb!  
        .CharacterUnitFirstLineIndent = 0 wPDA_ns~  
         #qk A*WP  
        .LineUnitBefore = 0 |-hzvuSX  
        .LineUnitAfter = 0 XQu~/{A=  
    End With Z%Nl<i  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False m>gok0{pm  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll 3+;}2x0-F  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot hN6j
5.x%  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese Y)>GwFK$  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True T3o}%wGW  
    DoEvents vmW4 3K;  
     J>P{8Aw  
    '参考文献 ;2vHdN  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") 9tVA.:FOZ  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" OgNt"Vg  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False JBCcR,\kM*  
    With ActiveDocument.Styles("QLNU参考文献").Font yFT)R hN  
        .NameFarEast = "宋体" dE*n
!@  
        .NameAscii = "Times New Roman" *sqq]uD  
        .NameOther = "Times New Roman" dFF[2  
        .Name = "Times New Roman" 63d ' fgVp  
        .Size = 12 vv  _I o  
        .Bold = False Eg?6$[U`8<  
        .Italic = wdUndefined \d0R&vFHQ  
        .Subscript = wdUndefined GQTMQXn(  
        .Superscript = wdUndefined `?Yh`P0  
        .Underline = wdUnderlineNone qJj;3{X2  
        .UnderlineColor = wdColorAutomatic >ln%3=  
        .Color = wdColorAutomatic 8VJUaL@  
        .Engrave = False oXgKuR  
    End With A+T!DnVof  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat e`#c[lbAAM  
         %v\0Dm+A  
        .LineSpacingRule = wdLineSpaceExactly n\}!'>d'  
        .LineSpacing = 16 9}FWO&LiB  
        .Alignment = wdAlignParagraphLeft Ctxs]S tU%  
        .WidowControl = False *f:^6h  
        .KeepWithNext = False Memz>uux  
        .KeepTogether = False J'O</o@e  
        .PageBreakBefore = False w<*tbq  
        .OutlineLevel = wdOutlineLevelBodyText m9UI3fBX  
         'w`:p{E  
        .LeftIndent = CentimetersToPoints(0) a[:0<Ek  
        .RightIndent = CentimetersToPoints(0) cjU*  
        .FirstLineIndent = CentimetersToPoints(0) 0 +0
+%#?  
         nJ#uz:(w,  
        .CharacterUnitLeftIndent = 0 bIP{DxKS  
        .CharacterUnitRightIndent = 0 /a\6&E
b  
        .CharacterUnitFirstLineIndent = -2 gR uNC=sR  
         qWf7k+7G  
        .LineUnitBefore = 0 I)AV  
        .LineUnitAfter = 0 E
?(  
        .SpaceBefore = 0 h#?L6<*tm  
        .SpaceAfter = 0 yVm~5Y&Z  
         M SU| T  
    End With s#ijpc>h  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False 1O1/P,u+  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll @eN x:}  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS I_J;/!l=  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True ]&1Kz 2/  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese 5B!l6ST  
    DoEvents @ X_x?N  
r>S?,qr  
    ' Dx =ms^oN5  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") T^8t<S@`  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" 1e*+k$-{  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False ]5lp.#EB  
    With ActiveDocument.Styles("QLNU论文题目").Font <8[BB7  
        .NameFarEast = "黑体" NaS gK  
        .NameAscii = "Arial Black" D;
It0"  
        .NameOther = "Arial Black" ;}{%|UAsx  
        .Name = "Arial Black" >C~-*M9  
        .Size = 16 tFL/zqgm  
        .Bold = False vBUx)l  
        .Italic = wdUndefined sn&y;Vc[$  
        .Superscript = wdUndefined .Y!*6I  
        .Subscript = wdUndefined P=eVp(/x  
        .Underline = wdUnderlineNone 2H_|Attoi  
        .UnderlineColor = wdColorAutomatic M-u:8dPu  
        .Color = wdColorAutomatic _|xO4{X  
5 fjeBfy  
    End With ow*) 1eo  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat 6~sb8pK.=  
        .LineSpacingRule = wdLineSpaceSingle <8p53*a  
        .Alignment = wdAlignParagraphCenter xR2E? 0T  
        .WidowControl = True 'D8WNZ8Q  
        .KeepWithNext = True t5#IiPp  
        .KeepTogether = True ;BqYh i  
        .PageBreakBefore = True 
Ns2M8  
        .NoLineNumber = False U(DK~#}  
        .OutlineLevel = wdOutlineLevelBodyText !CROc}  
         @CU3V+  
        .LeftIndent = CentimetersToPoints(0) [y|"iSD  
        .RightIndent = CentimetersToPoints(0) S
1{UVkr  
        .FirstLineIndent = CentimetersToPoints(0) AoL4#.r3H  
         m]BxGwT=m  
        .CharacterUnitLeftIndent = 0 ~AxA ,  
        .CharacterUnitRightIndent = 0 ~k?7XF I  
        .CharacterUnitFirstLineIndent = 0 kJqgY|  
         ^!-*xH.dK  
        .LineUnitBefore = 1 ^SB?NRk  
        .LineUnitAfter = 1 (Bd8@}\u_  
         I0=YIcH5  
        .BaseLineAlignment = wdBaselineAlignAuto gmy$_4+6o  
    End With SsfnBCVR  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False u~\u8X3  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll (7q!Z!2  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS @.T '>;izr  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True }<o.VY&;.  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese ozF>2`K }  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True 4 mJ4)  
    DoEvents |BnjT*_9  
     &a%
|L=FY  
    '中文摘要 +~\1Z
gw  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") XKB)++Q=  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle"

./LD  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False m5SJB]a/  
    With ActiveDocument.Styles("QLNU中文摘要").Font 2e zQX2q  
        .NameFarEast = "宋体" ^$SI5WK&)  
        .NameAscii = "Times New Roman" =vMFCp;mv  
        .NameOther = "Times New Roman" wQ qI@  
        .Name = "Times New Roman" zME75;{
 
        .Size = 12 W[[3'JTF  
        .Bold = wdUndefined u?Jw)
`  
        .Superscript = wdUndefined 9D++SU2:}  
        .Subscript = wdUndefined AzVON#rj  
        .Italic = wdUndefined Cfu]umZLn  
        .Underline = wdUnderlineNone X>j% y7v  
        .UnderlineColor = wdColorAutomatic mL`,v WL/`  
        .Color = wdColorAutomatic bB'iK4  
    End With ('pNAn!]  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat ,qV8(`y_  
        .LineSpacingRule = wdLineSpaceExactly eKNZ?!c=  
        .LineSpacing = 20 *|ez|*-  
        .Alignment = wdAlignParagraphLeft jXkz,]Iy  
         jKZJ0`06q  
        .WidowControl = False Io*`hA]  
        .KeepWithNext = False D ::),,  
        .KeepTogether = True WY#A9i5Ge  
        .PageBreakBefore = False b [Sd$ACd  
        .NoLineNumber = False @d QIl#  
        .OutlineLevel = wdOutlineLevelBodyText $-m@cObw!.  
         0 8{0i,Fs  
        .LeftIndent = CentimetersToPoints(0) Y;d$x}dh  
        .RightIndent = CentimetersToPoints(0) W"+*%x   
        .FirstLineIndent = CentimetersToPoints(0) ~YKe:K+&z  
         e
)l<D)  
        .CharacterUnitLeftIndent = 0 1GKd*z  
        .CharacterUnitRightIndent = 0 blNJ  
        .CharacterUnitFirstLineIndent = 2 e5 _a
.c  
        .LineUnitBefore = 0 .}S9C]d:a  
        .LineUnitAfter = 0 " m<]B  
         ,j^ /~   
    End With %Kx:'m%U  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False SuU,SE'TX  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll z=B*s!G  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS YU.aZdA&V3  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True x?Doe`/6?  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese fEE[huG  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True `q7O\  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete }z1aKa9  
    DoEvents .5'
M^  
     3JM0 m (  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") A;n3""  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" 9 o6ig>C  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False 9F)+p7VJq  
    With ActiveDocument.Styles("QLNU英文标题").Font T;qP"KWZ  
        .NameFarEast = "黑体" %719h>$  
        .NameAscii = "Arial Narrow" DZ -5A  
        .Name = "Arial Narrow" `z%f@/:fG  
        .Size = 16 Yo3my>N&g  
        .Bold = True .'JO7of  
        .Bold = wdUndefined P:vAU8d>  
        .Superscript = wdUndefined p9Zi}!  
        .Subscript = wdUndefined z[X>>P3<n  
        .Italic = wdUndefined Ac
}+Uq  
         dO}6zQ\  
        .Underline = wdUnderlineNone QN n\wz_)  
        .UnderlineColor = wdColorAutomatic Nw[TP G5  
        .StrikeThrough = False __M(dN(^  
        .DoubleStrikeThrough = False GZ,`?  
    End With A ><  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat XQ]noaU  
        .LineSpacingRule = wdLineSpaceSingle } #5Vt  
        .Alignment = wdAlignParagraphCenter UXwnE@`F  
        .WidowControl = True )isz }?Dj  
        .KeepWithNext = False e/JbRbZX  
        .KeepTogether = False hu0z):>y  
        .PageBreakBefore = False
J7q^4M+o:  
        .NoLineNumber = False n@ lf+  
        .FirstLineIndent = CentimetersToPoints(0) "n3r,  
        .OutlineLevel = wdOutlineLevelBodyText t
?f2*N:  
         x9q?^\x  
        .LeftIndent = CentimetersToPoints(0) P_6oMR  
        .RightIndent = CentimetersToPoints(0) "s[wLclfG  
        .FirstLineIndent = CentimetersToPoints(0) U;u
@\E@2  
         Aon 3G  
        .CharacterUnitLeftIndent = 0 |l)SX\Qf`@  
        .CharacterUnitRightIndent = 0 WG>Nm89  
        .CharacterUnitFirstLineIndent = 0 2%UzCK  
         ;+] mcgN!  
        .LineUnitBefore = 1 "v
I:B}  
        .LineUnitAfter = 1 xX$'u"dsA  
         UIgs/  
    End With 6U5L>sQ  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False }M-^A{C\%  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll TELN4*  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS F \6-s`(  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True Uo?g@D  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese 8&<C.nKP  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True QG {KEj2V  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete 2#LTd{  
    DoEvents #&<>|m   
9`  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") (~ro_WC/I  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" yXP+$oox9  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False wb~BY  
    With ActiveDocument.Styles("QLNU英文摘要").Font S?ELFq(g  
        .NameFarEast = "宋体" ){^o"A?-:  
        .NameAscii = "Arial" V .+ mK|)  
        .NameOther = "Arial" -L&r2RF/  
        .Name = "Arial" OP0KK^#  
        .Size = 12 lWr=79  
        .Bold = wdUndefined y"6;O0  
        .Italic = wdUndefined y(/"DUx  
        .Superscript = wdUndefined =p~k5k4  
        .Subscript = wdUndefined DCr&%)Ll  
    End With ?D?_D,"C  
    
t4(Z@X$  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat vYb.Ub+  
         C$?gt-tJ'  
        .LineSpacingRule = wdLineSpaceExactly pFb}5Q  
        .LineSpacing = 20 ScOiOz:Ha  
         /vC|_G|{  
        .Alignment = wdAlignParagraphJustify vOIK6-  
         2GeJ\1k  
        .WidowControl = False shlMJa?  
        .KeepWithNext = False mU@pRjq=  
        .KeepTogether = False >dO1)  
        .PageBreakBefore = False :_9MS0  
        .NoLineNumber = False
T40&a(hXQ  
         =hD@hQi  
        .OutlineLevel = wdOutlineLevelBodyText (%.[MilxPM  
         ,9;RP/"7  
        .LeftIndent = CentimetersToPoints(0) ]S!:p>
R  
        .RightIndent = CentimetersToPoints(0) yu3: Hv}  
        .FirstLineIndent = CentimetersToPoints(0) HZ% 2WM  
         VwJA  
        .CharacterUnitLeftIndent = 0 \Gm$hTvB&  
        .CharacterUnitRightIndent = 0 K|[p4*6  
        .CharacterUnitFirstLineIndent = 2 Kz>bfq7  
         &h^E_]P  
        .LineUnitBefore = 0 <% #Dwo}  
        .LineUnitAfter = 1 ,F }\njL  
         <&JK5$l< X  
    End With iQs^2z#Bd  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False } )DE  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll 5B6twn~[  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS X
c8r[dX  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False KA~eOEjM  
    DoEvents LB9D6,*t  
pY@$N&+W  
    Options.Pagination = True CVUA7eG+  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." LFvO[&  
    DoEvents A#NJ8_  
    ActiveDocument.Repaginate N,kPR  
; '6`hZ  
End Sub /bm2v;  
b,C2(?hg  
)B"
k;dLm  

姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 /$[9-G?  
[|qV*3|?  

引用

引用第20楼newport93于06-14-2010 13:47发表的  : IvZ,|R?  
8Cx6Me>,=  
老五，I 服了U。 \p4>onGI  
Ow"e3]}Mt  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 -G'U\EXT  

5& 2([