1、打开Word文档,进入文档首页面,
2、打开查找与替换的对话框,这一点很重要的
3、将光标定在“查找”搜索栏中,点击“更多”,找到“特殊格式”,然后选择“任意数字”
4、将光标定在“替换”搜索栏中,输入想要替换的格式,然后点击“全部替换”即可。
1、按键盘上的Ctrl+H调出替换对话框,上面的框输入[0-9]。
2、点击替换框左下角【更多】按钮。
3、如下图,选择【使用通配符】。
4、点击【全部替换】按钮。
5、关闭对话框,再次查看word文档,文本中就不包括数字了。
试试 文件批量处理百宝箱V10.0主界面-右上角-更多功能-拓展界面-文本行处理功能卡,勾选doc文档,加载待处理文档,在新的界面中进行设置处理。
用个简单的宏就可以了:
Sub shux()
Dim Rng As Range, Shu As Double
Set Rng = ActiveDocument.Content
With Rng.Find
.ClearFormatting
.Replacement.ClearFormatting
.MatchWildcards = True
Do While .Execute(findtext:="[0-9.-]{1,}") '包括小数和负数
MsgBox Rng
If VBA.IsNumeric(Rng) Then
Shu = Replace(Rng, Rng, Rng + 15) '原值加15
Rng = Shu
End If
Rng.SetRange Rng.End, ActiveDocument.Content.End
Loop
End With
End Sub
用查找替换的办法把数字用制表位或者空格分离出来,转换成表格,用公式计算,或者复制到excel里,计算完成后复制回来,再转换回文本。