Word VisualBasic Script

Sub tab()
    Selection.Tables(1).Rows(1).ConvertToText Separator:=wdSeparateByTabs
End Sub