Word VisualBasic Script

Sub table1()
    ActiveDocument.Tables(1).Select
End Sub