Dim bContinue As Boolean qha<.Ro  
>O  _  
Dim regEX As New RegExp F)@<ZE  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 PjHm#a3zg%  
[=Z{y8#:J  
Dim LastTitle0String As String, LastTitle0No As Long 6yb<4@LOb  
Dim LastTitle1String As String, LastTitle1No As Long N9Ml&*%oX{  
Dim LastTitle2String As String, LastTitle2No As Long ~
I<y^]2{  
Dim LastTitle3String As String, LastTitle3No As Long */)gk=x8  
Dim LastTitle4String As String, LastTitle4No As Long ?]z ._I`E  
Dim LastTitle5String As String, LastTitle5No As Long ;w>B}v;RE  
Dim LastTabelString As String, LastTableNo As Long !=we7vK}  
Dim LastFigureString As String, LastFigureNo As Long %c0;Bb-  
-O5m@rwt<  
Dim strSeperator As String U QFuEI<1-  
OK 6}9Eu9  
Sub ConvertWidth(fTEXT As String, rText As String) eBB D9SI
 
        Selection.Find.ClearFormatting mAzW'Q4D  
        Selection.Find.Replacement.ClearFormatting 0TpA3K  
        Selection.Find.Wrap = wdFindContinue (0+m&, z  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText 2XtQ"`)  
        DoEvents F\I^d]#,[  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True O c.>$  
End Sub zN1;v6;  
=N c`hP  
Sub ClearDomain() \a!<^|C&  
        With Selection.Find 55,-1tWs  
            .ClearFormatting d1
-p];&  
            .Replacement.ClearFormatting 0 Yp;?p^  
            .Wrap = wdFindContinue ry0 =N^  
            Me.txtStatus.Text = "清除所有域代码" >MT)=4 9q  
            DoEvents 5*AKl< Jl  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False v4$,Vt:7  
        End With AMdS+(J  
End Sub `9-Zg??8r  
3(%,2  
Private Sub cmdCheck_Click() wOOPWwk  
    bContinue = True <Va>5R_
d<  
    Dim NoSeries1(1 To 16) As String b~gF,^w  
    Dim NoSeries2(1 To 16) As String }#J}8.  
    Dim NoSeries5(1 To 16) As String `Nn?G  
    Dim NoSeriesRM(1 To 16) As String xh0A2bw'OP  
    Dim paraTotal As Long, ParaText As String kQ8WO|
bA  
    Dim ttString As String, ttNo As String wu')Q/v  
     5IK@<#wE  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long Zux2VepT  
3fPv71NVtt  
    Me.txtStatus.Visible = True s<b7/;w'  
    Me.lbParaType.Visible = True zMKL: Um"  
    Me.cmdCheck.Enabled = False wLbngO=VG  
     3[0:,^a  
     oB9m\o7$  
     .p`'^$X^  
     Q1Ao65  
    Dim ParaType As String, rText As String r.^&%D  
     X\%3uPQ  
    Selection.WholeStory ZT ZE_[  
    Selection.NoProofing = True e?>suIB  
     n&]w* (,  
    tm1 = Now WQx;tX  
     [_d*J/X  
        ActiveWindow.View.Type = wdNormalView RHbw
q
]  
     sYpogFfV  
    NoSeries1(1) = "一" :X f3wP=  
    NoSeries1(2) = "二" gL`SZr9  
    NoSeries1(3) = "三" \4k *Zk  
    NoSeries1(4) = "四" %*OJRL`  
    NoSeries1(5) = "五" &U
R/Txnu  
    NoSeries1(6) = "六" i"xDQ$0G6  
    NoSeries1(7) = "七" e=jO_[  
    NoSeries1(8) = "八" OT i3T1&  
    NoSeries1(9) = "九" k:Q<Uanc[  
    NoSeries1(10) = "十" B
*IDx`^Y  
    NoSeries1(11) = "十一" R{_IrYk  
    NoSeries1(12) = "十二" 4(82dmKO  
    NoSeries1(13) = "十三" K}BX6dA  
    NoSeries1(14) = "十四" 8H?AL RG  
    NoSeries1(15) = "十五" ([~`{,sv  
    NoSeries1(16) = "十六" S41>VbtEp  
     }^7V^W  
    NoSeries2(1) = "㈠" S<~nk-xr*h  
    NoSeries2(2) = "㈡" SO/]d70HG  
    NoSeries2(3) = "㈢" h.0K PF]O  
    NoSeries2(4) = "㈣" CvJEY  
    NoSeries2(5) = "㈤" $nn5;11@gY  
    NoSeries2(6) = "㈥"  Dfia=1A  
    NoSeries2(7) = "㈦" d}_c(  
    NoSeries2(8) = "㈧" Z&,}Fgl!F  
    NoSeries2(9) = "㈨" @_3$(*n$~  
    NoSeries2(10) = "㈩" =*jcO1 19L  
     ^q\zC%.  
    NoSeries5(1) = "①" cmI#R1\  
    NoSeries5(1) = "②" DlI5} Jh  
    NoSeries5(3) = "③" s`RJl V  
    NoSeries5(4) = "④" V m.@qO*=  
    NoSeries5(5) = "⑤" }c%y0)fL
 
    NoSeries5(6) = "⑥" A]$+ `uS\  
    NoSeries5(7) = "⑦" aehMLl9cl  
    NoSeries5(8) = "⑧" ?M^t4nj  
    NoSeries5(9) = "⑨" ".f:R9-  
    NoSeries5(10) = "⑩" #9OP.4  
     <h9\A&  
     Umg81!  
    NoSeriesRM(1) = "I" W+?[SnHL/  
    NoSeriesRM(2) = "II" EB<q.  
    NoSeriesRM(3) = "III" +ctv]'P_  
    NoSeriesRM(4) = "IV" ]?{lQ0vw'w  
    NoSeriesRM(5) = "V" #1@~w}Dh  
    NoSeriesRM(6) = "VI" TzGm562o%  
    NoSeriesRM(7) = "VII" /&7Yi_] r  
    NoSeriesRM(8) = "VIII" hm>*eJNp]  
    NoSeriesRM(9) = "IX" (_ah~VnO  
    NoSeriesRM(10) = "X" /MH@>C _  
    NoSeriesRM(11) = "XI" W?-BT >#s  
    NoSeriesRM(12) = "XII" ;!?K.,N:N  
    NoSeriesRM(13) = "XIII" Ah{pidUx  
    NoSeriesRM(14) = "XIV" J-F_XKqH  
    NoSeriesRM(15) = "XV" ;4$C$r!t  
    NoSeriesRM(16) = "XVI" ;0}2@Q2@ZK  
     "6Uj: 9  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) u,:`5*al{  
     PBtU4)  
    If i = vbNo Then zi .
,?Q  
        Exit Sub NCt sx /C  
    End If \DK*>
k  
     -^v}T/Kl#  
    If Me.chkSuper.Value Then KTt$Pt/.  
        Me.txtStatus.Text = "检查修改所有的上标格式" C&kl*nO  
     zD<9A6AB  
        CheckSuperScript ton`ji\^  
         *(B[J  
    End If N1~$ +  
     uFZB8+  
    If Me.chkStyle.Value Then nX%'o`f  
        Me.txtStatus.Text = "设置样式，请稍候...." u V7Hsg9l  
        DoEvents [dlH t;S  
        CeateOrModifyStyle ~e9INZe-j  
    End If /}_c7+//  
     mcr#Ze  
     C}_:K)5q  
     bK9~C" k  
    ClearDomain *J5RueUG  
         MXk. 2  
     A'iF'<%  
     X388Gs;e  
    If Me.chkLIST.Value Then [oLQd-+  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" 4&hqeY3  
     mX@*2I  
        ConvertListToOrdinary }c ;um  
    End If -oBas4J  
     E^a`IA  
     +t4m \/y  
    Dim pType As String, trimpTEXT As String )OC[;>F7  
    If Me.chkNum.Value = True Then QYXx7h r=$  
        Me.txtStatus.Text = "转换全角数字形式为半角" K"j= _%{  
        ConvertWidth "１", "1" y4We}/-<  
        DoEvents 5l0rw)  
        ConvertWidth "２", "2" :iB%JY Ad  
        DoEvents U^BXCu1km  
        ConvertWidth "３", "3" @n*D>g  
        DoEvents :b*`hWnQ  
        ConvertWidth "４", "4" &\|<3sd(  
        DoEvents _PUm Pom.  
        ConvertWidth "５", "5" K/v-P <g  
        DoEvents ;<@6f@  
        ConvertWidth "６", "6" cE5Zxcn  
        DoEvents k<zGrq=8J  
        ConvertWidth "７", "7"  iLcadX  
        DoEvents h./ vTNMc  
        ConvertWidth "８", "8" UMQW#$~C{g  
        DoEvents OG7v'vmY  
        ConvertWidth "９", "9" !r obau7  
        DoEvents x*8f3^ wE  
        ConvertWidth "０", "0" x9A ZS#e)[  
        DoEvents Juqn X  
        ConvertWidth "ａ", "a" SoU'r]k1x  
        DoEvents 2%C5P0;QX  
        ConvertWidth "ｂ", "b" % 3-\3qx*  
        DoEvents
vx }Z  
        ConvertWidth "ｃ", "c" YzW7;U S  
        DoEvents ESjJHZoD(  
        ConvertWidth "ｄ", "d" 5|G3t`$pa  
        DoEvents =^y{@[p`(  
        ConvertWidth "ｅ", "e" {JCz^0DV  
        DoEvents Ja=70ZI^6  
        ConvertWidth "ｆ", "f" y6jmn1K  
        DoEvents p]z54 ~  
        ConvertWidth "ｇ", "g" _ZM9 "<M-X  
        DoEvents %%cSvPcz  
        ConvertWidth "ｈ", "h" DPQGh`J  
        DoEvents kjC{Zr  
        ConvertWidth "ｉ", "i" F%Umau*1  
        DoEvents W<|K  
        ConvertWidth "ｊ", "j" Tv,.  
        DoEvents m$mY<Q  
        ConvertWidth "ｋ", "k" oEoJa:h  
        DoEvents 9^#gVTGXv  
        ConvertWidth "ｌ", "l" m:fouMS  
        DoEvents w<>6>w@GZ  
        ConvertWidth "ｍ", "m" 8~(+[[TQ@  
        DoEvents iz>y u[|  
        ConvertWidth "ｎ", "n" S{i@=:  
        ConvertWidth "ｏ", "o" [=ak >>8  
        ConvertWidth "ｐ", "p" G4%M$LJh  
        ConvertWidth "ｑ", "q" _JJKbi  
        ConvertWidth "ｒ", "r" |z.GSI_!)  
        ConvertWidth "ｓ", "s" I5yd )72  
        ConvertWidth "ｔ", "t" ) v5n "W  
        ConvertWidth "ｕ", "u" s/vOxGc  
        ConvertWidth "ｖ", "v" 0$ 9;pzr  
        ConvertWidth "ｗ", "w" R|J>8AL}BY  
        ConvertWidth "ｘ", "x" qL5#.bR  
        ConvertWidth "ｙ", "y" C=aj&  
        ConvertWidth "ｚ", "z" fwv T2G4  
        ConvertWidth "Ａ", "A" 3k*:B~1  
        ConvertWidth "Ｂ", "B" *R\/#Y|  
        ConvertWidth "Ｃ", "C" +M O5'z  
        ConvertWidth "Ｄ", "D" _7.GzQJ  
        ConvertWidth "Ｅ", "E" <C"N X  
        ConvertWidth "Ｆ", "F" gq_7_Y/  
        ConvertWidth "Ｇ", "G" DT"Zq  
        ConvertWidth "Ｈ", "H" QC5f:BwM  
        ConvertWidth "Ｉ", "I" Z F yX@#B9  
        ConvertWidth "Ｊ", "J" GHC?Tp  
        ConvertWidth "Ｋ", "K" l3?,gd.-  
        ConvertWidth "Ｌ", "L" vs])%l%t  
        ConvertWidth "Ｍ", "M" 4Re@QOZ  
        ConvertWidth "Ｎ", "N" FWpN:|X BS  
        ConvertWidth "Ｏ", "O" %>9+1lUhV  
        ConvertWidth "Ｐ", "P" JRjMt-7H_  
        ConvertWidth "Ｑ", "Q" Y:!/4GF  
        ConvertWidth "Ｒ", "R" 9#T%bB"J  
        ConvertWidth "Ｓ", "S" T~~[a|bLa  
        ConvertWidth "Ｔ", "T" ?~JxO/K  
        ConvertWidth "Ｕ", "U" 1;:t~Y  
        ConvertWidth "Ｖ", "V" g;#KB
xE  
        ConvertWidth "Ｗ", "W" |8qK%n f}  
        ConvertWidth "Ｘ", "X" +>:_kE]?nX  
        ConvertWidth "Ｙ", "Y" M|5]
#2J_2  
        ConvertWidth "Ｚ", "Z" @S"pJeP/f  
        ConvertWidth "^l", "^p" h9BD ^j  
        ConvertWidth "（", "(" fZV8
o$V  
        ConvertWidth "）", ")" Hl2f`GZ   
     r;on0wm&B  
    End If Z:lB:U'o  
~? FrI  
    With ActiveDocument ]AZ\5C-J  
        Dim tbl As Table !E {
GcK  
        For Each tbl In .Tables 2u*h*/  
            tbl.Rows.Alignment = wdAlignRowCenter *J Y`.t  
            tbl.Range.Font.NameFarEast = "楷体" {I9N6BQ&  
            tbl.Range.Font.NameAscii = "Times New Roman" g3~~"`2  
            tbl.Range.Font.Size = 10.5 
N~S[xS?  
        Next akvwApn5  
        Set tbl = Nothing Uq] EJu  
    End With SeNF!k% Y  
     c."bTq4tJ  
     ZCE%38E N  
    With ActiveDocument g\\1C2jG  
         ,KhMzE8_a  
        For i = 1 To .TablesOfContents.Count nl-t<#z[  
            .TablesOfContents(i).Delete 3Da,]w<  
        Next ;;w6b:}-c  
         $dZ>bXUw:  
         WW[`E  
         ,;cel^.b  
        paraTotal = .Paragraphs.Count N{V5 D  
        paraCounter = 1 e8ULf~I  
         ]Z$TzT&@%  
        LastTitle0No = 0 F;Q_*0mIQ  
        LastTitle1No = 0 4&oXy,8LC  
        LastTitle2No = 0 '6.>Wdd  
        LastTitle3No = 0 j*H;a ?Y  
        LastTitle4No = 0 vJj:9KcP>h  
        LastTableNo = 0 XAU_SPAjiw  
        LastFigureNo = 0 h%1~v$W`  
         9 yW~79n  
        Dim Sec As Long ]o[X+;Tj|  
         A|taP$%  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) tf7v5iGe  
        If Sec = 0 Then y@kcXlY  
            Exit Sub 8>VI$   
        End If 6}i&6@Snq?  
         przubMt  
        k = 0 I*:qGr+ WJ  
        Do While (paraCounter < paraTotal) And bContinue KI Plb3oh  
            k = k + 1 PJK]t7vp  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then (Q@+v<   
                Exit Do o[6vxTH  
            End If s la*3~?*  
            paraCounter = paraCounter + 1 Q k;Kn  
            If k Mod 20 = 0 Then /nY).lSH  
                Me.lbCounter.Caption = paraCounter jV4hxuc$  
                DoEvents i{|lsd(+  
            End If 8yE%
X!E  
        Loop o!s%h!%L  
         BA1MGh  
         Iu-'o  
        Do While (paraCounter < paraTotal) And bContinue {8{t]LK<  
             ,a9D~i 9R  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) ;-9zMbte:  
            ShapeHeight = 0 esh$*)1  
            ShapeWidth = 0 B%eDBu ")  
           T@Ss&eGT2  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth z{`6#  
             YHO;IQ5  
            Select Case ParaType ?
@lx  
                Case "【】表格内容" S_|9j{w)  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" LZUA+x(  
                Case "章" L_Y9+ e  
                    LastTitle0No = LastTitle0No + 1  `CAG8D  
                    '新一章开始，复位其下属标题编号 !v-w6WG"  
                    LastTitle1No = 0 jiwpDB&[  
                    LastTitle2No = 0 rb *C-NutE  
                    LastTitle3No = 0 Hb A3*2  
                    LastTitle4No = 0 CQBT::  
                     wuIsO;}/9  
                    k = Val(ttNo) ![a/kj  
                    If k = 0 Then '非数字编号章节 `i t+D  
                        If ttNo <> NoSeries1(LastTitle0No) Then -- i&"  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString SaR}\Up  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText @Xq&t}*8  
                        End If |{7e#ww]  
                    Else pcRF:~TE  
                        If Val(ttNo) <> LastTitle0No Then V~J*49t&2J  
                            rText = "第" & LastTitle0No & ttString ?#BZ `H  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText u>,lf\Fgz  
                        End If YeRcf`  
                         2AXF$YjY
 
                    End If e0v9u
Q%F5  
                      om".j  
                    '章段落设置 ~
+pg^en  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 <TLGfA1bC  
                    .Paragraphs(paraCounter).Style = "QLNU章节"  4 2Aje  
                    .Paragraphs(paraCounter).Range.Select $ DDSN  
                    Selection.EndKey unit:=wdLine 8S.')<-f  
                    tc = Replace(rText, vbCr, "") 6K4`;  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False QmH/yy3.%  
                Case "一级标题" C(F1VS  
                    LastTitle1No = LastTitle1No + 1 i!S
W ?\  
                    '新一级标题开始，复位其下属标题编号 qPXANx<^  
                    LastTitle2No = 0 ;OQ'B= uK  
                    LastTitle3No = 0 FG>;P]mvp  
                    LastTitle4No = 0 I;kf #nvao  
                     C3 gZ6m  
                    If ttNo <> NoSeries1(LastTitle1No) Then pAJ=f}",]E  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString :u>W&D  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText *Nvy+V  
                    End If 7y>Tn`V8G  
                   m\*&2Na  
                     CF3 E]dt  
                    '一级标题段落设置  格式：一、标题内容 6P%<[Z  
                    .Paragraphs(paraCounter).Range.Text = rText ``(}4a  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" '?{0z!!  
                    .Paragraphs(paraCounter).Range.Select < -Hs<T|tW  
                    Selection.EndKey unit:=wdLine UOR _M 5  
                    tc = Replace(rText, vbCr, "") hi;WFyJTu  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False mD D4_E2*  
                Case "二级标题" yfSiByU  
                    LastTitle2No = LastTitle2No + 1 4NpHX+=P  
                    '新二级标题开始，复位其下属标题编号 ERp:EZ'  
                    LastTitle3No = 0 6C:x6'5[  
                    LastTitle4No = 0 %PQl dPL8  
                     gB/;clCdX)  
                    If ttNo <> NoSeries1(LastTitle2No) Then JdaFY+f:  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString ?G4 iOiyt  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText (MgL"8TS  
                    End If $xRo<,OV+  
                     tk`: CT *  
                    '二级标题段落设置 格式：(一)、标题内容 3E< aiGU  
                    .Paragraphs(paraCounter).Range.Text = rText UfK4eZx*`  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" tr}KPdE  
                     O%YjWb  
                    .Paragraphs(paraCounter).Range.Select sTKab :  
                    Selection.EndKey unit:=wdLine _L*f8e8  
                    tc = Replace(rText, vbCr, "") -@%t"8  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False ^H5w41  
                 2UU2Vm_6  
                Case "三级标题" _-@Z Ohw&  
                    LastTitle3No = LastTitle3No + 1 /{fZH,!L  
                    '新三级标题开始，复位其下属标题编号 C+/Eqq^(  
                    LastTitle4No = 0 tv 4s12&  
                     9USrg
Y6_  
                    If Val(ttNo) <> LastTitle3No Then a
);O3N/*I  
                            rText = LastTitle3No & ". " & ttString *oEv,I_  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText "t5 +*  
                         Q?* nuE  
                    End If ]{K5zSK  
                    '三级标题段落设置 格式：1. 标题内容 u{g]gA8s  
                    .Paragraphs(paraCounter).Range.Text = rText wD<vg3e[H  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" <)_:NRjBF&  
                    .Paragraphs(paraCounter).Range.Select %$/=4f.j  
                    Selection.EndKey unit:=wdLine **T:eI+  
                    tc = Replace(rText, vbCr, "") %:" RzHN  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False McT\ R{/  
                Case "四级标题" vn|TiZ  
                    LastTitle4No = LastTitle4No + 1
!(W[!%  
                     'is,^q:@  
                    If Val(ttNo) <> LastTitle4No Then 3xBN10R#  
                            rText = "(" & LastTitle4No & "). " & ttString pGY [f@_x-  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText kk 8R  
                     <8iYL`3  
                    End If m3U+ du  
                    '四级标题段落设置 格式：(1). 标题内容 \# 7 @a74  
                    .Paragraphs(paraCounter).Range.Text = rText o{9?:*?7  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" i'M^ez)u  
                    .Paragraphs(paraCounter).Range.Select e.h~[^zg  
                    Selection.EndKey unit:=wdLine jmR
hAJV  
                    tc = Replace(rText, vbCr, "")  AGh~8[  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False tW:W&|q  
                 @ Av M  
                Case "表格标题" S8*^ss>?^R  
                    LastTableNo = LastTableNo + 1 aN>U. SB  
                     AU0$A403  
                    If ttNo <> CStr(LastTableNo) Then Q8 -3RgAw  
                            rText = "表" & LastTableNo & ". " & ttString F`fGz)Mk  
                            ErrMsg.AddItem "表格编号错误：" & ParaText ^Lsc`<xC  
                   P-[fHCg~  
                    End If (3AYy0J%  
                     a;56k  
                    '表格名称段落设置 格式：表1. 表格名称 jZa25Z00  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题"  &|/
vM.  
                    xe = Replace(rText, vbCr, "") @ L\-ZWq  
                    .Paragraphs(paraCounter).Range.Select w>v5oy8s-  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 ])N|[|$  
                    Selection.Range.Text = xe C}Rs[  
                    Selection.EndKey >ysriPnQ  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False 0FG5_t"",\  
                  btUq  
                Case "表格首行" l!\1,J:}Z  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" BD hLz  
                Case "图片标题" s0gJ f[  
                    LastFigureNo = LastFigureNo + 1 k|^vCZ<(x  
                     w|&,I4["  
                    If ttNo <> CStr(LastFigureNo) Then B:e.gtM5  
                            rText = "图" & LastFigureNo & ". " & ttString ov1Wr #s  
                            ErrMsg.AddItem "表格编号错误：" & ParaText |$M@09,F"  
                   NV :>a  
                    End If ~;}\zKQKE  
                    '图片名称段落设置 格式：图1. 图名称 '!pAnsXfO  
                    .Paragraphs(paraCounter).Range.Text = rText j?=VtVP  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" b+W)2rFO  
                    .Paragraphs(paraCounter).Range.Select Er`TryN|}  
                    Selection.EndKey unit:=wdLine 5_v5  
                    xe = Replace(rText, vbCr, "") *]Fg
fttES  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False XQK^$Iq]V  
                Case "正文"
n49;Z
,[~  
                     '正文名称段落设置 $X`bm*  
                    .Paragraphs(paraCounter).Style = "QLNU正文" <"N:rn{Qq  
               Case "文献条目" _i-\mR_~  
                    With .Paragraphs(paraCounter) e%pu.q\gK  
                        '.Range.Select 1W*V2`0>  
                        'Selection.ClearFormatting $RpFxi  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” vZ:G8K)o(  
                        .Style = "QLNU参考文献" MO[ c0n%  
                    End With o(:{InpV%A  
               Case "图表注解" =nLO?qoe  
                    With .Paragraphs(paraCounter) AeN 3<|RN  
                        .Range.Font.NameFarEast = "楷体" mRwXN*Izw  
                        .Range.Font.NameAscii = "Times New Roman" .H ,pO#{;  
                        .Range.Font.Size = 9 '小5号字 *:?QB8YJ  
                         ] t*33  
                        .Alignment = wdAlignParagraphCenter E yd$f cRK  
                        .LeftIndent = 0 y^9bfMA  
                        .RightIndent = 0 \$'R+k-57;  
                        .FirstLineIndent = 0 +IvNyj|  
                        .LineSpacing = 12 >g=^,G}y  
                        .LineSpacingRule = wdLineSpaceExactly Pl_^nFm0  
                        .LineUnitAfter = 0  uH$oGY  
                        .LineUnitBefore = 0 1d`cTaQ-  
                        .OutlineLevel = wdOutlineLevelBodyText y*w"J3|29  
                        .PageBreakBefore = False kl| g  
                        .RightIndent = 0 (viWY  
                        .WordWrap = True 5xhM0(  
                        .LineUnitAfter = 0.5 {!lNL[x  
                         KCE=|*6::|  
                    End With FU[*8^Z  
                Case Else P2O\!'aEh  
                    '不作处理 !zU/Hq{wcK  
            End Select xne]Q(B>  
             HHZ`%  
            '含有inlineshape的段落处理 _jW>dU^B  
            If ShapeHeight > 30 Then b~1iPaIh  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 KrS  
            End If yGRR8F5>(  
             I[@ts!YD  
            If (ShapeWidth + ShapeHeight) > 150 Then  "";=DH  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" :*=Ns[Y  
            End If %y eu"  
             wqcDAO(  
            '段落计数器递 Hyf"iYv+  
            paraCounter = paraCounter + 1 'CgV0&@  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter -jFP7tEv  
            Me.txtStatus.Text = ParaText kl=xu3j  
            DoEvents d60c$?"]a(  
        Loop Jl\'V
  
    End With nQ|GqU\oA  
     SBC~QD>L+  
    msg = "" i)=m7i  
     l@xWQj9  
    For i = 0 To Me.ErrMsg.ListCount - 1 K6-6
{vt  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) Pv~:gP  
    Next +.=1^+a  
     z23 #G>I&  
     \]t]#D>0  
     &i)helXs]  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg >8%M*-=p  
    Me.cmdCheck.Enabled = True (9E( Q*J5x  
    Me.txtStatus.Visible = True 2H6:n p|O  
    Me.lbParaType.Visible = False X2LV&oi  
     <&` :&7  
    bContinue = False 7vw;Egd@@-  
End Sub UnP|]]o:I  
E!uJ6\  
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) Cc2MYm8  
    Dim pTEXT As String / \d(c/,4  
     kj-=xhJ{=  
    pTEXT = ChKRange.Text 3+e4e  
     *u}'}jC1X  
    ParaType = "其它" ,'=hjIel  
    TitleString = pTEXT sp^Wo7&g  
    TitleNo = "N/A" MBlBMUJk  
     I,]J=xi  
    shpCounter = ChKRange.InlineShapes.Count k; ;viT  
    If shpCounter <> 0 Then <Kg2$lu(_`  
        MaxShpHeight = 0: TotalShpWidth = 0 B4IBuS  
        For i = 1 To shpCounter '(tj[&aL  
            k = ChKRange.InlineShapes(i).Height hzv3F9.x  
            l = ChKRange.InlineShapes(i).Width W-1sU g[AN  
            If k > MaxShpHeight Then X6'H`E[  
                MaxShpHeight = k "$r1$mBi  
            End If 55^tfu  
            TotalShpWidth = TotalShpWidth + l alVdQfu  
        Next w~]T<^fW~  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then GtC7^Z&E  
            Exit Sub S.1(3j*  
        End If "sD1T3!\)Q  
    End If 6s5yyy=L%~  
     P :qz2Hw  
    '空行 wE?CvL  
    If Len(pTEXT) <= 2 Then X PA0m  
        Exit Sub  >9{zQf!  
    End If B@"J]S  
     #,TELzUVE  
         02(h={  
    '是否为表格中的文字 F.68
iN}  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then /p,{?~0mj  
        ParaType = "表格内容" G?R_aPP  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) mf$Sa58  
        If k = 1 Then 5\xr?`VZ  
            ParaType = "表格首行" 7|Xe&o<n  
        End If P8<hvMF  
        Exit Sub C!5I?z&  
    End If %Uf'+!4l`  
     f9a$$nb3`  
    '例外情况：脚注 [z2eCH  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then Zb"jB$58  
        ParaType = "脚注"
|U EC  
        Exit Sub VNO'="U  
    End If a_MFQf&KV  
     <1K7@Tu  
    '例外情况：尾注 ';Nu&D#Ph  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then <*_o0;h|  
        ParaType = "尾注" IytDvz*|  
        Exit Sub
1 =^  
    End If TU%bOAKF\  
     fgmSgG"b  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then (vnoP< 0  
        ParaType = "页眉页脚" NZ+7p{&AN  
        Exit Sub
#~S>K3(  
    End If JYQ.EAsr!  
     =HS4I.@c_5  
     >nK%^ T  
    With regEX \ADLMj`F|  
        .Global = True Y[@0qc3UO  
         T{tn.sT  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" O>%$q8x@i  
        If regEX.Test(pTEXT) Then e?P%wqB  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") | g!`\@O  
            TitleString = regEX.Replace(pTEXT, "$3") x)_r@l`$ix  
            TitleNo = regEX.Replace(pTEXT, "$1") C B/r]+4  
            ParaType = "章" kutJd{68  
            Exit Sub ioWo ]  
        End If Y.NE^Vn0  
         ^&NN]?  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" dZD
K7UL  
        If regEX.Test(pTEXT) Then F\-Si!~oOz  
            ParaType = "一级标题" t3a#%'Dv  
            regEX.Execute (pTEXT) ^&MK42,\  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") x9&p!&*&IT  
            TitleString = regEX.Replace(pTEXT, "$3") *7Xzht&f  
            TitleNo = regEX.Replace(pTEXT, "$1") }vY.EEy!  
            Exit Sub 6}#"qqnx  
        End If gHZqA_*T8U  
         o0l7
4  
        '全角或半角括号中的数字 uFo/s &6K  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" AuXs B  
        If regEX.Test(pTEXT) Then C `6S}f,  
            ParaType = "二级标题" ('JKN"3  
            regEX.Execute (pTEXT) s&VOwU  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") H{%H^t>  
            TitleString = regEX.Replace(pTEXT, "$5") o,*=$/or  
            TitleNo = regEX.Replace(pTEXT, "$2") Zw#<E =\  
            Exit Sub *{|$FQnR>(  
        End If p?kvW42/  
         :v)6gz(p  
        '阿拉伯数字  1. 2. ceG&,a$\  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" [S0mY[ "  
        If regEX.Test(pTEXT) Then Bzw19S6y
 
            ParaType = "三级标题" 'g hys1H  
            regEX.Execute (pTEXT) ?A&% Cwj  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 M*(H)i;s:w  
            TitleString = regEX.Replace(pTEXT, "$3") SO_>c+Dw  
            TitleNo = regEX.Replace(pTEXT, "$1") XXm'6xD-  
            Exit Sub 1O0X-C,wo$  
        End If 5z Kqb  
         #A )Ab%r8"  
        '全角或半角括号中的阿拉伯数字 '%&z.{  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$"
QZ~0o7  
        If regEX.Test(pTEXT) Then |z*>ixK   
            ParaType = "四级标题" ~j"3}wXc5  
            regEX.Execute (pTEXT) mf9hFy*<4  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") 6@YH#{~Zpv  
            TitleString = regEX.Replace(pTEXT, "$5") Wq QU@sA  
            TitleNo = regEX.Replace(pTEXT, "$2") *VDVC0R  
            Exit Sub Ha)np  
        End If X3yS5whd(  
         i
D714+N(  
        '表格名称 mX;H((  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" G?ig1PB"#  
        If regEX.Test(pTEXT) Then (;ADW+.`J  
            ParaType = "表格标题" p/&HUQQk  
            regEX.Execute (pTEXT) n}q$f|4!  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) 96}eR,  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) zN")elBi  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) o0mJ y'  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 >pdnCv_c  
            Exit Sub ^1 ;BiQ  
        End If
b i~=x  
         ZLrHZhP-+  
        '图片名称 ^V.'^=l  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" 95LyYg  
        If regEX.Test(pTEXT) Then T,OS0;7O  
            ParaType = "图片标题" vxVOcO9<  
            regEX.Execute (pTEXT) ?4[NNL  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") RG1\=J$:E  
            TitleString = regEX.Replace(pTEXT, "$3") oj@g2H5P  
            TitleNo = regEX.Replace(pTEXT, "$1") o(fyd)t  
            Exit Sub yb?|Eww_o  
        End If
F>-}*o  
         =$&&[&  
        '参考文献 $8g42 LR'  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 *|KVN&#  
        If regEX.Test(pTEXT) Then [0!{_E)<  
            ParaType = "文献条目" V;;#/$oU:4  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") P)hi||[  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") .&|L|q}  
            Exit Sub w & P&7  
        End If (O0byu}  
         7&|6KN}c  
        prfx = Left(pTEXT, 2) t^U^Tr  
        If prfx = "注：" Or prfx = "注:" Then yWY|]Pp  
            ParaType = "图表注解" 4K7{f+
T  
            Exit Sub R6P\T\~E  
        End If EEwWucQ  
         2Wl{Br
.  
         c\K<sM{  
        ParaType = "正文" 7n&yv
9"  
         328L)BmW  
    End With 30d#Lq  
End Sub &d,Wy"WPi  
}#/lN  
Sub ConvertListToOrdinary() iRt*A6`m+  
    Dim st As Paragraph JDlBVZ!  
    With ActiveDocument z_n\5.  
        For i = .Paragraphs.Count To 1 Step -1 Y0RgJn  
            Set st = .Paragraphs(i) 3{RL \gh$"  
            lst = st.Range.ListFormat.ListString fGarUV  
            If lst <> "" Then EO:avH.*0  
                st.Range.ListFormat.RemoveNumbers T8Na]V5  
                st.Range.InsertBefore lst & " " th 2<o 5  
            End If JC2*$qu J  
        Next &
 F6C  
    End With +zp0" ,2B  
    Set st = Nothing gDC2 >nV  
End Sub 0OW
L  
;;Tq$#vd  
Private Sub UserForm_Activate() GTA f   
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" vyU!+mlc  
    Me.lbTotal.Font.Bold = True g~)3WfC$[  
    Me.txtStatus.Visible = False Yt{&rPv,  
    Me.cmdCheck.Enabled = True DFy1 bg  
1EsqQz*$u  
End Sub -Qb0:
]sV#  
n&d/?aJ7a\  
7 :U8 f:  
Sub CheckSuperScript() 5@f5S0
Y  
    Selection.Find.ClearFormatting zP
E$  
    Selection.Find.Replacement.ClearFormatting l"\uf(0K  
    With Selection.Find T6HU*(  
        .Text = "[【\[［〖](*)[】\]〗］]" l
1r _b68  
        .Replacement.Text = "[\1]" m&/=&S  
        .Replacement.Font.Superscript = True <5IQc[3]aP  
        '.Replacement.Font.Color = wdColorBlue bV6V02RF  
        .Forward = True JA6";fl;  
        .Wrap = wdFindContinue _ECB^s_  
        .FORMAT = True  }_%P6  
        .MatchCase = False >rf5)Y~f  
        .MatchWholeWord = False wW5Yw i  
        .MatchByte = False
h<NRE0-  
        .MatchAllWordForms = False Pm?B 9S  
        .MatchSoundsLike = False |';7v)CIG  
        .MatchWildcards = True #PFO]j!_b  
    End With eY}V9*.v  
    Selection.Find.Execute Replace:=wdReplaceAll k|B2@{  
End Sub MLS;SCl  
9g]M4*?C9P  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) "b%F
mM  
    bContinue = False vYnftJK&  
    Set regEX = Nothing !y*oF{RZ  
End Sub WeVi]n  
 S^j,f'2  
Sub CeateOrModifyStyle() J?D\$u:  
' 4ZI_
pf  
' zP nC=h|g  
Dim stl As Style nk/vGa4
  
     S(t{&+Wc  
    Options.Pagination = False %5Rq1$D  
     ?,XC=}  
    On Error Resume Next hY=I5[*  
    For Each stl In ActiveDocument.Styles 9XOyj5  
        stl.Delete XU9'Rfp  
    Next ri+U0[e3  
    On Error GoTo 0 %VJW@S>j/  
     w2zp#;d  
    Set stl = Nothing Ue7 6py9  
     . \F7tc8?  
    DoEvents %\I.DEYH  
    On Error Resume Next 88o:NJ}_  
     [cpNiw4e  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph $E.XOpl&I  
     /gw Cwyo  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph +)gB9DoK  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph  AP w6  
     T4GW1NP  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph q-IWRb0j%a  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph m =k%,J_  
     _B$"e[:yX  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph ;J=:IEk  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph =x H~ww (D  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph l &Z(K,6  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph U ~1 SF  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph *Hu
np Y  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph <[hz?:G"$  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph Pfan7fq+  
     GYoseqZM  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph o;QZe&  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph
[hnK/4!  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph Sk=N [hwU  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph Ef,Cd[]b  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph 'C~9]Y].  
     _]o5R7[MQ  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph mHs:t{ q  
    On Error GoTo 0 /s`;9)G]9  
    DoEvents x+:zq<0|  
     @]?R2bI  
    'BaseStyle g^j7@dum  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False @a(oB.i  
    With ActiveDocument.Styles("BaseStyle").Font H.~bD[gA  
        .NameFarEast = "宋体" j@v-|  
        .NameAscii = "Times New Roman" RGp'b  
        .NameOther = "宋体" D9o*8h2$  
        .Size = 10.5 W4vBf^eC  
        .Bold = wdUndefined p(?3 V  
        .Italic = wdUndefined m&Sp1=*Ejy  
        .Subscript = wdUndefined tIGs>, a=  
        .Subscript = wdUndefined [`n
Y2[A$  
         JIV
8q HC  
        .Underline = wdUnderlineNone woau'7}XOu  
        .UnderlineColor = wdColorAutomatic .Dx2 ;lj  
        .StrikeThrough = False } yq  
        .DoubleStrikeThrough = False h8.FX-0& =  
         =l,#iYJP8  
        .Outline = False :e2X/tl#  
        .Emboss = False 968^"T#  
        .Shadow = False {D,RU8&  
        .Hidden = False 9h&yuS'Yj  
        .SmallCaps = False $?f]ZyZr.  
        .AllCaps = False N-QCfDao  
        .Color = wdColorAutomatic X9~p4ys9{  
        .Engrave = False e/94y6*
>  
        .Scaling = 100 8 u:2,l  
        .Kerning = 1 P(;Mb{  
        .Animation = wdAnimationNone >EIrw$V$  
        .DisableCharacterSpaceGrid = False `bqz
g  
        .EmphasisMark = wdEmphasisMarkNone hdg<bZk:  
    End With CZ tiWZ  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat wPH+n-&e  
        .LeftIndent = 0 .bfST.OA  
        .RightIndent = 0 5i9Ub|!P  
        .SpaceBefore = 0 &7Kb]Ti  
        .SpaceBeforeAuto = False 4 z0L ke  
        .SpaceAfter = 0 ]^'ZiyJX  
        .SpaceAfterAuto = False 6x4_b  
         0N5bPb  
        .LineSpacingRule = wdLineSpaceSingle kzi|$Gs<  
        .Alignment = wdAlignParagraphJustify m6MaX}&zv  
         )!,@m>0v{  
        .WidowControl = False -u~eZ?(!Ye  
        .KeepWithNext = False or.\)(m#(  
        .KeepTogether = False _FsB6 G]mc  
        .PageBreakBefore = False z2~87fv+  
        .NoLineNumber = False 5^2TfG9  
         j^I!6j=ZX  
        .FirstLineIndent = CentimetersToPoints(0) s=U\_koyH  
        .OutlineLevel = wdOutlineLevelBodyText qZbHMTnT6  
        .CharacterUnitLeftIndent = 0 z!Hx @){|  
        .CharacterUnitRightIndent = 0 <Uwwux<v  
        .CharacterUnitFirstLineIndent = 0 *"T+G*~  
        .LineUnitBefore = 0 c F=P!2@  
        .LineUnitAfter = 0 ImHU:iR[J-  
        .AutoAdjustRightIndent = True !*bdG(pK  
        .DisableLineHeightGrid = True KN, 4@4  
         ^ItAW$T]F  
        .FarEastLineBreakControl = True OjATSmZ@@  
        .WordWrap = True 4J8Dh;a`  
        .Hyphenation = False +WLD  
         Efr3x{ j  
        .HangingPunctuation = True tJm{I)G  
        .HalfWidthPunctuationOnTopOfLine = True Tf[dZ(+\  
        .AddSpaceBetweenFarEastAndAlpha = True "TFwHe3C4  
        .AddSpaceBetweenFarEastAndDigit = True b1)\Zi  
        .BaseLineAlignment = wdBaselineAlignBaseline tN!Bvj:C[M  
    End With x4 hO$3o  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False Z= ik{/  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll #90c$ dc  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese ,`)OEI|1d  
    ActiveDocument.Styles("BaseStyle").NoProofing = False O6]u!NqG  
     VIg\]%qse  
    '一级标题题样式 ^ZVOql&  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") gh61H:tkR  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" ^A#x<J+  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False .vaJAvg  
    With ActiveDocument.Styles("QLNU一级标题").Font 8A4TAT4,  
        .NameFarEast = "黑体" GNZ#q)qT  
        .NameAscii = "Arial Black" NWnWk  
        .NameOther = "黑体" [gn[nP9  
        .Name = "黑体" fTgbF{?xh  
        .Size = 16              '三号 G?ZC9w]rA  
        .Bold = True 3+zzi  
        .Italic = wdUndefined zbg+6qs})  
        .Subscript = wdUndefined 5rN7':(H!%  
        .Superscript = wdUndefined y@ .b 4  
    End With mu>] 9ZW  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat r?$&Z^  
         r=\P!`{5  
        .LeftIndent = CentimetersToPoints(0) ]bu9-X&T&  
        .RightIndent = CentimetersToPoints(0) xB,/dMdTj  
        .FirstLineIndent = CentimetersToPoints(0) JWWInuH  
         z Lw(@&  
        .LineSpacingRule = wdLineSpaceSingle -XW8 LaQB  
        .Alignment = wdAlignParagraphCenter Bac|;+L~L  
         u\3ZI
b  
        .WidowControl = True 6sy,A~e  
        .KeepWithNext = True UM\}aq=,  
        .KeepTogether = True _yJ|`g]U3  
        .OutlineLevel = wdOutlineLevelBodyText hgwn> p:S#  
         GhiHA9.  
        .LineUnitBefore = 0.5 %omu
 
        .LineUnitAfter = 0.5 K0 QH?F  
    End With g]4yAV<2  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False AysL-sqR  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll r\RFDj  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese dk:xnX%  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True U!NI_uk  
    DoEvents Q@Dkl F  
     @ExLh9  
    '二级 |Eu*P  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ?FDJqJM  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" b"3uD`  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False W
L/5 oj  
    With ActiveDocument.Styles("QLNU二级标题").Font tWX7dspx/  
        .NameFarEast = "黑体" oX{@ 'B  
        .NameAscii = "Arial Narrow" i'iO H|s  
        .NameOther = "黑体" >uW^.e "F  
        .Name = "黑体" B!iFmkCy  
        .Size = 15        '小三号 4+I 3+a"  
        .Bold = False b=G4MZQ  
        .Outline = False kyu2)L2u  
        .Italic = wdUndefined o gp{rY  
        .Subscript = wdUndefined /N%zwj/*  
        .Superscript = wdUndefined B,MQ.|s[  
    End With pJ6Jx(  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat v^\JWPR/  
        .LeftIndent = CentimetersToPoints(0)  +Lhe,  
        .RightIndent = CentimetersToPoints(0) )r#,ML  
        .FirstLineIndent = CentimetersToPoints(0) f-&ATTx`J  
         6kR -rA  
        .LineSpacingRule = wdLineSpaceSingle J@gm@ jLc  
        .Alignment = wdAlignParagraphLeft 4znH$M>bU  
         1q`k}KMy  
        .WidowControl = True $E@ouX?  
        .KeepWithNext = True 8= pv/o  
        .KeepTogether = True j@CKO cn2  
        .PageBreakBefore = False yZ|+VXO  
        .OutlineLevel = wdOutlineLevelBodyText $r):d  
         ,3k@L\$.x  
        .LineUnitBefore = 0.5 OQ,}/  
        .LineUnitAfter = 0.5 bw020@O*  
         4uPH  
    End With ZIe+  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False Nuo^+z E  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll Q!`)e@r  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese }1,'rmT
 
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True ;/R kMS  
    DoEvents 6N?#b66  
     !YY6o V  
    '三级标题样式 hd8B0eD'  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") %rw}u"3T  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" cB<O.
@  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False -EVs@:3]j  
    With ActiveDocument.Styles("QLNU三级标题").Font  d~sJ=)  
        .NameFarEast = "宋体" |+u+)C  
        .NameAscii = "Times New Roman" X 'xUwT|_+  
        .NameOther = "黑体" T:6K ?$y?  
        .Name = "黑体" ov bEmb  
        .Size = 14               '四号 /Bh>  
        .Bold = False 9p4%8WhJ  
        .Outline = False 3jXR"@Z-  
        .Italic = wdUndefined OelU D/[$  
        .Subscript = wdUndefined ]d^k4 d  
        .Superscript = wdUndefined R qnWtE  
    End With !*5_pGe  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat G LoiH#R  
        .LeftIndent = CentimetersToPoints(0) W
w^7^q&  
        .RightIndent = CentimetersToPoints(0) S7Znz@  
        .FirstLineIndent = CentimetersToPoints(0) 2+o! o  
         brj[c>
ID  
        .LineSpacingRule = wdLineSpaceSingle l\_x(BH  
        .Alignment = wdAlignParagraphLeft {N"*olx  
         8<Xq=*J+  
        .WidowControl = True :q(D(mK  
        .KeepWithNext = True z>7=k`x`:  
        .KeepTogether = True 8-A:k E  
        .PageBreakBefore = False 'OG{*TDPu  
        .OutlineLevel = wdOutlineLevelBodyText %uj[`  
         X8i[fk1.R  
        .CharacterUnitLeftIndent = 0 >T`zh^+5W  
        .CharacterUnitRightIndent = 0 hRa\1Jt>a  
        .CharacterUnitFirstLineIndent = 2 PP],HB+*[  
         }\>+H  
        .LineUnitBefore = 0.5 :Jm!=U%'Z  
        .LineUnitAfter = 0 pL8H8kn  
    End With x\6];SXX  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False )U]:
9)  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll "cNg :  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese 2G ZF/9}  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True [A|(A$jl  
    DoEvents
k~{Fnkt  
     xUIvLH=  
    '四级标题样式 O/(3 87=U  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") We\K
DU\n  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" LNaeB(z"  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False 0u>yT?jP  
    With ActiveDocument.Styles("QLNU四级标题").Font dV)Y,Yx0${  
        .NameFarEast = "宋体" ^u3*hl}YKy  
        .NameAscii = "Times New Roman" g ji*Wq  
        .NameOther = "宋体" J0Jr BXCh  
        .Name = "宋体" q?(A!1(u  
        .Size = 12               '小四号 b$dBV}0 L  
        .Bold = True UmYD]  
        .Outline = False "oHp.$+K  
        .Italic = wdUndefined xC'mPcU8  
        .Subscript = wdUndefined /9P^{OZ;y  
        .Superscript = wdUndefined k]t,q$Vd  
    End With )sRN
!~  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat ]9#CVv[rq  
         ^)Smv\Md  
        .LeftIndent = CentimetersToPoints(0) l
},dQ4R  
        .RightIndent = CentimetersToPoints(0) o T:j:n  
        .FirstLineIndent = CentimetersToPoints(0) hH#lTye  
         CcBQo8!G  
        .LineSpacingRule = wdLineSpaceSingle eU`
;L[  
        .Alignment = wdAlignParagraphLeft axOi5  
         )4@M`8  
        .WidowControl = True ";756'>  
        .KeepWithNext = True &ycjSBK  
        .KeepTogether = True Y
$>+U  
        .PageBreakBefore = False ,tau9>!  
        .OutlineLevel = wdOutlineLevelBodyText E1#H{
)G  
         *3!(*F@M,  
        .CharacterUnitLeftIndent = 0 33*^($bE&  
        .CharacterUnitRightIndent = 0 N`f!D>b:dn  
        .CharacterUnitFirstLineIndent = 2 (Z5q&#f  
         KuIkul9^%  
        .LineUnitBefore = 0 dJloH)uJZ>  
        .LineUnitAfter = 0 h|K\z{ A  
         GI}4,!^N  
    End With  c^rC8E  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False +I*k0"gj6  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll K*TnUQ  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese ,|6Y\
L  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True _cR6ik zW(  
    DoEvents "pOqd8>]  
     #,t2*tM  
    '正文校式 3T"2S[gT  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") zMbfV%b  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" J0&zb'1  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False 92s4u3L;  
    With ActiveDocument.Styles("QLNU正文").Font 3(MoXA*  
         n'q aR<bY  
        .NameFarEast = "宋体" @8QFP 3\1  
        .NameAscii = "Times New Roman" $K`_ K#A  
        .NameOther = "宋体" j[_t6Z  
        .Name = "宋体" "tfn?n0  
         d
UI3erO  
        .Size = 12               '小四号 _MGNKA6JI  
         [|y`y%  
        .Bold = wdUndefined iKohuZr  
        .Italic = wdUndefined  o1 jk=  
        .Subscript = wdUndefined uPI v/&HA  
        .Superscript = wdUndefined b*cW<vX}~  
         <_=JMA5  
        .Outline = False lB=(8.  
        .Emboss = False a:=q8Qy  
        .Shadow = False C\y[&egww  
        .Hidden = False XAw2X;F%  
         ThjUiuWe  
        .DisableCharacterSpaceGrid = True kZJt~}  
    End With ,m2A p\l  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat zB;'
_[8M  
         o^8*aH)I>Y  
        .LeftIndent = CentimetersToPoints(0) EV:_Kx8fP  
        .RightIndent = CentimetersToPoints(0) Jw2B&)k/  
        .FirstLineIndent = CentimetersToPoints(0) Tw2Xe S  
         k&WUv0  
        .LineSpacingRule = wdLineSpaceExactly O'"YJ,  
        .LineSpacing = 20 5P-K *C&  
        .Alignment = wdAlignParagraphLeft ~o:rM/!Ba  
         S4;wa6  
        .WidowControl = False bjuYA/w<  
        .KeepWithNext = False ,?C|.5  
        .KeepTogether = False >?^~s(t  
        .PageBreakBefore = False  -PcS(  
        .Hyphenation = False 7
ESN!  
         z`c%?_EK  
        .OutlineLevel = wdOutlineLevelBodyText n>u.3w L  
         k}- "0>  
       G%xb0%oi]%  
        .CharacterUnitLeftIndent = 0 W/b"a?wE{  
        .CharacterUnitRightIndent = 0 \El|U#$u'  
        .CharacterUnitFirstLineIndent = 2 g7.7E6%H  
         d&/^34gn  
        .LineUnitBefore = 0 N<p5p0  
        .LineUnitAfter = 0 3X,]=f@_  
        .SpaceBefore = 0 X7t5b7  
        .SpaceAfter = 0 eL<m.06cfY  
         xylpiSJ  
        .DisableLineHeightGrid = True ~D<7W4c  
    End With OD{5m(JwL  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False _`TepX
 R  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll 3yeK@>C  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese
`)0Rv|?  
    ActiveDocument.Styles("QLNU正文").NoProofing = True QIR4<]/  
    DoEvents !y.ei1diw  
     t8L<x  
    '图片段落样式 _Ngx
$  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") Mr$# e  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" += X).X0K  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False <ED8"~_  
    With ActiveDocument.Styles("QLNU图片段落").Font OG0r4^6Ly  
        .Size = 12               '小四号 jVLY!7Z4  
        .Italic = wdUndefined 29&sydu  
        .Subscript = wdUndefined `Af{H/qiI  
        .Superscript = wdUndefined K#_~ !C4L  
    End With qXXYF>Z-  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat b{Z^)u2X  
         83mlZ1jQz  
        .LeftIndent = CentimetersToPoints(0) xR\D(FLVS  
        .RightIndent = CentimetersToPoints(0) Y'tqm&}  
        .FirstLineIndent = CentimetersToPoints(0) kA?X^nj@  
         OAmES;Ck$(  
        .LineSpacingRule = wdLineSpaceSingle Q&oC]u(="&  
        .Alignment = wdAlignParagraphCenter yTzY?  
        .KeepWithNext = True l0qdk#v  
        .OutlineLevel = wdOutlineLevelBodyText %M|Z}2qv  
         6Hc H'nmeN  
        .CharacterUnitLeftIndent = 0 kqj;l\N  
        .CharacterUnitRightIndent = 0 KC&H*  
        .CharacterUnitFirstLineIndent = 0 l[tY,Y:4qO  
         k)?,xY\AV  
        .LineUnitBefore = 0 59&T
/  
        .LineUnitAfter = 0 5LDQ^n  
    End With .}IK}A/-  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False 9zXu6<|qrL  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll A~qW.  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese F% F c+?  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True &{X{36  
    DoEvents ~5lKL5w  
     m -:8jA?  
     Yh}zt H  
    '第X章 +P>Gy`D
9  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") vF5wA-3&t  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" %1Vu=zCAW  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False F?*Dr  
    With ActiveDocument.Styles("QLNU章节标题").Font yd7lcb [  
        .NameFarEast = "黑体" SQ1M4:hP  
        .NameAscii = "Arial Black" aK8bKlZe  
        .NameOther = "Arial Black" Y}Am
X  
        .Name = "黑体" jlYD~)
  
        .Size = 16 Op
WeW  
        .Bold = True *ge].E  
        .UnderlineColor = wdColorAutomatic X=rc3~}f  
        .Outline = False #pS]k<o%1  
        .Italic = wdUndefined *>H
M$.?Q  
        .Subscript = wdUndefined TYs+XJ'Xj  
        .Superscript = wdUndefined CBiU#h q  
        .Scaling = 100 Q%M'[L?[  
        .DisableCharacterSpaceGrid = True BNAguAxWo  
    End With BP)q6?Mz  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat 6Cz7A  
        .LineSpacingRule = wdLineSpaceSingle k98< s  
        .Alignment = wdAlignParagraphCenter BSx j~pun  
        .WidowControl = True FY1},sq  
        .KeepWithNext = True KzEuPJ?  
        .KeepTogether = True w8eG;  
        .PageBreakBefore = True +)/Rql(lY  
        .OutlineLevel = wdOutlineLevelBodyText l.__10{  
         ovhC42i  
        .LeftIndent = CentimetersToPoints(0) !!?+M @  
        .RightIndent = CentimetersToPoints(0) qZT 4+&y  
        .FirstLineIndent = CentimetersToPoints(0) .`oJcJ  
         -ET*M
<  
        .CharacterUnitLeftIndent = 0 'Qm` A=  
        .CharacterUnitRightIndent = 0 jF%)Bhn(  
        .CharacterUnitFirstLineIndent = 0 u=p ;A1oy  
         CL)1Q  
        .LineUnitBefore = 1 /e-ka{WS  
        .LineUnitAfter = 0.5 \_m\U.*  
         dzjBUD  
        .AutoAdjustRightIndent = False l 'AK  
        .DisableLineHeightGrid = True *u|lmALs  
        .FarEastLineBreakControl = True MgJ%26TZ  
        .WordWrap = True r;&]?9
)W0  
    End With /'8*aUa  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False v#Cz&j  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll c!'A)JD@  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese Q3<bC6$r  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True c8 bca`  
    DoEvents p)?qJ2c|  
     XM$5S+e  
    '表格标题 ?z\q Mu  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") mF6@Y[/B  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" sDLVYD  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False SREDM  
    With ActiveDocument.Styles("QLNU表格标题").Font !ol hZ  
        .NameFarEast = "楷体" YtwmlIar`  
        .NameAscii = "Arial" `jD8(}_  
        .Name = "楷体" U^E  
        .Size = 10.5 /0B07B  
        .Bold = True dWzDSlP&  
        .Underline = wdUnderlineNone uE,i-g0$Id  
        .Italic = wdUndefined 4kW30Ma  
        .Subscript = wdUndefined {AU` }*5  
        .Superscript = wdUndefined N0y;PVAGu  
        .Color = wdColorAutomatic 8ktjDs$=.:  
    End With ]jVIpGM  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat ^4xlZouCb  
         SR&(HH$  
        .LineSpacingRule = wdLineSpaceSingle uR06&SaA>  
        .Alignment = wdAlignParagraphCenter kPx]u\  
        .KeepWithNext = True Zu2m%=J`  
        .KeepTogether = True }<( "0jC  
        .OutlineLevel = wdOutlineLevelBodyText M iP[UCh  
         l _kg3e4  
        .LeftIndent = CentimetersToPoints(0) b >hBct}  
        .RightIndent = CentimetersToPoints(0) "_ PH"W  
        .FirstLineIndent = CentimetersToPoints(0) LY@1@O2@  
         <Um1h:^  
        .CharacterUnitLeftIndent = 0 C:'WX*W  
        .CharacterUnitRightIndent = 0 &A ;3; R  
        .CharacterUnitFirstLineIndent = 0 2ru*#Z#(  
         #}[Sj-Vp  
        .LineUnitBefore = 1 `^XRrVX<  
        .LineUnitAfter = 0 B)j`}7O06  
         ;,F-6RNj  
    End With [?|l X$<  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False B$}wF<`k7  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll tJ?qcT?  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese VTy,43<  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True EmtDrx4!(f  
    DoEvents 1S*8v7  
"?2  
    '表格首行 dCf'\@<<  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") ?/`C~e<J  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False D\45l  
    With ActiveDocument.Styles("QLNU表格首行").Font p`E|SNt/W  
        .NameFarEast = "楷体" <;$Sa's,LE  
        .NameAscii = "Times New Roman" J)7,&Gc6  
        .Name = "楷体" &y#\1K  
        .Size = 9 _1w.B8Lyz@  
        .Bold = True _Ewy^;S%L  
        .Underline = wdUnderlineNone [OFTP#}c  
        .Italic = wdUndefined ! #,-  
        .Subscript = wdUndefined Xm"w,J&  
        .Superscript = wdUndefined W,9k0t  
    End With 'Yaf\Hp  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat X7XCZSh#A  
        .LineSpacingRule = wdLineSpaceSingle LW83
Y/7  
        .Alignment = wdAlignParagraphCenter  .G5NGB  
         m6~ sKJV  
        .LeftIndent = CentimetersToPoints(0) *([0"  
        .RightIndent = CentimetersToPoints(0) >\6jb&,%O  
        .FirstLineIndent = CentimetersToPoints(0) tMD^$E"C  
         yiv RpSL  
         6i9Q,4~  
        .CharacterUnitLeftIndent = -0.5 -dc5D@4`#s  
        .CharacterUnitRightIndent = -0.5 p"hm.=
,  
        .CharacterUnitFirstLineIndent = -0.5 K^z5x#Yj  
         2 Ft0C2  
        .LineUnitBefore = 0 .XV]<)<K$  
        .LineUnitAfter = 0 bl:a&<F  
        .SpaceBefore = 0 ;X* K*q  
        .SpaceAfter = 0 |g7nh[  
         9}%~w(P  
    End With /I`cS
%U  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False U(S@1i(  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll r
)9i1rI+  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese "xvV'&lQ  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True K,lK\^y  
    DoEvents CI~hmL0  
 m+7 2C]9  
    '表格内容 dyQ<UT  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") #K<=xP  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False |!4BWt  
    With ActiveDocument.Styles("QLNU表格内容").Font h8iaJqqvJ  
        .NameFarEast = "楷体" qHC*$v#.V?  
        .NameAscii = "Times New Roman" ohQz%?r  
        .Name = "楷体" CO:m]oj  
        .Size = 9 0,vj,ic*WX  
        .Bold = False Y5h)l<P>B  
        .Underline = wdUnderlineNone mR"2  
        .Italic = wdUndefined C
1#o<pv  
        .Subscript = wdUndefined %T&&x2p^=?  
        .Superscript = wdUndefined 2HvTM8  
    End With ;3.T* ?|o  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat IEIxjek  
        .LineSpacingRule = wdLineSpaceSingle V',m $   
        .Alignment = wdAlignParagraphCenter +,vJ7  
         W G3mQ\k  
        .LeftIndent = CentimetersToPoints(0) jt'Y(u]2  
        .RightIndent = CentimetersToPoints(0) YobC'c\~9  
        .FirstLineIndent = CentimetersToPoints(0) 3&a*]
  
         0]:*v?  
        .CharacterUnitLeftIndent = -0.5 ,%)WT>  
        .CharacterUnitRightIndent = -0.5 C)&gL=O*$  
        .CharacterUnitFirstLineIndent = -0.5 9:CVN@E  
        .LineUnitBefore = 0 d!}jdt5
%  
        .LineUnitAfter = 0 tKs4}vW  
        .SpaceBefore = 0 o5*74Mv  
        .SpaceAfter = 0 fJF8/IQ4  
    End With |h^G$guw  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False @mQ/WYs  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll 7)8rc(58  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese gNEzl
x8A  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True QN2*]+/h  
    DoEvents w{YtTZp3  
evndw>  
    '图片标题 DiGUxnP  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 7N}\1Di5  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" cjy0s+>>  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False m &3HFf  
    With ActiveDocument.Styles("QLNU图片标题").Font ${TB2q}%  
        .NameFarEast = "楷体" 8M3p\}O  
        .NameAscii = "Times New Roman" J#Ne:Aj_  
        .Name = "楷体"
O9qKwn;q(  
        .Size = 10.5 ;:-2~z~~  
        .Bold = True NR;S3-Iq(  
        .Underline = wdUnderlineNone }Yo15BN+  
        .Italic = wdUndefined %
4r!7X|O<  
        .Subscript = wdUndefined A_6/umF[ZA  
        .Superscript = wdUndefined '$kS
]U  
        .Outline = False .^9/ 0.g8t  
        .Shadow = False Tg<>B  
        .Color = wdColorAutomatic lk+=
26>  
    End With )'K!)?&d  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat /\3XARt  
        .LineSpacingRule = wdLineSpaceSingle iP#A
-du  
        .Alignment = wdAlignParagraphCenter vZ_DG}n11  
         *FLT z(T  
        .KeepWithNext = wdUndefined *mK);@pL  
        .KeepTogether = True 5x1%o
C  
        .OutlineLevel = wdOutlineLevelBodyText 5JU(@}Db  
         Vne.HFXA  
        .LeftIndent = CentimetersToPoints(0) 9|G=KN)P:  
        .RightIndent = CentimetersToPoints(0) \DcC1W  
        .FirstLineIndent = CentimetersToPoints(0) 8,H#t@+MT  
         %T
,\xZ  
        .CharacterUnitLeftIndent = 0 :nbW.B3GV  
        .CharacterUnitRightIndent = 0 ?Qo_ KQ%sn  
        .CharacterUnitFirstLineIndent = 0 ,h wf  
         X('Q;^`  
        .LineUnitBefore = 0 c~0VNuN  
        .LineUnitAfter = 0 wEo-a< (  
    End With @0/@p"j  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False fdCxMKlu;  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll  jKb=Zkd  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese e$/Zb`k  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True 3*2&Fw!B  
    DoEvents 0()9vTY+  
2\z`G  
    '目录项 gk_Xu  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") HhQPgjZ/  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" 0o"<^] _|  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False ?^G$;X7B  
    With ActiveDocument.Styles("QLNU目录项").Font Op$J "R  
        .NameFarEast = "黑体" 6>N u=~  
        .NameAscii = "Times New Roman" _!CvtUU0Vv  
        .NameOther = "Times New Roman" [hv3o0".  
        .Name = "黑体" ,39$iHk  
        .Size = 10.5 K&Wv.}=V  
        .Bold = False .2(@jx,[  
        .Italic = wdUndefined 6Ymo%OT  
        .Underline = wdUnderlineNone VtPoc(o4]  
        .Color = wdColorAutomatic  ZZFI\o  
        .Superscript = wdUndefined #:ED 0</  
        .Subscript = wdUndefined PU@U@  
    End With =DF@kR[CH"  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat M*T# 5  
         j_ywG{Jk  
        .LineSpacingRule = wdLineSpaceSingle v0jz)z<#  
        .Alignment = wdAlignParagraphLeft ++p& x{  
         o
Vuj020  
        .WidowControl = False `X.=uG+m  
        .KeepWithNext = False C(%5,|6  
        .KeepTogether = False {7pE9R5  
        .PageBreakBefore = False ("P mB?20  
        .NoLineNumber = False c J"]yG)=  
        .OutlineLevel = wdOutlineLevelBodyText w_z^5\u0  
         v\?\(Y55Y  
        .LeftIndent = CentimetersToPoints(0) 'bY|$\I  
        .RightIndent = CentimetersToPoints(0) ?w5nKpG#RI  
        .FirstLineIndent = CentimetersToPoints(0) eed\0  
         \ \mO+N47i  
        .CharacterUnitLeftIndent = 0 si mX  
        .CharacterUnitRightIndent = 0
+DV6oh  
        .CharacterUnitFirstLineIndent = 0 Med"dHo7  
         B'BbTI,  
        .LineUnitBefore = 0 4Igs\x{
i  
        .LineUnitAfter = 0 7i|hlk;  
    End With _^2[(<Gmv  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False RWh}?vs_  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll I3E8vi%B.  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot 3xCA\*  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese :#&U95EC0  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True `bi_)i6Low  
    DoEvents %ucmJ-<y#  
     ~E6+
2t*  
    '参考文献 H R!
>g  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") }HQT @&=  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" Kp=3 \)&  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False G'}_ZUy#  
    With ActiveDocument.Styles("QLNU参考文献").Font U-]PWt?C{  
        .NameFarEast = "宋体" )i6U$,]  
        .NameAscii = "Times New Roman" /jL{JF>I  
        .NameOther = "Times New Roman" PK`(qK9  
        .Name = "Times New Roman" 5_tK3Q8?  
        .Size = 12 ^%OH}Z`ly  
        .Bold = False A@Yi{&D_Q]  
        .Italic = wdUndefined ~PAbLSL*u  
        .Subscript = wdUndefined |s3HeY+Co  
        .Superscript = wdUndefined @okm@6J*X  
        .Underline = wdUnderlineNone  /qQ2@k  
        .UnderlineColor = wdColorAutomatic sxQ,x/O  
        .Color = wdColorAutomatic {ZIFj.2  
        .Engrave = False 4[EO[x4C  
    End With W9:{pQG  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat hjp ?/i%TQ  
         ;0X|*w1JO  
        .LineSpacingRule = wdLineSpaceExactly eS# 0-  
        .LineSpacing = 16 9q@YE_ji  
        .Alignment = wdAlignParagraphLeft \3Ald.EqtM  
        .WidowControl = False Vqp.jF1|  
        .KeepWithNext = False nTtt$I@hW  
        .KeepTogether = False
+sbacMfq  
        .PageBreakBefore = False Exs _LN  
        .OutlineLevel = wdOutlineLevelBodyText I3[RaZ2z{  
         \g[f4xAV  
        .LeftIndent = CentimetersToPoints(0) +fQ$~vr{'  
        .RightIndent = CentimetersToPoints(0) xY}j8~k  
        .FirstLineIndent = CentimetersToPoints(0) ZT-
45_  
         <n~g+ps  
        .CharacterUnitLeftIndent = 0 8/kO9'.P  
        .CharacterUnitRightIndent = 0 b+j_EA_b  
        .CharacterUnitFirstLineIndent = -2 ZwrYss  
         BRok 89  
        .LineUnitBefore = 0 [t=+$pf(-  
        .LineUnitAfter = 0 (lck6v?h  
        .SpaceBefore = 0 ORPl^n-  
        .SpaceAfter = 0 .j<B5/+  
         ,c %gwzU  
    End With @/2wmza%2  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False ZxeE6&#M^w  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll EV,NJ3V  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS FCB/FtI0  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True  F-\8f(\  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese c"& !=@  
    DoEvents z^HlDwsbm  
IE sD=  
    ' P;91C'T-x  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle")
0}C}\1  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" Qc<O; #  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False ^d$e^cU  
    With ActiveDocument.Styles("QLNU论文题目").Font jxOVH+?l%  
        .NameFarEast = "黑体" 8}`8
lOE7  
        .NameAscii = "Arial Black" ?}Ptb&Vk(  
        .NameOther = "Arial Black" K[ ;,/:Y  
        .Name = "Arial Black" *M!YQ<7G^d  
        .Size = 16 VKfHN_m*  
        .Bold = False vc1GmB  
        .Italic = wdUndefined 3LnyQ  
        .Superscript = wdUndefined
{kO:HhUg  
        .Subscript = wdUndefined Mw7UU1 ei  
        .Underline = wdUnderlineNone wU3ica&[   
        .UnderlineColor = wdColorAutomatic 2+Y`pz47W  
        .Color = wdColorAutomatic
Zu73x#pI  
tZBE& :l  
    End With .;v'oR1x5  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat W
oG  
        .LineSpacingRule = wdLineSpaceSingle t:@A)ip  
        .Alignment = wdAlignParagraphCenter aTL7"Myp  
        .WidowControl = True =xWW+w!r  
        .KeepWithNext = True <^
c0bY1  
        .KeepTogether = True <?@46d?C  
        .PageBreakBefore = True 9v3N
ba  
        .NoLineNumber = False T`<k4
ur  
        .OutlineLevel = wdOutlineLevelBodyText ~map5@Kd  
         2<./HH*f  
        .LeftIndent = CentimetersToPoints(0) R/FV'qy]  
        .RightIndent = CentimetersToPoints(0) [&kk  
        .FirstLineIndent = CentimetersToPoints(0) ^p%+rB.j[  
         Us~wv"L=UX  
        .CharacterUnitLeftIndent = 0 ,^[37
/S  
        .CharacterUnitRightIndent = 0 zyn =Xv@p  
        .CharacterUnitFirstLineIndent = 0
mb6?$1j  
         6]A\8Ty  
        .LineUnitBefore = 1 K>JU/(  
        .LineUnitAfter = 1 |BWK"G  
         DmA!+  
        .BaseLineAlignment = wdBaselineAlignAuto 3A/MFQ#2  
    End With ?-v?SN#  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False LO*a>9LI  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll ZrT|~$*m`  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS 1`J N  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True xfQ;5 n  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese MP&4}De  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True \D k^\-  
    DoEvents
U5%]nT"[]  
     Fm~}A4  
    '中文摘要 n8D;6#P^  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") mpJ_VS`  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" %z_b/yG  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False Bq=](<>>  
    With ActiveDocument.Styles("QLNU中文摘要").Font Ps5wQaS  
        .NameFarEast = "宋体" 6 FxndR;  
        .NameAscii = "Times New Roman" NW Qu-]P  
        .NameOther = "Times New Roman" Vk=<,<BB  
        .Name = "Times New Roman" e7AI&5Eg{  
        .Size = 12 _IGa8=~  
        .Bold = wdUndefined KEB>}_[  
        .Superscript = wdUndefined t7%Bv+Uo  
        .Subscript = wdUndefined {$=%5  
        .Italic = wdUndefined tD482Sb=  
        .Underline = wdUnderlineNone n&{N't  
        .UnderlineColor = wdColorAutomatic X"59`Yh  
        .Color = wdColorAutomatic T $]L 5  
    End With @!HMd{r  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat ?O^:j!C6  
        .LineSpacingRule = wdLineSpaceExactly \V\ET  
        .LineSpacing = 20 T<,tC"  
        .Alignment = wdAlignParagraphLeft <.XoC?j  
         `.Q3s?1F  
        .WidowControl = False *"L:"i`*$  
        .KeepWithNext = False AQGE(%X  
        .KeepTogether = True U.} =j'Us+  
        .PageBreakBefore = False g[)hm`{?  
        .NoLineNumber = False 5fv6R QD  
        .OutlineLevel = wdOutlineLevelBodyText u<r('IW0  
         WZ-{K"56  
        .LeftIndent = CentimetersToPoints(0) X
E %6c3s  
        .RightIndent = CentimetersToPoints(0) A+*(Pds  
        .FirstLineIndent = CentimetersToPoints(0) A^7Zy79  
         *Z(C')7r  
        .CharacterUnitLeftIndent = 0 ?Og;W9i  
        .CharacterUnitRightIndent = 0 l_IX+4(@b|  
        .CharacterUnitFirstLineIndent = 2 e';c8WF3E  
        .LineUnitBefore = 0 >(J!8*7  
        .LineUnitAfter = 0 o6%f%:&  
         f3|=T8"t  
    End With 5 :>  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False {%}6d~Bg  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll *3oQS"8  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS 4B>|Wft{p]  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True wWswuhq<  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese 'B:De"_(N  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True DuZ]g#  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete tELnq#<6  
    DoEvents *#9kFz-  
     {]N?DmF  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") I4ct``Di  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" $)a5;--W  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False 3+PM_c)Y  
    With ActiveDocument.Styles("QLNU英文标题").Font u3!!_~6,z  
        .NameFarEast = "黑体" }i~j"m  
        .NameAscii = "Arial Narrow" \K= PIcH  
        .Name = "Arial Narrow" y`Y}P1y*  
        .Size = 16 U^S:2  
        .Bold = True Efd[ZJxS6  
        .Bold = wdUndefined $l"(tB7d  
        .Superscript = wdUndefined 4tKf  
        .Subscript = wdUndefined 2xm?,p`  
        .Italic = wdUndefined Li$k<AM  
         hzVO.Q*  
        .Underline = wdUnderlineNone ?%n9g)>Yej  
        .UnderlineColor = wdColorAutomatic S8<aq P  
        .StrikeThrough = False r{;4(3E2  
        .DoubleStrikeThrough = False W]]2Uo.  
    End With skArocs  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat YH$`r6\S  
        .LineSpacingRule = wdLineSpaceSingle GUZi }a|=  
        .Alignment = wdAlignParagraphCenter l'R`XGT  
        .WidowControl = True (~o+pp!  
        .KeepWithNext = False ;!Bkk9r"H  
        .KeepTogether = False +T;qv x6  
        .PageBreakBefore = False *Y?]="8c#;  
        .NoLineNumber = False CBHWMetJ*  
        .FirstLineIndent = CentimetersToPoints(0) OPh@H.)^  
        .OutlineLevel = wdOutlineLevelBodyText j0M;2 3@[  
         sTYl' Ieg  
        .LeftIndent = CentimetersToPoints(0) 5< nK.i,  
        .RightIndent = CentimetersToPoints(0) 0M.[) @  
        .FirstLineIndent = CentimetersToPoints(0) 5n#&Hjb*F0  
         q@> m~R  
        .CharacterUnitLeftIndent = 0 ZXkAw sr  
        .CharacterUnitRightIndent = 0 |,f6c Omf  
        .CharacterUnitFirstLineIndent = 0 m>:ig\  
         Ds/zl Z  
        .LineUnitBefore = 1 l/M+JT~R  
        .LineUnitAfter = 1 l,8|E  
         =~*u(0sJa  
    End With I[C.iILL  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False (P_ +m#  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll 0nn#U  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS p 1fnuN |,  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True |%9~W^b  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese -OAH6U9^  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True 6?~pjMV  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete 3F3?be  
    DoEvents y['i cGU6  
|
mX8fRh  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") F.hC%Ncu  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" 4K% YS  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False }e
w?{  
    With ActiveDocument.Styles("QLNU英文摘要").Font GQ8P}McA  
        .NameFarEast = "宋体" <VPtbM@(m  
        .NameAscii = "Arial" QY!A[!6h  
        .NameOther = "Arial" ;^]F~x}  
        .Name = "Arial" H[oi? {L  
        .Size = 12 u^9,u/gj  
        .Bold = wdUndefined }DwXs`M7  
        .Italic = wdUndefined U:(
t9NX b  
        .Superscript = wdUndefined vsR&1hs  
        .Subscript = wdUndefined 4 .qjTR  
    End With (ZJ_&8C#  
     }= )"uv  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat >
X,6  
         m 9Q{)?J7  
        .LineSpacingRule = wdLineSpaceExactly ,+{ 43;a  
        .LineSpacing = 20 AS ul  
         Ha\hQ'99  
        .Alignment = wdAlignParagraphJustify ? 'nMZ  
         3M`J.>  
        .WidowControl = False {[dqXG$v `  
        .KeepWithNext = False Y6Q6--P  
        .KeepTogether = False N~YeAe~+  
        .PageBreakBefore = False JJa?"82FXZ  
        .NoLineNumber = False C
Q ?|=cN  
         $ S/8T  
        .OutlineLevel = wdOutlineLevelBodyText O%{>Zo_<  
         Su~`jRN$  
        .LeftIndent = CentimetersToPoints(0) uEY5&wX`  
        .RightIndent = CentimetersToPoints(0) eSf: [^  
        .FirstLineIndent = CentimetersToPoints(0) C<ljBz`,t  
         "b;?2_w:E  
        .CharacterUnitLeftIndent = 0 _^ZII  
        .CharacterUnitRightIndent = 0 W3kilhZ  
        .CharacterUnitFirstLineIndent = 2 `WL*Jb  
         8'62[e|=7[  
        .LineUnitBefore = 0 ,k I1"@Tu  
        .LineUnitAfter = 1 F!'"mU<f  
         To95WG7G  
    End With xCD+qP^  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False SuSZ,>  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll g'@+#NMw  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS Bf'(JJ7&N  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False XO>Y*7rO  
    DoEvents
N11am  
7Q&P4{hi0  
    Options.Pagination = True Pr"ESd>Y  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." ,.B8hr@H6-  
    DoEvents g;1 UZE;  
    ActiveDocument.Repaginate
s,=^V/c  
8iB}a\]B  
End Sub 6w#v,RDEu  
>@o*v*25  
Z )I4U