Sub perLine()
' Loops thru lines in document passing each line to following Sub ModifyNumbersInText(line)
Static objRegex As Object
Static matches As Object
    If objRegex Is Nothing Then Set objRegex = CreateObject("VBScript.RegExp")
Dim strSample As String

 Dim para As Paragraph
    Dim sentence() As String
    For Each para In ActiveDocument.Paragraphs
          sentence() = Split(para.Range.Text, Chr(11))
            For i = 0 To UBound(sentence)
                  strSample = sentence(i)                  
                      With objRegex
                       .Pattern = "(\-)(\d)"
                       .Global = True
                       .IgnoreCase = True
                       strSample = .Replace(strSample, " X $2")
                      End With
                  ModifyNumbersInText (strSample)
            Next i
    Next
End Sub

Sub ModifyNumbersInText(line)
'Adds 2 to all numerical values in line

Dim txt As String
Dim NumbersFound As String
Dim NumberArray As Variant
txt = line

'Use Regular Expressions to pull out numbers
  Set objRegex = CreateObject("VBScript.RegExp")
  objRegex.IgnoreCase = True
  objRegex.Global = True
  
  objRegex.Pattern = "\d+" 'grab one or more digits
  
  If objRegex.Test(txt) Then
    Set Result = objRegex.Execute(txt)
      If Result.Count > 0 Then
        For Each match In Result
          NumbersFound = NumbersFound & ";" & match.Value
        Next match
    Else
        Exit Sub
      End If
  End If

'Create Array out of Numbers Found
  NumbersFound = Right(NumbersFound, Len(NumbersFound) - 1)
  NumberArray = Split(NumbersFound, ";")
  
'Find/Replace (add 2)
  For x = LBound(NumberArray) To UBound(NumberArray)
    If NumberArray(x) > 30 Then
        txt = Replace(txt, NumberArray(x), NumberArray(x) + 2)
    End If
  Next x

'Output result
    Debug.Print txt
End Sub

                  strSample = sentence(i)                  
                      With objRegex
                       .Pattern = "(\-)(\d)"
                       .Global = True
                       .IgnoreCase = True
                       strSample = .Replace(strSample, " X $2")
                      End With