inserts a new, blank, non-autofitting table containing 10 rows and 5 columns at the current position of the insertion point in the active document:
Sub table() ActiveDocument.Tables.add Range:=Selection.Range, NumRows:=10, _ NumColumns:=5, DefaultTableBehavior:=wdWord8TableBehavior End Sub