Paul's method will work and be very fast for the specific example you gave. If you want a macro that simply deletes all but the first tab in each paragraph of text, you could use:
Code:
Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oPar As Paragraph
Dim oRng As Range
Dim lngIndex As Long
For Each oPar In ActiveDocument.Range.Paragraphs
lngIndex = 0
Set oRng = oPar.Range
With oRng.Find
.Text = Chr(9)
While .Execute
oRng.Select
lngIndex = lngIndex + 1
If lngIndex > 1 Then
oRng.Text = " "
oRng.Collapse wdCollapseEnd
End If
Wend
End With
Next oPar
lbl_Exit:
Exit Sub
End Sub