登录注册
下拉
注册
社区应用 最新帖子 精华区 社区服务 会员列表 统计排行
上一主题下一主题
«3456»Pages: 6/6
主题 : [ZT]我和电脑亲密接触的心路历程
复制链接 ┊浏览器收藏┊打印
伍胥之 离线
级别: 军区司令员

显示用户信息 
100楼  发表于: 2021-07-18   
只看该作者 ┊  小 中 大
Dim bContinue As Boolean 2DBFY1[Pk  
OBM&N  
Dim regEX As New RegExp mL s>RR#b  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 K;g6V!U  
F B&l|#e  
Dim LastTitle0String As String, LastTitle0No As Long 59_VC('  
Dim LastTitle1String As String, LastTitle1No As Long "? 5@j/ e`  
Dim LastTitle2String As String, LastTitle2No As Long =\jPnov!  
Dim LastTitle3String As String, LastTitle3No As Long Eo <N  
Dim LastTitle4String As String, LastTitle4No As Long g3'yqIjQL  
Dim LastTitle5String As String, LastTitle5No As Long te3\MSv;O  
Dim LastTabelString As String, LastTableNo As Long w4uY/!~k  
Dim LastFigureString As String, LastFigureNo As Long 4Z{ r  
y[f6J3/  
Dim strSeperator As String v`"BXSmp{  
a&n}pnEn)  
Sub ConvertWidth(fTEXT As String, rText As String) rY=dNK]d  
        Selection.Find.ClearFormatting #|cr\\2*  
        Selection.Find.Replacement.ClearFormatting `=W#owAF  
        Selection.Find.Wrap = wdFindContinue 2cJ3b 0Xx  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText GmN~e*x>p  
        DoEvents .Dyxul  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True M ~6k[ew  
End Sub BMbZ34^e  
H#I%6k*\a  
Sub ClearDomain() <;E>1*K}8  
        With Selection.Find HO8x:2m  
            .ClearFormatting  {0} Q5  
            .Replacement.ClearFormatting Oufdi3h  
            .Wrap = wdFindContinue Z9I ?j1K|!  
            Me.txtStatus.Text = "清除所有域代码"  B}h8c  
            DoEvents /5 R?(-  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False >D$NEO^  
        End With S\11 8TpD  
End Sub |0N1]Hf   
lJ4&kF=t  
Private Sub cmdCheck_Click() q9m-d-!)  
    bContinue = True Jy#2  1  
    Dim NoSeries1(1 To 16) As String 3%V VG~[  
    Dim NoSeries2(1 To 16) As String 4 eP-yi  
    Dim NoSeries5(1 To 16) As String YjeHNPf  
    Dim NoSeriesRM(1 To 16) As String z]Mu8  
    Dim paraTotal As Long, ParaText As String p( [FZ  
    Dim ttString As String, ttNo As String ddeH-Z  
     `SESj)W(y  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long A|0\ct  
IlP@a[:_  
    Me.txtStatus.Visible = True cD4H@!=a  
    Me.lbParaType.Visible = True X;p4/ *U  
    Me.cmdCheck.Enabled = False l:"zYcp%  
     HN L;s5gq  
     ')v<MqBr  
     x4S0C[k  
     mr#XN&e  
    Dim ParaType As String, rText As String ]0@ J)Z09  
     a)M#O\i`  
    Selection.WholeStory /{\mV(F(  
    Selection.NoProofing = True JiH k`e`  
     vqBT^Q_q;  
    tm1 = Now ?pp|~A)b  
     D5fhOq+g  
        ActiveWindow.View.Type = wdNormalView kF"G {5  
     %VzCeS9  
    NoSeries1(1) = "一" P*8DM3':  
    NoSeries1(2) = "二" JclG*/Wjg4  
    NoSeries1(3) = "三" *}N J  
    NoSeries1(4) = "四" xcu:'7'K[  
    NoSeries1(5) = "五" ~]lVixr9  
    NoSeries1(6) = "六" ~f!iz~  
    NoSeries1(7) = "七" IWAp  
    NoSeries1(8) = "八" P'CDV3+  
    NoSeries1(9) = "九" x5nw/''[2  
    NoSeries1(10) = "十" %y2 i1^  
    NoSeries1(11) = "十一" <<ifd?  
    NoSeries1(12) = "十二" 1ml{oqNj  
    NoSeries1(13) = "十三" 92D f.xI}  
    NoSeries1(14) = "十四" ,~xX[uB  
    NoSeries1(15) = "十五" ef(OhIX  
    NoSeries1(16) = "十六" h*X u/aOg  
     tv7A&Z)Rh  
    NoSeries2(1) = "㈠" ePwoza  
    NoSeries2(2) = "㈡" 9iQc\@eGd  
    NoSeries2(3) = "㈢" JlN<w  
    NoSeries2(4) = "㈣" Ft$tL;  
    NoSeries2(5) = "㈤" -D30(g{ O  
    NoSeries2(6) = "㈥" gJI(d6  
    NoSeries2(7) = "㈦" &H@OLyC  
    NoSeries2(8) = "㈧" UkXf)  
    NoSeries2(9) = "㈨" 9^1.nE(R&  
    NoSeries2(10) = "㈩" "DNiVL.  
     oSqkAAGz\  
    NoSeries5(1) = "①" nQ^ <h.  
    NoSeries5(1) = "②" Nm=\~LP90  
    NoSeries5(3) = "③" tm280  
    NoSeries5(4) = "④" | R$/oq  
    NoSeries5(5) = "⑤" C{Er%  
    NoSeries5(6) = "⑥" o; Ma)/P  
    NoSeries5(7) = "⑦"  Wfyap)y  
    NoSeries5(8) = "⑧" N2S7=`5/T  
    NoSeries5(9) = "⑨" 3eS *U`_  
    NoSeries5(10) = "⑩" q6 Rr?  
     xs3t~o3y  
     =L?(mNHT  
    NoSeriesRM(1) = "I" 92K#xM/  
    NoSeriesRM(2) = "II" Snf1vH  
    NoSeriesRM(3) = "III" qx3`5)ef  
    NoSeriesRM(4) = "IV" aY@st]p  
    NoSeriesRM(5) = "V" 3a]Omuu|=  
    NoSeriesRM(6) = "VI" i\u m;\  
    NoSeriesRM(7) = "VII" ax+P) yz  
    NoSeriesRM(8) = "VIII" =WP`i29j9}  
    NoSeriesRM(9) = "IX" V 9i[ dF  
    NoSeriesRM(10) = "X" +oMe\wYR$r  
    NoSeriesRM(11) = "XI" zkRL'-  
    NoSeriesRM(12) = "XII" By-A1|4Cp`  
    NoSeriesRM(13) = "XIII" "~zQN(sR"P  
    NoSeriesRM(14) = "XIV" d|(@#*{T]  
    NoSeriesRM(15) = "XV" 1K'.QRZMb9  
    NoSeriesRM(16) = "XVI" Qk.:b  
     a8!/V@a  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) 2OJ=Xb1  
     Yv[j5\:x  
    If i = vbNo Then 7IH^5r  
        Exit Sub ^qlfdf  
    End If 8'X:}O/  
     %o9;jX  
    If Me.chkSuper.Value Then A~UDtXN*4  
        Me.txtStatus.Text = "检查修改所有的上标格式" Yhkn(k2  
     h,C?%H+/0Q  
        CheckSuperScript ,k5b,}tN  
         {:r8X  
    End If ir*T ,O 2J  
     %4rPkPAtrp  
    If Me.chkStyle.Value Then atO/ Tp  
        Me.txtStatus.Text = "设置样式，请稍候...." n9Xssl0  
        DoEvents }28,fb /  
        CeateOrModifyStyle v"dj%75O?e  
    End If .TTXg,8#D  
     92HxZ*t7km  
     Ohmi(s   
     _~b$6Nf!83  
    ClearDomain g` QbJ61a  
         2 7!9LU  
     =W~K_jE5lo  
     OCVF+D :  
    If Me.chkLIST.Value Then w$5#jJX\  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" /_G^d1T1?L  
     [J.-gN$X@  
        ConvertListToOrdinary }TS4D={1  
    End If qhiO( !jK  
     m;"i4!  
     tv1Z%Mx?Cp  
    Dim pType As String, trimpTEXT As String d,9YrwbD  
    If Me.chkNum.Value = True Then e+5]l>3)f  
        Me.txtStatus.Text = "转换全角数字形式为半角" j3`"9bY  
        ConvertWidth "１", "1" " %)zTH  
        DoEvents g5*Zg_G/  
        ConvertWidth "２", "2" d;D8$q)8Q  
        DoEvents 7Ed6o  
        ConvertWidth "３", "3" iB,Nqs3 i*  
        DoEvents | D jgm7$*  
        ConvertWidth "４", "4" {|~22UkF[V  
        DoEvents $zvqjT:>  
        ConvertWidth "５", "5" _,JdL'[d  
        DoEvents ekj@;6 d]  
        ConvertWidth "６", "6" ]M;aVw<!  
        DoEvents ^SouA[  
        ConvertWidth "７", "7" s1eGItx[w  
        DoEvents .(8sa8{N  
        ConvertWidth "８", "8" #D-L>7,jA  
        DoEvents m pWmExQ  
        ConvertWidth "９", "9" -gpF%g`H  
        DoEvents pkR+H|  
        ConvertWidth "０", "0" BiUOjQC#  
        DoEvents C4jq T  
        ConvertWidth "ａ", "a" ,!RbFME&H  
        DoEvents YQI&8~z  
        ConvertWidth "ｂ", "b" P` K?k<  
        DoEvents ,^UNQO*{GI  
        ConvertWidth "ｃ", "c" ,\BGxGNAmV  
        DoEvents +EWfsKz  
        ConvertWidth "ｄ", "d" i YJzSVO  
        DoEvents Iw0Q1bK(  
        ConvertWidth "ｅ", "e" .l->O-=  
        DoEvents 62X;gb  
        ConvertWidth "ｆ", "f" Q'~2,%3<  
        DoEvents Ws;}D}+  
        ConvertWidth "ｇ", "g" IW.~I,!x  
        DoEvents n"1LVJN7  
        ConvertWidth "ｈ", "h" aBO%qmtt  
        DoEvents ]`2=<n;=  
        ConvertWidth "ｉ", "i" ;*Cu >f7  
        DoEvents )"IBw0]  
        ConvertWidth "ｊ", "j" q{W@J0U  
        DoEvents K 9X0/  
        ConvertWidth "ｋ", "k" *y;(c)_w/%  
        DoEvents +h$) l/>:  
        ConvertWidth "ｌ", "l" fQ^45u lz  
        DoEvents PfI~`ke  
        ConvertWidth "ｍ", "m" \666{.a  
        DoEvents 8W|qm;J98  
        ConvertWidth "ｎ", "n" y0R5YCq\":  
        ConvertWidth "ｏ", "o" | \OG9{q  
        ConvertWidth "ｐ", "p" : _>/Yd7-&  
        ConvertWidth "ｑ", "q" x]gf3Tc58  
        ConvertWidth "ｒ", "r" Q( C\X  
        ConvertWidth "ｓ", "s" l 6;}nG  
        ConvertWidth "ｔ", "t" K)AJx"  
        ConvertWidth "ｕ", "u" JPX5Jm()  
        ConvertWidth "ｖ", "v" =2z9Aq{  
        ConvertWidth "ｗ", "w" [CU]fU{$  
        ConvertWidth "ｘ", "x" :Sx !jx>W  
        ConvertWidth "ｙ", "y" + W ? / A]  
        ConvertWidth "ｚ", "z" D e>'  
        ConvertWidth "Ａ", "A" av&4: O!  
        ConvertWidth "Ｂ", "B" >~kSe=Hsb4  
        ConvertWidth "Ｃ", "C" "@JSF  
        ConvertWidth "Ｄ", "D" 4$=Dq$4z  
        ConvertWidth "Ｅ", "E" uV:;q>XM'%  
        ConvertWidth "Ｆ", "F" VHJ-v!  
        ConvertWidth "Ｇ", "G" xi]qdiA  
        ConvertWidth "Ｈ", "H" oD]riA>jC  
        ConvertWidth "Ｉ", "I" s4RqMO5eI  
        ConvertWidth "Ｊ", "J" 4q`$nI Bi  
        ConvertWidth "Ｋ", "K" S;vE %  
        ConvertWidth "Ｌ", "L" `&"-|  
        ConvertWidth "Ｍ", "M" cj:!uhZp7  
        ConvertWidth "Ｎ", "N" ;c'9Xyl-  
        ConvertWidth "Ｏ", "O" 52$7vYMto  
        ConvertWidth "Ｐ", "P" J0e~s  
        ConvertWidth "Ｑ", "Q" +a%Vp!y  
        ConvertWidth "Ｒ", "R" ,rB"ag !  
        ConvertWidth "Ｓ", "S" qd9CKd  
        ConvertWidth "Ｔ", "T" F;mK) Q-  
        ConvertWidth "Ｕ", "U"  0~{&  
        ConvertWidth "Ｖ", "V" (YbRYu  
        ConvertWidth "Ｗ", "W" HY,+;tf2r  
        ConvertWidth "Ｘ", "X" rH9wRY(  
        ConvertWidth "Ｙ", "Y" :h>d'+\  
        ConvertWidth "Ｚ", "Z" S1<mO-  
        ConvertWidth "^l", "^p" '= _}&  
        ConvertWidth "（", "(" AiT&:'<UT  
        ConvertWidth "）", ")" +@Oo)#V|.  
     pm-SDp>s  
    End If Khbkv  
e7<//~W7W  
    With ActiveDocument wsy G~^>  
        Dim tbl As Table .cTK\  
        For Each tbl In .Tables S0_#h)  
            tbl.Rows.Alignment = wdAlignRowCenter n_Ht{2I  
            tbl.Range.Font.NameFarEast = "楷体" jrMY]Ea2`  
            tbl.Range.Font.NameAscii = "Times New Roman" \# .@*?fk  
            tbl.Range.Font.Size = 10.5 5y. n  
        Next ubn`w=w$  
        Set tbl = Nothing I$o^F/RH  
    End With G &'e P  
     L,&R0gxi  
     5Mfs)a4j.  
    With ActiveDocument Mb6 #97  
         :RsO $@0G  
        For i = 1 To .TablesOfContents.Count D2`tWRm0  
            .TablesOfContents(i).Delete btC 0w^5  
        Next X`dd"8%  
         rRN7H L+b  
         f3>8ZB4  
         K; 7o+Xr  
        paraTotal = .Paragraphs.Count KB$s7S"=  
        paraCounter = 1 Mt@P}4   
         L-  -  
        LastTitle0No = 0 u; xl}  
        LastTitle1No = 0 o5(p&:1M  
        LastTitle2No = 0 Kp +Lk  
        LastTitle3No = 0 w7H.&7rF  
        LastTitle4No = 0 (GVH#}uB  
        LastTableNo = 0 &^C <J  
        LastFigureNo = 0 kMGK 8y  
         NzmVQ-4  
        Dim Sec As Long l^s\^b=W  
         nwk66o:|  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) ?NZKu6  
        If Sec = 0 Then AHq;6cG  
            Exit Sub :wJ=t/ho  
        End If }*{@-v|_R  
         { jnQoxN  
        k = 0 KWVEAHIn  
        Do While (paraCounter < paraTotal) And bContinue D{&0r.2F  
            k = k + 1  q$$:<*Uy  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then %rpJZ t  
                Exit Do ~:Jw2 P2z  
            End If fX,L;Se"  
            paraCounter = paraCounter + 1 a}Db9=  
            If k Mod 20 = 0 Then @_tQ: U ,v  
                Me.lbCounter.Caption = paraCounter E\V-< ]o  
                DoEvents 4 7R4gs#W  
            End If ,O@x v  
        Loop !%' 1 x2?  
         /YbyMj*  
         8]6u]3q#  
        Do While (paraCounter < paraTotal) And bContinue qW57h8M  
             aI$D qnF4  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) V0Cz!YM_3  
            ShapeHeight = 0 yv:8=.r}M  
            ShapeWidth = 0 U2*g9Es  
           3@ a  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth uaMf3HeYV  
             LFsrqdzJ  
            Select Case ParaType - _bHLoI  
                Case "【】表格内容" 7Vf2Qx1_  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" (vCMff/ Y1  
                Case "章" Ex'6 WN~kD  
                    LastTitle0No = LastTitle0No + 1 289@O-  
                    '新一章开始，复位其下属标题编号 -9XB.)\#  
                    LastTitle1No = 0 M <oy  
                    LastTitle2No = 0 Lw 7,[?,Z  
                    LastTitle3No = 0 ,~ D_T  
                    LastTitle4No = 0 i<N[sO  
                     [E_eaez7#  
                    k = Val(ttNo) pKf]&?FX  
                    If k = 0 Then '非数字编号章节 I$K?,   
                        If ttNo <> NoSeries1(LastTitle0No) Then m>C}T  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString 5cbtMNP  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText 93="sS  
                        End If ^`Tns6u>  
                    Else V6.xp{[  
                        If Val(ttNo) <> LastTitle0No Then ?UC3ES  
                            rText = "第" & LastTitle0No & ttString T~%}(0=m  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText pA(B~9WQ  
                        End If =&QC&CqEi  
                         3s iWq9 .  
                    End If  D(}w$hi8  
                     X|'EyZ  
                    '章段落设置 @V/Lqia  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 ,6,sz]3-  
                    .Paragraphs(paraCounter).Style = "QLNU章节" O2|[g8(_F  
                    .Paragraphs(paraCounter).Range.Select lsV9-)yyl  
                    Selection.EndKey unit:=wdLine z~TG~_s  
                    tc = Replace(rText, vbCr, "") Ju""i4  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False {*V CR  
                Case "一级标题" KdT1 Nb=  
                    LastTitle1No = LastTitle1No + 1 `I(#.*  
                    '新一级标题开始，复位其下属标题编号 ~n:dHK`  
                    LastTitle2No = 0 sd;J(<Ofh  
                    LastTitle3No = 0 j?&Rf,,%  
                    LastTitle4No = 0 {shf\pm!o  
                     `6KTQk'  
                    If ttNo <> NoSeries1(LastTitle1No) Then > uS?Nz5/  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString i5  x[1  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText 8}/v[8p  
                    End If adG=L9 "n  
                   Wq_#46P-  
                     _jV(Gv'  
                    '一级标题段落设置  格式：一、标题内容 0h~Iua5  
                    .Paragraphs(paraCounter).Range.Text = rText fk%yi[  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" " gB.  
                    .Paragraphs(paraCounter).Range.Select hlPZTr=a  
                    Selection.EndKey unit:=wdLine FgILQ"+  
                    tc = Replace(rText, vbCr, "") ].f28bY  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False p`// *gl  
                Case "二级标题" ~7$E\w6  
                    LastTitle2No = LastTitle2No + 1 TqbDj|7`R  
                    '新二级标题开始，复位其下属标题编号 ;[*jLi,uc  
                    LastTitle3No = 0 /5^"n4/M  
                    LastTitle4No = 0 }cK<2J#  
                     /"A)}>a  
                    If ttNo <> NoSeries1(LastTitle2No) Then <eU28M?\  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString f\sxx!kt  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText :DP%>H|  
                    End If +@]b}W  
                     `=A*ei5  
                    '二级标题段落设置 格式：(一)、标题内容 o8+ZgXct  
                    .Paragraphs(paraCounter).Range.Text = rText k r0PL)$  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" l MCoc'ae  
                     %vjLw`  
                    .Paragraphs(paraCounter).Range.Select +.N3kH  
                    Selection.EndKey unit:=wdLine *={` %  
                    tc = Replace(rText, vbCr, "") (?SK< 4!  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False G1 ?."  
                 x0^O?UR  
                Case "三级标题" +*2wGAT  
                    LastTitle3No = LastTitle3No + 1 h+e Oe}  
                    '新三级标题开始，复位其下属标题编号 ZCJOh8  
                    LastTitle4No = 0 gxEa?QH  
                     i)nb^  
                    If Val(ttNo) <> LastTitle3No Then 1eC1Cyw  
                            rText = LastTitle3No & ". " & ttString YNc] x>  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText ^h+,Kn0@  
                         O) ks  
                    End If 6LUO  
                    '三级标题段落设置 格式：1. 标题内容 G[4TT#  
                    .Paragraphs(paraCounter).Range.Text = rText w ^ v*1KA&  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" {C>.fg%t  
                    .Paragraphs(paraCounter).Range.Select OhmKjY/}  
                    Selection.EndKey unit:=wdLine t+'|&b][Qi  
                    tc = Replace(rText, vbCr, "") "4c ?hH:C  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False @5n !t1(  
                Case "四级标题" R:z PU   
                    LastTitle4No = LastTitle4No + 1 {R[FwB^7wJ  
                     shbPy   
                    If Val(ttNo) <> LastTitle4No Then K!/"&RjW.  
                            rText = "(" & LastTitle4No & "). " & ttString ,?Pn-aC +  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText S<"M5e  
                     oQgd]| v  
                    End If q\Cg2[nn2  
                    '四级标题段落设置 格式：(1). 标题内容 b#U nE  
                    .Paragraphs(paraCounter).Range.Text = rText WvG0hts=[  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" Ri]7=.QI`  
                    .Paragraphs(paraCounter).Range.Select 8spoDb.S  
                    Selection.EndKey unit:=wdLine z?$F2+f&  
                    tc = Replace(rText, vbCr, "") 2}Dd{kC-  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False =M"H~;f]  
                 ncg5%(2  
                Case "表格标题" 0-H!\ IB  
                    LastTableNo = LastTableNo + 1 *vn^ W  
                     IUco 8  
                    If ttNo <> CStr(LastTableNo) Then LG6VeYe|\X  
                            rText = "表" & LastTableNo & ". " & ttString yT Pi/=G  
                            ErrMsg.AddItem "表格编号错误：" & ParaText NET?Ep  
                   ^06f\7A  
                    End If ~b+TkPU   
                     8d9&LPv  
                    '表格名称段落设置 格式：表1. 表格名称 8X=c GYC#  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" 8'Dp3x^W>  
                    xe = Replace(rText, vbCr, "") /.<tC(  
                    .Paragraphs(paraCounter).Range.Select B .p&,K  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 KlMrM% ;y  
                    Selection.Range.Text = xe BIf E+L(  
                    Selection.EndKey (~F{c0 \C  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False y2k '^zE  
                 BZy&;P  
                Case "表格首行" ]M AB  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" 'P{0K?{H-4  
                Case "图片标题" &fJ92v?%^S  
                    LastFigureNo = LastFigureNo + 1 }Z T{  
                     {9sA'5  
                    If ttNo <> CStr(LastFigureNo) Then `IQ01FuP  
                            rText = "图" & LastFigureNo & ". " & ttString Jy)E !{#x  
                            ErrMsg.AddItem "表格编号错误：" & ParaText Ov1$7 r@  
                   ^|^ek  
                    End If Ju3-ZFUS4  
                    '图片名称段落设置 格式：图1. 图名称 "0o1M\6Z  
                    .Paragraphs(paraCounter).Range.Text = rText uP<w rlW  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" NvH9?Ek"  
                    .Paragraphs(paraCounter).Range.Select L(a&,cdh  
                    Selection.EndKey unit:=wdLine wjk-$p  
                    xe = Replace(rText, vbCr, "") qd*3| O^  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False hzIP ?0^E  
                Case "正文" Rk2V[R.`S  
                     '正文名称段落设置 zx"'WM *  
                    .Paragraphs(paraCounter).Style = "QLNU正文" h8;B+#f`  
               Case "文献条目" DA)+)PhY7K  
                    With .Paragraphs(paraCounter) _jK    
                        '.Range.Select * z|i{=W F  
                        'Selection.ClearFormatting 8<(qN> R  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” h&eu}aF  
                        .Style = "QLNU参考文献" < aeBhg %  
                    End With Bw-<xwD  
               Case "图表注解" dkTj KV  
                    With .Paragraphs(paraCounter) y+f@8]  
                        .Range.Font.NameFarEast = "楷体" yX%T-/XJ  
                        .Range.Font.NameAscii = "Times New Roman" <ijf':X=*  
                        .Range.Font.Size = 9 '小5号字 o JC-?  
                         KK; 3<kX  
                        .Alignment = wdAlignParagraphCenter 3V:{_~~  
                        .LeftIndent = 0 su]CaHU  
                        .RightIndent = 0 ~_WsjD0O  
                        .FirstLineIndent = 0 j .Ro(0%  
                        .LineSpacing = 12 GOJ*>GpS  
                        .LineSpacingRule = wdLineSpaceExactly =;DmD?nZ  
                        .LineUnitAfter = 0 [r'PGx  
                        .LineUnitBefore = 0 }X{#=*$GQ  
                        .OutlineLevel = wdOutlineLevelBodyText ,i>u>YNZ  
                        .PageBreakBefore = False ,bT|:T@ny  
                        .RightIndent = 0 x2p}0N  
                        .WordWrap = True L3:dANG  
                        .LineUnitAfter = 0.5 nU]n]gd  
                         7'wt /9  
                    End With O+I\Q?   
                Case Else 2N_8ahc  
                    '不作处理 :.kc1_veYS  
            End Select n:JWu0 ,h  
             a1Q|su{H  
            '含有inlineshape的段落处理 ;h[p "  
            If ShapeHeight > 30 Then m1@ste;$W  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 N9LBji;nH  
            End If 32!jF}qpD  
             TWF6YAQ m  
            If (ShapeWidth + ShapeHeight) > 150 Then ^'EeJN  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" ~l$u~:4Ob  
            End If ^lVZW8  
             bJc<FL<E  
            '段落计数器递 [.\uHt  
            paraCounter = paraCounter + 1 n4Fh*d ixg  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter ySP1,xq  
            Me.txtStatus.Text = ParaText IC&x L9  
            DoEvents Wyu$J  
        Loop g_lj/u]P  
    End With ylm*a74-X  
     ?sQOz[ig;  
    msg = "" pG?AwB~@n  
     Y<('G5A  
    For i = 0 To Me.ErrMsg.ListCount - 1 %H=d_Nm{  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) b%`^KEvwfo  
    Next "Y(stRa  
     X`km\\*  
     :V1ttRW}52  
     MhMY"bx8  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg ^VsX9  
    Me.cmdCheck.Enabled = True _t<&#D~  
    Me.txtStatus.Visible = True dQ6:c7hp>D  
    Me.lbParaType.Visible = False C Z8Fe$F  
     uq<kT[  
    bContinue = False z-<091,  
End Sub P" +!mSe^~  
>]N}3J}47g  
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) /DOV/>@5%  
    Dim pTEXT As String ~hi\*W6jg  
     *A g</g@ h  
    pTEXT = ChKRange.Text );T0n  
     .?7u'%6x?{  
    ParaType = "其它" }{>)2S  
    TitleString = pTEXT _ndc^OG  
    TitleNo = "N/A" O@; ;GJ  
     }*.S=M]y $  
    shpCounter = ChKRange.InlineShapes.Count V<~.:G$3H  
    If shpCounter <> 0 Then S a5+_TW  
        MaxShpHeight = 0: TotalShpWidth = 0 '<N^u@tF7  
        For i = 1 To shpCounter eELJDSd BV  
            k = ChKRange.InlineShapes(i).Height ? b;_T,S[  
            l = ChKRange.InlineShapes(i).Width i#/,Q1yEn  
            If k > MaxShpHeight Then =O= 0 D  
                MaxShpHeight = k <CrNDY  
            End If Jt79M(Hp!  
            TotalShpWidth = TotalShpWidth + l oej5bAi  
        Next 8S2sNpLi-g  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then 0zrgK;9  
            Exit Sub MfNxd 6w  
        End If '6l4MR$j&m  
    End If *a_U2}N  
     VC%{qal;q  
    '空行 $4K( AEt[  
    If Len(pTEXT) <= 2 Then @Qw~z0PE<l  
        Exit Sub >B)&mC$$S  
    End If C9^[A4O@X!  
     hdky:2^3  
         #+)AIf  
    '是否为表格中的文字 -# 0(Jm'  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then nY(>|!  
        ParaType = "表格内容" V~j:!=b%v  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) E6"+\-e  
        If k = 1 Then yWI30hW  
            ParaType = "表格首行" "`P/j+-rt  
        End If i}cqV B?r  
        Exit Sub hV5Aw;7C  
    End If D$C >ZF  
      k I {)"  
    '例外情况：脚注 3vx5dUgl,  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then )!+M\fT  
        ParaType = "脚注" ks92-%;:  
        Exit Sub AF ,*bb  
    End If E(J@A'cX  
     v+a$Xh3Y~  
    '例外情况：尾注 RTN?[`  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then H4%2"w6|!  
        ParaType = "尾注" p=F!)TnJN  
        Exit Sub 5,/rh,?  
    End If `Y Hn L4  
     I'&#p OB  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then Z05kn{<a8  
        ParaType = "页眉页脚" NfG<!  
        Exit Sub ~>C@n'\lv  
    End If ?f@g1jJP  
     ,(d\!T/]'  
     32y GIRV  
    With regEX rG7E[kii  
        .Global = True ?y1']GAo  
         ? yL3XB>  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" p,_,o3@~  
        If regEX.Test(pTEXT) Then }DH3_M!  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") !|!k9~v!  
            TitleString = regEX.Replace(pTEXT, "$3") V_b"^911r  
            TitleNo = regEX.Replace(pTEXT, "$1") WXJEAje  
            ParaType = "章" s"u6po.'  
            Exit Sub '@4M yg* b  
        End If RmF,x9  
         y$,K^f  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" S0,q@LV  
        If regEX.Test(pTEXT) Then 0#\K9 |.  
            ParaType = "一级标题" 0ws1S(pq  
            regEX.Execute (pTEXT) K%NNw7\A  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") cd_\?7  
            TitleString = regEX.Replace(pTEXT, "$3") gc~nT/lfK  
            TitleNo = regEX.Replace(pTEXT, "$1") YU =Q`y[k  
            Exit Sub Y0nn n  
        End If Ul"9zTH  
         P#^-{;Bu  
        '全角或半角括号中的数字 MBy0Ky  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" [ .] x y  
        If regEX.Test(pTEXT) Then ze* =7  
            ParaType = "二级标题" *nb `DR  
            regEX.Execute (pTEXT) 0,1x- yD  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") tC;L A 4  
            TitleString = regEX.Replace(pTEXT, "$5") F@m]Imn5Dx  
            TitleNo = regEX.Replace(pTEXT, "$2") {wUbr^  
            Exit Sub :H9\nU1  
        End If 7Mx F? I  
         +ucj>g1(#  
        '阿拉伯数字  1. 2. >Z0 F n  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" pib i#  
        If regEX.Test(pTEXT) Then Y"Y%JJ.J  
            ParaType = "三级标题" ~Mk{2;x  
            regEX.Execute (pTEXT) GYv D*?uBc  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 zNAID-5K;  
            TitleString = regEX.Replace(pTEXT, "$3") F"p7&e\W|l  
            TitleNo = regEX.Replace(pTEXT, "$1") =;9 %Q{  
            Exit Sub )OjTn"  
        End If &BF97% E2  
         ?D 8<}~Do  
        '全角或半角括号中的阿拉伯数字  |tK_Bn  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" kV >[$6  
        If regEX.Test(pTEXT) Then M%(B6};J  
            ParaType = "四级标题" b&q!uFP  
            regEX.Execute (pTEXT) MNC=r?  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") m+66x {M2c  
            TitleString = regEX.Replace(pTEXT, "$5") N.\?"n   
            TitleNo = regEX.Replace(pTEXT, "$2") UZcsMMKH  
            Exit Sub E}^np[u7  
        End If e6?iQ0  
         >"LHr&;m&h  
        '表格名称 ^\<nOzU?  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" *\#/4_yB}  
        If regEX.Test(pTEXT) Then  :P,g,  
            ParaType = "表格标题" JONfNb+  
            regEX.Execute (pTEXT) Uh6LU5  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) 0L->e(Vf7u  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) Vq8G( <77  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) d|I_SI 1  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 }~W:3A{7;  
            Exit Sub YUGE>"{  
        End If :/rl \woA>  
         i}&& rr  
        '图片名称 zN3[W`q+m  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" ibzcO,c   
        If regEX.Test(pTEXT) Then eBlWwUy*6f  
            ParaType = "图片标题" b/#SkxW#S  
            regEX.Execute (pTEXT) _H{6{!=y  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") _*&I[%I5  
            TitleString = regEX.Replace(pTEXT, "$3") Q{+*F8%8V<  
            TitleNo = regEX.Replace(pTEXT, "$1") p\;\hHai  
            Exit Sub rV{:'"=y-  
        End If hc"l^a!7ic  
         DIs K+1  
        '参考文献 TJYup%q  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 { XI0KiE  
        If regEX.Test(pTEXT) Then )FLDCer  
            ParaType = "文献条目" G909R>  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") F~bDA~  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") r4YiXss  
            Exit Sub pm2-F]  
        End If " V[=U13  
         HgGwV;W  
        prfx = Left(pTEXT, 2) BZJ\tPSR  
        If prfx = "注：" Or prfx = "注:" Then ? <F=*eS  
            ParaType = "图表注解" ko-3`hX`  
            Exit Sub o7gYj\  
        End If "0*yD[2  
         Za[ ?CA  
         QR+xPY~  
        ParaType = "正文" D.[h`Hkc  
         fyt ODsb>  
    End With I |PEC-(  
End Sub C8{bqmlm@  
tLH:'"{zx  
Sub ConvertListToOrdinary() <x!q! ;  
    Dim st As Paragraph t`M4@1S"'  
    With ActiveDocument RB\ Hl  
        For i = .Paragraphs.Count To 1 Step -1 GGM|B}U p  
            Set st = .Paragraphs(i) 8 x=J&d  
            lst = st.Range.ListFormat.ListString uez"{_I  
            If lst <> "" Then _sp, ,gz  
                st.Range.ListFormat.RemoveNumbers XA b%V'  
                st.Range.InsertBefore lst & " " vl`Qz"Xy  
            End If ]|JQH  
        Next }na0  
    End With ;C  ^!T  
    Set st = Nothing h.Y&_= Gc  
End Sub 9f#~RY|#m  
M&QzsVH  
Private Sub UserForm_Activate() Q,ez AE  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" xL&evG#  
    Me.lbTotal.Font.Bold = True K20,aWBq;3  
    Me.txtStatus.Visible = False k kZ2Jxvx  
    Me.cmdCheck.Enabled = True %*}h{n  
Sb4^* $uz  
End Sub ='W=  
N_:H kI6  
RGu`Jk  
Sub CheckSuperScript() MZ2/ks  
    Selection.Find.ClearFormatting HbI'n,+  
    Selection.Find.Replacement.ClearFormatting r5RUgt  
    With Selection.Find saRYd{%+  
        .Text = "[【\[［〖](*)[】\]〗］]" -1_WE/Ps  
        .Replacement.Text = "[\1]" /b1+ ^|_  
        .Replacement.Font.Superscript = True ) ])nd "E  
        '.Replacement.Font.Color = wdColorBlue 2Kkm-#p7  
        .Forward = True qw?Wi%t(x8  
        .Wrap = wdFindContinue A ". v+  
        .FORMAT = True GyC/39<P  
        .MatchCase = False 3# g"Z7/  
        .MatchWholeWord = False ,59G6o  
        .MatchByte = False Wtwo1pp  
        .MatchAllWordForms = False k!Ym<RD%N  
        .MatchSoundsLike = False 6N49q -.Lg  
        .MatchWildcards = True | 2Vhj <6  
    End With X!b+Dk  
    Selection.Find.Execute Replace:=wdReplaceAll c>|1% }"?  
End Sub 9T \uOaC"  
qix$ }(P  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 40e(p/Qka  
    bContinue = False @=7[KMb  
    Set regEX = Nothing (jyT9'*wAT  
End Sub "L0Q"t:  
_2-fH  
Sub CeateOrModifyStyle() JpRn)e'Z  
' elqm/u  
' @Ojbu@A  
Dim stl As Style adcH3rV  
     +Rj8 "p$K  
    Options.Pagination = False z|F38(%JJN  
     U F&B7r  
    On Error Resume Next sH'IA~7   
    For Each stl In ActiveDocument.Styles &%UZ"CcA  
        stl.Delete 6%a9%Is!O  
    Next q"48U.}T  
    On Error GoTo 0  ?v z[Zi  
     ]x1;uE?1J  
    Set stl = Nothing %jE0Z4\  
     AqA.,;G  
    DoEvents 8|LU=p`y'  
    On Error Resume Next /Hs\`Kg"!  
     C3K":JB  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph Iq0[Kd0.j  
     8aqH;|fG}  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph ptc.JB 6  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph I!?)}d  
     +C}s"qrb@  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph n #l~B@  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph e**<et.  
     `@<~VWe5  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph /n2qW.qJ>  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph \y(ZeNs  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph &wX568o  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph ]')  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph %A3ci[$g  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph D03QisH=  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph  erQQ_  
     B:>>D/O  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph U!GfDt  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph s||c#+j"8  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph [;C|WTYSL  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph mz2v2ma  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph 'uW&AD p  
     {'-^CoR  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph 34 '[O  
    On Error GoTo 0 S`Xx('!/|  
    DoEvents %ws@t"aER  
     #ZC9=  
    'BaseStyle A-e RL`  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False ^, &'  
    With ActiveDocument.Styles("BaseStyle").Font ~} 02q5H  
        .NameFarEast = "宋体" Ak dx1h,  
        .NameAscii = "Times New Roman" N79?s)l:K  
        .NameOther = "宋体" ` t>A~.f  
        .Size = 10.5 H %Dcp#k  
        .Bold = wdUndefined h+c 9FN  
        .Italic = wdUndefined b}3t8?wG&  
        .Subscript = wdUndefined zNO,vR[\  
        .Subscript = wdUndefined dEI]|i r  
         )Z*nm<=  
        .Underline = wdUnderlineNone aI\:7  
        .UnderlineColor = wdColorAutomatic c Cx_tGR"  
        .StrikeThrough = False -kP$S qR~  
        .DoubleStrikeThrough = False *`_ 2uBz  
         ]IclA6  
        .Outline = False rQ-,mq  
        .Emboss = False :anR/  
        .Shadow = False :caXQ)  
        .Hidden = False FvJkb!5*e_  
        .SmallCaps = False Z?<&@YQS  
        .AllCaps = False +gyGA/5:d$  
        .Color = wdColorAutomatic O@>ZYA%  
        .Engrave = False h:AB`E1  
        .Scaling = 100 [w*]\x'S  
        .Kerning = 1  /M@[ 8  
        .Animation = wdAnimationNone ~c=F$M^"c  
        .DisableCharacterSpaceGrid = False *=}\cw\A  
        .EmphasisMark = wdEmphasisMarkNone v@d] *TG  
    End With dC/@OV)0#  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat 35H.ZXQp-  
        .LeftIndent = 0 OJ1MV7&  
        .RightIndent = 0 Qp;FVUw9  
        .SpaceBefore = 0 RhWW61!"  
        .SpaceBeforeAuto = False K]'t>:G @  
        .SpaceAfter = 0 arc{:u.K  
        .SpaceAfterAuto = False zEKVyZd*{  
         c :2w(BVi  
        .LineSpacingRule = wdLineSpaceSingle |\U5m6q  
        .Alignment = wdAlignParagraphJustify Lng@'Yr  
         )zydD=,bu  
        .WidowControl = False V/+D ]  
        .KeepWithNext = False l[6lXR&|  
        .KeepTogether = False C)mR~Ey  
        .PageBreakBefore = False <c&Nm _)  
        .NoLineNumber = False `< 82"cAT{  
         NdmwQJ7e"  
        .FirstLineIndent = CentimetersToPoints(0) ;LC?3.  
        .OutlineLevel = wdOutlineLevelBodyText z.~jqxA9  
        .CharacterUnitLeftIndent = 0 7fC:' 1]G  
        .CharacterUnitRightIndent = 0 <2e[;$  
        .CharacterUnitFirstLineIndent = 0 '-BD.^!!  
        .LineUnitBefore = 0 [;Jq=G8&t  
        .LineUnitAfter = 0 pupt__NZ)n  
        .AutoAdjustRightIndent = True _l+8[\v  
        .DisableLineHeightGrid = True 4iv&!hAc;  
         k#n%at.g  
        .FarEastLineBreakControl = True hvc3n> Y[}  
        .WordWrap = True oh7tE$"c  
        .Hyphenation = False I_Omv{&u  
         Nwg?(h#  
        .HangingPunctuation = True }Oq P`B   
        .HalfWidthPunctuationOnTopOfLine = True F@b=S0}K  
        .AddSpaceBetweenFarEastAndAlpha = True h-]c   
        .AddSpaceBetweenFarEastAndDigit = True 6@;sOiN+  
        .BaseLineAlignment = wdBaselineAlignBaseline XFv^j SF  
    End With -br): }f  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False cAn _:^  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll e8eNef L$  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese d5"rCd[  
    ActiveDocument.Styles("BaseStyle").NoProofing = False !-m 'diE  
     P}"T 3u\N  
    '一级标题题样式 XE8%t=V!c$  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") IQWoK"B  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" E5IS<.  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False P7epBWqDP  
    With ActiveDocument.Styles("QLNU一级标题").Font LMNmG]#!  
        .NameFarEast = "黑体" t pa<)\7KJ  
        .NameAscii = "Arial Black" T7^?j :kJ/  
        .NameOther = "黑体" t[ZGY,8  
        .Name = "黑体" [ut[W9  
        .Size = 16              '三号 7$v_#ZE.H  
        .Bold = True %us#p|Ya  
        .Italic = wdUndefined #fDM{f0]R  
        .Subscript = wdUndefined &Z(6i}f,Gp  
        .Superscript = wdUndefined `<6FCn4{X  
    End With lf\^!E:  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat :eH\9$F`x;  
         0$_WIk  
        .LeftIndent = CentimetersToPoints(0) nwVW'M]r  
        .RightIndent = CentimetersToPoints(0) !ou;yE&<,  
        .FirstLineIndent = CentimetersToPoints(0) NpxgF<G  
         Nj.;mr<  
        .LineSpacingRule = wdLineSpaceSingle (W.G&VSn)  
        .Alignment = wdAlignParagraphCenter w8bvq TQ  
         SPp|/ [i7  
        .WidowControl = True *#1J  
        .KeepWithNext = True (K('@W%\?  
        .KeepTogether = True LvMA('4  
        .OutlineLevel = wdOutlineLevelBodyText AYAbq}'Yt  
         Ab8Ke|fA  
        .LineUnitBefore = 0.5 k3T374t1b  
        .LineUnitAfter = 0.5 mRy0zN>?  
    End With Mzw:c#  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False !j& #R%D  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll {mB!mbr  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese z<_a4 ffR  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True ~ \b~  
    DoEvents w3&L 6|,  
     7#7AK}   
    '二级 FzAzAl 5  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") qFI19`?8 E  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" 9TbbIP1  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False ?aguAqG$  
    With ActiveDocument.Styles("QLNU二级标题").Font kz G W/  
        .NameFarEast = "黑体" pM~-o?  
        .NameAscii = "Arial Narrow" x->+w Jm@s  
        .NameOther = "黑体" "-Pz2QJY  
        .Name = "黑体" LKA/s ~G  
        .Size = 15        '小三号 _:%i6c*"  
        .Bold = False L9]d$ r"  
        .Outline = False (' 2Z&5  
        .Italic = wdUndefined C%|m[,Gx  
        .Subscript = wdUndefined ;u=%Vn"2a  
        .Superscript = wdUndefined m%b# B>J,n  
    End With BZ(DP_}&D  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat !gcea?I  
        .LeftIndent = CentimetersToPoints(0) 4Ik'beZqK  
        .RightIndent = CentimetersToPoints(0) ^I{/j 'b&  
        .FirstLineIndent = CentimetersToPoints(0) !R![:T\,  
         72vp6/;)  
        .LineSpacingRule = wdLineSpaceSingle {$V2L4  
        .Alignment = wdAlignParagraphLeft /I:&P Pff  
         z0UtKE^b  
        .WidowControl = True Y8h 96  
        .KeepWithNext = True RN$>!b/  
        .KeepTogether = True F_0@S h"  
        .PageBreakBefore = False Yq'D-$@  
        .OutlineLevel = wdOutlineLevelBodyText HP\5gLVXY  
         QQt4pDir>  
        .LineUnitBefore = 0.5 O=jzz&E+  
        .LineUnitAfter = 0.5 g""Ep  
         o+Mc%O Z  
    End With iz0:  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False J06 D_'{  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll 8~F?%!X  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese Hzz v 6k  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True I]%Kd('  
    DoEvents mNsd&Rk'  
     hrGX65>  
    '三级标题样式 EeGTBVms  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") F\jawoO9  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" s{*bFA Z1F  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False tns4e\  
    With ActiveDocument.Styles("QLNU三级标题").Font L4ZB0PmN'  
        .NameFarEast = "宋体" czsnPmNEI  
        .NameAscii = "Times New Roman" !="8ok+  
        .NameOther = "黑体" P-DW@drxF  
        .Name = "黑体" D=SjCmG  
        .Size = 14               '四号 bwa*|{R  
        .Bold = False K)^8 :nt  
        .Outline = False 211V'|a_ >  
        .Italic = wdUndefined &}t8O?!  
        .Subscript = wdUndefined 5}b) W>3@`  
        .Superscript = wdUndefined =ui3I_*)  
    End With xz~Y %Y|Z  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat _M^^0kf  
        .LeftIndent = CentimetersToPoints(0) =mSu^q(l  
        .RightIndent = CentimetersToPoints(0) Z@bSkO<Y  
        .FirstLineIndent = CentimetersToPoints(0) \uO^w J}  
         ;0`IFtz  
        .LineSpacingRule = wdLineSpaceSingle vpC?JXz=H  
        .Alignment = wdAlignParagraphLeft vOq N=bp  
         LQR^lD+_=  
        .WidowControl = True ZZ T 9t#~  
        .KeepWithNext = True "ji+~%`^[t  
        .KeepTogether = True dkeMiL m  
        .PageBreakBefore = False =G !]_d0  
        .OutlineLevel = wdOutlineLevelBodyText q7I!wD9Cff  
         7EVB|gTp  
        .CharacterUnitLeftIndent = 0 |7Qe {  
        .CharacterUnitRightIndent = 0 rM? J40&.  
        .CharacterUnitFirstLineIndent = 2 nb ?(zDJ8  
         5~d=,;yE  
        .LineUnitBefore = 0.5 v57<b&p26  
        .LineUnitAfter = 0 5vLA)Al3  
    End With Xc4zUEO9  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False Qkw?Q V-`k  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll 1vS-m x  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese /(?s \}O  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True j<R&?*  
    DoEvents ";/ogFi  
     t*)!BZ  
    '四级标题样式 nFWiS~(#sW  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") D G|v' #  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" c|K:oi,z  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False DS_0p|2  
    With ActiveDocument.Styles("QLNU四级标题").Font z|t2 ;j[  
        .NameFarEast = "宋体" 2XEE/]^  
        .NameAscii = "Times New Roman" x[u6_6=q9  
        .NameOther = "宋体" / <%EKu5  
        .Name = "宋体" x&r f]R  
        .Size = 12               '小四号 q,> C^p|2b  
        .Bold = True [Zzztn+  
        .Outline = False /} h"f5  
        .Italic = wdUndefined 5tk7H2K^<  
        .Subscript = wdUndefined qlnA7cK!  
        .Superscript = wdUndefined <8YvsJ  
    End With J/3$I  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat yE~D0%Umq  
         c^&4m[?C[u  
        .LeftIndent = CentimetersToPoints(0) 2H`>Kj  
        .RightIndent = CentimetersToPoints(0) KT17I&:  
        .FirstLineIndent = CentimetersToPoints(0) [KCR@__  
         ,L C(Ax'.F  
        .LineSpacingRule = wdLineSpaceSingle %xKZ" #Z#K  
        .Alignment = wdAlignParagraphLeft 2.\"Q  
         m/;fY>}3  
        .WidowControl = True bcT'!:  
        .KeepWithNext = True V(g5Gn?  
        .KeepTogether = True D;*cy<_K8  
        .PageBreakBefore = False 3E0C$v KM  
        .OutlineLevel = wdOutlineLevelBodyText X\>/'fC$  
         p=^6V"'  
        .CharacterUnitLeftIndent = 0 5" (FilM  
        .CharacterUnitRightIndent = 0 Q- w_ @~  
        .CharacterUnitFirstLineIndent = 2 m77 !i>V)  
         GDb V y)&  
        .LineUnitBefore = 0 3w"_Onwk  
        .LineUnitAfter = 0 4?bvJJuf)  
         A~^x*#q{4  
    End With c]i;0j? Dl  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False QjD=JC+  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll |>1#)cONW  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese Az-!X!O*f  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True !}5rd\  
    DoEvents ;/kmV~KG  
     _xy[\X;9  
    '正文校式 IM,4Si2  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") )3<>H!yG}  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" <;uM/vS i  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False 5X 9Lh_p  
    With ActiveDocument.Styles("QLNU正文").Font mD|Q+~=|e  
         A- J#$B  
        .NameFarEast = "宋体" fsWIz1K  
        .NameAscii = "Times New Roman" i29a1nD4Hm  
        .NameOther = "宋体" awjAv8tPO!  
        .Name = "宋体"  ;]bW  
         VDxF%!h(  
        .Size = 12               '小四号 kB%.i%9\\  
         27}7 n  
        .Bold = wdUndefined n&a\mGF  
        .Italic = wdUndefined gf>GK/^HH  
        .Subscript = wdUndefined 9M ;Y$Z  
        .Superscript = wdUndefined LFZ*mRiuKE  
         @= =)  
        .Outline = False /8Z&Y`G  
        .Emboss = False TuaP  
        .Shadow = False sZ7~AJ  
        .Hidden = False ;lS sy  
         Z3=N= xY]  
        .DisableCharacterSpaceGrid = True 7j29wvSp5  
    End With k8l7.e*  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat 7#Uzz"^  
         6'.)z ,ts  
        .LeftIndent = CentimetersToPoints(0) h0HK~S#xBv  
        .RightIndent = CentimetersToPoints(0) jc\y{I\  
        .FirstLineIndent = CentimetersToPoints(0) P,(_y8  
         Rg+# (y  
        .LineSpacingRule = wdLineSpaceExactly X?;iSekI4  
        .LineSpacing = 20 EEo I|  
        .Alignment = wdAlignParagraphLeft 9MQjSNYzo  
         Se37-  
        .WidowControl = False #k[Y(_  
        .KeepWithNext = False  A; *<  
        .KeepTogether = False ?YUL~P  
        .PageBreakBefore = False iX WB  
        .Hyphenation = False  Mz+vT0  
         ]EUQMyR  
        .OutlineLevel = wdOutlineLevelBodyText =-&h@mB;G  
         cd=K=P}p  
       E|jU8qz>P  
        .CharacterUnitLeftIndent = 0 > _G'o  
        .CharacterUnitRightIndent = 0 /0$405  
        .CharacterUnitFirstLineIndent = 2 g_A#WQyh\'  
         u:6R|%1fNn  
        .LineUnitBefore = 0 %NTJih`  
        .LineUnitAfter = 0 |.$7.8g  
        .SpaceBefore = 0 B =7maYeU  
        .SpaceAfter = 0 nLC5FA7<  
         Y9&na&vY?  
        .DisableLineHeightGrid = True JIHIKH-#  
    End With Oi]B%Uxy=  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False B|8|f(tsSa  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll F S$8F  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese [LUqF?K&  
    ActiveDocument.Styles("QLNU正文").NoProofing = True nJ/}b/A{  
    DoEvents G \Nnw==v  
     Le{.B@2-"  
    '图片段落样式 )4.-6F7U?  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") B !wr}]  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" .:GOKyr(~  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False N2Ysi$  
    With ActiveDocument.Styles("QLNU图片段落").Font n)z:C{  
        .Size = 12               '小四号 g#Ta03\  
        .Italic = wdUndefined b'z\|jY  
        .Subscript = wdUndefined Rha|Rk~  
        .Superscript = wdUndefined YU!s;h  
    End With lN0u1)'2  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat E@#<p-@~  
         SXN] ${  
        .LeftIndent = CentimetersToPoints(0) wh2E$b(-  
        .RightIndent = CentimetersToPoints(0) HgBu:x?&  
        .FirstLineIndent = CentimetersToPoints(0) 0\s&;@xKk  
         O{Mn\M6  
        .LineSpacingRule = wdLineSpaceSingle Q1x15pVku/  
        .Alignment = wdAlignParagraphCenter da_0{;wR  
        .KeepWithNext = True x9S9%JG :  
        .OutlineLevel = wdOutlineLevelBodyText s:(z;cj/  
         9\T9pjdZE  
        .CharacterUnitLeftIndent = 0 ;>;it5 l=  
        .CharacterUnitRightIndent = 0 2;J\Z=7  
        .CharacterUnitFirstLineIndent = 0 @K}h4Yok  
         (ss,x CF  
        .LineUnitBefore = 0 EJQT\c  
        .LineUnitAfter = 0 Bu+?N%CBi  
    End With ZU;j z[}  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False ULgp ]IS  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll L GVy4D  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese }qWB=,8HQ  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True  %Pj}  
    DoEvents y~\uS  
      qm enj  
     ^]~!:Ej0  
    '第X章 ez)Ks`  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") pd & HC  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" q_mxZM ->  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False ):}A Quy]  
    With ActiveDocument.Styles("QLNU章节标题").Font Zm7, O8  
        .NameFarEast = "黑体" [N}QCy  
        .NameAscii = "Arial Black" fO .=i1 E}  
        .NameOther = "Arial Black" #6l(2d  
        .Name = "黑体" 12_ 7UWZ"  
        .Size = 16  pn) {v  
        .Bold = True 9s d}Z,l  
        .UnderlineColor = wdColorAutomatic b`,Sd.2=('  
        .Outline = False H* +7{;$  
        .Italic = wdUndefined N93R(x)%  
        .Subscript = wdUndefined 065=I+Vo  
        .Superscript = wdUndefined ry@p  
        .Scaling = 100 8.7q -<Q  
        .DisableCharacterSpaceGrid = True 9?~6{!m_9  
    End With UO!} 0'  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat e@ $ |xa")  
        .LineSpacingRule = wdLineSpaceSingle ; sqxFF@  
        .Alignment = wdAlignParagraphCenter P=\Hi.]%  
        .WidowControl = True vy2"B ch  
        .KeepWithNext = True G007[|  
        .KeepTogether = True 3K/ 'K[~  
        .PageBreakBefore = True ]VE3u_kR  
        .OutlineLevel = wdOutlineLevelBodyText ='_3qn.  
         (/!@ -]1  
        .LeftIndent = CentimetersToPoints(0) yF%e)6  
        .RightIndent = CentimetersToPoints(0) %6m' |(-  
        .FirstLineIndent = CentimetersToPoints(0) _-^mxC|M  
         E*fa&G~s )  
        .CharacterUnitLeftIndent = 0 |F<%gJ  
        .CharacterUnitRightIndent = 0 7^mQfQv  
        .CharacterUnitFirstLineIndent = 0 q^n LC6q  
         c': 4e)  
        .LineUnitBefore = 1 <*-8E(a  
        .LineUnitAfter = 0.5 Y6v#0pT  
         mV)t  
        .AutoAdjustRightIndent = False n:b,zssP  
        .DisableLineHeightGrid = True (TO<SY3AB  
        .FarEastLineBreakControl = True ccp9nXv  
        .WordWrap = True $b2~H+u(  
    End With 25 :vc0  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False V0&7MY*  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll 5,V*aP  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese `D$^SHfyz  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True 'Ffvd{+:8  
    DoEvents 3bjCa\ "  
     H@~tJ\L  
    '表格标题 W}} ZP];  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 9 `q(_\x  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" $#3[Z;\  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False JG1q5j##]b  
    With ActiveDocument.Styles("QLNU表格标题").Font  H{Lt,#  
        .NameFarEast = "楷体" 7 ,V_5M;t  
        .NameAscii = "Arial" 2tCw{Om*  
        .Name = "楷体" [p}~M-$V8Y  
        .Size = 10.5 rc~)%M<[2  
        .Bold = True Aayd3Ph0%  
        .Underline = wdUnderlineNone .tyV =B:h  
        .Italic = wdUndefined H\N} 0^ea  
        .Subscript = wdUndefined MpvGF7H  
        .Superscript = wdUndefined 8G|?R#&  
        .Color = wdColorAutomatic w^YXnLLJG  
    End With _x#y   
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat q;IuV&B  
         /C5py&#-I  
        .LineSpacingRule = wdLineSpaceSingle V[kn'QkWv  
        .Alignment = wdAlignParagraphCenter D%c^j9' 1  
        .KeepWithNext = True qt/6o|V  
        .KeepTogether = True +7n vy^m  
        .OutlineLevel = wdOutlineLevelBodyText Wa.!eAe}  
         rOO10g  
        .LeftIndent = CentimetersToPoints(0) w(t1m]pF[  
        .RightIndent = CentimetersToPoints(0) %g3QE:(2@q  
        .FirstLineIndent = CentimetersToPoints(0) e7\gd\  
          yOvV"x]  
        .CharacterUnitLeftIndent = 0 NYs<`6P:Y  
        .CharacterUnitRightIndent = 0 4xg1[Z%:  
        .CharacterUnitFirstLineIndent = 0 ,j\uvi(Y  
         ~ _tK.m3  
        .LineUnitBefore = 1 * LWihal  
        .LineUnitAfter = 0 O, :|  
         !?Y71:_!  
    End With ?i\V^3S n$  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False Gm=&[?}  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll Q u7ML]e?z  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese ggYi7Wzsd  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True Qz%q#4Zb  
    DoEvents |TkicgeS  
rd$T6!I  
    '表格首行 (x.qyYEoI  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") -U?%A:,a|  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False e^\#DDm  
    With ActiveDocument.Styles("QLNU表格首行").Font |ITb1O`_P  
        .NameFarEast = "楷体" 9F6dKPN:  
        .NameAscii = "Times New Roman" x!pd50-   
        .Name = "楷体" -f1}N|hy  
        .Size = 9 "wKJ8  
        .Bold = True Tyb'p9  
        .Underline = wdUnderlineNone ;:ZD<'+N  
        .Italic = wdUndefined QtW e,+WWV  
        .Subscript = wdUndefined g}K/ba'  
        .Superscript = wdUndefined 99,=dzm  
    End With gm8Jx hL  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat /h`gQyGuY  
        .LineSpacingRule = wdLineSpaceSingle .h4Z\R`  
        .Alignment = wdAlignParagraphCenter SMRCG"3qwA  
         E?|NYu#I6  
        .LeftIndent = CentimetersToPoints(0) g 2'K3e?.%  
        .RightIndent = CentimetersToPoints(0) @,6*yy O  
        .FirstLineIndent = CentimetersToPoints(0) S1'?"zAmd  
         #UI`+2w  
         fb^R3wd$ff  
        .CharacterUnitLeftIndent = -0.5 IB 4L(n1  
        .CharacterUnitRightIndent = -0.5 l[m*csDk"  
        .CharacterUnitFirstLineIndent = -0.5 4e; le&  
         t}pYSSTz  
        .LineUnitBefore = 0 Zy:q)'D=  
        .LineUnitAfter = 0 r<LWiM l?  
        .SpaceBefore = 0 },G rg~l  
        .SpaceAfter = 0 @Gw]cm  
         AeN:wOm  
    End With )J+rt^4|  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False nmE H/a  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll Us pv^O9_  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese P c5C*{C  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True {)!ua7GF0H  
    DoEvents ) .' + {  
uGW#z_{(n  
    '表格内容 {.o4U0+  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") q D=b+\F  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False 0oBAJP  
    With ActiveDocument.Styles("QLNU表格内容").Font k]R Q 7e  
        .NameFarEast = "楷体" qt"6~r!  
        .NameAscii = "Times New Roman" ]~f-8!$$R  
        .Name = "楷体" NiE`u m  
        .Size = 9 /l3O i@\  
        .Bold = False H_Sv,lwz;c  
        .Underline = wdUnderlineNone Nl%5OBm  
        .Italic = wdUndefined tI#65ox#  
        .Subscript = wdUndefined EGFPv'De  
        .Superscript = wdUndefined -~ 4kh]7%  
    End With '.S02=/  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat V$Oj@vI  
        .LineSpacingRule = wdLineSpaceSingle j> dZ26 >N  
        .Alignment = wdAlignParagraphCenter D(dV{^} 9  
         /7,@q?v  
        .LeftIndent = CentimetersToPoints(0) xCT2FvX6  
        .RightIndent = CentimetersToPoints(0) Dvl\o;  
        .FirstLineIndent = CentimetersToPoints(0) XH/!A`ZK  
         XbFo#Pwk  
        .CharacterUnitLeftIndent = -0.5 ;b=7m#5  
        .CharacterUnitRightIndent = -0.5 pm i[M)D  
        .CharacterUnitFirstLineIndent = -0.5 T-kHk(  
        .LineUnitBefore = 0 +ek6}f#  
        .LineUnitAfter = 0 yGC HWP  
        .SpaceBefore = 0 'xa EG,P  
        .SpaceAfter = 0 CD^@*jH9"  
    End With cd=H4:<T5  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False -y?ve od#  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll US9@/V*2  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese xUa9>=JU{  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True !O'p{dj][  
    DoEvents iXXaB +w  
';D>Z ?l  
    '图片标题 o : > (Tv  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") K]7[|qf&   
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" vMn$lT@  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False ?>vkY^/  
    With ActiveDocument.Styles("QLNU图片标题").Font )qFqf<:yc  
        .NameFarEast = "楷体" wq1s#ag<  
        .NameAscii = "Times New Roman" =T?Xph{  
        .Name = "楷体" 8. +f@wv  
        .Size = 10.5 5b I4' ;  
        .Bold = True ymqn1ja1  
        .Underline = wdUnderlineNone T<y fpUzX  
        .Italic = wdUndefined 7*Zm{r@u  
        .Subscript = wdUndefined ! /|B4Yv  
        .Superscript = wdUndefined /6n"$qon6  
        .Outline = False v{*2F  
        .Shadow = False cSG(kFQ  
        .Color = wdColorAutomatic gf4Hq&Rf  
    End With Ju;^^  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat BrzTOkeyG  
        .LineSpacingRule = wdLineSpaceSingle 0%IZ -])  
        .Alignment = wdAlignParagraphCenter J<Ki;_=I  
         oq1wU@n  
        .KeepWithNext = wdUndefined /6\uBy"Xt  
        .KeepTogether = True h2:TbQ  
        .OutlineLevel = wdOutlineLevelBodyText cP@H8|c=  
         #,})N*7  
        .LeftIndent = CentimetersToPoints(0) np}0O  X  
        .RightIndent = CentimetersToPoints(0) ^r7KEeVD  
        .FirstLineIndent = CentimetersToPoints(0) _ |HA\!  
         s`.J!^u`  
        .CharacterUnitLeftIndent = 0 L/vw7XNrX  
        .CharacterUnitRightIndent = 0 _2 5PyG  
        .CharacterUnitFirstLineIndent = 0 vQ $"|8,  
         GU Mf}y  
        .LineUnitBefore = 0 BZXee>3"  
        .LineUnitAfter = 0 p#r qe<Ua  
    End With 9O^~l2`  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False QAY:H@Gt:  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll Nr]guC?rE  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese ]<q!pE;t  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True HyYJ"54  
    DoEvents 4ISIg\:c*  
I {%( G(  
    '目录项 IM2<:N%'  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") I!K-* AB  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" JEZ0O&_R  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False J^~J&  
    With ActiveDocument.Styles("QLNU目录项").Font T`<Tj?:^&  
        .NameFarEast = "黑体" [<f9EeziB  
        .NameAscii = "Times New Roman" k{ZQM  
        .NameOther = "Times New Roman" UalwK  
        .Name = "黑体" gssEdJ  
        .Size = 10.5 LHA :frC  
        .Bold = False ;9J6)zg !n  
        .Italic = wdUndefined 4wa3$Pk  
        .Underline = wdUnderlineNone A L |,\s  
        .Color = wdColorAutomatic 5,|{|/  
        .Superscript = wdUndefined 0 EA3> $;  
        .Subscript = wdUndefined ozHL'H  
    End With G[OJ <px  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat \]\GDpu[  
         "tpD ->  
        .LineSpacingRule = wdLineSpaceSingle c@4$)68  
        .Alignment = wdAlignParagraphLeft Bw[IW[(~!  
         &/otoAr(  
        .WidowControl = False pB%oFWqK  
        .KeepWithNext = False #X'su`+  
        .KeepTogether = False nU#K=e =W  
        .PageBreakBefore = False 20J-VN:  
        .NoLineNumber = False Z*NTF:6c  
        .OutlineLevel = wdOutlineLevelBodyText $h=v ;1"  
         k<N5*k8M  
        .LeftIndent = CentimetersToPoints(0) ]Al)>  
        .RightIndent = CentimetersToPoints(0) (gcy3BX;  
        .FirstLineIndent = CentimetersToPoints(0) R7FI{ A  
         ke/4l?zs  
        .CharacterUnitLeftIndent = 0 WBzPSnS2  
        .CharacterUnitRightIndent = 0 hW;n^\lF#e  
        .CharacterUnitFirstLineIndent = 0 F)/4#[  
         EgzdRB\Cf  
        .LineUnitBefore = 0 -ni@+Dy  
        .LineUnitAfter = 0 < 5ULu(b&$  
    End With a/%qn-i|p  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False 65RD68a  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll evVxzU&  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot -h8Z@r~a/  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese ;MlPP)*k  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True u `!Dp$P  
    DoEvents G2|G}#E  
     " Z dI~  
    '参考文献 ^R7X!tO q4  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") wg:\$_ Og  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" n2[h`zm1{B  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False ?D_}',Wx  
    With ActiveDocument.Styles("QLNU参考文献").Font sULsUt#  
        .NameFarEast = "宋体" 7c@5tCcC-  
        .NameAscii = "Times New Roman" yy3`E}vX7  
        .NameOther = "Times New Roman" 6IJ;od.\b$  
        .Name = "Times New Roman" e\*(F3r  
        .Size = 12 qB`%+<)C  
        .Bold = False cnG>EG  
        .Italic = wdUndefined >+:cTQ|q  
        .Subscript = wdUndefined -`t9@1P> =  
        .Superscript = wdUndefined Upg8t'%{op  
        .Underline = wdUnderlineNone MdTu722  
        .UnderlineColor = wdColorAutomatic Az>r}*F Gr  
        .Color = wdColorAutomatic 5fmQ+2A C1  
        .Engrave = False {q~N$"#  
    End With T[cJ   
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat 'CG% PjCO  
         F hyY+{%  
        .LineSpacingRule = wdLineSpaceExactly ~)ysEZl  
        .LineSpacing = 16 9p4SxMMO  
        .Alignment = wdAlignParagraphLeft KyqP@ {  
        .WidowControl = False d9T:0A`M  
        .KeepWithNext = False M}=fdH  
        .KeepTogether = False E?Qg'|+_  
        .PageBreakBefore = False rQTG-& ,  
        .OutlineLevel = wdOutlineLevelBodyText Uqly|FS &n  
         +p]@b  
        .LeftIndent = CentimetersToPoints(0) 7|!Zx-}  
        .RightIndent = CentimetersToPoints(0) !rG-[7K  
        .FirstLineIndent = CentimetersToPoints(0) 6&2{V? W3  
         <v\x<ul 6  
        .CharacterUnitLeftIndent = 0 bp}]'NA  
        .CharacterUnitRightIndent = 0 v Et+^3=  
        .CharacterUnitFirstLineIndent = -2 t+0/$  
         z38Pi  
        .LineUnitBefore = 0 yK_$d0ZGE~  
        .LineUnitAfter = 0 Ch~y;C&e+r  
        .SpaceBefore = 0 [DtMT6F3  
        .SpaceAfter = 0 .n?i' 8  
         =xb/zu(  
    End With z 5~X3k7  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False J10&iCr{r*  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll |]Y6*uEX<  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS 8CvNcO;H0  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True mQK3YoC)  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese RE]*fRe7#  
    DoEvents GQE7P()   
$)=`Iai  
    ' scrss  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") 1gLET.I:  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" &oFgZ.  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False = ">0\#  
    With ActiveDocument.Styles("QLNU论文题目").Font 5T'v iG}%  
        .NameFarEast = "黑体" lg^Lk\Y+re  
        .NameAscii = "Arial Black" =65XT^  
        .NameOther = "Arial Black" cf%2A1I2W  
        .Name = "Arial Black" 7Q&S [])  
        .Size = 16 `bd9N !K  
        .Bold = False #!r>3 W&  
        .Italic = wdUndefined v.gAi6  
        .Superscript = wdUndefined MO uEsm;  
        .Subscript = wdUndefined CXi:?6OG  
        .Underline = wdUnderlineNone 4#ifm#  
        .UnderlineColor = wdColorAutomatic b,(<74!#8  
        .Color = wdColorAutomatic )|Ka'\xr  
DKl\N~{F  
    End With .9<euPrz  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat N[yS heT  
        .LineSpacingRule = wdLineSpaceSingle Y"m}=\4{  
        .Alignment = wdAlignParagraphCenter IhK%.B{dZ  
        .WidowControl = True `vf]C'  
        .KeepWithNext = True R+Ug;r-[  
        .KeepTogether = True ~C?)- ]bF  
        .PageBreakBefore = True GAh\ 6ul  
        .NoLineNumber = False 4:kDBV;v  
        .OutlineLevel = wdOutlineLevelBodyText Enp;-wG:-  
         $5Rx>$~+d  
        .LeftIndent = CentimetersToPoints(0) koj*3@\p/  
        .RightIndent = CentimetersToPoints(0) +.*=Fn22  
        .FirstLineIndent = CentimetersToPoints(0) oS_YQOoD  
         fA ), ^  
        .CharacterUnitLeftIndent = 0 =>GGeEL  
        .CharacterUnitRightIndent = 0 &.Yu%=}  
        .CharacterUnitFirstLineIndent = 0 A "'h0D  
         e8z?) 4T  
        .LineUnitBefore = 1 /d$kz&aIV  
        .LineUnitAfter = 1 F9q!Upr_+  
         $bZ5@)E  
        .BaseLineAlignment = wdBaselineAlignAuto 1Z_ H% (  
    End With Ve40H6 Ox  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False 3i9~'j;F3  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll w3ZO CWJS  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS  SxX  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True e&Z ?I2J  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese <anU#bEuQ  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True OgCNq W d-  
    DoEvents `t g=__D  
     X %`:waR  
    '中文摘要 '\"5qB  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") QS-X _  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" _) UnH p_^  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False @U =~ c9  
    With ActiveDocument.Styles("QLNU中文摘要").Font Nlu]f-i':  
        .NameFarEast = "宋体" UGoB7TEfn  
        .NameAscii = "Times New Roman" =}SL QdT  
        .NameOther = "Times New Roman" r[2*K 9  
        .Name = "Times New Roman" P|;f>*^Y  
        .Size = 12 g}*p(Tp9:  
        .Bold = wdUndefined F-D$Y?m  
        .Superscript = wdUndefined shVEAT'`  
        .Subscript = wdUndefined ~!/agLwY  
        .Italic = wdUndefined 2>Qy*  
        .Underline = wdUnderlineNone }=u#,nDl>$  
        .UnderlineColor = wdColorAutomatic Z07n>|WF-  
        .Color = wdColorAutomatic DJ!pZUO{  
    End With `?"r\Qo<  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat 7<X!Xok  
        .LineSpacingRule = wdLineSpaceExactly k<rJm P{  
        .LineSpacing = 20 g$qM}#s0}  
        .Alignment = wdAlignParagraphLeft : TqeVf  
         >.hDt9@4  
        .WidowControl = False  nM99AW  
        .KeepWithNext = False FbW$H]C$  
        .KeepTogether = True +\>op,_9I  
        .PageBreakBefore = False Xp fw2;`U'  
        .NoLineNumber = False !H6X%hlk  
        .OutlineLevel = wdOutlineLevelBodyText LO38}w<k  
         FrV8_[  
        .LeftIndent = CentimetersToPoints(0) V&lx0Dy  
        .RightIndent = CentimetersToPoints(0) aT BFF  
        .FirstLineIndent = CentimetersToPoints(0) gMU%.%p2  
         \[wbJ  
        .CharacterUnitLeftIndent = 0 CH5>u  
        .CharacterUnitRightIndent = 0 :fnK`RnaQ  
        .CharacterUnitFirstLineIndent = 2 <s'0<e!./t  
        .LineUnitBefore = 0 !3z ;u8W  
        .LineUnitAfter = 0 1buO&q!vn  
         LQ||7>{eX  
    End With LFvZ 7M\\  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False "@Qg]#]JH  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll -N A2+].  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS  jQ-2SA O  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True @r\{iSg&g.  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese *\`<=,H6<  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True ]y"=/Nu-Ja  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete h)z2#qfc  
    DoEvents $1k@O@F(4  
     ,!P}Y[|  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") #+|0o-  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" D@c@Dt  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False O! _d5r&,  
    With ActiveDocument.Styles("QLNU英文标题").Font STPRC&7;  
        .NameFarEast = "黑体" cPg{k}9Tvy  
        .NameAscii = "Arial Narrow" *lQa^F  
        .Name = "Arial Narrow" ,z> w^_  
        .Size = 16 5>~D3?IAd  
        .Bold = True A5sz[k  
        .Bold = wdUndefined hOuHTo^  
        .Superscript = wdUndefined ^szi[Cj  
        .Subscript = wdUndefined ao@CPB6N  
        .Italic = wdUndefined /.sho\a  
         U7-*]ik  
        .Underline = wdUnderlineNone vr_Z0]4`C9  
        .UnderlineColor = wdColorAutomatic X-psao0tI`  
        .StrikeThrough = False 2_)gJ_kP  
        .DoubleStrikeThrough = False 6<f(Zv? I  
    End With 1 r3} V7  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat 9d!mGnl  
        .LineSpacingRule = wdLineSpaceSingle D4~]:@v~n  
        .Alignment = wdAlignParagraphCenter Xu|2@?l9  
        .WidowControl = True 4Ujy_E?^  
        .KeepWithNext = False S[N9/2  
        .KeepTogether = False XaMsIyhI  
        .PageBreakBefore = False Epm8S}6K  
        .NoLineNumber = False +R;s< pZ^  
        .FirstLineIndent = CentimetersToPoints(0) !mUO/6Q hq  
        .OutlineLevel = wdOutlineLevelBodyText ;ssI8\LG  
         BteeQ&A |~  
        .LeftIndent = CentimetersToPoints(0) <@Y`RqV+  
        .RightIndent = CentimetersToPoints(0) J_9[ x mM  
        .FirstLineIndent = CentimetersToPoints(0) a`LkP%  
         vD(:?M  
        .CharacterUnitLeftIndent = 0 QI78/gT,d  
        .CharacterUnitRightIndent = 0 4EaxU !BT  
        .CharacterUnitFirstLineIndent = 0 p+b$jKWQ  
         \=o0MR  
        .LineUnitBefore = 1 7&w|  
        .LineUnitAfter = 1 SEH[6W3  
         #WAX&<m  
    End With b|\dHi2F T  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False (]zi;  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll v3<q_J'qT  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS z8xBq%97us  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True @0 [^ SU?  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese ! w;/J^  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True +M<W8KF  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete $  k_6  
    DoEvents -TS,~`O  
6-+ wfrN2  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") z :u)@>6D1  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" y>^0q/=]?O  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False m!]J{OGG:  
    With ActiveDocument.Styles("QLNU英文摘要").Font xT!<x({  
        .NameFarEast = "宋体" SnM^T(gtS3  
        .NameAscii = "Arial" D Z9^>`*  
        .NameOther = "Arial" QuC_sFP10  
        .Name = "Arial" ^@Z8 _PZo  
        .Size = 12 amWKykVS5  
        .Bold = wdUndefined ,,lR\!>8  
        .Italic = wdUndefined FwD q@Oj  
        .Superscript = wdUndefined Z EvK  
        .Subscript = wdUndefined uJ0Wb$%  
    End With #)O^aac29  
     g2A#BMe'.$  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat  "+Sq}WR  
         Rgl cd  
        .LineSpacingRule = wdLineSpaceExactly ]kF1~kXBe  
        .LineSpacing = 20 F 6C7k9  
         Ei=rBi  
        .Alignment = wdAlignParagraphJustify QXgfj o  
         "akAGa!V+  
        .WidowControl = False t=fP^bJ  
        .KeepWithNext = False  {@k , e  
        .KeepTogether = False @|e we. r  
        .PageBreakBefore = False %.HLO.A  
        .NoLineNumber = False [8K :ml  
         =T1Xfib  
        .OutlineLevel = wdOutlineLevelBodyText Q2F20b  
         q4,/RZhzh  
        .LeftIndent = CentimetersToPoints(0) *eI{g  
        .RightIndent = CentimetersToPoints(0) WuTkYi F  
        .FirstLineIndent = CentimetersToPoints(0) M4% 3a j  
         8]rObT9>  
        .CharacterUnitLeftIndent = 0 z";(0%  
        .CharacterUnitRightIndent = 0 G#A6< e/  
        .CharacterUnitFirstLineIndent = 2 "/Gw`^t  
         VmRfnH"  
        .LineUnitBefore = 0 6{yn;D4  
        .LineUnitAfter = 1 DhD##5a  
         m7i(0 jd +  
    End With r`< x@,  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False : t /0  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll 0f_ A"K  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS %P:|B:\<  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False xC}'"``s  
    DoEvents ab]Q1kD  
U} w@,6  
    Options.Pagination = True oA@c.%&  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." w c&D[M]-/  
    DoEvents '%o^#gJp  
    ActiveDocument.Repaginate {SD%{  
z#GSt ZT  
End Sub ,Z} ST|$u  
.K`n;l Vs  
r|i)  
杺栫杣杊椌柮栬，䒴蓉艿芖。
回复 引用
举报顶端
伍胥之 离线
级别: 军区司令员

显示用户信息 
101楼  发表于: 2024-12-28   
只看该作者 ┊  小 中 大
姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 N">#fYix  
oK$Krrs0&  
引用
引用第20楼newport93于06-14-2010 13:47发表的  : VL'wrgk  
yrl7  
老五，I 服了U。 WWo"De@  
kk4+>mk  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 w~Nat7nD  
0WYu5|   
杺栫杣杊椌柮栬，䒴蓉艿芖。
回复 引用
举报顶端
上一主题下一主题
«3456»Pages: 6/6
 Bay Area Chinese--灣區華人 » 乱讲
描述
快速回复

验证问题:
3 * 6 = ? 正确答案:18
按"Ctrl+Enter"直接提交