使用递增的值查找并替换单词中的数字

Question

我有一个关于查找和替换word文档中所有数字的问题。 我有59 ...... ~600左右的数字，我想用固定的数字增加所有数字。我对词宏并不熟悉。

Answer 1

你可以使用像：

这样的宏

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

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