Код для выделения закладок

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

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

Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Код для выделения закладок (Выделять и снимать выделение с закладок.)

Otter

Дата: Вторник, 04.09.2018, 15:17 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 174

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

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

Excel 2019, Word 2019

Есть код для чек бокса по выделению закладки , но он не работает.
Если код сделать для кнопки в форме то он срабатывает. Закладки выделяются квадратными скобками.
Пожалуйста помогите доработать код, чтобы работал в чек боксе и выделял желтым и снимал выделение с закладок.
[vba]

Код

Private Sub CheckBox2_Click()
    Dim p%
    If p Then Exit Sub
    With ThisDocument
        If CheckBox1.Value Then
ActiveWindow.View.ShowBookmarks = True 'выделить закладки
        Else
ActiveWindow.View.ShowBookmarks = False 'снять выделение с закладок
        End If
    End With
End Sub

[/vba]

К сообщению приложен файл: __.docm (25.6 Kb)

Сообщение отредактировал Otter - Вторник, 04.09.2018, 15:47

Ответить

_Boroda_

Дата: Вторник, 04.09.2018, 15:25 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

А файл?

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Otter

Дата: Вторник, 04.09.2018, 15:31 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 174

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

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

Excel 2019, Word 2019

Файл прикрепил к первому посту.
Ошибку в чек боксе сам нашел. Там надо CheckBox1.Value заменить на CheckBox2.Value
Здесь прикрепил рабочий вариант с чек боксом в форме.

Остался вопрос:
Доработать код, чтобы выделял желтым (что в квадратных скобках)и снимал выделение желтым с закладок.

К сообщению приложен файл: 59.docm (27.0 Kb)

Сообщение отредактировал Otter - Вторник, 04.09.2018, 16:21

Ответить

_Boroda_

Дата: Вторник, 04.09.2018, 16:36 | Сообщение № 4

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Так нужно?
[vba]

Код

Private Sub CheckBox2_Click()
    If CheckBox2.Value Then
        z2_ = wdYellow
    Else
        z2_ = wdNoHighlight
    End If
    ActiveWindow.View.ShowBookmarks = CheckBox2.Value
    For Each bm In ThisDocument.Bookmarks
           bm.Range.HighlightColorIndex = z2_
    Next bm
End Sub

[/vba]

Вот так лучше
[vba]

Код

Private Sub CheckBox2_Click()
    ActiveWindow.View.ShowBookmarks = CheckBox2.Value
    For Each bm In ThisDocument.Bookmarks
       bm.Range.HighlightColorIndex = 7 - bm.Range.HighlightColorIndex
    Next bm
End Sub

[/vba]

Ответить

Otter

Дата: Вторник, 04.09.2018, 20:19 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 174

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

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

Excel 2019, Word 2019

_Boroda_, Большое Спасибо, за два варианта.
Осталось решить маленькую проблемку.
Да для моего примера все работает отлично. А если прикрутить макросы к шаблону Normal, чтобы работало для всех документов в скобки заключает, а желтым не красит. Как исправить?