Статьи из блога

Как изменить имя закладки

Алена спрашивает:

Можно ли программно (макросом) изменить имя закладки текстового поля?

Можно, но с оговоркой. Следует учитывать, что в действительности при этом происходит удаление первой закладки и создание второй закладки для этого же фрагмента текста, но уже с новым именем. Хотя, ничто не мешает создать для одного и того же фрагмента текста несколько разных закладок.

 

Ниже приведен образец макроса, который проверяет наличие в документе закладки с определенным именем (в нашем примере - "закладка") и, если таковая есть, выделяет текстовый фрагмент, ассоциированный с этой закладкой, удаляя закладку со старым именем и создает для фрагмента новую закладку с новым именем ("bookmark").

Sub changeNameBM()
'Замена существующей закладки на закладку с другим именем
Dim bmName As String
bmName = "bookmark"
If ActiveDocument.Bookmarks.Exists("закладка") Then
   With ActiveDocument
      .Bookmarks("закладка").Select
      .Bookmarks("закладка").Delete
      .Bookmarks.Add Name:=bmName
   End With
Else
   MsgBox "Такой закладки в документе нет"
End If
End Sub

twitter.com facebook.com vkontakte.ru odnoklassniki.ru mail.ru ya.ru rutvit.ru myspace.com technorati.com digg.com friendfeed.com pikabu.ru blogger.com liveinternet.ru livejournal.ru memori.ru google.com bobrdobr.ru mister-wong.ru yahoo.com yandex.ru del.icio.us

Еще записи по вопросам использования Microsoft Word:

Комментариев: 1

  1. Леонид Бродский
    06.06.2008 в 10:20 | #1

    И при этом потеряются все ссылки на старую закладку.

Оставьте комментарий!

(обязательно)

^ Наверх