Using Word macro (wizzardry), how do I add 4807 to selected text?

[John]

Hi

- The first step would be to add 4807 to the number
- the next step would be to put a line through that text (i.e make it
strikeout) and put the new number next to it.


i.e. if I was to highlight '17741', it would make '17741' strikeout
and then put 22548 next to it.


Thanks
John

 

[Greg Maxey]

Sub ScratchMacro()
Dim oRng As Word.Range
Dim lngSum As Long
Dim pStr As String
Dim i As Long
Set oRng = Selection.Range
With oRng
If IsNumeric(.Text) Then
lngSum = .Text + 4807
pStr = CStr(lngSum)
.Font.StrikeThrough = True
.Collapse wdCollapseEnd
i = .Start
.InsertAfter pStr
.Font.StrikeThrough = False
End If
End With
End Sub