一、如何去掉word中的5个以上连续数字
按Ctrl+h键打开查找和替换窗口，在查找框中输入“^#”，这是单个任意数字的意思，你想查找多少个就输入多少个“^#”（也可以在高级里面的特殊字符中选择任意数字项），然后替换为窗口中不填任何东西，最后点击全部替换按钮即可。
例如：查找中输入“^#^#^#”（这是连续三个任意数字在一起的意思），然后直接按下全部替换，那么文档中所有的任意连续三个数字将会被删除掉。譬如2001就会只剩下1，20011就会只剩下11，而2001111就会被删除（分成两个三组数字而被删除了）。
如果你想删除你的文档中的所有5个以上的连续数字，最好是以最大的个数开始删除。例如最长的一串数字一个是18个，那么先查找替换18个^#，然后再依次查找替换17、16、15……直到5个^#，否则会连4个以下的数字也删除掉的。
二、如何将word里面一串连续的数字删除掉
只要左边和右边的不会相同，且右边是连续的，可以写个宏（参考下面代码），执行下就行了：
Sub CLS_MYTEXT()
'
' CLS_MYTEXT 宏
'
'
Selection.MoveRight Unit:=wdCharacter, Count:=6
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
' 这里需要改你需要的次数及初始值
For i = 1 To 7
With Selection.Find
' 这里需要改你需要的格式
.Text = "1000" + Chr(i + 48)
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = True
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With
Next i
End Sub
