Dim bContinue As Boolean
RQ;}+S  
5_[we1$P  
Dim regEX As New RegExp S7h?tR*u  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 FT Ytf4t  
1a tQ9  
Dim LastTitle0String As String, LastTitle0No As Long r E&}B5PN=  
Dim LastTitle1String As String, LastTitle1No As Long mIW /x/I  
Dim LastTitle2String As String, LastTitle2No As Long p C/13|I  
Dim LastTitle3String As String, LastTitle3No As Long mO0}Go8  
Dim LastTitle4String As String, LastTitle4No As Long `6\u!#  
Dim LastTitle5String As String, LastTitle5No As Long q^eLbivVE  
Dim LastTabelString As String, LastTableNo As Long U.pGp]\Q)G  
Dim LastFigureString As String, LastFigureNo As Long V|vXxWm/  
:I(d-,C  
Dim strSeperator As String k9!euj&  
1'!%$D  
Sub ConvertWidth(fTEXT As String, rText As String) Lk ]W?  
        Selection.Find.ClearFormatting 6FFM-9*|[  
        Selection.Find.Replacement.ClearFormatting ftaa
~h*  
        Selection.Find.Wrap = wdFindContinue fn, YH  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText 71c(Nw~iQ  
        DoEvents 6){nu rDBG  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True ,FK.8c6g  
End Sub 7qLB9r  
PB;j4  
Sub ClearDomain() #]*]qdQWV^  
        With Selection.Find NJmyp!8  
            .ClearFormatting >^GAfvW  
            .Replacement.ClearFormatting "V<WC"  
            .Wrap = wdFindContinue oIG
F=x,e8  
            Me.txtStatus.Text = "清除所有域代码" 589P$2e1X  
            DoEvents t[p/65L>8  
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False qkA8q@Y4|  
        End With Gx; -1  
End Sub Lt_A&  
|e91KmiqJ  
Private Sub cmdCheck_Click() jGEmf<q&u  
    bContinue = True 6
T6UIq  
    Dim NoSeries1(1 To 16) As String ,*Z/3at}5M  
    Dim NoSeries2(1 To 16) As String d Z}|G-:  
    Dim NoSeries5(1 To 16) As String 4l@aga  
    Dim NoSeriesRM(1 To 16) As String J]5ZWo%  
    Dim paraTotal As Long, ParaText As String 4"s/T0C
 
    Dim ttString As String, ttNo As String ke2}@|?t  
     3|(3jIa  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long
'iX y?l  
|4!G@-2V:I  
    Me.txtStatus.Visible = True ltlnXjRUv  
    Me.lbParaType.Visible = True TGZr [  
    Me.cmdCheck.Enabled = False +R',
$YzD  
     v9 8s78  
     ss4YeZa  
     "h:#'y$V  
     XB<Q A>dLh  
    Dim ParaType As String, rText As String P=m l;xp  
     NEt_UcC  
    Selection.WholeStory df{6!}/(  
    Selection.NoProofing = True *})Np0k  
     !X\aZ{}Q  
    tm1 = Now kd OIL2T  
     N
>IkK*v  
        ActiveWindow.View.Type = wdNormalView v+W4wD  
     &#;lmYyaui  
    NoSeries1(1) = "一" wPvYnhr|G-  
    NoSeries1(2) = "二" %']`t-N8  
    NoSeries1(3) = "三" NY/-9W5T4  
    NoSeries1(4) = "四" U
y<n7*H  
    NoSeries1(5) = "五" 1IN^,A]r2h  
    NoSeries1(6) = "六" )CD-c z6n  
    NoSeries1(7) = "七" N~%~Q  
    NoSeries1(8) = "八" +8.1cDEH\  
    NoSeries1(9) = "九" %FJB9?9=|  
    NoSeries1(10) = "十" I+rLKGZC  
    NoSeries1(11) = "十一" H^JFPvEc  
    NoSeries1(12) = "十二" KeWIC,kq  
    NoSeries1(13) = "十三" ]Y3s5#n  
    NoSeries1(14) = "十四" hR,5U=+M7  
    NoSeries1(15) = "十五" |XJ|vQGU  
    NoSeries1(16) = "十六" 2XrYm"6w  
     m0N{%Mf-  
    NoSeries2(1) = "㈠" w01u~"E  
    NoSeries2(2) = "㈡" >NZJ-:t  
    NoSeries2(3) = "㈢" nTHCb>,vM  
    NoSeries2(4) = "㈣" ZOy^TR  
    NoSeries2(5) = "㈤" G|j8iV O  
    NoSeries2(6) = "㈥" Go !{T  
    NoSeries2(7) = "㈦" X<d`!,bn@  
    NoSeries2(8) = "㈧"  #zg"E<  
    NoSeries2(9) = "㈨" (H- kWT  
    NoSeries2(10) = "㈩" S"%W^)mZ  
     \J6&Z13Q  
    NoSeries5(1) = "①" OE2r2ad  
    NoSeries5(1) = "②" )D"2Q:  
    NoSeries5(3) = "③" )PvB^n  
    NoSeries5(4) = "④" _.xicov  
    NoSeries5(5) = "⑤" toel!+  
    NoSeries5(6) = "⑥" gp4@6HuUd  
    NoSeries5(7) = "⑦" ?&bB?mg\  
    NoSeries5(8) = "⑧"  g:?p/L  
    NoSeries5(9) = "⑨" -*;JUSGh  
    NoSeries5(10) = "⑩" 5}:`CC2,S~  
     Jp(CBCG{F  
     }^azj>p5  
    NoSeriesRM(1) = "I" d_ji ..T  
    NoSeriesRM(2) = "II" Rw|P$dbu  
    NoSeriesRM(3) = "III" +0M0g_sk  
    NoSeriesRM(4) = "IV" s,~g| I\  
    NoSeriesRM(5) = "V" "]B%V!@  
    NoSeriesRM(6) = "VI" fz<GPw  
    NoSeriesRM(7) = "VII" @"n]v)[4  
    NoSeriesRM(8) = "VIII" tHFBL M  
    NoSeriesRM(9) = "IX" !Aw.)<teW  
    NoSeriesRM(10) = "X" #,;Q|)AD:e  
    NoSeriesRM(11) = "XI" SA{5A 1  
    NoSeriesRM(12) = "XII" ORhvo,.u  
    NoSeriesRM(13) = "XIII" vOU9[n N[  
    NoSeriesRM(14) = "XIV" z0?IQzR^T  
    NoSeriesRM(15) = "XV" } ^WmCX2a  
    NoSeriesRM(16) = "XVI" Wo~;h(6  
     Zn6u6<O=  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) $j "BHpN  
     4E@_Fn_#  
    If i = vbNo Then RU% 4~WC  
        Exit Sub pQk@ +r  
    End If U3|9a8^H  
     t>eeOWk3  
    If Me.chkSuper.Value Then ;]T;mb>  
        Me.txtStatus.Text = "检查修改所有的上标格式" !rff/0/x"  
     %jxeh.B3B  
        CheckSuperScript 5RR4jX]  
         "f>`ZFp^  
    End If n7L|XkaQ  
     N;* wd<  
    If Me.chkStyle.Value Then Y,{pG]B$w  
        Me.txtStatus.Text = "设置样式，请稍候...." ,OBJ>_5  
        DoEvents MbXtmQ%C8  
        CeateOrModifyStyle 5?|yYQM0tK  
    End If  e,T^
8_>  
     i lwIqj  
     @j=rSS  
     =$uSa7t#  
    ClearDomain %wN*Hu~E
  
         nc;iJ/\4  
     R,m|+[sl  
     Y/y`c-VO  
    If Me.chkLIST.Value Then gq050Bl)  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" /#!
1  
     'EG/)0t`  
        ConvertListToOrdinary t"X^|!hKIF  
    End If -(9TM*)O  
     (PSL[P  
     m=V69 a#  
    Dim pType As String, trimpTEXT As String ?fQ8Ff  
    If Me.chkNum.Value = True Then 13f'zx(AO  
        Me.txtStatus.Text = "转换全角数字形式为半角" b&*N
 
        ConvertWidth "１", "1" K6N+0#  
        DoEvents a'?V:3 ]  
        ConvertWidth "２", "2" bCV_jR+  
        DoEvents v>sjS3  
        ConvertWidth "３", "3" L+_ JKc  
        DoEvents ~;0W +  
        ConvertWidth "４", "4" a=M/0N{!  
        DoEvents UL`%Xx  
        ConvertWidth "５", "5" YA~`R~9d  
        DoEvents 5QZ}KNJ|t~  
        ConvertWidth "６", "6" t_id/  
        DoEvents kn}bb*eZ  
        ConvertWidth "７", "7" f s2}a  
        DoEvents HEF\TH9  
        ConvertWidth "８", "8" U$ LI~XZM  
        DoEvents d?)Ic1][  
        ConvertWidth "９", "9" h=dFSK?*D  
        DoEvents ,Gy2$mglB  
        ConvertWidth "０", "0" ebhV;Q.  
        DoEvents drS>~lSxB  
        ConvertWidth "ａ", "a" TsY nsLQY  
        DoEvents $~NB .SY  
        ConvertWidth "ｂ", "b" X08[,P#I  
        DoEvents r)oR`\7  
        ConvertWidth "ｃ", "c" #&ayWef  
        DoEvents K k|mV&3J  
        ConvertWidth "ｄ", "d" -V=,x3Zew  
        DoEvents `IJTO_  
        ConvertWidth "ｅ", "e" o>A']+`Eu  
        DoEvents smHQ'4x9  
        ConvertWidth "ｆ", "f" vPD%5AJN  
        DoEvents {2LV0:k2  
        ConvertWidth "ｇ", "g" pI( H7 (  
        DoEvents >)VWXv0  
        ConvertWidth "ｈ", "h" [midNC+,  
        DoEvents iVA=D&eZ  
        ConvertWidth "ｉ", "i" -lb%X3`  
        DoEvents d^I:{Ii'  
        ConvertWidth "ｊ", "j"
J9lG0  
        DoEvents na_Wp^;  
        ConvertWidth "ｋ", "k" Z
5,"KhB]  
        DoEvents fwv.^kx  
        ConvertWidth "ｌ", "l" yQ| V7G  
        DoEvents x]vyt}oCmk  
        ConvertWidth "ｍ", "m" x$.0:jP/s  
        DoEvents  yHn8t]{  
        ConvertWidth "ｎ", "n" .7> g8  
        ConvertWidth "ｏ", "o" IgPU^?sp  
        ConvertWidth "ｐ", "p"
G!7A]s>C  
        ConvertWidth "ｑ", "q" tkW7wP;  
        ConvertWidth "ｒ", "r" >f(M5v(D\  
        ConvertWidth "ｓ", "s" '}F..w/  
        ConvertWidth "ｔ", "t" "=yz
}~,  
        ConvertWidth "ｕ", "u" 9b)'vr*Hy7  
        ConvertWidth "ｖ", "v" zA8
Tp8(  
        ConvertWidth "ｗ", "w" D;6C2>U~L  
        ConvertWidth "ｘ", "x"  jRhRw;  
        ConvertWidth "ｙ", "y" _^`TG]F  
        ConvertWidth "ｚ", "z" gQuU_dbXSB  
        ConvertWidth "Ａ", "A" ESnir6HoU  
        ConvertWidth "Ｂ", "B" n,Q^M$mS0  
        ConvertWidth "Ｃ", "C" zin'&G>l  
        ConvertWidth "Ｄ", "D" 69N8COLB  
        ConvertWidth "Ｅ", "E" cpM]APF-  
        ConvertWidth "Ｆ", "F" fhmBKeFdV  
        ConvertWidth "Ｇ", "G" ~z7
Fz"o<  
        ConvertWidth "Ｈ", "H" U3t)yr h  
        ConvertWidth "Ｉ", "I" s"x(i  
        ConvertWidth "Ｊ", "J" Pa"[&{:  
        ConvertWidth "Ｋ", "K" h`4!Qv  
        ConvertWidth "Ｌ", "L" /@0  
        ConvertWidth "Ｍ", "M" M\r=i>(cu  
        ConvertWidth "Ｎ", "N" UD^
=@?^7  
        ConvertWidth "Ｏ", "O" (>`S{L C>s  
        ConvertWidth "Ｐ", "P" `h<>_zpjY  
        ConvertWidth "Ｑ", "Q" [#+klP$  
        ConvertWidth "Ｒ", "R" LXm@h  
        ConvertWidth "Ｓ", "S" w$jq2?l  
        ConvertWidth "Ｔ", "T" cX|(/h, W/  
        ConvertWidth "Ｕ", "U" )u
]1j@Id  
        ConvertWidth "Ｖ", "V" c"zE  
        ConvertWidth "Ｗ", "W" ZV$!dHW/  
        ConvertWidth "Ｘ", "X" 60r0O5=|Fl  
        ConvertWidth "Ｙ", "Y" nKe|xP  
        ConvertWidth "Ｚ", "Z" 6o~g3{O
w  
        ConvertWidth "^l", "^p" 8" (j_~;  
        ConvertWidth "（", "(" M>u84|`  
        ConvertWidth "）", ")" sn8r`59C  
     ]Ryg}DOQ  
    End If yXBWu=w3`O  
[S?`OF12  
    With ActiveDocument U[6 ~ad a  
        Dim tbl As Table tD6ukK1x  
        For Each tbl In .Tables `Wp y6o  
            tbl.Rows.Alignment = wdAlignRowCenter G4G<Ow)`  
            tbl.Range.Font.NameFarEast = "楷体" j){0>O.V  
            tbl.Range.Font.NameAscii = "Times New Roman" "MgTfUIiyD  
            tbl.Range.Font.Size = 10.5 tLM/STb6  
        Next U%KsD 4B  
        Set tbl = Nothing )npvy>C'(  
    End With O;m[  
     |v:fP;zc  
     9XX:_9|I  
    With ActiveDocument )zu m.6pT  
         a@m  64l)  
        For i = 1 To .TablesOfContents.Count I|_U|H!`  
            .TablesOfContents(i).Delete spTI
hZ  
        Next GSVLZF'+  
         __[bKd.  
         7A{,)Y/w ^  
         Y/qs\c+  
        paraTotal = .Paragraphs.Count N
UX$)c  
        paraCounter = 1 @Op7OF Y%  
         SeBl*V
  
        LastTitle0No = 0 u\u6<[>P  
        LastTitle1No = 0 3#Xv))w1  
        LastTitle2No = 0 Gg6<4T1  
        LastTitle3No = 0 '[Bok=$B)  
        LastTitle4No = 0 wSG!.Ejc7  
        LastTableNo = 0 WTUC\}#E\  
        LastFigureNo = 0 +d=8/3O%  
         _A6e|(.ll  
        Dim Sec As Long )V9 wU1.  
         %QQJSake|  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) Xe@:Aun  
        If Sec = 0 Then 5wbR}`8  
            Exit Sub i?6#>;f  
        End If 9HZR%s[J  
         Em/? 4&
 
        k = 0 6d;RtCENo  
        Do While (paraCounter < paraTotal) And bContinue 'v%v*Ujf[  
            k = k + 1 !XT2'6nu  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then \6vr)1~N>  
                Exit Do -8z@FLUK-  
            End If UGQHwz  
            paraCounter = paraCounter + 1 !uAqY\Is  
            If k Mod 20 = 0 Then \8/$ZEom  
                Me.lbCounter.Caption = paraCounter HlXEU $e  
                DoEvents :Kk+wp}f#  
            End If _o?[0E  
        Loop GyGF<%nq  
         eV(   
         h:4F
?'W  
        Do While (paraCounter < paraTotal) And bContinue vd0uI#g
%#  
             s\q m  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) 5N$O  
            ShapeHeight = 0 c='uyx  
            ShapeWidth = 0 Z!I#Z2X  
           ~U1M-<IX  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth jB3Rue:+g  
             t ]P^6jw'  
            Select Case ParaType 7a4h7/  
                Case "【】表格内容" N==Y]Z$G  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" 2(2
5IYMS8  
                Case "章" $8fJDN  
                    LastTitle0No = LastTitle0No + 1 g.COKA  
                    '新一章开始，复位其下属标题编号 =[YjIWr#o  
                    LastTitle1No = 0 BZk0B?  
                    LastTitle2No = 0 :F?L,I,K  
                    LastTitle3No = 0 SFVqUg3"Z  
                    LastTitle4No = 0 !%>(O@~"|  
                     I?KGb:]|  
                    k = Val(ttNo) ,XsBm+Q(  
                    If k = 0 Then '非数字编号章节 }=s64O9j  
                        If ttNo <> NoSeries1(LastTitle0No) Then +]0/:
\(B  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString o| 9Mj71  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText Zn]!*}  
                        End If InB'Ag"  
                    Else y
hNy  
                        If Val(ttNo) <> LastTitle0No Then oe{,-<yck  
                            rText = "第" & LastTitle0No & ttString = o_zsDv  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText Kk6i
  
                        End If A8j$c~  
                         YkI_i(  
                    End If .CEl{fofj  
                     ? ;$f"Wl  
                    '章段落设置 LteZ7e  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 II{"6YI>  
                    .Paragraphs(paraCounter).Style = "QLNU章节" 5]Y?NN,GR  
                    .Paragraphs(paraCounter).Range.Select quiX"lV(  
                    Selection.EndKey unit:=wdLine \'>d.'d  
                    tc = Replace(rText, vbCr, "") #B hcW"@  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False A(ZtA[G  
                Case "一级标题" !Er)|YP  
                    LastTitle1No = LastTitle1No + 1 M6z$*?<  
                    '新一级标题开始，复位其下属标题编号 @'JA3V}  
                    LastTitle2No = 0 h&<>nK   
                    LastTitle3No = 0 m-HBoN  
                    LastTitle4No = 0 f|&,SI?  
                     U_@Dn[/:  
                    If ttNo <> NoSeries1(LastTitle1No) Then ZW`wA2R0   
                            rText = NoSeries1(LastTitle1No) & "、" & ttString P5o

Yv  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText r WN%Tai-  
                    End If C*Wyw]:r  
                   xQ>T.nP}1  
                     HD;l1W)  
                    '一级标题段落设置  格式：一、标题内容  t`'5|  
                    .Paragraphs(paraCounter).Range.Text = rText 4[ =C,5r  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" Frum@n  
                    .Paragraphs(paraCounter).Range.Select !.[H!-V.  
                    Selection.EndKey unit:=wdLine =90)=Pxd  
                    tc = Replace(rText, vbCr, "") RpU.v `
 
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False PG3,MCf:  
                Case "二级标题" 2\9OT>  
                    LastTitle2No = LastTitle2No + 1 vec4R )S  
                    '新二级标题开始，复位其下属标题编号 +/!y#&C&*  
                    LastTitle3No = 0 .t$1B5  
                    LastTitle4No = 0 {@ Z%6%'9  
                     `0Xs!f  
                    If ttNo <> NoSeries1(LastTitle2No) Then [
Ru( H  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString g!
!:o(k  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText [*^rH:  
                    End If BH2JH>'X  
                     :KBy(}V  
                    '二级标题段落设置 格式：(一)、标题内容 ETrL3W<  
                    .Paragraphs(paraCounter).Range.Text = rText SVqKG+{My  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" c>L#(D\\  
                     N`NW*~  
                    .Paragraphs(paraCounter).Range.Select @T&w nk  
                    Selection.EndKey unit:=wdLine #oxP
,LR  
                    tc = Replace(rText, vbCr, "") ~o8x3`CoF  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False <E\vc6n  
                 X?n( $z/{  
                Case "三级标题" jDCf]NvOPM  
                    LastTitle3No = LastTitle3No + 1 q;9OqArq  
                    '新三级标题开始，复位其下属标题编号 :zsMkdU  
                    LastTitle4No = 0 T!QAcO  
                     K'S\$  
                    If Val(ttNo) <> LastTitle3No Then TQ25"bWi  
                            rText = LastTitle3No & ". " & ttString O*m9qF<  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText }W5
~89"  
                         :p.f zL6X  
                    End If 8eD/9PD=F  
                    '三级标题段落设置 格式：1. 标题内容 P7 R}oO_n:  
                    .Paragraphs(paraCounter).Range.Text = rText 7 MG<!U  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" -Rj3cx  
                    .Paragraphs(paraCounter).Range.Select e+Sq&H!@  
                    Selection.EndKey unit:=wdLine betTAbF  
                    tc = Replace(rText, vbCr, "") $im6v  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False TJz} 8-#t  
                Case "四级标题" </23* n]  
                    LastTitle4No = LastTitle4No + 1 _!^2A3c<  
                     +"JQ5~7  
                    If Val(ttNo) <> LastTitle4No Then yI .hN  
                            rText = "(" & LastTitle4No & "). " & ttString Mb(hdS90  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText Hzojv<c  
                     KKM!($A  
                    End If (n4Uc308  
                    '四级标题段落设置 格式：(1). 标题内容 y{J7^o(_~  
                    .Paragraphs(paraCounter).Range.Text = rText {h~<!
sEX  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题" -\V;Gw8mD  
                    .Paragraphs(paraCounter).Range.Select jYnP)xX ;  
                    Selection.EndKey unit:=wdLine tW"s^r=95  
                    tc = Replace(rText, vbCr, "") QUz_2rN^  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False ]vZ}4Xno  
                 =7Sw29u<  
                Case "表格标题" ![/
 QW  
                    LastTableNo = LastTableNo + 1 ew*;mQd  
                     Hw%lT}[O  
                    If ttNo <> CStr(LastTableNo) Then KBwY _  
                            rText = "表" & LastTableNo & ". " & ttString n[  
                            ErrMsg.AddItem "表格编号错误：" & ParaText x)-n[Fu  
                   RKwuvVI  
                    End If NU.YL1  
                     i?|b:lcV  
                    '表格名称段落设置 格式：表1. 表格名称 qWb8"  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" z i3gE$7  
                    xe = Replace(rText, vbCr, "") AJ)N?s-=  
                    .Paragraphs(paraCounter).Range.Select YbP}d&L  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 |#x]/AXa0/  
                    Selection.Range.Text = xe
06>+loBG  
                    Selection.EndKey 9[Xe|5?c  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False c{wob%!>  
                 Rj~y#m  
                Case "表格首行" &ej|DM6  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" 884-\M"h  
                Case "图片标题" ts;C:.X  
                    LastFigureNo = LastFigureNo + 1 4\(|V fy  
                     %^(} fu  
                    If ttNo <> CStr(LastFigureNo) Then ;-!O+c  
                            rText = "图" & LastFigureNo & ". " & ttString hXQo>t-$  
                            ErrMsg.AddItem "表格编号错误：" & ParaText s Vg89I&  
                   wo_iCjmK  
                    End If Lr<?eWdCwJ  
                    '图片名称段落设置 格式：图1. 图名称 @S?D }myD  
                    .Paragraphs(paraCounter).Range.Text = rText vKTCS  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" uEDvdd#V.  
                    .Paragraphs(paraCounter).Range.Select d2tJ=.DI  
                    Selection.EndKey unit:=wdLine !sav~dB)  
                    xe = Replace(rText, vbCr, "") fx= %e  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False RbJbVFz8C  
                Case "正文" G33'Cgo:,  
                     '正文名称段落设置 iK9#{1BpML  
                    .Paragraphs(paraCounter).Style = "QLNU正文" f^ 6da6Z  
               Case "文献条目" T#D*B]oZ}  
                    With .Paragraphs(paraCounter) yI8 / m|  
                        '.Range.Select 7` IO mTk  
                        'Selection.ClearFormatting 4/E>k <MA  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” NA9ss  
                        .Style = "QLNU参考文献" yrV]I(Xe  
                    End With 'T*h0xX  
               Case "图表注解" 1eMaKT_=  
                    With .Paragraphs(paraCounter) f}{Oj-:"CC  
                        .Range.Font.NameFarEast = "楷体" m
9Hdg^L  
                        .Range.Font.NameAscii = "Times New Roman" m,#Us  
                        .Range.Font.Size = 9 '小5号字 95oh}c  
                         XMm(D!6  
                        .Alignment = wdAlignParagraphCenter #4ii!ev  
                        .LeftIndent = 0 y\}
<N6  
                        .RightIndent = 0 Y\ {&chuF  
                        .FirstLineIndent = 0 ]hlYmT  
                        .LineSpacing = 12 4Q^
i"jT  
                        .LineSpacingRule = wdLineSpaceExactly o&Sv2"2  
                        .LineUnitAfter = 0 +V/mV7FK  
                        .LineUnitBefore = 0 ,=y8[(h  
                        .OutlineLevel = wdOutlineLevelBodyText &1ss @-  
                        .PageBreakBefore = False 'kk B>g7B  
                        .RightIndent = 0 |n\(I$  
                        .WordWrap = True Gkz~xQy1T  
                        .LineUnitAfter = 0.5 81Ityd-}  
                         =pn(5
6  
                    End With $jL+15^N0+  
                Case Else $iOkn|~<@W  
                    '不作处理 0A.9<&Lod  
            End Select ~+Ows  
             VMV~K7%0  
            '含有inlineshape的段落处理 CU a`#  
            If ShapeHeight > 30 Then bTc'E#  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 %y R~dt'  
            End If meR5E?Fm  
             zq4)Uab*  
            If (ShapeWidth + ShapeHeight) > 150 Then PZSi}j/  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" 7"$9js
2  
            End If q%c"`u/v/  
             #(d /A<  
            '段落计数器递 LKI2R_|n  
            paraCounter = paraCounter + 1 6Z68n  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter H"%SzU  
            Me.txtStatus.Text = ParaText ; Ak 6*Sr  
            DoEvents L_ 2R3w  
        Loop H&=3rkX  
    End With ]|)M /U *  
     6+x>g  
    msg = "" c9axzg UA  
     4dUr8]BkG  
    For i = 0 To Me.ErrMsg.ListCount - 1 >}>cJh6  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) 7g
&<ZZo  
    Next !-Md+I_  
     v#Y
9O6g]T  
     _:.'\d(  
     ,: 4+hJ<q  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg aOTrng  
    Me.cmdCheck.Enabled = True _-bEnF+/0  
    Me.txtStatus.Visible = True R#33ACCX  
    Me.lbParaType.Visible = False \C;F5AO  
     $Y_v X 2  
    bContinue = False S9@)4|3C|p  
End Sub J)a^3>  
s14;\  
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) n%}Vd `c  
    Dim pTEXT As String 7s.vJdA]6  
     EPL"H:o5%<  
    pTEXT = ChKRange.Text ?)'+l   
     Q^\f,E\S  
    ParaType = "其它" #dm"!I>g  
    TitleString = pTEXT \z)` pno  
    TitleNo = "N/A" }[8Nr+ y  
     iXFN|ml  
    shpCounter = ChKRange.InlineShapes.Count rdQ'#}Ix  
    If shpCounter <> 0 Then ^+q4*X6VB  
        MaxShpHeight = 0: TotalShpWidth = 0 .T }q"  
        For i = 1 To shpCounter _0=$ 2Y^  
            k = ChKRange.InlineShapes(i).Height zHW}A `Rz  
            l = ChKRange.InlineShapes(i).Width l?swW+x\  
            If k > MaxShpHeight Then %[7<GcWl  
                MaxShpHeight = k rH5 '+x K  
            End If 7T-}oNaJA\  
            TotalShpWidth = TotalShpWidth + l ;+iw?"  
        Next L(i0d[F  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then |!?`KO{  
            Exit Sub a]8}zSUK  
        End If #\r5Q
>  
    End If %<Te&6NU
'  
     NlV,] $L1T  
    '空行 fN{JLp  
    If Len(pTEXT) <= 2 Then pG9qD2Cf  
        Exit Sub \)mV2r!%  
    End If gCc::[}\Y  
     ejI nJ  
         g7nqe~ `{  
    '是否为表格中的文字
-p2 =?a  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then iH[ .u{h  
        ParaType = "表格内容" hp)k[|u;  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) b_xGCBC  
        If k = 1 Then $Hbd:1%i {  
            ParaType = "表格首行" R=u!RcvR  
        End If + c"$-Jr  
        Exit Sub TBp$S=_**  
    End If d ,!sZ&v  
     Wo8.tu-2  
    '例外情况：脚注 z'd*z[L~  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then 8ECBi(  
        ParaType = "脚注" @&LtIN#  
        Exit Sub l4`HuNR1  
    End If vaOCH*}h  
     O9(6?n  
    '例外情况：尾注 #K_E/~  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then zM*PN|/%sH  
        ParaType = "尾注" _|%l) KO  
        Exit Sub yM-3nwk  
    End If }m0hq+p^  
     <>|/U`  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then o?\v 8.n  
        ParaType = "页眉页脚" E3<~C(APW  
        Exit Sub {&Es3+{A  
    End If mbh;oX+  
     o$,Dh?l  
     ra*(.<&  
    With regEX ?g\SF}2  
        .Global = True 7o5~J)qIC  
         ;]+p>p-#  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" V]I+>Zn| 7  
        If regEX.Test(pTEXT) Then )RE~=*?d  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") ui#K`.d
n  
            TitleString = regEX.Replace(pTEXT, "$3") 3om4q2R  
            TitleNo = regEX.Replace(pTEXT, "$1") qwx{U  
            ParaType = "章" ZyQ+}rO  
            Exit Sub c!})%{U  
        End If A D/7k3:  
         E5U{.45  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" :VEy\ R>W  
        If regEX.Test(pTEXT) Then  =$t  
            ParaType = "一级标题" C-
6m[W8S  
            regEX.Execute (pTEXT) &z"sT*3  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") 2%F!aeX  
            TitleString = regEX.Replace(pTEXT, "$3") ELWm>'Q#9  
            TitleNo = regEX.Replace(pTEXT, "$1") V0
!.>sX9  
            Exit Sub o}4J|@Hi|4  
        End If !O-9W=NJ  
         Skn2-8;10  
        '全角或半角括号中的数字 -6./bB g  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" 5o dtYI%L  
        If regEX.Test(pTEXT) Then +W-,74A  
            ParaType = "二级标题" jJfV_#'N'  
            regEX.Execute (pTEXT) g9F4nExo  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") v%%;Cp73  
            TitleString = regEX.Replace(pTEXT, "$5") MH8Selnv  
            TitleNo = regEX.Replace(pTEXT, "$2") `aw5"ns^V  
            Exit Sub _x ;fTW0  
        End If nB+ e2e&  
         _g#v*7o2@  
        '阿拉伯数字  1. 2. 9q=\ _[\[  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" .oR_r1\y  
        If regEX.Test(pTEXT) Then JIobs*e0m  
            ParaType = "三级标题" |f.R]+cH  
            regEX.Execute (pTEXT) R?K[O   
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 IhYTK%^96  
            TitleString = regEX.Replace(pTEXT, "$3") ,{_;q :  
            TitleNo = regEX.Replace(pTEXT, "$1") Mkc|uiT   
            Exit Sub 6%&RDrn  
        End If O%n=n3  
         6q!smM  
        '全角或半角括号中的阿拉伯数字 %ut7T !Jp
 
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" HLni zE  
        If regEX.Test(pTEXT) Then yF#:*Vz>  
            ParaType = "四级标题" ~>]/1JFz  
            regEX.Execute (pTEXT) KASw3!.W  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") PN&;3z Z  
            TitleString = regEX.Replace(pTEXT, "$5") gU^2;C  
            TitleNo = regEX.Replace(pTEXT, "$2") 0,x<@.pW  
            Exit Sub # *|0WaC  
        End If |{8eoF  
         :',Q6 j(s  
        '表格名称 kj4t![o+  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" Vg+jF!\7  
        If regEX.Test(pTEXT) Then +UTs2*H/^  
            ParaType = "表格标题" 4}\Dr %US  
            regEX.Execute (pTEXT)  @aC2]  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) s{]2~Z^2od  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) B- VhUS  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) ~Uet)y<  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 1*>lYd8_  
            Exit Sub gqi|k6V/  
        End If xNaDzu"  
         \?X'U:  
        '图片名称 QNzx(IV@  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" lN-[2vT<  
        If regEX.Test(pTEXT) Then D\H)uV`  
            ParaType = "图片标题" 8eVQnp*  
            regEX.Execute (pTEXT) X+*"FKm S.  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") &74*CO9B9  
            TitleString = regEX.Replace(pTEXT, "$3") C"We>
!  
            TitleNo = regEX.Replace(pTEXT, "$1") w 
u  
            Exit Sub Q]u*Oels  
        End If Apfs&{Uy  
         =
h{jF7  
        '参考文献 @9wug!,  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 I>jDM  
        If regEX.Test(pTEXT) Then @4Ox$M  
            ParaType = "文献条目" R3dCw:\O+Z  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") [MkXQw Y  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") l]GUQcN=  
            Exit Sub k^ZcgHHgb  
        End If vV?=r5j  
         Rf~? u)h1  
        prfx = Left(pTEXT, 2) B[I a8t  
        If prfx = "注：" Or prfx = "注:" Then dgIEc]#pH  
            ParaType = "图表注解" xqua>!mqS  
            Exit Sub )|`#BC  
        End If o1"-x  
         pM^r8kIH  
         !VfP#B6.  
        ParaType = "正文" +$YluGEJ  
         r^$4]@Wn  
    End With O\(0{qu  
End Sub P}El#y#&  
9Fkzt=(E~  
Sub ConvertListToOrdinary() ?oc#$fcQ~  
    Dim st As Paragraph VZ:LK  
    With ActiveDocument nDhD"rc  
        For i = .Paragraphs.Count To 1 Step -1 >**7ck  
            Set st = .Paragraphs(i) fs=W(~"  
            lst = st.Range.ListFormat.ListString '{t&!M`
 
            If lst <> "" Then |Ir&C[QS{y  
                st.Range.ListFormat.RemoveNumbers {'QA0K  
                st.Range.InsertBefore lst & " " q i27:oJ  
            End If laQM*FLg  
        Next Z\`i~  
    End With QE.a2 }  
    Set st = Nothing h!"|Q"18  
End Sub abVz/R/o  
PJCRvs|X  
Private Sub UserForm_Activate() -zq_W+)ks  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" f[bx|6  
    Me.lbTotal.Font.Bold = True i8tH0w/(M  
    Me.txtStatus.Visible = False ezC2E/#  
    Me.cmdCheck.Enabled = True cS'|c06  
Xyr f$R'  
End Sub ?1f(@  
KH<f=?b  
n;eK2+}]  
Sub CheckSuperScript() 2 P=c1;  
    Selection.Find.ClearFormatting f0^DsP   
    Selection.Find.Replacement.ClearFormatting Hz&.]yts2J  
    With Selection.Find z}" Xt=G?  
        .Text = "[【\[［〖](*)[】\]〗］]" BtZyc
I  
        .Replacement.Text = "[\1]" wd/"! A4(  
        .Replacement.Font.Superscript = True -I'@
4\<  
        '.Replacement.Font.Color = wdColorBlue +])St3h  
        .Forward = True UqP %S$9  
        .Wrap = wdFindContinue 16p$>a<6  
        .FORMAT = True $
+`   
        .MatchCase = False c%|18dV  
        .MatchWholeWord = False 6uU2+I  
        .MatchByte = False /puM3ZN  
        .MatchAllWordForms = False whzV7RT  
        .MatchSoundsLike = False \.R+|`{tf  
        .MatchWildcards = True B@Ae2_;  
    End With $YmD;  
    Selection.Find.Execute Replace:=wdReplaceAll AvN\^ &G  
End Sub FTihxC?.L  
(oYM}#Q  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) dh~+0FZ {A  
    bContinue = False ~;f,Ad`Q  
    Set regEX = Nothing 
)T=cd   
End Sub d +]Gw  
"Zh6j)[o  
Sub CeateOrModifyStyle() <oE(I)r4,  
' ~[por  
' %Q}T9%Mtj  
Dim stl As Style !1:364  
     5F8sigr/h  
    Options.Pagination = False -qPYm?$  
     FK$?8Jp  
    On Error Resume Next 0;b% @_E  
    For Each stl In ActiveDocument.Styles ZkyH<Aa  
        stl.Delete BtSl%(w  
    Next m|RA@sY%`  
    On Error GoTo 0 N*C"+2  
     X\I"%6$  
    Set stl = Nothing gX}(6RP_!  
     n 2k&yL+a  
    DoEvents Uv(T HxVh  
    On Error Resume Next \9*,[mvC
 
     y8$TU;  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph H'L~8>  
     7,sslf2%K  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph Sc<%$ Gd  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph r&G
=}ZMO  
     O;NQJ$^bI  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph w2!5Cb2  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph !;YmLJk;hN  
    
v$O%U[e<  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph eQ}o;vJ N  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph O>=D1no*  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph Kh!h_  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph Zz
\e:/  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph -N')LY  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph -m&8SN  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph Tn~b#-0  
     ]"3(UKx  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph %lw!4Z\gg  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph _pXy}D  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph |kHPk)}I]  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph .{-&3++WZ  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph Hw1<!Dyv  
     l%aiG+z%6}  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph D3^Yc:[_@  
    On Error GoTo 0 Ol,Tw=?  
    DoEvents hJ+;N  
     | %Dh  
    'BaseStyle SWX;sM  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False l3sL!D1u  
    With ActiveDocument.Styles("BaseStyle").Font g|W|>`>  
        .NameFarEast = "宋体" %n3l
m(-0U  
        .NameAscii = "Times New Roman"  $)5F3a|  
        .NameOther = "宋体" BPoY32d"_  
        .Size = 10.5 p +O2:  
        .Bold = wdUndefined 7>g^OE f  
        .Italic = wdUndefined 0 ttM_]#q  
        .Subscript = wdUndefined X]?qns7  
        .Subscript = wdUndefined CvwC| AW  
         lbw*T  
        .Underline = wdUnderlineNone  xZ*.@Pkr  
        .UnderlineColor = wdColorAutomatic k+au42:r  
        .StrikeThrough = False M>CW(X  
        .DoubleStrikeThrough = False  )"im|9  
         A~CQ@  
        .Outline = False S$!)Uc\)A  
        .Emboss = False Z
/-!-  
        .Shadow = False 3H0~?z_  
        .Hidden = False MYzyg  
        .SmallCaps = False O\64)V 0  
        .AllCaps = False : kVEB<G  
        .Color = wdColorAutomatic ,cR=W|6cQm  
        .Engrave = False $e=pdD~  
        .Scaling = 100 hhTM-D1Ehs  
        .Kerning = 1 H0Q.; !^  
        .Animation = wdAnimationNone zCdQI  
        .DisableCharacterSpaceGrid = False QMGMXa  
        .EmphasisMark = wdEmphasisMarkNone fIo7R-XP  
    End With cO,ELu  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat 7b,5*]oZ  
        .LeftIndent = 0 F[Dhj,C"  
        .RightIndent = 0 NR8YVO)5$  
        .SpaceBefore = 0 oC]|ARgQk|  
        .SpaceBeforeAuto = False dF$Fd{\4^  
        .SpaceAfter = 0
`TM[7'  
        .SpaceAfterAuto = False vHY."$|H  
         /( /)nYAjk  
        .LineSpacingRule = wdLineSpaceSingle kKV`9&d
Ze  
        .Alignment = wdAlignParagraphJustify e}u#:ysj  
         Rh7unJ
 
        .WidowControl = False 1M|DaAI  
        .KeepWithNext = False IK%fX/tDyc  
        .KeepTogether = False *&b~cyC  
        .PageBreakBefore = False k_rtsN  
        .NoLineNumber = False dMAd-q5{  
         qM(n]{H  
        .FirstLineIndent = CentimetersToPoints(0) QRs!B!Fn0  
        .OutlineLevel = wdOutlineLevelBodyText QGtKu:c.81  
        .CharacterUnitLeftIndent = 0 T@PtO"r  
        .CharacterUnitRightIndent = 0 |O XufV?I  
        .CharacterUnitFirstLineIndent = 0 A$K>:Tt>  
        .LineUnitBefore = 0 RO-ABFEi(  
        .LineUnitAfter = 0 w<?v78s T  
        .AutoAdjustRightIndent = True r-#23iT.~  
        .DisableLineHeightGrid = True #]ZOi`;  
         mK3U*)A   
        .FarEastLineBreakControl = True MLV_I4o  
        .WordWrap = True 3,@I` M  
        .Hyphenation = False  g?qh  
         >&K1+FSmyJ  
        .HangingPunctuation = True }MKm>N  
        .HalfWidthPunctuationOnTopOfLine = True bgW=.s  
        .AddSpaceBetweenFarEastAndAlpha = True :I(-@2?{  
        .AddSpaceBetweenFarEastAndDigit = True FcnSO 0G%  
        .BaseLineAlignment = wdBaselineAlignBaseline DP=4<ES%+  
    End With fqaysy  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False c;w%R8z  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll 7/.-dfEK  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese #GBe=tm\K  
    ActiveDocument.Styles("BaseStyle").NoProofing = False LQ5W S  
     \de824  
    '一级标题题样式 #P,mZ}G\  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") hjB G`S#  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" PTfy#  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False  fL9R{=I%  
    With ActiveDocument.Styles("QLNU一级标题").Font eGrC0[SH  
        .NameFarEast = "黑体" 'H0b1t1S%  
        .NameAscii = "Arial Black" (>
THN*i  
        .NameOther = "黑体" <Z^t^ O  
        .Name = "黑体" XG fLi  
        .Size = 16              '三号 v3w5+F  
        .Bold = True q' };.tv  
        .Italic = wdUndefined :eQ?gM!,  
        .Subscript = wdUndefined mOj6 4}_`"  
        .Superscript = wdUndefined \Uun2.K  
    End With ='1J&w~7  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat $gsn@P>"  
         =]h5RC  
        .LeftIndent = CentimetersToPoints(0) B
_w;2ZuA  
        .RightIndent = CentimetersToPoints(0) RW!D!~  
        .FirstLineIndent = CentimetersToPoints(0) #un#~s 7Q  
         )NeI]p  
        .LineSpacingRule = wdLineSpaceSingle ~Uw**PT3M  
        .Alignment = wdAlignParagraphCenter ]| oh1q  
         Dp 
0   
        .WidowControl = True qGtXReK  
        .KeepWithNext = True yM%,*VZ  
        .KeepTogether = True 2| u'J  
        .OutlineLevel = wdOutlineLevelBodyText wv>uT{g#  
         uJ<sa;  
        .LineUnitBefore = 0.5 r2A(GUz  
        .LineUnitAfter = 0.5 M{S7tMX  
    End With {K-]nh/  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False v~>^ c1:  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll ?MevPy`H  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese \~4uEk"]  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True g>h5NrDN  
    DoEvents |I7-7d-;/  
     bd[zdL#4K  
    '二级 #/'5 N|?  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 5_U3Fs  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" A~ugx~S0  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False Cj?X+#J/@d  
    With ActiveDocument.Styles("QLNU二级标题").Font L1"y5HJ  
        .NameFarEast = "黑体" OczVObbS  
        .NameAscii = "Arial Narrow" (`}O!;/E}  
        .NameOther = "黑体" ^E&':6(  
        .Name = "黑体" e-;$Iv  
        .Size = 15        '小三号 K DP7u  
        .Bold = False @,i_ KN6C  
        .Outline = False q^],K'  
        .Italic = wdUndefined /esSM~*H  
        .Subscript = wdUndefined g2b%.X4  
        .Superscript = wdUndefined kN9pl^2  
    End With X
%7Y\|  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat Y|FJ1x$r  
        .LeftIndent = CentimetersToPoints(0) xXl^\?HC  
        .RightIndent = CentimetersToPoints(0) @DYxxM-  
        .FirstLineIndent = CentimetersToPoints(0) Ug=8:a(U.  
         K9co_n_L  
        .LineSpacingRule = wdLineSpaceSingle zR2'xE*  
        .Alignment = wdAlignParagraphLeft KQ<pQkhv  
         1<_i7.{k  
        .WidowControl = True 3R%'<MV|  
        .KeepWithNext = True `X8AM=  
        .KeepTogether = True 24_F`" :-=  
        .PageBreakBefore = False 3
}Z [d  
        .OutlineLevel = wdOutlineLevelBodyText {l=!  
         8M m, a  
        .LineUnitBefore = 0.5 _K{hq<g  
        .LineUnitAfter = 0.5 "=I ioY  
         ;+XiDEX0}  
    End With '`^<*;w  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False EJP##eGx  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll *h Ph01  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese YC\~P VG  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True HVzG }r(J  
    DoEvents iJ_FJ[ U  
     -:(,<Jt<  
    '三级标题样式 CK1Xdyf_S  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") !n4p*<Y6  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" x0wy3+GZc  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False d_BO&k<+I  
    With ActiveDocument.Styles("QLNU三级标题").Font )P\Vd #  
        .NameFarEast = "宋体" gCAWRNp  
        .NameAscii = "Times New Roman" BgLK}p^  
        .NameOther = "黑体" n|F$qV_p\  
        .Name = "黑体" h
A)tad]  
        .Size = 14               '四号 TCJH^gDt  
        .Bold = False b]hP;QK`U$  
        .Outline = False }0
c  
        .Italic = wdUndefined n0#HPI"  
        .Subscript = wdUndefined 0IoS|P}6a  
        .Superscript = wdUndefined Wbc*x  
    End With q:.URl  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat F,^Q'$!  
        .LeftIndent = CentimetersToPoints(0) _A%} >:q  
        .RightIndent = CentimetersToPoints(0) 4J*%$Vxv  
        .FirstLineIndent = CentimetersToPoints(0) T!eb=oy  
         VJ P]Jy_  
        .LineSpacingRule = wdLineSpaceSingle s }q6@I  
        .Alignment = wdAlignParagraphLeft ;Dg8>  
         )`]w\s #  
        .WidowControl = True T'2(sHk  
        .KeepWithNext = True {q%& ~  
        .KeepTogether = True Riid,n  
        .PageBreakBefore = False EeWCy5W  
        .OutlineLevel = wdOutlineLevelBodyText az3rK4g  
         g9OO#C>  
        .CharacterUnitLeftIndent = 0 RWf4Wh?d  
        .CharacterUnitRightIndent = 0 9|O#+_=+v  
        .CharacterUnitFirstLineIndent = 2 n'ft@7>%h  
         &G?b|Tb2  
        .LineUnitBefore = 0.5 |Euf:yWY  
        .LineUnitAfter = 0 P X?!R4S  
    End With @qH{;   
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False eS9/-Y  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll lqe;lWC0Z  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese +.MHI  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True 2bU3*m^M  
    DoEvents }~$zdgMT  
     FCU~*c8C
s  
    '四级标题样式 uNV(r"
 
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") Px:
Po Ow\  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" }./_
_gJ  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False CZg$I&x  
    With ActiveDocument.Styles("QLNU四级标题").Font T%K"^4k  
        .NameFarEast = "宋体" Qy |*[  
        .NameAscii = "Times New Roman" DPIiGRw  
        .NameOther = "宋体" Ro`Hm8o/  
        .Name = "宋体"  u(\O  
        .Size = 12               '小四号 {4tJT25  
        .Bold = True 4;8 Z?.  
        .Outline = False G@b|{!  
        .Italic = wdUndefined $d.UF!s  
        .Subscript = wdUndefined 2w93 ~j  
        .Superscript = wdUndefined *b9=&:pU(  
    End With g&;:[&%T]  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat G&MI@Hq  
         Y
( n# =  
        .LeftIndent = CentimetersToPoints(0) W@jBX{k  
        .RightIndent = CentimetersToPoints(0) Hw[u Sv8  
        .FirstLineIndent = CentimetersToPoints(0) z>+@pj   
         <T JUKznO  
        .LineSpacingRule = wdLineSpaceSingle 01q5BQ7u  
        .Alignment = wdAlignParagraphLeft bY7d   
         0}jB/Z_T  
        .WidowControl = True =p|,~q&i  
        .KeepWithNext = True eZs34${fN  
        .KeepTogether = True N8;/Zd;^  
        .PageBreakBefore = False Y uXq  
        .OutlineLevel = wdOutlineLevelBodyText ^yiRrcOo  
         >[B[Q_})  
        .CharacterUnitLeftIndent = 0 {Cnz7TVB  
        .CharacterUnitRightIndent = 0 u$d T^c
 
        .CharacterUnitFirstLineIndent = 2 ai[st+1  
         7u-o7#,X2  
        .LineUnitBefore = 0 *KSQ^.sYh  
        .LineUnitAfter = 0 };!S2+  
         #
(B <n  
    End With n\&[^Q#b|  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False QcG4~DEX
4  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll io^^f|  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese +4EQ9-  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True BKe~y  
    DoEvents 5 rkIK  
     1i :l  
    '正文校式 *?%DdVrO@  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") U#R=y:O?  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" #:v}d+  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False k2muHKBlk  
    With ActiveDocument.Styles("QLNU正文").Font [email protected]L  
         37Vs9w  
        .NameFarEast = "宋体" H\AJLk2E  
        .NameAscii = "Times New Roman" -4{sr| lm  
        .NameOther = "宋体" g|8G!7O  
        .Name = "宋体" D
QY*0\  
         hrPm$`  
        .Size = 12               '小四号 HYf&0LT<11  
         Jw?J(ig^  
        .Bold = wdUndefined vFXih'=_  
        .Italic = wdUndefined }7E2, A9_"  
        .Subscript = wdUndefined Au08k}h<G  
        .Superscript = wdUndefined DE:FWD<}  
         yhg^1l|t,  
        .Outline = False !_)*L+7f_  
        .Emboss = False 'ek7e.x|V  
        .Shadow = False ,Hn{nVU1R=  
        .Hidden = False 1foy.3g-  
         N=lFf+  
        .DisableCharacterSpaceGrid = True $NzD&b$7  
    End With (gZKR2hO  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat GZQy~Uk~  
        
} -9  
        .LeftIndent = CentimetersToPoints(0) }$r/#F/Fn  
        .RightIndent = CentimetersToPoints(0) E9t[Mb %0  
        .FirstLineIndent = CentimetersToPoints(0) V9f$zjpw  
         |13UJ v
R
 
        .LineSpacingRule = wdLineSpaceExactly ju`x   
        .LineSpacing = 20 H->J.5~,K  
        .Alignment = wdAlignParagraphLeft DYkNP:+  
         6VpT*,2d~  
        .WidowControl = False ]Sg4>tp  
        .KeepWithNext = False 0q(}nv  
        .KeepTogether = False pTPWToKh  
        .PageBreakBefore = False +gh6eY8  
        .Hyphenation = False XqMJe'%r  
         ZG>I[V'p=  
        .OutlineLevel = wdOutlineLevelBodyText > f,G3Ay  
         sA=WU(4^  
       XhjH68S(  
        .CharacterUnitLeftIndent = 0 H'Q4IRT  
        .CharacterUnitRightIndent = 0 #Q}`kFB`  
        .CharacterUnitFirstLineIndent = 2 <5 G+(vP  
         `)$'1,]u  
        .LineUnitBefore = 0 .^0@^%Wi  
        .LineUnitAfter = 0 >AI65g  
        .SpaceBefore = 0 0@ []l{N  
        .SpaceAfter = 0 <m:8%]%M6  
         p5&:>>  
        .DisableLineHeightGrid = True ys|a ^VnN  
    End With HM ;9%rtO  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False y}dop1zp  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll 1*<m,.$  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese 4`Qu+&4J  
    ActiveDocument.Styles("QLNU正文").NoProofing = True dBkw.VOW  
    DoEvents CEjMHP$=  
     86$9)UI  
    '图片段落样式 FjD`bhw-  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") Mq;m+{B  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" e>\[OwF-x  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False C5GO?X2  
    With ActiveDocument.Styles("QLNU图片段落").Font V(n7h
pS  
        .Size = 12               '小四号 hs< )<  
        .Italic = wdUndefined (<!Yw|~  
        .Subscript = wdUndefined raRb K8CQ  
        .Superscript = wdUndefined +@>K]hdr  
    End With Y S )Q#fP  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat 1:5jUUL8  
         o_hk!s^4m  
        .LeftIndent = CentimetersToPoints(0) /iFtW#K+  
        .RightIndent = CentimetersToPoints(0) T7_i:HU%  
        .FirstLineIndent = CentimetersToPoints(0) 8%v1[Wi  
         /pni_-l*  
        .LineSpacingRule = wdLineSpaceSingle 6jT+k q)  
        .Alignment = wdAlignParagraphCenter X8aN l"x  
        .KeepWithNext = True ;2-%IA,  
        .OutlineLevel = wdOutlineLevelBodyText F@ lJk|*_  
         !2>MaV1,  
        .CharacterUnitLeftIndent = 0 |%.V{vgP7  
        .CharacterUnitRightIndent = 0 'B0= "7  
        .CharacterUnitFirstLineIndent = 0 ,;9byb  
          K9h{sC  
        .LineUnitBefore = 0 v?Q&06PMRc  
        .LineUnitAfter = 0 A7,TM&  
    End With U
{Xg#UN  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False 7:'7EqM  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll U1!6%x  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese z)N8#Y~vn  
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True +Zgh[a  
    DoEvents <Uf?7  
     4sOo>.<x  
     ]Gm"U!h*  
    '第X章 [O92JT:li  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") FYU)sQ  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" ikd~k>F  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False WBdC}S }3t  
    With ActiveDocument.Styles("QLNU章节标题").Font v;4l*)$)  
        .NameFarEast = "黑体" X,dOF=OJL  
        .NameAscii = "Arial Black" uBp"YX9rx  
        .NameOther = "Arial Black" H|&[,&M>  
        .Name = "黑体" v.Wkz9 w}  
        .Size = 16 CqGi 2<2  
        .Bold = True Ux5pw  
        .UnderlineColor = wdColorAutomatic ,x#5.Koz  
        .Outline = False |E)-9JSRy  
        .Italic = wdUndefined D
/w X  
        .Subscript = wdUndefined #)hc^gIO&<  
        .Superscript = wdUndefined I[u%kir  
        .Scaling = 100 4,kdP)Md$  
        .DisableCharacterSpaceGrid = True Kv3cKNvu~  
    End With uh#"4-v  
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat vqDd][n  
        .LineSpacingRule = wdLineSpaceSingle H]2cw
{2  
        .Alignment = wdAlignParagraphCenter F"o K*s  
        .WidowControl = True q))rlMo  
        .KeepWithNext = True \=3V]7\&  
        .KeepTogether = True C{
7 j<O  
        .PageBreakBefore = True  vU(2[  
        .OutlineLevel = wdOutlineLevelBodyText .=rS,Tpo  
         X}Heaqn  
        .LeftIndent = CentimetersToPoints(0) $<&N#  
        .RightIndent = CentimetersToPoints(0) 'o41)p  
        .FirstLineIndent = CentimetersToPoints(0) uEqL Dg  
         1#B Mc%  
        .CharacterUnitLeftIndent = 0 AP*Z0OFE  
        .CharacterUnitRightIndent = 0 ^5n"L29V  
        .CharacterUnitFirstLineIndent = 0 b7&5>Q/g  
         e%_2n=p~)%  
        .LineUnitBefore = 1 ghtvAG  
        .LineUnitAfter = 0.5 p2Yc:9r9+A  
         6Ap-J~4  
        .AutoAdjustRightIndent = False =y)e&bj  
        .DisableLineHeightGrid = True {akS K  
        .FarEastLineBreakControl = True GcXh V  
        .WordWrap = True .URCuB\{  
    End With S[g{ )p)  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False xx[XwN;  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll G 92\` Q  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese ~wtl\-cY  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True K]5@bm  
    DoEvents JRfG]u6GU  
     "SGq$3D  
    '表格标题 .dqV fa  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ! * Snx  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" X.^S@3[  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False K)!yOa'fH  
    With ActiveDocument.Styles("QLNU表格标题").Font :5`=9_|  
        .NameFarEast = "楷体" i}d^a28  
        .NameAscii = "Arial" "_!D b&AH  
        .Name = "楷体" f'501MJu  
        .Size = 10.5  {*!L[)  
        .Bold = True 3^NHVg  
        .Underline = wdUnderlineNone Rs *]I\  
        .Italic = wdUndefined d~#>.$Uu  
        .Subscript = wdUndefined xz5V.  
        .Superscript = wdUndefined w<}kY|A"=-  
        .Color = wdColorAutomatic 9p|;Hh:  
    End With jT$J~MpHh  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat 89^g$ ac  
         9x!k vB6  
        .LineSpacingRule = wdLineSpaceSingle }xt^}:D  
        .Alignment = wdAlignParagraphCenter Y:O|6%00Y  
        .KeepWithNext = True RV_I&HD!  
        .KeepTogether = True KYw7Jx`l  
        .OutlineLevel = wdOutlineLevelBodyText }q]*aADe  
         #}B1W&\sw  
        .LeftIndent = CentimetersToPoints(0) 8..|-<w  
        .RightIndent = CentimetersToPoints(0) ^pd7nr~Y  
        .FirstLineIndent = CentimetersToPoints(0) f3G:J<cL  
         .=Oww  
        .CharacterUnitLeftIndent = 0 @O'NJh{D`  
        .CharacterUnitRightIndent = 0 aT IzfqCM  
        .CharacterUnitFirstLineIndent = 0 @@U  
         dWiNe!oY2  
        .LineUnitBefore = 1 (wq8[1Wzup  
        .LineUnitAfter = 0 zps=~|  
         ;lb  
    End With ><D2of|  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False xok T  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll 9v`sSTlSd  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese i6k6l%  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True o*/;Zp==  
    DoEvents oF>`>  
CN ( :  
    '表格首行 ,'HjL:r  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") 9/e>%1.  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False N,rd=
m+  
    With ActiveDocument.Styles("QLNU表格首行").Font \P+^BG!  
        .NameFarEast = "楷体" tmq?h%O>  
        .NameAscii = "Times New Roman" ?xH{7)dO  
        .Name = "楷体" }(!Uq  
        .Size = 9 4V
4S5V  
        .Bold = True BXU0f%"8U  
        .Underline = wdUnderlineNone 2"Wq
=qy\J  
        .Italic = wdUndefined ()Kaxcs?+  
        .Subscript = wdUndefined n@ba>m4{  
        .Superscript = wdUndefined VFZ?<m  
    End With FCEmg0qdjD  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat "Y
L^j~A  
        .LineSpacingRule = wdLineSpaceSingle ]58~b%s  
        .Alignment = wdAlignParagraphCenter |[iO./zP  
         Vf~-v$YI  
        .LeftIndent = CentimetersToPoints(0) 5o 5DG  
        .RightIndent = CentimetersToPoints(0) Be@g|'r  
        .FirstLineIndent = CentimetersToPoints(0)  )uOtQ0  
         \3^V-/SJf  
         c8[kL$b;j  
        .CharacterUnitLeftIndent = -0.5 +em!TO  
        .CharacterUnitRightIndent = -0.5 A|1xK90^XT  
        .CharacterUnitFirstLineIndent = -0.5 L5 Cfa-  
         \RR` F .7  
        .LineUnitBefore = 0 >'q]ypA1  
        .LineUnitAfter = 0 n.8870.BW  
        .SpaceBefore = 0 "1^tVw|  
        .SpaceAfter = 0 { "Cu)AFy  
         9q$^x/
z!  
    End With 6>#8^{[  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False `.O$RwC&7B  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll R,78}7B  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese )#M$ov  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True $`W3`}#fM  
    DoEvents N[3Y~HX!q  
 <a$!S  
    '表格内容 tjRwbnT"  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") 4[x`\  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False x3FB`3y~s  
    With ActiveDocument.Styles("QLNU表格内容").Font r2+ZxM
o|  
        .NameFarEast = "楷体" 0]*W0#{Zj  
        .NameAscii = "Times New Roman" bj@R[!ss  
        .Name = "楷体" N atC}k  
        .Size = 9 2e1%L,y{W  
        .Bold = False 4(P<'FK $  
        .Underline = wdUnderlineNone *5oQZ".vA*  
        .Italic = wdUndefined ~A5NseWCK  
        .Subscript = wdUndefined 1G12FV>M  
        .Superscript = wdUndefined AN:s%w2  
    End With "IQYy~ /  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat )8g&lyT  
        .LineSpacingRule = wdLineSpaceSingle /cx'(AT  
        .Alignment = wdAlignParagraphCenter 0aY\(@  
         O>hh  
        .LeftIndent = CentimetersToPoints(0) GqsV6kH  
        .RightIndent = CentimetersToPoints(0) `ql8y'  
        .FirstLineIndent = CentimetersToPoints(0) goyDG/  
         Ew{*)r)m  
        .CharacterUnitLeftIndent = -0.5 ^_\m@
 
        .CharacterUnitRightIndent = -0.5 !2HF|x$  
        .CharacterUnitFirstLineIndent = -0.5 /D^ g
"  
        .LineUnitBefore = 0 ?'a>?al%>  
        .LineUnitAfter = 0 r`<e<C  
        .SpaceBefore = 0 F%$q]J[  
        .SpaceAfter = 0 "}1cQ|0a  
    End With tlD^"eq4:  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False |-{e!&   
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll Kgi `@`  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese kty nI
N  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True am3.Dt2\  
    DoEvents (n.IK/:  
12'MzIsU's  
    '图片标题 3GKKC9C6  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") Q`'cxx  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" @.a59kP8X  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False tzd!r7  
    With ActiveDocument.Styles("QLNU图片标题").Font *rw6?u9I  
        .NameFarEast = "楷体" ~E8/m_> rU  
        .NameAscii = "Times New Roman" 8(Ptse  ,  
        .Name = "楷体" +{=U!}3|  
        .Size = 10.5 A9@coP5  
        .Bold = True !9HWx_,|Z  
        .Underline = wdUnderlineNone l3^'bp6HQ  
        .Italic = wdUndefined Nb3O>&J  
        .Subscript = wdUndefined '[8w8,v(  
        .Superscript = wdUndefined h@*I(ND<  
        .Outline = False q:M'|5P  
        .Shadow = False G7`m
K}J7  
        .Color = wdColorAutomatic (-0d@eqw  
    End With q1L>nvE  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat 8r"-3<*  
        .LineSpacingRule = wdLineSpaceSingle YU6|/ <8  
        .Alignment = wdAlignParagraphCenter VByA6^JR  
         cE`qfz  
        .KeepWithNext = wdUndefined =to.Oa RR  
        .KeepTogether = True zQ,M795@EA  
        .OutlineLevel = wdOutlineLevelBodyText 5655)u.N8  
         {`*Fu/Upb  
        .LeftIndent = CentimetersToPoints(0) M Ht ~ZVH  
        .RightIndent = CentimetersToPoints(0) }jC^&%|  
        .FirstLineIndent = CentimetersToPoints(0) 4@\$k+v  
         f ]_ki  
        .CharacterUnitLeftIndent = 0 LqI&1$#  
        .CharacterUnitRightIndent = 0 >r(`4
M:  
        .CharacterUnitFirstLineIndent = 0 U
&  
         Bf  y  
        .LineUnitBefore = 0 vs+aUT C\  
        .LineUnitAfter = 0 |P& \C8h  
    End With 9pj6`5Zn@6  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False QA^FP8!j  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll Q.jThP`p  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese XaE*$:   
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True &$2d=q8mh  
    DoEvents 2f%+1uU  
`?[,1  
    '目录项 t+F_/_"B  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") A7#nBHwxZ  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" ;AVIt!(L~V  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False qTbc?S46pt  
    With ActiveDocument.Styles("QLNU目录项").Font #+_=(J  
        .NameFarEast = "黑体" <w*WL_P  
        .NameAscii = "Times New Roman" 4noy!h  
        .NameOther = "Times New Roman" ?RsPAL  
        .Name = "黑体" 5`e;l$ M`  
        .Size = 10.5 YR/I<m`]}  
        .Bold = False /CyFe<t  
        .Italic = wdUndefined sl@>
GbnS  
        .Underline = wdUnderlineNone ( U$;0`  
        .Color = wdColorAutomatic Dpu?JF]  
        .Superscript = wdUndefined 1'p=
yHw  
        .Subscript = wdUndefined Iy;"ht6  
    End With V>obMr^5  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat A2L"&dl  
         <3j`Z1J  
        .LineSpacingRule = wdLineSpaceSingle Z*b l J5YC  
        .Alignment = wdAlignParagraphLeft <VstnJo`Z  
         ~&<vAgy,  
        .WidowControl = False lcEK&AtK  
        .KeepWithNext = False t OJyj49^a  
        .KeepTogether = False N}#"o  
        .PageBreakBefore = False u.n'dF-  
        .NoLineNumber = False sqV~Dw  
        .OutlineLevel = wdOutlineLevelBodyText TUwX4X6m  
         h$9ut@I  
        .LeftIndent = CentimetersToPoints(0) t mBt[  
        .RightIndent = CentimetersToPoints(0) kzK9.  
        .FirstLineIndent = CentimetersToPoints(0) ^^!G{*F  
         m}D;=>2$  
        .CharacterUnitLeftIndent = 0 pQc-}o"  
        .CharacterUnitRightIndent = 0 =~W=}  
        .CharacterUnitFirstLineIndent = 0 -\B*reC  
         CGK ]i.N  
        .LineUnitBefore = 0 HrZX~JnTmf  
        .LineUnitAfter = 0 [FF}HWf  
    End With *CQZ6&^  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False ]LxE#R5V  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll 3Ur_?PM+C  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot !wEe<],  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese j$s/
YI:  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True G B}=  
    DoEvents a @3s71  
     Z;1r=p#s  
    '参考文献 ,gG RCp  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") 5wAKA`p"z  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" `bV&n!Y_  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False jy>?+hm?  
    With ActiveDocument.Styles("QLNU参考文献").Font :t "_I  
        .NameFarEast = "宋体" ^ZS!1%1  
        .NameAscii = "Times New Roman" s~>1TxJe  
        .NameOther = "Times New Roman" %LmsywPPp  
        .Name = "Times New Roman" ='+I dn#5  
        .Size = 12 %#&
njP  
        .Bold = False 8EdaxeDq  
        .Italic = wdUndefined ;-"q;&1e  
        .Subscript = wdUndefined :/$_eg0
A  
        .Superscript = wdUndefined <ty]z!B  
        .Underline = wdUnderlineNone L[nDjQn"  
        .UnderlineColor = wdColorAutomatic w 2U302TZ  
        .Color = wdColorAutomatic Gl|n}wo$  
        .Engrave = False 0,@^<G8?  
    End With nq>F_h  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat 2T?Y  
         0J466H_d{  
        .LineSpacingRule = wdLineSpaceExactly t54?<-  
        .LineSpacing = 16 za 7+xF  
        .Alignment = wdAlignParagraphLeft c1a

$J`  
        .WidowControl = False I7=A
!C"  
        .KeepWithNext = False +kE~OdZG  
        .KeepTogether = False -nHkO&&R  
        .PageBreakBefore = False o-l-Z|)7  
        .OutlineLevel = wdOutlineLevelBodyText /uR/,R++  
         KkpbZ7\@  
        .LeftIndent = CentimetersToPoints(0) YXqYIG.G  
        .RightIndent = CentimetersToPoints(0) dXM8
iP  
        .FirstLineIndent = CentimetersToPoints(0) (@!K tW  
         [\h?mlG?  
        .CharacterUnitLeftIndent = 0 0nkC%j  
        .CharacterUnitRightIndent = 0 `s UY$Q  
        .CharacterUnitFirstLineIndent = -2 AX1!<K  
         3 4%B0  
        .LineUnitBefore = 0 a(?)r[=  
        .LineUnitAfter = 0 oqbz!dM(Z  
        .SpaceBefore = 0 z'1%%.r;FM  
        .SpaceAfter = 0 ?D)$OCS  
         *2vp2xMA@  
    End With :IJ<Mmb  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False aMHC+R1X  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll v
)gMNzt  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS w8UUeF  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True 84e8z {  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese B@dCCKc%/  
    DoEvents EVaHb;  
Os9EMU$  
    ' *ej< 0 I{  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") ),Yk53G6c  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" ,:'JJZg@  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False yVGf[~X  
    With ActiveDocument.Styles("QLNU论文题目").Font b$*2bSdv0<  
        .NameFarEast = "黑体" /hVwrt(  
        .NameAscii = "Arial Black"  -K8F$\W  
        .NameOther = "Arial Black" o_k)x3I?  
        .Name = "Arial Black" #QcRN?s  
        .Size = 16 b.?;I7r   
        .Bold = False |nLq 4.  
        .Italic = wdUndefined 2&]LZ:(  
        .Superscript = wdUndefined {dRZ2U3  
        .Subscript = wdUndefined $- %um  
        .Underline = wdUnderlineNone I 2OQ
  
        .UnderlineColor = wdColorAutomatic  qbS6#7D  
        .Color = wdColorAutomatic dy5}Jn%L  
Rcw[`q3/  
    End With {5c?_U  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat HRM-r~2:-]  
        .LineSpacingRule = wdLineSpaceSingle Ck%if  
        .Alignment = wdAlignParagraphCenter C$C>RYE?.  
        .WidowControl = True 
oyk&]'>  
        .KeepWithNext = True 5|pF*8*  
        .KeepTogether = True vV9vB3K5?  
        .PageBreakBefore = True :wg=H  
        .NoLineNumber = False } d8\ Jg  
        .OutlineLevel = wdOutlineLevelBodyText }#4Ek8nFR  
         QZ;DZMP  
        .LeftIndent = CentimetersToPoints(0) &hL2xx=  
        .RightIndent = CentimetersToPoints(0) P,-5af*;  
        .FirstLineIndent = CentimetersToPoints(0) xHaz*w1|  
         A! HJ  
        .CharacterUnitLeftIndent = 0 L1g0Dd\Ox  
        .CharacterUnitRightIndent = 0 5=#d#dDc  
        .CharacterUnitFirstLineIndent = 0 Ac|d mu  
         s7:H  
        .LineUnitBefore = 1 p-EU"O  
        .LineUnitAfter = 1 .o C!~'  
         :KXI@)M  
        .BaseLineAlignment = wdBaselineAlignAuto , u%V%  
    End With 3)?WSOsL:  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False qAbmQ{|w  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll -D=Sj@G  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS vp!F6ZwO  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True @^-Y&N!b=  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese GGcODjY>  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True >D~8iuy]8.  
    DoEvents CP%^)LX *  
     ?r8hl.Z>  
    '中文摘要 7D:rq 8$\  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") $2i@@#g8  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" Qyx~={.C~  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False +0Q 
+0:  
    With ActiveDocument.Styles("QLNU中文摘要").Font tH *|  
        .NameFarEast = "宋体" 4L{]!dox  
        .NameAscii = "Times New Roman" 7_ )38  
        .NameOther = "Times New Roman" S|LY U!IWZ  
        .Name = "Times New Roman" L1(-xNUo_i  
        .Size = 12 (F.w?f4B3  
        .Bold = wdUndefined p19@t
o5l  
        .Superscript = wdUndefined Qf~$9?z  
        .Subscript = wdUndefined ceCO*m~  
        .Italic = wdUndefined 1>L'F8"  
        .Underline = wdUnderlineNone N#e9w3Rli  
        .UnderlineColor = wdColorAutomatic Pz:,de~5Qm  
        .Color = wdColorAutomatic 2@z.ory.  
    End With u1#(~[.  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat {}Is&^3Z  
        .LineSpacingRule = wdLineSpaceExactly :p]e4|R  
        .LineSpacing = 20 y6[le*T  
        .Alignment = wdAlignParagraphLeft #rBfp|b]1  
         + 5Dc5Bl  
        .WidowControl = False A b j7  
        .KeepWithNext = False [v*q%Mi_  
        .KeepTogether = True aL+>XN  
        .PageBreakBefore = False C3f\E: D)  
        .NoLineNumber = False |?g-8":H8P  
        .OutlineLevel = wdOutlineLevelBodyText EleJ$ `/  
         Xa?igbgAwx  
        .LeftIndent = CentimetersToPoints(0) m9:ah<  
        .RightIndent = CentimetersToPoints(0) GtZ.'?-  
        .FirstLineIndent = CentimetersToPoints(0) \**j\m   
         w <"mS*Q  
        .CharacterUnitLeftIndent = 0 MOCcp s*  
        .CharacterUnitRightIndent = 0 iZeq l1O  
        .CharacterUnitFirstLineIndent = 2 +By '6?22  
        .LineUnitBefore = 0 u "k< N|.3  
        .LineUnitAfter = 0 ' F9gp!s8~  
         Dr%wab"yy  
    End With dc1Zh W4  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False +YW;63"
o  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll "Z,T%]  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS J!5b~8`v  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True >,3
uu}s  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese 6XU p$Pd(  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True vS0 ii  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete {!qnHv\S  
    DoEvents Gs3V]qbEP  
     Y\B6c
^E)  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") X_@|+d  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" Xz)F-C27h  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False il!B={  
    With ActiveDocument.Styles("QLNU英文标题").Font /Qr`au  
        .NameFarEast = "黑体" L)F4)VL  
        .NameAscii = "Arial Narrow" VWHpfm[r%  
        .Name = "Arial Narrow" 2YW;=n  
        .Size = 16 9Scg:}Nj  
        .Bold = True 6<fG;:  
        .Bold = wdUndefined G'-#99wv.  
        .Superscript = wdUndefined lA/-fUA  
        .Subscript = wdUndefined $m*Gu:#xm&  
        .Italic = wdUndefined (g X8iKl  
         YCxwIzIR  
        .Underline = wdUnderlineNone `<>QKpAn  
        .UnderlineColor = wdColorAutomatic :0 n+RL*5  
        .StrikeThrough = False Q{950$)L
 
        .DoubleStrikeThrough = False IHd W!q  
    End With p!uB8F  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat zi xG}'  
        .LineSpacingRule = wdLineSpaceSingle aHpZhR|f$  
        .Alignment = wdAlignParagraphCenter Lkx~>U   
        .WidowControl = True h{ix$Xn~  
        .KeepWithNext = False WfG +_iP?  
        .KeepTogether = False YMK ![ q-  
        .PageBreakBefore = False Fc\]*  
        .NoLineNumber = False },JJ!3  
        .FirstLineIndent = CentimetersToPoints(0) {xov
8M  
        .OutlineLevel = wdOutlineLevelBodyText ?jlz: Z4  
         (Y7zaAG]  
        .LeftIndent = CentimetersToPoints(0) 3Z*o5@RI  
        .RightIndent = CentimetersToPoints(0) S-gO  
        .FirstLineIndent = CentimetersToPoints(0) T9Juq6|  
         =dKjTBR S'  
        .CharacterUnitLeftIndent = 0 sHk>ek]2I  
        .CharacterUnitRightIndent = 0 L_vl%ii-  
        .CharacterUnitFirstLineIndent = 0 kVKAG \F  
         h ka_Fo  
        .LineUnitBefore = 1 $,, PF/N8c  
        .LineUnitAfter = 1 pl1CPxSdO  
         & b5(Su  
    End With ; xp -MK  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False vMEN14;yH_  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll jED.0,+K!  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS zN[& iKf  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True sr&W+4T  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese _Q I!UQdW  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True E/%"%&`8j  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete I%a-5f$0  
    DoEvents t$Rc 0  
v]F4o1ckk  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") YJ"D"QD  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" -mRgB"8  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False *w*>\ZhOm  
    With ActiveDocument.Styles("QLNU英文摘要").Font ^w~B]*A:"  
        .NameFarEast = "宋体" e]88 4FP  
        .NameAscii = "Arial" ~).D\Q\  
        .NameOther = "Arial" .|R4E  
        .Name = "Arial" +#BOWz  
        .Size = 12 p2t04p!  
        .Bold = wdUndefined =%IyR  
        .Italic = wdUndefined t &{;6MiE  
        .Superscript = wdUndefined 8^j~uH  
        .Subscript = wdUndefined 8t*sp-cy|  
    End With GVnDN~[  
     J({D~
 
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat H#;*kc a4  
         _Wg}#r  
        .LineSpacingRule = wdLineSpaceExactly sV%DX5@  
        .LineSpacing = 20 ~BJE~  
         4FRi=d;mP  
        .Alignment = wdAlignParagraphJustify Z*mbhod  
         (iir,Ks2C  
        .WidowControl = False R`a~8QVh&5  
        .KeepWithNext = False U6@c)_* <  
        .KeepTogether = False TK\3mrEI  
        .PageBreakBefore = False $B%KkD  
        .NoLineNumber = False U[?_|=~7  
         +c<iVc|  
        .OutlineLevel = wdOutlineLevelBodyText Yn="vpM1  
         ]&Y^  
        .LeftIndent = CentimetersToPoints(0) /ugyUpyg  
        .RightIndent = CentimetersToPoints(0) F.$z7ee @  
        .FirstLineIndent = CentimetersToPoints(0) ;j1E6  
         .aY$-Y<  
        .CharacterUnitLeftIndent = 0 Gg9MAK\C9  
        .CharacterUnitRightIndent = 0 TQ4L~8  
        .CharacterUnitFirstLineIndent = 2 Y 2ANt w@  
         ]Rxo}A  
        .LineUnitBefore = 0 lNg){3  
        .LineUnitAfter = 1 /^nIOAeE  
          ,/b!Xm:  
    End With JJ?rVq1g  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False >rEZ$h  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll H@xS<=:lM  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS #c@&mus  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False ySO\9#Ho  
    DoEvents eZT8gKbjJ)  
7mMGH (  
    Options.Pagination = True ;
n(f?RO3X  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." &Z]}rn  
    DoEvents ZuGd{p$  
    ActiveDocument.Repaginate P%e7
c,  
/v5A)A$7  
End Sub 65~E<)UJ  
* CR#D}F  
NC-K`)   

姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 rueaP  
?tjEXg>ny  

引用

引用第20楼newport93于06-14-2010 13:47发表的  : AEyD?^?  
?Cf'IBpN  
老五，I 服了U。 WkA47+DsV  
]z^jz#>um&  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 tz;o6,eb  

o[!o+M