VBA Code

There is a built in ConvertToTable command ??

If Selection.Information(wdWithInTable) = False Then MsgBox("You are not in a table!") 

Returning text from a table cell with no end marker

Set tblTable = ActiveDocument.Tables(1) 
For Each clCell in tblTable.Rows(1).Cells 
   Set rgeRange = ActiveDocument.Range(start := clCell.Range.Start, end := clCell.Range.End - 1) 
   Call Msgbox(rgeRange.Text) 
Next clCell 

Adding a formula

Selection.InsertFormula Formula:="=SUM(ABOVE)", NumberFormat:="#,##0.00"