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

显示用户信息 
100楼  发表于: 2021-07-18   
只看该作者 ┊  小 中 大
Dim bContinue As Boolean lN*beOj  
(#8B  
Dim regEX As New RegExp B[9y<FB+  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 &cwN&XBY  
0[E \h   
Dim LastTitle0String As String, LastTitle0No As Long V&7NN=  
Dim LastTitle1String As String, LastTitle1No As Long L}rYh`bUP[  
Dim LastTitle2String As String, LastTitle2No As Long a9NIK/9  
Dim LastTitle3String As String, LastTitle3No As Long (C0Wty  
Dim LastTitle4String As String, LastTitle4No As Long F ESl#.}  
Dim LastTitle5String As String, LastTitle5No As Long 8J:=@X^}  
Dim LastTabelString As String, LastTableNo As Long m"!Q5[  
Dim LastFigureString As String, LastFigureNo As Long DMlr%)@ {  
D~n-;T  
Dim strSeperator As String oSIP{lfp2Q  
~I;|ipK4m  
Sub ConvertWidth(fTEXT As String, rText As String) N9 h|_ax  
        Selection.Find.ClearFormatting d|> /eb.R  
        Selection.Find.Replacement.ClearFormatting l2ie\4dK@  
        Selection.Find.Wrap = wdFindContinue D7=Irz!O\7  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText X 0]{8v%  
        DoEvents VxtX%McK  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True O_L>We@3E  
End Sub G|u)eW  
$$i Gs6az  
Sub ClearDomain() 2S-f5&o  
        With Selection.Find n;wViw  
            .ClearFormatting oxL)Jx\c9A  
            .Replacement.ClearFormatting 8.Ufw. 5  
            .Wrap = wdFindContinue wHh6y?g\  
            Me.txtStatus.Text = "清除所有域代码" c#TV2 @   
            DoEvents 2D /bMq  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False 3n~O&{  
        End With 3^5h:O aT  
End Sub A?h o<@^  
\>x1#Vr>#V  
Private Sub cmdCheck_Click() $PRUzFZ  
    bContinue = True RAWzQE }  
    Dim NoSeries1(1 To 16) As String oU se~  
    Dim NoSeries2(1 To 16) As String ~O|~M_Z  
    Dim NoSeries5(1 To 16) As String 2#/23(Wc  
    Dim NoSeriesRM(1 To 16) As String @0(%ayi2Y  
    Dim paraTotal As Long, ParaText As String &OA6Zw/A  
    Dim ttString As String, ttNo As String EvH/d4V;  
     FC WF$'cO  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long @saK:z  
uU%Z%O  
    Me.txtStatus.Visible = True #}l$<7Z U  
    Me.lbParaType.Visible = True YQb503W"d~  
    Me.cmdCheck.Enabled = False ZG-#YF.1  
     }QBL{\E!  
     >Y(JC#M;  
     -fp/3-  
     uh`5:V  
    Dim ParaType As String, rText As String EP^qj j@M  
     -ijzo%&qA  
    Selection.WholeStory TbLU[(m-n  
    Selection.NoProofing = True d0R;|p''Z  
     _D$1CaAYo  
    tm1 = Now H3 -? cy  
     Rh#`AM`)j  
        ActiveWindow.View.Type = wdNormalView X,bhX/h  
     ?d+ri  
    NoSeries1(1) = "一" ;hF}"s hJN  
    NoSeries1(2) = "二" !{fu(E  
    NoSeries1(3) = "三" >@Pw{Zh$  
    NoSeries1(4) = "四"  [w!T  
    NoSeries1(5) = "五" AN3oh1xe:  
    NoSeries1(6) = "六" &XCP@@T  
    NoSeries1(7) = "七" HJBGxy w  
    NoSeries1(8) = "八" 8 Vf #t!t  
    NoSeries1(9) = "九" Kp^"<%RT  
    NoSeries1(10) = "十" gu:vf/  
    NoSeries1(11) = "十一" Ve${g`7&  
    NoSeries1(12) = "十二" ix$ ^1(  
    NoSeries1(13) = "十三" Y`d@4*FN$  
    NoSeries1(14) = "十四" TO.STK`  
    NoSeries1(15) = "十五" RA?_j$  
    NoSeries1(16) = "十六" JI  cm$  
     6TTu[*0NT  
    NoSeries2(1) = "㈠" "U+c`V=w  
    NoSeries2(2) = "㈡" Y=?{TX=6<[  
    NoSeries2(3) = "㈢" 8!YQ9T[  
    NoSeries2(4) = "㈣" <v/aquLN  
    NoSeries2(5) = "㈤" 4>OS2b`.;  
    NoSeries2(6) = "㈥" $41<ldJ  
    NoSeries2(7) = "㈦" Zu2`IzrG#  
    NoSeries2(8) = "㈧" (:F]@vT  
    NoSeries2(9) = "㈨" /GX>L)  
    NoSeries2(10) = "㈩" vG7Mk8mIr  
     ]=9 d'WL  
    NoSeries5(1) = "①" ZjY ,k  
    NoSeries5(1) = "②"  + K`.ck  
    NoSeries5(3) = "③" (EvYrm4  
    NoSeries5(4) = "④" k`&FyN^)  
    NoSeries5(5) = "⑤" %@)R  
    NoSeries5(6) = "⑥" *JfGGI_E  
    NoSeries5(7) = "⑦" w>8kBQ?b  
    NoSeries5(8) = "⑧" $gN\%X/n"1  
    NoSeries5(9) = "⑨" v9FR  
    NoSeries5(10) = "⑩" M$Bb,s  
     1zCu1'Wv  
     ''D7Bat@  
    NoSeriesRM(1) = "I" egBk7@Ko  
    NoSeriesRM(2) = "II" \4^zY'  
    NoSeriesRM(3) = "III" j}d):3!  
    NoSeriesRM(4) = "IV" W -HOl!)  
    NoSeriesRM(5) = "V" S(nQ?;9,  
    NoSeriesRM(6) = "VI" SP/b 4  
    NoSeriesRM(7) = "VII" :5$ErI  
    NoSeriesRM(8) = "VIII" >F:1a\c  
    NoSeriesRM(9) = "IX" [PB73q8  
    NoSeriesRM(10) = "X" lJN#_V0qW  
    NoSeriesRM(11) = "XI" cJbv,RV<  
    NoSeriesRM(12) = "XII" `"PHhCG+z  
    NoSeriesRM(13) = "XIII" Thu_`QP^  
    NoSeriesRM(14) = "XIV" GyMN;|  
    NoSeriesRM(15) = "XV" ~@*q8l C  
    NoSeriesRM(16) = "XVI" M$.bC0}T  
     _KKux3a  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) B8?9L8M}  
     |&xaV-b9W  
    If i = vbNo Then rk4KAX_[  
        Exit Sub 1L+hI=\O  
    End If SvQ|SKE':  
     jMCd`Q]K  
    If Me.chkSuper.Value Then 4w'&:k47   
        Me.txtStatus.Text = "检查修改所有的上标格式" *aC[Tv[-P  
     6 rj iZ%  
        CheckSuperScript ^*4#ZvpG2  
         QlV(D<  
    End If I\1"E y  
     Q)BSngW+  
    If Me.chkStyle.Value Then )P?Fni}  
        Me.txtStatus.Text = "设置样式，请稍候...." EpKZ.lCU  
        DoEvents YFPse.2$a  
        CeateOrModifyStyle >N2kWSa  
    End If V=p"1!(  
     Fx}v.A5  
      :\'1x  
     D\+x/r?-I  
    ClearDomain 'jMs&  
         p`rjWpH  
     GD)paTwO<  
     8t=O=l\  
    If Me.chkLIST.Value Then kr|r-N`  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" 2O@ON/  
     XR9kxTuk  
        ConvertListToOrdinary ("ix!\1K@  
    End If !/tV}.*  
     H! 5Ka#B  
     W1<*9 O  
    Dim pType As String, trimpTEXT As String y9]7LETv\M  
    If Me.chkNum.Value = True Then R+0gn/a[G  
        Me.txtStatus.Text = "转换全角数字形式为半角" DBHHJD/q  
        ConvertWidth "１", "1" -?:8s v*X  
        DoEvents 0^Vw^] w  
        ConvertWidth "２", "2" rqiH!R  
        DoEvents qTRP2rH,L&  
        ConvertWidth "３", "3" 5Za<]qxr  
        DoEvents rPBsr<k#5  
        ConvertWidth "４", "4" <}A6 )=T  
        DoEvents rir,|y,  
        ConvertWidth "５", "5" =,q/FY:  
        DoEvents 2;*G!rE&*`  
        ConvertWidth "６", "6" }~=<7|N.  
        DoEvents re/u3\S  
        ConvertWidth "７", "7" 1%vE7a>{  
        DoEvents F):kF_ho  
        ConvertWidth "８", "8" /Dd x[P5p=  
        DoEvents Lg(G&ljE@k  
        ConvertWidth "９", "9" /m;Bwu  
        DoEvents 37:tu7e~c  
        ConvertWidth "０", "0" j^8HTa0Cy|  
        DoEvents -T1R}ew*t  
        ConvertWidth "ａ", "a" Ix,b-C~  
        DoEvents {d'B._#i  
        ConvertWidth "ｂ", "b" ~PQR_?1  
        DoEvents ;<[!;8  
        ConvertWidth "ｃ", "c" IKnf  
        DoEvents c^'bf_~-W  
        ConvertWidth "ｄ", "d" OmZZTeGg1s  
        DoEvents Ye4 &4t  
        ConvertWidth "ｅ", "e" 9S17Lr*c  
        DoEvents UMBeY[ ?  
        ConvertWidth "ｆ", "f" Z:,\FB_U  
        DoEvents 'YG P42#  
        ConvertWidth "ｇ", "g" dc4XX5Z  
        DoEvents ^GrSvl}v'  
        ConvertWidth "ｈ", "h" Z.Z31yF:f  
        DoEvents l{.PyU5)  
        ConvertWidth "ｉ", "i" [h-NX  
        DoEvents ~,};FI  
        ConvertWidth "ｊ", "j" jg'"?KSU~  
        DoEvents 1|-C(UW>  
        ConvertWidth "ｋ", "k" B8T5?bl  
        DoEvents T"3LO[j+  
        ConvertWidth "ｌ", "l" mt0v (  
        DoEvents 5wh(Qdib  
        ConvertWidth "ｍ", "m"  0 %,W5w  
        DoEvents 04=RoYMM  
        ConvertWidth "ｎ", "n" 87B$  
        ConvertWidth "ｏ", "o" '_Pb\ jK  
        ConvertWidth "ｐ", "p" *oIIcE4g7  
        ConvertWidth "ｑ", "q" e 2N F.  
        ConvertWidth "ｒ", "r" )'g4Ty  
        ConvertWidth "ｓ", "s" *y|w9 r p  
        ConvertWidth "ｔ", "t" ]AM*9!  
        ConvertWidth "ｕ", "u" F=5vA v1  
        ConvertWidth "ｖ", "v" ZVJ6 {DS/  
        ConvertWidth "ｗ", "w" i( +Uvtgs  
        ConvertWidth "ｘ", "x" NX( IX6^y  
        ConvertWidth "ｙ", "y" g8&& W_BI  
        ConvertWidth "ｚ", "z" *^7^g!=z2  
        ConvertWidth "Ａ", "A" G7,v:dlK   
        ConvertWidth "Ｂ", "B" R+He6c!?9  
        ConvertWidth "Ｃ", "C" 35AH|U7b  
        ConvertWidth "Ｄ", "D" 9Z=hg[`]<  
        ConvertWidth "Ｅ", "E" IcQpb F0  
        ConvertWidth "Ｆ", "F" n#WOIweInf  
        ConvertWidth "Ｇ", "G" %La/E#  
        ConvertWidth "Ｈ", "H" 9 ;vES^  
        ConvertWidth "Ｉ", "I" Gdx %#@/  
        ConvertWidth "Ｊ", "J" ow 6\j: $?  
        ConvertWidth "Ｋ", "K" |5FEsts[  
        ConvertWidth "Ｌ", "L" z;@<J8I  
        ConvertWidth "Ｍ", "M" (QqeMG,Y  
        ConvertWidth "Ｎ", "N" `FNU- I4s  
        ConvertWidth "Ｏ", "O" G.iQ\'1_h  
        ConvertWidth "Ｐ", "P" :N^B54o%6  
        ConvertWidth "Ｑ", "Q" q[vO mes  
        ConvertWidth "Ｒ", "R" ;,TT!vea  
        ConvertWidth "Ｓ", "S" g0a!auWM  
        ConvertWidth "Ｔ", "T" RT'5i$q[  
        ConvertWidth "Ｕ", "U" k5bv57@  
        ConvertWidth "Ｖ", "V" K*'AjT9wX+  
        ConvertWidth "Ｗ", "W" qFDy)4H)  
        ConvertWidth "Ｘ", "X" &WAU[{4W  
        ConvertWidth "Ｙ", "Y"  f>mEX='w  
        ConvertWidth "Ｚ", "Z" U v>^ Z2  
        ConvertWidth "^l", "^p" $^ir3f+  
        ConvertWidth "（", "(" Ekrpg^3qp"  
        ConvertWidth "）", ")" w^HI lA  
     A>F&b1  
    End If o](ORS$~  
yGWl8\,j0  
    With ActiveDocument cdH`# X  
        Dim tbl As Table H&F2[j$T  
        For Each tbl In .Tables &1=,?s]&  
            tbl.Rows.Alignment = wdAlignRowCenter ho~WD'i  
            tbl.Range.Font.NameFarEast = "楷体" xOg|<Nnl  
            tbl.Range.Font.NameAscii = "Times New Roman" `LIlR8&@aX  
            tbl.Range.Font.Size = 10.5 #z.\pd  
        Next i>G:*?a  
        Set tbl = Nothing d3?gh[$  
    End With ujX\^c  
     V_v+i c^  
     +JD^5J,-NJ  
    With ActiveDocument 2fc+PE  
         ~ W8 M3(^  
        For i = 1 To .TablesOfContents.Count yJqDB$0  
            .TablesOfContents(i).Delete 0{o 8-#  
        Next 6rG7/  
         hZUS#75M5  
         Yu&\a?]\2  
         X%iqve"{nB  
        paraTotal = .Paragraphs.Count RN1KM  
        paraCounter = 1 L7(.dO0C  
         ]k1N-/  
        LastTitle0No = 0 =8p[ (<F=  
        LastTitle1No = 0 3)&rj 7  
        LastTitle2No = 0 9S'\&mRl  
        LastTitle3No = 0  }l]r-  
        LastTitle4No = 0 Cx(HsJ! ,  
        LastTableNo = 0 s%> u[-9U  
        LastFigureNo = 0 <>-gQ9  
         n Zx^ej\  
        Dim Sec As Long "4smW>f:%  
         hN1 [*cF  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) 93w$ck},?G  
        If Sec = 0 Then DX3jE p2  
            Exit Sub >B;S;_5=  
        End If ?&1%&?cg9  
         [vY)y\W{  
        k = 0 aG@GJ@w  
        Do While (paraCounter < paraTotal) And bContinue C;70,!3  
            k = k + 1 WwSyw?T  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then WYCDEoqU2  
                Exit Do +&_n[;   
            End If /n,a0U/  
            paraCounter = paraCounter + 1 ;tD?a7  
            If k Mod 20 = 0 Then )F'hn+(B|G  
                Me.lbCounter.Caption = paraCounter cY~lDLyB  
                DoEvents ! c~3`7v  
            End If )0;O<G] d  
        Loop Xe/7rhov  
         FEa%wS{  
         c No)LF  
        Do While (paraCounter < paraTotal) And bContinue +{)V%"{u:  
             <bv9 X?U  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) +'` ^ N  
            ShapeHeight = 0 vl%Pg !l  
            ShapeWidth = 0 T~}g{q,tR  
           OQuTM[W  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth ={190=\9  
             T[0CD'|E  
            Select Case ParaType MD>E0p)  
                Case "【】表格内容" <_bGV  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" *;t_V laZ  
                Case "章" ]Qx-f* D6  
                    LastTitle0No = LastTitle0No + 1 o1]1I9  
                    '新一章开始，复位其下属标题编号 F>@z&a}(  
                    LastTitle1No = 0 NH1|_2  
                    LastTitle2No = 0 X)9|ZF2`  
                    LastTitle3No = 0 mUb2U&6(  
                    LastTitle4No = 0 )s 1 Ei9J  
                     F 'HYWH0?  
                    k = Val(ttNo) Dp@m"_1`+  
                    If k = 0 Then '非数字编号章节 2@ZuH^qhk  
                        If ttNo <> NoSeries1(LastTitle0No) Then ?0s&Kz4B  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString _1$+S0G;  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText /h&>tYVio  
                        End If )@.ODW;`  
                    Else L#I Y6t  
                        If Val(ttNo) <> LastTitle0No Then AucX4J<  
                            rText = "第" & LastTitle0No & ttString Z>@\!$Mc  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText !:g\Fe]  
                        End If Rg~[X5  
                         N *n?hN  
                    End If 2b#> ~  
                     :J5CmU $  
                    '章段落设置 1b!  5h  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 <("P5@cExU  
                    .Paragraphs(paraCounter).Style = "QLNU章节" O,I7M?dRf  
                    .Paragraphs(paraCounter).Range.Select `5~ <)  
                    Selection.EndKey unit:=wdLine ju"j?2+F  
                    tc = Replace(rText, vbCr, "") mA 3yM#  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False ,(#n8|q4  
                Case "一级标题" 9'p pb  
                    LastTitle1No = LastTitle1No + 1 AlgVsE%Va  
                    '新一级标题开始，复位其下属标题编号 N9f;X{  
                    LastTitle2No = 0 [vCZD8"Y8  
                    LastTitle3No = 0 rIH+X2 x  
                    LastTitle4No = 0 kRzqgVr%  
                     u C`)?f*I  
                    If ttNo <> NoSeries1(LastTitle1No) Then 1;M Uemnx`  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString ~BI! l  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText =OA7$z[  
                    End If O}Do4>02  
                   iF+50d  
                     N_.`5I;e  
                    '一级标题段落设置  格式：一、标题内容 1g|6 ,J  
                    .Paragraphs(paraCounter).Range.Text = rText r3Ih]|FK#  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" dF pP_U  
                    .Paragraphs(paraCounter).Range.Select <,T#* fg  
                    Selection.EndKey unit:=wdLine 'BEM:1)  
                    tc = Replace(rText, vbCr, "") :4238J8  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False A)^A2xZQ  
                Case "二级标题" SY2((!n._  
                    LastTitle2No = LastTitle2No + 1 !P_'n  
                    '新二级标题开始，复位其下属标题编号 WOGMt T%  
                    LastTitle3No = 0 v{U1B  
                    LastTitle4No = 0 &\r_g!Mh  
                     K9'AYFse  
                    If ttNo <> NoSeries1(LastTitle2No) Then gJ Z9XLPC  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString b@[5xv\J  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText C1~Ro9si  
                    End If vnz}Pr! c  
                     Tj=g[)+K  
                    '二级标题段落设置 格式：(一)、标题内容 !r0 z3^*N  
                    .Paragraphs(paraCounter).Range.Text = rText FEg&EYI  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" =j1Q5@vS  
                     2) A$bx  
                    .Paragraphs(paraCounter).Range.Select S#7.y~e\  
                    Selection.EndKey unit:=wdLine ds QGj&  
                    tc = Replace(rText, vbCr, "") rMUQh~a/  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False C? b_E  
                 ]p~,C*UH0  
                Case "三级标题" s0'Xihsw6  
                    LastTitle3No = LastTitle3No + 1 v*e=oyx[  
                    '新三级标题开始，复位其下属标题编号 zhde1JE  
                    LastTitle4No = 0 K:sC6|wG  
                     Dr"F5Wbg  
                    If Val(ttNo) <> LastTitle3No Then N &vQis  
                            rText = LastTitle3No & ". " & ttString  nHL(v  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText 3^AS8%qG  
                         af7\2 g3*  
                    End If  _$4vk  
                    '三级标题段落设置 格式：1. 标题内容 (KG>lTdN  
                    .Paragraphs(paraCounter).Range.Text = rText D#&N?< }  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" B3Esfk  
                    .Paragraphs(paraCounter).Range.Select F (:] lM|  
                    Selection.EndKey unit:=wdLine ?Wp{tB9N0  
                    tc = Replace(rText, vbCr, "") wsfn>w?!V  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False 4,R1}.?BzJ  
                Case "四级标题" i+.bR.WO  
                    LastTitle4No = LastTitle4No + 1 nF| m*_DW  
                     QGd"Z lQ  
                    If Val(ttNo) <> LastTitle4No Then b;sjw5cm_  
                            rText = "(" & LastTitle4No & "). " & ttString `L}Irt}  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText !Lj+&D|z  
                     BhJ~jV"  
                    End If 6~Xe$fP(  
                    '四级标题段落设置 格式：(1). 标题内容 V0 OT_F  
                    .Paragraphs(paraCounter).Range.Text = rText ^ )/oDyO  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" )kNyl@m  
                    .Paragraphs(paraCounter).Range.Select dCMW v~>  
                    Selection.EndKey unit:=wdLine ;tLu  
                    tc = Replace(rText, vbCr, "") qdVExO&  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False  0bk094  
                 y3C$%yv0  
                Case "表格标题" lV!@h}mG  
                    LastTableNo = LastTableNo + 1 #9Dixsl*Q  
                     Eq/%k $6#1  
                    If ttNo <> CStr(LastTableNo) Then xo_Es?  
                            rText = "表" & LastTableNo & ". " & ttString ;-65~i0Iu  
                            ErrMsg.AddItem "表格编号错误：" & ParaText g8w5X!Z  
                   o%A@ OY  
                    End If )<jT;cT!&  
                     =2[cpF]  
                    '表格名称段落设置 格式：表1. 表格名称  <:BhV82l  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" hu qQ0  
                    xe = Replace(rText, vbCr, "") enJE#4Z5&s  
                    .Paragraphs(paraCounter).Range.Select r&ex<(I{  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 m)?cXM  
                    Selection.Range.Text = xe x:Kca3pv_  
                    Selection.EndKey $ V"7UA22  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False 5 gbJTh<JU  
                 X\1'd,V  
                Case "表格首行" u_U51C\rb  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" f8 M=P.jz  
                Case "图片标题" jW+L0RkX  
                    LastFigureNo = LastFigureNo + 1 bKH8/*Yk  
                     %.D@{O  
                    If ttNo <> CStr(LastFigureNo) Then -xf=dzm)  
                            rText = "图" & LastFigureNo & ". " & ttString . RNQlh3  
                            ErrMsg.AddItem "表格编号错误：" & ParaText yf7p0;$?  
                   eq\{*r"DCK  
                    End If ~8EG0F;t  
                    '图片名称段落设置 格式：图1. 图名称 "VcG3.  
                    .Paragraphs(paraCounter).Range.Text = rText SNd]c  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" Ey u?T  
                    .Paragraphs(paraCounter).Range.Select E8 Wgm 8  
                    Selection.EndKey unit:=wdLine t=ry\h{Pc  
                    xe = Replace(rText, vbCr, "") yeNC-U<  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False QJ s /0iw  
                Case "正文" }3!.e  
                     '正文名称段落设置 qN_jsJ  
                    .Paragraphs(paraCounter).Style = "QLNU正文" l4d2 i;4BK  
               Case "文献条目" hU `H\LE  
                    With .Paragraphs(paraCounter) Em R#)c~(W  
                        '.Range.Select =j mn  
                        'Selection.ClearFormatting {N$G|bm]u<  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” =lG5Kc{B  
                        .Style = "QLNU参考文献" q-}J0vu\K  
                    End With rT ~qoA\  
               Case "图表注解" 0Q5ua `U  
                    With .Paragraphs(paraCounter) G}\E{VvWh  
                        .Range.Font.NameFarEast = "楷体" ,Tyh._sa  
                        .Range.Font.NameAscii = "Times New Roman" 5X-cDY*|  
                        .Range.Font.Size = 9 '小5号字 A{hWFSv  
                         |nj%G<  
                        .Alignment = wdAlignParagraphCenter Jj'~\j  
                        .LeftIndent = 0 CtA0W\9w5a  
                        .RightIndent = 0 vf(\?Js ,  
                        .FirstLineIndent = 0 rf8`|9h"7  
                        .LineSpacing = 12 ^@`dsll  
                        .LineSpacingRule = wdLineSpaceExactly =GjxqIv  
                        .LineUnitAfter = 0 #s Ebu^  
                        .LineUnitBefore = 0 _A \c 6#  
                        .OutlineLevel = wdOutlineLevelBodyText p_ QL{gn  
                        .PageBreakBefore = False p]#%e0  
                        .RightIndent = 0 MqI!i>  
                        .WordWrap = True .)mw~3]  
                        .LineUnitAfter = 0.5 -U=bC   
                         B;':Eaa@  
                    End With @Tzh3,F2  
                Case Else ZuF-$]oL&  
                    '不作处理 E7axINca  
            End Select kf$0}T`  
             gKS0!U  
            '含有inlineshape的段落处理 O.*,e  
            If ShapeHeight > 30 Then J%_ :A"  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 W6~B~L  
            End If PhM3?$  
             e p;_'  
            If (ShapeWidth + ShapeHeight) > 150 Then m`-{ V<(M  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" C (_xqn  
            End If TP oP%Yj"  
             cX553&  
            '段落计数器递 hun/H4f|  
            paraCounter = paraCounter + 1 y_8 8I:O  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter 6kKIDEX  
            Me.txtStatus.Text = ParaText Zl.}J,0F  
            DoEvents t1.5hsp  
        Loop r!etj3  
    End With )fR'1_  
     #2&_WM!   
    msg = "" >9|/sH@W  
     c0jC84*v  
    For i = 0 To Me.ErrMsg.ListCount - 1 dd>stp   
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) ?!~CX`eMZ  
    Next dM7-,9Vc  
     !K1[o'o#  
     a3037~X  
     \ey3i((L  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg ?E2/ CM  
    Me.cmdCheck.Enabled = True Pd\S{ Y~wk  
    Me.txtStatus.Visible = True oO>mGl36H  
    Me.lbParaType.Visible = False m ^Btr  
     [*#ms=Zdc  
    bContinue = False 5>JrTO 5  
End Sub ? S>"yAoe  
O6;7'  
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) >t O(S  
    Dim pTEXT As String hHdH#-O:4"  
     y#^d8 }+  
    pTEXT = ChKRange.Text -2mm 5E~N  
     j#0@%d  
    ParaType = "其它" SUfl`\O  
    TitleString = pTEXT Hc4]2pf  
    TitleNo = "N/A" uQ{ &x6.1  
     sL XQ)Ce  
    shpCounter = ChKRange.InlineShapes.Count {v56k8uZ  
    If shpCounter <> 0 Then D'#Wc#b  
        MaxShpHeight = 0: TotalShpWidth = 0 k| nv[xY0  
        For i = 1 To shpCounter Bi)1*  
            k = ChKRange.InlineShapes(i).Height 4?,N;Q  
            l = ChKRange.InlineShapes(i).Width +dk}$w[ g  
            If k > MaxShpHeight Then $ T. c>13  
                MaxShpHeight = k Z@ * ^4Ve  
            End If ep Eg 6   
            TotalShpWidth = TotalShpWidth + l ED @9,W0  
        Next ~(%nnG6x  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then  &jf:7y  
            Exit Sub 7 rOziKZ"  
        End If e&E""ye  
    End If ,)nO   
     Ylll4w62N  
    '空行 u-At k- 2M  
    If Len(pTEXT) <= 2 Then M"#xjP.  
        Exit Sub y}5H<ZcXA  
    End If z' MOuz~Y  
     c63DuHA*C  
         soXeHjNl  
    '是否为表格中的文字 zVYX#- nv  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then '$PiyM|V  
        ParaType = "表格内容" vWcU+GBZI  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) INE8@}e  
        If k = 1 Then Edc<  8-  
            ParaType = "表格首行" R-"A* /A 2  
        End If X4lz?Y:*  
        Exit Sub Lt.a@\J'_  
    End If 5EIh5Y EU>  
     ! iA0u  
    '例外情况：脚注 ,D3?N2mB  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then ;dNKe.`Dg  
        ParaType = "脚注" \;}F6g  
        Exit Sub ;zIAh[z  
    End If [GX5jD#  
     1pVagLlb:7  
    '例外情况：尾注 :03w k)  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then m49 GCo k+  
        ParaType = "尾注" 'q8T*|/  
        Exit Sub 6+e@)[l.zc  
    End If ? A;x%8}  
     sME3s-  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then )VID ;l;4  
        ParaType = "页眉页脚" lh&Q{t(+8  
        Exit Sub q<yp6Q3^  
    End If vZmM=hW~  
     ]i)m   
     #7+oM8b  
    With regEX #)2'I`_E  
        .Global = True xg k~y,F  
         KQj5o>} 6  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" g N Xg  
        If regEX.Test(pTEXT) Then a1_7plg  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") x-+Hy\^@|  
            TitleString = regEX.Replace(pTEXT, "$3") 0p :FAvvNI  
            TitleNo = regEX.Replace(pTEXT, "$1") L\X nTL{  
            ParaType = "章" (2Z-NVU#  
            Exit Sub B)O{+avu  
        End If %:sQ[^0  
         fa;\4#  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" &aqF ||v%)  
        If regEX.Test(pTEXT) Then +dcB h Dq  
            ParaType = "一级标题"  PW x9CT  
            regEX.Execute (pTEXT) G< l+94(  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") u1xCn\  
            TitleString = regEX.Replace(pTEXT, "$3") vX;WxA<  
            TitleNo = regEX.Replace(pTEXT, "$1") MJd!J ]E6  
            Exit Sub iF?4G^  
        End If YN#i^(  
         o nt8q8  
        '全角或半角括号中的数字 eYMp@Cx  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" & xo,49`!  
        If regEX.Test(pTEXT) Then T$)&8"Xya  
            ParaType = "二级标题" ^+^#KC8]W  
            regEX.Execute (pTEXT) |T atRB3>  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") #!l\.:h%  
            TitleString = regEX.Replace(pTEXT, "$5") $a>,sL&;  
            TitleNo = regEX.Replace(pTEXT, "$2") 8<z+hWX=4  
            Exit Sub (pN:ET B  
        End If ]KdSwIbi  
         a,i k=g  
        '阿拉伯数字  1. 2. VAX@'iZr  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" mZQW>A]iE  
        If regEX.Test(pTEXT) Then :rd{y`59>&  
            ParaType = "三级标题" N"1o> !  
            regEX.Execute (pTEXT) #$ 2 {l,>  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 :jlKj}4A  
            TitleString = regEX.Replace(pTEXT, "$3") Jd?N5.  
            TitleNo = regEX.Replace(pTEXT, "$1") 3DRJl, v  
            Exit Sub <fg~+{PA&  
        End If ZxLdh8v.  
         m r"b/oM{  
        '全角或半角括号中的阿拉伯数字 7ESSx"^B  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" .R'<v^H  
        If regEX.Test(pTEXT) Then oJb${k<3  
            ParaType = "四级标题" {Z0(V"Q  
            regEX.Execute (pTEXT) )voJq\Y)%  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") \9j +ejGf  
            TitleString = regEX.Replace(pTEXT, "$5") Hd]o?q\  
            TitleNo = regEX.Replace(pTEXT, "$2") A[:0?Ez=  
            Exit Sub 2CcUClP$  
        End If 'c7C*6;a  
         $`,10uw  
        '表格名称 ]r|sU.Vl  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" U{/d dCf7  
        If regEX.Test(pTEXT) Then *:S_v.Y3"  
            ParaType = "表格标题" _ p%=RIR  
            regEX.Execute (pTEXT) h|qT MwPr  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) vy&'A$ H  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) /9T.]H ~  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) Htl2CcZ  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 Cw6\'p%l-\  
            Exit Sub V>D8l @  
        End If (7Su{ tq  
         .8Eh[yiln  
        '图片名称 E><$sN6  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" qF'lh  
        If regEX.Test(pTEXT) Then vZMb/}-o  
            ParaType = "图片标题" KUJCkwQ  
            regEX.Execute (pTEXT) 1T&NU  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") 3-x ;_  
            TitleString = regEX.Replace(pTEXT, "$3") K!W7a~ @  
            TitleNo = regEX.Replace(pTEXT, "$1") uH*moVw@5  
            Exit Sub s^f7w  
        End If df\^uyD;  
         "w 7{,HP  
        '参考文献 mVXwU](N  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 6roq 1=   
        If regEX.Test(pTEXT) Then v']Tusmg  
            ParaType = "文献条目" /{6&99SJcc  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") K HyVI6N[  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") jk (tw-B  
            Exit Sub z }3` 9  
        End If ]{Y7mp dB  
         _oz1'}=  
        prfx = Left(pTEXT, 2) 8'WoG]E_  
        If prfx = "注：" Or prfx = "注:" Then ]S0=&x@,  
            ParaType = "图表注解" i.Rxx, *?  
            Exit Sub 6JgbJ bUi  
        End If Qg6tJB   
         M r-l  
         u@]rR&h`  
        ParaType = "正文" af@R\"N9c  
         SfSWjq  
    End With w{8O$4 w  
End Sub W3+;1S$k  
m@Hg:DY  
Sub ConvertListToOrdinary() rX(Ol,&oP  
    Dim st As Paragraph g)!d03Qoy  
    With ActiveDocument hy&WG&qf  
        For i = .Paragraphs.Count To 1 Step -1 B,V:Qs6"  
            Set st = .Paragraphs(i) ?,}:)oA_  
            lst = st.Range.ListFormat.ListString N)X 3pWC8  
            If lst <> "" Then xe"A;6H  
                st.Range.ListFormat.RemoveNumbers vzX%x ul  
                st.Range.InsertBefore lst & " " Ly46S  
            End If JUXo3D~  
        Next QLxe1[qI  
    End With !w1 acmo<_  
    Set st = Nothing E]w2 {%  
End Sub FPb4VJ|xm  
M{z&h>  
Private Sub UserForm_Activate() sA~ Ijg"6  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" -,186ZVZ  
    Me.lbTotal.Font.Bold = True }A}cq!I^  
    Me.txtStatus.Visible = False nt:ZO,C:R  
    Me.cmdCheck.Enabled = True zK_Q^M`  
[L>mrHqG  
End Sub ,NAwSmocVP  
y$Fk0s*>  
_|r/* (hh  
Sub CheckSuperScript() Sq ]VtQ(  
    Selection.Find.ClearFormatting n\GN}?4  
    Selection.Find.Replacement.ClearFormatting *j~ObE_y  
    With Selection.Find A&N$=9.N1  
        .Text = "[【\[［〖](*)[】\]〗］]" -e\OF3 Td  
        .Replacement.Text = "[\1]" cb=ixn  
        .Replacement.Font.Superscript = True ' QSj-  
        '.Replacement.Font.Color = wdColorBlue .Te GA;  
        .Forward = True q# 6|/R*  
        .Wrap = wdFindContinue :W.pD:/=v  
        .FORMAT = True kfY. 9$(d  
        .MatchCase = False %)ri:Qq  
        .MatchWholeWord = False g es-nG-  
        .MatchByte = False _TwE ym.V  
        .MatchAllWordForms = False dvE~EZcS  
        .MatchSoundsLike = False 63`5A3rii  
        .MatchWildcards = True `3eQ#,G!  
    End With g -pEt#  
    Selection.Find.Execute Replace:=wdReplaceAll '7<^x>D|  
End Sub y@h v#;  
;fYJ]5>  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) <<DPer2  
    bContinue = False [_`<<!u>-  
    Set regEX = Nothing ux8K$$$  
End Sub 6&"*{E  
J``5;%TJp  
Sub CeateOrModifyStyle() C>Q|"Vf2  
' |J "\~%8  
' i ,zZJ=a$  
Dim stl As Style ], IQ~  
     /hur6yI8  
    Options.Pagination = False /2Z7  
     Cp?6vu|RA  
    On Error Resume Next : IO"' b  
    For Each stl In ActiveDocument.Styles (M?VB*sm0  
        stl.Delete ]n! o a  
    Next >Qqxn*O  
    On Error GoTo 0 z57q |  
     a51}~V1  
    Set stl = Nothing aECpe'!m4  
     5g`J}@"k  
    DoEvents ol1J1Zg  
    On Error Resume Next HBNX a  
     Sim$:5P  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph IL, iu  
     bzaweA H  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph [{0/'+;9  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph #nQboTB@  
     D W>O]\I  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph 2K^xN]]rG  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph |['SiO$)  
     @X2zIFm  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph l\"CHwN?Y  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph usNq]  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph HJ!!"  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph vjVa),2  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph 6P T)  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph Rzyaicj^c  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph e#vGrLs.  
     SBaTbY0  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph [s[!PlazX  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph peew <SX  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph 4av  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph wHZ(=z/q  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph l*Q OM  
     Y=i_2R2e2  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph fo=@ X>S  
    On Error GoTo 0 ewdcAF5  
    DoEvents k$.l^H u  
     , {}S<^?]  
    'BaseStyle 24po}nrO  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False L'$({  
    With ActiveDocument.Styles("BaseStyle").Font P_P~c~o  
        .NameFarEast = "宋体" _PLZ_c:O  
        .NameAscii = "Times New Roman" &p+2Vz{  
        .NameOther = "宋体" jgqeDl\=+  
        .Size = 10.5 J|@O4 g   
        .Bold = wdUndefined BC85#sbl  
        .Italic = wdUndefined hXD`OlX  
        .Subscript = wdUndefined f[*g8p  
        .Subscript = wdUndefined o{' J O3  
         N3V4Mpf  
        .Underline = wdUnderlineNone 9&HaEAme  
        .UnderlineColor = wdColorAutomatic YkQ=rurE  
        .StrikeThrough = False M<x><U#]A  
        .DoubleStrikeThrough = False -M+o;  
         +f}w+  
        .Outline = False y#P _ }Kfo  
        .Emboss = False R2qz>kyyB  
        .Shadow = False p m<K6I  
        .Hidden = False 1wE`kbC<  
        .SmallCaps = False #^_7i)=~  
        .AllCaps = False ^U^K\rq 1u  
        .Color = wdColorAutomatic cpH*!*S  
        .Engrave = False ?es9j]  
        .Scaling = 100 RDeI l&  
        .Kerning = 1 /GO((v+J  
        .Animation = wdAnimationNone |}: D_TX  
        .DisableCharacterSpaceGrid = False H? %I((+  
        .EmphasisMark = wdEmphasisMarkNone -dw/wHf"  
    End With W6)XMl}n  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat 'X\C/8\  
        .LeftIndent = 0 Y3ypca&P9  
        .RightIndent = 0 #4AqWyp#f  
        .SpaceBefore = 0 ?IDkDv!na~  
        .SpaceBeforeAuto = False KkJE-k*D+w  
        .SpaceAfter = 0 ?'>[n m  
        .SpaceAfterAuto = False G&yF9s)Lvs  
         h  m(  
        .LineSpacingRule = wdLineSpaceSingle j[=P3Z0q  
        .Alignment = wdAlignParagraphJustify m xy=3cUi  
         G[ q<P  
        .WidowControl = False '<wZe.Q!  
        .KeepWithNext = False kqCUr|M.P  
        .KeepTogether = False _Ry  
        .PageBreakBefore = False 5(DnE?}vo  
        .NoLineNumber = False '1lz`CAB+  
         hAB:;r XlI  
        .FirstLineIndent = CentimetersToPoints(0) (DM8PtZg  
        .OutlineLevel = wdOutlineLevelBodyText Ct0%3]<J  
        .CharacterUnitLeftIndent = 0 j[w5#]&%  
        .CharacterUnitRightIndent = 0 !/"y  
        .CharacterUnitFirstLineIndent = 0 UFE~6"t(  
        .LineUnitBefore = 0 ?o d*"M  
        .LineUnitAfter = 0 Tt{ft?H71  
        .AutoAdjustRightIndent = True Lf,C5 0  
        .DisableLineHeightGrid = True ++}#pl8e  
         <$ %Y#I'zX  
        .FarEastLineBreakControl = True E; r~8^9)  
        .WordWrap = True I -XkxDw  
        .Hyphenation = False UmCIjwk  
         %%Wn:c>  
        .HangingPunctuation = True tY?evsVgz  
        .HalfWidthPunctuationOnTopOfLine = True |H8UT S X+  
        .AddSpaceBetweenFarEastAndAlpha = True {z# W-  
        .AddSpaceBetweenFarEastAndDigit = True UQ 2;Dg G%  
        .BaseLineAlignment = wdBaselineAlignBaseline Y2>*' nU  
    End With Uc j>gc=  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False H"rIOoxf  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll 7v(<<>  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese FFc?Av?_  
    ActiveDocument.Styles("BaseStyle").NoProofing = False w'Jo).OW~  
     *%dWNvN4X  
    '一级标题题样式 8 =3$U+  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") *L5L.: Ze  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" EkP(] F  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False l 4cTN @E  
    With ActiveDocument.Styles("QLNU一级标题").Font =1j`VJU9  
        .NameFarEast = "黑体" 1gH>B5`  
        .NameAscii = "Arial Black" P' k`H  
        .NameOther = "黑体" =l$qwcfbo  
        .Name = "黑体" M'x G.'  
        .Size = 16              '三号 (P nrY~9  
        .Bold = True PLWx'N-kqL  
        .Italic = wdUndefined zh4m`}p  
        .Subscript = wdUndefined 1c $iW>0K  
        .Superscript = wdUndefined ulXe;2  
    End With <gSZ<T  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat =!2(7Nr  
         .7H* F9  
        .LeftIndent = CentimetersToPoints(0) WtbOm  
        .RightIndent = CentimetersToPoints(0) -axmfE?g0  
        .FirstLineIndent = CentimetersToPoints(0)  ePI)~  
         ": ^cb =  
        .LineSpacingRule = wdLineSpaceSingle h{Y#. j~aS  
        .Alignment = wdAlignParagraphCenter -\~x^5K  
         !x D_=O  
        .WidowControl = True /7b$C]@k  
        .KeepWithNext = True 1L.yh U\  
        .KeepTogether = True "\kr;X'  
        .OutlineLevel = wdOutlineLevelBodyText QsPL^ Ny  
         x;/%`gKn8  
        .LineUnitBefore = 0.5 n 4EZy<~m  
        .LineUnitAfter = 0.5 uX,ln(9I*H  
    End With {q BbzBG  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False 5?MKx!%  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll nIqmora  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese ,:3Di (  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True +|Qe/8Q  
    DoEvents g8;JpPw  
     G;bE_O  
    '二级 o n?8l?iQ  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") p:qj.ukw  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" y &%2  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False 9/50+2F  
    With ActiveDocument.Styles("QLNU二级标题").Font gx6$:j;   
        .NameFarEast = "黑体" QLyBP!X-  
        .NameAscii = "Arial Narrow" iLkP@OYgQ  
        .NameOther = "黑体" b%I2ig  
        .Name = "黑体" -cWxS{vO  
        .Size = 15        '小三号 u}KEH@yv  
        .Bold = False qgsKbsl  
        .Outline = False ,:/3'L  
        .Italic = wdUndefined _6'HBE  
        .Subscript = wdUndefined 51x)fZQ  
        .Superscript = wdUndefined 3Y=?~!,Jk  
    End With Z+x`q#ZQr  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat !CuLXuM  
        .LeftIndent = CentimetersToPoints(0) n5 jzVv  
        .RightIndent = CentimetersToPoints(0) Psu*t%nQ?A  
        .FirstLineIndent = CentimetersToPoints(0) lmr:PX  
         3.I:`>;EO  
        .LineSpacingRule = wdLineSpaceSingle n&}ILLc  
        .Alignment = wdAlignParagraphLeft zI3Bb?4.  
         6V c&g  
        .WidowControl = True @&]%%o+  
        .KeepWithNext = True U*Pi%J  
        .KeepTogether = True (B;rjpK  
        .PageBreakBefore = False #3Jn_Y%P.  
        .OutlineLevel = wdOutlineLevelBodyText <o\I C?A  
         MQGR-W V=5  
        .LineUnitBefore = 0.5 XDq*nA8#5B  
        .LineUnitAfter = 0.5 ZIM 5$JdCv  
         W RVm^  
    End With $Z^HI  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False [ f`V_1d3  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll fmq9u(! R  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese V$<5`  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True _cH 7lO[  
    DoEvents fwi( qx1=}  
     )3~):+  
    '三级标题样式 `}f wR  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") i9k/X&V  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" NX:i]t  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False 'x!5fAy  
    With ActiveDocument.Styles("QLNU三级标题").Font - AxO1 qO  
        .NameFarEast = "宋体" XqTDLM&  
        .NameAscii = "Times New Roman" OO+QH 2j  
        .NameOther = "黑体" p/inATH  
        .Name = "黑体" nc.X+dx:  
        .Size = 14               '四号 n6 a=(T  
        .Bold = False fP:g}Z  
        .Outline = False 2:l8 RH!Y  
        .Italic = wdUndefined 6'qC *r   
        .Subscript = wdUndefined #Y9~ Xp^.  
        .Superscript = wdUndefined y2 ,M9  
    End With [D%5 Fh\0  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat Kdwt^8Umh  
        .LeftIndent = CentimetersToPoints(0) + %07J6  
        .RightIndent = CentimetersToPoints(0) B>M@'  
        .FirstLineIndent = CentimetersToPoints(0) IPT\d^|f  
         `>cBR,)r  
        .LineSpacingRule = wdLineSpaceSingle 5m&Zq_Qe  
        .Alignment = wdAlignParagraphLeft IXef}%1N?  
         l>O~^41[  
        .WidowControl = True KPSHBv-#  
        .KeepWithNext = True 'rQ>Z A_8  
        .KeepTogether = True k),.  
        .PageBreakBefore = False 8z h{?0  
        .OutlineLevel = wdOutlineLevelBodyText _}-Ed,.=  
         Th)Z?\8zk  
        .CharacterUnitLeftIndent = 0 vmZyvJSE  
        .CharacterUnitRightIndent = 0 W{(q7>g  
        .CharacterUnitFirstLineIndent = 2 ~1v5 H]T{  
         .0>2j(  
        .LineUnitBefore = 0.5 O o+pi$W  
        .LineUnitAfter = 0 <)\  
    End With Q)s[ls  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False L) ]|\|  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll 11(:#4Y,  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese (" B[P/  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True qKg*/)sD(  
    DoEvents n a1*^S`[  
     5u-jjUO  
    '四级标题样式 h+7THMI  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") &z(E-w/S  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" cRhu]fv()  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False /&#Gh?z  
    With ActiveDocument.Styles("QLNU四级标题").Font xMu[#\Vc  
        .NameFarEast = "宋体" |B;tv #mKD  
        .NameAscii = "Times New Roman" %nfaU~IqK  
        .NameOther = "宋体" hf~'EdU  
        .Name = "宋体" 8vLaSZ="[  
        .Size = 12               '小四号 usR: -1{  
        .Bold = True G&HCOR!h  
        .Outline = False mew,S)dq!  
        .Italic = wdUndefined u 6(O;  
        .Subscript = wdUndefined i7/I8y  
        .Superscript = wdUndefined +bw>9VmG  
    End With ?W(>Yefk  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat vC9 Qe ]f  
         TxD,A0  
        .LeftIndent = CentimetersToPoints(0) $Dm2>:Dmt  
        .RightIndent = CentimetersToPoints(0) x2bKFJ>e@  
        .FirstLineIndent = CentimetersToPoints(0) OF)G 2>t  
         &6`h%;a/&  
        .LineSpacingRule = wdLineSpaceSingle O+^l>+ZGj?  
        .Alignment = wdAlignParagraphLeft T!*lTzNHm  
         E9IU,P6a  
        .WidowControl = True `i,l)X]  
        .KeepWithNext = True +(-L  
        .KeepTogether = True zFqlTUD`t  
        .PageBreakBefore = False j:;[Y`2  
        .OutlineLevel = wdOutlineLevelBodyText 9=J+5V^qD<  
         YxUC.2V|7$  
        .CharacterUnitLeftIndent = 0 rv\m0*\<  
        .CharacterUnitRightIndent = 0 N1 }#6YNw  
        .CharacterUnitFirstLineIndent = 2 ;5bzXW#U  
         $ &Ntdn  
        .LineUnitBefore = 0 O:Ixy?b;Z  
        .LineUnitAfter = 0 y7quKv7L}  
         5QR=$?K  
    End With %9!, PeRe  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False TUQ+?[  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll G b\Nqx(  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese L:ox$RU  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True ""JTU6]MS  
    DoEvents W h^9 Aq  
     $-}a<UFE;  
    '正文校式 hv.$p5UY*  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") <n)J~B^  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" Oist>A$Z  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False B8Cic\2  
    With ActiveDocument.Styles("QLNU正文").Font 69{BJ] q  
         O#g'4 S  
        .NameFarEast = "宋体" .K=r.tf~  
        .NameAscii = "Times New Roman" (|<e4HfZL  
        .NameOther = "宋体" RpAqnDX)  
        .Name = "宋体" Pd<s#  
         %MQU&H9[  
        .Size = 12               '小四号 K/,y"DUN&  
         ;wi}6rF%[i  
        .Bold = wdUndefined rff=ud>Jf  
        .Italic = wdUndefined O]\6Pv@N  
        .Subscript = wdUndefined =z5'A|Wa=,  
        .Superscript = wdUndefined 5,I|beM  
         Kyz!YB  
        .Outline = False hGPo{>xR  
        .Emboss = False x +=zG4Hm  
        .Shadow = False e'FBV[e  
        .Hidden = False "%o,P/<X  
         aL9 yNj}2  
        .DisableCharacterSpaceGrid = True H\Y5Fd9)  
    End With Df\~ ZWs!  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat (aAv7kB&  
         N:j,9p0,  
        .LeftIndent = CentimetersToPoints(0) <QlpIgr  
        .RightIndent = CentimetersToPoints(0) (h} 5*u%h  
        .FirstLineIndent = CentimetersToPoints(0) -bN;nSgb  
         4&}V3"lg  
        .LineSpacingRule = wdLineSpaceExactly 8 z) K  
        .LineSpacing = 20 IMKyFp]h-  
        .Alignment = wdAlignParagraphLeft eF[CiO8F2  
         o=t@83Fh5  
        .WidowControl = False ZPktZ  
        .KeepWithNext = False |,3>A@  
        .KeepTogether = False [z2XK4\e1T  
        .PageBreakBefore = False kK27hfsw  
        .Hyphenation = False TN xl?5:  
         u?(@hUV.  
        .OutlineLevel = wdOutlineLevelBodyText s#% $aQ|Fp  
         0]3 ,0s $}  
       .^aakM  
        .CharacterUnitLeftIndent = 0 0W92Z@_GY  
        .CharacterUnitRightIndent = 0 Q]9+-p(=  
        .CharacterUnitFirstLineIndent = 2 =6XJr7Ay8u  
         cBZK t  
        .LineUnitBefore = 0 5r*5Co+  
        .LineUnitAfter = 0 $2p=vi 3  
        .SpaceBefore = 0 T<hS  
        .SpaceAfter = 0 Wchu-]  
         w1aev  
        .DisableLineHeightGrid = True #H'j;=]:  
    End With @H{QHi  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False c>_tV3TDA  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll gRnn}LL^  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese q#{.8H-X'  
    ActiveDocument.Styles("QLNU正文").NoProofing = True rd*`8B  
    DoEvents 5`TbM  
     RZ(*%b<C  
    '图片段落样式 %h}Qf&U_  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") ,buSU~c_Q  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" PTU_<\  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False a.n;ika]-  
    With ActiveDocument.Styles("QLNU图片段落").Font 'jw?XtG  
        .Size = 12               '小四号 rBO xI  
        .Italic = wdUndefined #G DnV/0)  
        .Subscript = wdUndefined m#}41<  
        .Superscript = wdUndefined ~AVn$];{  
    End With tx,_0[hZi  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat BHVC& F*>  
         /6=IL  
        .LeftIndent = CentimetersToPoints(0) uPVM>xf>w  
        .RightIndent = CentimetersToPoints(0) Vs[A  
        .FirstLineIndent = CentimetersToPoints(0) ~  4v  
         eGwO!Lv}B  
        .LineSpacingRule = wdLineSpaceSingle Mnu8d:$  
        .Alignment = wdAlignParagraphCenter ?IKSSe#,  
        .KeepWithNext = True 6x'F0{U  
        .OutlineLevel = wdOutlineLevelBodyText 1V\tKDM  
         }ZQ)]Mr  
        .CharacterUnitLeftIndent = 0 YUzx,Y>k  
        .CharacterUnitRightIndent = 0 !2.(iuE  
        .CharacterUnitFirstLineIndent = 0 \k DQ[4mGq  
         y:Wq;xEiDo  
        .LineUnitBefore = 0 ~[_u@8l!mN  
        .LineUnitAfter = 0 PykVXZ7j;  
    End With ;6 ?a8t@  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False L;7u0Yg  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll lm;Dy*|<  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese {Jna' eS  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True ]C;X/8'Jf5  
    DoEvents UmR\2 cs  
     kB)u@`</mV  
     / 5!0wxN  
    '第X章 diz=|g=w  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") }508wwv  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" R)@2={fd}  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False -> ^Ex`  
    With ActiveDocument.Styles("QLNU章节标题").Font NmuzAZr  
        .NameFarEast = "黑体" kxanzsSr9  
        .NameAscii = "Arial Black" Y>/T+ub  
        .NameOther = "Arial Black" @%'1Jd7-Wp  
        .Name = "黑体" 5}3#l/  
        .Size = 16 [!~= m  
        .Bold = True kF;N}O2?{  
        .UnderlineColor = wdColorAutomatic 2;wp D2  
        .Outline = False fT2F$U  
        .Italic = wdUndefined -wsoJh  
        .Subscript = wdUndefined u ?-|sv*  
        .Superscript = wdUndefined Vktc  
        .Scaling = 100 HBdZE7.x)3  
        .DisableCharacterSpaceGrid = True 'mELW)S  
    End With 0.aIcc  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat K7 J RCLA  
        .LineSpacingRule = wdLineSpaceSingle n5DS   
        .Alignment = wdAlignParagraphCenter tD~ n PbbB  
        .WidowControl = True .E:3I!dH7  
        .KeepWithNext = True e=cb%  
        .KeepTogether = True *8bj3A]vf  
        .PageBreakBefore = True 0h=}BCb+i  
        .OutlineLevel = wdOutlineLevelBodyText `f[  
         2q NA\-0i>  
        .LeftIndent = CentimetersToPoints(0) 0!Vza?9  
        .RightIndent = CentimetersToPoints(0) =*5< w  
        .FirstLineIndent = CentimetersToPoints(0) oH,{'S@q  
         EV'i/*v}\  
        .CharacterUnitLeftIndent = 0 y}F;~H~P  
        .CharacterUnitRightIndent = 0 nO+-o;DbC  
        .CharacterUnitFirstLineIndent = 0 ^Q\Hy\  
         @!Z1*a.  
        .LineUnitBefore = 1 mo?*nO|-  
        .LineUnitAfter = 0.5  F]KAnEf  
         *TP>)o  
        .AutoAdjustRightIndent = False OOj }CZ6  
        .DisableLineHeightGrid = True ]*vv=@"`e  
        .FarEastLineBreakControl = True ]F*fQ Ncjy  
        .WordWrap = True pK@8= +  
    End With X< p KAO\  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False QNgfvy  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll [I5}q&  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese tx||<8  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True aO$I|!tl  
    DoEvents /}$D&KwYg  
     Ex$i8fO(  
    '表格标题 _tQR3I5  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") E4N{;'  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" J`d;I#R%c  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False '/QS sZR  
    With ActiveDocument.Styles("QLNU表格标题").Font 0ZJt  
        .NameFarEast = "楷体" AqucP@  
        .NameAscii = "Arial" 4jdP3Q/  
        .Name = "楷体" 4,qhWe`/  
        .Size = 10.5 xg_9#  
        .Bold = True FWDAG$K@0  
        .Underline = wdUnderlineNone {Z(kzJwN  
        .Italic = wdUndefined &`Ek-b!7  
        .Subscript = wdUndefined  <]h?_)  
        .Superscript = wdUndefined ]?a i  
        .Color = wdColorAutomatic O p,_d^  
    End With =2.q=a|'  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat pt=H?{06  
         i5jsM\1j  
        .LineSpacingRule = wdLineSpaceSingle  MON]rj7  
        .Alignment = wdAlignParagraphCenter 4S3uzy%  
        .KeepWithNext = True xv>]e <":  
        .KeepTogether = True o0:RsODl  
        .OutlineLevel = wdOutlineLevelBodyText R&]#@PW^  
         SK;c D>)  
        .LeftIndent = CentimetersToPoints(0) $irF  
        .RightIndent = CentimetersToPoints(0) =/MA`>  
        .FirstLineIndent = CentimetersToPoints(0) R*r;`x  
         gano>W0  
        .CharacterUnitLeftIndent = 0 %oHK=],|1  
        .CharacterUnitRightIndent = 0 swLrp 74  
        .CharacterUnitFirstLineIndent = 0 |WDMyKf6J  
         LF\HmKM,  
        .LineUnitBefore = 1 zM2 _z  
        .LineUnitAfter = 0 ?I332,,q  
         |kh7F0';"  
    End With E8] kd  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False bE>"DP q  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll /V$U%0  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese )@[##F2  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True 7 FGi+  
    DoEvents Y2Y)|<FH  
}GL@?kAGR5  
    '表格首行 IcP\#zhEv  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") |58xR.S'g  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False .l$:0a  
    With ActiveDocument.Styles("QLNU表格首行").Font B'8/`0^n5  
        .NameFarEast = "楷体" b,uu dtlH  
        .NameAscii = "Times New Roman" <3C/t|s  
        .Name = "楷体" ![9um sx  
        .Size = 9 ~"nF$DB  
        .Bold = True fm1yZX?`  
        .Underline = wdUnderlineNone K:(E"d;  
        .Italic = wdUndefined r: M>/Z/  
        .Subscript = wdUndefined {Etvu  
        .Superscript = wdUndefined fuF!3Q  
    End With yU'<b.]  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat AS'%Md&I  
        .LineSpacingRule = wdLineSpaceSingle Lv m"!!  
        .Alignment = wdAlignParagraphCenter }YCpd)@  
         `A ^  
        .LeftIndent = CentimetersToPoints(0) kqQT^6S   
        .RightIndent = CentimetersToPoints(0) /Xk-xg+U  
        .FirstLineIndent = CentimetersToPoints(0) fv/Nf "  
         2v?fbrC5c  
         YML]pNB  
        .CharacterUnitLeftIndent = -0.5 l~Rd\.O  
        .CharacterUnitRightIndent = -0.5  U;#9^<^  
        .CharacterUnitFirstLineIndent = -0.5 G[$g-NU+  
         kmT5g gy  
        .LineUnitBefore = 0 u.dYDi  
        .LineUnitAfter = 0 Z|$M 9E  
        .SpaceBefore = 0 6&`hf >  
        .SpaceAfter = 0 7oV$TAAf  
         y$[:Kh,  
    End With ce:p*  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False k{ ~0BK  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll W!t=9i  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese 2xK v;  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True FS^~e-A  
    DoEvents p(Ux]_s%  
-+{<a!Nb  
    '表格内容 h yK&)y?~  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") 7]H <ou  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False +^|_vq^XR  
    With ActiveDocument.Styles("QLNU表格内容").Font 'M!M$<j  
        .NameFarEast = "楷体" E.eUd4XG  
        .NameAscii = "Times New Roman" 6W[~@~D=  
        .Name = "楷体" ?/|KM8  
        .Size = 9 W.CbNou  
        .Bold = False {e p(_1  
        .Underline = wdUnderlineNone RG_.0'5=hc  
        .Italic = wdUndefined h0a|R4J  
        .Subscript = wdUndefined qV7 9bK  
        .Superscript = wdUndefined < \EJ:  
    End With |ya.c\}q  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat :T )R ;E@  
        .LineSpacingRule = wdLineSpaceSingle {2F@OfuCF  
        .Alignment = wdAlignParagraphCenter Ake@krh>$  
         j9xu21'!%  
        .LeftIndent = CentimetersToPoints(0) gE: ?C2  
        .RightIndent = CentimetersToPoints(0) y4)iL?!J~  
        .FirstLineIndent = CentimetersToPoints(0) n#^ii/H  
         LR#BP}\b'  
        .CharacterUnitLeftIndent = -0.5 z"P/Geb:O  
        .CharacterUnitRightIndent = -0.5 g5:?O,?  
        .CharacterUnitFirstLineIndent = -0.5  D9h  
        .LineUnitBefore = 0 U*4r<y9R  
        .LineUnitAfter = 0 E .N  
        .SpaceBefore = 0 L@s_)?x0  
        .SpaceAfter = 0 55Ya(E  
    End With TyhO+;  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False L Iz<fB  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll <.".,Na(J0  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese Z0%:j\W4c  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True rCUGaf~  
    DoEvents Q[{RN ab  
T~L&c  
    '图片标题 MX iQWg$  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 6n^@Ps  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" CEW1T_1U<\  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False % Ai' 6  
    With ActiveDocument.Styles("QLNU图片标题").Font |j~l%d*<w  
        .NameFarEast = "楷体" _iL?kf  
        .NameAscii = "Times New Roman" }OY/0p-Z  
        .Name = "楷体" !<24Cy   
        .Size = 10.5 ]I_*+^?tI  
        .Bold = True +z 4E:v  
        .Underline = wdUnderlineNone  />6ECT  
        .Italic = wdUndefined ;y_]w6|n  
        .Subscript = wdUndefined T+e*'<!O  
        .Superscript = wdUndefined E!_3?:[S_  
        .Outline = False >x>/}`  
        .Shadow = False 'o~gT ;T#  
        .Color = wdColorAutomatic 5;+KMM:zb  
    End With LcZ|A;it  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat hd6O+i Y4  
        .LineSpacingRule = wdLineSpaceSingle y @S_CB 47  
        .Alignment = wdAlignParagraphCenter XBoq/kbw!  
         =f!clhO  
        .KeepWithNext = wdUndefined w2db=9  
        .KeepTogether = True Y_K W9T_  
        .OutlineLevel = wdOutlineLevelBodyText k!Q{u2  
         Ec2;?pvd%J  
        .LeftIndent = CentimetersToPoints(0) IC?(F]$%>  
        .RightIndent = CentimetersToPoints(0) c?N,Cd~q  
        .FirstLineIndent = CentimetersToPoints(0) 2RQ- L  
         Q':hmulT!  
        .CharacterUnitLeftIndent = 0 PMUW<UI  
        .CharacterUnitRightIndent = 0 6$[7hlE  
        .CharacterUnitFirstLineIndent = 0 P ^ 4 @  
         `Qjs {H  
        .LineUnitBefore = 0 K)U[xS;<  
        .LineUnitAfter = 0 T<-_#}.Hn  
    End With vA}_x7}n(  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False ^e =G} N^  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll |Ve,Y  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese AmC?qoEWQ7  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True 0<O()NMv  
    DoEvents C]p@7"l  
(zh[1 [a  
    '目录项 axpZ`BUc  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") HIt Nd  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" L&s$&E%  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False bF6J>&]!  
    With ActiveDocument.Styles("QLNU目录项").Font <{GVA0nr  
        .NameFarEast = "黑体" AJm$(3?/D  
        .NameAscii = "Times New Roman" )U=]HpuzI  
        .NameOther = "Times New Roman" $1g1Bn  
        .Name = "黑体" ^qnmKA>"F  
        .Size = 10.5 Vd(n2JMtG  
        .Bold = False ?U{<g,^  
        .Italic = wdUndefined K_@?Q@#YhR  
        .Underline = wdUnderlineNone G;$; $gM  
        .Color = wdColorAutomatic @$~IPg[J  
        .Superscript = wdUndefined kg 8Dn  
        .Subscript = wdUndefined K|YB)y  
    End With q k 6  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat \5 rJ  
         S*$?~4{R  
        .LineSpacingRule = wdLineSpaceSingle X8">DR&>Y  
        .Alignment = wdAlignParagraphLeft SnR2o3r-Of  
         5VJe6i9;  
        .WidowControl = False T;?k]4.X  
        .KeepWithNext = False X =%8*_  
        .KeepTogether = False $ dF3@(p  
        .PageBreakBefore = False ^ H&U_  
        .NoLineNumber = False (|F.3~Amq  
        .OutlineLevel = wdOutlineLevelBodyText uKXNzz  
         ] |nW  
        .LeftIndent = CentimetersToPoints(0) 1[T7;i$  
        .RightIndent = CentimetersToPoints(0) - Z`RKR8C  
        .FirstLineIndent = CentimetersToPoints(0) MXa^ g"  
         y pyKRsx  
        .CharacterUnitLeftIndent = 0 IzJq:G.  
        .CharacterUnitRightIndent = 0 M(zZ8#  
        .CharacterUnitFirstLineIndent = 0 /0 4US5En  
         1Dl6T\20  
        .LineUnitBefore = 0 =MMd&  
        .LineUnitAfter = 0 a eeor  
    End With A&bj l[s  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False >=|p30\b  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll U8AH,?]#  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot Rq%Kw > {&  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese z}B 39L  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True ddyX+.LMk  
    DoEvents xhOoZ-  
     fP V n;  
    '参考文献 r5Tdp)S  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") ;}j(x;l>t  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" E^zfI9R  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False f um.G {}  
    With ActiveDocument.Styles("QLNU参考文献").Font c(e>Rmh  
        .NameFarEast = "宋体" P6 R_W  
        .NameAscii = "Times New Roman" g (WP  
        .NameOther = "Times New Roman" ]jFl?LA%7  
        .Name = "Times New Roman" # )y/aA  
        .Size = 12 yji[Yde;|  
        .Bold = False Q{RmE:  
        .Italic = wdUndefined tKeTHj;jO  
        .Subscript = wdUndefined 10i$b<O  
        .Superscript = wdUndefined s<)lC;#e  
        .Underline = wdUnderlineNone P/girce0  
        .UnderlineColor = wdColorAutomatic msM1K1er  
        .Color = wdColorAutomatic CF2Bd:mfZ  
        .Engrave = False i5t6$|u:&m  
    End With ".tL+A[  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat mr^3Y8 $s  
         O|~C qb  
        .LineSpacingRule = wdLineSpaceExactly zD79M  
        .LineSpacing = 16 c%J6!\  
        .Alignment = wdAlignParagraphLeft r]UF<*$  
        .WidowControl = False &8z<~q  
        .KeepWithNext = False \?d3Pn5`  
        .KeepTogether = False G %6P`:  
        .PageBreakBefore = False (XQuRL<X  
        .OutlineLevel = wdOutlineLevelBodyText 2h'Wu qO  
         AoeRoqg&#  
        .LeftIndent = CentimetersToPoints(0) Iz5NA0[=2  
        .RightIndent = CentimetersToPoints(0) m$kQbPlatN  
        .FirstLineIndent = CentimetersToPoints(0) > :IWRc2  
         b.@a,:"  
        .CharacterUnitLeftIndent = 0 9MYk5q.X:  
        .CharacterUnitRightIndent = 0 acR|X@ \3  
        .CharacterUnitFirstLineIndent = -2 z.!N|"4yr  
         6FQi=}O1  
        .LineUnitBefore = 0 ;,C]WZ.w  
        .LineUnitAfter = 0 {@^;Nw%J  
        .SpaceBefore = 0 iBd6&?E?<  
        .SpaceAfter = 0 C=/B\G/.9  
         U~N7\Pa4  
    End With m&Mupl  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False 1(Ta*"(0Ip  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll dy&UF,l6  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS `(sb  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True ]MV8rC[\  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese E5d$n*A  
    DoEvents 8~]D!c8;a  
DzQBWY] )  
    ' /}(d'@8p  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") AQg|lKv  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" ksOGCd^G7  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False 0(D^NtB7  
    With ActiveDocument.Styles("QLNU论文题目").Font r8Mx +r  
        .NameFarEast = "黑体" u] };QR  
        .NameAscii = "Arial Black" "|L" C+tE  
        .NameOther = "Arial Black" AO$AT_s  
        .Name = "Arial Black" A913* O: \  
        .Size = 16 K"H\gmV_ g  
        .Bold = False ^,acU\}VqP  
        .Italic = wdUndefined {O^u^a\m  
        .Superscript = wdUndefined ~0a5  
        .Subscript = wdUndefined >F7w]XH  
        .Underline = wdUnderlineNone ]:59c{O  
        .UnderlineColor = wdColorAutomatic `X6JZxGyd  
        .Color = wdColorAutomatic _!R$a-  
rNii,_  
    End With _XV%}Xb'  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat ^AS \a4`/  
        .LineSpacingRule = wdLineSpaceSingle X,7y|tb  
        .Alignment = wdAlignParagraphCenter zKO7`.*  
        .WidowControl = True x i=ApwNj  
        .KeepWithNext = True hTr5Q33y>  
        .KeepTogether = True Xq*^6*E-}  
        .PageBreakBefore = True iqQT ^  
        .NoLineNumber = False T)rE#"_]{  
        .OutlineLevel = wdOutlineLevelBodyText g[3LPKQ  
         UJ)pae  
        .LeftIndent = CentimetersToPoints(0) ViPC Yt`of  
        .RightIndent = CentimetersToPoints(0) t'v t'[~,U  
        .FirstLineIndent = CentimetersToPoints(0) _U<fS  
         (~=.[Y  
        .CharacterUnitLeftIndent = 0 \ ;npdFy  
        .CharacterUnitRightIndent = 0 #]kjyT0  
        .CharacterUnitFirstLineIndent = 0 //U1mDFT  
         DK)W ,z|  
        .LineUnitBefore = 1 2 }r=DAe0  
        .LineUnitAfter = 1 ff\~`n~WZ  
         Yf w>x[#e  
        .BaseLineAlignment = wdBaselineAlignAuto XH"+oW  
    End With )U?_&LY)[M  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False mm-s?+&M;  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll a/sjW  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS d,V#5l-6  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True [@vz0!@s5  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese D(#f`Fj;  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True ;Y$>WKsV  
    DoEvents I6W`yh`I)  
     xc:E>-  
    '中文摘要 B 7C3r9wj  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") <Kd(fFe  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" qd*}d)!  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False lW&(dn)}  
    With ActiveDocument.Styles("QLNU中文摘要").Font [1VA`:?W  
        .NameFarEast = "宋体" }}JMwT  
        .NameAscii = "Times New Roman" Ae+)RBpc  
        .NameOther = "Times New Roman" d;Vy59}eY  
        .Name = "Times New Roman" CubQ6@,  
        .Size = 12 ,^UqE {  
        .Bold = wdUndefined {AL EK   
        .Superscript = wdUndefined G<;~nAo?f0  
        .Subscript = wdUndefined vk& gR  
        .Italic = wdUndefined Y%s:oHt  
        .Underline = wdUnderlineNone Gt9$hB7  
        .UnderlineColor = wdColorAutomatic z-5`6aE9<  
        .Color = wdColorAutomatic F4EAC| Y  
    End With &A QqI  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat oJz2-P mX  
        .LineSpacingRule = wdLineSpaceExactly z)qYW6o%  
        .LineSpacing = 20 hmO2s/~  
        .Alignment = wdAlignParagraphLeft jwDlz.sW!  
         / (&E  
        .WidowControl = False z8Q!~NN-K  
        .KeepWithNext = False r ]DiB:.  
        .KeepTogether = True $YL9 vJV  
        .PageBreakBefore = False <'a~Y3B"o  
        .NoLineNumber = False ~RhUg~o  
        .OutlineLevel = wdOutlineLevelBodyText .f\LzZ-I:  
          EKwQ$?I  
        .LeftIndent = CentimetersToPoints(0) H}^'  
        .RightIndent = CentimetersToPoints(0) t4WB^dHYp  
        .FirstLineIndent = CentimetersToPoints(0) K4c:k; V  
         UN]gn>~j  
        .CharacterUnitLeftIndent = 0 !Zz;;Z  
        .CharacterUnitRightIndent = 0 b(H{i}{]  
        .CharacterUnitFirstLineIndent = 2 eqo0{e  
        .LineUnitBefore = 0 t'eqk#rq  
        .LineUnitAfter = 0 1i76u!{U  
         H_DCdUgC'  
    End With ,=:K&5mCv  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False I`kfe`_  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll ]gk1q{Ql<  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS "|SMRc  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True  ~VGnE:  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese m1"m KM  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True m&UP@hUV-  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete &L ;ocd$  
    DoEvents Rh!UbEPjC  
     liKlc]oM  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 2ym(fk.6{  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" >XD?zF)6  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False N:1aDr;  
    With ActiveDocument.Styles("QLNU英文标题").Font Td=4V,BN  
        .NameFarEast = "黑体" ?+yr7_f3*  
        .NameAscii = "Arial Narrow" 2Je $SE8  
        .Name = "Arial Narrow" (#Y~z',I  
        .Size = 16 l!mbpFt  
        .Bold = True {ZJO5*  
        .Bold = wdUndefined gq+SM  i=  
        .Superscript = wdUndefined qpjY &3SI  
        .Subscript = wdUndefined }u Y2-l  
        .Italic = wdUndefined 1 ^~&"s U  
         *LT~:Gs#  
        .Underline = wdUnderlineNone lSj gN~:z  
        .UnderlineColor = wdColorAutomatic 0 67c/ c  
        .StrikeThrough = False @,vmX z  
        .DoubleStrikeThrough = False Rn1oD3w  
    End With 1|bXIY.J*  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat 'solCAy  
        .LineSpacingRule = wdLineSpaceSingle LD$5KaOW  
        .Alignment = wdAlignParagraphCenter D JP6Z  
        .WidowControl = True 9mF '   
        .KeepWithNext = False D tsZP (  
        .KeepTogether = False jkAjYR.  
        .PageBreakBefore = False 8:ubtB  
        .NoLineNumber = False S$6|K Y u  
        .FirstLineIndent = CentimetersToPoints(0) `c`VIq?  
        .OutlineLevel = wdOutlineLevelBodyText Njq}M/{U  
         jh5QIZf=  
        .LeftIndent = CentimetersToPoints(0) [BWq9uE  
        .RightIndent = CentimetersToPoints(0) j#NyNv(jE1  
        .FirstLineIndent = CentimetersToPoints(0) w_9^YO! !  
         )DSeXS[ e  
        .CharacterUnitLeftIndent = 0 =~#mF<z5  
        .CharacterUnitRightIndent = 0 [);oj<  
        .CharacterUnitFirstLineIndent = 0 6#=jF[  
         D31X {dJ  
        .LineUnitBefore = 1 H?$dnwR  
        .LineUnitAfter = 1 q!Du J  
         i! .]U@{k  
    End With vB:\ZX4  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False t*{L[c9.Uq  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll :ym?]EL4o  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS %pC<T*f  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True Y-VDi.]W  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese Dd3f@b[WX  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True x.SfB[SZ  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete i_Kwxn$  
    DoEvents b IDUa  
pwFp<O"  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") BZq#OA p  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" o3J#hQrl  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False }K{1Bm@S  
    With ActiveDocument.Styles("QLNU英文摘要").Font -t`kb*O3`  
        .NameFarEast = "宋体" O[@!1SKT0  
        .NameAscii = "Arial" <_EKCk  
        .NameOther = "Arial" `MtzA^Xr  
        .Name = "Arial"  N5 ME_)  
        .Size = 12 /]0qI  
        .Bold = wdUndefined OgQd yU  
        .Italic = wdUndefined YEL0h0gn  
        .Superscript = wdUndefined |{(<A4W  
        .Subscript = wdUndefined L*@`i ]jl  
    End With ^&zCPUH  
     xL}i9ozZ  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat zj 6I:Q r  
         UhxM85M;x  
        .LineSpacingRule = wdLineSpaceExactly aukcO ;oG<  
        .LineSpacing = 20 -<W?it?D  
         S|85g1}t  
        .Alignment = wdAlignParagraphJustify TCr4-"`r-{  
         wi(Y=?=  
        .WidowControl = False +;N]34>S7  
        .KeepWithNext = False y Zaf q"o  
        .KeepTogether = False ] l,BUf-O  
        .PageBreakBefore = False @HT\Y%E  
        .NoLineNumber = False L^J4wYFTO  
         5mH [|_  
        .OutlineLevel = wdOutlineLevelBodyText "J VIkC  
         { 3G  
        .LeftIndent = CentimetersToPoints(0) > p`,  
        .RightIndent = CentimetersToPoints(0) ~#_~DqbMZ5  
        .FirstLineIndent = CentimetersToPoints(0) "<,lqIqA;  
         gf|uZ9{  
        .CharacterUnitLeftIndent = 0 +8Xjk\Hi  
        .CharacterUnitRightIndent = 0 _&gi4)q  
        .CharacterUnitFirstLineIndent = 2 HJL! ;i  
         KX ) n+{   
        .LineUnitBefore = 0 >O'\ jp}$l  
        .LineUnitAfter = 1 tKbxC>w  
         q<3 nAE$?=  
    End With 'Wlbh:=$  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False z.vQ 1~s  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll E^F"$Z" N  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS ["-rD y P  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False x|H`%Z  
    DoEvents 5`;SI36"  
^T=9j.e'ja  
    Options.Pagination = True a:FU- ^B4~  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." iaGA9l<b  
    DoEvents q_ MN  
    ActiveDocument.Repaginate Z,&O8Jelf  
coP->&(@U#  
End Sub 'aSsyD!?<  
_v!7 |&\  
0PzSp ]  
杺栫杣杊椌柮栬，䒴蓉艿芖。
回复 引用
举报顶端
伍胥之 离线
级别: 军区司令员

显示用户信息 
101楼  发表于: 2024-12-28   
只看该作者 ┊  小 中 大
姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 YPK@BmAdE  
o&JoeKXor  
引用
引用第20楼newport93于06-14-2010 13:47发表的  : mnt&!X4<  
&3vm @  
老五，I 服了U。 D*l(p5[  
Kz'GAm\  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 O4rjGTRF  
d59rq<yI  
杺栫杣杊椌柮栬，䒴蓉艿芖。
回复 引用
举报顶端
上一主题下一主题
«3456»Pages: 6/6
 Bay Area Chinese--灣區華人 » 乱讲
描述
快速回复

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