Microsoft Office Forums - View Single Post - [Solved] How do I read from a table located with a bookmark

macropod · 03-03-2012, 03:11 PM

You can read from / write to the table as follows:

Code:

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

Note that there's no need to 'goto' or select anything.