在WORD里批量改变数字

1、打开你要修来改的word文档。

源查看大图" class="ikqb_img_alink">

2、点击“开始”菜单“编辑”选项卡下的“替换”。

3、输入查找内容为“百[.0-9]”（不需要引号哦），点击“替换为”方框，接着度点击“更多”。

4、接着点击“格式”，然知后点击“字体”。

5、这时可以在查找替换窗口中看到新的格式，道选择“使用通配符”，然后点击“全部替换”。

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

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

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

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

具体操作步骤如下：

1、首先，打开word文档，在第一段中创建一个新的段标记符，如下图所示，然后进入下一步百。

2、其次，完成上述步骤后，单击文档右上角编辑下的【替换】按钮，如下图所示，然后进入度下一步。

3、接着，在弹出窗口上方栏中输入^知    p，在下方栏替换的内容中输入^ p+要添加的文本内容，然后单击全部替换按钮，如下图所示，然后进入下一步。

4、然后，完成上述步骤后，系统将提示已替换4个内容，单击“确定”，如下图所示，然后进入下一步。

5、最后，可以看到在前面的文本前面就批量添加了相同的文本内容，如下图所示。这道样，问题就解决了。

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
Rng = Left(Rng, Len(Rng) - 1)
If VBA.IsNumeric(Rng) Then
Shu = Replace(Rng, Rng, Rng - 455) '原值回减答455
Rng = Shu & "、"
End If
Rng.SetRange Rng.End, ActiveDocument.Content.End
Loop
End With
End Sub