Try opening the rtf with ms word. Copy and paste into Excel column A. Use Excel macro:
Option Explicit
Sub Macro1()
Dim AveryLine As Long, _
LastLine As Long, _
AveryBlock As Range, _
DeleteAvery As Boolean
DeleteAvery = False
With Sheets("sheet1")
LastLine = .Cells(.Rows.Count, 1).End(xlUp).Row
For AveryLine = 0 To (LastLine / 5) - 1
Set AveryBlock = .Range("a1").Offset(rowoffset:=AveryLine * 5).Resize(rowsize:=5)
.Cells(AveryLine + 1, "B").Resize(columnsize:=5).Value = WorksheetFunction.Transpose(AveryBlock.Value)
Next AveryLine
If DeleteAvery Then .Range("A:A").Delete
End With
End Sub
Bookmarks