Word VisualBasic Script

Sub tableSel1()
    Selection.Tables(1).Select
End Sub