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

显示用户信息 
100楼  发表于: 2021-07-18   
只看该作者 ┊  小 中 大
Dim bContinue As Boolean YU-wE';H6  
A+M4=  
Dim regEX As New RegExp HN NeH;L  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 rBmW%Gv  
J[6/dM  
Dim LastTitle0String As String, LastTitle0No As Long #Y7iJPO  
Dim LastTitle1String As String, LastTitle1No As Long /ojwOJ  
Dim LastTitle2String As String, LastTitle2No As Long ^2Cqy%x-  
Dim LastTitle3String As String, LastTitle3No As Long dNf9,P_}  
Dim LastTitle4String As String, LastTitle4No As Long ?GNR ab  
Dim LastTitle5String As String, LastTitle5No As Long ZrEou}z(*  
Dim LastTabelString As String, LastTableNo As Long <}~ /. Cx  
Dim LastFigureString As String, LastFigureNo As Long )J@[8 x`  
_VdJFjY?zc  
Dim strSeperator As String >l)x~Bkf$j  
IrCl\HQN  
Sub ConvertWidth(fTEXT As String, rText As String) c!6v-2ykv  
        Selection.Find.ClearFormatting u->[ y1JY  
        Selection.Find.Replacement.ClearFormatting ,0h{RZKw  
        Selection.Find.Wrap = wdFindContinue q! 0HsF  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText T DR|*Cs  
        DoEvents [DjlkA/Zg  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True ? 3fnt"  
End Sub H4 O"^#5  
3lWGa7<4Z  
Sub ClearDomain() 2*w`l|Sx  
        With Selection.Find h/\ Zq  
            .ClearFormatting n]#YL4j  
            .Replacement.ClearFormatting :!Q(v(M  
            .Wrap = wdFindContinue S;Sy.Lp  
            Me.txtStatus.Text = "清除所有域代码" Xk%eU>d  
            DoEvents VO:  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False >ph=?M KD  
        End With Kn$E{F\  
End Sub #@BhGB`9Qt  
z.hq2v  
Private Sub cmdCheck_Click() 83V\O_7 j  
    bContinue = True ]SA/KV   
    Dim NoSeries1(1 To 16) As String 4uO88[=  
    Dim NoSeries2(1 To 16) As String 81|[Y'f  
    Dim NoSeries5(1 To 16) As String 9'H:pb2  
    Dim NoSeriesRM(1 To 16) As String OCdX'HN5Y  
    Dim paraTotal As Long, ParaText As String Szu @{lpP@  
    Dim ttString As String, ttNo As String "6%{#TZ  
     W#g!Usf:/  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long igTs[q=Ak  
',[AKXJ  
    Me.txtStatus.Visible = True -!~pa^j  
    Me.lbParaType.Visible = True a] c03$fK  
    Me.cmdCheck.Enabled = False ZK t{3P  
     h~sTi  
     Ou4hAm91s  
      -V2`[k  
     J#wf`VR%  
    Dim ParaType As String, rText As String OjffN'a+N  
     jNX6Ct?  
    Selection.WholeStory \Kui`X  
    Selection.NoProofing = True b)Nd}6}<?  
     WNjG/U  
    tm1 = Now X{cB%t o  
     %u9 Q`  
        ActiveWindow.View.Type = wdNormalView C~>0K,C0^  
     ckFPx l.  
    NoSeries1(1) = "一" e/ g9r  
    NoSeries1(2) = "二" 3:WHC3}W  
    NoSeries1(3) = "三" KS5a8'U  
    NoSeries1(4) = "四" fI;nVRf p  
    NoSeries1(5) = "五" \bF<f02P  
    NoSeries1(6) = "六" 8hww({S2  
    NoSeries1(7) = "七" <e 9d5-2  
    NoSeries1(8) = "八" F7C+uG Ts  
    NoSeries1(9) = "九" qm_ r~j  
    NoSeries1(10) = "十" 6W YVHG  
    NoSeries1(11) = "十一" XLi wE$:t%  
    NoSeries1(12) = "十二" :yJ#yad  
    NoSeries1(13) = "十三" s7}-j2riq  
    NoSeries1(14) = "十四" l=P)$O|=w  
    NoSeries1(15) = "十五" 9wfE^E1  
    NoSeries1(16) = "十六" KI\bV0$p<  
     gAEB  
    NoSeries2(1) = "㈠" = =pQ V[  
    NoSeries2(2) = "㈡" RRy D<7s1  
    NoSeries2(3) = "㈢" .u&X:jOE  
    NoSeries2(4) = "㈣" $HOe){G  
    NoSeries2(5) = "㈤" VgbT/v  
    NoSeries2(6) = "㈥" A?n5;m vq#  
    NoSeries2(7) = "㈦" ;8MQ'#  
    NoSeries2(8) = "㈧" 7R5ebMW V  
    NoSeries2(9) = "㈨" Q1kM 4Up  
    NoSeries2(10) = "㈩" ~FAk4z=Ed  
     a6h+?Q7uF  
    NoSeries5(1) = "①" GE] QRKf  
    NoSeries5(1) = "②" NoF|j57?u'  
    NoSeries5(3) = "③" |AExaO"jk  
    NoSeries5(4) = "④" 3dZj<(.  
    NoSeries5(5) = "⑤" nvQX)Xf  
    NoSeries5(6) = "⑥" Xajt][  
    NoSeries5(7) = "⑦" %=K[C  
    NoSeries5(8) = "⑧" I+Yq",{%  
    NoSeries5(9) = "⑨" % mPv1$FH  
    NoSeries5(10) = "⑩" _Ad63.Uq))  
     HI:1Voy  
     FU*q9s`  
    NoSeriesRM(1) = "I" XkUwO ]  
    NoSeriesRM(2) = "II" 45-x$o  
    NoSeriesRM(3) = "III" \ 6taC  
    NoSeriesRM(4) = "IV" \kI{#   
    NoSeriesRM(5) = "V" (0y!{ (a  
    NoSeriesRM(6) = "VI" 1jzu-s ,F  
    NoSeriesRM(7) = "VII" WaX!y$/z  
    NoSeriesRM(8) = "VIII" >u0XV"g$  
    NoSeriesRM(9) = "IX" 7ieAd/:_  
    NoSeriesRM(10) = "X" dlZ2iDQ%  
    NoSeriesRM(11) = "XI" R9-mq; u+  
    NoSeriesRM(12) = "XII" (O!CH N!:  
    NoSeriesRM(13) = "XIII" '?I3&lYz{  
    NoSeriesRM(14) = "XIV" x5g&?2[  
    NoSeriesRM(15) = "XV" `N}V i6FG  
    NoSeriesRM(16) = "XVI" j)ln"u0R^B  
     =s.0 f:(  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) (8ct'Q;  
     t}}Ti$$>  
    If i = vbNo Then ^pY8'LF6  
        Exit Sub ~S~+'V,d  
    End If #d<"Ub  
     a)S6Z  
    If Me.chkSuper.Value Then w?*79 u  
        Me.txtStatus.Text = "检查修改所有的上标格式" <ir]bQT  
     2V; Dn$q  
        CheckSuperScript op-\|<i  
         5(1c?biP&  
    End If q l5&&e=-  
     {Qd oI Pr3  
    If Me.chkStyle.Value Then b O}&i3.L;  
        Me.txtStatus.Text = "设置样式，请稍候...." h4ntjk|{i7  
        DoEvents yfqe6-8U  
        CeateOrModifyStyle Fku<|1}&y  
    End If N2j^fZd_  
     c *<BU6y  
     fY =:geB  
     =_ N $0  
    ClearDomain g 6?y{(1  
         keQRS+9  
     #Ddo` >`&  
     lOb(XH9  
    If Me.chkLIST.Value Then M 'X,7hZ  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" 7&jq  =  
     b ~]v'|5[  
        ConvertListToOrdinary !YO'u'4<aK  
    End If * _usVg  
     "85)2*+  
     zFYzus`>  
    Dim pType As String, trimpTEXT As String NTK9`#SA  
    If Me.chkNum.Value = True Then H;AMRL o4z  
        Me.txtStatus.Text = "转换全角数字形式为半角" `{IL.9M!f  
        ConvertWidth "１", "1" yZoJD{'?Sw  
        DoEvents S&l [z,  
        ConvertWidth "２", "2" )3|a_   
        DoEvents .n.N.e  
        ConvertWidth "３", "3" O\=Zo9(NHF  
        DoEvents q!><:"#[G  
        ConvertWidth "４", "4" ^HuB40  
        DoEvents /Wl8Jf7'  
        ConvertWidth "５", "5" *(wxNsK  
        DoEvents  (t@!0_5  
        ConvertWidth "６", "6" hZo  f  
        DoEvents E}0g  
        ConvertWidth "７", "7" F4V) 0)G  
        DoEvents BSr#;;\  
        ConvertWidth "８", "8" jc !V|w^  
        DoEvents Zv mkb%8  
        ConvertWidth "９", "9" !"hzGgOOX  
        DoEvents z wwJyy%/  
        ConvertWidth "０", "0" yP` K [/  
        DoEvents 5L7 nEia'  
        ConvertWidth "ａ", "a" C(>g4.-p8  
        DoEvents  Ks^wX  
        ConvertWidth "ｂ", "b" }2c&ARQ.m>  
        DoEvents =l] lwA -  
        ConvertWidth "ｃ", "c" hVFZQJ?cv  
        DoEvents /c!^(5K fT  
        ConvertWidth "ｄ", "d" 5~[][VV^  
        DoEvents {5ehm  
        ConvertWidth "ｅ", "e" 0Q#}:  
        DoEvents \?Xoa" ^  
        ConvertWidth "ｆ", "f" |{,c2 Ck:N  
        DoEvents V+U89j1g  
        ConvertWidth "ｇ", "g" b o_`P3  
        DoEvents z.h;}QRJ,@  
        ConvertWidth "ｈ", "h" \fvm6$ rZ^  
        DoEvents ApggTzh@  
        ConvertWidth "ｉ", "i" T.%yeJiE  
        DoEvents OYmutq  
        ConvertWidth "ｊ", "j" 8090+ ( U  
        DoEvents sUiO~<Ozpk  
        ConvertWidth "ｋ", "k" ^, f^YL;  
        DoEvents n8\88d  
        ConvertWidth "ｌ", "l" +l]> (k.2  
        DoEvents v/vPU  
        ConvertWidth "ｍ", "m" ?-0, x|ul  
        DoEvents Ui1s ]R  
        ConvertWidth "ｎ", "n" 96; gzG@1!  
        ConvertWidth "ｏ", "o" y5^OD63s  
        ConvertWidth "ｐ", "p" #Lk~{  
        ConvertWidth "ｑ", "q" y La E]  
        ConvertWidth "ｒ", "r" #tw_`yh  
        ConvertWidth "ｓ", "s" 8NNs_~+x}  
        ConvertWidth "ｔ", "t" Jko=E   
        ConvertWidth "ｕ", "u" ?y  "M>#  
        ConvertWidth "ｖ", "v" 5vS[{;<&  
        ConvertWidth "ｗ", "w" :7Uv)@iUk  
        ConvertWidth "ｘ", "x" hc9 ON&L\>  
        ConvertWidth "ｙ", "y" fb[lL7  
        ConvertWidth "ｚ", "z" 4}*.0'Hz  
        ConvertWidth "Ａ", "A" xd"+ &YT  
        ConvertWidth "Ｂ", "B" +.rOqkxJ  
        ConvertWidth "Ｃ", "C" k`z]l;:  
        ConvertWidth "Ｄ", "D" ?V~vP%1  
        ConvertWidth "Ｅ", "E" @li/Y6Wh  
        ConvertWidth "Ｆ", "F" xj AU Csq  
        ConvertWidth "Ｇ", "G" $i!r> .Jo  
        ConvertWidth "Ｈ", "H" /74h+.amg  
        ConvertWidth "Ｉ", "I" U ){4W0  
        ConvertWidth "Ｊ", "J" 7dE.\#6r  
        ConvertWidth "Ｋ", "K" [P}mDX  
        ConvertWidth "Ｌ", "L" ?Ycl!0m  
        ConvertWidth "Ｍ", "M" Dwr"-  
        ConvertWidth "Ｎ", "N" oxI?7dy5  
        ConvertWidth "Ｏ", "O" 8`1]#Vw  
        ConvertWidth "Ｐ", "P" i ;Kax4k  
        ConvertWidth "Ｑ", "Q" `6#s+JA[  
        ConvertWidth "Ｒ", "R" a>d`g  
        ConvertWidth "Ｓ", "S" rmWs o b  
        ConvertWidth "Ｔ", "T" 1TGE>HG  
        ConvertWidth "Ｕ", "U" ])?h ~  
        ConvertWidth "Ｖ", "V" Vvfd?G"  
        ConvertWidth "Ｗ", "W" E1w8d4P,G  
        ConvertWidth "Ｘ", "X" #IDLfQ5g  
        ConvertWidth "Ｙ", "Y" 7.)_H   
        ConvertWidth "Ｚ", "Z" zR/mz)6_  
        ConvertWidth "^l", "^p" AG;KXL[V  
        ConvertWidth "（", "(" tef>Py  
        ConvertWidth "）", ")" U1 rr=h g  
     B:cQsaty  
    End If k f|J  
)>"K y  
    With ActiveDocument (_3'nFg  
        Dim tbl As Table NweGK  
        For Each tbl In .Tables .SSyW{a3w  
            tbl.Rows.Alignment = wdAlignRowCenter P)Oe?z;G?  
            tbl.Range.Font.NameFarEast = "楷体" P{J9#.Zq&s  
            tbl.Range.Font.NameAscii = "Times New Roman" ]HXHz(?;F  
            tbl.Range.Font.Size = 10.5 QOPh3+.5  
        Next !HhF*Rlr  
        Set tbl = Nothing \;Q!}_ K  
    End With eQ6wEeB9  
     0~[M[T\  
     Nm-E4N#'i  
    With ActiveDocument 6iHY{WcDj  
         ZTB6m`  
        For i = 1 To .TablesOfContents.Count ~Dw% d;  
            .TablesOfContents(i).Delete >'WTVj`  
        Next b J6 H6D>  
         */@I$*  
         c7WOcy@M  
         Y ;E'gP-J  
        paraTotal = .Paragraphs.Count +^AAik<yl  
        paraCounter = 1 t56PzT'M  
         i],~tT|P  
        LastTitle0No = 0 VP~%,=  
        LastTitle1No = 0 S<i. O  
        LastTitle2No = 0 q['3M<q  
        LastTitle3No = 0 v:9'k~4)  
        LastTitle4No = 0 Tks1gN^^  
        LastTableNo = 0 ^q%f~m,O<  
        LastFigureNo = 0 ~6QV?j  
         +9yMtR  
        Dim Sec As Long Lm1JiP s d  
         497l2}0  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) k;SKQN  
        If Sec = 0 Then ,[dvs&-*  
            Exit Sub pu ?CO A  
        End If B T {cTj0W  
         3Q7PY46  
        k = 0 )"2eN3H/  
        Do While (paraCounter < paraTotal) And bContinue ?=-/5A4K  
            k = k + 1 &h7 n>q  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then ![]6| G&  
                Exit Do 9JILK9mVO  
            End If ;WrG\R/|  
            paraCounter = paraCounter + 1 ]n:R#55A  
            If k Mod 20 = 0 Then & \"cV0  
                Me.lbCounter.Caption = paraCounter VyNU<}  
                DoEvents +t Prqv"(  
            End If `JGW8 _  
        Loop DPmY_[OAE  
         vkG%w;  
         J{XRltI+  
        Do While (paraCounter < paraTotal) And bContinue 'L{pS-+6  
             Zz 'g&ewo  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) )!G 10  
            ShapeHeight = 0 wM-H5\9n  
            ShapeWidth = 0 ^AXH}g  
           nhZ/^`Y<  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth :DuEv:;v  
             =`C K`x  
            Select Case ParaType _,e4?grP#  
                Case "【】表格内容" TXs&*\  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" gt~u/Z%  
                Case "章"  R; &k/v  
                    LastTitle0No = LastTitle0No + 1 N_+D#Z.g  
                    '新一章开始，复位其下属标题编号 IEkbVIA(  
                    LastTitle1No = 0 D+q z`  
                    LastTitle2No = 0 G$CSZrP.  
                    LastTitle3No = 0 Mdp'u$^!  
                    LastTitle4No = 0 e~R_bBQ0  
                     lKqFuLHwF  
                    k = Val(ttNo) pY%KI  
                    If k = 0 Then '非数字编号章节 MFWkJbZV  
                        If ttNo <> NoSeries1(LastTitle0No) Then {FILt3f;  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString ^![7X'!;pt  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText i2[8^o`_  
                        End If x>A[~s"|N  
                    Else ]xJ. OUJy  
                        If Val(ttNo) <> LastTitle0No Then '9&@?P;  
                            rText = "第" & LastTitle0No & ttString Of9 gS-m  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText 28- z  
                        End If \D D4=XGA  
                         q$ j  
                    End If NMrf I0tbG  
                     N\?__WlBK7  
                    '章段落设置 4TiHh  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 2Ib 1D  
                    .Paragraphs(paraCounter).Style = "QLNU章节" *#?9@0b@  
                    .Paragraphs(paraCounter).Range.Select ?UeV5<TewS  
                    Selection.EndKey unit:=wdLine ]j$(so"  
                    tc = Replace(rText, vbCr, "") qn}VW0!  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False dAOJ: @y  
                Case "一级标题" &Rz-;66bN  
                    LastTitle1No = LastTitle1No + 1 g2u\gR5  
                    '新一级标题开始，复位其下属标题编号 hm<:\(q  
                    LastTitle2No = 0 WK#%G  
                    LastTitle3No = 0 0| =y#`;,Z  
                    LastTitle4No = 0 Aq>?G+  
                     3mg:9]X9  
                    If ttNo <> NoSeries1(LastTitle1No) Then I@#IXH?6  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString Rz*GRe  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText 23Q 88z   
                    End If  K]dR%j  
                   vuJEPn%  
                     REsw=P!b  
                    '一级标题段落设置  格式：一、标题内容 LA/Qm/T  
                    .Paragraphs(paraCounter).Range.Text = rText ]Qp-$)N  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" A#i[Us|  
                    .Paragraphs(paraCounter).Range.Select \E05qk_;K  
                    Selection.EndKey unit:=wdLine ^.~e  
                    tc = Replace(rText, vbCr, "") aQ&K a  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False #60gjHYaV  
                Case "二级标题" XCXX(8To0=  
                    LastTitle2No = LastTitle2No + 1 t23W=U  
                    '新二级标题开始，复位其下属标题编号 cBZJ  
                    LastTitle3No = 0 [l<&eI&ln  
                    LastTitle4No = 0 13Q87i5B  
                     K(TejW#  
                    If ttNo <> NoSeries1(LastTitle2No) Then }"kF<gG1  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString /paZJ}Pr.  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText ZcTjOy?  
                    End If 3m$Qd#|  
                     .O&YdUo  
                    '二级标题段落设置 格式：(一)、标题内容 h b}QtQ  
                    .Paragraphs(paraCounter).Range.Text = rText |BD2=7,z  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" 2nL*^hhh  
                     TDy$Mv=y  
                    .Paragraphs(paraCounter).Range.Select $uRi/%Q9  
                    Selection.EndKey unit:=wdLine 6%wlz%Fp  
                    tc = Replace(rText, vbCr, "") =&FaMR2  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False $) qL=kR  
                 ^B7Ls{  
                Case "三级标题" P1Iy >%3  
                    LastTitle3No = LastTitle3No + 1 [O]rf+NZ(5  
                    '新三级标题开始，复位其下属标题编号 N!-P2)@  
                    LastTitle4No = 0 G6JP3dOT  
                     ={o)82LV  
                    If Val(ttNo) <> LastTitle3No Then 7$IR^  
                            rText = LastTitle3No & ". " & ttString :$P1ps3B  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText rD !GEU  
                         ?papk4w  
                    End If GR 1%(,  
                    '三级标题段落设置 格式：1. 标题内容 oMoco tQ;$  
                    .Paragraphs(paraCounter).Range.Text = rText OF-g7s6VH  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" { qCFd  
                    .Paragraphs(paraCounter).Range.Select |~rKDc  
                    Selection.EndKey unit:=wdLine IQ xi@7%&  
                    tc = Replace(rText, vbCr, "") -q? ,  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False J*Cf1 D5!  
                Case "四级标题" rA8{Q.L  
                    LastTitle4No = LastTitle4No + 1 -"#jRP]#  
                     1vJj?Uqc  
                    If Val(ttNo) <> LastTitle4No Then (/{bJt~b  
                            rText = "(" & LastTitle4No & "). " & ttString }` <D KO/  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText #n|eq{fkK  
                     g!cW`B'  
                    End If ?<Mx*l  
                    '四级标题段落设置 格式：(1). 标题内容 n+2>jY  
                    .Paragraphs(paraCounter).Range.Text = rText dqFp"Xe"%  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" Re*~C:  
                    .Paragraphs(paraCounter).Range.Select L2%D$!9  
                    Selection.EndKey unit:=wdLine WQB V~.<Yv  
                    tc = Replace(rText, vbCr, "") j;-2)ZLm  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False 7fl{<uf  
                 xNLgcb@v>  
                Case "表格标题" y!q`o$nK  
                    LastTableNo = LastTableNo + 1 $ IdU  
                     >CHb;*U  
                    If ttNo <> CStr(LastTableNo) Then =gZA9@]W2  
                            rText = "表" & LastTableNo & ". " & ttString oc[z dIk  
                            ErrMsg.AddItem "表格编号错误：" & ParaText ,TYFPulYcp  
                   M.EL^;r  
                    End If ^U,Dx  
                     7>A M zNj  
                    '表格名称段落设置 格式：表1. 表格名称 nmyDGuzk  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" i#*lK7  
                    xe = Replace(rText, vbCr, "") )/2TU]//  
                    .Paragraphs(paraCounter).Range.Select lW4 6S  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 ~I~lb/  
                    Selection.Range.Text = xe &78lep  
                    Selection.EndKey Ies` !W^  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False )Z\Zw~L  
                 :"  JEC'  
                Case "表格首行" ln6=XDu  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" bPV; "  
                Case "图片标题" ^ _W] @m2  
                    LastFigureNo = LastFigureNo + 1 gebL6oc%  
                     s E;2;2u"  
                    If ttNo <> CStr(LastFigureNo) Then {L7+lz  
                            rText = "图" & LastFigureNo & ". " & ttString s'Qmr s a  
                            ErrMsg.AddItem "表格编号错误：" & ParaText X[SIk%{D  
                   TnQW ~_:  
                    End If WKwYSbs (  
                    '图片名称段落设置 格式：图1. 图名称 &(|Ot`el]v  
                    .Paragraphs(paraCounter).Range.Text = rText *,=8x\Shp  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" NR%_&%qQA  
                    .Paragraphs(paraCounter).Range.Select 2|NQ5OA0  
                    Selection.EndKey unit:=wdLine 3[ xHY@c  
                    xe = Replace(rText, vbCr, "") u Qg$hS  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False k(@W z>aCv  
                Case "正文" ,H$%'s1I(  
                     '正文名称段落设置 "}oo`+]Cq  
                    .Paragraphs(paraCounter).Style = "QLNU正文" :0bjPQj  
               Case "文献条目" @,LU!#y(  
                    With .Paragraphs(paraCounter) 8~|v:qk  
                        '.Range.Select JLg/fB3%  
                        'Selection.ClearFormatting ]8 <`&~a  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” g?cxqC<  
                        .Style = "QLNU参考文献" X `F>kp1  
                    End With E;q+u[$  
               Case "图表注解" <KE%|6oER  
                    With .Paragraphs(paraCounter) 1hc`s+N  
                        .Range.Font.NameFarEast = "楷体" z>'vS+axV  
                        .Range.Font.NameAscii = "Times New Roman" #6pJw?[  
                        .Range.Font.Size = 9 '小5号字 bwJluJ, E  
                         ~w.y9)",  
                        .Alignment = wdAlignParagraphCenter d vo|9 >  
                        .LeftIndent = 0 Q~KzcB<  
                        .RightIndent = 0 lc]cs D  
                        .FirstLineIndent = 0 gQ<{NQMzvd  
                        .LineSpacing = 12 _c(h{dn  
                        .LineSpacingRule = wdLineSpaceExactly g(G$*#}o8A  
                        .LineUnitAfter = 0 wT- K g=-q  
                        .LineUnitBefore = 0 _'n]rQ'  
                        .OutlineLevel = wdOutlineLevelBodyText 'Axe:8LA'  
                        .PageBreakBefore = False  %CUwD  
                        .RightIndent = 0 b%0@nu4  
                        .WordWrap = True _!w69>Nj  
                        .LineUnitAfter = 0.5 @![1W@J  
                         Rv.IHSQUo  
                    End With Zvra >%  
                Case Else $ P2*qpqy  
                    '不作处理 QcjsQTAbk  
            End Select $-s8tc(  
             !HeQMz  
            '含有inlineshape的段落处理 0vMKyT3 c  
            If ShapeHeight > 30 Then MIN}5kc<  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 *uKYrs [  
            End If `_BmVms  
             @twi<U_  
            If (ShapeWidth + ShapeHeight) > 150 Then {]dvzoE ]  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" u('`.dwkc  
            End If /fU -0a8  
             31QDN0o!~  
            '段落计数器递 o'Y/0hkh  
            paraCounter = paraCounter + 1 bik lja  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter SA%)xGRW  
            Me.txtStatus.Text = ParaText [*5hx_4%B  
            DoEvents BaMF5f+  
        Loop k"m+i   
    End With ,4;'s  
     [<d_#(]h'  
    msg = "" ~3%aEj  
     ~~Rq$'q}  
    For i = 0 To Me.ErrMsg.ListCount - 1 _@ g\.7@0G  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) aEun *V^,  
    Next [ /<kPi  
     ]K%d   
     1{1mL-I;  
     8I<j"6`+Q  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg +I}!)$/  
    Me.cmdCheck.Enabled = True ,-DU)&dF  
    Me.txtStatus.Visible = True 0r?]b*IEK  
    Me.lbParaType.Visible = False }j!C+i  
     *nv ^s  
    bContinue = False B$7Cjv  
End Sub ?D(aky#cyc  
lAGnt Yv  
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) 2+*o^`%4P  
    Dim pTEXT As String NSq29#  
     0oqOX  
    pTEXT = ChKRange.Text lwjA07 i  
     O[p c$Pi  
    ParaType = "其它" 7$8DMBqq  
    TitleString = pTEXT 64^l/D(  
    TitleNo = "N/A" 'QTa<Z)E  
     IIF <Zkpb  
    shpCounter = ChKRange.InlineShapes.Count V6kDyl(  
    If shpCounter <> 0 Then 1 qp"D_h  
        MaxShpHeight = 0: TotalShpWidth = 0 CBz=-Xr  
        For i = 1 To shpCounter KTeR;6oZn"  
            k = ChKRange.InlineShapes(i).Height R38 \&F  
            l = ChKRange.InlineShapes(i).Width EiyHZ  
            If k > MaxShpHeight Then tJGK9!MH{(  
                MaxShpHeight = k 90ov[|MkM  
            End If r"t,/@`n  
            TotalShpWidth = TotalShpWidth + l {!!8 *ix  
        Next D z[ ,;  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then f'BmIFb#  
            Exit Sub ~B7<Yg  
        End If j+>N&.zs  
    End If Os!x<r|r  
     *?>52 -&b  
    '空行 m/< @Qw  
    If Len(pTEXT) <= 2 Then X?(R!=a  
        Exit Sub ;q#Pl!*5  
    End If sLSH`Xy ?5  
     _ D"S  
         -MORd{GF  
    '是否为表格中的文字 [<>%I#7ulG  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then kjt(OFh'Y+  
        ParaType = "表格内容" 1)f <  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) }Nma %6PfV  
        If k = 1 Then by$mD_sr  
            ParaType = "表格首行" ?u0qYep:  
        End If g!)*CP#;  
        Exit Sub ^b^buCYw  
    End If D r"PS >.  
     E 5mYFVK  
    '例外情况：脚注 |3hNTH?  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then A7T(p7pP  
        ParaType = "脚注" 6y"T;.FAo  
        Exit Sub 7ZUS  
    End If 0C6T>E7  
     U8</aQLGF  
    '例外情况：尾注 ' t^ r2N/  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then 3FMYs&0r4  
        ParaType = "尾注" G+\&8fi0  
        Exit Sub Owv}lJ  
    End If 9V;A +d,  
     `7.$ A U  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then .&h|r>*|J  
        ParaType = "页眉页脚" [fs.D /  
        Exit Sub L[U?{  
    End If t@iw&> 8z  
     j%':M  
     : 4LWm<P  
    With regEX O(:/ &`)  
        .Global = True N(O* " 1b  
         M<SVH_  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" ]?NiY:v  
        If regEX.Test(pTEXT) Then 0W~1v  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") G-#rWZ&  
            TitleString = regEX.Replace(pTEXT, "$3") Zq:c2/\c}  
            TitleNo = regEX.Replace(pTEXT, "$1") &z>iqm"Ww  
            ParaType = "章"  sHOBT,B  
            Exit Sub /03?(n= 3  
        End If c(!pcB8  
         PtGFLM9R  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" {s=c!08=  
        If regEX.Test(pTEXT) Then _T;Kn'Gz(&  
            ParaType = "一级标题" 6H;\Jt  
            regEX.Execute (pTEXT) A-h[vP!v|  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") +F>e rdV  
            TitleString = regEX.Replace(pTEXT, "$3") ']Z%6_WF  
            TitleNo = regEX.Replace(pTEXT, "$1") o :j'd  
            Exit Sub m;qqjzy  
        End If w8#ji 1gX  
         $2a_!/  
        '全角或半角括号中的数字 |EY1$qItid  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" H8m[:K]_H  
        If regEX.Test(pTEXT) Then ]H<}6}Gd  
            ParaType = "二级标题" SPauno <M  
            regEX.Execute (pTEXT) } V"A;5j`  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") 08g2? 5w"  
            TitleString = regEX.Replace(pTEXT, "$5") F'@ 9kdp  
            TitleNo = regEX.Replace(pTEXT, "$2") S7@/d HN  
            Exit Sub U}l=1B  
        End If w BoP&l  
         oq,*@5xV2  
        '阿拉伯数字  1. 2. vtc%MG1  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" `9A`pC  
        If regEX.Test(pTEXT) Then iT+t  
            ParaType = "三级标题" *|gl1S  
            regEX.Execute (pTEXT) #E#@6ZomT  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 F z| r[  
            TitleString = regEX.Replace(pTEXT, "$3") (%9J( 4  
            TitleNo = regEX.Replace(pTEXT, "$1") O8-Z >;  
            Exit Sub X9C:AGbp  
        End If ViUx^e\  
         anORoK.  
        '全角或半角括号中的阿拉伯数字 +=*ND<$n/E  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" ?/(*cA  
        If regEX.Test(pTEXT) Then }{[JS=A^  
            ParaType = "四级标题" g'EPdE  
            regEX.Execute (pTEXT) =6=l.qyYK  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") TxTxyYd  
            TitleString = regEX.Replace(pTEXT, "$5") +;bZ(_ohG  
            TitleNo = regEX.Replace(pTEXT, "$2") (@=h(u.  
            Exit Sub biU ?>R  
        End If UgOhx- 8  
         8 k_hX^  
        '表格名称 G{zxP%[E  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" ?ea5k*#a  
        If regEX.Test(pTEXT) Then X<f4X"y  
            ParaType = "表格标题" DW)X3A(^  
            regEX.Execute (pTEXT) : z\||f  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) n} ]gAX  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) 'L^M"f^I  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) mt[ #=Yba  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 c4bvJy8  
            Exit Sub 8< J3Xe  
        End If a;&0u>  
         t&IWKu#  
        '图片名称 ]1I-e2Q-J  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" Vw`%|x"Xz  
        If regEX.Test(pTEXT) Then - <tTT  
            ParaType = "图片标题" \vuWypo  
            regEX.Execute (pTEXT) *r|1 3|k  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3")  Gc;-zq  
            TitleString = regEX.Replace(pTEXT, "$3") T ^ #1T$  
            TitleNo = regEX.Replace(pTEXT, "$1") l(}l([rdQ  
            Exit Sub j|b $b,rF\  
        End If {yMkd4v  
          TZdJq  
        '参考文献 Z}3;Ych  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 fe}RmnAC  
        If regEX.Test(pTEXT) Then ?iL-2I3*  
            ParaType = "文献条目" EH'eyC-B<  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") ; NO#/  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") +^.xLTX`$  
            Exit Sub Z`n "}{  
        End If EEvi_Z932  
         {@PZlQg  
        prfx = Left(pTEXT, 2) C\ 0,D9  
        If prfx = "注：" Or prfx = "注:" Then ~h%H;wC&  
            ParaType = "图表注解" v7D0E[)~  
            Exit Sub fr8';Jm  
        End If g O8~$Aj  
         BU|m{YZ$  
          vF'IK,  
        ParaType = "正文" i6O'UzD@T  
         {&FOa'bP  
    End With $-(lp0\*  
End Sub OK z5;#S=  
1\/~>  
Sub ConvertListToOrdinary() xJOp ~fKG  
    Dim st As Paragraph SzG?m]  
    With ActiveDocument V h5\'Sn  
        For i = .Paragraphs.Count To 1 Step -1 9MbF:  
            Set st = .Paragraphs(i) [lz H%0 V  
            lst = st.Range.ListFormat.ListString x$pz(Q&v  
            If lst <> "" Then ~W3t(\B'  
                st.Range.ListFormat.RemoveNumbers | Vp ?  
                st.Range.InsertBefore lst & " " Mv:\T%]  
            End If .fK~IKA  
        Next zY].ZS=7  
    End With 8rNf4]5@X(  
    Set st = Nothing \#gguq?[  
End Sub YDgG2hT/2  
y-Lm^ GW4  
Private Sub UserForm_Activate() !HXyvyDN  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" 'yh)6mid  
    Me.lbTotal.Font.Bold = True Iomx"y] 9  
    Me.txtStatus.Visible = False IcNZUZGE  
    Me.cmdCheck.Enabled = True %iZ~RTY6 !  
{<cgeH  
End Sub ;h#Q!M&e#  
R0F&!y!B  
af/0e}-  
Sub CheckSuperScript() }hXmK.['  
    Selection.Find.ClearFormatting ~ x J#NC+  
    Selection.Find.Replacement.ClearFormatting Ki /j\  
    With Selection.Find V Y@`)  
        .Text = "[【\[［〖](*)[】\]〗］]" 1`Uu;mz  
        .Replacement.Text = "[\1]" *]DO3Zw'  
        .Replacement.Font.Superscript = True "M,Hm!j  
        '.Replacement.Font.Color = wdColorBlue 5 2r\Q}v$  
        .Forward = True Ol;"}3*Z*  
        .Wrap = wdFindContinue drp< f1`l8  
        .FORMAT = True ,,?XGx  
        .MatchCase = False 59V8cO+qH  
        .MatchWholeWord = False uTy00`1  
        .MatchByte = False xSq+>,b  
        .MatchAllWordForms = False Bo0T}P~  
        .MatchSoundsLike = False g$z6*bL  
        .MatchWildcards = True }x_:v!G  
    End With *#GX~3A  
    Selection.Find.Execute Replace:=wdReplaceAll $4]4G=o  
End Sub [5GzY`/m  
_OK!/T*FBt  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) \^lDd~MWG  
    bContinue = False j3[kG#  
    Set regEX = Nothing 8C I\NR{x8  
End Sub WGUd@lC~  
Q=epUHFs  
Sub CeateOrModifyStyle() V)I Tk \  
' 1TgD;qX  
' nr&9\lG]G  
Dim stl As Style +}BKDEb  
     :2~2j- m  
    Options.Pagination = False UAC"jy1D  
     O_*tDq,e  
    On Error Resume Next 2=| Ks]<P  
    For Each stl In ActiveDocument.Styles E:P_ CDSd]  
        stl.Delete p;mV?B?oAQ  
    Next K )eyFc  
    On Error GoTo 0 C~M,N|m+^  
     D$`$4mX@hP  
    Set stl = Nothing k~JTQh*,w  
     xk^`4;  
    DoEvents e_FoNT  
    On Error Resume Next #5X+. !L  
     ]Bz.6OR  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph 5K =>x<  
     O`;o"\P<  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph 0Q]{r )  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph ]hbrzv o  
     g c<Y?a-  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph t ;y@;?~  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph 02^Nf7DMR  
     }RQHsS  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph u!McPM8Yk  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph "~"=e  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph r4]hcoU  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph QjTs$#eMW  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph }'uV{$  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph 66po SZR@  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph /K<>OyR?  
     _A=i2?g  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph ) LohB,?  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph HUel  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph (Y"./BDY  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph OZe`>Q6  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph Ls &-8  
     ^[q/w<_j~  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph ; Ji3|=4u  
    On Error GoTo 0 !{A#\~,  
    DoEvents $-39O3  
     Uu|R]azbO  
    'BaseStyle 3+! G9T!  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False !]&+g'aC3  
    With ActiveDocument.Styles("BaseStyle").Font &B$%|~Y5  
        .NameFarEast = "宋体" +0:]KG!Zs.  
        .NameAscii = "Times New Roman" [] R8VC>Ah  
        .NameOther = "宋体" 0aYoc-( A  
        .Size = 10.5 x. /WP~I  
        .Bold = wdUndefined u>V~:q\X  
        .Italic = wdUndefined o\nFSG kn  
        .Subscript = wdUndefined i,l$1g-i  
        .Subscript = wdUndefined gi8f)MNP?~  
         }50s\H._C  
        .Underline = wdUnderlineNone gbu)bqu2x  
        .UnderlineColor = wdColorAutomatic ~Vc`AcWP  
        .StrikeThrough = False cq$ _$jRx  
        .DoubleStrikeThrough = False =ibKdPtTh^  
         Yr>7c1FZi  
        .Outline = False Q6CVMYT  
        .Emboss = False ra1_XR}  
        .Shadow = False fhro"5/4  
        .Hidden = False v/,,z+%-  
        .SmallCaps = False ?%b#FXA  
        .AllCaps = False | 8akp  
        .Color = wdColorAutomatic Q776cj^L  
        .Engrave = False zOis}$GR  
        .Scaling = 100 g,f AV M  
        .Kerning = 1 ^,Ft7JAn  
        .Animation = wdAnimationNone eX'V #K#C  
        .DisableCharacterSpaceGrid = False q oz[x  
        .EmphasisMark = wdEmphasisMarkNone B06W(y,3Q>  
    End With rW*[sLl3  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat 5zF$Q{3  
        .LeftIndent = 0 D<T:UJ  
        .RightIndent = 0 )c.!3n/pb  
        .SpaceBefore = 0 QPB ^%8  
        .SpaceBeforeAuto = False ZD<e$PxxCd  
        .SpaceAfter = 0 RZ?abE8  
        .SpaceAfterAuto = False H)X&5E  
         *tl;0<n  
        .LineSpacingRule = wdLineSpaceSingle < WQ ~X<1D  
        .Alignment = wdAlignParagraphJustify tjcsT>  
         2WB`+oWox  
        .WidowControl = False 48.4GwL7  
        .KeepWithNext = False +_ $!9m  
        .KeepTogether = False ?4_ME3$t  
        .PageBreakBefore = False i8=+ <d  
        .NoLineNumber = False zTw<9Nf  
         .F0Q< s9  
        .FirstLineIndent = CentimetersToPoints(0) 2 yRUw  
        .OutlineLevel = wdOutlineLevelBodyText @ b} -<~  
        .CharacterUnitLeftIndent = 0 } ;d=  
        .CharacterUnitRightIndent = 0 'lOpoWDL  
        .CharacterUnitFirstLineIndent = 0 0 .ck!"h}  
        .LineUnitBefore = 0 |zy` ]p9  
        .LineUnitAfter = 0 _I0=a@3  
        .AutoAdjustRightIndent = True _*wlK;`  
        .DisableLineHeightGrid = True R vd'uIJ  
         n -x Caq  
        .FarEastLineBreakControl = True [u^~ND'  
        .WordWrap = True 3O|2Z~>3  
        .Hyphenation = False 8,)<,g-/=  
         $IJ"fs  
        .HangingPunctuation = True p,3}A( >  
        .HalfWidthPunctuationOnTopOfLine = True QH kjxj  
        .AddSpaceBetweenFarEastAndAlpha = True xr31< 4B  
        .AddSpaceBetweenFarEastAndDigit = True ;/!o0:m^I  
        .BaseLineAlignment = wdBaselineAlignBaseline F1% ^,;  
    End With ".k H5(:  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False ].@8/. rg  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll -.5R.~@  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese  $kxu-  
    ActiveDocument.Styles("BaseStyle").NoProofing = False / LLo7"  
     BoHNni  
    '一级标题题样式 $@~s O0q  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") C-^8;xd  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" cEGR?4z  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False $Q=S`z=  
    With ActiveDocument.Styles("QLNU一级标题").Font =RHIB1  
        .NameFarEast = "黑体" Y,-! QFS#  
        .NameAscii = "Arial Black" , Q)  
        .NameOther = "黑体" #d$lN}8  
        .Name = "黑体" pwA~?$B1  
        .Size = 16              '三号 p uW  
        .Bold = True K#R|GEwr  
        .Italic = wdUndefined 7 LiyA<  
        .Subscript = wdUndefined Fh}GJE   
        .Superscript = wdUndefined SgQ(#y|vV  
    End With jEL"Q?#  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat  H@ sM$8  
         x}OJ~Yk]  
        .LeftIndent = CentimetersToPoints(0) :b,An'H  
        .RightIndent = CentimetersToPoints(0) JHJ]BMm  
        .FirstLineIndent = CentimetersToPoints(0) z -'e<v;w  
         =Nr?F '<  
        .LineSpacingRule = wdLineSpaceSingle s@ *i  
        .Alignment = wdAlignParagraphCenter oW6b3Q /B  
         r%`3*<ALV)  
        .WidowControl = True UXOf  
        .KeepWithNext = True R? #.z#  
        .KeepTogether = True MSe >1L2=  
        .OutlineLevel = wdOutlineLevelBodyText Pje 1,B q  
         6|1*gl1_LD  
        .LineUnitBefore = 0.5 IB^vEY!`6_  
        .LineUnitAfter = 0.5 D4T(Dce  
    End With -v9x tNg  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False R=S)O.*R  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll }wC=p>zA  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese x.'Ys1M  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True cEK#5   
    DoEvents 5a:YzQ4  
     5dL!e<<  
    '二级 O ]t)`+%q  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 96%N  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" -=qHwcId  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False VL$?vI'  
    With ActiveDocument.Styles("QLNU二级标题").Font }-p-(  
        .NameFarEast = "黑体" -gv[u,R  
        .NameAscii = "Arial Narrow" )Dyyb1\)  
        .NameOther = "黑体" P&*e\"{  
        .Name = "黑体" % "^CrG  
        .Size = 15        '小三号 &jh17 y  
        .Bold = False  X*`b} ^T  
        .Outline = False /{-J_+u*%  
        .Italic = wdUndefined {z@a{L:SC  
        .Subscript = wdUndefined "||' -(0  
        .Superscript = wdUndefined }&^1")2t  
    End With ov1#BeQ  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat dlwOmO'Bm)  
        .LeftIndent = CentimetersToPoints(0) Y0ACJ?|  
        .RightIndent = CentimetersToPoints(0) 8o466m6/  
        .FirstLineIndent = CentimetersToPoints(0) &x/Z {ut  
         QiNLE'19^  
        .LineSpacingRule = wdLineSpaceSingle rE?B9BF3O  
        .Alignment = wdAlignParagraphLeft so A] f  
         HC| ]Au  
        .WidowControl = True 07>D G#  
        .KeepWithNext = True ]G,BSttD  
        .KeepTogether = True Q$Q:Jm53  
        .PageBreakBefore = False I:YE6${k!  
        .OutlineLevel = wdOutlineLevelBodyText  K"Gea`I  
         .+~9 vH  
        .LineUnitBefore = 0.5 dlMjy$/T  
        .LineUnitAfter = 0.5 $v=(`=  
         N"zl7.E  
    End With '_" S/X +v  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False <,J O  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll CUj$ <ay=  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese *nwH1FjH  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True vQ >8>V  
    DoEvents gj82qy\:  
     B8>@q!G8P  
    '三级标题样式 5oo6d4[  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") K~~LJU3  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" (Vt5@25JW  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False a@#<qf8g  
    With ActiveDocument.Styles("QLNU三级标题").Font Us3zvpy)o  
        .NameFarEast = "宋体" 22`e7  
        .NameAscii = "Times New Roman"  }S}%4c>  
        .NameOther = "黑体" /`7G7pQ+  
        .Name = "黑体" od*#)   
        .Size = 14               '四号 `* cJc6  
        .Bold = False [o.#$(   
        .Outline = False @QDpw1;V'  
        .Italic = wdUndefined 9!6u Yf+  
        .Subscript = wdUndefined i1!Y {  
        .Superscript = wdUndefined 9+~1# |  
    End With Q;kl-upn~8  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat wIF)(t-):  
        .LeftIndent = CentimetersToPoints(0) AA}+37@2I  
        .RightIndent = CentimetersToPoints(0) U:8cz=#  
        .FirstLineIndent = CentimetersToPoints(0) G'Uq595'-  
         bUc ++M  
        .LineSpacingRule = wdLineSpaceSingle Bd[H@oKru  
        .Alignment = wdAlignParagraphLeft ;.7]zn.X]2  
         |pE ~  
        .WidowControl = True vX$|/74  
        .KeepWithNext = True Iz&<rL;s  
        .KeepTogether = True x #t?`  
        .PageBreakBefore = False #_zj5B38E  
        .OutlineLevel = wdOutlineLevelBodyText LWV^'B_X-  
         sfsK[c5bm  
        .CharacterUnitLeftIndent = 0 \# 1p  
        .CharacterUnitRightIndent = 0 E>F6!qYm  
        .CharacterUnitFirstLineIndent = 2 vyT-!m C  
         :d@RN+U  
        .LineUnitBefore = 0.5 ^O**ZndB/  
        .LineUnitAfter = 0 >n%ckL|rG  
    End With ^%qQ)>I=j  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False 3vEwui-5  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll }p*WH$!~  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese 9<5ii  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True \mw5 ~Rf;  
    DoEvents L tK, _j  
     Cm-dos  
    '四级标题样式 GZ.KL!,R!  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") $^W|@et{ ]  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" (lvp-<*  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False a QV?}  
    With ActiveDocument.Styles("QLNU四级标题").Font TIno"tc3  
        .NameFarEast = "宋体" TrBtTqH)  
        .NameAscii = "Times New Roman" j{H IdP  
        .NameOther = "宋体" q[c^`5  
        .Name = "宋体" DOq"=R+  
        .Size = 12               '小四号 4!Lj\.!$  
        .Bold = True ;s5JYR  
        .Outline = False  xC2y/ ?  
        .Italic = wdUndefined ZsG J[  
        .Subscript = wdUndefined 3 op{h6  
        .Superscript = wdUndefined ;z~j%L%b  
    End With z/i&Lpr:  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat K\5/||gi  
         gY_AO1  
        .LeftIndent = CentimetersToPoints(0) 9dp1NjOtAc  
        .RightIndent = CentimetersToPoints(0) m21H68y  
        .FirstLineIndent = CentimetersToPoints(0) && WEBQ  
         }jYVB|2  
        .LineSpacingRule = wdLineSpaceSingle cq8JpSB(  
        .Alignment = wdAlignParagraphLeft +SkfT4*U  
         H WFnIUv  
        .WidowControl = True Jv~^hN2  
        .KeepWithNext = True .<6'*X R  
        .KeepTogether = True m4G))||9Q  
        .PageBreakBefore = False Tlk!6A:  
        .OutlineLevel = wdOutlineLevelBodyText "4.A@XsY  
         xxpzz(S ]A  
        .CharacterUnitLeftIndent = 0 t5EYu*  
        .CharacterUnitRightIndent = 0 'Kd-A:K2g  
        .CharacterUnitFirstLineIndent = 2 KnUVR!H|  
         }q:4Zh'l!  
        .LineUnitBefore = 0 ^C;ULUn3  
        .LineUnitAfter = 0 P#AS")Sj  
         'Ge8l%p  
    End With i \@a&tw  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False Y7 e1%,$v  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll H2CpZK'  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese 3u9}z+q  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True KqXPxp^_Al  
    DoEvents 8B6 -f:  
     ?F|F~A8dr  
    '正文校式 iL'j9_w,  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") OOzXA%<%c  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" %5j*e  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False ;;Jx1Q  
    With ActiveDocument.Styles("QLNU正文").Font ~P"o_b6,k  
         =an 0PN  
        .NameFarEast = "宋体" ;V84Dy#b  
        .NameAscii = "Times New Roman" ] m #*4  
        .NameOther = "宋体" v R ! y#  
        .Name = "宋体" `|4k>5k  
         {%6g6 ?=j  
        .Size = 12               '小四号 LPkl16yZ  
         2FEi-m}  
        .Bold = wdUndefined l <yYfGO  
        .Italic = wdUndefined 2W;2._  
        .Subscript = wdUndefined M/YS%1  
        .Superscript = wdUndefined 1}OM"V  
         Dc0C QGx9b  
        .Outline = False HaQox.v%  
        .Emboss = False K/8TwB?I  
        .Shadow = False &PFK0tY  
        .Hidden = False ra^"Vr  
         seZb;0  
        .DisableCharacterSpaceGrid = True xU |8.,@  
    End With ghW  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat "MyMByomQ  
         j-t"  
        .LeftIndent = CentimetersToPoints(0) {}BAQ9|q  
        .RightIndent = CentimetersToPoints(0) Uf~5Fc1d =  
        .FirstLineIndent = CentimetersToPoints(0) @R;&PR#5  
         A1B%<$|pz  
        .LineSpacingRule = wdLineSpaceExactly |q Pu*vR  
        .LineSpacing = 20 Nu+DVIM  
        .Alignment = wdAlignParagraphLeft ]qiX"<s>~C  
         "1rT> ASWI  
        .WidowControl = False d/\ajQ1::  
        .KeepWithNext = False (dHjf;  
        .KeepTogether = False 2FR 5RG oD  
        .PageBreakBefore = False euET)Ccq  
        .Hyphenation = False $rPQ%2eF4  
         c;88Wb<|W  
        .OutlineLevel = wdOutlineLevelBodyText  R p6q)  
         XjTu`?Na;  
       vHb^@z=  
        .CharacterUnitLeftIndent = 0 }w{E<C(M  
        .CharacterUnitRightIndent = 0 WpC9(AX5g  
        .CharacterUnitFirstLineIndent = 2 .L.9e#?3  
         dyl1~'K^  
        .LineUnitBefore = 0 }bnodb^.7  
        .LineUnitAfter = 0 [ic%ZoZ_  
        .SpaceBefore = 0 _U Y5  
        .SpaceAfter = 0 Xi!e=5&Pa  
         2fP;>0?  
        .DisableLineHeightGrid = True u"DE?  
    End With 6ck%M#v  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False l$m}aQ%h  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll Fp>nu_-"  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese i$CF*%+t  
    ActiveDocument.Styles("QLNU正文").NoProofing = True NdC5w-WY  
    DoEvents [ZS.6{vr  
     bl#6B.*=  
    '图片段落样式 rGay~\  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") ,?wxW  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" }l_8~/9  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False Y.% Vvg4z3  
    With ActiveDocument.Styles("QLNU图片段落").Font ~Jlq.S'  
        .Size = 12               '小四号 _Zxo <}w}y  
        .Italic = wdUndefined ^[Y/ +Q.J  
        .Subscript = wdUndefined TwKi_nh2m  
        .Superscript = wdUndefined -cP1,>Ahv  
    End With ,Uy;jk  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat Px gul7  
         Us% _'}(/U  
        .LeftIndent = CentimetersToPoints(0) 8( bK\-b  
        .RightIndent = CentimetersToPoints(0)  I^G6aw  
        .FirstLineIndent = CentimetersToPoints(0) KIY9?B=+  
         8[:G/8VI  
        .LineSpacingRule = wdLineSpaceSingle Q|G|5X  
        .Alignment = wdAlignParagraphCenter hd)WdGJp  
        .KeepWithNext = True X#o;`QM  
        .OutlineLevel = wdOutlineLevelBodyText ts r{-4V  
         P[r$KGz  
        .CharacterUnitLeftIndent = 0 lz _ r  
        .CharacterUnitRightIndent = 0 )-25?B  
        .CharacterUnitFirstLineIndent = 0 \ZBz]rh*  
         uYijzHQyD  
        .LineUnitBefore = 0 fP llN8n  
        .LineUnitAfter = 0 ~w}=Oby'y  
    End With {"db1Gbfg  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False mv(/M t  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll So4#n7  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese SZvC4lOn#  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True )#sN#ZR$  
    DoEvents lLI%J>b@  
     D H:9iX'  
     {d> 6*b  
    '第X章 Y[W] YPs  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") +R"n_6N  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" bl\;*.s'  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False WZ UeW*#=  
    With ActiveDocument.Styles("QLNU章节标题").Font :0Fc E,1  
        .NameFarEast = "黑体" R#s_pW{op  
        .NameAscii = "Arial Black" nIqF:6/  
        .NameOther = "Arial Black" k;r[m ,$  
        .Name = "黑体" i#PR Tbc  
        .Size = 16 @@=,bO  
        .Bold = True (iht LFp  
        .UnderlineColor = wdColorAutomatic <]*Jhnx/  
        .Outline = False {,= hIXo>  
        .Italic = wdUndefined E CPSE {  
        .Subscript = wdUndefined Is9.A_0h  
        .Superscript = wdUndefined $_gv(&ZT  
        .Scaling = 100 Bk5ft4v-  
        .DisableCharacterSpaceGrid = True e1hf{:&/G@  
    End With upFe{M@  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat {~#d_!(  
        .LineSpacingRule = wdLineSpaceSingle gBZNO! a,d  
        .Alignment = wdAlignParagraphCenter ,C|aiSh0-  
        .WidowControl = True %1)JRc  
        .KeepWithNext = True =>7czw:S 1  
        .KeepTogether = True qos/pm$&i  
        .PageBreakBefore = True m3XT8F*&  
        .OutlineLevel = wdOutlineLevelBodyText Fzz9BEw(i  
         W >|'4y)  
        .LeftIndent = CentimetersToPoints(0) ed#>q;jX  
        .RightIndent = CentimetersToPoints(0) 7**zO3 H  
        .FirstLineIndent = CentimetersToPoints(0) >L$9fn/J  
         ri4:w_/{,Y  
        .CharacterUnitLeftIndent = 0 J!}R>mR  
        .CharacterUnitRightIndent = 0 u\km_e  
        .CharacterUnitFirstLineIndent = 0 ] ~ }~d(  
         u@Bgyt7Y  
        .LineUnitBefore = 1 <"av /`;  
        .LineUnitAfter = 0.5 boZ/*+t  
         AG"iS<u  
        .AutoAdjustRightIndent = False #;UoZJ B  
        .DisableLineHeightGrid = True -?Cu-'  
        .FarEastLineBreakControl = True qBZ;S3  
        .WordWrap = True &iT^IkA{  
    End With *Zn,v-d  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False m; PTO$--  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll ,<[x9 "3\  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese qJw\< 7m  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True {vur9L  
    DoEvents /mwDVP<z /  
     ?i}wm`  
    '表格标题 u(JuU/U  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") GqgJ]m  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" |C>\k u*  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False p E$*[IvQ'  
    With ActiveDocument.Styles("QLNU表格标题").Font a&[>kO  
        .NameFarEast = "楷体" %h v-3L#V  
        .NameAscii = "Arial" CS0q#?  
        .Name = "楷体" [5Zi\'~UH)  
        .Size = 10.5 V=c?V/pl  
        .Bold = True jJ?G7Q5 l  
        .Underline = wdUnderlineNone epcvwM/A  
        .Italic = wdUndefined oUB9)C~  
        .Subscript = wdUndefined M`xI N~  
        .Superscript = wdUndefined #q8/=,3EG  
        .Color = wdColorAutomatic >"Zn# FY  
    End With lE3&8~2   
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat FPEab69  
         {fMo#`9=  
        .LineSpacingRule = wdLineSpaceSingle sR| /s3;  
        .Alignment = wdAlignParagraphCenter ,/[1hhP@  
        .KeepWithNext = True ;XXEvRk  
        .KeepTogether = True 4+4&}8FH  
        .OutlineLevel = wdOutlineLevelBodyText 6L2Wv5C  
         ;}k_  
        .LeftIndent = CentimetersToPoints(0) Y>K8^GS  
        .RightIndent = CentimetersToPoints(0) am/D$ (l1  
        .FirstLineIndent = CentimetersToPoints(0) xFyBF[c  
         N8X)/W  
        .CharacterUnitLeftIndent = 0 = UxKa`  
        .CharacterUnitRightIndent = 0 r$%,k*X^ k  
        .CharacterUnitFirstLineIndent = 0 NU[Wj uLG  
         g^^^fKUp)  
        .LineUnitBefore = 1 2t7=GA+j  
        .LineUnitAfter = 0 .[Ny(X/]/}  
         ~}Z{hs)  
    End With @"m+9ZY  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False {<i(aq?  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll iu{QHjZK(  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese 1h`#H:  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True <XzRRCYQ  
    DoEvents A64c,Uv  
.L ^F4  
    '表格首行 EpENhC0  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") "  pL5j  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False f1U: _V^d  
    With ActiveDocument.Styles("QLNU表格首行").Font }RQ'aeVl(  
        .NameFarEast = "楷体" Z-aB[hE  
        .NameAscii = "Times New Roman" .C1g Dry]  
        .Name = "楷体" #:Ukv?  
        .Size = 9 l{V(Y$xp3  
        .Bold = True #?~G\Ux0/  
        .Underline = wdUnderlineNone w# ;t$qz}  
        .Italic = wdUndefined X$ A ]7t  
        .Subscript = wdUndefined WctGhGH  
        .Superscript = wdUndefined Ub[UB%(T  
    End With 0p'g+ 2  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat oM,UQ!x <  
        .LineSpacingRule = wdLineSpaceSingle o^u}(wZ{  
        .Alignment = wdAlignParagraphCenter ,|w,  
         aI \]R:f,  
        .LeftIndent = CentimetersToPoints(0) e(9K.3 @{  
        .RightIndent = CentimetersToPoints(0) d/E0opv  
        .FirstLineIndent = CentimetersToPoints(0) KCn#*[  
         _;-b ZH  
         C6d#+  
        .CharacterUnitLeftIndent = -0.5 +@<@x4yt  
        .CharacterUnitRightIndent = -0.5 ~:-V<r,pe  
        .CharacterUnitFirstLineIndent = -0.5 UiZ1$d*  
         iF1zLI<A  
        .LineUnitBefore = 0 I!.-}]k  
        .LineUnitAfter = 0 IOl0=+p  
        .SpaceBefore = 0 F^Mt}`O  
        .SpaceAfter = 0 zZS,<Z  
         +Xmza8T9  
    End With j)}TZx4~  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False v&`n}lS  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll  8vUq8[[  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese I2?g'tz  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True N Q }5'  
    DoEvents Dj w#{WR  
Bhe0z|&  
    '表格内容 07Oagq(  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") hxGo~<. :  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False _F jax  
    With ActiveDocument.Styles("QLNU表格内容").Font b=:%*gq,  
        .NameFarEast = "楷体" %i&\ X[  
        .NameAscii = "Times New Roman" M2nZ,I=l  
        .Name = "楷体" ^_o:Ddz?l"  
        .Size = 9 :Y)G-:S+  
        .Bold = False Qe=eer~jI  
        .Underline = wdUnderlineNone !1P<A1K  
        .Italic = wdUndefined Rtai?  
        .Subscript = wdUndefined Qq\hD@Z|  
        .Superscript = wdUndefined KzB9 mMrO  
    End With EtDzmpJR>  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat yI's=Iu`  
        .LineSpacingRule = wdLineSpaceSingle ^ 0 /!:*?  
        .Alignment = wdAlignParagraphCenter R#/0}+-M  
         :Z]\2(x  
        .LeftIndent = CentimetersToPoints(0) [O6JVXO>  
        .RightIndent = CentimetersToPoints(0) X{qa|6S,F  
        .FirstLineIndent = CentimetersToPoints(0) p0HcuB)Y  
         a1ai?},  
        .CharacterUnitLeftIndent = -0.5 D* 8oFJub  
        .CharacterUnitRightIndent = -0.5 3UJSK+d\  
        .CharacterUnitFirstLineIndent = -0.5 r4 ;nkx  
        .LineUnitBefore = 0 ;AT~?o`n  
        .LineUnitAfter = 0 ?<soX8_1  
        .SpaceBefore = 0 ET|4a(x  
        .SpaceAfter = 0 N ^H H&~V  
    End With AUR{O  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False r7v 1q  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll M5+K[Ir/y9  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese 2O`s'&.h  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True 8 HdjZ!  
    DoEvents $"Nqto~  
OP DRV\  
    '图片标题 ~uJO6C6A  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") wodff_l  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" m_UzmWF  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False 'z Qp64]F  
    With ActiveDocument.Styles("QLNU图片标题").Font `_M&zN  
        .NameFarEast = "楷体" |LE*R@|3$  
        .NameAscii = "Times New Roman" N'8}5Kx5  
        .Name = "楷体" lI+KT_|L  
        .Size = 10.5 \X;)Kt"  
        .Bold = True 1@`mpm#Y  
        .Underline = wdUnderlineNone ~<=wTns!  
        .Italic = wdUndefined ~-NlTx  
        .Subscript = wdUndefined 58Z,(4:E  
        .Superscript = wdUndefined *w1R>  
        .Outline = False o [nr)  
        .Shadow = False @FuX^Q.[  
        .Color = wdColorAutomatic n Ayyjd3!S  
    End With {-s7_\|p(  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat J8h H#7WMS  
        .LineSpacingRule = wdLineSpaceSingle E\~!E20^  
        .Alignment = wdAlignParagraphCenter T2k# "zD  
         =z2g}X  
        .KeepWithNext = wdUndefined h>n<5{zqM  
        .KeepTogether = True @3 4CaZ$k  
        .OutlineLevel = wdOutlineLevelBodyText o]0\Km  
         AHTQF#U^  
        .LeftIndent = CentimetersToPoints(0) -)E6{  
        .RightIndent = CentimetersToPoints(0) yzJTNLff  
        .FirstLineIndent = CentimetersToPoints(0) S&~;l/  
         $9<P3J 1  
        .CharacterUnitLeftIndent = 0 T?8N$J  
        .CharacterUnitRightIndent = 0 P L*kjrLu7  
        .CharacterUnitFirstLineIndent = 0 )7iYx{n  
         g]}E1H6-  
        .LineUnitBefore = 0 lLuAgds`  
        .LineUnitAfter = 0 m[&pR2T  
    End With g=kuM  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False |z.Ov&d4)(  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll ,in" 8aT}~  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese [1.>9ngj  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True C?PgC~y)  
    DoEvents  Qs\!Kk@  
.4,l0Nn`W  
    '目录项 FdmoR;  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") Ga $EM  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" }I#,o!)Vd  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False 2L?Pw   
    With ActiveDocument.Styles("QLNU目录项").Font =%d0MZD  
        .NameFarEast = "黑体" OyTp^W`&  
        .NameAscii = "Times New Roman" /Wm3qlv  
        .NameOther = "Times New Roman" Dq~D4|  
        .Name = "黑体" )Xd2qbi  
        .Size = 10.5 Ck^jgB.7  
        .Bold = False l|~SVk|  
        .Italic = wdUndefined iCZ1ARi  
        .Underline = wdUnderlineNone .k:Uj-&  
        .Color = wdColorAutomatic (ysDs[? \  
        .Superscript = wdUndefined k[;(@e@c  
        .Subscript = wdUndefined 2W=am_\0e.  
    End With kG]FB.@bG  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat H%`|yUE(  
         .5?Md  
        .LineSpacingRule = wdLineSpaceSingle ? Eh)JJt  
        .Alignment = wdAlignParagraphLeft K7gqF~5x~  
         4Awl  
        .WidowControl = False J l9w/T  
        .KeepWithNext = False Mj-B;r  
        .KeepTogether = False /? HLEX  
        .PageBreakBefore = False ;PG,0R`Z;  
        .NoLineNumber = False t[?O*>  
        .OutlineLevel = wdOutlineLevelBodyText Km,:7#aV  
         j?9fb  
        .LeftIndent = CentimetersToPoints(0) /*) =o+  
        .RightIndent = CentimetersToPoints(0) % %Z|6V74  
        .FirstLineIndent = CentimetersToPoints(0) ^1w*$5YI  
         $61*X f+*  
        .CharacterUnitLeftIndent = 0  Q~AK0W  
        .CharacterUnitRightIndent = 0 s4Y7x.-  
        .CharacterUnitFirstLineIndent = 0 9_\1cSk'  
         99..]  
        .LineUnitBefore = 0 ttC+`0+H  
        .LineUnitAfter = 0 "r.eN_d  
    End With WG.J-2#3  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False RF.8zea{O`  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll d(j|8/tpA  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot :ODG]-QF  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese rD SUhO{V  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True IBe0?F #  
    DoEvents \l9S5%L9  
     *[[TDduh&  
    '参考文献 X |X~|&j  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") fW.)!EPO  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" Xw[|$#QKM  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False ?*)wQZt;  
    With ActiveDocument.Styles("QLNU参考文献").Font 0`l(c  
        .NameFarEast = "宋体" %y}l^P5z  
        .NameAscii = "Times New Roman" \Dn an5H/  
        .NameOther = "Times New Roman" k=qb YGK  
        .Name = "Times New Roman" dzwto;  
        .Size = 12 5qx$=6PT  
        .Bold = False F B7.b  
        .Italic = wdUndefined L BP|  
        .Subscript = wdUndefined 4GTB82V$  
        .Superscript = wdUndefined {`CmE/`{  
        .Underline = wdUnderlineNone q<*UeyE S  
        .UnderlineColor = wdColorAutomatic M4(`o^n  
        .Color = wdColorAutomatic S) [$F}  
        .Engrave = False ?.b.mkJ  
    End With H@pF 3gh  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat !^<%RT9@|  
         9a0ibN6m  
        .LineSpacingRule = wdLineSpaceExactly - d(RK_  
        .LineSpacing = 16 ^N_?&pgy  
        .Alignment = wdAlignParagraphLeft ;NeN2|I]  
        .WidowControl = False dJwE/s  
        .KeepWithNext = False $+.!(Js"K  
        .KeepTogether = False 8q#Be1u<s2  
        .PageBreakBefore = False Rt10:9Kz$  
        .OutlineLevel = wdOutlineLevelBodyText _f5n t:-  
         jFMf=u&U  
        .LeftIndent = CentimetersToPoints(0) ~g[<A?0=y  
        .RightIndent = CentimetersToPoints(0) o{wXq)b  
        .FirstLineIndent = CentimetersToPoints(0) 5 NdIbC  
         V;-YM W  
        .CharacterUnitLeftIndent = 0 L=. "<,\  
        .CharacterUnitRightIndent = 0 V57tn6 >b  
        .CharacterUnitFirstLineIndent = -2 ON/U0V:v  
         pJ 7="n  
        .LineUnitBefore = 0 &lYe  
        .LineUnitAfter = 0 .kkrU  
        .SpaceBefore = 0 2pQdDbm  
        .SpaceAfter = 0 vD*9b.*  
         1P +Te,I  
    End With }c~o3t(7`b  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False Swg%[r=p=  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll kan4P@XVS  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS T1Y _Jf*KJ  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True q-)Ynp4'  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese ~)&im.Q4  
    DoEvents N3}jLl/  
P_f^gB7  
    ' ?h4Rh0rkX  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") %1oG<s  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" El)WjcmH  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False 4?)-;Hx_X  
    With ActiveDocument.Styles("QLNU论文题目").Font B&oP0 jS  
        .NameFarEast = "黑体" YjM_8@ <  
        .NameAscii = "Arial Black" &;O)Dw  
        .NameOther = "Arial Black" R7xEE7p  
        .Name = "Arial Black" #+,O  
        .Size = 16 7 -Yn8Gq  
        .Bold = False 2gnmk TyF  
        .Italic = wdUndefined Y"&1jud4xl  
        .Superscript = wdUndefined @on\@~Ug  
        .Subscript = wdUndefined Z#P:C":e  
        .Underline = wdUnderlineNone  M} {'kK  
        .UnderlineColor = wdColorAutomatic XLNR%)l  
        .Color = wdColorAutomatic o1(?j}:c|  
2XN];,{  
    End With $-:j'e:j  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat pl.K*9+  
        .LineSpacingRule = wdLineSpaceSingle ?H2{R:  
        .Alignment = wdAlignParagraphCenter 9s}y*Vp  
        .WidowControl = True )+S^{tt  
        .KeepWithNext = True pZv>{=2hOS  
        .KeepTogether = True Y]R;>E5o|  
        .PageBreakBefore = True "dO>P*k,  
        .NoLineNumber = False -h/KrB  
        .OutlineLevel = wdOutlineLevelBodyText :>'4@{'   
         )Cm7v@B   
        .LeftIndent = CentimetersToPoints(0) eQvdi|6  
        .RightIndent = CentimetersToPoints(0)  ,m-/R  
        .FirstLineIndent = CentimetersToPoints(0) !{, `h<  
         NlnmeTLO5  
        .CharacterUnitLeftIndent = 0 8P#jC$<  
        .CharacterUnitRightIndent = 0 oTqv$IzqP  
        .CharacterUnitFirstLineIndent = 0 atA:v3"  
         ') -Rv]xe  
        .LineUnitBefore = 1 )D1=jD(  
        .LineUnitAfter = 1 <CnTiS#  
         vtS [Tkk|A  
        .BaseLineAlignment = wdBaselineAlignAuto &7CAxU;i3  
    End With c/q -WEKL  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False O$Z<R:vVA  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll $ }D9)&f;  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS M >BcYbXf  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True gZD,#D.hR  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese qrtA'fU  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True BCK0fk~  
    DoEvents GcL :plz  
     }dt7n65  
    '中文摘要 aA5rvP +  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") g,N"o72)  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" pl{Pur ;i  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False .%rB-vO:g  
    With ActiveDocument.Styles("QLNU中文摘要").Font MSw:Ay [9  
        .NameFarEast = "宋体" )ZA3m _w]  
        .NameAscii = "Times New Roman" 7sci&!.2`  
        .NameOther = "Times New Roman" LYv$U;*+  
        .Name = "Times New Roman" 17nONhh  
        .Size = 12 tb@&!a$`?  
        .Bold = wdUndefined mSu1/ ?PS  
        .Superscript = wdUndefined $stBB  
        .Subscript = wdUndefined psHW(Z8G  
        .Italic = wdUndefined iEJY[P1  
        .Underline = wdUnderlineNone C/{tvY /o  
        .UnderlineColor = wdColorAutomatic JNYFu0  
        .Color = wdColorAutomatic aMaFxEW  
    End With -:|1>og  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat 5|E_ ,d!v  
        .LineSpacingRule = wdLineSpaceExactly (t\ F>A  
        .LineSpacing = 20 ))qOsphN  
        .Alignment = wdAlignParagraphLeft >pV|c\  
         2 }^fhMS  
        .WidowControl = False X_0Ta_u?T  
        .KeepWithNext = False >sL"HyY#H  
        .KeepTogether = True 9. 7XRxR^  
        .PageBreakBefore = False k}yUD 0 Y  
        .NoLineNumber = False rprtp5Cg  
        .OutlineLevel = wdOutlineLevelBodyText PafsO,i-  
         `T]1u4^E  
        .LeftIndent = CentimetersToPoints(0) wwtk6;8@  
        .RightIndent = CentimetersToPoints(0) rg^  
        .FirstLineIndent = CentimetersToPoints(0) # ~SQujgB  
         i9FHEu_  
        .CharacterUnitLeftIndent = 0 Jt3]'Nr04@  
        .CharacterUnitRightIndent = 0 pg.z `k  
        .CharacterUnitFirstLineIndent = 2 [aK7v{Wu  
        .LineUnitBefore = 0 $O/@bh1@p  
        .LineUnitAfter = 0 )+nY-DB(  
         _m+64qG_8'  
    End With 7Q(5Nlfcz  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False LS=HX~5C  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll x3 JX}yCX  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS 3'H 1T  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True ]^63n/Twj  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese A $9^JF0$  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True +4,v. B@  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete   vZQ'  
    DoEvents ) OAd[u<  
     N<\U$\i  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") f;k'dqlv  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" T!T6M6?  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False ~HH#aXh*  
    With ActiveDocument.Styles("QLNU英文标题").Font *Hnk,?kPq  
        .NameFarEast = "黑体" O#e'.n!rI  
        .NameAscii = "Arial Narrow" uD2v6x236  
        .Name = "Arial Narrow" <opBOZ d  
        .Size = 16 wlM"Zt  
        .Bold = True g`}+K U  
        .Bold = wdUndefined Wy2 pa #Q  
        .Superscript = wdUndefined 5+gSpg]i  
        .Subscript = wdUndefined Y!8Ik(/~i  
        .Italic = wdUndefined x[,HK{U|t  
         }BpCa6SAs  
        .Underline = wdUnderlineNone <3;Sq~^  
        .UnderlineColor = wdColorAutomatic +s}"&IV%  
        .StrikeThrough = False A{ :PpYs  
        .DoubleStrikeThrough = False D-[` wCa,  
    End With <L1;aNN  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat )K4A-9pC  
        .LineSpacingRule = wdLineSpaceSingle Zljj  
        .Alignment = wdAlignParagraphCenter @GB~rfB[  
        .WidowControl = True %b H1We  
        .KeepWithNext = False kAEm#oz=g  
        .KeepTogether = False MMpGI^x!-X  
        .PageBreakBefore = False j5,vSh~q;'  
        .NoLineNumber = False yX:*TK4  
        .FirstLineIndent = CentimetersToPoints(0) 0t-!6  
        .OutlineLevel = wdOutlineLevelBodyText q5irKT*Hs  
         "1P>,\Sjg  
        .LeftIndent = CentimetersToPoints(0) 1HF=,K+  
        .RightIndent = CentimetersToPoints(0) J8T?=%?=  
        .FirstLineIndent = CentimetersToPoints(0) u49v,,WGw  
         Ig hd,G-  
        .CharacterUnitLeftIndent = 0 /idQfff  
        .CharacterUnitRightIndent = 0 se)vi;J7K  
        .CharacterUnitFirstLineIndent = 0 *)V1Sd#m  
         <3wfY #;><  
        .LineUnitBefore = 1 ng-g \&-  
        .LineUnitAfter = 1 e Akjpc  
         d{UyiZm\  
    End With `|1#Vuk  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False zF6]2Y?k%  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll K&t+3O  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS >&|C E2'  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True P+m{hn~%  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese JO4rU- n  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True )>]~Y  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete w!0`JPu  
    DoEvents =+T$ 1  
Wgt[ACioN  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") 6dRxfbL  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" pV>M, f  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False v>2gx1F"?  
    With ActiveDocument.Styles("QLNU英文摘要").Font +[MzF EE[  
        .NameFarEast = "宋体" [f'V pId8  
        .NameAscii = "Arial" vpoeK'bi,  
        .NameOther = "Arial" A{5^A)$  
        .Name = "Arial" ;'.[h*u~<  
        .Size = 12 poqcoSL"}  
        .Bold = wdUndefined <_S>-;by  
        .Italic = wdUndefined Xgge_`T9  
        .Superscript = wdUndefined _`/: gkZS  
        .Subscript = wdUndefined ,Qgxf';+$  
    End With Fu*~{n  
     =kp-[7  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat =AhXEu^  
         W?5u O  
        .LineSpacingRule = wdLineSpaceExactly >i>%@  
        .LineSpacing = 20 Z\{"/( Hi  
         cax]l O  
        .Alignment = wdAlignParagraphJustify U{2[n F  
         ".9 b}}  
        .WidowControl = False )F\tU  
        .KeepWithNext = False _]~gp.  
        .KeepTogether = False kvzGI>H:  
        .PageBreakBefore = False ohFUy}y  
        .NoLineNumber = False %"2 ;i@  
         A8?uCkG  
        .OutlineLevel = wdOutlineLevelBodyText 6gLk?^.  
         HQ8oOn  
        .LeftIndent = CentimetersToPoints(0) @O7hY8",  
        .RightIndent = CentimetersToPoints(0) D0(%{S^  
        .FirstLineIndent = CentimetersToPoints(0) fh0a "#L{  
         ,;aELhMZ  
        .CharacterUnitLeftIndent = 0 pNN6PsLt  
        .CharacterUnitRightIndent = 0 mCa [?  
        .CharacterUnitFirstLineIndent = 2 87Sqs1>cw  
         [Mm OPm}@  
        .LineUnitBefore = 0 l .8@F  
        .LineUnitAfter = 1 +ht -Bl  
         3x=f}SO&  
    End With ##gq{hgjb$  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False (p2jigP7a[  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll 3|=9aM^x^  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS #K|:BS  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False vI< n~FHt  
    DoEvents .^<4]  
[xF(t @p  
    Options.Pagination = True 9oly=&lJ  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." Pg]&^d&$  
    DoEvents ]-Z="YPY  
    ActiveDocument.Repaginate H'fmQf  
 vO 85h  
End Sub X~DI  d  
XwKB+Yj0  
f$G{7%9*  
杺栫杣杊椌柮栬，䒴蓉艿芖。
回复 引用
举报顶端
伍胥之 离线
级别: 军区司令员

显示用户信息 
101楼  发表于: 2024-12-28   
只看该作者 ┊  小 中 大
姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 teO%w9ByY  
wb@TYvDt  
引用
引用第20楼newport93于06-14-2010 13:47发表的  : |/u&%w?W  
%#!`>S)O  
老五，I 服了U。 ZXP9{Hh  
G j6(y caS  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 =2[5 g!qX  
(Ev/R%Z  
杺栫杣杊椌柮栬，䒴蓉艿芖。
回复 引用
举报顶端
上一主题下一主题
«3456»Pages: 6/6
 Bay Area Chinese--灣區華人 » 乱讲
描述
快速回复

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