If a table of authorities exists in the active document, the entries are collected from the area defined by the bookmark named "area."
If ActiveDocument.TablesOfAuthorities.Count >= 1 Then
ActiveDocument.TablesOfAuthorities(1).Bookmark = "area"
End If