If you want to bookmark each table using the text in cell 1 then:
Code:
Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oTbl As Table
Dim oRng As Range
For Each oTbl In ActiveDocument.Tables
Set oRng = oTbl.Range
ActiveDocument.Bookmarks.Add Left(oTbl.Cell(1, 1).Range.Text, Len(oTbl.Cell(1, 1).Range.Text) - 2), oRng
Next oTbl
lbl_Exit:
Exit Sub
End Sub