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

显示用户信息 
100楼  发表于: 2021-07-18   
只看该作者 ┊  小 中 大
Dim bContinue As Boolean '0[D-jEr  
HbX>::J8  
Dim regEX As New RegExp (q59cAw~X  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 c]v $C&FX  
Z O5_n  
Dim LastTitle0String As String, LastTitle0No As Long >_jT.d  
Dim LastTitle1String As String, LastTitle1No As Long uwXquOw  
Dim LastTitle2String As String, LastTitle2No As Long 0WaC.C+2i  
Dim LastTitle3String As String, LastTitle3No As Long 7$b!-I+ a2  
Dim LastTitle4String As String, LastTitle4No As Long eqb8W5h'  
Dim LastTitle5String As String, LastTitle5No As Long O[U^{~iM  
Dim LastTabelString As String, LastTableNo As Long s% 2w&Us*  
Dim LastFigureString As String, LastFigureNo As Long Ya<S/9c  
D kl4 ^}  
Dim strSeperator As String R7r` (c!  
MxD,x pf  
Sub ConvertWidth(fTEXT As String, rText As String) 4%LGP h  
        Selection.Find.ClearFormatting :$~)i?ge<5  
        Selection.Find.Replacement.ClearFormatting [ p$f)'  
        Selection.Find.Wrap = wdFindContinue L%}k.)yev  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText NGOc:>}k>  
        DoEvents GF*8(2h2  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True d`5xd@p  
End Sub l<>syHCH;L  
T ]hVO'z  
Sub ClearDomain() PxNp'PZr9  
        With Selection.Find g'ha7~w(p  
            .ClearFormatting 2w>WS#  
            .Replacement.ClearFormatting "-88bF~  
            .Wrap = wdFindContinue 'X d_8.  
            Me.txtStatus.Text = "清除所有域代码" [fiB!G ]?  
            DoEvents 'c*Q/C;  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False W,9. z%  
        End With l E=(6Q  
End Sub eRKuy l  
e;GLPB   
Private Sub cmdCheck_Click() N_rz~$|@9  
    bContinue = True HQw98/-_W  
    Dim NoSeries1(1 To 16) As String \1cay#X  
    Dim NoSeries2(1 To 16) As String (/UW}$] h  
    Dim NoSeries5(1 To 16) As String }><Vc ouJ[  
    Dim NoSeriesRM(1 To 16) As String )y4bb^;z  
    Dim paraTotal As Long, ParaText As String :hr% 6K7  
    Dim ttString As String, ttNo As String ?&  qMC  
     5R\{&  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long y{ %2Q)  
7g8}]\i+  
    Me.txtStatus.Visible = True b R> G%*a  
    Me.lbParaType.Visible = True 6c,]N@,Zw  
    Me.cmdCheck.Enabled = False VNBf2 Va  
     [KR|m,QWp  
     D1rXTI$$  
     1G$fU zS  
     ?{[ ISk)  
    Dim ParaType As String, rText As String ecDni>W  
     E #q gt9  
    Selection.WholeStory k&wCa<Rs~R  
    Selection.NoProofing = True kU{+@MA;  
     Yj3j?.JJk  
    tm1 = Now }^U7NZn<"  
     XP'<\  
        ActiveWindow.View.Type = wdNormalView [-5%[ty9X  
     YRa{6*M  
    NoSeries1(1) = "一" D[32 t0  
    NoSeries1(2) = "二" 0tyoH3o/d  
    NoSeries1(3) = "三" @M-i$ q[4  
    NoSeries1(4) = "四" _&)^a)Nu  
    NoSeries1(5) = "五" 4r&DW'  
    NoSeries1(6) = "六" ]rGZ   
    NoSeries1(7) = "七" }'L7<_  
    NoSeries1(8) = "八" G_vWwH4XtL  
    NoSeries1(9) = "九" N4]QmRX/j  
    NoSeries1(10) = "十" 6<X.]"u+E~  
    NoSeries1(11) = "十一" 3 eT5~Lbs  
    NoSeries1(12) = "十二" qM= $,s*  
    NoSeries1(13) = "十三" un([3r  
    NoSeries1(14) = "十四" h\| ~Q.kG  
    NoSeries1(15) = "十五" ySAkj-< /P  
    NoSeries1(16) = "十六" s.7\?(Lg  
     > Dy<@e  
    NoSeries2(1) = "㈠" w.Cw)# N  
    NoSeries2(2) = "㈡" N3O3V5':!  
    NoSeries2(3) = "㈢" # JMww  
    NoSeries2(4) = "㈣" 7iMBDkb7  
    NoSeries2(5) = "㈤" `G7LM55  
    NoSeries2(6) = "㈥" m}ZkNWH  
    NoSeries2(7) = "㈦" ntR@[)K  
    NoSeries2(8) = "㈧" wX5Yo{  
    NoSeries2(9) = "㈨" E-gI'qG\(  
    NoSeries2(10) = "㈩" $;7,T~{  
     Bn:" q N~  
    NoSeries5(1) = "①" U4)x"s[CP  
    NoSeries5(1) = "②" 4efIw<1_  
    NoSeries5(3) = "③" :/UO3 c(  
    NoSeries5(4) = "④" Sk7l&B  
    NoSeries5(5) = "⑤" HYU-F_|N=  
    NoSeries5(6) = "⑥" }MQNzaXY^  
    NoSeries5(7) = "⑦" %3b;`Oa  
    NoSeries5(8) = "⑧" (mbC! !>  
    NoSeries5(9) = "⑨" T'_#Dwmj*  
    NoSeries5(10) = "⑩" _ 3@[S F  
     9<0TF+}>  
     g~E N3~  
    NoSeriesRM(1) = "I" `#@#e Z  
    NoSeriesRM(2) = "II" ^{Wx\+*!  
    NoSeriesRM(3) = "III" s8BfOl-  
    NoSeriesRM(4) = "IV" ) aSj!X'`;  
    NoSeriesRM(5) = "V" aT|SKb`  
    NoSeriesRM(6) = "VI" >f+qI mH  
    NoSeriesRM(7) = "VII" E)w6ZwV  
    NoSeriesRM(8) = "VIII" :{sy2g/+  
    NoSeriesRM(9) = "IX" WV5z~[  
    NoSeriesRM(10) = "X" a7$-gW"Z(,  
    NoSeriesRM(11) = "XI" $d0xJxM  
    NoSeriesRM(12) = "XII" v~E\u  
    NoSeriesRM(13) = "XIII" BNi6I\wa  
    NoSeriesRM(14) = "XIV" LX f r  
    NoSeriesRM(15) = "XV" 6d~[j <@2  
    NoSeriesRM(16) = "XVI" }_Y&kaM  
     )(bAi  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) :&SvjJR  
     vge4&H3a&  
    If i = vbNo Then ^97u0K3$  
        Exit Sub ~EIK  
    End If Ao?y2 [sE  
     wHx@&Tp  
    If Me.chkSuper.Value Then QAGR\~  
        Me.txtStatus.Text = "检查修改所有的上标格式" XBx&&  
     oKyl2jg+,  
        CheckSuperScript 9dS<^E(ZF  
         ,~8&0p  
    End If CCoT  
     6sceymq  
    If Me.chkStyle.Value Then qZQB"Q.*  
        Me.txtStatus.Text = "设置样式，请稍候...." ?{=& Ro  
        DoEvents 6=N!()s  
        CeateOrModifyStyle *<r\:g  
    End If )M3} 6^s]  
     yM,.{m@F<  
     hA=.${uIO  
     B ]*v{?<W  
    ClearDomain qmmQH S  
         lU?8<X  
     ZkWX4?&OMt  
     )<ig6b%  
    If Me.chkLIST.Value Then $ljzw@k  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" !s^[|2D_U  
     m[aBHA^g  
        ConvertListToOrdinary [A jY  ~  
    End If PFR64HK2  
     YQ? "~[mL  
     C2e.RTxc  
    Dim pType As String, trimpTEXT As String 2/o _,k  
    If Me.chkNum.Value = True Then j(aok5:e  
        Me.txtStatus.Text = "转换全角数字形式为半角" <TN+-)H6  
        ConvertWidth "１", "1" ?,XrZRF  
        DoEvents EBQ,Ypv  
        ConvertWidth "２", "2" 3R|Ub G`  
        DoEvents X|&v]mJ  
        ConvertWidth "３", "3" Z7]["  
        DoEvents Y@(izC&h  
        ConvertWidth "４", "4" IKo,P$ PE  
        DoEvents oS>VN<  
        ConvertWidth "５", "5" r4MPs-}oF  
        DoEvents $Gs 9"~z?;  
        ConvertWidth "６", "6" DP@F-Q4  
        DoEvents B`<a~V  
        ConvertWidth "７", "7" r+%$0eB1^  
        DoEvents ATRB9  
        ConvertWidth "８", "8"  Mo'6<"x  
        DoEvents pu-X -j  
        ConvertWidth "９", "9" gh9Gc1tKt  
        DoEvents ]g] ]\hS  
        ConvertWidth "０", "0" k2-+3zx  
        DoEvents \9t/*%:  
        ConvertWidth "ａ", "a" . E8Gj'yO  
        DoEvents ZuLW%z.  
        ConvertWidth "ｂ", "b" fEJF3<UF&  
        DoEvents op8[8pt%  
        ConvertWidth "ｃ", "c" =w!>/#U  
        DoEvents E+Eug{+  
        ConvertWidth "ｄ", "d" aU\R!Y$/"  
        DoEvents 4De2m iq  
        ConvertWidth "ｅ", "e" =Ju%3ptH0  
        DoEvents q%S^3C&  
        ConvertWidth "ｆ", "f" _ASyGmO{  
        DoEvents S =5br  
        ConvertWidth "ｇ", "g" :<p3L!?8y  
        DoEvents 6 uS;H]nd<  
        ConvertWidth "ｈ", "h" m=[3"X3W1V  
        DoEvents 62.)fCQ^  
        ConvertWidth "ｉ", "i" /Fj*sS8  
        DoEvents hQb3 8W[  
        ConvertWidth "ｊ", "j" ntr&? H  
        DoEvents \Gl>$5np  
        ConvertWidth "ｋ", "k" U{C& R&z  
        DoEvents aM5Hp>'nI  
        ConvertWidth "ｌ", "l" PAD&sTjE*  
        DoEvents <nvzNXql  
        ConvertWidth "ｍ", "m" Vq&}i~  
        DoEvents yDapl(  
        ConvertWidth "ｎ", "n" 2 xE+"?0  
        ConvertWidth "ｏ", "o" #i;y[dQ  
        ConvertWidth "ｐ", "p" 6N\f>c  
        ConvertWidth "ｑ", "q" f|+aa6hN  
        ConvertWidth "ｒ", "r" U {,:-R  
        ConvertWidth "ｓ", "s" R4_BP5+  
        ConvertWidth "ｔ", "t" ]]F e:>  
        ConvertWidth "ｕ", "u" ptQCqQ1_d  
        ConvertWidth "ｖ", "v" q<XleC  
        ConvertWidth "ｗ", "w" ^\ku}X_ [?  
        ConvertWidth "ｘ", "x" 4`Ib wg6"B  
        ConvertWidth "ｙ", "y" r}S>t~p:  
        ConvertWidth "ｚ", "z" :pJK Z2B,  
        ConvertWidth "Ａ", "A" `RlMfd  
        ConvertWidth "Ｂ", "B" M o?y4X  
        ConvertWidth "Ｃ", "C" aG&t gD{  
        ConvertWidth "Ｄ", "D" d Bm!`;r4  
        ConvertWidth "Ｅ", "E" 4e20\q_{  
        ConvertWidth "Ｆ", "F" uqHI/4  
        ConvertWidth "Ｇ", "G" t) uS7y  
        ConvertWidth "Ｈ", "H" zI7iZ"2a  
        ConvertWidth "Ｉ", "I" vJ?j#Ch  
        ConvertWidth "Ｊ", "J" jR[b7s  
        ConvertWidth "Ｋ", "K" BMdcW MYU\  
        ConvertWidth "Ｌ", "L" [gaB}aLn  
        ConvertWidth "Ｍ", "M" jvQpf d  
        ConvertWidth "Ｎ", "N" 'ZFbyt Q2  
        ConvertWidth "Ｏ", "O" )NLjv=ql  
        ConvertWidth "Ｐ", "P" ?B32,AS@  
        ConvertWidth "Ｑ", "Q" bHRRgR`,  
        ConvertWidth "Ｒ", "R" *";O_ :C!  
        ConvertWidth "Ｓ", "S" o}b_`O  
        ConvertWidth "Ｔ", "T" =G \N1E  
        ConvertWidth "Ｕ", "U" s&d!+-\6_  
        ConvertWidth "Ｖ", "V" X..<U}e  
        ConvertWidth "Ｗ", "W" P>nz8NRq  
        ConvertWidth "Ｘ", "X" G2 0   
        ConvertWidth "Ｙ", "Y" C2;Hugm4  
        ConvertWidth "Ｚ", "Z"  (z.4er}o  
        ConvertWidth "^l", "^p" wh2Ljskda8  
        ConvertWidth "（", "(" /Ue_1Efa  
        ConvertWidth "）", ")" ET0^_yk  
     h+DK .$  
    End If &gdhq~4#  
) :VF^"  
    With ActiveDocument QTIC5cl,  
        Dim tbl As Table 2n3!p Z8  
        For Each tbl In .Tables { Ba_. ]x  
            tbl.Rows.Alignment = wdAlignRowCenter [R0E4A?M  
            tbl.Range.Font.NameFarEast = "楷体" .+A2\F.^  
            tbl.Range.Font.NameAscii = "Times New Roman" X1XmaO% A  
            tbl.Range.Font.Size = 10.5 YZy%]i=1  
        Next g1{2E<b 5  
        Set tbl = Nothing 6f*QUw~  
    End With WRqpQEY  
     06]%$ -j  
     Dqg01_O9O  
    With ActiveDocument R ~?9+  
         =))VxuoN  
        For i = 1 To .TablesOfContents.Count o`M.v[O  
            .TablesOfContents(i).Delete ?_`X8Ok  
        Next ^wlo;.8Y  
         -uei nd]  
         aZ'(ar :  
         /0YO`])"  
        paraTotal = .Paragraphs.Count * "d['V3  
        paraCounter = 1 g[L}puN  
         Gp0yRT.  
        LastTitle0No = 0 @[v4[yq-  
        LastTitle1No = 0 y=&^=Z h[  
        LastTitle2No = 0 :>-&  
        LastTitle3No = 0 'FM_5`&  
        LastTitle4No = 0 \Lg{GN.  
        LastTableNo = 0 }B`T%(11=  
        LastFigureNo = 0 888"X3.T  
         |>/m{L[  
        Dim Sec As Long MLvd6tIv,  
         PI&@/+  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) [_-[S  
        If Sec = 0 Then HhB&vi  
            Exit Sub E?(:9#02  
        End If R4% }IT^%P  
         tjJi|  
        k = 0 3of0f{ZTj  
        Do While (paraCounter < paraTotal) And bContinue BIxjY !!"  
            k = k + 1 +W+o~BE  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then lho0Xy gn  
                Exit Do Ksff]##H  
            End If 2O(= 2X  
            paraCounter = paraCounter + 1 B-oQjr-  
            If k Mod 20 = 0 Then xM:9XhH1  
                Me.lbCounter.Caption = paraCounter o(stXa  
                DoEvents 06NW2A%wv  
            End If :yFmCLZaQ  
        Loop gaU(ebsE  
         D+xPd<  
         5ajd$t  
        Do While (paraCounter < paraTotal) And bContinue ;m~%57.;\  
             bScW<DZJ-  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) = `g@6S  
            ShapeHeight = 0 a8 .x=j<  
            ShapeWidth = 0 Zvkb=  
           *?~&O.R"  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth >Yx,%a@~R  
             v[]&yD  
            Select Case ParaType TFO4jjiC"  
                Case "【】表格内容" H`OJN .  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" E`b<^l`  
                Case "章" [j 'lB  
                    LastTitle0No = LastTitle0No + 1 TJ>$ ~9&Sy  
                    '新一章开始，复位其下属标题编号 vAqVs5 j  
                    LastTitle1No = 0 "?>hQM1R  
                    LastTitle2No = 0 J\E?rT  
                    LastTitle3No = 0 \hD jZ  
                    LastTitle4No = 0 *6wt+twH  
                     .R _-$/ZP  
                    k = Val(ttNo) Yan,Bt{YJ  
                    If k = 0 Then '非数字编号章节 Q#PkfjXS  
                        If ttNo <> NoSeries1(LastTitle0No) Then UIo jXR<  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString r*g<A2g%  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText ^=arKp,?5  
                        End If @a}\]REn  
                    Else MI,kKi  
                        If Val(ttNo) <> LastTitle0No Then \t ^9UN  
                            rText = "第" & LastTitle0No & ttString ki ?ETC  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText e=Q{CsP  
                        End If 4Un%p7Y~  
                         !h70<Q^  
                    End If }K|40oO5  
                     Gj&`+!\  
                    '章段落设置 tY- `$U@  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 7e=s `j  
                    .Paragraphs(paraCounter).Style = "QLNU章节" P"a9+ti+'  
                    .Paragraphs(paraCounter).Range.Select Rg7~?b-  
                    Selection.EndKey unit:=wdLine y eWB.M~X  
                    tc = Replace(rText, vbCr, "") Yu: !l>  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False J3y4 D}  
                Case "一级标题" y Dw#V`Y^M  
                    LastTitle1No = LastTitle1No + 1 %b>Ee>rdD  
                    '新一级标题开始，复位其下属标题编号 }CQ)W1mO"  
                    LastTitle2No = 0 *n_7~ZX  
                    LastTitle3No = 0 6Ao{Aej |  
                    LastTitle4No = 0 g|<$ \}  
                     ^]TY S]C  
                    If ttNo <> NoSeries1(LastTitle1No) Then <P_B|Y4N/  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString <xh";seL  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText }3=^Ik;x  
                    End If XXy &1C  
                   v5 I}a7  
                     )#v0.pE  
                    '一级标题段落设置  格式：一、标题内容 ;uaZp.<um&  
                    .Paragraphs(paraCounter).Range.Text = rText ;v m$F251  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" zh Vkn]z~*  
                    .Paragraphs(paraCounter).Range.Select Gg3< }(  
                    Selection.EndKey unit:=wdLine MNoc XK  
                    tc = Replace(rText, vbCr, "") vt(cC) )  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False ]O0:0Z\  
                Case "二级标题" g_e_L39  
                    LastTitle2No = LastTitle2No + 1 ?@H/;hB[|  
                    '新二级标题开始，复位其下属标题编号 HME`7dw?  
                    LastTitle3No = 0 ;oWak`]f  
                    LastTitle4No = 0 qsHjqK@(  
                     B`?5G\7L  
                    If ttNo <> NoSeries1(LastTitle2No) Then Y\ j5{;V  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString 0[R7HX-@  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText P vW~EJ  
                    End If .-}F~FES  
                     -5GRit1q?  
                    '二级标题段落设置 格式：(一)、标题内容 c=<5DC&p  
                    .Paragraphs(paraCounter).Range.Text = rText sEx`9_oZ  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" vJsx_ i\i  
                     PDhoCAh !  
                    .Paragraphs(paraCounter).Range.Select ]] 50c  
                    Selection.EndKey unit:=wdLine >?(}F':  
                    tc = Replace(rText, vbCr, "") *eAzk2  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False =-;J2Qlg6  
                 `|e3OCU  
                Case "三级标题" RP%7M8V){B  
                    LastTitle3No = LastTitle3No + 1 [ Mp8"  
                    '新三级标题开始，复位其下属标题编号 G$E+qk nJL  
                    LastTitle4No = 0 7i88iT  
                     -GT&46hX  
                    If Val(ttNo) <> LastTitle3No Then 3>%:%bP  
                            rText = LastTitle3No & ". " & ttString )BmO[AiOM  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText ]::g-&%Um  
                         i| CAN,'  
                    End If 6MmkEU z  
                    '三级标题段落设置 格式：1. 标题内容 hw 0u?++  
                    .Paragraphs(paraCounter).Range.Text = rText f vr|<3ojo  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" L~HL*~#d  
                    .Paragraphs(paraCounter).Range.Select l [ Navw  
                    Selection.EndKey unit:=wdLine Y(C-o[-N  
                    tc = Replace(rText, vbCr, "")  4_d'Uh&]  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False qHE(p+]E  
                Case "四级标题" t&H3yV  
                    LastTitle4No = LastTitle4No + 1 }\]J?I+A  
                     ?btZdnQ))S  
                    If Val(ttNo) <> LastTitle4No Then p~17cH4~-f  
                            rText = "(" & LastTitle4No & "). " & ttString Z?)=4|  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText VP_S[+Zv~  
                     :NXM.@jJ="  
                    End If n0opb [?  
                    '四级标题段落设置 格式：(1). 标题内容 uol EX+  
                    .Paragraphs(paraCounter).Range.Text = rText %<@x(q  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" %Iv*u sXP  
                    .Paragraphs(paraCounter).Range.Select 8}{W.np_  
                    Selection.EndKey unit:=wdLine T*rx5*:o  
                    tc = Replace(rText, vbCr, "") 66 |$X,  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False !c;BOCqa  
                 -P We  
                Case "表格标题" |WsB0R  
                    LastTableNo = LastTableNo + 1 a$]i8AeG  
                     M6H#Y2!ZbC  
                    If ttNo <> CStr(LastTableNo) Then L]{1@~E:q  
                            rText = "表" & LastTableNo & ". " & ttString Bb*P);#.K  
                            ErrMsg.AddItem "表格编号错误：" & ParaText O_^t u?x  
                   9_l WB6  
                    End If b>f{o_  
                     x?RYt4S  
                    '表格名称段落设置 格式：表1. 表格名称 2)(ynrCe  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" oE&#Tl?Vt  
                    xe = Replace(rText, vbCr, "") D}]u9jS1  
                    .Paragraphs(paraCounter).Range.Select zA*I=3E(  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 A3Oe=rB  
                    Selection.Range.Text = xe /Gvd5  
                    Selection.EndKey dr]Pns9  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False #L 9F\ <K  
                 st wxF?\NS  
                Case "表格首行" TyN]Pa  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" y28 e=i  
                Case "图片标题" 1Y{pf]5Wx  
                    LastFigureNo = LastFigureNo + 1 P:fcbfH+  
                     |6GDIoZ  
                    If ttNo <> CStr(LastFigureNo) Then }S6"$R  
                            rText = "图" & LastFigureNo & ". " & ttString @q+X:K5b  
                            ErrMsg.AddItem "表格编号错误：" & ParaText ]OLe&VRix  
                   B-W8Zq# 4>  
                    End If PEPf=sm  
                    '图片名称段落设置 格式：图1. 图名称 s> JWNP  
                    .Paragraphs(paraCounter).Range.Text = rText FwqaWEk  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" #GOL%2X  
                    .Paragraphs(paraCounter).Range.Select E{xcu9  
                    Selection.EndKey unit:=wdLine IRIYj(J  
                    xe = Replace(rText, vbCr, "") OtZc;c  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False h9I vuv'  
                Case "正文" c&I"&oZ@&  
                     '正文名称段落设置 rvp#[RAaS}  
                    .Paragraphs(paraCounter).Style = "QLNU正文" agj_l}=gO  
               Case "文献条目" UzT"R b:e  
                    With .Paragraphs(paraCounter) Ms14]M[\  
                        '.Range.Select 67A g.f6-  
                        'Selection.ClearFormatting  I6rB_~]h  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” $n* wS,  
                        .Style = "QLNU参考文献" 'yNS(Bg=  
                    End With y-lBaTE9  
               Case "图表注解" Qgxp q{y  
                    With .Paragraphs(paraCounter) t>JPK_b0  
                        .Range.Font.NameFarEast = "楷体" UHFI4{Wz  
                        .Range.Font.NameAscii = "Times New Roman" H 1-eMDe  
                        .Range.Font.Size = 9 '小5号字 Q<T+t0G\O-  
                         y8$I=  
                        .Alignment = wdAlignParagraphCenter UQ}#=[)2e  
                        .LeftIndent = 0 1 i/&t[  
                        .RightIndent = 0 9_xJT^10  
                        .FirstLineIndent = 0 FS7@6I2Ts  
                        .LineSpacing = 12 GDY=^r  
                        .LineSpacingRule = wdLineSpaceExactly u:M)JG  
                        .LineUnitAfter = 0 J3c8WS{:  
                        .LineUnitBefore = 0 tPaNhm[-q7  
                        .OutlineLevel = wdOutlineLevelBodyText uc]`^,`2/  
                        .PageBreakBefore = False `]j:''K  
                        .RightIndent = 0 5LzP0F U  
                        .WordWrap = True `XrF ,  
                        .LineUnitAfter = 0.5 oyq9XW~ D  
                         yhh\?qqy  
                    End With R _2T"  
                Case Else zy'cf5k2  
                    '不作处理 '|@?R|i0  
            End Select Qz`v0"'w  
             #"!q_@b,D  
            '含有inlineshape的段落处理 lky5%H  
            If ShapeHeight > 30 Then Q|(G -  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 &%r<_1  
            End If PdSYFJM  
             XB;C~:  
            If (ShapeWidth + ShapeHeight) > 150 Then ]?lUe5F  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" ?<STl-]&  
            End If ^!rAT1(/_  
             |H ,-V;  
            '段落计数器递 GL'l "L  
            paraCounter = paraCounter + 1 R?iC"s!  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter !z2KQ 4C  
            Me.txtStatus.Text = ParaText 8C8,Q\WV(~  
            DoEvents FgnPh%[u  
        Loop L&hv:+3N  
    End With )<[) 7`  
     GGez!?E%  
    msg = "" Mq52B_  
     pYz\GSd  
    For i = 0 To Me.ErrMsg.ListCount - 1 &*# Obv  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) )6*)u/x:  
    Next T7?cnK"  
     CqR ^w(  
     RiiwsnjC  
     ^0HgE;4  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg Qm>2,={h  
    Me.cmdCheck.Enabled = True !yD$fY  
    Me.txtStatus.Visible = True q#\4/Dt  
    Me.lbParaType.Visible = False <5o oML]nP  
     x*! %o(G  
    bContinue = False Dy|)u1?  
End Sub 'nN'bVl/  
):7mK03J  
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) )Y:C'*.r  
    Dim pTEXT As String >G}g=zy@  
     u{5+hZ  
    pTEXT = ChKRange.Text "ifv1KZ#  
     h?P- :E  
    ParaType = "其它" SGP)A(,k9  
    TitleString = pTEXT W]I+Rlv)U  
    TitleNo = "N/A" Sy"!Q%+ |  
     U# U*^#  
    shpCounter = ChKRange.InlineShapes.Count @G^m+-  
    If shpCounter <> 0 Then 9wdl1QS  
        MaxShpHeight = 0: TotalShpWidth = 0 N~tq ]  
        For i = 1 To shpCounter Dbw{E:pq  
            k = ChKRange.InlineShapes(i).Height (D2N_l(`<  
            l = ChKRange.InlineShapes(i).Width Cq[<CPAS  
            If k > MaxShpHeight Then 3GPGwzX |  
                MaxShpHeight = k T!N v  
            End If *9tRh Rc  
            TotalShpWidth = TotalShpWidth + l :%>TM/E N  
        Next )8%m|v#W  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then 7'.]fs:  
            Exit Sub +*Zjo&pc  
        End If S#*aB2ZS  
    End If Iad&Z8E  
     ne 8rF.D  
    '空行 X=jHH=</  
    If Len(pTEXT) <= 2 Then N2 .Ym;^  
        Exit Sub T&^b~T(y  
    End If i,!tu  
     >hO9b;F}  
         odKdpa Zc[  
    '是否为表格中的文字 K#LDmC  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then 97vQM  
        ParaType = "表格内容" eXi}-~o  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) Ru@ { b`  
        If k = 1 Then Ogu";p(  
            ParaType = "表格首行" "Z)zKg  
        End If n!&F%|o^^  
        Exit Sub J*4T| #0  
    End If :gTtWJ04]  
     0DX)%s,KO  
    '例外情况：脚注 @:t2mz:^i  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then @t2S"s$m  
        ParaType = "脚注" rw.DKM'  
        Exit Sub X+QoO=02LR  
    End If GTke<R  
     LC})aV|  
    '例外情况：尾注 EIF"{,m  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then 3jjV bm  
        ParaType = "尾注" [Gc9 3PA7q  
        Exit Sub s9,Z}]Th  
    End If 5#~E[dr  
     /kAbGjp0  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then p4vX3?&1W  
        ParaType = "页眉页脚" w+gPU1|(r  
        Exit Sub ]JH Int  
    End If GDYFhH7H  
     FD/=uIXH2  
     jIck!  
    With regEX R5=M{  
        .Global = True IlZ$Jd  
         Xa$-Sx  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" X#Hl<d2  
        If regEX.Test(pTEXT) Then \.YJs"<3  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") |: pBk:  
            TitleString = regEX.Replace(pTEXT, "$3") EbnV"]1  
            TitleNo = regEX.Replace(pTEXT, "$1") /YHnt-}v,  
            ParaType = "章" ),XDY_9K  
            Exit Sub )yUSuK(Vu  
        End If BHt9$$Z|  
         v9"03 =h  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" 3|BB#;  
        If regEX.Test(pTEXT) Then '?1g_C QsS  
            ParaType = "一级标题" @T%8EiV  
            regEX.Execute (pTEXT) ;]>a7o  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") /_r`A  
            TitleString = regEX.Replace(pTEXT, "$3") oZ>2Tt%  
            TitleNo = regEX.Replace(pTEXT, "$1") C(n_*8{  
            Exit Sub ZG( Pz9{K  
        End If (} wMU]!_  
         _ ($U\FW  
        '全角或半角括号中的数字 b\p2yJ\  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" -nqq;|%  
        If regEX.Test(pTEXT) Then pkc*toW  
            ParaType = "二级标题" 4o<' fY  
            regEX.Execute (pTEXT) ]/7#[  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") Bhk@0\a  
            TitleString = regEX.Replace(pTEXT, "$5") APyH.]mQ  
            TitleNo = regEX.Replace(pTEXT, "$2") !+ (H(,gI  
            Exit Sub O? 0`QMY  
        End If F#a'N c 9  
         aSIoq}c(  
        '阿拉伯数字  1. 2. + S@[1 N  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" %ZX3:2  
        If regEX.Test(pTEXT) Then cH6J:0>W  
            ParaType = "三级标题" {R?VB!dR  
            regEX.Execute (pTEXT) eC`G0.op  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 *iJ>@ vew  
            TitleString = regEX.Replace(pTEXT, "$3") <=%=,Yk  
            TitleNo = regEX.Replace(pTEXT, "$1") 6*:U1{Gl)  
            Exit Sub %7 $X *  
        End If : kvQ3E0  
         OlM3G^1e1  
        '全角或半角括号中的阿拉伯数字 9JJk\,  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" K{0 gkORF  
        If regEX.Test(pTEXT) Then P52qtN<  
            ParaType = "四级标题" Bi7& yS5V  
            regEX.Execute (pTEXT) "EnxVV  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") Jk57| )/  
            TitleString = regEX.Replace(pTEXT, "$5") (Q"~bP {F  
            TitleNo = regEX.Replace(pTEXT, "$2") B z? (?fyd  
            Exit Sub wQYW5X  
        End If {bNVNG^  
         Q-KBQc  
        '表格名称 Mp06A.j[  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" cToT_Mk  
        If regEX.Test(pTEXT) Then >dnDN3x  
            ParaType = "表格标题" D~)bAPAD  
            regEX.Execute (pTEXT) Q+*@ !s  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) P98g2ak  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) krRnE7\m  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) vG~JK[  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 L,sFwOWY  
            Exit Sub @ b{$s  
        End If [y"Yi PK  
         0+NGFX \p  
        '图片名称 6L3i   
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" d 9]zB-A  
        If regEX.Test(pTEXT) Then Va^(cnwa  
            ParaType = "图片标题" ;0-R"c)-  
            regEX.Execute (pTEXT) JZ/T:Hsh4  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3")  Y+Cv9U0  
            TitleString = regEX.Replace(pTEXT, "$3") 5C-XQS1  
            TitleNo = regEX.Replace(pTEXT, "$1") n( zzH  
            Exit Sub B?9"Ztb  
        End If VBz G`&NG  
         )H+p6<  
        '参考文献 6t3Zi:=I  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 6S^JmYq  
        If regEX.Test(pTEXT) Then JhvT+"~  
            ParaType = "文献条目" EP{/]T  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") aX? tnDv  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") !:a^f2^=  
            Exit Sub `!<#'PR  
        End If Z<#h$XUA  
         JvYs6u  
        prfx = Left(pTEXT, 2) 4xgfm.9I^  
        If prfx = "注：" Or prfx = "注:" Then ;Qidf}:  
            ParaType = "图表注解" ;&XC*R+  
            Exit Sub !ezy  v`  
        End If w,LB  
         meZZQ:eSl  
         zGa V^X  
        ParaType = "正文" tNljv >vI  
         .gY=<bG/fA  
    End With  NG?g(  
End Sub | CPyCM$  
V!QC.D<  
Sub ConvertListToOrdinary() 8Yf=)  
    Dim st As Paragraph + aWcK6  
    With ActiveDocument 7=a e^GKo  
        For i = .Paragraphs.Count To 1 Step -1 P?Kg7m W  
            Set st = .Paragraphs(i) ;<#=|eD2  
            lst = st.Range.ListFormat.ListString !UHX? <3r  
            If lst <> "" Then ($t;Xab  
                st.Range.ListFormat.RemoveNumbers |d=GAW v  
                st.Range.InsertBefore lst & " " w{ P l  
            End If ) .W0}  
        Next &3:<WU:U  
    End With cXK.^@du  
    Set st = Nothing !e}4>!L,(^  
End Sub fDAT#nlyp  
" :V@AT  
Private Sub UserForm_Activate() |k]fY*z(  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" ~-'-<-  
    Me.lbTotal.Font.Bold = True 0B"_St}3D  
    Me.txtStatus.Visible = False s?PB ]Tr  
    Me.cmdCheck.Enabled = True wI?AZd;`'  
uCc5)  
End Sub B^C 5?  
oo|Nu+  
YcW) D  
Sub CheckSuperScript() czH# ~  
    Selection.Find.ClearFormatting } wx(P3BHD  
    Selection.Find.Replacement.ClearFormatting oiQ:&$y  
    With Selection.Find )gV @6w  
        .Text = "[【\[［〖](*)[】\]〗］]" J:G {  
        .Replacement.Text = "[\1]" $?u LFD  
        .Replacement.Font.Superscript = True R#!Urhh  
        '.Replacement.Font.Color = wdColorBlue 9]:F!d/  
        .Forward = True " Rn@yZV  
        .Wrap = wdFindContinue }O2P>Z?V  
        .FORMAT = True yh{U!hG  
        .MatchCase = False dg&GMo  
        .MatchWholeWord = False R,8T t!n  
        .MatchByte = False ]j]<CqG  
        .MatchAllWordForms = False @#yl_r%  
        .MatchSoundsLike = False nI/kX^Pd  
        .MatchWildcards = True rLA^ &P:  
    End With 2yVQqwQ m  
    Selection.Find.Execute Replace:=wdReplaceAll zEDN^K '  
End Sub [^gb6W9Y  
t:n$ 9WB)  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) iyr<qtwK  
    bContinue = False UTqKL*p523  
    Set regEX = Nothing Pb<6-Jc[  
End Sub M|7][! <G!  
e^UUR-K%  
Sub CeateOrModifyStyle() 6E9o*YSk  
' |{La@X  
' 'rrnTd c  
Dim stl As Style 4)Ew rU  
     FBa- gm<9  
    Options.Pagination = False AJ z 1    
     z pg512\y  
    On Error Resume Next I>lblI$ 7  
    For Each stl In ActiveDocument.Styles x^McUfdr|  
        stl.Delete q yjVB/ko  
    Next X39%O'  
    On Error GoTo 0 *vT Abk$   
     ~Xc1y!"9*  
    Set stl = Nothing u/% Z0`X  
     wpt5'|I  
    DoEvents Lm+E?Ca  
    On Error Resume Next cCcJOhk|d  
     Z<'iT%6+r  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph E5Lq-   
     iYGa4@/uM  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph jWso'K  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph MHS|gR.c  
     3U*4E?g  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph ' ?a d  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph k0 D):  
     -/_hO$|W  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph P>Ru  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph Ss:'H H4  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph YD#L@:&gv  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph #4V->I  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph qNUd "%S  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph %yK- Q,'O  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph $g\p)- aU  
     |(uo@-U  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph Eo@rrM:  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph @ eYD@!  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph o;>qsn8  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph J)sOne  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph ;rl61d}NH#  
     VUD9ZyPw  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph C|]Zpn#{K  
    On Error GoTo 0 V!s#xXD}  
    DoEvents _~;K]  
      ~;uU{TT  
    'BaseStyle f/{Cl P.  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False X$eR RSW  
    With ActiveDocument.Styles("BaseStyle").Font .g_^! t  
        .NameFarEast = "宋体" yO@@-)$[y  
        .NameAscii = "Times New Roman" 1*:BOoYx  
        .NameOther = "宋体" 3dgPP@7d$  
        .Size = 10.5 5kCXy$"%  
        .Bold = wdUndefined j{@li1W @  
        .Italic = wdUndefined h~ q5GhY!9  
        .Subscript = wdUndefined **c"}S6:mC  
        .Subscript = wdUndefined 9{%/I   
         zr wzI+4  
        .Underline = wdUnderlineNone D4*_/,}  
        .UnderlineColor = wdColorAutomatic Wr+1e1[  
        .StrikeThrough = False OX[r\  
        .DoubleStrikeThrough = False ,M :j5  
         RY\ 0dv>  
        .Outline = False @*WrHoa2N  
        .Emboss = False c/%GfB[w0  
        .Shadow = False ek d[|g  
        .Hidden = False f DPLB[  
        .SmallCaps = False TRr%]qd{Hr  
        .AllCaps = False WA5.qw  
        .Color = wdColorAutomatic a[=ub256S  
        .Engrave = False sH QO*[[  
        .Scaling = 100 Ym 2Ac>I4  
        .Kerning = 1 31N5dIi,  
        .Animation = wdAnimationNone J\Tu=f)  
        .DisableCharacterSpaceGrid = False fsWPU]\)  
        .EmphasisMark = wdEmphasisMarkNone /xd|mo)D  
    End With mqDI'~T9 u  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat oAv LSFn  
        .LeftIndent = 0 0|,Ij $  
        .RightIndent = 0 ^~s!*T)\  
        .SpaceBefore = 0 ~SI G0U8  
        .SpaceBeforeAuto = False #<es>~0!  
        .SpaceAfter = 0 2B+qS'OT  
        .SpaceAfterAuto = False o bGvd6\  
         oVd7ucnK  
        .LineSpacingRule = wdLineSpaceSingle NKiWt Z"  
        .Alignment = wdAlignParagraphJustify 9&s>RJ  
         <slrzc_>&  
        .WidowControl = False J^zB 5W,)  
        .KeepWithNext = False c`oW-K{  
        .KeepTogether = False o'? WWJK6w  
        .PageBreakBefore = False ]Mvpec_B  
        .NoLineNumber = False 0J W =RW  
         Dy{lgT0k  
        .FirstLineIndent = CentimetersToPoints(0) "O_)~u  
        .OutlineLevel = wdOutlineLevelBodyText 8Ep!  
        .CharacterUnitLeftIndent = 0 -4obX  
        .CharacterUnitRightIndent = 0 xEufbFAN?  
        .CharacterUnitFirstLineIndent = 0 ~DS.b-E  
        .LineUnitBefore = 0 fM"&=X  
        .LineUnitAfter = 0 p9&gKIO_m  
        .AutoAdjustRightIndent = True | g"K7XfM4  
        .DisableLineHeightGrid = True uW4.Q_O!H  
         Lc(eY{CY  
        .FarEastLineBreakControl = True hJ75(I *j  
        .WordWrap = True CW FE{  
        .Hyphenation = False BY@l:y4  
         H% FP!03  
        .HangingPunctuation = True 8_M"lU0[  
        .HalfWidthPunctuationOnTopOfLine = True W *2P+H%  
        .AddSpaceBetweenFarEastAndAlpha = True #P {|7}jk  
        .AddSpaceBetweenFarEastAndDigit = True  Dn`  
        .BaseLineAlignment = wdBaselineAlignBaseline EIF  
    End With GQ sE5Vb  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False NMzq10M=6  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll (~fv;}}v  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese 27MwZz  
    ActiveDocument.Styles("BaseStyle").NoProofing = False aJ[|80U  
     F6_e n z  
    '一级标题题样式 DH)E9HL  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") Lzx2An@R  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" %8>0;ktU  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False }(K1=cE aL  
    With ActiveDocument.Styles("QLNU一级标题").Font ^_BjO(b'e  
        .NameFarEast = "黑体" YR[I,j  
        .NameAscii = "Arial Black" i;\n\p1  
        .NameOther = "黑体" |Z8Eu0RSb  
        .Name = "黑体" gOMy8w4>  
        .Size = 16              '三号 $y%IM`/w  
        .Bold = True p[}~Z|(  
        .Italic = wdUndefined EtQ:x$S_  
        .Subscript = wdUndefined GtKSA#oYZB  
        .Superscript = wdUndefined ,lVQ-qw5  
    End With ER;\Aes*?  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat :es=T`("A8  
         csV3mzP  
        .LeftIndent = CentimetersToPoints(0) .etG>tH  
        .RightIndent = CentimetersToPoints(0) JD9=gBN\?  
        .FirstLineIndent = CentimetersToPoints(0) z6|kEc"{  
         vi` VK&+r  
        .LineSpacingRule = wdLineSpaceSingle Ql"~ z^L  
        .Alignment = wdAlignParagraphCenter 2I 7|hZ,  
         AB<%GzW0(  
        .WidowControl = True H(Y1%@  
        .KeepWithNext = True q``/7  
        .KeepTogether = True #X0Xc2}{f  
        .OutlineLevel = wdOutlineLevelBodyText E@-5L9eJ\  
         X2{Aa T*M  
        .LineUnitBefore = 0.5 Bve',.xH  
        .LineUnitAfter = 0.5 arvKJmD  
    End With AuY*x;~  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False *d31fBCk%  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll )"_&CYnd  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese 2SlI5+u  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True Uy@:-NC)kn  
    DoEvents ((M>To_l  
     #VxN [770  
    '二级 j.c{%UYj  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ^-F#"i|Cn  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" @?gRWH;Pq  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False 55 =YM'5]  
    With ActiveDocument.Styles("QLNU二级标题").Font @h(Z;  
        .NameFarEast = "黑体" 9U3.=J  
        .NameAscii = "Arial Narrow" &ViK9  
        .NameOther = "黑体" E`]un.  
        .Name = "黑体" Yy,XKIqU  
        .Size = 15        '小三号 .R^ R|<x  
        .Bold = False 0n\AUgVPF  
        .Outline = False WA.c.{w\  
        .Italic = wdUndefined Z:diM$Z?7  
        .Subscript = wdUndefined &#OF,_6"m  
        .Superscript = wdUndefined ULO_?4}B  
    End With YD0j& @.  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat +^%)QH>9   
        .LeftIndent = CentimetersToPoints(0) =h.` ey  
        .RightIndent = CentimetersToPoints(0) E&)o.l<h|  
        .FirstLineIndent = CentimetersToPoints(0) yh'*eli  
         PJ,G_+b!  
        .LineSpacingRule = wdLineSpaceSingle A o@WTs9  
        .Alignment = wdAlignParagraphLeft S|?P#.=GX  
         ux)Wh.5  
        .WidowControl = True l< HnPR/  
        .KeepWithNext = True VO /b&%  
        .KeepTogether = True *\*]:BIe&v  
        .PageBreakBefore = False V;gC[7H  
        .OutlineLevel = wdOutlineLevelBodyText bD?gwhAKA  
         hsJGly5H  
        .LineUnitBefore = 0.5 0a1Mu>P,  
        .LineUnitAfter = 0.5 !vuun |  
         2nCHL '8N  
    End With P G zwS  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False 'r1X6?d J  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll D`U,T& @  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese /?a9g>G%N  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True 3N4kW[J2i  
    DoEvents n*Hx"2XF  
     L]l?_#*x  
    '三级标题样式 <RcB: h  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") Z_>:p^id  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" k#Qjm9V  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False 5UX-Qqr  
    With ActiveDocument.Styles("QLNU三级标题").Font l~[ K.p&  
        .NameFarEast = "宋体" uc LDl  
        .NameAscii = "Times New Roman" mRN[l j  
        .NameOther = "黑体" tH:?aP*2  
        .Name = "黑体" n*TKzn4E  
        .Size = 14               '四号 Z A}!Rzo  
        .Bold = False V0n8fez b  
        .Outline = False zoBp02j  
        .Italic = wdUndefined <[=[|DS l  
        .Subscript = wdUndefined cfy9wD  
        .Superscript = wdUndefined g[;&_gL  
    End With 3ouo4tf$H.  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat iH>b"H >  
        .LeftIndent = CentimetersToPoints(0) "V5_B^Gzb]  
        .RightIndent = CentimetersToPoints(0) "![KQ  
        .FirstLineIndent = CentimetersToPoints(0) iF_u/#  
         C#P>3"  
        .LineSpacingRule = wdLineSpaceSingle ONUa7  
        .Alignment = wdAlignParagraphLeft M0hR]4T  
         b#n  
        .WidowControl = True :*-O;Yw?S@  
        .KeepWithNext = True fw|t`mUGu  
        .KeepTogether = True Nh !U  
        .PageBreakBefore = False #A:^XAU1Z@  
        .OutlineLevel = wdOutlineLevelBodyText N:EljzvP}  
         ~+PKWs'}F  
        .CharacterUnitLeftIndent = 0 <3Rq!w/  
        .CharacterUnitRightIndent = 0 fc4jbPp:M  
        .CharacterUnitFirstLineIndent = 2 Z{2QDjAI;  
         ;Mr Q1  
        .LineUnitBefore = 0.5 mq4VwT  
        .LineUnitAfter = 0 hl2|Ec  
    End With Sg13Dp @x  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False Jg$ NYs.xZ  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll L!fIAd`  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese &SPIu,  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True e}s,WC2-  
    DoEvents s"~,Zzy@j  
     pV1 ;gqXNS  
    '四级标题样式 F*Ul#yX  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") Z=l2Po n  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" iZ0(a   
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False SCjVzvG$yg  
    With ActiveDocument.Styles("QLNU四级标题").Font lq?N>~PG  
        .NameFarEast = "宋体" rEWuWv$  
        .NameAscii = "Times New Roman" %D7'7E8.  
        .NameOther = "宋体" :u2tu60&MJ  
        .Name = "宋体" Y5*A,piq  
        .Size = 12               '小四号 {;o54zuKf  
        .Bold = True (l/i#  
        .Outline = False ;zSV~G6-  
        .Italic = wdUndefined ~ /Y8wxg  
        .Subscript = wdUndefined BWr!K5w>i  
        .Superscript = wdUndefined )&-n-m@E  
    End With }:*?w>=  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat F5{GMn;j  
         VeH%E.:  
        .LeftIndent = CentimetersToPoints(0) wQM( |@zE}  
        .RightIndent = CentimetersToPoints(0) AP9\]qZ(7  
        .FirstLineIndent = CentimetersToPoints(0) 7 ,Q7`}gBf  
         g^U-^ f  
        .LineSpacingRule = wdLineSpaceSingle rMJ4w['J=  
        .Alignment = wdAlignParagraphLeft w1 A-_  
         RK_z!%(P  
        .WidowControl = True 7w\!3pv  
        .KeepWithNext = True  [geT u  
        .KeepTogether = True e.(RhajB  
        .PageBreakBefore = False 5G z~,_  
        .OutlineLevel = wdOutlineLevelBodyText "V,dH%&j  
         |1Nz8Vr.  
        .CharacterUnitLeftIndent = 0  h}}7_I9  
        .CharacterUnitRightIndent = 0 ) }k"7"  
        .CharacterUnitFirstLineIndent = 2 QRF:6bAxsL  
         -*2b/=$u  
        .LineUnitBefore = 0 G#='*v OtO  
        .LineUnitAfter = 0 \?^ EFA+;  
         &m{~4]qWpM  
    End With J+`gr_&  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False i,L"%q)C  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll McN'J. Sxp  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese tq*{Hil>P`  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True CljEC1S#  
    DoEvents #t VGqf  
     lxB cO/  
    '正文校式 UM'JK#P"  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") /q!_f!<q4x  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" Z7Nhb{  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False y }h2  
    With ActiveDocument.Styles("QLNU正文").Font WK.,q>#  
         V3axwg_  
        .NameFarEast = "宋体" N8!e(Y K_  
        .NameAscii = "Times New Roman" YP{mzGdE&  
        .NameOther = "宋体" fL gHQ  
        .Name = "宋体" 5^Lbc.h  
         FH;)5GGnv  
        .Size = 12               '小四号 Z#K0a'  
         T<RWz  
        .Bold = wdUndefined @s\}ER3  
        .Italic = wdUndefined GB}X  
        .Subscript = wdUndefined >_X( rar0  
        .Superscript = wdUndefined o Y<vKs^  
         vVo# nzeZ5  
        .Outline = False {s?hXB  
        .Emboss = False zj=F4]w  
        .Shadow = False QdIoK7J 9  
        .Hidden = False % F<3_#Y  
         T n,Ifo3  
        .DisableCharacterSpaceGrid = True NNRKYdp,  
    End With t2q WB[r  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat :k~ p=ko  
         0b2;  
        .LeftIndent = CentimetersToPoints(0) 6X$\:>  
        .RightIndent = CentimetersToPoints(0) /FcwsD\=$  
        .FirstLineIndent = CentimetersToPoints(0) v^ 1x}  
         s ZokiFJ  
        .LineSpacingRule = wdLineSpaceExactly x o72JJ  
        .LineSpacing = 20 =J )(=,  
        .Alignment = wdAlignParagraphLeft d"+ _`d=`  
         uW,rmd  
        .WidowControl = False Fd._D"  
        .KeepWithNext = False Tn$| Xa+:s  
        .KeepTogether = False l_(4CimOZ  
        .PageBreakBefore = False sB01 QVx47  
        .Hyphenation = False z f^@f%R  
         g$8 a B{)  
        .OutlineLevel = wdOutlineLevelBodyText ;bq EfV0`2  
         ~SEIIq  
       +:z%#D  
        .CharacterUnitLeftIndent = 0 ;kVo? W]  
        .CharacterUnitRightIndent = 0 p\xsW "=8q  
        .CharacterUnitFirstLineIndent = 2 CS"p3$7,  
         X<H+Z2d  
        .LineUnitBefore = 0 ?_/T$b ]  
        .LineUnitAfter = 0 ZaFqGcS~  
        .SpaceBefore = 0 Ll^9,G"Tt  
        .SpaceAfter = 0 JZ-M<rcC  
         dW#l3_'3T  
        .DisableLineHeightGrid = True  ur k@v  
    End With k59.O~0V  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False tgu fU  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll [+:KIW<  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese EtcXzq>w  
    ActiveDocument.Styles("QLNU正文").NoProofing = True ML X: S?  
    DoEvents "~IGE3{  
     ?=?9a  
    '图片段落样式 jLBwPI_g  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") puGy`9eKv1  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle"  TJb&f<  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False ;giT[KK  
    With ActiveDocument.Styles("QLNU图片段落").Font ralU9MN.  
        .Size = 12               '小四号 D&8*4>  
        .Italic = wdUndefined |>nVp:t^  
        .Subscript = wdUndefined y(Q.uYz*  
        .Superscript = wdUndefined 2K2jko9'a  
    End With l3kBt-m  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat DzY`O@D[  
         P"c7h7  
        .LeftIndent = CentimetersToPoints(0) Oin:5K)4-  
        .RightIndent = CentimetersToPoints(0) xCm`g {  
        .FirstLineIndent = CentimetersToPoints(0) McU]U 9:z  
         23`pog{n  
        .LineSpacingRule = wdLineSpaceSingle oc&yz>%q  
        .Alignment = wdAlignParagraphCenter 7JP.c@s  
        .KeepWithNext = True Pu!%sGjD  
        .OutlineLevel = wdOutlineLevelBodyText 6r)qM)97  
         +]{PEnJ  
        .CharacterUnitLeftIndent = 0 glWa?#1  
        .CharacterUnitRightIndent = 0 pB,@<\l %  
        .CharacterUnitFirstLineIndent = 0 .eDI ZX  
         *\[GfTL  
        .LineUnitBefore = 0 }5ONDg(I~  
        .LineUnitAfter = 0 jyjK~ !0  
    End With m*TJ@gI*t  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False {7FD-Q[tS  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll )W![TIp  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese =v=H{*dWA  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True p2Fi(BW*q  
    DoEvents Lmyw[s\U  
     p5=VGKp  
     4buzx&  
    '第X章 6j~'>w(F  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 5W?r04  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" ]b@:?DX8  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False 7ZgFCK,8m,  
    With ActiveDocument.Styles("QLNU章节标题").Font :*lB86Ly  
        .NameFarEast = "黑体" ]F,v#6qi  
        .NameAscii = "Arial Black" 9{{CNy p  
        .NameOther = "Arial Black"  LtBm }0  
        .Name = "黑体" O.P:~  
        .Size = 16 {7o|*M  
        .Bold = True I*8_5?)g<  
        .UnderlineColor = wdColorAutomatic zMN4cBL9m  
        .Outline = False HLDg_ On8  
        .Italic = wdUndefined ?I#zcD)w  
        .Subscript = wdUndefined )TgjaR9G  
        .Superscript = wdUndefined -ID!kZx  
        .Scaling = 100 FYe Uz$/  
        .DisableCharacterSpaceGrid = True m2Q#ATLW  
    End With C`C$i>X7^  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat 5nG$6Hw  
        .LineSpacingRule = wdLineSpaceSingle n!\&X9%[8  
        .Alignment = wdAlignParagraphCenter '=m ?l  
        .WidowControl = True ZD]5"oHY  
        .KeepWithNext = True *A N2&>Y  
        .KeepTogether = True -o0~xspF  
        .PageBreakBefore = True ^2um.`8  
        .OutlineLevel = wdOutlineLevelBodyText {2%@I~US  
         affig   
        .LeftIndent = CentimetersToPoints(0) _6Fj&mw(u  
        .RightIndent = CentimetersToPoints(0) JxLD}$I  
        .FirstLineIndent = CentimetersToPoints(0) [a1}r=6~  
         q oVp@=\:"  
        .CharacterUnitLeftIndent = 0 9Z_98 Rh  
        .CharacterUnitRightIndent = 0 81U(*6  
        .CharacterUnitFirstLineIndent = 0 :+|os"  
         dg42K`E  
        .LineUnitBefore = 1 $`/J V?Z  
        .LineUnitAfter = 0.5 zLLe3?8:  
         c- ^\YSDMN  
        .AutoAdjustRightIndent = False qnR{'d  
        .DisableLineHeightGrid = True E&RK My)  
        .FarEastLineBreakControl = True _zj}i1!E"  
        .WordWrap = True 6 {tW$q  
    End With p[-bu B]  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False !/MHD  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll }c*6|B@f  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese l=< :  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True 1PJ8O|Z t8  
    DoEvents kculHIa\.  
     fdTyY ;  
    '表格标题 fmj-&6  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") p)=Fi}#D\  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" B^uQv|m  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False Flzl,3rW4  
    With ActiveDocument.Styles("QLNU表格标题").Font l] o&D))R  
        .NameFarEast = "楷体" ^ $t7p 1  
        .NameAscii = "Arial" {sL(PS.z  
        .Name = "楷体" "5R8Zl+  
        .Size = 10.5 'y.'Xj:l  
        .Bold = True O WVa&8O  
        .Underline = wdUnderlineNone O hcPlr  
        .Italic = wdUndefined G@igxnm}  
        .Subscript = wdUndefined Q A&BNG  
        .Superscript = wdUndefined bI~(<-S~K  
        .Color = wdColorAutomatic g4^df%)&  
    End With ro4 XA1  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat ryp@<}A]!d  
         )fz<n$3|$#  
        .LineSpacingRule = wdLineSpaceSingle h $}&N  
        .Alignment = wdAlignParagraphCenter hUy\)GsT  
        .KeepWithNext = True 38T2IN  
        .KeepTogether = True w/HGmVa  
        .OutlineLevel = wdOutlineLevelBodyText 3YF*TxKx  
         r$~ f[cA  
        .LeftIndent = CentimetersToPoints(0) }$|uIS  
        .RightIndent = CentimetersToPoints(0) CvtG  
        .FirstLineIndent = CentimetersToPoints(0) y2eeE CS]  
         {!hA^[}|  
        .CharacterUnitLeftIndent = 0 '\X<+Sm'  
        .CharacterUnitRightIndent = 0 zy9# *gGq  
        .CharacterUnitFirstLineIndent = 0 G#;$;  
         !&D&Gs  
        .LineUnitBefore = 1 |JW-P`tL0  
        .LineUnitAfter = 0 <w d+cPZQr  
         &Rx-zp&dJ  
    End With k;pTOj  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False 0SBiMTm  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll +9mnxU>  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese Iz\IQa  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True \f_YJit  
    DoEvents ?5!>k^q  
M[R\URu8  
    '表格首行 e&(Di,%:  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") vxzOG?Xc:  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False QNH5Cq;Y  
    With ActiveDocument.Styles("QLNU表格首行").Font 3yu{Q z5y,  
        .NameFarEast = "楷体" 2*K _RMr~  
        .NameAscii = "Times New Roman" BJI R !J  
        .Name = "楷体" ApYri|^r  
        .Size = 9 XZeZqBr  
        .Bold = True D'Gmua]I  
        .Underline = wdUnderlineNone  w|>O!]K]  
        .Italic = wdUndefined VL/%D*  
        .Subscript = wdUndefined "p~1| ?T  
        .Superscript = wdUndefined |:i``gFj  
    End With jnuovM!x~  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat p}NIZ)]$  
        .LineSpacingRule = wdLineSpaceSingle cO"7wgg  
        .Alignment = wdAlignParagraphCenter gs_nUgcA  
         W=Ru?sG=  
        .LeftIndent = CentimetersToPoints(0) u;Q'xuo3  
        .RightIndent = CentimetersToPoints(0) tc@([XqH  
        .FirstLineIndent = CentimetersToPoints(0) YRYAQj/7  
         nx >PZb  
         vH+QI  
        .CharacterUnitLeftIndent = -0.5 `}^_>  
        .CharacterUnitRightIndent = -0.5 eJrJ5mlI`  
        .CharacterUnitFirstLineIndent = -0.5 F? kW{,*  
         m4~Co*]w  
        .LineUnitBefore = 0 .)>DFGb>H  
        .LineUnitAfter = 0 e8@@Pi<sB  
        .SpaceBefore = 0 KS/1ux4x  
        .SpaceAfter = 0 K N;b+`x;M  
         8ctUK|  
    End With Ncu\;K\N  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False ^MesP:[2  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll ~E=.*: 5(  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese C{ {DZ*  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True t YmR<^  
    DoEvents i# 1:DiF  
1wl8  
    '表格内容 qmcLG*^,  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") 0'm4 ) \  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False z F2GW  
    With ActiveDocument.Styles("QLNU表格内容").Font L s=2!  
        .NameFarEast = "楷体"  A({8p  
        .NameAscii = "Times New Roman" ~)#JwY  
        .Name = "楷体" v(\kSlJ  
        .Size = 9 KF|<A@V  
        .Bold = False 0FF x  
        .Underline = wdUnderlineNone \*s'S*~  
        .Italic = wdUndefined X'Dg= |  
        .Subscript = wdUndefined t/K<fy 6  
        .Superscript = wdUndefined 3Q`F x  
    End With Kd _tjWS  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat qsUlfv9L6  
        .LineSpacingRule = wdLineSpaceSingle shwKB 5  
        .Alignment = wdAlignParagraphCenter H1'`* }V  
         ?+S&`%?  
        .LeftIndent = CentimetersToPoints(0) dD3I.?DY  
        .RightIndent = CentimetersToPoints(0) 1Ig@gdmz  
        .FirstLineIndent = CentimetersToPoints(0) f_r1(o 5:Y  
         A`4j=OF\  
        .CharacterUnitLeftIndent = -0.5 )IGE2k|  
        .CharacterUnitRightIndent = -0.5 Wm nsD!  
        .CharacterUnitFirstLineIndent = -0.5 MmBM\Dnv  
        .LineUnitBefore = 0 (DCC4%w"  
        .LineUnitAfter = 0 ~B%=g)w  
        .SpaceBefore = 0 +1 H.5|  
        .SpaceAfter = 0 95,y@~ *]  
    End With =!'gV:M  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False ;N4b~k)  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll dIG(7 ~  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese [g_Cg=J  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True 8]Xwj].^C  
    DoEvents ki#O ^vl  
8Vj]whE  
    '图片标题 ` 7P4O   
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") B1 oy,'  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" +%G*)8N3  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False 9qe6hF/29  
    With ActiveDocument.Styles("QLNU图片标题").Font iO;q]  
        .NameFarEast = "楷体" ee]PFW28  
        .NameAscii = "Times New Roman" zlmb_akJ  
        .Name = "楷体" z./M^7v?  
        .Size = 10.5 1\q2; 5  
        .Bold = True /I3#WUc;![  
        .Underline = wdUnderlineNone  ] }XK  
        .Italic = wdUndefined SxYX`NQ  
        .Subscript = wdUndefined 4Wq{ch  
        .Superscript = wdUndefined 5r qjqfFa  
        .Outline = False CE>RAerY  
        .Shadow = False W :PGj0?  
        .Color = wdColorAutomatic :Xv3< rS<  
    End With sAIL+O  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat !6ZkLE[XJ<  
        .LineSpacingRule = wdLineSpaceSingle ,>n 4 `A  
        .Alignment = wdAlignParagraphCenter }*m:zD@8$  
         -Rhxib|<  
        .KeepWithNext = wdUndefined C26PQGo#$  
        .KeepTogether = True \. A~>=:  
        .OutlineLevel = wdOutlineLevelBodyText n`T 4aDm  
         g83!il\  
        .LeftIndent = CentimetersToPoints(0) <D4.k M  
        .RightIndent = CentimetersToPoints(0) BlS0I%SN  
        .FirstLineIndent = CentimetersToPoints(0) +d6/*}ht  
         ^{["]!f#  
        .CharacterUnitLeftIndent = 0 nJF"[w,?  
        .CharacterUnitRightIndent = 0 ,qak_bP  
        .CharacterUnitFirstLineIndent = 0 Z'PE^ ,  
         /_?E0 r  
        .LineUnitBefore = 0 d{@X-4k :  
        .LineUnitAfter = 0 KE+y'j#C3  
    End With h3D8eR.  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False LMWcF'l  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll C:g2E[#  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese ~a8J"Wh  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True ,ijgqEN  
    DoEvents nJny9g  
KL!k'4JNY  
    '目录项 *usfJ-  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") '+NmHu:q  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" 2>#Pt^R:C  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False :cop0;X:Wm  
    With ActiveDocument.Styles("QLNU目录项").Font |<\L B  
        .NameFarEast = "黑体" m,v "N%k,  
        .NameAscii = "Times New Roman" C_?L$3 U0  
        .NameOther = "Times New Roman" W|3XD-v@  
        .Name = "黑体" EN()dCQHr  
        .Size = 10.5 S=^yJ6 xJ  
        .Bold = False '8~7Ru\KyX  
        .Italic = wdUndefined E27wxMU  
        .Underline = wdUnderlineNone $!Z6?+  
        .Color = wdColorAutomatic 3uCC_Am  
        .Superscript = wdUndefined ;"\e aKl  
        .Subscript = wdUndefined OB8fFd  
    End With 'MPt K  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat Deq~"  
         b p:WN  
        .LineSpacingRule = wdLineSpaceSingle kssS,Ogf\_  
        .Alignment = wdAlignParagraphLeft  "/6(  
         s,N%sO;  
        .WidowControl = False Qv,|*bf  
        .KeepWithNext = False U?d1  
        .KeepTogether = False  Z $Ynar  
        .PageBreakBefore = False 3x9O<H }  
        .NoLineNumber = False "[(_C&Ot4  
        .OutlineLevel = wdOutlineLevelBodyText `h( JD$w  
         [a\:K2*'  
        .LeftIndent = CentimetersToPoints(0) 9ulJZ\cQ  
        .RightIndent = CentimetersToPoints(0) ]v@#3,BV  
        .FirstLineIndent = CentimetersToPoints(0) |cJyP9}n  
         e~c;wP~cO  
        .CharacterUnitLeftIndent = 0 |x  2>F  
        .CharacterUnitRightIndent = 0  pzezN  
        .CharacterUnitFirstLineIndent = 0 eb2~$ ,$  
         Q2PY( #  
        .LineUnitBefore = 0 (F]f{8  
        .LineUnitAfter = 0 9]BpP0f\  
    End With XRKL;|cd  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False IP$^)t[  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll fQlR;4QX]  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot ,IxAt&kN  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese 1b E$x^P  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True Yva^JB  
    DoEvents |&3m'"(  
     gQgG_&xkC  
    '参考文献 /sH3Rk.>  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") cUaLv1:HI  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" 3k5OYUk  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False s"p}>BjMIC  
    With ActiveDocument.Styles("QLNU参考文献").Font U;:>vi3p  
        .NameFarEast = "宋体" ?UoA'~=  
        .NameAscii = "Times New Roman" p8Di9\}  
        .NameOther = "Times New Roman" =U!'v X d  
        .Name = "Times New Roman" CTbdY,=B  
        .Size = 12 =;0#F&  
        .Bold = False R{5Qb?&wOp  
        .Italic = wdUndefined RS#)uC5/%  
        .Subscript = wdUndefined fzRzkn:=  
        .Superscript = wdUndefined ]|( (&Y rl  
        .Underline = wdUnderlineNone gzvEy^X  
        .UnderlineColor = wdColorAutomatic q/Ba#?sen  
        .Color = wdColorAutomatic *j2P#et  
        .Engrave = False P49lE  
    End With :S0r)CNP  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat .t4IR =Z  
         BQmg$N,F  
        .LineSpacingRule = wdLineSpaceExactly B%Dy;zdWd/  
        .LineSpacing = 16 /OK.n3Tt  
        .Alignment = wdAlignParagraphLeft @$gvV]dA  
        .WidowControl = False $:s1x\ol  
        .KeepWithNext = False *Eu ca~%=  
        .KeepTogether = False QKYIBX  
        .PageBreakBefore = False 3/>McZ@OH  
        .OutlineLevel = wdOutlineLevelBodyText <)n1Z[4  
         7w_`<b6  
        .LeftIndent = CentimetersToPoints(0) 41mg:xW(J  
        .RightIndent = CentimetersToPoints(0) }XWic88!~  
        .FirstLineIndent = CentimetersToPoints(0) $[}31=0  
         /d9I2~}B  
        .CharacterUnitLeftIndent = 0 9`i=kp  
        .CharacterUnitRightIndent = 0 Am%zEt$c  
        .CharacterUnitFirstLineIndent = -2 !v<r=u  
         K& <|94_k  
        .LineUnitBefore = 0 ..3TB=Z#  
        .LineUnitAfter = 0 l.\Fr+*ej  
        .SpaceBefore = 0 cfMj^*I  
        .SpaceAfter = 0 CtV$lXxup  
         "X g@X5BG  
    End With FEw51a+V  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False uO>$ ,s  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll RD_&m?d  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS FAJ\9  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True -RVwPY  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese 5Y#yz>B@ ]  
    DoEvents Z$kff-Y4  
;FQAL@"Yj  
    ' k dman nM  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") t=NPo+fm  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" 4Z"D F)+}  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False ooref orr  
    With ActiveDocument.Styles("QLNU论文题目").Font 9 } iEEI  
        .NameFarEast = "黑体" u^|XQWR$:  
        .NameAscii = "Arial Black" 7gfNe kr~W  
        .NameOther = "Arial Black" 4~hd{8  
        .Name = "Arial Black" cBBc^SR  
        .Size = 16 oU% rP  
        .Bold = False a9mLPP  
        .Italic = wdUndefined ^IOf%  
        .Superscript = wdUndefined BhLYLlXPY  
        .Subscript = wdUndefined NZ/gp"D?  
        .Underline = wdUnderlineNone \/la`D  
        .UnderlineColor = wdColorAutomatic 1Wtr_ A  
        .Color = wdColorAutomatic G$}\~dD  
t8\F7F P  
    End With rV)mcfw:Z  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat n'v[[bmu  
        .LineSpacingRule = wdLineSpaceSingle $SRpFz5y$  
        .Alignment = wdAlignParagraphCenter YwQxN"  
        .WidowControl = True HvN!_}[  
        .KeepWithNext = True ~tn*y4uK  
        .KeepTogether = True Dr$k6kZ}'U  
        .PageBreakBefore = True }RYr)  
        .NoLineNumber = False _N$3c<dY'  
        .OutlineLevel = wdOutlineLevelBodyText 28C/ ^4  
         ~dC)EG  
        .LeftIndent = CentimetersToPoints(0) .slA }  
        .RightIndent = CentimetersToPoints(0) {*ATY+  
        .FirstLineIndent = CentimetersToPoints(0) 3_~V(a  
         SN(:\|f 2  
        .CharacterUnitLeftIndent = 0 g+t-<D"L5  
        .CharacterUnitRightIndent = 0 }|%dN*',  
        .CharacterUnitFirstLineIndent = 0 Oj\lg2Ck  
         ]Vo;ZY_\  
        .LineUnitBefore = 1 Q}d6+C  
        .LineUnitAfter = 1 m{x[q  
         %N7b XKDP  
        .BaseLineAlignment = wdBaselineAlignAuto 7f#e#_sM;  
    End With Bab`wfUve  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False jxL} tS{j  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll fAm^-uq[  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS (BEGt '7  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True AIR,XlD  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese w< <>XIL  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True <w` R ;  
    DoEvents v{$X2z_$w  
     H ifKa/}P8  
    '中文摘要 o S0l Tf\  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") *r@7:a5  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" EeG7 %S 5(  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False B^P)(Nu+  
    With ActiveDocument.Styles("QLNU中文摘要").Font 8s-y+M@.  
        .NameFarEast = "宋体" 4Pe%*WTX  
        .NameAscii = "Times New Roman" VUxuX5B3M  
        .NameOther = "Times New Roman" @AaM]?=P{  
        .Name = "Times New Roman" $[T^ S  
        .Size = 12 E?z3 D*U  
        .Bold = wdUndefined >A|(mc  
        .Superscript = wdUndefined t*m04* }  
        .Subscript = wdUndefined V$VqYy9 *  
        .Italic = wdUndefined *9y)B|P^  
        .Underline = wdUnderlineNone M' e<\wqm  
        .UnderlineColor = wdColorAutomatic LdwWB `L  
        .Color = wdColorAutomatic iagl^(s  
    End With jB!p,fqcb  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat c [sydl  
        .LineSpacingRule = wdLineSpaceExactly q.U` mtS  
        .LineSpacing = 20 5,})x]'x  
        .Alignment = wdAlignParagraphLeft Z,)4(#b =  
         -;20|US)u  
        .WidowControl = False u\ro9l  
        .KeepWithNext = False ?OW 4J0B'  
        .KeepTogether = True So{/V%  
        .PageBreakBefore = False a\ fG)Fqp  
        .NoLineNumber = False Ci4`,  
        .OutlineLevel = wdOutlineLevelBodyText x2=Bu#Y  
         #3>o^cN~8k  
        .LeftIndent = CentimetersToPoints(0) H=9kDP${  
        .RightIndent = CentimetersToPoints(0) P}29wrIZ  
        .FirstLineIndent = CentimetersToPoints(0) @)1>ba  
         =,$*-<p=3  
        .CharacterUnitLeftIndent = 0 ,Md8A`7x~  
        .CharacterUnitRightIndent = 0 t'|A0r$  
        .CharacterUnitFirstLineIndent = 2 _VGAh:v  
        .LineUnitBefore = 0 N4I`6uDgD  
        .LineUnitAfter = 0 m_zl*s*6  
         z0+LD  
    End With uf]S PG#/D  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False U >w#`Sy[  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll p:Ry F4{b2  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS njtz,qt_;G  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True }(A`aB_  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese a\>+!Vq  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True 6=U81  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete X]8(_[Y  
    DoEvents NY 756B*  
     JFH3)Q  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") aUa.!,_dh  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" 1K?RA*aj  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False Ok2KTsVl  
    With ActiveDocument.Styles("QLNU英文标题").Font ~U(`XvR\4  
        .NameFarEast = "黑体" GK .^Gd  
        .NameAscii = "Arial Narrow" 4l7TrCB  
        .Name = "Arial Narrow" b3F)$UQ  
        .Size = 16 Z8E-(@`q5Q  
        .Bold = True g5M=$y/H  
        .Bold = wdUndefined #%O|P&rA  
        .Superscript = wdUndefined !iA 3\Ai"  
        .Subscript = wdUndefined y iO!ZT  
        .Italic = wdUndefined I{tY;b'w  
          a?S5 =  
        .Underline = wdUnderlineNone M<^]Ywq*p  
        .UnderlineColor = wdColorAutomatic Y[)b".K  
        .StrikeThrough = False r+n0M' ;0  
        .DoubleStrikeThrough = False fqrQ1{%UH  
    End With pFgpAxl  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat ?!^ow5"8  
        .LineSpacingRule = wdLineSpaceSingle =!)Ye:\Q  
        .Alignment = wdAlignParagraphCenter 0b6jGa  
        .WidowControl = True k>E^FB=  
        .KeepWithNext = False )12.W=p  
        .KeepTogether = False O42`Z9oK  
        .PageBreakBefore = False /4/'&tY  
        .NoLineNumber = False 0`c|ZzY  
        .FirstLineIndent = CentimetersToPoints(0) ,`PC^`0c}o  
        .OutlineLevel = wdOutlineLevelBodyText }A jE- K{  
         ]<L(r,@,  
        .LeftIndent = CentimetersToPoints(0) k#F |  
        .RightIndent = CentimetersToPoints(0) dp#JvZb  
        .FirstLineIndent = CentimetersToPoints(0) Wip@MGt J  
         ${m;x:'  
        .CharacterUnitLeftIndent = 0 mSLA4[4{  
        .CharacterUnitRightIndent = 0 `NYu|:JK:  
        .CharacterUnitFirstLineIndent = 0 3}aKok"k  
         #(swVo:+E  
        .LineUnitBefore = 1 VzfaUAIZl  
        .LineUnitAfter = 1 ze2%#<  
         >RJjm&M  
    End With fh_+M"Y0`  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False Q2yD4>qy  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll -fpe  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS O+x"c3@Z)D  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True &H8wYs  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese 0DtewN{Z  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True ,1/O2aQ%\0  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete p 4_j>JPv5  
    DoEvents W[c[ulY&  
9<n2-l|)  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") g>G+?PY  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" pHQrjEF *  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False !q\MXS($#u  
    With ActiveDocument.Styles("QLNU英文摘要").Font 9d&@;&al  
        .NameFarEast = "宋体" 94^)Ar~O  
        .NameAscii = "Arial" p3r("\Za,  
        .NameOther = "Arial" F t/yPv  
        .Name = "Arial" 9gq+,g>E_  
        .Size = 12 -yOwX2Wv5;  
        .Bold = wdUndefined =~zsah6N  
        .Italic = wdUndefined }Q $}LR@  
        .Superscript = wdUndefined bGw56s'R5~  
        .Subscript = wdUndefined yq.<,b=87  
    End With ICck 0S!  
     4`yE'%6.}  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat `eZzYe(N  
         C7*n<+e  
        .LineSpacingRule = wdLineSpaceExactly !LI6_Oq  
        .LineSpacing = 20 =LXjq~p  
         JLd-{}A""-  
        .Alignment = wdAlignParagraphJustify fg$#ZCi  
         O6*2oUKqK  
        .WidowControl = False /tm2b<G  
        .KeepWithNext = False M[  {O%!  
        .KeepTogether = False ')N[)&&Q{  
        .PageBreakBefore = False a+'k#m  
        .NoLineNumber = False F>Pr`T?>  
         @k=UB&?I  
        .OutlineLevel = wdOutlineLevelBodyText 37apOK4+  
         SR%k|YT  
        .LeftIndent = CentimetersToPoints(0) &~mJ ).*  
        .RightIndent = CentimetersToPoints(0) r{ >Q{$Q  
        .FirstLineIndent = CentimetersToPoints(0) 8\WV.+  
         YRg"{[+#]k  
        .CharacterUnitLeftIndent = 0 E{;F4wT_@  
        .CharacterUnitRightIndent = 0 yY[9\!  
        .CharacterUnitFirstLineIndent = 2 hL4T7`  
         ) >;7"v  
        .LineUnitBefore = 0 7 Tb[sc'  
        .LineUnitAfter = 1 nQGl]2  
         Ri>4:V3K  
    End With Cj%n?-  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False Zd 5Jz+f  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll PRJ  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS '0-YFx'U0V  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False UQZl:DYa  
    DoEvents ES-V'[+jDy  
R [ZY;g:p  
    Options.Pagination = True QB uX#bDV  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." m)7Ql!l  
    DoEvents )]}G8A  
    ActiveDocument.Repaginate u9nJ;:  
r>: ~!o*  
End Sub wE[gp+X~  
.;rE4B  
= 6Fpixq>  
杺栫杣杊椌柮栬，䒴蓉艿芖。
回复 引用
举报顶端
伍胥之 离线
级别: 军区司令员

显示用户信息 
101楼  发表于: 2024-12-28   
只看该作者 ┊  小 中 大
姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 ]_BH"ng}  
{xAd>fGG+y  
引用
引用第20楼newport93于06-14-2010 13:47发表的  : xa.tH)R  
l`uI K.  
老五，I 服了U。 %pIP#y[4  
#M%K82"  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 -MRX@a^1  
Zg$S% 1(Q  
杺栫杣杊椌柮栬，䒴蓉艿芖。
回复 引用
举报顶端
上一主题下一主题
«3456»Pages: 6/6
 Bay Area Chinese--灣區華人 » 乱讲
描述
快速回复

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