word里面有很多数字 都是三位数的金额，如何批量增加呢？比如260 280 320…批量增加200

用宏解决

Sub 文本中的数字批量加上指定数值()
Dim myRange As Range, myValue As Currency

On Error Resume Next
Application.ScreenUpdating = False '关闭屏幕更新
Set myRange = ActiveDocument.Content '定义为主文档文字部分
With myRange.Find '查找
.ClearFormatting '清除格式
.text = "[0-9]{3}" '3位数据
.MatchWildcards = True '使用通配符
.Execute '每次查找成功
myValue = VBA.Val(myRange) + 200 '加200，并转换为数据

myRange = myValue
End With

Application.ScreenUpdating = True '恢复屏幕更新
End Sub

如果太多的数字和文档，想批量处理，可试试这：

这样子就能批量处理了。

在我们日常工作和日常学习中，有时候需要将一些Word 文件进行压缩，如何做到呢？我们可以使用[风云压缩]完成。一起来看下具体步骤吧！