Sub table() ActiveDocument.Tables.add Range:=Selection.Range, NumRows:=10, _ NumColumns:=5, DefaultTableBehavior:=wdWord8TableBehavior End Sub