Dim bContinue As Boolean [lVfhXc&
C%{2 sMJ
z
Dim regEX As New RegExp *e<}hmDr
Dim paraCounter As Long '全局段落计数,仅在主程序中可读写,其它过程函数应为只读 5g
O9 <
B/o8r4[80
Dim LastTitle0String As String, LastTitle0No As Long _1mpsY<
k
Dim LastTitle1String As String, LastTitle1No As Long FnI}N;"
Dim LastTitle2String As String, LastTitle2No As Long HF"TS*
Dim LastTitle3String As String, LastTitle3No As Long 2-jXj9kp`
Dim LastTitle4String As String, LastTitle4No As Long e\^}PU
Dim LastTitle5String As String, LastTitle5No As Long U$3DIJVI
Dim LastTabelString As String, LastTableNo As Long %*o
Dim LastFigureString As String, LastFigureNo As Long 0-;>O|U3
9%53_nx?
Dim strSeperator As String 2 |JEGyDS-
wm Ie x
Sub ConvertWidth(fTEXT As String, rText As String) Dr[;\/|#
Selection.Find.ClearFormatting +@yU `
Selection.Find.Replacement.ClearFormatting pzaU'y#PM
Selection.Find.Wrap = wdFindContinue fK *l?Hr
Me.txtStatus.Text = "转换全角数字字母" & fTEXT & "形式为半角" & rText [h !i{QD
DoEvents lw99{y3<<
Selection.Find.Execute findtext:=fTEXT, replacewith:=rText, Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, MatchCase:=True g'{?j~g
End Sub 0pG +yec
iOSt=-p
Sub ClearDomain() sjb.Ezoq3
With Selection.Find <&g