Sub Macro1()
Dim wdApp As Object
Dim oDoc As Object
Dim oBM As Object
Dim bBM As Boolean
Dim oTable As Object
Const strBookmarkName As String = "MyTable"
    On Error Resume Next
    Set wdApp = GetObject(, "Word.Application")
    If Err Then
        Set wdApp = CreateObject("Word.Application")
    End If
    Set wdDoc = wdApp.Documents.Open("Full path of document")
    For Each oBM In oDoc.Bookmarks
        If oBM.name = strBookmarkName Then
            If oBM.Range.Information(12) Then
                Set oTable = oBM.Range.Tables(1)
                bBM = True
                'do what you want with oTable e.g.
                oTable.Range.Select
            End If
            Exit For
        End If
    Next oBM
    If Not bBM Then MsgBox ("Bookmark '" & strBookmarkName & "' not present in the document.")
lbl_Exit:
    Set oBM = Nothing
    Set oTable = Nothing
    Set oDoc = Nothing
    Set wdApp = Nothing
    Exit Sub
End Sub