Dim bContinue As Boolean m?$G(E5  
6JYOe  
Dim regEX As New RegExp RLNuH2y
;  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 D(U3zXdO  
F5P{+z7  
Dim LastTitle0String As String, LastTitle0No As Long hP8&n9o  
Dim LastTitle1String As String, LastTitle1No As Long ilpZ/Rs  
Dim LastTitle2String As String, LastTitle2No As Long `+c9m^  
Dim LastTitle3String As String, LastTitle3No As Long )%w8>1}c  
Dim LastTitle4String As String, LastTitle4No As Long e~]e9-L>I  
Dim LastTitle5String As String, LastTitle5No As Long Z8 %\v(L  
Dim LastTabelString As String, LastTableNo As Long g8A{aHb1}  
Dim LastFigureString As String, LastFigureNo As Long MWh+h7k'  
>[4|6k|\x  
Dim strSeperator As String %5?-g[  
l>Ja[`X@  
Sub ConvertWidth(fTEXT As String, rText As String) fcXk]W  
        Selection.Find.ClearFormatting iGVb.=)  
        Selection.Find.Replacement.ClearFormatting Z3>3&|&  
        Selection.Find.Wrap = wdFindContinue b CUh^#]x  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText .MARF  
        DoEvents $ywh%OEH  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True 3MJWCo-[  
End Sub ^)^|;C\`  
b2%bgs  
Sub ClearDomain() O \8G~V 5"  
        With Selection.Find _kX/LR"L+  
            .ClearFormatting J&65B./mD9  
            .Replacement.ClearFormatting mIEaWE;E"  
            .Wrap = wdFindContinue eAKQR  
            Me.txtStatus.Text = "清除所有域代码" ![ID0}MjJ  
            DoEvents ik0Q^^1?Y  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False U] -@yx  
        End With dt&Lwf/  
End Sub p+UHJ&  
W;]UP$5l  
Private Sub cmdCheck_Click() DeQ'U!?+N  
    bContinue = True F6]!?@  
    Dim NoSeries1(1 To 16) As String <D
;Q8  
    Dim NoSeries2(1 To 16) As String ~{Rt4o _W  
    Dim NoSeries5(1 To 16) As String +gCy@_2;  
    Dim NoSeriesRM(1 To 16) As String SliQwm5  
    Dim paraTotal As Long, ParaText As String @aN=U=  
    Dim ttString As String, ttNo As String 1'm`SRX#e  
     iiB)/~!O  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long ef:$1VIBda  
)h_7 2  
    Me.txtStatus.Visible = True '4lT*KN7\  
    Me.lbParaType.Visible = True N%|Vzc  
    Me.cmdCheck.Enabled = False [k7N+W8  
     b(-t)5^}  
     = M{CZm  
     udI:]:,P  
     `+BaDns  
    Dim ParaType As String, rText As String `+Z#*lj|@  
     yi-"hT`  
    Selection.WholeStory 7C7(bg,7^  
    Selection.NoProofing = True rR
rW   
     @^6OV)  
    tm1 = Now {&u7kWD|  
     ieRBD6_  
        ActiveWindow.View.Type = wdNormalView Qwo9>ClC  
     ss@}Dt^  
    NoSeries1(1) = "一" 8kM0  
    NoSeries1(2) = "二" #s R0*  
    NoSeries1(3) = "三" lWw!+[<:q1  
    NoSeries1(4) = "四" s1 ^mk]  
    NoSeries1(5) = "五" {^5<{j3e  
    NoSeries1(6) = "六" e
xEld  
    NoSeries1(7) = "七" c0Ro3j\p  
    NoSeries1(8) = "八" uNZ>oP>  
    NoSeries1(9) = "九" ?WtG|w  
    NoSeries1(10) = "十" 
&\lS  
    NoSeries1(11) = "十一" XA xI?y[c
 
    NoSeries1(12) = "十二" HT=Am  
    NoSeries1(13) = "十三" pXj/6+^  
    NoSeries1(14) = "十四" SY>,kwHO  
    NoSeries1(15) = "十五" )LrCoI =|  
    NoSeries1(16) = "十六" ^'53]b:  
     7cP
[o+  
    NoSeries2(1) = "㈠" +\[![r^P  
    NoSeries2(2) = "㈡" "q>I?UcZ  
    NoSeries2(3) = "㈢" 1S]gD&V  
    NoSeries2(4) = "㈣" pMZf!&tM  
    NoSeries2(5) = "㈤" ;@YF}%!+W  
    NoSeries2(6) = "㈥" :Z]hI
+7  
    NoSeries2(7) = "㈦" U2>dwn  
    NoSeries2(8) = "㈧" 3/IWO4?_  
    NoSeries2(9) = "㈨" bo!]  
    NoSeries2(10) = "㈩" })Mv9~&S  
     wt=>{JM  
    NoSeries5(1) = "①" {G1aAM\Hz  
    NoSeries5(1) = "②" A.C278^O8  
    NoSeries5(3) = "③" D)ne *},  
    NoSeries5(4) = "④" \g:qQ*.  
    NoSeries5(5) = "⑤" DEp%\sj?  
    NoSeries5(6) = "⑥" w$[Ds  
    NoSeries5(7) = "⑦" Fp6[W5>(-  
    NoSeries5(8) = "⑧" `NWgETf^#  
    NoSeries5(9) = "⑨" ?"<r9S|[O  
    NoSeries5(10) = "⑩" +6M+hO]  
     +9 p`D  
     [(hvK{)  
    NoSeriesRM(1) = "I" ji)4WG/1  
    NoSeriesRM(2) = "II" &c?hJ8"  
    NoSeriesRM(3) = "III" /xm#:+Sc  
    NoSeriesRM(4) = "IV" H0b6ZA%n  
    NoSeriesRM(5) = "V" Z0 IxYEp  
    NoSeriesRM(6) = "VI"  1C,C)  
    NoSeriesRM(7) = "VII" B6'%J  
    NoSeriesRM(8) = "VIII" -,fa{yt-  
    NoSeriesRM(9) = "IX" Q'Kik5I  
    NoSeriesRM(10) = "X" uyRA`<&w  
    NoSeriesRM(11) = "XI" $X=D9 h  
    NoSeriesRM(12) = "XII" 6|>\&Y!Q  
    NoSeriesRM(13) = "XIII" t6g)3F7T  
    NoSeriesRM(14) = "XIV" _ kSPUP5  
    NoSeriesRM(15) = "XV" CBnouKc:  
    NoSeriesRM(16) = "XVI" E,D:D3O  
     :n>ccZeMv  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) ~eV!!38 J  
     ,dj*p,J  
    If i = vbNo Then MLD>"W  
        Exit Sub xAd>",=~  
    End If /mBBeg^a  
     _QMHP RELk  
    If Me.chkSuper.Value Then PVS<QN%  
        Me.txtStatus.Text = "检查修改所有的上标格式" e(;`9T  
     vXM/nw|5  
        CheckSuperScript :_QAjU  
          2HK  
    End If JGO$4DK-1  
     uJ/?+5TU  
    If Me.chkStyle.Value Then R4~zL!7;  
        Me.txtStatus.Text = "设置样式，请稍候...." +`s&i%{1>  
        DoEvents ,[}yf#8@J  
        CeateOrModifyStyle bu" 68A;>  
    End If p-'6_\F.Ke  
     t3#H@0<  
     Xlqz8cI  
     ZYA.1VrM  
    ClearDomain HLoQ}oK|K  
         sAD P~xvU  
     m!#)JFe67  
     |CZnq-,C  
    If Me.chkLIST.Value Then Ij6Wz.*  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" B`?N0t%X  
     ss0'GfP  
        ConvertListToOrdinary Y zBA{FE  
    End If C=dx4U~   
     [N95.aD  
     e9Ul A  
    Dim pType As String, trimpTEXT As String C/CfjRzd  
    If Me.chkNum.Value = True Then SC $`  
        Me.txtStatus.Text = "转换全角数字形式为半角" BvZ^^IUb  
        ConvertWidth "１", "1" [#>$k 6F*  
        DoEvents @X|i@{<';  
        ConvertWidth "２", "2" oLqbR?  
        DoEvents o,Tr^e$  
        ConvertWidth "３", "3" $uFh $f  
        DoEvents
qzHqj;  
        ConvertWidth "４", "4" EB29vHAt~  
        DoEvents <jRFN&"h}  
        ConvertWidth "５", "5" rTsbP40  
        DoEvents e
:GgA  
        ConvertWidth "６", "6" {r].SrW9s9  
        DoEvents 3b?OW7H  
        ConvertWidth "７", "7" rxy{a  
        DoEvents Mi/ &$"=  
        ConvertWidth "８", "8"
MCi`TXr  
        DoEvents $nf Bvf  
        ConvertWidth "９", "9" :Hf0Qx6  
        DoEvents kToVBU$  
        ConvertWidth "０", "0" io9xI3{  
        DoEvents g<rKV+$6  
        ConvertWidth "ａ", "a" d(DX(xg  
        DoEvents `Ge+(1x  
        ConvertWidth "ｂ", "b" Oa}V>a  
        DoEvents )p!*c,  
        ConvertWidth "ｃ", "c" zOiY0`=  
        DoEvents [C+Gmu  
        ConvertWidth "ｄ", "d" aZawBU.:  
        DoEvents ;la#Vf:]  
        ConvertWidth "ｅ", "e" r}y[r}vk  
        DoEvents e\A(#l@g  
        ConvertWidth "ｆ", "f" L'\/)!cEd  
        DoEvents N7~)qqb  
        ConvertWidth "ｇ", "g" GIRSoRVsh  
        DoEvents 3m43nJ.~  
        ConvertWidth "ｈ", "h" :<N6i/  
        DoEvents =,AC%S_D~  
        ConvertWidth "ｉ", "i" <nb3~z1  
        DoEvents &weY8\ HD  
        ConvertWidth "ｊ", "j" hLyTUt~\L  
        DoEvents vlPl(F1  
        ConvertWidth "ｋ", "k" X@y r$3vC  
        DoEvents Q9yGQu  
        ConvertWidth "ｌ", "l" 0 .FHdJ<  
        DoEvents o/dMm:TF  
        ConvertWidth "ｍ", "m" 'Wf?elB+  
        DoEvents W3jXZ>  
        ConvertWidth "ｎ", "n" vhYMWfbY  
        ConvertWidth "ｏ", "o" oxMUW<gYd  
        ConvertWidth "ｐ", "p" |YE,) kiF  
        ConvertWidth "ｑ", "q" 4j=<p@  
        ConvertWidth "ｒ", "r" kh<pLI>$h  
        ConvertWidth "ｓ", "s" U50s!Zt45  
        ConvertWidth "ｔ", "t" h"PS-]:CD  
        ConvertWidth "ｕ", "u" +w k]iH  
        ConvertWidth "ｖ", "v" 0E?s>-b  
        ConvertWidth "ｗ", "w" { p!_-sL  
        ConvertWidth "ｘ", "x" pyg!rf-  
        ConvertWidth "ｙ", "y" WG8iTVwx  
        ConvertWidth "ｚ", "z" O/DAf|X|  
        ConvertWidth "Ａ", "A" F%PwIB~cy  
        ConvertWidth "Ｂ", "B" CrNwALx  
        ConvertWidth "Ｃ", "C" 7ZV~ op2Q  
        ConvertWidth "Ｄ", "D" .B 85!lCF  
        ConvertWidth "Ｅ", "E" p- "Z'$A`  
        ConvertWidth "Ｆ", "F" T}n}.JwU  
        ConvertWidth "Ｇ", "G" q?imE~&U  
        ConvertWidth "Ｈ", "H" zmB31' _  
        ConvertWidth "Ｉ", "I" jNe(w<',P  
        ConvertWidth "Ｊ", "J" 7>'uj7r]=  
        ConvertWidth "Ｋ", "K" [:nx);\  
        ConvertWidth "Ｌ", "L" %qS]NC  
        ConvertWidth "Ｍ", "M" "xDx/d8B  
        ConvertWidth "Ｎ", "N" Q$ |^~  
        ConvertWidth "Ｏ", "O" B=Zl&1  
        ConvertWidth "Ｐ", "P" ':!3jZP"m  
        ConvertWidth "Ｑ", "Q" jJ*@5?A  
        ConvertWidth "Ｒ", "R" A[^qq UL'  
        ConvertWidth "Ｓ", "S" ^nHB1"OCV  
        ConvertWidth "Ｔ", "T" z29qARiX  
        ConvertWidth "Ｕ", "U" Q5p+W  
        ConvertWidth "Ｖ", "V" Sg.+`xww3  
        ConvertWidth "Ｗ", "W" a E7u5PM  
        ConvertWidth "Ｘ", "X" d1~_?V'r]  
        ConvertWidth "Ｙ", "Y" C5PmLiOHY>  
        ConvertWidth "Ｚ", "Z" VDByj "%  
        ConvertWidth "^l", "^p" (2 T#/$  
        ConvertWidth "（", "(" d)04;[=  
        ConvertWidth "）", ")" wovmy{K  
     1jH7<%y  
    End If Cdp]Nv6  
>:F,-cx<  
    With ActiveDocument @%EE0)IA  
        Dim tbl As Table $N}/1R^?r  
        For Each tbl In .Tables k'[ S@+5  
            tbl.Rows.Alignment = wdAlignRowCenter gf68iR.Gs  
            tbl.Range.Font.NameFarEast = "楷体" i<4>\nc  
            tbl.Range.Font.NameAscii = "Times New Roman" 0^GbpSW{  
            tbl.Range.Font.Size = 10.5 o%Be0~
n'  
        Next :M22P`:  
        Set tbl = Nothing x7P([^i  
    End With J+)'-OFt0  
     o~v_PD[S  
     =
y<">-  
    With ActiveDocument k]SAJ~bS|  
         ]a$Wx vgq  
        For i = 1 To .TablesOfContents.Count & Fg|%,fv]  
            .TablesOfContents(i).Delete =zeFK_S!  
        Next b&lN%+%}  
         }O,U2=Hw`]  
         F>~ xzc  
         LbJtpwz>z  
        paraTotal = .Paragraphs.Count *M> iZO*@  
        paraCounter = 1 yaH Trh%  
         ~9JW#HHzn  
        LastTitle0No = 0 vix&E`0
yD  
        LastTitle1No = 0 IPl@ DH  
        LastTitle2No = 0 5 l41Q  
        LastTitle3No = 0 y4xT:G/M  
        LastTitle4No = 0 6 X@mPj[/  
        LastTableNo = 0 4meidKw]  
        LastFigureNo = 0 ] vC=.&]  
         *2JH_Cj`  
        Dim Sec As Long NXzU0  
         ds*m6#1b  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) ?xtt7*'D  
        If Sec = 0 Then ,c4c@|Bh?  
            Exit Sub a'@-"qk  
        End If *:=];1O  
         lpl8h4d  
        k = 0 I86e&"40  
        Do While (paraCounter < paraTotal) And bContinue }Vvsh3  
            k = k + 1 xn(+G$m  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then Q~fwWp-J  
                Exit Do D9qX->p  
            End If u.Mq j"o\  
            paraCounter = paraCounter + 1 *0%4l_i  
            If k Mod 20 = 0 Then _Kc1  
                Me.lbCounter.Caption = paraCounter cI*KRC
U  
                DoEvents SU?wFCGT%  
            End If 2 .[_t/T  
        Loop UI!6aVL.  
         p=!#],[  
         \*f;!{P{  
        Do While (paraCounter < paraTotal) And bContinue v~^ks{  
             aB6Ye/Io  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) (Ij0AeJ#  
            ShapeHeight = 0 #/OUGeJ  
            ShapeWidth = 0 [096CK  
           z 0~j  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth IFiTTIlT0  
             ,f}h}  
            Select Case ParaType #|qm!aGs  
                Case "【】表格内容" =2^V gc  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" `1n
RcY  
                Case "章" FE/$(7rM  
                    LastTitle0No = LastTitle0No + 1 `S"W8_m  
                    '新一章开始，复位其下属标题编号 BG'6;64kx6  
                    LastTitle1No = 0 i]it5  
                    LastTitle2No = 0 jja{*PZ6H  
                    LastTitle3No = 0 G/ v|!}?wG  
                    LastTitle4No = 0 ZlthYuJ  
                     r%0pQEl  
                    k = Val(ttNo) eYJ{LPo  
                    If k = 0 Then '非数字编号章节 Y)$52m5rM  
                        If ttNo <> NoSeries1(LastTitle0No) Then IE& _!ce  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString c{1V.  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText DdBxqkh  
                        End If 3c c1EQ9  
                    Else mfXD1]<.  
                        If Val(ttNo) <> LastTitle0No Then 8@E8!w&~  
                            rText = "第" & LastTitle0No & ttString ~O \}/I28  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText ; D1FAz  
                        End If (# JMB)  
                         f#@S*^%V$  
                    End If yh S#&)O  
                     h^}_YaT\  
                    '章段落设置 vG Y!4@[  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 /&CUspb  
                    .Paragraphs(paraCounter).Style = "QLNU章节" Pj'62
[5z  
                    .Paragraphs(paraCounter).Range.Select p3g4p
 
                    Selection.EndKey unit:=wdLine B,3 t`  
                    tc = Replace(rText, vbCr, "") +'- rTi\  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False hlX>K  
                Case "一级标题" D9ANm"#  
                    LastTitle1No = LastTitle1No + 1 31WZJm^  
                    '新一级标题开始，复位其下属标题编号 |y.zocBj  
                    LastTitle2No = 0 `SCy<w3$+[  
                    LastTitle3No = 0 <5dH *K  
                    LastTitle4No = 0 cp$.,V  
                     _1 sP.0 t  
                    If ttNo <> NoSeries1(LastTitle1No) Then \CcmePTN#x  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString |5W8Q|>%  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText r)VLf#3B  
                    End If F[5S(7M 7  
                   H{ZLk,  
                     l;Q >b]DZ  
                    '一级标题段落设置  格式：一、标题内容 #nKRTb+{  
                    .Paragraphs(paraCounter).Range.Text = rText ~eDI
$IO  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" X]qCS0GD'  
                    .Paragraphs(paraCounter).Range.Select 
AlO,o[0  
                    Selection.EndKey unit:=wdLine x_yF|]aI
!  
                    tc = Replace(rText, vbCr, "") Vl<`|C>  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False Ig<}dM.Z[  
                Case "二级标题" {
={^6@  
                    LastTitle2No = LastTitle2No + 1 kEO1TS  
                    '新二级标题开始，复位其下属标题编号 9oEpPL5  
                    LastTitle3No = 0 aSUsy
Oe  
                    LastTitle4No = 0 UmJUt|  
                     gWkjUz)  
                    If ttNo <> NoSeries1(LastTitle2No) Then :3v9h^|+  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString 0f1H8zV  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText 8=:A/47=J  
                    End If PNf&@  
                     `%|u!  
                    '二级标题段落设置 格式：(一)、标题内容 PC|'yAN:  
                    .Paragraphs(paraCounter).Range.Text = rText QV0M/k<'  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" XM$GQn]B  
                     't7Z] G  
                    .Paragraphs(paraCounter).Range.Select 8$ic~eJ  
                    Selection.EndKey unit:=wdLine */nuv k  
                    tc = Replace(rText, vbCr, "") sH%&+4!3  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False (#oYyM]  
                 s3seK6x'  
                Case "三级标题" #zxd;;p3  
                    LastTitle3No = LastTitle3No + 1 J==}QEhQ{  
                    '新三级标题开始，复位其下属标题编号 i<mevL  
                    LastTitle4No = 0 )]73S@P(=  
                     ^\MhT)x  
                    If Val(ttNo) <> LastTitle3No Then  ozU2  
                            rText = LastTitle3No & ". " & ttString F#su5<d  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText [a@B =E  
                         V"O9n[|  
                    End If B~?c3:6  
                    '三级标题段落设置 格式：1. 标题内容 {(;B 5rs  
                    .Paragraphs(paraCounter).Range.Text = rText KGu= ;  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" F=srkw:*.  
                    .Paragraphs(paraCounter).Range.Select >rKhlUD  
                    Selection.EndKey unit:=wdLine qYiv   
                    tc = Replace(rText, vbCr, "") ?9p$XG  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False /9pbnzn  
                Case "四级标题" OZ^h\m4  
                    LastTitle4No = LastTitle4No + 1 ^uhxURF  
                     _ \l HI  
                    If Val(ttNo) <> LastTitle4No Then `| Ey)@w  
                            rText = "(" & LastTitle4No & "). " & ttString ZW>o5x__b  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText GA\2i0ow  
                     |) O):  
                    End If NEMEY7De2  
                    '四级标题段落设置 格式：(1). 标题内容 pw=F' Y@N  
                    .Paragraphs(paraCounter).Range.Text = rText bhYU5 I 9  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" #pX8{
Tf[  
                    .Paragraphs(paraCounter).Range.Select *6XRjq^#  
                    Selection.EndKey unit:=wdLine p'}lN|"{O  
                    tc = Replace(rText, vbCr, "") #7o0dE;Kg9  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False ?;^5ghY$  
                 /l^y}o %?  
                Case "表格标题" |CwG 3&8  
                    LastTableNo = LastTableNo + 1 iX{H,-C  
                     ijFV<P  
                    If ttNo <> CStr(LastTableNo) Then 7aQn;  
                            rText = "表" & LastTableNo & ". " & ttString .3
@Ng  
                            ErrMsg.AddItem "表格编号错误：" & ParaText gGI8t@t:  
                   ojoxXly`  
                    End If (etUEb^}T  
                     uoHqL IpQ  
                    '表格名称段落设置 格式：表1. 表格名称 `y2ljIWJ  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" };rm3;~ eg  
                    xe = Replace(rText, vbCr, "") eES'}[W>  
                    .Paragraphs(paraCounter).Range.Select 3w6&&R9  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 GMdI0jaG#  
                    Selection.Range.Text = xe >b>gr OX  
                    Selection.EndKey RJx{e
ck%  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False ]U[&uymax  
                 G,
]z(%  
                Case "表格首行" +C_*Vs@4  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" @ u+|=x];  
                Case "图片标题" zks#EzQ  
                    LastFigureNo = LastFigureNo + 1 
KY g3U  
                     )!eEO [\d  
                    If ttNo <> CStr(LastFigureNo) Then N!L'W\H,  
                            rText = "图" & LastFigureNo & ". " & ttString +`| mJa  
                            ErrMsg.AddItem "表格编号错误：" & ParaText HyEa_9   
                   !R74J=#(  
                    End If I
r27Z P  
                    '图片名称段落设置 格式：图1. 图名称 LJWTSf"f?  
                    .Paragraphs(paraCounter).Range.Text = rText ^!}F%  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" z?kd'j`FG  
                    .Paragraphs(paraCounter).Range.Select 3za`>bUN  
                    Selection.EndKey unit:=wdLine _s*! t  
                    xe = Replace(rText, vbCr, "") D"cKlp-I6|  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False i:d`{kJ|[  
                Case "正文" %K?iNe  
                     '正文名称段落设置 kon5+g9q  
                    .Paragraphs(paraCounter).Style = "QLNU正文" 0~]QIdu{AR  
               Case "文献条目" .b,~f  
                    With .Paragraphs(paraCounter) :G}DAUFN  
                        '.Range.Select N<liS3>  
                        'Selection.ClearFormatting FZp<|t  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” '00J~j~  
                        .Style = "QLNU参考文献" WNa3^K/W{  
                    End With e\r7BW\Y  
               Case "图表注解" y@3kU*-1  
                    With .Paragraphs(paraCounter) UfKkgq#  
                        .Range.Font.NameFarEast = "楷体" oIb) Rq!m  
                        .Range.Font.NameAscii = "Times New Roman" A#35]V06  
                        .Range.Font.Size = 9 '小5号字 :CTL)ad2  
                         0wFh%/:  
                        .Alignment = wdAlignParagraphCenter f&c]LH_  
                        .LeftIndent = 0 &2{]hRM  
                        .RightIndent = 0 D#jX6  
                        .FirstLineIndent = 0 E~RV1)  
                        .LineSpacing = 12 #W|!fILL  
                        .LineSpacingRule = wdLineSpaceExactly b =b:  
                        .LineUnitAfter = 0 hM>*a!)U  
                        .LineUnitBefore = 0 WYLX?x  
                        .OutlineLevel = wdOutlineLevelBodyText TT7PQf >  
                        .PageBreakBefore = False Vj B*{,  
                        .RightIndent = 0 <Y>3  
                        .WordWrap = True /PqUXF  
                        .LineUnitAfter = 0.5 #V[SQ=>x[  
                         W`x)=y]Z  
                    End With +i=p5d5  
                Case Else uoCGSXsi  
                    '不作处理 RM,'o[%  
            End Select PBrnzkoY  
             Fg=v6j4W  
            '含有inlineshape的段落处理 OR;&TbWF(R  
            If ShapeHeight > 30 Then O&V[g>x"U  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 bnr|Y!T}Bi  
            End If p+[}Hxx=  
             BFh
$.+D  
            If (ShapeWidth + ShapeHeight) > 150 Then 43L|QFo  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" U Du~2%  
            End If BI.V0@qZ  
             $)*xC!@6X  
            '段落计数器递 ;&kn"b}G;  
            paraCounter = paraCounter + 1 Lm|
al.Z  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter Pbe7SRdr^  
            Me.txtStatus.Text = ParaText 6vobta^w  
            DoEvents ?E7=:h(@t  
        Loop sJ~P:g  
    End With 9|=nV|R'6  
     l3p3tT3+  
    msg = "" {y6C0A*  
     3gc"_C\
$  
    For i = 0 To Me.ErrMsg.ListCount - 1 U:n*<l-k}  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) D0ruTS  
    Next :B.G)M\  
     wAh#   
     A"4@L*QV  
     Q#pnj t hM  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg S?4KC^Y5  
    Me.cmdCheck.Enabled = True <KLg0L<W  
    Me.txtStatus.Visible = True ~<,Sh~Ana.  
    Me.lbParaType.Visible = False a5?A!k\2  
     U 5<@<j(@  
    bContinue = False C3}Aq8$6  
End Sub Cs4hgb|  
G9Qe121m  
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) X*O9JGh  
    Dim pTEXT As String lw[<STpD;  
     d}-'<Z#G  
    pTEXT = ChKRange.Text >vVw!.fJ  
     f`|G]da-3o  
    ParaType = "其它" j#3m|dQ  
    TitleString = pTEXT
nU17L6'$  
    TitleNo = "N/A" jDTUXwx7V  
     }g{_AiP rv  
    shpCounter = ChKRange.InlineShapes.Count WNF9#oN|oT  
    If shpCounter <> 0 Then "PzP;Br  
        MaxShpHeight = 0: TotalShpWidth = 0 b_vTGl1_6  
        For i = 1 To shpCounter iBoEZEHjw  
            k = ChKRange.InlineShapes(i).Height v`B4(P1Z  
            l = ChKRange.InlineShapes(i).Width g1@wf  
            If k > MaxShpHeight Then <*Ub2B[m  
                MaxShpHeight = k *1bzg/T<  
            End If jNc<~{/  
            TotalShpWidth = TotalShpWidth + l ug#<LO-.Rd  
        Next Qh-4vy=r  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then $.:3$et@/  
            Exit Sub #
X/Q  
        End If cPuHLwwYf  
    End If |>2:eH  
     nxQ}&n  
    '空行 HO5d%85   
    If Len(pTEXT) <= 2 Then !SF^a6jT  
        Exit Sub ET-Vm >]  
    End If Yy h=G  
     0d4cE10  
         85z;Zt
0{  
    '是否为表格中的文字 7'O
PjtM  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then jBpVxv  
        ParaType = "表格内容" w>vH8f  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber)
5v9uHxy  
        If k = 1 Then /DO'IHC.o  
            ParaType = "表格首行" d#\W hRE  
        End If 4ht\&2&:  
        Exit Sub zfjw;sUX  
    End If x=,8[W#XT  
     /9_#U#vhY  
    '例外情况：脚注 *jF#^=  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then pjN:&#Y]  
        ParaType = "脚注" \r;F2C0*i  
        Exit Sub C[YnrI!  
    End If ?9e]   
     &fSTR-8ev#  
    '例外情况：尾注 T//S,  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then J+Bdz6lt  
        ParaType = "尾注" 1;Xgc@  
        Exit Sub :;4SQN{2 O  
    End If $]*d#`Sy{%  
     +(mL~td
01  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then A5XR3$
5P  
        ParaType = "页眉页脚" Mm#[&j[Y  
        Exit Sub c7qwNs*f  
    End If <Wy>^<`  
     tcA ;#^jc  
     3eKQ<$w  
    With regEX K@r*;T  
        .Global = True qk
s|d_  
         Y6ben7j%-  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" O >FO>  
        If regEX.Test(pTEXT) Then =M<z8R  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") yd>}wHt  
            TitleString = regEX.Replace(pTEXT, "$3") RH1uVdJ1  
            TitleNo = regEX.Replace(pTEXT, "$1") Of`c`-<j  
            ParaType = "章" T"!EK&  
            Exit Sub kon=il<@  
        End If ,4Y*:JU4  
         ``9 GY  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" QlD6i-a  
        If regEX.Test(pTEXT) Then $bGD%9 z  
            ParaType = "一级标题" Q4wc-s4RN  
            regEX.Execute (pTEXT) ow.j+<M  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") *48IF33&s  
            TitleString = regEX.Replace(pTEXT, "$3") ,%hj cGX11  
            TitleNo = regEX.Replace(pTEXT, "$1") #C\4/g?=,  
            Exit Sub %&<W(|U1<  
        End If <*
Y'lV  
         D$nK`r  
        '全角或半角括号中的数字 El6bD% \G  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" 5@P-g  
        If regEX.Test(pTEXT) Then @\}YAa>>"I  
            ParaType = "二级标题" te'*<HM  
            regEX.Execute (pTEXT) G9RP^  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") l h/&__  
            TitleString = regEX.Replace(pTEXT, "$5") C4NRDwU|.  
            TitleNo = regEX.Replace(pTEXT, "$2") ;fGx;D  
            Exit Sub CgnXr/!L  
        End If 'm O2t~n  
         Ror2qDF  
        '阿拉伯数字  1. 2. 8#59iQl  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" (X}@^]lpa  
        If regEX.Test(pTEXT) Then R0<<
f]  
            ParaType = "三级标题" Y {c5  
            regEX.Execute (pTEXT) AuCWQ~  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 ut5yf
$%  
            TitleString = regEX.Replace(pTEXT, "$3") &1GUi{I  
            TitleNo = regEX.Replace(pTEXT, "$1") }Bff,q  
            Exit Sub VPd,]]S5(  
        End If Z;b
+>2oL  
         zj%cQkZ  
        '全角或半角括号中的阿拉伯数字 <LA^%2jT  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" -3hCiKq  
        If regEX.Test(pTEXT) Then \+Y!ILOI  
            ParaType = "四级标题" >5Lexj  
            regEX.Execute (pTEXT) ow.6!tl0=h  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") FFe)e>bH  
            TitleString = regEX.Replace(pTEXT, "$5") l2&hBacT  
            TitleNo = regEX.Replace(pTEXT, "$2") onl>54M^  
            Exit Sub rAXX}"l6s  
        End If ~m`!;rE  
         ^\wl2  
        '表格名称 {$fsS&aPg  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" =!,Gst_  
        If regEX.Test(pTEXT) Then A / 0qk  
            ParaType = "表格标题" jO)&KEh  
            regEX.Execute (pTEXT) j|K.i/  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) ?63&g{vA  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) *^h_z;{,  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) Coa-8j*R7  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 HomN/wKh  
            Exit Sub Q%5F ]`VN  
        End If >V!LitdJ  
         $(q8y/,R*-  
        '图片名称 &1Fply7(Ay  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" D;js.ZF  
        If regEX.Test(pTEXT) Then xj
q0D[  
            ParaType = "图片标题" /cY^]VLe  
            regEX.Execute (pTEXT) 0ar=cuDm  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") _e'Y3:  
            TitleString = regEX.Replace(pTEXT, "$3") k'+}9
2 o  
            TitleNo = regEX.Replace(pTEXT, "$1") ^l!L)iw  
            Exit Sub 4P kfUMX  
        End If \0AiCMX[  
         ]rW8y%yD  
        '参考文献 P(h5=0`*PR  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 h0VzI uV  
        If regEX.Test(pTEXT) Then /F~X,lm*~  
            ParaType = "文献条目" ;V.vfar  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") a$}mWPp+f  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") J_xG}d  
            Exit Sub _P5P(^/
 
        End If -7`-wu  
         2k1aX~?  
        prfx = Left(pTEXT, 2) 7X'y>\^w^>  
        If prfx = "注：" Or prfx = "注:" Then FA$zZs10\  
            ParaType = "图表注解" K/Y Agg  
            Exit Sub !R:y'Y%j  
        End If k dU! kj  
         z $6JpG  
         -<W2PY<  
        ParaType = "正文" Z+idLbIs  
         T[.[ g/`  
    End With ,{{SI  
End Sub `6Hf&u<  
6/2v  
Sub ConvertListToOrdinary() $']VQ4tZ  
    Dim st As Paragraph c> G@+  
    With ActiveDocument \6sQJ q  
        For i = .Paragraphs.Count To 1 Step -1 =n0*{~r  
            Set st = .Paragraphs(i) ?~F. /  
            lst = st.Range.ListFormat.ListString 'b[0ci :  
            If lst <> "" Then /EFq#+6  
                st.Range.ListFormat.RemoveNumbers fp&Got!pB  
                st.Range.InsertBefore lst & " " ^7u#30,}3~  
            End If `WlE| G[  
        Next .3wY\W8Dr-  
    End With d6.}.*7Whc  
    Set st = Nothing Iql5T#K+  
End Sub GLh]G(  
0BTLcEqgZ  
Private Sub UserForm_Activate() |E|6=%^  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" ^M Ey,  
    Me.lbTotal.Font.Bold = True @ajM^L!O  
    Me.txtStatus.Visible = False |9,UaA  
    Me.cmdCheck.Enabled = True T1NH eH>  
((MLM3zJ  
End Sub ;f%|3-q1[  
1dv=xe.  
xncw
YOz  
Sub CheckSuperScript() h<3p8eB  
    Selection.Find.ClearFormatting xP@/9SM  
    Selection.Find.Replacement.ClearFormatting $qm~c[x%  
    With Selection.Find kO ![X^V  
        .Text = "[【\[［〖](*)[】\]〗］]" >XE`h9  
        .Replacement.Text = "[\1]" 8H $#+^lW  
        .Replacement.Font.Superscript = True 3g'+0tEl  
        '.Replacement.Font.Color = wdColorBlue yJD>ny  
        .Forward = True lrys3  
        .Wrap = wdFindContinue )HVcG0H1  
        .FORMAT = True U e*$&VlT  
        .MatchCase = False nj2g
s,k  
        .MatchWholeWord = False jA`a/vWu  
        .MatchByte = False K$-;;pUl  
        .MatchAllWordForms = False Hed$ytMaGz  
        .MatchSoundsLike = False iBvOJs  
        .MatchWildcards = True Lq04T0  
    End With I ;j3*lV_  
    Selection.Find.Execute Replace:=wdReplaceAll
y/R+$h(%  
End Sub gdi`x|0  
/V^sJ($V$~  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) K]"Kf{bx  
    bContinue = False w0Ij'=:  
    Set regEX = Nothing Qpu3( `d<  
End Sub <abKiXA"  
m6U8)!)T  
Sub CeateOrModifyStyle() mJMq{6;  
' ~A >oO-0K  
' =`p&h}h-L  
Dim stl As Style L[C*@ uK  
     PDC]wZd/  
    Options.Pagination = False Y'N'hRD  
     DuNcX$%%  
    On Error Resume Next %f! iHo+Z  
    For Each stl In ActiveDocument.Styles (cs~@  
        stl.Delete H;I~N*ltJ(  
    Next <lo`q<q  
    On Error GoTo 0 X8CVY0<o  
     }gCHQ;U7`  
    Set stl = Nothing )%mAZk-*;^  
     dVGbe07  
    DoEvents M#M?1(O/NE  
    On Error Resume Next `clB43i  
     \A(5;ZnuD  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph ~@fR[sg<  
     !F7:i  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph .#! mDlY;  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph `K?1L{p'4  
     =kFuJ x)f  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph (I=6Nnt'  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph CW0UMPE5  
     Q]\j>>  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph 2R`u[  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph _4R,Ej}  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph se,Z#H  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph 0Q1/n2V  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph j>!sN`dBj  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph ~3=2=Uf  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph wj%wp[KA$  
     v~5<:0dL  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph kxo.v|)8  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph 9#@Zz4Ww  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph K^H>~`C=  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph 8p=>?wG  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph ,F:=(21  
     "$8w.C  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph V^En8  
    On Error GoTo 0 rJ(OAKnY  
    DoEvents ;BI)n]L  
     d8
:C3R  
    'BaseStyle xNgt[fLpS  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False K0<y
vew  
    With ActiveDocument.Styles("BaseStyle").Font }1>atgq]w  
        .NameFarEast = "宋体" (,LL[&;:  
        .NameAscii = "Times New Roman" e&3#2
_  
        .NameOther = "宋体" t!jwY/T  
        .Size = 10.5  :]c=pH  
        .Bold = wdUndefined O5;-Om  
        .Italic = wdUndefined x/I;nMY  
        .Subscript = wdUndefined ]kS7n@8  
        .Subscript = wdUndefined H#+xKYrp  
         w3bIb$12  
        .Underline = wdUnderlineNone ]{Ek[Av  
        .UnderlineColor = wdColorAutomatic <SQ(~xYi
  
        .StrikeThrough = False YMu)  
        .DoubleStrikeThrough = False 6V;:+"
BkJ  
         btQet.  
        .Outline = False }W}G X(?P  
        .Emboss = False kF-TG3  
        .Shadow = False T %/  
        .Hidden = False hTTfJDF  
        .SmallCaps = False M=%!IT  
        .AllCaps = False uaxB -PZ  
        .Color = wdColorAutomatic HV\"T(89  
        .Engrave = False ^saM$e^c:  
        .Scaling = 100 rzV"Dm$'  
        .Kerning = 1 CG9ba|  
        .Animation = wdAnimationNone z%};X$V`J  
        .DisableCharacterSpaceGrid = False J@` 8(\(  
        .EmphasisMark = wdEmphasisMarkNone
`Zf9$K|  
    End With ^<;w+%[MT  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat 7;xK
y'B\  
        .LeftIndent = 0 BXA]9eK  
        .RightIndent = 0 P<L&c_u  
        .SpaceBefore = 0 JZ K7uB,X  
        .SpaceBeforeAuto = False $4Y&j}R  
        .SpaceAfter = 0 J px'W  
        .SpaceAfterAuto = False F+*Q <a4  
         ^s*\Qw{Ii  
        .LineSpacingRule = wdLineSpaceSingle B] i:)   
        .Alignment = wdAlignParagraphJustify 4oJ$dN  
         7@P6 56{  
        .WidowControl = False /{we;Ut=g  
        .KeepWithNext = False yW>RRE;  
        .KeepTogether = False Qa?aL  
        .PageBreakBefore = False FpdHnu i1  
        .NoLineNumber = False JS7dsO0;  
         };p~A-E=  
        .FirstLineIndent = CentimetersToPoints(0) GP]TnQ<*;  
        .OutlineLevel = wdOutlineLevelBodyText ifrq  
        .CharacterUnitLeftIndent = 0 %#9P?COs&W  
        .CharacterUnitRightIndent = 0 gj;@?o0  
        .CharacterUnitFirstLineIndent = 0 RbAt3k;y  
        .LineUnitBefore = 0 @1.9PR$x  
        .LineUnitAfter = 0 /q*KO\L  
        .AutoAdjustRightIndent = True o?dR\cxj  
        .DisableLineHeightGrid = True ][t6VA  
         P)IjL&[  
        .FarEastLineBreakControl = True BD'NuI  
        .WordWrap = True oD,C<[(p  
        .Hyphenation = False ;[~^(. f  
         kY!C_kFcn  
        .HangingPunctuation = True wlVvxX3%  
        .HalfWidthPunctuationOnTopOfLine = True i+AUQ0Zbf6  
        .AddSpaceBetweenFarEastAndAlpha = True  XnA6/^  
        .AddSpaceBetweenFarEastAndDigit = True sVoR?peQ  
        .BaseLineAlignment = wdBaselineAlignBaseline pqq?*\W&[v  
    End With %EoH4LzT  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False (nz}J)T&  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll s##Ay{  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese f0FP9t3k  
    ActiveDocument.Styles("BaseStyle").NoProofing = False SG`)PW?  
     .K7C-Xn=  
    '一级标题题样式 w\DspF  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") OPiaG!3<  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" 7TdQRB  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False [B,p,Q"  
    With ActiveDocument.Styles("QLNU一级标题").Font K;C_Z/<%  
        .NameFarEast = "黑体" b,Lw7MY}[  
        .NameAscii = "Arial Black" G>0)I  
        .NameOther = "黑体" w, 7Cr  
        .Name = "黑体" A'~#9@l<  
        .Size = 16              '三号 ue9h   
        .Bold = True *(nJX.7  
        .Italic = wdUndefined C8MWIX}  
        .Subscript = wdUndefined qUg9$oh{LI  
        .Superscript = wdUndefined WRM$DA  
    End With 4:`[qE3  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat 6ZEdihBei  
         ai^t
= s  
        .LeftIndent = CentimetersToPoints(0) 2O i'E  
        .RightIndent = CentimetersToPoints(0) H:Lt$  
        .FirstLineIndent = CentimetersToPoints(0) M[z3 f  
         ' =}pxyg  
        .LineSpacingRule = wdLineSpaceSingle ,D8&
q?a  
        .Alignment = wdAlignParagraphCenter YkI9d&ib+  
         6$(0Ty  
        .WidowControl = True ~
me\  
        .KeepWithNext = True 1RA }aX  
        .KeepTogether = True ucM.Ro=@  
        .OutlineLevel = wdOutlineLevelBodyText MCHOK=G  
         )JX$/- RD-  
        .LineUnitBefore = 0.5 e P?~-#  
        .LineUnitAfter = 0.5
B_ tQeM  
    End With R8uj3!3^  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False 0BDoBR  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll Nm"<!a<F  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese *|poxT G  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True J{!'f| J  
    DoEvents N(BiOLZL6  
     cD8Ea(  
    '二级 9m~t j_
  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") x~Cz?ljbn  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" GEfY^!F+  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False (HJ$lxk<2h  
    With ActiveDocument.Styles("QLNU二级标题").Font 3W'FcE)|E  
        .NameFarEast = "黑体" :iEAUM  
        .NameAscii = "Arial Narrow" Y"oDFo,  
        .NameOther = "黑体" ',#  
        .Name = "黑体" g8v[)o(qd  
        .Size = 15        '小三号 !l"tI#?6W%  
        .Bold = False idz9YpW  
        .Outline = False @it/$>R^)  
        .Italic = wdUndefined Ge1duRGa  
        .Subscript = wdUndefined .5z&CJDiIi  
        .Superscript = wdUndefined +9_,w bF  
    End With YM8rJ-  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat Dt|fDw$]D  
        .LeftIndent = CentimetersToPoints(0) D&f!( n  
        .RightIndent = CentimetersToPoints(0) -xTKdm D  
        .FirstLineIndent = CentimetersToPoints(0) %y KKUZ~  
         WP!il(Gr  
        .LineSpacingRule = wdLineSpaceSingle
Z:c*!`F  
        .Alignment = wdAlignParagraphLeft UEN56@eCNf  
         dm 2EH  
        .WidowControl = True 
1x;@~yU  
        .KeepWithNext = True `x*/UCy\  
        .KeepTogether = True `fMpV8vv  
        .PageBreakBefore = False Qpw@MF2P  
        .OutlineLevel = wdOutlineLevelBodyText 94YA2_f;  
         9R>~~~{-Go  
        .LineUnitBefore = 0.5 &L'6KEahR  
        .LineUnitAfter = 0.5 FH[#yq.Pr  
         !"%S#nrL$  
    End With _[%n ~6  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False S[sr'ZW  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll UeNF^6sWu0  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese ]Y=S  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True \H[Yyp4  
    DoEvents aPt{C3<  
     :ovt?q 8">  
    '三级标题样式 >qn+iI2U  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") a_AJ) 4  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle"
}v&K~!*  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False Z:TFOnJ  
    With ActiveDocument.Styles("QLNU三级标题").Font S%{lJYwXt  
        .NameFarEast = "宋体" )WclV~  
        .NameAscii = "Times New Roman" gtMw3D`FL  
        .NameOther = "黑体" <dS5|||  
        .Name = "黑体" zg)|rm  
        .Size = 14               '四号 ExqM1&zpK  
        .Bold = False vuW-}fY;  
        .Outline = False [!Ao,rt?Vg  
        .Italic = wdUndefined 6qf-Y!D5  
        .Subscript = wdUndefined ?ff [$ab  
        .Superscript = wdUndefined X7b!;%3@  
    End With yH+c#w  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat LGXZx}4@;  
        .LeftIndent = CentimetersToPoints(0) wO89&XZ<  
        .RightIndent = CentimetersToPoints(0) I<KCt2:X  
        .FirstLineIndent = CentimetersToPoints(0) %2,/jhHL  
         ,A?{~?u.  
        .LineSpacingRule = wdLineSpaceSingle P]-#wz=S  
        .Alignment = wdAlignParagraphLeft tStJ2-5*t  
         EFD?di)s  
        .WidowControl = True /wlFD,+8  
        .KeepWithNext = True Qqh^E_O  
        .KeepTogether = True d96fjj~  
        .PageBreakBefore = False hu&n=6  
        .OutlineLevel = wdOutlineLevelBodyText ^} tuP  
         ~9bv Wd1D  
        .CharacterUnitLeftIndent = 0 )Z&HuEg{ZR  
        .CharacterUnitRightIndent = 0 Z) t{JHm:  
        .CharacterUnitFirstLineIndent = 2 +dJ&tuL:S  
         :S#i9# aB  
        .LineUnitBefore = 0.5 :k\}Ik  
        .LineUnitAfter = 0 d&?F#$>7|  
    End With f :&)"  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False qNy-o\;XN  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll eq{ [?/  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese =~ '^;D  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True w7r'SCVh3+  
    DoEvents py=i!vb&Z%  
     ,k\/]9  
    '四级标题样式 @H6%G>K
,  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 1j+eD:d'  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" ,,7.=#  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False 1NW>wo  
    With ActiveDocument.Styles("QLNU四级标题").Font ?o8a_9+  
        .NameFarEast = "宋体" w~p4S+k&  
        .NameAscii = "Times New Roman" 1B(G]o_>!  
        .NameOther = "宋体" >ks3WMm  
        .Name = "宋体" yj'Cy8  
        .Size = 12               '小四号 /RMer Xj  
        .Bold = True +~:x}QwGT  
        .Outline = False \Me"'.F?  
        .Italic = wdUndefined 5e )i!;7Uv  
        .Subscript = wdUndefined j+ I*Xw  
        .Superscript = wdUndefined q{[1fE"[K4  
    End With n~.%p  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat g(1"GKg 3K  
         !@A|L#*  
        .LeftIndent = CentimetersToPoints(0) k5q(7&C  
        .RightIndent = CentimetersToPoints(0) aI7Xq3  
        .FirstLineIndent = CentimetersToPoints(0) Vl-D<M+ih  
         URk$}_39
 
        .LineSpacingRule = wdLineSpaceSingle '
Z y{mq\  
        .Alignment = wdAlignParagraphLeft zWJKYFqK  
         u!M&;QL  
        .WidowControl = True fs7~NY
 
        .KeepWithNext = True 8z?$t-DO  
        .KeepTogether = True k,AM]H  
        .PageBreakBefore = False }&C dsCM>2  
        .OutlineLevel = wdOutlineLevelBodyText w gmWo8  
         ML"_CQlE7  
        .CharacterUnitLeftIndent = 0 A_aO}oBX  
        .CharacterUnitRightIndent = 0 eXc[3ceUr  
        .CharacterUnitFirstLineIndent = 2 @\+%GDv  
         PMQb\%iE"  
        .LineUnitBefore = 0 f^~2^p 1te  
        .LineUnitAfter = 0 {rz>^  
         7WXiG0
 
    End With s *K:IgJ/  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False @}ZGY^  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll .a5X*M]  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese t6j-?c('  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True {({ R:!c  
    DoEvents ?,!uA)({n
 
     p0   
    '正文校式 G}Gb|sD Zq  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") uht(
3  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" @kS|Jz$iY  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False 1+Sg"?8  
    With ActiveDocument.Styles("QLNU正文").Font OW?uZ<z  
         2UQN*_  
        .NameFarEast = "宋体" xiEcEz'lk  
        .NameAscii = "Times New Roman" X,&`WPA:S  
        .NameOther = "宋体" W%=Zdm rv  
        .Name = "宋体" a$A2IkD  
         \G]K,TG  
        .Size = 12               '小四号 *u58l(&`8  
         haN"/C^  
        .Bold = wdUndefined Sio1Q0  
        .Italic = wdUndefined ]!q }|bP  
        .Subscript = wdUndefined aD0Q0C+  
        .Superscript = wdUndefined  zI(xSX@  
         .x]'eq}  
        .Outline = False \ =S3 L<  
        .Emboss = False .iN-4"_j1  
        .Shadow = False AwtIWH*e  
        .Hidden = False F|9a}(-7  
         *13g<#$  
        .DisableCharacterSpaceGrid = True C-_(13S  
    End With x-tm[x@;o  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat 2m|Eoc&M_  
         ShsJ_/C2  
        .LeftIndent = CentimetersToPoints(0) { 576+:*  
        .RightIndent = CentimetersToPoints(0) YcPKM@xo  
        .FirstLineIndent = CentimetersToPoints(0) ,nI_8r"M>  
         )8 oEs  
        .LineSpacingRule = wdLineSpaceExactly /F oUo   
        .LineSpacing = 20 :{
x!g6bK@  
        .Alignment = wdAlignParagraphLeft X #

&(~1O  
         )gL&   
        .WidowControl = False C+DG+_%V*S  
        .KeepWithNext = False >xklt"*U,  
        .KeepTogether = False bOi};/f  
        .PageBreakBefore = False 2-QuT"Gkd  
        .Hyphenation = False =CWc`  
         }5QZ6i#  
        .OutlineLevel = wdOutlineLevelBodyText k>7gy?Y!K<  
         tWcizj;?wK  
       pHigxeV2  
        .CharacterUnitLeftIndent = 0 llHN2R%(  
        .CharacterUnitRightIndent = 0 w{RNv%hJ$=  
        .CharacterUnitFirstLineIndent = 2
\dC.%#  
         8moUK3w  
        .LineUnitBefore = 0 O 0Vn";Q 4  
        .LineUnitAfter = 0 =`rppO  
        .SpaceBefore = 0 7ZL,p: f  
        .SpaceAfter = 0 *sjj"^'=  
         +Kxe ymwr2  
        .DisableLineHeightGrid = True MiRibH XI,  
    End With Z3OZPxm  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False B>ms`|q=l  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll E {I)LdAqK  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese 8}Fw%;Cb  
    ActiveDocument.Styles("QLNU正文").NoProofing = True ?f(pQy@V  
    DoEvents od;Bb  
     z ]'|nX  
    '图片段落样式 bXa %EMF  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") #($k 3OA  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" USlF+RY@3L  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False `\Uc4lRS  
    With ActiveDocument.Styles("QLNU图片段落").Font 5w]DncdQ~  
        .Size = 12               '小四号 +ZY2a7uI  
        .Italic = wdUndefined >fW+AEt\JB  
        .Subscript = wdUndefined LZgwIMd  
        .Superscript = wdUndefined &8pCHGmV)  
    End With #(m`2Z`H  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat K-N]h  
         @$2`DI{_^  
        .LeftIndent = CentimetersToPoints(0) PWADbu{
+  
        .RightIndent = CentimetersToPoints(0) +8MW$ m$  
        .FirstLineIndent = CentimetersToPoints(0) Tnzco  
         3WQRN_  
        .LineSpacingRule = wdLineSpaceSingle NEjPU#@c  
        .Alignment = wdAlignParagraphCenter ,R7=]~<io"  
        .KeepWithNext = True MtMvpHk  
        .OutlineLevel = wdOutlineLevelBodyText er&uC4Y]a  
         7qCJ]% )b6  
        .CharacterUnitLeftIndent = 0 #|)JD@;Q  
        .CharacterUnitRightIndent = 0 !%SdTaC{T  
        .CharacterUnitFirstLineIndent = 0 Bl>_&A)  
         aeN}hG  
        .LineUnitBefore = 0 nXx6L!HJ#  
        .LineUnitAfter = 0 yBpW#1=  
    End With nF|#@O`1  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False |#Yu.c*  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll sURUQ H  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese tI/mE[W  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True }S'I DHla  
    DoEvents 2U- #0,ll]  
     K0d -MC  
     Zm"!E6`69  
    '第X章 e[d7UV[Knn  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") GN"M:L^k`  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" G1`mn$`kq  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False 2+c>O%L  
    With ActiveDocument.Styles("QLNU章节标题").Font Z"teZ0H  
        .NameFarEast = "黑体" 'w>uF g1.  
        .NameAscii = "Arial Black" .=
.yZ  
        .NameOther = "Arial Black" @2x0V]AI  
        .Name = "黑体" <~IH`  
        .Size = 16 s!8J.hD'I  
        .Bold = True fvAh?<Ul  
        .UnderlineColor = wdColorAutomatic T4%i`<i  
        .Outline = False G%V=idU*"  
        .Italic = wdUndefined M="WUe_  
        .Subscript = wdUndefined DDqC}l_  
        .Superscript = wdUndefined 1puEP*P  
        .Scaling = 100 U08<V:~  
        .DisableCharacterSpaceGrid = True {hW +^  
    End With jKY Aid{-  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat xiOv$.@q  
        .LineSpacingRule = wdLineSpaceSingle g=8|z#S  
        .Alignment = wdAlignParagraphCenter .0R/'!e  
        .WidowControl = True *7:u-}c!  
        .KeepWithNext = True TFiuz;*|  
        .KeepTogether = True @lb=-oR!~  
        .PageBreakBefore = True 'sT}DX(7M  
        .OutlineLevel = wdOutlineLevelBodyText m'G?0^Ft  
         >S?C {_g  
        .LeftIndent = CentimetersToPoints(0) \NvC   
        .RightIndent = CentimetersToPoints(0) rahHJp.Ws  
        .FirstLineIndent = CentimetersToPoints(0) pfJVE  
         23B^g  
        .CharacterUnitLeftIndent = 0 Im0+`9Jw  
        .CharacterUnitRightIndent = 0 pIU#c&%<9  
        .CharacterUnitFirstLineIndent = 0 +X2 i/}  
         l<0[ K(  
        .LineUnitBefore = 1 pq/FLYiv  
        .LineUnitAfter = 0.5 /xX
,
  
         $71D)*{P  
        .AutoAdjustRightIndent = False v*C+U$_3\1  
        .DisableLineHeightGrid = True :IP;FrcMP  
        .FarEastLineBreakControl = True *:fw6mnJ#  
        .WordWrap = True !`O_VV`/@  
    End With ~pX(w!^  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False ihpz}
g  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll }J'5EAp  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese .N-'; %8  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True f)u*Q!BDD  
    DoEvents #cSw"A  
     u8{@PlS  
    '表格标题 <3],C)Zwc  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") Mipm&5R  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" ?<>,XyY  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False }iiG$?| .  
    With ActiveDocument.Styles("QLNU表格标题").Font S*2L4Uj`|  
        .NameFarEast = "楷体" h%C Eb<  
        .NameAscii = "Arial" 7gZVg@  
        .Name = "楷体" :FKYYH\  
        .Size = 10.5 _D7HQ  
        .Bold = True Skr \a\ J  
        .Underline = wdUnderlineNone teQaHe#  
        .Italic = wdUndefined o2 T/IJP  
        .Subscript = wdUndefined T@d_t  
        .Superscript = wdUndefined Pq[0vZ_}dN  
        .Color = wdColorAutomatic XNkQk0i;g&  
    End With Se;?j-  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat = C$@DNEc  
         WwCK  K  
        .LineSpacingRule = wdLineSpaceSingle 5'{qEZs^QU  
        .Alignment = wdAlignParagraphCenter V,|Bzcz  
        .KeepWithNext = True %%-U.   
        .KeepTogether = True 8;+Hou  
        .OutlineLevel = wdOutlineLevelBodyText M<M#<kD  
         WIH4Aw  
        .LeftIndent = CentimetersToPoints(0) HwVgT"  
        .RightIndent = CentimetersToPoints(0) \gJapx(  
        .FirstLineIndent = CentimetersToPoints(0) OI]K_ m3  
         KL
:6P-3  
        .CharacterUnitLeftIndent = 0 4$q) e<-  
        .CharacterUnitRightIndent = 0 61s2bt#  
        .CharacterUnitFirstLineIndent = 0 ^J#*n;OQ3A  
         }]n>A  
        .LineUnitBefore = 1 *`S)@'@:(  
        .LineUnitAfter = 0 m_r@t*  
         x|,aV=$o  
    End With K[Egwk7  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False r[UyI3(i^  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll C-:SQf  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese "Dmw-  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True yp^[]Mz=  
    DoEvents *$4A|EA V  
0^)8*O9$  
    '表格首行 mER8> <  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") +s*l#'Q  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False :xAe<Pq  
    With ActiveDocument.Styles("QLNU表格首行").Font "t%1@b*u  
        .NameFarEast = "楷体" 5 vu_D^Q  
        .NameAscii = "Times New Roman" ZB_16&2Ow  
        .Name = "楷体" \KnD"0KW   
        .Size = 9 =?`y(k4a  
        .Bold = True WO+?gu  
        .Underline = wdUnderlineNone I 1VEm?CQ  
        .Italic = wdUndefined H>X\C;X[  
        .Subscript = wdUndefined 5u u2 _B_L  
        .Superscript = wdUndefined TYJnQ2m  
    End With yG4LQE  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat @3expC  
        .LineSpacingRule = wdLineSpaceSingle &[W3e3Asra  
        .Alignment = wdAlignParagraphCenter ~Hyyq-  
         P98X[0&  
        .LeftIndent = CentimetersToPoints(0) jV|$? Rcl%  
        .RightIndent = CentimetersToPoints(0) p0y0T|H^  
        .FirstLineIndent = CentimetersToPoints(0) NZ%~n:/V#  
         $@:>7Y"  
         upEPv .h  
        .CharacterUnitLeftIndent = -0.5 0,L$x*Nj5  
        .CharacterUnitRightIndent = -0.5 iEJQ#5))0  
        .CharacterUnitFirstLineIndent = -0.5 wC
C~tuTpr  
         tmY-m,U  
        .LineUnitBefore = 0 iuU3*yyn  
        .LineUnitAfter = 0 }
{gWTp  
        .SpaceBefore = 0 hklO:,`  
        .SpaceAfter = 0 Fl'xmz^  
         ffoo^1}1  
    End With z7.C\l  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False jt10gVC  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll b/n 8UxA  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese MLv.v&@S  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True ZimMjZ%4  
    DoEvents b0z{"  
 8H%I|fm  
    '表格内容 e2Kpx8kWj  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") u{{xnyl?  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False Z9 q{r s  
    With ActiveDocument.Styles("QLNU表格内容").Font :zn ?<(sQ  
        .NameFarEast = "楷体" yOn2}Z  
        .NameAscii = "Times New Roman" C}8e<[})  
        .Name = "楷体" @cTZ`bg  
        .Size = 9 ttAVB{kdo  
        .Bold = False WT ~dA95  
        .Underline = wdUnderlineNone OCOO02Wq1  
        .Italic = wdUndefined G(|(y=ck  
        .Subscript = wdUndefined L9unhx  
        .Superscript = wdUndefined 
+N(YR3  
    End With `S/1U87  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat K^cWj_a"  
        .LineSpacingRule = wdLineSpaceSingle 3Ld ;zW  
        .Alignment = wdAlignParagraphCenter EB
3 o8  
         Pguyf2/w  
        .LeftIndent = CentimetersToPoints(0) sKB-7  
        .RightIndent = CentimetersToPoints(0) _G}CD|Kx  
        .FirstLineIndent = CentimetersToPoints(0) +v[$lh+  
         ubN"(F:!-S  
        .CharacterUnitLeftIndent = -0.5 \Q?|gfJH  
        .CharacterUnitRightIndent = -0.5 Y4~wNs6  
        .CharacterUnitFirstLineIndent = -0.5 < jocfTBk  
        .LineUnitBefore = 0 [nPzhXs  
        .LineUnitAfter = 0 m^oi4mV  
        .SpaceBefore = 0 ,d [b"]Zy  
        .SpaceAfter = 0 <*(UvOQuX  
    End With 
+O!M>  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False /YugQ.>| l  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll g%q?2Nv  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese %6c*dy  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True :'=~/GR  
    DoEvents }2!5#/^~  
GFc  
    '图片标题 vA7jZw  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") UN .[,
%<s  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" p`l[cV Q<  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False "TH-A6v1  
    With ActiveDocument.Styles("QLNU图片标题").Font 6t mNfI34  
        .NameFarEast = "楷体" D'sboOY  
        .NameAscii = "Times New Roman" ^* /v,+01f  
        .Name = "楷体" v YmtpKNj%  
        .Size = 10.5 B 1ZHV^  
        .Bold = True 1~xn[acy  
        .Underline = wdUnderlineNone 8yo6v3JqC  
        .Italic = wdUndefined m|cWX"#g  
        .Subscript = wdUndefined f{ 4G  
        .Superscript = wdUndefined .jGsO0  
        .Outline = False "/K&qj  
        .Shadow = False ^p-e  
        .Color = wdColorAutomatic <}Wy;!L  
    End With
#NQz&4W  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat @tv];t  
        .LineSpacingRule = wdLineSpaceSingle 4-nr_ WCm4  
        .Alignment = wdAlignParagraphCenter + x;ML  
         {@K2WB  
        .KeepWithNext = wdUndefined DneSzqO"o  
        .KeepTogether = True HfeflGme*  
        .OutlineLevel = wdOutlineLevelBodyText b=QG
bFf  
         5t5S{aCDr  
        .LeftIndent = CentimetersToPoints(0) t1{%FJ0F  
        .RightIndent = CentimetersToPoints(0) FnQ_=b  
        .FirstLineIndent = CentimetersToPoints(0) 8.3_Wb(c  
        
f$S QhK5`  
        .CharacterUnitLeftIndent = 0 C7 & 6rUX  
        .CharacterUnitRightIndent = 0 m)]fJ_  
        .CharacterUnitFirstLineIndent = 0 W.6JnYLQ&  
         \|>`z,;  
        .LineUnitBefore = 0 )}it,<  
        .LineUnitAfter = 0 3f2Hjk7,d  
    End With J0*]6oD!  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False 7%"\DLA  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll (h>X:!  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese :_YG/0%I  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True :mtw}H 'F8  
    DoEvents \`%Y-!H+v  
r dG2| Tp  
    '目录项 =!P?/  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") 7pI\`*7b  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" -.Pu5et4  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False "KI,3g _V  
    With ActiveDocument.Styles("QLNU目录项").Font -x%`Wv@L  
        .NameFarEast = "黑体" T#_n-b>  
        .NameAscii = "Times New Roman" d_7Xlp@  
        .NameOther = "Times New Roman" ESf7b `tS  
        .Name = "黑体" ,ZP3F+XKb  
        .Size = 10.5 46?F+,Rzl  
        .Bold = False GqD!W8+  
        .Italic = wdUndefined F?,&y )ri  
        .Underline = wdUnderlineNone r5qx! >  
        .Color = wdColorAutomatic m
<'xlF  
        .Superscript = wdUndefined {LJ6't 8y:  
        .Subscript = wdUndefined $}nUK~$GSv  
    End With _kY[8e5  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat Ho._&az9cT  
         =&b$W/l)0  
        .LineSpacingRule = wdLineSpaceSingle 6r-n6#=  
        .Alignment = wdAlignParagraphLeft ch8w'  
         a4CNPf<$  
        .WidowControl = False j UR #  
        .KeepWithNext = False (yTz^o$t|  
        .KeepTogether = False Qx,$)|_  
        .PageBreakBefore = False xjbyI_D  
        .NoLineNumber = False cxJK>%84  
        .OutlineLevel = wdOutlineLevelBodyText yjFQk,A  
         gWv+i/,  
        .LeftIndent = CentimetersToPoints(0) ?kFCYZK|"  
        .RightIndent = CentimetersToPoints(0) \^(vlcy  
        .FirstLineIndent = CentimetersToPoints(0) Q]g4gj  
         tD0>(41K  
        .CharacterUnitLeftIndent = 0 Q|H cg|  
        .CharacterUnitRightIndent = 0 ?nSp?m;  
        .CharacterUnitFirstLineIndent = 0 w{O3P"N2  
         E+c3KqM  
        .LineUnitBefore = 0 P$qkb|D,  
        .LineUnitAfter = 0 &MQt2aL  
    End With Qu>zO!x  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False bq&S?! =s  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll F#bo4'&>@  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot ?N?pe}  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese @SG="L  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True dUtIAh-j  
    DoEvents KJJb^6P48W  
     \lakT_x  
    '参考文献 Y&!]I84]  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") wukos5  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" <^q"31f  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False 9-iB?a7{.  
    With ActiveDocument.Styles("QLNU参考文献").Font #bZ
=R  
        .NameFarEast = "宋体" ;I))gY-n  
        .NameAscii = "Times New Roman" &b6@_C9  
        .NameOther = "Times New Roman" pBnf^Ew1  
        .Name = "Times New Roman" xv%US m  
        .Size = 12 j.N
\U#3KK  
        .Bold = False dQ|Ht[s=  
        .Italic = wdUndefined :E&T}RN  
        .Subscript = wdUndefined hSKH#NS  
        .Superscript = wdUndefined yz$1qEII`q  
        .Underline = wdUnderlineNone Z#t)Z "
 
        .UnderlineColor = wdColorAutomatic #!&R7/ KdD  
        .Color = wdColorAutomatic Aag)c~D  
        .Engrave = False |QTqa~ ~B  
    End With jv=f@:[`I  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat ,p`bWm  
         IS4K$Ac.  
        .LineSpacingRule = wdLineSpaceExactly sCCr%r]zL  
        .LineSpacing = 16 Tocdh.H|  
        .Alignment = wdAlignParagraphLeft Z#:@M[HH{  
        .WidowControl = False nK'8Mo  
        .KeepWithNext = False 1
@z@  
        .KeepTogether = False p'!,F; xX  
        .PageBreakBefore = False r~fl=2>yQ  
        .OutlineLevel = wdOutlineLevelBodyText ;AB,:*  
         nzJi)A./  
        .LeftIndent = CentimetersToPoints(0) "/Q(UV<d  
        .RightIndent = CentimetersToPoints(0) K/d&c]  
        .FirstLineIndent = CentimetersToPoints(0) V>uW|6  
         xA'#JN<*  
        .CharacterUnitLeftIndent = 0 4-rI4A<  
        .CharacterUnitRightIndent = 0 P:-/3  
        .CharacterUnitFirstLineIndent = -2 jLS]^|  
         x
&/Syb  
        .LineUnitBefore = 0 :h^UC~[h 3  
        .LineUnitAfter = 0 +Y]*>afG  
        .SpaceBefore = 0 O8N0]Mz  
        .SpaceAfter = 0 V;]VwsZ
"  
         la{uJ9Iw@}  
    End With e27CbA{_w  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False -x\l<\*  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll 8 Y~T$Yj^  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS _7"W\gn:9  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True V//q$/&8(  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese RkP|_Bf8)  
    DoEvents )hJjVitG  
d#:J\2V"R  
    ' DSZhl-uGM  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") }J'wz;t1  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" Afhx`J1KO  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False 4x?u5L 9o  
    With ActiveDocument.Styles("QLNU论文题目").Font m1o65FsY08  
        .NameFarEast = "黑体" {#M{~  
        .NameAscii = "Arial Black" >8;%F<o2  
        .NameOther = "Arial Black" ];~[Olc  
        .Name = "Arial Black" x Bw.M{  
        .Size = 16 )[X!/KR90  
        .Bold = False 2LH;d`H[0  
        .Italic = wdUndefined mf_'| WDs  
        .Superscript = wdUndefined )0d".Q|v4  
        .Subscript = wdUndefined Wy>\KrA1  
        .Underline = wdUnderlineNone I%C:d#p  
        .UnderlineColor = wdColorAutomatic IeI%X\G  
        .Color = wdColorAutomatic zp-~'
kIJ  
]sP9!hup  
    End With |Pl{Oo+  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat u,SZ-2K!7~  
        .LineSpacingRule = wdLineSpaceSingle F8;4Oj  
        .Alignment = wdAlignParagraphCenter Ul0<Zxv  
        .WidowControl = True ;~$ $WU  
        .KeepWithNext = True E^W*'D  
        .KeepTogether = True \bA'Furp  
        .PageBreakBefore = True Yn2^n T=8  
        .NoLineNumber = False \0T*msYQ  
        .OutlineLevel = wdOutlineLevelBodyText $<e .]`R  
         *xTquV$  
        .LeftIndent = CentimetersToPoints(0) f/i,Zw  
        .RightIndent = CentimetersToPoints(0) tUF]f6  
        .FirstLineIndent = CentimetersToPoints(0) #&c;RPac!6  
         6U9Fa=%>}  
        .CharacterUnitLeftIndent = 0 bK%tQeT  
        .CharacterUnitRightIndent = 0 Ns8NaD  
        .CharacterUnitFirstLineIndent = 0 |/\1nWD  
          /r@  
        .LineUnitBefore = 1 VD`2lG
dF  
        .LineUnitAfter = 1 5nqdY*  
         c O>:n  
        .BaseLineAlignment = wdBaselineAlignAuto l"y9XO|  
    End With Sz@?%PnU|  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False pYUkd!K"  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll ` 3P62M<  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS }gRLW2&mR>  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True S,v>*AF  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese \1'R}B@;  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True L(P:n-
^  
    DoEvents _H<OfAO  
     7:E#c"S q  
    '中文摘要 {&qsh9ob  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") `2,_"9Z(  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" >,vW  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False Ki;5 =)  
    With ActiveDocument.Styles("QLNU中文摘要").Font @@mW+16  
        .NameFarEast = "宋体" x)Kh_ G  
        .NameAscii = "Times New Roman" rB|:r\Z(jG  
        .NameOther = "Times New Roman" yzb&
  
        .Name = "Times New Roman" ~cj:AIF  
        .Size = 12 Awf=yE:  
        .Bold = wdUndefined (`/i1#nR  
        .Superscript = wdUndefined @_ZW
P  
        .Subscript = wdUndefined |RXC;zt9s  
        .Italic = wdUndefined 6v)eM=   
        .Underline = wdUnderlineNone ;OqLNfU3y  
        .UnderlineColor = wdColorAutomatic >Mw =}g@P  
        .Color = wdColorAutomatic @7 HBXP
 
    End With vbh#[,lh  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat > BCX%<&  
        .LineSpacingRule = wdLineSpaceExactly zn$Ld,  
        .LineSpacing = 20 NfN6KDd]2L  
        .Alignment = wdAlignParagraphLeft  r74w[6(  
         1Klu]J%  
        .WidowControl = False z( [$,e\  
        .KeepWithNext = False >M85xj
XP  
        .KeepTogether = True L>GYj6D9  
        .PageBreakBefore = False ,8?*U]}  
        .NoLineNumber = False IVODR   
        .OutlineLevel = wdOutlineLevelBodyText 3zF7V:XH  
         1+c(G?Ava  
        .LeftIndent = CentimetersToPoints(0) =C1Qo#QQ%  
        .RightIndent = CentimetersToPoints(0) g7f%(W2dd  
        .FirstLineIndent = CentimetersToPoints(0) >.~k?_Of  
         Y,}43a0A  
        .CharacterUnitLeftIndent = 0 xi=uXxl  
        .CharacterUnitRightIndent = 0 4GA-dtyV&  
        .CharacterUnitFirstLineIndent = 2 ,?~,"IQyi[  
        .LineUnitBefore = 0 a3IB, dr5P  
        .LineUnitAfter = 0 |sM#g1D@  
         irj}:f;!eF  
    End With D ,^ U%<`  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False
* xXc$T  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll , )3+hnFY  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS ys6"Q[B  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True urjp&L&  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese g c=|<(  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True g]JI}O*5  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete LOkDx2@g  
    DoEvents 5
z]KkPQ  
     B#
n}y  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") R!xc$`N  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" $:Zxb  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False g~u!,Zc  
    With ActiveDocument.Styles("QLNU英文标题").Font o;C)!  
        .NameFarEast = "黑体" Z i&X ,K~  
        .NameAscii = "Arial Narrow" |q)Q<%VS'  
        .Name = "Arial Narrow" HV(*6b
@  
        .Size = 16 |]b/5s;>  
        .Bold = True xl=|]8w  
        .Bold = wdUndefined io_64K+K  
        .Superscript = wdUndefined _Fy:3,(  
        .Subscript = wdUndefined 90D.G_45  
        .Italic = wdUndefined 9 NSYrIQ"  
         {z ~ '  
        .Underline = wdUnderlineNone }gaKO 5  
        .UnderlineColor = wdColorAutomatic \9Zfu4WR  
        .StrikeThrough = False !`E2O*g
 
        .DoubleStrikeThrough = False U<byR!qLie  
    End With Z9bPj8d  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat e}w!]  
        .LineSpacingRule = wdLineSpaceSingle |.nWy"L  
        .Alignment = wdAlignParagraphCenter .sMi"gg  
        .WidowControl = True u)>*U'bM  
        .KeepWithNext = False vjS7nR"T  
        .KeepTogether = False 4HmRsOl  
        .PageBreakBefore = False rn*VL(Yd(  
        .NoLineNumber = False tvCTC ey  
        .FirstLineIndent = CentimetersToPoints(0) P"<ad kr  
        .OutlineLevel = wdOutlineLevelBodyText 4yy yXj  
         `P*j~ZLlXN  
        .LeftIndent = CentimetersToPoints(0) ~,1X>N"
  
        .RightIndent = CentimetersToPoints(0) iAhRlQ{Qu  
        .FirstLineIndent = CentimetersToPoints(0) kIo?<=F8T  
         1H@F>}DP  
        .CharacterUnitLeftIndent = 0 ]HT>-Ba;{h  
        .CharacterUnitRightIndent = 0 3e1"5~?'<  
        .CharacterUnitFirstLineIndent = 0 `o'sp9_3  
         KO$8l Mm$  
        .LineUnitBefore = 1 HXo'^^}q;  
        .LineUnitAfter = 1 [/]3:|  
         @},k\Is  
    End With $7g(-W  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False J1MnkxJmpQ  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll T8 /'`s  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS 'o9V0#$!  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True Z6pDQ^Ii  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese &_gmQ;%t:  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True 24l9/v'  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete 1h{_v!X  
    DoEvents 2b1 :Tt9  
FQ^uX]<3j  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") ^>uGbhBp  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" `?m(Z6'  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False 5OE?;PJ(  
    With ActiveDocument.Styles("QLNU英文摘要").Font ?id^v 7d  
        .NameFarEast = "宋体" 6Z: |"AwC2  
        .NameAscii = "Arial" wO NQlt  
        .NameOther = "Arial" Q&{5.}L  
        .Name = "Arial" >.>5%  
        .Size = 12 $yJfAR  
        .Bold = wdUndefined 'iK*#b8l  
        .Italic = wdUndefined [-a /]  
        .Superscript = wdUndefined Q"uu&JC  
        .Subscript = wdUndefined `rLMMYD=  
    End With B`Pi\1H6%  
     izA3INT  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat {.W%m  
         Zwl?*t\D  
        .LineSpacingRule = wdLineSpaceExactly I A^DfdZY  
        .LineSpacing = 20  $%
 t  
         1-<Xi-=^{t  
        .Alignment = wdAlignParagraphJustify 6h8NrjX  
         Rvo<ISp  
        .WidowControl = False 5J3kQ;5Q?  
        .KeepWithNext = False VQ`O;n6/`  
        .KeepTogether = False tJ3s#q6  
        .PageBreakBefore = False oaE3Aa  
        .NoLineNumber = False qpCi61lTDJ  
         |3@
]5f&  
        .OutlineLevel = wdOutlineLevelBodyText 6Wp:W1E{`  
         "5bk82."  
        .LeftIndent = CentimetersToPoints(0) B9\o:eY  
        .RightIndent = CentimetersToPoints(0) (>23[;.0  
        .FirstLineIndent = CentimetersToPoints(0) {'[1I_3  
         ktb.fhO  
        .CharacterUnitLeftIndent = 0 #xB%v  
        .CharacterUnitRightIndent = 0 9rz"@LM  
        .CharacterUnitFirstLineIndent = 2 #{sb>^BF  
         w"J(sVy4  
        .LineUnitBefore = 0 YSmz)YfX9  
        .LineUnitAfter = 1 O[5ti=W  
         S?$T=[yY)  
    End With -n-X/M  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False .quc i(D  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll af{K4:I  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS g`8|jg0]`I  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False -`o:W?V$u  
    DoEvents G&-h,"yo^  
$!lxVZ>  
    Options.Pagination = True A+&Va\|x  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." ) 'KHUa9  
    DoEvents `dhK$jYD  
    ActiveDocument.Repaginate D1 z3E;:  
"w1jr 6"  
End Sub {D8IA3w  
o,I642R~  
.=
S{  

姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 ~jaGf  
E {MSi"  

引用

引用第20楼newport93于06-14-2010 13:47发表的  : qeYr=%)c  
_ U\vHa$#  
老五，I 服了U。 rv%Xvs B  
vL7}0n>tz  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 xXt
DGP  

}m?L/Y'}