Sub Macro1()
Dim i As Long
Dim oRng As Range
Dim vPara As Variant
    For i = 3 To ActiveDocument.Paragraphs.Count
        Set oRng = ActiveDocument.Paragraphs(i).Range
        oRng.End = oRng.End - 1
        vPara = Split(oRng.Text, vbTab)
        If UBound(vPara) = 4 Then
            oRng.Text = vPara(0) & "          " & _
                        vPara(1) & vPara(2) & "   " & _
                        vPara(3) & "   " & vPara(4)
        End If
        DoEvents
    Next i
lbl_Exit:
    Set oRng = Nothing
    Exit Sub
End Sub