Dim bContinue As Boolean dd6%3L{cn  
p"7[heExw  
Dim regEX As New RegExp gLY15v4?  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 sgnc$x"  
i9 V,  
Dim LastTitle0String As String, LastTitle0No As Long 6Eus_aP  
Dim LastTitle1String As String, LastTitle1No As Long sy-#E o#3  
Dim LastTitle2String As String, LastTitle2No As Long mN>(n+ly  
Dim LastTitle3String As String, LastTitle3No As Long ~1aM5Ba{  
Dim LastTitle4String As String, LastTitle4No As Long 4;@L#Pzt  
Dim LastTitle5String As String, LastTitle5No As Long x0%yz+i{:  
Dim LastTabelString As String, LastTableNo As Long r i)`
e  
Dim LastFigureString As String, LastFigureNo As Long <EdNF&S-  
pFV~ 1W:  
Dim strSeperator As String # 2FrP5rC  
2R ^6L@fw  
Sub ConvertWidth(fTEXT As String, rText As String) |Qb@.  
        Selection.Find.ClearFormatting -knP5"TB  
        Selection.Find.Replacement.ClearFormatting k)[c!\a[i  
        Selection.Find.Wrap = wdFindContinue *K& $9fah  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText 6y "]2UgQk  
        DoEvents GHo mk##0E  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True %eh.@8GL`  
End Sub .|Yn[?(  
B~M6l7^?  
Sub ClearDomain() y2mSPLw  
        With Selection.Find I0><IaFy  
            .ClearFormatting XL
9-N?(@  
            .Replacement.ClearFormatting sCmN|Q  
            .Wrap = wdFindContinue tv Zq):c  
            Me.txtStatus.Text = "清除所有域代码" hd,O/-m#  
            DoEvents sl "H!cwF  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False ;Wa&Dg/5`  
        End With yu
@Pd3  
End Sub [>U2!4=$M  
x<OVtAUB  
Private Sub cmdCheck_Click() |WpJen*?Y  
    bContinue = True j/F ('r~L  
    Dim NoSeries1(1 To 16) As String ;)SWwhQ  
    Dim NoSeries2(1 To 16) As String Sx (E'?]  
    Dim NoSeries5(1 To 16) As String +md"X@k5*  
    Dim NoSeriesRM(1 To 16) As String :6Tv4ZUvcG  
    Dim paraTotal As Long, ParaText As String f@$kK?c?  
    Dim ttString As String, ttNo As String FUZuS!sJ  
     u.*}'C>^^v  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long |DP q~l(d  
mi7~(V>  
    Me.txtStatus.Visible = True ~3&hvm[IQ  
    Me.lbParaType.Visible = True 6!USSipn  
    Me.cmdCheck.Enabled = False vT @25  
     xZM4CR9]*C  
     ]vPdj"7  
     :."6g)T  
     g_!xD;0  
    Dim ParaType As String, rText As String %mD{rG9  
     sl(go^  
    Selection.WholeStory /{ P-WRz>  
    Selection.NoProofing = True Kr<UPr  
     ]rNxvFN*j  
    tm1 = Now Dd,i^,4Gj  
     d{7)_Sbky  
        ActiveWindow.View.Type = wdNormalView t@a&&  
     AX'-}5T=  
    NoSeries1(1) = "一" /"8|26  
    NoSeries1(2) = "二" th<>%e}5c  
    NoSeries1(3) = "三" X<pNc6  
    NoSeries1(4) = "四" !N_eZPU.v  
    NoSeries1(5) = "五" d(@ ov^e-  
    NoSeries1(6) = "六" =;F7h @:  
    NoSeries1(7) = "七" BjfTt:kY  
    NoSeries1(8) = "八" _3NH"o d  
    NoSeries1(9) = "九" s,pg4nst56  
    NoSeries1(10) = "十" 9]lyV  
    NoSeries1(11) = "十一" OF)*kiJ  
    NoSeries1(12) = "十二" 3lEP:Jp  
    NoSeries1(13) = "十三" {t.S_|IE  
    NoSeries1(14) = "十四" 3xmPY.  
    NoSeries1(15) = "十五" /d/]#T[Z9  
    NoSeries1(16) = "十六" &Nw|(z&$  
     P2 qC[1hYH  
    NoSeries2(1) = "㈠" ImD&~^-_<  
    NoSeries2(2) = "㈡" .TDg`O24c,  
    NoSeries2(3) = "㈢" kY6_n4  
    NoSeries2(4) = "㈣" VR%*8=  
    NoSeries2(5) = "㈤" Zz]/4 4t  
    NoSeries2(6) = "㈥" ;j[:tt\k  
    NoSeries2(7) = "㈦" 3OY(L`  
    NoSeries2(8) = "㈧" O(9*
VoD  
    NoSeries2(9) = "㈨" 0%Y}CDn_  
    NoSeries2(10) = "㈩" @?;)x&<8?3  
     ?<5KLvGv  
    NoSeries5(1) = "①" lDF7~N9J_  
    NoSeries5(1) = "②" :Bu)cy#/[  
    NoSeries5(3) = "③" 1_]%,  
    NoSeries5(4) = "④" $9xp@8b\_  
    NoSeries5(5) = "⑤" :7JP(j2  
    NoSeries5(6) = "⑥" vA[7i*D{w  
    NoSeries5(7) = "⑦" (d*||"  
    NoSeries5(8) = "⑧" !,rF(pz  
    NoSeries5(9) = "⑨" 94]i|2qj*  
    NoSeries5(10) = "⑩" !4<A|$mQ  
     5*Qzw[[=  
     cM4{ e^  
    NoSeriesRM(1) = "I" * UXa.kT@  
    NoSeriesRM(2) = "II" k7L4~W  
    NoSeriesRM(3) = "III" %o0H#7'  
    NoSeriesRM(4) = "IV" ,H<nNBv3M  
    NoSeriesRM(5) = "V" ${}9/(x/^  
    NoSeriesRM(6) = "VI" c,M"a  
    NoSeriesRM(7) = "VII" .u=|h3&  
    NoSeriesRM(8) = "VIII"  B@*!>R  
    NoSeriesRM(9) = "IX" 3+ 2&9mm  
    NoSeriesRM(10) = "X" hN\sC9a1  
    NoSeriesRM(11) = "XI" Iz;^D!  
    NoSeriesRM(12) = "XII" T
wr,O;*u=  
    NoSeriesRM(13) = "XIII" jxt]Z3a~0  
    NoSeriesRM(14) = "XIV" `*`ZgTV  
    NoSeriesRM(15) = "XV" VVpJ +  
    NoSeriesRM(16) = "XVI" {*r!oD!'  
     OECVExb@eH  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) \3%3=:  
     =vriraV"  
    If i = vbNo Then J!dv"Ww"  
        Exit Sub Ul'H(eH.v  
    End If A:(qF.Tm  
     Fu\#:+5\  
    If Me.chkSuper.Value Then 52,'8` ]  
        Me.txtStatus.Text = "检查修改所有的上标格式" tA'5ufj*:  
     fY #Yn  
        CheckSuperScript -^;,m=4{3  
         lz1cLl m  
    End If }jU)s{>fb  
     NR-<2 e3  
    If Me.chkStyle.Value Then opu)9]`z  
        Me.txtStatus.Text = "设置样式，请稍候...." P"t Dq&  
        DoEvents Bn=YGEvz  
        CeateOrModifyStyle eN
M"
e-  
    End If t]iKU@3  
     .3@Pz]\M#>  
     {sj{3Iu  
     Z!jJ93A"  
    ClearDomain vQy<%[QO  
         ='C;^ Bk  
     {yEL$8MC  
     {ot6ssT=D  
    If Me.chkLIST.Value Then gS`Z>+V5!c  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" $fT#Wva-\d  
     "(kiMog-  
        ConvertListToOrdinary cWo__EE  
    End If -mo4`F  
     tL1\q
Qg  
     u6IM~kk>5  
    Dim pType As String, trimpTEXT As String ac966<
#  
    If Me.chkNum.Value = True Then /TIt-c  
        Me.txtStatus.Text = "转换全角数字形式为半角" gQ%mVJB{(  
        ConvertWidth "１", "1" 4cJ/XgX  
        DoEvents '?fGI
3b~/  
        ConvertWidth "２", "2"
o]&P0 b  
        DoEvents gw%L M7yQR  
        ConvertWidth "３", "3" C7}iwklcsa  
        DoEvents Y%@;\  
        ConvertWidth "４", "4" HCe/!2Y/%  
        DoEvents twK3
  
        ConvertWidth "５", "5" BQeg-M  
        DoEvents 0dI7{o;<|  
        ConvertWidth "６", "6" ~Ga{=OM??  
        DoEvents 'aEN(Mdz1e  
        ConvertWidth "７", "7" 4!-R&<TLve  
        DoEvents 5~(nHCf>  
        ConvertWidth "８", "8" BO6XY90(  
        DoEvents `Hv"^o  
        ConvertWidth "９", "9" `krVfE;_ O  
        DoEvents D~`RLPMk  
        ConvertWidth "０", "0" r(_Fr# Qn  
        DoEvents 78<fbN5}r  
        ConvertWidth "ａ", "a" /^I!)|At  
        DoEvents /OMgj7olD  
        ConvertWidth "ｂ", "b" ;TwqZw[.  
        DoEvents jHA(mU)b  
        ConvertWidth "ｃ", "c"
/[Rp~YzW  
        DoEvents kGakdLl  
        ConvertWidth "ｄ", "d" olXfR-2>1  
        DoEvents Qv;b$by3  
        ConvertWidth "ｅ", "e" i=pfjC  
        DoEvents 9}42s+  
        ConvertWidth "ｆ", "f" MBU4Awj  
        DoEvents JS<w43/j  
        ConvertWidth "ｇ", "g" fD8GAav  
        DoEvents dldS7Q  
        ConvertWidth "ｈ", "h" $?VYHkX  
        DoEvents :O?3lj)  
        ConvertWidth "ｉ", "i" 322-'S3<  
        DoEvents #SjCKQ~  
        ConvertWidth "ｊ", "j" \yLFV9P}EL  
        DoEvents ed3wj3@  
        ConvertWidth "ｋ", "k" -lq`EB+  
        DoEvents w !<-e>  
        ConvertWidth "ｌ", "l" }g|9P SbJ  
        DoEvents HzuG- V  
        ConvertWidth "ｍ", "m" 9 (_n8br1  
        DoEvents O`N,aYo  
        ConvertWidth "ｎ", "n" ycvgF6Me<  
        ConvertWidth "ｏ", "o" Y`6<:8[?  
        ConvertWidth "ｐ", "p" [D?d~pB  
        ConvertWidth "ｑ", "q" :Dtm+EQ  
        ConvertWidth "ｒ", "r" g?Rq .py]!  
        ConvertWidth "ｓ", "s" g0s4ZI+T  
        ConvertWidth "ｔ", "t" jYBiC DD  
        ConvertWidth "ｕ", "u" hgwS_L  
        ConvertWidth "ｖ", "v" LcNI$g;}Yf  
        ConvertWidth "ｗ", "w" 5Fq+^  
        ConvertWidth "ｘ", "x" 'dv
(  
        ConvertWidth "ｙ", "y" Nd@/U c  
        ConvertWidth "ｚ", "z" P=y1qq C  
        ConvertWidth "Ａ", "A" vkM_a}%<  
        ConvertWidth "Ｂ", "B" c|(Q[=   
        ConvertWidth "Ｃ", "C" 6{g&9~V  
        ConvertWidth "Ｄ", "D" >%n6n! "  
        ConvertWidth "Ｅ", "E" wsc=6/#u  
        ConvertWidth "Ｆ", "F" WU.eeiX  
        ConvertWidth "Ｇ", "G" A8AeM`  
        ConvertWidth "Ｈ", "H" MI.OOoP3a  
        ConvertWidth "Ｉ", "I" z U*Mk  
        ConvertWidth "Ｊ", "J" /len8FRf  
        ConvertWidth "Ｋ", "K" d>r]xXB6  
        ConvertWidth "Ｌ", "L" - ku8n%u  
        ConvertWidth "Ｍ", "M" D$ w?  
        ConvertWidth "Ｎ", "N" *TCV}=V G  
        ConvertWidth "Ｏ", "O" o"A? Aq  
        ConvertWidth "Ｐ", "P" hQNUA|Q=%  
        ConvertWidth "Ｑ", "Q" { Q!Xxe>6  
        ConvertWidth "Ｒ", "R" o>m*e7l,  
        ConvertWidth "Ｓ", "S" &Wk:>9]Jrb  
        ConvertWidth "Ｔ", "T" Z-" NLwt[  
        ConvertWidth "Ｕ", "U" *7#5pT~  
        ConvertWidth "Ｖ", "V" o4 L
VG  
        ConvertWidth "Ｗ", "W" rsw=a_S  
        ConvertWidth "Ｘ", "X" L&]{GNw  
        ConvertWidth "Ｙ", "Y" vNZ"x)?  
        ConvertWidth "Ｚ", "Z" w^7[4u4  
        ConvertWidth "^l", "^p" 8|
+@A1)&4  
        ConvertWidth "（", "(" Z7?\ >4V  
        ConvertWidth "）", ")" _6]CT0  
     kK0zb{  
    End If rTJ;s  
,ZO?D|M1  
    With ActiveDocument J%!vhQ  
        Dim tbl As Table R?}%rP+^e  
        For Each tbl In .Tables 4s"x}c">F  
            tbl.Rows.Alignment = wdAlignRowCenter jxYze/I  
            tbl.Range.Font.NameFarEast = "楷体" \Il?$Kb/  
            tbl.Range.Font.NameAscii = "Times New Roman" NpbZt;%t  
            tbl.Range.Font.Size = 10.5 cA| n*A-j<  
        Next /N./l4D1K-  
        Set tbl = Nothing R4zOiBi'B  
    End With c{x:'@%/s'  
     BE0Xg  
     `>lY$EBG@[  
    With ActiveDocument 60D6UW  
         T)eUo  
        For i = 1 To .TablesOfContents.Count 9OlJC[  
            .TablesOfContents(i).Delete !2/o]_K@+  
        Next 0j}@lOt(  
         8k.#4}fP  
         ^(BE_<~   
         4CS$%Cu\?w  
        paraTotal = .Paragraphs.Count r $YEq5  
        paraCounter = 1 3u s^\w#  
         ?f! &M  
        LastTitle0No = 0 R[m+s=+  
        LastTitle1No = 0 qK%#$Jgq
A  
        LastTitle2No = 0 zcio\P=^|B  
        LastTitle3No = 0 (S6>^:;=~  
        LastTitle4No = 0 ldRq:M5z  
        LastTableNo = 0 5B3sRF}  
        LastFigureNo = 0 V ~Jt  
         &k`lbkq  
        Dim Sec As Long i.FdZN{  
         e#WASHZN  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) v`@N R06  
        If Sec = 0 Then V,?])=Ax  
            Exit Sub {"r L3Lk  
        End If / IHF  
         GK3 cQw  
        k = 0 6J cXhlB`  
        Do While (paraCounter < paraTotal) And bContinue G1I<B  
            k = k + 1 @Yw42`>!s  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then SWT)M1O2  
                Exit Do Mi}k>5VT  
            End If tCu.
Fc@  
            paraCounter = paraCounter + 1 f>Tn#
OW  
            If k Mod 20 = 0 Then |F qujZz  
                Me.lbCounter.Caption = paraCounter 1.Ne g|  
                DoEvents -f?,%6(1  
            End If |ss4pN0X  
        Loop ItZ*$I1<  
         3S%/>)k  
         9w1`_r[J  
        Do While (paraCounter < paraTotal) And bContinue SR<W3a\  
             p>+Q6o9O
 
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) uE..1N&*  
            ShapeHeight = 0 Oz"_KMz  
            ShapeWidth = 0 [3x*47o"z  
           "od2i
\  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth )L_@l5l  
             r*FAUb`bG  
            Select Case ParaType 7dR]$~+*e  
                Case "【】表格内容" #;;A~d:V  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" ^^YP kh6sS  
                Case "章" "wxyY ^"  
                    LastTitle0No = LastTitle0No + 1 P"[{s^mb  
                    '新一章开始，复位其下属标题编号 'HL.W](  
                    LastTitle1No = 0 SI=7$8T5=5  
                    LastTitle2No = 0 S&Hgr_/}c  
                    LastTitle3No = 0 )t2eg1a:  
                    LastTitle4No = 0 ITz+O=I4R]  
                     Ac}5,  
                    k = Val(ttNo) Lg-!,Y   
                    If k = 0 Then '非数字编号章节 ~Ds3-#mMy  
                        If ttNo <> NoSeries1(LastTitle0No) Then ]7q|) S\  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString }1.'2.<Y  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText X3~@U7DU  
                        End If [LV>z  
                    Else /7ykmW  
                        If Val(ttNo) <> LastTitle0No Then "DX2Mu=  
                            rText = "第" & LastTitle0No & ttString fOP3`G^\  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText m;U_oxb  
                        End If
)vY)Mg  
                         <uo@k'   
                    End If F8\JL %  
                     UH((d*HX4  
                    '章段落设置 }z2[w@M  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 @R`Ao9n9V  
                    .Paragraphs(paraCounter).Style = "QLNU章节" AyOy&]g  
                    .Paragraphs(paraCounter).Range.Select /U0,%  
                    Selection.EndKey unit:=wdLine jFI`CA6P  
                    tc = Replace(rText, vbCr, "") u!t<2`:h  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False Xs~IoU  
                Case "一级标题" :8]y*j  
                    LastTitle1No = LastTitle1No + 1 wb39s^n  
                    '新一级标题开始，复位其下属标题编号 |>wGl  
                    LastTitle2No = 0 7IrH(~Fo  
                    LastTitle3No = 0 02YmV%  
                    LastTitle4No = 0 I`x[1%y2 F  
                     xgvwH?<  
                    If ttNo <> NoSeries1(LastTitle1No) Then D&DbxTi  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString m.lzkS]P  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText o;OEb  
                    End If sdN1BV2  
                   Ve xxdg  
                     |!CAxE0d$B  
                    '一级标题段落设置  格式：一、标题内容 . \8"f]~  
                    .Paragraphs(paraCounter).Range.Text = rText |:L}/onK  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" f7;<jj;w7  
                    .Paragraphs(paraCounter).Range.Select TrQUhmS/!  
                    Selection.EndKey unit:=wdLine vLGn Lpt  
                    tc = Replace(rText, vbCr, "") ku#WQL  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False 0u +_D8G  
                Case "二级标题" BP1<:T'.q`  
                    LastTitle2No = LastTitle2No + 1 ezS@`_pR;  
                    '新二级标题开始，复位其下属标题编号 xX.{(er  
                    LastTitle3No = 0 t"vkd  
                    LastTitle4No = 0 J"XZnb)E=  
                     7s Gf_`Z  
                    If ttNo <> NoSeries1(LastTitle2No) Then mgb+HNH%q\  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString (N9g6V  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText .kB!',v\  
                    End If YU\k D
  
                     l; B  
                    '二级标题段落设置 格式：(一)、标题内容 E9' 2_e  
                    .Paragraphs(paraCounter).Range.Text = rText I2,AT+O<  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" '*<I<? z;  
                     YhP+{Y8t  
                    .Paragraphs(paraCounter).Range.Select x]IJ;  
                    Selection.EndKey unit:=wdLine nW oh(a  
                    tc = Replace(rText, vbCr, "") p@oz[017/J  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False :*YnH&   
                 :4r*Jju<V  
                Case "三级标题" k[y^7,r  
                    LastTitle3No = LastTitle3No + 1 \Qf2:[-V0  
                    '新三级标题开始，复位其下属标题编号 ;R$2+9  
                    LastTitle4No = 0 /E:BEm!  
                     s? 2ikJq  
                    If Val(ttNo) <> LastTitle3No Then X,}(MW  
                            rText = LastTitle3No & ". " & ttString bas1(/|S  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText WS%yV|e  
                         Zb:Z,O(vn  
                    End If aYc^ 9*7  
                    '三级标题段落设置 格式：1. 标题内容 ^zfs8]QSf  
                    .Paragraphs(paraCounter).Range.Text = rText $KP&#;9  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" K{ntl-D&y  
                    .Paragraphs(paraCounter).Range.Select F!-
%v5.y  
                    Selection.EndKey unit:=wdLine I^[[*Bh*C  
                    tc = Replace(rText, vbCr, "") dfh 1^G
o  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False K87
yQOjPv  
                Case "四级标题" FbXur-et^  
                    LastTitle4No = LastTitle4No + 1 YdN]Tqc  
                     _n&#e r  
                    If Val(ttNo) <> LastTitle4No Then 3u< ntx ><  
                            rText = "(" & LastTitle4No & "). " & ttString *JZlG%z  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText BKYyc6iE  
                     F 1l8jB\  
                    End If 7;pQ'FmZJ  
                    '四级标题段落设置 格式：(1). 标题内容 `v)ZOw9&  
                    .Paragraphs(paraCounter).Range.Text = rText _ER. AKY  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" \m=k~Cf:f  
                    .Paragraphs(paraCounter).Range.Select bV+2U  
                    Selection.EndKey unit:=wdLine x0lAJaG  
                    tc = Replace(rText, vbCr, "") &q#. >  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False PZI6{KOis  
                 Lb{.}  
                Case "表格标题" RrdLh z2N  
                    LastTableNo = LastTableNo + 1 NCgKWyRR  
                     NPDMv |4  
                    If ttNo <> CStr(LastTableNo) Then kM(m$Oo.  
                            rText = "表" & LastTableNo & ". " & ttString 5<P6PHdY  
                            ErrMsg.AddItem "表格编号错误：" & ParaText }T}xVd0  
                   b.RFvq5Z  
                    End If e\!Aoky  
                     yR"mRy1  
                    '表格名称段落设置 格式：表1. 表格名称 ,hm&]  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" Kq(JHB+  
                    xe = Replace(rText, vbCr, "") yq[@Cw  
                    .Paragraphs(paraCounter).Range.Select %Am
yT  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 \9`.jB~<  
                    Selection.Range.Text = xe lbC,*U^  
                    Selection.EndKey
T2Yc` +  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False yJ;Qe_up  
                 d\25  
                Case "表格首行" &=XK:+  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" T wzpq1  
                Case "图片标题"  R*r"};
 
                    LastFigureNo = LastFigureNo + 1 g{f7} gTG  
                     }y vH)q  
                    If ttNo <> CStr(LastFigureNo) Then 45OAJ?N  
                            rText = "图" & LastFigureNo & ". " & ttString \ _?d?:#RD  
                            ErrMsg.AddItem "表格编号错误：" & ParaText bD-OEB  
                   #$F*.vQSs+  
                    End If 5=R]1YI~$  
                    '图片名称段落设置 格式：图1. 图名称 k$>5v +r0  
                    .Paragraphs(paraCounter).Range.Text = rText I1I-,~hO  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" +,TrJg  
                    .Paragraphs(paraCounter).Range.Select $E zWUt  
                    Selection.EndKey unit:=wdLine *]nk{jo2  
                    xe = Replace(rText, vbCr, "") 0E)M6 j J  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False ls~9qkAyLx  
                Case "正文" c0;rvw7  
                     '正文名称段落设置 unKgOvtj  
                    .Paragraphs(paraCounter).Style = "QLNU正文" (6b0rqPF  
               Case "文献条目" e0j4t-lL  
                    With .Paragraphs(paraCounter) }7_$[r'_oI  
                        '.Range.Select }daU/  
                        'Selection.ClearFormatting '*Ld,`  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” gdq6jz  
                        .Style = "QLNU参考文献" rK|("  
                    End With 7k 00lKA\w  
               Case "图表注解" Ejnk\8:  
                    With .Paragraphs(paraCounter) d]MpE9@'v  
                        .Range.Font.NameFarEast = "楷体" =|2F?  
                        .Range.Font.NameAscii = "Times New Roman" /rky  
                        .Range.Font.Size = 9 '小5号字 Z*-a=u%gl'  
                         e3?z^AUXm  
                        .Alignment = wdAlignParagraphCenter |k Tq &^$  
                        .LeftIndent = 0 Y?L>KiM$
 
                        .RightIndent = 0 mu5r
4W47  
                        .FirstLineIndent = 0 ^;tB,7:*V  
                        .LineSpacing = 12 6;wK
L?snO  
                        .LineSpacingRule = wdLineSpaceExactly |dDKO  
                        .LineUnitAfter = 0 Sh?eb  
                        .LineUnitBefore = 0 JoZSp"R  
                        .OutlineLevel = wdOutlineLevelBodyText &9"Y:),  
                        .PageBreakBefore = False JpxQS~VX  
                        .RightIndent = 0 B{p74 >  
                        .WordWrap = True cDK)zD  
                        .LineUnitAfter = 0.5 g's!\kr  
                         v["_t/_  
                    End With UcH#J &r  
                Case Else 8H`L8: CM  
                    '不作处理 c _!!DEe7  
            End Select ;>S|?M4GZ  
             iio-RT?!  
            '含有inlineshape的段落处理 >(.Y%$9"E  
            If ShapeHeight > 30 Then A(n#k&W1fZ  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 .Lu3LVS  
            End If 6ud<U#\b&  
             N Hn#c3o  
            If (ShapeWidth + ShapeHeight) > 150 Then }D.\2x(J  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" `6;$Z)=.  
            End If 96P&+  
             9,JWi{l Iv  
            '段落计数器递 X4 Pm&ol  
            paraCounter = paraCounter + 1 |o'r?"  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter ;cZp$ xb3  
            Me.txtStatus.Text = ParaText xLfv:Rp  
            DoEvents ZOpKi:\  
        Loop z;ku*IV  
    End With
R1eWPtWs  
     sZ;Gb^{Z  
    msg = "" UtQCTNjC{  
     X{<taD2~  
    For i = 0 To Me.ErrMsg.ListCount - 1 X(\L1N  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) hljKBx~  
    Next WW2hwB(  
     7_jlNr7uk  
     )lz~Rt;1i  
     %wI)uJ2  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg /Z,hQ>/  
    Me.cmdCheck.Enabled = True o\; hF3   
    Me.txtStatus.Visible = True u?H.Z  
    Me.lbParaType.Visible = False j; R20xf0  
     d={o|Mf  
    bContinue = False Eggu-i(rD  
End Sub 3s67)n  
f1;@a>X  
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) %(W8WLz}  
    Dim pTEXT As String 9X +dp  
     ael] {'h]  
    pTEXT = ChKRange.Text yqVoedN  
     [;4;.V  
    ParaType = "其它" UEhFId  
    TitleString = pTEXT <q>d@Foi  
    TitleNo = "N/A" c{KJNH%7  
     j%Xa8$  
    shpCounter = ChKRange.InlineShapes.Count cG%X}ZV5  
    If shpCounter <> 0 Then 6> z{xYat  
        MaxShpHeight = 0: TotalShpWidth = 0 H8=:LF  
        For i = 1 To shpCounter fre5{=@  
            k = ChKRange.InlineShapes(i).Height pOh<I{r1  
            l = ChKRange.InlineShapes(i).Width F^aD#  
            If k > MaxShpHeight Then /J&ks>St  
                MaxShpHeight = k gNc;P[  
            End If g"(@+\XZH"  
            TotalShpWidth = TotalShpWidth + l Nh}u]<B  
        Next y.6/x?Qc  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then #dD0vYT&od  
            Exit Sub 9v?@2sOoE  
        End If w=a$]`  
    End If hJD3G |E  
     WuFBt=%  
    '空行 )Y9\>Xj7  
    If Len(pTEXT) <= 2 Then B2'TRXIm1U  
        Exit Sub =LKM)d=1  
    End If p\9}}t7n  
     +l.LwA
 
         FOsxId[f9  
    '是否为表格中的文字 Pai8r%Zfu  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then &%;n9K  
        ParaType = "表格内容" #S
x  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) 6(uZn=  
        If k = 1 Then C"%B>e  
            ParaType = "表格首行" M ?AX:0  
        End If 9qgs*]J
 
        Exit Sub /oLY\>pD  
    End If s@{~8cHgU  
     4>a(!ht  
    '例外情况：脚注 _[-W*,xJ)  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then ByO?qft>u  
        ParaType = "脚注" %>6ilGQ+  
        Exit Sub TbN{ex *  
    End If 3,X8 5`v^  
     SynRi/BRmw  
    '例外情况：尾注 72.Msnn  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then bN03}&I  
        ParaType = "尾注" {?2| rv)  
        Exit Sub Bq1}"092  
    End If A*A/30o|R  
     <RZq
s  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then !n P4S)A  
        ParaType = "页眉页脚" xUCq%r_  
        Exit Sub ^FkB/j  
    End If 8 H3u"  
     :Fu7T1  
     RA;/ ?l  
    With regEX nc\2A>f`  
        .Global = True [t$ r)vX  
         Li"+`  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" +."cbqGP_q  
        If regEX.Test(pTEXT) Then }6<5mq)%  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") 8lGM >(:o  
            TitleString = regEX.Replace(pTEXT, "$3") Cb`,N  
            TitleNo = regEX.Replace(pTEXT, "$1") I%GQ3D"=  
            ParaType = "章" +6 =lN[b  
            Exit Sub 9 wbQ$>G9  
        End If T93st<F=R  
         KfYU.Q  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" MGxkqy?  
        If regEX.Test(pTEXT) Then 4d}=g]P  
            ParaType = "一级标题" OK8Ho"  
            regEX.Execute (pTEXT) yT5OFD|T  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") &q9=0So4\  
            TitleString = regEX.Replace(pTEXT, "$3") S'kgpF"bm  
            TitleNo = regEX.Replace(pTEXT, "$1") }.Z`   
            Exit Sub ?6hd(^  
        End If +!E9$U>6%  
         G6}&k[d5%  
        '全角或半角括号中的数字 x[&<e<6  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" ",J&UTUh  
        If regEX.Test(pTEXT) Then URg ;e M#  
            ParaType = "二级标题" k0#s{<I]E  
            regEX.Execute (pTEXT) &R?to>xr\  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") 'bz&m(!  
            TitleString = regEX.Replace(pTEXT, "$5") LHXR7Fjc  
            TitleNo = regEX.Replace(pTEXT, "$2") D~URY_[A  
            Exit Sub ~zG) <S"q  
        End If `j9\]50Z>  
         XWQ
`]m)  
        '阿拉伯数字  1. 2. }!R*Q`m  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" rpDBKo  
        If regEX.Test(pTEXT) Then @"1Z;.S8V  
            ParaType = "三级标题" 3\ ,t_6}  
            regEX.Execute (pTEXT) Y6Cm PxOQ  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 4,Oa(b  
            TitleString = regEX.Replace(pTEXT, "$3") 32?'jRN(ue  
            TitleNo = regEX.Replace(pTEXT, "$1") 8q9ATB-^>  
            Exit Sub <hiv8/)?  
        End If /3 K)$Er  
         H{,1-&>|  
        '全角或半角括号中的阿拉伯数字 aq8./^  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" &qWB\m  
        If regEX.Test(pTEXT) Then QKB+mjMH#x  
            ParaType = "四级标题" (GC5r#AnS  
            regEX.Execute (pTEXT) -!\%##r7~  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") 9==4T$nM[  
            TitleString = regEX.Replace(pTEXT, "$5") ]Y!Fz<-;P  
            TitleNo = regEX.Replace(pTEXT, "$2") x<Gjr}  
            Exit Sub .`5|NUhN  
        End If .P/0`A{&  
         nqo1+OR  
        '表格名称 9__B!vw:  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" _q4O2Fx0  
        If regEX.Test(pTEXT) Then ;UM(y@  
            ParaType = "表格标题" B{D4.!a  
            regEX.Execute (pTEXT) 5pe) CjE:  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) VltM{-k^  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) -,T!/E  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) |iX>hJSl  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 ~:o$}`mW  
            Exit Sub s%`l>#H  
        End If ipg`8*My  
         5`+9<8V  
        '图片名称 0Xw>_#Y/xS  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" cz/cY:o)  
        If regEX.Test(pTEXT) Then .UQ|k,,t  
            ParaType = "图片标题" !<HMMf,-D  
            regEX.Execute (pTEXT) k ,+,,W  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") .%e>>U>F  
            TitleString = regEX.Replace(pTEXT, "$3") VjNr<~|d  
            TitleNo = regEX.Replace(pTEXT, "$1") vmrs(k "d#  
            Exit Sub J -Lynvqm  
        End If }r,xx{.u7  
         -m=A1~|7  
        '参考文献 Z`
MpH  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 g?Nk-cg
  
        If regEX.Test(pTEXT) Then {wj%WSQj/y  
            ParaType = "文献条目" US(RWXyg  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") <tZZ]Y]  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") 1iLo$  
            Exit Sub p9u*l  
        End If =b>TFB=*N  
         ?[m1?  
        prfx = Left(pTEXT, 2) $p4e8j[EJ  
        If prfx = "注：" Or prfx = "注:" Then vYb4&VV  
            ParaType = "图表注解" k{{3nenAG  
            Exit Sub Sw,*#98  
        End If nK
S*y*  
         oy5K* }  
         6Aq]I$  
        ParaType = "正文" #k|f>D4  
         D&2NO/ R  
    End With [+pa,^  
End Sub ad IrrK  
U5H%wA['m  
Sub ConvertListToOrdinary() o:W*#dt
 
    Dim st As Paragraph :Dw_$  
    With ActiveDocument f$kbb6juL  
        For i = .Paragraphs.Count To 1 Step -1 zGyRzxFN  
            Set st = .Paragraphs(i)  Y6H?ZO
q  
            lst = st.Range.ListFormat.ListString &Tuj`DL  
            If lst <> "" Then 1Q!^*D  
                st.Range.ListFormat.RemoveNumbers g3&nxZ  
                st.Range.InsertBefore lst & " " 3*2~#dh=  
            End If n7K%
lj-.P  
        Next R6oD  
    End With <I tS_/z  
    Set st = Nothing ng9e)lU~*b  
End Sub 5[jS(1a`c  
u/6if9B   
Private Sub UserForm_Activate() buN@O7\  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" }F!Uu KR  
    Me.lbTotal.Font.Bold = True Qkx*T9W  
    Me.txtStatus.Visible = False {d;z3AB  
    Me.cmdCheck.Enabled = True w4 3b=7  
F0z7".)  
End Sub f<VK\%M  
^C p2#d*  
z,x
)Xx  
Sub CheckSuperScript() 0#eb] c  
    Selection.Find.ClearFormatting U&u6356  
    Selection.Find.Replacement.ClearFormatting H1B%}G*Ir-  
    With Selection.Find 0E!-G= v  
        .Text = "[【\[［〖](*)[】\]〗］]" LO)!Fj4|  
        .Replacement.Text = "[\1]" T)7U+~nQ"  
        .Replacement.Font.Superscript = True SJa>!]U'xI  
        '.Replacement.Font.Color = wdColorBlue :??W3 ROn  
        .Forward = True 1G5 AL2  
        .Wrap = wdFindContinue ksOsJ~3)  
        .FORMAT = True k?&GL!?  
        .MatchCase = False tlUh8os  
        .MatchWholeWord = False P (b[|QF  
        .MatchByte = False K-#d1+P+  
        .MatchAllWordForms = False d94k  
        .MatchSoundsLike = False FGHCHSqLq  
        .MatchWildcards = True /7Pqy2sgE  
    End With ~5%3]  
    Selection.Find.Execute Replace:=wdReplaceAll f7\X3v2W}3  
End Sub lGWz  
!Md6Lh%-w  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 4c 8{AZ  
    bContinue = False zQ{bMj<S  
    Set regEX = Nothing J( XDwt  
End Sub 9?O8j1F  
FI[B
ZZW  
Sub CeateOrModifyStyle() hx9t{Zi  
' so$(-4(E O  
' rDbtT*vN  
Dim stl As Style !37I2*
+4  
     *nJ,|T  
    Options.Pagination = False i]? Eq?k  
     K
maz"6A  
    On Error Resume Next >4Tk#+%Jj  
    For Each stl In ActiveDocument.Styles h+j^VsP zB  
        stl.Delete ?2~fvMWu  
    Next Aipm=C8  
    On Error GoTo 0 `14@d k  
     (1^;l;7H  
    Set stl = Nothing {\0V
$#q   
     y,|2hrj/0E  
    DoEvents ud5}jyJ  
    On Error Resume Next 'Gc{cNbXIA  
     `G\Gk|4;2  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph vVvF e~y]  
     -"JmQ Fha  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph QJ(%rvn3  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph ='b)6R  
     !(?7V  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph d[,Rgdd@I  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph ~ E6e~  
     Q\kWQOB_  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph B!x#|vGXL  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph hN!;Tny  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph %E&oe $[B  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph X5/fy"g&  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph pMHl<HH  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph 6JZ>&HA  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph ^U5N!"6R  
     eg}g}a  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph -_5Dk'R#`  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph >\<eR]12  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph xCXsyZ2h  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph 5Ex[}y9L`  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph s)]T"87H'_  
     /96lvn]8lO  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph bS~Y
_]B  
    On Error GoTo 0 ]goJ- &  
    DoEvents \u[}  
     ydO+=R0 M  
    'BaseStyle Y0|){&PCt  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False p:y\{k"  
    With ActiveDocument.Styles("BaseStyle").Font VED~
v#.c  
        .NameFarEast = "宋体" qKd ="PR}  
        .NameAscii = "Times New Roman" }RadbJ{q=  
        .NameOther = "宋体" s) U1U6O  
        .Size = 10.5 }vU/]0@,E  
        .Bold = wdUndefined :qbU@)p*  
        .Italic = wdUndefined >xS({1A}  
        .Subscript = wdUndefined TY %zw6 #p  
        .Subscript = wdUndefined u_' -vZ_  
         b7\>=  
        .Underline = wdUnderlineNone 1mJU
lx  
        .UnderlineColor = wdColorAutomatic 57{T p:|  
        .StrikeThrough = False m=@xZw<  
        .DoubleStrikeThrough = False I]W7FZ=o  
         ;k`51 =Wi  
        .Outline = False i@?|vu  
        .Emboss = False U?f-/@fc  
        .Shadow = False b_F1?:#  
        .Hidden = False /fb}]e]N  
        .SmallCaps = False I1':&l^O  
        .AllCaps = False PaQ
lQ#  
        .Color = wdColorAutomatic f<wYJGI  
        .Engrave = False !nkIXgWz  
        .Scaling = 100 _d3Z~cH  
        .Kerning = 1 Uvm.|p_V  
        .Animation = wdAnimationNone ^0|:  
        .DisableCharacterSpaceGrid = False [>a3` 0M  
        .EmphasisMark = wdEmphasisMarkNone mwLf)xt0'  
    End With 5Z; 5?\g  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat uGC5XX^  
        .LeftIndent = 0 2?q>yL!Gz  
        .RightIndent = 0 0*5Jq#5  
        .SpaceBefore = 0 TaYl[I  
        .SpaceBeforeAuto = False *|W](id7e  
        .SpaceAfter = 0 iQ:eR]7X  
        .SpaceAfterAuto = False $zCCeRP  
         \h#aPG<yo  
        .LineSpacingRule = wdLineSpaceSingle $eI cCLF  
        .Alignment = wdAlignParagraphJustify i;C` .+  
         |X:`o;Uma  
        .WidowControl = False o"BED!/  
        .KeepWithNext = False =l/Dc=[  
        .KeepTogether = False OXQA(%
MK  
        .PageBreakBefore = False Ro9:kEG$  
        .NoLineNumber = False iE"]S )  
         }YdC[b$j^  
        .FirstLineIndent = CentimetersToPoints(0) EIQ3vOq6  
        .OutlineLevel = wdOutlineLevelBodyText ~%=%5}  
        .CharacterUnitLeftIndent = 0 |=YK2};  
        .CharacterUnitRightIndent = 0 KMy"DVqE  
        .CharacterUnitFirstLineIndent = 0 K\%\p$ZD  
        .LineUnitBefore = 0 8e>B>'nH  
        .LineUnitAfter = 0 &t<gK D  
        .AutoAdjustRightIndent = True v"yu7tZ3N  
        .DisableLineHeightGrid = True )e3w-es~4  
         K1J |\!
o  
        .FarEastLineBreakControl = True V{oFig 6  
        .WordWrap = True &v((tZ  
        .Hyphenation = False _xh)]R  
         WM|G/'q  
        .HangingPunctuation = True rbdrs  
        .HalfWidthPunctuationOnTopOfLine = True V':A!  
        .AddSpaceBetweenFarEastAndAlpha = True  >Z_;ZMu)  
        .AddSpaceBetweenFarEastAndDigit = True $ }tF66d  
        .BaseLineAlignment = wdBaselineAlignBaseline eEVB   
    End With &t8,326;  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False DVhBZ!u9  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll Izu____  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese xS12$ib ~G  
    ActiveDocument.Styles("BaseStyle").NoProofing = False V~KWy@7  
     Cscu   
    '一级标题题样式 %<DdX*Qp  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") hmkb!)  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" 9:@Xz5  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False Q >[>{N&\  
    With ActiveDocument.Styles("QLNU一级标题").Font U"8Hw@  
        .NameFarEast = "黑体" }WFI/W'  
        .NameAscii = "Arial Black" SF;\*]["f  
        .NameOther = "黑体"
W|fE]RY  
        .Name = "黑体" ";7N$hWE  
        .Size = 16              '三号 fn 'n'X|  
        .Bold = True :$K=LV#Iru  
        .Italic = wdUndefined tDL.+6/  
        .Subscript = wdUndefined +ho=0>  
        .Superscript = wdUndefined AA^K/y  
    End With qypF}Pw  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat
6~0kb_td  
         0M;El2 P$  
        .LeftIndent = CentimetersToPoints(0) M&/4SVBF  
        .RightIndent = CentimetersToPoints(0) ~L<"]V+B  
        .FirstLineIndent = CentimetersToPoints(0) .qohHJ&  
         JW0\y+o~  
        .LineSpacingRule = wdLineSpaceSingle ps2j]g  
        .Alignment = wdAlignParagraphCenter h?/E/>  
         9FSa=<0wE  
        .WidowControl = True G?Gf,{#K  
        .KeepWithNext = True ](R /4  
        .KeepTogether = True %XukiA+  
        .OutlineLevel = wdOutlineLevelBodyText CtN\-E-  
         "t
^RZ45  
        .LineUnitBefore = 0.5 PRiE2Di2S  
        .LineUnitAfter = 0.5 [LjiLKW  
    End With "$(D7yFO  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False U=KUx   
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll 6T4DuF  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese v]on0Pi!  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True Q3hf =&$  
    DoEvents &Wa3/mWK  
     };rp2 5i  
    '二级 Axb=1_--  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ui)mYR[8X  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" vS~tr sI  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False Z+U -+eG  
    With ActiveDocument.Styles("QLNU二级标题").Font Tf5m YCk  
        .NameFarEast = "黑体" D>{`I'  
        .NameAscii = "Arial Narrow" aE)1LP  
        .NameOther = "黑体" 0/ 33Z Oc  
        .Name = "黑体" $*X ?]?  
        .Size = 15        '小三号 BV@q@C  
        .Bold = False p%*s3E1.D  
        .Outline = False S'|PA7a}h  
        .Italic = wdUndefined 7P3/Ky@6  
        .Subscript = wdUndefined AP>n- Z|  
        .Superscript = wdUndefined $S<B\\ %  
    End With ?Ybq]J\q  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat {,Vvm*L/  
        .LeftIndent = CentimetersToPoints(0) h@O\j
&#  
        .RightIndent = CentimetersToPoints(0) DTA$,1JuD  
        .FirstLineIndent = CentimetersToPoints(0) =\2gnk~  
         {jYVA~.|Z  
        .LineSpacingRule = wdLineSpaceSingle 9O&gR46.  
        .Alignment = wdAlignParagraphLeft TC<Rg?&yb  
         \e4AxLP  
        .WidowControl = True ylczM^@  
        .KeepWithNext = True e)?}2  
        .KeepTogether = True Mn&_R{{=  
        .PageBreakBefore = False C1_0 9Vc  
        .OutlineLevel = wdOutlineLevelBodyText [!;sp~  
         3S_H&>K  
        .LineUnitBefore = 0.5 VOr:G85*s  
        .LineUnitAfter = 0.5 M}X
`  
         ,\ 1X\  
    End With 3s%DF,  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False YJ,"@n_  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll I$sXbM;z=  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese e?;c9]XO,o  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True  ~ e?af  
    DoEvents zMpvS rc  
     Y5CkCF  
    '三级标题样式 FXT^r3  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") rZ(#t{]=!  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" DRRQ]eK0  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False BhAT@%  
    With ActiveDocument.Styles("QLNU三级标题").Font 4"eFR'g  
        .NameFarEast = "宋体" q M_c-^F  
        .NameAscii = "Times New Roman" |$IL:W6  
        .NameOther = "黑体" vde!k_,wZ  
        .Name = "黑体" ^#e|^]] L  
        .Size = 14               '四号 ENqZ=Lyq  
        .Bold = False w+')wyB  
        .Outline = False 36co'a4,  
        .Italic = wdUndefined rlh:|#GTJ  
        .Subscript = wdUndefined qZ>_{b0f  
        .Superscript = wdUndefined tH0
x|  
    End With L /
PAC  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat HTiLA%%6  
        .LeftIndent = CentimetersToPoints(0) 7=yM40  
        .RightIndent = CentimetersToPoints(0) RTd,bi*  
        .FirstLineIndent = CentimetersToPoints(0) A40 5igF  
         2dHO!A$RF  
        .LineSpacingRule = wdLineSpaceSingle 1mtYap4  
        .Alignment = wdAlignParagraphLeft ML|?H1m>  
          $LuU  
        .WidowControl = True B2$cY;LH  
        .KeepWithNext = True AEj%8jh  
        .KeepTogether = True }XUI1H]jk  
        .PageBreakBefore = False
:+\sKEzL  
        .OutlineLevel = wdOutlineLevelBodyText 5!'1;GLs  
         QhRz57'  
        .CharacterUnitLeftIndent = 0 V/\Y(Mx c  
        .CharacterUnitRightIndent = 0 Ms5qQ<0v_  
        .CharacterUnitFirstLineIndent = 2 cZYvP  
         q90RTX'CY  
        .LineUnitBefore = 0.5 Q}\\0ajS)  
        .LineUnitAfter = 0 '")' h  
    End With O{3X`xAf  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False 1!)'dL0mI  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll %k?/pRv$>  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese arR<!y7  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True yy/'B:g  
    DoEvents gp$]0~[tO  
     Tz6I
7S-w  
    '四级标题样式 LFi{Q{E)  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") )skpf%g  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" a,4G E'  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False (5Q<xJ  
    With ActiveDocument.Styles("QLNU四级标题").Font a.UYBRP/l  
        .NameFarEast = "宋体" Yg5o!A  
        .NameAscii = "Times New Roman" v9@_DlV\  
        .NameOther = "宋体" yph@H!@  
        .Name = "宋体"  I*f@^(  
        .Size = 12               '小四号 r<(UN@T}  
        .Bold = True sbVEA  
        .Outline = False 5#|
&&$)  
        .Italic = wdUndefined pL F,rOb  
        .Subscript = wdUndefined PtQ[({d3R  
        .Superscript = wdUndefined  Z
aaBg  
    End With qF(i1#  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat Kp7)my  
         d5LBL'/o  
        .LeftIndent = CentimetersToPoints(0) 8q]"CFpa  
        .RightIndent = CentimetersToPoints(0) Or$"f3gq  
        .FirstLineIndent = CentimetersToPoints(0) H~#$AD+H  
         O\cc=7  
        .LineSpacingRule = wdLineSpaceSingle E|-5=!]fX  
        .Alignment = wdAlignParagraphLeft uAnL`
 
         }U>K>"AZl  
        .WidowControl = True hFycSu  
        .KeepWithNext = True g2?W@/pa  
        .KeepTogether = True ;s$4/b/~  
        .PageBreakBefore = False eV(.\Lj  
        .OutlineLevel = wdOutlineLevelBodyText b-VQn5W  
         qB@N|Bb  
        .CharacterUnitLeftIndent = 0 JDa_;bqL  
        .CharacterUnitRightIndent = 0 jdVj FCl^#  
        .CharacterUnitFirstLineIndent = 2 ktfxb<%  
         d,i4WKp  
        .LineUnitBefore = 0 Qh
Tn9S:D  
        .LineUnitAfter = 0 _&gO>G,uy  
         (  -q0!]E  
    End With @kDY c8 t9  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False zobFUFx  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll l{3zlXk3z  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese z"z$.c  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True i4>M  
    DoEvents _?felxG[  
     C[TjcHoA  
    '正文校式 46 0/eW\  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") f:P;_/cJc  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" X xwcvE  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False E*T6kp^b  
    With ActiveDocument.Styles("QLNU正文").Font a 01s'9Be  
         XD6Kp[s  
        .NameFarEast = "宋体" Bkn]80W  
        .NameAscii = "Times New Roman" nt&% sM-X  
        .NameOther = "宋体" ->{\7|^  
        .Name = "宋体" p;, V  
         5G2ueRVb  
        .Size = 12               '小四号 9i_@3OVl  
         $aT '~|?  
        .Bold = wdUndefined D` cy.},L  
        .Italic = wdUndefined "UY34a ^I  
        .Subscript = wdUndefined :rufnmsP<U  
        .Superscript = wdUndefined mPPB"u
Q  
         @JdeOL;  
        .Outline = False rVOF  
        .Emboss = False 1xkk5\3]  
        .Shadow = False %kkDitmI{  
        .Hidden = False e)-$#qW  
         Sa)L=5Nr  
        .DisableCharacterSpaceGrid = True F&7Z(  
    End With 6&~Z3|<e  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat krlebPs[  
         t6e6v=.Pg  
        .LeftIndent = CentimetersToPoints(0) &09~ D8f'  
        .RightIndent = CentimetersToPoints(0) OUN~7]OD%  
        .FirstLineIndent = CentimetersToPoints(0) H9BqE+  
         ~3Qa-s;g  
        .LineSpacingRule = wdLineSpaceExactly |Om][z  
        .LineSpacing = 20 G]xN#O;  
        .Alignment = wdAlignParagraphLeft *h?}~!AjY  
         K0'p*[yO/j  
        .WidowControl = False )Mflt0fp  
        .KeepWithNext = False rKOa9M  
        .KeepTogether = False &q-P O  
        .PageBreakBefore = False 4\V/A+<W  
        .Hyphenation = False D=D.s)ns*  
         d8 v9[4  
        .OutlineLevel = wdOutlineLevelBodyText
:ba 4E[@  
         H%=;pD>o  
       %(%EEt  
        .CharacterUnitLeftIndent = 0 2XUIC
^<@s  
        .CharacterUnitRightIndent = 0 .3XSF$;  
        .CharacterUnitFirstLineIndent = 2 w0=/V[fs  
         VJ&-Z |  
        .LineUnitBefore = 0 {9P(U\]e]k  
        .LineUnitAfter = 0 75
P!`9bE  
        .SpaceBefore = 0 ]CU)#X<J  
        .SpaceAfter = 0 YGyw^$.w  
         96!2@c{  
        .DisableLineHeightGrid = True GM^H )8U  
    End With fK(:vwh  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False c*
[aIqj  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll v'`qn  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese d"3x11|  
    ActiveDocument.Styles("QLNU正文").NoProofing = True B\=T_'E&  
    DoEvents h;(mb2[R  
     (yEU9R$I"  
    '图片段落样式 [<^'}-SJ  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") .}!.: |  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" tm oclK-  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False $_HyE%F#  
    With ActiveDocument.Styles("QLNU图片段落").Font +Swl$ab  
        .Size = 12               '小四号 . Z9c.E{  
        .Italic = wdUndefined KF#qz2S  
        .Subscript = wdUndefined 6PWw^Cd  
        .Superscript = wdUndefined 9w0v?%%_  
    End With \q!TI x  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat n sN n>{  
         3WGOftLzt  
        .LeftIndent = CentimetersToPoints(0) S n~P1C  
        .RightIndent = CentimetersToPoints(0) VyIJ)F.c  
        .FirstLineIndent = CentimetersToPoints(0) j{tr''
yN  
         g[ @Q iy  
        .LineSpacingRule = wdLineSpaceSingle vgNrHq&2q  
        .Alignment = wdAlignParagraphCenter E6Uj8]P`  
        .KeepWithNext = True :c}PW"0v  
        .OutlineLevel = wdOutlineLevelBodyText ]w-W  
         ??hKsjNAm0  
        .CharacterUnitLeftIndent = 0 \Yv44*I`  
        .CharacterUnitRightIndent = 0 r_rdd}=b'  
        .CharacterUnitFirstLineIndent = 0 i(# Fjp  
         HmsXV_B8[Y  
        .LineUnitBefore = 0 voP#}fD  
        .LineUnitAfter = 0 N/2WUp  
    End With R SM+si/  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False NDe FY  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll _-v$fDrz  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese o {q8An)  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True F5UHkv"K&O  
    DoEvents -4J.YF>  
     3-0jxx(  
     4w 7vgB  
    '第X章 TEK#AR  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") HyQ(9cn|  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" %vG;'_gMB  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False La7}zXx  
    With ActiveDocument.Styles("QLNU章节标题").Font `09[25?  
        .NameFarEast = "黑体" V+|$H h8  
        .NameAscii = "Arial Black" tB}W )Eb  
        .NameOther = "Arial Black" 7D8 pb0`;J  
        .Name = "黑体" 9CIQRc  
        .Size = 16 :.-KM7tDI1  
        .Bold = True .v=n-k7  
        .UnderlineColor = wdColorAutomatic H\<PGC"_Y  
        .Outline = False m+pK,D~{"  
        .Italic = wdUndefined "KC3+
:tm  
        .Subscript = wdUndefined }U%E-:  
        .Superscript = wdUndefined h^{aG])  
        .Scaling = 100 =(,kjw88w  
        .DisableCharacterSpaceGrid = True #H8QX5b)  
    End With kMa|V 0  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat $['`H)z  
        .LineSpacingRule = wdLineSpaceSingle 9(a*0H  
        .Alignment = wdAlignParagraphCenter .lz=MUR  
        .WidowControl = True \D%n8O   
        .KeepWithNext = True S@,x^/vT  
        .KeepTogether = True >k}Kf 1I  
        .PageBreakBefore = True #7J3
,EV  
        .OutlineLevel = wdOutlineLevelBodyText !.q#X^@>L  
         6k7x7z  
        .LeftIndent = CentimetersToPoints(0) _|{pO7x]oG  
        .RightIndent = CentimetersToPoints(0) ph~ #{B(\  
        .FirstLineIndent = CentimetersToPoints(0) hJ8B &u(  
         S ->S
p  
        .CharacterUnitLeftIndent = 0 M|.yk A <D  
        .CharacterUnitRightIndent = 0 '
Ze& LQ  
        .CharacterUnitFirstLineIndent = 0 >;xkiO>Y  
         \w$ e|[~  
        .LineUnitBefore = 1 I|/|\  
        .LineUnitAfter = 0.5 0V2~  
         UG
]5Dxk  
        .AutoAdjustRightIndent = False 94rx4"AN8;  
        .DisableLineHeightGrid = True q}"HxMJ  
        .FarEastLineBreakControl = True yS#D$q2_  
        .WordWrap = True 2:[G4  
    End With BMU#pK;P]  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False p5nrPL  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll @Js@\)P 79  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese ZGd7e.u=  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True <V8=*n"mR  
    DoEvents 7Z81+I|&8  
     yzGBGC  
    '表格标题 |Y+[
_D}  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") |;C;d"JC2  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" eQ#"-i  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False b%j4W)Z  
    With ActiveDocument.Styles("QLNU表格标题").Font IPY[x |  
        .NameFarEast = "楷体" xaIe7.Z"xo  
        .NameAscii = "Arial" #D+.z)iZn  
        .Name = "楷体" (b.Mtd  
        .Size = 10.5 FlH=Pqc  
        .Bold = True 'HWPuWW  
        .Underline = wdUnderlineNone w-wJhc|  
        .Italic = wdUndefined # o\&G@e}  
        .Subscript = wdUndefined @]],H0  
        .Superscript = wdUndefined . Eb=KG  
        .Color = wdColorAutomatic 1eS@ihkP  
    End With Ao *{#z   
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat V4gvKWc  
         s*>B"#En  
        .LineSpacingRule = wdLineSpaceSingle cyI:dvg  
        .Alignment = wdAlignParagraphCenter o|VM{5  
        .KeepWithNext = True bde6 ;=oM  
        .KeepTogether = True iSMV
V<7  
        .OutlineLevel = wdOutlineLevelBodyText 
*+ O  
         aU] nh. a  
        .LeftIndent = CentimetersToPoints(0) !ZN"(0#qz  
        .RightIndent = CentimetersToPoints(0) f(
-
3d*g  
        .FirstLineIndent = CentimetersToPoints(0) H"V )dEm  
         \AD|;tA\vE  
        .CharacterUnitLeftIndent = 0 BQ!_i*14+  
        .CharacterUnitRightIndent = 0 lI[O!VuKc  
        .CharacterUnitFirstLineIndent = 0 61z^(F$@  
         4?x$O{D5?{  
        .LineUnitBefore = 1 H]0(GLvH  
        .LineUnitAfter = 0 W%#LHluP  
         yMb.~A^$J  
    End With 0n)UvJ  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False ,fs>+]UY3  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll 8{Wh4~|+  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese xl@  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True  !h*F58  
    DoEvents E{B40E~4  
?)/H
8
n  
    '表格首行 *&F~<HC2+  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") myZ8LQ&  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False .YIb ny1  
    With ActiveDocument.Styles("QLNU表格首行").Font yjChnp Cc  
        .NameFarEast = "楷体" d]l(B+\vf  
        .NameAscii = "Times New Roman" tlm
fDQD  
        .Name = "楷体" 7(zY:9|(  
        .Size = 9 G4f%=Z  
        .Bold = True $0;Dk,  
        .Underline = wdUnderlineNone k8ymOx  
        .Italic = wdUndefined {/qq*0wa  
        .Subscript = wdUndefined l]P3oB}Yo  
        .Superscript = wdUndefined N..@}}  
    End With iM{aRFL  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat I9jzR~T  
        .LineSpacingRule = wdLineSpaceSingle s|Zv>Qt  
        .Alignment = wdAlignParagraphCenter 1,sD'iNb  
         ]. ^e[v6  
        .LeftIndent = CentimetersToPoints(0) Y&*nj`n  
        .RightIndent = CentimetersToPoints(0) TUR2|J@n  
        .FirstLineIndent = CentimetersToPoints(0) !2=e
au^p  
         [PU0!W;  
         F[oTc^dr  
        .CharacterUnitLeftIndent = -0.5 Io)@u~yz  
        .CharacterUnitRightIndent = -0.5 |+Ub3<b[]  
        .CharacterUnitFirstLineIndent = -0.5 F:2V ;  
         !r_2b! dy  
        .LineUnitBefore = 0 gG46hO-M%x  
        .LineUnitAfter = 0 ey[+"6Awne  
        .SpaceBefore = 0 H|B4.z  
        .SpaceAfter = 0 .\AbE*lZ#  
         {(`xA,El  
    End With %R*-oQ1T  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False ;c>IM]  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll KrD?Z2x  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese '$be+Z32  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True N1z:9=(I  
    DoEvents #mcGT\tQ  
3C;nC?]K  
    '表格内容 'uF"O"*  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") 'Y-Y By :  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False :]IYw!_-p  
    With ActiveDocument.Styles("QLNU表格内容").Font Gn?<~8a  
        .NameFarEast = "楷体" JVNp= ikK  
        .NameAscii = "Times New Roman" kT{d pGU9  
        .Name = "楷体" ?(j:F2dU~  
        .Size = 9 ;kF+ V*  
        .Bold = False -$kAWP8P4  
        .Underline = wdUnderlineNone HY'-P&H5(  
        .Italic = wdUndefined O8w|!$Q.  
        .Subscript = wdUndefined Nc[u?-  
        .Superscript = wdUndefined o[K,(  
    End With ns !Mqcm  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat %>k$'UW zK  
        .LineSpacingRule = wdLineSpaceSingle F%q}N,W  
        .Alignment = wdAlignParagraphCenter 25jgM!QBXF  
         t>(}LV.  
        .LeftIndent = CentimetersToPoints(0) Ceak8#|4  
        .RightIndent = CentimetersToPoints(0) #ZpR.$`k  
        .FirstLineIndent = CentimetersToPoints(0) LD)P. f  
         gLPgh
%B4  
        .CharacterUnitLeftIndent = -0.5 AU^ 5N3%j  
        .CharacterUnitRightIndent = -0.5 !5[5l!{x  
        .CharacterUnitFirstLineIndent = -0.5 +,ojlTVlt  
        .LineUnitBefore = 0 I>3]VRi  
        .LineUnitAfter = 0 x]jJ  
        .SpaceBefore = 0 U_C1GT-|  
        .SpaceAfter = 0 LO M-i>  
    End With 
$"x~p1P  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False RE75TqYW  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll 6"Rw&3D?  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese G>c:+`KS  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True 7 a_99?J  
    DoEvents +`~6Weay  
O;?Nz:/q  
    '图片标题 YB'BAX<lI  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ww$Ec  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" T:(c/>  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False ?mJ&zf|B8  
    With ActiveDocument.Styles("QLNU图片标题").Font eww/tGa  
        .NameFarEast = "楷体" h1.<\GO  
        .NameAscii = "Times New Roman" '?MT"G  
        .Name = "楷体" ]<IK0  
        .Size = 10.5 Ow4H7sl  
        .Bold = True /L?
ia  
        .Underline = wdUnderlineNone +
LsACSB  
        .Italic = wdUndefined o+^5W  
        .Subscript = wdUndefined A
s-xO~+  
        .Superscript = wdUndefined |(\T;~7'  
        .Outline = False rc+}KO  
        .Shadow = False -7:_Dy  
        .Color = wdColorAutomatic wW+@3bPl  
    End With %T'<vw0  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat &)v}oHy,m  
        .LineSpacingRule = wdLineSpaceSingle eJwHeG  
        .Alignment = wdAlignParagraphCenter %?z8*G]M  
         |KLCO'x  
        .KeepWithNext = wdUndefined l's*HEx
R  
        .KeepTogether = True p;<brwN  
        .OutlineLevel = wdOutlineLevelBodyText _Kf8,|+  
         aJ^RY5  
        .LeftIndent = CentimetersToPoints(0) g<$q#l~4xH  
        .RightIndent = CentimetersToPoints(0) Pmj%QhOYE  
        .FirstLineIndent = CentimetersToPoints(0) B(h%>mT[  
         d/Y#oVI  
        .CharacterUnitLeftIndent = 0 -{rUE +  
        .CharacterUnitRightIndent = 0 !U8n=A#,-  
        .CharacterUnitFirstLineIndent = 0 %uy5la  
         X(*MHBd  
        .LineUnitBefore = 0  c 1o8  
        .LineUnitAfter = 0 ]ovb!X_  
    End With X{G&r$  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False #[.aj2  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll s'Wu \r'  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese M"
Q{lR  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True jM !Q 04(  
    DoEvents @J UCXm  
W 2.Ap  
    '目录项 r`GA5 }M  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") NANgV~Y&  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" M=Cl|  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False @Xg5E  
    With ActiveDocument.Styles("QLNU目录项").Font lLi)?  
        .NameFarEast = "黑体" \o
lYv!f  
        .NameAscii = "Times New Roman" KoKd.%  
        .NameOther = "Times New Roman" %{HeXe  
        .Name = "黑体" GPs
//  
        .Size = 10.5 YecV+K'p:  
        .Bold = False ] g]^^  
        .Italic = wdUndefined /Mmts=^Ja  
        .Underline = wdUnderlineNone EwKFT FL  
        .Color = wdColorAutomatic WYXh1_nyk  
        .Superscript = wdUndefined OT{cP3;0*o  
        .Subscript = wdUndefined
Usz O--.C  
    End With ::R5F4  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat >#~>!cv6D  
         aT"0tn^LO  
        .LineSpacingRule = wdLineSpaceSingle SM8Wg>  
        .Alignment = wdAlignParagraphLeft oZwu`~h Y  
         !b4
v}70,  
        .WidowControl = False S5>?jn1  
        .KeepWithNext = False -b$m<\0*  
        .KeepTogether = False >JckN4v  
        .PageBreakBefore = False f )Ef
-o  
        .NoLineNumber = False Cu&y',ee~  
        .OutlineLevel = wdOutlineLevelBodyText :ExCGS[  
         e> -fI_+b  
        .LeftIndent = CentimetersToPoints(0) -"~XI~a@Wo  
        .RightIndent = CentimetersToPoints(0) SA[wFc  
        .FirstLineIndent = CentimetersToPoints(0) mfCp@1;26  
         w9]HJ3qi  
        .CharacterUnitLeftIndent = 0 'K*. ?M  
        .CharacterUnitRightIndent = 0 iininITOS{  
        .CharacterUnitFirstLineIndent = 0 ;G|#i?JJ  
         ^9fY
%98  
        .LineUnitBefore = 0 yHYK,3/C,  
        .LineUnitAfter = 0 *
BFG{P  
    End With h1REL^!c  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False @Z2^smf  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll >PmnR>x-rj  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot "cDMFu  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese ) o`ep{<t  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True
xh|<`>5  
    DoEvents VtnVl`/]  
     `b?o%5V2x  
    '参考文献 RBOg;EJ  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") '4"c#kCKL  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" !M@jW[s  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False }NpN<C+  
    With ActiveDocument.Styles("QLNU参考文献").Font Jy?; <  
        .NameFarEast = "宋体" ^Cy=L]  
        .NameAscii = "Times New Roman" My<.^~  
        .NameOther = "Times New Roman" Q"F" 13  
        .Name = "Times New Roman" 13K|=6si  
        .Size = 12 'B yB1NL  
        .Bold = False 3}kG ]#  
        .Italic = wdUndefined 1'4?}0Dok  
        .Subscript = wdUndefined 5u=>~yK+  
        .Superscript = wdUndefined  !hWS%m@  
        .Underline = wdUnderlineNone SS*3Qx:[  
        .UnderlineColor = wdColorAutomatic :`>bh  
        .Color = wdColorAutomatic l
#bE_PD;  
        .Engrave = False ( we)0AxF'  
    End With 0"J0JcFX  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat 8@A}.:  
         K;j0
cxl  
        .LineSpacingRule = wdLineSpaceExactly 34<k)0sO  
        .LineSpacing = 16 '|J~2rbyr  
        .Alignment = wdAlignParagraphLeft eY\w?pT2  
        .WidowControl = False /?Hq  
        .KeepWithNext = False ]@{l<ExP  
        .KeepTogether = False >yf}9Zs  
        .PageBreakBefore = False F_-}GN%  
        .OutlineLevel = wdOutlineLevelBodyText CWY-}M  
         g$h`.Fk,  
        .LeftIndent = CentimetersToPoints(0) yIYQ.-DkS+  
        .RightIndent = CentimetersToPoints(0) ]e6$ ={  
        .FirstLineIndent = CentimetersToPoints(0) *%CDQx0}  
         R@~=z5X(Q  
        .CharacterUnitLeftIndent = 0 @id!F<+%oD  
        .CharacterUnitRightIndent = 0 g1 v=a  
        .CharacterUnitFirstLineIndent = -2 ex6QHUQ  
         ,s`4k?y  
        .LineUnitBefore = 0 u5N&Wn{  
        .LineUnitAfter = 0 8h,=yAn5  
        .SpaceBefore = 0 G3dA`3  
        .SpaceAfter = 0 -BcnJK0  
         8 /T[dn  
    End With _qa9wK/  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False sZPyEIXie  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll 7_ s7);  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS S\L^ZH?[2  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True t$z 5m<8  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese .H 9r_  
    DoEvents *aW:Z6
N  
Te2C<c  
    ' weC.kx   
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") )|wC 1J!L  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" (lg~}Jw q  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False f
Uq:`#Q  
    With ActiveDocument.Styles("QLNU论文题目").Font Pl\NzB,`  
        .NameFarEast = "黑体" ^C'{# p"  
        .NameAscii = "Arial Black" /tj_WO_  
        .NameOther = "Arial Black" )~-r&Q5d  
        .Name = "Arial Black" "</A)y&  
        .Size = 16 suHi
sc*  
        .Bold = False =z!/:M  
        .Italic = wdUndefined # 11<=3Yj  
        .Superscript = wdUndefined rT_J6F5J  
        .Subscript = wdUndefined L<k(stx~   
        .Underline = wdUnderlineNone (;9j#x  
        .UnderlineColor = wdColorAutomatic yb6gYN  
        .Color = wdColorAutomatic RQYD#4|  
%l[]n;
*$  
    End With <f#pS[A  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat :!yPR  
        .LineSpacingRule = wdLineSpaceSingle W:>XXUU  
        .Alignment = wdAlignParagraphCenter "7J38Ej\  
        .WidowControl = True &}r-C97  
        .KeepWithNext = True N qS]dH61  
        .KeepTogether = True ^cCNQS}r  
        .PageBreakBefore = True >|aVGY  
        .NoLineNumber = False GBY{O2!3u  
        .OutlineLevel = wdOutlineLevelBodyText 0+T:};]  
         9AJ"C7  
        .LeftIndent = CentimetersToPoints(0) 089v; d 6  
        .RightIndent = CentimetersToPoints(0) -QK-w>  
        .FirstLineIndent = CentimetersToPoints(0) MU:q`DRr  
         P!dSJ1'oC  
        .CharacterUnitLeftIndent = 0 '*D>/hn|:]  
        .CharacterUnitRightIndent = 0 apjoIO-<  
        .CharacterUnitFirstLineIndent = 0 gH yJ~  
         S!66t?vHB  
        .LineUnitBefore = 1 2Mu@P8O&  
        .LineUnitAfter = 1  kMZo7 y  
         I,W`s  
        .BaseLineAlignment = wdBaselineAlignAuto 5,J.$Sax  
    End With x>tsI}C  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False uCoy~kt292  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll xnxNc5$oE  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS c 5 `74g  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True _*ar\A`  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese EY^?@D_<  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True @MP;/o+  
    DoEvents XtqhK"f%  
     o.(Gja4  
    '中文摘要 QB3er]y0%  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") CbwQbJ/v7  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" tyFsnck  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False HCT+.n6  
    With ActiveDocument.Styles("QLNU中文摘要").Font nK}-^Ur  
        .NameFarEast = "宋体" c#-*]6x  
        .NameAscii = "Times New Roman" .u
SVZqJ7  
        .NameOther = "Times New Roman" t;V^OGflv  
        .Name = "Times New Roman" XT?wCb 41R  
        .Size = 12 ?[ ;>1+D  
        .Bold = wdUndefined OXnTD!m>{  
        .Superscript = wdUndefined Nq1YFI>W  
        .Subscript = wdUndefined w=FU:q/  
        .Italic = wdUndefined yz"hU  
        .Underline = wdUnderlineNone hP}-yW6]  
        .UnderlineColor = wdColorAutomatic G  > t  
        .Color = wdColorAutomatic ZCuoYE$g  
    End With mt~E&Z(A  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat ;3XOk+  
        .LineSpacingRule = wdLineSpaceExactly kB.CeG]
tk  
        .LineSpacing = 20 i.{.koH<  
        .Alignment = wdAlignParagraphLeft re4A5Ev$  
         PD~vq^@Q  
        .WidowControl = False NOmFQ)/ &  
        .KeepWithNext = False \5}*;O@  
        .KeepTogether = True CEAmb[h  
        .PageBreakBefore = False *7w!~mn[m  
        .NoLineNumber = False @z^7*#vQv  
        .OutlineLevel = wdOutlineLevelBodyText jq%}=-%KE  
         B=~uJUr  
        .LeftIndent = CentimetersToPoints(0) ~OWpk)Vq  
        .RightIndent = CentimetersToPoints(0) a7!{`fR5  
        .FirstLineIndent = CentimetersToPoints(0) 0g9y4z{H  
         a"l\_D'.K8  
        .CharacterUnitLeftIndent = 0 0BH-kr  
        .CharacterUnitRightIndent = 0 \-SC-c  
        .CharacterUnitFirstLineIndent = 2 N:;z~`  
        .LineUnitBefore = 0 ]=PkgOJD  
        .LineUnitAfter = 0 kbo9nY1k g  
         tUt_Q;%yC  
    End With C3'? E<F  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False ^1yD&i'q  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll D#A6s32a  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS l6zYiM  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True hj}PL  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese J9MAnYd)i  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True = RAojoN  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete a"`> J!  
    DoEvents =;(L$:l~  
     >pp#>{}  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 3m$ck$  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" ^7a@?|,q8  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False s bd$.6 |&  
    With ActiveDocument.Styles("QLNU英文标题").Font E 02Y,C  
        .NameFarEast = "黑体" kj6H+@ {  
        .NameAscii = "Arial Narrow" C-\3,  
        .Name = "Arial Narrow" BS ]:w(}[  
        .Size = 16 7Ck3L6J#  
        .Bold = True `Tei
 
        .Bold = wdUndefined AiB]A}  
        .Superscript = wdUndefined 9Y@ eXP  
        .Subscript = wdUndefined b +Z/nfS  
        .Italic = wdUndefined =WHI/|&  
         'S|7<<>4k  
        .Underline = wdUnderlineNone ;2$0j1>  
        .UnderlineColor = wdColorAutomatic q0DRT4K  
        .StrikeThrough = False q\-P/aN_  
        .DoubleStrikeThrough = False I E{:{b\  
    End With J= &}$  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat {u+=K-Bj  
        .LineSpacingRule = wdLineSpaceSingle 34Cnbtq^  
        .Alignment = wdAlignParagraphCenter mZG n:f}=  
        .WidowControl = True xz,o Mlw  
        .KeepWithNext = False 8/T,{J\  
        .KeepTogether = False DIfQ~O+u  
        .PageBreakBefore = False v!$:t<-5N  
        .NoLineNumber = False T0~~0G)k  
        .FirstLineIndent = CentimetersToPoints(0) =sAU5Ag68  
        .OutlineLevel = wdOutlineLevelBodyText E]}_hZU  
         GaV}@Q  
        .LeftIndent = CentimetersToPoints(0) r`\@Fv,&#  
        .RightIndent = CentimetersToPoints(0) 0wCQPvO  
        .FirstLineIndent = CentimetersToPoints(0) |>O
Bpb  
         e^, IZ{  
        .CharacterUnitLeftIndent = 0 r-*j"1 e  
        .CharacterUnitRightIndent = 0 tfD7!N{  
        .CharacterUnitFirstLineIndent = 0 ;+.cD
 
         =dsEt\ j  
        .LineUnitBefore = 1 U#&+n-n pO  
        .LineUnitAfter = 1 iXq*EZb"R  
         pRzL}-
[/v  
    End With s4QCun~m  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False %'X~9Pvi  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll O8cZl1C3  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS {pA&Q{ ^  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True hiEYIx  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese )U7fPKQ  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True %~} ,N  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete  _8 !x  
    DoEvents ^!x! F  
xkU8(=  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") -2(?O`tZ  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" "0,FB4L[U5  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False BMqr YW  
    With ActiveDocument.Styles("QLNU英文摘要").Font R1/c@H Qw?  
        .NameFarEast = "宋体" Eg8b|!-')8  
        .NameAscii = "Arial" 5E*Qqe  
        .NameOther = "Arial" evpy%/D  
        .Name = "Arial" Zd88+GS,#  
        .Size = 12 jgS
3#  
        .Bold = wdUndefined t2YB(6w+xg  
        .Italic = wdUndefined qWx{eRp d  
        .Superscript = wdUndefined ^tjw }sE  
        .Subscript = wdUndefined E-($Xc  
    End With 8&nb@l  
     P]TT8Jgw  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat wph8ln"C-  
         G&@d J &B  
        .LineSpacingRule = wdLineSpaceExactly vCNq2l^CW  
        .LineSpacing = 20 oe|8  
         I~^Xw7  
        .Alignment = wdAlignParagraphJustify ^d@2Y0h
H  
         [$pb  
        .WidowControl = False uE
<8L(*B  
        .KeepWithNext = False )EQz9  
        .KeepTogether = False \<\H1;=.@'  
        .PageBreakBefore = False )2#&l  
        .NoLineNumber = False H^54o$5  
         *X{7m]5  
        .OutlineLevel = wdOutlineLevelBodyText SF9NS*mr  
         {bR2S&=OmK  
        .LeftIndent = CentimetersToPoints(0) W#E(?M[r  
        .RightIndent = CentimetersToPoints(0) H=\Tse_.  
        .FirstLineIndent = CentimetersToPoints(0) _RUL$Ds  
        
2W`WOBz  
        .CharacterUnitLeftIndent = 0 =@S a\;  
        .CharacterUnitRightIndent = 0 i7Cuc+j8  
        .CharacterUnitFirstLineIndent = 2 JWYe~  
         T?QW$cU!e:  
        .LineUnitBefore = 0 :U *8S\$  
        .LineUnitAfter = 1 ![nL/  
         lSlZ^.&  
    End With ^#Mp@HK  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False ecQ{ePoU  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll G+Bk!o  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS 5b
a e-  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False g{i= $xc  
    DoEvents \#WWJh"W  
>* opEI+  
    Options.Pagination = True em5~4;&'  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." ;]b4O4C\  
    DoEvents Dy>6L79G  
    ActiveDocument.Repaginate dJ#go*Gn  
a
DXaQ  
End Sub ck%YEMs  
LokH4A17U  
KeRC8mYp  

姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 2oV6#!{Z  
"uT2 DY[  

引用

引用第20楼newport93于06-14-2010 13:47发表的  : ?jUgDwc(w  
:aomDK*  
老五，I 服了U。 LAo$AiTUR{  
{:*G/*1[.  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 M2p|&Z%  

&M<"Fmn