Dim bContinue As Boolean Dv&>*0B  
lT.zNhz:d9  
Dim regEX As New RegExp }N3V
5cab  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 3VmI0gsm.>  
0$6*o}N%  
Dim LastTitle0String As String, LastTitle0No As Long A\K,_&x1Z  
Dim LastTitle1String As String, LastTitle1No As Long 1Cm~X$S.  
Dim LastTitle2String As String, LastTitle2No As Long [oV{83f  
Dim LastTitle3String As String, LastTitle3No As Long NYBe"/}GS  
Dim LastTitle4String As String, LastTitle4No As Long AZ[75>  
Dim LastTitle5String As String, LastTitle5No As Long #(C/Cx54  
Dim LastTabelString As String, LastTableNo As Long g Q37>  
Dim LastFigureString As String, LastFigureNo As Long pb#mg^8  
`} =yG_!A  
Dim strSeperator As String mjb {~  
N l@k*^  
Sub ConvertWidth(fTEXT As String, rText As String) 9tn;L"#&N  
        Selection.Find.ClearFormatting AoBoFZLl3  
        Selection.Find.Replacement.ClearFormatting W9Nmx3ve  
        Selection.Find.Wrap = wdFindContinue <FY&h#  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText }g`Gh|
C  
        DoEvents gv#4#
]  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True >1 @Ltvm  
End Sub ?^ZXU0IkP  
C.~j'5N  
Sub ClearDomain() BQ#3QL't  
        With Selection.Find x?"#gK`3;  
            .ClearFormatting rH&G<o&,  
            .Replacement.ClearFormatting #EbGL])F}  
            .Wrap = wdFindContinue 17}$=#SX  
            Me.txtStatus.Text = "清除所有域代码" 79ckLd9  
            DoEvents Jf7frzw  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False Py|;kF~![  
        End With AoYaVlKG8  
End Sub 7^$)VBQ/  
+$47v$p
 
Private Sub cmdCheck_Click() bd!U)b(}OV  
    bContinue = True "PMQyzl  
    Dim NoSeries1(1 To 16) As String .WvlaPK  
    Dim NoSeries2(1 To 16) As String < f(
?T`
 
    Dim NoSeries5(1 To 16) As String DkgUvn/S  
    Dim NoSeriesRM(1 To 16) As String .NJ|p=fy  
    Dim paraTotal As Long, ParaText As String f~=r*&U  
    Dim ttString As String, ttNo As String 9R p2W  
     <l$P&jSF3  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long I&Jt> O4  
yGTziv!  
    Me.txtStatus.Visible = True n`(~OO  
    Me.lbParaType.Visible = True G Wsd| kxU  
    Me.cmdCheck.Enabled = False <},1Ncl  
     rK1-Mu  
     H}Ucrv:  
     u$%A#L[  
     ? -3\  
    Dim ParaType As String, rText As String 
q-nER<  
     q$
[n`w-  
    Selection.WholeStory M;+IZr Wkl  
    Selection.NoProofing = True KOey8tB)1  
     ?}}qu'N:N  
    tm1 = Now ,_jC$  
     W|MWXs5'1*  
        ActiveWindow.View.Type = wdNormalView IG< H"tQ  
     !KcWH9  
    NoSeries1(1) = "一" !aPD}xCH#  
    NoSeries1(2) = "二" .2.qR,"j  
    NoSeries1(3) = "三" >"v9i T  
    NoSeries1(4) = "四"  PWH^=K
 
    NoSeries1(5) = "五" #)s!}X^  
    NoSeries1(6) = "六" 1<.5ub*i4  
    NoSeries1(7) = "七" }aF  
    NoSeries1(8) = "八"  ?CP2AK  
    NoSeries1(9) = "九" TBCp L]QT  
    NoSeries1(10) = "十" w{!(r  
    NoSeries1(11) = "十一" 2Il8f  
    NoSeries1(12) = "十二" ESTM$k}X  
    NoSeries1(13) = "十三" tx"LeZZ  
    NoSeries1(14) = "十四" h[kU<mU"T  
    NoSeries1(15) = "十五" zI^]esX!2_  
    NoSeries1(16) = "十六" m:uPEpcU  
     )I`if(fG  
    NoSeries2(1) = "㈠" ,2L$G&?  
    NoSeries2(2) = "㈡" 9sSN<7  
    NoSeries2(3) = "㈢" xzsdG?P  
    NoSeries2(4) = "㈣" gl{B=NN  
    NoSeries2(5) = "㈤" .oqIZ\iik
 
    NoSeries2(6) = "㈥" ? }yfKU`  
    NoSeries2(7) = "㈦" @PI%FV z~p  
    NoSeries2(8) = "㈧" 2N5`'  
    NoSeries2(9) = "㈨" s"%lFA"-  
    NoSeries2(10) = "㈩" +m)q%I>  
     1@>$ Gcc  
    NoSeries5(1) = "①" xCXQ<77  
    NoSeries5(1) = "②" dRW$T5dac  
    NoSeries5(3) = "③" 9CJ(Z+;OM  
    NoSeries5(4) = "④" tIc 7:th  
    NoSeries5(5) = "⑤" l30Y8t~d  
    NoSeries5(6) = "⑥" {u"8[@@./  
    NoSeries5(7) = "⑦" >oGiIYq  
    NoSeries5(8) = "⑧" A#rh@8h+  
    NoSeries5(9) = "⑨" ST1'\Eo  
    NoSeries5(10) = "⑩" c6&Q^p|CF  
     =Mj0:rW  
     edipA P~!  
    NoSeriesRM(1) = "I" ;)," M{"v  
    NoSeriesRM(2) = "II" D3D}DaEYj  
    NoSeriesRM(3) = "III" %Jp|z? [/  
    NoSeriesRM(4) = "IV" kGHQ`h  
    NoSeriesRM(5) = "V" &xXEnV  
    NoSeriesRM(6) = "VI" AiP!hw/V$  
    NoSeriesRM(7) = "VII" ;AX8aw ,  
    NoSeriesRM(8) = "VIII" tGjhHp8}c  
    NoSeriesRM(9) = "IX" os4{0Mxu  
    NoSeriesRM(10) = "X" r^0F"9eOL  
    NoSeriesRM(11) = "XI" h!gk s-0  
    NoSeriesRM(12) = "XII" dtZE67KS  
    NoSeriesRM(13) = "XIII" 7b[wu~'( n  
    NoSeriesRM(14) = "XIV" :g6n,p_#  
    NoSeriesRM(15) = "XV" [1_A8s){u  
    NoSeriesRM(16) = "XVI" aUc|V{Jp  
     7B7&9<gc  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo)
)1 m">s4  
     MHU74//fe  
    If i = vbNo Then ",yc0 2<  
        Exit Sub DF_ X  
    End If <lE?,jl  
     q_V0+
qH  
    If Me.chkSuper.Value Then !4(zp;W Y^  
        Me.txtStatus.Text = "检查修改所有的上标格式" LzML%J62  
     >yB(l
KV  
        CheckSuperScript ]
fBUT6  
         )Ry<a$Q3  
    End If #wY0D_3@1  
     d\]Yk]r  
    If Me.chkStyle.Value Then 7f3O  
        Me.txtStatus.Text = "设置样式，请稍候...." YJ_\Ns+Ow  
        DoEvents L\%orLEmK  
        CeateOrModifyStyle cl@
g  
    End If *JX;|S  
     @WMA}\Cc  
     k
&/OU:7Y  
     hI}
,~af  
    ClearDomain "%qzj93>  
         nXy>7H[0  
     :e<7d8E5n{  
     Ts.wh >`  
    If Me.chkLIST.Value Then "4o=,$E=  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" E&`Nh5JfC  
     $q$7^r@
 
        ConvertListToOrdinary H[ m<RaG8  
    End If
JH8}Ru%Z  
     C0jj(ku&  
     58 bCUh#uw  
    Dim pType As String, trimpTEXT As String K2{aNvR)t  
    If Me.chkNum.Value = True Then ^ uBxgWIC  
        Me.txtStatus.Text = "转换全角数字形式为半角" xtfBfA  
        ConvertWidth "１", "1" iK5_u2]Q  
        DoEvents *.#oxcll  
        ConvertWidth "２", "2" H/ +B%2Zj  
        DoEvents rV6/Tdy  
        ConvertWidth "３", "3" ~PnTaAPJ  
        DoEvents bN$r k|  
        ConvertWidth "４", "4" >w+HHs/$wK  
        DoEvents h[o6-f<D  
        ConvertWidth "５", "5" 30>3 !Xqa
 
        DoEvents q1?&Ev^  
        ConvertWidth "６", "6" #P<N^[m  
        DoEvents r [:   
        ConvertWidth "７", "7" 8NBT|N~N  
        DoEvents "ZwKk G  
        ConvertWidth "８", "8" zCv"]%  
        DoEvents ) ZfdQ3  
        ConvertWidth "９", "9" S35~Cp  
        DoEvents c(#;_Ve2P  
        ConvertWidth "０", "0" T 20&F  
        DoEvents {vEOn-(7  
        ConvertWidth "ａ", "a" [F!Y%Zp  
        DoEvents 1)m@?CaI`  
        ConvertWidth "ｂ", "b" UCWV2Mu  
        DoEvents }e2VY  
        ConvertWidth "ｃ", "c" iOAbaPN  
        DoEvents Ep9W-n?}  
        ConvertWidth "ｄ", "d" SAY
LG  
        DoEvents p]T<HGJ P  
        ConvertWidth "ｅ", "e" MN^Aw9U  
        DoEvents HpZ1xT  
        ConvertWidth "ｆ", "f" 9h&R]yz;  
        DoEvents Zf$Np50@(  
        ConvertWidth "ｇ", "g" EU7|,>a  
        DoEvents Fz#X=gmG  
        ConvertWidth "ｈ", "h" .*g0w`H5pU  
        DoEvents '2^7-3_1  
        ConvertWidth "ｉ", "i" JN+_|`  
        DoEvents d.UQW yLG  
        ConvertWidth "ｊ", "j" &i+Ce  
        DoEvents NIdZ  
        ConvertWidth "ｋ", "k" B"yFS7Rrj  
        DoEvents WOzf]3Xcj  
        ConvertWidth "ｌ", "l" yAL[[  
        DoEvents [AMAa]^  
        ConvertWidth "ｍ", "m" i4Lc$20?d  
        DoEvents 'k;rH!R  
        ConvertWidth "ｎ", "n" vM:cWat  
        ConvertWidth "ｏ", "o" U_x)#,4  
        ConvertWidth "ｐ", "p" 3?2 FP|G8  
        ConvertWidth "ｑ", "q" Ar*^; /  
        ConvertWidth "ｒ", "r" %`Z+a.~U  
        ConvertWidth "ｓ", "s" `F<jLU^3  
        ConvertWidth "ｔ", "t" ?;[w
" `"  
        ConvertWidth "ｕ", "u" ,XDRO./+T  
        ConvertWidth "ｖ", "v" h2y tS^  
        ConvertWidth "ｗ", "w" 1 zw*/dp  
        ConvertWidth "ｘ", "x" *g?Po+ef%  
        ConvertWidth "ｙ", "y" ;X*cCb`h  
        ConvertWidth "ｚ", "z" HK`I\,K  
        ConvertWidth "Ａ", "A" ~t9tnLc$  
        ConvertWidth "Ｂ", "B" Bn@(zHG+5&  
        ConvertWidth "Ｃ", "C" pRkP~ZISU  
        ConvertWidth "Ｄ", "D" }\J2?Et{  
        ConvertWidth "Ｅ", "E" X
s: 3'ua  
        ConvertWidth "Ｆ", "F" svxw^0~a  
        ConvertWidth "Ｇ", "G" OnQdq^UB  
        ConvertWidth "Ｈ", "H" OC-gA}FZ-}  
        ConvertWidth "Ｉ", "I" [ ol9|sdu  
        ConvertWidth "Ｊ", "J" `]Q:-h  
        ConvertWidth "Ｋ", "K" T,aW8|  
        ConvertWidth "Ｌ", "L" jCbV,0)^  
        ConvertWidth "Ｍ", "M" Z}$TKO*u  
        ConvertWidth "Ｎ", "N" fhL,aCS=  
        ConvertWidth "Ｏ", "O" ;rc`OZyE  
        ConvertWidth "Ｐ", "P" cufH?Xg<  
        ConvertWidth "Ｑ", "Q" R2Zgx\VV'  
        ConvertWidth "Ｒ", "R" k0Ol*L!p  
        ConvertWidth "Ｓ", "S" Zm6{n'  
        ConvertWidth "Ｔ", "T" |$?bc3  
        ConvertWidth "Ｕ", "U" {~Rk2:gx  
        ConvertWidth "Ｖ", "V" Tg!m`9s+  
        ConvertWidth "Ｗ", "W" T5a*z}L5  
        ConvertWidth "Ｘ", "X" (L^]Lk x)  
        ConvertWidth "Ｙ", "Y" '>r7 V  
        ConvertWidth "Ｚ", "Z" pe^u
$YE  
        ConvertWidth "^l", "^p" % qV 6  
        ConvertWidth "（", "(" '!/<P"5t  
        ConvertWidth "）", ")" xJ#d1[kzo  
     |{CfWSB7~@  
    End If 0c}  }Q  
D$t k<{)oB  
    With ActiveDocument :q#Xq;Wp  
        Dim tbl As Table ^R:cd8+?%  
        For Each tbl In .Tables %CK^Si%+  
            tbl.Rows.Alignment = wdAlignRowCenter 9eH$XYy
 
            tbl.Range.Font.NameFarEast = "楷体" u\C lP#  
            tbl.Range.Font.NameAscii = "Times New Roman" bv&;R  
            tbl.Range.Font.Size = 10.5 feQ **wI  
        Next B95B|tU>.  
        Set tbl = Nothing PLK3v4kVM!  
    End With H$y-8-&)  
     |yx6X{$k  
     Djg,Lvhm  
    With ActiveDocument w.[ "p9tc  
         IiG6<|d8H  
        For i = 1 To .TablesOfContents.Count o!)3?  
            .TablesOfContents(i).Delete "'D=,*  
        Next [ VE
8V-  
         8-2 cRs  
         8F'x=lIO  
         <J^MCqp!v  
        paraTotal = .Paragraphs.Count :Nz9xD$S5  
        paraCounter = 1 h*-Pr8  
         \otWd  
        LastTitle0No = 0 |`.([2  
        LastTitle1No = 0 zux{S;:?  
        LastTitle2No = 0 y3fGWa*7e  
        LastTitle3No = 0 l<A|d{"]  
        LastTitle4No = 0 %}%Qc6.H  
        LastTableNo = 0 oH_;4QU4y  
        LastFigureNo = 0 zAiXo
__x  
         |UX(+;n  
        Dim Sec As Long =weSyZ1~  
         ax(c#
 
        Sec = InputBox("正文从第一节开始？", "节设置", 6) {WYX~Mvvj  
        If Sec = 0 Then 2 B  
            Exit Sub V,%=AR5
 
        End If Za1QC;7  
         ,^C--tgZJg  
        k = 0 6_FE4RR[  
        Do While (paraCounter < paraTotal) And bContinue cXKjrL[b  
            k = k + 1 2 AMo:Jqv  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then Evedc*z~P  
                Exit Do Ft&]7dT{W  
            End If q^Y-}=w  
            paraCounter = paraCounter + 1 "'t0h{Wr8  
            If k Mod 20 = 0 Then lhqg$lb  
                Me.lbCounter.Caption = paraCounter p>4-s, W  
                DoEvents abyo4i5T  
            End If U|IzXQX(  
        Loop XCBL}pNkR  
         zzX_q(:S  
         "g1)f"pL  
        Do While (paraCounter < paraTotal) And bContinue A<??T[  
             ~{jcH  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) neLAEHV  
            ShapeHeight = 0 !wNr3LG  
            ShapeWidth = 0 d~i+ I5  
           %^ !,t:d  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth tNbN7yI  
             K~R`%r_  
            Select Case ParaType v_DedVhe  
                Case "【】表格内容" S[J}UpV  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" (jAg_$6  
                Case "章" hpD!2 K3>  
                    LastTitle0No = LastTitle0No + 1 ?vbvBu{a  
                    '新一章开始，复位其下属标题编号 .=s&EEF  
                    LastTitle1No = 0 *-8&[D0  
                    LastTitle2No = 0 ~XOTs  
                    LastTitle3No = 0 g\&g N  
                    LastTitle4No = 0 9po3m]|zy  
                     fTK3,s1=  
                    k = Val(ttNo) -w"VK|SGm  
                    If k = 0 Then '非数字编号章节 #T'{ n1AI  
                        If ttNo <> NoSeries1(LastTitle0No) Then Zcx`SC-0  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString ~5}*
d  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText 0"f\@8r(  
                        End If bcE._9@@  
                    Else NU5.o$  
                        If Val(ttNo) <> LastTitle0No Then gcl5jB5)>  
                            rText = "第" & LastTitle0No & ttString Pu"P 9  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText =Jyu4j *}  
                        End If }f6HYU  
                         H" 3fT0  
                    End If E
? ;0)'h  
                     8ap%?  
                    '章段落设置 2QyV%wz  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 v@ lM3_rbO  
                    .Paragraphs(paraCounter).Style = "QLNU章节" %5"9</a&G  
                    .Paragraphs(paraCounter).Range.Select RO'7\xvn  
                    Selection.EndKey unit:=wdLine DK:o]~n  
                    tc = Replace(rText, vbCr, "") pSdI/Vj'=  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False V<T9&8l+:  
                Case "一级标题" |xdsl,  
                    LastTitle1No = LastTitle1No + 1 hYG6 pTCb  
                    '新一级标题开始，复位其下属标题编号 ! t?iXZ  
                    LastTitle2No = 0 a6)BqlJ  
                    LastTitle3No = 0 Z/Dx,zIR  
                    LastTitle4No = 0 #ML%ij 1  
                     ? iWi  
                    If ttNo <> NoSeries1(LastTitle1No) Then paCV!tP  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString JehrDC2N  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText j}.\]$J  
                    End If N
g~FEl  
                   HMh"}I2n  
                     jK& h~)  
                    '一级标题段落设置  格式：一、标题内容 3cK I  
                    .Paragraphs(paraCounter).Range.Text = rText o<pf#tifv  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" +|n*b  
                    .Paragraphs(paraCounter).Range.Select h7 lDHIQf  
                    Selection.EndKey unit:=wdLine B#Vz#y  
                    tc = Replace(rText, vbCr, "") i#vYy Vr[  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False 7o#I
,
d~  
                Case "二级标题" Ac2n  
                    LastTitle2No = LastTitle2No + 1 j i7[nY  
                    '新二级标题开始，复位其下属标题编号 l3ko?k  
                    LastTitle3No = 0 !Fd~~v  
                    LastTitle4No = 0 S.-TOE  
                     CVL3VT1j0  
                    If ttNo <> NoSeries1(LastTitle2No) Then .$+#1-  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString H4&lb}  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText 5YeM%%-S  
                    End If pZqq]mHK  
                     |EX(8y  
                    '二级标题段落设置 格式：(一)、标题内容 \J
e0CD=e`  
                    .Paragraphs(paraCounter).Range.Text = rText #P0&ewy  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" |B.Y6L6l  
                     KBx6NU?;PO  
                    .Paragraphs(paraCounter).Range.Select +M\`#i\g>  
                    Selection.EndKey unit:=wdLine <7/R,\Wg~  
                    tc = Replace(rText, vbCr, "") Y) *#)f  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False "K6&dk jY  
                 $
5aV:Z3P  
                Case "三级标题" 4;yKOQD|
 
                    LastTitle3No = LastTitle3No + 1 4.[ ^\N  
                    '新三级标题开始，复位其下属标题编号 MOQ*]fV:  
                    LastTitle4No = 0 @#T|Y&  
                     dxMOn  
                    If Val(ttNo) <> LastTitle3No Then s(/;U2"e  
                            rText = LastTitle3No & ". " & ttString 7q?, ?  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText jaII r06  
                         S2sQOM@  
                    End If Vc\MV0lr  
                    '三级标题段落设置 格式：1. 标题内容 hKL4cpK4  
                    .Paragraphs(paraCounter).Range.Text = rText 6xTuNE1  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" P}n_IV*@  
                    .Paragraphs(paraCounter).Range.Select 5YE'L.  
                    Selection.EndKey unit:=wdLine 5\:^y'g
[  
                    tc = Replace(rText, vbCr, "") '"0'Oua  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False v&DI`xn~  
                Case "四级标题" cUKE   
                    LastTitle4No = LastTitle4No + 1 `{3<{wgw  
                     Ug>~Rq]  
                    If Val(ttNo) <> LastTitle4No Then qr"3y  
                            rText = "(" & LastTitle4No & "). " & ttString 6t[+pL\b  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText G\2CR*  
                     u8&Z!p\  
                    End If R O+GK`J  
                    '四级标题段落设置 格式：(1). 标题内容 ls\WXCH  
                    .Paragraphs(paraCounter).Range.Text = rText ]%@M>?Ywc  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" tkeoNuAM  
                    .Paragraphs(paraCounter).Range.Select *
\+\5pu0  
                    Selection.EndKey unit:=wdLine fI?>+I5  
                    tc = Replace(rText, vbCr, "") }YGV\Nu  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False Z'`<5A%;  
                 ! >(7+B3E*  
                Case "表格标题" ^c"jH'#.L  
                    LastTableNo = LastTableNo + 1 n'n/Tu   
                     $p#Bi-&  
                    If ttNo <> CStr(LastTableNo) Then vdivq^%=a  
                            rText = "表" & LastTableNo & ". " & ttString [=6]+V83M  
                            ErrMsg.AddItem "表格编号错误：" & ParaText a*lh)l<KV  
                    #rMlI3;  
                    End If N{9v1 `B  
                     `VA"v wz  
                    '表格名称段落设置 格式：表1. 表格名称 U)fc*s  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" il4^zj82  
                    xe = Replace(rText, vbCr, "") 89pEfl j2  
                    .Paragraphs(paraCounter).Range.Select JjtNP)We  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 LM~[@_j  
                    Selection.Range.Text = xe h7G"G"  
                    Selection.EndKey qeVfE_<  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False >%}C^g u)  
                 jS]ru-5.  
                Case "表格首行" YxYH2*q@  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" sJL&:!}V>  
                Case "图片标题" bh,[ 3X%  
                    LastFigureNo = LastFigureNo + 1 ;DqWh0  
                     tqE6>"jD  
                    If ttNo <> CStr(LastFigureNo) Then N7b8m?!  
                            rText = "图" & LastFigureNo & ". " & ttString _{I3i:f9X8  
                            ErrMsg.AddItem "表格编号错误：" & ParaText \)#kquH/l  
                   +~m46eI  
                    End If +\d56j+D  
                    '图片名称段落设置 格式：图1. 图名称 HVR /7&g  
                    .Paragraphs(paraCounter).Range.Text = rText 6Z
m# bFQ  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" vyNxT*,[K  
                    .Paragraphs(paraCounter).Range.Select dk[!V1x4\  
                    Selection.EndKey unit:=wdLine ak$f"py x  
                    xe = Replace(rText, vbCr, "") i1ixi\P{0  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False )B"jF>9)[  
                Case "正文" aH)}/n  
                     '正文名称段落设置 Hq'`8f8N  
                    .Paragraphs(paraCounter).Style = "QLNU正文" eenH0Ovv  
               Case "文献条目" #xsE3Wj-X  
                    With .Paragraphs(paraCounter) q/4J.jL  
                        '.Range.Select SoW9p^HJ  
                        'Selection.ClearFormatting <=zQ NBtx  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” }aa'\8  
                        .Style = "QLNU参考文献" Q 3hKk$Y  
                    End With ! `  
               Case "图表注解" _C%3h5  
                    With .Paragraphs(paraCounter) $v4.sl:x  
                        .Range.Font.NameFarEast = "楷体" ysQ_[ ]/  
                        .Range.Font.NameAscii = "Times New Roman" "jeb%k   
                        .Range.Font.Size = 9 '小5号字 Qp)v?k ]  
                         &N2N6&Ta/  
                        .Alignment = wdAlignParagraphCenter EizKoHI-z  
                        .LeftIndent = 0 QO<jI#  
                        .RightIndent = 0 + [iQLM?zo  
                        .FirstLineIndent = 0 w1Nm&}V  
                        .LineSpacing = 12 M8MRoA6F  
                        .LineSpacingRule = wdLineSpaceExactly o |{5M|nD  
                        .LineUnitAfter = 0 pnl{&<$C%C  
                        .LineUnitBefore = 0 d[@X%  
                        .OutlineLevel = wdOutlineLevelBodyText .F4>p=r  
                        .PageBreakBefore = False q<xCb%#Jl  
                        .RightIndent = 0 EU2$f  
                        .WordWrap = True =)0,#9k U]  
                        .LineUnitAfter = 0.5 n`? py
 
                         >,V9H$n  
                    End With hci6P>h<ia  
                Case Else [\^n=  
                    '不作处理 >N^Jj:~l  
            End Select 9&-dTayIz  
             1OG
x>J6  
            '含有inlineshape的段落处理 ^cOUQ33  
            If ShapeHeight > 30 Then DrKP%BnS  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 1-8mFIK  
            End If :
KQ~Cb  
             F&4rO\aC"/  
            If (ShapeWidth + ShapeHeight) > 150 Then b6cBg  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" ?ZV/U!y  
            End If 27eooY1  
             ^n*)7K[  
            '段落计数器递 .0zY}`  
            paraCounter = paraCounter + 1 "@e3EX7h  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter  Uf:`  
            Me.txtStatus.Text = ParaText ity & v9  
            DoEvents dN$0OS`s[  
        Loop ,Xu-@br{  
    End With ($q-_m  
     .[]r}[lU  
    msg = "" Nyku4r0  
     *>Ns_su7W  
    For i = 0 To Me.ErrMsg.ListCount - 1 Ep9nsX*   
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) ,`'Qi%O  
    Next |kyX 3~  
     zJq~!#pZ  
     {{$Nqn,pH  
     [+rfAW>p}  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg Q:2>}Qg
X}  
    Me.cmdCheck.Enabled = True 9P1OP Xv*p  
    Me.txtStatus.Visible = True D$w6V  
    Me.lbParaType.Visible = False u 1>2
v  
     )tC5Hijq,  
    bContinue = False 0M_ DB=  
End Sub zU5v /'h>d  
~Otq %MQ  
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) ep!Rf:  
    Dim pTEXT As String [g7L&`f9  
     FvaUsOy
"  
    pTEXT = ChKRange.Text ]~Rho_mq#  
     ^h(ew1:  
    ParaType = "其它" pR*VdC _mY  
    TitleString = pTEXT kKaE=H-x  
    TitleNo = "N/A" Km qMFB62  
     Kfbb)?  
    shpCounter = ChKRange.InlineShapes.Count F%@A6'c  
    If shpCounter <> 0 Then @x*c1%wg  
        MaxShpHeight = 0: TotalShpWidth = 0 qk%;on&`  
        For i = 1 To shpCounter u4t7Ie*Q  
            k = ChKRange.InlineShapes(i).Height k$
4y9{  
            l = ChKRange.InlineShapes(i).Width 66g9l9wm(  
            If k > MaxShpHeight Then :i0uPh\0  
                MaxShpHeight = k Ot4 Z{mA  
            End If kjTduZ/3"  
            TotalShpWidth = TotalShpWidth + l S3q&rqarC%  
        Next %R}qg6dL  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then \T4v|P w\  
            Exit Sub "M<8UE\n  
        End If ax"+0L{  
    End If P{8iJ`rBG  
     -R|,9o^  
    '空行
ui<N[  
    If Len(pTEXT) <= 2 Then /K+r? ]kf  
        Exit Sub 8H%;WU9-  
    End If Gt\lFQ  
     p)KheLiZ  
         }5ret  
    '是否为表格中的文字 *D'22TO[[!  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then Gw}%{=D9  
        ParaType = "表格内容" 2~Kg
v|09  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) -WY<zJ  
        If k = 1 Then 2Z+Wu3#  
            ParaType = "表格首行" $.Qkb@ }  
        End If C'>|J9~Gz  
        Exit Sub ]N~2 .h  
    End If ;;! yC  
     xsIY7Ss U  
    '例外情况：脚注 %v=*Wb\3|  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then OSRp0G20k\  
        ParaType = "脚注" QVv#fy1"6  
        Exit Sub Y4J3-wK5  
    End If !8TlD-ZT/  
     M,j U}yD3  
    '例外情况：尾注 1vS#K=s b  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then (of#(I[
m7  
        ParaType = "尾注" qrb[ -|ie&  
        Exit Sub f/U`  
    End If rlMLW  
     {0[tNth'h  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then >BV^H.SO|1  
        ParaType = "页眉页脚" x) ,eI'mf  
        Exit Sub ]3D0R;  
    End If b_$4V3TA  
     
AiwOc+R  
     :">!r.Q  
    With regEX Uf1!qP/H?  
        .Global = True T(#J_Y  
         `fA@hK   
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" B al`y  
        If regEX.Test(pTEXT) Then `{f}3bO7C  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") G0CW}e@)  
            TitleString = regEX.Replace(pTEXT, "$3") qz"}g/;?  
            TitleNo = regEX.Replace(pTEXT, "$1") "H=6j)Cb  
            ParaType = "章" 0.\/\V:H6  
            Exit Sub 6gL#C&  
        End If uu-PJTNZ  
         cutuDZ  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" a4mn*,  
        If regEX.Test(pTEXT) Then LGq'WU31:)  
            ParaType = "一级标题" +! ]zA4x  
            regEX.Execute (pTEXT) I5X|(0es  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") oK9( /v  
            TitleString = regEX.Replace(pTEXT, "$3") 2bv=N4ly  
            TitleNo = regEX.Replace(pTEXT, "$1") ;dkYf24  
            Exit Sub Z-$[\le  
        End If f&=AA@jLv  
         Fe#  1  
        '全角或半角括号中的数字 eVEV}`X  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" h&M {]E9=  
        If regEX.Test(pTEXT) Then 9"N~yKa`"K  
            ParaType = "二级标题" .8 2P(}h  
            regEX.Execute (pTEXT) HCIU!4rH  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") Q3XpHnufu+  
            TitleString = regEX.Replace(pTEXT, "$5") ]tim,7s  
            TitleNo = regEX.Replace(pTEXT, "$2") Yz'K]M_Dq  
            Exit Sub =T3<gGM  
        End If Wvq27YK'  
         [meO[otb  
        '阿拉伯数字  1. 2. ])[[ V!1  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" /74QMx?  
        If regEX.Test(pTEXT) Then S ){)Z  
            ParaType = "三级标题" )\1QJ$-M&  
            regEX.Execute (pTEXT) sZ3KT&  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 E:,/!9n  
            TitleString = regEX.Replace(pTEXT, "$3") L 8c0lx}Nn  
            TitleNo = regEX.Replace(pTEXT, "$1") ]MqMQLG0t  
            Exit Sub AgWa{.`f:  
        End If 6,^>mNm  
         (j%~u&+-  
        '全角或半角括号中的阿拉伯数字 Wjo[ENHM  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" fJ=
0HNmX  
        If regEX.Test(pTEXT) Then %2}-2}[>  
            ParaType = "四级标题" =%BSKSG.  
            regEX.Execute (pTEXT) $|zX|  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") fZ6MSAh  
            TitleString = regEX.Replace(pTEXT, "$5") jrCfW
a}z  
            TitleNo = regEX.Replace(pTEXT, "$2") f- K+]aZ)  
            Exit Sub eln)BW#  
        End If ;"xfOzQ  
         w_aknt T  
        '表格名称
[ZNtCnv  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" _jvxc'6  
        If regEX.Test(pTEXT) Then %p Ynnfr  
            ParaType = "表格标题" /{EP*,/*  
            regEX.Execute (pTEXT) B+$%*%b  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) o5u3Fjz3  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) '@a}H9>}  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) 3#
WT.4k  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 <]6SN  
            Exit Sub ZAW^/bo<  
        End If /?wtF4  
         df*#!D7oz  
        '图片名称 Yc`o5Q\>  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" FXpJqlhNv  
        If regEX.Test(pTEXT) Then cF\;_0u  
            ParaType = "图片标题" 48J@CvU  
            regEX.Execute (pTEXT) +Te\H  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") 1;JEc9#h  
            TitleString = regEX.Replace(pTEXT, "$3") '<gI8W</  
            TitleNo = regEX.Replace(pTEXT, "$1") b}2ED9HG\  
            Exit Sub k)i3    
        End If g!|=%(G=  
         kq?Ms|h  
        '参考文献 ISzqEi  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 $CRm3#+ ~  
        If regEX.Test(pTEXT) Then ^NLmgwQ  
            ParaType = "文献条目" L,HhbTRca  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") ;/bewivNJ  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") ]N/=Dd+|  
            Exit Sub #{6{TFx\  
        End If 7dN*lks  
         %{7|1>8  
        prfx = Left(pTEXT, 2) pg6cF  
        If prfx = "注：" Or prfx = "注:" Then }V'}E\\  
            ParaType = "图表注解" EW}Bzh>b  
            Exit Sub aJSO4W)P  
        End If R &n Pj~  
         zU,9T  
         L s G\OG  
        ParaType = "正文" H!@kO]?n  
         SDC4L <!  
    End With rExnxQ<e  
End Sub
-r
!. 9q  
AKY1o.>z  
Sub ConvertListToOrdinary() b\ X@gq  
    Dim st As Paragraph "0$a)4]  
    With ActiveDocument w{{gu1#]G  
        For i = .Paragraphs.Count To 1 Step -1 ; p.v]0]is  
            Set st = .Paragraphs(i) T5|qRlW  
            lst = st.Range.ListFormat.ListString FW;m\vu  
            If lst <> "" Then M5i%jZk  
                st.Range.ListFormat.RemoveNumbers vXev$x=w-  
                st.Range.InsertBefore lst & " " .14~J6  
            End If 5v[*:0p'  
        Next b k~(^!R  
    End With 2kqup)82e  
    Set st = Nothing +*\u :n  
End Sub M#ZcY   
|e=,oV"  
Private Sub UserForm_Activate() Vo4,@scG  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" '%>=ZhO  
    Me.lbTotal.Font.Bold = True ]q\b,)4 e  
    Me.txtStatus.Visible = False .L+6 $8m  
    Me.cmdCheck.Enabled = True @Rg/~\K  
4aug{}h("  
End Sub c|f<u {'  
>R|/M`<ph  
t Cw<Ip  
Sub CheckSuperScript() LY+@o<>  
    Selection.Find.ClearFormatting R%Hi+#/dr-  
    Selection.Find.Replacement.ClearFormatting  52Yq  
    With Selection.Find .7O*pJ2(H  
        .Text = "[【\[［〖](*)[】\]〗］]" {5A2&  
        .Replacement.Text = "[\1]" +<'Ev~  
        .Replacement.Font.Superscript = True 36.Z0Z1'F>  
        '.Replacement.Font.Color = wdColorBlue <3L5"77G6  
        .Forward = True "N;`1ce  
        .Wrap = wdFindContinue 'Oxy$U   
        .FORMAT = True pk>^?MO  
        .MatchCase = False B[qzUD*P_n  
        .MatchWholeWord = False ;^+\K-O]c  
        .MatchByte = False QER?i;-wb  
        .MatchAllWordForms = False ]GUvV&6@(  
        .MatchSoundsLike = False Jf@H/luW  
        .MatchWildcards = True c& <Fr[AK  
    End With f<GhkDPm>?  
    Selection.Find.Execute Replace:=wdReplaceAll GmK^}=frj  
End Sub Upx G@b  
y$;/Vm_
'  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) <:_wbVn-  
    bContinue = False E!;SL|lj.  
    Set regEX = Nothing _qU4Fadgm  
End Sub )z>|4@,  
wDw[RW3  
Sub CeateOrModifyStyle() 3W V"U  
' @<,X0S  
' OwuE~K7b{  
Dim stl As Style 3Nl <p"=  
     Z~GL5 ]S  
    Options.Pagination = False Q
Z!Y2Bz(4  
     3N8t`N  
    On Error Resume Next 1eA
7>$w}[  
    For Each stl In ActiveDocument.Styles L]yS[UN$  
        stl.Delete PoNi"Pv  
    Next _,
kj:R.  
    On Error GoTo 0 SfA\}@3  
     N>Xo_-QCY  
    Set stl = Nothing CMe 06^U  
     G3txj  
    DoEvents qjwxhabc  
    On Error Resume Next "<6G6?sz  
     {M3qLf~z#C  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph ag;Q F  
     C^s^D:   
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph !H#bJTXB  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph 2{D{sa  
     FW.7'7G@n  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph u\a#{G;Z  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph  JR'  
     }~2LW" 1'  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph '-QwssE  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph @efh{  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph Ltv]pH}YN  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph 9y6-/H ,  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph Y=%tn8<  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph a@8v^
G  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph ih)zG  
     w?3p';C  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph w}L]X1#sF  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph oVnvO iAc  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph md=TjMaY  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph (DJ"WG  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph -N6f1>}pE  
     zofa-7'Bn  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph >/{@C  
    On Error GoTo 0 %) /s;Q,  
    DoEvents #||}R[~P"  
     1Vsz4P"O $  
    'BaseStyle [v7F1@6b  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False  Fiv3 {.  
    With ActiveDocument.Styles("BaseStyle").Font ]E7F/O/.  
        .NameFarEast = "宋体" Q_1:tW &  
        .NameAscii = "Times New Roman" {SOr#{1z*  
        .NameOther = "宋体" B{/R: Hm  
        .Size = 10.5 ``V" D  
        .Bold = wdUndefined GC<l#3+  
        .Italic = wdUndefined Y5f1lUT  
        .Subscript = wdUndefined i1UiNJh86  
        .Subscript = wdUndefined B`YTl~4  
         @>u}eB>Kn  
        .Underline = wdUnderlineNone ^/)^7\@  
        .UnderlineColor = wdColorAutomatic #r$cyV!k  
        .StrikeThrough = False E{`kaWmC&~  
        .DoubleStrikeThrough = False I?]ohG K  
         _uWpJhCT  
        .Outline = False vNVox0V  
        .Emboss = False Wf u(*  
        .Shadow = False B#exHf8  
        .Hidden = False *jLJcb*.Ap  
        .SmallCaps = False 7jxs
lI&F  
        .AllCaps = False ]5mnew  
        .Color = wdColorAutomatic RW|`nL  
        .Engrave = False ~Uj=^leYO  
        .Scaling = 100 C7XxFh  
        .Kerning = 1 yZ @"\Z!  
        .Animation = wdAnimationNone wYdb*"R  
        .DisableCharacterSpaceGrid = False \ 4&
fxe  
        .EmphasisMark = wdEmphasisMarkNone ,ly\Ka?zO  
    End With 6O|@xvg  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat UG'Q]S#!  
        .LeftIndent = 0 S3F;(PDzy  
        .RightIndent = 0 .RE:;<|w  
        .SpaceBefore = 0 x%s-
+ &  
        .SpaceBeforeAuto = False dFRsm0T  
        .SpaceAfter = 0 j1^I+j)  
        .SpaceAfterAuto = False !6n_}I-W  
         iyA'#bE-  
        .LineSpacingRule = wdLineSpaceSingle R"4Vtww  
        .Alignment = wdAlignParagraphJustify vV6<^W:9F  
         \jh'9\  
        .WidowControl = False 4Fa~Aog  
        .KeepWithNext = False ? 8)'oMD  
        .KeepTogether = False PZ2;v<  
        .PageBreakBefore = False P !AEf#1  
        .NoLineNumber = False @V(*65b2  
         d.3E[AJa(  
        .FirstLineIndent = CentimetersToPoints(0) f6EZ( v  
        .OutlineLevel = wdOutlineLevelBodyText  mkMq  
        .CharacterUnitLeftIndent = 0 k\wW##=v  
        .CharacterUnitRightIndent = 0 A]<y:^2])C  
        .CharacterUnitFirstLineIndent = 0 t!*?dr  
        .LineUnitBefore = 0 ^({})T0wu  
        .LineUnitAfter = 0 ]-PH^H  
        .AutoAdjustRightIndent = True oin$-i|Xp!  
        .DisableLineHeightGrid = True <S\jpB  
         \@WDV  
        .FarEastLineBreakControl = True YO#M/%^j  
        .WordWrap = True I*%-cA%l  
        .Hyphenation = False "K ~  
         NYyh|X:m  
        .HangingPunctuation = True T{Gj+7bQ~  
        .HalfWidthPunctuationOnTopOfLine = True vmi+_]  
        .AddSpaceBetweenFarEastAndAlpha = True l-fi%Z7C  
        .AddSpaceBetweenFarEastAndDigit = True H]P. x!I  
        .BaseLineAlignment = wdBaselineAlignBaseline 6TYY UM"&  
    End With IW>T}@ |  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False p s/Ayjk  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll "&%I)e
^  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese 3?[dE<  
    ActiveDocument.Styles("BaseStyle").NoProofing = False 
^.1)};i  
     W_||6LbZ
y  
    '一级标题题样式 ~:0sk"t$1  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") #~#R-
 
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" "/)#O
~  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False :X0k]p  
    With ActiveDocument.Styles("QLNU一级标题").Font _|iSF2f,X  
        .NameFarEast = "黑体" .Fs7z7?Y  
        .NameAscii = "Arial Black" s&A} h  
        .NameOther = "黑体" ?b*s. ^  
        .Name = "黑体" 3Iua*#<m,  
        .Size = 16              '三号 }d&_q7L@@6  
        .Bold = True (gEBOol  
        .Italic = wdUndefined C.~,qmOP  
        .Subscript = wdUndefined fg s!v7  
        .Superscript = wdUndefined uvMy^_}L  
    End With #eQJEajv5  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat :imW\@u  
         z xMXXm;  
        .LeftIndent = CentimetersToPoints(0) 2gc/3*F8  
        .RightIndent = CentimetersToPoints(0) VkvB<3  
        .FirstLineIndent = CentimetersToPoints(0) $()5VMb  
         5}:-h>  
        .LineSpacingRule = wdLineSpaceSingle QXL'^u
O  
        .Alignment = wdAlignParagraphCenter M
2d$4-<  
         ;
P;-}u  
        .WidowControl = True :S.9eFfa  
        .KeepWithNext = True Mc=$/ o  
        .KeepTogether = True 'r4/e-`pK  
        .OutlineLevel = wdOutlineLevelBodyText >, TUZ  
         uPhK3nCGo  
        .LineUnitBefore = 0.5 i;]"n;>+/  
        .LineUnitAfter = 0.5 ,3?Q(=j  
    End With E;,u2[3  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False T3~k>"W  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll $RYa6"`  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese |h-QP#]/  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True V\{clJ\U  
    DoEvents Z?}dq- Vh&  
     !5.8]v
 
    '二级 O9vQ p  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") &wie]  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" 1s%#$ 7  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False Y?S!8-z  
    With ActiveDocument.Styles("QLNU二级标题").Font <nE>XAI_7  
        .NameFarEast = "黑体" `2'#!-  
        .NameAscii = "Arial Narrow" ?/BqD;{?I  
        .NameOther = "黑体" BZ:H`M`n  
        .Name = "黑体" mlixIW2  
        .Size = 15        '小三号 +s(HO
q)b  
        .Bold = False t=|evOz]  
        .Outline = False <d,b'<z s  
        .Italic = wdUndefined H!?c\7adX  
        .Subscript = wdUndefined oT^{b\XN  
        .Superscript = wdUndefined 3wOZ4<B  
    End With i8`Vv7LF  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat ./,/
y"x  
        .LeftIndent = CentimetersToPoints(0) z,Medw6[  
        .RightIndent = CentimetersToPoints(0) [OM7g'?S0  
        .FirstLineIndent = CentimetersToPoints(0) t5[#x4 p  
         ? K;dp  
        .LineSpacingRule = wdLineSpaceSingle \
wo?47+=  
        .Alignment = wdAlignParagraphLeft GO8GJ;B-U  
         tro7Di2Q  
        .WidowControl = True `)` n(B  
        .KeepWithNext = True , 0imiv  
        .KeepTogether = True TX$r`~  
        .PageBreakBefore = False ,#Iu 7di  
        .OutlineLevel = wdOutlineLevelBodyText Y-pzy']4  
         ?>
hPO73{  
        .LineUnitBefore = 0.5 >XK PTC5H  
        .LineUnitAfter = 0.5 y603$Cv  
         "*m_> IU  
    End With 6,)[+Bl  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False YwteZSbp6M  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll 4^TG>j?M  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese (mgS"zPS  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True ~$ng^D  
    DoEvents U [S aY0Z  
     Z8zmHc"IH  
    '三级标题样式 ozAS[B6  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") C3eR)Yh  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" [p{#XwN  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False hHN'w73z  
    With ActiveDocument.Styles("QLNU三级标题").Font u6T+Cg  
        .NameFarEast = "宋体" i'4B3  
        .NameAscii = "Times New Roman" @HQ`~C#Z'  
        .NameOther = "黑体" DKne'3pH  
        .Name = "黑体" j:5=s%S  
        .Size = 14               '四号 {kp
"nl$<  
        .Bold = False mk1bcK9  
        .Outline = False _]yn"p  
        .Italic = wdUndefined pi /g H  
        .Subscript = wdUndefined wLmhy,
 
        .Superscript = wdUndefined 0KYEb%44  
    End With Nd`%5%'::  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat 5Y.vJz  
        .LeftIndent = CentimetersToPoints(0) plUZ"Tr  
        .RightIndent = CentimetersToPoints(0) 9 TvV=  
        .FirstLineIndent = CentimetersToPoints(0) vtw6FX_B  
         ]+(6,ct&.  
        .LineSpacingRule = wdLineSpaceSingle D&/kCi=R  
        .Alignment = wdAlignParagraphLeft FB
_pw!z  
         h?rp|uPQ  
        .WidowControl = True 87Oad@FOr  
        .KeepWithNext = True y<HO:kZ8`  
        .KeepTogether = True

ad.3A{  
        .PageBreakBefore = False ZNf6;%oGG  
        .OutlineLevel = wdOutlineLevelBodyText K&nE_.kbl  
         KB%"bqB|  
        .CharacterUnitLeftIndent = 0 '>&^zg r  
        .CharacterUnitRightIndent = 0 _jJPbKz  
        .CharacterUnitFirstLineIndent = 2 &0='r;*i  
         M*z~gOZ  
        .LineUnitBefore = 0.5 d`P7}*;`  
        .LineUnitAfter = 0 !u_Y7i3^  
    End With *FC=X)_&W  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False \Z]UA&v_  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll 9S-Z&2L  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese eCN })An  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True .$Ik`[+Z  
    DoEvents _&N2'hG=sn  
     7l'6gg
  
    '四级标题样式 ,a gc  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") B-.gI4xa  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" 0ZBJ~W  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False 2Or'c`|   
    With ActiveDocument.Styles("QLNU四级标题").Font 8)O[Aq::  
        .NameFarEast = "宋体" |zR8rqBX;  
        .NameAscii = "Times New Roman" xgpi-l  
        .NameOther = "宋体" ERpnuM b  
        .Name = "宋体" T,]7ICF#  
        .Size = 12               '小四号 x97 j  
        .Bold = True T.@aep\"  
        .Outline = False }!;s.[y  
        .Italic = wdUndefined 1nQWW9i
 
        .Subscript = wdUndefined '$|[R 98  
        .Superscript = wdUndefined _9Jh L:cY  
    End With %ZNI:Uh  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat &QDW9 Mi  
         N F2/B#q  
        .LeftIndent = CentimetersToPoints(0) [onGNq?#  
        .RightIndent = CentimetersToPoints(0)  /<HRwG\w  
        .FirstLineIndent = CentimetersToPoints(0) (5R?#vj  
         vV[eWd.o6M  
        .LineSpacingRule = wdLineSpaceSingle fIj|4a+  
        .Alignment = wdAlignParagraphLeft 7[I}*3Q'  
         q[HTnx  
        .WidowControl = True `&KwtvkdI  
        .KeepWithNext = True S/^"@?z,vE  
        .KeepTogether = True t *1u[~=  
        .PageBreakBefore = False 9{-EJ)  
        .OutlineLevel = wdOutlineLevelBodyText My<snmr2d  
         94+KdHAo^M  
        .CharacterUnitLeftIndent = 0 K%"5ImM  
        .CharacterUnitRightIndent = 0 <%maDM^_\(  
        .CharacterUnitFirstLineIndent = 2 Q7R~{5r>W  
         qp/v^$EA  
        .LineUnitBefore = 0 f
J/e(t  
        .LineUnitAfter = 0 \]=7!RQ\  
         . C&ktU4  
    End With FO!]P  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False ,=
tD8@a<  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll *"D3E7AO  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese ?**+e%$$  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True dik:4;  
    DoEvents "ul {d(K3  
     q8s0AN'@t'  
    '正文校式 2ggdWg7
z  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") <1FC%f/  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" "iU}]e0  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False MP_'D+LS  
    With ActiveDocument.Styles("QLNU正文").Font #>%X_o-o23  
         Gs9:6  
        .NameFarEast = "宋体" )Z(TCJ~~!  
        .NameAscii = "Times New Roman" BDq%'~/^  
        .NameOther = "宋体" nyBJb(5"B  
        .Name = "宋体" o>/YAX:.!T  
         J13>i7]L%  
        .Size = 12               '小四号 WpF2)R}G=  
         Fe]B&n  
        .Bold = wdUndefined '<rZm=48  
        .Italic = wdUndefined Ys@}3\Mc  
        .Subscript = wdUndefined (>VX-Y/  
        .Superscript = wdUndefined 30XR 82P/  
         `|,`QqDQ  
        .Outline = False 0Uz\H0T1  
        .Emboss = False --HF8_8;'  
        .Shadow = False +w.JpbQ&  
        .Hidden = False p /# $io  
         L1ieaKw  
        .DisableCharacterSpaceGrid = True nx8a$vI-TY  
    End With NbC@z9Q  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat I3,= 0z  
         c:-!'l$ !  
        .LeftIndent = CentimetersToPoints(0) .Jt[(;  
        .RightIndent = CentimetersToPoints(0) !|O~$2O@  
        .FirstLineIndent = CentimetersToPoints(0) g{8,Wx,,  
         lD"(MQV@0  
        .LineSpacingRule = wdLineSpaceExactly " Jt.lL ]5  
        .LineSpacing = 20 hg+X(0  
        .Alignment = wdAlignParagraphLeft iTag+G4*  
         Z7_m)@%;kk  
        .WidowControl = False y>72{  
        .KeepWithNext = False w m)#[x #  
        .KeepTogether = False um4yF*3b9  
        .PageBreakBefore = False 89\n;5'f4  
        .Hyphenation = False D+]a.& {p  
         t*>R`,j  
        .OutlineLevel = wdOutlineLevelBodyText bty/  
         gA: 5M  
       7qj9&bEy  
        .CharacterUnitLeftIndent = 0 5C q{XcXV  
        .CharacterUnitRightIndent = 0 )=AHf?hn  
        .CharacterUnitFirstLineIndent = 2 Ttxqf:OMf  
         &e;=cAXG  
        .LineUnitBefore = 0 :lB=Lr)  
        .LineUnitAfter = 0 ag*mG*Z  
        .SpaceBefore = 0 G`\f  
        .SpaceAfter = 0 LM7$}#$R  
         0TGLM#{  
        .DisableLineHeightGrid = True (xVsDAp=@  
    End With >p.O0G gg  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False +RnkJ* l  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll Q(<)KZIK  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese VJdIHsI  
    ActiveDocument.Styles("QLNU正文").NoProofing = True |g #K]v  
    DoEvents NR -!VJQ  
     jFA{+Yr1  
    '图片段落样式 mf}O-Igte  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") t%'Z<DmG+  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" ^@qvl
%j  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False Q\cjPc0y  
    With ActiveDocument.Styles("QLNU图片段落").Font wvbPnf^y  
        .Size = 12               '小四号 \|E^v6E%0  
        .Italic = wdUndefined -[6z 1"*  
        .Subscript = wdUndefined 7VMvF/ap]u  
        .Superscript = wdUndefined hjIT_{mk  
    End With epU:  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat |lJX 3  
         q{t*34R  
        .LeftIndent = CentimetersToPoints(0) =dII- L=`  
        .RightIndent = CentimetersToPoints(0) WAn~+=Ax  
        .FirstLineIndent = CentimetersToPoints(0) [k6nW:C
 
         QNARkYY~|  
        .LineSpacingRule = wdLineSpaceSingle l-ct?T_@  
        .Alignment = wdAlignParagraphCenter ADpmvW f?  
        .KeepWithNext = True yqi^>Ce0  
        .OutlineLevel = wdOutlineLevelBodyText ]`&Yqg  
         qIY~dQ|  
        .CharacterUnitLeftIndent = 0 f. FYR|%tq  
        .CharacterUnitRightIndent = 0 9(6I< ]#  
        .CharacterUnitFirstLineIndent = 0 _T2=J+"-Kp  
         |1b
_3?e  
        .LineUnitBefore = 0 'bo~%WA]n  
        .LineUnitAfter = 0 z)9wXo#~  
    End With |!"2fI  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False L{(QpgHZ  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll 3'^k$;^  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese mml<
9fbH  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True Y7vA`kjD-C  
    DoEvents M-[$L XR  
     Gi "941zVl  
     _cc#Qlw 7  
    '第X章 q-c=nkN3  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") Y]L9Y9  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" *e-A6Sh  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False G3rj`Sg^c  
    With ActiveDocument.Styles("QLNU章节标题").Font #m[|2R  
        .NameFarEast = "黑体" R,|d `)T  
        .NameAscii = "Arial Black" ;_^fk&+  
        .NameOther = "Arial Black" ,4ei2`wV  
        .Name = "黑体" |fSe>uVZ  
        .Size = 16 -u?S=h}  
        .Bold = True 4dhvFGlW  
        .UnderlineColor = wdColorAutomatic e46/{4F,  
        .Outline = False |7X:TfJ  
        .Italic = wdUndefined *,Za6.=  
        .Subscript = wdUndefined (rkU)Q  
        .Superscript = wdUndefined 6S+U&Ce\  
        .Scaling = 100 e_/b2"{  
        .DisableCharacterSpaceGrid = True L +'Fs  
    End With tkXEHsRT  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat /Wy.>YC|  
        .LineSpacingRule = wdLineSpaceSingle )l!3(  
        .Alignment = wdAlignParagraphCenter mZx&Xez_G  
        .WidowControl = True z}{afEb  
        .KeepWithNext = True [o.B  
        .KeepTogether = True D<Zp!J1o  
        .PageBreakBefore = True :PtF+{N>  
        .OutlineLevel = wdOutlineLevelBodyText xj[(P$,P  
         R1& [S/  
        .LeftIndent = CentimetersToPoints(0) (y M^  
        .RightIndent = CentimetersToPoints(0) t`+'r}=d  
        .FirstLineIndent = CentimetersToPoints(0) $ZNu+tn Y  
         uPRQU+  
        .CharacterUnitLeftIndent = 0 TpHfS]W-P  
        .CharacterUnitRightIndent = 0 F$^
Su<w5l  
        .CharacterUnitFirstLineIndent = 0 Rr!Y3)f;  
         "R3d+p  
        .LineUnitBefore = 1 {;.T7dL  
        .LineUnitAfter = 0.5 jK' N((Hz  
         (4\d]*u5-c  
        .AutoAdjustRightIndent = False [-)r5Dsdq  
        .DisableLineHeightGrid = True h+aS
4Q&  
        .FarEastLineBreakControl = True _L@2_
#h!  
        .WordWrap = True ~_s{0g]B  
    End With C-Ht(x|  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False 1P(|[W1  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll 5cEcTJL[C  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese !}4MN:r  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True MW PvR|Q  
    DoEvents 1!.(4gV  
     g7&9"  
    '表格标题 =L C:SFzF  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 1ylk4@`  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" l983vKr  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False Dc+'<"  
    With ActiveDocument.Styles("QLNU表格标题").Font fPrLM'  
        .NameFarEast = "楷体" U-:ieao@  
        .NameAscii = "Arial" [email protected] ,rII  
        .Name = "楷体" }=|!:k iE  
        .Size = 10.5 8Th` ]tI  
        .Bold = True gl]E_%tH  
        .Underline = wdUnderlineNone #Jna6  
        .Italic = wdUndefined V13BB44  
        .Subscript = wdUndefined H<QT3RF2  
        .Superscript = wdUndefined JMVNmq&0  
        .Color = wdColorAutomatic l/Vo-#  
    End With Q6X
RsFc  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat 0d3+0EN{  
         TARXx>  
        .LineSpacingRule = wdLineSpaceSingle !wWJ^Oz=  
        .Alignment = wdAlignParagraphCenter XfKo A0  
        .KeepWithNext = True 1]}#
)-  
        .KeepTogether = True .S%0  
        .OutlineLevel = wdOutlineLevelBodyText ki{3IEOr}  
         jZ% TJ0(H  
        .LeftIndent = CentimetersToPoints(0) YFTjPBV  
        .RightIndent = CentimetersToPoints(0) 5l,ZoB
8  
        .FirstLineIndent = CentimetersToPoints(0) lw :`M2P,  
         W$'R}L  
        .CharacterUnitLeftIndent = 0 f}L*uw  
        .CharacterUnitRightIndent = 0  CT\;xt,S  
        .CharacterUnitFirstLineIndent = 0 /"?HZ
% W  
         JICawj: I  
        .LineUnitBefore = 1 7^M9qTEHp  
        .LineUnitAfter = 0 .-JCwnP  
         \T;\XAGr  
    End With >/#KI~}'N  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False '}rRzD:  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll b]7GmRekl  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese Q43|U4a  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True j+^
oz'q  
    DoEvents ?h0X,fl3  
de]zT^&C  
    '表格首行 OKHX)"j\\  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") YhRWz=l  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False r)T:7zy  
    With ActiveDocument.Styles("QLNU表格首行").Font Vf`7V$sr  
        .NameFarEast = "楷体" ?\#N9+{W  
        .NameAscii = "Times New Roman" 2QNNp:`6  
        .Name = "楷体" Qjnd6uv{I  
        .Size = 9 f"(X(1F  
        .Bold = True &bhq`>  
        .Underline = wdUnderlineNone q|%(3,)ig  
        .Italic = wdUndefined &|aqP \Q5  
        .Subscript = wdUndefined cS.-7  
        .Superscript = wdUndefined 2>\v*adG  
    End With TI !a)X  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat 5o/&T"]@  
        .LineSpacingRule = wdLineSpaceSingle 0Hs|*:Y1D  
        .Alignment = wdAlignParagraphCenter gh>>Ibf  
         6O@J7P  
        .LeftIndent = CentimetersToPoints(0)
XUF\r]B,9  
        .RightIndent = CentimetersToPoints(0) C_ \q?>  
        .FirstLineIndent = CentimetersToPoints(0) 2jbI W*  
         z`Hy'{1  
         .>(Q)"v  
        .CharacterUnitLeftIndent = -0.5 -!)xQvagD.  
        .CharacterUnitRightIndent = -0.5 X{^}\,cVtG  
        .CharacterUnitFirstLineIndent = -0.5 :0/q5_ t  
         gt\MS;jMa  
        .LineUnitBefore = 0 k"N(o(  
        .LineUnitAfter = 0 ox j3[</'k  
        .SpaceBefore = 0 cv(PP-'\  
        .SpaceAfter = 0 o0ZM[0@j  
         (n1Bh~R^
 
    End With <jS~ WI@  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False qClHP)<  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll U;n*j3wT  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese (Z}>1WRju  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True ,KJw|x4}\  
    DoEvents 9z I.pv+]  
@vMA=v7a  
    '表格内容 z`6fotL  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") WO6/X/#8b  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False O8]'o*<]  
    With ActiveDocument.Styles("QLNU表格内容").Font 5/QRL\  
        .NameFarEast = "楷体" 3@n>*7/E  
        .NameAscii = "Times New Roman" ^>?CMcN4*  
        .Name = "楷体" }YOL"<,:o  
        .Size = 9 ez3Z3t`  
        .Bold = False + <c^=&7Lq  
        .Underline = wdUnderlineNone hCYQGx0  
        .Italic = wdUndefined kGkA:g:  
        .Subscript = wdUndefined E1&b#TE6O  
        .Superscript = wdUndefined =&dW(uyzY  
    End With l/
y]nw  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat [~\PQYm'  
        .LineSpacingRule = wdLineSpaceSingle $^ 'aCU0C  
        .Alignment = wdAlignParagraphCenter 3u>8\|8wz  
         =V97;kq+v  
        .LeftIndent = CentimetersToPoints(0) L&-hXGx=7  
        .RightIndent = CentimetersToPoints(0) ~dHM4lGY  
        .FirstLineIndent = CentimetersToPoints(0) ?4CNkk=v  
         8SmnMt  
        .CharacterUnitLeftIndent = -0.5 FA90`VOWYU  
        .CharacterUnitRightIndent = -0.5 \tyg(srw0  
        .CharacterUnitFirstLineIndent = -0.5 'O6]0l  
        .LineUnitBefore = 0 3K@@D
B6  
        .LineUnitAfter = 0 j%V["?)  
        .SpaceBefore = 0 39 Y(!q  
        .SpaceAfter = 0 B$?qQ|0:=  
    End With GFk1
/ F  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False z NSu  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll O|cu.u|  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese @mt0kV9  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True <As9>5|%  
    DoEvents OTB$V k  
-xg2q V\c  
    '图片标题 '<
iK*[NW  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") Q{QYBh&  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" >\<*4J$PZ  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False /?/#B `  
    With ActiveDocument.Styles("QLNU图片标题").Font QHBtWQgS  
        .NameFarEast = "楷体" }%TSGC4{  
        .NameAscii = "Times New Roman" f-2$ L  
        .Name = "楷体" YYg)  
        .Size = 10.5 %b?$@H-Re  
        .Bold = True _)$PKOzbb  
        .Underline = wdUnderlineNone % p?brc  
        .Italic = wdUndefined r,(et  
        .Subscript = wdUndefined JIO$=+p  
        .Superscript = wdUndefined 6O2=Ns;J6  
        .Outline = False 1x~U*vbhQ  
        .Shadow = False O;[9_[  
        .Color = wdColorAutomatic zHfP+(ah  
    End With jy2IZ o  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat ?yXAu0  
        .LineSpacingRule = wdLineSpaceSingle R)Mt(gFZT_  
        .Alignment = wdAlignParagraphCenter +~nzii3  
         .w6eJ4]  
        .KeepWithNext = wdUndefined RE3Z%;'  
        .KeepTogether = True *pzq.#  
        .OutlineLevel = wdOutlineLevelBodyText rC[6lIP  
         [O ",  
        .LeftIndent = CentimetersToPoints(0) K:y^OAZfV  
        .RightIndent = CentimetersToPoints(0) %m{U& -(l@  
        .FirstLineIndent = CentimetersToPoints(0) iO1nwl !#  
         3}1ss
U"T  
        .CharacterUnitLeftIndent = 0 uk`8X`'  
        .CharacterUnitRightIndent = 0 ]J2:1
94  
        .CharacterUnitFirstLineIndent = 0 rAQF9O[  
         HjWq[[Nz  
        .LineUnitBefore = 0 W&"|}Pi/  
        .LineUnitAfter = 0 V+wH?H=  
    End With *oI*-C  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False }i!pL(8 ;  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll nL]^$J$  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese !SHj$Jwa'  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True L3(^{W]|  
    DoEvents G&eP5'B4i  
aaWJ* >rJ  
    '目录项 t>UkE 9=3\  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") 3b[jwCt  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" % qsvtc`  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False *
B)yy[8j+  
    With ActiveDocument.Styles("QLNU目录项").Font @ LD6:gy  
        .NameFarEast = "黑体" S\NL+V?7h  
        .NameAscii = "Times New Roman" 2_QN&o ~h  
        .NameOther = "Times New Roman" smAC,-6]~  
        .Name = "黑体" Ix
DWJ#k  
        .Size = 10.5 o[6y+<'o  
        .Bold = False %1M
cD{  
        .Italic = wdUndefined ^b?2N/m@  
        .Underline = wdUnderlineNone fn{S "33"  
        .Color = wdColorAutomatic ,je`YEC  
        .Superscript = wdUndefined ;SKh  
        .Subscript = wdUndefined IF k  
    End With @nV5.r0W}B  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat B`#h{)[  
         MN= sIP,zk  
        .LineSpacingRule = wdLineSpaceSingle dpN@#w  
        .Alignment = wdAlignParagraphLeft &[|VZ[  
         ^%oUmwP<$  
        .WidowControl = False 3mt%!}S  
        .KeepWithNext = False ?Ce#BwQ>  
        .KeepTogether = False p
F=g||gS  
        .PageBreakBefore = False KT*:F(4`  
        .NoLineNumber = False ?T: jk4+  
        .OutlineLevel = wdOutlineLevelBodyText }ZZ5].-a<D  
         oholt/gb+0  
        .LeftIndent = CentimetersToPoints(0) M"^K0 .  
        .RightIndent = CentimetersToPoints(0) w5~i^x  
        .FirstLineIndent = CentimetersToPoints(0) = Rc"^oS  
         Sj 3oV  
        .CharacterUnitLeftIndent = 0 :_dICxaLZT  
        .CharacterUnitRightIndent = 0 iT)WR90  
        .CharacterUnitFirstLineIndent = 0 bNzqls$  
         5a8>g [2U  
        .LineUnitBefore = 0 Yig0/"  
        .LineUnitAfter = 0 {M~lbU  
    End With  msTB'0  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False sJr5t?  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll XbvDi+R2A  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot X.|Ygx  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese @O3/3vi1  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True >X Qv?5  
    DoEvents uf)Oy7FQ  
     %EbiMo ]3B  
    '参考文献 <ZPZk'53<f  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") L0h G  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" dXu{p  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False Db03Nk>#  
    With ActiveDocument.Styles("QLNU参考文献").Font !)OB@F%U  
        .NameFarEast = "宋体" u"VS* hSH  
        .NameAscii = "Times New Roman" .5tg4%l  
        .NameOther = "Times New Roman" - HOnB=  
        .Name = "Times New Roman" Aa(<L$e!`  
        .Size = 12 Re:T9K'e  
        .Bold = False |D G@ht  
        .Italic = wdUndefined 89eq[ |G_  
        .Subscript = wdUndefined &,W$-[  
        .Superscript = wdUndefined
e 3@x*XI  
        .Underline = wdUnderlineNone ,=w!vO5s  
        .UnderlineColor = wdColorAutomatic r)l`  
        .Color = wdColorAutomatic 2g`[u|  
        .Engrave = False r:.uBc&_  
    End With ^o<[. )  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat o$bUY7_  
         qJs[i>P[W  
        .LineSpacingRule = wdLineSpaceExactly }~enEZ  
        .LineSpacing = 16 w^VSj%XH!  
        .Alignment = wdAlignParagraphLeft KXBL eR&^  
        .WidowControl = False hFb fNB3  
        .KeepWithNext = False pVokgUrC  
        .KeepTogether = False 0-e  
        .PageBreakBefore = False JAb$M{t  
        .OutlineLevel = wdOutlineLevelBodyText m3 IP7h'  
         {K.rl%_|N  
        .LeftIndent = CentimetersToPoints(0) =&NOHT>  
        .RightIndent = CentimetersToPoints(0) T[Q"}&bB  
        .FirstLineIndent = CentimetersToPoints(0) 2)LX^?7 R  
         WVL#s?=g  
        .CharacterUnitLeftIndent = 0 bejGfc  
        .CharacterUnitRightIndent = 0 Q)6va}2ai  
        .CharacterUnitFirstLineIndent = -2 h H4o;0rqJ  
         B%b_/ F]e  
        .LineUnitBefore = 0 CI^|k
/  
        .LineUnitAfter = 0 6&!l'[hU  
        .SpaceBefore = 0 c;V D}UD'  
        .SpaceAfter = 0 ,w\ wQn>]K  
         [ #]jC[  
    End With 03E3cp"  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False L DX
*<(  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll
~w.2-D  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS O2#S: ~h  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True %jKH?%Ih  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese ,nE& Me&#J  
    DoEvents el@XK}<dr  
E[S':Q  
    ' :0Te4UE;P7  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") H@!#;w  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" =:5<{J OG  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False lCFU1 GHH  
    With ActiveDocument.Styles("QLNU论文题目").Font !UNNjBBP7  
        .NameFarEast = "黑体" 1Ii| {vR  
        .NameAscii = "Arial Black" .ewZV9P)t  
        .NameOther = "Arial Black" X ]s"5ju|t  
        .Name = "Arial Black" IRB& j%LA  
        .Size = 16 i:Mc(mW  
        .Bold = False F3 f@9@b  
        .Italic = wdUndefined G1
_Nd2w  
        .Superscript = wdUndefined ep?:;98|t  
        .Subscript = wdUndefined kEAhTh&g*  
        .Underline = wdUnderlineNone 1i,4".h?M  
        .UnderlineColor = wdColorAutomatic q+/l"&j.  
        .Color = wdColorAutomatic %h*5xB]Tt  
u6_jn
ZGB  
    End With /?3:X*  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat m "]!I~jd  
        .LineSpacingRule = wdLineSpaceSingle (|0b7|'T  
        .Alignment = wdAlignParagraphCenter mU]s7` %<>  
        .WidowControl = True Ow3a0cF[9  
        .KeepWithNext = True 6&],WGz  
        .KeepTogether = True .Vh*Z<9S4  
        .PageBreakBefore = True
x
ii$e  
        .NoLineNumber = False ^![{,o@"A  
        .OutlineLevel = wdOutlineLevelBodyText {E~l>Z88  
         O
NWO`XD  
        .LeftIndent = CentimetersToPoints(0) ?M"HX
u  
        .RightIndent = CentimetersToPoints(0) )fCMITq.|  
        .FirstLineIndent = CentimetersToPoints(0) X%J%A-k]  
         UX}*X`{  
        .CharacterUnitLeftIndent = 0 _7 `E[&v  
        .CharacterUnitRightIndent = 0 YC)hX'A\  
        .CharacterUnitFirstLineIndent = 0 FE6C6dW{  
         8kbB z  
        .LineUnitBefore = 1 R~c1)[[E  
        .LineUnitAfter = 1 i<:p.ug-O  
         qc-C>Ra  
        .BaseLineAlignment = wdBaselineAlignAuto #:W%,$9\P  
    End With C={mi#G[/  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False AF[>fMI  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll B!`\L!  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS h]}`@M"  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True x^2 W?<  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese :0dfB&7  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True GN%<"I.  
    DoEvents cs5ix"1A  
     {y/-:=S)A  
    '中文摘要 w a.f![  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") @W)/\AZ3  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" %gTVW!q  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False ~ ^7  
    With ActiveDocument.Styles("QLNU中文摘要").Font >ZDC . ~  
        .NameFarEast = "宋体" sX~45u \  
        .NameAscii = "Times New Roman" +E#PJ_H=F8  
        .NameOther = "Times New Roman" QZ0R:TY  
        .Name = "Times New Roman" yM17H\=  
        .Size = 12 (,TH~(
"{  
        .Bold = wdUndefined 0.(Ml5&e  
        .Superscript = wdUndefined `r.N  
        .Subscript = wdUndefined IDmsz  
        .Italic = wdUndefined  7kM4Ei  
        .Underline = wdUnderlineNone 5ZUy :  
        .UnderlineColor = wdColorAutomatic KL~AzL
I  
        .Color = wdColorAutomatic [Pqn3I[  
    End With b6Xi  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat X8.y4{5  
        .LineSpacingRule = wdLineSpaceExactly J(hA^;8:  
        .LineSpacing = 20 $O]^Xm3{@  
        .Alignment = wdAlignParagraphLeft 7<4xtK`+b  
         9TW8o}k`  
        .WidowControl = False M\jB)@)  
        .KeepWithNext = False 8q*";>*  
        .KeepTogether = True a(!3Afi  
        .PageBreakBefore = False dk4D+*R  
        .NoLineNumber = False V Qh/  
        .OutlineLevel = wdOutlineLevelBodyText o_3*;}k8  
         aZxO/b^j  
        .LeftIndent = CentimetersToPoints(0) yI4DVu.  
        .RightIndent = CentimetersToPoints(0) f@*>P_t  
        .FirstLineIndent = CentimetersToPoints(0) i"fCpkAP  
         6'vi68  
        .CharacterUnitLeftIndent = 0 L`pY27 |  
        .CharacterUnitRightIndent = 0 f~v"zT  
        .CharacterUnitFirstLineIndent = 2 J;HkTT  
        .LineUnitBefore = 0 ul$omKI$}  
        .LineUnitAfter = 0 3 9yz~  
         N.n1<  
    End With xx6S`R6:  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False Nc
"NObe  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll ,N;v~D$Y  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS UC;=)  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True 2@5A&b  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese L, %Z9  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True +<B|qcT!  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete 'W+i[Ep5Q  
    DoEvents :4]J
2U\@  
     lG <yJ~{  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") m/" J s  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" }_vM&.GFlL  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False \086O9  
    With ActiveDocument.Styles("QLNU英文标题").Font 6.UKB<sV  
        .NameFarEast = "黑体" iGQ n/Xdo  
        .NameAscii = "Arial Narrow" BUV/twU)  
        .Name = "Arial Narrow" ] EV`dIk  
        .Size = 16 {)uU6z {'  
        .Bold = True U~hCn+0  
        .Bold = wdUndefined M0L-u  
        .Superscript = wdUndefined ,aYU$~o#  
        .Subscript = wdUndefined [nC4/V+-  
        .Italic = wdUndefined [DL|Ht>  
         ,-!2 5G  
        .Underline = wdUnderlineNone +qZc} 7rJF  
        .UnderlineColor = wdColorAutomatic ?0m?7{  
        .StrikeThrough = False =lm nzu<  
        .DoubleStrikeThrough = False P_mi)@  
    End With TL]
bY'%  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat i U,/!IQ  
        .LineSpacingRule = wdLineSpaceSingle Yim#Pq&_  
        .Alignment = wdAlignParagraphCenter @%%bRY  
        .WidowControl = True ~Q_F~0y  
        .KeepWithNext = False K~$35c3M  
        .KeepTogether = False GGp{b>E+ #  
        .PageBreakBefore = False M.t@@wq  
        .NoLineNumber = False uYY=~o[ Tw  
        .FirstLineIndent = CentimetersToPoints(0) 5C*?1& !  
        .OutlineLevel = wdOutlineLevelBodyText pbFYiu+  
         +yiU@K).0  
        .LeftIndent = CentimetersToPoints(0) /xF 9:r  
        .RightIndent = CentimetersToPoints(0) " C&x,Ic  
        .FirstLineIndent = CentimetersToPoints(0) }*Dd/'2+1  
         0+p 5/5  
        .CharacterUnitLeftIndent = 0 dGa@<hg  
        .CharacterUnitRightIndent = 0 n'Bmz  
        .CharacterUnitFirstLineIndent = 0 -@#Pc#  
         .h a`)@MsZ  
        .LineUnitBefore = 1 m.Twgin  
        .LineUnitAfter = 1 a.1`\$]d  
         ^YqbjL  
    End With u5/t2}^T  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False 4^`PiRGt  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll <qr^Nyo4  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS H[Cj7{V  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True v/ eB ,p  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese #[Z<=i~C  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True :K:f^o]s  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete RpULm1b  
    DoEvents -S7RRh'p  
d~3GV(M  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") ^b:Xo"q#H  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" c'xUJhEL  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False aDXpkG0E  
    With ActiveDocument.Styles("QLNU英文摘要").Font )'=V!H#U*  
        .NameFarEast = "宋体" T4vogoy  
        .NameAscii = "Arial" kO jEY  
        .NameOther = "Arial" *J.c $1#
h  
        .Name = "Arial" 1"M"h_4  
        .Size = 12 Pb3EnNqYbM  
        .Bold = wdUndefined H a90  
        .Italic = wdUndefined nQ!N}5[z'  
        .Superscript = wdUndefined 4YBf ~Pp  
        .Subscript = wdUndefined x{~_/;\p3  
    End With ZHb7+  
     j_(?=7Y3g  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat '}@e5^oL  
         R2SBhs,+R  
        .LineSpacingRule = wdLineSpaceExactly jm4)gmC  
        .LineSpacing = 20 8b{U tT  
         ^z38<L=z"  
        .Alignment = wdAlignParagraphJustify QaIi.*tic  
          sN;(/O  
        .WidowControl = False CJ0$;et  
        .KeepWithNext = False xP
42xv9U  
        .KeepTogether = False G]at{(^Vz  
        .PageBreakBefore = False /#@LRN<oCq  
        .NoLineNumber = False EQ6l:[  
         l<s :%%CX  
        .OutlineLevel = wdOutlineLevelBodyText PVZEB  
         _dJp 3D  
        .LeftIndent = CentimetersToPoints(0) :l4^iSf  
        .RightIndent = CentimetersToPoints(0) j`{fB}  
        .FirstLineIndent = CentimetersToPoints(0) gZ1N&/9;  
         Ia=&.,xub  
        .CharacterUnitLeftIndent = 0 j1W bD7*8  
        .CharacterUnitRightIndent = 0 i'U,S`L6>  
        .CharacterUnitFirstLineIndent = 2 N&x@_t""   
         4$..r4@  
        .LineUnitBefore = 0 Zp^)_ 0  
        .LineUnitAfter = 1 /7.w
QeL9  
         +}&pVe\t  
    End With :fl*w"
"V@  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False 5sG ]3z+1  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll m=#aHF  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS }R4(B2vup  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False *X%?3"WH8  
    DoEvents o`oRG)QC  
"$# $f  
    Options.Pagination = True @wg&6uQ  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." [kVpzpGr  
    DoEvents G[ ,,L  
    ActiveDocument.Repaginate H
f;RIl2F  
o]dK^[/*  
End Sub \MfR #k0  
$:qI&)/  
|}l@w+N3  

姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 ogkz(wZ  
S)Ub/`f{s  

引用

引用第20楼newport93于06-14-2010 13:47发表的  : 6!gtve_  
N|j;=y!  
老五，I 服了U。  0jip::x  
iA1;k*)q  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 WrIL]kJw^  

^Yg|P&e(;