Convert word or text file to Excel

**Allgermanparts** · 05-25-2013, 06:02 AM

Hi All,
I have a file that I would like to put into Excel for Ebay categories. Can someone kindly show me how to split the category description in to one column and the bracketed number in to the next please.

**Jakobshavn** · 05-25-2013, 08:20 AM

1. Copy the material from Word into Excel
2. Put the following macros into a standard module:

Sub HyperKiller()
    ActiveSheet.Hyperlinks.Delete
End Sub

Sub ShapeKiller()
    Dim s As Shape
    For Each s In ActiveSheet.Shapes
        s.Delete
    Next
End Sub

Sub RowKiller()
    Dim N As Long, r As Range
    N = Cells(Rows.Count, "A").End(xlUp).Row
    For nn = N To 1 Step -1
        With Cells(nn, "A")
        .Value = Replace(.Value, Chr(183), "")
        .Value = Replace(.Value, Chr(160), "")
        If Len(Trim(.Value)) < 2 Then
            .EntireRow.Delete
        End If
        End With
    Next
End Sub

Sub MAIN()
    Call HyperKiller
    Call ShapeKiller
    Call RowKiller
    Call MoveData
End Sub

Sub MoveData()
    Dim N As Long
    N = Cells(Rows.Count, "A").End(xlUp).Row
    For nn = 1 To N
        With Cells(nn, "A")
            If Left(.Value, 1) <> " " Then
                .Copy .Offset(0, 1)
                .Clear
            End If
        End With
    Next
End Sub

3. Run the MAIN macro