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