Removing tables in a document and convert the rest to tables

[YasserKhalil]

Hello everybody
I have a word document which have many tables .. and other lines of data
I need to remove all the tables and the other lines to be converted to table of four columns
Thanks advanced for help

 

[YasserKhalil]

Is this a suitable place to post my thread as it is related to Word?

 

[YasserKhalil]

I found this piece of code that remove all the tables

Sub Removetables()
    Dim oTable As Table
    For Each oTable In ActiveDocument.Tables
        oTable.Delete
    Next oTable
End Sub

Just need help to convert the remains (the lines left after the tables removed) I need to convert them to table