Dim bContinue As Boolean i JQS@2=A  
g.veHh|;_  
Dim regEX As New RegExp O/FQ 'o1F  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 &<~`?-c  
JU~l  
Dim LastTitle0String As String, LastTitle0No As Long 
~< k'{  
Dim LastTitle1String As String, LastTitle1No As Long bclA+!1  
Dim LastTitle2String As String, LastTitle2No As Long
Z*oGVr g  
Dim LastTitle3String As String, LastTitle3No As Long 5` Q# 2  
Dim LastTitle4String As String, LastTitle4No As Long (l$bA_F\  
Dim LastTitle5String As String, LastTitle5No As Long ~UL;O\-b0  
Dim LastTabelString As String, LastTableNo As Long 9 Z4H5!:(  
Dim LastFigureString As String, LastFigureNo As Long -f'z_&KI  
P ^D\znvc  
Dim strSeperator As String P>)qN,a  
M N#\P1  
Sub ConvertWidth(fTEXT As String, rText As String) :lcoSJ  
        Selection.Find.ClearFormatting l.&6|   
        Selection.Find.Replacement.ClearFormatting -ERDWY  
        Selection.Find.Wrap = wdFindContinue w 5,-+&;  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText b>o38(  
        DoEvents X${k  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True -()CgtSR  
End Sub f>Ij:b`Z2  
eE7+fMP{  
Sub ClearDomain() z;Kyg}  
        With Selection.Find oo/#]a  
            .ClearFormatting 5Zh /D0!|  
            .Replacement.ClearFormatting =WHdy;  
            .Wrap = wdFindContinue ;]'mx  
            Me.txtStatus.Text = "清除所有域代码" )WD<Q x&  
            DoEvents BCFvqhF7s  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False G "C'/  
        End With JH2d+8O:qK  
End Sub &L;0%
 
QV" |  
Private Sub cmdCheck_Click() -l^u1z
 
    bContinue = True sqsBGFeG  
    Dim NoSeries1(1 To 16) As String ]r|X[9  
    Dim NoSeries2(1 To 16) As String x
C{W_a(  
    Dim NoSeries5(1 To 16) As String LB-4
/G$  
    Dim NoSeriesRM(1 To 16) As String 0dXWy`Mn  
    Dim paraTotal As Long, ParaText As String t.3b\RV[  
    Dim ttString As String, ttNo As String x|1OG bBK  
     mgg/
i@
(  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long uNLA/hL+n  
!x&/M*nBE  
    Me.txtStatus.Visible = True @UX'(W  
    Me.lbParaType.Visible = True 8*lVO2  
    Me.cmdCheck.Enabled = False Yz[^?M%(D  
     $2\OBc=  
     P0|V1,)  
     +$P0&YaQ  
     VBy=X\w]  
    Dim ParaType As String, rText As String h19c*,0z!  
     2y ,f  
    Selection.WholeStory rry 33  
    Selection.NoProofing = True 0<
fN<iR`  
     rZ *}jD[  
    tm1 = Now GsxrqIaD  
     z#*fELV  
        ActiveWindow.View.Type = wdNormalView )$Mgp*?  
     7hQ
rL+%q8  
    NoSeries1(1) = "一" kJ{X5&,_  
    NoSeries1(2) = "二" <AzvVSA,  
    NoSeries1(3) = "三" s:6H^DQ"C  
    NoSeries1(4) = "四" %[5hTf  
    NoSeries1(5) = "五" @/7tN3O  
    NoSeries1(6) = "六"
8I`>tY  
    NoSeries1(7) = "七" $(G.P!/  
    NoSeries1(8) = "八" LG@5Z-  
    NoSeries1(9) = "九" 6>zO"9  
    NoSeries1(10) = "十" EW|bs#l  
    NoSeries1(11) = "十一" /wKL" M-%  
    NoSeries1(12) = "十二" PjDYdT[  
    NoSeries1(13) = "十三" 4y:yFTp  
    NoSeries1(14) = "十四" >DPC}@Wl  
    NoSeries1(15) = "十五" Koo%mr   
    NoSeries1(16) = "十六" m{;2!  
     L`tr7EEr  
    NoSeries2(1) = "㈠" }c^`!9  
    NoSeries2(2) = "㈡" e![n$/E3R  
    NoSeries2(3) = "㈢" %r?Y!=0  
    NoSeries2(4) = "㈣" RYy_Ppn96f  
    NoSeries2(5) = "㈤" }H\wed]F/  
    NoSeries2(6) = "㈥" #T&''a  
    NoSeries2(7) = "㈦" l7nc8K  
    NoSeries2(8) = "㈧" ]~GwZB'M  
    NoSeries2(9) = "㈨" 0]fzjiaGt  
    NoSeries2(10) = "㈩" `gx_+m^  
     Il,2^54q  
    NoSeries5(1) = "①" ~CQsv`
 
    NoSeries5(1) = "②" r 1nl!  
    NoSeries5(3) = "③" 7$Jb "s  
    NoSeries5(4) = "④" +q6/'ErN]m  
    NoSeries5(5) = "⑤" 1o V\QK&  
    NoSeries5(6) = "⑥" 0M>+.}e+  
    NoSeries5(7) = "⑦" %?^IS&]Z  
    NoSeries5(8) = "⑧" =:uK$>[  
    NoSeries5(9) = "⑨" DFcgUEq  
    NoSeries5(10) = "⑩" 5PqL#Eu`!  
     4Un(}P'  
     B!4chxzUZ  
    NoSeriesRM(1) = "I" ~#C7G\R  
    NoSeriesRM(2) = "II" ,eW K~ pa  
    NoSeriesRM(3) = "III" gQ6_]~4  
    NoSeriesRM(4) = "IV" Ho2#'lSKM  
    NoSeriesRM(5) = "V" F8S% \i  
    NoSeriesRM(6) = "VI" !0i  
    NoSeriesRM(7) = "VII" 1pg&?L.MA  
    NoSeriesRM(8) = "VIII" -X3yCK?re  
    NoSeriesRM(9) = "IX" Rq|7$O5  
    NoSeriesRM(10) = "X" Et}S*!IS  
    NoSeriesRM(11) = "XI" WRe9ki=R  
    NoSeriesRM(12) = "XII" !#Ub*qY1Z  
    NoSeriesRM(13) = "XIII" `O5wM\Z  
    NoSeriesRM(14) = "XIV" //xK v{3fI  
    NoSeriesRM(15) = "XV" @l41'?m  
    NoSeriesRM(16) = "XVI" C|*U)#3:F  
     j KGfm9|zj  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) tZB"(\  
     I r]#u]Ap  
    If i = vbNo Then -XRn%4EX?  
        Exit Sub  At@H  
    End If ;p)RMRMg  
     Y{ijSOl3  
    If Me.chkSuper.Value Then jb|al[p\  
        Me.txtStatus.Text = "检查修改所有的上标格式" gY|f[M|  
     N2#Wyt8MC  
        CheckSuperScript UP'~D]J  
         GHWi
,' mr  
    End If Y23- Im  
     6j/g/!9c!  
    If Me.chkStyle.Value Then #rD 0`[pz  
        Me.txtStatus.Text = "设置样式，请稍候...." aA7}>  
        DoEvents H,u{zU')  
        CeateOrModifyStyle rO[c m}  
    End If x-1RmL_%  
     m:SG1m_6  
     ~4fUaMT  
     '1+s^Q'pc  
    ClearDomain #ue WU  
         G)t_;iNL|  
     IOhJL'r  
     r$T\
@oTL  
    If Me.chkLIST.Value Then F>RL&i  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" V"K-aO&  
     6Cfu19Dx  
        ConvertListToOrdinary n@[_lNa4GD  
    End If ])`w_y(>  
     >pdWR1ox  
     _3~/Z{z8  
    Dim pType As String, trimpTEXT As String y(^t&tgjS  
    If Me.chkNum.Value = True Then M#Kke
9%2  
        Me.txtStatus.Text = "转换全角数字形式为半角" ?71?Vd  
        ConvertWidth "１", "1" 42]
hX9E  
        DoEvents 69N/_V  
        ConvertWidth "２", "2" 3CcCcZ9I  
        DoEvents UTwXN |'|  
        ConvertWidth "３", "3" Gj!9#on$7R  
        DoEvents fqpbsM;M]  
        ConvertWidth "４", "4" VokIc&!Uz  
        DoEvents ]ie38tX$  
        ConvertWidth "５", "5" >>bsr#aJ  
        DoEvents wz`\RHL  
        ConvertWidth "６", "6" =S+*=jA  
        DoEvents :8h\x  
        ConvertWidth "７", "7" Mu: y9o95  
        DoEvents M~+}ss  
        ConvertWidth "８", "8" &YpViC4K.  
        DoEvents 1K{u>T  
        ConvertWidth "９", "9" !>RDHu2n  
        DoEvents ( f]@lNmx  
        ConvertWidth "０", "0" Is&0h|  
        DoEvents E.LD1Pm0  
        ConvertWidth "ａ", "a" QiKci%=SX  
        DoEvents KTtB!4by  
        ConvertWidth "ｂ", "b" pW5ch"HE  
        DoEvents Bm"-X:='  
        ConvertWidth "ｃ", "c" A
S5'j  
        DoEvents ? TWve)U  
        ConvertWidth "ｄ", "d" 3EkCM_]  
        DoEvents -+ylJo[D  
        ConvertWidth "ｅ", "e" e%[0
NVo  
        DoEvents fJ<I|ZZ  
        ConvertWidth "ｆ", "f" K-,4eq!
 
        DoEvents (w[#h9j  
        ConvertWidth "ｇ", "g" .bYZkO:oy  
        DoEvents b'r</n cZ  
        ConvertWidth "ｈ", "h" 3V uoDmG  
        DoEvents 2i0 .x  
        ConvertWidth "ｉ", "i" #z6[8B  
        DoEvents N> 7sG(!'"  
        ConvertWidth "ｊ", "j" -d>2&)5  
        DoEvents qtrN=c3
x  
        ConvertWidth "ｋ", "k" )+7|_7 !x  
        DoEvents %B}<5iO
 
        ConvertWidth "ｌ", "l" X<8?>#  
        DoEvents ^#( B4l!  
        ConvertWidth "ｍ", "m" WoV"&9y  
        DoEvents 8FT]B/^&m  
        ConvertWidth "ｎ", "n" r+:]lO  
        ConvertWidth "ｏ", "o"  A:b(@'h  
        ConvertWidth "ｐ", "p" {=I:
K|&  
        ConvertWidth "ｑ", "q" YN]xI  
        ConvertWidth "ｒ", "r" I%(YR"  
        ConvertWidth "ｓ", "s"  B_Ul&V  
        ConvertWidth "ｔ", "t" e'I/}J  
        ConvertWidth "ｕ", "u" aC90IJ8^  
        ConvertWidth "ｖ", "v" WwUhwY1o!L  
        ConvertWidth "ｗ", "w" ~F"<Nq  
        ConvertWidth "ｘ", "x" 0Wkk$0h9  
        ConvertWidth "ｙ", "y" Ah2*7@U  
        ConvertWidth "ｚ", "z" 6C
'W  
        ConvertWidth "Ａ", "A" A>\5f
O
 
        ConvertWidth "Ｂ", "B" |qs8( 5z0  
        ConvertWidth "Ｃ", "C" S4 j5
-  
        ConvertWidth "Ｄ", "D" kI?+\k\V`  
        ConvertWidth "Ｅ", "E" DplS\}='s  
        ConvertWidth "Ｆ", "F" / <C{$Gu  
        ConvertWidth "Ｇ", "G" atiyQuT6Wh  
        ConvertWidth "Ｈ", "H" r{>`"  
        ConvertWidth "Ｉ", "I" 6;:z?Q  
        ConvertWidth "Ｊ", "J" 2]of4   
        ConvertWidth "Ｋ", "K" 2x5^kN7  
        ConvertWidth "Ｌ", "L" pq"Z,9,F%  
        ConvertWidth "Ｍ", "M" z( \4{Y  
        ConvertWidth "Ｎ", "N" ~k"r  
        ConvertWidth "Ｏ", "O" OI^??joQ  
        ConvertWidth "Ｐ", "P" jlxY|;gZ-0  
        ConvertWidth "Ｑ", "Q" ^/~ZP?%]  
        ConvertWidth "Ｒ", "R" !),eEy  
        ConvertWidth "Ｓ", "S" XQ3"+M_KG  
        ConvertWidth "Ｔ", "T" #Mw 6>5}<  
        ConvertWidth "Ｕ", "U" t]IHQ8  
        ConvertWidth "Ｖ", "V" yopC <k  
        ConvertWidth "Ｗ", "W" q\pI&B  
        ConvertWidth "Ｘ", "X" jFDVd;#CS  
        ConvertWidth "Ｙ", "Y" 9\'JtZO  
        ConvertWidth "Ｚ", "Z" vmzc0J+3p  
        ConvertWidth "^l", "^p" 9| g]M:{  
        ConvertWidth "（", "(" %<)!]8}P*  
        ConvertWidth "）", ")" #Z. QMWq  
     l*>,K2F  
    End If fZ aTckbE  
pKtN$Fd  
    With ActiveDocument *"nN To  
        Dim tbl As Table Y1Q240  
        For Each tbl In .Tables J5TT+FQ  
            tbl.Rows.Alignment = wdAlignRowCenter hv0bs8h  
            tbl.Range.Font.NameFarEast = "楷体" 8$F"!dc _  
            tbl.Range.Font.NameAscii = "Times New Roman" nnOgmI7  
            tbl.Range.Font.Size = 10.5 dy>5LzqK3  
        Next ,B~5;/|  
        Set tbl = Nothing FMOO  
    End With S;0z%$y  
     +0ALO%G;G"  
     /S{U|GBB%r  
    With ActiveDocument `5Bv2wlIV  
         v!`:{)2C  
        For i = 1 To .TablesOfContents.Count >^6|^rc  
            .TablesOfContents(i).Delete yJK:4af;.  
        Next ;~ -ZN?8   
         5,\-;  
         a,|Hn  
         %lk^(@+ T  
        paraTotal = .Paragraphs.Count @cr/&  
        paraCounter = 1 9])Id;+91  
         bN\;m^xfu  
        LastTitle0No = 0 f\;w (_  
        LastTitle1No = 0 -
aq3Lqi  
        LastTitle2No = 0 r.q*S4IS.m  
        LastTitle3No = 0 z+Guu8  
        LastTitle4No = 0 tzShds  
        LastTableNo = 0 3D-0 N0o  
        LastFigureNo = 0 ;Rlf[](iL  
         Q7.jSL6  
        Dim Sec As Long (_%l[:o6  
         $Ge0<6/  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) ^Gi7th,  
        If Sec = 0 Then "XQ3mi`y  
            Exit Sub EQWRfx?d  
        End If iEEP~  
         5e3p9K`5  
        k = 0 a<0q%Ax  
        Do While (paraCounter < paraTotal) And bContinue 0QP=$X  
            k = k + 1 z:a7)z  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then " Tk,  
                Exit Do ?edf$-"z/  
            End If Kf-XL),3l  
            paraCounter = paraCounter + 1  J8-K  
            If k Mod 20 = 0 Then ;`O9YbP#  
                Me.lbCounter.Caption = paraCounter O3V.4tp  
                DoEvents Ze!/b|`xI  
            End If P{LS +.  
        Loop KE.O>M,I.  
         p/yz`m T'w  
         fig~z=m
  
        Do While (paraCounter < paraTotal) And bContinue .-'_At4g  
             3$?nzKTW\  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) +zwS[P@  
            ShapeHeight = 0 -%Rw2@vU  
            ShapeWidth = 0 j0=F__H#@  
           6B|OKwL  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth ZZw2m@T>  
             o~<jayqU  
            Select Case ParaType K?nQsT;3p  
                Case "【】表格内容" IL` LIJ:O  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" TMGYNb%<bX  
                Case "章" znB+RiV8  
                    LastTitle0No = LastTitle0No + 1 v%r/PHw  
                    '新一章开始，复位其下属标题编号 \gu8 ~zK  
                    LastTitle1No = 0
.i {yW  
                    LastTitle2No = 0 {)iiu   
                    LastTitle3No = 0 w\mTug  
                    LastTitle4No = 0 OMW]9E  
                     e*}*3kw)T  
                    k = Val(ttNo) E-%$1=;  
                    If k = 0 Then '非数字编号章节 &q&~&j'[  
                        If ttNo <> NoSeries1(LastTitle0No) Then R4X9g\KpAt  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString [+d~He  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText %+nM4)h  
                        End If !</U"P:L  
                    Else W__Y^\~  
                        If Val(ttNo) <> LastTitle0No Then Y<I
uwS  
                            rText = "第" & LastTitle0No & ttString d eQ{  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText *LMzq9n3o  
                        End If a@Vk(3Rx_  
                         pIV|hb!G  
                    End If `YUeVz>q?  
                     g(auB/0s  
                    '章段落设置 rK3KxG  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 w/^_w5  
                    .Paragraphs(paraCounter).Style = "QLNU章节" 9OFH6-;6`\  
                    .Paragraphs(paraCounter).Range.Select k')H5h+Q=  
                    Selection.EndKey unit:=wdLine F Uz1P  
                    tc = Replace(rText, vbCr, "") LF`]=.Q  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False L8q#_k  
                Case "一级标题" <ne?;P1L  
                    LastTitle1No = LastTitle1No + 1 u -)ED  
                    '新一级标题开始，复位其下属标题编号 ,SPgop'  
                    LastTitle2No = 0 GSs?!BIC  
                    LastTitle3No = 0 2ql)]Skg6  
                    LastTitle4No = 0 S\]9mHJI  
                     4X", :B}  
                    If ttNo <> NoSeries1(LastTitle1No) Then );T&pm:C>  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString ZbiC=uh  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText qzNXz_#+u  
                    End If  ,RDWx  
                   WJxcJE  
                     :@@`N_2?  
                    '一级标题段落设置  格式：一、标题内容 S|xwYaoy%  
                    .Paragraphs(paraCounter).Range.Text = rText pTaC$Ne  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" T+x /J]A  
                    .Paragraphs(paraCounter).Range.Select dDSb1TM  
                    Selection.EndKey unit:=wdLine M,
W-,l ]  
                    tc = Replace(rText, vbCr, "") Yecdw'BW?  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False h oO847  
                Case "二级标题" 5t-d+ vB  
                    LastTitle2No = LastTitle2No + 1 C=CZtjUt  
                    '新二级标题开始，复位其下属标题编号 kL8E#  
                    LastTitle3No = 0 bo/<3gR  
                    LastTitle4No = 0 C?k\5AzT  
                     ju5o).!bg  
                    If ttNo <> NoSeries1(LastTitle2No) Then W[k rq_c-  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString =`*@OJHH  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText _xH<R  
                    End If Y}xM&%  
                     ,cxe"U  
                    '二级标题段落设置 格式：(一)、标题内容 pHx$  
                    .Paragraphs(paraCounter).Range.Text = rText \[qxOZ{  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" Zn0a)VH%  
                     ~+d{:WY  
                    .Paragraphs(paraCounter).Range.Select uF|Up]Z G  
                    Selection.EndKey unit:=wdLine #eN2{G=4+  
                    tc = Replace(rText, vbCr, "") Tay$::V  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False CzY18-L@EX  
                 (f^/KB=  
                Case "三级标题" ]8R@2L3s  
                    LastTitle3No = LastTitle3No + 1 !4!qHJISa  
                    '新三级标题开始，复位其下属标题编号 tAo$;|  
                    LastTitle4No = 0 b) x0;8<  
                     1ni72iz\  
                    If Val(ttNo) <> LastTitle3No Then } xA@3RT  
                            rText = LastTitle3No & ". " & ttString ps?su`  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText n&o"RE 0~0  
                         *- ~GVe  
                    End If m,"-/)  
                    '三级标题段落设置 格式：1. 标题内容 am!ssF5s  
                    .Paragraphs(paraCounter).Range.Text = rText N p*T[J  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" YcV^Fqi!  
                    .Paragraphs(paraCounter).Range.Select daP_Kz/2K  
                    Selection.EndKey unit:=wdLine .%dGSDru  
                    tc = Replace(rText, vbCr, "") BW6Ox
=sr<  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False `\|@w@f|;  
                Case "四级标题" Pr>05lg  
                    LastTitle4No = LastTitle4No + 1 l]~9BPsR  
                     |QF_E4ISD  
                    If Val(ttNo) <> LastTitle4No Then BeLqk3'/  
                            rText = "(" & LastTitle4No & "). " & ttString p^}`^>OL  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText  *  ]  
                     R!%HQA1U  
                    End If FZ}^)u}o  
                    '四级标题段落设置 格式：(1). 标题内容 YD@Z}NE v"  
                    .Paragraphs(paraCounter).Range.Text = rText kGs\"zZM  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" WVsj  
                    .Paragraphs(paraCounter).Range.Select u Fw1%  
                    Selection.EndKey unit:=wdLine ~N
PhVlT  
                    tc = Replace(rText, vbCr, "") AbhR *  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False CJh,-w{wJ"  
                 *zN~x(0{E  
                Case "表格标题" }ng?Ar[  
                    LastTableNo = LastTableNo + 1 mR
|5$1[b  
                     `#w#!@s#@  
                    If ttNo <> CStr(LastTableNo) Then w
x`.  
                            rText = "表" & LastTableNo & ". " & ttString YM#MfL#  
                            ErrMsg.AddItem "表格编号错误：" & ParaText (,t[`z  
                   [E%g3>/mt  
                    End If w N`Njm9!  
                     VwRZgL  
                    '表格名称段落设置 格式：表1. 表格名称 ji>LBbnHdE  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" &SPY'GQ!  
                    xe = Replace(rText, vbCr, "") !Yr 9N4  
                    .Paragraphs(paraCounter).Range.Select glc<(V  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 C-)d@LWI  
                    Selection.Range.Text = xe 1_Ks*7vuq  
                    Selection.EndKey ,\X!
:y~  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False TDbSK&w :s  
                 Aqmw#X  
                Case "表格首行" -"S94<Y  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" - f ^!R  
                Case "图片标题" %WKBd\O  
                    LastFigureNo = LastFigureNo + 1 @%*2\8}C!  
                     w&T\8k=  
                    If ttNo <> CStr(LastFigureNo) Then (J.Z+s$:2  
                            rText = "图" & LastFigureNo & ". " & ttString z. X hE \  
                            ErrMsg.AddItem "表格编号错误：" & ParaText * U
6+b  
                  
[B
`4I  
                    End If fzw:[z:%  
                    '图片名称段落设置 格式：图1. 图名称 /\<x8BJ  
                    .Paragraphs(paraCounter).Range.Text = rText B6;>V`!  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" bM5V=b_H  
                    .Paragraphs(paraCounter).Range.Select 'K02T:\iZ  
                    Selection.EndKey unit:=wdLine _&\ 'Va$  
                    xe = Replace(rText, vbCr, "") po'b((q  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False ^|zag  
                Case "正文" ,Y6]x^
W  
                     '正文名称段落设置 16]Ay&Kn!  
                    .Paragraphs(paraCounter).Style = "QLNU正文" UCjx   
               Case "文献条目" us
~cIGm  
                    With .Paragraphs(paraCounter) /;w(sU  
                        '.Range.Select iLJ@oM;2  
                        'Selection.ClearFormatting '(C+qwdRv  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” PYWFz  
                        .Style = "QLNU参考文献" ^n<YO=|u  
                    End With ,52Lm=n  
               Case "图表注解" i$p2am
8f  
                    With .Paragraphs(paraCounter) o~e_M-
 
                        .Range.Font.NameFarEast = "楷体" RM,aG}6M)M  
                        .Range.Font.NameAscii = "Times New Roman" k
!z<=WA  
                        .Range.Font.Size = 9 '小5号字 ;-JFb$m  
                         ,`Z4fz:  
                        .Alignment = wdAlignParagraphCenter u=qaz7E  
                        .LeftIndent = 0 Wu<;QY($5  
                        .RightIndent = 0 rr2!H%:
 
                        .FirstLineIndent = 0 J=78p#XUg  
                        .LineSpacing = 12 6it [i@*"  
                        .LineSpacingRule = wdLineSpaceExactly JNXzZ4U  
                        .LineUnitAfter = 0 [<{r~YFjWW  
                        .LineUnitBefore = 0 Dq<DW2It>  
                        .OutlineLevel = wdOutlineLevelBodyText NOwd'iU  
                        .PageBreakBefore = False 1fsNQ!vQP  
                        .RightIndent = 0 vf@j d}?  
                        .WordWrap = True 0HU0p!yt&  
                        .LineUnitAfter = 0.5 !W8=\:D[  
                         />}zB![(K  
                    End With kr~n5WiAZ  
                Case Else ||*F.p  
                    '不作处理 ;,6C&|n]w  
            End Select R4VX*qkB  
             DnJ `]r  
            '含有inlineshape的段落处理 m,t{D, 2  
            If ShapeHeight > 30 Then y\uBVa<B  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 Nu?A>Q  
            End If 8f[ztT0`g  
             3M+rFB}tS  
            If (ShapeWidth + ShapeHeight) > 150 Then G1w$lc  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" /YUW)?o!^N  
            End If !wQ?+:6  
             ubfh4  
            '段落计数器递 QEbf]U=  
            paraCounter = paraCounter + 1 3u[8;1}7Q  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter 7S 8X)  
            Me.txtStatus.Text = ParaText Jnd_cJ]a  
            DoEvents ]UEA"^  
        Loop pZeOdh  
    End With gED|2%BXb  
     -`{W~yz  
    msg = "" -C(Yl=  
     uq-`1m}  
    For i = 0 To Me.ErrMsg.ListCount - 1 _EP]|DTfr  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) &y1iLk h^  
    Next `JDZR:bMaT  
     spm)X-[1  
     <XG]aYBR  
     %Vltc4QU  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg oy#(]K3`O  
    Me.cmdCheck.Enabled = True <QFayZ$  
    Me.txtStatus.Visible = True i.7_i78\"  
    Me.lbParaType.Visible = False B+~ /-3  
     YLTg(*  
    bContinue = False h%$^s 0w  
End Sub 1$Q[ %9  
H"^9g3U  
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) GTTEg{  
    Dim pTEXT As String 'h0>]A 2|X  
     (B$>o.
(JA  
    pTEXT = ChKRange.Text l,]%D  
     :<B_V<  
    ParaType = "其它" ?B;7J7T  
    TitleString = pTEXT D&"l
u*"tg  
    TitleNo = "N/A" ,g}$u'A+d  
     m:`M&Xs&  
    shpCounter = ChKRange.InlineShapes.Count
o+x! (  
    If shpCounter <> 0 Then =H23eOS_#  
        MaxShpHeight = 0: TotalShpWidth = 0 %X.g+uu  
        For i = 1 To shpCounter _eq$C=3Ta  
            k = ChKRange.InlineShapes(i).Height x
g7KU&  
            l = ChKRange.InlineShapes(i).Width w0Nm.=I-   
            If k > MaxShpHeight Then C P&u  
                MaxShpHeight = k B0gD4MX/  
            End If xR%NiYNQz  
            TotalShpWidth = TotalShpWidth + l _V1:'T8  
        Next r<n:o7  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then >itabG-&  
            Exit Sub ,{S $&g*  
        End If Ns1n|^9  
    End If 13Z,;YW  
     %Rf9KQ  
    '空行 ~!2fUewEu  
    If Len(pTEXT) <= 2 Then O9d"Z$~n=j  
        Exit Sub  $V`1<>4  
    End If 0iZeU:FE  
     VVAcbAGJ  
        
1Dc6v57  
    '是否为表格中的文字 UP)<(3YA  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then pO7OP"q1  
        ParaType = "表格内容" d9U)O6=  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) 'Ca;gi !U  
        If k = 1 Then &PL=nI\)  
            ParaType = "表格首行" c%hXj#;  
        End If Mb[4_D
c  
        Exit Sub +%,oq]<[,  
    End If *_YR*e0^nN  
     Z]G#:  
    '例外情况：脚注 F.a
G7  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then aACPyfGQ  
        ParaType = "脚注" 1aIGC9xQ`  
        Exit Sub bri8o"  
    End If t7u*j
-YE  
     3{~(_  
    '例外情况：尾注 &}Wi@;G]2
 
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then <EgJm`V  
        ParaType = "尾注" r9N?z2X  
        Exit Sub 7- LjBlH   
    End If b(R.&X  
     R!"|~OO  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then WHv6E!^\_  
        ParaType = "页眉页脚" &xB9;v3
 
        Exit Sub _+aR|AEC  
    End If oz.z>+Q  
     hGrX,.zj  
     @ewi96  
    With regEX j2IK\~W?-  
        .Global = True X>uLGr>  
         1;<Vr<.  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" o[ks-C>jw  
        If regEX.Test(pTEXT) Then d7r!<u&/  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") -hm/lxyU  
            TitleString = regEX.Replace(pTEXT, "$3") WvJ:yUb2  
            TitleNo = regEX.Replace(pTEXT, "$1") /1{
:uh$  
            ParaType = "章" oVZzvK(zR  
            Exit Sub v9r.w-  
        End If wE=I3E%  
         Y7g%nz[[  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" e~(e&4pb  
        If regEX.Test(pTEXT) Then L
-}Uj^yF  
            ParaType = "一级标题" ;qUB[Kw  
            regEX.Execute (pTEXT) [o(!/38"@=  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") j0~c2  
            TitleString = regEX.Replace(pTEXT, "$3") RV{%@1Pu  
            TitleNo = regEX.Replace(pTEXT, "$1") z7:* ,X  
            Exit Sub fg
j$ u  
        End If H<fi,"X^  
         tw<Oy^i  
        '全角或半角括号中的数字 Yl'8" \HF  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" ulW>8bW&  
        If regEX.Test(pTEXT) Then /%,aX[  
            ParaType = "二级标题" Pf%I6bVN9  
            regEX.Execute (pTEXT)
|:#Ug  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") ke;=Vg|  
            TitleString = regEX.Replace(pTEXT, "$5") z a_0-G%C2  
            TitleNo = regEX.Replace(pTEXT, "$2") n.'Ps+G(  
            Exit Sub KFO K%vbM  
        End If L"
dN $ A  
         zb4@U=?w}  
        '阿拉伯数字  1. 2. T{^mh(3/"  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" CEw%_U@8  
        If regEX.Test(pTEXT) Then B[
7,Hy,R  
            ParaType = "三级标题" S&IW]ffK  
            regEX.Execute (pTEXT) #prYZcHv:_  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 '/\*l<  
            TitleString = regEX.Replace(pTEXT, "$3") nIlTzrf6  
            TitleNo = regEX.Replace(pTEXT, "$1") -V~Fj~b#  
            Exit Sub oxeu%wj_  
        End If _6h.<BR  
         ,:J[|9  
        '全角或半角括号中的阿拉伯数字 /Ta-3Eh!  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" oLX[!0M^  
        If regEX.Test(pTEXT) Then
CP2
wg .  
            ParaType = "四级标题" )SZ#%OE*  
            regEX.Execute (pTEXT) S _U |w9q  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") _{#K  
            TitleString = regEX.Replace(pTEXT, "$5") MbInXv$q2/  
            TitleNo = regEX.Replace(pTEXT, "$2") u ynudO  
            Exit Sub @73 kry v  
        End If %{rb,6  
         eXnSH$uI  
        '表格名称 $)KODI>|  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" 5RWqHPw+  
        If regEX.Test(pTEXT) Then wy:Gy9\  
            ParaType = "表格标题" iZ}c[hC'3`  
            regEX.Execute (pTEXT) fB7Jx6   
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) 3o>JJJ=]  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) # T>?g5I  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) VO {z)_  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 g
|3bM  
            Exit Sub z?Z"* z  
        End If  *BM#fe  
         0',buJncV  
        '图片名称 `<v$+mG  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" s1::\&`za  
        If regEX.Test(pTEXT) Then g)$KN,gGuO  
            ParaType = "图片标题" &{<h
Y|%  
            regEX.Execute (pTEXT) O#[bNLV  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") (X\]!'A  
            TitleString = regEX.Replace(pTEXT, "$3") <N~9=g3   
            TitleNo = regEX.Replace(pTEXT, "$1") :5j+^/   
            Exit Sub x;bA \b  
        End If 6qTMHRI  
         pT~3< ,  
        '参考文献 u0=&_Q(=  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 =$y J66e  
        If regEX.Test(pTEXT) Then 5HHf3E [  
            ParaType = "文献条目" O"o|8 l}M/  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") zvq}7,  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") #*y .C[^5{  
            Exit Sub oidK_mU9q  
        End If uZ3do|u m  
         73'AQ")UJ  
        prfx = Left(pTEXT, 2) @VIY=qh  
        If prfx = "注：" Or prfx = "注:" Then =ca[*0^Z7  
            ParaType = "图表注解" M1NdlAAf  
            Exit Sub |1A0YjOD  
        End If ??.aLeF&  
         !Z\Gv1  
         |X XO0  
        ParaType = "正文" 0n
2H7}Uq  
         J| wk})?  
    End With zd$?2y8  
End Sub hPz=Ec<zW  
wM7Iu86  
Sub ConvertListToOrdinary() WH39=)D%u  
    Dim st As Paragraph y*sVimx  
    With ActiveDocument iQ2}*:Jc$  
        For i = .Paragraphs.Count To 1 Step -1 *! 
:j$n;  
            Set st = .Paragraphs(i) M"p%CbcI]  
            lst = st.Range.ListFormat.ListString J[Mj8ee#  
            If lst <> "" Then zx]r.V  
                st.Range.ListFormat.RemoveNumbers oO3^9?Z  
                st.Range.InsertBefore lst & " " {t! &x:  
            End If )h0>e9z>Y  
        Next ge?0>UU;~  
    End With 4t%Lo2v!X%  
    Set st = Nothing 2TB'HNTFx  
End Sub I9xu3izAmR  
DQ/rx`BG  
Private Sub UserForm_Activate() LQ%QFfC  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" - (((y)!  
    Me.lbTotal.Font.Bold = True 9__Q-J  
    Me.txtStatus.Visible = False `\"<%CCe  
    Me.cmdCheck.Enabled = True IOC$jab@  
3 i>NKS  
End Sub [!3cWJCt  
V?.=_T<  
<=6F=u3PtU  
Sub CheckSuperScript() v_U/0 0
  
    Selection.Find.ClearFormatting }TZM@{;  
    Selection.Find.Replacement.ClearFormatting I Ij:3HP  
    With Selection.Find -^`s#0( y^  
        .Text = "[【\[［〖](*)[】\]〗］]" 80g}<Lwc  
        .Replacement.Text = "[\1]" yN`&oya  
        .Replacement.Font.Superscript = True b5]<!~Fv:`  
        '.Replacement.Font.Color = wdColorBlue 8mdVh\i!Kf  
        .Forward = True "0 %fR"  
        .Wrap = wdFindContinue Zon7G6s9`  
        .FORMAT = True +0*\q  
        .MatchCase = False jxm#4  
        .MatchWholeWord = False Dmy=_j?ej  
        .MatchByte = False r|uR!=*|?  
        .MatchAllWordForms = False kiyKL:6D|  
        .MatchSoundsLike = False [9 :9<#?o^  
        .MatchWildcards = True ^q& Rl\  
    End With "O$WfpKX  
    Selection.Find.Execute Replace:=wdReplaceAll PcZ<JJ16F$  
End Sub ^pew'pHQ  
bw/mF5AsW  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Ce}m$k  
    bContinue = False \/S
OpC  
    Set regEX = Nothing a[j]f
v*6  
End Sub tQT<1Q02i  
D'ZUbAh!  
Sub CeateOrModifyStyle() 9$9aBW  
' }Ptv[{q]GE  
' 1~E4]Ef:W  
Dim stl As Style ~(tt.l#  
      %rlqq*  
    Options.Pagination = False 2g5 4<G*e  
     $'d,X@}8  
    On Error Resume Next A Rnq~E@1  
    For Each stl In ActiveDocument.Styles '?.']U,: $  
        stl.Delete ,+h<qBsV@  
    Next $39TP@?:Z)  
    On Error GoTo 0 I H#CaD  
     rc>}3?o  
    Set stl = Nothing Lh-Y5(c o  
     Z<AZO ^  
    DoEvents r
eY
IF*  
    On Error Resume Next
]lyQ*
gM  
     <Pe'&u  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph !@P{s'<:  
     daSx^/$R  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph jZmL7 V  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph 'ta&qp
 
     0i8\Lu6   
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph 1TfFWlf[B  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph 7 u Q +]d  
     ~~"U[G1  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph GJE+sqMX1  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph (Lh!7g/0N  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph ABp8PD  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph @44*<!da  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph VE/m|3%t  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph L$!2<eK  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph P<[) qq@;  
     Jc5YGj7  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph jJvd!,=)  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph =
2rdbq6R  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph @QnKaZ8jW  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph !U2<\!_  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph v;?W|kJ.u  
     99'c\[fd'  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph `\ IaeMvo  
    On Error GoTo 0 pON#r  
    DoEvents 7tJ#0to  
     Vx5fQ mx  
    'BaseStyle qSD`S1'2;  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False GeB-4img  
    With ActiveDocument.Styles("BaseStyle").Font "mU2^4q  
        .NameFarEast = "宋体" _*sd#  
        .NameAscii = "Times New Roman" +G!# /u1  
        .NameOther = "宋体" RHvKWt  
        .Size = 10.5 [GK##z'5  
        .Bold = wdUndefined vg X7B4  
        .Italic = wdUndefined ER&
\2,fZ  
        .Subscript = wdUndefined `{
yI| Wf  
        .Subscript = wdUndefined y!S:d
  
         mrKIiaU<J  
        .Underline = wdUnderlineNone m8b-\^eP7  
        .UnderlineColor = wdColorAutomatic 4T$jY}U  
        .StrikeThrough = False k'e1ZAn  
        .DoubleStrikeThrough = False n++

ak\  
         H0lW gJmi|  
        .Outline = False N^F5J  
        .Emboss = False YB)I%5d;{  
        .Shadow = False >bhF{*t#;y  
        .Hidden = False IvQuxs&a  
        .SmallCaps = False vF@|cTRR)  
        .AllCaps = False :~s*yznf  
        .Color = wdColorAutomatic g.;2N9  
        .Engrave = False As^eL/m2L  
        .Scaling = 100 ##mBO
dx  
        .Kerning = 1 N(J#<;!yb  
        .Animation = wdAnimationNone 9[YnY~z)  
        .DisableCharacterSpaceGrid = False [;-;{ *{G  
        .EmphasisMark = wdEmphasisMarkNone ,.=7{y~  
    End With (+zU!9}I1  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat ?/@XJcm+  
        .LeftIndent = 0 u9c^YCBM  
        .RightIndent = 0 "5N$u(: b  
        .SpaceBefore = 0 =\i%,YY  
        .SpaceBeforeAuto = False l`X?C~JhJ  
        .SpaceAfter = 0  \oGU6h<  
        .SpaceAfterAuto = False @'hkU$N)  
         9]G~i`QQ  
        .LineSpacingRule = wdLineSpaceSingle 9-1 'jNV  
        .Alignment = wdAlignParagraphJustify E/1:4 ?1 S  
         E"/k"1@  
        .WidowControl = False
;8e}X6YU  
        .KeepWithNext = False 3FO-9H  
        .KeepTogether = False 9MQwc  
        .PageBreakBefore = False vs$
.i  
        .NoLineNumber = False 4pcIH5)z  
         /Gb)BJk!  
        .FirstLineIndent = CentimetersToPoints(0) (&V*~OR  
        .OutlineLevel = wdOutlineLevelBodyText ,}>b\(Lk  
        .CharacterUnitLeftIndent = 0 Lew 2Z
 
        .CharacterUnitRightIndent = 0 z([HGq5  
        .CharacterUnitFirstLineIndent = 0 {m,LpI0wG  
        .LineUnitBefore = 0 !VudZ]Sg  
        .LineUnitAfter = 0 LKZ<\% X  
        .AutoAdjustRightIndent = True CSWA/#&8>  
        .DisableLineHeightGrid = True k
xAT  
         wJgGw5  
        .FarEastLineBreakControl = True # M3d=  
        .WordWrap = True 0d~?|Nv -  
        .Hyphenation = False KNP^k$=)3c  
         [(8s\>T  
        .HangingPunctuation = True *U8,Q]gS  
        .HalfWidthPunctuationOnTopOfLine = True W_/$H_04+  
        .AddSpaceBetweenFarEastAndAlpha = True {VM^K1  
        .AddSpaceBetweenFarEastAndDigit = True &g*1
If  
        .BaseLineAlignment = wdBaselineAlignBaseline +zo\#8*0MF  
    End With mB bGj3u;  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False Gcxz$.(  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll J=O_nup6C  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese ,]9p&xu  
    ActiveDocument.Styles("BaseStyle").NoProofing = False JH2-'  
     ^foCcO  
    '一级标题题样式 qI74a F  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") g*4^HbVxt  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" q!5`9u6  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False "18cD5-#  
    With ActiveDocument.Styles("QLNU一级标题").Font fp3`O9+em  
        .NameFarEast = "黑体" CA$|3m9)NM  
        .NameAscii = "Arial Black" F6+4Yy+  
        .NameOther = "黑体" EQHCw<e  
        .Name = "黑体" w#L`|cYCm  
        .Size = 16              '三号 :8+x&zn  
        .Bold = True +^rt48${ y  
        .Italic = wdUndefined 7}&vEc@w&  
        .Subscript = wdUndefined ,^v_gc  
        .Superscript = wdUndefined wYv++< z  
    End With <{Rz1CMc  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat 4VsttT  
         n{m[ j+UG  
        .LeftIndent = CentimetersToPoints(0) s!F8<:FRJD  
        .RightIndent = CentimetersToPoints(0) )7E7K%:b,  
        .FirstLineIndent = CentimetersToPoints(0) Eh9{n,5-  
         tgeXX1Eq!  
        .LineSpacingRule = wdLineSpaceSingle Vm I Afe  
        .Alignment = wdAlignParagraphCenter M 4d4b  
         Nh4&3"g|  
        .WidowControl = True 3Dj>U*fP  
        .KeepWithNext = True t|UM2h  
        .KeepTogether = True FiXE0ZI$0q  
        .OutlineLevel = wdOutlineLevelBodyText 3|URlz  
         nU2w\(3|  
        .LineUnitBefore = 0.5 zE}ry!{   
        .LineUnitAfter = 0.5 AuBBSk8($  
    End With {e[~1]j3  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False ,n>K$  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll 9r
8bSV3`  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese [8WG  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True 6s
!=de  
    DoEvents e> uq/|.!  
     A*]sN8  
    '二级 Ycxv=Et  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 6mIRa(6V  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" \y7\RV>>3b  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False LzEH&y_O  
    With ActiveDocument.Styles("QLNU二级标题").Font J~ z00p`E  
        .NameFarEast = "黑体" Jep/%cT$w  
        .NameAscii = "Arial Narrow" WE /
1h  
        .NameOther = "黑体" V4,\vgGu  
        .Name = "黑体" DsHm,dZ  
        .Size = 15        '小三号 C,<FV+r=^  
        .Bold = False IFF1wfC   
        .Outline = False criNeKa  
        .Italic = wdUndefined [raj: 7yQ  
        .Subscript = wdUndefined /|v b)J  
        .Superscript = wdUndefined I "R<XX  
    End With o7v9xm+  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat m'ZxmsFo  
        .LeftIndent = CentimetersToPoints(0) !(j<Y0xo:  
        .RightIndent = CentimetersToPoints(0) zItGoJu  
        .FirstLineIndent = CentimetersToPoints(0) b0N7[M1Xl  
         [zCKJR  
        .LineSpacingRule = wdLineSpaceSingle
nIUts?mB  
        .Alignment = wdAlignParagraphLeft G*zhy!P  
         ^'b\OUty-  
        .WidowControl = True UH5A;SrTqR  
        .KeepWithNext = True IG:CWPU  
        .KeepTogether = True 7Mh!@Rd_V  
        .PageBreakBefore = False ySlGqR1H  
        .OutlineLevel = wdOutlineLevelBodyText "1Y DT-I"  
         PnI_W84z  
        .LineUnitBefore = 0.5 B6!ni@$M8X  
        .LineUnitAfter = 0.5 >T\^dHtz  
         {Sc *AE&Y  
    End With h4~VzCR4x\  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False H]{`q  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll 9A\\2Zz6F  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese I]91{dq  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True ,A0v 5Q<  
    DoEvents +KP&D.wIo  
     )Tn(!.   
    '三级标题样式 S09Xe_q  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 97}l`z;Z  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" \@ N[  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False %w3tzE1Hq  
    With ActiveDocument.Styles("QLNU三级标题").Font uUv^]B 8GM  
        .NameFarEast = "宋体" axkNy}ct  
        .NameAscii = "Times New Roman" `]/0& S  
        .NameOther = "黑体" t6%zfm   
        .Name = "黑体" O uPfB  
        .Size = 14               '四号 j4(f1  
        .Bold = False qFY>/fCP4  
        .Outline = False M^/ZpKeT"  
        .Italic = wdUndefined _Vt CC
/  
        .Subscript = wdUndefined
~>3#c#[  
        .Superscript = wdUndefined A_.}-dzF  
    End With Bthp_cSmLs  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat ~yRKNH*M  
        .LeftIndent = CentimetersToPoints(0) S<w?,Z  
        .RightIndent = CentimetersToPoints(0) 4(8BWP~.y2  
        .FirstLineIndent = CentimetersToPoints(0) TSRl@QVy  
         u6*0% Km  
        .LineSpacingRule = wdLineSpaceSingle 7VfPS5se  
        .Alignment = wdAlignParagraphLeft J@4 Z+l9  
         GM0pHmC  
        .WidowControl = True =MmAnjo  
        .KeepWithNext = True AASS'H@  
        .KeepTogether = True 0 \o5+  
        .PageBreakBefore = False FaG&U  
        .OutlineLevel = wdOutlineLevelBodyText 92/_!P>  
         AnBD~h h  
        .CharacterUnitLeftIndent = 0 ,esUls'nz'  
        .CharacterUnitRightIndent = 0 ?ViU%t8J5  
        .CharacterUnitFirstLineIndent = 2 _U~~[I  
         9*[!ux7h  
        .LineUnitBefore = 0.5
bW^{I,b<F  
        .LineUnitAfter = 0 S$GWY^5}{  
    End With 4tp}  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False <$` ^  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll q9$K.=_5  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese c 1{nOx  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True Uee$5a>(  
    DoEvents };>~P%u32  
     19\ V@d^  
    '四级标题样式 ~8lB#NuN  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") mbIHzzW>  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" 7{OD/*|  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False #\3X;{  
    With ActiveDocument.Styles("QLNU四级标题").Font hx}X=7w  
        .NameFarEast = "宋体" 6lQP+! EF  
        .NameAscii = "Times New Roman" 0(^N  
        .NameOther = "宋体" Tnnj8I1v  
        .Name = "宋体" ooN?x31  
        .Size = 12               '小四号 )gxZ &n6  
        .Bold = True s`dUie}y<  
        .Outline = False mk3,ke8  
        .Italic = wdUndefined R, UYwI  
        .Subscript = wdUndefined Qf@ha  
        .Superscript = wdUndefined !z+'mF?V+X  
    End With 42PA?^xPw  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat >ZnnGX6$(  
         CYhSCT!-?  
        .LeftIndent = CentimetersToPoints(0) #sf1,k5'  
        .RightIndent = CentimetersToPoints(0) qoC<qn{.a  
        .FirstLineIndent = CentimetersToPoints(0)  KzZRFEA_  
         x\Kt}/97e  
        .LineSpacingRule = wdLineSpaceSingle FBA th !E  
        .Alignment = wdAlignParagraphLeft Fma#`{va  
         OT3
~5j1[  
        .WidowControl = True K'U=);W  
        .KeepWithNext = True \~>7n'd ]  
        .KeepTogether = True #nS crs@  
        .PageBreakBefore = False AK$i0Rn;pm  
        .OutlineLevel = wdOutlineLevelBodyText `M,Gsy1h  
         +!-U+W  
        .CharacterUnitLeftIndent = 0 fRcy$  
        .CharacterUnitRightIndent = 0 wG&rkg";#  
        .CharacterUnitFirstLineIndent = 2 4FJA+  
         AZbFj-^4  
        .LineUnitBefore = 0 3'tq`t:SQ  
        .LineUnitAfter = 0 G;^,T/q47  
         7@!3.u1B  
    End With xL!@$;J  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False ]l=iKl  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll Q
\*zF,ek  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese {$_Gjv  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True
6LzN#g  
    DoEvents Q.l3F3;  
     i[n3ILn  
    '正文校式
w+{ o^O  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") %VO>6iVn  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" xyi4U(;  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False "bvob G
 
    With ActiveDocument.Styles("QLNU正文").Font V6^=[s R  
         h&EF)~G  
        .NameFarEast = "宋体" +)*oPSQ5  
        .NameAscii = "Times New Roman" 5Ln !>,  
        .NameOther = "宋体" v}u
zUY  
        .Name = "宋体" 7,R ~2ss5z  
         xbZR/!?  
        .Size = 12               '小四号 !/EN  
         =O~Y6|  
        .Bold = wdUndefined a)r
T3gl  
        .Italic = wdUndefined A7GWU{i  
        .Subscript = wdUndefined 7vB  6IF  
        .Superscript = wdUndefined \`>f?}4  
         pT<I!
,~  
        .Outline = False ,egbU(:l  
        .Emboss = False ujeN|W  
        .Shadow = False :eR\0cn  
        .Hidden = False b'(Hwc\ t  
         7_
5-gtD  
        .DisableCharacterSpaceGrid = True /wJocx]vQ  
    End With idY Xv)R  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat ZtOv'nTD  
         m=D9V-P  
        .LeftIndent = CentimetersToPoints(0) _>Oc>.MB  
        .RightIndent = CentimetersToPoints(0) VJ-To}  
        .FirstLineIndent = CentimetersToPoints(0) cbv%1DT3  
         iY3TB|tMt  
        .LineSpacingRule = wdLineSpaceExactly [}?E,1Q3  
        .LineSpacing = 20 XGDJCN  
        .Alignment = wdAlignParagraphLeft a}kPc}n\  
         "V<7X%LIX  
        .WidowControl = False /k=krAz.  
        .KeepWithNext = False S+-V16{i  
        .KeepTogether = False D#d \1g  
        .PageBreakBefore = False lN[#+n  
        .Hyphenation = False SM[VHNr,-  
         %ERR^  
        .OutlineLevel = wdOutlineLevelBodyText o65
I(`  
         z_nY>_L83*  
       ?q}:ojrs1  
        .CharacterUnitLeftIndent = 0 W,[iRmxn  
        .CharacterUnitRightIndent = 0 X/A(8rvCr  
        .CharacterUnitFirstLineIndent = 2 {:`XhPS<B  
         qE{L42  
        .LineUnitBefore = 0 KzLkT7,y+  
        .LineUnitAfter = 0 'F Cmbry  
        .SpaceBefore = 0 0Q:l,\lY  
        .SpaceAfter = 0 !+3nlG4cw  
         }ykc AK3U  
        .DisableLineHeightGrid = True _?;74VWA  
    End With 5DVSaI$ =  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False
ST[E$XL6  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll Eyg F,> .4  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese 2%~+c|TH.)  
    ActiveDocument.Styles("QLNU正文").NoProofing = True c- "#  
    DoEvents pw=o
}-P{  
     UZ7ukn-  
    '图片段落样式 j.SE'a_  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") OBnvY2)Ri  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" /3qKsv#  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False  cjf_,x  
    With ActiveDocument.Styles("QLNU图片段落").Font \-{2E  
        .Size = 12               '小四号 ~p\r( B7G  
        .Italic = wdUndefined G5!!^p~  
        .Subscript = wdUndefined n<DZb`/uHZ  
        .Superscript = wdUndefined ic?(`6N8  
    End With +S
g+% 8T  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat eZmwF@  
         G$6mtw6[M  
        .LeftIndent = CentimetersToPoints(0) [yDOvQ[  
        .RightIndent = CentimetersToPoints(0) ;~Q`TWC  
        .FirstLineIndent = CentimetersToPoints(0) ffem7eQ  
         {6HgKI  
        .LineSpacingRule = wdLineSpaceSingle <
y,c.\c!  
        .Alignment = wdAlignParagraphCenter *4[P$k$7  
        .KeepWithNext = True )S|&3
\  
        .OutlineLevel = wdOutlineLevelBodyText @e^(V$ap  
         \NQ[w7  
        .CharacterUnitLeftIndent = 0 2:&QBwr+;  
        .CharacterUnitRightIndent = 0 dp*E#XCr1  
        .CharacterUnitFirstLineIndent = 0 QzV%m0  
         c=4z+_K  
        .LineUnitBefore = 0 F|?}r3{aJ  
        .LineUnitAfter = 0 <ua! ]~  
    End With Vu Ey`c  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False NdM \RD_R  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll <l$ vnq  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese FdS'0#$  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True xgZ<.r  
    DoEvents (iY2d_FQ[  
     5ih5=qX  
     ]1|OQYG  
    '第X章 QTjnXg?Ri  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") B1z7r0Rm,  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" 9Q&]5|x  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False rh6 e  
    With ActiveDocument.Styles("QLNU章节标题").Font F[~~fm_  
        .NameFarEast = "黑体" 4+F@BxpB  
        .NameAscii = "Arial Black" p+^K$w^Cs  
        .NameOther = "Arial Black" !s[
gv1  
        .Name = "黑体" \N)!]jq  
        .Size = 16 O]Q8&(  
        .Bold = True FOS*X  
        .UnderlineColor = wdColorAutomatic fq !CB]C  
        .Outline = False Bn*QT:SKC  
        .Italic = wdUndefined Bh()?{ q  
        .Subscript = wdUndefined ]t_ Wl1*|  
        .Superscript = wdUndefined :qtg`zM/4  
        .Scaling = 100 d"}lh:L9  
        .DisableCharacterSpaceGrid = True hj=k[t|g}  
    End With "VA'W/yv!  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat Cuo"6, M  
        .LineSpacingRule = wdLineSpaceSingle (FSa>  
        .Alignment = wdAlignParagraphCenter XZj3x',;  
        .WidowControl = True sJm v{wM  
        .KeepWithNext = True f:ep~5] G  
        .KeepTogether = True L.%zs  
        .PageBreakBefore = True Dx.hM[  
        .OutlineLevel = wdOutlineLevelBodyText {5JYu  
         8n/[oDc]  
        .LeftIndent = CentimetersToPoints(0) 8FgF6ip  
        .RightIndent = CentimetersToPoints(0) jN!sLW  
        .FirstLineIndent = CentimetersToPoints(0) =Kt!+^\")  
        
/F}dC/W  
        .CharacterUnitLeftIndent = 0 )wk9(|[o  
        .CharacterUnitRightIndent = 0 ^' 4I%L"  
        .CharacterUnitFirstLineIndent = 0 E{[>j'dwc  
         SQDc%I>b  
        .LineUnitBefore = 1 ]NY^0SqM  
        .LineUnitAfter = 0.5 nC#SnyUO  
         o>
yo9n%t  
        .AutoAdjustRightIndent = False /n3SE0Y  
        .DisableLineHeightGrid = True Fhs/<w-  
        .FarEastLineBreakControl = True m0JJPB
p  
        .WordWrap = True "QM2YJ55m`  
    End With s~ g]`/h$r  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False /1?{,Das=  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll be>KG ZU0  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese #kAk d-QY6  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True BqDOo(%1)  
    DoEvents bJFqyK:6  
     , 4@C%  
    '表格标题 L^L.;1  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") kDc/]Zb%  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" j/hm)*\io  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False cEEnR1  
    With ActiveDocument.Styles("QLNU表格标题").Font K9S(Xip  
        .NameFarEast = "楷体" UX)QdT45Mh  
        .NameAscii = "Arial" /5Xt<7vm8  
        .Name = "楷体" NP$ D9#   
        .Size = 10.5 "2`/mtMon  
        .Bold = True {/!Yavx  
        .Underline = wdUnderlineNone fP{IW`t}]  
        .Italic = wdUndefined z#+Sf.  
        .Subscript = wdUndefined cxnEcX\  
        .Superscript = wdUndefined $A>]lL o0  
        .Color = wdColorAutomatic pB,l t6  
    End With HUx-8<ws  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat k(_^Lq f-  
         &}VVr
  
        .LineSpacingRule = wdLineSpaceSingle 7h\U}!   
        .Alignment = wdAlignParagraphCenter ?n
D]p!  
        .KeepWithNext = True q5>!.v   
        .KeepTogether = True dSbz$Fct  
        .OutlineLevel = wdOutlineLevelBodyText h{CyYsQ  
         A
nQUdU  
        .LeftIndent = CentimetersToPoints(0) 6x@4gPy[  
        .RightIndent = CentimetersToPoints(0) P8GGN  
        .FirstLineIndent = CentimetersToPoints(0) *ub"!}$st  
         hIwqSKq9  
        .CharacterUnitLeftIndent = 0 slV]CXW)t  
        .CharacterUnitRightIndent = 0 (_eM:H=e>  
        .CharacterUnitFirstLineIndent = 0 LEY k  
         %6TS_IpJ  
        .LineUnitBefore = 1 U6~79Hnt  
        .LineUnitAfter = 0 (^^}Ke{J  
         U (A#}  
    End With D^A#C<Gs  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False 4J$dG l#f  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll b`|,rfq^AZ  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese T,v5cc:nO  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True cd)}a_9  
    DoEvents `6o5[2V  
k~qZ^9QB~  
    '表格首行 }*vO&J@z  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") sb</-']a  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False M[^EHa<i  
    With ActiveDocument.Styles("QLNU表格首行").Font 0#/Pc`zC  
        .NameFarEast = "楷体" |7b@w;q,D  
        .NameAscii = "Times New Roman" ;i&t|5y~  
        .Name = "楷体" C.+:FY.H  
        .Size = 9 q=+wQ[a<  
        .Bold = True l!%V&HJV  
        .Underline = wdUnderlineNone *m`F-J6U  
        .Italic = wdUndefined =_`cY^ib+  
        .Subscript = wdUndefined =${ImMwj  
        .Superscript = wdUndefined -@/!u 9l  
    End With Z xR  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat b%e7rY2  
        .LineSpacingRule = wdLineSpaceSingle LO)p2[5#R  
        .Alignment = wdAlignParagraphCenter ;%O>=m'4  
         .a}!!\@  
        .LeftIndent = CentimetersToPoints(0) Lg+cHaA  
        .RightIndent = CentimetersToPoints(0) Z%7X"w  
        .FirstLineIndent = CentimetersToPoints(0) qino:_g  
         1|5TuljTd  
         R3E|seR  
        .CharacterUnitLeftIndent = -0.5 KwhATYWQb  
        .CharacterUnitRightIndent = -0.5 )7a 4yTg!~  
        .CharacterUnitFirstLineIndent = -0.5 9HD5A$  
         USbFUHdDc  
        .LineUnitBefore = 0 d&%}u1 .  
        .LineUnitAfter = 0 `B7?F$J  
        .SpaceBefore = 0 tdnd~WSR  
        .SpaceAfter = 0 jYsg'Rl  
         i{k v$ir!  
    End With 3s Mmg`  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False 
nLnzl  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll XF9
9h&;9  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese %?!TqJT?{  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True PfJfa/#pA  
    DoEvents l"9$lF}
 
p i\SRDP  
    '表格内容 )Z63 cr/  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") -FQS5Zb.!  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False sKDL=c;?j  
    With ActiveDocument.Styles("QLNU表格内容").Font DcEGIa
W  
        .NameFarEast = "楷体" '! ~ s=  
        .NameAscii = "Times New Roman" zc!q a"4yM  
        .Name = "楷体" 9f$3{ g{m  
        .Size = 9 tj[-|h  
        .Bold = False ^c:I]_Ww  
        .Underline = wdUnderlineNone H;RgYu2J  
        .Italic = wdUndefined Q=#!wW VP  
        .Subscript = wdUndefined vPx#TXY=b}  
        .Superscript = wdUndefined h ($Jo  
    End With k]yv#Pa  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat #v:A-u  
        .LineSpacingRule = wdLineSpaceSingle / 2h
6  
        .Alignment = wdAlignParagraphCenter <}1GYeP  
         %QX"oRMn0  
        .LeftIndent = CentimetersToPoints(0) l#|M.V6G  
        .RightIndent = CentimetersToPoints(0) opqf)C  
        .FirstLineIndent = CentimetersToPoints(0) | @p  
         qQCds}<w  
        .CharacterUnitLeftIndent = -0.5 Px?0)^"2  
        .CharacterUnitRightIndent = -0.5 XI;F=r}'  
        .CharacterUnitFirstLineIndent = -0.5 B-tLRLWn   
        .LineUnitBefore = 0 fl<j]{*v  
        .LineUnitAfter = 0 6 ('xIE(R  
        .SpaceBefore = 0 [};?;YN  
        .SpaceAfter = 0 IdciGS6t  
    End With ;`FR1KIg  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False >TS=tK  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll +<f!#4T  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese 8PvO_Gz5  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True 1Ewg_/R  
    DoEvents K2-nP2Go?  
420cbD3a  
    '图片标题 B{lL}"++0  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") TX
fG@4~kC  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" wKAxUPzm  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False 5z"[{#/  
    With ActiveDocument.Styles("QLNU图片标题").Font 5!7vD|6  
        .NameFarEast = "楷体" ]V
K9d;0D  
        .NameAscii = "Times New Roman" (:|1h@K/R  
        .Name = "楷体" "IJcKoB  
        .Size = 10.5  fG|+!  
        .Bold = True lsB.>NlU  
        .Underline = wdUnderlineNone LH>h]OTQF  
        .Italic = wdUndefined KL8WT6!RZ  
        .Subscript = wdUndefined  *|)O  
        .Superscript = wdUndefined ;;n=(cM|z  
        .Outline = False W29GM -,K  
        .Shadow = False dx"9jFn  
        .Color = wdColorAutomatic v#$}3+KVC  
    End With =B ts  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat "Kf4v|6;  
        .LineSpacingRule = wdLineSpaceSingle ' g Fewo  
        .Alignment = wdAlignParagraphCenter :c0 |w  
         GlaZZ,   
        .KeepWithNext = wdUndefined +fG~m :E  
        .KeepTogether = True KPdlg.  
        .OutlineLevel = wdOutlineLevelBodyText b
k4G+wGw  
         h
Pr
E  
        .LeftIndent = CentimetersToPoints(0) anFl:=  
        .RightIndent = CentimetersToPoints(0) H]>7IhJ  
        .FirstLineIndent = CentimetersToPoints(0) *ZF:LOnU  
         +!<{80w  
        .CharacterUnitLeftIndent = 0 EtA,ow  
        .CharacterUnitRightIndent = 0 mp17d$R-  
        .CharacterUnitFirstLineIndent = 0 gEnc;q
b  
         U<U?&hB\@  
        .LineUnitBefore = 0 n|!O .+\b  
        .LineUnitAfter = 0 l ?gh7m_ej  
    End With 8Tm/gzx  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False 5 OF*PBZ  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll [jgC`  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese gBE1aw;  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True Ox+}JB [  
    DoEvents $lf\1)B~*  
J*]JH{  
    '目录项 d$v{oC}  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") ;($ 3,d8  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" ;V)94YT  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False 3vF-SgCV  
    With ActiveDocument.Styles("QLNU目录项").Font Tg6nb7@P  
        .NameFarEast = "黑体" dhI+_z   
        .NameAscii = "Times New Roman" S{qn^\0  
        .NameOther = "Times New Roman" x DX_s:A  
        .Name = "黑体" q@iZo,Yk  
        .Size = 10.5 L&qY709  
        .Bold = False
*uMtl'  
        .Italic = wdUndefined o)Nm5g  
        .Underline = wdUnderlineNone [`=:uUf3  
        .Color = wdColorAutomatic R|dSjEs  
        .Superscript = wdUndefined 2T}FX4 '  
        .Subscript = wdUndefined 
vmT6^G  
    End With E0"DHjR  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat Aq{7WA
  
         f'B#h;`  
        .LineSpacingRule = wdLineSpaceSingle -.hH,zm  
        .Alignment = wdAlignParagraphLeft c
eNJXK  
         {;?bC'  
        .WidowControl = False (r$QQO)/  
        .KeepWithNext = False
StM)lVeF  
        .KeepTogether = False "'
mr0G9X  
        .PageBreakBefore = False ?XO}6q<tM  
        .NoLineNumber = False DP4l %2m0  
        .OutlineLevel = wdOutlineLevelBodyText f`_6X~
 p  
         gPr&9pHU  
        .LeftIndent = CentimetersToPoints(0) k{pn~)xg  
        .RightIndent = CentimetersToPoints(0) 5c3&4,,eR  
        .FirstLineIndent = CentimetersToPoints(0) o1@. <Q+}  
         %{^kmlO  
        .CharacterUnitLeftIndent = 0 mS >I#?  
        .CharacterUnitRightIndent = 0 &^@IAjxn  
        .CharacterUnitFirstLineIndent = 0 Y# ?M%I%j  
         v$bR&bCT  
        .LineUnitBefore = 0 |NaEXzo|qY  
        .LineUnitAfter = 0 r2>y !Q?  
    End With cUM#|K#6  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False u^&,~n@n7  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll _D."KU|  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot
/BfCh(B  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese v@ OM  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True w0$l3^}z  
    DoEvents ~n!7 ?4%U  
     Lcy>!3q3~  
    '参考文献 K2t|d[r  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") iVb#X#  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" ?&r>`H E  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False -Khb  
    With ActiveDocument.Styles("QLNU参考文献").Font p?eQ N Y  
        .NameFarEast = "宋体" "AMsBvzgo  
        .NameAscii = "Times New Roman" S:xG:[N@  
        .NameOther = "Times New Roman" ,Y2){8#l  
        .Name = "Times New Roman" &?B\(?*  
        .Size = 12 -xc' P,`  
        .Bold = False Ov8{ny  
        .Italic = wdUndefined /S)&dN`  
        .Subscript = wdUndefined ^W
<uc :L7  
        .Superscript = wdUndefined aFwfF^\(|,  
        .Underline = wdUnderlineNone zd#/zUPI  
        .UnderlineColor = wdColorAutomatic %dA7`7j  
        .Color = wdColorAutomatic cLCzLNyKl  
        .Engrave = False Y%]&h#F  
    End With i C\t@BVS  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat 1dX)l  
         Xu&4 |$wB+  
        .LineSpacingRule = wdLineSpaceExactly <t4l5nr#  
        .LineSpacing = 16 z}*74lhF  
        .Alignment = wdAlignParagraphLeft ?3Dsz  
        .WidowControl = False ?u
/i8  
        .KeepWithNext = False Q5 qQ%cu  
        .KeepTogether = False 6d|%8.q1  
        .PageBreakBefore = False f=* xdOB3  
        .OutlineLevel = wdOutlineLevelBodyText sBD\ ;\I  
         N^&T5cAC  
        .LeftIndent = CentimetersToPoints(0) H1g"09?h6o  
        .RightIndent = CentimetersToPoints(0)
'8bT9  
        .FirstLineIndent = CentimetersToPoints(0) oi}\;TG  
         0qMf6  
        .CharacterUnitLeftIndent = 0 Bc2PF;n  
        .CharacterUnitRightIndent = 0 .=-K7.X.)  
        .CharacterUnitFirstLineIndent = -2 E[E[Za^Y  
         Vch!&8xii  
        .LineUnitBefore = 0 L~xzfO  
        .LineUnitAfter = 0 \.jT"Z~  
        .SpaceBefore = 0 7q,M2v;  
        .SpaceAfter = 0 E>6:59 +  
         /-jk_8@a  
    End With t=oTU,<  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False zhFk84  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll @Xe[5T  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS 
)9JuQ_R  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True 
`jB2'  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese WL5!H.q  
    DoEvents ceP1mO  
} ~#^FFe  
    ' ij~023$DTt  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") 9b*1-1
"  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" #y%?A;  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False nH]F$'rtA  
    With ActiveDocument.Styles("QLNU论文题目").Font zMQ|j_l9E  
        .NameFarEast = "黑体" !t92_y3  
        .NameAscii = "Arial Black" UHW;e}O5  
        .NameOther = "Arial Black" nFfwVqV  
        .Name = "Arial Black" :ift{XR'  
        .Size = 16 w/m~#`a  
        .Bold = False 3Q"4-pd  
        .Italic = wdUndefined 4`+hX'  
        .Superscript = wdUndefined d ;W(Vm6  
        .Subscript = wdUndefined 1ssEJ;#s  
        .Underline = wdUnderlineNone HQl_/:Wx  
        .UnderlineColor = wdColorAutomatic h*-j  
        .Color = wdColorAutomatic +R?d6IjH  
fr<, LC.  
    End With 7lz"^  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat [{!5{k!  
        .LineSpacingRule = wdLineSpaceSingle $di 8#O*  
        .Alignment = wdAlignParagraphCenter d>qxaX;  
        .WidowControl = True }];_ug* "  
        .KeepWithNext = True z!6:Dt6^  
        .KeepTogether = True <xeo9'k6&  
        .PageBreakBefore = True O;*.dR  
        .NoLineNumber = False |J#mgA}(  
        .OutlineLevel = wdOutlineLevelBodyText B?tO&$s  
         -N[Q*;h|  
        .LeftIndent = CentimetersToPoints(0) (l3P<[[?  
        .RightIndent = CentimetersToPoints(0) tkGJ! aUt  
        .FirstLineIndent = CentimetersToPoints(0) sj?7}(s  
         _GK3]F0  
        .CharacterUnitLeftIndent = 0 ] 1<O [d  
        .CharacterUnitRightIndent = 0 5=--+8[ bV  
        .CharacterUnitFirstLineIndent = 0 H:HJHd"W  
         +k4SN  
        .LineUnitBefore = 1 H |iY<7@  
        .LineUnitAfter = 1 kf<5`8  
         4aQb+t,  
        .BaseLineAlignment = wdBaselineAlignAuto ?5L.]Isa5  
    End With 13nXvYo'  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False ?=h{`Ci^ $  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll Fv6<Cz6L  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS o-jF?9m  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True ndIU0kq3  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese W}U-u{Z  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True X%b.] A  
    DoEvents "*E%?MG  
     e-#!3j!'  
    '中文摘要 U3yIONlt  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") 7!E?(3$#"  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" 8+<vumnw  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False gnp\z/'>  
    With ActiveDocument.Styles("QLNU中文摘要").Font Qm X(s  
        .NameFarEast = "宋体"
Sy<s/x^`  
        .NameAscii = "Times New Roman" ~y(-
j[  
        .NameOther = "Times New Roman" p7;/| ]o3  
        .Name = "Times New Roman" L4'FL?~I  
        .Size = 12 Ya)s_Zr7  
        .Bold = wdUndefined " '/$ZpY
 
        .Superscript = wdUndefined Lh5d2 }tcO  
        .Subscript = wdUndefined ^#4?v^QNh  
        .Italic = wdUndefined ,??%["R  
        .Underline = wdUnderlineNone -v(.]`Wo&;  
        .UnderlineColor = wdColorAutomatic 4F+n`{~  
        .Color = wdColorAutomatic l;dZJ_Ut$  
    End With {~"6/L  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat kt;| $  
        .LineSpacingRule = wdLineSpaceExactly WwF4`kxT
 
        .LineSpacing = 20 058+_xX  
        .Alignment = wdAlignParagraphLeft (fjAsbT  
         HwH Wi  
        .WidowControl = False O0gLu1*1v  
        .KeepWithNext = False ~e<v<92Xu  
        .KeepTogether = True  TVP.)%  
        .PageBreakBefore = False bvMa|;f1  
        .NoLineNumber = False Z)zWfv}  
        .OutlineLevel = wdOutlineLevelBodyText |[VtYV _{  
         %?3\gFvBo  
        .LeftIndent = CentimetersToPoints(0) &&;ol}W  
        .RightIndent = CentimetersToPoints(0) bstc|8<  
        .FirstLineIndent = CentimetersToPoints(0) LA.xLU3  
         5Go&+|cvJ  
        .CharacterUnitLeftIndent = 0 r%g?.4o*b  
        .CharacterUnitRightIndent = 0 Ppzd.=E  
        .CharacterUnitFirstLineIndent = 2 -PSI^%TR#  
        .LineUnitBefore = 0 0/."R ;  
        .LineUnitAfter = 0 bt,^-gt@  
         XKU+'Tz  
    End With j:9kJq>mv  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False #D$vH  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll ^vjN$JB  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS ji[O?  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True siHS@S  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese ,rp-`E5ap  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True ;$y(Tvd;  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete ~\%MJ3  
    DoEvents w-%
H\+J  
     7lvUIc?krW  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") q1Si*?2W  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" <z*SO a  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False /IS j0"/$  
    With ActiveDocument.Styles("QLNU英文标题").Font _Z|s!~wdz  
        .NameFarEast = "黑体" Gw$sL&1m\  
        .NameAscii = "Arial Narrow" o[bG(qHZ  
        .Name = "Arial Narrow" y4HOKJxI  
        .Size = 16 e%'$Vx0kA  
        .Bold = True ,f4mFL0~N  
        .Bold = wdUndefined :A,V<Es}I"  
        .Superscript = wdUndefined 6N&S3<c4JO  
        .Subscript = wdUndefined Fs_umy#  
        .Italic = wdUndefined 2@ >04]
 
         _G!lQ)
1  
        .Underline = wdUnderlineNone oOhm`7iy  
        .UnderlineColor = wdColorAutomatic -T4{PM  
        .StrikeThrough = False .oq!Ys4KA  
        .DoubleStrikeThrough = False {P_~_5o_  
    End With -BNlZgk-^  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat AFWcTz6#d  
        .LineSpacingRule = wdLineSpaceSingle $Wy7z^t  
        .Alignment = wdAlignParagraphCenter y#AwuC K  
        .WidowControl = True Q)c$^YsI  
        .KeepWithNext = False NW`.RGLI<  
        .KeepTogether = False aPq9^S*  
        .PageBreakBefore = False a<%WFix  
        .NoLineNumber = False ,x?H]a )  
        .FirstLineIndent = CentimetersToPoints(0) U/2g N H  
        .OutlineLevel = wdOutlineLevelBodyText _$me.  
         }TZ5/zn.Dw  
        .LeftIndent = CentimetersToPoints(0) eiJO;%fl>l  
        .RightIndent = CentimetersToPoints(0) )K8k3]y&  
        .FirstLineIndent = CentimetersToPoints(0) 3:i4DBp,i  
         4'W|'4'b  
        .CharacterUnitLeftIndent = 0 s7CoUd2  
        .CharacterUnitRightIndent = 0 zv]-(<B  
        .CharacterUnitFirstLineIndent = 0 nBd!296  
         \*H/YByTb  
        .LineUnitBefore = 1 j w)Lofn  
        .LineUnitAfter = 1 %($qg-x  
         HM])m>KeT  
    End With YWSo:)LY  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False *Rv e
R?kO  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll R$&|*0  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS "msCiqF{z  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True :>$)Snqo=n  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese A/N$  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True x-0IxWD%  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete b'^OW  
    DoEvents /(w:XTO<  
J<Wz 3}w6  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") ^j?\_r'j  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" 8x jJ  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False #dDsI]E)  
    With ActiveDocument.Styles("QLNU英文摘要").Font q
!k F  
        .NameFarEast = "宋体" *J!oV0#1  
        .NameAscii = "Arial" ujZki.x  
        .NameOther = "Arial" SzR0Mu3uK  
        .Name = "Arial" ,epKt(vl  
        .Size = 12 :".:Wd  
        .Bold = wdUndefined w|x=^  
        .Italic = wdUndefined 22
\Buk}?  
        .Superscript = wdUndefined S<f&?\wK=v  
        .Subscript = wdUndefined )EYsqj  
    End With AC=cz!3iB  
     z= -u89]  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat I?v)>||Q  
         p;:tzH\l  
        .LineSpacingRule = wdLineSpaceExactly oh`I$  
        .LineSpacing = 20 2B_6un];W  
         (}fbs/8\p  
        .Alignment = wdAlignParagraphJustify ^CTgo,uf6H  
         ~4[2{M.0>@  
        .WidowControl = False TRrO-  
        .KeepWithNext = False U`JzE"ps]  
        .KeepTogether = False mD:d,,~  
        .PageBreakBefore = False <
JHU*Z  
        .NoLineNumber = False $V~r*#$.  
         R0;c'W)  
        .OutlineLevel = wdOutlineLevelBodyText rm>;B *;  
         $EbxV"b+  
        .LeftIndent = CentimetersToPoints(0) Eo\#*Cv*  
        .RightIndent = CentimetersToPoints(0) 36JVnW;  
        .FirstLineIndent = CentimetersToPoints(0) pr\yc  
         =iRi9r'l  
        .CharacterUnitLeftIndent = 0 y6'Fi(2yw  
        .CharacterUnitRightIndent = 0 5nr}5bum  
        .CharacterUnitFirstLineIndent = 2 YH^_d3A;  
         ,~FyC_%*  
        .LineUnitBefore = 0 Dn _D6H  
        .LineUnitAfter = 1 (|Am  
         V
-CPq  
    End With !arcQ:T@G  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False Tk9*@
kqv  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll -[s*R%w  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS +~=>72/r  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False k0?4vA  
    DoEvents J={$q1@lq  
g# :|Mjgh  
    Options.Pagination = True L1`^~m|  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." -Q;5A;sr2  
    DoEvents Q;{yIa$ $  
    ActiveDocument.Repaginate ?L#C'Lz2+  
N~ljU;wo-9  
End Sub 2](R}  
?6B)Ek,'X?  
)_b#c+  

姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 YWM$%  
GY<Y,  

引用

引用第20楼newport93于06-14-2010 13:47发表的  : *-Y
77p7u  
5JDqS z{  
老五，I 服了U。 <8!mmOK1  
2Y&z}4'j  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 HGB96,o f9  

|A7Yv