Delirium, респект! С твоей помощью нашёл в хелпе от 97 ворда в нужной мне форме
Код:
This example adds a bookmark at the top of page 2 in the active document.
Set myRange = ActiveDocument.Words(1).GoToNext(What:=wdGoToPage)
ActiveDocument.Bookmarks.Add Name:="Page2", Range:=myRange
