Ms word 查找word中的数字并将其替换为递增的值

我有一个关于查找和替换word文档中所有数字的问题。

---

我有59…~600左右的数字，我想用一个固定的数字来增加它们。我对单词宏一点也不熟悉。

您可以使用如下宏：

Sub Demo()
Application.ScreenUpdating = False
Const i As Long = 50
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Text = "<[0-9]{2,3}>"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .MatchWildcards = True
    .Execute
  End With
  Do While .Find.Found
    If CLng(.Text) > 58 Then
      If CLng(.Text) < 700 Then .Text = CLng(.Text) + i
    End If
    .Collapse wdCollapseEnd
    .Find.Execute
  Loop
End With
Application.ScreenUpdating = True
End Sub

子演示（）
Application.ScreenUpdating=False
常数i，长度=50
使用ActiveDocument.Range
和…一起找
.ClearFormatting
.Text=“”
.Replacement.Text=“”
.Forward=True
.Wrap=wdFindStop
.MatchWildcards=True
处决
以
找，找，找到
如果CLng（.Text）>58，则
如果CLng（.Text）<700，则.Text=CLng（.Text）+i
如果结束
.倒塌
.Find.Execute
环
以
Application.ScreenUpdating=True
端接头

其中，上述代码中的50是您希望增加其他数字的数量。请注意，根据您的规格，以上仅处理58到700之间的数字。

您能否回答这个问题，以添加有关数字在文档中的使用方式以及如果这些数字只是文档中的数字的一些细节？你对问题的描述越多，别人就越容易提出符合你需要的答案。