Below you will find some code that should do what you want. If your table is
not in the primary footer in section 1, you need to adjust the code.

Dim strWord1 As String
Dim strWord2 As String
Dim oBkRange As Range
Dim strBk1 As String
Dim strBk2 As String

'Define bookmark names
strBk1 = "bknbr"
strBk2 = "bkRev"

'Find words in footer table to use as bookmark text
With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Tables(1)
   'Trim removes trailing spaces
   strWord1 = Trim(.Cell(1, 1).Range.Words(2).Text)
   strWord2 = Trim(.Cell(1, 2).Range.Words(2).Text)
End With

'Update bookmark text
'Bookmarks must be added again
With ActiveDocument
   'Update first bookmark
   Set oBkRange = .Bookmarks(strBk1).Range
   oBkRange.Text = strWord1
   'Add bookmark again
   .Bookmarks.Add Name:=strBk1, Range:=oBkRange
   
   'Update second bookmark
   Set oBkRange = .Bookmarks("bkRev").Range
   oBkRange.Text = strWord2
   'Add bookmark again
   .Bookmarks.Add Name:=strBk2, Range:=oBkRange
End With

Set oBkRange = Nothing