Word VisualBasic Script

Sub sep()
    Selection.Tables(1).ConvertToText Separator:="*"
End Sub