Word VisualBasic Script

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