Найти и заменить числа в слове увеличенными значениями

Question

У меня вопрос о поиске и замене всех чисел в текстовом документе. У меня есть числа от 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.