Dim bContinue As Boolean {6*#3m Kk  
[Atc "X$  
Dim regEX As New RegExp 2q PhLCeZ  
Dim paraCounter As Long  '全局段落计数，仅在主程序中可读写，其它过程函数应为只读 53Yxz3v  
|sIr?RL{C  
Dim LastTitle0String As String, LastTitle0No As Long uSN" vpc4D  
Dim LastTitle1String As String, LastTitle1No As Long M:| 8]y@  
Dim LastTitle2String As String, LastTitle2No As Long ,%[4j9#!_  
Dim LastTitle3String As String, LastTitle3No As Long $6h*lT<  
Dim LastTitle4String As String, LastTitle4No As Long PD6_)PXn  
Dim LastTitle5String As String, LastTitle5No As Long E]I$}>k  
Dim LastTabelString As String, LastTableNo As Long ?Ik4  
Dim LastFigureString As String, LastFigureNo As Long 19c@`?  
?Go!j?#a  
Dim strSeperator As String A]o4Mf0>I  
c2 Aps  
Sub ConvertWidth(fTEXT As String, rText As String) Wd8Ru/  
        Selection.Find.ClearFormatting 1%~[rnQ  
        Selection.Find.Replacement.ClearFormatting VUtXxvH  
        Selection.Find.Wrap = wdFindContinue 4^*,jS-9g}  
        Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText :,S98
z#  
        DoEvents n2f6p<8A  
        Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True m#e*c[*G  
End Sub .[:VSM7T  
< Ek/8x  
Sub ClearDomain() r37[)kJ  
        With Selection.Find : Q_3hK  
            .ClearFormatting yNCEz/4  
            .Replacement.ClearFormatting iWA|8$u4gm  
            .Wrap = wdFindContinue 8(f
:U@BS  
            Me.txtStatus.Text = "清除所有域代码" bg
F^(T35  
            DoEvents [AS}
RV   
            .Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False #%$28sxB  
        End With ?9mkRd}c  
End Sub 0;<)\Wt=i9  
Ez+Z[*C  
Private Sub cmdCheck_Click() 8'#/LA[uPe  
    bContinue = True .Z\Q4x#!Z  
    Dim NoSeries1(1 To 16) As String epg#HNP7^Y  
    Dim NoSeries2(1 To 16) As String /,s[#J  
    Dim NoSeries5(1 To 16) As String n~.*1. P  
    Dim NoSeriesRM(1 To 16) As String g(Yb^'X/  
    Dim paraTotal As Long, ParaText As String J?&l*_m;t  
    Dim ttString As String, ttNo As String < zOi4v0  
     A"uULfnk  
    Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long MS3=~*+  
;65D  
    Me.txtStatus.Visible = True 'cBBt  
    Me.lbParaType.Visible = True 9Uf j  
    Me.cmdCheck.Enabled = False ZU{4lhe  
     PuL<^aJ  
     YKZa$@fA?  
     e6E?t[hEeS  
     S`!-Cal`n  
    Dim ParaType As String, rText As String z6*<V5<7  
     xY<{qHcX  
    Selection.WholeStory J2VTo: In  
    Selection.NoProofing = True Y32 "N[yw  
     n
,$z>  
    tm1 = Now i7*EbaYzUO  
     xQ4%e[/  
        ActiveWindow.View.Type = wdNormalView g}x(hF  
     LWnR?Qve<  
    NoSeries1(1) = "一" y<:<$22O  
    NoSeries1(2) = "二" J00
VTb`  
    NoSeries1(3) = "三" #
_i`#d)  
    NoSeries1(4) = "四" P7.'kX9  
    NoSeries1(5) = "五"  ?K_ '@  
    NoSeries1(6) = "六" k@dN$O%p  
    NoSeries1(7) = "七" @7oL#-  
    NoSeries1(8) = "八" SaOYu &>  
    NoSeries1(9) = "九" \ZI'|Ad  
    NoSeries1(10) = "十" mGjN _  
    NoSeries1(11) = "十一" r'GP$0rr9!  
    NoSeries1(12) = "十二" BU|#e5  
    NoSeries1(13) = "十三" r
(h`XMsU  
    NoSeries1(14) = "十四" T/1gI9X  
    NoSeries1(15) = "十五" !RW `3  
    NoSeries1(16) = "十六" 5jB*fIz  
     3Ot~!AlR  
    NoSeries2(1) = "㈠" *L4`$@l8  
    NoSeries2(2) = "㈡" ?jx1R^  
    NoSeries2(3) = "㈢" c{3wk7  
    NoSeries2(4) = "㈣" NZ0O,}m  
    NoSeries2(5) = "㈤" . pzC5Ah  
    NoSeries2(6) = "㈥" /Ncm^b4  
    NoSeries2(7) = "㈦" K/=|8+IDL  
    NoSeries2(8) = "㈧" m ci/'b Xt  
    NoSeries2(9) = "㈨" CW&. NT  
    NoSeries2(10) = "㈩" r^Zg-|gr  
     oczG|_  
    NoSeries5(1) = "①" eE GfM0  
    NoSeries5(1) = "②" _hu
")os  
    NoSeries5(3) = "③" n>>Qn&ym  
    NoSeries5(4) = "④" jszK7$]^  
    NoSeries5(5) = "⑤" %McE`155  
    NoSeries5(6) = "⑥" 5=|hC3h  
    NoSeries5(7) = "⑦" m908jI_So  
    NoSeries5(8) = "⑧" *{ {b~$  
    NoSeries5(9) = "⑨" E>|: D
 
    NoSeries5(10) = "⑩" N$>^g"6o  
     Jl3g{a  
     p5r]J+1  
    NoSeriesRM(1) = "I" 0Hxmm@X 2  
    NoSeriesRM(2) = "II" **3 z;58 i  
    NoSeriesRM(3) = "III" -G7TEq)  
    NoSeriesRM(4) = "IV" Om;&_!
i  
    NoSeriesRM(5) = "V" q 11IkDa
  
    NoSeriesRM(6) = "VI" 4JGtI*%5lq  
    NoSeriesRM(7) = "VII" $D'-k]E[H  
    NoSeriesRM(8) = "VIII" Ej".axjT  
    NoSeriesRM(9) = "IX" 9h4({EE2t  
    NoSeriesRM(10) = "X" ZyrI R  
    NoSeriesRM(11) = "XI" _tTNG2  
    NoSeriesRM(12) = "XII" ~*A8+@\R  
    NoSeriesRM(13) = "XIII" u&mS8i}  
    NoSeriesRM(14) = "XIV" $5
D,sEC@  
    NoSeriesRM(15) = "XV" phnV7D(E  
    NoSeriesRM(16) = "XVI" wMqX)}>  
     ngohtB^]  
    i = MsgBox("为了你的数据安全，请使用单独保存的文件副本进行本操作。" & vbCrLf & "确定继续进行吗？", vbYesNo) G3G#ep~)vC  
     eqw0]U\pv  
    If i = vbNo Then R_XR4)(<  
        Exit Sub Zwz&rIQpT  
    End If a2'^8 ;U*_  
     UcOk3{(z$q  
    If Me.chkSuper.Value Then *!s;"U  
        Me.txtStatus.Text = "检查修改所有的上标格式" L>yJ  
     /1mW|O>0  
        CheckSuperScript PYbVy<xc  
         x^4xq#Bb7  
    End If 0j
"8@
<  
     ]vWKR."4  
    If Me.chkStyle.Value Then d)4 m6  
        Me.txtStatus.Text = "设置样式，请稍候...." 2'EUy@0  
        DoEvents z|E EVNFd&  
        CeateOrModifyStyle }J">}j]/  
    End If hd),&qoW?  
     p2Zo  
     m< _S_c  
     _8Kx6
s%  
    ClearDomain 8>,jpAN}r  
         'u4<BQVV[  
     (bsXo q  
     OxI/%yv-c  
    If Me.chkLIST.Value Then ^?7` ;/  
        Me.txtStatus.Text = "将所有自动列表标题转化为人工标题形式" "#[!/\=?:  
     |7y

AX+  
        ConvertListToOrdinary )E@A0W  
    End If 8V^oP]Y  
     S4=~`$eP  
     i;LXu%3\  
    Dim pType As String, trimpTEXT As String QUU;g2k  
    If Me.chkNum.Value = True Then b2b^1{@h;v  
        Me.txtStatus.Text = "转换全角数字形式为半角"
g35DV6  
        ConvertWidth "１", "1" 1N7Kv4,  
        DoEvents x=ul&|^7D  
        ConvertWidth "２", "2" =jB08A  
        DoEvents a}%#*J)!  
        ConvertWidth "３", "3" sl]_M  
        DoEvents KD`IX-r{s  
        ConvertWidth "４", "4" *%{gYpn  
        DoEvents na9sm  
        ConvertWidth "５", "5" QFYWA1<pDh  
        DoEvents h4q|lA6!k8  
        ConvertWidth "６", "6" ~0beuK&p  
        DoEvents O+y-}7YX  
        ConvertWidth "７", "7" d ,4] VE  
        DoEvents }VS5gxI1.  
        ConvertWidth "８", "8"
> ;/l)qk,  
        DoEvents Tyvtmx M  
        ConvertWidth "９", "9" q#<^^4U  
        DoEvents /"eey(X  
        ConvertWidth "０", "0" 5R(/Uiv3F  
        DoEvents 9E>xIJ@J2T  
        ConvertWidth "ａ", "a" .C
8PitS  
        DoEvents sZx/Ee   
        ConvertWidth "ｂ", "b" O8B\{T1  
        DoEvents B!vmQR*1  
        ConvertWidth "ｃ", "c" $s9Vrw0Z  
        DoEvents =-IbS}3  
        ConvertWidth "ｄ", "d" dZi"$ g  
        DoEvents gw,UQbnu  
        ConvertWidth "ｅ", "e" C:PMewn  
        DoEvents (h>-&.` &  
        ConvertWidth "ｆ", "f" ]IoUwgpI)  
        DoEvents :<}=e@/~|  
        ConvertWidth "ｇ", "g" su*'d:L  
        DoEvents *:Z
Dd  
        ConvertWidth "ｈ", "h" :xtXQza"-  
        DoEvents tmQH
|'>>  
        ConvertWidth "ｉ", "i" g!rQ4#4  
        DoEvents N5a*7EJv+  
        ConvertWidth "ｊ", "j" /YZr~|65  
        DoEvents N[s}qmPha  
        ConvertWidth "ｋ", "k" c-B cA  
        DoEvents a)wJT`xu  
        ConvertWidth "ｌ", "l" $0vb
^  
        DoEvents =EHUR'  
        ConvertWidth "ｍ", "m" eeyHy"@  
        DoEvents zT!drq:x  
        ConvertWidth "ｎ", "n" G1vNt7  
        ConvertWidth "ｏ", "o" |&RU/a  
        ConvertWidth "ｐ", "p" ;kY(<{2  
        ConvertWidth "ｑ", "q" rg^'S1x|  
        ConvertWidth "ｒ", "r" Ney/[ 3 A  
        ConvertWidth "ｓ", "s" "rx-_uK*  
        ConvertWidth "ｔ", "t" j'A_'g'^  
        ConvertWidth "ｕ", "u" 3AU;>D^5  
        ConvertWidth "ｖ", "v" vQ;Ex  
        ConvertWidth "ｗ", "w" 7
=;R& mqC  
        ConvertWidth "ｘ", "x" 9WyAb3d'  
        ConvertWidth "ｙ", "y" HZ'_r cv  
        ConvertWidth "ｚ", "z" :]\([Q+a  
        ConvertWidth "Ａ", "A" L*YynF  
        ConvertWidth "Ｂ", "B" |Y?HA&  
        ConvertWidth "Ｃ", "C"  Vh_P/C+  
        ConvertWidth "Ｄ", "D" " wNJ  
        ConvertWidth "Ｅ", "E" z6*X%6,8  
        ConvertWidth "Ｆ", "F" 7Zlw^'q$:L  
        ConvertWidth "Ｇ", "G" Wf|Q$MHos  
        ConvertWidth "Ｈ", "H" eAE`#t  
        ConvertWidth "Ｉ", "I" WA+iYLx@H  
        ConvertWidth "Ｊ", "J" \O2Rhz  
        ConvertWidth "Ｋ", "K" 0*f)=Q'  
        ConvertWidth "Ｌ", "L" Mu+0
<>
 
        ConvertWidth "Ｍ", "M" U4d :] z  
        ConvertWidth "Ｎ", "N" '.:z&gSqx0  
        ConvertWidth "Ｏ", "O" Qk:
Y2mL  
        ConvertWidth "Ｐ", "P" vEJWFoeEFm  
        ConvertWidth "Ｑ", "Q" o,_?^'@  
        ConvertWidth "Ｒ", "R" wne,e's}   
        ConvertWidth "Ｓ", "S" OX\A|$GS  
        ConvertWidth "Ｔ", "T" Xu%'Z".>:  
        ConvertWidth "Ｕ", "U" kqFP)!37  
        ConvertWidth "Ｖ", "V" wOU_*uY@6'  
        ConvertWidth "Ｗ", "W" >m$1Xx4#GV  
        ConvertWidth "Ｘ", "X" @7I
IM{  
        ConvertWidth "Ｙ", "Y" 9[<)WQe6M  
        ConvertWidth "Ｚ", "Z" k?+?v?I =  
        ConvertWidth "^l", "^p" 3kybLOG  
        ConvertWidth "（", "(" \G*0"%!U  
        ConvertWidth "）", ")" E=nIRG|g  
     e)d`pQ6  
    End If bbE!qk;hEP  
y*qVc E  
    With ActiveDocument !2ZF(@C/  
        Dim tbl As Table D]zwl@sRX:  
        For Each tbl In .Tables {\8
1i8b]  
            tbl.Rows.Alignment = wdAlignRowCenter %nf6%
@s  
            tbl.Range.Font.NameFarEast = "楷体" U/!TKic+  
            tbl.Range.Font.NameAscii = "Times New Roman" ? m DI#~)  
            tbl.Range.Font.Size = 10.5 _h{C_;a[_  
        Next ,J+}rPe"sf  
        Set tbl = Nothing ~"nxE  
    End With Zy`m!]G]80  
     N sXHO  
     'Gj3:-xqL  
    With ActiveDocument Q+[n91ey**  
         MN\HDKN  
        For i = 1 To .TablesOfContents.Count ]n6#VTz*  
            .TablesOfContents(i).Delete GPN]9  
        Next =l+yA>t|  
         OCe!.`  
         Y3Yz)T}UkS  
         pH9VTM.*  
        paraTotal = .Paragraphs.Count )Y"+,$$>Y`  
        paraCounter = 1 LRL,m_gt  
         `sn^ysp  
        LastTitle0No = 0 hgPa
6Kd  
        LastTitle1No = 0 '=b/6@&  
        LastTitle2No = 0 k>;`FFQU>  
        LastTitle3No = 0 V<GHpFi0  
        LastTitle4No = 0 F1*>y  
        LastTableNo = 0 G?O1>?4C  
        LastFigureNo = 0 ZOh`(})hy  
         d3\qKL!~  
        Dim Sec As Long r>>%2Z-P  
         EJMM9(DQ7  
        Sec = InputBox("正文从第一节开始？", "节设置", 6) = ;Au<|  
        If Sec = 0 Then H?yK~bGQ  
            Exit Sub Te"io U?.  
        End If %)1y AdG 8  
         p{r}?a  
        k = 0 ~%&LTX0s|  
        Do While (paraCounter < paraTotal) And bContinue v[1aWv:  
            k = k + 1 ,E S0NA  
            If .Paragraphs(paraCounter).Range.Information(wdActiveEndSectionNumber) >= Sec Then H\ F:95  
                Exit Do -t!~%_WCv  
            End If Y]'Z7<U}*E  
            paraCounter = paraCounter + 1 m|n  
            If k Mod 20 = 0 Then rNXQf'*I  
                Me.lbCounter.Caption = paraCounter M:Pc,  
                DoEvents V%rzk*LA  
            End If ~vm%6CABM  
        Loop LSL/ZvSP  
         ]cHgleHQ  
         m*&]!mM"0G  
        Do While (paraCounter < paraTotal) And bContinue =$'6(aDH  
             ]d$8f  
            ParaText = Trim(.Paragraphs(paraCounter).Range.Text) ]_f_w9]  
            ShapeHeight = 0 I|qo+u)  
            ShapeWidth = 0 0"<H;7K#W  
           D4eDHq  
            CheckPara .Paragraphs(paraCounter).Range, ParaType, rText, ttString, ttNo, ShapeCounter, ShapeHeight, ShapeWidth 'DP1
,7  
             ZMQZs~;~d  
            Select Case ParaType cr7 }^s  
                Case "【】表格内容" (7wc*#}  
                    .Paragraphs(paraCounter).Style = "QLNU表格内容" 6'k<+IR  
                Case "章" ]L5@,E4.  
                    LastTitle0No = LastTitle0No + 1 9ijfRqI=x  
                    '新一章开始，复位其下属标题编号 {$0mwAOH "  
                    LastTitle1No = 0 J,'M4O\S  
                    LastTitle2No = 0 %O|iE M  
                    LastTitle3No = 0 <cps2*'  
                    LastTitle4No = 0 C0T;![/4A  
                     , qMzWa  
                    k = Val(ttNo) Ni9/}bb  
                    If k = 0 Then '非数字编号章节 +}Dw3;W}m  
                        If ttNo <> NoSeries1(LastTitle0No) Then 9+Np4i@  
                            rText = "第" & NoSeries1(LastTitle0No) & ttString *#,7d"6W5  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText fDv2JdiU  
                        End If rB Q_iB_  
                    Else
-*1d!  
                        If Val(ttNo) <> LastTitle0No Then ,LHn90S  
                            rText = "第" & LastTitle0No & ttString G#ZH.24Y  
                            Me.ErrMsg.AddItem "章节编号错误：" & ParaText UXJeAE-  
                        End If PxvyN_B#>  
                         }bb;~  
                    End If =W(Q34  
                     L+b6!2O,  
                    '章段落设置 - YEZ]:"  
                    '字体大小：三号16磅小三号15磅四号14磅小四号12磅五号10.5磅小五号9磅 $*^7iT4q_t  
                    .Paragraphs(paraCounter).Style = "QLNU章节" 8V'~UzK  
                    .Paragraphs(paraCounter).Range.Select ]E5o1eeg  
                    Selection.EndKey unit:=wdLine 6AAz  
                    tc = Replace(rText, vbCr, "") )}Hpi<5N  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False V'z1  
                Case "一级标题"
3#3n!(  
                    LastTitle1No = LastTitle1No + 1 9}rS(/@ }  
                    '新一级标题开始，复位其下属标题编号 I fK,b*%  
                    LastTitle2No = 0 3Z>Ux3[  
                    LastTitle3No = 0 B6MB48#0gs  
                    LastTitle4No = 0 P7
8g/p T  
                     X8Bd3-B  
                    If ttNo <> NoSeries1(LastTitle1No) Then cN/6SGHK  
                            rText = NoSeries1(LastTitle1No) & "、" & ttString Dj "F\j 1  
                            Me.ErrMsg.AddItem "一级标题编号错误：" & ParaText ^9v4OUG  
                    End If ER%^!xA  
                   `KZm0d{H  
                     >FeX<L  
                    '一级标题段落设置  格式：一、标题内容 hNC&T`.-~B  
                    .Paragraphs(paraCounter).Range.Text = rText 3#LlDC_WC  
                    .Paragraphs(paraCounter).Style = "QLNU一级标题" zO-z%y  
                    .Paragraphs(paraCounter).Range.Select Z@4Arfl  
                    Selection.EndKey unit:=wdLine /C
rSu  
                    tc = Replace(rText, vbCr, "") Vr3Zu{&2  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 1 ", PreserveFormatting:=False Kg{+T`  
                Case "二级标题" lU8l}Ndz"  
                    LastTitle2No = LastTitle2No + 1 {&&z-^  
                    '新二级标题开始，复位其下属标题编号 7`*h2 mgY  
                    LastTitle3No = 0 4>wP7`/+y  
                    LastTitle4No = 0 ; 5*&xz  
                     !z\h|wU+  
                    If ttNo <> NoSeries1(LastTitle2No) Then j`{?OYD  
                            rText = "(" & NoSeries1(LastTitle2No) & ")" & ttString G<L;4nA)  
                            ErrMsg.AddItem "二级标题编号错误：" & ParaText C7]f*TSC4  
                    End If {5Q!Y&N.%  
                     < $D`Z-6  
                    '二级标题段落设置 格式：(一)、标题内容 S\CCrje  
                    .Paragraphs(paraCounter).Range.Text = rText L^1NY3=$  
                    .Paragraphs(paraCounter).Style = "QLNU二级标题" /:cd\ A}  
                     2=*H 8'k  
                    .Paragraphs(paraCounter).Range.Select /2&c$9=1  
                    Selection.EndKey unit:=wdLine 1KU! tL  
                    tc = Replace(rText, vbCr, "") 9)l$ aBa  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 2 ", PreserveFormatting:=False u+ 9hL4  
                 0_jf/an,%  
                Case "三级标题" )HEa<P^kJl  
                    LastTitle3No = LastTitle3No + 1 y6g&Y.:o  
                    '新三级标题开始，复位其下属标题编号 5?f ^Rz  
                    LastTitle4No = 0 g_;\iqxL  
                     ^ gdaa>L  
                    If Val(ttNo) <> LastTitle3No Then Z%gh3  
                            rText = LastTitle3No & ". " & ttString jk;j2YNPw  
                            Me.ErrMsg.AddItem "三级标题编号错误：" & ParaText `}p0VmD{NE  
                         ^}RCoE  
                    End If !Jo_"#5  
                    '三级标题段落设置 格式：1. 标题内容 |Tv#4st  
                    .Paragraphs(paraCounter).Range.Text = rText _P!m%34|  
                    .Paragraphs(paraCounter).Style = "QLNU三级标题" ld[I}88$  
                    .Paragraphs(paraCounter).Range.Select KYB`D.O  
                    Selection.EndKey unit:=wdLine y'3rNa]G1  
                    tc = Replace(rText, vbCr, "") l[dK[4  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 3 ", PreserveFormatting:=False &T#;-`'  
                Case "四级标题" *IB4[6  
                    LastTitle4No = LastTitle4No + 1 K%t*8 4j  
                     KqHyG  
                    If Val(ttNo) <> LastTitle4No Then xB@ T|EP  
                            rText = "(" & LastTitle4No & "). " & ttString ]=\].% >  
                            ErrMsg.AddItem "四级标题编号错误：" & ParaText p/ ,=OaVU  
                     Sh/08+@+L:  
                    End If C"y(5U)d  
                    '四级标题段落设置 格式：(1). 标题内容 x'8x   
                    .Paragraphs(paraCounter).Range.Text = rText l|u>Tb|V  
                    .Paragraphs(paraCounter).Style = "QLNU四级标题"  {y)=eX9  
                    .Paragraphs(paraCounter).Range.Select })'B<vq  
                    Selection.EndKey unit:=wdLine ]}V<*f  
                    tc = Replace(rText, vbCr, "") b!+hH Hv:  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TC  """ & tc & """ \l 4 ", PreserveFormatting:=False `

./$&'  
                 %aP!hy  
                Case "表格标题" wi!?BCseq  
                    LastTableNo = LastTableNo + 1 l5~os>  
                     9=s<Ld   
                    If ttNo <> CStr(LastTableNo) Then 4VHn  \  
                            rText = "表" & LastTableNo & ". " & ttString zrvF]|1UP  
                            ErrMsg.AddItem "表格编号错误：" & ParaText kXViWOXU^  
                   !hm]fh_j  
                    End If QFA8N  
                     Q-(zwAaE
 
                    '表格名称段落设置 格式：表1. 表格名称 2IK}vDsis  
                    .Paragraphs(paraCounter).Style = "QLNU表格标题" t$`r4Lb9/  
                    xe = Replace(rText, vbCr, "") P?%s #I:  
                    .Paragraphs(paraCounter).Range.Select 49eD1h3'X[  
                    Selection.MoveEnd wdCharacter, -1   '选择范围包括行尾的换行符。 Q3 ea{!r  
                    Selection.Range.Text = xe 2_>N/Z4T  
                    Selection.EndKey aEB_#1  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False ~?l | [  
                 91/Q
9xY  
                Case "表格首行" [ |v][Hwv  
                    .Paragraphs(paraCounter).Style = "QLNU表格首行" A@`}c,G  
                Case "图片标题" (|2t# 'm  
                    LastFigureNo = LastFigureNo + 1 VMZMG$C  
                     Z*F3G#A  
                    If ttNo <> CStr(LastFigureNo) Then [:dY0r+  
                            rText = "图" & LastFigureNo & ". " & ttString )L? P}$+  
                            ErrMsg.AddItem "表格编号错误：" & ParaText %mW{n8W3{  
                   gM&{=WDG6  
                    End If ldf\;Qk  
                    '图片名称段落设置 格式：图1. 图名称 8C40%q..  
                    .Paragraphs(paraCounter).Range.Text = rText p#-Z4-`  
                    .Paragraphs(paraCounter).Style = "QLNU图片标题" P1!qbFDv8  
                    .Paragraphs(paraCounter).Range.Select W"scV@HKu  
                    Selection.EndKey unit:=wdLine { $oj.V 4  
                    xe = Replace(rText, vbCr, "") 1Yq!~8  
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="XE  " & """" & xe & """", PreserveFormatting:=False vz&|J   
                Case "正文" h0EEpL|\  
                     '正文名称段落设置 e+EQ]<M  
                    .Paragraphs(paraCounter).Style = "QLNU正文" z'Hw  
               Case "文献条目" a,,exi  
                    With .Paragraphs(paraCounter) [+^1.N  
                        '.Range.Select u*eV@KK!  
                        'Selection.ClearFormatting _O?`@g?i  
                        '.Range.Find.Execute findtext:=rText, replacewith:=strSeperator   'Replacetext 传回了编号及分隔符部分， 而StrSeperator传回了正确的格式与分隔符如“[15] ” {FI&^39 F$  
                        .Style = "QLNU参考文献" .e#w)K  
                    End With 0S"mVZ*P  
               Case "图表注解" nkPh,X\N0  
                    With .Paragraphs(paraCounter) a .#)G[*  
                        .Range.Font.NameFarEast = "楷体" [+Iz@0q  
                        .Range.Font.NameAscii = "Times New Roman" I{|O "8  
                        .Range.Font.Size = 9 '小5号字 /WcG{Wdp  
                         Cp\6W[2+B  
                        .Alignment = wdAlignParagraphCenter 6XxvvMA97  
                        .LeftIndent = 0 .'6gZKXY  
                        .RightIndent = 0 b1I]>\  
                        .FirstLineIndent = 0 10Q ]67  
                        .LineSpacing = 12 =nHUs1rKn  
                        .LineSpacingRule = wdLineSpaceExactly aj='b.2)  
                        .LineUnitAfter = 0 i$Ul(?  
                        .LineUnitBefore = 0 q
] )K,)  
                        .OutlineLevel = wdOutlineLevelBodyText .xCZ1|+gG  
                        .PageBreakBefore = False Xg6Jh``  
                        .RightIndent = 0 -OV&Md:~  
                        .WordWrap = True $ Gf(38[w  
                        .LineUnitAfter = 0.5 G/E+L-N#`
 
                         2Ah#<k-gC;  
                    End With xo^b&ktQd  
                Case Else &C_j\7Dq  
                    '不作处理 l$KA)xbI  
            End Select RHW]Z Pr<  
             `bq
<$e  
            '含有inlineshape的段落处理 X0HZH?V+  
            If ShapeHeight > 30 Then <sbu;dQ`  
                .Paragraphs(paraCounter).LineSpacingRule = wdLineSpaceSingle  '对有图片的段落设置为单倍行距 \ #F  
            End If 70?\ugxA  
             hgG9m[?K  
            If (ShapeWidth + ShapeHeight) > 150 Then h
Pkp;a #  
                .Paragraphs(paraCounter).Style = "QLNU图片段落" ic:zsuEm  
            End If 8S TvCH"Z_  
             ,)cM3n u  
            '段落计数器递 b/K PaNv  
            paraCounter = paraCounter + 1 E:68?IJ  
            Me.lbCounter.Caption = "当前检测段落：" & paraCounter 4
> K42m  
            Me.txtStatus.Text = ParaText { l/U6](  
            DoEvents !)f\%lb  
        Loop )_90UwWpj  
    End With `7E;VL^Y1  
     h'llK6_)  
    msg = "" ,>a&"V^k  
     yZY\MB/  
    For i = 0 To Me.ErrMsg.ListCount - 1 h,:m~0gmj  
        msg = msg & vbCrLf & vbCrLf & Me.ErrMsg.List(i) :U|1xgB  
    Next LBeF&sb6  
     .vf'YNQ%  
     |d2S IyUc  
     w{8xpAqm  
    Me.txtStatus.Text = "格式化完成！" & vbCrLf & "开始时间：" & tm1 & vbCrLf & "结束时间：" & Now & vbCrLf & msg _;S-x  
    Me.cmdCheck.Enabled = True DeVv4D:}@  
    Me.txtStatus.Visible = True xK[ou'  
    Me.lbParaType.Visible = False zaIKdI'/e  
     K8|r&`X0  
    bContinue = False tAd%#:K  
End Sub ,Zx0%#6  
LVM%"sd?  
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) P8:dU(nlW  
    Dim pTEXT As String BKCiIfkZ  
     ,&A7iO  
    pTEXT = ChKRange.Text b#%hY{$j  
     au(D66VO  
    ParaType = "其它" [\eeDa  
    TitleString = pTEXT P;.W+WN  
    TitleNo = "N/A" 8 /]S^'>  
     C }j"Qi`  
    shpCounter = ChKRange.InlineShapes.Count +HpA:]#Y  
    If shpCounter <> 0 Then g/d<Zfq<{  
        MaxShpHeight = 0: TotalShpWidth = 0 {lzWrUGO  
        For i = 1 To shpCounter #lo6c;*m5  
            k = ChKRange.InlineShapes(i).Height ?>:g?.+  
            l = ChKRange.InlineShapes(i).Width =ZznFVJ`={  
            If k > MaxShpHeight Then Y1\}5k{>  
                MaxShpHeight = k 1ba~SHi  
            End If &J]K3w1p  
            TotalShpWidth = TotalShpWidth + l !qQl@jO  
        Next =j_4S<  
        If MaxShpHeight > 60 Or TotalShpWidth > 150 Then \!X8   
            Exit Sub |*xA8&/  
        End If rBzuKQK}J  
    End If t.y2ff<[U  
     WDYeOtc  
    '空行 R_cA:3qc~  
    If Len(pTEXT) <= 2 Then C[AqFo  
        Exit Sub eb{nWP  
    End If "S]0  
     df+l%9@  
         q[_VuA]&  
    '是否为表格中的文字 4"(Bu/24  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdWithInTable) Then e)k9dOR  
        ParaType = "表格内容" p<FzJ  
        k = ActiveDocument.Paragraphs(paraCounter).Range.Information(wdEndOfRangeRowNumber) }-{H  Y  
        If k = 1 Then nc29j_Id  
            ParaType = "表格首行" 3*XNV  
        End If oCv.Ln1;Z  
        Exit Sub D/gw .XYL  
    End If R%WCH?B<}  
     C==hox7b  
    '例外情况：脚注 3pROf#M  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInFootnote) Then cl3K<'D  
        ParaType = "脚注"
&m7]v,&  
        Exit Sub %IA\pSE  
    End If 3ZPWze6  
     8FK/~,I  
    '例外情况：尾注 Y5Bo|*b  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInEndnote) Then  7aRi5  
        ParaType = "尾注" H2 {+)  
        Exit Sub _.Nbt(mz  
    End If 2a)xTA#  
     05#1w#i  
    If ActiveDocument.Paragraphs(paraCounter).Range.Information(wdInHeaderFooter) Then ^Z+?h&%%  
        ParaType = "页眉页脚" |^I0dR/w:  
        Exit Sub F,F4nw<W  
    End If (8DC}kckE  
     pU}(@oy  
     ?=7cF  
    With regEX 7F7{)L  
        .Global = True Ta0|+IYk<  
         s c,Hq\$&  
        .Pattern = "^第([1-9]|１|２|３|４|５|６|７|８|一|二|三|四|五|六|七|八|九|十)章(、|\.|\s|。|．)+(.{1,30})$" ,-LwtePJ0  
        If regEX.Test(pTEXT) Then \:'/'^=#|  
            ReplaceTEXT = regEX.Replace(pTEXT, "第$1章 $3") >2)OiQ`zg  
            TitleString = regEX.Replace(pTEXT, "$3") M/'sl;  
            TitleNo = regEX.Replace(pTEXT, "$1") UgSB>V<?  
            ParaType = "章" r,3DTBe  
            Exit Sub wmL'F:UP  
        End If HRCT}  
         jOunWv|  
        .Pattern = "^(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(、|\.|\s|。|．)+(.{1,40})$" W\,s:6iqz  
        If regEX.Test(pTEXT) Then 8'[7 )
I=  
            ParaType = "一级标题" Kk0g0C:"EO  
            regEX.Execute (pTEXT) {]!mrAjD  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1、$3") x+:UN'
"r  
            TitleString = regEX.Replace(pTEXT, "$3") 49c:
V,  
            TitleNo = regEX.Replace(pTEXT, "$1") \)904W5R  
            Exit Sub {4}yKjW%z  
        End If =o(5_S.u;  
         /Iy
]DU
8  
        '全角或半角括号中的数字 =ho}oL,ZO  
        .Pattern = "(^\(|（)(十一|十二|十三|十四|十五|十六|一|二|三|四|五|六|七|八|九|十)(\)|）)(、|\.|\s|。|．)*(.{1,40})$" 8^2oWC#U(  
        If regEX.Test(pTEXT) Then !Pvf;rNI1T  
            ParaType = "二级标题" 4he GnMD  
            regEX.Execute (pTEXT) 4B1v4g 8}  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2)$5") g)[V(yWu  
            TitleString = regEX.Replace(pTEXT, "$5") gCS<iBT(7  
            TitleNo = regEX.Replace(pTEXT, "$2") nnEgx;Nl0  
            Exit Sub myQagqRx  
        End If P )"m0Lu<  
         aiUY>M#|  
        '阿拉伯数字  1. 2. nNV'O(x}  
        .Pattern = "^([1-9]|１|２|３|４|５|６|７|８|９|０){1,2}(、|\.|\s|。|．)+(.{1,80})$" #Y`~(K47  
        If regEX.Test(pTEXT) Then /9*B)m"  
            ParaType = "三级标题" _/$Bpr{R  
            regEX.Execute (pTEXT) %N6A+5H  
            ReplaceTEXT = regEX.Replace(pTEXT, "$1. $3") '未进行全半角转换，如需要可分成两步分别检测 n ATuD  
            TitleString = regEX.Replace(pTEXT, "$3") kZ .gO  
            TitleNo = regEX.Replace(pTEXT, "$1") ~$cV:O7  
            Exit Sub c|y(2K)o[=  
        End If [PM2\#K  
         <c-=3}=U\  
        '全角或半角括号中的阿拉伯数字 ,4e:I.b  
        .Pattern = "^(^\(|（)([0-9]|０|１|２|３|４|５|６|７|８|９){1,2}(\)|）)(、|\.|\s|。|．)*(.{1,80})$" %nZo4hnr$r  
        If regEX.Test(pTEXT) Then "Yv_B3p   
            ParaType = "四级标题" xC:L)7#aw  
            regEX.Execute (pTEXT) ]@c+]{  
            ReplaceTEXT = regEX.Replace(pTEXT, "($2) $5") ::lKL  
            TitleString = regEX.Replace(pTEXT, "$5") GW@;}m(  
            TitleNo = regEX.Replace(pTEXT, "$2") r'r%w# =`t  
            Exit Sub 1CD+B=pQG  
        End If N,AQsloL7  
         4jMFr,  
        '表格名称 @f~RdO3  
        .Pattern = "^表(\d{1,2}-{0,1}\d{0,1})([、|\.|。|．｜\s]{1,9})(.{1,120})$" [A~xy'T  
        If regEX.Test(pTEXT) Then O, wJR  
            ParaType = "表格标题" %D34/=(X  
            regEX.Execute (pTEXT) 
_ QI\  
            ReplaceTEXT = Trim(regEX.Replace(pTEXT, "表$1. $3")) )p0^zv{  
            TitleString = Trim(regEX.Replace(pTEXT, "$3")) BLdvyVFx  
            TitleNo = Trim(regEX.Replace(pTEXT, "$1")) G@\1E+Ip  
            strSeperator = Trim(regEX.Replace(pTEXT, "$2")) '不知道为什么，但是发现传回的replacetext在修改Paragraph对象的Range.Text后，表格标题就会落入第一个单元格中，所以，只能用Paragraph.Range.Find.Execute方法替换 CS5?Ti6  
            Exit Sub %6,SKg p  
        End If BwGfTua  
         '~<m~UXvD#  
        '图片名称 qvsd5PeCO  
        .Pattern = "^图(\d{1,2}-{0,1}\d{0,1})(、|\.|\s|。|．)+(.{1,120})$" d#Y^>"|$.  
        If regEX.Test(pTEXT) Then 81F/G5  
            ParaType = "图片标题" (!aNq(   
            regEX.Execute (pTEXT) 29"'K.r  
            ReplaceTEXT = regEX.Replace(pTEXT, "图$1. $3") u;"TTN  
            TitleString = regEX.Replace(pTEXT, "$3") Oh`69 k  
            TitleNo = regEX.Replace(pTEXT, "$1") Lc,Pom  
            Exit Sub @Zu5VpJ  
        End If m+R[#GE8#  
         w~A{(- dx  
        '参考文献 |Nn)m  
        .Pattern = "^([\[|［])(\d+)([］|\]])([、|\.|\s|。|．]{0,1})"  '[数字]、 YeL#jtC  
        If regEX.Test(pTEXT) Then py!|\00}  
            ParaType = "文献条目" o Q2Fjj  
            'ReplaceTEXT = regEX.Replace(pTEXT, "$1$2$3$4") AaOuL,l  
            'TitleNo = regEX.Replace(pTEXT, "[$2] ") NjScc%@y  
            Exit Sub )gIKH{JYL  
        End If ,/%=sux  
         Q7\w+ANf0  
        prfx = Left(pTEXT, 2) Xm}/0g&7  
        If prfx = "注：" Or prfx = "注:" Then *8Xh(` Mj7  
            ParaType = "图表注解" _$YkM,  
            Exit Sub S>6~lb8G  
        End If X,_2FJv  
         }Yzco52  
          .-c4wm}  
        ParaType = "正文" I\{ 1u  
         nI-w}NQ  
    End With 7 :xfPx  
End Sub QzV nL U)  
*boR`[Ond  
Sub ConvertListToOrdinary() <tNBxa$gS  
    Dim st As Paragraph W?
R6ZAn  
    With ActiveDocument KIf da
fRL  
        For i = .Paragraphs.Count To 1 Step -1 y/cvQY0pU  
            Set st = .Paragraphs(i) w^|*m/h|@u  
            lst = st.Range.ListFormat.ListString kk@f L  
            If lst <> "" Then ?k&Vy  
                st.Range.ListFormat.RemoveNumbers 61>.vT8P  
                st.Range.InsertBefore lst & " " ,t?B+$E  
            End If 5h-SC
B>P  
        Next ^z IW+:  
    End With mbxZL<ua  
    Set st = Nothing &\WSQmtto  
End Sub ci.+pF  
9gDkT Ykj  
Private Sub UserForm_Activate() xp)sBM7A  
    Me.lbTotal.Caption = "当前文章段落总数：" & ActiveDocument.Paragraphs.Count & " 共" & ActiveDocument.Sections.Count & "节" 4#xDgxg\f  
    Me.lbTotal.Font.Bold = True D6Ui !  
    Me.txtStatus.Visible = False ?m}
s4a  
    Me.cmdCheck.Enabled = True 9igiZmM  
TH&U j1  
End Sub m)t;9J5  
u(>^3PJ+  
+>{2*\cZ5}  
Sub CheckSuperScript() rk2j#>l$4  
    Selection.Find.ClearFormatting XB^'K2  
    Selection.Find.Replacement.ClearFormatting 2d #1=+V  
    With Selection.Find z6=Z\P+  
        .Text = "[【\[［〖](*)[】\]〗］]" <I\/n<*  
        .Replacement.Text = "[\1]" gnOt+W8  
        .Replacement.Font.Superscript = True kR-SE5`Jk  
        '.Replacement.Font.Color = wdColorBlue 8,4"uuI  
        .Forward = True ]d0BN`*U.  
        .Wrap = wdFindContinue mbTEp*H  
        .FORMAT = True /<=u\e'rE  
        .MatchCase = False ]Idk:et  
        .MatchWholeWord = False }<v@01  
        .MatchByte = False {_[N<U:QT&  
        .MatchAllWordForms = False gjwn7_  
        .MatchSoundsLike = False iDp)FQ$  
        .MatchWildcards = True vXf!G`D  
    End With x7&B$.>3  
    Selection.Find.Execute Replace:=wdReplaceAll JN-y)L/>  
End Sub t7Iv?5]N  
qZtzO2Mt  
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) RQ'9m^  
    bContinue = False v6bGjVK[  
    Set regEX = Nothing v!6  c0a  
End Sub C=L>zOZ  
w!-gJmX>  
Sub CeateOrModifyStyle() DS(}<HK{  
' Bi3<7  
' {j?FNOJn  
Dim stl As Style s4y73-J^.v  
     $oID(P  
    Options.Pagination = False N1}sHyVq7  
     wx= $2N6  
    On Error Resume Next !}#8)?p  
    For Each stl In ActiveDocument.Styles yy^q2P  
        stl.Delete iAEbu&XG  
    Next kWMl  
    On Error GoTo 0 {9&;Q|D z  
     |&
+o^  
    Set stl = Nothing x_N'TjS^{  
     DrUO-  
    DoEvents 9}!qR|l3nR  
    On Error Resume Next RUnSCOdX  
     2^[`eg  
    ActiveDocument.Styles.Add Name:="BaseStyle", Type:=wdStyleTypeParagraph d9fC<Tp  
     Eex~xiiV  
    ActiveDocument.Styles.Add Name:="QLNU论文题目", Type:=wdStyleTypeParagraph WYm\)@  
    ActiveDocument.Styles.Add Name:="QLNU中文摘要", Type:=wdStyleTypeParagraph %+W
{iu[|  
     S]e|"n~@  
    ActiveDocument.Styles.Add Name:="QLNU英文标题", Type:=wdStyleTypeParagraph UT~4x|b:O  
    ActiveDocument.Styles.Add Name:="QLNU英文摘要", Type:=wdStyleTypeParagraph )Xz,j9GzJS  
     ;;OAQ`  
    ActiveDocument.Styles.Add Name:="QLNU目录项", Type:=wdStyleTypeParagraph eCDev}  
    ActiveDocument.Styles.Add Name:="QLNU章节标题", Type:=wdStyleTypeParagraph MDZ640-Y  
    ActiveDocument.Styles.Add Name:="QLNU一级标题", Type:=wdStyleTypeParagraph X1x#6 oi  
    ActiveDocument.Styles.Add Name:="QLNU二级标题", Type:=wdStyleTypeParagraph .Ni\\  
    ActiveDocument.Styles.Add Name:="QLNU三级标题", Type:=wdStyleTypeParagraph 2>xF){`  
    ActiveDocument.Styles.Add Name:="QLNU四级标题", Type:=wdStyleTypeParagraph NdA[C|_8}f  
    ActiveDocument.Styles.Add Name:="QLNU正文", Type:=wdStyleTypeParagraph en4k/w_  
     s^G.]%iU  
    ActiveDocument.Styles.Add Name:="QLNU表格标题", Type:=wdStyleTypeParagraph y1eWpPJa  
    ActiveDocument.Styles.Add Name:="QLNU表格首行", Type:=wdStyleTypeParagraph |}s*E_/[  
    ActiveDocument.Styles.Add Name:="QLNU表格内容", Type:=wdStyleTypeParagraph 45@ I*`  
    ActiveDocument.Styles.Add Name:="QLNU图片标题", Type:=wdStyleTypeParagraph NqazpB*  
    ActiveDocument.Styles.Add Name:="QLNU图片段落", Type:=wdStyleTypeParagraph u"cV%(#  
     u^+7hkk  
    ActiveDocument.Styles.Add Name:="QLNU参考文献", Type:=wdStyleTypeParagraph +K :
Dx!9  
    On Error GoTo 0 X"|['t  
    DoEvents N]Yd9tn{  
     EPI4!3]  
    'BaseStyle P6 '1. R  
    ActiveDocument.Styles("BaseStyle").AutomaticallyUpdate = False dC3o9  
    With ActiveDocument.Styles("BaseStyle").Font T= y}y  
        .NameFarEast = "宋体" h,u,^ r  
        .NameAscii = "Times New Roman" vAF "n  
        .NameOther = "宋体" UJAv`yjG  
        .Size = 10.5 Q^9_'t}X  
        .Bold = wdUndefined K( c\wr\6  
        .Italic = wdUndefined ]b:Lo  
        .Subscript = wdUndefined ah4N|zJ>v  
        .Subscript = wdUndefined 
b7?uq9  
         %A9NB!  
        .Underline = wdUnderlineNone H7&8\FNa  
        .UnderlineColor = wdColorAutomatic ^B.5GK)!  
        .StrikeThrough = False 0y'H~(  
        .DoubleStrikeThrough = False by1<[$8r  
         c \J:![x  
        .Outline = False shy-Gu&  
        .Emboss = False `_Zg3_K.dS  
        .Shadow = False K,;E5  
        .Hidden = False {yTGAf-DV  
        .SmallCaps = False wY{-BuXv  
        .AllCaps = False J9--tJ?[>o  
        .Color = wdColorAutomatic F3[T.sf  
        .Engrave = False Mlg0WrJ|2  
        .Scaling = 100 TTX5EDCrC  
        .Kerning = 1 .GPT!lDc  
        .Animation = wdAnimationNone hc(#{]].  
        .DisableCharacterSpaceGrid = False O'p9u@kc  
        .EmphasisMark = wdEmphasisMarkNone  j|DsG,  
    End With ios&n)W&  
    With ActiveDocument.Styles("BaseStyle").ParagraphFormat #?aPisV X>  
        .LeftIndent = 0 $kdB |4C  
        .RightIndent = 0 r4b 6 c  
        .SpaceBefore = 0 a8e6H30Sm  
        .SpaceBeforeAuto = False O-0x8O^B  
        .SpaceAfter = 0 ed{ -/l~j  
        .SpaceAfterAuto = False Tj`,Z5vy  
        
c(f  
        .LineSpacingRule = wdLineSpaceSingle 5FPM`hLT  
        .Alignment = wdAlignParagraphJustify ~]|6T~+]83  
         F`9xVnK=  
        .WidowControl = False MO]F1E ?X  
        .KeepWithNext = False m/
@wh a  
        .KeepTogether = False 'A=^Se`=  
        .PageBreakBefore = False #>("CAB02T  
        .NoLineNumber = False ,GhS[VJjR  
         b;B%q$sntC  
        .FirstLineIndent = CentimetersToPoints(0) iJ)_RSFK  
        .OutlineLevel = wdOutlineLevelBodyText YlJ@
XpKM  
        .CharacterUnitLeftIndent = 0 kYP#SH/  
        .CharacterUnitRightIndent = 0
\$~|ZwV{  
        .CharacterUnitFirstLineIndent = 0 e{'BAj  
        .LineUnitBefore = 0 #1A.?p  
        .LineUnitAfter = 0 !7O+og L  
        .AutoAdjustRightIndent = True \g`\`e53?  
        .DisableLineHeightGrid = True K^)Eb(4  
         vFzRg
5lH  
        .FarEastLineBreakControl = True Z!a=dnwHz  
        .WordWrap = True hohfE3rd  
        .Hyphenation = False 1APe=tJ  
         Zgp4`)}:  
        .HangingPunctuation = True $D~0~gn~  
        .HalfWidthPunctuationOnTopOfLine = True GE:vp>>}`  
        .AddSpaceBetweenFarEastAndAlpha = True >W=,j)MA  
        .AddSpaceBetweenFarEastAndDigit = True Ws3)gvpPA  
        .BaseLineAlignment = wdBaselineAlignBaseline DZ3wCLQtK  
    End With  L^/5ux  
    ActiveDocument.Styles("BaseStyle").NoSpaceBetweenParagraphsOfSameStyle = False 13$%,q
)  
    ActiveDocument.Styles("BaseStyle").ParagraphFormat.TabStops.ClearAll }1L4"}L.  
    ActiveDocument.Styles("BaseStyle").LanguageID = wdSimplifiedChinese hE'-is@7  
    ActiveDocument.Styles("BaseStyle").NoProofing = False hlvK5Z  
     38Mv 25N  
    '一级标题题样式 +5g_KS  
    ActiveDocument.Styles("QLNU一级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") x$A+lj]x  
    ActiveDocument.Styles("QLNU一级标题").NextParagraphStyle = "BaseStyle" ^,lIK+#Elz  
    ActiveDocument.Styles("QLNU一级标题").AutomaticallyUpdate = False oz\!V*CtK  
    With ActiveDocument.Styles("QLNU一级标题").Font q"CVcLi9  
        .NameFarEast = "黑体" wv>^0\o  
        .NameAscii = "Arial Black" q5J5>  
        .NameOther = "黑体" T$)^ gHS  
        .Name = "黑体" Y!aSs3c  
        .Size = 16              '三号 ,a{P4Bq  
        .Bold = True *2>&"B09`  
        .Italic = wdUndefined RtkEGxw*^  
        .Subscript = wdUndefined 8rAg\H3E  
        .Superscript = wdUndefined '2A)}
uR  
    End With zJKv'>
?  
    With ActiveDocument.Styles("QLNU一级标题").ParagraphFormat -lr vKrt7  
         L~(j3D* 3  
        .LeftIndent = CentimetersToPoints(0) z}77Eh<  
        .RightIndent = CentimetersToPoints(0) A_"w^E{P  
        .FirstLineIndent = CentimetersToPoints(0) %OL$57Ia  
         q<x/Hat)  
        .LineSpacingRule = wdLineSpaceSingle b"<liGh"n-  
        .Alignment = wdAlignParagraphCenter m^!Z_]A![  
         TM_
_I\+Q  
        .WidowControl = True T8?Ghbn  
        .KeepWithNext = True L81ZbNU?$  
        .KeepTogether = True imhwY#D  
        .OutlineLevel = wdOutlineLevelBodyText ^lnK$i  
         7~G9'P<  
        .LineUnitBefore = 0.5 5 8}U^IW  
        .LineUnitAfter = 0.5 pT th}JM>  
    End With XFVE>
/H  
    ActiveDocument.Styles("QLNU一级标题").NoSpaceBetweenParagraphsOfSameStyle = False hIYNhZv  
    ActiveDocument.Styles("QLNU一级标题").ParagraphFormat.TabStops.ClearAll p}}R-D&K  
    ActiveDocument.Styles("QLNU一级标题").LanguageID = wdSimplifiedChinese y;m|  
    ActiveDocument.Styles("QLNU一级标题").NoProofing = True k$^UUo6  
    DoEvents t4."/.=+  
     nSDMOyj+  
    '二级 ih-#5M@  
    ActiveDocument.Styles("QLNU二级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") 
1fp?  
    ActiveDocument.Styles("QLNU二级标题").NextParagraphStyle = "BaseStyle" CCs%%U/=  
    ActiveDocument.Styles("QLNU二级标题").AutomaticallyUpdate = False ]\-A;}\e  
    With ActiveDocument.Styles("QLNU二级标题").Font W 8<&gh +  
        .NameFarEast = "黑体" (U DnsF  
        .NameAscii = "Arial Narrow" gmUz9P(  
        .NameOther = "黑体" ;>%r9pz
~  
        .Name = "黑体" d~])K#oJ  
        .Size = 15        '小三号 f=l rg KE  
        .Bold = False 9!ngy*\x  
        .Outline = False 6%\J"AgXO  
        .Italic = wdUndefined |"q5sym8Y_  
        .Subscript = wdUndefined ].avI
tg  
        .Superscript = wdUndefined Y,qI@n<  
    End With k&M;,e3v6  
    With ActiveDocument.Styles("QLNU二级标题").ParagraphFormat np|S y;:  
        .LeftIndent = CentimetersToPoints(0) v4a8}G  
        .RightIndent = CentimetersToPoints(0) yt+L0wzzB  
        .FirstLineIndent = CentimetersToPoints(0) `$Y.Y5mGtJ  
         r5S[-`s;  
        .LineSpacingRule = wdLineSpaceSingle 
[~+wk9P  
        .Alignment = wdAlignParagraphLeft WMDl=6  
         ^ox=H NV  
        .WidowControl = True >>4qJ%bL  
        .KeepWithNext = True rET\n(AJ  
        .KeepTogether = True zF`0J  
        .PageBreakBefore = False aL\PGdgO  
        .OutlineLevel = wdOutlineLevelBodyText q^@Q"J =v  
         &N$<e(K  
        .LineUnitBefore = 0.5 %:f&.@'r  
        .LineUnitAfter = 0.5 [Q~#82hBhY  
          h},IF  
    End With ;HfmzY (  
    ActiveDocument.Styles("QLNU二级标题").NoSpaceBetweenParagraphsOfSameStyle = False O#4&8>;=  
    ActiveDocument.Styles("QLNU二级标题").ParagraphFormat.TabStops.ClearAll !NK1MU?T)  
    ActiveDocument.Styles("QLNU二级标题").LanguageID = wdSimplifiedChinese 1;bh^WMJ  
    ActiveDocument.Styles("QLNU二级标题").NoProofing = True 4C
o6(  
    DoEvents ?d\N(s9F  
     wA ,6bj  
    '三级标题样式 +zqn<<9  
    ActiveDocument.Styles("QLNU三级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") ''cInTCr  
    ActiveDocument.Styles("QLNU三级标题").NextParagraphStyle = "BaseStyle" L?b~k=  
    ActiveDocument.Styles("QLNU三级标题").AutomaticallyUpdate = False B&M%I:i  
    With ActiveDocument.Styles("QLNU三级标题").Font 3oj' ytxN  
        .NameFarEast = "宋体" Qab>|eSm  
        .NameAscii = "Times New Roman" 4!{KWL`A  
        .NameOther = "黑体" YsC>i`n9  
        .Name = "黑体" -u+vJ6EY  
        .Size = 14               '四号 /aCc17>2V{  
        .Bold = False (!u~ CZ;  
        .Outline = False #Qw0&kM7I  
        .Italic = wdUndefined l ~"^7H?4e  
        .Subscript = wdUndefined {S]}.7`l9(  
        .Superscript = wdUndefined c1(R uP:S  
    End With nAAs{  
    With ActiveDocument.Styles("QLNU三级标题").ParagraphFormat o+iiSTJEe  
        .LeftIndent = CentimetersToPoints(0) BiLY(1,  
        .RightIndent = CentimetersToPoints(0) Hzm:xg  
        .FirstLineIndent = CentimetersToPoints(0) 5+4IN5o]=  
         |w~nVRb  
        .LineSpacingRule = wdLineSpaceSingle 5X: AbF  
        .Alignment = wdAlignParagraphLeft LG9+GszX 2  
         PudS2k_Qv  
        .WidowControl = True f3l&3hC  
        .KeepWithNext = True }^WdJd]P  
        .KeepTogether = True 4d4ZT?V[  
        .PageBreakBefore = False P-_6wfg,;>  
        .OutlineLevel = wdOutlineLevelBodyText 3)wN))VBX  
         sPpH*, (  
        .CharacterUnitLeftIndent = 0 eI}aQ]$ED  
        .CharacterUnitRightIndent = 0 f].h^~.q  
        .CharacterUnitFirstLineIndent = 2 5+0gR &|j  
         ](]i 'fE>  
        .LineUnitBefore = 0.5 r.=K~A  
        .LineUnitAfter = 0 20h} [Q(  
    End With @}u*|P*  
    ActiveDocument.Styles("QLNU三级标题").NoSpaceBetweenParagraphsOfSameStyle = False $?iLLA~  
    ActiveDocument.Styles("QLNU三级标题").ParagraphFormat.TabStops.ClearAll D(op)]8  
    ActiveDocument.Styles("QLNU三级标题").LanguageID = wdSimplifiedChinese tPWLg),  
    ActiveDocument.Styles("QLNU三级标题").NoProofing = True x M/+L:_<  
    DoEvents FW;?s+Uyx  
     /|m2WxK)  
    '四级标题样式 caR<Kb:;*  
    ActiveDocument.Styles("QLNU四级标题").BaseStyle = ActiveDocument.Styles("BaseStyle") _IHV7*u{;  
    ActiveDocument.Styles("QLNU四级标题").NextParagraphStyle = "BaseStyle" H\"sgoJ  
    ActiveDocument.Styles("QLNU四级标题").AutomaticallyUpdate = False IxN9&xa
  
    With ActiveDocument.Styles("QLNU四级标题").Font aH( J,XY  
        .NameFarEast = "宋体" kOrZv,qFG[  
        .NameAscii = "Times New Roman" h]&GLb&<?  
        .NameOther = "宋体" ah$b[\#C  
        .Name = "宋体" {GT*ZU*  
        .Size = 12               '小四号 .&iawz  
        .Bold = True & bm 1Fz  
        .Outline = False i$"F{|Z0  
        .Italic = wdUndefined 23eX;gL  
        .Subscript = wdUndefined ?T8}K>a   
        .Superscript = wdUndefined J9nX"Sb  
    End With Jl8H|<g~/  
    With ActiveDocument.Styles("QLNU四级标题").ParagraphFormat mkk6`,ov  
         / y 40(l?  
        .LeftIndent = CentimetersToPoints(0) |*eZD-f  
        .RightIndent = CentimetersToPoints(0) G^|:N[>B  
        .FirstLineIndent = CentimetersToPoints(0) gnf8l?M  
         Pl06:g2I  
        .LineSpacingRule = wdLineSpaceSingle F@j Z
ho  
        .Alignment = wdAlignParagraphLeft wc@X.Q[  
         PcMD])Z{G  
        .WidowControl = True V*;(kEqj  
        .KeepWithNext = True ;W )Y OT  
        .KeepTogether = True ha<[bue  
        .PageBreakBefore = False <]t%8GB2V  
        .OutlineLevel = wdOutlineLevelBodyText ea2ayT  
         e;q!6%  
        .CharacterUnitLeftIndent = 0 u(.e8~s8  
        .CharacterUnitRightIndent = 0 K=Z|/Kkh  
        .CharacterUnitFirstLineIndent = 2 ;\dBfP  
         z=\&i\>;Z+  
        .LineUnitBefore = 0 A1$T
Xr  
        .LineUnitAfter = 0 +4~_Ei[i  
         ?#G$=4;i  
    End With \~mT] '5  
    ActiveDocument.Styles("QLNU四级标题").NoSpaceBetweenParagraphsOfSameStyle = False ?3`UbN:  
    ActiveDocument.Styles("QLNU四级标题").ParagraphFormat.TabStops.ClearAll 2DDtu[}  
    ActiveDocument.Styles("QLNU四级标题").LanguageID = wdSimplifiedChinese Y=?3 js?O  
    ActiveDocument.Styles("QLNU四级标题").NoProofing = True Oc0a77@  
    DoEvents Xf]d. :  
     ,.8KN<A2]'  
    '正文校式 i v38p%Zm  
    ActiveDocument.Styles("QLNU正文").BaseStyle = ActiveDocument.Styles("BaseStyle") dh iuI|?@  
    ActiveDocument.Styles("QLNU正文").NextParagraphStyle = "BaseStyle" epe)a  
    ActiveDocument.Styles("QLNU正文").AutomaticallyUpdate = False :gibfk]C  
    With ActiveDocument.Styles("QLNU正文").Font 3BUSv#w{i  
         9!\B6=r y4  
        .NameFarEast = "宋体" Ms#M+[a  
        .NameAscii = "Times New Roman" q-2Bt,Y  
        .NameOther = "宋体" BsDn5\q  
        .Name = "宋体" YQvD|x  
         <8&au(I,vB  
        .Size = 12               '小四号 ^ig' bw+WS  
         R$<&ie6UQ  
        .Bold = wdUndefined .p3,O6y2(F  
        .Italic = wdUndefined 9d659iC  
        .Subscript = wdUndefined OU_g
d
p  
        .Superscript = wdUndefined Xza(k  
         !sP{gi#=  
        .Outline = False 7hcYD!DS  
        .Emboss = False K#d`Hyx  
        .Shadow = False *I.f1lz%*  
        .Hidden = False `wEb<H  
         %3-y[f  
        .DisableCharacterSpaceGrid = True S!CC }3zw  
    End With .f2bNnB~pP  
    With ActiveDocument.Styles("QLNU正文").ParagraphFormat 9G5rcYi  
         qS$Ox?Bw#u  
        .LeftIndent = CentimetersToPoints(0) H[$ "+&q  
        .RightIndent = CentimetersToPoints(0) )F>#*P  
        .FirstLineIndent = CentimetersToPoints(0) 1N-\j0au  
        
,/I.t DH  
        .LineSpacingRule = wdLineSpaceExactly bl;1i@Z*M  
        .LineSpacing = 20 _4So{~Gf1  
        .Alignment = wdAlignParagraphLeft =z69e%.  
         '@KEi%-^>  
        .WidowControl = False n0 {i&[I~+  
        .KeepWithNext = False %)W2H^  
        .KeepTogether = False 3z?> j]  
        .PageBreakBefore = False OX!tsARC@  
        .Hyphenation = False U(g:zae  
         u'DRN,h+  
        .OutlineLevel = wdOutlineLevelBodyText hd<c&7|G'  
         sY Q
k  
       F^BS/Yag  
        .CharacterUnitLeftIndent = 0 YnAm{YyI  
        .CharacterUnitRightIndent = 0 lT?v^\(H  
        .CharacterUnitFirstLineIndent = 2 nh>vixe  
         VA_PvL.9  
        .LineUnitBefore = 0 DV-d(@`K  
        .LineUnitAfter = 0 'G4ICtHQ  
        .SpaceBefore = 0 5c0 ZRV#  
        .SpaceAfter = 0 X`>i&I]  
         ASySiHz  
        .DisableLineHeightGrid = True @o _}g !9=  
    End With hx%v+/  
    ActiveDocument.Styles("QLNU正文").NoSpaceBetweenParagraphsOfSameStyle = False "?xHlYj@+  
    ActiveDocument.Styles("QLNU正文").ParagraphFormat.TabStops.ClearAll mxC;?s;~  
    ActiveDocument.Styles("QLNU正文").LanguageID = wdSimplifiedChinese =s2*H8]  
    ActiveDocument.Styles("QLNU正文").NoProofing = True WX?IYQ+  
    DoEvents ,!y$qVg'\f  
     *)T^ChD,  
    '图片段落样式 KwSqKI7]0  
    ActiveDocument.Styles("QLNU图片段落").BaseStyle = ActiveDocument.Styles("BaseStyle") 2r?G6D|  
    ActiveDocument.Styles("QLNU图片段落").NextParagraphStyle = "BaseStyle" ,m:.-iy?  
    ActiveDocument.Styles("QLNU图片段落").AutomaticallyUpdate = False u|TeE\0  
    With ActiveDocument.Styles("QLNU图片段落").Font a~}OZ&PG  
        .Size = 12               '小四号 q,|j]+
9q  
        .Italic = wdUndefined i%]EEVmN  
        .Subscript = wdUndefined $|@@Qk/T  
        .Superscript = wdUndefined <0&*9ZeD  
    End With d.d/<  
    With ActiveDocument.Styles("QLNU图片段落").ParagraphFormat JIOR4'9  
         ,/F~Y&1I  
        .LeftIndent = CentimetersToPoints(0) zKJ#`O hT  
        .RightIndent = CentimetersToPoints(0) M`!H"R7  
        .FirstLineIndent = CentimetersToPoints(0) NP3
y+s  
         *zvx$
yJ?  
        .LineSpacingRule = wdLineSpaceSingle W+?4jwqw  
        .Alignment = wdAlignParagraphCenter .}TZxla0Zr  
        .KeepWithNext = True }rw
8PZ9  
        .OutlineLevel = wdOutlineLevelBodyText cf20.F{<  
         UECK:61Me  
        .CharacterUnitLeftIndent = 0 ucW-I;"  
        .CharacterUnitRightIndent = 0 />pI8 g<  
        .CharacterUnitFirstLineIndent = 0 >uhaW@d  
         '8H
4shYg  
        .LineUnitBefore = 0 <)c)%'v  
        .LineUnitAfter = 0 U$ElV]N  
    End With K=h9Ce  
    ActiveDocument.Styles("QLNU图片段落").NoSpaceBetweenParagraphsOfSameStyle = False ;))+>%SGCt  
    ActiveDocument.Styles("QLNU图片段落").ParagraphFormat.TabStops.ClearAll ??vLUv  
    ActiveDocument.Styles("QLNU图片段落").LanguageID = wdSimplifiedChinese  YkKi|k
 
    ActiveDocument.Styles("QLNU图片段落").NoProofing = True | rtD.,m   
    DoEvents {@{']Y  
     c9 _rmz8  
     Ma Qqs=  
    '第X章 mnX2a  
    ActiveDocument.Styles("QLNU章节标题").BaseStyle = ActiveDocument.Styles("BaseStyle") @9RM9zK.q  
    ActiveDocument.Styles("QLNU章节标题").NextParagraphStyle = "BaseStyle" @,7GaK\  
    ActiveDocument.Styles("QLNU章节标题").AutomaticallyUpdate = False 6}Ci>_i4#  
    With ActiveDocument.Styles("QLNU章节标题").Font G@X% +$I  
        .NameFarEast = "黑体" 3ym',q  
        .NameAscii = "Arial Black" K;H&n1  
        .NameOther = "Arial Black" "_NN3lD)X  
        .Name = "黑体" Z
t{[*~  
        .Size = 16 C1n> M}b  
        .Bold = True WO>nIo5Y  
        .UnderlineColor = wdColorAutomatic Hd ={CFip  
        .Outline = False s)D;a-F  
        .Italic = wdUndefined ,m|h<faZL
 
        .Subscript = wdUndefined CxW>~O:  
        .Superscript = wdUndefined F/kWHVHU[  
        .Scaling = 100 j-}O0~Jz  
        .DisableCharacterSpaceGrid = True T_5H&;a  
    End With 7#Kn8s   
    With ActiveDocument.Styles("QLNU章节标题").ParagraphFormat e2oa($9  
        .LineSpacingRule = wdLineSpaceSingle 0-Ku7<a  
        .Alignment = wdAlignParagraphCenter "&?kC2Y|  
        .WidowControl = True _|I#{jK  
        .KeepWithNext = True )'cMYC  
        .KeepTogether = True Flm%T-Dl  
        .PageBreakBefore = True FGmb<z 2p  
        .OutlineLevel = wdOutlineLevelBodyText 2-v%`fA  
          |TH\`U  
        .LeftIndent = CentimetersToPoints(0) R.1.
)P[  
        .RightIndent = CentimetersToPoints(0) SRDp*  
        .FirstLineIndent = CentimetersToPoints(0) \?k'4rH  
        
21l;\W  
        .CharacterUnitLeftIndent = 0 :{l_FY436  
        .CharacterUnitRightIndent = 0 Ie#Bkw'*  
        .CharacterUnitFirstLineIndent = 0 z,p~z*4  
         MH\dC9%p  
        .LineUnitBefore = 1
A]oV"`f  
        .LineUnitAfter = 0.5 16(QR-  
         ={&j07,*a  
        .AutoAdjustRightIndent = False >@_^fw)  
        .DisableLineHeightGrid = True wc4{)qDE  
        .FarEastLineBreakControl = True *P=VFP  
        .WordWrap = True rw JIx|(  
    End With 2eY_%Y0  
    ActiveDocument.Styles("QLNU章节标题").NoSpaceBetweenParagraphsOfSameStyle = False v^*K:#<Q!  
    ActiveDocument.Styles("QLNU章节标题").ParagraphFormat.TabStops.ClearAll flbd0NB  
    ActiveDocument.Styles("QLNU章节标题").LanguageID = wdSimplifiedChinese qq
Y"*uJ'  
    ActiveDocument.Styles("QLNU章节标题").NoProofing = True 0=1T.4+=  
    DoEvents !?h;wR  
     nMUw_7Y6  
    '表格标题 }(73Syl#  
    ActiveDocument.Styles("QLNU表格标题").BaseStyle = ActiveDocument.Styles("BaseStyle") #h ]g?*}OJ  
    ActiveDocument.Styles("QLNU表格标题").NextParagraphStyle = "BaseStyle" (iX+{a%"  
    ActiveDocument.Styles("QLNU表格标题").AutomaticallyUpdate = False }9OC,Y8?D  
    With ActiveDocument.Styles("QLNU表格标题").Font u `6:5k  
        .NameFarEast = "楷体" P}^W)@ +3k  
        .NameAscii = "Arial" ?GR"FmB(  
        .Name = "楷体" \X D6 pr@  
        .Size = 10.5 })Vi  
        .Bold = True kxhWq:[c  
        .Underline = wdUnderlineNone '_FsvHQ  
        .Italic = wdUndefined %l[( Iw  
        .Subscript = wdUndefined zHRplm+i  
        .Superscript = wdUndefined -C]5>& W  
        .Color = wdColorAutomatic Aw
.qK9I  
    End With }|NCboM^_  
    With ActiveDocument.Styles("QLNU表格标题").ParagraphFormat :':s@gqr  
         uHzU-FZ|B  
        .LineSpacingRule = wdLineSpaceSingle e6$WQd`O  
        .Alignment = wdAlignParagraphCenter 0 /U{p,r6`  
        .KeepWithNext = True fr6fj  
        .KeepTogether = True \Uq(Zga4)  
        .OutlineLevel = wdOutlineLevelBodyText h3 }OX{k  
         i<Zc"v;  
        .LeftIndent = CentimetersToPoints(0) I,vJbvvl!  
        .RightIndent = CentimetersToPoints(0) B W*rIn<?G  
        .FirstLineIndent = CentimetersToPoints(0) `b7t4d*  
         ~=l;=7 T  
        .CharacterUnitLeftIndent = 0 +iRh
  
        .CharacterUnitRightIndent = 0 Eo]xNn/g  
        .CharacterUnitFirstLineIndent = 0 . 3T3EX|G  
         t-bB>q#3>  
        .LineUnitBefore = 1 hhc,uJ">!  
        .LineUnitAfter = 0 )Y{L&A  
         qu{&xjTH8  
    End With V {ddr:]
4  
    ActiveDocument.Styles("QLNU表格标题").NoSpaceBetweenParagraphsOfSameStyle = False y766; X:J  
    ActiveDocument.Styles("QLNU表格标题").ParagraphFormat.TabStops.ClearAll &d^m 1  
    ActiveDocument.Styles("QLNU表格标题").LanguageID = wdSimplifiedChinese ]Q)OL  
    ActiveDocument.Styles("QLNU表格标题").NoProofing = True 8'io$6d=  
    DoEvents /@TF5]Ri  
k,+0u/I  
    '表格首行 @`- 4G2IU}  
    ActiveDocument.Styles("QLNU表格首行").BaseStyle = ActiveDocument.Styles("BaseStyle") KB(8f*  
    ActiveDocument.Styles("QLNU表格首行").AutomaticallyUpdate = False BpPy&  
    With ActiveDocument.Styles("QLNU表格首行").Font
1\2no{Vh  
        .NameFarEast = "楷体" LFRlzz;  
        .NameAscii = "Times New Roman" h J)h
\  
        .Name = "楷体" R$[vm6T?  
        .Size = 9
JU&c.p /  
        .Bold = True $B5aje}i  
        .Underline = wdUnderlineNone vV-`jsq20H  
        .Italic = wdUndefined J}K$(;:  
        .Subscript = wdUndefined 6mxfLlZ  
        .Superscript = wdUndefined Txb#C[`  
    End With \\;jw[P0  
    With ActiveDocument.Styles("QLNU表格首行").ParagraphFormat _F|Ek;y%  
        .LineSpacingRule = wdLineSpaceSingle I :1C8*/  
        .Alignment = wdAlignParagraphCenter wjB:5~n50k  
         T}v4*O.,  
        .LeftIndent = CentimetersToPoints(0) M
-Y_ Wb3  
        .RightIndent = CentimetersToPoints(0) bP&]!jZ  
        .FirstLineIndent = CentimetersToPoints(0) e=m42vIB-  
         ;"-&1qHN  
         =W!/Z%^*8  
        .CharacterUnitLeftIndent = -0.5 ?J~_R1Z  
        .CharacterUnitRightIndent = -0.5 ope^~+c~\  
        .CharacterUnitFirstLineIndent = -0.5 oQ[f,7
u  
         Z o(rTCZX  
        .LineUnitBefore = 0 x7<K<k;s  
        .LineUnitAfter = 0 v;D~P a  
        .SpaceBefore = 0 u <v7;dF|s  
        .SpaceAfter = 0 H8}oIA"b  
         M&9+6e'-F  
    End With )=_,O=z$K  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False $}<e|3_  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll T!)(Dv8@F  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese _ *Pf  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True MeZf*' J  
    DoEvents i2SR{e8:GF  
VQOezQs\  
    '表格内容 dJNe+ MB`  
    ActiveDocument.Styles("QLNU表格内容").BaseStyle = ActiveDocument.Styles("BaseStyle") O5T{eBo\  
    ActiveDocument.Styles("QLNU表格内容").AutomaticallyUpdate = False 7Kxp=-k  
    With ActiveDocument.Styles("QLNU表格内容").Font |#R7wnE[k~  
        .NameFarEast = "楷体" R`E~ZWC4V  
        .NameAscii = "Times New Roman" >e5qv(y]  
        .Name = "楷体" _ZSR.w}j/  
        .Size = 9 f\L0xJ  
        .Bold = False 1f=gYzuO)  
        .Underline = wdUnderlineNone ]2qo+yB  
        .Italic = wdUndefined &7tbI5na@  
        .Subscript = wdUndefined TJXT-\Vk  
        .Superscript = wdUndefined \d`h/tHk  
    End With &E5g3 lf  
    With ActiveDocument.Styles("QLNU表格内容").ParagraphFormat U26}gT)  
        .LineSpacingRule = wdLineSpaceSingle bdE[;+58  
        .Alignment = wdAlignParagraphCenter }a( dyr`S  
         4zFW-yy  
        .LeftIndent = CentimetersToPoints(0) z1X`o  
        .RightIndent = CentimetersToPoints(0) )|#sfHv7  
        .FirstLineIndent = CentimetersToPoints(0) R%[ c;i  
         &`2)V;t  
        .CharacterUnitLeftIndent = -0.5 Ok=hT|}Y  
        .CharacterUnitRightIndent = -0.5 m#\dSl }  
        .CharacterUnitFirstLineIndent = -0.5 $X
,D(  
        .LineUnitBefore = 0 R.yvjPwJ  
        .LineUnitAfter = 0 )irEM  
        .SpaceBefore = 0 :P0mx  
        .SpaceAfter = 0 CB}2j  
    End With }`m/bgtFX  
    ActiveDocument.Styles("QLNU表格首行").NoSpaceBetweenParagraphsOfSameStyle = False U9MxI%tb  
    ActiveDocument.Styles("QLNU表格首行").ParagraphFormat.TabStops.ClearAll 1\I}2
;  
    ActiveDocument.Styles("QLNU表格首行").LanguageID = wdSimplifiedChinese -=\c_\O  
    ActiveDocument.Styles("QLNU表格首行").NoProofing = True AFE~ v\Gz  
    DoEvents mrtb*7`$  
LyFN.2q
w  
    '图片标题 NyNXP_8  
    ActiveDocument.Styles("QLNU图片标题").BaseStyle = ActiveDocument.Styles("BaseStyle") _u QOHwn  
    ActiveDocument.Styles("QLNU图片标题").NextParagraphStyle = "BaseStyle" p9{mS7R9T  
    ActiveDocument.Styles("QLNU图片标题").AutomaticallyUpdate = False :&."ttf=  
    With ActiveDocument.Styles("QLNU图片标题").Font O)r4?<Q  
        .NameFarEast = "楷体" Zp=U W*g^  
        .NameAscii = "Times New Roman" =U?dbSf1*  
        .Name = "楷体" X UuN )i  
        .Size = 10.5 U z>+2m(  
        .Bold = True ]>Es4 s  
        .Underline = wdUnderlineNone B \2SH%\  
        .Italic = wdUndefined gV_}
-VvP  
        .Subscript = wdUndefined D2~*&'4y  
        .Superscript = wdUndefined toC^LZgZ_6  
        .Outline = False aO4?m+  
        .Shadow = False uJ v-4H  
        .Color = wdColorAutomatic .3Oap*X  
    End With &6nWzF  
    With ActiveDocument.Styles("QLNU图片标题").ParagraphFormat PB\x3pV!}  
        .LineSpacingRule = wdLineSpaceSingle T1=fNF  
        .Alignment = wdAlignParagraphCenter svH !1b  
         \(2sW^fY  
        .KeepWithNext = wdUndefined JY(WK@  
        .KeepTogether = True &&>ekG9@  
        .OutlineLevel = wdOutlineLevelBodyText .U]-j\  
         p H2Sbs:Tk  
        .LeftIndent = CentimetersToPoints(0) 1=Z0w +v{  
        .RightIndent = CentimetersToPoints(0) pIqeXY  
        .FirstLineIndent = CentimetersToPoints(0) "S?z@i(K^  
         I51@QJX  
        .CharacterUnitLeftIndent = 0 ~2-1 j  
        .CharacterUnitRightIndent = 0 C!bUI8x z  
        .CharacterUnitFirstLineIndent = 0 Vs!Nmv`  
         1
/J=uH  
        .LineUnitBefore = 0 86F1.ve  
        .LineUnitAfter = 0 t
;\Y{`  
    End With I9ep`X6Y  
    ActiveDocument.Styles("QLNU图片标题").NoSpaceBetweenParagraphsOfSameStyle = False sLxc(d'A  
    ActiveDocument.Styles("QLNU图片标题").ParagraphFormat.TabStops.ClearAll ePo}y])2  
    ActiveDocument.Styles("QLNU图片标题").LanguageID = wdSimplifiedChinese Qq|57X)P*  
    ActiveDocument.Styles("QLNU图片标题").NoProofing = True k@W1-D?  
    DoEvents O3kA;[f;  
@|YH|/RF  
    '目录项 nb%6X82Q  
    ActiveDocument.Styles("QLNU目录项").BaseStyle = ActiveDocument.Styles("BaseStyle") X45%e!  
    ActiveDocument.Styles("QLNU目录项").NextParagraphStyle = "BaseStyle" j|#Bo:2km  
    ActiveDocument.Styles("QLNU目录项").AutomaticallyUpdate = False V1M.JU  
    With ActiveDocument.Styles("QLNU目录项").Font 8FY?!C  
        .NameFarEast = "黑体" +T Dw+  
        .NameAscii = "Times New Roman" *(DV\.l`  
        .NameOther = "Times New Roman" RPRBmb940  
        .Name = "黑体" c9h6C  
        .Size = 10.5 $yNS pNmT0  
        .Bold = False 6(ol
1 (U  
        .Italic = wdUndefined c\AfaK^KF  
        .Underline = wdUnderlineNone E hMNap}5"  
        .Color = wdColorAutomatic cSV aI  
        .Superscript = wdUndefined $*fMR,~t&  
        .Subscript = wdUndefined 1yu4emye4  
    End With s!$7(Q86R  
    With ActiveDocument.Styles("QLNU目录项").ParagraphFormat 7hPY_W y  
         mc\"yC
^s  
        .LineSpacingRule = wdLineSpaceSingle f._ua>v,f  
        .Alignment = wdAlignParagraphLeft 7zG_(83)K  
         }-=|^  
        .WidowControl = False p0vVkdd  
        .KeepWithNext = False xU`p|(SS-  
        .KeepTogether = False eehb1L2(b  
        .PageBreakBefore = False :"/d|i`T  
        .NoLineNumber = False {R6ZKB  
        .OutlineLevel = wdOutlineLevelBodyText 11;MN  
         97!;.f-  
        .LeftIndent = CentimetersToPoints(0) R8'RA%O9J  
        .RightIndent = CentimetersToPoints(0) /IMFO:c  
        .FirstLineIndent = CentimetersToPoints(0) -nV9:opD  
         rFL;'C j@  
        .CharacterUnitLeftIndent = 0 ?$4 PVI}  
        .CharacterUnitRightIndent = 0 *0=j?~&  
        .CharacterUnitFirstLineIndent = 0 @~a%/GQ#n*  
         -(H0>Ap  
        .LineUnitBefore = 0 /%io+94  
        .LineUnitAfter = 0 1iF1GkLEq  
    End With (SAs-  
    ActiveDocument.Styles("QLNU目录项").NoSpaceBetweenParagraphsOfSameStyle = False ~Z'?LV<t  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.ClearAll Qzw;i8n{  
    ActiveDocument.Styles("QLNU目录项").ParagraphFormat.TabStops.Add Position:=PicasToPoints(44.5), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot {
bY%# m  
    ActiveDocument.Styles("QLNU目录项").LanguageID = wdSimplifiedChinese qlP
T
Ll  
    ActiveDocument.Styles("QLNU目录项").NoProofing = True i=2N;sAl  
    DoEvents EXqE~afm2  
     [/8%3  
    '参考文献 f) L  
    ActiveDocument.Styles("QLNU参考文献").BaseStyle = ActiveDocument.Styles("BaseStyle") e$rZ5X  
    ActiveDocument.Styles("QLNU参考文献").NextParagraphStyle = "BaseStyle" $f7l34Sf3  
    ActiveDocument.Styles("QLNU参考文献").AutomaticallyUpdate = False IjnU?Bf  
    With ActiveDocument.Styles("QLNU参考文献").Font  t"oeQ*d%  
        .NameFarEast = "宋体" `<d }V2rdz  
        .NameAscii = "Times New Roman" _X x/(.O  
        .NameOther = "Times New Roman" &{t,'[ u  
        .Name = "Times New Roman" \,0oX!<YY  
        .Size = 12 wk_@R=*(\  
        .Bold = False L.JT[zOfb  
        .Italic = wdUndefined L~
N460  
        .Subscript = wdUndefined *\F ~[  
        .Superscript = wdUndefined 1bwOmhkS  
        .Underline = wdUnderlineNone ?4T-@~~*`=  
        .UnderlineColor = wdColorAutomatic X!EP$!  
        .Color = wdColorAutomatic ' S/gmn  
        .Engrave = False /N.U/
MPL_  
    End With ey$&;1x#5  
    With ActiveDocument.Styles("QLNU参考文献").ParagraphFormat X#
^[<5  
         uoh7Sz5!^  
        .LineSpacingRule = wdLineSpaceExactly x
7 ,5  
        .LineSpacing = 16 4BpZJ~(p  
        .Alignment = wdAlignParagraphLeft 4^o^F-k'  
        .WidowControl = False `r 3  
        .KeepWithNext = False s!$a\k  
        .KeepTogether = False +mT_QsLEv  
        .PageBreakBefore = False ; BHtCuY  
        .OutlineLevel = wdOutlineLevelBodyText { 2f-8Z&>  
         KoT%Mfu  
        .LeftIndent = CentimetersToPoints(0)  z+X}HL  
        .RightIndent = CentimetersToPoints(0) {E|$8)58i  
        .FirstLineIndent = CentimetersToPoints(0) Wmv#:U  
         '!B&:X)  
        .CharacterUnitLeftIndent = 0 DZ tsy!xA  
        .CharacterUnitRightIndent = 0 U|R_OLWAg  
        .CharacterUnitFirstLineIndent = -2 { ]4LULq  
         \:LW(&[!  
        .LineUnitBefore = 0 7WzxA=*#  
        .LineUnitAfter = 0 BnF^u5kv%  
        .SpaceBefore = 0 5]:U9ts#  
        .SpaceAfter = 0 4;2uW#dG"  
         +9sQZB# (  
    End With NC6&x=!3  
    ActiveDocument.Styles("QLNU参考文献").NoSpaceBetweenParagraphsOfSameStyle = False dioGAai'  
    ActiveDocument.Styles("QLNU参考文献").ParagraphFormat.TabStops.ClearAll >Cq<@$I2EB  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdEnglishUS [v!f<zSQK  
    ActiveDocument.Styles("QLNU参考文献").NoProofing = True a/xn'"eli  
    ActiveDocument.Styles("QLNU参考文献").LanguageID = wdSimplifiedChinese 5*u+q2\F  
    DoEvents MkXmA`cP  
\1M4Dl5!  
    ' E|shs=I  
    ActiveDocument.Styles("QLNU论文题目").BaseStyle = ActiveDocument.Styles("BaseStyle") QQc -Ya!v  
    ActiveDocument.Styles("QLNU论文题目").NextParagraphStyle = "BaseStyle" M/`lM$98:  
    ActiveDocument.Styles("QLNU论文题目").AutomaticallyUpdate = False ) ;Y;Q  
    With ActiveDocument.Styles("QLNU论文题目").Font E}Uc7G  
        .NameFarEast = "黑体" O+x!Bg7   
        .NameAscii = "Arial Black" vKAN@HSYr  
        .NameOther = "Arial Black" +]{G@pn  
        .Name = "Arial Black" SiN0OB  
        .Size = 16 >Y@H4LF;1x  
        .Bold = False P?P#RhvA1  
        .Italic = wdUndefined h^P#{ W!e\  
        .Superscript = wdUndefined
2&J)dtqz  
        .Subscript = wdUndefined tw)mep wB  
        .Underline = wdUnderlineNone YKK*ER0  
        .UnderlineColor = wdColorAutomatic }3WxZv]I}  
        .Color = wdColorAutomatic ]\HvKCN}  
$U-0)4yf  
    End With dft!lBN  
    With ActiveDocument.Styles("QLNU论文题目").ParagraphFormat 6[AL|d DK  
        .LineSpacingRule = wdLineSpaceSingle Z*6IW7#  
        .Alignment = wdAlignParagraphCenter WcbiqxK7-  
        .WidowControl = True N?`' /e  
        .KeepWithNext = True &m;*<}X  
        .KeepTogether = True ;*2Cm'8E  
        .PageBreakBefore = True n|yO9:Uw<  
        .NoLineNumber = False l,aay-E  
        .OutlineLevel = wdOutlineLevelBodyText C~exi[3  
         .O<obq~;C  
        .LeftIndent = CentimetersToPoints(0) w7 &A0M  
        .RightIndent = CentimetersToPoints(0) AbW6x  
        .FirstLineIndent = CentimetersToPoints(0) zX i'kB  
         C\hM =%  
        .CharacterUnitLeftIndent = 0 )NT*bLRPQ  
        .CharacterUnitRightIndent = 0 &_8947  
        .CharacterUnitFirstLineIndent = 0 sU^1wB Rj  
         h'nY3GrU  
        .LineUnitBefore = 1 M&M6;Ph  
        .LineUnitAfter = 1 KD.]i' d<  
         v4 E}D  
        .BaseLineAlignment = wdBaselineAlignAuto P@~yx#G  
    End With @oGcuE  
    ActiveDocument.Styles("QLNU论文题目").NoSpaceBetweenParagraphsOfSameStyle = False @_{=V0  
    ActiveDocument.Styles("QLNU论文题目").ParagraphFormat.TabStops.ClearAll gbD KE{  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdEnglishUS b" [|:F>P  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True ;5( UzQU  
    ActiveDocument.Styles("QLNU论文题目").LanguageID = wdSimplifiedChinese SUK?z!f<i  
    ActiveDocument.Styles("QLNU论文题目").NoProofing = True P16~Qj  
    DoEvents {?7Uj  
     SSzIih@u  
    '中文摘要 %E;'ln4h&,  
    ActiveDocument.Styles("QLNU中文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") 0JujesUw(  
    ActiveDocument.Styles("QLNU中文摘要").NextParagraphStyle = "BaseStyle" cPQiUU~W@  
    ActiveDocument.Styles("QLNU中文摘要").AutomaticallyUpdate = False buHJB*?9  
    With ActiveDocument.Styles("QLNU中文摘要").Font \o3gKoL%  
        .NameFarEast = "宋体" 86a\+Kz%%L  
        .NameAscii = "Times New Roman" +&H4m=D-#a  
        .NameOther = "Times New Roman" KwVbbC3  
        .Name = "Times New Roman" j<e2d7oN  
        .Size = 12 ;}p  
        .Bold = wdUndefined V>3X\)qu  
        .Superscript = wdUndefined sNFlKQ8)Q  
        .Subscript = wdUndefined NvX[zqNP_R  
        .Italic = wdUndefined )0k53-h&  
        .Underline = wdUnderlineNone lH~[f  
        .UnderlineColor = wdColorAutomatic )D%~`,#pQ  
        .Color = wdColorAutomatic G=bCNn<  
    End With J]r^W)O  
    With ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat ~pky@O#b  
        .LineSpacingRule = wdLineSpaceExactly 7F.4Ga;  
        .LineSpacing = 20 3=V&K-  
        .Alignment = wdAlignParagraphLeft ;722\y(Y  
         ql ~J8G9  
        .WidowControl = False 1Ai^cf:S  
        .KeepWithNext = False `uTmw^pZX  
        .KeepTogether = True e&>2 n  
        .PageBreakBefore = False -$Ih@2"6  
        .NoLineNumber = False <wHP2|<l*  
        .OutlineLevel = wdOutlineLevelBodyText i,VMd  
         dlnX_+((KC  
        .LeftIndent = CentimetersToPoints(0) {id4:^u&;  
        .RightIndent = CentimetersToPoints(0) 4?01s-Y  
        .FirstLineIndent = CentimetersToPoints(0) K)iF>y|{*q  
         %!#azI  
        .CharacterUnitLeftIndent = 0 _,*r_D61S  
        .CharacterUnitRightIndent = 0 a?oI>8*  
        .CharacterUnitFirstLineIndent = 2 & BSn?  
        .LineUnitBefore = 0 4Wp=y  
        .LineUnitAfter = 0 RT8 ?7xFc  
         l;E(I_ i)  
    End With ,<X9Y 2B  
    ActiveDocument.Styles("QLNU中文摘要").NoSpaceBetweenParagraphsOfSameStyle = False M)(DZ}  
    ActiveDocument.Styles("QLNU中文摘要").ParagraphFormat.TabStops.ClearAll Gav$HLx  
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdEnglishUS +aAc9'k  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True F((4U"   
    ActiveDocument.Styles("QLNU中文摘要").LanguageID = wdSimplifiedChinese a$fnh3j[  
    ActiveDocument.Styles("QLNU中文摘要").NoProofing = True #Bw0,\  
    ActiveDocument.Styles("QLNU中文摘要").Frame.Delete An0GPhC  
    DoEvents y8xE 6i  
     U #0Cx-E  
    ActiveDocument.Styles("QLNU英文标题").BaseStyle = ActiveDocument.Styles("BaseStyle") tpx2IE  
    ActiveDocument.Styles("QLNU英文标题").NextParagraphStyle = "BaseStyle" qmP].sA  
    ActiveDocument.Styles("QLNU英文标题").AutomaticallyUpdate = False (^>J&[=  
    With ActiveDocument.Styles("QLNU英文标题").Font uHNCSzH(  
        .NameFarEast = "黑体" =-Ck4e *T  
        .NameAscii = "Arial Narrow" -D:b*D  
        .Name = "Arial Narrow" tO&^>&;5  
        .Size = 16 PQE=D0  
        .Bold = True X5w$4Kj&4l  
        .Bold = wdUndefined /g.U&oI]D  
        .Superscript = wdUndefined 2B`JGFcdcB  
        .Subscript = wdUndefined Zj Z^_X3  
        .Italic = wdUndefined ,`sv1xwd  
         f%8C!W]Dm  
        .Underline = wdUnderlineNone ?\n> AC  
        .UnderlineColor = wdColorAutomatic $<OD31T  
        .StrikeThrough = False V28M lP  
        .DoubleStrikeThrough = False !H\F2Vxs  
    End With D)}v@je"yP  
    With ActiveDocument.Styles("QLNU英文标题").ParagraphFormat o}{5iTg=  
        .LineSpacingRule = wdLineSpaceSingle ^=*;X;7  
        .Alignment = wdAlignParagraphCenter V]?R>qhgu  
        .WidowControl = True 5~S5F3  
        .KeepWithNext = False 0tJZ4(0  
        .KeepTogether = False u$`a7Lp,n  
        .PageBreakBefore = False ?&uu[y  
        .NoLineNumber = False Ew$C ;&9  
        .FirstLineIndent = CentimetersToPoints(0) 8x
MX  
        .OutlineLevel = wdOutlineLevelBodyText ` G kX  
         dQG=G%W  
        .LeftIndent = CentimetersToPoints(0) 6wg^FD_Q  
        .RightIndent = CentimetersToPoints(0) qxJ\ye+'*  
        .FirstLineIndent = CentimetersToPoints(0) :~SyL!  
         gI`m.EH}}N  
        .CharacterUnitLeftIndent = 0 >.D4co>  
        .CharacterUnitRightIndent = 0 U
GatWj  
        .CharacterUnitFirstLineIndent = 0  _','
9|  
         3iU=c&P  
        .LineUnitBefore = 1 A?0Nm{O;3v  
        .LineUnitAfter = 1 U%/+B]6jP  
         og>uj>H&  
    End With ^kSqsT"  
    ActiveDocument.Styles("QLNU英文标题").NoSpaceBetweenParagraphsOfSameStyle = False R^e'}+Z  
    ActiveDocument.Styles("QLNU英文标题").ParagraphFormat.TabStops.ClearAll !TcJ)0   
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdEnglishUS BL4-7  
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True MUwMb!Z.s  
    ActiveDocument.Styles("QLNU英文标题").LanguageID = wdSimplifiedChinese A/?7w   
    ActiveDocument.Styles("QLNU英文标题").NoProofing = True |V7*l1  
    ActiveDocument.Styles("QLNU英文标题").Frame.Delete |&4/n6;P$0  
    DoEvents 3r1*m  +  
A<fG}q1#  
    ActiveDocument.Styles("QLNU英文摘要").BaseStyle = ActiveDocument.Styles("BaseStyle") kSo"Ak!  
    ActiveDocument.Styles("QLNU英文摘要").NextParagraphStyle = "BaseStyle" 6E}qL8'5x  
    ActiveDocument.Styles("QLNU英文摘要").AutomaticallyUpdate = False :fJN->wY^s  
    With ActiveDocument.Styles("QLNU英文摘要").Font bs1Rvx1:J%  
        .NameFarEast = "宋体" HOJV,9v N  
        .NameAscii = "Arial" q0\6F^;M  
        .NameOther = "Arial" . 'yCw#f  
        .Name = "Arial" @KUWxFak  
        .Size = 12 N)Z?Z+} h  
        .Bold = wdUndefined M'l ;:  
        .Italic = wdUndefined :2)/FPL6  
        .Superscript = wdUndefined A_UjC`  
        .Subscript = wdUndefined 8JUwf  
    End With Ht&YC<X  
     .o}v#W+st  
    With ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat |+"(L#wk  
         {7pli{`  
        .LineSpacingRule = wdLineSpaceExactly a09<!0Rp  
        .LineSpacing = 20 U`s{ Jm  
         3 8`<:{^Y  
        .Alignment = wdAlignParagraphJustify >5SSQ\2~a  
         R/a*LSe@&  
        .WidowControl = False "^iYLQOC  
        .KeepWithNext = False q75
s#[<ap  
        .KeepTogether = False JjS?  
        .PageBreakBefore = False FE;x8(;W8  
        .NoLineNumber = False |gY
^)9ei  
         hFBe,'3M  
        .OutlineLevel = wdOutlineLevelBodyText BD7Ni^qI$  
         xe$_aBU  
        .LeftIndent = CentimetersToPoints(0) Vf1^4t  
        .RightIndent = CentimetersToPoints(0) a-J.B.A$Z/  
        .FirstLineIndent = CentimetersToPoints(0) Q=dy<kg']  
         N4HqLh 23H  
        .CharacterUnitLeftIndent = 0 J|rq*XD}q  
        .CharacterUnitRightIndent = 0 wI "U7vr  
        .CharacterUnitFirstLineIndent = 2 Z$? #  
        
K~EmD9  
        .LineUnitBefore = 0 L{Vqh0QD&  
        .LineUnitAfter = 1 2b8L\$1q  
         e@YK@?^#N  
    End With /_ajaz%  
    ActiveDocument.Styles("QLNU英文摘要").NoSpaceBetweenParagraphsOfSameStyle = False +qdEq_m  
    ActiveDocument.Styles("QLNU英文摘要").ParagraphFormat.TabStops.ClearAll uXl3k:_n  
    ActiveDocument.Styles("QLNU英文摘要").LanguageID = wdEnglishUS S0W||#Pr  
    ActiveDocument.Styles("QLNU英文摘要").NoProofing = False f|oh.z_R  
    DoEvents 3irl (;v  
~7Ux@Sx;  
    Options.Pagination = True 9(<@O%YU  
    Me.txtStatus.Text = "样式修改完成，重新进行分页，请稍候....." {+b7sA3
 
    DoEvents J4U1t2@)9  
    ActiveDocument.Repaginate 9-m=*|p  
Mrb)  
End Sub Oa>Ppldeg  
ku M$UYTTX  
m~ee/&T  

姐妹儿，你也快RETIRED 了， 你欠得帐我可记得呢！ 你该单独开帖填坑了。 \Y}8S/]  
Wo=jskBrQ  

引用

引用第20楼newport93于06-14-2010 13:47发表的  : e\75:oQ  
"kqPmeI  
老五，I 服了U。 ^_
mj  
<p"iY}x[H  
哪一天等俺退休了，也写一个The Non-Progamming career of an ex-programmer。哈哈哈。。。。。 }*"p?L^p{  

>b4eL59