在WORD里批量改变数字 word里批量修改数字标题
作者&投稿：征促 （若有异议请与网页底部的电邮联系）
word怎么批量修改数字和英文的格式啊？~
用个简单的宏就可以了：
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里，计算完成后复制回来，再转换回文本。
1、选择”替换“功能。打开”替换“功能，在弹出的对话框中选择”特殊格式“。
2、选择”格式“类别。在弹出的对话框中，分别选择”任意字母“和”任意数字“，此处以任意数字为例。
3、选择”格式“设置。回到”替换“功能的对话框中，选择”格式“。
4、选择”西文字体“。在弹出的对话框中，选择常用的数字、字母格式：Times New Roman
5、选择”全部替换“。设置完毕后，回到”替换“功能对话框中，选择”全部替换“。
6、重复上述操作，替换”任意字母“。重复上述操作步骤，可以替换任意字母，结果如图所示，数字和字母的格式已经统一。
首先选中所有标题：选中一个标题，然后，右击，“样式”－－“选择格式相似的文本”，这时标题就被全部选中；
然后，再进行查找替换，选择只替换选中的文本。
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里，计算完成后复制回来，再转换回文本。
