一、如何将word文档中存在的所有数字删除
一下子全部删除什么什么，这种叫做批量删除，也可以称为批量替换。
方法如下：
“编辑”→“替换”，弹出对话框。
在查找内容那里输入
^#
在替换为那里，您想替换为什么就输入什么;不想替换为什么而是想删除数字，就什么也不填写。
最后，点击“全部替换”，这样就可以把word文档中所存在的所有数字，全部都删除或替换掉了。
当然，如果您想替换掉别的比较特殊的东西，不知道在查找内容那里输入什么，那么，可以使用如下方法，找到如何输入通配符。
在替换对话框中，点击“特殊字符”那按钮，会弹出一序列的菜单，选择其中一中，就能自动输入通配符了，比如，选择的是“短划线”，那么，对应的通配符是：^=
二、如何将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
三、怎样删除word表格中的众多数字
1.假设举例的这个文档中有3处重复的段落，现在只需要第一次出现的内容，后面重复的段落可以全部删除。这样在实际工作中也是比较符合常理的。
2.按快捷键ctrl+a全选文档内容，然后快捷键ctrl+h打开【查找和替换】窗口。
3.标单击【查找内容】文本框，输入“(<[!^13]*^13)(*)1”,特别提醒注意输入的内容是双引号中的内容，不包括双引号，否则会报错查找不到。
4.然后点击【替换为】文本框，输入"12"
，单击勾选下面【使用通配符】前的复选框打勾，如果找不到这个复选框，就是出于简略窗口模式，可以点击窗口下方的【高级】按钮打开。
5.最后不断重复的点击【全部替换】按钮，点击次数不限，直到弹出一个对话框窗口【word已完成对文档的搜索并已完成0处替换】为止。
6.点击
确定
按钮后关闭窗口，回到文档正文查看，已经成功删除文档重复段落。
