Sub Demo()
Dim Rng As Range, BkMk as String
BkMk = "Document_Revision_Table"
With ActiveDocument
  If .Bookmarks.Exists(BkMk) Then
    If .Bookmarks(BkMk).Range.Tables.Count > 0 Then
      With .Bookmarks(BkMk).Range.Tables(1)
        'do something, eg:
        .Cell(1, 1).Range.Text = "Gothca!"
        Set Rng = .Cell(1, 1).Range
        Rng.End = Rng.End - 1
        MsgBox Rng.Text
      End With
    Else
      MsgBox "Missing table"
    End If
  Else
    MsgBox "Missing bookmark: " & BkMk
  End If
End With
End Sub