Dim bContinue As Boolean uCY(:;[<  
es.jh  
Dim regEX As New RegExp E%-Pyg *  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 PthIdaN@  
Rbx97(wK  
Dim LastTitle0String As String, LastTitle0No As Long y2oB]^z&n  
Dim LastTitle1String As String, LastTitle1No As Long or?0PEx\  
Dim LastTitle2String As String, LastTitle2No As Long Su$18a"Bc  
Dim LastTitle3String As String, LastTitle3No As Long >`<Ued  
Dim LastTitle4String As String, LastTitle4No As Long KDux$V4  
Dim LastTitle5String As String, LastTitle5No As Long >.a+:   
Dim LastTabelString As String, LastTableNo As Long aeEw#  
Dim LastFigureString As String, LastFigureNo As Long FgXu1-  
7xX ;MB&  
Dim strSeperator As String Mi;}.K0J  
^wvH,>Y o  
Sub ConvertWidth(fTEXT As String, rText As String) /p[|DJoM  
        Selection.Find.ClearFormatting
qlz( W  
        Selection.Find.Replacement.ClearFormatting 3?!G-  
        Selection.Find.Wrap = wdFindContinue 8dV.nO  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText suA+8}o]  
        DoEvents 6\; 4 4,3  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True s@[C&v  
End Sub }rO?5  
u)<Ysx8G  
Sub ClearDomain() sjkWz2]S  
        With Selection.Find *rS9eej  
            .ClearFormatting h`z2!F4  
            .Replacement.ClearFormatting b7?U8/#'  
            .Wrap = wdFindContinue H+S~ bzz  
            Me.txtStatus.Text = "清除所有域代码" *jYHd#UZx4  
            DoEvents }v_p gatC  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False i}.{m Et  
        End With C!oS=qK?]  
End Sub 5W*7q D
[m  
pWWL{@ J  
Private Sub cmdCheck_Click() Xg|8".B)A  
    bContinue = True F% F c+?  
    Dim NoSeries1(1 To 16) As String &{X{36  
    Dim NoSeries2(1 To 16) As String ~5lKL5w  
    Dim NoSeries5(1 To 16) As String m -:8jA?  
    Dim NoSeriesRM(1 To 16) As String SZCF3m&pz  
    Dim paraTotal As Long, ParaText As String +P>Gy`D
9  
    Dim ttString As String, ttNo As String vF5wA-3&t  
     %1Vu=zCAW  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long F?*Dr  
yd7lcb [  
    Me.txtStatus.Visible = True E"Ya-8d=  
    Me.lbParaType.Visible = True \4[c}l  
    Me.cmdCheck.Enabled = False nAQyxP%  
     jlYD~)
  
     ^VSt9&  
     Gg 7WmL  
     A8=e
?%  
    Dim ParaType As String, rText As String Fpy6"Z?z  
     y0/WA4,  
    Selection.WholeStory \[Sm2/9v  
    Selection.NoProofing = True AZh@t?)  
     FQ;4'B^k]  
    tm1 = Now =gxgS<bde  
     P5'iYahCq_  
        ActiveWindow.View.Type = wdNormalView ;cM8EU^.  
     #G'S ve?  
    NoSeries1(1) = "一" i_j9/k  
    NoSeries1(2) = "二" $sA,$x:^xI  
    NoSeries1(3) = "三" F Q8RK~?`  
    NoSeries1(4) = "四" Ha46U6_'h  
    NoSeries1(5) = "五" 7
Vz[ji  
    NoSeries1(6) = "六" ti$oZ4PpF  
    NoSeries1(7) = "七" 08TaFzP81  
    NoSeries1(8) = "八" !^c:'I>~  
    NoSeries1(9) = "九" b@nri5noBm  
    NoSeries1(10) = "十" Y|{r vBKjf  
    NoSeries1(11) = "十一" "Y
"t2l_n  
    NoSeries1(12) = "十二" YD/B')/ s  
    NoSeries1(13) = "十三" $=e&q  
    NoSeries1(14) = "十四" '5|Q<5!o  
    NoSeries1(15) = "十五" +=|hMQ;  
    NoSeries1(16) = "十六" ]_^"|RJ  
     vjexx_fq  
    NoSeries2(1) = "㈠" -X"5G  
    NoSeries2(2) = "㈡" .V5q$5j  
    NoSeries2(3) = "㈢" :BewH?Ku  
    NoSeries2(4) = "㈣" V_)5Af3wY  
    NoSeries2(5) = "㈤" oV0LJ%  
    NoSeries2(6) = "㈥" N?MJ#lC F  
    NoSeries2(7) = "㈦" .Q=2WCv0  
    NoSeries2(8) = "㈧" e%P+KX  
    NoSeries2(9) = "㈨" [;>zqNy  
    NoSeries2(10) = "㈩" @-)<|orU4  
     DFt=%aV[  
    NoSeries5(1) = "①" !Iw{Y'  
    NoSeries5(1) = "②" &{-oA_@  
    NoSeries5(3) = "③" P!`Q_h6a  
    NoSeries5(4) = "④" LK'S)Jk  
    NoSeries5(5) = "⑤" Hs:4I  
    NoSeries5(6) = "⑥" 7
\7Brw4  
    NoSeries5(7) = "⑦" K7t&fDI  
    NoSeries5(8) = "⑧" k| _$R?  
    NoSeries5(9) = "⑨" 6%\7.h  
    NoSeries5(10) = "⑩" *G%1_   
     H
mz=/.$  
     \_*?R,$3Y,  
    NoSeriesRM(1) = "I" 4A\BGD*5  
    NoSeriesRM(2) = "II" 5}.,"Fbr  
    NoSeriesRM(3) = "III" |i,zY{GI+2  
    NoSeriesRM(4) = "IV" bE7(L $UF  
    NoSeriesRM(5) = "V" W~XV  
    NoSeriesRM(6) = "VI" Bo\a  
    NoSeriesRM(7) = "VII" v `[Tl  
    NoSeriesRM(8) = "VIII" wx]+*Lzz  
    NoSeriesRM(9) = "IX" ^kCk^D-Gz  
    NoSeriesRM(10) = "X" sDaT[).Hm  
    NoSeriesRM(11) = "XI" J~_L4*Jw  
    NoSeriesRM(12) = "XII" u)q2YLK8  
    NoSeriesRM(13) = "XIII" VxUvvJ{-v  
    NoSeriesRM(14) = "XIV" t*Z .e.q+  
    NoSeriesRM(15) = "XV" 5PPPd-'Z_  
    NoSeriesRM(16) = "XVI" .4S^nP  
     P#dG]NMf  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) @Og\SZhn  
     ?D*Hl+iu  
    If i = vbNo Then Wo:zU  
        Exit Sub N.fQ7z=Z(M  
    End If T..N*6<X  
     Yv#J`b@y  
    If Me.chkSuper.Value Then d-6sC@PB  
        Me.txtStatus.Text = "检查修改所有的上标格式" JfZL?D{NM  
     _~X8/p/Qh  
        CheckSuperScript -Z`(? k  
         LG/=+[\{E  
    End If E%wV  
     ]Ks]B2Osz  
    If Me.chkStyle.Value Then TIK/%T  
        Me.txtStatus.Text = "设置样式，请稍候...." dXA{+<!!  
        DoEvents 8! |.H p  
        CeateOrModifyStyle `l[6rf_.  
    End If nZ2mEt  
     U~u6}s]:  
     w>NZRP_3  
     aH5t.x79b  
    ClearDomain z")3_5Br  
         R`Ys;g/!  
     *6 z'+ '  
     >cwJl@wx-  
    If Me.chkLIST.Value Then ,_"7|z wb  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" v7{ P].M  
     >5Q^9 9V  
        ConvertListToOrdinary D-TNFYYy2  
    End If p\\P50(-  
     Pi &fwGL  
     r+{!@`dYi  
    Dim pType As String, trimpTEXT As String ;#5-.z  
    If Me.chkNum.Value = True Then ,(@Y%UW:  
        Me.txtStatus.Text = "转换全角数字形式为半角" B#qL$M,|  
        ConvertWidth "１", "1" zer&`Vr  
        DoEvents ;ZxK3/(7  
        ConvertWidth "２", "2"  |0C|$2  
        DoEvents ?MV[=LPL  
        ConvertWidth "３", "3" boC>N   
        DoEvents ^F0k2
pB  
        ConvertWidth "４", "4" 
,mO(!D  
        DoEvents Gx(KN57D  
        ConvertWidth "５", "5" j:rs+1bc  
        DoEvents 7 SjF9x  
        ConvertWidth "６", "6" xWenKY,  
        DoEvents x*,q Rew  
        ConvertWidth "７", "7" !L0E03')k  
        DoEvents %
8Z|/LGg  
        ConvertWidth "８", "8" ZXssvjWQV}  
        DoEvents !^Z[

z[  
        ConvertWidth "９", "9" 7':5  
        DoEvents bik] JIM  
        ConvertWidth "０", "0" %KabyvOl)  
        DoEvents k=h/i8i2z  
        ConvertWidth "ａ", "a" )[y!m9Vn  
        DoEvents sUyCAKebRr  
        ConvertWidth "ｂ", "b" X <ba|(  
        DoEvents mFgb_Cd  
        ConvertWidth "ｃ", "c" #K<=xP  
        DoEvents /ctaAQDUh\  
        ConvertWidth "ｄ", "d" G<">/_jn  
        DoEvents O" X!S_R  
        ConvertWidth "ｅ", "e" ?{@!!te@3v  
        DoEvents G:h;C].  
        ConvertWidth "ｆ", "f" 7(A G]  
        DoEvents gqO%^b)6  
        ConvertWidth "ｇ", "g" = FtM;(\  
        DoEvents K^]?@oHO  
        ConvertWidth "ｈ", "h" TRr4`y%  
        DoEvents *7xQp!w^  
        ConvertWidth "ｉ", "i" FT3,k&i  
        DoEvents >0g`U  
        ConvertWidth "ｊ", "j" #"=yQZ6Y  
        DoEvents :w {M6mM>  
        ConvertWidth "ｋ", "k" N8DiEB3~  
        DoEvents {L-{ Y<fke  
        ConvertWidth "ｌ", "l" /H\^l.|vk  
        DoEvents uNPD~TYN  
        ConvertWidth "ｍ", "m"
. T6_N  
        DoEvents O)$N}V0  
        ConvertWidth "ｎ", "n" Azq#}Oe)u  
        ConvertWidth "ｏ", "o" @}zS/LO  
        ConvertWidth "ｐ", "p" J]=aI>Ow  
        ConvertWidth "ｑ", "q" xVHQ[I%  
        ConvertWidth "ｒ", "r" ;9!yh\\   
        ConvertWidth "ｓ", "s" GM9]>"#o\  
        ConvertWidth "ｔ", "t" @mQ/WYs  
        ConvertWidth "ｕ", "u" 1eE]4Z4Q  
        ConvertWidth "ｖ", "v" np' M4^E;  
        ConvertWidth "ｗ", "w" {jx#^n&5R  
        ConvertWidth "ｘ", "x" 3IU$  
        ConvertWidth "ｙ", "y" cd ek^/  
        ConvertWidth "ｚ", "z" &geO Fe}R  
        ConvertWidth "Ａ", "A" VuO)  
        ConvertWidth "Ｂ", "B" :N*q;j>  
        ConvertWidth "Ｃ", "C" (04j4teE  
        ConvertWidth "Ｄ", "D" "EOk^1,y  
        ConvertWidth "Ｅ", "E" 5fvUv"m  
        ConvertWidth "Ｆ", "F" 6?<`wGs(  
        ConvertWidth "Ｇ", "G" IxEQh)J X  
        ConvertWidth "Ｈ", "H" :r vO8.\  
        ConvertWidth "Ｉ", "I" G(7\
<x:  
        ConvertWidth "Ｊ", "J" W{$+mow7S  
        ConvertWidth "Ｋ", "K" .=b +O~  
        ConvertWidth "Ｌ", "L" 43}&w.AS  
        ConvertWidth "Ｍ", "M" nL7S3  
        ConvertWidth "Ｎ", "N" hZss  
        ConvertWidth "Ｏ", "O" C~ }Wo 5  
        ConvertWidth "Ｐ", "P" 4Rrw8Bw  
        ConvertWidth "Ｑ", "Q" [kp7LA"`  
        ConvertWidth "Ｒ", "R" BZ\EqB  
        ConvertWidth "Ｓ", "S" \K_!d]I {  
        ConvertWidth "Ｔ", "T" AT8B!m   
        ConvertWidth "Ｕ", "U" ZaNyNxbp>z  
        ConvertWidth "Ｖ", "V" fr,CH{Uq  
        ConvertWidth "Ｗ", "W" lv
z:UWo  
        ConvertWidth "Ｘ", "X" R uFu,H-  
        ConvertWidth "Ｙ", "Y" <750-d!  
        ConvertWidth "Ｚ", "Z" 8,H#t@+MT  
        ConvertWidth "^l", "^p" fUL{c,7xda  
        ConvertWidth "（", "(" ^;bGP.!p  
        ConvertWidth "）", ")" 654jS !  
     X('Q;^`  
    End If QAO
k  
 4s1kZ`e  
    With ActiveDocument L!+[]tB  
        Dim tbl As Table @0/@p"j  
        For Each tbl In .Tables wNf*/?N  
            tbl.Rows.Alignment = wdAlignRowCenter  jKb=Zkd  
            tbl.Range.Font.NameFarEast = "楷体" p@NEr,GB  
            tbl.Range.Font.NameAscii = "Times New Roman" 3*2&Fw!B  
            tbl.Range.Font.Size = 10.5 0()9vTY+  
        Next 2\z`G  
        Set tbl = Nothing (7Ca\H3$  
    End With &>) `P[x  
     R^u^y{ohr  
     V"2AN3~&  
    With ActiveDocument 93Ci$#<y  
         ,39$iHk  
        For i = 1 To .TablesOfContents.Count K&Wv.}=V  
            .TablesOfContents(i).Delete .2(@jx,[  
        Next e~2*>5\:  
         VtPoc(o4]  
        
(W}i287  
         .U(SkZ`6  
        paraTotal = .Paragraphs.Count PU@U@  
        paraCounter = 1 +poIgjq0  
         i/O,`2  
        LastTitle0No = 0 @=<TA0;LL  
        LastTitle1No = 0 @h7GTA \  
        LastTitle2No = 0 b]s1Q ]V  
        LastTitle3No = 0 EbwZZSds1  
        LastTitle4No = 0 C(%5,|6  
        LastTableNo = 0 {7pE9R5  
        LastFigureNo = 0 !P i? !  
         "'H7
F,k'  
        Dim Sec As Long Bu>yRL=*  
         {L2Gb(YLW  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) "]\":T  
        If Sec = 0 Then ;ijfI  
            Exit Sub @R-~zOv  
        End If ["#A-S  
         \'^Z_6{w  
        k = 0 z7l;|T  
        Do While (paraCounter < paraTotal) And bContinue C)3$";$5)  
            k = k + 1 ss*2TE7  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then }&C!^v o  
                Exit Do 6 peM4X  
            End If ;uA_gn!  
            paraCounter = paraCounter + 1 H{tOCYyD  
            If k Mod 20 = 0 Then KbuGf$Bv  
                Me.lbCounter.Caption = paraCounter 7N~q g 7&  
                DoEvents  d8BK
/b  
            End If z_,]fd=o  
        Loop L&gEQDPgq|  
         `w+9j-  
         Vp-OGX[  
        Do While (paraCounter < paraTotal) And bContinue $qyM X[  
             Bdk{.oh6  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) KxTYc  
            ShapeHeight = 0 @9kk
f{?  
            ShapeWidth = 0 o}^vREO  
           3_1Io+uXk  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth \%4+mgiD  
             .pu`\BW>  
            Select Case ParaType YT 03>!B  
                Case "【】表格内容" CyBM4q
yH  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" 2S10j%EeI  
                Case "章" @Qsg.9N3K  
                    LastTitle0No = LastTitle0No + 1 koWb@V]  
                    '新一章开始，复位其下属标题编号 ,IVr4#w0=  
                    LastTitle1No = 0 tL4]6u  
                    LastTitle2No = 0 OrH1fhh   
                    LastTitle3No = 0 e[k;SSs  
                    LastTitle4No = 0 $b 71  
                     sp |y/r#  
                    k = Val(ttNo) Xde=}9  
                    If k = 0 Then '非数字编号章节 9q,JqB  
                        If ttNo <> NoSeries1(LastTitle0No) Then K/.hJ  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString pvwnza1  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText TI7Ty+s  
                        End If U+}9X^  
                    Else y88}f&z#5  
                        If Val(ttNo) <> LastTitle0No Then ]#7Y@Yo  
                            rText = "第" & LastTitle0No & ttString ,
"MUfZ  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText HOQ _T4  
                        End If \3:{LOr%*  
                         ThQEQ6y  
                    End If 2.&
V
  
                     6~Oj e>w;  
                    '章段落设置 3L!&~'.Ro  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 -{amzyvLE  
                    .Paragraphs(paraCounter).Style = "QLNU章节" ?KuJs9SM  
                    .Paragraphs(paraCounter).Range.Select mBgx17K/-_  
                    Selection.EndKey unit:=wdLine I(kIHjV|  
                    tc = Replace(rText, vbCr, "") [,A'  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False ! {o+B^^  
                Case "一级标题" {j=hQL3   
                    LastTitle1No = LastTitle1No + 1 Ug'nr  
                    '新一级标题开始，复位其下属标题编号 #pn AK  
                    LastTitle2No = 0 +&zuI  
                    LastTitle3No = 0 b+j_EA_b  
                    LastTitle4No = 0 .S
Tf  
                     u(G;57ms  
                    If ttNo <> NoSeries1(LastTitle1No) Then )I  UWM  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString 9kg>)ty@  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText eEZlVHM;O  
                    End If Hr,lA(  
                   ib=^tK  
                     EV,NJ3V  
                    '一级标题段落设置  格式：一、标题内容 FCB/FtI0  
                    .Paragraphs(paraCounter).Range.Text = rText  F-\8f(\  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" vFvu8*0  
                    .Paragraphs(paraCounter).Range.Select /t6u "I~  
                    Selection.EndKey unit:=wdLine 68br  
                    tc = Replace(rText, vbCr, "") X1z0'gvh  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False FEi,^V  
                Case "二级标题" (Gk]<`d#N  
                    LastTitle2No = LastTitle2No + 1 wa
q_d.  
                    '新二级标题开始，复位其下属标题编号 mE@o
27  
                    LastTitle3No = 0 ?}Ptb&Vk(  
                    LastTitle4No = 0 K[ ;,/:Y  
                     v5bb|o[{K  
                    If ttNo <> NoSeries1(LastTitle2No) Then |/Q."d  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString Hf]}OvT>Z  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText
{kO:HhUg  
                    End If y?4=u,{C  
                     KZ/^gR\d  
                    '二级标题段落设置 格式：(一)、标题内容 wU3ica&[   
                    .Paragraphs(paraCounter).Range.Text = rText "7g8 d  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" ~S{\wL53  
                     j\L$dPZ
  
                    .Paragraphs(paraCounter).Range.Select !<^j!'2  
                    Selection.EndKey unit:=wdLine ;A'1
7B8  
                    tc = Replace(rText, vbCr, "") (']z\4o  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False TV>R(D3T/  
                 jJQfCOD$  
                Case "三级标题" eS%6hUb  
                    LastTitle3No = LastTitle3No + 1 :;u]Y7  
                    '新三级标题开始，复位其下属标题编号 YZtA:>;p  
                    LastTitle4No = 0 "&o@%){]  
                     ^aM/BS\  
                    If Val(ttNo) <> LastTitle3No Then >;U%~yy}qc  
                            rText = LastTitle3No & ". " & ttString Us~wv"L=UX  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText v&,VC~RN-J  
                         tfIBsw.  
                    End If
mb6?$1j  
                    '三级标题段落设置 格式：1. 标题内容 QMpA~x_m  
                    .Paragraphs(paraCounter).Range.Text = rText $zA[5}{ZtQ  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" !Kqj &y5  
                    .Paragraphs(paraCounter).Range.Select \ yizIo.Y`  
                    Selection.EndKey unit:=wdLine jN{xpd  
                    tc = Replace(rText, vbCr, "") NP`ll0s  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False I:)#U[tn0  
                Case "四级标题" ['`'&+x&!  
                    LastTitle4No = LastTitle4No + 1 xfQ;5 n  
                     -ns a3P  
                    If Val(ttNo) <> LastTitle4No Then U~@B%Msb L  
                            rText = "(" & LastTitle4No & "). " & ttString bD[W
 ~ku  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText n8D;6#P^  
                     >h-6B=  
                    End If {YLJKu!M  
                    '四级标题段落设置 格式：(1). 标题内容 x(6.W"-S  
                    .Paragraphs(paraCounter).Range.Text = rText >d[vHyA~!D  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" Uy'ZL(2  
                    .Paragraphs(paraCounter).Range.Select TK?N^ly  
                    Selection.EndKey unit:=wdLine EGO@`<"h  
                    tc = Replace(rText, vbCr, "") JKv4 }bv  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False 1,D ^,  
                 7uH{UpslJ  
                Case "表格标题" _^$b$4)  
                    LastTableNo = LastTableNo + 1 R2f,a*>  
                     g {wPw  
                    If ttNo <> CStr(LastTableNo) Then ptL}F~  
                            rText = "表" & LastTableNo & ". " & ttString ! r\ktX  
                            ErrMsg.AddItem "表格编号错误：" & ParaText %pKs- n`  
                   `.Q3s?1F  
                    End If *"L:"i`*$  
                     RwHXn]
1  
                    '表格名称段落设置 格式：表1. 表格名称 3/<^R}w\  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" v"TH[}C9D  
                    xe = Replace(rText, vbCr, "") 5W'|qmJ  
                    .Paragraphs(paraCounter).Range.Select qiJ;v1  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 j0NPd^  
                    Selection.Range.Text = xe I}3K,w/7mi  
                    Selection.EndKey j?ubh{Izm  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False 9 f/tNQ7W  
                 F<<H [,%0  
                Case "表格首行" >(J!8*7  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" :iiTz$yk  
                Case "图片标题" ZlXs7 &_  
                    LastFigureNo = LastFigureNo + 1 jl29~^@}1i  
                     pl/$@K?L  
                    If ttNo <> CStr(LastFigureNo) Then S$:S*6M@"  
                            rText = "图" & LastFigureNo & ". " & ttString }+Z;zm@/6  
                            ErrMsg.AddItem "表格编号错误：" & ParaText 8j+;Xlh  
                   KAEpFobYo  
                    End If E*"E{E7  
                    '图片名称段落设置 格式：图1. 图名称 {]N?DmF  
                    .Paragraphs(paraCounter).Range.Text = rText ".Z+bi2l  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" $)a5;--W  
                    .Paragraphs(paraCounter).Range.Select K`2DhJC  
                    Selection.EndKey unit:=wdLine vv_?ip:t  
                    xe = Replace(rText, vbCr, "") JH,bSb  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False \zDV|n~{w  
                Case "正文" IUG.q8  
                     '正文名称段落设置 45JLx?rN_  
                    .Paragraphs(paraCounter).Style = "QLNU正文" @}RyW&1Z  
               Case "文献条目" 0tyU%z{RV  
                    With .Paragraphs(paraCounter) FJ. :*K[  
                        '.Range.Select I#e*,#'S  
                        'Selection.ClearFormatting A|nU _*  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” pDN,(Ip  
                        .Style = "QLNU参考文献" W]]2Uo.  
                    End With }('QIvq2  
               Case "图表注解" +6E<+-N  
                    With .Paragraphs(paraCounter) @3D%i#2o&[  
                        .Range.Font.NameFarEast = "楷体" ho<#i(  
                        .Range.Font.NameAscii = "Times New Roman" 88U  
                        .Range.Font.Size = 9 '小5号字 'm((G4  
                         5mBk[{  
                        .Alignment = wdAlignParagraphCenter ;:1mv
 
                        .LeftIndent = 0 `N,Jiw;bw  
                        .RightIndent = 0 j* ja )  
                        .FirstLineIndent = 0 Um&@ 0C+L  
                        .LineSpacing = 12 JYUKs~Qt  
                        .LineSpacingRule = wdLineSpaceExactly hZG{"O!2s  
                        .LineUnitAfter = 0 ~kFRy{z  
                        .LineUnitBefore = 0 2M`Ni&v  
                        .OutlineLevel = wdOutlineLevelBodyText 8\_,Y ji  
                        .PageBreakBefore = False |,f6c Omf  
                        .RightIndent = 0 Stx-(Kfn4  
                        .WordWrap = True 
^el:)$  
                        .LineUnitAfter = 0.5 co-D,o4x  
                         y[eN M6p  
                    End With I[C.iILL  
                Case Else |Q+v6r(<zZ  
                    '不作处理 
9LRY  
            End Select Jrl xa3 [  
             -OAH6U9^  
            '含有inlineshape的段落处理 {$.{VE+v5  
            If ShapeHeight > 30 Then Jc6 D^=  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 B-zt(HG  
            End If Lj\<qF~n  
             C*<LVW{P  
            If (ShapeWidth + ShapeHeight) > 150 Then pgi7 JQ  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" 3N \X{za  
            End If --D`YmB  
             %
QkvBg*  
            '段落计数器递 .=D6<4#t  
            paraCounter = paraCounter + 1 ,^T2hY`  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter EaL+}/q&  
            Me.txtStatus.Text = ParaText r73Xh"SL  
            DoEvents 3<lDsb(}0A  
        Loop evP`&23t
P  
    End With *()#*0  
     Vngi8%YWp  
    msg = "" W5 }zJ)x  
     IRY2H#:$  
    For i = 0 To Me.ErrMsg.ListCount - 1 g9.hR8X  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) OMNdvrE*=O  
    Next %M:"Ai5:  
     8i"fhN3?Y  
     ? 'nMZ  
     nV1
, ):kh  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg {[dqXG$v `  
    Me.cmdCheck.Enabled = True Y6Q6--P  
    Me.txtStatus.Visible = True yK;I<8+>_  
    Me.lbParaType.Visible = False JJa?"82FXZ  
     C
Q ?|=cN  
    bContinue = False $ S/8T  
End Sub jws(`mIf\  
Su~`jRN$  
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) !b_I H0]U  
    Dim pTEXT As String eSf: [^  
     !Zx>)V6.  
    pTEXT = ChKRange.Text P VQ%y  
     )/w2]d/9  
    ParaType = "其它" \:S8mDI^s  
    TitleString = pTEXT umYdr'p!v  
    TitleNo = "N/A" MDt4KD+bZ  
     ?Ci\3)u,P  
    shpCounter = ChKRange.InlineShapes.Count F!'"mU<f  
    If shpCounter <> 0 Then >n62csO  
        MaxShpHeight = 0: TotalShpWidth = 0 X*&r/=  
        For i = 1 To shpCounter SuSZ,>  
            k = ChKRange.InlineShapes(i).Height B7C6Ma u  
            l = ChKRange.InlineShapes(i).Width Kxn=iv^Ir  
            If k > MaxShpHeight Then F.9|$g*ip  
                MaxShpHeight = k }q
g&2M%\  
            End If yuq E  
            TotalShpWidth = TotalShpWidth + l P nDZi  
        Next Nq8A vBwo4  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then +ZO*~.zZ  
            Exit Sub %-.GyG$i  
        End If sa])^mkq(  
    End If c=CXj3  
     ,'}ZcN2)  
    '空行 _9dV 3I  
    If Len(pTEXT) <= 2 Then 1OKJE(T  
        Exit Sub
Q=E6ZxH5;  
    End If k2a^gCBC  
     hCrgN ?Mz  
         u^$ CR  
    '是否为表格中的文字 mbK$Wp#  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then rL
/+`H  
        ParaType = "表格内容" x(Z@R\C-a  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) qK pU.rP  
        If k = 1 Then Ig2VJs;  
            ParaType = "表格首行" 7;V 5hul  
        End If $6[]c)(  
        Exit Sub 12E"6E)
 
    End If 2J5dZYW  
     /:)4tIV  
    '例外情况：脚注 u-$AFSt  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then 'Z[R*Ikzq  
        ParaType = "脚注" Z9y:}:j"  
        Exit Sub aJts  
    End If *BV .zbGm  
     ZBWe,Xvq  
    '例外情况：尾注 )sr]}S0  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then S3r\)5%;  
        ParaType = "尾注" -_dgd:or  
        Exit Sub :A[/;|&  
    End If el<nY" c  
     TfOZ>uR"g  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then im`^_zebj  
        ParaType = "页眉页脚" *9PQJeyR  
        Exit Sub s&l[GKR  
    End If {z7{ ta  
     nK[$ID  
     8,Z0J  
    With regEX 6 9Cxh  
        .Global = True +( d2hSIF  
         uB
XI*51{  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" *Bj G3Jc5  
        If regEX.Test(pTEXT) Then f.{0P-Np  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") 
\$I )}  
            TitleString = regEX.Replace(pTEXT, "$3") 6lGL.m'Ra  
            TitleNo = regEX.Replace(pTEXT, "$1") ~kga+H  
            ParaType = "章" 0J"3RTt  
            Exit Sub ~a}pYLxl  
        End If Ra5cfkH;  
         _nt%&f  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" d:aQlW;}  
        If regEX.Test(pTEXT) Then \`^jl  
            ParaType = "一级标题" $}829<gh7  
            regEX.Execute (pTEXT) JqO( ]*"Hi  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") @QofsWC  
            TitleString = regEX.Replace(pTEXT, "$3") VI4d/2e  
            TitleNo = regEX.Replace(pTEXT, "$1") :>;#/<3{  
            Exit Sub @QEVl
 
        End If ;-F#a+2]!  
         9z?F_=PB!  
        '全角或半角括号中的数字 A@4Cfb@  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" YZ}gZQ.A0  
        If regEX.Test(pTEXT) Then oT'XcMn  
            ParaType = "二级标题" \]D;HR`vo  
            regEX.Execute (pTEXT) KRQ/wuv  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") ,^(T^ -  
            TitleString = regEX.Replace(pTEXT, "$5") ?!ig/ufZ  
            TitleNo = regEX.Replace(pTEXT, "$2") 7g$t$cZby,  
            Exit Sub {+ m)*3~w  
        End If w;:,W @K  
         d0,I]"  
        '阿拉伯数字  1. 2. DRnXo-Aaj  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" E_z@\z MB  
        If regEX.Test(pTEXT) Then K{c^.&6D  
            ParaType = "三级标题" Jg:'gF]jt  
            regEX.Execute (pTEXT) @UA>6F  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 :5(TOF  
            TitleString = regEX.Replace(pTEXT, "$3") t%%I.zIV7  
            TitleNo = regEX.Replace(pTEXT, "$1") z)0F
k  
            Exit Sub xiiZ'U  
        End If >3JOQ;:d8  
         9D@Ez
"xv  
        '全角或半角括号中的阿拉伯数字 z t1Q_;  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" 0-FbV,:;  
        If regEX.Test(pTEXT) Then 6\`,blkX  
            ParaType = "四级标题" T"z!S0I  
            regEX.Execute (pTEXT) ]PFc8qv{  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") $T6<9cB@  
            TitleString = regEX.Replace(pTEXT, "$5") >/>a++19  
            TitleNo = regEX.Replace(pTEXT, "$2") Kfi A 7W  
            Exit Sub KNnE5f  
        End If _
n>0!  
         >2rFURcD  
        '表格名称 =F`h2A;a  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$"
/[IK[  
        If regEX.Test(pTEXT) Then 9:Y\D.
M  
            ParaType = "表格标题" tf,_4_7#$  
            regEX.Execute (pTEXT)
nL$tXm-x  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) )gR&Ms4  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) v-kH7H"z  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) 0Ec -/   
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 k $);<= ZI  
            Exit Sub * PZ=$>r  
        End If LRs{nN.N  
         h(Z7a%_  
        '图片名称  wNPZ[V:  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" *?uF&( 0  
        If regEX.Test(pTEXT) Then Og["X
0j  
            ParaType = "图片标题" F"q3p4-<>  
            regEX.Execute (pTEXT) |^=`ln!  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") /xmd]XM=_  
            TitleString = regEX.Replace(pTEXT, "$3") 9}4L8?2  
            TitleNo = regEX.Replace(pTEXT, "$1") o)$sZ{` ="  
            Exit Sub a8N!jQc_m  
        End If i|<*EXB"  
         ]KfHuYjM  
        '参考文献 mHP1
.Z`  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 4]cOTXk9C  
        If regEX.Test(pTEXT) Then pD]Ry" ZG  
            ParaType = "文献条目" lfhB2^^  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") q/[)mr|~  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") bx@CzXre;  
            Exit Sub .sLx6J%  
        End If i55']7+0  
         2`z+_DA  
        prfx = Left(pTEXT, 2) oyHjd PdY#  
        If prfx = "注：" Or prfx = "注:" Then +5Mx0s(5  
            ParaType = "图表注解" $R^"~|m3M  
            Exit Sub Qcw/>LaL:  
        End If Y3thW@mD05  
         H=dj\B r`  
         A4#m&o  
        ParaType = "正文" zIL.R#|D=  
         T57S!CJ^$5  
    End With v4&*iT  
End Sub  2}`OjVS  
`1P &  
Sub ConvertListToOrdinary() N9i>81tY  
    Dim st As Paragraph L3/ ua  
    With ActiveDocument ZK;HW  
        For i = .Paragraphs.Count To 1 Step -1 wiutUb Y  
            Set st = .Paragraphs(i) Z/0M9 Q%  
            lst = st.Range.ListFormat.ListString Awj`6GeJ
  
            If lst <> "" Then fF9vV. }  
                st.Range.ListFormat.RemoveNumbers R(:q^?  
                st.Range.InsertBefore lst & " " 0I.7I#'3O  
            End If F2u{Wzr_@  
        Next 2]7nw1&  
    End With
`pKQ|zGw  
    Set st = Nothing kqyY:J  
End Sub 4-TM3Cw`d&  
CV`  I.  
Private Sub UserForm_Activate() }/=VnCfU  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" =IUTU4!]  
    Me.lbTotal.Font.Bold = True | o?@Eh  
    Me.txtStatus.Visible = False ^Ab|\5^3  
    Me.cmdCheck.Enabled = True 6PTD%Rf\  
"e(Nh%t  
End Sub qvT9d7x  
|OC6yN *P)  
#):FXB$a  
Sub CheckSuperScript() Gf"/fpeQx  
    Selection.Find.ClearFormatting 67#;.}4a  
    Selection.Find.Replacement.ClearFormatting 6Us#4 v,  
    With Selection.Find ak'RV*>mT  
        .Text = "[【\[［〖](*)[】\]〗］]" L0
|u^J  
        .Replacement.Text = "[\1]" 3
A+d8fwi  
        .Replacement.Font.Superscript = True M]&9Kg3  
        '.Replacement.Font.Color = wdColorBlue m1
(rAr1  
        .Forward = True !6kLg1  
        .Wrap = wdFindContinue O9 qEKW)a  
        .FORMAT = True T # 8O:  
        .MatchCase = False LO QEU?z  
        .MatchWholeWord = False $GcVC (]  
        .MatchByte = False iQA f  
        .MatchAllWordForms = False %9M_*]  
        .MatchSoundsLike = False DukCXyB*l  
        .MatchWildcards = True ^@N@
gB  
    End With S]<Hx_[}  
    Selection.Find.Execute Replace:=wdReplaceAll -O ej6sILO  
End Sub I|p(8R!  
:+u?A  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) /JvNJ f  
    bContinue = False ^rx]Y;  
    Set regEX = Nothing $
idYG< ],  
End Sub KQEnC`Nz  
Q4UaqiL
 
Sub CeateOrModifyStyle() <)rol  
' U?kJXM2  
' N~a?0x  
Dim stl As Style
j
/9'L^]  
     N[AX29  
    Options.Pagination = False YS;Ql\4  
     SL*B `P~{  
    On Error Resume Next xL mo?Y*  
    For Each stl In ActiveDocument.Styles gn'. 9";j  
        stl.Delete En[cg  
    Next 2"NJt9w  
    On Error GoTo 0 <%|2yPb]  
     E*CY/F I_  
    Set stl = Nothing 3.8d"  
     :HwB+Bjy  
    DoEvents D@! #79:)  
    On Error Resume Next 2r1.,1  
     |n~-LH++  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph +4)Kc9S#  
     N5g!,
3  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph <Q%\pAP}b  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph h'wI/Z_'  
     Q|;8\ 5  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph lwa  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph t,&1~_9  
     R7vO,kZ6Q  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph :V 8 \^  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph
B[8  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph xvb5-tK -  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph b,s T[!X[  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph z0c_&@uj*  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph S25&UwUw  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph M[SWMVN{  
     /S ]<MS  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph  aj1Zi3h  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph <zrGPwk  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph n&&X{Rl  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph wVp  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph hH%@8'1v  
     oKz Lt  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph }"A.[9 b  
    On Error GoTo 0 JEj.D=@[  
    DoEvents p*vEVo  
     $yG=exh3
v  
    'BaseStyle |o6B:NH,rg  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False INi(G-!g  
    With ActiveDocument.Styles("BaseStyle").Font '`^`NI`  
        .NameFarEast = "宋体" u|i.6:/=  
        .NameAscii = "Times New Roman" c?IFI  
        .NameOther = "宋体" R0 AVAUG  
        .Size = 10.5 6/ F]ncwG  
        .Bold = wdUndefined tKu'Q;J  
        .Italic = wdUndefined p"3_ u;cN  
        .Subscript = wdUndefined Y=\;$:L[  
        .Subscript = wdUndefined r65/O5F  
         !5&% P b  
        .Underline = wdUnderlineNone cjp H hoW  
        .UnderlineColor = wdColorAutomatic |h4aJv  
        .StrikeThrough = False fpu^  
        .DoubleStrikeThrough = False  { |a=  
         X)x$h{ OE  
        .Outline = False ?X~Keb  
        .Emboss = False oF8#gn_  
        .Shadow = False ``DS?pUY  
        .Hidden = False m&cVda/  
        .SmallCaps = False SBZqO'}7  
        .AllCaps = False HvLvSy1U  
        .Color = wdColorAutomatic Y2HF  
        .Engrave = False ~}PB&`%7  
        .Scaling = 100 w7s+6,  
        .Kerning = 1 "'~55bG  
        .Animation = wdAnimationNone ?u/RQ 1  
        .DisableCharacterSpaceGrid = False hv2@}<r?  
        .EmphasisMark = wdEmphasisMarkNone ZxLgV$U  
    End With :OQx;>'  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat $QN} 2lJ>  
        .LeftIndent = 0 ]gx]7  
        .RightIndent = 0 $0=f9+@5  
        .SpaceBefore = 0 { LZ` _1D  
        .SpaceBeforeAuto = False c/%i,N\5  
        .SpaceAfter = 0 rK7m(  
        .SpaceAfterAuto = False @WED XB  
         6O>NDTd%  
        .LineSpacingRule = wdLineSpaceSingle 5Ay\s:hb[u  
        .Alignment = wdAlignParagraphJustify ?%d]iTZE
 
         AQ7w5}g+V  
        .WidowControl = False |Q[[WHqj2f  
        .KeepWithNext = False ?@!dc6   
        .KeepTogether = False f+d
[Q1  
        .PageBreakBefore = False -YPUrU[)  
        .NoLineNumber = False K`Vi5hR~c  
         EPkmBru ^  
        .FirstLineIndent = CentimetersToPoints(0) EA) K"C  
        .OutlineLevel = wdOutlineLevelBodyText /J9|.];%r  
        .CharacterUnitLeftIndent = 0 n j0!  
        .CharacterUnitRightIndent = 0 +O8rjVg)  
        .CharacterUnitFirstLineIndent = 0 {d|e@`"T  
        .LineUnitBefore = 0 U8m/L^zh  
        .LineUnitAfter = 0 XmJu{RbS  
        .AutoAdjustRightIndent = True 2M1}`H\  
        .DisableLineHeightGrid = True 2Sz?r d,0f  
         ;Hk{bz
(  
        .FarEastLineBreakControl = True Yi:@>A<#  
        .WordWrap = True f_I6g uDPz  
        .Hyphenation = False H$^IT#  
         YEqZ((H  
        .HangingPunctuation = True 6
8 vu  
        .HalfWidthPunctuationOnTopOfLine = True Q+YYj   
        .AddSpaceBetweenFarEastAndAlpha = True m:_'r"o  
        .AddSpaceBetweenFarEastAndDigit = True ?H3L
s~R  
        .BaseLineAlignment = wdBaselineAlignBaseline nJC/yS|  
    End With s"gNHp.oF  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False L"e8S%UqX  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll
1CX
O=Q  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese g] %sX6T  
    ActiveDocument.Styles("BaseStyle").NoProofing = False `o4alK\  
     'So,*>]63  
    '一级标题题样式 cdY|z]B  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") VB=$D|Ll  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" .W>LEz
'  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False FX}kH]  
    With ActiveDocument.Styles("QLNU一级标题").Font %PW_v~sg  
        .NameFarEast = "黑体" K8,Q^!5]"  
        .NameAscii = "Arial Black" <#H
QU<  
        .NameOther = "黑体" ]6#bp,  
        .Name = "黑体" 2<q.LQ}<  
        .Size = 16              '三号 VI_8r5o  
        .Bold = True wA$ JDf)Vg  
        .Italic = wdUndefined :QGgtTEV""  
        .Subscript = wdUndefined G6@XRib3  
        .Superscript = wdUndefined |soDt<y+L  
    End With ^qvN:v$1  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat Jga;
nrU  
         KsVN<eR{  
        .LeftIndent = CentimetersToPoints(0) xL&M8:  
        .RightIndent = CentimetersToPoints(0) uI lm!*0  
        .FirstLineIndent = CentimetersToPoints(0) ,sF49CD  
         ~?E.U,R  
        .LineSpacingRule = wdLineSpaceSingle F8Y_L\q  
        .Alignment = wdAlignParagraphCenter 9 M>.9~  
         Pr|BhX  
        .WidowControl = True _[IOPHa"  
        .KeepWithNext = True ^V,?n@c!  
        .KeepTogether = True kMd1)6%6A  
        .OutlineLevel = wdOutlineLevelBodyText ;=r_R!
d@  
         p^J=*jm)x  
        .LineUnitBefore = 0.5 RKru hF  
        .LineUnitAfter = 0.5 t`%Xxxu  
    End With &dsXK~9M>  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False to,\sc  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll oU`{6 ~;  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese cZR9rnZT  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True aWS_z6[t#6  
    DoEvents xu<oQBt  
     }z,f8Yz  
    '二级 |X47&Y  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 15J t @{<r  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" v{r,Wy3  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False (ay((|)  
    With ActiveDocument.Styles("QLNU二级标题").Font 0&Z+P?Wb4  
        .NameFarEast = "黑体" OrPi ("/  
        .NameAscii = "Arial Narrow" Gg TrIF  
        .NameOther = "黑体" T"_f9?  
        .Name = "黑体" !FA[ ]d4  
        .Size = 15        '小三号 [Fk|%;B/~  
        .Bold = False BG/Q7s-?K  
        .Outline = False ZVIlVuZ}  
        .Italic = wdUndefined X+
7@8)1(  
        .Subscript = wdUndefined eHE?#r16Z  
        .Superscript = wdUndefined nG4}8  
    End With 1
[:tiTG|C  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat (/$a*$  
        .LeftIndent = CentimetersToPoints(0) *G&3NSM-  
        .RightIndent = CentimetersToPoints(0) I
eN~E'~  
        .FirstLineIndent = CentimetersToPoints(0) ,hSTR)  
         !-AK@`i.  
        .LineSpacingRule = wdLineSpaceSingle j"5 $m@lgn  
        .Alignment = wdAlignParagraphLeft F<0GX!p4u  
         G
r&YzbSX  
        .WidowControl = True }Gf9.ACQ  
        .KeepWithNext = True IRG-H!FV  
        .KeepTogether = True %LjhK,'h  
        .PageBreakBefore = False )dh _eqnX  
        .OutlineLevel = wdOutlineLevelBodyText qxbGUyH==  
         &"6%D|Z0  
        .LineUnitBefore = 0.5 +wIv|zj9  
        .LineUnitAfter = 0.5 FKWL{"y  
         L)"E_  
    End With }'u0Q6Obj  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False '5etZ!
:  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll 1
|XC$0  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese e| Sw+fhy<  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True 2A&Y})D  
    DoEvents RLNto5?  
     #Y<QEGb(  
    '三级标题样式 ?v,4seRuz  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") p>h&SD?b  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" |V-)3#c  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False ]j:aO  
    With ActiveDocument.Styles("QLNU三级标题").Font M$Or|HT
G  
        .NameFarEast = "宋体" wl5+VC*l0  
        .NameAscii = "Times New Roman" tRYi q  
        .NameOther = "黑体" +'V ,z  
        .Name = "黑体" Qv B%X)J  
        .Size = 14               '四号 $N/"c$50,  
        .Bold = False Ihy76_OZ  
        .Outline = False kO}QOL4  
        .Italic = wdUndefined d$5\{YLy
 
        .Subscript = wdUndefined #-7 w|  
        .Superscript = wdUndefined v| IG G'r  
    End With HDQH7Bs  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat R>B4v+b  
        .LeftIndent = CentimetersToPoints(0) ItxC}qT  
        .RightIndent = CentimetersToPoints(0)
VMl)_M:'  
        .FirstLineIndent = CentimetersToPoints(0) ]I:h4hgw  
         jM[]Uh  
        .LineSpacingRule = wdLineSpaceSingle $:IEpV{  
        .Alignment = wdAlignParagraphLeft Nhrh>x[wJ  
         Qm@v}pD  
        .WidowControl = True _FxQl]@  
        .KeepWithNext = True }@TtX\7(D  
        .KeepTogether = True I*4g ;1x  
        .PageBreakBefore = False +`&-xq76  
        .OutlineLevel = wdOutlineLevelBodyText qr'P0+|~5  
         dQ-:]T (  
        .CharacterUnitLeftIndent = 0 rUDMQxLruV  
        .CharacterUnitRightIndent = 0 eh /QFm 4  
        .CharacterUnitFirstLineIndent = 2 ~]78R!HJ  
         `nv82v  
        .LineUnitBefore = 0.5 cyXnZs ?|  
        .LineUnitAfter = 0 i p; RlO  
    End With :O9i:Xq[QW  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False 3:MAdh[w  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll f9a_:]F   
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese Bhf4 /$  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True D<J,3(Yu  
    DoEvents _ lE d8Cb  
     ' }T6dS  
    '四级标题样式 4fL/,j/^  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") }ZB:nnG  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" }%Vx2Q  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False GF17oMi  
    With ActiveDocument.Styles("QLNU四级标题").Font v%8S:3  
        .NameFarEast = "宋体" ,}23  
        .NameAscii = "Times New Roman" Al^h^ 9tJ  
        .NameOther = "宋体" #xNXCBl]O  
        .Name = "宋体" ;@s'JSPt  
        .Size = 12               '小四号 NsF8`rg  
        .Bold = True ICm/9Onh&  
        .Outline = False rvETt  
        .Italic = wdUndefined S*'  
        .Subscript = wdUndefined ^"{txd?6  
        .Superscript = wdUndefined EF8'ycJk+  
    End With b |JM4jgK  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat :>o2UH  
         -+Gd<U$  
        .LeftIndent = CentimetersToPoints(0) Bs;.oK5!n@  
        .RightIndent = CentimetersToPoints(0) m!sMr^W  
        .FirstLineIndent = CentimetersToPoints(0) 0u=FlQ }h  
         |.{[%OJP  
        .LineSpacingRule = wdLineSpaceSingle cIOM}/gqv  
        .Alignment = wdAlignParagraphLeft o
l8|  
         "PfNC<MQo  
        .WidowControl = True Dl=qss~g+  
        .KeepWithNext = True r 8TNl@Z  
        .KeepTogether = True =*=qleC3  
        .PageBreakBefore = False 56!/E 5qgW  
        .OutlineLevel = wdOutlineLevelBodyText {w Czm  
         (4"Azo*~![  
        .CharacterUnitLeftIndent = 0 w; ]~2$  
        .CharacterUnitRightIndent = 0 n]a/nv  
        .CharacterUnitFirstLineIndent = 2 V[fcP;
  
         q%hxU.h  
        .LineUnitBefore = 0 BkJNu_{m?  
        .LineUnitAfter = 0 o06vC  
         Hq."_i{I  
    End With +^<-;/FZue  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False 0=I:VGC3  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll vJ fj1 f  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese J`[He$7)  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True 57rH`UFXH  
    DoEvents ~O~R,h>  
     xO<Uz"R  
    '正文校式 ES9|e
o6  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") Wer.VL  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" *Ry{}|_8  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False _28vf Bl?  
    With ActiveDocument.Styles("QLNU正文").Font 1gh<nn  
         ZE4xF8  
        .NameFarEast = "宋体" %Kc2n9W  
        .NameAscii = "Times New Roman" ,%U'>F?  
        .NameOther = "宋体" ZuVes?&j  
        .Name = "宋体" b$/'dnx  
         3-U@==:T  
        .Size = 12               '小四号 X%] m^[6  
         X~>2iL  
        .Bold = wdUndefined e!p?~7 0  
        .Italic = wdUndefined -=VGXd  
        .Subscript = wdUndefined v6*8C
Q+  
        .Superscript = wdUndefined @DniYt/  
         X.FFBKjf[e  
        .Outline = False U`)o$4Bq  
        .Emboss = False !fK9YW(Im  
        .Shadow = False CSNfLGA
 
        .Hidden = False 99u 9L)  
         D.Z4noMA6  
        .DisableCharacterSpaceGrid = True 3!2TE-  
    End With (C60HbL   
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat [fl^1!3{  
         H
iPd|D  
        .LeftIndent = CentimetersToPoints(0) U9%#(
T$  
        .RightIndent = CentimetersToPoints(0) PNG!q}(c  
        .FirstLineIndent = CentimetersToPoints(0) D>m!R[!o  
         4t< mX  
        .LineSpacingRule = wdLineSpaceExactly N3?@CM^hHw  
        .LineSpacing = 20 m6YDyQC  
        .Alignment = wdAlignParagraphLeft +/Qgl  
         B,avI&7M;S  
        .WidowControl = False xq\A TON  
        .KeepWithNext = False 9
MR,3/&N  
        .KeepTogether = False KV]8 o
'  
        .PageBreakBefore = False 6R';[um?q  
        .Hyphenation = False ~-zch=+u  
         d!#qBn$*[  
        .OutlineLevel = wdOutlineLevelBodyText (f>~+-IL  
         \8iWcqJktN  
       Hl b%/&  
        .CharacterUnitLeftIndent = 0 rBrJTF:
.  
        .CharacterUnitRightIndent = 0 6U[bAp  
        .CharacterUnitFirstLineIndent = 2 HRF;qR9v  
         9vw0box  
        .LineUnitBefore = 0 Av"^uevfs  
        .LineUnitAfter = 0 qJq2Z.>hy  
        .SpaceBefore = 0 JVt(!%K}&  
        .SpaceAfter = 0 Bv(c`JE~;  
         _'"$,~ZWY  
        .DisableLineHeightGrid = True D/Hob  
    End With yp\sJc`  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False L>{p>  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll `AcT}.u  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese MrFi0G7u  
    ActiveDocument.Styles("QLNU正文").NoProofing = True mIm.+U`a2  
    DoEvents ;=F]{w]$+  
     Y=tx kN  
    '图片段落样式 4.qW ~W{  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") ~CQTPR  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" !/wR[`s9w  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False `&!J6)OJ  
    With ActiveDocument.Styles("QLNU图片段落").Font Gk2R:\/Y  
        .Size = 12               '小四号 1Aw/-FxJ  
        .Italic = wdUndefined 0MX``/Z72  
        .Subscript = wdUndefined x/^,{RrPk  
        .Superscript = wdUndefined 2#t35fU  
    End With fLR\@f  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat -1<*mbb0  
         $G.w s  
        .LeftIndent = CentimetersToPoints(0) tC4 7P[b  
        .RightIndent = CentimetersToPoints(0) eZk4$ y  
        .FirstLineIndent = CentimetersToPoints(0) GEQ3r'B|  
         EH~XN9b  
        .LineSpacingRule = wdLineSpaceSingle XXA1%Lw%  
        .Alignment = wdAlignParagraphCenter zpM%L:S  
        .KeepWithNext = True 8}<4f|?  
        .OutlineLevel = wdOutlineLevelBodyText g1B[RSWv  
         k-XE
|v  
        .CharacterUnitLeftIndent = 0 N_eZz#);  
        .CharacterUnitRightIndent = 0 @WfX{
485  
        .CharacterUnitFirstLineIndent = 0 -3T~+  
         GMJ</xG
  
        .LineUnitBefore = 0 7qT>wCVT  
        .LineUnitAfter = 0 7-`iI(N<  
    End With NZ=`iA8)X  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False TaTs-]4  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll aEwwK(ny  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese y;1l].L  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True |)+;d  
    DoEvents <yz&> +9,  
     v5` Q7ZZ  
     i{5 ,mS&  
    '第X章 B?p18u$i#l  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") rA6lyzJ  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" 'v:%} qMv  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False ~.L\f%<  
    With ActiveDocument.Styles("QLNU章节标题").Font ouf91<
n  
        .NameFarEast = "黑体" w |0w<K  
        .NameAscii = "Arial Black" /`vn/X^?^  
        .NameOther = "Arial Black" [(PD2GO+  
        .Name = "黑体" _pe_w{V-b6  
        .Size = 16 ^;gwD4(hs  
        .Bold = True xIb^x=|h  
        .UnderlineColor = wdColorAutomatic 1Kc[).O1  
        .Outline = False f_qW+fN::s  
        .Italic = wdUndefined ~T'Ri=  
        .Subscript = wdUndefined rXG?'jN  
        .Superscript = wdUndefined 0Z<&M| G  
        .Scaling = 100 Kb5 YA  
        .DisableCharacterSpaceGrid = True Qk q9
oZ  
    End With KOHYeiry~A  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat qt{ {q  
        .LineSpacingRule = wdLineSpaceSingle !i77v, (#|  
        .Alignment = wdAlignParagraphCenter >4@/x{{  
        .WidowControl = True @EV*QC2l;Y  
        .KeepWithNext = True fBRU4q=^T  
        .KeepTogether = True dzn[4  
        .PageBreakBefore = True %jnSJjcq  
        .OutlineLevel = wdOutlineLevelBodyText q#!]5
 
         `am]&0g^+(  
        .LeftIndent = CentimetersToPoints(0) Mpu8/i gX,  
        .RightIndent = CentimetersToPoints(0) afNqK~  
        .FirstLineIndent = CentimetersToPoints(0) w]
=q>p  
         Ihn+_Hu  
        .CharacterUnitLeftIndent = 0 rj> _L  
        .CharacterUnitRightIndent = 0 r[Zg$CW  
        .CharacterUnitFirstLineIndent = 0 Vp~c $y+  
         6 x8P}?  
        .LineUnitBefore = 1 h(1o!$EU2  
        .LineUnitAfter = 0.5 1@L|EFa  
         E3==gYCe*  
        .AutoAdjustRightIndent = False `R+I(Cb  
        .DisableLineHeightGrid = True JLFZy\  
        .FarEastLineBreakControl = True (@"5:M  
        .WordWrap = True = gbB)u-Pc  
    End With =%+O.  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False vk]vtjf&%  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll 9/_ F  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese ]|PDsb"e  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True e )?~  
    DoEvents ::eYd23
 
     d9kN@W  
    '表格标题 k}h\RCy%f  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") cTQ]0<9:e  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" !.}ZlA  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False jt?.g'  
    With ActiveDocument.Styles("QLNU表格标题").Font |NoTwK  
        .NameFarEast = "楷体" c>3AR17+5  
        .NameAscii = "Arial" SB#Y^!  
        .Name = "楷体" *%,{<C, Y  
        .Size = 10.5 1YxG<K]  
        .Bold = True %=GF  
        .Underline = wdUnderlineNone a
][QY1E@?  
        .Italic = wdUndefined 4IH,:w=ofN  
        .Subscript = wdUndefined wSwDhOX=  
        .Superscript = wdUndefined 1QPS=;|)  
        .Color = wdColorAutomatic xJS
K"  
    End With MrGq{,6C  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat W$b
QS!7y  
         *dw6>G0U  
        .LineSpacingRule = wdLineSpaceSingle XwNJHOaF  
        .Alignment = wdAlignParagraphCenter {Z^ G]@  
        .KeepWithNext = True %zCV>D  
        .KeepTogether = True j68_3zpl  
        .OutlineLevel = wdOutlineLevelBodyText 4Cn% h)w  
         isiehKkD
 
        .LeftIndent = CentimetersToPoints(0) DbH"e
 
        .RightIndent = CentimetersToPoints(0) O<EFm}Ae  
        .FirstLineIndent = CentimetersToPoints(0) _I1:|y  
         K,'v{wSr  
        .CharacterUnitLeftIndent = 0 Hz6tk9;w  
        .CharacterUnitRightIndent = 0 quGvq"Y>  
        .CharacterUnitFirstLineIndent = 0 HX&G  k  
         yoc;`hO-  
        .LineUnitBefore = 1 Sl7x>=  
        .LineUnitAfter = 0 y +2  
         -4IHs=`;I  
    End With swGp{wJ  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False ?!B
f# "TY  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll eKw!%97>  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese xq<3*Bcw  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True wTw)GV4  
    DoEvents M1  5_  
~ WO  
    '表格首行 ^}PG*h|  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") qV Df98  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False t6JM%  
    With ActiveDocument.Styles("QLNU表格首行").Font vz1yH%~E  
        .NameFarEast = "楷体" ].e4a;pt  
        .NameAscii = "Times New Roman" k~,({T<  
        .Name = "楷体" 1O{(9nNj  
        .Size = 9 &?)? w-$p  
        .Bold = True K
qI<#hUl  
        .Underline = wdUnderlineNone fKYRDGn  
        .Italic = wdUndefined bB->7.GXu  
        .Subscript = wdUndefined `z)q/;}fC  
        .Superscript = wdUndefined ?n0Z4 8%  
    End With |2t1m 6\j  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat lNwqWOWy  
        .LineSpacingRule = wdLineSpaceSingle `{GI^kgJ9  
        .Alignment = wdAlignParagraphCenter do$+ Eh  
         m2|%AD  
        .LeftIndent = CentimetersToPoints(0) XHER[8
l  
        .RightIndent = CentimetersToPoints(0) 5zf bI  
        .FirstLineIndent = CentimetersToPoints(0) Q2(K+ !Oe  
         K\3N_ztu  
         
v%2@M  
        .CharacterUnitLeftIndent = -0.5 rUL_=>3  
        .CharacterUnitRightIndent = -0.5 "7X[@xX@  
        .CharacterUnitFirstLineIndent = -0.5 iS]4F_|vd  
         iT2
{3t  
        .LineUnitBefore = 0 =}1)/gcM  
        .LineUnitAfter = 0
U-mZO7y!  
        .SpaceBefore = 0 CNkI9>L=W`  
        .SpaceAfter = 0 E psjaOmAF  
         Vhi4_~W3j]  
    End With N3rq8Rk  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False 7XU$O$C  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll rTmVHt  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese vi1 D<  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True %&[=% zc  
    DoEvents ^_rBEyz@  

Wq}Y|0c  
    '表格内容 vv FH (W  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") yPXa  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False RNMd,?dj  
    With ActiveDocument.Styles("QLNU表格内容").Font \Hs*46@TC  
        .NameFarEast = "楷体" %UXmWXF4$  
        .NameAscii = "Times New Roman" \a7
caT{  
        .Name = "楷体" )nM<qaI{  
        .Size = 9 r\." =l  
        .Bold = False m
Y1Gm|  
        .Underline = wdUnderlineNone _yN&+]c  
        .Italic = wdUndefined :H(w W   
        .Subscript = wdUndefined |T) $E  
        .Superscript = wdUndefined Z&![W@m@0N  
    End With H,q-*Kk  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat =Sp+$:q*  
        .LineSpacingRule = wdLineSpaceSingle S8Ec.]T  
        .Alignment = wdAlignParagraphCenter mQka?_if)  
         t3(~aH  
        .LeftIndent = CentimetersToPoints(0) 92 oUQ EK  
        .RightIndent = CentimetersToPoints(0) d"0=.sA  
        .FirstLineIndent = CentimetersToPoints(0) y`Nprwb  
         # X`t~Y'  
        .CharacterUnitLeftIndent = -0.5 N}\%r&KR=  
        .CharacterUnitRightIndent = -0.5 uK;&
L?WB  
        .CharacterUnitFirstLineIndent = -0.5 f'WRszrF  
        .LineUnitBefore = 0 uG){0%nX  
        .LineUnitAfter = 0 @ yj$  
        .SpaceBefore = 0 V7}]39m(s  
        .SpaceAfter = 0 s,;7m  
    End With nd#owjB  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False h; "pAE  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll ]p-xds#d  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese z55g'+Kab  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True >.o<}!FW  
    DoEvents xMr=t U1C  
iz-B)^8.  
    '图片标题 RE%25t|  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 8W"X dv{  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" kuI$VC  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False
5!Ho[  
    With ActiveDocument.Styles("QLNU图片标题").Font # H)\ts  
        .NameFarEast = "楷体" pt_]&3\e  
        .NameAscii = "Times New Roman" ]*]#I?&'Hx  
        .Name = "楷体" /:.p{y  
        .Size = 10.5 ~LF1$Cai  
        .Bold = True "969F(S$  
        .Underline = wdUnderlineNone b'1m 9T780  
        .Italic = wdUndefined F(DM$5z[  
        .Subscript = wdUndefined >.1d1#+b  
        .Superscript = wdUndefined _fM=J+  
        .Outline = False |QHIB?C?`  
        .Shadow = False e,DRQ2AU  
        .Color = wdColorAutomatic P
|tNmv[;  
    End With Is[n 7Q  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat i[4t`v'Dk  
        .LineSpacingRule = wdLineSpaceSingle nIEIb.-  
        .Alignment = wdAlignParagraphCenter m>{I>:sq  
         GvTA/zA  
        .KeepWithNext = wdUndefined n3" @E<rW  
        .KeepTogether = True '(fzznRH  
        .OutlineLevel = wdOutlineLevelBodyText K0'= O  
         'Y22 HVUX  
        .LeftIndent = CentimetersToPoints(0) m88(f2Ch  
        .RightIndent = CentimetersToPoints(0) 'TO/i:{\  
        .FirstLineIndent = CentimetersToPoints(0) dh-?
_|"  
         C1w6[f1+  
        .CharacterUnitLeftIndent = 0 u/.# zn@9h  
        .CharacterUnitRightIndent = 0 yW]>v>l:Eg  
        .CharacterUnitFirstLineIndent = 0 Q>g-xe 1  
         8O| w(z  
        .LineUnitBefore = 0 oH"VrS 6  
        .LineUnitAfter = 0 dthtWnB@  
    End With HXb^K  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False cof+iI~9O%  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll Sah!|9  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese OD6dMql  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True #9rCF 3P  
    DoEvents G{u(pC^  
b`fWT:?=  
    '目录项 8'-E>+L   
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") $[U:Dk}  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" ">v-CSHY  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False pqD lg  
    With ActiveDocument.Styles("QLNU目录项").Font cMoBYk  
        .NameFarEast = "黑体" Egi(z9|Pp  
        .NameAscii = "Times New Roman" xFA+ZjBC  
        .NameOther = "Times New Roman" XE S$V15  
        .Name = "黑体" r*kz`cJ  
        .Size = 10.5 R q .2  
        .Bold = False qoAJcr2uN  
        .Italic = wdUndefined U&o~U] rm  
        .Underline = wdUnderlineNone E^C [G)7n  
        .Color = wdColorAutomatic kIJ=]wU|v  
        .Superscript = wdUndefined t;b1<TLn0  
        .Subscript = wdUndefined ?`3G5at)9f  
    End With b>@fHmpwD  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat >>T,M@s-:  
         2v{42]XYf  
        .LineSpacingRule = wdLineSpaceSingle L~!Lq4]V\g  
        .Alignment = wdAlignParagraphLeft ?6V U4nK/*  
         ,Yu2K`  
        .WidowControl = False (YY!e2  
        .KeepWithNext = False T?KM}<$(O  
        .KeepTogether = False  ,8)aK
y  
        .PageBreakBefore = False MUi#3o\f  
        .NoLineNumber = False V(=3K
"j  
        .OutlineLevel = wdOutlineLevelBodyText Sd *7jW?  
         30{+gYA  
        .LeftIndent = CentimetersToPoints(0) 'NN3XyD
 
        .RightIndent = CentimetersToPoints(0) bo &QKK  
        .FirstLineIndent = CentimetersToPoints(0) @@5JuI-!  
         j)mi~i*U  
        .CharacterUnitLeftIndent = 0 "P!zu(h4  
        .CharacterUnitRightIndent = 0 gg&Dej2{  
        .CharacterUnitFirstLineIndent = 0 1Gw_S?$7  
         &\W5|*`x-  
        .LineUnitBefore = 0 "Z#MR`;&29  
        .LineUnitAfter = 0 \=j| ju3  
    End With $]~|W3\G  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False 4Ix~Feuph  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll T~naAP  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot {4B7a6
 
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese 50^CILKo7  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True H><! C  
    DoEvents 7,3 g{
8  
     5 J 7XVe>  
    '参考文献 JpZ3T~Wrf  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") = zRjb>  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" 'e*:eBoyb  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False q9B5>Ye)  
    With ActiveDocument.Styles("QLNU参考文献").Font mMtva}=*  
        .NameFarEast = "宋体" fiQ/ &]|5  
        .NameAscii = "Times New Roman" &
GaI  
        .NameOther = "Times New Roman" \79aG3MyK  
        .Name = "Times New Roman" vpP8'f.  
        .Size = 12 "Xj>dB1~  
        .Bold = False /rnP/X)T  
        .Italic = wdUndefined -ze@~Z@  
        .Subscript = wdUndefined \]qwD m/  
        .Superscript = wdUndefined fO}Y$y\q  
        .Underline = wdUnderlineNone -c p)aH)  
        .UnderlineColor = wdColorAutomatic A&C?|M?M  
        .Color = wdColorAutomatic "9OOyeKu%  
        .Engrave = False vFK!LeF%  
    End With N6h.zl&04  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat ;5:3 =F>ao  
         oRHWb_$"  
        .LineSpacingRule = wdLineSpaceExactly BFPy~5W  
        .LineSpacing = 16 t]6 4=  
        .Alignment = wdAlignParagraphLeft &t@|/~%[  
        .WidowControl = False kj@m5`G  
        .KeepWithNext = False 6BObV/S Jg  
        .KeepTogether = False 6Z!OD(/e  
        .PageBreakBefore = False ~- BIUZ;  
        .OutlineLevel = wdOutlineLevelBodyText @O| lA  
         V&R_A~<T  
        .LeftIndent = CentimetersToPoints(0) *]e 9/f  
        .RightIndent = CentimetersToPoints(0) E@8&#<  
        .FirstLineIndent = CentimetersToPoints(0) t Z]b0T(e  
         ]64?S0p1c!  
        .CharacterUnitLeftIndent = 0 6D29s]h2  
        .CharacterUnitRightIndent = 0 fH 0&Wc3yC  
        .CharacterUnitFirstLineIndent = -2 ee*E:Ltz\  
         Ql9 )  
        .LineUnitBefore = 0 `_E@cZ4  
        .LineUnitAfter = 0 K~14;  
        .SpaceBefore = 0 18JAca8Zs  
        .SpaceAfter = 0 T;pe7"  
         Jm3iYR+,  
    End With k7=mxXF  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False ca"20NQ)  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll Ombvp;  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS ktiC*|fd  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True 2^fSC`!  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese cxxrvP-  
    DoEvents o%l|16DR  
RQW<Sp~  
    ' '+iqbcUd,  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") ;mXw4_{  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" iYz!:TxP  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False _;u@xl=  
    With ActiveDocument.Styles("QLNU论文题目").Font YvPs   
        .NameFarEast = "黑体" aWMEo`O%  
        .NameAscii = "Arial Black" R|K#nh  
        .NameOther = "Arial Black" \q:PU6q  
        .Name = "Arial Black" FQw@@  
        .Size = 16 ' 4Kf  
        .Bold = False F}4jm,w  
        .Italic = wdUndefined S*a_  
        .Superscript = wdUndefined 7_]Bu<{f  
        .Subscript = wdUndefined ?q hme   
        .Underline = wdUnderlineNone CDGN}Q2_  
        .UnderlineColor = wdColorAutomatic ("_tML 8/p  
        .Color = wdColorAutomatic |^t8ct?x~  
z/t+t_y  
    End With }zqYn`ffD  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat Z$ 6yB  
        .LineSpacingRule = wdLineSpaceSingle QE~#eo  
        .Alignment = wdAlignParagraphCenter Jtl[9qe#]  
        .WidowControl = True YojYb]y+j  
        .KeepWithNext = True [ FNA:  
        .KeepTogether = True pu5-=QN  
        .PageBreakBefore = True BCw0kq@  
        .NoLineNumber = False 
A!p70km2  
        .OutlineLevel = wdOutlineLevelBodyText xyRZ v]K1  
         y0cB@pWp  
        .LeftIndent = CentimetersToPoints(0) yWZ%|K~$  
        .RightIndent = CentimetersToPoints(0) ?iaD;:'qE  
        .FirstLineIndent = CentimetersToPoints(0) e]u3[ao  
         j~`rc2n%  
        .CharacterUnitLeftIndent = 0 -{a&Zkz>V  
        .CharacterUnitRightIndent = 0 q/^&si  
        .CharacterUnitFirstLineIndent = 0 ;T?4=15c  
         <rFKJ^B  
        .LineUnitBefore = 1 j:J{m0  
        .LineUnitAfter = 1 3&7$N#v  
         Pt8 U0)i)  
        .BaseLineAlignment = wdBaselineAlignAuto ,XmyC7y<  
    End With 7VKTI:5y  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False "~aCW~  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll 4&^BcWqA*f  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS NT L`9b  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True 9 e0Oj3!B  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese *m`KY)b=l  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True ?o.Q  
    DoEvents \&5t@sC  
     jl~ ?I*Gr  
    '中文摘要 ~U_,z)<`)c  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") %yP*Vp,W  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" NR Z>03w  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False O)9{qU:[b  
    With ActiveDocument.Styles("QLNU中文摘要").Font \F8*HPM=*  
        .NameFarEast = "宋体" @M]7',2"  
        .NameAscii = "Times New Roman" Dv[ 35[Yh  
        .NameOther = "Times New Roman" 2?nhkast#=  
        .Name = "Times New Roman" MYF6tZ*  
        .Size = 12 %
2TjG  
        .Bold = wdUndefined A+bU{oLr  
        .Superscript = wdUndefined . [5{  
        .Subscript = wdUndefined 8Qi@z Jq,  
        .Italic = wdUndefined [";<YR7iRN  
        .Underline = wdUnderlineNone mqb6MnK -  
        .UnderlineColor = wdColorAutomatic ]BBL=$*  
        .Color = wdColorAutomatic ~$Pz`amT|  
    End With nK5FPFz8  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat #F!'B |n  
        .LineSpacingRule = wdLineSpaceExactly >$p|W~x  
        .LineSpacing = 20 ^PI8Bvs>j  
        .Alignment = wdAlignParagraphLeft gv,8Wo  
         :s`\j
J  
        .WidowControl = False PK|"+I0  
        .KeepWithNext = False |HMpVT-;j  
        .KeepTogether = True 9?#L/  
        .PageBreakBefore = False _ya_Jf*  
        .NoLineNumber = False *WpDavovyB  
        .OutlineLevel = wdOutlineLevelBodyText -P|st;?#  
         J,j!  
        .LeftIndent = CentimetersToPoints(0) Ye) F{WqZ#  
        .RightIndent = CentimetersToPoints(0) 8^%Nl `_2B  
        .FirstLineIndent = CentimetersToPoints(0) -% Z?rn2  
         mo- Y %  
        .CharacterUnitLeftIndent = 0 U>s$}Y:+Z  
        .CharacterUnitRightIndent = 0 `+O7IyTMA  
        .CharacterUnitFirstLineIndent = 2 &ZUV=q%g9n  
        .LineUnitBefore = 0 yZ]u{LJS  
        .LineUnitAfter = 0 o$_,2$>mn  
         5rx;?yvn  
    End With dSm; e_s  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False ]M5w!O!  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll BV01&.<|  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS ESt@%7.F  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True &o$Pwk\p/  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese ',P E25Z  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True Zjx:1c= b  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete 6!^&]4  
    DoEvents PK<+tIm\  
     uRfFPOYH  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") MUfhk)"  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" +nT(>RJR  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False ,wEcRN w  
    With ActiveDocument.Styles("QLNU英文标题").Font I,d5Y3mC  
        .NameFarEast = "黑体" aZ{]t:]  
        .NameAscii = "Arial Narrow"  d r iw\  
        .Name = "Arial Narrow" O$,MdhyXC  
        .Size = 16 =v ZF/r  
        .Bold = True BNe6q[ )W~  
        .Bold = wdUndefined {`M 'ruy.%  
        .Superscript = wdUndefined amH..D7_>  
        .Subscript = wdUndefined N9A#@c0O  
        .Italic = wdUndefined xf ]_@T;  
         `c~J&@|  
        .Underline = wdUnderlineNone I@<\DltPi  
        .UnderlineColor = wdColorAutomatic d~U}IMj  
        .StrikeThrough = False HRxA0y=  
        .DoubleStrikeThrough = False Au-h#YV  
    End With K6l{wyMb|  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat kL1St F#p  
        .LineSpacingRule = wdLineSpaceSingle vMB`TpZ  
        .Alignment = wdAlignParagraphCenter oyeJ"E2  
        .WidowControl = True xLmgr72D  
        .KeepWithNext = False ,aBo
p#  
        .KeepTogether = False ;5 JzrbtL  
        .PageBreakBefore = False &?xZHr`  
        .NoLineNumber = False l4+Bs!i`  
        .FirstLineIndent = CentimetersToPoints(0) YXr"  
        .OutlineLevel = wdOutlineLevelBodyText @XL5$k[Y  
         ^N\$oV$  
        .LeftIndent = CentimetersToPoints(0) -@EAL:kY  
        .RightIndent = CentimetersToPoints(0) c$
skLz  
        .FirstLineIndent = CentimetersToPoints(0) M$0-!$RY  
         n6Qsug$z  
        .CharacterUnitLeftIndent = 0 yMoV|U6  
        .CharacterUnitRightIndent = 0 lEe<!B$d"  
        .CharacterUnitFirstLineIndent = 0 e7^B3FOx  
         GnzKDDH '  
        .LineUnitBefore = 1 ^<VJ8jk<  
        .LineUnitAfter = 1 oX #WT  
         MQ{.%  
    End With chF@',9t  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False efu'PfZ`&  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll .sOEqwO}>  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS vz-O2B
_u  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True C[xY 0<^B  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese nF!6  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True -]K9sy)I  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete [R~`6  
    DoEvents n$oHr  
3</gK$f2  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") #7}1W[y9}l  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" ?'$Y
j>R6  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False #{BHH;J+  
    With ActiveDocument.Styles("QLNU英文摘要").Font 86AZ)UP2D  
        .NameFarEast = "宋体" /:OSql5K*<  
        .NameAscii = "Arial" shAoib?Kw:  
        .NameOther = "Arial" ~d072qUos  
        .Name = "Arial" uVn"'p-  
        .Size = 12 %P2l@}?a  
        .Bold = wdUndefined }; ;Thfd  
        .Italic = wdUndefined X5gI' u  
        .Superscript = wdUndefined *VP jBzcH  
        .Subscript = wdUndefined :ENdF `nC  
    End With TC+
L\7   
     dRD t.U!T  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat (L3Etan4RE  
         lEWF~L5=:  
        .LineSpacingRule = wdLineSpaceExactly RU_wr<  
        .LineSpacing = 20 _sGmkJi]  
         Oe/\@f0bLT  
        .Alignment = wdAlignParagraphJustify ;0c -+,  
        
e(~9JP9  
        .WidowControl = False Gjh8>(  
        .KeepWithNext = False V|n}v?f_q  
        .KeepTogether = False = W_ Pph  
        .PageBreakBefore = False mhDC1lXF  
        .NoLineNumber = False $ rU"Krf67  
         G (o9*m1  
        .OutlineLevel = wdOutlineLevelBodyText `,lry7]  
         BHZCM^  
        .LeftIndent = CentimetersToPoints(0) Jb (CH4|7  
        .RightIndent = CentimetersToPoints(0) GWvw<`4  
        .FirstLineIndent = CentimetersToPoints(0) W#.+C6/  
         3\B28m  
        .CharacterUnitLeftIndent = 0 C3"5XR_Ov  
        .CharacterUnitRightIndent = 0 -E(0}\  
        .CharacterUnitFirstLineIndent = 2 -0>gq$/N=^  
         P`xQL  
        .LineUnitBefore = 0 qTuQ]*[-  
        .LineUnitAfter = 1 f"}g5eg+  
         ?~p]Ey}~9  
    End With O ;dtz\  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False 7B)m/%>3s  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll  UqwU3  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS f~0CpB*X  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False 8h%oJ4da  
    DoEvents #@3&1}J/  
;LXwW(_6d  
    Options.Pagination = True D,l&^diz  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." <Cbi5DtR  
    DoEvents '=X)0
GG  
    ActiveDocument.Repaginate nR(v~_y[V  
j*'+f~A  
End Sub ,|RN?1?U  
~Bi>T15e  
L<62-+e`  

姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 .mbqsb]&Y  
~jR4%VF  

引用

引用第20楼newport93于06-14-2010 13:47发表的  : omM OA  
teKx^ 'c'  
老五，I 服了U。 'CMbqLk#  
ZccvZl ;b  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 TT@U_^o  

Fd86P.Df