Word VisualBasic Script

Sub sele()
    Set myTable = Selection.ConvertToTable(wdSeparateByCommas, _
        Selection.Paragraphs.Count, 5, , , , , , , , , , , True, _
        wdAutoFitContent, wdWord9TableBehavior)
End Sub