MS Word: "Вставить закладку"-"Перейти к закладке"

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

MS Word: "Вставить закладку"-"Перейти к закладке" (макрос)

Alex_ST

Дата: Вторник, 20.12.2011, 14:14 | Сообщение № 1

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3213

Репутация: 609 ±

Замечаний: 0% ±

2003

При работе с многостраничными документами удобно пользоваться закладками, используя которые легко найти помеченное место в тексте документа.
Однако, установка закладки и переход к ней требуют нескольких "мышкодвижений", что замедляет работу.
Макрос Вставить_Закладку, размещённый в стандартном модуле Normal.dot (его вызов "привязан" к соответствующей кнопке на панели инструментов), устанавливает закладку с именем "My_BookMark" в отмеченном выделением месте документа:
[vba]

Код

Sub Вставить_Закладку()
        With Selection
           If .Type <> wdSelectionNormal And .Type <> wdSelectionIP Then MsgBox "Закладка не установлена!": Exit Sub
           ActiveDocument.Bookmarks.Add Range:=.Range, Name:="My_BookMark"
        End With
End Sub

[/vba]
МакросПерейти_к_Закладке, размещённый в стандартном модуле Normal.dot (его вызов также "привязан" к соответствующей кнопке на панели инструментов), осуществляет переход к месту текста, помеченному закладкой "My_BookMark":
[vba]

Код

Sub Перейти_к_Закладке()
        On Error Resume Next
        Selection.GoTo What:=wdGoToBookmark, Name:="My_BookMark"
        If Err Then MsgBox "Закладка не была установлена"
End Sub

[/vba]

С уважением,
Алексей
MS Excel 2003 - the best!!!

Сообщение отредактировал Alex_ST - Вторник, 20.12.2011, 15:45

Ответить

MS Word: "Вставить закладку"-"Перейти к закладке" (макрос)

Страница 1 из 1
1