With Word.Application

    .Selection.GoTo what:=wdGoToBookmark, Name:="BookmarkName"

    Dim wTable As Word.Table
    Set wTable = .Selection.Tables(1)

    Dim wChart As Word.chart
    Set wChart = wTable.Cell(3, 4).Range.InlineShapes(1).chart
End With