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