Dim bContinue As Boolean `f\+aD'u  
M6 "a w6  
Dim regEX As New RegExp z Qx6r .  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 UiH5iZ<r;  
;BW9SqlN  
Dim LastTitle0String As String, LastTitle0No As Long -E-e!  
Dim LastTitle1String As String, LastTitle1No As Long s+6tdBvzs  
Dim LastTitle2String As String, LastTitle2No As Long P7 R}oO_n:  
Dim LastTitle3String As String, LastTitle3No As Long  ].3@ Dk  
Dim LastTitle4String As String, LastTitle4No As Long ->5[C0: ]  
Dim LastTitle5String As String, LastTitle5No As Long Gw?ueui<  
Dim LastTabelString As String, LastTableNo As Long D@`"99z  
Dim LastFigureString As String, LastFigureNo As Long k5eTfaxl  
/gq\.+'{  
Dim strSeperator As String {lNG:o  
$(&+NJ$U$  
Sub ConvertWidth(fTEXT As String, rText As String) ~otV'=/my  
        Selection.Find.ClearFormatting H<ZXe!q(nx  
        Selection.Find.Replacement.ClearFormatting RwDXO dg
u  
        Selection.Find.Wrap = wdFindContinue c[;=7-+  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText |snWO0iF  
        DoEvents YAYwrKt  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True o3a%u
(   
End Sub z?.XVk-  
M`Q
K{$1p  
Sub ClearDomain() -\V;Gw8mD  
        With Selection.Find jYnP)xX ;  
            .ClearFormatting p9j2jb,qy  
            .Replacement.ClearFormatting 7nk3^$|  
            .Wrap = wdFindContinue #hh7fE'9  
            Me.txtStatus.Text = "清除所有域代码" x(y=.4Yf+  
            DoEvents t9[%o=N~lD  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False %QFeQ(b/(  
        End With lCJ/@)  
End Sub DUyUA'*4n|  
SI:Iv:>  
Private Sub cmdCheck_Click() gv/yfiA?  
    bContinue = True >o!5)\F  
    Dim NoSeries1(1 To 16) As String
N3@gvS  
    Dim NoSeries2(1 To 16) As String e/F+Tf  
    Dim NoSeries5(1 To 16) As String /|,:'W%U  
    Dim NoSeriesRM(1 To 16) As String =[IKwmCX  
    Dim paraTotal As Long, ParaText As String nv%0EA
a#}  
    Dim ttString As String, ttNo As String `{'h+v`  
     \bv JZ_  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long nVGWJ3  
tS6r4d%~=  
    Me.txtStatus.Visible = True hpzDQ6-Y  
    Me.lbParaType.Visible = True c{wob%!>  
    Me.cmdCheck.Enabled = False Rj~y#m  
     Vl 0Y'@{  
     qz.WF8Sy2  
     7WEoyd  
     s5u  
    Dim ParaType As String, rText As String ~ ve  
     Sbjc8V ut  
    Selection.WholeStory
*KDwl<^A  
    Selection.NoProofing = True [
G7S  
     R6qC0@*  
    tm1 = Now '2v$xOh!y  
     9DaoMOPEI  
        ActiveWindow.View.Type = wdNormalView AqjEz+TVt  
     -ei+r#  
    NoSeries1(1) = "一" ;  8u5  
    NoSeries1(2) = "二" Z]=9=S| .4  
    NoSeries1(3) = "三" c}D>.x|]  
    NoSeries1(4) = "四" .oz(,$CS"  
    NoSeries1(5) = "五" &|c] U/_w  
    NoSeries1(6) = "六" 1L<X+,]@  
    NoSeries1(7) = "七" js)I%Z  
    NoSeries1(8) = "八" W>m#Mz  
    NoSeries1(9) = "九" !E_RD,_  
    NoSeries1(10) = "十" G|)fZQ1nS  
    NoSeries1(11) = "十一" iS}~e{TP/  
    NoSeries1(12) = "十二" \zV'YeG  
    NoSeries1(13) = "十三" ?oQAxb&  
    NoSeries1(14) = "十四" );L +)UV  
    NoSeries1(15) = "十五" ;N!W|G  
    NoSeries1(16) = "十六" 7hfa?Mcz  
     4/E>k <MA  
    NoSeries2(1) = "㈠" ^1`T_+#[s  
    NoSeries2(2) = "㈡" bVYsPS  
    NoSeries2(3) = "㈢" -SKcS#IF  
    NoSeries2(4) = "㈣" n/Dk~Q)  
    NoSeries2(5) = "㈤" A:,R.P>`C  
    NoSeries2(6) = "㈥" vff`Xh>k(  
    NoSeries2(7) = "㈦" |5me }!C  
    NoSeries2(8) = "㈧" 77~l~EX  
    NoSeries2(9) = "㈨" WZ ^u%Z  
    NoSeries2(10) = "㈩" onF?;>[  
     KhPDkD-  
    NoSeries5(1) = "①" f%c
-  
    NoSeries5(1) = "②" Y\ {&chuF  
    NoSeries5(3) = "③" ]hlYmT  
    NoSeries5(4) = "④" @rxfOc0J#  
    NoSeries5(5) = "⑤" G-W(giF;NO  
    NoSeries5(6) = "⑥" S")*~)N@  
    NoSeries5(7) = "⑦" 8AIAv_ g  
    NoSeries5(8) = "⑧" s]i<D9h  
    NoSeries5(9) = "⑨" 6Y/TqI[   
    NoSeries5(10) = "⑩" DWcEl:  
     jjJ l\Vn  
     psB9~EU&Q  
    NoSeriesRM(1) = "I" x<h-F  
    NoSeriesRM(2) = "II" sr`)l&t?  
    NoSeriesRM(3) = "III" `sJv?  
    NoSeriesRM(4) = "IV"  7K &j  
    NoSeriesRM(5) = "V" BH^8!7dkT  
    NoSeriesRM(6) = "VI" -0Q^k\X-  
    NoSeriesRM(7) = "VII" q=_tjg  
    NoSeriesRM(8) = "VIII" {iq)[ )n  
    NoSeriesRM(9) = "IX" bTc'E#  
    NoSeriesRM(10) = "X" %y R~dt'  
    NoSeriesRM(11) = "XI" a~O](/+p;  
    NoSeriesRM(12) = "XII"
uqK[p^{  
    NoSeriesRM(13) = "XIII" 
y jY}o  
    NoSeriesRM(14) = "XIV" DK }1T  
    NoSeriesRM(15) = "XV" JURJN+)z  
    NoSeriesRM(16) = "XVI" 21.N + H'  
     99&PY[f:{  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) t$5)6zG  
     Rb_+C  
    If i = vbNo Then T.iVY5^<  
        Exit Sub BV6 U -  
    End If I)}T4OOc/  
     R4[dh.lf  
    If Me.chkSuper.Value Then E/uKzzD9  
        Me.txtStatus.Text = "检查修改所有的上标格式" Nzel^~  
     8ubb~B;  
        CheckSuperScript +@#k<.yqn  
         }ygxm
b^@Z  
    End If 6%2\bI.#  
     H&=3rkX  
    If Me.chkStyle.Value Then s&Ml1A:  
        Me.txtStatus.Text = "设置样式，请稍候...." O -N> X  
        DoEvents P>;uS
  
        CeateOrModifyStyle Ol1P  
    End If 5.FAuzz  
     vm`\0V GSW  
     oSB0P  
     !-Md+I_  
    ClearDomain =YeI,KbA)  
         k{B;J\`E;  
     S}XVr?l2O  
     R*z:+p}oHy  
    If Me.chkLIST.Value Then $Qq5Fx9kU  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" jGKasI`  
     F)4;:".zna  
        ConvertListToOrdinary s14;\  
    End If \_PD@A9  
     C4 @"@kbr  
     _chX {_Hu-  
    Dim pType As String, trimpTEXT As String WU<C7  
    If Me.chkNum.Value = True Then bB"q0{9G-  
        Me.txtStatus.Text = "转换全角数字形式为半角" .GNl31f0  
        ConvertWidth "１", "1" p_l.a  
        DoEvents Gt5'-Hyo  
        ConvertWidth "２", "2" +*P;Vb6D  
        DoEvents  ICXz(?a  
        ConvertWidth "３", "3" - ]Mp<Y  
        DoEvents yZ57uz  
        ConvertWidth "４", "4" lv0}
d  
        DoEvents p/.[cH  
        ConvertWidth "５", "5" \A/??8cgXs  
        DoEvents g'{hp:  
        ConvertWidth "６", "6" ro*$OLc/  
        DoEvents D}7G|gX1  
        ConvertWidth "７", "7" p_Y U!j_VE  
        DoEvents L4H5#?'  
        ConvertWidth "８", "8" qW'5Zk  
        DoEvents {_1zIt|  
        ConvertWidth "９", "9" ?ZlN$h^  
        DoEvents WbDD9ZS  
        ConvertWidth "０", "0" 7T-}oNaJA\  
        DoEvents  *"K7<S[  
        ConvertWidth "ａ", "a" L$<(HQQJ8  
        DoEvents d@,3P)?  
        ConvertWidth "ｂ", "b" JB
vP {5  
        DoEvents a]8}zSUK  
        ConvertWidth "ｃ", "c" Y"Y+U`Qt  
        DoEvents Ncle8=8  
        ConvertWidth "ｄ", "d" UA$Xa1  
        DoEvents LFV' ,1+  
        ConvertWidth "ｅ", "e" ik Pm,ZN  
        DoEvents ?^W`7HF%0  
        ConvertWidth "ｆ", "f" NlV,] $L1T  
        DoEvents fN{JLp  
        ConvertWidth "ｇ", "g" xlU:&=|  
        DoEvents \)mV2r!%  
        ConvertWidth "ｈ", "h" gCc::[}\Y  
        DoEvents #Yr/G NN  
        ConvertWidth "ｉ", "i" #ysSfM6  
        DoEvents O^yDb  
        ConvertWidth "ｊ", "j" g7nqe~ `{  
        DoEvents !'T,%8']  
        ConvertWidth "ｋ", "k" Zi~-m]9U  
        DoEvents SY
miDR  
        ConvertWidth "ｌ", "l" 3tIno!|  
        DoEvents /E0/)@pDq  
        ConvertWidth "ｍ", "m" b<?A  
        DoEvents 2%zJI"Ic  
        ConvertWidth "ｎ", "n" qL h[BR  
        ConvertWidth "ｏ", "o" VN!+r7w'  
        ConvertWidth "ｐ", "p" cpg+-Zf%  
        ConvertWidth "ｑ", "q" u+/1ryp  
        ConvertWidth "ｒ", "r" >zY~")|R(  
        ConvertWidth "ｓ", "s" H@!kgaNF
 
        ConvertWidth "ｔ", "t" CPS1b  
        ConvertWidth "ｕ", "u" Wo8.tu-2  
        ConvertWidth "ｖ", "v" &[iunJv:eq  
        ConvertWidth "ｗ", "w" Ng PY/R>  
        ConvertWidth "ｘ", "x" NamO5(1C  
        ConvertWidth "ｙ", "y" @&LtIN#  
        ConvertWidth "ｚ", "z" (& t8.7O  
        ConvertWidth "Ａ", "A" Mk$Pt  
        ConvertWidth "Ｂ", "B" WjsE#9D!of  
        ConvertWidth "Ｃ", "C" @-F[3`HeA  
        ConvertWidth "Ｄ", "D" ;H:+w\?8f$  
        ConvertWidth "Ｅ", "E" +a
xpIjI'  
        ConvertWidth "Ｆ", "F" O9(6?n  
        ConvertWidth "Ｇ", "G" w UBug  
        ConvertWidth "Ｈ", "H" "=ogO/_Q"  
        ConvertWidth "Ｉ", "I" zM*PN|/%sH  
        ConvertWidth "Ｊ", "J" q&N1| f7  
        ConvertWidth "Ｋ", "K" { WW!P,w  
        ConvertWidth "Ｌ", "L" h|S6LgB  
        ConvertWidth "Ｍ", "M" e#jkp'  
        ConvertWidth "Ｎ", "N" FR9*WI   
        ConvertWidth "Ｏ", "O" ($A0umW1%  
        ConvertWidth "Ｐ", "P" '}eA2Q>BV  
        ConvertWidth "Ｑ", "Q" <>|/U`  
        ConvertWidth "Ｒ", "R" G0VbW-`O  
        ConvertWidth "Ｓ", "S" U>jLh57  
        ConvertWidth "Ｔ", "T" Zn9ecN  
        ConvertWidth "Ｕ", "U" #+]-}v3  
        ConvertWidth "Ｖ", "V" ~*,e&I  
        ConvertWidth "Ｗ", "W" mbh;oX+  
        ConvertWidth "Ｘ", "X"
ss>p  
        ConvertWidth "Ｙ", "Y" KOM]7%ys1H  
        ConvertWidth "Ｚ", "Z" <fm0B3i?  
        ConvertWidth "^l", "^p" #X?#v7i",D  
        ConvertWidth "（", "(" H(k-jAO
,  
        ConvertWidth "）", ")" C~#ndl Ij  
     ?g\SF}2  
    End If 1l*O;J9By  
H[KTM
'n  
    With ActiveDocument a]mPc^h  
        Dim tbl As Table cKbsf^R[e  
        For Each tbl In .Tables BavGirCp  
            tbl.Rows.Alignment = wdAlignRowCenter ??tNMr5{[  
            tbl.Range.Font.NameFarEast = "楷体" BPkqC>w  
            tbl.Range.Font.NameAscii = "Times New Roman" Gv uX"J  
            tbl.Range.Font.Size = 10.5 E A8>{}Z*  
        Next / %:%la%  
        Set tbl = Nothing 3om4q2R  
    End With fPLi8`r  
     a'm\6AW2)  
     b`Agb<x"  
    With ActiveDocument ]t|-  
         EM&;SQ;C9  
        For i = 1 To .TablesOfContents.Count A D/7k3:  
            .TablesOfContents(i).Delete T nG=X:+=  
        Next +rA:/!b)Y  
         )@OKL0t  
         K!a4 >Du{  
         Cvf^3~q  
        paraTotal = .Paragraphs.Count 8rwXbYx x  
        paraCounter = 1 G)'(%rl  
         L=9w 3VXS  
        LastTitle0No = 0 4RXF.kJ3=  
        LastTitle1No = 0 2%F!aeX  
        LastTitle2No = 0 'HdOW[3o  
        LastTitle3No = 0 3"XS#~l%  
        LastTitle4No = 0 ek3,ss3  
        LastTableNo = 0 gcNpA?mC|u  
        LastFigureNo = 0 A(<"oAe|  
         s.oh6wz  
        Dim Sec As Long ;x=r.3OQy  
         UAi]hUq  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) @rT}V>2I  
        If Sec = 0 Then ka$oUB)iQ  
            Exit Sub |N/Wu9w$  
        End If A(#4$}!n5  
         +zup+=0e  
        k = 0 :n t \uwh  
        Do While (paraCounter < paraTotal) And bContinue +W-,74A  
            k = k + 1 ID1 /N)56  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then |zaYIVE[  
                Exit Do hi(uL>\  
            End If I
R<`OA  
            paraCounter = paraCounter + 1 E:C-k^/[Y  
            If k Mod 20 = 0 Then n-Qpg  
                Me.lbCounter.Caption = paraCounter L% cr`<~  
                DoEvents YPY'[j(p`n  
            End If )5(Ko<"  
        Loop OG&X7>'3I{  
         ~^u#Q\KE"  
         UPI'O %  
        Do While (paraCounter < paraTotal) And bContinue +@c-:\K%  
             |Q _]+[  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text)
V.k2t$@  
            ShapeHeight = 0 yA# -}Y|]b  
            ShapeWidth = 0 r{~@hd'Aj  
           z8"(Yy7m  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth wK[Xm'QTPJ  
             RU' WHk  
            Select Case ParaType 4H\+vJPM  
                Case "【】表格内容" Q:4euhz*  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" J6VG j=/  
                Case "章" yF#:*Vz>  
                    LastTitle0No = LastTitle0No + 1 MJ+]\(  
                    '新一章开始，复位其下属标题编号 lx!9KQAM*  
                    LastTitle1No = 0 WKwU:im  
                    LastTitle2No = 0 ~ [4oA$[a|  
                    LastTitle3No = 0 Ao/KB_4f*Q  
                    LastTitle4No = 0 \HsrUZ~  
                     IT~pp_6g  
                    k = Val(ttNo) s[HQq;S  
                    If k = 0 Then '非数字编号章节 0,x<@.pW  
                        If ttNo <> NoSeries1(LastTitle0No) Then  b jq1",  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString )K+Tvx3(m  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText :',Q6 j(s  
                        End If kj4t![o+  
                    Else 7Vd"AVn}g  
                        If Val(ttNo) <> LastTitle0No Then z2GT 9  
                            rText = "第" & LastTitle0No & ttString 2]f"(X4jp  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText 4Nx]*\\  
                        End If ?TXe.h|
u  
                         %!;6h^@
 
                    End If &oy
j8  
                     tLzX L*  
                    '章段落设置 tbP ;iK'  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 -#ta/*TT:  
                    .Paragraphs(paraCounter).Style = "QLNU章节" N))G/m3  
                    .Paragraphs(paraCounter).Range.Select Nhm)bdv]  
                    Selection.EndKey unit:=wdLine [$D4U@mRp  
                    tc = Replace(rText, vbCr, "") aybfBC  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False ]1XJQW@gF  
                Case "一级标题" 1ukCH\YgU  
                    LastTitle1No = LastTitle1No + 1 =H\ig%%E@  
                    '新一级标题开始，复位其下属标题编号 IO4 8sV }  
                    LastTitle2No = 0 ]_ON\v1  
                    LastTitle3No = 0 Apfs&{Uy  
                    LastTitle4No = 0 34$qV{Y%y  
                     9W[ ~c"Ku  
                    If ttNo <> NoSeries1(LastTitle1No) Then X!w&ib-  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString ;1&7v  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText ?\l@k(w4[x  
                    End If 32N*E,  
                   %HNe"7gk  
                     #el i_Cxe  
                    '一级标题段落设置  格式：一、标题内容 *A,
h^  
                    .Paragraphs(paraCounter).Range.Text = rText FLI0C  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" F9SkEf ]99  
                    .Paragraphs(paraCounter).Range.Select B[I a8t  
                    Selection.EndKey unit:=wdLine dgIEc]#pH  
                    tc = Replace(rText, vbCr, "") <CJ`A5N  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False )|`#BC  
                Case "二级标题" u=5~^ 9  
                    LastTitle2No = LastTitle2No + 1 w53+k\.  
                    '新二级标题开始，复位其下属标题编号 #<\A[Po  
                    LastTitle3No = 0 +$YluGEJ  
                    LastTitle4No = 0 *&\fBi]  
                     > $#v\8  
                    If ttNo <> NoSeries1(LastTitle2No) Then u\JYxNj1  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString k7\h- yn{  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText @sV6g?{tI  
                    End If u{-J?t&`  
                     UUF;Q0X  
                    '二级标题段落设置 格式：(一)、标题内容 =[$zR>o*%  
                    .Paragraphs(paraCounter).Range.Text = rText ]qLr
o<  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" ?5>Ep:{+/  
                     o y'GAc/  
                    .Paragraphs(paraCounter).Range.Select .>{.!a  
                    Selection.EndKey unit:=wdLine Y_}DF.>I P  
                    tc = Replace(rText, vbCr, "") laQM*FLg  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False !M[a/7x,p  
                 *{y/wgX  
                Case "三级标题" 5V^+;
eO  
                    LastTitle3No = LastTitle3No + 1 5ecAev^1-  
                    '新三级标题开始，复位其下属标题编号 PJCRvs|X  
                    LastTitle4No = 0 =nmvG%.hd  
                     }4; \sY  
                    If Val(ttNo) <> LastTitle3No Then i8tH0w/(M  
                            rText = LastTitle3No & ". " & ttString Vf'r6Rf  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText o$=D`B  
                         3%JPJuNVw  
                    End If ?1f(@  
                    '三级标题段落设置 格式：1. 标题内容 KH<f=?b  
                    .Paragraphs(paraCounter).Range.Text = rText n;eK2+}]  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" 2 P=c1;  
                    .Paragraphs(paraCounter).Range.Select tw`{\kWG  
                    Selection.EndKey unit:=wdLine *)2&gQ&%+  
                    tc = Replace(rText, vbCr, "") 1P'R-I  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False G%V*+Ond  
                Case "四级标题" #SzCd&hI   
                    LastTitle4No = LastTitle4No + 1 ~S],)E1w  
                     BpGK`0H  
                    If Val(ttNo) <> LastTitle4No Then &D|wc4+  
                            rText = "(" & LastTitle4No & "). " & ttString SRixT+E  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText %e@Jc3  
                     ^h:%%\2  
                    End If sKkk+-J4  
                    '四级标题段落设置 格式：(1). 标题内容 t&r-;sH^[  
                    .Paragraphs(paraCounter).Range.Text = rText ?G#T6$E8  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" )i;o\UU  
                    .Paragraphs(paraCounter).Range.Select L)sCc0fv7k  
                    Selection.EndKey unit:=wdLine /kAu&}  
                    tc = Replace(rText, vbCr, "") \*5_gPj!d  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False m 8Q[+_:$H  
                 AvN\^ &G  
                Case "表格标题" j>5D4}*]f  
                    LastTableNo = LastTableNo + 1 #^>5,
M2  
                     fFHT`"bD:  
                    If ttNo <> CStr(LastTableNo) Then zdwr5k  
                            rText = "表" & LastTableNo & ". " & ttString tWNz: V  
                            ErrMsg.AddItem "表格编号错误：" & ParaText 2f8Cs$Opb  
                   ;34 m!\N5  
                    End If 5jpb`Axj#  
                     B^z3u=ll  
                    '表格名称段落设置 格式：表1. 表格名称 DKjkO5R\  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" p&:(D=pIu  
                    xe = Replace(rText, vbCr, "") pm*6&,  
                    .Paragraphs(paraCounter).Range.Select Z?vbe}pUM  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 Mpm#a0f  
                    Selection.Range.Text = xe FK$?8Jp  
                    Selection.EndKey 0;b% @_E  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False ZkyH<Aa  
                 .[Z<r>  
                Case "表格首行" m|RA@sY%`  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" 4mG?$kCN  
                Case "图片标题" 9Okb)K95  
                    LastFigureNo = LastFigureNo + 1 \s.c.c*eh;  
                     PuuO2TZ  
                    If ttNo <> CStr(LastFigureNo) Then ~olta\|  
                            rText = "图" & LastFigureNo & ". " & ttString &wlSOC')j  
                            ErrMsg.AddItem "表格编号错误：" & ParaText kO]],Vy`  
                   em87`Hj^lo  
                    End If pM B~Lt9  
                    '图片名称段落设置 格式：图1. 图名称 6<h?%j(  
                    .Paragraphs(paraCounter).Range.Text = rText i_? S#L]h  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" llf|d'5Nl  
                    .Paragraphs(paraCounter).Range.Select }#[MV+D  
                    Selection.EndKey unit:=wdLine 2VNMz[W'  
                    xe = Replace(rText, vbCr, "") 03iD(,@  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False
?0Qm  
                Case "正文" 0<{+M`G/  
                     '正文名称段落设置 &J\V !uVo  
                    .Paragraphs(paraCounter).Style = "QLNU正文" #8!xIy  
               Case "文献条目" a-t}L{~  
                    With .Paragraphs(paraCounter) -N')LY  
                        '.Range.Select -m&8SN  
                        'Selection.ClearFormatting Tn~b#-0  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” QsaaA MGY  
                        .Style = "QLNU参考文献" %lw!4Z\gg  
                    End With e7j30Iy  
               Case "图表注解" PF,|Wzx  
                    With .Paragraphs(paraCounter) $6ZO V/0  
                        .Range.Font.NameFarEast = "楷体" ;+dB-g[
 
                        .Range.Font.NameAscii = "Times New Roman" O6LuFT.  
                        .Range.Font.Size = 9 '小5号字 f$lf(brQ:  
                         #gw ys  
                        .Alignment = wdAlignParagraphCenter USKa6<:{W  
                        .LeftIndent = 0 -`mHb  
                        .RightIndent = 0 ;_yp@.,\T  
                        .FirstLineIndent = 0 uqhNi!;  
                        .LineSpacing = 12 \X=?+| 9  
                        .LineSpacingRule = wdLineSpaceExactly A
'Q nL  
                        .LineUnitAfter = 0 piRP2Lbm*  
                        .LineUnitBefore = 0 m)A~1+M$)L  
                        .OutlineLevel = wdOutlineLevelBodyText xwwy9:ze*l  
                        .PageBreakBefore = False g,5r)FU`  
                        .RightIndent = 0 +v 9@du  
                        .WordWrap = True F8\nAX  
                        .LineUnitAfter = 0.5 u0;FQr2  
                         Ie#LZti  
                    End With nyZUf{:  
                Case Else Y5}<7s\UDO  
                    '不作处理 26YY1T\B)  
            End Select pZu2[  
             1!@ KRV  
            '含有inlineshape的段落处理 AeqxH1%  
            If ShapeHeight > 30 Then IAD_Tck  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 ;NrN#<j(!  
            End If 2d,q?VH$  
             9B
lc  
            If (ShapeWidth + ShapeHeight) > 150 Then .[v4'ww^  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" k{/2vV[`]  
            End If D Hkmn  
             'V reO52  
            '段落计数器递 hhTM-D1Ehs  
            paraCounter = paraCounter + 1 H0Q.; !^  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter ZiBTe,;  
            Me.txtStatus.Text = ParaText Rw$>()}H8  
            DoEvents ~aK@M4  
        Loop +H[GD!  
    End With n
\Z&sc  
     3Z*'  
    msg = "" c xhS*"Ph  
     k!gf
t'iU  
    For i = 0 To Me.ErrMsg.ListCount - 1 v2>.+Eh#  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) 7|A9  
    Next Z:l.{ 3J$  
     SBBDlr^P  
     RcUKe,  
     kKV`9&d
Ze  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg e}u#:ysj  
    Me.cmdCheck.Enabled = True `ySm
zp  
    Me.txtStatus.Visible = True kI>Iq Q-h  
    Me.lbParaType.Visible = False 
VO|2  
     ncEOz1u  
    bContinue = False -sais H6  
End Sub 69U[kW&  
;%r#pv~  
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) -[cl]H)V  
    Dim pTEXT As String k%iZ..  
     E\5cb[Y  
    pTEXT = ChKRange.Text 1C[j:Ly/  
     \:cr2w'c  
    ParaType = "其它" A$K>:Tt>  
    TitleString = pTEXT RO-ABFEi(  
    TitleNo = "N/A" S7cxEOfAu  
     0jY#,t?>  
    shpCounter = ChKRange.InlineShapes.Count Ou~|Q&f'  
    If shpCounter <> 0 Then "o +" Jd  
        MaxShpHeight = 0: TotalShpWidth = 0 7-nz'-'  
        For i = 1 To shpCounter ;><9R@0  
            k = ChKRange.InlineShapes(i).Height l
65-8  
            l = ChKRange.InlineShapes(i).Width Z h?1+Sz&  
            If k > MaxShpHeight Then 5*=a*nD11  
                MaxShpHeight = k tBNkVh(c  
            End If <lHelX=/  
            TotalShpWidth = TotalShpWidth + l .JNU3%s  
        Next FcnSO 0G%  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then DP=4<ES%+  
            Exit Sub Sm
;EWz-?  
        End If #!wL0p   
    End If D2$"!7O1H  
     lW! U:  
    '空行 ?QGAiu0  
    If Len(pTEXT) <= 2 Then 8~QEJW$  
        Exit Sub k T$yHB #  
    End If ?UAB}CjY  
     BJgg-z{Y  
         rz c}2I  
    '是否为表格中的文字 /n= %#{  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then [KIK} :  
        ParaType = "表格内容" 'H0b1t1S%  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) *I0{1cS T  
        If k = 1 Then {/]Ks8` Dm  
            ParaType = "表格首行" @\ ,WJmW  
        End If $:I~y| !1  
        Exit Sub Jsee8^_~  
    End If .6Sw
c?  
     d($f8{~W  
    '例外情况：脚注 \Uun2.K  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then ='1J&w~7  
        ParaType = "脚注" Ol4)*/oZ  
        Exit Sub Gld|w=qr  
    End If 
-1ke3  
     =W1`FbR  
    '例外情况：尾注 zi~_[l-  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then T<*i($ [  
        ParaType = "尾注" xU/Eu;m  
        Exit Sub ;eznONNF  
    End If 6,j6,Q(67  
     [TiOh'  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then %;UEyj  
        ParaType = "页眉页脚" k^3|A3A  
        Exit Sub `nA_WS  
    End If "^j& ^sA+  
     38IVSK_  
     r2A(GUz  
    With regEX M{S7tMX  
        .Global = True 3%Jg' Tr+  
         73?ZB+\)0A  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" 5b9v
`6Kq  
        If regEX.Test(pTEXT) Then sy+o{] N  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") GWZ0!V  
            TitleString = regEX.Replace(pTEXT, "$3") \BC|`)0h  
            TitleNo = regEX.Replace(pTEXT, "$1") \S(:O8_"68  
            ParaType = "章" k'uN2m  
            Exit Sub k,>sBk8  
        End If )Yvf9dl  
         ,bRvj8"M  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" _@3?yv~ D  
        If regEX.Test(pTEXT) Then 7dl]f#uZU  
            ParaType = "一级标题" ,^MA,"8  
            regEX.Execute (pTEXT) @`<vd@  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") C<CE!|sfr  
            TitleString = regEX.Replace(pTEXT, "$3") |r"1 &ow5  
            TitleNo = regEX.Replace(pTEXT, "$1") K DP7u  
            Exit Sub @,i_ KN6C  
        End If Ic4>kKh  
         ^Z7])arA  
        '全角或半角括号中的数字 MIPmsEdBi  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" {s}@$rW  
        If regEX.Test(pTEXT) Then 0Y#S2ty  
            ParaType = "二级标题" *bu/Ko]  
            regEX.Execute (pTEXT) s8T}ah!  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") 7bioLE  
            TitleString = regEX.Replace(pTEXT, "$5") CybHr#LBc  
            TitleNo = regEX.Replace(pTEXT, "$2") cDMA#gp  
            Exit Sub ^|DI9G(Bs  
        End If noiUi>G;:  
         tp2CMJc{L  
        '阿拉伯数字  1. 2. 3
}Z [d  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" \HFeEEKH  
        If regEX.Test(pTEXT) Then hv 18V>8  
            ParaType = "三级标题" WAlsh
  
            regEX.Execute (pTEXT) Uv,_VS(  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 _K{hq<g  
            TitleString = regEX.Replace(pTEXT, "$3") $a(EF 6  
            TitleNo = regEX.Replace(pTEXT, "$1") "=I ioY  
            Exit Sub SGn:f>N  
        End If O@jW&-;  
         ;L.@4b[lP  
        '全角或半角括号中的阿拉伯数字 L*tn>AO  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" ,o-BJ 069  
        If regEX.Test(pTEXT) Then :UmY|=v?t  
            ParaType = "四级标题" X$w ,zb\  
            regEX.Execute (pTEXT) :&X
y#.un  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") =/MAKi}g  
            TitleString = regEX.Replace(pTEXT, "$5") 5KJN](x+  
            TitleNo = regEX.Replace(pTEXT, "$2") 6y&d\_?Y  
            Exit Sub p(UUH3%W  
        End If 0}]k>ndT  
        
CW>f;  
        '表格名称 gCAWRNp  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" BgLK}p^  
        If regEX.Test(pTEXT) Then ]Lq9Ompf(t  
            ParaType = "表格标题" ^y"Rdv  
            regEX.Execute (pTEXT) V2kNJwwk  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) YK#bzu ,!  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) z5Hz-.  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) gc@,lNmi  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 1,fjdd8OM;  
            Exit Sub g:MpN^l  
        End If  c#+JG  
         .3k"1I '\  
        '图片名称 `As
.1@  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" kBd #=J
 
        If regEX.Test(pTEXT) Then R*I{?+  
            ParaType = "图片标题" 5-O[(b2O  
            regEX.Execute (pTEXT) Jq)!)={  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") jJ-j   
            TitleString = regEX.Replace(pTEXT, "$3") [i24$UT  
            TitleNo = regEX.Replace(pTEXT, "$1") ETe,RY  
            Exit Sub 6R% I )  
        End If /7
X:=~m  
         s 
bV6}  
        '参考文献 'M2Jw8i  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 Z++JmD1J  
        If regEX.Test(pTEXT) Then yjZxD[ Z  
            ParaType = "文献条目" RWf4Wh?d  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") B3u
v>\  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") |Euf:yWY  
            Exit Sub @~Z: W<X  
        End If 0%.l|~CE&  
         z-nhL=  
        prfx = Left(pTEXT, 2) DWDL|4 og  
        If prfx = "注：" Or prfx = "注:" Then jvn:W{' Q  
            ParaType = "图表注解" s<x2*yVUA  
            Exit Sub }~$zdgMT  
        End If FCU~*c8C
s  
         <N^2|*3  
         Pb=J4Lvz(d  
        ParaType = "正文" w~sr2;rp<  
         \:C@L&3[  
    End With 
2F+K(  
End Sub ZiodJ"r  
y8jk9Tv  
Sub ConvertListToOrdinary() : WejY`}H%  
    Dim st As Paragraph >_h*N
H  
    With ActiveDocument b8v?@s~  
        For i = .Paragraphs.Count To 1 Step -1 Kr`Cr5v  
            Set st = .Paragraphs(i) 4;8 Z?.  
            lst = st.Range.ListFormat.ListString B@dA?w.x  
            If lst <> "" Then p%5RE%u  
                st.Range.ListFormat.RemoveNumbers cMxTv4|wui  
                st.Range.InsertBefore lst & " " :~BY[")  
            End If -%"Kxe  
        Next L2Uk/E  
    End With G&MI@Hq  
    Set st = Nothing Y
( n# =  
End Sub T:S+Pt~  
XEMi~L+  
Private Sub UserForm_Activate() U.UN=uv_  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" NK'awv),pM  
    Me.lbTotal.Font.Bold = True h_L-M}{OG  
    Me.txtStatus.Visible = False
y)?Sn  
    Me.cmdCheck.Enabled = True +K2jYgy  
K:/%7A_{  
End Sub DWZ!B7Ts  
G^J|_!.a  
i[A$K~f  
Sub CheckSuperScript() 9r%O  
    Selection.Find.ClearFormatting RVtb0FL  
    Selection.Find.Replacement.ClearFormatting !u@e^J{Ao  
    With Selection.Find =rcqYPul0  
        .Text = "[【\[［〖](*)[】\]〗］]" e>1z1Q;_uv  
        .Replacement.Text = "[\1]" G (Fi  
        .Replacement.Font.Superscript = True X2!vC!4P?L  
        '.Replacement.Font.Color = wdColorBlue >lxhXYp  
        .Forward = True k_.%(ZE  
        .Wrap = wdFindContinue \gy39xoW(  
        .FORMAT = True k,O("T[  
        .MatchCase = False QcG4~DEX
4  
        .MatchWholeWord = False io^^f|  
        .MatchByte = False +4EQ9-  
        .MatchAllWordForms = False <hgt{b4  
        .MatchSoundsLike = False 7a 4G:  
        .MatchWildcards = True 1i :l  
    End With ?)k;.<6  
    Selection.Find.Execute Replace:=wdReplaceAll 
hkeOe  
End Sub LDHu
f<`  
I:[^><?E  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) wN8-Me
 
    bContinue = False FS30RP3 `/  
    Set regEX = Nothing jD9^DzFx  
End Sub  _c?&G`  
PvX>+y5  
Sub CeateOrModifyStyle() yU3f M?
a  
' b_@MoL@A!  
' _M= \s>;G  
Dim stl As Style S1NM9xHJ  
     a=\r~Z7E  
    Options.Pagination = False 82Dw,Cn  
     4vcUHa|4  
    On Error Resume Next 7HzO_u%H1  
    For Each stl In ActiveDocument.Styles z/aZ
D\[_  
        stl.Delete _n(O?M&x  
    Next

5Og.:4  
    On Error GoTo 0 n#,|C`2
r  
     oVyOiWo\Z  
    Set stl = Nothing ,-#8/9ts  
     !8M]n  
    DoEvents /<)A!Nn+F  
    On Error Resume Next E9t[Mb %0  
     jHq.W95+P  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph |13UJ v
R
 
     ju`x   
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph ~itrM3^"w  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph a,IE;5kG  
     i/`N~r  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph PJLSDIeN  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph gtWJR  
     TyVn5XHl^  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph `Xvrf  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph G V'Y'  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph Q.Tn"rE|  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph ZW n j-  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph 21x?TZa  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph 0\84~t'[  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph +DFG762  
     3 4CqLPg8  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph }stc]L{79  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph sui3(w b  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph :hB/|H*=  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph =B_v
QJF2  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph 7<DlA>(oUX  
     JSCe86a7<E  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph .^0@^%Wi  
    On Error GoTo 0 SbI %|  
    DoEvents 0@ []l{N  
     <m:8%]%M6  
    'BaseStyle |u{NM1,  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False ys|a ^VnN  
    With ActiveDocument.Styles("BaseStyle").Font d-w#\ ^  
        .NameFarEast = "宋体" (mIw3d8Tz  
        .NameAscii = "Times New Roman" )
.e_iE[&  
        .NameOther = "宋体" 1>bG]l1//  
        .Size = 10.5 'H-: >'k  
        .Bold = wdUndefined XOK.E&eilj  
        .Italic = wdUndefined \zCT""'i  
        .Subscript = wdUndefined &OD)e@Tc  
        .Subscript = wdUndefined Lgl%fO/<t  
         /9<zG}:B  
        .Underline = wdUnderlineNone `''\FPhh  
        .UnderlineColor = wdColorAutomatic uuW._$.A>  
        .StrikeThrough = False Ge=+0W)&  
        .DoubleStrikeThrough = False qB PUB(  
         0w}OE8uq  
        .Outline = False ,,vl+Z<&  
        .Emboss = False v:kTZB  
        .Shadow = False %_N-~zZ1E  
        .Hidden = False qV2aa9p+  
        .SmallCaps = False NrPs :`  
        .AllCaps = False /iFtW#K+  
        .Color = wdColorAutomatic t=\y|Idc  
        .Engrave = False 8%v1[Wi  
        .Scaling = 100 /pni_-l*  
        .Kerning = 1 45fk+#  
        .Animation = wdAnimationNone X8aN l"x  
        .DisableCharacterSpaceGrid = False 3:1 h:Yc<  
        .EmphasisMark = wdEmphasisMarkNone *T0{ yI  
    End With !2>MaV1,  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat [h20y  
        .LeftIndent = 0 O+hN?/>v  
        .RightIndent = 0 1 i # .h$  
        .SpaceBefore = 0 `MtI>x c  
        .SpaceBeforeAuto = False ~ {OBRC  
        .SpaceAfter = 0 + >?"P^  
        .SpaceAfterAuto = False wd&Tf R4!  
         L5 ~wX  
        .LineSpacingRule = wdLineSpaceSingle mb_*FJB-_  
        .Alignment = wdAlignParagraphJustify udYk 6  
         QyN<o{\FD!  
        .WidowControl = False }cuU5WQ?%  
        .KeepWithNext = False R:8\z0"L*  
        .KeepTogether = False
~_R8; b  
        .PageBreakBefore = False fH[Yc>(oj  
        .NoLineNumber = False jt5en;AA[  
         60?/Z2w5  
        .FirstLineIndent = CentimetersToPoints(0) @%mJw u  
        .OutlineLevel = wdOutlineLevelBodyText WBdC}S }3t  
        .CharacterUnitLeftIndent = 0 *CG-F=  
        .CharacterUnitRightIndent = 0 X,dOF=OJL  
        .CharacterUnitFirstLineIndent = 0 uBp"YX9rx  
        .LineUnitBefore = 0 J+tpBPmb  
        .LineUnitAfter = 0 v.Wkz9 w}  
        .AutoAdjustRightIndent = True ,q$'hYTaJ  
        .DisableLineHeightGrid = True T@0\z1,~S  
         KLi&TmIB  
        .FarEastLineBreakControl = True MBZ/Pzl~  
        .WordWrap = True k4Ed7T-  
        .Hyphenation = False >.^/Z/[.L  
         P5/\*~}  
        .HangingPunctuation = True `{BY {  
        .HalfWidthPunctuationOnTopOfLine = True ~kM# lh7At  
        .AddSpaceBetweenFarEastAndAlpha = True #1c%3KaZI  
        .AddSpaceBetweenFarEastAndDigit = True co^kP##Y  
        .BaseLineAlignment = wdBaselineAlignBaseline d2f   
    End With R>1  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False dNd(57  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll a(- ^ .w  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese ^ 'W<|  
    ActiveDocument.Styles("BaseStyle").NoProofing = False J eCKnt=  
     _qwKFC  
    '一级标题题样式 <pzCpF<  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") YmXh_bk  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" hJ[Z~PC\T0  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False <2Q+? L{  
    With ActiveDocument.Styles("QLNU一级标题").Font 6S*L[zBnA\  
        .NameFarEast = "黑体" NVqJN$z  
        .NameAscii = "Arial Black" >;I$&  
        .NameOther = "黑体" CsfGjqpf  
        .Name = "黑体" }cUq1r-bW  
        .Size = 16              '三号 [k qx%4q)  
        .Bold = True RQ}0f5~t  
        .Italic = wdUndefined stn/   
        .Subscript = wdUndefined (Q~ p"Ch  
        .Superscript = wdUndefined q5<'pi   
    End With @T>\pP]o  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat |/rms`
YQ  
         (/6~*<ZGT  
        .LeftIndent = CentimetersToPoints(0) fX"cQ&  
        .RightIndent = CentimetersToPoints(0) imGg3'  
        .FirstLineIndent = CentimetersToPoints(0) Kxs_R#k  
         aYc*v5QN3  
        .LineSpacingRule = wdLineSpaceSingle V80BO#Pk  
        .Alignment = wdAlignParagraphCenter Qf0]7  
         @,btQ_'X  
        .WidowControl = True Xtv^q>!  
        .KeepWithNext = True -js:R+C528  
        .KeepTogether = True vh
e[:`=a  
        .OutlineLevel = wdOutlineLevelBodyText RlJt+lnV  
         :5`=9_|  
        .LineUnitBefore = 0.5 )nncCUW  
        .LineUnitAfter = 0.5 oT9 dMhx8  
    End With
53>y<  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False h+ixl#:  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll aPD
4S&"Q  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese ,ru2C_LQ  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True VHwAO:+-  
    DoEvents OEMYS I%  
     X
)P;UVR0  
    '二级 Wx~N1+  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") =z_.RE  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" S3Q^K.e?  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False /1A3 Sw  
    With ActiveDocument.Styles("QLNU二级标题").Font z u53mZ  
        .NameFarEast = "黑体" !kAjne8]d  
        .NameAscii = "Arial Narrow" -2Bkun4Pt  
        .NameOther = "黑体" "'B x<FA  
        .Name = "黑体" j 0^% 1  
        .Size = 15        '小三号 %NH#8#';2  
        .Bold = False prJ]uH,  
        .Outline = False LHit9O[_/s  
        .Italic = wdUndefined vRp#bScc  
        .Subscript = wdUndefined 7Aj o9  
        .Superscript = wdUndefined glk-: #  
    End With 4}C^s\?z  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat PHZ+u@AA6@  
        .LeftIndent = CentimetersToPoints(0) :zN{>,sC  
        .RightIndent = CentimetersToPoints(0) `v;9!ReZV  
        .FirstLineIndent = CentimetersToPoints(0) %+BiN)R*x  
         S.G"*'N  
        .LineSpacingRule = wdLineSpaceSingle ;h|zNx0  
        .Alignment = wdAlignParagraphLeft s#phs`v  
         H?\b   
        .WidowControl = True >J4Tk1//b  
        .KeepWithNext = True LU'<EXUbY  
        .KeepTogether = True -B+Pl*  
        .PageBreakBefore = False 9 GEMmo3  
        .OutlineLevel = wdOutlineLevelBodyText \53(D7+  
         SxyXz8+e[  
        .LineUnitBefore = 0.5 QYl Pr&O9  
        .LineUnitAfter = 0.5 =v-qao7xCV  
         # !:u *1  
    End With [d iUO1p  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False E]T >m!6  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll &~9'7 n!  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese HP/f`8  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True 6MsVV_/  
    DoEvents {w/{)BnPG  
     u`K)dH,  
    '三级标题样式 &d5n_:^  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") j6Msbq[  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" ~8fy qE$  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False J3 Y-d7=|  
    With ActiveDocument.Styles("QLNU三级标题").Font o|r8x_!+  
        .NameFarEast = "宋体" wlSl ~A/s  
        .NameAscii = "Times New Roman" 3W&f^*  
        .NameOther = "黑体" xLZJ[:gr  
        .Name = "黑体"  Xaz`L  
        .Size = 14               '四号 }q8|t3  
        .Bold = False /#WRd}IjK  
        .Outline = False x}\_o< d  
        .Italic = wdUndefined Q&Q$;s3|Y  
        .Subscript = wdUndefined ^tp6G  
        .Superscript = wdUndefined M`_RkDmy<  
    End With . #+N?D<  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat j` RuK  
        .LeftIndent = CentimetersToPoints(0) H rMH  
        .RightIndent = CentimetersToPoints(0) `;X~$uS  
        .FirstLineIndent = CentimetersToPoints(0) 8\ 
V  
         }bkQr)us  
        .LineSpacingRule = wdLineSpaceSingle O$ p  
        .Alignment = wdAlignParagraphLeft h!@ t8R  
         \L6kCY  
        .WidowControl = True cOhx  
        .KeepWithNext = True K'/,VALp  
        .KeepTogether = True
b-'T>1V
 
        .PageBreakBefore = False g4p-$WyT8>  
        .OutlineLevel = wdOutlineLevelBodyText %8U/ !(.g  
         o p{DPUO0  
        .CharacterUnitLeftIndent = 0 nw.,`M,N  
        .CharacterUnitRightIndent = 0 ,tZJSfHB  
        .CharacterUnitFirstLineIndent = 2 yf 7Sz$Eq  
         nYA@t=t0  
        .LineUnitBefore = 0.5 VR5CRNBJ  
        .LineUnitAfter = 0 */8b)I}yY  
    End With 6A $ Y]u  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False ]6)~Sj$ 5  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll PIo8mf/  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese {DP%=4  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True k4@$vxy0  
    DoEvents .k_> BD];  
     ;_bZH%o.  
    '四级标题样式 kK62yz,  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") U;PGBoe  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" 3c%dErch  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False 0ZRIi70u  
    With ActiveDocument.Styles("QLNU四级标题").Font M{!Y   
        .NameFarEast = "宋体" 1]DPy+  
        .NameAscii = "Times New Roman" q4Rvr[  
        .NameOther = "宋体" 9YMD[H\}V  
        .Name = "宋体" cu~dbv6H  
        .Size = 12               '小四号 CP5vo-/)-  
        .Bold = True nu=yE$BN{  
        .Outline = False #Qir%\*V  
        .Italic = wdUndefined /y2)<{{I  
        .Subscript = wdUndefined O1C|{ M  
        .Superscript = wdUndefined q:iB}ch5R  
    End With Y! 8 I  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat 9n\b
!*x  
         "#ctT-g`6  
        .LeftIndent = CentimetersToPoints(0) sN"JVJXi  
        .RightIndent = CentimetersToPoints(0) s2IjZF{  
        .FirstLineIndent = CentimetersToPoints(0) PM(M c]6  
         9i^dQV.U=  
        .LineSpacingRule = wdLineSpaceSingle D]P_tJI  
        .Alignment = wdAlignParagraphLeft 4y:pj7h  
         7dg2-4  
        .WidowControl = True O6 :GE'S  
        .KeepWithNext = True te<lCD6  
        .KeepTogether = True QGC%, F"+  
        .PageBreakBefore = False h vC gd^M  
        .OutlineLevel = wdOutlineLevelBodyText NZ{)&ObBRt  
         {Yt@H

 
        .CharacterUnitLeftIndent = 0 d9qA\ [  
        .CharacterUnitRightIndent = 0 5*~]=(BE  
        .CharacterUnitFirstLineIndent = 2 Z30r|Ufh  
         VM.4w.})_E  
        .LineUnitBefore = 0 )(4.7>  
        .LineUnitAfter = 0 ygN4%-[XA  
         &"_5?7_N  
    End With goJK~d8M*  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False \vKKq/f  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll c3L)!]kB  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese o.o$dg(r!  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True {/u}  
    DoEvents GC#s;X  
     L\GjG&Y5  
    '正文校式 Exu5|0AAE  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") [9-&Lq_ g  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" `]T#uP<u  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False O7})1|>1  
    With ActiveDocument.Styles("QLNU正文").Font ^9jrI  
         fN|'aq*Pd  
        .NameFarEast = "宋体" p-qt?A  
        .NameAscii = "Times New Roman" G(Ky7SZ  
        .NameOther = "宋体" (4GDh%  
        .Name = "宋体" DI>SW%)>  
         NK
yKsu  
        .Size = 12               '小四号 hxT{!g  
         /Wx({N'
h$  
        .Bold = wdUndefined h<1p
GQV  
        .Italic = wdUndefined QDHTP|2e  
        .Subscript = wdUndefined %}`zq8Q
;  
        .Superscript = wdUndefined NKX,[o1  
         @,9cpaL3  
        .Outline = False 1:.I0x!  
        .Emboss = False #?3oGrS Y  
        .Shadow = False sY%nPf~9q'  
        .Hidden = False QTC-W2t]  
         '{ -7%>`bn  
        .DisableCharacterSpaceGrid = True _Hp[}sv4)  
    End With <3SO1@
?  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat Y8s.Q  
         ]YF_c,Q  
        .LeftIndent = CentimetersToPoints(0) A.8[FkiNmD  
        .RightIndent = CentimetersToPoints(0) bE6 :pGr  
        .FirstLineIndent = CentimetersToPoints(0) $sfDtnRy  
         Y|3n^%I  
        .LineSpacingRule = wdLineSpaceExactly &{
gD(QG  
        .LineSpacing = 20 0
t^Tm0RzH  
        .Alignment = wdAlignParagraphLeft :(?F(Q^  
         ab@1JAgs  
        .WidowControl = False (q 0wV3Qv  
        .KeepWithNext = False CRh.1-  
        .KeepTogether = False o`{@': %D`  
        .PageBreakBefore = False 4.t72*ML  
        .Hyphenation = False ab!Cu8~v  
         o<\uH
r3  
        .OutlineLevel = wdOutlineLevelBodyText LBw$K0  
         n2p(@  
       )%(V.?eW  
        .CharacterUnitLeftIndent = 0 DwNEqHi  
        .CharacterUnitRightIndent = 0 ;WP%)Z  
        .CharacterUnitFirstLineIndent = 2 7_G$&  
         W }"n*  
        .LineUnitBefore = 0 57S!X|CE  
        .LineUnitAfter = 0 #X`qkW.T<  
        .SpaceBefore = 0 dEvjB"x  
        .SpaceAfter = 0 Wcf;ZX
  
         .7`c(9<  
        .DisableLineHeightGrid = True >[qoNy;  
    End With !k}]`z^d  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False BYKONZu  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll Zr#\>h'c  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese Y9w^F_relL  
    ActiveDocument.Styles("QLNU正文").NoProofing = True qX%oLa  
    DoEvents UG,<\k&  
     zF7*T?3b"  
    '图片段落样式 U;
qGUqI  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") /= i+7^  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" YqEB%Y~N+  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False {gkY:$xnrG  
    With ActiveDocument.Styles("QLNU图片段落").Font 2 {I(A2  
        .Size = 12               '小四号 -~rZ| W~v  
        .Italic = wdUndefined Z`jSpgWR  
        .Subscript = wdUndefined `0z8J*T]  
        .Superscript = wdUndefined !5VT[w 1  
    End With "3Lq/mJYnZ  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat eKv{N\E  
         [AA*B  
        .LeftIndent = CentimetersToPoints(0) QIWfGVc-  
        .RightIndent = CentimetersToPoints(0) 4\pUA4  
        .FirstLineIndent = CentimetersToPoints(0) TGSkJ 1Lx  
         Ia%S=xU{=  
        .LineSpacingRule = wdLineSpaceSingle B]lM69Hz  
        .Alignment = wdAlignParagraphCenter p*Q *}V  
        .KeepWithNext = True 2zlBrjk;  
        .OutlineLevel = wdOutlineLevelBodyText nX>HR
dC  
         sWGc1jC?.F  
        .CharacterUnitLeftIndent = 0 p_:bt7 B  
        .CharacterUnitRightIndent = 0 !\hUjM+(}  
        .CharacterUnitFirstLineIndent = 0 ?E6C|A$I  
         !zR1CM  
        .LineUnitBefore = 0 0)0,&@])7  
        .LineUnitAfter = 0 `iQ9
9  
    End With #*zl;h1(  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False 6E))4 lW  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll M/LC:,  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese 7,IH7l|G  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True '<!T'l:R:/  
    DoEvents 1(`UzC=R|  
     J9V,U;"\  
     4COo~d  
    '第X章
M\!z='Fi  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") \pwg8p[4Q  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" gc[BP>tl\  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False 1$toowb"Zy  
    With ActiveDocument.Styles("QLNU章节标题").Font qi]"`\  
        .NameFarEast = "黑体" py':UQS*q  
        .NameAscii = "Arial Black" 2t3DQ   
        .NameOther = "Arial Black" T[\?fSP  
        .Name = "黑体" y7@q]~%  
        .Size = 16 {+N7o7  
        .Bold = True @ |^;d  
        .UnderlineColor = wdColorAutomatic
%-Oo92tP  
        .Outline = False )d =8)9B  
        .Italic = wdUndefined $OP w$  
        .Subscript = wdUndefined 3o.9}`/  
        .Superscript = wdUndefined T:|PSJc0  
        .Scaling = 100 o'*7I|7a  
        .DisableCharacterSpaceGrid = True ]N4?*S*jd)  
    End With nN*:"F/^  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat w yC1
M  
        .LineSpacingRule = wdLineSpaceSingle ~}@cSv'(1  
        .Alignment = wdAlignParagraphCenter `;v5o4.`  
        .WidowControl = True 6)#=@i` \  
        .KeepWithNext = True B4kJ 7Pdny  
        .KeepTogether = True _@_w
6Rh  
        .PageBreakBefore = True F&6Xo]?  
        .OutlineLevel = wdOutlineLevelBodyText W
u|AN c  
         H"vy[/UcR  
        .LeftIndent = CentimetersToPoints(0) ,+U,(P5>s  
        .RightIndent = CentimetersToPoints(0) KwxO%/-}S  
        .FirstLineIndent = CentimetersToPoints(0) .% {4B,d$  
         ELgq#z  
        .CharacterUnitLeftIndent = 0 cd3;uB4\,  
        .CharacterUnitRightIndent = 0 )oCb9K:km  
        .CharacterUnitFirstLineIndent = 0 # M18&ld,r  
         +m]Kj3-z@  
        .LineUnitBefore = 1 -8%[7Z]  
        .LineUnitAfter = 0.5 FI=]K8  
         Ug C{  
        .AutoAdjustRightIndent = False haoQr)S  
        .DisableLineHeightGrid = True o"Mhwh  
        .FarEastLineBreakControl = True Sf"]enwB  
        .WordWrap = True
0~GtK8^B  
    End With Uf`~0=w  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False < /\y<]b  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll rzO5 3\  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese rI;84=v2&9  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True }Q#3\z
5  
    DoEvents W*jwf@ 0  
     
h
$U(1B  
    '表格标题 6U?z  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 3?Tk[m1b  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" E%np-is{1  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False fb;y*-?#  
    With ActiveDocument.Styles("QLNU表格标题").Font G\ m`{jv  
        .NameFarEast = "楷体" 7]pi.1i  
        .NameAscii = "Arial" 6Sr}I,DG  
        .Name = "楷体" tO8<N'TD  
        .Size = 10.5 cms9]  
        .Bold = True WcZck{ehd  
        .Underline = wdUnderlineNone SMIr@*R  
        .Italic = wdUndefined 96]!*}  
        .Subscript = wdUndefined k=``Avp?  
        .Superscript = wdUndefined t(Sjo8, b  
        .Color = wdColorAutomatic En:/{~9{F  
    End With )2dTgvy  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat D)){"Q!b  
         >og- jz  
        .LineSpacingRule = wdLineSpaceSingle ;'7gg]  
        .Alignment = wdAlignParagraphCenter R\ZyS )~l  
        .KeepWithNext = True q-5U,!!W/  
        .KeepTogether = True ` Clh;  
        .OutlineLevel = wdOutlineLevelBodyText e)):U  
         +S C;@'  
        .LeftIndent = CentimetersToPoints(0) 79G& 0 P\  
        .RightIndent = CentimetersToPoints(0) W,-fnJk  
        .FirstLineIndent = CentimetersToPoints(0) pdEUDuX  
         ]zUvs6ksLG  
        .CharacterUnitLeftIndent = 0 J{qpGRQNa  
        .CharacterUnitRightIndent = 0 wzN GL{3  
        .CharacterUnitFirstLineIndent = 0 d"~-D;  
         G~FAChI8![  
        .LineUnitBefore = 1 ;Q8LA",5d  
        .LineUnitAfter = 0 4O1[D?)`x  
         *-lw2M9V  
    End With Puodsd  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False :}{,u6\  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll am(jmf::  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese v#`7,::  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True m|%ly  
    DoEvents K'u66%wAL  
A .>L>uR  
    '表格首行 Ow f:Kife  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") s:f%=4-7  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False ? ht;ZP  
    With ActiveDocument.Styles("QLNU表格首行").Font rc()Eo50  
        .NameFarEast = "楷体" ;($"_h  
        .NameAscii = "Times New Roman" \`N<0COP  
        .Name = "楷体" 0.kQqy~5  
        .Size = 9 R8n/QCeY{  
        .Bold = True _7P#?:h  
        .Underline = wdUnderlineNone KoF_G[m  
        .Italic = wdUndefined 60Szn]z'8[  
        .Subscript = wdUndefined n[tES6u  
        .Superscript = wdUndefined Bq*aP*jv  
    End With 2PVtyV 3;  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat 9S! 2r  
        .LineSpacingRule = wdLineSpaceSingle p&Ev"xhs  
        .Alignment = wdAlignParagraphCenter $C
P_oEb  
         x-Ug(/!
^  
        .LeftIndent = CentimetersToPoints(0) vd]75  
        .RightIndent = CentimetersToPoints(0) KX
vBJA$  
        .FirstLineIndent = CentimetersToPoints(0) iW$f1= i  
         >xK!J?!K  
         u~\I  
        .CharacterUnitLeftIndent = -0.5 au~}s |#  
        .CharacterUnitRightIndent = -0.5 Hy| X>Z  
        .CharacterUnitFirstLineIndent = -0.5 XPd@>2  
         4!)=!sL;  
        .LineUnitBefore = 0 }n[ <$*W^  
        .LineUnitAfter = 0 _+NM<o#A  
        .SpaceBefore = 0 o5`LLVif5y  
        .SpaceAfter = 0 n7*.zI]%&  
         f>kW\uC  
    End With TL*8h7.(  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False t IO 'ky  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll f.Feo  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese G}ccf%  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True l?J|Ip2W  
    DoEvents Y>i5ubR~  
wD|I^y;  
    '表格内容 D N#OLk  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") vzPuk|q3  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False {(j1#9+9  
    With ActiveDocument.Styles("QLNU表格内容").Font #!RO,{FT  
        .NameFarEast = "楷体" p0Ra `*f  
        .NameAscii = "Times New Roman" FdFN4{<QZ  
        .Name = "楷体" ._A@,]LS}  
        .Size = 9 `S+B-I0  
        .Bold = False 3Sh#7"K3  
        .Underline = wdUnderlineNone lVR a{._m  
        .Italic = wdUndefined m%[` NP (  
        .Subscript = wdUndefined 4b<>gpQ  
        .Superscript = wdUndefined 1?hx/02  
    End With o'auCa,N  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat ,'c?^ $J|z  
        .LineSpacingRule = wdLineSpaceSingle dRu|*s  
        .Alignment = wdAlignParagraphCenter ed: [^#Lj  
         [
rf.&  
        .LeftIndent = CentimetersToPoints(0) {-Q=YDR  
        .RightIndent = CentimetersToPoints(0) rUOl+p_47  
        .FirstLineIndent = CentimetersToPoints(0) 9:1[4o)~  
         TF7~eyLg  
        .CharacterUnitLeftIndent = -0.5 Y}UVC|Ef  
        .CharacterUnitRightIndent = -0.5 Tn"/EO^N  
        .CharacterUnitFirstLineIndent = -0.5 R}J}Qb  
        .LineUnitBefore = 0 V<W$h`  
        .LineUnitAfter = 0 }[c,/NH  
        .SpaceBefore = 0 *!-J"h  
        .SpaceAfter = 0 @?YO_</  
    End With (yxHXO9N  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False KE*8Y4#9  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll f\]spl
L  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese @b5zHXF83E  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True pxgVYr.  
    DoEvents j]5mzz~  
W
v4o:_}  
    '图片标题 {IR-g,B  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") E3P2  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" 9zs!rlzQ  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False ro`2IE>  
    With ActiveDocument.Styles("QLNU图片标题").Font 8 O% ?t  
        .NameFarEast = "楷体" &>$+O>c ,  
        .NameAscii = "Times New Roman" uqFYa bU  
        .Name = "楷体" y)]L>o~  
        .Size = 10.5 y L|'K}  
        .Bold = True {j!+\neL  
        .Underline = wdUnderlineNone \; F_QV  
        .Italic = wdUndefined 3sF^6<E  
        .Subscript = wdUndefined oasEG6OI8  
        .Superscript = wdUndefined o b,%); m  
        .Outline = False [8$
K i$;  
        .Shadow = False ?X5Y8n]y\h  
        .Color = wdColorAutomatic WPbG3FrL!  
    End With !,z==Qp|v  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat `iT{H]po  
        .LineSpacingRule = wdLineSpaceSingle \Uh$%#}.  
        .Alignment = wdAlignParagraphCenter s%xhT  
         Yv ZcG3@c3  
        .KeepWithNext = wdUndefined "B"Yfg[  
        .KeepTogether = True @?E|]H!S]  
        .OutlineLevel = wdOutlineLevelBodyText 8\])p sb9  
         x
G"*w@fs7  
        .LeftIndent = CentimetersToPoints(0) %{*)-_M  
        .RightIndent = CentimetersToPoints(0) V_p[mSKJv  
        .FirstLineIndent = CentimetersToPoints(0) x-%4-)  
         UD}#c:I  
        .CharacterUnitLeftIndent = 0 5?M d  
        .CharacterUnitRightIndent = 0 gSn9L)k(O  
        .CharacterUnitFirstLineIndent = 0 Ptj[9R  
         SoPiEq  
        .LineUnitBefore = 0 &w"1VOV<  
        .LineUnitAfter = 0 wM aqR"%  
    End With $7 FT0?kG  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False 0<'Q;'2* L  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll i?0+f}5<p  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese &w 7Ev21  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True ;.EW7`)Z  
    DoEvents ] lONi  
66 @#V  
    '目录项 5zk^zn)  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") ).D+/D/"2  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle"
@&fAR2  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False -H
-:b7  
    With ActiveDocument.Styles("QLNU目录项").Font io{\+%;b~  
        .NameFarEast = "黑体" Q-7C'|  
        .NameAscii = "Times New Roman" >uR0Xs;V  
        .NameOther = "Times New Roman" 8AgKK=C=  
        .Name = "黑体" zC<k4[.  
        .Size = 10.5 %S9YjMR@  
        .Bold = False bDq[j8IT6  
        .Italic = wdUndefined !gbPxfH:6  
        .Underline = wdUnderlineNone PbpnjvVrM  
        .Color = wdColorAutomatic O iz@tEp=_  
        .Superscript = wdUndefined GX-V|hLaGX  
        .Subscript = wdUndefined Z36C7 kw  
    End With _jCk)3KO  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat .m/$ku{/J  
         |b^+= "  
        .LineSpacingRule = wdLineSpaceSingle \!Cc[n(f#  
        .Alignment = wdAlignParagraphLeft L$rMfeS  
         s.qo
/o\b  
        .WidowControl = False ?vn9HhTD  
        .KeepWithNext = False glo Y@k~  
        .KeepTogether = False .`@)c/<0  
        .PageBreakBefore = False Oll,;{<O  
        .NoLineNumber = False >A_:qyGk  
        .OutlineLevel = wdOutlineLevelBodyText TcEvUZJ"
 
         f:hsE  
        .LeftIndent = CentimetersToPoints(0) jPc"qER!  
        .RightIndent = CentimetersToPoints(0) Al-;-t#Dc  
        .FirstLineIndent = CentimetersToPoints(0) {$H-7-O$  
         nEgD
wJ<wl  
        .CharacterUnitLeftIndent = 0 {a6cA=WTPd  
        .CharacterUnitRightIndent = 0 OJ!=xTU%h  
        .CharacterUnitFirstLineIndent = 0 M|DVFC  
          t'{IE!_  
        .LineUnitBefore = 0 +$y% H  
        .LineUnitAfter = 0 3 jRI@  
    End With {2,vxGi  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False "J(0J  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll 9?J 3G,&  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot %!X9>i>  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese %8
hjMds  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True 6zR9(c:a~  
    DoEvents rO3.%B}  
     P~d&PhOe  
    '参考文献 7uq/C#N  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") MFzJ 8^.1R  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" hw9qnSeRy  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False [QZ g=."  
    With ActiveDocument.Styles("QLNU参考文献").Font
R.'-jvO  
        .NameFarEast = "宋体" m(DJ6CSa  
        .NameAscii = "Times New Roman" \{u 9Kc  
        .NameOther = "Times New Roman" :)=>,XwL8  
        .Name = "Times New Roman" /;{E}`  
        .Size = 12 IMcuoQ5  
        .Bold = False l\t\DX"s_  
        .Italic = wdUndefined Svqj@@_f  
        .Subscript = wdUndefined VxA?LS`  
        .Superscript = wdUndefined F)n^p T  
        .Underline = wdUnderlineNone mi]bS  
        .UnderlineColor = wdColorAutomatic |x#w8=VP-  
        .Color = wdColorAutomatic F :p9y_ W  
        .Engrave = False !9p;%Ny`  
    End With R!Lh~~@{(  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat 9S_PZH  
         '
JK"3m}nT  
        .LineSpacingRule = wdLineSpaceExactly 4-voR5Fd  
        .LineSpacing = 16 1=U NA :t<  
        .Alignment = wdAlignParagraphLeft  oo4aw1d  
        .WidowControl = False ]:_
s7v  
        .KeepWithNext = False hI>vz "J  
        .KeepTogether = False Q}6!t$Vk  
        .PageBreakBefore = False `WRM7  
        .OutlineLevel = wdOutlineLevelBodyText Q/zlU@  
         oqUF_kh  
        .LeftIndent = CentimetersToPoints(0) Z`]r)z%f  
        .RightIndent = CentimetersToPoints(0) !> 2kH  
        .FirstLineIndent = CentimetersToPoints(0) 3Z%~WE;I  
         hteAuz4H  
        .CharacterUnitLeftIndent = 0 )Bw}T  
        .CharacterUnitRightIndent = 0 !!:mjq<0  
        .CharacterUnitFirstLineIndent = -2 <reALC  
         HzQY\Y6  
        .LineUnitBefore = 0 xm$-:N0q  
        .LineUnitAfter = 0 0ub0[A  
        .SpaceBefore = 0 )Gm,%[?2C  
        .SpaceAfter = 0 UI%Z`.&  
         =IH~:D\&  
    End With -~] q? k?  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False r?2EJE2{V  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll 6Q*Zy[=  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS !*G%vOa  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True xNOArb5e5  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese sD ,=_q@  
    DoEvents +oevNM  
^gSZzJ5  
    ' Kg6[   
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") q/#pol  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" i9k oh3R\  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False OaeX:r+&Q  
    With ActiveDocument.Styles("QLNU论文题目").Font /nWBol,  
        .NameFarEast = "黑体" j@u]( nf  
        .NameAscii = "Arial Black" ?RQ_LA;  
        .NameOther = "Arial Black" fvBL? x  
        .Name = "Arial Black" cMK}BHOC  
        .Size = 16 i@m@]-2  
        .Bold = False sXaudT  
        .Italic = wdUndefined /P%OXn$i/  
        .Superscript = wdUndefined "K c/Cs2[  
        .Subscript = wdUndefined ORx6r=zg  
        .Underline = wdUnderlineNone WRov7  
        .UnderlineColor = wdColorAutomatic q,m+W
='  
        .Color = wdColorAutomatic Lvd es.0|  
iu.v8I;<  
    End With q5xF~SQGw2  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat cw3j&k  
        .LineSpacingRule = wdLineSpaceSingle 9T#${NK  
        .Alignment = wdAlignParagraphCenter >r\q6f#J4  
        .WidowControl = True 8vqx}2  
        .KeepWithNext = True lW|`8ykp  
        .KeepTogether = True .L@gq/x)  
        .PageBreakBefore = True ? FlQ\q  
        .NoLineNumber = False SxI-pH'  
        .OutlineLevel = wdOutlineLevelBodyText giYlLJA*}  
         x:$ xtu  
        .LeftIndent = CentimetersToPoints(0) (Cb;=:3G  
        .RightIndent = CentimetersToPoints(0) l=PZlH y1G  
        .FirstLineIndent = CentimetersToPoints(0) !rsGCw!Pg  
         /Os6i&;  
        .CharacterUnitLeftIndent = 0 nq5qUErew  
        .CharacterUnitRightIndent = 0 'W*:9wah  
        .CharacterUnitFirstLineIndent = 0 JnIE6@g<y  
         r#'ug^^k$X  
        .LineUnitBefore = 1 ^_gH}~l+U  
        .LineUnitAfter = 1 dt||nF  
         XY^]nm-{I  
        .BaseLineAlignment = wdBaselineAlignAuto 4G2iT+X-  
    End With ^).  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False )_olJCdaP^  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll Qg]+&8!*  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS F}~qTF;H  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True p|+TgOYOc  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese =1Hn<Xay0  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True 0,whTnH|  
    DoEvents ")YD~ZA%)  
     \,S4-~(:!  
    '中文摘要 Ji4JP0  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") 6,cJ3~!48  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" 92x)Pc^D  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False Ef$a&*)PH  
    With ActiveDocument.Styles("QLNU中文摘要").Font p1N3AhXY  
        .NameFarEast = "宋体" PH$C."Vv  
        .NameAscii = "Times New Roman" Ggk#>O G  
        .NameOther = "Times New Roman" )uu(I5St  
        .Name = "Times New Roman" 19b@QgfWpb  
        .Size = 12 =}g-N)^  
        .Bold = wdUndefined Nsn~mY%  
        .Superscript = wdUndefined 74r$)\q  
        .Subscript = wdUndefined i_(6}Y&  
        .Italic = wdUndefined ryNe=9p  
        .Underline = wdUnderlineNone ShesJj  
        .UnderlineColor = wdColorAutomatic H
tV8=.^  
        .Color = wdColorAutomatic c!ieN9^+  
    End With |*$0~mA  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat fSVb.MZa7  
        .LineSpacingRule = wdLineSpaceExactly FBxg^g%PB@  
        .LineSpacing = 20 ,@kLH"a0  
        .Alignment = wdAlignParagraphLeft B~B,L*kC2  
         bae;2| w  
        .WidowControl = False l;d 4Le  
        .KeepWithNext = False 6Ts[NXa  
        .KeepTogether = True M}e}3w  
        .PageBreakBefore = False =m;,?("7t3  
        .NoLineNumber = False N*+L'bO  
        .OutlineLevel = wdOutlineLevelBodyText ON9L+"vqv0  
         \`;1[m  
        .LeftIndent = CentimetersToPoints(0) ;ObrBN,Fu  
        .RightIndent = CentimetersToPoints(0) Tq?7-_MLC$  
        .FirstLineIndent = CentimetersToPoints(0) "H#pN;)+  
         k+BY3a  
        .CharacterUnitLeftIndent = 0 $5:I~-mx  
        .CharacterUnitRightIndent = 0 @jCM QYR  
        .CharacterUnitFirstLineIndent = 2 :s*t\09V7  
        .LineUnitBefore = 0 4sq](!A  
        .LineUnitAfter = 0 !bs5w_@  
         2m^qXE$  
    End With #&X5Di[A  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False {T-=&%||  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll X-*LA*xbN  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS ,N1pww?  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True 3Cgv($xl&  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese d$^@$E2f  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True H<3:1*E  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete a<J<Oc!  
    DoEvents U@9v(TfV  
     ^8KxU  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 21O @yNpS$  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" <J IqkGeAi  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False iURSYR  
    With ActiveDocument.Styles("QLNU英文标题").Font I?RUVs  
        .NameFarEast = "黑体" 6of9lO:  
        .NameAscii = "Arial Narrow" d uP0US  
        .Name = "Arial Narrow" iG#92e4  
        .Size = 16 ,BFw-A  
        .Bold = True $zM \Jd  
        .Bold = wdUndefined M`n0 qy  
        .Superscript = wdUndefined 8<Pi}RH  
        .Subscript = wdUndefined #(QS5J&Qq  
        .Italic = wdUndefined D#P]tt.Z  
         Z((e-
T#,  
        .Underline = wdUnderlineNone NL,6<ZOon,  
        .UnderlineColor = wdColorAutomatic tA]u=-_h  
        .StrikeThrough = False G.r .Z0  
        .DoubleStrikeThrough = False .'>d7  
    End With %l?*w~x  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat 85
e*um^  
        .LineSpacingRule = wdLineSpaceSingle >0_{80bdO  
        .Alignment = wdAlignParagraphCenter W_6gV  
        .WidowControl = True 
~)F_FS  
        .KeepWithNext = False =l d!=II  
        .KeepTogether = False 7K ~)7U  
        .PageBreakBefore = False nDcH;_<;9a  
        .NoLineNumber = False 6"?#E[ #[  
        .FirstLineIndent = CentimetersToPoints(0) zm8k,e +5-  
        .OutlineLevel = wdOutlineLevelBodyText PhAD:A  
         g&{CEfw&  
        .LeftIndent = CentimetersToPoints(0) 5=\^DeM@ H  
        .RightIndent = CentimetersToPoints(0) - <L5;  
        .FirstLineIndent = CentimetersToPoints(0) Vqcw2  
         Cp+tcrd_s  
        .CharacterUnitLeftIndent = 0 8"TlWHF`  
        .CharacterUnitRightIndent = 0 ,Wtgj=1!.  
        .CharacterUnitFirstLineIndent = 0 :}2Tof2  
         W[ sQ_Z1C  
        .LineUnitBefore = 1 lL 'Bop@  
        .LineUnitAfter = 1 znDpg{U(  
         >;l rH&  
    End With yuC|_nL  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False j
GoQXiX  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll M3Qi]jO98  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS Yxy!&hPLv:  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True H_,4N_hL  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese YC$>D?FW  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True Sk:x.oOZ  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete #0?3RP  
    DoEvents 0"Euf4
1  
Apj[z2nr  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") R;pIi/yDRe  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" w/:ibG@  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False ?9%$g?3Z  
    With ActiveDocument.Styles("QLNU英文摘要").Font 4V;-*:  
        .NameFarEast = "宋体" V>`9ey!U  
        .NameAscii = "Arial" X#Ob^E%J  
        .NameOther = "Arial" ^q`RaX)  
        .Name = "Arial" ii&ckg>]z  
        .Size = 12 [kTckZv  
        .Bold = wdUndefined -BSO$'{7  
        .Italic = wdUndefined !Na@T]J  
        .Superscript = wdUndefined Khl0~  
        .Subscript = wdUndefined X,c`,B03  
    End With ]TJ258P}  
     r9*6=*J|  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat M)U)Sc zHO  
         97 ,Yq3  
        .LineSpacingRule = wdLineSpaceExactly g6+5uvpd  
        .LineSpacing = 20 (&u'S+  
         @ -Y,9mM  
        .Alignment = wdAlignParagraphJustify Ls+vWfF=#  
          [aG   
        .WidowControl = False ]
"^p}:  
        .KeepWithNext = False zKI1  
        .KeepTogether = False T9'HQu  
        .PageBreakBefore = False R#i`H(N  
        .NoLineNumber = False JP(0/?Q  
         bN6i*)}  
        .OutlineLevel = wdOutlineLevelBodyText W7;R
Q  
         qQIX:HWDKZ  
        .LeftIndent = CentimetersToPoints(0) c[T@lz(!  
        .RightIndent = CentimetersToPoints(0) YI;MS:Qj  
        .FirstLineIndent = CentimetersToPoints(0) !@*= b1  
         qA[cF$CIl)  
        .CharacterUnitLeftIndent = 0 jcjl q-x  
        .CharacterUnitRightIndent = 0 )c?nh3D  
        .CharacterUnitFirstLineIndent = 2 Q+/P>5O/  
         8)2M%R\THn  
        .LineUnitBefore = 0
Z +O<IF%  
        .LineUnitAfter = 1 $d,/(*Y#-  
         @iMF&\KC  
    End With +z0s)HU>j  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False uH(M@7"6_!  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll 0fLd7*1>  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS 0|i|z!N>  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False xj9xUun  
    DoEvents =Ot_P7'5gv  
}346
uF7C  
    Options.Pagination = True acgx')!c  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....."
4'tY1d  
    DoEvents e+<|  
    ActiveDocument.Repaginate Lxv6\3I+  
'vYt_T  
End Sub *yY\d.6(  
q: X^V$`  
jtq^((Ux  

姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 yqtaQ0F~  
=6f)sZ pPh  

引用

引用第20楼newport93于06-14-2010 13:47发表的  : ks %arm&  
(9=E5n6o  
老五，I 服了U。 1 .[OS  
y&eU\>M  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 Oqt{ uTI~  

@,}tY ?>a