在WORD里批量改变数字

Question

现在有一个文档。里面有很多数字。需要全部加15。怎样可以批量修改。
不要跟我说人工。真的有很多。
如果要挪到EXCEL中修改，应该怎样弄？
在WORD里不是表格。就是一片片的文字啊。0 0

Answer 1

1、打开Word文档，进入文档首页面，

2、打开查找与替换的对话框，这一点很重要的

3、将光标定在“查找”搜索栏中，点击“更多”，找到“特殊格式”，然后选择“任意数字”

4、将光标定在“替换”搜索栏中，输入想要替换的格式，然后点击“全部替换”即可。

Answer 2

　　1、按键盘上的Ctrl+H调出替换对话框，上面的框输入[0-9]。

　　2、点击替换框左下角【更多】按钮。

　　3、如下图，选择【使用通配符】。

　　4、点击【全部替换】按钮。

　　5、关闭对话框，再次查看word文档，文本中就不包括数字了。

Answer 3

试试 文件批量处理百宝箱V10.0主界面-右上角-更多功能-拓展界面-文本行处理功能卡，勾选doc文档，加载待处理文档，在新的界面中进行设置处理。

Answer 4

用个简单的宏就可以了：
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本回答被提问者采纳

Answer 5

用查找替换的办法把数字用制表位或者空格分离出来，转换成表格，用公式计算，或者复制到excel里，计算完成后复制回来，再转换回文本。