Пакетное переименование нескольких закладок в файле Word .docx

Question

Можно ли переименовать несколько закладок в стандартном файле Word 97-2003? Я только что закончил 400-страничный документ в Word 2010 с несколькими сотнями закладок, которые нужно переименовать, и я определенно не хочу заходить и переименовывать их вручную. Я нашел эту надстройку Word для улучшения встроенного диалога закладок Word, но, похоже, не могу заставить его правильно загружаться в мой документ, если я смогу заставить его работать, это решит мою проблему. До этого времени существуют ли другие простые методы для достижения этой цели? Может быть, это можно сделать с помощью макросов. Сейчас я смотрю, поддерживает ли OpenOffice пакетное переименование закладок в файле docx. Помощь приветствуется.

Answer 1

Вы можете сделать это с помощью макроса VBA в Word. Приведенный ниже макрос, который взят отсюда (и обсужден более подробно на веб-странице), добавит "NEW_" к каждому существующему имени закладки, но он может быть адаптирован для переименования закладок в соответствии с желаемыми соглашениями.

Sub RenameBookmarks()
'  although it does NOT rename them
'  it creates a new one for the same range
'  then deletes the old one

Dim BM_Names()
Dim i As Long
With ActiveDocument
  For i = 1 To .Bookmarks.Count
    ReDim Preserve BM_Names(i)
    BM_Names(i) = .Bookmarks(i).Name
  Next
  For i = 1 To .Bookmarks.Count
    With .Bookmarks(BM_Names(i))
      .Range.Bookmarks.Add Name:="NEW_" & .Name, Range:=.Range
      .Delete
    End With
  Next
End With
End Sub