Dim bContinue As Boolean Q!Rknj 2  
kV7c\|N9  
Dim regEX As New RegExp V0m
WY!i  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 [((P,v*  
E Kks8  
Dim LastTitle0String As String, LastTitle0No As Long ;o;P2}zD  
Dim LastTitle1String As String, LastTitle1No As Long Mn(:qQo^&`  
Dim LastTitle2String As String, LastTitle2No As Long brN:Ypf-e  
Dim LastTitle3String As String, LastTitle3No As Long .bbl-a/ 3  
Dim LastTitle4String As String, LastTitle4No As Long gIS<"smOo  
Dim LastTitle5String As String, LastTitle5No As Long `gq@LP"o  
Dim LastTabelString As String, LastTableNo As Long 7O{c>@\  
Dim LastFigureString As String, LastFigureNo As Long  WpX)[au  
n !mtMPH$  
Dim strSeperator As String 9)p VDS  
m#+0uZm(  
Sub ConvertWidth(fTEXT As String, rText As String) ,R=Mr}@u
 
        Selection.Find.ClearFormatting bet?5Dk  
        Selection.Find.Replacement.ClearFormatting %&bO+$H3  
        Selection.Find.Wrap = wdFindContinue ~={8b  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText _yTGv-  
        DoEvents jGM~(;iw6i  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True kUAjQ>  
End Sub z65|NO6JW.  
 +Io^U  
Sub ClearDomain() x$9UHEb kM  
        With Selection.Find /jih;J|  
            .ClearFormatting wm|{@z  
            .Replacement.ClearFormatting B8z3W9  
            .Wrap = wdFindContinue = >)S\Dfi  
            Me.txtStatus.Text = "清除所有域代码" rmc0dm&l]  
            DoEvents Y5fwmH,a-  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False ?DEj| i8  
        End With ev>gh0  
End Sub AW@I,  
5nIm7vlQm  
Private Sub cmdCheck_Click() j+Nun  
    bContinue = True 0_Tr>hz  
    Dim NoSeries1(1 To 16) As String RE`XyS0Q  
    Dim NoSeries2(1 To 16) As String UJ1Ui'a(!!  
    Dim NoSeries5(1 To 16) As String mM"!=' z  
    Dim NoSeriesRM(1 To 16) As String }6}Gj8Nb  
    Dim paraTotal As Long, ParaText As String hVRpk0IJDK  
    Dim ttString As String, ttNo As String M xUj7ae  
     MWGW[V;  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long Ji SJi?  
ppIMaP  
    Me.txtStatus.Visible = True ,qJ/Jt$A  
    Me.lbParaType.Visible = True me@4lHBR  
    Me.cmdCheck.Enabled = False 7g3vh%G.  
     {20^abUAS  
     A P><l@  
     @giipF2$  
     hA6!F#1  
    Dim ParaType As String, rText As String o Y_(U Ia  
     aG QC  
    Selection.WholeStory XoM+"R"  
    Selection.NoProofing = True M(o?I}  
     uArs[e|f  
    tm1 = Now F*hOa|7/  
     y4s]*?Wz  
        ActiveWindow.View.Type = wdNormalView [gFpFz|b<  
     k}y1I W+3  
    NoSeries1(1) = "一" \I; lgz2  
    NoSeries1(2) = "二" 92+LY]jS  
    NoSeries1(3) = "三" 3dNOXk,#  
    NoSeries1(4) = "四" tUl#sqN_{  
    NoSeries1(5) = "五" cYyv iR59#  
    NoSeries1(6) = "六" ww VK15t  
    NoSeries1(7) = "七" LBT
{I)-K  
    NoSeries1(8) = "八" U<
fe 'd  
    NoSeries1(9) = "九" ;1}~(I#Y  
    NoSeries1(10) = "十" A:F *Y%ZW  
    NoSeries1(11) = "十一" :.6kXX'~  
    NoSeries1(12) = "十二" jdV E/5  
    NoSeries1(13) = "十三" 6sBS ;+C  
    NoSeries1(14) = "十四" 1HxE0>  
    NoSeries1(15) = "十五" h9c54Ux  
    NoSeries1(16) = "十六" Iz^~=yV)  
     p=jD "lq  
    NoSeries2(1) = "㈠" &AH@|$!E  
    NoSeries2(2) = "㈡" N~L3 9  
    NoSeries2(3) = "㈢" bb[.Kvq5  
    NoSeries2(4) = "㈣" 2MmqGB}YcW  
    NoSeries2(5) = "㈤" D]v=/43  
    NoSeries2(6) = "㈥" FQ>KbZ
h  
    NoSeries2(7) = "㈦" "ZF:}y  
    NoSeries2(8) = "㈧" OO
S(YP@b  
    NoSeries2(9) = "㈨" "NSm2RU3  
    NoSeries2(10) = "㈩" x2+%.$'  
     F>E'/r*  
    NoSeries5(1) = "①" NxVqV5'  
    NoSeries5(1) = "②" Z8tQ#Pu{  
    NoSeries5(3) = "③" 1pogk0h.:  
    NoSeries5(4) = "④" oEvXZ;F@.  
    NoSeries5(5) = "⑤" #4_'%~-e  
    NoSeries5(6) = "⑥" t8 g^W K  
    NoSeries5(7) = "⑦" :P<} bGN  
    NoSeries5(8) = "⑧" =@;uDu:Q  
    NoSeries5(9) = "⑨" m/3b7c@r  
    NoSeries5(10) = "⑩" Y~(
#_K  
     g@hg u  
     .T?9-`I9  
    NoSeriesRM(1) = "I" y ?]GOQI  
    NoSeriesRM(2) = "II" !vHUe*1a{  
    NoSeriesRM(3) = "III" %qL0=ad  
    NoSeriesRM(4) = "IV" c?5e|dZz  
    NoSeriesRM(5) = "V" 1 *'SP6g  
    NoSeriesRM(6) = "VI" ^il'
Q_-{  
    NoSeriesRM(7) = "VII" #+V-65v  
    NoSeriesRM(8) = "VIII" x|n2,3%  
    NoSeriesRM(9) = "IX" si,fs%D&  
    NoSeriesRM(10) = "X" mR:G,XytxM  
    NoSeriesRM(11) = "XI" BO<I /J~b  
    NoSeriesRM(12) = "XII" +[Nc";Oy  
    NoSeriesRM(13) = "XIII" Y!* \=h6h  
    NoSeriesRM(14) = "XIV" Qy`{y?T2  
    NoSeriesRM(15) = "XV" ta_!  
    NoSeriesRM(16) = "XVI" 54s+4R FL  
     Zp]{e6J  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) 2/O/h  
     "WR)a`$UR  
    If i = vbNo Then =xScHy{$  
        Exit Sub B P%>J^  
    End If >t')ZSjRs  
     Alaq![7MDP  
    If Me.chkSuper.Value Then k!Nl#.j  
        Me.txtStatus.Text = "检查修改所有的上标格式" K?:rrd=7q  
     Fp..Sjh 6  
        CheckSuperScript ~|kre:j9  
         _x_om#~n  
    End If %k @"*  
     udM<jY]5p  
    If Me.chkStyle.Value Then 5hak'#2  
        Me.txtStatus.Text = "设置样式，请稍候...." cx M=#Go  
        DoEvents iZ2|/hnw  
        CeateOrModifyStyle Z?|\0GR+`5  
    End If 7H~StdL/>  
     9cu d CF  
     1a4 [w  
     `=^;q6f  
    ClearDomain j+NOT`&  
         /PF X1hSu  
     znv2
:  
     _P.+[RS@  
    If Me.chkLIST.Value Then H Yt&MK  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" 5CH9m[S
 
     X(kyu ,w  
        ConvertListToOrdinary (5rH72g(  
    End If Lw<?e;  
     j4Pp n  
     _svY.ps*  
    Dim pType As String, trimpTEXT As String <<!XWV*m  
    If Me.chkNum.Value = True Then nBv|5$w:  
        Me.txtStatus.Text = "转换全角数字形式为半角" <&E3QeK  
        ConvertWidth "１", "1" JPW+(n|g  
        DoEvents 833KU_ N  
        ConvertWidth "２", "2" i&\N_PUm[  
        DoEvents ]+x;tPo  
        ConvertWidth "３", "3" /H&:  
        DoEvents .dwb@$  
        ConvertWidth "４", "4" J (F]?H  
        DoEvents B]~#+rMK  
        ConvertWidth "５", "5" Y}%=:Yt  
        DoEvents <X~ X# 9V  
        ConvertWidth "６", "6" cN_e0;*Ua  
        DoEvents 52K_kB5  
        ConvertWidth "７", "7" #aUe7~  
        DoEvents /Ps}IW  
        ConvertWidth "８", "8" ;|&Ak_I2G  
        DoEvents zk= 3L} C  
        ConvertWidth "９", "9" '|Dm\cy  
        DoEvents OnFx8r:q@%  
        ConvertWidth "０", "0" JTB
_-J-TU  
        DoEvents bSsX)wHm  
        ConvertWidth "ａ", "a" 4HEp}Y"}V  
        DoEvents OJe#s;oH  
        ConvertWidth "ｂ", "b" A$vCm  
        DoEvents RGh`=D/yE  
        ConvertWidth "ｃ", "c" j*aN_UTr3  
        DoEvents fvccut;K  
        ConvertWidth "ｄ", "d" F }l_=  
        DoEvents 
o\u3
1,  
        ConvertWidth "ｅ", "e" W#!![JDc  
        DoEvents q@1!v  
        ConvertWidth "ｆ", "f" \hv1"WaJ  
        DoEvents LyRto  
        ConvertWidth "ｇ", "g" FM:ax {  
        DoEvents v[WbQ5AND  
        ConvertWidth "ｈ", "h" G>f-w F6  
        DoEvents Ex^|[iV  
        ConvertWidth "ｉ", "i" \ a18Hp|%  
        DoEvents MFO}E!9`q  
        ConvertWidth "ｊ", "j" "MZj}}l  
        DoEvents a.QF`J4"'  
        ConvertWidth "ｋ", "k" Vvu+gP'z.  
        DoEvents m:A7*r[  
        ConvertWidth "ｌ", "l" !^BXai/  
        DoEvents 1V(tt{  
        ConvertWidth "ｍ", "m" -_BS!T%r  
        DoEvents .PBma/w W  
        ConvertWidth "ｎ", "n" kuq3QW<  
        ConvertWidth "ｏ", "o" {FyGh */  
        ConvertWidth "ｐ", "p" f@lRa>Z(Fm  
        ConvertWidth "ｑ", "q" :c%vl$  
        ConvertWidth "ｒ", "r" gK7j~.bb"  
        ConvertWidth "ｓ", "s" N }Ozm6
Mc  
        ConvertWidth "ｔ", "t" <_&tP=h  
        ConvertWidth "ｕ", "u" ]>-#T  
        ConvertWidth "ｖ", "v" wZN<Og+;  
        ConvertWidth "ｗ", "w" .OA_)J7  
        ConvertWidth "ｘ", "x" HI6;=~[  
        ConvertWidth "ｙ", "y" j4RM'_*G  
        ConvertWidth "ｚ", "z" k @'
85A`  
        ConvertWidth "Ａ", "A" N4Yvt&   
        ConvertWidth "Ｂ", "B" K~8;wDN`b  
        ConvertWidth "Ｃ", "C" B]oIFLED  
        ConvertWidth "Ｄ", "D" cU7 c}?J<  
        ConvertWidth "Ｅ", "E" r#LoBfM;^A  
        ConvertWidth "Ｆ", "F" S?*pCJ0  
        ConvertWidth "Ｇ", "G" sXxF5&AF0  
        ConvertWidth "Ｈ", "H" fOtin[|}6@  
        ConvertWidth "Ｉ", "I" e!wBNcG2  
        ConvertWidth "Ｊ", "J"
@*jd.a`  
        ConvertWidth "Ｋ", "K" O{hGh{y  
        ConvertWidth "Ｌ", "L" x"0*U9f  
        ConvertWidth "Ｍ", "M" H)aeSF5  
        ConvertWidth "Ｎ", "N" "pTyQT9P  
        ConvertWidth "Ｏ", "O" -:wC920+  
        ConvertWidth "Ｐ", "P" s8iJl+Jm  
        ConvertWidth "Ｑ", "Q" pJ[7m  
        ConvertWidth "Ｒ", "R" .n]P6t  
        ConvertWidth "Ｓ", "S" XmN3[j  
        ConvertWidth "Ｔ", "T" ~$} `R=  
        ConvertWidth "Ｕ", "U" )TV4OT#  
        ConvertWidth "Ｖ", "V" AU@K5jwDwQ  
        ConvertWidth "Ｗ", "W" 4hwU
H  
        ConvertWidth "Ｘ", "X" OLpE0gZ.|`  
        ConvertWidth "Ｙ", "Y" Z|+SC \Y  
        ConvertWidth "Ｚ", "Z" OV ~|@{6T  
        ConvertWidth "^l", "^p" Av[L,4A  
        ConvertWidth "（", "(" 3l"7$B  
        ConvertWidth "）", ")" @(2DfrC  
     J@'}lG  
    End If J2H/z5YRJ4  
 13(JW  
    With ActiveDocument \AV6;;}&  
        Dim tbl As Table I4 dS,h  
        For Each tbl In .Tables oyV@BHJO@  
            tbl.Rows.Alignment = wdAlignRowCenter }l{r9ti  
            tbl.Range.Font.NameFarEast = "楷体" qYLOq`<f  
            tbl.Range.Font.NameAscii = "Times New Roman" NltEX14Af  
            tbl.Range.Font.Size = 10.5 }.w@. S "  
        Next bj^YB,iSM  
        Set tbl = Nothing KA1Z{7UK%  
    End With 7KU/ 1l9$9  
     tj@IrwC^e"  
     :FOMRrf7.  
    With ActiveDocument 3Tv;<hF  
         ;i|V++$_  
        For i = 1 To .TablesOfContents.Count * bx%hX  
            .TablesOfContents(i).Delete p\5DW'  
        Next ._JM3o}F  
         _KVge)j  
         4RYK9=NH  
         )u~LzE]{_  
        paraTotal = .Paragraphs.Count rQgRD)_%w  
        paraCounter = 1 * Zb-
YA  
         J2VhheL`J  
        LastTitle0No = 0 {'P7D4w  
        LastTitle1No = 0 X]d["  
        LastTitle2No = 0 %Z?2 .)  
        LastTitle3No = 0 dE9xan  
        LastTitle4No = 0 > (+g:p  
        LastTableNo = 0 Vh1{8'GQ  
        LastFigureNo = 0 WF#eqU*&  
         V4p4m@z^u  
        Dim Sec As Long 8;>vgD  
         sS#Lnj^`%  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) 2lPj%i 5  
        If Sec = 0 Then }WXO[ +l  
            Exit Sub Z!o&};_j  
        End If \9*wo9cV  
         ImQ?<g8$  
        k = 0 s\g"~2+  
        Do While (paraCounter < paraTotal) And bContinue qD:3;85  
            k = k + 1 v~i/e+.h>y  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then 7Z;bUMYtx  
                Exit Do "1P8[  
            End If gE8p**LT+  
            paraCounter = paraCounter + 1 8*y
hx  
            If k Mod 20 = 0 Then v#i,pBj  
                Me.lbCounter.Caption = paraCounter w]Z*"B&h  
                DoEvents X=]FVHV;  
            End If 3]Rb2$p[=  
        Loop g2p/#\D\J  
         'P( S*sr  
         `[x`#irD  
        Do While (paraCounter < paraTotal) And bContinue !IlsKMZ  
             j]i:~9xKW  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) w7}m T3p,)  
            ShapeHeight = 0  mD`
v>L  
            ShapeWidth = 0 =w='qjh  
           C8i6ESmU  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth eglcf z%  
             K
c~h  
            Select Case ParaType $OU,| D  
                Case "【】表格内容" =9@{U2 =l  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" ;~Y0H9`  
                Case "章" 1?s]nU  
                    LastTitle0No = LastTitle0No + 1 t>;u;XY!;  
                    '新一章开始，复位其下属标题编号 *cn,[  
                    LastTitle1No = 0 N3 qtq9{  
                    LastTitle2No = 0 "i/ l'  
                    LastTitle3No = 0 Yg@k+  
                    LastTitle4No = 0 3x2*K_A5:Q  
                     pX3Q@3,$  
                    k = Val(ttNo) J*s!(J |Q  
                    If k = 0 Then '非数字编号章节 S(xlN7=  
                        If ttNo <> NoSeries1(LastTitle0No) Then Z>1\|j  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString :db:|=#T  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText &t1?=F,]  
                        End If ``bIqY  
                    Else m3zmyw}  
                        If Val(ttNo) <> LastTitle0No Then ?.66B9Lld  
                            rText = "第" & LastTitle0No & ttString 'B&gr}@4O=  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText 9C[i#+_3M  
                        End If o>lk+Q#L @  
                         Tvf%'%h1  
                    End If 0 =#)-n  
                     `!{m#BBT}  
                    '章段落设置 %:rct  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 qzq_3^66  
                    .Paragraphs(paraCounter).Style = "QLNU章节" x#z}A&  
                    .Paragraphs(paraCounter).Range.Select u2crL5^z2)  
                    Selection.EndKey unit:=wdLine B ^>}M  
                    tc = Replace(rText, vbCr, "") hd*bPj;  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False )`5kfj  
                Case "一级标题" MU2ufKq4)  
                    LastTitle1No = LastTitle1No + 1 8$</HNu,  
                    '新一级标题开始，复位其下属标题编号 <RzGxhT  
                    LastTitle2No = 0 b z3&  
                    LastTitle3No = 0 P)bS ;w\(Y  
                    LastTitle4No = 0 3B|?{U~  
                     3dm lP2  
                    If ttNo <> NoSeries1(LastTitle1No) Then E
shc"U  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString _kR);\V.8  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText F&?&8.  
                    End If |E:q!4?0  
                   \]pRu"  
                     $S{B{FK  
                    '一级标题段落设置  格式：一、标题内容 []R`h*#  
                    .Paragraphs(paraCounter).Range.Text = rText }!{9tc$<b  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" c zTr_>
  
                    .Paragraphs(paraCounter).Range.Select 9Qja|;  
                    Selection.EndKey unit:=wdLine P9(]9np,,  
                    tc = Replace(rText, vbCr, "") QRbiO  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False b?D hhf  
                Case "二级标题" .{U@Hva_K  
                    LastTitle2No = LastTitle2No + 1 Z9rmlVU6!  
                    '新二级标题开始，复位其下属标题编号 \[</|]'[  
                    LastTitle3No = 0 gaeMcL_^a  
                    LastTitle4No = 0 ZZ/F}9!=
 
                     7!.#:+rg5#  
                    If ttNo <> NoSeries1(LastTitle2No) Then }c/p+Wo  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString dd 4g?):  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText o'nju.'  
                    End If J+oK:tzt8  
                     &K Ti[   
                    '二级标题段落设置 格式：(一)、标题内容 rXR=fj= 2  
                    .Paragraphs(paraCounter).Range.Text = rText }T([gc7~  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" IK~'ke  
                     os/_ObPiX  
                    .Paragraphs(paraCounter).Range.Select !Cse,6/Z  
                    Selection.EndKey unit:=wdLine oCD#Gmr  
                    tc = Replace(rText, vbCr, "") Y>v(UU  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False $RA8U:Q!1e  
                 -yKx"Q9F  
                Case "三级标题" D|`O8o?)  
                    LastTitle3No = LastTitle3No + 1 Hrb67a%b  
                    '新三级标题开始，复位其下属标题编号 $kPC"!X\  
                    LastTitle4No = 0 7q_B`$ata  
                     CMk0(sztU_  
                    If Val(ttNo) <> LastTitle3No Then 8BP.VxX  
                            rText = LastTitle3No & ". " & ttString :H/CiN  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText ?V6A:8t,  
                         {s^vAD<~x3  
                    End If %-C  
                    '三级标题段落设置 格式：1. 标题内容 ]z5`!e)L  
                    .Paragraphs(paraCounter).Range.Text = rText nff X  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" yk r5bS  
                    .Paragraphs(paraCounter).Range.Select OhUEp g[  
                    Selection.EndKey unit:=wdLine 3|1ug92  
                    tc = Replace(rText, vbCr, "") ^&gu{kP  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False Y![m'q}K  
                Case "四级标题" ico%_fp  
                    LastTitle4No = LastTitle4No + 1 ]:Y@pZ  
                     AC*> f&  
                    If Val(ttNo) <> LastTitle4No Then ktQMkEj#  
                            rText = "(" & LastTitle4No & "). " & ttString $Pw@EC]  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText o/Z  
                     9C;Hm>WEpP  
                    End If K/)*P4C-  
                    '四级标题段落设置 格式：(1). 标题内容 ;2lKo="  
                    .Paragraphs(paraCounter).Range.Text = rText QkMK\Up  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" =
2;2_u?  
                    .Paragraphs(paraCounter).Range.Select v
U5a`0mH  
                    Selection.EndKey unit:=wdLine !brXQj8D7  
                    tc = Replace(rText, vbCr, "") qfF/X"#
0  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False ID+o6/V8  
                 fB.xjp?  
                Case "表格标题" 70s.  
                    LastTableNo = LastTableNo + 1 M[aF3bbN  
                     $$my,:nH  
                    If ttNo <> CStr(LastTableNo) Then b|7c]l  
                            rText = "表" & LastTableNo & ". " & ttString %"#%/>U4  
                            ErrMsg.AddItem "表格编号错误：" & ParaText 5\hJ&  
                   d1MY>zq  
                    End If (J!FW(Ma|=  
                     L< 3U)Gp  
                    '表格名称段落设置 格式：表1. 表格名称 g5TH
kxp  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" ""LCyKu   
                    xe = Replace(rText, vbCr, "") .9r+LA{  
                    .Paragraphs(paraCounter).Range.Select 
HR0t[*  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 tu.Tvtudzj  
                    Selection.Range.Text = xe HoA[UT  
                    Selection.EndKey =*K~U# uoC  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False X~ca8!Dq  
                 >kK!/ #ZA  
                Case "表格首行" t^N 92$|  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" f+*wDH  
                Case "图片标题" CUz1q*):  
                    LastFigureNo = LastFigureNo + 1 *= +m;%]_  
                     Vaj4p""\F  
                    If ttNo <> CStr(LastFigureNo) Then R.KqTEs<k  
                            rText = "图" & LastFigureNo & ". " & ttString >eF4YZ"  
                            ErrMsg.AddItem "表格编号错误：" & ParaText z@W
uKRsi  
                   6$42-a%b  
                    End If jkz.qo-%  
                    '图片名称段落设置 格式：图1. 图名称 C?IvXPlV  
                    .Paragraphs(paraCounter).Range.Text = rText >cVEr+r9t  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" ?9jl8r>  
                    .Paragraphs(paraCounter).Range.Select +n#kpi'T  
                    Selection.EndKey unit:=wdLine -Ucj|9+(a  
                    xe = Replace(rText, vbCr, "") V4c$V]7  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False 'FVh/};Y.D  
                Case "正文" aI8k:FK"  
                     '正文名称段落设置 XQI.z7F  
                    .Paragraphs(paraCounter).Style = "QLNU正文" -p|JJx?r  
               Case "文献条目" v.eN
Wp  
                    With .Paragraphs(paraCounter) /`d|W$vN  
                        '.Range.Select <Uz~V;  
                        'Selection.ClearFormatting EvA{@g4>  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” l5?fF6#j  
                        .Style = "QLNU参考文献" \?n4d#=$o  
                    End With 0MV^-M   
               Case "图表注解" 2L=+z1%I  
                    With .Paragraphs(paraCounter) n%N |?!rB  
                        .Range.Font.NameFarEast = "楷体" Iud]*5W  
                        .Range.Font.NameAscii = "Times New Roman" TRB)cJZ?  
                        .Range.Font.Size = 9 '小5号字 s06tCw Pp  
                         E:EXp7  
                        .Alignment = wdAlignParagraphCenter p8yn? ~]^  
                        .LeftIndent = 0 wW5:p]<Y  
                        .RightIndent = 0 @|yRo8|  
                        .FirstLineIndent = 0 Dm=d   
                        .LineSpacing = 12 Y\CR*om!W  
                        .LineSpacingRule = wdLineSpaceExactly ZHA6BVVT  
                        .LineUnitAfter = 0 /]0-|Kg+R  
                        .LineUnitBefore = 0 j,7NLb9M  
                        .OutlineLevel = wdOutlineLevelBodyText g~zz[F 8U  
                        .PageBreakBefore = False 3Zy$NsY3  
                        .RightIndent = 0 G=rgL'{  
                        .WordWrap = True g[Tl#X7F  
                        .LineUnitAfter = 0.5 }B-@lbK6)  
                         %O9kq  
                    End With (``EBEn  
                Case Else >MXE)=  
                    '不作处理 5f.G^A: _X  
            End Select \tL9`RKpg  
             o;.6Y `-fJ  
            '含有inlineshape的段落处理 `S&( J2KV  
            If ShapeHeight > 30 Then r3OTU$t?  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 ' KX'{Gy  
            End If Gp}:U>V)  
             Kk?]z7s-4  
            If (ShapeWidth + ShapeHeight) > 150 Then PQ}q5?N  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" Z0fl]3p  
            End If #w2;n@7;X  
             =\jp%A1$  
            '段落计数器递 1h.Ypzu  
            paraCounter = paraCounter + 1 a[Q\8<  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter a'sa{>  
            Me.txtStatus.Text = ParaText p([g/Q  
            DoEvents +4[L_  
        Loop .=y-T=}  
    End With %by8i1
HR  
     2&L2G'  
    msg = "" o6{[7jI  
     6[q<%wA  
    For i = 0 To Me.ErrMsg.ListCount - 1 -!X,MDO  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) D{b*,F:&@)  
    Next eRI'pi[#.  
     aSu6SU  
     1J(` kQ)c  
     MS`wd  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg u!NY@$Wc  
    Me.cmdCheck.Enabled = True cmw2EHTT<  
    Me.txtStatus.Visible = True I/whpOg  
    Me.lbParaType.Visible = False O\=U'6@  
     v%mAU3M  
    bContinue = False >U.)?>G/dt  
End Sub "O`{QVg:  
`RRC8]l  
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) P!;%DI!<b  
    Dim pTEXT As String 942(a  
     KY1(yni&8[  
    pTEXT = ChKRange.Text QG~4<zy  
     5C03)Go3Z  
    ParaType = "其它" a T v  
    TitleString = pTEXT H ;#3 S<  
    TitleNo = "N/A" | rY.IbL  
     LyEM^d]  
    shpCounter = ChKRange.InlineShapes.Count p&Os5zw;|  
    If shpCounter <> 0 Then @-uV6X8|  
        MaxShpHeight = 0: TotalShpWidth = 0 ~;m3i3D  
        For i = 1 To shpCounter }3G`f> s  
            k = ChKRange.InlineShapes(i).Height XiP xg[;  
            l = ChKRange.InlineShapes(i).Width -ahSFBZlg  
            If k > MaxShpHeight Then +`;Y K7o  
                MaxShpHeight = k 6EHYIN^D  
            End If :/F=j;o  
            TotalShpWidth = TotalShpWidth + l fpCkT[&m  
        Next -\Y"MwIED  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then K^H{B& b8  
            Exit Sub jacp':T  
        End If 3<5E254N  
    End If -pWnO9q  
     *2K/)(  
    '空行 *aE/\b  
    If Len(pTEXT) <= 2 Then 7=$@bHEF#*  
        Exit Sub b4l=Bg"  
    End If
R`)^eqB  
     );8Nj zX1  
         D..dGh.MY  
    '是否为表格中的文字 0?]Y^:  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then \S]"nHX  
        ParaType = "表格内容" 8M{-RlR  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber)  AKKp-I5  
        If k = 1 Then s~A#B)wB  
            ParaType = "表格首行" ~/R,oQ1!g}  
        End If O8&=qZ6T  
        Exit Sub i_ha^mq3  
    End If (MI8Kkb1d  
     pS1f y]  
    '例外情况：脚注 [| \Z"   
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then 'N-nFc^  
        ParaType = "脚注" PL+j;V(<  
        Exit Sub %kod31X3<  
    End If rQ_!/J[9  
     -vRZCIj!  
    '例外情况：尾注 6P0\t\D0  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then zz4TJ('  
        ParaType = "尾注" @O&<_&  
        Exit Sub S4r-s;U-v/  
    End If H9@24NFb  
     !,;> )R  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then `v]|x,l+C  
        ParaType = "页眉页脚" pZpAb+  
        Exit Sub ~ULD{Ov'F  
    End If 4 _*^~w  
     yuTSzl25,/  
     ,BUDo9h  
    With regEX .?1 6w`Y  
        .Global = True ?Ek 3<7d  
         {F Ir|R&  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" {_ &*"bK  
        If regEX.Test(pTEXT) Then hKZ<PwBi  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") YQ\c0XG  
            TitleString = regEX.Replace(pTEXT, "$3") ;WF3w  
            TitleNo = regEX.Replace(pTEXT, "$1") v/W\k.?q /  
            ParaType = "章" +pGkeZX  
            Exit Sub 75u5zD   
        End If &#keI.,  
         17-D\ +}  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" -?m"+mUP  
        If regEX.Test(pTEXT) Then 3WOm`<  
            ParaType = "一级标题" ("G _{tVU  
            regEX.Execute (pTEXT) \!+sL JP  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") /S}4J"  
            TitleString = regEX.Replace(pTEXT, "$3") z0@{5e$#Y  
            TitleNo = regEX.Replace(pTEXT, "$1") tWBfIHiha  
            Exit Sub v;S_7#  
        End If ,Z2fVz~9  
         COV8=E~  
        '全角或半角括号中的数字 t`b!3U>I  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" nnv&~
C  
        If regEX.Test(pTEXT) Then bO)voJ
<  
            ParaType = "二级标题" q_5hKipd\b  
            regEX.Execute (pTEXT) K,ccM[hu|  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") 7W)*IJ  
            TitleString = regEX.Replace(pTEXT, "$5") 7P&O{tl(  
            TitleNo = regEX.Replace(pTEXT, "$2") Yy,i,c`r  
            Exit Sub ~,*=j~#h  
        End If A/WmVv6  
         'Y6x!i2  
        '阿拉伯数字  1. 2. .u+ZrA#  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" ^)qOILn  
        If regEX.Test(pTEXT) Then x#_\b-   
            ParaType = "三级标题" ,'7 X|z/_>  
            regEX.Execute (pTEXT) XZ|%9#6  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 *0EB{T1  
            TitleString = regEX.Replace(pTEXT, "$3") TSgfIE|
 
            TitleNo = regEX.Replace(pTEXT, "$1") %K9 9_Cl3  
            Exit Sub ~\UH`_83[  
        End If ?+Q?K30:  
         *B$$6'hi`  
        '全角或半角括号中的阿拉伯数字 E< 57d,3l  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" B+8lp4V9%  
        If regEX.Test(pTEXT) Then _LVi}mM  
            ParaType = "四级标题" GmjTxNU@  
            regEX.Execute (pTEXT) TzPG(f  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") bgi B*`z  
            TitleString = regEX.Replace(pTEXT, "$5") !>n^ ;u  
            TitleNo = regEX.Replace(pTEXT, "$2") 5$Q}Zxh  
            Exit Sub 
Ys+2/>!  
        End If BZ'63  
         5,i0QT"  
        '表格名称 4
[&L<D6h  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" kYwV
0xQ  
        If regEX.Test(pTEXT) Then EFd9n  
            ParaType = "表格标题" ~>j5z&:&  
            regEX.Execute (pTEXT) ^HO'"/tB@D  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) iS iez'  
            TitleString = Trim(regEX.Replace(pTEXT, "$3"))  ZQY]c  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) _m;H$N~I#  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换  T:~c{S4&  
            Exit Sub lk<}`#(g  
        End If v;%>F)I  
         u\&F`esQ2  
        '图片名称 fz9 ,p;b  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" T5:p^;?g  
        If regEX.Test(pTEXT) Then E`M, n,  
            ParaType = "图片标题" q6A"+w,N  
            regEX.Execute (pTEXT) &jbZL5  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") Rxl )[\A*  
            TitleString = regEX.Replace(pTEXT, "$3") X(YR).a~  
            TitleNo = regEX.Replace(pTEXT, "$1") I%8>nMTJ  
            Exit Sub 1N3qMm^  
        End If >Y3ZK{b  
         w=|"{-ijo  
        '参考文献 ]J]~i[  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 j'2:z#  
        If regEX.Test(pTEXT) Then \&KfIh8  
            ParaType = "文献条目" ,V>7eQt?  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") qHU=X"rn  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") HVG:q#=C  
            Exit Sub w&b?ze{  
        End If x{o&nhuk[S  
         3 P)N,  
        prfx = Left(pTEXT, 2) _J N$zZ{  
        If prfx = "注：" Or prfx = "注:" Then d=*&=r0!C{  
            ParaType = "图表注解" +\Zr\fOe|%  
            Exit Sub "8BZj;yS  
        End If ,MmX(O0  
         AA&5wDMV>  
         ees^
j4  
        ParaType = "正文" ZQ MK1  
         :iKk"r,2P[  
    End With y)Y0SY1\j  
End Sub .huk>   
vrGx<0$  
Sub ConvertListToOrdinary() = Ff2  
    Dim st As Paragraph -45x a$vv  
    With ActiveDocument h)~i?bq!/  
        For i = .Paragraphs.Count To 1 Step -1 t XbMP  
            Set st = .Paragraphs(i) }$5e!t_K  
            lst = st.Range.ListFormat.ListString ?Dr_WFN jO  
            If lst <> "" Then U?WS\Jji3!  
                st.Range.ListFormat.RemoveNumbers bvR0?xnq  
                st.Range.InsertBefore lst & " " x_k@hGSC  
            End If t,v=~LE  
        Next 8c1ma  
    End With /:BM]K  
    Set st = Nothing 4ayZ.`aK  
End Sub M%aA1!@/  
V\2&?#GZ  
Private Sub UserForm_Activate() Klv~#9Si  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" JX $vz*KF  
    Me.lbTotal.Font.Bold = True v  7g?  
    Me.txtStatus.Visible = False Z%_m<Nf8T  
    Me.cmdCheck.Enabled = True saPg2 N,  
oiKY2.yW  
End Sub IXz)xdP  
S.E'fc1  
fG`<L;wi  
Sub CheckSuperScript() @pn<x"F
5'  
    Selection.Find.ClearFormatting HW"';M%  
    Selection.Find.Replacement.ClearFormatting pOmHxFOOK  
    With Selection.Find FN>ns,  
        .Text = "[【\[［〖](*)[】\]〗］]" ^! r<-J  
        .Replacement.Text = "[\1]" 2B!Bogs  
        .Replacement.Font.Superscript = True 01brl^5K
 
        '.Replacement.Font.Color = wdColorBlue P c'0.4  
        .Forward = True A4|L;z/A[h  
        .Wrap = wdFindContinue ZD` 9Ez)5  
        .FORMAT = True )W0zu\fL =  
        .MatchCase = False m})EYs1  
        .MatchWholeWord = False W
["c3c  
        .MatchByte = False Vs:x3)m5j  
        .MatchAllWordForms = False an<loLW  
        .MatchSoundsLike = False v ?OIK=Xm  
        .MatchWildcards = True /Y7YyjMi  
    End With FL8?<bU  
    Selection.Find.Execute Replace:=wdReplaceAll aj\ zc I  
End Sub |B` mWZ'"  
?T ( @<T  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) U6sPJc<  
    bContinue = False iN]#
XIQ%  
    Set regEX = Nothing m7n8{J1O2  
End Sub {*lRI  
IT5a/;J  
Sub CeateOrModifyStyle() *D_pFS^l  
' v;_k*y[VV$  
' )e|n7|} $  
Dim stl As Style :#pfv)W6t  
     0CtPq`!  
    Options.Pagination = False aR@s. ll  
     BQ /0z^A  
    On Error Resume Next ]NRQM8 \  
    For Each stl In ActiveDocument.Styles aN,.pLe;  
        stl.Delete Eg/=VBtc  
    Next Q=}U  
    On Error GoTo 0 tl@n}   
     wV&UB@  
    Set stl = Nothing gA/8Df\G:l  
     \0'0)@uziQ  
    DoEvents 8 FJ>W.  
    On Error Resume Next -Y:^<C^^&8  
     ]y52%RAKI  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph g"P!KPrf1p  
     RY\[[eG  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph E$?:^ausu  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph j3kcNb  
     ,|Xib
fw  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph QV_e6r1t#m  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph B}|(/a@*  
     4^>FN"Ve`B  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph ~A-1x!YiU  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph 7hLdCSX  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph c c^I9g~  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph rO;Vr},3\%  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph )=EJFQ*v  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph w<54mGMOLr  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph 8h=Rfa9  
     S@WzvM  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph Obl,Qa:5  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph 9-6E(D-ux  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph 7L"Pe'Hw  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph ;H%T5$:trP  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph YH .+(tNv  
     r'/H3  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph -sqo E*K[8  
    On Error GoTo 0 zo{WmV7[|  
    DoEvents FsXqF&{  
     jykY8;4  
    'BaseStyle "A0J~YvYWJ  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False m~xO;_m  
    With ActiveDocument.Styles("BaseStyle").Font qEW3k),  
        .NameFarEast = "宋体" {rE]y C^  
        .NameAscii = "Times New Roman" *(pmFEc
 
        .NameOther = "宋体" _=s{,t &u  
        .Size = 10.5 Oj`I=O6  
        .Bold = wdUndefined FfET45"l  
        .Italic = wdUndefined 7Ns1b(kU  
        .Subscript = wdUndefined kNnI$(H"H  
        .Subscript = wdUndefined c7[+gc5}  
         /#]4lF
k:h  
        .Underline = wdUnderlineNone gb,X"ODq  
        .UnderlineColor = wdColorAutomatic XSDudL  
        .StrikeThrough = False >kN%R8*Sx  
        .DoubleStrikeThrough = False _R] qoUw;  
         I"Gr<?r  
        .Outline = False s+jL BY  
        .Emboss = False Fb:Z.  
        .Shadow = False =Kh1HU.F  
        .Hidden = False rERHfr`OU  
        .SmallCaps = False '*XX|\.  
        .AllCaps = False *|F ;An.N^  
        .Color = wdColorAutomatic D3MRRv#  
        .Engrave = False $RJpn]d j  
        .Scaling = 100 MPxe|
Wws  
        .Kerning = 1 h,u?3}Knnb  
        .Animation = wdAnimationNone k#Bq8d  
        .DisableCharacterSpaceGrid = False tPb$ua|  
        .EmphasisMark = wdEmphasisMarkNone 2TxHY|4  
    End With r:QLO~l/  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat <dAD-2O+  
        .LeftIndent = 0 #y4+O;{  
        .RightIndent = 0 n\x@~ SzrX  
        .SpaceBefore = 0 gWZz
OH*  
        .SpaceBeforeAuto = False yo=0Ov  
        .SpaceAfter = 0 \as^z!<  
        .SpaceAfterAuto = False 4a6WQVS  
          %=t8   
        .LineSpacingRule = wdLineSpaceSingle pk&;5|cCD  
        .Alignment = wdAlignParagraphJustify }1)tALA  
         p\&Lbu zv  
        .WidowControl = False $^XCI%DH  
        .KeepWithNext = False 8F#z)>q~  
        .KeepTogether = False ='"hB~[  
        .PageBreakBefore = False VBe.&b8  
        .NoLineNumber = False _,C>+dv)  
         qx+ .v2G  
        .FirstLineIndent = CentimetersToPoints(0) d4]9oi{}  
        .OutlineLevel = wdOutlineLevelBodyText LE1#pB3TG  
        .CharacterUnitLeftIndent = 0 pMy];9SvW  
        .CharacterUnitRightIndent = 0 OU /=wpt  
        .CharacterUnitFirstLineIndent = 0 [fjP.kw;J  
        .LineUnitBefore = 0 1P17]j2C  
        .LineUnitAfter = 0 tXWhq  
        .AutoAdjustRightIndent = True dRXEF6G  
        .DisableLineHeightGrid = True f(r=S Xa*  
         F4xXJ"vc  
        .FarEastLineBreakControl = True ^o@N.+`&<  
        .WordWrap = True +l8`oQuG  
        .Hyphenation = False %l.5c Sn@  
         |
[lmW%  
        .HangingPunctuation = True = Co[pt  
        .HalfWidthPunctuationOnTopOfLine = True FO/[7ZH  
        .AddSpaceBetweenFarEastAndAlpha = True 1[&V6=n  
        .AddSpaceBetweenFarEastAndDigit = True \dzH G/e  
        .BaseLineAlignment = wdBaselineAlignBaseline ]g0h7q)79  
    End With W? ^ ?Kx  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False Munal=wL  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll }+wvZq +c  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese i;GF/pi  
    ActiveDocument.Styles("BaseStyle").NoProofing = False d2!A32m  
     Dno'-
{-  
    '一级标题题样式 6k@(7Mw8A  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") =bwuLno>  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" F CbU> 1R  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False bWe _<'N  
    With ActiveDocument.Styles("QLNU一级标题").Font <8[y2|UBt  
        .NameFarEast = "黑体" ys#V_ysb  
        .NameAscii = "Arial Black" PAUepO_  
        .NameOther = "黑体" :w+2L4lGs  
        .Name = "黑体" *=p[;V  
        .Size = 16              '三号 {|Pg]#Wi&  
        .Bold = True HLYTt)f}  
        .Italic = wdUndefined Ld?-Ik~fF>  
        .Subscript = wdUndefined + yF._Ie=  
        .Superscript = wdUndefined !eH9LRp  
    End With `1T?\  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat R | &+g\{;  
         GqT0SP  
        .LeftIndent = CentimetersToPoints(0) w.2[Xx~  
        .RightIndent = CentimetersToPoints(0) Oz:J8l%  
        .FirstLineIndent = CentimetersToPoints(0) Y>l92=G  
         \j$q';9p  
        .LineSpacingRule = wdLineSpaceSingle  )8rN  
        .Alignment = wdAlignParagraphCenter mTsl"A>  
         C72! ::o  
        .WidowControl = True J_H=GHMp}  
        .KeepWithNext = True M~uX!bDH  
        .KeepTogether = True i7UE9Nyl*  
        .OutlineLevel = wdOutlineLevelBodyText K\2UwX  
         M'"@l$[QM  
        .LineUnitBefore = 0.5 .e,(}_[[<  
        .LineUnitAfter = 0.5 !pMp n%r<]  
    End With y_F{C 9KE  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False "yo~;[  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll 2 u{"R  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese 6S2u%-]  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True t;?TXAA  
    DoEvents wj$J}F  
     x2M'!VK>n1  
    '二级 IB sQaxt.  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") |~Op|gs  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" Y 4 <  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False ofu {g  
    With ActiveDocument.Styles("QLNU二级标题").Font 0<{zW%w  
        .NameFarEast = "黑体" -x)zyq6  
        .NameAscii = "Arial Narrow" H1bPNt63  
        .NameOther = "黑体" yL#bZ9W }  
        .Name = "黑体" 3S97hn{|=  
        .Size = 15        '小三号 #w *]`5 T  
        .Bold = False ~$PQ8[=  
        .Outline = False c@]_V  
        .Italic = wdUndefined e7cqm*Qi  
        .Subscript = wdUndefined uoIvFcb^  
        .Superscript = wdUndefined bhqs%B!:  
    End With x^J}]5{0  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat 5^}"Tn4I  
        .LeftIndent = CentimetersToPoints(0) j=Co  
        .RightIndent = CentimetersToPoints(0) rz  
        .FirstLineIndent = CentimetersToPoints(0) T/$6ov+K  
         vp>,}nx4  
        .LineSpacingRule = wdLineSpaceSingle AusCU~:>  
        .Alignment = wdAlignParagraphLeft I\|x0D  
         M2.Pf s  
        .WidowControl = True [It E+{U  
        .KeepWithNext = True wy1xZQ<5  
        .KeepTogether = True ^-24S#KE  
        .PageBreakBefore = False :k"VR,riF  
        .OutlineLevel = wdOutlineLevelBodyText !RJuH;8  
         +frkC| .  
        .LineUnitBefore = 0.5 G
h:hfHiG  
        .LineUnitAfter = 0.5 ;Az9p h  
         .8O.  
    End With fF\s5f#:  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False &QoV(%:]  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll .YT&V  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese jYv`kt  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True >\x   
    DoEvents E[Rd=/P6  
     eVVm"96Q.;  
    '三级标题样式 ;Rz+4<  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") g20,et  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" (}|QSf:  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False YXdd=F  
    With ActiveDocument.Styles("QLNU三级标题").Font >H*?ktcW  
        .NameFarEast = "宋体" )<vU F]e~  
        .NameAscii = "Times New Roman" `h:$3a:5  
        .NameOther = "黑体" <H,q( :pM  
        .Name = "黑体" ~ e4Pj`?=K  
        .Size = 14               '四号 )G a%Eg9  
        .Bold = False BM@:=>ypQ  
        .Outline = False ~`<(T)rs  
        .Italic = wdUndefined UZ`GS$D@  
        .Subscript = wdUndefined -S ASn  
        .Superscript = wdUndefined S"/M+m+ ]  
    End With %]zaX-2dm!  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat SS/9fT"[  
        .LeftIndent = CentimetersToPoints(0) {}#W~1`  
        .RightIndent = CentimetersToPoints(0) 5c W2  
        .FirstLineIndent = CentimetersToPoints(0) 6^Q Bol  
         
G/w&yd4  
        .LineSpacingRule = wdLineSpaceSingle !5/jDvh  
        .Alignment = wdAlignParagraphLeft POl[]ni=>  
         l.V{H<v}  
        .WidowControl = True QNk\y@yKw  
        .KeepWithNext = True 9qHbV 9,M  
        .KeepTogether = True + \DGS  
        .PageBreakBefore = False  bK 7j"  
        .OutlineLevel = wdOutlineLevelBodyText D(m2^
\O[  
         TxN'[G  
        .CharacterUnitLeftIndent = 0 K)z!e;r  
        .CharacterUnitRightIndent = 0 f*{~N!g  
        .CharacterUnitFirstLineIndent = 2 ?0U.1N  
         h]DS$WZ  
        .LineUnitBefore = 0.5 t81}jD  
        .LineUnitAfter = 0 _aR_[  
    End With R43yr+p  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False bm &$wf  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll iEtnwSt  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese #K5)Rb-H  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True EEU)eltI
 
    DoEvents 7AE
)P[  
     ?3x7_=4t@  
    '四级标题样式 #-0}r  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") \KGi54&Y  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" m~LB 0u$ac  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False tY1M7B^~  
    With ActiveDocument.Styles("QLNU四级标题").Font Ed(6%kd  
        .NameFarEast = "宋体" ~.FZF  
        .NameAscii = "Times New Roman"  u Z(vf  
        .NameOther = "宋体" y" (-O%Pe  
        .Name = "宋体" " ^t3VjN  
        .Size = 12               '小四号 d^0vaX6e}  
        .Bold = True /O@dqEbc  
        .Outline = False \5MW65  
        .Italic = wdUndefined jlf.~vt  
        .Subscript = wdUndefined (.:!_O
B0N  
        .Superscript = wdUndefined vw;GbQH(  
    End With 4490l"  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat bpQ5B'9  
         3kA
hvL  
        .LeftIndent = CentimetersToPoints(0) U^ecg{  
        .RightIndent = CentimetersToPoints(0) }bW"Z2^nB  
        .FirstLineIndent = CentimetersToPoints(0) E&}@P0^  
         *kliI]BF]  
        .LineSpacingRule = wdLineSpaceSingle J`&*r;""V  
        .Alignment = wdAlignParagraphLeft UX?EOrfJ  
         dK5|tWJX  
        .WidowControl = True (zVT{!z  
        .KeepWithNext = True 8:x{  
        .KeepTogether = True ^UB<U#8,  
        .PageBreakBefore = False lf<?k  
        .OutlineLevel = wdOutlineLevelBodyText -*Voui
  
         ?8g*"&cn  
        .CharacterUnitLeftIndent = 0 epcBr_}  
        .CharacterUnitRightIndent = 0 P|>pm]>C  
        .CharacterUnitFirstLineIndent = 2 ?gp:uxq,.  
         ^9{mjy0Q  
        .LineUnitBefore = 0 8f""@TTp  
        .LineUnitAfter = 0 <3[,bTIk  
         yc#0c[ZQu  
    End With ot"3 3I  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False yBd#*3K1  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll +zU[rhMk'  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese GE2 ^v_  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True : J3_g<@  
    DoEvents }67lL~L  
     9K9{$jN~  
    '正文校式 +/bT4TkML  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") {hS9FdWA;  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" PD-<D~7  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False K,!"5WrX*  
    With ActiveDocument.Styles("QLNU正文").Font Ik4
FVL8~  
         n#{z"G  
        .NameFarEast = "宋体"
J FYV@%1~  
        .NameAscii = "Times New Roman" 1Q&\y)@bT  
        .NameOther = "宋体" 0Y%u[i/  
        .Name = "宋体" MDHTZ94\Q  
         $50/wb6s  
        .Size = 12               '小四号 r+4<Lon~  
         q0Hor  
        .Bold = wdUndefined O?6ph4'  
        .Italic = wdUndefined 5#DtaVz  
        .Subscript = wdUndefined Rh[%UNl  
        .Superscript = wdUndefined 0/1Ay{ns  
         <B }4}-}  
        .Outline = False &!@7+'])  
        .Emboss = False KA=cIm  
        .Shadow = False O}Ipg[h  
        .Hidden = False # s4v0auK  
         cv .R`)l  
        .DisableCharacterSpaceGrid = True 9^DXw!  
    End With ( }]ae*  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat Kzj9!'0R  
         20Umjw.D  
        .LeftIndent = CentimetersToPoints(0) )L)jv
Cw,e  
        .RightIndent = CentimetersToPoints(0) Z{9 mZlIy  
        .FirstLineIndent = CentimetersToPoints(0) -^Pn4
y]A)  
         5uVSbo.  
        .LineSpacingRule = wdLineSpaceExactly Ewfzjc   
        .LineSpacing = 20 =JqKdLH
 
        .Alignment = wdAlignParagraphLeft r )EuH.
z  
         kw%vO6"q(  
        .WidowControl = False E{Tvjh+  
        .KeepWithNext = False ?89K [D|  
        .KeepTogether = False ?)8OC(B8q  
        .PageBreakBefore = False =i`#0i2(  
        .Hyphenation = False ;tBc&LJ?  
         $CgJ+ua\8  
        .OutlineLevel = wdOutlineLevelBodyText ODggGB`H`  
         $Ur-Q d  
       ,#NH]T`c1  
        .CharacterUnitLeftIndent = 0 dx/NY1  
        .CharacterUnitRightIndent = 0 'Ti7}K  
        .CharacterUnitFirstLineIndent = 2 
#RJFJb/  
         6N6}3J5  
        .LineUnitBefore = 0 4Jf6uhaE  
        .LineUnitAfter = 0 ceW,A `J  
        .SpaceBefore = 0 TQor-Cymz  
        .SpaceAfter = 0 >~nc7j u  
         ]*M VVzF  
        .DisableLineHeightGrid = True 2feiD?0  
    End With #>]o'KQx  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False *0*1.>Vg  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll (jV_L1D  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese <~rf;2LZ  
    ActiveDocument.Styles("QLNU正文").NoProofing = True uxxS."~  
    DoEvents p$qp C$F  
     y;.U-}e1  
    '图片段落样式 UBgheu  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") x#-+//  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" {JJq/[j  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False T6P9Icv?@7  
    With ActiveDocument.Styles("QLNU图片段落").Font m(B,a,g<  
        .Size = 12               '小四号 /3(|P  
        .Italic = wdUndefined @T }p.  
        .Subscript = wdUndefined +d$ l1j  
        .Superscript = wdUndefined X;~3 U 9  
    End With F!LVyY"w  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat Y[0  
         [K*>W[n  
        .LeftIndent = CentimetersToPoints(0) 'Q^P#<<  
        .RightIndent = CentimetersToPoints(0) w2o%{n\L  
        .FirstLineIndent = CentimetersToPoints(0) lZt{L0  
         =GP~h*5es  
        .LineSpacingRule = wdLineSpaceSingle `egyk)"aM  
        .Alignment = wdAlignParagraphCenter mYE8]4  
        .KeepWithNext = True OdZLJt?g  
        .OutlineLevel = wdOutlineLevelBodyText |i}5vT78  
         BEm~o#D  
        .CharacterUnitLeftIndent = 0 7QOQG:-  
        .CharacterUnitRightIndent = 0 O% >FKU>(?  
        .CharacterUnitFirstLineIndent = 0 0~)_/yx?S  
         gz,x6mnQ  
        .LineUnitBefore = 0 1L4-hYtCj  
        .LineUnitAfter = 0 !oJ226>WI  
    End With ^Hdru]A$2  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False 3;N+5*-  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll C6!P8qX  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese /+11`B0
9  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True Fz3QSr7FU  
    DoEvents AP2BND9  
     UP8=V>T02  
     _#kjiJj*  
    '第X章 0Rme}&$  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") |t1ij'N  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" 'ot,6@~x>  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False 9b8kRz[ c  
    With ActiveDocument.Styles("QLNU章节标题").Font 5ree3 quh  
        .NameFarEast = "黑体" ]+OHxCj:  
        .NameAscii = "Arial Black" }"sZ)FE  
        .NameOther = "Arial Black" snl$v  
        .Name = "黑体" #fuc`X3:HL  
        .Size = 16 ,{pC1A@s  
        .Bold = True Qd{h3K^hlu  
        .UnderlineColor = wdColorAutomatic 6F@2:]W  
        .Outline = False 0c pI2  
        .Italic = wdUndefined Q9[$8  
        .Subscript = wdUndefined m^ 9[k,;K  
        .Superscript = wdUndefined GC<zL}  
        .Scaling = 100 tH}$j  
        .DisableCharacterSpaceGrid = True gvoo1 Sa  
    End With 3 zF"GT  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat 5UTIGla  
        .LineSpacingRule = wdLineSpaceSingle kOQq
+_Y  
        .Alignment = wdAlignParagraphCenter N9[2k.oBH  
        .WidowControl = True HxH.=M8S_  
        .KeepWithNext = True WgV'T#*  
        .KeepTogether = True 9rCvnP=  
        .PageBreakBefore = True #VLO6  
        .OutlineLevel = wdOutlineLevelBodyText .3tyNjsn\  
         @S-p[u  
        .LeftIndent = CentimetersToPoints(0) *<5zMSZO  
        .RightIndent = CentimetersToPoints(0) b
6LwKUl  
        .FirstLineIndent = CentimetersToPoints(0) ",pN.<F9O  
         q%RPAe  
        .CharacterUnitLeftIndent = 0 )=PmHUd  
        .CharacterUnitRightIndent = 0 ^T{ww=/v  
        .CharacterUnitFirstLineIndent = 0 0Xke2
6ga  
         <+/:}S4w)  
        .LineUnitBefore = 1 U,Duq^l~s  
        .LineUnitAfter = 0.5 Zl:Z31  
         ,pg\5b  
        .AutoAdjustRightIndent = False /IkSgKJiz\  
        .DisableLineHeightGrid = True ~@v<B I
 
        .FarEastLineBreakControl = True #Q6.r.3@x  
        .WordWrap = True ^<}>]F_  
    End With MV~-']2u  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False W,g0n=2V  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll .;:jGe(  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese bSKe@4C  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True UImd*;2TE  
    DoEvents C4
`u3S  
     '(qVA>S  
    '表格标题 f:).wi Ld  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 'u%;5;%2  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" 
6{qI  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False ,)CRozC\}K  
    With ActiveDocument.Styles("QLNU表格标题").Font 9uRs@]i  
        .NameFarEast = "楷体" z1WF@Ej  
        .NameAscii = "Arial" o|FY-+  
        .Name = "楷体" fG^#G/n2  
        .Size = 10.5 {|jrYU.k~  
        .Bold = True Y(`# J[  
        .Underline = wdUnderlineNone E>|xv#:~DV  
        .Italic = wdUndefined '/h~O@Rw  
        .Subscript = wdUndefined QIcg4\d%s  
        .Superscript = wdUndefined e@GR[0~  
        .Color = wdColorAutomatic ?9?eA^X%  
    End With On^jHqLaE  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat xIrRFK9[Q  
         =LsW\.T6  
        .LineSpacingRule = wdLineSpaceSingle r2Wx31j{  
        .Alignment = wdAlignParagraphCenter ;`TSu5/  
        .KeepWithNext = True W8/8V,  
        .KeepTogether = True hZudVBn  
        .OutlineLevel = wdOutlineLevelBodyText dp&bcR&#)  
         0D\b;ju<  
        .LeftIndent = CentimetersToPoints(0) b')Lj]%;k  
        .RightIndent = CentimetersToPoints(0) .&Vyo<9Ck  
        .FirstLineIndent = CentimetersToPoints(0) h /.^iT  
         3=SN;cn  
        .CharacterUnitLeftIndent = 0 tSZd0G<A<o  
        .CharacterUnitRightIndent = 0 "]"!"#aMv  
        .CharacterUnitFirstLineIndent = 0 rLy<3  
         Y?^1=9 ?6  
        .LineUnitBefore = 1 |PI]v`[  
        .LineUnitAfter = 0 Gz>M`M`[
4  
         /{j" )  
    End With Qxvj`Ge  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False [T5z}!_y  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll I O (Y_7  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese LvtZZX6!  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True X5M{ No>z  
    DoEvents ~MgU"P>  
*>ilT5q  
    '表格首行 LMV0:\>  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") |.s#m^"  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False dV5aIj  
    With ActiveDocument.Styles("QLNU表格首行").Font 8" x+^  
        .NameFarEast = "楷体" P/'9k0zs)  
        .NameAscii = "Times New Roman" !.(%"  
        .Name = "楷体" Ke_&dgsq  
        .Size = 9 "n4' \ig  
        .Bold = True H"_]Hq  
        .Underline = wdUnderlineNone X~H~k1  
        .Italic = wdUndefined &)
8-iO  
        .Subscript = wdUndefined :=0XT`iY  
        .Superscript = wdUndefined [q MFLY$  
    End With 5:=ECtKi  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat U;QN+fF]u  
        .LineSpacingRule = wdLineSpaceSingle o`!7~n  
        .Alignment = wdAlignParagraphCenter F$;vPAxbK"  
         <MPoDf?h  
        .LeftIndent = CentimetersToPoints(0) o*L#S1yL  
        .RightIndent = CentimetersToPoints(0) T.=du$  
        .FirstLineIndent = CentimetersToPoints(0) <Bmqox0  
         kH)JBx.  
         frYPC Irj  
        .CharacterUnitLeftIndent = -0.5 ?^# h|aUp.  
        .CharacterUnitRightIndent = -0.5 Sb9In_* 0  
        .CharacterUnitFirstLineIndent = -0.5 0Q ]p#;  
         I>]t% YKj  
        .LineUnitBefore = 0 \[-z4Fxg|'  
        .LineUnitAfter = 0 HfF4BQxm  
        .SpaceBefore = 0 VHyP@JB  
        .SpaceAfter = 0 NWGSUUa  
          `#m>3  
    End With =Wl*.%1 b  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False [~ Wiy3n  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll `$X|VAS2  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese )ZU=`!4  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True Tath9wlv6;  
    DoEvents 7=o
2$  
mNvK|bTUT  
    '表格内容 D-/ aS5wM
 
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") N
'#Lb0`B  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False |?t6h 5Mt"  
    With ActiveDocument.Styles("QLNU表格内容").Font " -Ie  
        .NameFarEast = "楷体" dXe. 5XC  
        .NameAscii = "Times New Roman" ()E:gqQ  
        .Name = "楷体" e|L$e0  
        .Size = 9 w(P\+ m<%  
        .Bold = False WF6'mg^^?  
        .Underline = wdUnderlineNone CQq'x+{F  
        .Italic = wdUndefined ATeXOe
 
        .Subscript = wdUndefined L?@TF;
 
        .Superscript = wdUndefined Rv ]?qJL  
    End With ~vCfMV[F  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat a-`OE"  
        .LineSpacingRule = wdLineSpaceSingle B>^5h?(lt  
        .Alignment = wdAlignParagraphCenter `f@VX :aL}  
         Wgh4DhAW  
        .LeftIndent = CentimetersToPoints(0) )A`Zgg'L7D  
        .RightIndent = CentimetersToPoints(0) % 7_c|G1  
        .FirstLineIndent = CentimetersToPoints(0) 9}4EW4  
         NjTVinz  
        .CharacterUnitLeftIndent = -0.5 G]Jchg <  
        .CharacterUnitRightIndent = -0.5 `VT0wAe2;  
        .CharacterUnitFirstLineIndent = -0.5 x bG'![OX  
        .LineUnitBefore = 0 I)
$of9   
        .LineUnitAfter = 0 pvz*(u
 
        .SpaceBefore = 0 "!yKX(aTX  
        .SpaceAfter = 0 5>XrNc91  
    End With >};6>)0  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False xr2ew%&o  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll U#B,Q6~  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese /f_c?|  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True [N|/d#  
    DoEvents {
(DD~~)D  
KAR XC,z  
    '图片标题 "4{_amgm&<  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") !f(aWrw7e6  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" 5 i1T?  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False & wZ ggp  
    With ActiveDocument.Styles("QLNU图片标题").Font h=q%h8  
        .NameFarEast = "楷体" JJvf!]  
        .NameAscii = "Times New Roman" 8Ee bWs*1  
        .Name = "楷体" sFEkxZi<  
        .Size = 10.5 0I.9m[<Fc  
        .Bold = True A%VBBvk  
        .Underline = wdUnderlineNone ZO
FhX$I  
        .Italic = wdUndefined bw@DcT&,  
        .Subscript = wdUndefined q4k )E  
        .Superscript = wdUndefined m_%1IJ  
        .Outline = False _{EO9s2FG  
        .Shadow = False 2u[:3K-@,  
        .Color = wdColorAutomatic "EoC7 1  
    End With x 5u.D^  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat mGQgy[gX  
        .LineSpacingRule = wdLineSpaceSingle >`jsUeS  
        .Alignment = wdAlignParagraphCenter hIj[#M&6  
         $z7[RLu0!  
        .KeepWithNext = wdUndefined G-U%  
        .KeepTogether = True QK5y%bT SA  
        .OutlineLevel = wdOutlineLevelBodyText  c|N!ZYJI  
         Jmb [d\ /D  
        .LeftIndent = CentimetersToPoints(0) ,w.`(?I/  
        .RightIndent = CentimetersToPoints(0) HQ%-e5Q  
        .FirstLineIndent = CentimetersToPoints(0) gTK5z.]  
         v-85`h  
        .CharacterUnitLeftIndent = 0 ~P*t_cpZ  
        .CharacterUnitRightIndent = 0 +uF!.!}  
        .CharacterUnitFirstLineIndent = 0 5zlgmCGow  
         Ag
sMk  
        .LineUnitBefore = 0 H=vrF-#  
        .LineUnitAfter = 0 i^{.Q-  
    End With S7Xr~5>X  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False nL}bCX{  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll e75k-  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese vqLC?{i+  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True `_]Z#X&&h  
    DoEvents }2Lh'0 xY  
. +G),P)   
    '目录项 S9Fg0E+J  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") fhu-YYJt  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" "y>\ mC
  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False p{j }%)6n  
    With ActiveDocument.Styles("QLNU目录项").Font 8#
%p[TLj  
        .NameFarEast = "黑体" ]fXMp*LvY  
        .NameAscii = "Times New Roman" \TG!M]D:  
        .NameOther = "Times New Roman" G "jKYW  
        .Name = "黑体" +#5nk,1c>  
        .Size = 10.5 28[dTsd%  
        .Bold = False e`Xy!@`_  
        .Italic = wdUndefined 9=&e5Oq}  
        .Underline = wdUnderlineNone 6 ^X$;  
        .Color = wdColorAutomatic w5l:^^zF(  
        .Superscript = wdUndefined Sf}>~z2  
        .Subscript = wdUndefined /Yk2 |L  
    End With H/_R!G8\  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat ;lS
T@>  
         (o _fY .  
        .LineSpacingRule = wdLineSpaceSingle 4z-s R/d  
        .Alignment = wdAlignParagraphLeft d"nz/$  
         NF1e>O:a<  
        .WidowControl = False A>6b 6  
        .KeepWithNext = False lz!F{mR  
        .KeepTogether = False ZdE
eY|
j  
        .PageBreakBefore = False [y y D-  
        .NoLineNumber = False e~r%8.Wm  
        .OutlineLevel = wdOutlineLevelBodyText 9&A-o  
         _=Y]ZX`j  
        .LeftIndent = CentimetersToPoints(0) M/5e4b  
        .RightIndent = CentimetersToPoints(0) ^4Ra$<  
        .FirstLineIndent = CentimetersToPoints(0) 7z \I\8  
         :GC<U|p  
        .CharacterUnitLeftIndent = 0 ,\;;1Kq  
        .CharacterUnitRightIndent = 0 d:0
RDK-}s  
        .CharacterUnitFirstLineIndent = 0 8<$6ufvOv  
         O6P0Am7s  
        .LineUnitBefore = 0 [L1pDICoy  
        .LineUnitAfter = 0 MN2#
 
    End With pmyHto"  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False v{ .-x\;  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll p 6[a"~y  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot %T*lcg  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese v]g/ 5qI&  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True 'kc_Ov VA  
    DoEvents )5lo^Qb  
     V *=To  
    '参考文献 X75>C<  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") ?H7*?HV  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" 8uoFV=bj\  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False A~Eu_m  
    With ActiveDocument.Styles("QLNU参考文献").Font c,KT1me  
        .NameFarEast = "宋体" (Q !4\Gy  
        .NameAscii = "Times New Roman" >Dpz0v  
        .NameOther = "Times New Roman" 9`\hG%F  
        .Name = "Times New Roman" E|D~:M%~  
        .Size = 12 U">D_ 8  
        .Bold = False Nt#zr]Fz  
        .Italic = wdUndefined E% \iNU!  
        .Subscript = wdUndefined : j&M&+  
        .Superscript = wdUndefined ?7@Y=7BS4  
        .Underline = wdUnderlineNone Wy%q9x]}  
        .UnderlineColor = wdColorAutomatic XM3N>OR.  
        .Color = wdColorAutomatic vy#n7hdCc  
        .Engrave = False =+q9R`!L]  
    End With 'v4#mf  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat 4KE"r F  
         \)VV6'zih  
        .LineSpacingRule = wdLineSpaceExactly 1
)u 3  
        .LineSpacing = 16 AiSO|!<.N  
        .Alignment = wdAlignParagraphLeft SN|EWe^  
        .WidowControl = False DO(-)izC  
        .KeepWithNext = False BQv+9(:fQB  
        .KeepTogether = False 3%m2$\  
        .PageBreakBefore = False S\GC^ FK  
        .OutlineLevel = wdOutlineLevelBodyText |,bsMJh0  
         p5^,3&  
        .LeftIndent = CentimetersToPoints(0) 9Y1&SEsNX  
        .RightIndent = CentimetersToPoints(0) a +Q9kh  
        .FirstLineIndent = CentimetersToPoints(0) n6;jIf|  
         nMD^x  
        .CharacterUnitLeftIndent = 0 #NVtZs!V/  
        .CharacterUnitRightIndent = 0 3ik   
        .CharacterUnitFirstLineIndent = -2 ~oI7T
P  
         W O $PW`k  
        .LineUnitBefore = 0 @`aR*B  
        .LineUnitAfter = 0 T#^   
        .SpaceBefore = 0 ^Sx0t  
        .SpaceAfter = 0 $rDeI-)S  
         gd[jYej'RP  
    End With g^(wZ$NH  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False :(?joLA  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll !*.mcIQT  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS $j^Jj  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True x^}kG[s  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese &R/)#NAp  
    DoEvents *52*I
RH  
(7
x5  
    ' I!.o &dk  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle")
5
n1;@Vr  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" `h
12  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False r00waw>C\  
    With ActiveDocument.Styles("QLNU论文题目").Font S pDV D  
        .NameFarEast = "黑体" Lm\N`  
        .NameAscii = "Arial Black" !<]%V]5[_  
        .NameOther = "Arial Black" jcQ{,9 H`l  
        .Name = "Arial Black" +ex@[grsGT  
        .Size = 16 `pzp(\lc  
        .Bold = False ^8aj\xe(  
        .Italic = wdUndefined pt;E~_  
        .Superscript = wdUndefined tfj6#{M5  
        .Subscript = wdUndefined sM
({u/  
        .Underline = wdUnderlineNone +Y ,>ftN  
        .UnderlineColor = wdColorAutomatic UiA\J  
        .Color = wdColorAutomatic A1@
tp/L=o  
.pQH>;k]K  
    End With h@FDP#H  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat ZAzn-n  
        .LineSpacingRule = wdLineSpaceSingle }pj>B
K>  
        .Alignment = wdAlignParagraphCenter HDYr?t~V  
        .WidowControl = True q2 D2:0^2  
        .KeepWithNext = True ?U~C= F?K  
        .KeepTogether = True 9H?er_6Yf  
        .PageBreakBefore = True =6imrRaaV  
        .NoLineNumber = False 6GG&mqr+  
        .OutlineLevel = wdOutlineLevelBodyText j$^3  
         [o <R#f`  
        .LeftIndent = CentimetersToPoints(0) F{
J>=TC  
        .RightIndent = CentimetersToPoints(0) a ^<W ?Z  
        .FirstLineIndent = CentimetersToPoints(0) i;c0X+[  
         oC>e'_6_b  
        .CharacterUnitLeftIndent = 0 WV!qG6\W  
        .CharacterUnitRightIndent = 0 y%k\=:m  
        .CharacterUnitFirstLineIndent = 0 OwV>`BIwns  
         O5{!CT$  
        .LineUnitBefore = 1 [=9-AG~}  
        .LineUnitAfter = 1 l]inG^s  
         n>jb<uz  
        .BaseLineAlignment = wdBaselineAlignAuto l
DO9GNz$  
    End With ,Cj1S7GFR  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False !7@IWz(,"  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll XodA(73`i  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS [wP;g'F  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True ed4:r/Dpo  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese v0|A N  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True ),0_ C\  
    DoEvents ws Lg6  
     0/S|P1!b  
    '中文摘要 oAe]/j$  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") ,K .P,z~*  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" 5Fm.] /  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False E"bYl3  
    With ActiveDocument.Styles("QLNU中文摘要").Font uQWJ7Xm  
        .NameFarEast = "宋体" +:?-Xd:p  
        .NameAscii = "Times New Roman" :y%%Vx~  
        .NameOther = "Times New Roman" oEU %"  
        .Name = "Times New Roman" *W,"UL6U8y  
        .Size = 12 0G1?  
        .Bold = wdUndefined fLL_{o0T  
        .Superscript = wdUndefined )6iY9[@tN  
        .Subscript = wdUndefined \%=\_"^?  
        .Italic = wdUndefined :j9{n ,F  
        .Underline = wdUnderlineNone MPA<?  
        .UnderlineColor = wdColorAutomatic 8s pGDg\g  
        .Color = wdColorAutomatic Ek(. ["  
    End With 1Vt7 [L*  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat _KC)f'Cx  
        .LineSpacingRule = wdLineSpaceExactly H1 rge<  
        .LineSpacing = 20 5j
1}?0v_  
        .Alignment = wdAlignParagraphLeft jI(~\`  
         z:bxnM2\  
        .WidowControl = False q$e2x=?  
        .KeepWithNext = False <i"U%Ds(  
        .KeepTogether = True /J`8Gk59  
        .PageBreakBefore = False ,i#]&f`c;5  
        .NoLineNumber = False iU{bPyz,  
        .OutlineLevel = wdOutlineLevelBodyText *:bNK5I.t  
         s/UIo^m  
        .LeftIndent = CentimetersToPoints(0) Kvv&# eO\  
        .RightIndent = CentimetersToPoints(0) /8@JWK^I{  
        .FirstLineIndent = CentimetersToPoints(0) g !
w7Yv  
         FOgF'!K  
        .CharacterUnitLeftIndent = 0  5i7,s  
        .CharacterUnitRightIndent = 0 G`PSb<h\oc  
        .CharacterUnitFirstLineIndent = 2 jFpXTy[>  
        .LineUnitBefore = 0 -X5rGp++  
        .LineUnitAfter = 0 <splLZW3k  
         #o_`$' >  
    End With |/C>xunzz  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False 9+U%k(9  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll g<{/m
xv/  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS Oyhl*`-*t  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True +Sv`23G@  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese !OekN,6  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True _,_>B8  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete XWZ *{/u  
    DoEvents *DOb
tS_ 6  
     Q*Per;%J  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") Pc C9)x  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" ?dlQE,hB$  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False G^!20`p:  
    With ActiveDocument.Styles("QLNU英文标题").Font N,V%/O{Y  
        .NameFarEast = "黑体" Teu4;  
        .NameAscii = "Arial Narrow" NmYSk6kWJ  
        .Name = "Arial Narrow" xz[a3In+  
        .Size = 16 R<lj$_72Q  
        .Bold = True Um]>B`."wK  
        .Bold = wdUndefined q 3JoU/Sf  
        .Superscript = wdUndefined &e@2zfl7  
        .Subscript = wdUndefined 1uz9zhG><  
        .Italic = wdUndefined p}_bu@;.Z  
         k X."|]  
        .Underline = wdUnderlineNone YOwo\'|=  
        .UnderlineColor = wdColorAutomatic ZN-J!e"`  
        .StrikeThrough = False +Tc<|-qQn  
        .DoubleStrikeThrough = False ViQxO
UE  
    End With !L:!X88  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat H>_ FCV8  
        .LineSpacingRule = wdLineSpaceSingle Q7UF F  
        .Alignment = wdAlignParagraphCenter #qT97NQ  
        .WidowControl = True tiSN amvG1  
        .KeepWithNext = False dbSIC[q  
        .KeepTogether = False oQI3Yz  
        .PageBreakBefore = False 1B w CJ7?8  
        .NoLineNumber = False \Xc6K!HJM  
        .FirstLineIndent = CentimetersToPoints(0) +b1(sk=4z  
        .OutlineLevel = wdOutlineLevelBodyText !/ TeTmo  
         %ribxgmd  
        .LeftIndent = CentimetersToPoints(0) K/79Tb-  
        .RightIndent = CentimetersToPoints(0) J!O5`k*.C  
        .FirstLineIndent = CentimetersToPoints(0) X+;Ivx  
         0vNEl3f'O  
        .CharacterUnitLeftIndent = 0 \ F#mwl,>"  
        .CharacterUnitRightIndent = 0 PF*<_p"j  
        .CharacterUnitFirstLineIndent = 0 KL,=Z&.<=  
         S9J<3 =  
        .LineUnitBefore = 1 k-xh-&  
        .LineUnitAfter = 1 frbKi _1  
         aAiSP+#  
    End With 5_ -YF~  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False 1s8v E f  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll &}@U#w]l  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS U(]
a(k<r  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True su/l'p'  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese |4aV~n[>#  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True 'A .c*<_  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete =HmV0  
    DoEvents Q ,30  
YlwCl4hq  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") >Jt,TMMlt  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" D oX!P|*  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False $wH{snX  
    With ActiveDocument.Styles("QLNU英文摘要").Font
/1ooOq]  
        .NameFarEast = "宋体" 6 /gh_'&  
        .NameAscii = "Arial" ^'!]|^  
        .NameOther = "Arial" SY>i@s+ML  
        .Name = "Arial" ]?S\
So+  
        .Size = 12 .pNWpWL.  
        .Bold = wdUndefined |8PUmax
 
        .Italic = wdUndefined a_4Ny  
        .Superscript = wdUndefined 
L0ig%  
        .Subscript = wdUndefined ))|Wm}  
    End With %&5 !vK  
     y[Zl,v7  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat F7gipCc1We  
         9KRHo%m  
        .LineSpacingRule = wdLineSpaceExactly =i
}  
        .LineSpacing = 20 vg"y$%  
         \~d|MP}"F:  
        .Alignment = wdAlignParagraphJustify 7tMV*{+Z  
         v~e@:7d i  
        .WidowControl = False PN[ `p1F  
        .KeepWithNext = False <at/z9b
 
        .KeepTogether = False A\iDK10Q$  
        .PageBreakBefore = False v+f:VA  
        .NoLineNumber = False z(d@!Cd  
         :TJv<NZi'  
        .OutlineLevel = wdOutlineLevelBodyText I-oI,c%+  
         0? (  
        .LeftIndent = CentimetersToPoints(0) _7#Ng@#\  
        .RightIndent = CentimetersToPoints(0) <#<4A0:  
        .FirstLineIndent = CentimetersToPoints(0) ^5j|   
         sufi
di  
        .CharacterUnitLeftIndent = 0 T`7;Rl'Q  
        .CharacterUnitRightIndent = 0 W!8g.r4u+,  
        .CharacterUnitFirstLineIndent = 2 JO\Tf."a\  
         i`)bn1Xm  
        .LineUnitBefore = 0 oGx OJyD  
        .LineUnitAfter = 1 h 1G`z  
         @G[P|^B  
    End With (g xCP3  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False i <&*f}='  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll J*$u  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS }tv%  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False Pf;'eOdp  
    DoEvents :zdMV6s  
zQM3n =y  
    Options.Pagination = True vJVL%,7  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." ,S E5W2a]  
    DoEvents Da*=uW9  
    ActiveDocument.Repaginate =fG c?PQ  
xr+K: bw  
End Sub E</UmM+ R  
}Iz'#I Xx  
}NW^?37  

姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 O9*cV3}H  
gXN#<g,:^  

引用

引用第20楼newport93于06-14-2010 13:47发表的  : /3->TS  
2:'C|  
老五，I 服了U。 hNs97 0i  
XlIRedZ{  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 9 X}F{!p~1  

HSGM&!5mW