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

显示用户信息 
100楼  发表于: 2021-07-18   
只看该作者 ┊  小 中 大
Dim bContinue As Boolean 7X`g,b!  
c?(4t67|  
Dim regEX As New RegExp |{z:IQLv  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 g+8OekzB5  
.wEd"A&j  
Dim LastTitle0String As String, LastTitle0No As Long [SjqOTon{  
Dim LastTitle1String As String, LastTitle1No As Long "(3[+W{|  
Dim LastTitle2String As String, LastTitle2No As Long +xh`Q=A  
Dim LastTitle3String As String, LastTitle3No As Long gDQ^)1k  
Dim LastTitle4String As String, LastTitle4No As Long I13y6= d  
Dim LastTitle5String As String, LastTitle5No As Long B?eCe}*f;B  
Dim LastTabelString As String, LastTableNo As Long MD}w Y><C  
Dim LastFigureString As String, LastFigureNo As Long xeg/A}yE  
!j8FIY'[  
Dim strSeperator As String px A?   
@+&LYy72  
Sub ConvertWidth(fTEXT As String, rText As String) GL>O4S<`  
        Selection.Find.ClearFormatting .Yamc#A-  
        Selection.Find.Replacement.ClearFormatting WA<v9#m  
        Selection.Find.Wrap = wdFindContinue /H[=5  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText ? (@ 7r_j  
        DoEvents AVsDt2A  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True G*?8MTP8![  
End Sub NlA,'`,  
mxvp3t \  
Sub ClearDomain() e[{0)y>=  
        With Selection.Find 8 `v-<J  
            .ClearFormatting S*,17+6dV  
            .Replacement.ClearFormatting h/QXPdV  
            .Wrap = wdFindContinue gldAP:  
            Me.txtStatus.Text = "清除所有域代码" 3H'sHuK"X  
            DoEvents +C^nO=[E  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False aj-Km`5r}  
        End With Z\(q@3C  
End Sub l] K3Y\#bP  
YU'k#\gi*  
Private Sub cmdCheck_Click() AmUr.ofu  
    bContinue = True =}<IfNA  
    Dim NoSeries1(1 To 16) As String $f$SNx)),  
    Dim NoSeries2(1 To 16) As String [ $ubNk;!z  
    Dim NoSeries5(1 To 16) As String Yj<a" Gr4[  
    Dim NoSeriesRM(1 To 16) As String nQF(vTDN  
    Dim paraTotal As Long, ParaText As String @f_Lp%K  
    Dim ttString As String, ttNo As String J@/kIrx  
     BwN0!lsF3  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long ")1:F>  
CQc+#nRe  
    Me.txtStatus.Visible = True vSGH[nyCY  
    Me.lbParaType.Visible = True y B81f  
    Me.cmdCheck.Enabled = False @JiLgIe `  
     : p1u(hflS  
     H9Gh>u]}  
     %HhBt5w  
     ] 7[ 3>IN  
    Dim ParaType As String, rText As String 0gu_yg!R  
     'NbHa!  
    Selection.WholeStory s-NX o  
    Selection.NoProofing = True /m!BY}4W  
     >1X|^  
    tm1 = Now CYf$nYR  
     <X#C)-.  
        ActiveWindow.View.Type = wdNormalView Gf%~{@7=u  
     9sM!`Lz{  
    NoSeries1(1) = "一" [>vLf2OID  
    NoSeries1(2) = "二" +X\FBvP&  
    NoSeries1(3) = "三" . o6Or:L  
    NoSeries1(4) = "四" N_LM/of|D  
    NoSeries1(5) = "五" V %t.l  
    NoSeries1(6) = "六" 4V"E8rUL(  
    NoSeries1(7) = "七" 8$] 1M,$r  
    NoSeries1(8) = "八" lwR<(u31e  
    NoSeries1(9) = "九" h 7*J9[$  
    NoSeries1(10) = "十" 7RQR)DG  
    NoSeries1(11) = "十一" ,=uD^n:  
    NoSeries1(12) = "十二" Ky`qskvu  
    NoSeries1(13) = "十三" &.F4 b~A7  
    NoSeries1(14) = "十四" c rQ8q;:  
    NoSeries1(15) = "十五" i9:C4',sw0  
    NoSeries1(16) = "十六" nd`1m[7MNu  
     8:q1~`?5"b  
    NoSeries2(1) = "㈠"  }t!Gey  
    NoSeries2(2) = "㈡" x[| }.Ew  
    NoSeries2(3) = "㈢" ;'gW u  
    NoSeries2(4) = "㈣" f'F?MINJP  
    NoSeries2(5) = "㈤" \Zb;'eDv  
    NoSeries2(6) = "㈥" 9V a}I-  
    NoSeries2(7) = "㈦" k x8G  
    NoSeries2(8) = "㈧" 2/U.| *mH  
    NoSeries2(9) = "㈨" ^23~ZHu  
    NoSeries2(10) = "㈩" NYhB'C2  
     -D<< kra  
    NoSeries5(1) = "①" 2zX]\s?3  
    NoSeries5(1) = "②" 44J]I\+  
    NoSeries5(3) = "③" k<z )WNBf  
    NoSeries5(4) = "④" ynp8r f  
    NoSeries5(5) = "⑤" M.JA.I@XC  
    NoSeries5(6) = "⑥" \wmN  
    NoSeries5(7) = "⑦" Q1lyj7c#x  
    NoSeries5(8) = "⑧" }czrj%6  
    NoSeries5(9) = "⑨" 6 u?>M9  
    NoSeries5(10) = "⑩" XjBW9a  
     ),_@WW;k  
     1Te %F +7  
    NoSeriesRM(1) = "I" )|cc X  
    NoSeriesRM(2) = "II" xnjf  
    NoSeriesRM(3) = "III" 9FF0%*tGo  
    NoSeriesRM(4) = "IV" hy9\57_#  
    NoSeriesRM(5) = "V" "BAK !N$9  
    NoSeriesRM(6) = "VI" B  5L2<  
    NoSeriesRM(7) = "VII" *nd!)t  
    NoSeriesRM(8) = "VIII" IM*y|UHt  
    NoSeriesRM(9) = "IX" v<k?Vu  
    NoSeriesRM(10) = "X" _OYasJUM G  
    NoSeriesRM(11) = "XI" ^ G]J,+  
    NoSeriesRM(12) = "XII" ;2G*wR  
    NoSeriesRM(13) = "XIII" z,RhYm  
    NoSeriesRM(14) = "XIV" S*pGMuui  
    NoSeriesRM(15) = "XV" OU E (I3_  
    NoSeriesRM(16) = "XVI" pt?bWyKG  
     )Dm s  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) iG $!6;w<  
     ]43 /`FX  
    If i = vbNo Then A]*}HZ ,  
        Exit Sub {.`vs;U  
    End If />C^WQI^  
     Od,=mO*.Q  
    If Me.chkSuper.Value Then 2 'l'8  
        Me.txtStatus.Text = "检查修改所有的上标格式" rD tY[  
     ~"gA,e-)  
        CheckSuperScript SV4E0c>  
         1pVS&0W  
    End If ` #0:gEo  
     WpDSg*fk=Y  
    If Me.chkStyle.Value Then *9 {PEx  
        Me.txtStatus.Text = "设置样式，请稍候...." 1> ?M>vK  
        DoEvents 7lTC{7C57  
        CeateOrModifyStyle DmK57V4L^  
    End If 5; C|  
     eNh39er  
     ]dVGUG8  
     , };& tR  
    ClearDomain t6rRU~;}  
         t}_r]E,{u  
     F k7?xc  
     _r#Z}HK  
    If Me.chkLIST.Value Then H;is  /  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" _!#@@O0p/h  
     *YI98  
        ConvertListToOrdinary 'JtBZFq  
    End If XE RUo  
     #Bze,?@  
     /|w6:;$;mn  
    Dim pType As String, trimpTEXT As String _=r6=.  
    If Me.chkNum.Value = True Then oE @a'*.\  
        Me.txtStatus.Text = "转换全角数字形式为半角" e v}S+!|U  
        ConvertWidth "１", "1" $B+8Of  
        DoEvents hXw]K"  
        ConvertWidth "２", "2" t}a: p6D]  
        DoEvents SZ7:u895E  
        ConvertWidth "３", "3" _1X!EH"  
        DoEvents A.F%Ycq  
        ConvertWidth "４", "4" m<G,[Yc  
        DoEvents '$Dn  
        ConvertWidth "５", "5" #&+{mCjs  
        DoEvents t mn tp  
        ConvertWidth "６", "6" P.se'z)E  
        DoEvents yNBQGSH  
        ConvertWidth "７", "7" j{ ]I]\=?  
        DoEvents rCEyQ)R_}  
        ConvertWidth "８", "8" ]Ee?6]b N  
        DoEvents 2F;y;l%  
        ConvertWidth "９", "9" m~BAyk^jo3  
        DoEvents ^^u5*n+5  
        ConvertWidth "０", "0" JBj]najN  
        DoEvents Xxj- 6i  
        ConvertWidth "ａ", "a" _{ue8kGt  
        DoEvents z9f-.72"X  
        ConvertWidth "ｂ", "b" %X]jaX 7  
        DoEvents #!B4 u?"m  
        ConvertWidth "ｃ", "c" ]2A^1Del  
        DoEvents Ha#= (9.  
        ConvertWidth "ｄ", "d" B^=-Z8  
        DoEvents >fG3K`  
        ConvertWidth "ｅ", "e" -12UN(&&Z  
        DoEvents UsG~row:!  
        ConvertWidth "ｆ", "f" 2YL?,uLS  
        DoEvents @ )F)S 7  
        ConvertWidth "ｇ", "g" Z9E\,Ly  
        DoEvents KRbvj  
        ConvertWidth "ｈ", "h" =>S]q71  
        DoEvents !vi> U|rh  
        ConvertWidth "ｉ", "i" >dXGee>'M  
        DoEvents `?H]h"{7Q  
        ConvertWidth "ｊ", "j" ]|pe>:gf'  
        DoEvents +.8 \p5  
        ConvertWidth "ｋ", "k" t|?ez4/{z  
        DoEvents umBICC]CU  
        ConvertWidth "ｌ", "l" d7^}tM  
        DoEvents J`Q>3] wL  
        ConvertWidth "ｍ", "m" u~N?N W Q  
        DoEvents &N9 a<w8+  
        ConvertWidth "ｎ", "n" HdI8f!X'TG  
        ConvertWidth "ｏ", "o" Y;eZ9|Ht9  
        ConvertWidth "ｐ", "p" Ep_HcX`  
        ConvertWidth "ｑ", "q" ^S<Y>Nm]  
        ConvertWidth "ｒ", "r" Z{.8^u1I  
        ConvertWidth "ｓ", "s" p>,|50|  
        ConvertWidth "ｔ", "t" UBKu /@[f@  
        ConvertWidth "ｕ", "u" ZmqKQO  
        ConvertWidth "ｖ", "v" @)+ AaC#-  
        ConvertWidth "ｗ", "w" Wb,KjtX  
        ConvertWidth "ｘ", "x" W-f=]eWg  
        ConvertWidth "ｙ", "y" ";lVa'HMZ  
        ConvertWidth "ｚ", "z" f^ZRT@`O  
        ConvertWidth "Ａ", "A" uh_RGM&  
        ConvertWidth "Ｂ", "B" ,]C;sN%~}  
        ConvertWidth "Ｃ", "C" Oxnp0 s  
        ConvertWidth "Ｄ", "D" C.: <-xo  
        ConvertWidth "Ｅ", "E" G&SB-  
        ConvertWidth "Ｆ", "F" 2ACCh4(/P  
        ConvertWidth "Ｇ", "G" .8g) av+  
        ConvertWidth "Ｈ", "H" eu|YCYj)g  
        ConvertWidth "Ｉ", "I" _%Bi: HG0  
        ConvertWidth "Ｊ", "J" !.$I["/=  
        ConvertWidth "Ｋ", "K" >h1}~jW+  
        ConvertWidth "Ｌ", "L" m,28u3@r  
        ConvertWidth "Ｍ", "M" .~db4d]  
        ConvertWidth "Ｎ", "N" 1#g2A0U,  
        ConvertWidth "Ｏ", "O" _RYx D"m y  
        ConvertWidth "Ｐ", "P" X56q-|  
        ConvertWidth "Ｑ", "Q" jwe*(k]z  
        ConvertWidth "Ｒ", "R" T.F!+  
        ConvertWidth "Ｓ", "S" }v;V=%N+v  
        ConvertWidth "Ｔ", "T" 5<k"K^0 QS  
        ConvertWidth "Ｕ", "U" "9uKtQS0o  
        ConvertWidth "Ｖ", "V" _{O>v\u  
        ConvertWidth "Ｗ", "W" B4/>H|  
        ConvertWidth "Ｘ", "X" yF:1( 4  
        ConvertWidth "Ｙ", "Y" *"2+B&Y  
        ConvertWidth "Ｚ", "Z" jdP2Pf^^  
        ConvertWidth "^l", "^p" Tb}4wLu  
        ConvertWidth "（", "(" X #dmo/L8  
        ConvertWidth "）", ")" >{ ]%F*p4  
     OKZV{Gja  
    End If h^45,E C  
TprTWod2]t  
    With ActiveDocument A|[?#S((]  
        Dim tbl As Table tIi&;tw]  
        For Each tbl In .Tables 1nM  #kJ"  
            tbl.Rows.Alignment = wdAlignRowCenter eeg)N1\  
            tbl.Range.Font.NameFarEast = "楷体" Z#jZRNU%ox  
            tbl.Range.Font.NameAscii = "Times New Roman" R-wp9^  
            tbl.Range.Font.Size = 10.5 G>_*djUf  
        Next PQt")[  
        Set tbl = Nothing ^0 )g/`H^>  
    End With eIF5ZPSZi  
     )}R0Y=e  
     EP&,MYI%E  
    With ActiveDocument %`r$g[<G  
         ]! &FKy  
        For i = 1 To .TablesOfContents.Count %Xd[(Q)  
            .TablesOfContents(i).Delete tFn)aa~L  
        Next Y Uc+0  
         (#c*M?g3  
         JG. y,<xW  
         s+Pq&<nV-  
        paraTotal = .Paragraphs.Count M^Yh|%M  
        paraCounter = 1 +^ac'Y)A  
         bP#:Oi0v`  
        LastTitle0No = 0 ,,.QfUj/&  
        LastTitle1No = 0 \w>y`\6mX  
        LastTitle2No = 0 v"$L702d$\  
        LastTitle3No = 0 "Y.tht H  
        LastTitle4No = 0 Q}JOU  
        LastTableNo = 0 2|y"!JqE1  
        LastFigureNo = 0 Kn{4;Xk\  
         m 0C@G5  
        Dim Sec As Long 2"Q|+-Io  
         hag$GX'2k  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) /62!cp/F/D  
        If Sec = 0 Then @7c?xQVd$  
            Exit Sub Gu,wF(x7A  
        End If !n!*/ [}X  
         =?* !"&h  
        k = 0 ,t744k')  
        Do While (paraCounter < paraTotal) And bContinue s[*rzoA  
            k = k + 1 2nObl'ec  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then ztY}5 A2`  
                Exit Do g =hg%gRy"  
            End If !,uE]gwLw  
            paraCounter = paraCounter + 1 s) t@ol  
            If k Mod 20 = 0 Then 2qNt,;DQ  
                Me.lbCounter.Caption = paraCounter wm@@$  
                DoEvents ;d$rdFA_  
            End If MY)O^I X$  
        Loop EWt[z.`T1  
         octL"t8w  
         rKc9b<Ir  
        Do While (paraCounter < paraTotal) And bContinue  dFc':|  
             bj^5yX;2  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) n6>#/eUH  
            ShapeHeight = 0 \K{ z  
            ShapeWidth = 0 @{e}4s?7od  
           0auYG><=  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth qZh/IW  
             l'1pw  
            Select Case ParaType By,eETU]  
                Case "【】表格内容" C =xa5Y  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" uZYF(Yu  
                Case "章" aKDKm Hd  
                    LastTitle0No = LastTitle0No + 1 2;b\9R^>A  
                    '新一章开始，复位其下属标题编号 B@))8.h]  
                    LastTitle1No = 0 xa*hi87L*  
                    LastTitle2No = 0 rHI{aO7  
                    LastTitle3No = 0 gg/-k;@ Rf  
                    LastTitle4No = 0 {WS;dX4  
                     QL/(72K  
                    k = Val(ttNo) ^CH=O|8j  
                    If k = 0 Then '非数字编号章节 Dpac^ST  
                        If ttNo <> NoSeries1(LastTitle0No) Then cZ*@$%_  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString L{\8!51L  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText 3`?7 <YJ  
                        End If T Z@]:e:"b  
                    Else S+6.ZZ9c  
                        If Val(ttNo) <> LastTitle0No Then .43'HV  
                            rText = "第" & LastTitle0No & ttString G _tCmu\  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText { uFO/  
                        End If \l0[rcEf  
                         #z%fx   
                    End If V &T~zh1  
                     fbvL7* (  
                    '章段落设置 'oVx#w^mf  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 D) P._?  
                    .Paragraphs(paraCounter).Style = "QLNU章节" A\DCW  
                    .Paragraphs(paraCounter).Range.Select # w4-aJ  
                    Selection.EndKey unit:=wdLine VGN5<?PrN  
                    tc = Replace(rText, vbCr, "") ^ +\d z  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False  > |=ts  
                Case "一级标题" hfB%`x#akQ  
                    LastTitle1No = LastTitle1No + 1 5;WH:XM  
                    '新一级标题开始，复位其下属标题编号 {TROoX~H?  
                    LastTitle2No = 0 Z\rwO>3  
                    LastTitle3No = 0 MchA{p&Ol  
                    LastTitle4No = 0 E&w 7GZNt  
                     LOYk9m  
                    If ttNo <> NoSeries1(LastTitle1No) Then A{zN | S[  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString BOX2O.Pm  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText gJ+'W1$/  
                    End If |-ALklXr  
                   2[yd> (`  
                     e%M;?0j  
                    '一级标题段落设置  格式：一、标题内容 Q{>k1$fkV  
                    .Paragraphs(paraCounter).Range.Text = rText 2tO,dx  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" {S \{Ii6  
                    .Paragraphs(paraCounter).Range.Select KF}hV9IU  
                    Selection.EndKey unit:=wdLine MN>b7O \.?  
                    tc = Replace(rText, vbCr, "") {YC@T(  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False =svN#q5s  
                Case "二级标题" d-ko ^Y0  
                    LastTitle2No = LastTitle2No + 1 IPpN@  
                    '新二级标题开始，复位其下属标题编号 @ q3k%$4  
                    LastTitle3No = 0 7A7?GDW  
                    LastTitle4No = 0 4J? 0bZ  
                     JR|ck=tq  
                    If ttNo <> NoSeries1(LastTitle2No) Then >'$Mp<  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString 372rbY  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText q i;1L Kc  
                    End If N~gzDQ3  
                     ; 2#y7!  
                    '二级标题段落设置 格式：(一)、标题内容 :OZrH<SW  
                    .Paragraphs(paraCounter).Range.Text = rText /nsX]V6i  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" t?gic9 q  
                     djZqc5t  
                    .Paragraphs(paraCounter).Range.Select r5/0u(\LB  
                    Selection.EndKey unit:=wdLine .{^5X)  
                    tc = Replace(rText, vbCr, "") 29b9`NXt  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False T::85  
                 9FR5Jw>t  
                Case "三级标题" WU` rh^  
                    LastTitle3No = LastTitle3No + 1 gJ{)-\  
                    '新三级标题开始，复位其下属标题编号 wlvgg  
                    LastTitle4No = 0 6MW{,N  
                     H?Wya.7  
                    If Val(ttNo) <> LastTitle3No Then OT*mO&Z  
                            rText = LastTitle3No & ". " & ttString gH vZVC[b  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText J;e2&gB  
                         Om@;J%u/  
                    End If i] 4I [!  
                    '三级标题段落设置 格式：1. 标题内容 0+ '&`Q!u  
                    .Paragraphs(paraCounter).Range.Text = rText gD?l-RT>  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" \)[j_^  
                    .Paragraphs(paraCounter).Range.Select Q&;9 x?e  
                    Selection.EndKey unit:=wdLine }.(B}/$u  
                    tc = Replace(rText, vbCr, "")  _[3D  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False r u%y  
                Case "四级标题" 3"e ,q Y  
                    LastTitle4No = LastTitle4No + 1 "sCRdx]_  
                     pv&sO~!iC  
                    If Val(ttNo) <> LastTitle4No Then xo&_bMO  
                            rText = "(" & LastTitle4No & "). " & ttString 3hH<T.@)  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText e *C(q~PQ  
                     V!=,0zy~Z  
                    End If #!# l45p6  
                    '四级标题段落设置 格式：(1). 标题内容 B3I`40#  
                    .Paragraphs(paraCounter).Range.Text = rText J8(lIk:e  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" N+xP26D8  
                    .Paragraphs(paraCounter).Range.Select '<<t]kK[N  
                    Selection.EndKey unit:=wdLine J@'wf8Ub  
                    tc = Replace(rText, vbCr, "") {P./==^0  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False ITBE|b  
                 )&O %*@F  
                Case "表格标题" e T{ 4{  
                    LastTableNo = LastTableNo + 1 /6* 42[r  
                     'H!Uh]!  
                    If ttNo <> CStr(LastTableNo) Then RqrdAkg  
                            rText = "表" & LastTableNo & ". " & ttString m0SlOgRsk  
                            ErrMsg.AddItem "表格编号错误：" & ParaText AT3Mlz~7#  
                   reWot&;  
                    End If /~?*=}c^m  
                     X_h}J=33Q  
                    '表格名称段落设置 格式：表1. 表格名称 )akoa,#%6c  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" %> eiAB_b  
                    xe = Replace(rText, vbCr, "") bE..P&"  
                    .Paragraphs(paraCounter).Range.Select 8<.Oq4ku  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 j^JPZ{ej ?  
                    Selection.Range.Text = xe cq]6XK-W  
                    Selection.EndKey t*u:hex  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False L2z[   
                 q9_OGd|P  
                Case "表格首行" n\53wh@+  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" /3T1U  
                Case "图片标题" o.!Dq7 R  
                    LastFigureNo = LastFigureNo + 1 Q%G8U#Tm  
                     KpGhQdR#  
                    If ttNo <> CStr(LastFigureNo) Then 2ilQX y  
                            rText = "图" & LastFigureNo & ". " & ttString eMsd37J  
                            ErrMsg.AddItem "表格编号错误：" & ParaText Gef TdO.&  
                   FZlWsp=  
                    End If 9A=,E&  
                    '图片名称段落设置 格式：图1. 图名称 r19 pZAc  
                    .Paragraphs(paraCounter).Range.Text = rText F41=b4/  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" IJ"q~r$  
                    .Paragraphs(paraCounter).Range.Select S\=Nn7"  
                    Selection.EndKey unit:=wdLine ,"ZMRq  
                    xe = Replace(rText, vbCr, "") VONDc1%ga  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False TJRCH>E[a  
                Case "正文" T 5h  H  
                     '正文名称段落设置 0h_|t-9j  
                    .Paragraphs(paraCounter).Style = "QLNU正文" R 9\*#c  
               Case "文献条目" zF<R'XP  
                    With .Paragraphs(paraCounter) +0Y&`{#Z  
                        '.Range.Select K%oG,-wdg  
                        'Selection.ClearFormatting H{wl% G  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” 6&x@.1('z  
                        .Style = "QLNU参考文献" ?tbrbkx  
                    End With /4Gt{yg Sr  
               Case "图表注解" c@7rqHU-0  
                    With .Paragraphs(paraCounter) 25?6gu*Z  
                        .Range.Font.NameFarEast = "楷体" lo+A%\1  
                        .Range.Font.NameAscii = "Times New Roman" ez$(c  
                        .Range.Font.Size = 9 '小5号字 .q>iXE_c  
                         %h@EP[\  
                        .Alignment = wdAlignParagraphCenter }7Q%6&IR  
                        .LeftIndent = 0 bAMdI 5Zk?  
                        .RightIndent = 0 '=pU^Oz<}  
                        .FirstLineIndent = 0 T~e.PP  
                        .LineSpacing = 12 L0o\J` :  
                        .LineSpacingRule = wdLineSpaceExactly K0>zxqY  
                        .LineUnitAfter = 0 L8B! u9%  
                        .LineUnitBefore = 0 .k !{*  
                        .OutlineLevel = wdOutlineLevelBodyText 0(HU}I  
                        .PageBreakBefore = False V,njO{Q  
                        .RightIndent = 0 (<9u-HF#  
                        .WordWrap = True sgFEK[w .y  
                        .LineUnitAfter = 0.5 fHFE){  
                         [W&T(%(W-  
                    End With *2l7f`K  
                Case Else k(HUUH_z  
                    '不作处理 4pvMd  
            End Select WsB?C&>x  
             %ET+iIhK  
            '含有inlineshape的段落处理 0=YI@@n)  
            If ShapeHeight > 30 Then >[#f\bG>  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 Z T %5T}i  
            End If fJg+Ryo  
             M= (u]%\  
            If (ShapeWidth + ShapeHeight) > 150 Then 2+XA X:YD  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" 9' B `]/L  
            End If "y}5;9#,  
             @VEb{ w[H  
            '段落计数器递 Dd|VMW=  
            paraCounter = paraCounter + 1 upmx $H>  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter 9* M,R,y  
            Me.txtStatus.Text = ParaText AK4t\D)K1  
            DoEvents y9ZvV0  
        Loop x%B%f`]8  
    End With W=?<<dVYD  
     75lA%| *X  
    msg = "" a7opCmL  
     z24q3 3O  
    For i = 0 To Me.ErrMsg.ListCount - 1 B+`g> h  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) > (<f 0  
    Next 6gDN`e,@  
      ob]w;"  
     *.[. {qG(  
     z$sT !QL~  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg yG{TH0tq  
    Me.cmdCheck.Enabled = True tw@X> G1 z  
    Me.txtStatus.Visible = True Pq$n5fZC !  
    Me.lbParaType.Visible = False FSO).=#  
     ~n_HP_Kf?  
    bContinue = False Di{de`  
End Sub 8s@3hXD&  
UN#S;x*  
Sub CheckPara(ByRef ChKRange As Range, ParaType As String, ReplaceTEXT As String, TitleString As String, TitleNo As String, shpCounter As Long, MaxShpHeight As Long, TotalShpWidth As Long) :ws<-Qy  
    Dim pTEXT As String nw<uyaU-t  
     ?@x/ E&  
    pTEXT = ChKRange.Text m&3xJuKih  
     gSj,E8-g  
    ParaType = "其它" F+qm[Bc8  
    TitleString = pTEXT * ;FdD{+  
    TitleNo = "N/A" %cn<ych G  
     pb,d'z\S  
    shpCounter = ChKRange.InlineShapes.Count (ZlU^Gw#UB  
    If shpCounter <> 0 Then tH4B:Bgj!  
        MaxShpHeight = 0: TotalShpWidth = 0 sI2^Qp@O1  
        For i = 1 To shpCounter -9?]IIVb  
            k = ChKRange.InlineShapes(i).Height d'> x(Yi  
            l = ChKRange.InlineShapes(i).Width 5^Zg>I  
            If k > MaxShpHeight Then Q>z8IlJ}  
                MaxShpHeight = k Hl=xW/%6y  
            End If X?Q4}Y  
            TotalShpWidth = TotalShpWidth + l *- X[u:  
        Next yHaGkm  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then 53 h0UL  
            Exit Sub PA*5Bk="q  
        End If H5an%kU|j  
    End If * T1_;4i  
      bN.Pex  
    '空行 \;Weizq5  
    If Len(pTEXT) <= 2 Then #vlgwA  
        Exit Sub kJR`:J3DJ  
    End If MdF2Gk-9  
     8@R|Km5h  
         lB4WKn=?Kl  
    '是否为表格中的文字 ]:n,RO6  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then 7 tp36TE  
        ParaType = "表格内容" 7yQ4*UB  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) *Pr  )%  
        If k = 1 Then 4,ag(^}=  
            ParaType = "表格首行" "dlV k~  
        End If *4 n)  
        Exit Sub z$sGv19pB  
    End If ;Rf'P}"]  
     0g;|y4SN=  
    '例外情况：脚注 DmcZta8n]  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then E{(;@PzE  
        ParaType = "脚注" =_^X3z0  
        Exit Sub eMzk3eOJ  
    End If e3\T)x &=  
     *^`Vz ?g<  
    '例外情况：尾注 *qq+jsA6wH  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then j>kqz>3  
        ParaType = "尾注" LP=)~K<  
        Exit Sub Zd+bx*rD  
    End If i XN1I   
     t{ >q|0  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then Hn:Crl y#  
        ParaType = "页眉页脚" wd6owr  
        Exit Sub ]M3yLYK/P  
    End If  D%Z|  
     %so]L+r2!  
     dh\P4  
    With regEX %iB,IEw  
        .Global = True ,zc(t<|-y  
         l^ }c!  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" |W^IlqTH  
        If regEX.Test(pTEXT) Then 2g<Xtt7+o  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") l ,).p  
            TitleString = regEX.Replace(pTEXT, "$3") EQ_aa@M7  
            TitleNo = regEX.Replace(pTEXT, "$1") cwL_tq  
            ParaType = "章" ;*J  
            Exit Sub gqR(.Pu  
        End If i#O SC5ZI  
         UxBpdm%dvP  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" VEH>]-0K  
        If regEX.Test(pTEXT) Then '%;m?t% q  
            ParaType = "一级标题" VU#7%ufu&  
            regEX.Execute (pTEXT) 05R@7[GWq  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") PY'2h4IL  
            TitleString = regEX.Replace(pTEXT, "$3") pfPz8L.7  
            TitleNo = regEX.Replace(pTEXT, "$1") y`Z\N   
            Exit Sub @)}L~lb[)  
        End If TA\vZGJ('  
         1;iUWU1@  
        '全角或半角括号中的数字 c@Is2 9t*  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" .)3<Q}>  
        If regEX.Test(pTEXT) Then {8etv:y  
            ParaType = "二级标题" 18Emi<&A  
            regEX.Execute (pTEXT) {`_i`  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") ?]5qr?W%  
            TitleString = regEX.Replace(pTEXT, "$5") p<%d2@lp  
            TitleNo = regEX.Replace(pTEXT, "$2") OT v)  
            Exit Sub u? EN  
        End If \U0'P;em  
         \<K5ZIWV  
        '阿拉伯数字  1. 2. n"8Yv~v*2j  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" "M0z(N kH  
        If regEX.Test(pTEXT) Then io w"n$/  
            ParaType = "三级标题" ^rz_f{c]-  
            regEX.Execute (pTEXT) 9H~n _   
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 )%]J>&/0J  
            TitleString = regEX.Replace(pTEXT, "$3") "  1tH   
            TitleNo = regEX.Replace(pTEXT, "$1") n+p }\msH  
            Exit Sub IGgL7^MF  
        End If jWgX_//!  
         9M ]_nPY  
        '全角或半角括号中的阿拉伯数字 ~"bV L[  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" +|f@^-  
        If regEX.Test(pTEXT) Then kGJC\{N5N  
            ParaType = "四级标题" iDD$pd,e\  
            regEX.Execute (pTEXT) O0:q;<>z  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") b2*TgnRq  
            TitleString = regEX.Replace(pTEXT, "$5") CGFDqCNr-  
            TitleNo = regEX.Replace(pTEXT, "$2") ykJ>*z  
            Exit Sub QWU-m{@~&  
        End If +,l-Nz  
         7$#u  
        '表格名称 3U}%2ARo_  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" L50n8s  
        If regEX.Test(pTEXT) Then xx $cnG  
            ParaType = "表格标题" (At$3b6  
            regEX.Execute (pTEXT) ig"L\ C"T  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) 8,|kao:  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) fsXy"#mOkD  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) bd`P0f?  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 b MBLXk  
            Exit Sub tBSW|0  
        End If H*6W q  
         YZ7.1`8  
        '图片名称 { )Xy%QV  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" #;S*V"  
        If regEX.Test(pTEXT) Then 7Yy ;  
            ParaType = "图片标题" 62u4-}JzF  
            regEX.Execute (pTEXT) cb  bFw  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") h`KU\X ) A  
            TitleString = regEX.Replace(pTEXT, "$3") _Ey5n!0:  
            TitleNo = regEX.Replace(pTEXT, "$1") ,//S`j$S  
            Exit Sub [B3RfCV{  
        End If 0`H# '/  
         ^sZ,2,^  
        '参考文献 /@5YW"1  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 hGrdtsH?  
        If regEX.Test(pTEXT) Then T{'RV0%   
            ParaType = "文献条目" )}v l\7=  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") ('~LMu_  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") 1x^GWtRp  
            Exit Sub `_h&glMJ,q  
        End If V6Dbd" i9  
         Hp?/a?\Xm  
        prfx = Left(pTEXT, 2) 8k79&|  
        If prfx = "注：" Or prfx = "注:" Then $ Q0n  
            ParaType = "图表注解" <N @Gu!N8  
            Exit Sub =u;MCQ[  
        End If ]'S^]  
         JS77M-Ac  
         !9x}  
        ParaType = "正文" t,' <gI  
         xD$\,{  
    End With >sbu<|]a 7  
End Sub 5-M-X#(  
8Y?;x}  
Sub ConvertListToOrdinary() =c7;r] Ol  
    Dim st As Paragraph !'Kj x  
    With ActiveDocument L(\cHb9`  
        For i = .Paragraphs.Count To 1 Step -1 >dT*rH3w  
            Set st = .Paragraphs(i) \NC3'G:Ii  
            lst = st.Range.ListFormat.ListString ce(#2o&`  
            If lst <> "" Then }WV:erg`  
                st.Range.ListFormat.RemoveNumbers P;*(hY5&  
                st.Range.InsertBefore lst & " " #"an9<  
            End If V.Mry`9-  
        Next E"0>yl)  
    End With % )n=x ne  
    Set st = Nothing $xQL]FmS  
End Sub 8>V5d Ebx'  
Pz^544\~ou  
Private Sub UserForm_Activate() .(vwIb8\_  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" I:.s_8mH}  
    Me.lbTotal.Font.Bold = True @ P|y{e6  
    Me.txtStatus.Visible = False EK'!}OGCG  
    Me.cmdCheck.Enabled = True Dh*n!7lD`  
Ss`LLq0LO  
End Sub v0y(58Rz.  
I@3MO0V^  
Xr{v~bf  
Sub CheckSuperScript() ite~E5?#  
    Selection.Find.ClearFormatting NVs@S-rpX  
    Selection.Find.Replacement.ClearFormatting 28nFR r  
    With Selection.Find #;<Y[hR{P  
        .Text = "[【\[［〖](*)[】\]〗］]"  _4f;<FL  
        .Replacement.Text = "[\1]" OJxl<Q=z  
        .Replacement.Font.Superscript = True hOeRd#AQK  
        '.Replacement.Font.Color = wdColorBlue 9FX-1,Jx  
        .Forward = True F!do~Z  
        .Wrap = wdFindContinue ~XIb\m9H  
        .FORMAT = True "5 A! jq  
        .MatchCase = False $8F UfJ1@  
        .MatchWholeWord = False f!"w5qC^  
        .MatchByte = False /O9EQPm(  
        .MatchAllWordForms = False 7o4\oRGV  
        .MatchSoundsLike = False +h$ 9\  
        .MatchWildcards = True > P)w?:k  
    End With uq{ beC  
    Selection.Find.Execute Replace:=wdReplaceAll 4I7>f]=)  
End Sub @WB@]-+J T  
cNH7C"@GVu  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) ;Xw~D_uv  
    bContinue = False ElXFeJ%[G  
    Set regEX = Nothing 54/=G(F   
End Sub ~5g~;f[4  
=Sv/IXX\di  
Sub CeateOrModifyStyle() %3 rP `A  
' YS ][n_  
' ])!*_  
Dim stl As Style x"~JR\yzKJ  
     o(HbGHIP  
    Options.Pagination = False `x|?&Ytmf9  
     Y ay?=Y{  
    On Error Resume Next  @8 6f  
    For Each stl In ActiveDocument.Styles Z ]ONh  
        stl.Delete N;gfbh]  
    Next NO3/rJ6-  
    On Error GoTo 0 5X+A"X ;C  
     *`U~?q}  
    Set stl = Nothing n*$ g]G$  
     rs.)CMk53  
    DoEvents He)%S]RLk  
    On Error Resume Next 'VbiVLWD  
     BuwY3F\-O  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph h$*!8=M  
     UI#h&j5p W  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph [gB+C84%%  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph `2snz1>!j  
     F5Va+z,jg  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph {8aTV}Ha2  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph 8- i#8'/x  
     ;);kEq/=P  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph ix$bRdl  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph 6wxs1G  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph Y0>y8U V  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph M`>E|" <  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph D]}G. v1  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph % `3jL7|  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph >V~E]P%@  
     "]dI1 g_  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph fIF8%J ^3  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph 26nx`w?j(  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph kP"9&R`E  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph $^ P0F9~0  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph :%.D78&  
     4Up/p&1@  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph l ,8##7  
    On Error GoTo 0 z@Y;r=v  
    DoEvents c|%6e(g"L  
     nR~(0G,H  
    'BaseStyle m2o0y++TjW  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False C]#,+q*  
    With ActiveDocument.Styles("BaseStyle").Font hQ i 2U  
        .NameFarEast = "宋体" v1[29t<I!  
        .NameAscii = "Times New Roman" B3BN`mdn>  
        .NameOther = "宋体" 9iq_rd]  
        .Size = 10.5 :r[`.`  
        .Bold = wdUndefined *or(1DXP8  
        .Italic = wdUndefined nlYNN/@"  
        .Subscript = wdUndefined  `]X>V,  
        .Subscript = wdUndefined "fI6Cpc  
         &vJH$R  
        .Underline = wdUnderlineNone d5.4l&\u  
        .UnderlineColor = wdColorAutomatic c:0L+OF}xY  
        .StrikeThrough = False r,udO,Yi=c  
        .DoubleStrikeThrough = False yw!{MO  
         OH88n69  
        .Outline = False 9UkBwS`  
        .Emboss = False q@qsp&0/  
        .Shadow = False N0lC0 N?_J  
        .Hidden = False 6-I'>\U~  
        .SmallCaps = False e!Hhs/&!T  
        .AllCaps = False j F>[?L  
        .Color = wdColorAutomatic +H.`MZ=  
        .Engrave = False : 'c&,oLY  
        .Scaling = 100 ;I*o@x_  
        .Kerning = 1 >bxS3FCX  
        .Animation = wdAnimationNone G#CXs:1pd+  
        .DisableCharacterSpaceGrid = False .h[:xYm  
        .EmphasisMark = wdEmphasisMarkNone k\IbIv7?i  
    End With ?0SEMmp`H  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat "{n&~H`  
        .LeftIndent = 0 R@0R`Zs  
        .RightIndent = 0 RpK@?[4s  
        .SpaceBefore = 0 /mMV{[  
        .SpaceBeforeAuto = False G"6 !{4g  
        .SpaceAfter = 0 '7/)Ot(  
        .SpaceAfterAuto = False zTp"AuNHN  
         *fdTpXa  
        .LineSpacingRule = wdLineSpaceSingle _+,TT['57s  
        .Alignment = wdAlignParagraphJustify n ;Ei\\p!  
         Rv=YFo[B  
        .WidowControl = False Gq6*SaTk  
        .KeepWithNext = False yr 6V3],Tp  
        .KeepTogether = False \8 ":]EU  
        .PageBreakBefore = False Si7*& dw=  
        .NoLineNumber = False R=dC4;  
         @oNXZRg6  
        .FirstLineIndent = CentimetersToPoints(0) JLYi]nZ  
        .OutlineLevel = wdOutlineLevelBodyText ?(PKeq6  
        .CharacterUnitLeftIndent = 0 U(Zq= M  
        .CharacterUnitRightIndent = 0 y(&Ac[foS}  
        .CharacterUnitFirstLineIndent = 0 ]yu:i-SfP  
        .LineUnitBefore = 0 phK/   
        .LineUnitAfter = 0 y2v^-q3  
        .AutoAdjustRightIndent = True >0gW4!7Y  
        .DisableLineHeightGrid = True XkqCZHYkS  
         F:VIzyMq<  
        .FarEastLineBreakControl = True ;*N5Y}?j'  
        .WordWrap = True "8/,Y"W"  
        .Hyphenation = False :Al!1BJQ  
         !W\+#ez  
        .HangingPunctuation = True N;d] 14|  
        .HalfWidthPunctuationOnTopOfLine = True SKtrtm  
        .AddSpaceBetweenFarEastAndAlpha = True cR{#V1Z  
        .AddSpaceBetweenFarEastAndDigit = True #ABCDi={zA  
        .BaseLineAlignment = wdBaselineAlignBaseline ~dSr 5LUD  
    End With v^iAD2X/F  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False ~@!bsLSMU  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll s.#`&Sd>  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese &L:!VL{I  
    ActiveDocument.Styles("BaseStyle").NoProofing = False j+!v}*I![  
     l.]xB,k  
    '一级标题题样式 Zc yc*{DS  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ~[ F`"  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" L-Lvp%%  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False i?/qY&~  
    With ActiveDocument.Styles("QLNU一级标题").Font pw#-_  
        .NameFarEast = "黑体" =v\.h=~~  
        .NameAscii = "Arial Black" ==B6qX8T  
        .NameOther = "黑体" K'xV;r7Nt  
        .Name = "黑体" 5s XXM  
        .Size = 16              '三号 b' y%n   
        .Bold = True 7nSxi+6e  
        .Italic = wdUndefined i1085ztN  
        .Subscript = wdUndefined No$3"4wk  
        .Superscript = wdUndefined 5N]"~w*  
    End With CAlCDfKW}  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat \^LFkp  
         [?gP;,  
        .LeftIndent = CentimetersToPoints(0) +_`7G^U?%  
        .RightIndent = CentimetersToPoints(0) Lr+$_ t}r  
        .FirstLineIndent = CentimetersToPoints(0) 5^cCY'I  
         Y@v>FlqI{  
        .LineSpacingRule = wdLineSpaceSingle >ef6{URy<  
        .Alignment = wdAlignParagraphCenter =%7 -ZH9  
         Fcx&hj1gQ  
        .WidowControl = True H+#FSdy#  
        .KeepWithNext = True [KQi.u  
        .KeepTogether = True $j~RWfw-  
        .OutlineLevel = wdOutlineLevelBodyText &[9709 (=  
         $xqa{L%B  
        .LineUnitBefore = 0.5 I'Hf{Erw  
        .LineUnitAfter = 0.5 jCY %|  
    End With ~~.}ah/_d  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False z{543~Og59  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll b$7 +;I;  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese xG 1n GO  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True {vj)76%y  
    DoEvents DH=hH&[e(d  
     Ni>[D"|  
    '二级 Zfw,7am/  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") NHt\ U9l'  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" vI?, 47Hj+  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False [;N'=]`  
    With ActiveDocument.Styles("QLNU二级标题").Font @CoIaUVP  
        .NameFarEast = "黑体" h;Qk @F  
        .NameAscii = "Arial Narrow" >~f]_puT  
        .NameOther = "黑体" `XKLU  
        .Name = "黑体" TvM~y\s  
        .Size = 15        '小三号 N mG#   
        .Bold = False "tZe>>I  
        .Outline = False [Pp'Ye~K@c  
        .Italic = wdUndefined t-AmX) $  
        .Subscript = wdUndefined 8|^7ai[am  
        .Superscript = wdUndefined 4 6x'I(  
    End With MA\V[32H  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat AX INThJ  
        .LeftIndent = CentimetersToPoints(0) [UR-I0 s!/  
        .RightIndent = CentimetersToPoints(0) cNrg#Asen&  
        .FirstLineIndent = CentimetersToPoints(0) "4Nt\WQ  
         hoP]9&<T  
        .LineSpacingRule = wdLineSpaceSingle pCDmXB  
        .Alignment = wdAlignParagraphLeft ?0.NIu,,o  
         h;Kx!5)y  
        .WidowControl = True YUb_y^B^  
        .KeepWithNext = True 4| f*eO  
        .KeepTogether = True } \f0 A-  
        .PageBreakBefore = False iscz}E,Y  
        .OutlineLevel = wdOutlineLevelBodyText {:s f7  
         f<_Cq <q"  
        .LineUnitBefore = 0.5 o-\[,}T)M  
        .LineUnitAfter = 0.5 5-V pJ  
         R_KH"`q  
    End With Iv *<L a  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False s~>}a  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll =I<R!ZSN  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese aXVFc5C\  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True OI*H,Z "  
    DoEvents  G *m 0\  
     1 zZlC#V  
    '三级标题样式 3$tdwe$S  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") e.>P8C<&  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" ?< />Z)  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False ]'cs.  
    With ActiveDocument.Styles("QLNU三级标题").Font #c J@uqR  
        .NameFarEast = "宋体" l} /F*  
        .NameAscii = "Times New Roman" DXo|.!P=3  
        .NameOther = "黑体" H\ %7%  
        .Name = "黑体" K9[UB  
        .Size = 14               '四号 J,hCvm  
        .Bold = False 1oS/`)  
        .Outline = False ' QG?nu  
        .Italic = wdUndefined '91/md5  
        .Subscript = wdUndefined M}a6Vu9  
        .Superscript = wdUndefined 1\Xw3prH  
    End With {ax:RUQxy  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat 0sqFF[i  
        .LeftIndent = CentimetersToPoints(0) Z;i:](  
        .RightIndent = CentimetersToPoints(0) }C:r 9? T  
        .FirstLineIndent = CentimetersToPoints(0) ]]mJ']l  
         W!X@  
        .LineSpacingRule = wdLineSpaceSingle :/#rZPPF  
        .Alignment = wdAlignParagraphLeft x:;kSh  
         4 5e~6",  
        .WidowControl = True 8}[).d160  
        .KeepWithNext = True e(sk[guvX  
        .KeepTogether = True XSDpRo  
        .PageBreakBefore = False T%Lx%Qn  
        .OutlineLevel = wdOutlineLevelBodyText 7/H)Az@i45  
         Ri{=] $  
        .CharacterUnitLeftIndent = 0 Ba,`TJ%y  
        .CharacterUnitRightIndent = 0 _w{Qtj~s|  
        .CharacterUnitFirstLineIndent = 2 |>Vb9:q9Po  
         \RiP  
        .LineUnitBefore = 0.5 $ `c:&  
        .LineUnitAfter = 0 97]E1j]  
    End With uZ5p# M_  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False sx%[=g+<2(  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll hM{bavd  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese eDMO]5}Ht  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True #R"*c hLV  
    DoEvents 6<]lW  
     M{@(G 5  
    '四级标题样式 x Ar\gu  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") M+>u/fldV  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" -~0^P,yQ  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False Ulyue  
    With ActiveDocument.Styles("QLNU四级标题").Font S!UaH>Rh  
        .NameFarEast = "宋体"  \zkg  
        .NameAscii = "Times New Roman" ^c<Ve'-  
        .NameOther = "宋体" M7T5 ~/4  
        .Name = "宋体" ^ y::jK  
        .Size = 12               '小四号 /(cPfZZ  
        .Bold = True  Sf'CN8  
        .Outline = False ,hVli/  
        .Italic = wdUndefined A<{{iBEI`  
        .Subscript = wdUndefined %{|pj +  
        .Superscript = wdUndefined pb}*\/ s  
    End With ?}0,o.  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat DF= *_,2/  
         KwS@D9bok  
        .LeftIndent = CentimetersToPoints(0) Za9qjBH   
        .RightIndent = CentimetersToPoints(0) .3;;;K9a~]  
        .FirstLineIndent = CentimetersToPoints(0) uYN`:b8  
         vt 8By@]:  
        .LineSpacingRule = wdLineSpaceSingle *T/']t  
        .Alignment = wdAlignParagraphLeft Tx D#9]Q`  
         vgPCQO([  
        .WidowControl = True w}KkvP^  
        .KeepWithNext = True | (93gJ  
        .KeepTogether = True m@c)Xci  
        .PageBreakBefore = False qna8|3eP  
        .OutlineLevel = wdOutlineLevelBodyText }j%5t ~Qa  
         NOva'qk  
        .CharacterUnitLeftIndent = 0 L_T5nD^D  
        .CharacterUnitRightIndent = 0 gJXaPJA{  
        .CharacterUnitFirstLineIndent = 2 p'%s=TGwv  
         DI>s-7  
        .LineUnitBefore = 0 AKC`TA*E  
        .LineUnitAfter = 0 ]/Pn EU[  
         yAt ^;  
    End With 8=l%5r^cq  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False f8~_E  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll XTy x r  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese u_enqC3  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True *pq\MiD/  
    DoEvents w>gYx(8b  
     nUO0Ce  
    '正文校式 a9gLg &  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") Sc0w.5m6  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" ]DcFySyv  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False ^sw?gH*  
    With ActiveDocument.Styles("QLNU正文").Font X8|,   
         [WmM6UEVS  
        .NameFarEast = "宋体" 0S"MC9b eg  
        .NameAscii = "Times New Roman" :> '+"M2r  
        .NameOther = "宋体" h 0$iOE  
        .Name = "宋体" #mF"1QW  
         $i&zex{\  
        .Size = 12               '小四号 b=vkiO`2  
         _b 0& !l<  
        .Bold = wdUndefined z_HdISy0  
        .Italic = wdUndefined )pa]ui\t  
        .Subscript = wdUndefined HfVZ~PP  
        .Superscript = wdUndefined Vk suu@cch  
         &ncvGDGi  
        .Outline = False Da|z"I x  
        .Emboss = False L,\ Iasv  
        .Shadow = False AH^/V}9H  
        .Hidden = False @]j1:PN-  
         80I#TA6C  
        .DisableCharacterSpaceGrid = True +[VXs~I q  
    End With ^ c|/*u  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat ^W ^OfY  
         kmW4:EA%  
        .LeftIndent = CentimetersToPoints(0) ;pAK_>  
        .RightIndent = CentimetersToPoints(0) s<Ziegmw|g  
        .FirstLineIndent = CentimetersToPoints(0) J5qZFD  
         Ac@VGT:9  
        .LineSpacingRule = wdLineSpaceExactly m`XHKRp  
        .LineSpacing = 20 c)J%`i$  
        .Alignment = wdAlignParagraphLeft jp,4h4C^)  
         s!J9|]o  
        .WidowControl = False 7! Nsm  
        .KeepWithNext = False 9w"*y#_  
        .KeepTogether = False HN"Z]/ 5j  
        .PageBreakBefore = False TOt dUO  
        .Hyphenation = False h{Y",7] !  
         V0@=^Bls  
        .OutlineLevel = wdOutlineLevelBodyText ZVBXx\{s  
         gdc<ZYcM  
       }#fbbtd  
        .CharacterUnitLeftIndent = 0 ]gOy(\B  
        .CharacterUnitRightIndent = 0 tw;}jh  
        .CharacterUnitFirstLineIndent = 2 aN?zmkPpov  
         *@5@,=d  
        .LineUnitBefore = 0 [JiH\+XLPs  
        .LineUnitAfter = 0 <)9y{J}s:  
        .SpaceBefore = 0 as|<}:V  
        .SpaceAfter = 0 7.Op<  
         4Z*/WsCv  
        .DisableLineHeightGrid = True 1zv'.uu.,  
    End With sRs>"zAg  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False 4RO}<$Nx}  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll %J(:ADu]  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese ?`s8 pPc4  
    ActiveDocument.Styles("QLNU正文").NoProofing = True th_oJcS  
    DoEvents 9{l}bu/u  
     _>+Ld6.T6  
    '图片段落样式 G{}VPcrbC  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") T)/eeZ$  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" RZLq]8pM  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False fhiM U8(&  
    With ActiveDocument.Styles("QLNU图片段落").Font lA]8&+,ZM  
        .Size = 12               '小四号 vXs"Dst  
        .Italic = wdUndefined Ml_^ `vn  
        .Subscript = wdUndefined kP:!/g  
        .Superscript = wdUndefined ?s01@f#  
    End With N8jIMb'<  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat uRvP hkqm  
         (QEG4&9  
        .LeftIndent = CentimetersToPoints(0) TjH][bH5  
        .RightIndent = CentimetersToPoints(0) [y(MCf19  
        .FirstLineIndent = CentimetersToPoints(0) QRUz `|U  
         [n@] r2g)3  
        .LineSpacingRule = wdLineSpaceSingle L!92P{K  
        .Alignment = wdAlignParagraphCenter 01]f2.5  
        .KeepWithNext = True SUiOJ[5,  
        .OutlineLevel = wdOutlineLevelBodyText _6Sp QW  
         D*jM1w_`  
        .CharacterUnitLeftIndent = 0 (`^1Y3&2  
        .CharacterUnitRightIndent = 0 )9g2D`a4  
        .CharacterUnitFirstLineIndent = 0 S jqpec8  
         }2jn[${ pr  
        .LineUnitBefore = 0 ( .:e,l{U%  
        .LineUnitAfter = 0 Wr 4,YQM  
    End With H_a[)DT  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False l?e.9o2-  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll }bxs]?OW>  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese 7!1S)dup  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True yWK)vju"  
    DoEvents 7Q 3k 7  
     (PL UFT  
     ?,z}%p  
    '第X章 6K^#?Bn;  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") oH@78D0A  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" )lkjqFQ(  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False { 6il`>=C  
    With ActiveDocument.Styles("QLNU章节标题").Font C%u28|  
        .NameFarEast = "黑体" M`_0C38  
        .NameAscii = "Arial Black" {7[Ox<Ho  
        .NameOther = "Arial Black" 2y4bwi  
        .Name = "黑体" x2xRBkRg=  
        .Size = 16 $'vU2L  
        .Bold = True ES[G  
        .UnderlineColor = wdColorAutomatic [agMfn  
        .Outline = False V~GDPJ+  
        .Italic = wdUndefined i-1op> Y  
        .Subscript = wdUndefined YK_ 7ip.a[  
        .Superscript = wdUndefined MgZ/(X E  
        .Scaling = 100 =_CzH(=f#  
        .DisableCharacterSpaceGrid = True L(-4w+  
    End With %9"H   
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat }BEB1Q}L  
        .LineSpacingRule = wdLineSpaceSingle VY-EmbkG-t  
        .Alignment = wdAlignParagraphCenter _a, s )  
        .WidowControl = True 81F9uM0  
        .KeepWithNext = True I9^x,F"E]  
        .KeepTogether = True =;L|gtH"  
        .PageBreakBefore = True e\rp)[>'  
        .OutlineLevel = wdOutlineLevelBodyText [^iN}Lz  
         \z$= K  
        .LeftIndent = CentimetersToPoints(0) pglVR </  
        .RightIndent = CentimetersToPoints(0) wYea\^co  
        .FirstLineIndent = CentimetersToPoints(0) )%TmAaj9d  
         0GwR~Z}Z  
        .CharacterUnitLeftIndent = 0 z{q`GwW  
        .CharacterUnitRightIndent = 0 8*X4\3:*N  
        .CharacterUnitFirstLineIndent = 0 awRX1:T#;O  
         $ nb[GV  
        .LineUnitBefore = 1 Qs!5<)6  
        .LineUnitAfter = 0.5 _`X:jj>  
         W?& %x(6M  
        .AutoAdjustRightIndent = False +{]j]OP  
        .DisableLineHeightGrid = True P \I|,  
        .FarEastLineBreakControl = True @7 }W=HB  
        .WordWrap = True "+c-pO`Wg  
    End With X$ D6Ey  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False X w1*(ffk  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll mpyt5#f  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese 3]hWfj1m2  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True h[ ZN+M  
    DoEvents Ry&6p>-  
     ?6!LL5a.  
    '表格标题  " bG2:  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") X}]-*T|a  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" vN $s|R'@  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False G@0& 8  
    With ActiveDocument.Styles("QLNU表格标题").Font 6Wn1{v0  
        .NameFarEast = "楷体" (Ldi|jL  
        .NameAscii = "Arial" +@UV?"d  
        .Name = "楷体" ;uW FHc5@B  
        .Size = 10.5 @Qe0! (_=  
        .Bold = True gYj'(jB  
        .Underline = wdUnderlineNone }p V:M{Nu&  
        .Italic = wdUndefined rv;3~'V  
        .Subscript = wdUndefined %T[]zJ(  
        .Superscript = wdUndefined y =@N|f!  
        .Color = wdColorAutomatic ceA9) {  
    End With sW$XH1Uf#  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat SbZ6t$"  
         U$g?!Yl0  
        .LineSpacingRule = wdLineSpaceSingle u*R_\*j@  
        .Alignment = wdAlignParagraphCenter /Oono6j  
        .KeepWithNext = True MV"=19]  
        .KeepTogether = True z:O8Ls^\T  
        .OutlineLevel = wdOutlineLevelBodyText +ZYn? #IQ  
         4-w{BZu S  
        .LeftIndent = CentimetersToPoints(0) )oZ dj`  
        .RightIndent = CentimetersToPoints(0) !-bB559Nv  
        .FirstLineIndent = CentimetersToPoints(0) 9WHddDA  
         |Tw~@kT@  
        .CharacterUnitLeftIndent = 0 buC{ r,  
        .CharacterUnitRightIndent = 0 jPeYmv]  
        .CharacterUnitFirstLineIndent = 0 7)m9"InDI  
         x-c"%Z|  
        .LineUnitBefore = 1 al0L&z\  
        .LineUnitAfter = 0 M|-)GvR$J  
         -j(6;9"7]|  
    End With Kw}'W 8`c  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False fA-7VdR`R  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll -Za/p@gM  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese zs;JJk^  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True pAEx#ck  
    DoEvents }]Tx lSp!;  
?2a$*(  
    '表格首行 t^HRgY'NjM  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") INf&4!&h  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False u2I Cl  
    With ActiveDocument.Styles("QLNU表格首行").Font Gb yJ:  
        .NameFarEast = "楷体" Xj*Wu_  
        .NameAscii = "Times New Roman" Efe 7gE'  
        .Name = "楷体" %y@AA>x!  
        .Size = 9 E`q_bn  
        .Bold = True }u|q0>^8  
        .Underline = wdUnderlineNone 2 c}E(8e]  
        .Italic = wdUndefined ,Q B<7a+I  
        .Subscript = wdUndefined 6*?F@D2&  
        .Superscript = wdUndefined <3iMRe  
    End With E7hhew  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat E^PB)D(.  
        .LineSpacingRule = wdLineSpaceSingle )jj0^f1!j  
        .Alignment = wdAlignParagraphCenter Z)!C'cb  
         llDJ@  
        .LeftIndent = CentimetersToPoints(0) c> af  
        .RightIndent = CentimetersToPoints(0) 6zkaOA46V  
        .FirstLineIndent = CentimetersToPoints(0) 0x7'^Z>-oe  
         }G=M2V<L  
         3T 9j@N77  
        .CharacterUnitLeftIndent = -0.5 NA*&#X#~  
        .CharacterUnitRightIndent = -0.5 $e\M_hp*J  
        .CharacterUnitFirstLineIndent = -0.5 |{;G2G1[  
         3 $w 65=  
        .LineUnitBefore = 0 )"LJ hLg  
        .LineUnitAfter = 0 VQI 3G  
        .SpaceBefore = 0  g}i61(  
        .SpaceAfter = 0 NI5``BwpO  
         R+|hw;  
    End With Ru XC(qcq  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False E]6 6]+;0_  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll g0 [w-?f  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese neh(<>  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True l%ZhA=TKQ  
    DoEvents -di o5a  
@o^Ww  
    '表格内容 YqG7h,F  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") o  K@"f9  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False <VcQ{ F  
    With ActiveDocument.Styles("QLNU表格内容").Font  -M2yw  
        .NameFarEast = "楷体" d _ e WcI  
        .NameAscii = "Times New Roman" 4 :=]<sc,  
        .Name = "楷体" iE{&*.q_}>  
        .Size = 9 'yth'[  
        .Bold = False 2:R+tn(F  
        .Underline = wdUnderlineNone j|n R "!  
        .Italic = wdUndefined $(9U@N9E  
        .Subscript = wdUndefined kT?J5u _o  
        .Superscript = wdUndefined U.TA^S]`g  
    End With \ jA~9  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat Jwp7gYZ  
        .LineSpacingRule = wdLineSpaceSingle >7r!~+B"9'  
        .Alignment = wdAlignParagraphCenter !BI;C(,RL  
         CARzO7 b\w  
        .LeftIndent = CentimetersToPoints(0) O f#:   
        .RightIndent = CentimetersToPoints(0) V]N?6\Op  
        .FirstLineIndent = CentimetersToPoints(0) l~.-e^p?  
         t5zKW _J7  
        .CharacterUnitLeftIndent = -0.5 *VeRVaBl  
        .CharacterUnitRightIndent = -0.5 +V+a4lU14  
        .CharacterUnitFirstLineIndent = -0.5 4YHY7J  
        .LineUnitBefore = 0 d3Rw!slIq  
        .LineUnitAfter = 0 p'fYULYE  
        .SpaceBefore = 0 Fi1@MG5$2  
        .SpaceAfter = 0 Je@v8{][|  
    End With 5IN(|B0  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False P4?glh q#  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll -8Xf0_  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese }Lv;!  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True BHw, 4#F1;  
    DoEvents vy/-wP|1  
eQ"E   
    '图片标题 5r_|yu  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") SaCh 7 ^  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" -&;TA0~;  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False  IB<d  
    With ActiveDocument.Styles("QLNU图片标题").Font /bEAK-  
        .NameFarEast = "楷体" M;NX:mX9  
        .NameAscii = "Times New Roman" fh{`Mz,o  
        .Name = "楷体" r/sNrB1U"y  
        .Size = 10.5 Ie^l~ Gb  
        .Bold = True p7Cs.2>M>S  
        .Underline = wdUnderlineNone J;%Xfx]  
        .Italic = wdUndefined __@BUK{q  
        .Subscript = wdUndefined GL JMP^p  
        .Superscript = wdUndefined m,S{p<-h  
        .Outline = False 9cgU T@a  
        .Shadow = False kLY ^!  
        .Color = wdColorAutomatic 2%> FR4a  
    End With C>~TI,5a3  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat -+5>|N#  
        .LineSpacingRule = wdLineSpaceSingle OTp]Xe/  
        .Alignment = wdAlignParagraphCenter s(^mZ -i  
         FqifriLN  
        .KeepWithNext = wdUndefined : jx4{V  
        .KeepTogether = True ^(<f/C)i  
        .OutlineLevel = wdOutlineLevelBodyText KgG4*<  
         Y~Ifj,\  
        .LeftIndent = CentimetersToPoints(0) V:2 7)]q  
        .RightIndent = CentimetersToPoints(0) ':}\4j&{E  
        .FirstLineIndent = CentimetersToPoints(0) nie%eC&U  
         [2koe.?(  
        .CharacterUnitLeftIndent = 0 ]d`VT)~vje  
        .CharacterUnitRightIndent = 0 fLVAKn  
        .CharacterUnitFirstLineIndent = 0 PX99uWx5]  
         DJ%PWlK5  
        .LineUnitBefore = 0 DN/YHSYK  
        .LineUnitAfter = 0 {U1m.30n  
    End With &?vgP!d&M  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False w:l "\Tm  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll Q^I\cAIB  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese vj*%Q(E6Pt  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True W l1 6`9  
    DoEvents CJ%I51F`X  
e*!kZAf  
    '目录项 )jC%a6G!  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") fX)# =c|5  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" v}(WaO#S  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False 1sCR4L:+  
    With ActiveDocument.Styles("QLNU目录项").Font smLQS+UE  
        .NameFarEast = "黑体" y?0nI<}}HK  
        .NameAscii = "Times New Roman" -![|}pX  
        .NameOther = "Times New Roman" &0f,~ /%Z  
        .Name = "黑体" tu?MYp;  
        .Size = 10.5 }-fl$j?9E  
        .Bold = False 2JFpZU"1  
        .Italic = wdUndefined 80;(Gt@<"  
        .Underline = wdUnderlineNone &[SC|=U'M  
        .Color = wdColorAutomatic =mGez )T5\  
        .Superscript = wdUndefined X?$_Sd"G+5  
        .Subscript = wdUndefined `"~%bS  
    End With <,(,jU)j  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat ZB& 6<uw  
         @P" p+  
        .LineSpacingRule = wdLineSpaceSingle d %#b:(,  
        .Alignment = wdAlignParagraphLeft L+QLLcS~EM  
         `lPfb[b  
        .WidowControl = False oE~Bq/p  
        .KeepWithNext = False Ev P{p  
        .KeepTogether = False 5-G@L?~Vw  
        .PageBreakBefore = False 'RRE|L,  
        .NoLineNumber = False pNIf=lA  
        .OutlineLevel = wdOutlineLevelBodyText H|D.6^  
         =2 kG%9  
        .LeftIndent = CentimetersToPoints(0) X7 w Ky(g  
        .RightIndent = CentimetersToPoints(0) l(q ,<[O  
        .FirstLineIndent = CentimetersToPoints(0) E"@w ek.-  
         2 FFD%O05  
        .CharacterUnitLeftIndent = 0 ;6 wA"  
        .CharacterUnitRightIndent = 0 Z/K{A`  
        .CharacterUnitFirstLineIndent = 0 $A` VYJtt#  
         n(|^SH4$b  
        .LineUnitBefore = 0 ?s _5&j7  
        .LineUnitAfter = 0 5Ph4<f` L~  
    End With o]:9')5^  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False wf $s*|z  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll & =Wlaa/,&  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot Rh |nP&6  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese :yjFQ9^?&  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True LDD|(KLR*.  
    DoEvents bTu9;(  
     7)k\{&+P  
    '参考文献 EIQ p>|5  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") Y<rU#Z#T  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" XrPfotj1  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False Q&V;(L62!  
    With ActiveDocument.Styles("QLNU参考文献").Font #,.Hr#3nI  
        .NameFarEast = "宋体" @K]|K]cby  
        .NameAscii = "Times New Roman" _y>~ yZx  
        .NameOther = "Times New Roman" }T$p)"  
        .Name = "Times New Roman" :lzrgsW  
        .Size = 12 "vsl Z`RU  
        .Bold = False 0L KRN|@  
        .Italic = wdUndefined : c[L3rJl  
        .Subscript = wdUndefined wT\49DT"7  
        .Superscript = wdUndefined aA TA9V  
        .Underline = wdUnderlineNone 9S-9.mvop  
        .UnderlineColor = wdColorAutomatic o lxByzTh>  
        .Color = wdColorAutomatic PuO&wI]:  
        .Engrave = False Yrn)VV[)h  
    End With j)GtEP<n#  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat nLiY%x`S  
         {V-v-f  
        .LineSpacingRule = wdLineSpaceExactly V_:&S2j  
        .LineSpacing = 16 @v B!u[{  
        .Alignment = wdAlignParagraphLeft V!dtF,tH  
        .WidowControl = False S@Hf &hJ  
        .KeepWithNext = False x=jK:3BF  
        .KeepTogether = False CA#,THty  
        .PageBreakBefore = False `#gie$B{  
        .OutlineLevel = wdOutlineLevelBodyText QwJyY{O`  
         'eX '  
        .LeftIndent = CentimetersToPoints(0) veRm2 LSP  
        .RightIndent = CentimetersToPoints(0) 9E 6R0D}  
        .FirstLineIndent = CentimetersToPoints(0) l (%1jC8  
         +U.I( 83F  
        .CharacterUnitLeftIndent = 0 Bnd [X  
        .CharacterUnitRightIndent = 0 "Yca%:  
        .CharacterUnitFirstLineIndent = -2 -tNUMi'  
         ,iq4Iw  
        .LineUnitBefore = 0 w-{c.x  
        .LineUnitAfter = 0 T n}s*<=V  
        .SpaceBefore = 0 p^u:&Quac  
        .SpaceAfter = 0 eN~=*Mn(za  
         AvHCO8h|  
    End With Y#3c }qb  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False !L8#@BjU  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll pBPl6%C.X-  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS AFfAtu  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True }{< '8J.R  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese 2"S}bfrX  
    DoEvents \_U$"/$4VH  
i@ BtM9:  
    ' /OJ`c`>Q:  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") TuYCR>P[  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" [=_jYzD,j|  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False e*n@j  
    With ActiveDocument.Styles("QLNU论文题目").Font (3&?wy_l  
        .NameFarEast = "黑体" r)6M!_]AW  
        .NameAscii = "Arial Black" L~>i,  
        .NameOther = "Arial Black" h65-s  
        .Name = "Arial Black" - CWywuD  
        .Size = 16 f4 Rf?w*  
        .Bold = False }#E[vRf  
        .Italic = wdUndefined ilva,WFa^  
        .Superscript = wdUndefined rc>6.sM %  
        .Subscript = wdUndefined TBrPf-Xr  
        .Underline = wdUnderlineNone +t:0SRSt  
        .UnderlineColor = wdColorAutomatic i2^>vYCsl  
        .Color = wdColorAutomatic _]*>*XfF(  
[66! bM&  
    End With 1>&]R=  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat jb;hcraR  
        .LineSpacingRule = wdLineSpaceSingle tdaL/rRe  
        .Alignment = wdAlignParagraphCenter }-3mPy(*%  
        .WidowControl = True ,'iE;o{Tu  
        .KeepWithNext = True zNuJjL  
        .KeepTogether = True t!\tF[9e  
        .PageBreakBefore = True AnvRxb.e  
        .NoLineNumber = False %9RF   
        .OutlineLevel = wdOutlineLevelBodyText >6pf$0  
         1&o|TT/  
        .LeftIndent = CentimetersToPoints(0) I,'k>@w{s  
        .RightIndent = CentimetersToPoints(0) N{~Y J$!8  
        .FirstLineIndent = CentimetersToPoints(0) O<;3M' y\  
         0nD/;\OU  
        .CharacterUnitLeftIndent = 0 3 SGDy]  
        .CharacterUnitRightIndent = 0 vFK<J Sk!  
        .CharacterUnitFirstLineIndent = 0 13=.H5  
         14'45  
        .LineUnitBefore = 1 d&s9t;@=  
        .LineUnitAfter = 1 :<#nTh_@\'  
         u=_mvN  
        .BaseLineAlignment = wdBaselineAlignAuto Y7[jqb1D  
    End With :$9tF >  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False Dl8;$~  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll 'oC) NpnH  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS E\2%E@0#  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True wIBO ^w\J  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese @k/NY *+  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True {& T_sw@[  
    DoEvents K:Q<CQ2  
     U~l$\ c  
    '中文摘要 q8Z<{#oXu  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") [R7Y}k:9U  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" P_p<`sC9  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False RlDn0s  
    With ActiveDocument.Styles("QLNU中文摘要").Font '-/xyAzS  
        .NameFarEast = "宋体" .%C|+#&d  
        .NameAscii = "Times New Roman" *C=>X193U  
        .NameOther = "Times New Roman" xpx\=iAe  
        .Name = "Times New Roman" ApXy=?fc  
        .Size = 12 }I6vqG  
        .Bold = wdUndefined a+T.^koY  
        .Superscript = wdUndefined G<^{&E+=  
        .Subscript = wdUndefined !1Cy$}w  
        .Italic = wdUndefined 78H'ax9m  
        .Underline = wdUnderlineNone <nK?LcP  
        .UnderlineColor = wdColorAutomatic _OC<[A  
        .Color = wdColorAutomatic qc~iQSI  
    End With 9lDhIqx0~  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat Clb@$,  
        .LineSpacingRule = wdLineSpaceExactly !o[7wKrXb  
        .LineSpacing = 20 r_;N t  
        .Alignment = wdAlignParagraphLeft H&}pkrH~  
         {Fe[:\  
        .WidowControl = False g^ i&gNDx  
        .KeepWithNext = False 0tB0@Wj  
        .KeepTogether = True p`#R<K  
        .PageBreakBefore = False 1q1jZqno  
        .NoLineNumber = False h.s+) fl\  
        .OutlineLevel = wdOutlineLevelBodyText td 3D=Y  
         :'&brp3ii=  
        .LeftIndent = CentimetersToPoints(0) e2W".+B1  
        .RightIndent = CentimetersToPoints(0) _aMPa+D=P  
        .FirstLineIndent = CentimetersToPoints(0) 3J438M.ka  
         H_<C!OgR  
        .CharacterUnitLeftIndent = 0 h@]XBv  
        .CharacterUnitRightIndent = 0 gy9U2Wgf|  
        .CharacterUnitFirstLineIndent = 2  "{Eta  
        .LineUnitBefore = 0 Ktm4 A O  
        .LineUnitAfter = 0 v+=BCyT  
         _8)*]-  
    End With Y.ToIka{  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False #3 pb(fbw  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll 'D"C4;X  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS 1,!(0 5H  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True \K]0JH  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese 1&(V   
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True  XJ5 .  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete eS mLf*\G  
    DoEvents ; XN{x  
     m&?r%x  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ""Q P%  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" qXtC^n@x  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False ;H.^i|_/  
    With ActiveDocument.Styles("QLNU英文标题").Font %(G* ,  
        .NameFarEast = "黑体" WPG(@zD  
        .NameAscii = "Arial Narrow" JNUt$h  
        .Name = "Arial Narrow" PO 7Lf#9]  
        .Size = 16 f\>M'{cV  
        .Bold = True u4%Pca9(=  
        .Bold = wdUndefined =;&yd';k  
        .Superscript = wdUndefined *lw_=MXSK  
        .Subscript = wdUndefined M$8^91%4B  
        .Italic = wdUndefined 0aa&m[Mk  
         ,47Y9Kz9  
        .Underline = wdUnderlineNone tWa) _y  
        .UnderlineColor = wdColorAutomatic ^7KH _t8  
        .StrikeThrough = False 4G> H  
        .DoubleStrikeThrough = False X~,aNRy  
    End With dIBE!4 V[  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat h"lv7;B$  
        .LineSpacingRule = wdLineSpaceSingle Q=20IQp  
        .Alignment = wdAlignParagraphCenter y (pks$  
        .WidowControl = True @qlK6tE`  
        .KeepWithNext = False 58J}{Req  
        .KeepTogether = False -JjM y X  
        .PageBreakBefore = False #!KE\OI;@5  
        .NoLineNumber = False q,eVjt F  
        .FirstLineIndent = CentimetersToPoints(0) Jh[UtYb 5  
        .OutlineLevel = wdOutlineLevelBodyText 1.9}_4!  
         t9:0TBt-[  
        .LeftIndent = CentimetersToPoints(0) -kwXvYu\  
        .RightIndent = CentimetersToPoints(0) 6Yxh9*N~]  
        .FirstLineIndent = CentimetersToPoints(0) 6s/&BR  
         f|lU6EkU  
        .CharacterUnitLeftIndent = 0 qF-@V25P  
        .CharacterUnitRightIndent = 0 `eCo~(F y  
        .CharacterUnitFirstLineIndent = 0 qXe8Kto  
         j578)!aJ  
        .LineUnitBefore = 1 sC b=5uI  
        .LineUnitAfter = 1 >!1.  
         s^uS1  
    End With xzZ38xIhV  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False Z//+Gw<'  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll /j|G(vt5  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS vf%&4\ib  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True b4ONh%  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese }\:Nu Tf  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True in-HUG  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete 0C6-GKbZ  
    DoEvents xZwLlY  
.KUv( -  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") vucxt }Ti  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" 1gy.8i  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False r^a7MHY1  
    With ActiveDocument.Styles("QLNU英文摘要").Font 2=`o_<P'"  
        .NameFarEast = "宋体" l6 H|PR{  
        .NameAscii = "Arial" M={V|H0  
        .NameOther = "Arial" W_8wed:b  
        .Name = "Arial" m~d]a$KQ5-  
        .Size = 12 ;^%4Q"  
        .Bold = wdUndefined D(RTVef  
        .Italic = wdUndefined PFne+T!2F  
        .Superscript = wdUndefined 474SMx$  
        .Subscript = wdUndefined /M4{Wc  
    End With XkF%.hWo  
     cH?B[S;]  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat H>B&|BO_[  
         C$D -Pt"+  
        .LineSpacingRule = wdLineSpaceExactly c~uKsU  
        .LineSpacing = 20 !F1N~6f  
         a (b#  
        .Alignment = wdAlignParagraphJustify ,+xB$e  
         5Qn '  
        .WidowControl = False m?fy^>1  
        .KeepWithNext = False q):5JXql~  
        .KeepTogether = False v,{yU\)  
        .PageBreakBefore = False [^e%@TV>d  
        .NoLineNumber = False A.F738Zp{Z  
         nV:LqF=  
        .OutlineLevel = wdOutlineLevelBodyText sN2p76KN  
         dCk3;XU  
        .LeftIndent = CentimetersToPoints(0) ~h85BF5  
        .RightIndent = CentimetersToPoints(0) j4`0hnqI  
        .FirstLineIndent = CentimetersToPoints(0) FZ,#0ZYJGP  
         QYjsDL><  
        .CharacterUnitLeftIndent = 0 W=vP]x >J  
        .CharacterUnitRightIndent = 0 X_|J@5b7  
        .CharacterUnitFirstLineIndent = 2 ;he"ph=>  
         hB>oJC  
        .LineUnitBefore = 0 QpA/SmJ  
        .LineUnitAfter = 1 _i|t Y4L  
         C3],n   
    End With E!l!OtFL  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False J| bd)0  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll Te wb?:  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS `_RTw5{  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False d>fkA0G/9!  
    DoEvents sVv xHkt@  
A '5,LfTu  
    Options.Pagination = True N@1+O,o  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." ua]o6GlO  
    DoEvents [@b&? b~K  
    ActiveDocument.Repaginate 1Y@Aixx  
&6YIn|}  
End Sub pDIVZC  
TQ*1L:X7M&  
SB |Qa}62  
杺栫杣杊椌柮栬，䒴蓉艿芖。
回复 引用
举报顶端
伍胥之 离线
级别: 军区司令员

显示用户信息 
101楼  发表于: 2024-12-28   
只看该作者 ┊  小 中 大
姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 ~ZhraSI) G  
 @zz1hU  
引用
引用第20楼newport93于06-14-2010 13:47发表的  : % !>I*H  
i9A+gtd  
老五，I 服了U。 "a"]o  
MLWM&cFG  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 WKIoS"?-F  
"a1n_>#Fb  
杺栫杣杊椌柮栬，䒴蓉艿芖。
回复 引用
举报顶端
上一主题下一主题
«3456»Pages: 6/6
 Bay Area Chinese--灣區華人 » 乱讲
描述
快速回复

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