Dim bContinue As Boolean +qsdA#2  
4D\_[(P  
Dim regEX As New RegExp %*}JDx#@  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 >)#*}JI  
0C3Yina9 *  
Dim LastTitle0String As String, LastTitle0No As Long  J|6aa  
Dim LastTitle1String As String, LastTitle1No As Long H7qda'%>  
Dim LastTitle2String As String, LastTitle2No As Long ml?+JbLg0  
Dim LastTitle3String As String, LastTitle3No As Long `;cKN)Xk  
Dim LastTitle4String As String, LastTitle4No As Long Mqw&%dz'_  
Dim LastTitle5String As String, LastTitle5No As Long @gxO%@@  
Dim LastTabelString As String, LastTableNo As Long '^Sa|WXq  
Dim LastFigureString As String, LastFigureNo As Long 9=3V}]^M  
i>)Whr'e8  
Dim strSeperator As String b;soMilz  
;=h^"et  
Sub ConvertWidth(fTEXT As String, rText As String) c$uV8_V  
        Selection.Find.ClearFormatting %HYC-TF#  
        Selection.Find.Replacement.ClearFormatting &rw|fF|]  
        Selection.Find.Wrap = wdFindContinue i7 p#%2  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText ZP%^.wxC  
        DoEvents /#>?wy<s~  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True P.;B V",  
End Sub X*S|aNaLWW  
fVf.u'
.8  
Sub ClearDomain() mhlJzGr*q  
        With Selection.Find @ULr)&9  
            .ClearFormatting krz@1[w-j  
            .Replacement.ClearFormatting zT_{M qY  
            .Wrap = wdFindContinue b.Y[:R_9&  
            Me.txtStatus.Text = "清除所有域代码" }s{zy:1O  
            DoEvents uY
"88|  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False Ap}:^k5{  
        End With |
_O; U=2  
End Sub zKiKda%)  
1q\U (^  
Private Sub cmdCheck_Click() a |z{Bb  
    bContinue = True IUu[`\b=  
    Dim NoSeries1(1 To 16) As String 0JNG\ARC  
    Dim NoSeries2(1 To 16) As String d54>nycU~N  
    Dim NoSeries5(1 To 16) As String &,)9cV /  
    Dim NoSeriesRM(1 To 16) As String P\N`E?lJL  
    Dim paraTotal As Long, ParaText As String W4>8
 
    Dim ttString As String, ttNo As String /}M@ @W  
     3QV|@5L`[  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long A|y&\~<A  
v`Sllv5bV  
    Me.txtStatus.Visible = True >DbG$V<v'  
    Me.lbParaType.Visible = True H.i_,ZF  
    Me.cmdCheck.Enabled = False ,qv
z:a  
     4s"8e]q =  
     {Lq uOC1  
     H%faRUonz  
     d>vGx  
    Dim ParaType As String, rText As String d(To)ly.  
     ~f%gW  
    Selection.WholeStory Q`19YX  
    Selection.NoProofing = True 4qyL' \d[  
     cHJ &a`;  
    tm1 = Now pOH_ CXw  
     e
j! C^  
        ActiveWindow.View.Type = wdNormalView BT#'<!7!  
     2^qY,dL  
    NoSeries1(1) = "一"
Pi+,y  
    NoSeries1(2) = "二" y'4=  
    NoSeries1(3) = "三" +8BH%f}X  
    NoSeries1(4) = "四"  d(v )SS  
    NoSeries1(5) = "五" j/^0q90QO  
    NoSeries1(6) = "六" [IV8  
    NoSeries1(7) = "七" !Rsx)  
    NoSeries1(8) = "八" evszfCH'J  
    NoSeries1(9) = "九" \f{C2d/6j  
    NoSeries1(10) = "十" $orhY D3gv  
    NoSeries1(11) = "十一" 7J>n;8{%?  
    NoSeries1(12) = "十二" 25YJH1x  
    NoSeries1(13) = "十三" }GGFJ"  
    NoSeries1(14) = "十四" 37lmB '~  
    NoSeries1(15) = "十五" SrHRpxy  
    NoSeries1(16) = "十六" u[d8)+VX  
     X.T.^}=  
    NoSeries2(1) = "㈠" X
0U{9zP  
    NoSeries2(2) = "㈡" pazFVzT  
    NoSeries2(3) = "㈢" UTs0=:+,t  
    NoSeries2(4) = "㈣" vhhsOga  
    NoSeries2(5) = "㈤" 3s>&h-E  
    NoSeries2(6) = "㈥" WgxlQXi-B  
    NoSeries2(7) = "㈦" "2=v?,'t  
    NoSeries2(8) = "㈧" ~@sx}u  
    NoSeries2(9) = "㈨" s*]1d*B!  
    NoSeries2(10) = "㈩" ;'vY^I8-L  
     ze#LX4b I  
    NoSeries5(1) = "①" 0kC! v,  
    NoSeries5(1) = "②" ~D
kje  
    NoSeries5(3) = "③" &p4q# p7,  
    NoSeries5(4) = "④" ,GR(y^S  
    NoSeries5(5) = "⑤" a_x|PbD  
    NoSeries5(6) = "⑥" ] YQ*mvI]  
    NoSeries5(7) = "⑦" M:C*?;K:  
    NoSeries5(8) = "⑧" gCwg ;c-  
    NoSeries5(9) = "⑨" *5|\if\  
    NoSeries5(10) = "⑩" TR:D  
     M>T#MDK\(  
     mH}AVje{ `  
    NoSeriesRM(1) = "I" 4H1s"mP<  
    NoSeriesRM(2) = "II" Sf*VkH  
    NoSeriesRM(3) = "III" XM8C{I1  
    NoSeriesRM(4) = "IV" @~a52'\  
    NoSeriesRM(5) = "V" im1]:kr7  
    NoSeriesRM(6) = "VI" `^w5/v#  
    NoSeriesRM(7) = "VII" g<.VW0  
    NoSeriesRM(8) = "VIII" KgKV(q=  
    NoSeriesRM(9) = "IX" ;o8cfD.z  
    NoSeriesRM(10) = "X" g7d)YUc  
    NoSeriesRM(11) = "XI" 0V` /oaW;  
    NoSeriesRM(12) = "XII" zo ]7#  
    NoSeriesRM(13) = "XIII" ^QFjBQ-Hai  
    NoSeriesRM(14) = "XIV" K
UuwScb\  
    NoSeriesRM(15) = "XV" 6o,,w^  
    NoSeriesRM(16) = "XVI" YQ
YN.\  
     -M[5K/[  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) C{Npipd}v  
     '-ACNg Nn  
    If i = vbNo Then yl3iU:+V  
        Exit Sub j4brDlo?@  
    End If QZ{:#iuig  
     -JUv'fk  
    If Me.chkSuper.Value Then tnKzg21%  
        Me.txtStatus.Text = "检查修改所有的上标格式" Lb/a_8<E?  
     UGR5ILf  
        CheckSuperScript L{5zA5#m  
         yil{RfBEr_  
    End If K<|eZhp~  
     B>~E6j7[Mp  
    If Me.chkStyle.Value Then ZC0F:=/K  
        Me.txtStatus.Text = "设置样式，请稍候...." YR[Ii?  
        DoEvents jkPXkysm  
        CeateOrModifyStyle [0IeEjL  
    End If q+LjWZ+O  
     q:nYUW o  
     Em _miU  
     E[_Z%zd^  
    ClearDomain ;%U`lE0  
         \8F$85g  
     P^1rNB  
     qtgj"4,:`  
    If Me.chkLIST.Value Then gk]r:p<O  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" `CHgTkv  
     ]HCt%5  
        ConvertListToOrdinary dd$\Q  
    End If Gm.v-T$  
     nre8 F  
     :l*wf/&z  
    Dim pType As String, trimpTEXT As String 9prG@  
    If Me.chkNum.Value = True Then ;GE0iSC  
        Me.txtStatus.Text = "转换全角数字形式为半角" KE(kR>OB]  
        ConvertWidth "１", "1" o*dhks[  
        DoEvents +%>L;'L ^X  
        ConvertWidth "２", "2" Hj2P|;2S  
        DoEvents uYO?Rb&}  
        ConvertWidth "３", "3" $RF"m"  
        DoEvents a2YdkdjT  
        ConvertWidth "４", "4" /nC"'d(#  
        DoEvents , :kCt=4%  
        ConvertWidth "５", "5" mXa1SZnE
 
        DoEvents y8,es$  
        ConvertWidth "６", "6" -G *u2i_*  
        DoEvents &O!d!Pf  
        ConvertWidth "７", "7" VY![VnHsB  
        DoEvents %*r Pd>*  
        ConvertWidth "８", "8" sY1*WolA  
        DoEvents eH1Y!&`  
        ConvertWidth "９", "9" 8K1+ttjm  
        DoEvents qLPI^g,  
        ConvertWidth "０", "0" J/ rQ42d  
        DoEvents Vxk0oIk`  
        ConvertWidth "ａ", "a" wePMBL1P*  
        DoEvents H[6d@m- Z  
        ConvertWidth "ｂ", "b" (D~mmffY1  
        DoEvents JXvHsCd?  
        ConvertWidth "ｃ", "c" l sUQ7%f  
        DoEvents NGb`f-:jw  
        ConvertWidth "ｄ", "d" r%xNfTa  
        DoEvents 9`vse>,-hg  
        ConvertWidth "ｅ", "e" i&?~QQP`  
        DoEvents Q>z0?%B  
        ConvertWidth "ｆ", "f" ;N4mR6  
        DoEvents 5Pv>`E2^  
        ConvertWidth "ｇ", "g" %`gqV9a  
        DoEvents n}._Nb 5  
        ConvertWidth "ｈ", "h" U(i2j)|^I3  
        DoEvents Ob(j_{m  
        ConvertWidth "ｉ", "i" U;{VL!  
        DoEvents 2U#OBvNU  
        ConvertWidth "ｊ", "j" T>LtN  
        DoEvents j&#p&`B  
        ConvertWidth "ｋ", "k" ,sJ{2,]~  
        DoEvents vguqk!eo4  
        ConvertWidth "ｌ", "l" sb8SG_c.  
        DoEvents  (+Er  
        ConvertWidth "ｍ", "m" ,@>B#%Nz  
        DoEvents H)(Jjk
-O  
        ConvertWidth "ｎ", "n" ?DpM R/  
        ConvertWidth "ｏ", "o" U>:p`@  
        ConvertWidth "ｐ", "p" G%4vZPA  
        ConvertWidth "ｑ", "q" 6%fU}si ,  
        ConvertWidth "ｒ", "r" @Yt[%tOF+  
        ConvertWidth "ｓ", "s" ,rTR |>Z  
        ConvertWidth "ｔ", "t" 'rd{fe_g!  
        ConvertWidth "ｕ", "u" ,',fO?Qv'  
        ConvertWidth "ｖ", "v" |
pJ.
73  
        ConvertWidth "ｗ", "w" V:l; 2rW  
        ConvertWidth "ｘ", "x" ^TB%| yZ _  
        ConvertWidth "ｙ", "y" jPbL3"0A&  
        ConvertWidth "ｚ", "z" "h)+fAT|,  
        ConvertWidth "Ａ", "A" eQYW>z'%,  
        ConvertWidth "Ｂ", "B" >Axe7<l  
        ConvertWidth "Ｃ", "C" [%bshaY:  
        ConvertWidth "Ｄ", "D" /j.V0%  
        ConvertWidth "Ｅ", "E" XSZW9/I-(|  
        ConvertWidth "Ｆ", "F" vO"AJ`_  
        ConvertWidth "Ｇ", "G" mWka!lT  
        ConvertWidth "Ｈ", "H" Be}Cj(C  
        ConvertWidth "Ｉ", "I" ^ *m;![$[  
        ConvertWidth "Ｊ", "J" O0~[]3Y[=  
        ConvertWidth "Ｋ", "K" m4kmJaM  
        ConvertWidth "Ｌ", "L" 6i&WF<%D  
        ConvertWidth "Ｍ", "M" s<^UAdLnl  
        ConvertWidth "Ｎ", "N" cL`l1:j\}  
        ConvertWidth "Ｏ", "O" )|2g#hH5  
        ConvertWidth "Ｐ", "P" B%r)~?6DM  
        ConvertWidth "Ｑ", "Q" 0WYVt"|;}c  
        ConvertWidth "Ｒ", "R" $r_z""eOc  
        ConvertWidth "Ｓ", "S" 1L^\TC  
        ConvertWidth "Ｔ", "T" hQX|wWh  
        ConvertWidth "Ｕ", "U" |@Z QoH  
        ConvertWidth "Ｖ", "V" qt3 \*U7x  
        ConvertWidth "Ｗ", "W" P:CwC"z>sS  
        ConvertWidth "Ｘ", "X" n1!u aUC  
        ConvertWidth "Ｙ", "Y" m~X :KwK4  
        ConvertWidth "Ｚ", "Z" ;i,yT ?so  
        ConvertWidth "^l", "^p" R=PjLH&)  
        ConvertWidth "（", "(" Ba@UX(t  
        ConvertWidth "）", ")" BDcl1f T  
     Q@l3XNH|c  
    End If !5p01]7  
"*TnkFTR  
    With ActiveDocument bD49$N?>  
        Dim tbl As Table H#Vs3*VK  
        For Each tbl In .Tables +fKL

Czj  
            tbl.Rows.Alignment = wdAlignRowCenter HgG"9WBe%  
            tbl.Range.Font.NameFarEast = "楷体" =(@J+Ou  
            tbl.Range.Font.NameAscii = "Times New Roman" #mtlgK'  
            tbl.Range.Font.Size = 10.5 h`jtmhoz  
        Next
R#Ss_y  
        Set tbl = Nothing ~/gqXT">  
    End With i\,#Z
!  
     b/2t@VlL  
     5)EnOT"'  
    With ActiveDocument 9/Q5(P  
         q?\3m3 GM  
        For i = 1 To .TablesOfContents.Count aIJ[K  
            .TablesOfContents(i).Delete K4oLb"gB1  
        Next ~9x$tb x-  
         LoNz 1KJL  
         ]Ub?Wo7F?  
         UG1^G07s  
        paraTotal = .Paragraphs.Count O^`Y>>a  
        paraCounter = 1 KS%xo6k.  
         =1LrU$\  
        LastTitle0No = 0 'p{>zQ\5  
        LastTitle1No = 0 u,/PJg-(!  
        LastTitle2No = 0 ~EdmVEu  
        LastTitle3No = 0 H?O*  
        LastTitle4No = 0 N)&3(A@  
        LastTableNo = 0 |-Y,:sY:  
        LastFigureNo = 0 }X}fX#[  
         Q2iu}~  
        Dim Sec As Long 9n44 *sZ  
         &4p:2,|r9  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) x+^iEj`gk  
        If Sec = 0 Then Riu0;U( \  
            Exit Sub lgre@M]mg  
        End If B;_M52-B  
         %hOe `2#$  
        k = 0 6i>xCb  
        Do While (paraCounter < paraTotal) And bContinue G$`/86A)  
            k = k + 1 Vx?a&{3]
-  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then 3O$Q>.0w/  
                Exit Do -_A0<A.  
            End If ?$8OVq.w,  
            paraCounter = paraCounter + 1 .PxtcC.K  
            If k Mod 20 = 0 Then pGUrYik4  
                Me.lbCounter.Caption = paraCounter .7cQKdvcC  
                DoEvents |?{Zx&yUw  
            End If W!+5}\?  
        Loop N"FQMxqm  
         ~FDJKGK  
         [ tmJ6^s  
        Do While (paraCounter < paraTotal) And bContinue Z wIsEJz  
             lZE x0  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) *`mwm:4  
            ShapeHeight = 0 dp
-8,Seu  
            ShapeWidth = 0 Fe`$mtPu.  
           2sWM(S N  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth 6(X(f;MEl  
             !a4pKN`qLY  
            Select Case ParaType YHg4WW$  
                Case "【】表格内容" e|xRK?aVBu  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" dt;R  
                Case "章" uiO8F*,!&r  
                    LastTitle0No = LastTitle0No + 1 9<,\+}^{  
                    '新一章开始，复位其下属标题编号 qI KVu_  
                    LastTitle1No = 0 CA:t](xqQ  
                    LastTitle2No = 0 8Cwg V  
                    LastTitle3No = 0 c1!h;(&  
                    LastTitle4No = 0 ]6FpUF#<D  
                     -pyTzC$HO  
                    k = Val(ttNo) 42X[Huy]  
                    If k = 0 Then '非数字编号章节 ,zz+s[ZH7O  
                        If ttNo <> NoSeries1(LastTitle0No) Then vvdC.4O  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString (w)Qt/P^4  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText q=g;TAXZl  
                        End If xUzfBn  
                    Else :C>slxY  
                        If Val(ttNo) <> LastTitle0No Then 9?@M Zh  
                            rText = "第" & LastTitle0No & ttString ;v>2z!M  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText /ey}#SHm,  
                        End If
6|["!AUI  
                         JZ80|-c  
                    End If +>37'PD  
                     1j3mTP  
                    '章段落设置 1;g>?18@  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 lYD-
U8  
                    .Paragraphs(paraCounter).Style = "QLNU章节" iv:[]o   
                    .Paragraphs(paraCounter).Range.Select #L[Atx  
                    Selection.EndKey unit:=wdLine O,XVA  
                    tc = Replace(rText, vbCr, "") wVV'9pw}  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False 2;U(r:]  
                Case "一级标题" @ L?7`VoE  
                    LastTitle1No = LastTitle1No + 1 Oz]iHe  
                    '新一级标题开始，复位其下属标题编号 ~#7=gI&p@  
                    LastTitle2No = 0 `3\5&Bf  
                    LastTitle3No = 0 'tp+g3V  
                    LastTitle4No = 0 VbJGyjx  
                     beN0?G  
                    If ttNo <> NoSeries1(LastTitle1No) Then q9F(8-J  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString m03;'Nj'7#  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText Ws.F=kS>h  
                    End If .kGg}  
                   +-K-CXt  
                     #.#T+B+9  
                    '一级标题段落设置  格式：一、标题内容 n1!0KOu/N  
                    .Paragraphs(paraCounter).Range.Text = rText kf.w:X"i  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" w}YO+  
                    .Paragraphs(paraCounter).Range.Select B]0`b1t  
                    Selection.EndKey unit:=wdLine ;NBJ@E,  
                    tc = Replace(rText, vbCr, "") gz Qc  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False d#Ql>Pr Y  
                Case "二级标题" d5UdRX]*  
                    LastTitle2No = LastTitle2No + 1 q>o1kTI  
                    '新二级标题开始，复位其下属标题编号 3zv_q&+8b  
                    LastTitle3No = 0 PzNk:O  
                    LastTitle4No = 0 *)
H?d  
                     ( *UMpdj  
                    If ttNo <> NoSeries1(LastTitle2No) Then E<D45C{DP  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString 7WKb| /#;  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText {3@/@jO?  
                    End If S0,p:Wey  
                     ]Dd=q6  
                    '二级标题段落设置 格式：(一)、标题内容 @a WvN;v  
                    .Paragraphs(paraCounter).Range.Text = rText Q4}2-}|  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" 7_ZfV? .  
                     @e3O=_m-  
                    .Paragraphs(paraCounter).Range.Select ixp(^>ZN  
                    Selection.EndKey unit:=wdLine iO>2#p8$NR  
                    tc = Replace(rText, vbCr, "") FE" ksi 9  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False Z2j M.[hq  
                 cZPv6c_w  
                Case "三级标题" 5fDVJE "9"  
                    LastTitle3No = LastTitle3No + 1 *oKc4S+  
                    '新三级标题开始，复位其下属标题编号 N'=8Dj  
                    LastTitle4No = 0 xW!2[.O5H  
                     0a ZplE,  
                    If Val(ttNo) <> LastTitle3No Then Ihw^g<X  
                            rText = LastTitle3No & ". " & ttString +t,JCY6  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText N>xs@_"o  
                         `o)rAD^e  
                    End If rp{q.fy'U  
                    '三级标题段落设置 格式：1. 标题内容 -Wb/3X  
                    .Paragraphs(paraCounter).Range.Text = rText yiWBIJ2Wu9  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" fiES6
VL  
                    .Paragraphs(paraCounter).Range.Select z~UqA1r  
                    Selection.EndKey unit:=wdLine jV#{8 8  
                    tc = Replace(rText, vbCr, "") \l"1Io=  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False OZB(4{vnyC  
                Case "四级标题" x?y)a9&Hm  
                    LastTitle4No = LastTitle4No + 1 x9p,j  
                     Qis[j-?:  
                    If Val(ttNo) <> LastTitle4No Then `og 3P:y  
                            rText = "(" & LastTitle4No & "). " & ttString bb}|"m.  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText _>S."cm}!k  
                     Uf1i"VY  
                    End If 71Q-_Hi  
                    '四级标题段落设置 格式：(1). 标题内容 :Fm;0R@/k  
                    .Paragraphs(paraCounter).Range.Text = rText 48Vmz  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" M._9/ *C U  
                    .Paragraphs(paraCounter).Range.Select 'n6D3Vse  
                    Selection.EndKey unit:=wdLine 294 0M4  
                    tc = Replace(rText, vbCr, "") -}AAA*P  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False 3#!}W#xv  
                 XcAx@CY9c  
                Case "表格标题" mr,IP=e~  
                    LastTableNo = LastTableNo + 1 4w<U%57  
                     !c4pFQB  
                    If ttNo <> CStr(LastTableNo) Then iLIH |P%  
                            rText = "表" & LastTableNo & ". " & ttString s["8QCd"r  
                            ErrMsg.AddItem "表格编号错误：" & ParaText m+?$cyA>v  
                   2I3MV:5  
                    End If [>U'P1@ql  
                     [:&4Tp*C  
                    '表格名称段落设置 格式：表1. 表格名称 [D=ba=r0X  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" &$
:1rA_v  
                    xe = Replace(rText, vbCr, "") :&S6AP  
                    .Paragraphs(paraCounter).Range.Select g+bc4eU  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 G0Eqo$W)S  
                    Selection.Range.Text = xe 96fbMP+7R  
                    Selection.EndKey ?h2!Z{[0b  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False ifHQ2Ug9  
                 A9`& Wnw?  
                Case "表格首行" )! Jo7SR  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" q@1b{q#C5  
                Case "图片标题" (
 d#E16y  
                    LastFigureNo = LastFigureNo + 1 k2(B{x}L  
                     8 '
M43n  
                    If ttNo <> CStr(LastFigureNo) Then BGh1hyJ8d  
                            rText = "图" & LastFigureNo & ". " & ttString 'avzESe~'  
                            ErrMsg.AddItem "表格编号错误：" & ParaText lZCTthr\  
                   kc Q~}uFB  
                    End If =aX;-
 
                    '图片名称段落设置 格式：图1. 图名称 IlJ!jq  
                    .Paragraphs(paraCounter).Range.Text = rText 2? 9*V19yu  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" {ZP0%M D  
                    .Paragraphs(paraCounter).Range.Select s{#rCc)  
                    Selection.EndKey unit:=wdLine Y@)/iwq  
                    xe = Replace(rText, vbCr, "") 1MkQ$v7m  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False Oi+9kk e  
                Case "正文" UFr ]$m&  
                     '正文名称段落设置 omisfu_~E  
                    .Paragraphs(paraCounter).Style = "QLNU正文" zy^t95/m  
               Case "文献条目" 4^/MDM@  
                    With .Paragraphs(paraCounter) *~YU0o  
                        '.Range.Select j*B,b4  
                        'Selection.ClearFormatting nd_+g2x'  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” ]q~_  
                        .Style = "QLNU参考文献" X0wvOs:  
                    End With
FZf{kWH  
               Case "图表注解" He @d~9M  
                    With .Paragraphs(paraCounter) ,l +lokD-#  
                        .Range.Font.NameFarEast = "楷体" `@!4#3H  
                        .Range.Font.NameAscii = "Times New Roman" j>Ce06G  
                        .Range.Font.Size = 9 '小5号字 #;4<dDVy  
                         plc
z m 2  
                        .Alignment = wdAlignParagraphCenter 8vpB(VxV+  
                        .LeftIndent = 0 Kx==vq%39  
                        .RightIndent = 0 !6{; z/Hy  
                        .FirstLineIndent = 0 1U[Q)(P  
                        .LineSpacing = 12 U.g7'`Z<  
                        .LineSpacingRule = wdLineSpaceExactly w
K>a&`<  
                        .LineUnitAfter = 0 %Bn"/0,  
                        .LineUnitBefore = 0 2_k2t ?   
                        .OutlineLevel = wdOutlineLevelBodyText "ld4v+o8l  
                        .PageBreakBefore = False 4HG;v|Cp  
                        .RightIndent = 0 u*u3<YQ  
                        .WordWrap = True r{R879  
                        .LineUnitAfter = 0.5 m?G@#[ l  
                         eb&#sZ  
                    End With *m)
+|v}  
                Case Else uJhB>/Og  
                    '不作处理 Wwo'pke  
            End Select 1-Jd
Qs6  
             j N":9+F  
            '含有inlineshape的段落处理 @#m@ .   
            If ShapeHeight > 30 Then qtlXDgppO  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 ]@LeyT'cY  
            End If ~U"puEftbs  
             WD.td  
            If (ShapeWidth + ShapeHeight) > 150 Then ;7=pNK  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" "V|&s/9  
            End If wyWe2d  
             <~s{&cL!%#  
            '段落计数器递 hq+j8w}<-  
            paraCounter = paraCounter + 1 P`^3-X/  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter `#J0@ -  
            Me.txtStatus.Text = ParaText X0G6Wp  
            DoEvents {HoeK>rd  
        Loop 4
OX|pa  
    End With t*J*?Ma  
     m/TjXA8_  
    msg = "" "Bn8WT2?  
     ul@G{N{L   
    For i = 0 To Me.ErrMsg.ListCount - 1 L{PH8Xl_  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) Y]MB/\gj  
    Next gkkT<hEV=  
     s9^r[l@W0U  
     uknX py))  
     X$mCn#8m  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg Lh`B5  
    Me.cmdCheck.Enabled = True /<zBjvr%%  
    Me.txtStatus.Visible = True V&e9?5@  
    Me.lbParaType.Visible = False 1j4tR#L  
     Q1hHK'3w  
    bContinue = False fib#)KE  
End Sub SlK6KnX  
pSMF1Oy  
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) [9N
>*dKB  
    Dim pTEXT As String f0!i<9<  
     -(~OzRfYi  
    pTEXT = ChKRange.Text !g|)?XWc  
     r2!\Ts5v  
    ParaType = "其它" y(81| c#  
    TitleString = pTEXT %# M=qP  
    TitleNo = "N/A" hJ|zX  
     ZDn5d%  
    shpCounter = ChKRange.InlineShapes.Count %BBM %Lj  
    If shpCounter <> 0 Then Z@sDxYt9  
        MaxShpHeight = 0: TotalShpWidth = 0 aUZh_<@  
        For i = 1 To shpCounter KNvvYwFH]  
            k = ChKRange.InlineShapes(i).Height pb8sx1 .j;  
            l = ChKRange.InlineShapes(i).Width k9Pwf"m|](  
            If k > MaxShpHeight Then TjDDvXY  
                MaxShpHeight = k naOCa  
            End If Vd%%lv{v  
            TotalShpWidth = TotalShpWidth + l }(MI
}o}  
        Next WK$d<:"  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then =Pj+^+UM  
            Exit Sub nev@ykP6  
        End If )(CZK&<  
    End If I!-"SuBy4J  
     T- ~l2u|s  
    '空行 t_ju[xL5B  
    If Len(pTEXT) <= 2 Then Yf&P|I
iw  
        Exit Sub YL[n85l>1  
    End If ^qR2!fwm<  
     };/;L[,G  
         L<dJWxf?D  
    '是否为表格中的文字 L'A9TW2  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then zvEofK  
        ParaType = "表格内容" z:gp \  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) STln_'DF'  
        If k = 1 Then FUTD/y]Lu  
            ParaType = "表格首行" Sao4MkSz[]  
        End If ."X}A t  
        Exit Sub <A~a|A-QFR  
    End If E!Ljq3iT`  
     )/87<Y;o  
    '例外情况：脚注 esh7*,7-z*  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then ~9ZW~z'  
        ParaType = "脚注" 9I1D'7wI^^  
        Exit Sub 'DeI]IeP  
    End If P
oB-:G6  
     O%m\ Q1  
    '例外情况：尾注 (D5sJ$&E@\  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then u$M,&Om  
        ParaType = "尾注" qz_'v{uAj  
        Exit Sub b aO^Z  
    End If uT :Yh6  
     uPhL?s{  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then Wxeg(L}E  
        ParaType = "页眉页脚" ]wxjd l  
        Exit Sub 7oWT6Qa5  
    End If Nv[MU@Tv  
     >( .GIR  
     lq'MLg  
    With regEX m.6O%jD  
        .Global = True =%=lq0GF0  
         ?:woUTyCv  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" #OMFv.  
        If regEX.Test(pTEXT) Then or<n[<D-C  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") j-$F@p_2F  
            TitleString = regEX.Replace(pTEXT, "$3") VvFMpPi  
            TitleNo = regEX.Replace(pTEXT, "$1") Ez)hArxns  
            ParaType = "章" > a?K![R  
            Exit Sub XK+" x!   
        End If MJ?fMR@  
         _A/q bm  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" gc6Zy|^V4`  
        If regEX.Test(pTEXT) Then |&49YQ  
            ParaType = "一级标题" _/c1b>kcso  
            regEX.Execute (pTEXT) 3u,CI!  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") |$:y8H'J  
            TitleString = regEX.Replace(pTEXT, "$3") #Ch*a.tI@  
            TitleNo = regEX.Replace(pTEXT, "$1") d94Le/E  
            Exit Sub &2P=74\=  
        End If .D8|_B  
         nhdOo
  
        '全角或半角括号中的数字 'X%5i2  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" ]Y.GU7`  
        If regEX.Test(pTEXT) Then q}xYme4  
            ParaType = "二级标题" |d)*,O4s  
            regEX.Execute (pTEXT) d8!yV~Ka  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") N e<D'-  
            TitleString = regEX.Replace(pTEXT, "$5") VZ3{$0 +  
            TitleNo = regEX.Replace(pTEXT, "$2") 14DHU  
            Exit Sub % S vfY{  
        End If m8ApiGG  
         ;}>g/lw  
        '阿拉伯数字  1. 2. (&osR|/Tq  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" hj4mbL  
        If regEX.Test(pTEXT) Then *DUP$@}k  
            ParaType = "三级标题" "ZYdJHM  
            regEX.Execute (pTEXT) Mil+> X0  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 Vu=e|A#  
            TitleString = regEX.Replace(pTEXT, "$3") RW4,j&)  
            TitleNo = regEX.Replace(pTEXT, "$1") t@vVE{`  
            Exit Sub !'qY  
        End If my]t[%Q{  
         c>b!{e@*  
        '全角或半角括号中的阿拉伯数字 \#(tI3  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" }mdk+IEt  
        If regEX.Test(pTEXT) Then Q1[3C(  
            ParaType = "四级标题" yQz6K6p  
            regEX.Execute (pTEXT) G2y
`yg  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") f`W)Z$fN5  
            TitleString = regEX.Replace(pTEXT, "$5") B B9+d"Sq  
            TitleNo = regEX.Replace(pTEXT, "$2") 6k9cvMs%H  
            Exit Sub '#eY4d<i]n  
        End If \?_M_5Nb  
         &l8eljg  
        '表格名称 rgw@  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" -_?U/k(Hi  
        If regEX.Test(pTEXT) Then (~IoRhp^  
            ParaType = "表格标题" N|5fkx<d^  
            regEX.Execute (pTEXT) 3 BQZ[%0@  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) [C^&iLX/F*  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) V] 0T P#  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) zB68%  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 oniVC',  
            Exit Sub .+d.~jHX  
        End If ascY E  
         x@LNjlP  
        '图片名称 eHl)/='  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" cp
_<y)__  
        If regEX.Test(pTEXT) Then /?Y]wY  
            ParaType = "图片标题" <y2HzBC  
            regEX.Execute (pTEXT) p6c&vEsNj  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") 8\VP)<<  
            TitleString = regEX.Replace(pTEXT, "$3") [X "pOz  
            TitleNo = regEX.Replace(pTEXT, "$1") w
rhGZ=k{  
            Exit Sub Z#NEa.]  
        End If H.)Y*zK0.  
         n@te.,?A"  
        '参考文献 M 8NWQ^Y  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 e 2_p7   
        If regEX.Test(pTEXT) Then +ktubJ@Qgj  
            ParaType = "文献条目" =THRyZCH  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") =nff;Xu  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") 4Q17vCC*n  
            Exit Sub Dbg,|UH  
        End If X#Sgf|$  
         qokCVI-\  
        prfx = Left(pTEXT, 2) /UG]hJ-wn  
        If prfx = "注：" Or prfx = "注:" Then |> zYUT[V  
            ParaType = "图表注解" YAP,#a  
            Exit Sub /6{P ?)]pE  
        End If M* 0zvNg  
         93VbB[w~7F  
         ?RPVd8PUhN  
        ParaType = "正文" uA[c $tBe  
         e.VQ!)>  
    End With +4g H=6  
End Sub (jp!q,)  
f`K[oCfu  
Sub ConvertListToOrdinary() ^JMO POm  
    Dim st As Paragraph b!4Z~d0=  
    With ActiveDocument ;k:17&:8ue  
        For i = .Paragraphs.Count To 1 Step -1 6>NK2} `  
            Set st = .Paragraphs(i) M.oH,Kd6  
            lst = st.Range.ListFormat.ListString [[7=rn}@<  
            If lst <> "" Then wTe 9OFv  
                st.Range.ListFormat.RemoveNumbers d=C&b]  
                st.Range.InsertBefore lst & " " 1:;S6
{oQ  
            End If 8|) $;.  
        Next OK" fFv  
    End With BVzMgn ;  
    Set st = Nothing rbl7-xhC7
 
End Sub Ib(G!oO:E-  
s H(io  
Private Sub UserForm_Activate() =&t]R? F  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" !O 0{ .k  
    Me.lbTotal.Font.Bold = True &dky_H  
    Me.txtStatus.Visible = False
1k0*WCfZ  
    Me.cmdCheck.Enabled = True i4}+n^oSYo  
,(3oAj\  
End Sub )]tf|Mbu  
[x{Ai( /T^  
XGb*LY+Db6  
Sub CheckSuperScript() 
br,xwc  
    Selection.Find.ClearFormatting -!QVM\t  
    Selection.Find.Replacement.ClearFormatting ]o?r( 1  
    With Selection.Find cd._q2  
        .Text = "[【\[［〖](*)[】\]〗］]" L_sDbAT~<  
        .Replacement.Text = "[\1]" z'&tmje[?  
        .Replacement.Font.Superscript = True Y !%2vOt  
        '.Replacement.Font.Color = wdColorBlue R~"&E#C  
        .Forward = True e'|IRhr  
        .Wrap = wdFindContinue 8RA  
        .FORMAT = True 3}2;*:p4Y  
        .MatchCase = False 7 -S?U~s  
        .MatchWholeWord = False Y[0mTL4IO  
        .MatchByte = False 25Uw\rKeO  
        .MatchAllWordForms = False /hS
Em.<  
        .MatchSoundsLike = False HChlkj'7w0  
        .MatchWildcards = True 1|dXbyUd  
    End With (Xl+Zi>\{  
    Selection.Find.Execute Replace:=wdReplaceAll yu}yON  
End Sub | Di7,$c  
b5)a 6qtb  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) :MihVLF  
    bContinue = False 7{lWg x  
    Set regEX = Nothing }2hU7YWt  
End Sub 43,baeG  
B|K^:LUk9  
Sub CeateOrModifyStyle() WX* uhR  
'  r m  
' : G'a
"%x  
Dim stl As Style VDFs
.;:s  
     VHm.uL_UW  
    Options.Pagination = False zJ30ZY:  
     1hY%ZsjC  
    On Error Resume Next /:@)De(S  
    For Each stl In ActiveDocument.Styles |Ae7wXOs  
        stl.Delete wx8Qz,Z  
    Next &LYH  >  
    On Error GoTo 0 8ly6CP+^B  
      WH_ W:  
    Set stl = Nothing _<%YLv  
      ]&OI.p  
    DoEvents >rXDLj-e  
    On Error Resume Next w0X})&,{`m  
     ~"VM_Lz]5  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph Vg(FF"  
     3b?8<*  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph k$|g) [RE  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph t|m=X  
     zF@[S  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph .hRtQU  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph \h/)un5  
     T3NH8nH9"z  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph dpvEY(Ds  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph 9aBz%* xo  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph E[Q2ZqhgbP  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph 1i&|}"  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph []G@l. ]W  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph 'Q"Mu  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph Rn*@)5  
     Q`!^EyRA:^  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph VwKfM MI8  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph ++ZP X'|  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph vNHvuwK  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph f#McTC3C  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph hmB`+?,z*  
     2cjbb kq  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph NJCSo(O  
    On Error GoTo 0 n_(f"Uv  
    DoEvents :_|Xr'n`A  
     hkOFPt&  
    'BaseStyle PqMu2 e  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False 2^%O%Pc  
    With ActiveDocument.Styles("BaseStyle").Font g:s|D hE[  
        .NameFarEast = "宋体" M8R/a[ -A  
        .NameAscii = "Times New Roman" lNz1|nS(Kd  
        .NameOther = "宋体" \]0#jI/:  
        .Size = 10.5 h_Ssm{C\  
        .Bold = wdUndefined E|A~T7G=  
        .Italic = wdUndefined +; ,X?E]g  
        .Subscript = wdUndefined D?FmlDTr[  
        .Subscript = wdUndefined OF0v0Y/a  
         hU3sEOm>  
        .Underline = wdUnderlineNone 7 lSR  
        .UnderlineColor = wdColorAutomatic `CRF E5  
        .StrikeThrough = False @RZbo@{~  
        .DoubleStrikeThrough = False 6_&S ?yA  
         " {X0&  
        .Outline = False pfR~?jYzm  
        .Emboss = False hC4 M}(XM  
        .Shadow = False LYr9a(  
        .Hidden = False P%;lHC #i  
        .SmallCaps = False ;xL8W  
        .AllCaps = False mQ9y{}t=4  
        .Color = wdColorAutomatic $Wu|4]o>9  
        .Engrave = False 5me#/NqLHY  
        .Scaling = 100 .X5A7 m  
        .Kerning = 1 A;k#8&;  
        .Animation = wdAnimationNone LLL;SNY  
        .DisableCharacterSpaceGrid = False {v"Y!/ [z  
        .EmphasisMark = wdEmphasisMarkNone u2OrH3E4E3  
    End With ,$Cr9R&/  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat Yx&d\/9  
        .LeftIndent = 0 H<tU[U=G  
        .RightIndent = 0 NHcA6y$Cz  
        .SpaceBefore = 0 p|em_!H"SH  
        .SpaceBeforeAuto = False _>bk'V7  
        .SpaceAfter = 0 b2H-D!YO^  
        .SpaceAfterAuto = False l.(|&U~  
         22*~CIh~x  
        .LineSpacingRule = wdLineSpaceSingle wq|7sk{  
        .Alignment = wdAlignParagraphJustify @;tM R|p  
         ~iPXn1  
        .WidowControl = False N8DouD q  
        .KeepWithNext = False CzIs_/  
        .KeepTogether = False {Iz"]Wh<f  
        .PageBreakBefore = False +6x}yc:yd  
        .NoLineNumber = False _S,UpR~2W  
         G#~U\QlG-  
        .FirstLineIndent = CentimetersToPoints(0) ?zf 3AZ9  
        .OutlineLevel = wdOutlineLevelBodyText R8 LHwRQ  
        .CharacterUnitLeftIndent = 0 C~WWuju'  
        .CharacterUnitRightIndent = 0 k7& cc|y  
        .CharacterUnitFirstLineIndent = 0 /Ny#+$cfk  
        .LineUnitBefore = 0 Fkg%_v$  
        .LineUnitAfter = 0  ??P%.  
        .AutoAdjustRightIndent = True 2St<m-&  
        .DisableLineHeightGrid = True pgs<Mo$\%B  
         jZH4]^De  
        .FarEastLineBreakControl = True \t%iUZ$  
        .WordWrap = True +-T|ov<  
        .Hyphenation = False P$]
K  
         4];>
O  
        .HangingPunctuation = True sm{/S*3  
        .HalfWidthPunctuationOnTopOfLine = True d
)0|Q  
        .AddSpaceBetweenFarEastAndAlpha = True $wyPGok  
        .AddSpaceBetweenFarEastAndDigit = True hkRqtpYK  
        .BaseLineAlignment = wdBaselineAlignBaseline P4LiU2C  
    End With BY9Z}/{j  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False "YAnGGx)LZ  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll <g&.UW4  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese !K+hXQE1  
    ActiveDocument.Styles("BaseStyle").NoProofing = False
do9~#F  
     #xfav19{.  
    '一级标题题样式 ,J
=lHj  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ~
pHuh#>  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" ,fhF-%Q!g  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False &-!$qUli  
    With ActiveDocument.Styles("QLNU一级标题").Font ("YWJJ'H  
        .NameFarEast = "黑体" BSy{"K*M  
        .NameAscii = "Arial Black" fQ
1Dp  
        .NameOther = "黑体" ; K,5qs  
        .Name = "黑体" a|(|!=  
        .Size = 16              '三号 #M<YNuE#"  
        .Bold = True o+L[o_er  
        .Italic = wdUndefined ArScJ\/Nwv  
        .Subscript = wdUndefined ,L MN@G  
        .Superscript = wdUndefined I2-ue 63 ?  
    End With 2`rJ
r  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat qO/3:-  
         hgbf"J6V8  
        .LeftIndent = CentimetersToPoints(0) S<jiy<|`  
        .RightIndent = CentimetersToPoints(0) VrWQ]L  
        .FirstLineIndent = CentimetersToPoints(0) i '10qWz  
         4TyzD%pOw  
        .LineSpacingRule = wdLineSpaceSingle JDW/Mc1bh  
        .Alignment = wdAlignParagraphCenter {c~w Ms#  
         =nO:R,U  
        .WidowControl = True  FLZ9Rg  
        .KeepWithNext = True [e_<UF@A*  
        .KeepTogether = True ,Vl2U"   
        .OutlineLevel = wdOutlineLevelBodyText %zo 6A1Q;  
         g}IOHE  
        .LineUnitBefore = 0.5 q#1G4l.  
        .LineUnitAfter = 0.5 !/ dH"h  
    End With !E|R3 eX_  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False H0jbG;  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll -d thY(8  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese aHb&+/HZ  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True _v(5vx_ {  
    DoEvents fqBz"l>5A  
     eCWF0a  
    '二级 2b
G92  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") :S}ZF$ $j%  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" q(csZ\e=  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False 6pt|Crvu
 
    With ActiveDocument.Styles("QLNU二级标题").Font tc{l?7P  
        .NameFarEast = "黑体" ';}:*nZ//_  
        .NameAscii = "Arial Narrow" <FAbImE}  
        .NameOther = "黑体" |onLJY7)  
        .Name = "黑体"
H=w6  
        .Size = 15        '小三号  w%::
~]  
        .Bold = False CEBu[TT/9  
        .Outline = False ~*J <lln  
        .Italic = wdUndefined TU;AO%5  
        .Subscript = wdUndefined K:% MhH-  
        .Superscript = wdUndefined #DARZhU)  
    End With @=2u;$.  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat !T2{xmHKv$  
        .LeftIndent = CentimetersToPoints(0) "kC
6G%  
        .RightIndent = CentimetersToPoints(0) atW^^4:  
        .FirstLineIndent = CentimetersToPoints(0) }gFa9M<  
         rCsC}2O  
        .LineSpacingRule = wdLineSpaceSingle g-,lY|a  
        .Alignment = wdAlignParagraphLeft HR?bnkv|id  
         =M9R~J!  
        .WidowControl = True =T#hd7O`V  
        .KeepWithNext = True \Ui8gDJ8y5  
        .KeepTogether = True ]HB1JJiS~  
        .PageBreakBefore = False 1]Cbi7  
        .OutlineLevel = wdOutlineLevelBodyText Y]Z&  
         .Wr7*J[V.  
        .LineUnitBefore = 0.5 Q&lb]U+\u  
        .LineUnitAfter = 0.5 [mNum3e  
         W7(5z  
    End With kw} E0uY  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False I Wm@pfC+g  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll LpI4R  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese .JTRFk{W  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True :'xZF2  
    DoEvents c}|}
o^  
     ^uphpABpD  
    '三级标题样式 4^k8|#c  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") LE~vSm^#  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" D=Nt0y  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False r\}?HS06  
    With ActiveDocument.Styles("QLNU三级标题").Font !I\eIV>0b  
        .NameFarEast = "宋体" 2pvby`P4  
        .NameAscii = "Times New Roman" dcTZL$  
        .NameOther = "黑体" tOte [~,  
        .Name = "黑体" LN5BU,4=  
        .Size = 14               '四号 u\ /TR#b  
        .Bold = False UtC<TBr  
        .Outline = False F>^KXq:Z  
        .Italic = wdUndefined $=#Lf[|f=  
        .Subscript = wdUndefined r _FI5f  
        .Superscript = wdUndefined .:
4*HB  
    End With 1
f1D^|  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat Jr%F#/  
        .LeftIndent = CentimetersToPoints(0) v~W ;&{  
        .RightIndent = CentimetersToPoints(0) OoRg:"9{#  
        .FirstLineIndent = CentimetersToPoints(0) *_mER`  
         eD3\>Y.z  
        .LineSpacingRule = wdLineSpaceSingle 8G2QI4  
        .Alignment = wdAlignParagraphLeft f3^qO 9R  
         vO53?vN[m9  
        .WidowControl = True j^v<rCzc(  
        .KeepWithNext = True kGC*\?<LmR  
        .KeepTogether = True |`kkmq  
        .PageBreakBefore = False B*E"yB\NV  
        .OutlineLevel = wdOutlineLevelBodyText I,05'edCQ  
         k {vd1,HZ  
        .CharacterUnitLeftIndent = 0 8kr$w$=q  
        .CharacterUnitRightIndent = 0 wDSwcNS  
        .CharacterUnitFirstLineIndent = 2 7xY&7 x(v  
         68w~I7 D>  
        .LineUnitBefore = 0.5 DZLEx{cm  
        .LineUnitAfter = 0 9i lJ  
    End With HRQfT>"/  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False lqgR4
!  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll +?*.Emzl@  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese $ %|b6Gr/&  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True x^i97dZS^"  
    DoEvents '66nqJb*  
     Jt0/*^'  
    '四级标题样式 XMykUr e|  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") n5efHJU  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" W5e>Z&&  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False ;Jb%2?+=!  
    With ActiveDocument.Styles("QLNU四级标题").Font gz uWhQo  
        .NameFarEast = "宋体" h,-i\8gq  
        .NameAscii = "Times New Roman" 4~&X]/_'  
        .NameOther = "宋体" !,{N>{I  
        .Name = "宋体" :cIPX%S  
        .Size = 12               '小四号 (CtRU  
        .Bold = True <0m^b#hdG  
        .Outline = False 1}SON4U  
        .Italic = wdUndefined PR AP~P&^  
        .Subscript = wdUndefined T,Q7 YI  
        .Superscript = wdUndefined 3u 7A(  
    End With :oYSvK7>  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat %KN2iNq  
         @3 +   
        .LeftIndent = CentimetersToPoints(0) 0LP0q9S:9  
        .RightIndent = CentimetersToPoints(0) 9eE FX7  
        .FirstLineIndent = CentimetersToPoints(0) #7sxb  
         rf 60'  
        .LineSpacingRule = wdLineSpaceSingle t$p%UyVE  
        .Alignment = wdAlignParagraphLeft -UAMHd}4  
         0F6@aQ\y3  
        .WidowControl = True 53.jx38xS  
        .KeepWithNext = True .QA1'_9  
        .KeepTogether = True ,`'A"]"  
        .PageBreakBefore = False O<mA+yk  
        .OutlineLevel = wdOutlineLevelBodyText BZKg:;9  
         bE=[P}E  
        .CharacterUnitLeftIndent = 0 L_+Fin  
        .CharacterUnitRightIndent = 0 [#SO}'1n  
        .CharacterUnitFirstLineIndent = 2 n=0^8QQ  
         UF\k0oLz  
        .LineUnitBefore = 0 1W-kZ(e  
        .LineUnitAfter = 0 +afkpvj8  
         h/y0Q~|/d  
    End With }5z!FXB  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False {j<?+o5A  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll /QCg E~  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese N6T  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True 33 a}M;vx  
    DoEvents `K[r5;QFKf  
     cRCji^,KJ  
    '正文校式 JDp=w,7LF  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") /,j'Vr\"  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" 7Up-a^k^`  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False D5xTuv9T  
    With ActiveDocument.Styles("QLNU正文").Font \f VX<L  
         Yt_t>  
        .NameFarEast = "宋体" ep`8LQf  
        .NameAscii = "Times New Roman" 6/p9ag]  
        .NameOther = "宋体" EG_P^<z  
        .Name = "宋体" QW_v\GHx  
         $]W*;MTI}  
        .Size = 12               '小四号 5p-vSWr!  
         7TU77  
        .Bold = wdUndefined xc05G
J  
        .Italic = wdUndefined q1 BpE8  
        .Subscript = wdUndefined HCYy9  
        .Superscript = wdUndefined !c0x^,iE  
         [Z;H=`  
        .Outline = False X'%BS  
        .Emboss = False 9Uz2j$p7  
        .Shadow = False Jvj* z6/a  
        .Hidden = False a W;)-0+  
         _j{)%%?r  
        .DisableCharacterSpaceGrid = True 9KT85t1#  
    End With P!)F1U]!  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat C\;%IGn  
         {}gL*2:EW$  
        .LeftIndent = CentimetersToPoints(0) &N3a`Ua  
        .RightIndent = CentimetersToPoints(0) vfVF^ WOd  
        .FirstLineIndent = CentimetersToPoints(0) qC=ZH#  
         kFT*So`'  
        .LineSpacingRule = wdLineSpaceExactly '!4\H"t  
        .LineSpacing = 20 BvHI}=  
        .Alignment = wdAlignParagraphLeft !+YSc&R_fW  
         EpCNp FQT<  
        .WidowControl = False xk,1D
 
        .KeepWithNext = False :9q|
<[Y^  
        .KeepTogether = False
V1,~GpNx  
        .PageBreakBefore = False JE@3UXg
  
        .Hyphenation = False 31%3&B:Ts  
         nDLiER;U  
        .OutlineLevel = wdOutlineLevelBodyText yM(
ezb  
         ;2MdvHhz1  
       ?i!d00X  
        .CharacterUnitLeftIndent = 0 YluvWHWi  
        .CharacterUnitRightIndent = 0 9I#a{%A:  
        .CharacterUnitFirstLineIndent = 2 !>+m46A  
         5g'aNkF6>  
        .LineUnitBefore = 0 O`PQ4Q*F  
        .LineUnitAfter = 0
dDA&\BuS  
        .SpaceBefore = 0 .Rb1 %1bdc  
        .SpaceAfter = 0 Pp4Q)2X  
         G[fg!vig#7  
        .DisableLineHeightGrid = True )U0I|dx  
    End With Q'j00/K  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False yV6U<AP$3  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll V4
W(>g  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese o?3C-A|  
    ActiveDocument.Styles("QLNU正文").NoProofing = True NID2$p  
    DoEvents :g-vy9vb  
     &4M,)Q (  
    '图片段落样式 QYAt)Ik9q  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") MRK3Cey}%  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" - s{&_]A~  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False 83'rQDo)G  
    With ActiveDocument.Styles("QLNU图片段落").Font 'g}Q@@b  
        .Size = 12               '小四号 G!Y7RjWD  
        .Italic = wdUndefined mVK^gJ3  
        .Subscript = wdUndefined D6\k}4n-  
        .Superscript = wdUndefined wLg @BSC.  
    End With k^s7s{  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat Np.<&`p!  
         +4D#Ht7  
        .LeftIndent = CentimetersToPoints(0) [Z1,~(3  
        .RightIndent = CentimetersToPoints(0) K8QEHc:  
        .FirstLineIndent = CentimetersToPoints(0) iRv\:.aQ.  
         z}*L*Sk  
        .LineSpacingRule = wdLineSpaceSingle v
|jwz.jM  
        .Alignment = wdAlignParagraphCenter y>r^ MQ  
        .KeepWithNext = True m8gU8a"(  
        .OutlineLevel = wdOutlineLevelBodyText c.>Ops F  
         N]|)O]/[  
        .CharacterUnitLeftIndent = 0 Gq?>Bi;`  
        .CharacterUnitRightIndent = 0  %Rm
`YH?  
        .CharacterUnitFirstLineIndent = 0 w'mn O'%  
         i^4i]+  
        .LineUnitBefore = 0 x51xY$
M  
        .LineUnitAfter = 0 vv`53 Pbw)  
    End With Ro2!$[P
 
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False 92*"3)
  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll )M56vyo  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese `YBHBTG'o!  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True FuFICF7+C  
    DoEvents )G#O#Yy
  
     e4.G9(  
     @ "CP@^  
    '第X章 >bO}s
x1?  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") t-]~^s  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" 9~l8Qa
K  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False &>ykkrY  
    With ActiveDocument.Styles("QLNU章节标题").Font VrT0S  
        .NameFarEast = "黑体" SK ,UW6h  
        .NameAscii = "Arial Black" rC,ZRFF  
        .NameOther = "Arial Black" RNcnE1=  
        .Name = "黑体" &iJvkt  
        .Size = 16 99b"WH^3$y  
        .Bold = True }|c-i.0=
 
        .UnderlineColor = wdColorAutomatic zWF[cf>'  
        .Outline = False S3c%</'  
        .Italic = wdUndefined C }:_&^DQ  
        .Subscript = wdUndefined o'YK\L!p  
        .Superscript = wdUndefined ? 8S~R  
        .Scaling = 100 >[P`$XkXd4  
        .DisableCharacterSpaceGrid = True H1 vToIP%  
    End With =Zaw>p*H  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat .bRDz:?j  
        .LineSpacingRule = wdLineSpaceSingle U/\LOIs  
        .Alignment = wdAlignParagraphCenter 5j5}c`:  
        .WidowControl = True N_VWA.JHt  
        .KeepWithNext = True <2^ F'bQV  
        .KeepTogether = True dQNW1-s  
        .PageBreakBefore = True U{9yfy  
        .OutlineLevel = wdOutlineLevelBodyText  LD}<|  
         9tCF m.m  
        .LeftIndent = CentimetersToPoints(0) ^VjF W  
        .RightIndent = CentimetersToPoints(0) uC 2
{ Mmy  
        .FirstLineIndent = CentimetersToPoints(0)  `EVy  
         "?"+1S  
        .CharacterUnitLeftIndent = 0 bp P 3#~ K  
        .CharacterUnitRightIndent = 0 #ePtfRzJ  
        .CharacterUnitFirstLineIndent = 0 ;\Pq  
         KFM)*Icg\8  
        .LineUnitBefore = 1 okbW. ~  
        .LineUnitAfter = 0.5 u#$sO;8s  
         ]sB%j@G  
        .AutoAdjustRightIndent = False  ;W@  
        .DisableLineHeightGrid = True {9nH#yv  
        .FarEastLineBreakControl = True _Oc\hW  
        .WordWrap = True &^B;1ZMHD  
    End With (.g?|c  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False QY1|:(  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll =UZQ` {  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese PD:lI]:s  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True n55s7wzM  
    DoEvents !L@a ;L  
     [|L~" BB  
    '表格标题 H4ancmy  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") E*}1_,q)  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" NHaqT@:  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False 1@^*tffL:  
    With ActiveDocument.Styles("QLNU表格标题").Font 7x(z  
        .NameFarEast = "楷体" YH0utc  
        .NameAscii = "Arial" }#`-mRaU  
        .Name = "楷体" ygqWy1C  
        .Size = 10.5 R]TS5b-  
        .Bold = True XILreATK@  
        .Underline = wdUnderlineNone iE"+-z\U  
        .Italic = wdUndefined K5\;'.9M  
        .Subscript = wdUndefined :g)`V4%  
        .Superscript = wdUndefined Twk,R. O  
        .Color = wdColorAutomatic :b(Nrj&TQ[  
    End With "!PN+gB  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat l3YS_WBSn  
         bN>|4hS  
        .LineSpacingRule = wdLineSpaceSingle )'$'?Fn  
        .Alignment = wdAlignParagraphCenter 9Pdo l!  
        .KeepWithNext = True -1]8f  
        .KeepTogether = True Yj*!t1qm  
        .OutlineLevel = wdOutlineLevelBodyText |6Qn/N$+f  
         a,?u 2  
        .LeftIndent = CentimetersToPoints(0) jg(cpo d  
        .RightIndent = CentimetersToPoints(0) ~J|B  
        .FirstLineIndent = CentimetersToPoints(0) S&Sa~Oq<o  
         *<ww~^a  
        .CharacterUnitLeftIndent = 0 p+xjYU4^C  
        .CharacterUnitRightIndent = 0 JcW<<7R  
        .CharacterUnitFirstLineIndent = 0 '2S?4Z  
          Y?IXV*J  
        .LineUnitBefore = 1 oP`Qyk  
        .LineUnitAfter = 0 Iv>4o~t  
         x I(X+d``  
    End With 9Cq"Szs  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False  dm{/  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll ~s) `y2Y  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese %d#j%=  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True l9F]Lw  
    DoEvents $`|\aXd[C*  
dZ,~yV  
    '表格首行 V7,;N@FL  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") nztnU9OG  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False G@1T!`  
    With ActiveDocument.Styles("QLNU表格首行").Font 9S<atMB  
        .NameFarEast = "楷体" - ] U2G:  
        .NameAscii = "Times New Roman" H>|*D~RdT  
        .Name = "楷体" Y i`wj^  
        .Size = 9 C+aL8_(R  
        .Bold = True /jd.<r=_I  
        .Underline = wdUnderlineNone ^ZDpG2(zk  
        .Italic = wdUndefined 7DWHADr  
        .Subscript = wdUndefined 4inMd![  
        .Superscript = wdUndefined QfI@=Kbg%#  
    End With Y86mg7[U/  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat x^6b$>1  
        .LineSpacingRule = wdLineSpaceSingle )'ax
J  
        .Alignment = wdAlignParagraphCenter Kbqx)E$iL  
         ~L=? F  
        .LeftIndent = CentimetersToPoints(0) R H0J#6C/  
        .RightIndent = CentimetersToPoints(0) i
fcC [.im  
        .FirstLineIndent = CentimetersToPoints(0) ^:^8M4:  
         N/r8joi#  
         )L$)qfQ~x  
        .CharacterUnitLeftIndent = -0.5 jmn<gJ2Of  
        .CharacterUnitRightIndent = -0.5 ?;CMsO*q  
        .CharacterUnitFirstLineIndent = -0.5 o=I.i>c  
         Ab:+AC5{  
        .LineUnitBefore = 0 !2]'S=Y  
        .LineUnitAfter = 0 H.!\j&4j  
        .SpaceBefore = 0 n_P2l<F~/x  
        .SpaceAfter = 0 T9-2"M=|<  
         ~)]R  
    End With G!5~`v  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False &&`-A6`p  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll *T
0!q#R  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese _"S1>s)X?j  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True 'EkuCL  
    DoEvents kZ<"hsh,Y'  
w8(z\G_0  
    '表格内容 ]E}eM@xdD  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") V})b.\"F  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False rHD_sC*  
    With ActiveDocument.Styles("QLNU表格内容").Font *.A{p ;JC(  
        .NameFarEast = "楷体" lVo}D FZ  
        .NameAscii = "Times New Roman" A%%Vyz  
        .Name = "楷体" bt0Q6v5  
        .Size = 9 9wpV} .(  
        .Bold = False VK^m]??s_  
        .Underline = wdUnderlineNone .v_-V?7   
        .Italic = wdUndefined rFG_CC2  
        .Subscript = wdUndefined K]C@seF`  
        .Superscript = wdUndefined j@Y'>3  
    End With ;hJz'&UWQ  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat 7uxUqM  
        .LineSpacingRule = wdLineSpaceSingle vALH!Kh  
        .Alignment = wdAlignParagraphCenter |HA1.Y=  
         )|E 617g  
        .LeftIndent = CentimetersToPoints(0) ;;7:l,vy  
        .RightIndent = CentimetersToPoints(0) "4/J4'-  
        .FirstLineIndent = CentimetersToPoints(0) Q<2`ek  
         9"b =W@  
        .CharacterUnitLeftIndent = -0.5 EOzw&M];r  
        .CharacterUnitRightIndent = -0.5 ko`.nSZ-k  
        .CharacterUnitFirstLineIndent = -0.5 6w4}4i  
        .LineUnitBefore = 0 iJ!p9E*(  
        .LineUnitAfter = 0 .5GGZfJ]  
        .SpaceBefore = 0 H{VJS Jc{  
        .SpaceAfter = 0 9<-7AN}Z  
    End With >\ x!a:}  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False ]seOc],4  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll +`'>  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese %p8#pt\$7  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True "|<U`3y6  
    DoEvents W&;,7T8@  
+$\/HO  
    '图片标题 d9.~W5^fC  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 5PPaR|c3  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" +`l)W`zX  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False P,={ C6*  
    With ActiveDocument.Styles("QLNU图片标题").Font Z:Y_{YAD  
        .NameFarEast = "楷体" t-VU&.Y  
        .NameAscii = "Times New Roman" fW3NH7aUG  
        .Name = "楷体" @XN|R  
        .Size = 10.5 GfL:0  
        .Bold = True b!c2j   
        .Underline = wdUnderlineNone @agxu-Y  
        .Italic = wdUndefined K)s{D]B  
        .Subscript = wdUndefined sJ5Ws%q  
        .Superscript = wdUndefined )5/,B-+O"  
        .Outline = False (Kb_/  
        .Shadow = False ,HtXD~N  
        .Color = wdColorAutomatic )6:1`&6  
    End With G)3Q |Vc  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat 8;"HM5+  
        .LineSpacingRule = wdLineSpaceSingle yp"h$  
        .Alignment = wdAlignParagraphCenter s1%th"e [  
         }^zsN`  
        .KeepWithNext = wdUndefined v)%0`%nSR  
        .KeepTogether = True X@H/"B%u2  
        .OutlineLevel = wdOutlineLevelBodyText tlpTq\;  
         WADAp\&  
        .LeftIndent = CentimetersToPoints(0) I7Xm~w!{qk  
        .RightIndent = CentimetersToPoints(0) @"O|[%7e  
        .FirstLineIndent = CentimetersToPoints(0) !]t5(g_  
         Vl%UT@D|  
        .CharacterUnitLeftIndent = 0 _tR?WmNH=  
        .CharacterUnitRightIndent = 0 GVld]ioycG  
        .CharacterUnitFirstLineIndent = 0 Ktn:6=,  
         v&8
s>~i`K  
        .LineUnitBefore = 0 DW0N}>Gp*  
        .LineUnitAfter = 0 s|9[=JMG  
    End With  -wQ@z6R  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False \<W/Z.}/  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll JbLHW26pl  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese cE+Y#jB  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True .r\|9 *j<  
    DoEvents qcGsx2  
r!y3VmJ'm  
    '目录项 9|qzFm E#  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") M992XXd  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" 7)dCdO  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False *dPG[ }  
    With ActiveDocument.Styles("QLNU目录项").Font D&!c7_^  
        .NameFarEast = "黑体" 4{CeV7  
        .NameAscii = "Times New Roman" Vi'zSR28Z  
        .NameOther = "Times New Roman" [SU;U['7  
        .Name = "黑体" L^xh5{  
        .Size = 10.5 cN%@ nW0i  
        .Bold = False n'qWS/0U=  
        .Italic = wdUndefined I T?~`vi  
        .Underline = wdUnderlineNone OZ6:u^OS]  
        .Color = wdColorAutomatic >Q[3t79^  
        .Superscript = wdUndefined v^3s?VD  
        .Subscript = wdUndefined FG)(,?q  
    End With T*jQzcm~?  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat <KBS ;t="1  
         1w'W)x  
        .LineSpacingRule = wdLineSpaceSingle v?(z4oOD/>  
        .Alignment = wdAlignParagraphLeft <N,:w` g#  
         p&k%d, *  
        .WidowControl = False +D d!  
        .KeepWithNext = False \/F*JPhy  
        .KeepTogether = False @!p0<&R@x  
        .PageBreakBefore = False ^50\c$  
        .NoLineNumber = False \%|%C  
        .OutlineLevel = wdOutlineLevelBodyText sr-tZ^d5S?  
         ?(Ytc)  
        .LeftIndent = CentimetersToPoints(0) BD?u|Fd,i:  
        .RightIndent = CentimetersToPoints(0) DLD5>  
        .FirstLineIndent = CentimetersToPoints(0) g+3_ $qIQ+  
         usR+ZQaA  
        .CharacterUnitLeftIndent = 0 e3,@prr  
        .CharacterUnitRightIndent = 0 P` AW8Y6o  
        .CharacterUnitFirstLineIndent = 0 <7_s'UAL!  
          EHk$,bM  
        .LineUnitBefore = 0 dry>TXG*  
        .LineUnitAfter = 0 2"IDz01ne  
    End With n.OsmCRN;  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False 0^K2"De  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll = buarxk  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot ,Rdw]O  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese ;.Y-e Q,  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True \HQw$E/ p  
    DoEvents e5#?@}?  
     r-$VPW  
    '参考文献 i$lp8Y2ih  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") U<I
]_]  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" /B)`pF.n  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False {h0T_8L/  
    With ActiveDocument.Styles("QLNU参考文献").Font rVZlv3  
        .NameFarEast = "宋体" ]\ t20R{z  
        .NameAscii = "Times New Roman" -S7i':  
        .NameOther = "Times New Roman" xiOAj"}
~  
        .Name = "Times New Roman" bi[g4,`Z;  
        .Size = 12 <kKuis6h  
        .Bold = False @ )Nw>/;o  
        .Italic = wdUndefined [,sm]/Xlc  
        .Subscript = wdUndefined @K\hgaQ  
        .Superscript = wdUndefined (Rh$0^)A  
        .Underline = wdUnderlineNone ti!kJ"q  
        .UnderlineColor = wdColorAutomatic Q$b4\n?44  
        .Color = wdColorAutomatic -8
:
/My  
        .Engrave = False !3`X Gg  
    End With NK6~qWsu  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat QB;jZpF  
         <RuLIu  
        .LineSpacingRule = wdLineSpaceExactly </!GU*  
        .LineSpacing = 16 "x AIK  
        .Alignment = wdAlignParagraphLeft .S*VYt%K7  
        .WidowControl = False jM:|%o  
        .KeepWithNext = False 3L:SJskYR  
        .KeepTogether = False &[P(}??Y\  
        .PageBreakBefore = False 1|:'jK#gE  
        .OutlineLevel = wdOutlineLevelBodyText Egmp8:nZl@  
         =HjC.h  
        .LeftIndent = CentimetersToPoints(0) {$Z S 27  
        .RightIndent = CentimetersToPoints(0) m ;yIFO  
        .FirstLineIndent = CentimetersToPoints(0) }U|0F#0$  
         Q[)3r ,D  
        .CharacterUnitLeftIndent = 0 6'Q*SO;1gh  
        .CharacterUnitRightIndent = 0 7ygz52  
        .CharacterUnitFirstLineIndent = -2 zE+^WeH|  
         QXEz  
        .LineUnitBefore = 0 M}]4tAyT  
        .LineUnitAfter = 0 ^
Q9K]Vo  
        .SpaceBefore = 0
HT7I ~]W  
        .SpaceAfter = 0 1>L8EImx]V  
         rlY n"3%  
    End With uc aa;zj  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False X}g"_wN,g>  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll ~DP5Qi  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS B*:W`}G]_c  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True GD %qrK?  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese ||Vx:(d7D&  
    DoEvents '0v]?mM  
BAojP1}+
,  
    ' M)3'\x:  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") s*R UYx  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" ]z8Th5a?o  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False )=AWgA  
    With ActiveDocument.Styles("QLNU论文题目").Font NZz^*Ela  
        .NameFarEast = "黑体" i?861Hu  
        .NameAscii = "Arial Black" sKC(xO@L;`  
        .NameOther = "Arial Black" -J>f,zA  
        .Name = "Arial Black" T%4yPmY  
        .Size = 16 P"+R:O\!g  
        .Bold = False %xA-j]%?ep  
        .Italic = wdUndefined -ufaV#  
        .Superscript = wdUndefined 9SXpZ*Sx  
        .Subscript = wdUndefined B]I*ymc#  
        .Underline = wdUnderlineNone S 9|^VU  
        .UnderlineColor = wdColorAutomatic |

? rO  
        .Color = wdColorAutomatic :9f 9Z7M  
Oj '^Ww m  
    End With |h&  q  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat kn+@)3W:*  
        .LineSpacingRule = wdLineSpaceSingle ;gLOd5*0  
        .Alignment = wdAlignParagraphCenter mYbu1542'n  
        .WidowControl = True j\iNag(  
        .KeepWithNext = True .>1vN+  
        .KeepTogether = True w5=<}1`St  
        .PageBreakBefore = True (-xV W#39  
        .NoLineNumber = False gfiFRwC`v  
        .OutlineLevel = wdOutlineLevelBodyText !X`cNd)0Xo  
         dF7
`V J2  
        .LeftIndent = CentimetersToPoints(0) Hi^Z`97c  
        .RightIndent = CentimetersToPoints(0) vI]V@il  
        .FirstLineIndent = CentimetersToPoints(0) @H}{?-XyA  
         Q-J} :U  
        .CharacterUnitLeftIndent = 0 }U?:al/m  
        .CharacterUnitRightIndent = 0 + wfZFJ:1l  
        .CharacterUnitFirstLineIndent = 0 Wr`<bLq1vs  
         5xQ5)B4k  
        .LineUnitBefore = 1 mbHMy[R  
        .LineUnitAfter = 1  PZj}]d `  
         Z%JAX>v&B  
        .BaseLineAlignment = wdBaselineAlignAuto Ld 0j!II(  
    End With g){gF(  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False `
aSbGM z  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll #'. '|z  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS qv[w 1;U"  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True Bf;<3k)5.  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese xVTl  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True MAQ-'s@  
    DoEvents EAHdt=8W{  
     a:s$[+'Y  
    '中文摘要 A4/gVi|  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") vAjog])9s  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" F~/~_9RJ  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False
pm2
]  
    With ActiveDocument.Styles("QLNU中文摘要").Font f|Nkk*9$  
        .NameFarEast = "宋体" 2 ,krVb?<  
        .NameAscii = "Times New Roman" B<ZCuVWH:  
        .NameOther = "Times New Roman" *0m|`- T  
        .Name = "Times New Roman" n[\L6}  
        .Size = 12 qp{~OW3  
        .Bold = wdUndefined Nz:p(
X!  
        .Superscript = wdUndefined S<z8  
        .Subscript = wdUndefined \H 5t-w=  
        .Italic = wdUndefined / 2MhP=
,  
        .Underline = wdUnderlineNone
h+}{FB 29  
        .UnderlineColor = wdColorAutomatic JsEnhE}]  
        .Color = wdColorAutomatic G=l:v  
    End With \F
)WUIK  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat hqV_MeHv'  
        .LineSpacingRule = wdLineSpaceExactly t ?05  
        .LineSpacing = 20 !&5|:96o  
        .Alignment = wdAlignParagraphLeft rNICK2Ah  
         Oj8D+sC{  
        .WidowControl = False #)s +I2  
        .KeepWithNext = False "
]W,,A-  
        .KeepTogether = True
3Xy~ap>Y  
        .PageBreakBefore = False 9%2he)Yqc  
        .NoLineNumber = False {\X$vaF  
        .OutlineLevel = wdOutlineLevelBodyText 4{G>T  
         U+aiH U9  
        .LeftIndent = CentimetersToPoints(0) V P(JV  
        .RightIndent = CentimetersToPoints(0) 0}M'>  
        .FirstLineIndent = CentimetersToPoints(0) %v
bov}R  
         2InM(p7j~K  
        .CharacterUnitLeftIndent = 0 &3SmTg %  
        .CharacterUnitRightIndent = 0 j+e s  
        .CharacterUnitFirstLineIndent = 2 c*i,z  
        .LineUnitBefore = 0 nI] zRduC  
        .LineUnitAfter = 0 T8^l}Y B  
         bK{ VjXF  
    End With uQKo2B0  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False I8|"h8\  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll *VUJ);7k  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS 9*XT|B  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True i=&]%T6Qk  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese C3~O6<,Jh  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True /J9Or{#r  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete "LH3ZPD  
    DoEvents i-.A D4  
     ru|*xNXKgC  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") >h.HW  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" /N,\st  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False 5g.Kyj|  
    With ActiveDocument.Styles("QLNU英文标题").Font A@-U#UvN  
        .NameFarEast = "黑体" 5Q:%f  
        .NameAscii = "Arial Narrow" 5mZwg(si  
        .Name = "Arial Narrow" Yp\Y]pym  
        .Size = 16 nZM
]EWn  
        .Bold = True At!@Rc  
        .Bold = wdUndefined eI%kxqc  
        .Superscript = wdUndefined w|NId,#f  
        .Subscript = wdUndefined "~KTLf  
        .Italic = wdUndefined uX%$3k  
         )u0/s'  
        .Underline = wdUnderlineNone -Rx;"J.H  
        .UnderlineColor = wdColorAutomatic ?Ss~!38  
        .StrikeThrough = False &8I*N6p:%/  
        .DoubleStrikeThrough = False Ucz=\dO1  
    End With lqa~ZF*  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat 2*] [M,L0c  
        .LineSpacingRule = wdLineSpaceSingle 5W=Jn?y2  
        .Alignment = wdAlignParagraphCenter E33WT{H&_'  
        .WidowControl = True /FjdcH=  
        .KeepWithNext = False Fl*<N  
        .KeepTogether = False \jZ)r>US"  
        .PageBreakBefore = False wk'&n^_br  
        .NoLineNumber = False wOLV?Vk  
        .FirstLineIndent = CentimetersToPoints(0) d%K{JkD-  
        .OutlineLevel = wdOutlineLevelBodyText KOoV'YSC[(  
         `fl$ o6S/  
        .LeftIndent = CentimetersToPoints(0) x:h)\ %Dg<  
        .RightIndent = CentimetersToPoints(0) xNa66A-8  
        .FirstLineIndent = CentimetersToPoints(0) =J]M#6N0  
         $GHi9aj_P  
        .CharacterUnitLeftIndent = 0 #o,FVYYj  
        .CharacterUnitRightIndent = 0 4vNH"72P  
        .CharacterUnitFirstLineIndent = 0 oE2VJKs<B  
         ?}= $zN  
        .LineUnitBefore = 1 e [6F }."c  
        .LineUnitAfter = 1 N#@v`S  
         riRG9c |  
    End With -9Ygn_M  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False 8~T=p:z'  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll TX7dwmt)N  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS qn'TIE.  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True HVzkS|^F  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese s'OK])>`  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True K /%5\h  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete jy_4W!4a  
    DoEvents &.PAIe.  
[)il_3t  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") ^ > ?C  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" t_Rj1U  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False \rE] V,,2  
    With ActiveDocument.Styles("QLNU英文摘要").Font r%NzKPW'  
        .NameFarEast = "宋体" s3'kzwX  
        .NameAscii = "Arial" 3{$>-d  
        .NameOther = "Arial" irP*:QM  
        .Name = "Arial" 4n1 g@A=y  
        .Size = 12 `b%^_@Fb  
        .Bold = wdUndefined
F Yb]9MX  
        .Italic = wdUndefined `u_k?)lK  
        .Superscript = wdUndefined (y1S*_D  
        .Subscript = wdUndefined p#3G=FV  
    End With 1&vR7z]*  
     )*
Wz5x  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat Z,"YMUl'  
         Ocn@JOg  
        .LineSpacingRule = wdLineSpaceExactly 0k4XVd+Nv  
        .LineSpacing = 20 2fNNdxdbT  
         P+C5 
s  
        .Alignment = wdAlignParagraphJustify ):A.A,skf  
         S~&
9DQN j  
        .WidowControl = False 0f
K#:6  
        .KeepWithNext = False ` k(Q:  
        .KeepTogether = False m\E=I5*/  
        .PageBreakBefore = False <fA}_BH%]  
        .NoLineNumber = False vsQvJDna~  
         3+q-yP#X  
        .OutlineLevel = wdOutlineLevelBodyText y=jZ8+M   
         }*O8
]lG  
        .LeftIndent = CentimetersToPoints(0) *SlWA)9Y  
        .RightIndent = CentimetersToPoints(0) O^ 5C  
        .FirstLineIndent = CentimetersToPoints(0) O@w_"TJP/z  
         InRcIQT  
        .CharacterUnitLeftIndent = 0 E`{DX 9^  
        .CharacterUnitRightIndent = 0 .u`A4;;Gw  
        .CharacterUnitFirstLineIndent = 2 MBnxF^c&P  
         lHHx D  
        .LineUnitBefore = 0 `:jF%3ks+0  
        .LineUnitAfter = 1 hZ.](rD  
         Kaaz,C.$^  
    End With fI'+4 )@x  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False q8
,,[R_  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll [Z&<# -  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS rq\<zx]au  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False cr?ZXu
_  
    DoEvents qT&zg@m  
<I0om(P  
    Options.Pagination = True `tc X[(`  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." ln":j?`  
    DoEvents C~'.
3Q6  
    ActiveDocument.Repaginate hlz/TIP^N3  
O1+yOef"k  
End Sub !|z!e>0  
~QUN O~  
JbMp /  

姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 " 9N;&^I  
!1A< jL  

引用

引用第20楼newport93于06-14-2010 13:47发表的  : u yE#EnsH  
c>Ri6=C  
老五，I 服了U。 8Z)wot  
jM-5aj[K  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 rV?@K
gxi  

7Jz9%iP