Microsoft Office Forums - View Single Post - How do I perform simple mathematical calculations on numbers in the text

macropod · 04-07-2014, 05:36 PM

You can't do this with a Find/Replace on its own. You can if you use it in a macro, though:

Code:

Sub Demo()
Application.ScreenUpdating = False
Dim Rng As Range
Set Rng = ActiveDocument.Range
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "[0-9]{2,}"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchWildcards = True
    .Execute
  End With
  Do While .Find.Found
    If Not .InRange(Rng) Then Exit Do
    If .Text > 13 Then .Text = .Text - 13
    .Collapse wdCollapseEnd
    .Find.Execute
  Loop
End With
Application.ScreenUpdating = True
End Sub

If you want to limit the macro's scope to just a selected range, change the two instances of ActiveDocument to Selection.