Dim bContinue As Boolean ^~s!*T)\  
3pyE'9"f6  
Dim regEX As New RegExp 2B+qS'OT  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 obGvd6\  
$p*.[)  
Dim LastTitle0String As String, LastTitle0No As Long NKiWt Z"  
Dim LastTitle1String As String, LastTitle1No As Long J2k4k  
Dim LastTitle2String As String, LastTitle2No As Long sIRfC< /P  
Dim LastTitle3String As String, LastTitle3No As Long /&l4 sF1  
Dim LastTitle4String As String, LastTitle4No As Long {uxTgX  
Dim LastTitle5String As String, LastTitle5No As Long WsT  
Dim LastTabelString As String, LastTableNo As Long
QFFFxaeJg  
Dim LastFigureString As String, LastFigureNo As Long "om[S :ai  
8Ep!  
Dim strSeperator As String - x;xQ  
s<5PsR  
Sub ConvertWidth(fTEXT As String, rText As String) b`;Cm)@X!)  
        Selection.Find.ClearFormatting z7pw~Tqlz  
        Selection.Find.Replacement.ClearFormatting :g{ybTSEe  
        Selection.Find.Wrap = wdFindContinue [@@EE> y  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText .&n!4F'  
        DoEvents yoM^6o^
,D  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True 5+t$4N+P  
End Sub ),2|TlQ  
Yi <1z:\  
Sub ClearDomain() 9{Ig w"9ck  
        With Selection.Find u R]8ZT")  
            .ClearFormatting Sx1OY0)s  
            .Replacement.ClearFormatting x#hSN|'"  
            .Wrap = wdFindContinue <&tdyAT?&  
            Me.txtStatus.Text = "清除所有域代码" |{MXDx  
            DoEvents f[?JLp   
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False
2rHQ7  
        End With SQ<{X/5  
End Sub ssl.Y!  
4ZkaH(a1  
Private Sub cmdCheck_Click() F:AVik  
    bContinue = True |3>%(4 OS  
    Dim NoSeries1(1 To 16) As String  h
Rqr  
    Dim NoSeries2(1 To 16) As String D#[<N  
    Dim NoSeries5(1 To 16) As String spWo{  
    Dim NoSeriesRM(1 To 16) As String B/Ltb^a  
    Dim paraTotal As Long, ParaText As String &d]@$4u$;  
    Dim ttString As String, ttNo As String A>)Ced!  
     BCX2C  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long QkYKm<b  
8YQ7XB  
    Me.txtStatus.Visible = True ^b 3nEcQn  
    Me.lbParaType.Visible = True LtV,djk  
    Me.cmdCheck.Enabled = False HE0m#  
     L0Ajj =  
     RL*b47,  
     B?4Iu)bCxI  
     *DvQnj  
    Dim ParaType As String, rText As String Kd*=-  
     -8v:eyc  
    Selection.WholeStory hfg ^z5  
    Selection.NoProofing = True tD,I7%|@  
     YUTI)&y  
    tm1 = Now uvi&! )x  
     CtZOIx.;|  
        ActiveWindow.View.Type = wdNormalView 7tne/Yz  
     yi2F#o 'K  
    NoSeries1(1) = "一" v`U;.W  
    NoSeries1(2) = "二" a'O-0]g,  
    NoSeries1(3) = "三" WwUHHm<v  
    NoSeries1(4) = "四" ? U =Mdw  
    NoSeries1(5) = "五" c GyBml1  
    NoSeries1(6) = "六" tjQ6[`  
    NoSeries1(7) = "七" R:[#OH.c  
    NoSeries1(8) = "八" U[z2{\  
    NoSeries1(9) = "九" KGmAnN  
    NoSeries1(10) = "十" fr}.#~{5Y  
    NoSeries1(11) = "十一" u(8dsgR  
    NoSeries1(12) = "十二" WT}xCni  
    NoSeries1(13) = "十三" 2s}G6'xE]P  
    NoSeries1(14) = "十四" lUw=YM  
    NoSeries1(15) = "十五" D'#,%4P,e\  
    NoSeries1(16) = "十六"  V`G^Jyj  
     7R
n 4gT  
    NoSeries2(1) = "㈠" 3E}j*lo  
    NoSeries2(2) = "㈡" )_}xK={  
    NoSeries2(3) = "㈢" x:c'ek  
    NoSeries2(4) = "㈣" lHE \Z`  
    NoSeries2(5) = "㈤" 
7Dw.9EQ  
    NoSeries2(6) = "㈥" # hw;aQ  
    NoSeries2(7) = "㈦" cH707?p/I  
    NoSeries2(8) = "㈧" z'\BZ5riX<  
    NoSeries2(9) = "㈨" .vd*~U"  
    NoSeries2(10) = "㈩" d+"
F(
R9  
     COj^pdE3  
    NoSeries5(1) = "①" _>3#dk  
    NoSeries5(1) = "②" OyG2Ks"H  
    NoSeries5(3) = "③" KL"_h`UW  
    NoSeries5(4) = "④" iDdR-T|  
    NoSeries5(5) = "⑤" m ;wj|@cF  
    NoSeries5(6) = "⑥" -J0I2D  
    NoSeries5(7) = "⑦" (-VH=,Md  
    NoSeries5(8) = "⑧" <4CqG4}Y  
    NoSeries5(9) = "⑨" g'2}Y5m$`  
    NoSeries5(10) = "⑩" +W8kMuM!  
     /v.<h*hxWy  
     g+Y &rz  
    NoSeriesRM(1) = "I" `
/<f([w  
    NoSeriesRM(2) = "II" L1&` 3a?pL  
    NoSeriesRM(3) = "III" 8t
|?b  
    NoSeriesRM(4) = "IV" @9l$jZ~x  
    NoSeriesRM(5) = "V" 0v``4z2Z  
    NoSeriesRM(6) = "VI" ft~QV e!  
    NoSeriesRM(7) = "VII" w|4CBll  
    NoSeriesRM(8) = "VIII" .pH 4[~  
    NoSeriesRM(9) = "IX" g"`jWSt7Q  
    NoSeriesRM(10) = "X" qCq?`0&#  
    NoSeriesRM(11) = "XI" )(pgJLW  
    NoSeriesRM(12) = "XII" [WXcp1p  
    NoSeriesRM(13) = "XIII" r4 qs!(  
    NoSeriesRM(14) = "XIV" s.a@uR^  
    NoSeriesRM(15) = "XV" E:[!)UG|y  
    NoSeriesRM(16) = "XVI" /l8wb~vl  
     :d~mlyFI6P  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) 1B$8<NCQ=?  
     E+/XKF  
    If i = vbNo Then 7/K'nA  
        Exit Sub tg<bVA)E'J  
    End If EJNHZ<  
     ~*`wRiUhis  
    If Me.chkSuper.Value Then U*XdFH}vV  
        Me.txtStatus.Text = "检查修改所有的上标格式" $QwzL/a  
     VBW][f  
        CheckSuperScript j$4lyDfD  
         n^nQrRIp  
    End If IR32O,)  
     5C9 .h:c4y  
    If Me.chkStyle.Value Then UG]x CkDS  
        Me.txtStatus.Text = "设置样式，请稍候...." 0^6} s1d_  
        DoEvents .=) *Qx+  
        CeateOrModifyStyle |)mUO:*  
    End If #c9
MVQ_   
     j"+6aD/lv  
     X|L
_}Q7  
     U !%IC7@  
    ClearDomain u++a0>N  
         IDdu2HNu  
     4tS
h.qBht  
     F4:5 >*:  
    If Me.chkLIST.Value Then O%<+&Q7  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" lB7/oa1]>  
     TQOJN  
        ConvertListToOrdinary OaY]}4tI$  
    End If Wxgs66  
     ,V)hV@Dk  
     Equ%6x  
    Dim pType As String, trimpTEXT As String 8E>2 6@.  
    If Me.chkNum.Value = True Then ;CuL1N#I  
        Me.txtStatus.Text = "转换全角数字形式为半角" hMgk+4*  
        ConvertWidth "１", "1" O#<S\66  
        DoEvents X?]Mzcu  
        ConvertWidth "２", "2" gx2v(1?S  
        DoEvents pP%+@;  
        ConvertWidth "３", "3" C; ME"4,(  
        DoEvents :Ye~I;"8  
        ConvertWidth "４", "4" 2 o 7o~r  
        DoEvents xXJzE|)1h!  
        ConvertWidth "５", "5" IvI;Q0 E-3  
        DoEvents 2#8PM-3"  
        ConvertWidth "６", "6" u3DFgl3-7  
        DoEvents ?.ofs}  
        ConvertWidth "７", "7" D\E"v,Y\+O  
        DoEvents d  <zD@ z  
        ConvertWidth "８", "8" YB4|J44Y  
        DoEvents 4$4Tx9C  
        ConvertWidth "９", "9" zLPCWP.u  
        DoEvents fT=ZiHJ3Gu  
        ConvertWidth "０", "0" wQM( |@zE}  
        DoEvents }S%}%1pG7  
        ConvertWidth "ａ", "a" Np;tpq~  
        DoEvents qj^A  
        ConvertWidth "ｂ", "b" H~:g=Zw  
        DoEvents C
OD^osM@  
        ConvertWidth "ｃ", "c" 7w\!3pv  
        DoEvents mXu";?2  
        ConvertWidth "ｄ", "d" |
7.X)h`  
        DoEvents ~8'HX*B]z  
        ConvertWidth "ｅ", "e" a;(,$q3M  
        DoEvents @JOsG-VW~  
        ConvertWidth "ｆ", "f" ^5+7D1>W%  
        DoEvents "o@R}_4]q  
        ConvertWidth "ｇ", "g" @[1,i~H  
        DoEvents #nKGU"$+  
        ConvertWidth "ｈ", "h" 3Qp6$m  
        DoEvents *4 8LQzc  
        ConvertWidth "ｉ", "i" C*Qx  
        DoEvents I,V'J|=j  
        ConvertWidth "ｊ", "j" TC ;Aj|)N  
        DoEvents NkQain9  
        ConvertWidth "ｋ", "k" knWI7  
        DoEvents ]ed7Q3lq  
        ConvertWidth "ｌ", "l" ^plP1c:  
        DoEvents F |_mCwA  
        ConvertWidth "ｍ", "m" }}wSns  
        DoEvents @;[.#hK  
        ConvertWidth "ｎ", "n" X*e:MRw[  
        ConvertWidth "ｏ", "o" {@Z*.G^  
        ConvertWidth "ｐ", "p" 7e{w,.ny!  
        ConvertWidth "ｑ", "q" :]* =f].  
        ConvertWidth "ｒ", "r" (D+%*ax  
        ConvertWidth "ｓ", "s" =wa5\p/  
        ConvertWidth "ｔ", "t" UaHN*@  
        ConvertWidth "ｕ", "u" Rb <{o8  
        ConvertWidth "ｖ", "v" {q&A/  
        ConvertWidth "ｗ", "w" 5!6}g<z&L  
        ConvertWidth "ｘ", "x" uuy0fQQ8ti  
        ConvertWidth "ｙ", "y" MN>U jF A  
        ConvertWidth "ｚ", "z" 5KssfI a  
        ConvertWidth "Ａ", "A" Ae<;b Of
 
        ConvertWidth "Ｂ", "B" $<f+CtD4  
        ConvertWidth "Ｃ", "C" rNgAzH  
        ConvertWidth "Ｄ", "D" wD@ wOC  
        ConvertWidth "Ｅ", "E" qLB(Th\&'  
        ConvertWidth "Ｆ", "F" _b &Aa%  
        ConvertWidth "Ｇ", "G" j>~@vq  
        ConvertWidth "Ｈ", "H" s3~6[T?8  
        ConvertWidth "Ｉ", "I" W\e!rq  
        ConvertWidth "Ｊ", "J" l_fERp#y  
        ConvertWidth "Ｋ", "K" Y1BxRd?D  
        ConvertWidth "Ｌ", "L" MF$NcU  
        ConvertWidth "Ｍ", "M" (e3?--~b6  
        ConvertWidth "Ｎ", "N" 1+-F3ROP  
        ConvertWidth "Ｏ", "O" 5=! aq\ 5  
        ConvertWidth "Ｐ", "P" 8 ;=?Lw?  
        ConvertWidth "Ｑ", "Q" |~=4ZrcCP  
        ConvertWidth "Ｒ", "R" 5jTA6s9zA  
        ConvertWidth "Ｓ", "S" 0JhUncx  
        ConvertWidth "Ｔ", "T" myB!\WY   
        ConvertWidth "Ｕ", "U" DyQvk  
        ConvertWidth "Ｖ", "V" D.h<!?E%  
        ConvertWidth "Ｗ", "W" ! n?j)p.  
        ConvertWidth "Ｘ", "X" 1i Q(q\%  
        ConvertWidth "Ｙ", "Y" T8vMBaU!qY  
        ConvertWidth "Ｚ", "Z" =.9tRq  
        ConvertWidth "^l", "^p" l_2YPon  
        ConvertWidth "（", "(" "azrcC  
        ConvertWidth "）", ")" ^{g+HFTA@  
     ~
$bQ;`,L  
    End If i^/H>E%u  
RP wP4Z  
    With ActiveDocument aQ)g7C  
        Dim tbl As Table ^Ux*"\/Es  
        For Each tbl In .Tables ?[ lKft  
            tbl.Rows.Alignment = wdAlignRowCenter -AKbXkc~\  
            tbl.Range.Font.NameFarEast = "楷体" ur k@v  
            tbl.Range.Font.NameAscii = "Times New Roman" {7=k/Y*U  
            tbl.Range.Font.Size = 10.5 tgu fU  
        Next ,Nev7X[0  
        Set tbl = Nothing EtcXzq>w  
    End With ML X: S?  
     U9RpHh`  
     u?8e>a  
    With ActiveDocument yF^)H{yx  
         3N{ ZX{}  
        For i = 1 To .TablesOfContents.Count =}W)%Hldr.  
            .TablesOfContents(i).Delete 4 _\]zhS  
        Next PmDar<m  
         hPUYq7B  
         >W j8[9zf  
         Zr;(a;QKs  
        paraTotal = .Paragraphs.Count [_p&,$z8[  
        paraCounter = 1 l" H/PB<.  
         ' @j8tK  
        LastTitle0No = 0 s06R~P4  
        LastTitle1No = 0 H3S u'3  
        LastTitle2No = 0
r}t%DH  
        LastTitle3No = 0 A
dRt\H<  
        LastTitle4No = 0 8V:yOq10  
        LastTableNo = 0 et}s yPH  
        LastFigureNo = 0 +@ #-S  
         f=40_5a6  
        Dim Sec As Long x0L,$Ol  
        
om,=.,|Ld  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) }@g#S@o  
        If Sec = 0 Then {>#4{D00  
            Exit Sub 1)M%]I4  
        End If ':,p6  
         \JZ'^P$Q  
        k = 0 3a,7lTUuB  
        Do While (paraCounter < paraTotal) And bContinue DVRbTz3V  
            k = k + 1 [zl"G^z  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then w W^3/  
                Exit Do hC2Ra "te)  
            End If 65pC#$F<x  
            paraCounter = paraCounter + 1 [kZe6gYP&  
            If k Mod 20 = 0 Then 6z+*
H7Qz  
                Me.lbCounter.Caption = paraCounter |7G=f9V  
                DoEvents lb#`f,r>  
            End If f@IL2DL}\  
        Loop @nF#\  
         v>mr  
         i52:<< 8a  
        Do While (paraCounter < paraTotal) And bContinue 3?DM AV  
             )Y,>cg:z~  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) jo
=,j/,l  
            ShapeHeight = 0 `]g}M,  
            ShapeWidth = 0 `LCxxpHi|  
           ;+]GyDgVq  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth }^B=f_Ag  
             9Vv&\m!0  
            Select Case ParaType Nc :>]  
                Case "【】表格内容" las|ougLy  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" 81U(*6  
                Case "章" :+|os"  
                    LastTitle0No = LastTitle0No + 1 oNr~8CA`  
                    '新一章开始，复位其下属标题编号 $`/J V?Z  
                    LastTitle1No = 0 1:lhZFZ  
                    LastTitle2No = 0 _}wy|T&7k&  
                    LastTitle3No = 0 K)t+lJ  
                    LastTitle4No = 0 Mo+HLN  
                     cwA+?:Ry}  
                    k = Val(ttNo) LP:C9Ol\  
                    If k = 0 Then '非数字编号章节 [z`m`9Aq  
                        If ttNo <> NoSeries1(LastTitle0No) Then tr\}lfK%  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString 4*9:   
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText F>A&L8  
                        End If *1;}c z  
                    Else -|xyj2M  
                        If Val(ttNo) <> LastTitle0No Then P(za8l
>  
                            rText = "第" & LastTitle0No & ttString 20H$9M=}  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText t6O/Q0_  
                        End If #N"K4@]{  
                         uia
-w^F e  
                    End If `;!v<@:i2  
                     ?k*s!YCZ  
                    '章段落设置 d.uJ}=|  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 p,+$7f1S  
                    .Paragraphs(paraCounter).Style = "QLNU章节" w0^T-O`<  
                    .Paragraphs(paraCounter).Range.Select ,~- dZs  
                    Selection.EndKey unit:=wdLine n~k9Z^ $  
                    tc = Replace(rText, vbCr, "") u4[3JI>  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False .pQ4#AJ  
                Case "一级标题" ro4 XA1  
                    LastTitle1No = LastTitle1No + 1 mam2]St"  
                    '新一级标题开始，复位其下属标题编号 #~^Y2-C#  
                    LastTitle2No = 0 E`SFr  
                    LastTitle3No = 0 3EKqXXzOB  
                    LastTitle4No = 0 ~;0J4hR  
                     ?$xZ$zW  
                    If ttNo <> NoSeries1(LastTitle1No) Then hE>i~:~R  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString =-dk@s  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText t,K_!-HX+  
                    End If v-@xO&<  
                   k
ycZ  
                     Yj^n4G(h  
                    '一级标题段落设置  格式：一、标题内容 -?WhJ.U  
                    .Paragraphs(paraCounter).Range.Text = rText cC6W1K!  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" G#;$;  
                    .Paragraphs(paraCounter).Range.Select VZ8HnNAbX  
                    Selection.EndKey unit:=wdLine |JW-P`tL0  
                    tc = Replace(rText, vbCr, "") <w d+cPZQr  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False &Rx-zp&dJ  
                Case "二级标题" k;pTOj  
                    LastTitle2No = LastTitle2No + 1 0SBiMTm  
                    '新二级标题开始，复位其下属标题编号 +9mnxU>  
                    LastTitle3No = 0 I
z\IQa  
                    LastTitle4No = 0 \f_YJit  
                     ?5!>k^q  
                    If ttNo <> NoSeries1(LastTitle2No) Then k%Q>lf<e   
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString :kDHwYv$  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText RWi~34r  
                    End If ')/yBH9mR  
                     w;(`!^xv  
                    '二级标题段落设置 格式：(一)、标题内容 uiIY,F
L$  
                    .Paragraphs(paraCounter).Range.Text = rText EV 8}C=  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" wZm=h8d  
                     :n&n"`D~  
                    .Paragraphs(paraCounter).Range.Select ',yY  
                    Selection.EndKey unit:=wdLine yA+:\%y$  
                    tc = Replace(rText, vbCr, "") ,#42ebGHR  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False |:i``gFj  
                 jnuovM!x~  
                Case "三级标题" p}NIZ)]$  
                    LastTitle3No = LastTitle3No + 1 
cO"7wgg  
                    '新三级标题开始，复位其下属标题编号 gs_nUgcA  
                    LastTitle4No = 0 W=Ru?sG=  
                     u;Q'xuo3  
                    If Val(ttNo) <> LastTitle3No Then tc@([XqH  
                            rText = LastTitle3No & ". " & ttString YRYAQj/7  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText 7usf^g[dh  
                          CKv[E  
                    End If `}^_>  
                    '三级标题段落设置 格式：1. 标题内容 =%YU~  
                    .Paragraphs(paraCounter).Range.Text = rText tF<|Eja*  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" 5h^U
]Y#  
                    .Paragraphs(paraCounter).Range.Select S&@uY#_(*T  
                    Selection.EndKey unit:=wdLine D@(Y.&_  
                    tc = Replace(rText, vbCr, "") Z\d7dbv  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False 'o2
x7~C@  
                Case "四级标题" MKYXYR  
                    LastTitle4No = LastTitle4No + 1 H`$s63  
                     F$FCfP7  
                    If Val(ttNo) <> LastTitle4No Then PZRm.vC)k  
                            rText = "(" & LastTitle4No & "). " & ttString {
Ah\-{]  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText u"\HBbBx  
                     ?2;r#)  
                    End If <5Jp2x#  
                    '四级标题段落设置 格式：(1). 标题内容 +_HPZo  
                    .Paragraphs(paraCounter).Range.Text = rText dM(}1%2  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" $!<J_d*  
                    .Paragraphs(paraCounter).Range.Select F~dq7AS  
                    Selection.EndKey unit:=wdLine ozbu|9+v  
                    tc = Replace(rText, vbCr, "") ruL
i "d  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False }F1|& A  
                 >g@;`l.Z#  
                Case "表格标题" AopCxaJ`  
                    LastTableNo = LastTableNo + 1 zUqt^_  
                     *1}'ZEaJ  
                    If ttNo <> CStr(LastTableNo) Then [*O#6Xu  
                            rText = "表" & LastTableNo & ". " & ttString Fa$ pr`  
                            ErrMsg.AddItem "表格编号错误：" & ParaText
>*v^E9Y  
                   )} y1  
                    End If UJ_E&7,L  
                     f#a ~av9rC  
                    '表格名称段落设置 格式：表1. 表格名称 ?+S&`%?  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" (
ROurq"  
                    xe = Replace(rText, vbCr, "") R)"Y40nW  
                    .Paragraphs(paraCounter).Range.Select f_r1(o5:Y  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 )x-iru A:  
                    Selection.Range.Text = xe Wm nsD!  
                    Selection.EndKey MmBM\Dnv  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False J}qk:xGL  
                 t>h<XPJi  
                Case "表格首行" tdn[]|=  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" =!'gV:M  
                Case "图片标题" !+4}x;!8  
                    LastFigureNo = LastFigureNo + 1 YB h:  
                     [g_Cg=J  
                    If ttNo <> CStr(LastFigureNo) Then 8]Xwj].^C  
                            rText = "图" & LastFigureNo & ". " & ttString Kv[,!P"Y  
                            ErrMsg.AddItem "表格编号错误：" & ParaText is%qG?,P  
                   B1 oy,'  
                    End If dwKre#4F  
                    '图片名称段落设置 格式：图1. 图名称 sY=fS2b#)  
                    .Paragraphs(paraCounter).Range.Text = rText _'k?9eN`  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" =~% B}T  
                    .Paragraphs(paraCounter).Range.Select 1\q2; 5  
                    Selection.EndKey unit:=wdLine EnJAHgRV;e  
                    xe = Replace(rText, vbCr, "") jZcjiOX  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False g_}r)CgG|  
                Case "正文" Cyxt EzPp  
                     '正文名称段落设置 1o7 pMp=  
                    .Paragraphs(paraCounter).Style = "QLNU正文" cy)gN g  
               Case "文献条目" mfO:#]
K  
                    With .Paragraphs(paraCounter) @ba5iIt  
                        '.Range.Select l|`%FB^k  
                        'Selection.ClearFormatting q79)nhC F  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” _^'fp  
                        .Style = "QLNU参考文献" >+=)Q,|R  
                    End With ^.F@yo2}  
               Case "图表注解" MEbx{XC  
                    With .Paragraphs(paraCounter) 2jf-
vWV_  
                        .Range.Font.NameFarEast = "楷体" ]BU ,*YaB  
                        .Range.Font.NameAscii = "Times New Roman" ?w1_.m|8u  
                        .Range.Font.Size = 9 '小5号字 @4m_\]Wy  
                         !ec\8Tj  
                        .Alignment = wdAlignParagraphCenter Ep0L51Q  
                        .LeftIndent = 0 `Y-uNJ'.N  
                        .RightIndent = 0 &E$jAqc  
                        .FirstLineIndent = 0 UK2Y<\vD  
                        .LineSpacing = 12 '}*5ee](S  
                        .LineSpacingRule = wdLineSpaceExactly }> k9]Y  
                        .LineUnitAfter = 0 pO$`(+q[  
                        .LineUnitBefore = 0 >b#z o,  
                        .OutlineLevel = wdOutlineLevelBodyText SI3ek9|XU  
                        .PageBreakBefore = False '2a}1?  
                        .RightIndent = 0 c?Bi  
                        .WordWrap = True z

PU& }7  
                        .LineUnitAfter = 0.5 *usfJ-  
                         [1'`KJ]  
                    End With +I#5?  
                Case Else VY$hg  
                    '不作处理 MN|y5w}$u
 
            End Select |n3PznV  
             gEtDqq~y@  
            '含有inlineshape的段落处理 @c{=:kg5  
            If ShapeHeight > 30 Then |C@)#.nm[  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 '8~7Ru\KyX  
            End If NjVuwIm+  
             HH3WZ^0>  
            If (ShapeWidth + ShapeHeight) > 150 Then \pB"R$YZ6  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" dRyK'Xr
 
            End If v
bmSbZ"y  
             mCe,(/>l+  
            '段落计数器递 !SIGzj  
            paraCounter = paraCounter + 1 _d&zHlc_  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter A"k6n\!n;  
            Me.txtStatus.Text = ParaText S5E mLgnRs  
            DoEvents GwV2`2  
        Loop d:O>--$_tw  
    End With )+Wx!c,mb  
     ?@l9T)fF  
    msg = "" j|9;") 1  
     zv!%u=49  
    For i = 0 To Me.ErrMsg.ListCount - 1 X%xX3e'  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) to^ &:  
    Next "-kb=fY  
     &F[/@  
     Ob?>zsx  
     g/W<;o<v(I  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg ,:G.V  
    Me.cmdCheck.Enabled = True n[CESo%[  
    Me.txtStatus.Visible = True m;lwMrY\7>  
    Me.lbParaType.Visible = False eCMcr !.  
     vL{~?vq6  
    bContinue = False tS8*l2Y`   
End Sub {QTfD ~z^K  
afv?z  
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) ' O8"M  
    Dim pTEXT As String *nluK  
     9M:wUYHT  
    pTEXT = ChKRange.Text V#^~JJW^  
     C 7YZ;{t  
    ParaType = "其它" ]|( (&Y rl  
    TitleString = pTEXT gzvEy^X  
    TitleNo = "N/A" q/Ba#?sen  
     *j2P#et  
    shpCounter = ChKRange.InlineShapes.Count P49lE  
    If shpCounter <> 0 Then {bl&r?[y  
        MaxShpHeight = 0: TotalShpWidth = 0 BS>|M}G)r  
        For i = 1 To shpCounter BQmg$N,F  
            k = ChKRange.InlineShapes(i).Height JSt%L|}Y  
            l = ChKRange.InlineShapes(i).Width /OK.n3Tt  
            If k > MaxShpHeight Then U2=5Nt5  
                MaxShpHeight = k $:s1x\ol  
            End If *Eu ca~%=  
            TotalShpWidth = TotalShpWidth + l QKYIBX  
        Next ]nhLv!Co  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then <)n1
Z[4  
            Exit Sub 1[C,*\X8v  
        End If 41mg:xW(J  
    End If y. @7aT5  
     $[}31=0  
    '空行 /d9I2~}B  
    If Len(pTEXT) <= 2 Then 9`i=kp  
        Exit Sub Am%zEt$c  
    End If !v<r=u  
     K& <|94_k  
         Zaf].R  
    '是否为表格中的文字 l.\Fr+*ej  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then L{ ?& .iA  
        ParaType = "表格内容" CtV$lXxup  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) "X g@X5BG  
        If k = 1 Then FEw51a+V  
            ParaType = "表格首行" NQ !t`
  
        End If RD_&m?d  
        Exit Sub w#U3h]>,  
    End If
-RVwPY  
     5Y#yz>B@ ]  
    '例外情况：脚注 Z$kff-Y4  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then ;FQAL@"Yj  
        ParaType = "脚注" Xz4!#,z /  
        Exit Sub t=NPo+fm  
    End If 4Z"DF)+}  
     ooreforr  
    '例外情况：尾注 >,Zjlkh3  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then 5Az=)q4Q  
        ParaType = "尾注" N?U;G*G  
        Exit Sub bv
5,Yk  
    End If ^E 8&!s  
     D)8&v`LS  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then )}hp[*C  
        ParaType = "页眉页脚" l|^p;z:d  
        Exit Sub  &Hb6  
    End If sbZ)z#Tr  
     BJ<hP9#  
     YTpSR~!Rj  
    With regEX `QXO+'j4  
        .Global = True o*eU0   
         DGj:qd(  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" :"g^y6i  
        If regEX.Test(pTEXT) Then 4K[E3aA  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") oh-Y  
            TitleString = regEX.Replace(pTEXT, "$3") mEv<r6qDT  
            TitleNo = regEX.Replace(pTEXT, "$1") *4Y1((1k
 
            ParaType = "章" 9xyj,;P>  
            Exit Sub m,,-rC  
        End If 63QMv[`,  
         ?P
,z^  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" ! pR&&uG  
        If regEX.Test(pTEXT) Then T|Sz~nO }f  
            ParaType = "一级标题" {*ATY+  
            regEX.Execute (pTEXT) iKN~fGR
c  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") Ovv~
ymj  
            TitleString = regEX.Replace(pTEXT, "$3") kq8:h  
            TitleNo = regEX.Replace(pTEXT, "$1") ]C3{ _?=  
            Exit Sub *%7[{Loz  
        End If t*m04* }  
         V$VqYy9 *  
        '全角或半角括号中的数字 *9y)B|P^  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" M' e<\wqm  
        If regEX.Test(pTEXT) Then Urj8v2k  
            ParaType = "二级标题" iagl^(s  
            regEX.Execute (pTEXT) pYa8iQ`6U;  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") c [sydl  
            TitleString = regEX.Replace(pTEXT, "$5") >0Y >T6!  
            TitleNo = regEX.Replace(pTEXT, "$2") 5,}
)x]'x  
            Exit Sub C=IT`iom1C  
        End If ^.p({6H  
         ^=.R#zrc  
        '阿拉伯数字  1. 2. 6X~.J4  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" a\ fG)Fqp  
        If regEX.Test(pTEXT) Then Ci4`,  
            ParaType = "三级标题" x2=Bu#Y  
            regEX.Execute (pTEXT) %i{Z@  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 H=9kDP${  
            TitleString = regEX.Replace(pTEXT, "$3") _t||v  
            TitleNo = regEX.Replace(pTEXT, "$1") #(F/P!qk  
            Exit Sub K#_&}C^-jY  
        End If @X+ m,u  
         <qT[  
        '全角或半角括号中的阿拉伯数字 ]W~\%`#8?  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" dKTyh:_{  
        If regEX.Test(pTEXT) Then '#!nK O2<  
            ParaType = "四级标题" >!848J  
            regEX.Execute (pTEXT) E;/WP!/.  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") r@ujE,D=k  
            TitleString = regEX.Replace(pTEXT, "$5") njtz,qt_;G  
            TitleNo = regEX.Replace(pTEXT, "$2") U(P^-J<n1  
            Exit Sub 1"YN{Ut;G  
        End If "XfCLc1 T  
         _v bCC7Bf8  
        '表格名称 JFH3)Q  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" px8988X  
        If regEX.Test(pTEXT) Then <K;  
            ParaType = "表格标题" ug{@rt/"Z  
            regEX.Execute (pTEXT) g>-pC a  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) GK.^Gd  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) 4l7TrCB  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) b3F)$UQ  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 Z8E-(@`q5Q  
            Exit Sub _8A  
        End If #%O|P&rA  
         U$v|c%6  
        '图片名称 yiO!ZT  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" (hNTr(z  
        If regEX.Test(pTEXT) Then SK [1h
3d  
            ParaType = "图片标题" p4GhT~)l:  
            regEX.Execute (pTEXT) {L~j;p_G&  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") cWjb149@)  
            TitleString = regEX.Replace(pTEXT, "$3") nF>41 K  
            TitleNo = regEX.Replace(pTEXT, "$1") 3.@"GS#"[  
            Exit Sub m0QE S  
        End If 6!zBLIYFI  
         )12.W=p  
        '参考文献 h?R{5?RxK  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 YbtsJ <w  
        If regEX.Test(pTEXT) Then "5 ;fuM1  
            ParaType = "文献条目" |eykb?j`  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") ]xC#XYE:dy  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") J|,Uu^7`  
            Exit Sub }A jE- K{  
        End If \ne1Xu:hM  
         86Hg?!<i.  
        prfx = Left(pTEXT, 2) U{i xok  
        If prfx = "注：" Or prfx = "注:" Then ve($l"T  
            ParaType = "图表注解" })W9=xO~  
            Exit Sub vZ,DJ//U,  
        End If M2H +1ic  
         7]W6\Z  
         (rqc_ZU5  
        ParaType = "正文" 7OAM  
         h ` qlI1]  
    End With fh_+M"Y0`  
End Sub -!;2?6R9{  
eyW8?:  
Sub ConvertListToOrdinary() H3-(.l[!b)  
    Dim st As Paragraph $` j% z@[g  
    With ActiveDocument [As9&]Bv5  
        For i = .Paragraphs.Count To 1 Step -1 EyR~VKbJ'  
            Set st = .Paragraphs(i) 9$[6\jMh  
            lst = st.Range.ListFormat.ListString ~MWI-oK  
            If lst <> "" Then c?5?TJpm  
                st.Range.ListFormat.RemoveNumbers Ln:6@Ok)5%  
                st.Range.InsertBefore lst & " " m}A|W[p<  
            End If +7\$wc_1I@  
        Next fwQVxJe  
    End With ^POHQQ  
    Set st = Nothing JguP XHa0  
End Sub )U12Rshl  
p0*qv "lA  
Private Sub UserForm_Activate() #1*
#3p9UL  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" z^lcc7  
    Me.lbTotal.Font.Bold = True =mR~\R( I  
    Me.txtStatus.Visible = False (xpt_]Q!H  
    Me.cmdCheck.Enabled = True ICck 0S!  
F<.oTP-B  
End Sub '8%jA$o\g  
~,ZU+  
!LI6_Oq  
Sub CheckSuperScript() <*JFY%y"  
    Selection.Find.ClearFormatting Vu.VH([b]Q  
    Selection.Find.Replacement.ClearFormatting {uUV(FzF6  
    With Selection.Find GDF/0-/Z  
        .Text = "[【\[［〖](*)[】\]〗］]" .3 >"qv  
        .Replacement.Text = "[\1]" >~@O\n-t  
        .Replacement.Font.Superscript = True _%g L  
        '.Replacement.Font.Color = wdColorBlue {W+IUvn  
        .Forward = True |d$4Fu(M ~  
        .Wrap = wdFindContinue d1P|v( `S9  
        .FORMAT = True :FTx#cZ  
        .MatchCase = False IG+g7kDCY  
        .MatchWholeWord = False p{ Xde   
        .MatchByte = False K;z$~;F  
        .MatchAllWordForms = False vA3wn><  
        .MatchSoundsLike = False b5Q|$E   
        .MatchWildcards = True ; b{yu|  
    End With *+OS;R1<  
    Selection.Find.Execute Replace:=wdReplaceAll clG@]<a`_  
End Sub ?(Se$iTZ  
oyB gF\  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) {Qi J-[q  
    bContinue = False (Bq^ D9  
    Set regEX = Nothing l1bkhA b  
End Sub dGyrzuPJ  
xKR\w!+Z'  
Sub CeateOrModifyStyle() lArKfs/  
' X[<%T}s#  
' Um}f7^fp^l  
Dim stl As Style <
Y]e  
     GO?hB4 9T  
    Options.Pagination = False ;NOmI+t0w&  
     7}:+Yx
 
    On Error Resume Next /4*Y#IpZ  
    For Each stl In ActiveDocument.Styles r<$o [,W  
        stl.Delete 8`
<e\g7-  
    Next SJB^dI**/d  
    On Error GoTo 0 lZAXDxhnT  
     nb<e<>L  
    Set stl = Nothing jme
`Tyd  
      nU4to  
    DoEvents VV;%q3}:  
    On Error Resume Next V&*|%,q  
     aFaioE#h(  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph ZDG~tCh=@  
     ({ O~O5k  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph Y-UXr8  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph #M
%K82"  
     P_4E<"eK  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph G9^xv  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph NbC
2N)L4  
     bwM?DY
 
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph 7u{V1_n1  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph qnCjNN  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph WBD?|
Ss  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph @U3:9~Q  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph {dXTj7  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph N4#D&5I",  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph zauDwV=  
     6P3h955c  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph fy]c=:EmD  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph | C^.[)  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph h@E7wp1'~  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph T|8:_4/l  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph VKkvf"X  
     0 N"N$f  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph Q^;:
Kl.b  
    On Error GoTo 0 %s497'  
    DoEvents qA;Gl"HF  
     u^G Y7gah  
    'BaseStyle 0-~s0R89A  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False Esu{c9,  
    With ActiveDocument.Styles("BaseStyle").Font gu6%$z  
        .NameFarEast = "宋体" hq&|  
        .NameAscii = "Times New Roman" q
u1+.z=|  
        .NameOther = "宋体" lb$_$+@Vr  
        .Size = 10.5 35Fxzj $  
        .Bold = wdUndefined nK32or3  
        .Italic = wdUndefined /IN#1I!K  
        .Subscript = wdUndefined 3&>0'h  
        .Subscript = wdUndefined y XKddD  
         oYdE s&qq  
        .Underline = wdUnderlineNone W]oa7
VAq  
        .UnderlineColor = wdColorAutomatic G^N@r:RS  
        .StrikeThrough = False iO&*WIbg  
        .DoubleStrikeThrough = False w3ATsIw  
         ,-hbwd~M  
        .Outline = False 4(*PM&'R  
        .Emboss = False (i L*1f   
        .Shadow = False ,{m
v6?_  
        .Hidden = False 9
dw* ++  
        .SmallCaps = False ?JG^GD7D  
        .AllCaps = False c<,LE@V  
        .Color = wdColorAutomatic %ufh  
        .Engrave = False c7~R0nP  
        .Scaling = 100 =&6sU{j*  
        .Kerning = 1 F^$;hMh%  
        .Animation = wdAnimationNone ,f{w@Er  
        .DisableCharacterSpaceGrid = False obE8iG@H  
        .EmphasisMark = wdEmphasisMarkNone +%v1X&_\  
    End With Pz34a@%"  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat WW.@&#S5  
        .LeftIndent = 0 9/!1J  
        .RightIndent = 0 Ui!l3_O  
        .SpaceBefore = 0 T60pw  
        .SpaceBeforeAuto = False OLPY<ax  
        .SpaceAfter = 0 Q-<Qm?  
        .SpaceAfterAuto = False Hdg Ny\  
         <}:` Y"  
        .LineSpacingRule = wdLineSpaceSingle BPa,P_6(  
        .Alignment = wdAlignParagraphJustify QyxUK}6mr  
         67hfve  
        .WidowControl = False J$sBfOD  
        .KeepWithNext = False 7*j!ZUzp  
        .KeepTogether = False ~|9VVeE  
        .PageBreakBefore = False  63 'X#S  
        .NoLineNumber = False I 1n,c d[  
         N2k<W?wQ  
        .FirstLineIndent = CentimetersToPoints(0) Q?;Tc.O"/  
        .OutlineLevel = wdOutlineLevelBodyText =6qTz3t  
        .CharacterUnitLeftIndent = 0 { 1Y
@%e  
        .CharacterUnitRightIndent = 0 }% f7O  
        .CharacterUnitFirstLineIndent = 0 DI8<0.L  
        .LineUnitBefore = 0 ,#FP]$FK  
        .LineUnitAfter = 0 Xp_m=QQsm  
        .AutoAdjustRightIndent = True [zBi*%5O  
        .DisableLineHeightGrid = True SkMFJ?J/  
         ]/kpEx  
        .FarEastLineBreakControl = True 3:MJKS02OD  
        .WordWrap = True y+T[="W  
        .Hyphenation = False D HT^.UM28  
         =w}JAEE|(i  
        .HangingPunctuation = True `<yQ`Y_X  
        .HalfWidthPunctuationOnTopOfLine = True Pw| h`[h  
        .AddSpaceBetweenFarEastAndAlpha = True F$(ak;v}  
        .AddSpaceBetweenFarEastAndDigit = True F@k}p-e~  
        .BaseLineAlignment = wdBaselineAlignBaseline 8 eK8-R$  
    End With t/Y0e#9,  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False y] c1x= x  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll ,% QhS5e  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese Yb-{+H8{J  
    ActiveDocument.Styles("BaseStyle").NoProofing = False Nf^<pT[*  
     @J&korU  
    '一级标题题样式 E( j#R"  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") W^H3=hZ  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" RYA@{.O  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False #gqh0 27  
    With ActiveDocument.Styles("QLNU一级标题").Font /W)A[jR  
        .NameFarEast = "黑体" mM7 2>1~L*  
        .NameAscii = "Arial Black" j{YYG|  
        .NameOther = "黑体" w6Nnx5Ay  
        .Name = "黑体" ka!v(j{E  
        .Size = 16              '三号 vue^bn  
        .Bold = True n8F~!|lQ0  
        .Italic = wdUndefined :^WF%X  
        .Subscript = wdUndefined
MW6z&+Z  
        .Superscript = wdUndefined /ZD6pF  
    End With s :7/\h  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat (bQ3:%nD  
         tnaFbmp  
        .LeftIndent = CentimetersToPoints(0) 3r,~-6  
        .RightIndent = CentimetersToPoints(0) C6[W/,eS  
        .FirstLineIndent = CentimetersToPoints(0) Vn4wk>b}$2  
         ) jH`lY)1  
        .LineSpacingRule = wdLineSpaceSingle h#"$W ;(  
        .Alignment = wdAlignParagraphCenter n Syq}Y3  
         >> "gb/x,  
        .WidowControl = True >9rZVNMU  
        .KeepWithNext = True ,bXZ<RY $  
        .KeepTogether = True Oo@o$\+v  
        .OutlineLevel = wdOutlineLevelBodyText 6_4B!  
         ^L5-2;s<U'  
        .LineUnitBefore = 0.5 Fu_I0z  
        .LineUnitAfter = 0.5 n'v\2(&uYN  
    End With fC
x(  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False z,4mg6gt  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll Q8%_q"C  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese l>}f{az-T  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True t|eH'"N%o  
    DoEvents s6@mXO:H^  
     R__:~uv,  
    '二级 xsB0LUt  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") fE+zA)KX  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" .dk<?BI#H  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False K\rQb  
    With ActiveDocument.Styles("QLNU二级标题").Font v8*)^-Fx  
        .NameFarEast = "黑体" HK8sn1j  
        .NameAscii = "Arial Narrow" jZzTnmm&?  
        .NameOther = "黑体" _%- +"3Ll  
        .Name = "黑体"  !CWe1Dm  
        .Size = 15        '小三号 -1,0hmn=+  
        .Bold = False /3,Lp-kp
 
        .Outline = False >PSO]%mE  
        .Italic = wdUndefined q:/df]Ntt  
        .Subscript = wdUndefined \O;2^  
        .Superscript = wdUndefined `,-mXxTNT  
    End With H#_Zv]  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat 8 Rwk o6x  
        .LeftIndent = CentimetersToPoints(0)  d(o=)!p  
        .RightIndent = CentimetersToPoints(0) M&j|5UH%.  
        .FirstLineIndent = CentimetersToPoints(0) lP3|h*  
         OQ&N]P2p  
        .LineSpacingRule = wdLineSpaceSingle az6&  
        .Alignment = wdAlignParagraphLeft R,G*]/r`  
         "vSKj/]  
        .WidowControl = True zo(#tQ-'m  
        .KeepWithNext = True
i CF},W+  
        .KeepTogether = True J+`aj8_B  
        .PageBreakBefore = False i=aR~
  
        .OutlineLevel = wdOutlineLevelBodyText ;Zd_2 CZ  
         0I)$!1~O)  
        .LineUnitBefore = 0.5 #y83tNev  
        .LineUnitAfter = 0.5 |nZ^RCHog  
         " Gp[.=.z?  
    End With RW L0@\  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False 8|i'~B FHs  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll cjEqN8  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese TwPQ8}pj?  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True y4Jc|)  
    DoEvents I "AjYv4R  
     
:3n@].  
    '三级标题样式 iPTQqx-m$7  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") HeAXZA,  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" ,Y/B49  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False LpU}.  
    With ActiveDocument.Styles("QLNU三级标题").Font Ai< beUS  
        .NameFarEast = "宋体" 6P1s*u  
        .NameAscii = "Times New Roman" =0
=#M( w  
        .NameOther = "黑体" HrBJi  
        .Name = "黑体" PC_!  
        .Size = 14               '四号 -`~qmRpqY  
        .Bold = False =\oH= f  
        .Outline = False '`P%;/z  
        .Italic = wdUndefined &J6
`Q<U!  
        .Subscript = wdUndefined 0N,<v7PX  
        .Superscript = wdUndefined MjMDD  
    End With  l(?B0  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat J
pC'(N  
        .LeftIndent = CentimetersToPoints(0) G%erh}0~  
        .RightIndent = CentimetersToPoints(0) [CI&4)#  
        .FirstLineIndent = CentimetersToPoints(0) >ou=}/<  
         < '5~ p$  
        .LineSpacingRule = wdLineSpaceSingle f+^6.%  
        .Alignment = wdAlignParagraphLeft 35& ^spb  
         ETdXk&AN  
        .WidowControl = True ! I@w3`  
        .KeepWithNext = True \)6glAtN  
        .KeepTogether = True *y*tI}  
        .PageBreakBefore = False ST*h{:u&A  
        .OutlineLevel = wdOutlineLevelBodyText "tz6O0D  
         : 5NMgR.d  
        .CharacterUnitLeftIndent = 0 fHup&|.  
        .CharacterUnitRightIndent = 0 ^3$l!>me  
        .CharacterUnitFirstLineIndent = 2 zeHF-_{  
         )hZ7`"f,ZN  
        .LineUnitBefore = 0.5 !%G]~  
        .LineUnitAfter = 0 {cm?Q\DT  
    End With DXiA4ihr=  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False I}4 PB+yu  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll JN0h3nZ_  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese m^D'p  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True -F~DOG%  
    DoEvents fg^25g'_  
     1Z# $X`  
    '四级标题样式 $jN.yNm0  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") r<UVO$N  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" !g
|O.mt  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False qT$k%(  
    With ActiveDocument.Styles("QLNU四级标题").Font <b:%o^  
        .NameFarEast = "宋体" egaX[j r  
        .NameAscii = "Times New Roman" +`HMl;0m  
        .NameOther = "宋体" $+*nb4  
        .Name = "宋体" &kg^g%%  
        .Size = 12               '小四号 Ay16/7h@hi  
        .Bold = True RV~fml9c  
        .Outline = False nje7?Vz  
        .Italic = wdUndefined )7>GXZG>=  
        .Subscript = wdUndefined ?F"o+]i+^  
        .Superscript = wdUndefined rwF$aR>9  
    End With :,l7e  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat Qg*\aa94  
         GJ,&$@8)  
        .LeftIndent = CentimetersToPoints(0) 1B~O!']N<  
        .RightIndent = CentimetersToPoints(0) rOSov"7  
        .FirstLineIndent = CentimetersToPoints(0) /f3/}x!po  
         Y!<m8\  
        .LineSpacingRule = wdLineSpaceSingle =0)|psCsM  
        .Alignment = wdAlignParagraphLeft +Q5O$8i  
         r
Vz.Ws#  
        .WidowControl = True c{MoeIG)v@  
        .KeepWithNext = True Ei4^__g\'  
        .KeepTogether = True "\b>JV5  
        .PageBreakBefore = False 4[gmA  
        .OutlineLevel = wdOutlineLevelBodyText v~nKO?{   
         E\[BE<y  
        .CharacterUnitLeftIndent = 0 [3m\~JtS  
        .CharacterUnitRightIndent = 0 68tyWd}  
        .CharacterUnitFirstLineIndent = 2 <Ua~+U(FR0  
         3B1\-ry1M  
        .LineUnitBefore = 0 4\;zz85E  
        .LineUnitAfter = 0 ]01`r/->\  
         URsx>yx  
    End With yLa@27T\A  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False hd)Jq'MCS  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll L/8oqO|  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese *()['c#CC  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True k~>(XG[x&  
    DoEvents C%o|}iv"  
     mU/o%|h  
    '正文校式 *g(d}C!  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") s@\3|e5g  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" cbJgeif  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False `|'w]rj:"+  
    With ActiveDocument.Styles("QLNU正文").Font #J
[g r_  
         H/D=$)3op  
        .NameFarEast = "宋体" nrl?<4_  
        .NameAscii = "Times New Roman" t1']q"  
        .NameOther = "宋体" x"2p5T7*>  
        .Name = "宋体" -nb U5o  
         jX7K-L  
        .Size = 12               '小四号 # &v4c  
         c9|4[_&B~  
        .Bold = wdUndefined )M8d\]  
        .Italic = wdUndefined ?0Q3F  
        .Subscript = wdUndefined @yTu/U  
        .Superscript = wdUndefined gfL:SP8  
         ('z=/"(l  
        .Outline = False ,cxqr3 o  
        .Emboss = False $[T~<I  
        .Shadow = False $JFjR@j  
        .Hidden = False 2Io|?  
         rc=E%Qv%?  
        .DisableCharacterSpaceGrid = True 392V\qtS  
    End With 7?fgcb3  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat 0F$|`v "0  
         | R,dsBd  
        .LeftIndent = CentimetersToPoints(0) PF4[;ES'  
        .RightIndent = CentimetersToPoints(0) UynGG@P@  
        .FirstLineIndent = CentimetersToPoints(0) A;Uc&
G  
         QYA4C1h'  
        .LineSpacingRule = wdLineSpaceExactly neEqw+#Z  
        .LineSpacing = 20 BValU  
        .Alignment = wdAlignParagraphLeft yCjc5d|tT  
         OS[ s Qo5  
        .WidowControl = False Q 8]X  
        .KeepWithNext = False i;HXz`vT7  
        .KeepTogether = False Ec7xwPk  
        .PageBreakBefore = False UC&$8^  
        .Hyphenation = False TXB!Y!RG#  
         xM_#FxJb  
        .OutlineLevel = wdOutlineLevelBodyText YdI6|o@vc  
         5H ._Q  
       r'i9 9~  
        .CharacterUnitLeftIndent = 0 oIrc))j,$  
        .CharacterUnitRightIndent = 0 whI4@#  
        .CharacterUnitFirstLineIndent = 2 {V[xBL <  
         -l=C7e  
        .LineUnitBefore = 0 B;bP~e>W  
        .LineUnitAfter = 0 #c|l|Xvq2  
        .SpaceBefore = 0 S1r{2s&  
        .SpaceAfter = 0 oCo~,~kTR  
          *RY }e  
        .DisableLineHeightGrid = True X"Eqhl<t  
    End With )QAYjW!Z  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False Dk\%,[4(  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll xbiprhdv  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese XU'(^Y8Imz  
    ActiveDocument.Styles("QLNU正文").NoProofing = True ~criZI/  
    DoEvents jnV#Q ;  
     O!Ue0\1Kj0  
    '图片段落样式 {A}T^q!m]  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") m]DP{-s4  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" 8i6iynR  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False ;8H&FsR  
    With ActiveDocument.Styles("QLNU图片段落").Font 7:~3B- Tb  
        .Size = 12               '小四号 f?.}S]u5  
        .Italic = wdUndefined e\z,^  
        .Subscript = wdUndefined ]`-o\,lq  
        .Superscript = wdUndefined
0o/;cBH  
    End With |TJ gH<I  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat A7QT4h&6  
         ^3HSw ?a"  
        .LeftIndent = CentimetersToPoints(0) u9_?c G-  
        .RightIndent = CentimetersToPoints(0) T#E{d  
        .FirstLineIndent = CentimetersToPoints(0) q4:zr   
         [<+T
@"y  
        .LineSpacingRule = wdLineSpaceSingle z{.&sr>+v  
        .Alignment = wdAlignParagraphCenter ~&/Nl_#  
        .KeepWithNext = True @kd$.7Y9  
        .OutlineLevel = wdOutlineLevelBodyText pTAm}  
         =YM  
        .CharacterUnitLeftIndent = 0 ""`z3-  
        .CharacterUnitRightIndent = 0 ZV Ko$q:F  
        .CharacterUnitFirstLineIndent = 0 8\il~IFyi  
         8?~>FLWTXZ  
        .LineUnitBefore = 0 a[t"J*0  
        .LineUnitAfter = 0 $jk4H+H-  
    End With i%
0qN  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False G>dXK,f<B0  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll V^(W)\  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese .t^1
e  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True Jn(|.eT|  
    DoEvents &IQNsJL!e  
     QP%AJ[3ea%  
     aeMj4|{\  
    '第X章 +)9=bB  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") FkMM>X  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" pDC`Fi  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False ;180ct4  
    With ActiveDocument.Styles("QLNU章节标题").Font H( LK}[  
        .NameFarEast = "黑体" y Jx,4be  
        .NameAscii = "Arial Black" aV fsF|,  
        .NameOther = "Arial Black" JA >&$h  
        .Name = "黑体" *4 m]UK  
        .Size = 16 b#709VHm  
        .Bold = True Sn97DCdk  
        .UnderlineColor = wdColorAutomatic 8U#14U5rS  
        .Outline = False l2#~   
        .Italic = wdUndefined Xe}I;sKrB  
        .Subscript = wdUndefined B <Jxj  
        .Superscript = wdUndefined nJH'^rO!C  
        .Scaling = 100 Z'AjeZyyE  
        .DisableCharacterSpaceGrid = True h6Vd<sV\tf  
    End With J?p|Vy|9  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat  w&U28"i>  
        .LineSpacingRule = wdLineSpaceSingle =)#XZ[#F  
        .Alignment = wdAlignParagraphCenter +o.#']}Pl  
        .WidowControl = True '<"%>-^Gn  
        .KeepWithNext = True B_!S\?}$  
        .KeepTogether = True >U:-U"rA?  
        .PageBreakBefore = True p@$92> '  
        .OutlineLevel = wdOutlineLevelBodyText Jcvp<  
         MDpx@.A,  
        .LeftIndent = CentimetersToPoints(0) jxK `ShW=  
        .RightIndent = CentimetersToPoints(0) B \V;{:  
        .FirstLineIndent = CentimetersToPoints(0) 0Dd8c\J  
         |r*y63\T  
        .CharacterUnitLeftIndent = 0 pE1uD4lLb  
        .CharacterUnitRightIndent = 0 !ggHLZRlz  
        .CharacterUnitFirstLineIndent = 0 _J>Ik2EF  
         $jC+oYXj  
        .LineUnitBefore = 1 . ErR-p=-  
        .LineUnitAfter = 0.5 45+kwo0  
         Lxa<zy~b  
        .AutoAdjustRightIndent = False 8yr-X!eF  
        .DisableLineHeightGrid = True m=`V  
        .FarEastLineBreakControl = True Q{hK+z`D  
        .WordWrap = True 'fb&3  
    End With }Ej^"T:H_;  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False r*7J#M /  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll ziAn9/sT  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese zll?/|%  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True kaZcYuT.9  
    DoEvents j"0TAYmXwu  
     d.snD)X  
    '表格标题 <95*z @  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 9dg+@FS}=  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" ZU:c[`  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False i;2V  
    With ActiveDocument.Styles("QLNU表格标题").Font ~@^pX*%i  
        .NameFarEast = "楷体" qE^u{S4Z@  
        .NameAscii = "Arial" *@ \LS!N  
        .Name = "楷体" enMHKN g  
        .Size = 10.5 WAr6Dv,8  
        .Bold = True pfk)_;>,  
        .Underline = wdUnderlineNone 5Shc$Awc!  
        .Italic = wdUndefined Y Odwd}M  
        .Subscript = wdUndefined O|;|7f
CB\  
        .Superscript = wdUndefined CwF=@:*d  
        .Color = wdColorAutomatic uN&49o  
    End With %e: hVU  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat $a')i<m^g  
         En+`ZcA\z  
        .LineSpacingRule = wdLineSpaceSingle r^d:Po  
        .Alignment = wdAlignParagraphCenter o`jVd,aj  
        .KeepWithNext = True q_6<}2m,U  
        .KeepTogether = True Xp^71A?>  
        .OutlineLevel = wdOutlineLevelBodyText &53LJlL Co  
         gA+@p'XnR  
        .LeftIndent = CentimetersToPoints(0) S?H qrf7<  
        .RightIndent = CentimetersToPoints(0) )=h+5Z>E1  
        .FirstLineIndent = CentimetersToPoints(0) A*{V%7hs&  
         Oi!uJofW  
        .CharacterUnitLeftIndent = 0 K?wo AuY  
        .CharacterUnitRightIndent = 0 U,9=&"e b  
        .CharacterUnitFirstLineIndent = 0 c }7Rt|`c  
         %Y].i/".;P  
        .LineUnitBefore = 1 ~:A=o?V2  
        .LineUnitAfter = 0 Yv;iduc('  
         XQ k,xQ  
    End With uQkFFWS  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False oF
Jx8XU  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll CIt@xi#I  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese $8_b[~%2  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True j&?@:Zg v  
    DoEvents
|>p?Cm  
Daf;; w  
    '表格首行 M-f; ,>  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") Ut"F b  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False o 3 G*   
    With ActiveDocument.Styles("QLNU表格首行").Font k8sjW!2  
        .NameFarEast = "楷体" r^"pLzAx  
        .NameAscii = "Times New Roman" 5,V3_p:)VI  
        .Name = "楷体" p\|*ff0  
        .Size = 9 ue6&)7:~  
        .Bold = True sr$JFMTO11  
        .Underline = wdUnderlineNone {Pi]i?  
        .Italic = wdUndefined r/ LgmVRn  
        .Subscript = wdUndefined ,3ivB8  
        .Superscript = wdUndefined ]\%u9,b%!  
    End With SR'u*u!  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat A3e83g~L  
        .LineSpacingRule = wdLineSpaceSingle 6c#1Do(W+  
        .Alignment = wdAlignParagraphCenter "Kn%|\YL@4  
         Pu]Pp`SP  
        .LeftIndent = CentimetersToPoints(0) #c1c%27cmm  
        .RightIndent = CentimetersToPoints(0) 4q^'MZm1  
        .FirstLineIndent = CentimetersToPoints(0) f,Dj@?3+  
         /`B:F5r  
         i\k> 2df  
        .CharacterUnitLeftIndent = -0.5 "\Nn,3 qp  
        .CharacterUnitRightIndent = -0.5 >]8H@. \  
        .CharacterUnitFirstLineIndent = -0.5 2G`tS=Un  
         ytGcigw(P  
        .LineUnitBefore = 0 >^KO5N-:4  
        .LineUnitAfter = 0 X[iQ%Y$/n  
        .SpaceBefore = 0 k'{Bhi4  
        .SpaceAfter = 0 8DJoQl9  
         .\ces2,  
    End With |NWo.j>4-  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False >uDE<MUC  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll "f`{4p0v  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese +,ZQ( ZW  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True *1b)Va8v*  
    DoEvents QK/~lN  
[Gb8o'  
    '表格内容 q6>%1~?  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") I.}E#f/A'  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False ^5*9BwH`  
    With ActiveDocument.Styles("QLNU表格内容").Font G8p6p6*  
        .NameFarEast = "楷体" PeB7Q=d)K1  
        .NameAscii = "Times New Roman" ^b`aO$  
        .Name = "楷体" g~$cnU  
        .Size = 9 +dSO? Y]  
        .Bold = False nJo6;_MI!  
        .Underline = wdUnderlineNone H(j983  
        .Italic = wdUndefined w97%5[-T  
        .Subscript = wdUndefined Q
PpC_pZh  
        .Superscript = wdUndefined ]EPFyVt~3  
    End With ;l=ZW  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat h}jE=T5Hc  
        .LineSpacingRule = wdLineSpaceSingle t=(CCq_N,  
        .Alignment = wdAlignParagraphCenter 8d"Ff  
         =ET|h}I  
        .LeftIndent = CentimetersToPoints(0) L,wEUI  
        .RightIndent = CentimetersToPoints(0) CrI:TB>/"  
        .FirstLineIndent = CentimetersToPoints(0) ]PjJy/vkjj  
         n[`FoY  
        .CharacterUnitLeftIndent = -0.5 Tf?|*P  
        .CharacterUnitRightIndent = -0.5 sM'%apM#  
        .CharacterUnitFirstLineIndent = -0.5 <MBpV^Y}  
        .LineUnitBefore = 0 qUtlh,4)  
        .LineUnitAfter = 0 ;JQ;LbEn  
        .SpaceBefore = 0 s8 0$   
        .SpaceAfter = 0 e47N9&4  
    End With 4brKAqg.  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False 1$ C\`  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll s:\FlQ0  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese ?Q%X,!~\:  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True OB5`a,5dI  
    DoEvents S U$U  
1|Z!8:&pj  
    '图片标题 \$[S=&E  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") =6:>C9  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" rOd~sa-H  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False `Kq4z62V  
    With ActiveDocument.Styles("QLNU图片标题").Font Ves x$!F#  
        .NameFarEast = "楷体" wLz@u$u?  
        .NameAscii = "Times New Roman" "_ i:  
        .Name = "楷体" <mdHca  
        .Size = 10.5 ]728x["(19  
        .Bold = True aqzIMOAf  
        .Underline = wdUnderlineNone DNl'}K1W  
        .Italic = wdUndefined vCS D1~V_  
        .Subscript = wdUndefined jLG Q^v"  
        .Superscript = wdUndefined 5WvtvSO  
        .Outline = False h"DxgG  
        .Shadow = False K_sHZ  
        .Color = wdColorAutomatic R<n'v.~"A  
    End With %gE*x #  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat z8\z`#g!  
        .LineSpacingRule = wdLineSpaceSingle gG6j>%y  
        .Alignment = wdAlignParagraphCenter I7q}<"`
 
         \bPSy0  
        .KeepWithNext = wdUndefined 8C>\!lW"  
        .KeepTogether = True +GqUI~a
 
        .OutlineLevel = wdOutlineLevelBodyText Wc q UF"A  
         ev;R; 0<  
        .LeftIndent = CentimetersToPoints(0) Pwg?a  
        .RightIndent = CentimetersToPoints(0) y)e8pPDG  
        .FirstLineIndent = CentimetersToPoints(0) 1z$K
54Mj  
         ||t"}Y  
        .CharacterUnitLeftIndent = 0 i917d@r(<  
        .CharacterUnitRightIndent = 0 Q9h;`G 7t  
        .CharacterUnitFirstLineIndent = 0 ?m>! P@ M  
         $ ,9A?'  
        .LineUnitBefore = 0 Ga
1(T$|H  
        .LineUnitAfter = 0 >")<pUQ  
    End With SV0h'd( b  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False vhOX1'  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll .~t.B!rVSB  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese 6<h ==I   
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True B6#^a  
    DoEvents f,}9~r#  
YA[\|I33  
    '目录项 ^TF71uo  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") oF0BBs$  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" kMP3PS  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False EAPjQA-B?  
    With ActiveDocument.Styles("QLNU目录项").Font 3q*p#l~  
        .NameFarEast = "黑体" /l&$B  
        .NameAscii = "Times New Roman" `!A<XiAOmM  
        .NameOther = "Times New Roman" mW&hUPRx  
        .Name = "黑体" oW \k%Vj  
        .Size = 10.5 ;S.o`z1GI  
        .Bold = False >j$y@"+  
        .Italic = wdUndefined E6Uiw]3  
        .Underline = wdUnderlineNone -.=:@H}r  
        .Color = wdColorAutomatic zIT)Hs5  
        .Superscript = wdUndefined vle`#c.  
        .Subscript = wdUndefined A5[iFT
>  
    End With (764-iv(  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat J70r`   
         .L#U ^H|  
        .LineSpacingRule = wdLineSpaceSingle bs9X4n5  
        .Alignment = wdAlignParagraphLeft +9!=pRq  
         g<(\#F}/  
        .WidowControl = False N0_@=uE  
        .KeepWithNext = False $4ZjNN@  
        .KeepTogether = False 6I!B>V#U+  
        .PageBreakBefore = False y1c2(K>tu  
        .NoLineNumber = False |.EC>D/  
        .OutlineLevel = wdOutlineLevelBodyText p]E\!/  
         "vL,c]D  
        .LeftIndent = CentimetersToPoints(0) d,d ohi  
        .RightIndent = CentimetersToPoints(0) [;RO=  
        .FirstLineIndent = CentimetersToPoints(0)
QxI^ Bx  
         I-> BDNk  
        .CharacterUnitLeftIndent = 0 lzDA0MPI:  
        .CharacterUnitRightIndent = 0 QDdH5EfY  
        .CharacterUnitFirstLineIndent = 0 VY|'7in"M  
         k ^(RSu<  
        .LineUnitBefore = 0  :qe.*\ c  
        .LineUnitAfter = 0 /c:78@  
    End With z<u*I@;  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False Yw_^]:~  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll e = u?-8  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot r&_bk Y%  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese O=;}VZ<9  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True `ZhS=ezgr  
    DoEvents T1[B*RwC  
     tR`^c8gD  
    '参考文献 xh`4s  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") ;\48Q;  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" V+Y;  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False 0wnC"2GUX  
    With ActiveDocument.Styles("QLNU参考文献").Font I92orr1  
        .NameFarEast = "宋体" eWWt
Mnq  
        .NameAscii = "Times New Roman" KqhE=2,  
        .NameOther = "Times New Roman" 6[~_;0  
        .Name = "Times New Roman" thK4@C|X4  
        .Size = 12 { d|lN:B  
        .Bold = False uoi~JF  
        .Italic = wdUndefined Ml
H0  
        .Subscript = wdUndefined 1 ` ={**  
        .Superscript = wdUndefined %
db  
        .Underline = wdUnderlineNone #)b0&wyW6i  
        .UnderlineColor = wdColorAutomatic 15\k/[3 #  
        .Color = wdColorAutomatic >%1mx\y^  
        .Engrave = False *1c1XN<7  
    End With T7q E 2  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat uP NZ^lM  
         NPjNkpWm&=  
        .LineSpacingRule = wdLineSpaceExactly Mv\]uAT`  
        .LineSpacing = 16 '"M9`@Y3^  
        .Alignment = wdAlignParagraphLeft 'S#D+oF(1~  
        .WidowControl = False ]b'"l  
        .KeepWithNext = False T6M=BkcP  
        .KeepTogether = False 'LW~_\  
        .PageBreakBefore = False TKs l.|  
        .OutlineLevel = wdOutlineLevelBodyText bTepTWv  
         9[,+4&wX7  
        .LeftIndent = CentimetersToPoints(0) (F=q/lK$  
        .RightIndent = CentimetersToPoints(0) yp l`vJ]X  
        .FirstLineIndent = CentimetersToPoints(0) "l[ c/q[  
         o7sIpE9  
        .CharacterUnitLeftIndent = 0 `),ACkU>U  
        .CharacterUnitRightIndent = 0 ~U$ioQy<  
        .CharacterUnitFirstLineIndent = -2 YG K7b6  
         .h r$<]  
        .LineUnitBefore = 0 X-k$6}D  
        .LineUnitAfter = 0 -a\[`JHi  
        .SpaceBefore = 0 uG,*m'x']  
        .SpaceAfter = 0 7Q>bJ Ek7  
         88g|(k/  
    End With Gph:'3 *X  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False B x-"<^<  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll 1WUlBr/k  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS g(QT"O!dY  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True pK NrEq  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese W
i<g  
    DoEvents 7&w$@zs87  
%@'[g]hk  
    ' kG>m(n  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") ,.]1N:   
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" JxmFUheLt  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False x=YV*  
    With ActiveDocument.Styles("QLNU论文题目").Font #M@Ki1  
        .NameFarEast = "黑体"
T0v{qQ  
        .NameAscii = "Arial Black" 0'zX6%  
        .NameOther = "Arial Black" \$W\[s 4I  
        .Name = "Arial Black" hF`Qs  
        .Size = 16 05s{Z.aK  
        .Bold = False w{89@ XRC  
        .Italic = wdUndefined 2}0S%R(  
        .Superscript = wdUndefined |f{ (MMlj  
        .Subscript = wdUndefined u{8:VX  
        .Underline = wdUnderlineNone xua E\*m  
        .UnderlineColor = wdColorAutomatic 2#)z%K6T  
        .Color = wdColorAutomatic bvF-F$n%F  
;Q\MH t*  
    End With aW*8t'm;m'  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat "|nh=!L  
        .LineSpacingRule = wdLineSpaceSingle ,-`A6ehg  
        .Alignment = wdAlignParagraphCenter w42=tN+B  
        .WidowControl = True 12LGWhDp  
        .KeepWithNext = True we&D
"V  
        .KeepTogether = True Xv2Q8-}w  
        .PageBreakBefore = True ^?R8>97_?  
        .NoLineNumber = False mRT$@xa]J  
        .OutlineLevel = wdOutlineLevelBodyText V(
wANvH  
         X[J?  
        .LeftIndent = CentimetersToPoints(0) pKkBAr,  
        .RightIndent = CentimetersToPoints(0) <_3OiU=w  
        .FirstLineIndent = CentimetersToPoints(0) `EWQ>m+  
         N}CeQ'l[R  
        .CharacterUnitLeftIndent = 0 WY$c^av<  
        .CharacterUnitRightIndent = 0 $A^OP{  
        .CharacterUnitFirstLineIndent = 0 \'.|7{Xu  
         ZVni'ym  
        .LineUnitBefore = 1 }s@vN8C  
        .LineUnitAfter = 1 `G "&IQ8.  
         [m0G;%KR
/  
        .BaseLineAlignment = wdBaselineAlignAuto #u/5 nm  
    End With ;!pSYcT,  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False _"h1# E  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll S1U>Q~ZPA  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS TrR=3_;.7  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True {66P-4Ev(  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese d^qTY?k.  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True K+3+?oYKH  
    DoEvents
_
fjHa6S  
     XOT|:  
    '中文摘要 "@(Sw>*o  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") /Y0oA3am  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" +j(7.6ia  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False K;l xPM]  
    With ActiveDocument.Styles("QLNU中文摘要").Font LO@o`JF  
        .NameFarEast = "宋体" cI (}  
        .NameAscii = "Times New Roman" pSdtAv  
        .NameOther = "Times New Roman" bsv!z\}  
        .Name = "Times New Roman" m8<.TCIQ  
        .Size = 12 sUz,F8G  
        .Bold = wdUndefined iyTKy+3A  
        .Superscript = wdUndefined '#NDR:J"  
        .Subscript = wdUndefined cP^c}e*;NS  
        .Italic = wdUndefined su0q 2.  
        .Underline = wdUnderlineNone Ctx{rf_~  
        .UnderlineColor = wdColorAutomatic qQp;i{X  
        .Color = wdColorAutomatic H8V@KB  
    End With IN?6~O p  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat bj,cU)t0  
        .LineSpacingRule = wdLineSpaceExactly e)f!2'LL  
        .LineSpacing = 20 i;fU],aK!  
        .Alignment = wdAlignParagraphLeft J936o3F_  
         
M,dp;  
        .WidowControl = False b^R_8x  
        .KeepWithNext = False EI8KKo *  
        .KeepTogether = True X}ft7;Jpy  
        .PageBreakBefore = False khVfc  
        .NoLineNumber = False aSt:G*a"  
        .OutlineLevel = wdOutlineLevelBodyText )QW p[bV  
         1 Szv4  
        .LeftIndent = CentimetersToPoints(0) O&evv8 6L  
        .RightIndent = CentimetersToPoints(0) )
7  M  
        .FirstLineIndent = CentimetersToPoints(0) +o|I@7f  
         COH9E
\ZGF  
        .CharacterUnitLeftIndent = 0 #b>D^=NV>)  
        .CharacterUnitRightIndent = 0 9w.ZXd  
        .CharacterUnitFirstLineIndent = 2 ~S~4pK  
        .LineUnitBefore = 0 u[6aSqwC|  
        .LineUnitAfter = 0 -Ra-Ux  
         qCy SL lp0  
    End With 1eOQ;#O V  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False I78Q8W(5  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll z<OfSS_]R  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS ,'%*z  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True "@UyU
L  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese f0"_ {\  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True Jvr`9<`  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete +wGFJLHJ  
    DoEvents JQDS
3v=1$  
     Bmv5yc+;  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") \{.c0  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" .f9&.H#  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False "
L+NN|
 
    With ActiveDocument.Styles("QLNU英文标题").Font -\~HAnh  
        .NameFarEast = "黑体" JnPwqIF1  
        .NameAscii = "Arial Narrow" >D_!d@Z  
        .Name = "Arial Narrow" K$c?:?wmo  
        .Size = 16 6vf<lmN  
        .Bold = True ?X@uR5
?{  
        .Bold = wdUndefined ODKHI\U  
        .Superscript = wdUndefined gB])@O%/  
        .Subscript = wdUndefined ]ASTw(4  
        .Italic = wdUndefined @umn#*  
         h@@q:I=  
        .Underline = wdUnderlineNone ;^ff35EE8  
        .UnderlineColor = wdColorAutomatic 8=-#LVo~c  
        .StrikeThrough = False #:8V<rc^  
        .DoubleStrikeThrough = False qPn!.m$/  
    End With tN0?  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat M3s:B& /  
        .LineSpacingRule = wdLineSpaceSingle 8qwPk4  
        .Alignment = wdAlignParagraphCenter z_%}F':
 
        .WidowControl = True +pxt
ar  
        .KeepWithNext = False x.>&|Ej  
        .KeepTogether = False UV\&9>@L  
        .PageBreakBefore = False [<.dOe7|  
        .NoLineNumber = False z6Zd/mt~x  
        .FirstLineIndent = CentimetersToPoints(0) z-m:l;  
        .OutlineLevel = wdOutlineLevelBodyText p4@0Dz `Q  
         VEx )  
        .LeftIndent = CentimetersToPoints(0) ^C~t)U  
        .RightIndent = CentimetersToPoints(0) mw*KLMo42  
        .FirstLineIndent = CentimetersToPoints(0) ?i$MinK  
         JfzfxfM  
        .CharacterUnitLeftIndent = 0 $KPf[JvQ  
        .CharacterUnitRightIndent = 0 <G#Q f|&  
        .CharacterUnitFirstLineIndent = 0 3j\Py'};  
         Id{Ix(O  
        .LineUnitBefore = 1 <x1,4a~  
        .LineUnitAfter = 1 3bagL)'iz  
         wDKA1i%G  
    End With "@L|Z6U(  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False :?:R5_Nd=  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll 9s#*~[E*  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS Q& vU|y  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True b&!x.+d-z  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese &/$ 3>MD2`  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True P.3kcZ   
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete TRFza}4:i  
    DoEvents B3Ws)nF"  
u_.Ig|Va  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") H={5>; 8G  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" U]"6KS  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False RY
]jY | E  
    With ActiveDocument.Styles("QLNU英文摘要").Font bdj')%@n  
        .NameFarEast = "宋体" TE- (Zil\  
        .NameAscii = "Arial" v
,c;dlg_  
        .NameOther = "Arial"  rQ)I  
        .Name = "Arial" @wh-.MD  
        .Size = 12 R]N"P:wf@  
        .Bold = wdUndefined t8uaNvUM}e  
        .Italic = wdUndefined u(~(+1W  
        .Superscript = wdUndefined ]Uul~T
 
        .Subscript = wdUndefined $u, ~183  
    End With KP CZiu7  
     mV|Z5=f  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat K}QZdN']  
         Thuwme  
        .LineSpacingRule = wdLineSpaceExactly })C}'!+]  
        .LineSpacing = 20 6JD~G\$  
         RpzW-  
        .Alignment = wdAlignParagraphJustify A>rN.XW  
         gFnJDR  
        .WidowControl = False }*VRj; ff  
        .KeepWithNext = False ,@aF#  
        .KeepTogether = False aPHNX)  
        .PageBreakBefore = False ><{Lh@{  
        .NoLineNumber = False 'h>CgR^NM1  
         ?zK\!r{  
        .OutlineLevel = wdOutlineLevelBodyText \xX'SB #.l  
         "(yw(/  
        .LeftIndent = CentimetersToPoints(0) m]&y&oz   
        .RightIndent = CentimetersToPoints(0) vq1u!SY  
        .FirstLineIndent = CentimetersToPoints(0) WnQ+  
         y|(?>\jBl  
        .CharacterUnitLeftIndent = 0 s}?QA cC  
        .CharacterUnitRightIndent = 0 B1va]=([)W  
        .CharacterUnitFirstLineIndent = 2 35Fs/Gf-n  
         hzrS_v  
        .LineUnitBefore = 0 .Kssc lSD1  
        .LineUnitAfter = 1 6o~CX  
         BoofJm  
    End With 3PEW0b*]Pf  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False /; `-[  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll % {A%SDh  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS ]>, Lw=_[_  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False #{zF~/Qq  
    DoEvents t^7}j4lk  
`}#n
#C)  
    Options.Pagination = True ML7qrc;Rx  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." 0(+dXzcwM  
    DoEvents 66HxwY3a  
    ActiveDocument.Repaginate &W N R{  
=/bC0bb{i  
End Sub YT<(2u#Ng  

#yOn /  
YRU#/TP  

姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 L!^^3vn  
d2*uY.,  

引用

引用第20楼newport93于06-14-2010 13:47发表的  : @O)1Hnm  
xcQ :&q  
老五，I 服了U。 R^Y_i  
$i$Z+-W4'  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 >0I\w$L  

%^bN^Sq -