Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim arrFind() As String
Dim oRng As Range
Dim lngIndex As Long, lngCounter As Long
arrFind = Split("(NN ,(DT ", ",")
For lngIndex = 0 To UBound(arrFind)
Set oRng = ActiveDocument.Range
lngCounter = 0
With oRng.Find
.Text = arrFind(lngIndex)
While .Execute
If lngCounter > 0 Then
oRng.End = oRng.End - 1
oRng.Text = oRng.Text & lngCounter
End If
lngCounter = lngCounter + 1
oRng.Collapse wdCollapseEnd
Wend
End With
Next
lbl_Exit:
Exit Sub
End Sub