Dim bContinue As Boolean '0[D-jEr
HbX>::J8
Dim regEX As New RegExp (q59cA w~X
Dim paraCounter As Long '全局段落计数,仅在主程序中可读写,其它过程函数应为只读 c]v$C&FX
ZO5_n
Dim LastTitle0String As String, LastTitle0No As Long >_jT.d
Dim LastTitle1String As String, LastTitle1No As Long uwXquOw
Dim LastTitle2String As String, LastTitle2No As Long 0WaC.C+2i
Dim LastTitle3String As String, LastTitle3No As Long 7$b!-I+a2
Dim LastTitle4String As String, LastTitle4No As Long eqb8W5h'
Dim LastTitle5String As String, LastTitle5No As Long O[U^{~iM
Dim LastTabelString As String, LastTableNo As Long s%2 w&Us*
Dim LastFigureString As String, LastFigureNo As Long Ya<S/9c
D kl4
^}
Dim strSeperator As String R7r` (c!
MxD,x
pf
Sub ConvertWidth(fTEXT As String, rText As String) 4%LG Ph
Selection.Find.ClearFormatting :$~)i?ge<5
Selection.Find.Replacement.ClearFormatting [
p$f)'
Selection.Find.Wrap = wdFindContinue L%}k.)yev
Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText NGOc:>}k>
DoEvents GF*8(2h2
Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True
d`5xd@p
End Sub l<>syHCH;L
T
]hVO'z
Sub ClearDomain() PxNp'PZr9
With Selection.Find g'ha7~w(p
.ClearFormatting 2w>WS#
.Replacement.ClearFormatting "-88bF~
.Wrap = wdFindContinue 'X d_8.
Me.txtStatus.Text = "清除所有域代码" [fiB!G]?
DoEvents 'c*Q/C;
.Execute findtext:="^d", replacewith:="", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False W,9. z%
End With lE=(6Q
End Sub eRKuy l
e;GLPB
Private Sub cmdCheck_Click() N_rz~$|@9
bContinue = True HQw98/-_W
Dim NoSeries1(1 To 16) As String \1cay#X
Dim NoSeries2(1 To 16) As String (/UW}$] h
Dim NoSeries5(1 To 16) As String }><VcouJ[
Dim NoSeriesRM(1 To 16) As String )y4bb^;z
Dim paraTotal As Long, ParaText As String :hr% 6K7
Dim ttString As String, ttNo As String ?&
qM C
5R\{&
Dim ShapeCounter As Long, ShapeHeight As Long, ShapeWidth As Long y{
%2Q)
7g8}]\i+
Me.txtStatus.Visible = True b
R> G%*a
Me.lbParaType.Visible = True 6c,]N@,Zw
Me.cmdCheck.Enabled = False VNBf2
Va
[KR|m,QWp
D1rXTI$$
1G$fU
zS
?{[ISk)
Dim ParaType As String, rText As String ecDni>W
E #q
gt9
Selection.WholeStory k&wCa<Rs~R
Selection.NoProofing = True kU{+@MA;
Yj3j?.JJk
tm1 = Now }^U7NZn<"
XP'<\
ActiveWindow.View.Type = wdNormalView [-5%[ty9X
YRa{6*M
NoSeries1(1) = "一" D[32t0
NoSeries1(2) = "二" 0tyoH3o/d
NoSeries1(3) = "三" @M-i$
q[4
NoSeries1(4) = "四" _&)^a)Nu
NoSeries1(5) = "五" 4r&D