Преглед садржаја
Додај обележивач
Овај Ворд макро ће додати обележивач:
Суб АддБоокмарк () АцтивеДоцумент.Боокмаркс.Адд "еасиекцел_нет_01" Енд Суб
Избриши обележивач
Овај ВБА макро ће избрисати обележивач:
Под Избриши Боокмарк () Ако АцтивеДоцумент.Боокмаркс.Екистс ("еасиекцел_нет_01") Затим 'морамо да проверимо да ли обележивач под именом "еасиекцел_нет_01" постоји у активном документу АцтивеДоцумент.Боокмаркс (Индек: = "еасиекцел_нет_01"). Избриши Прекини ако заврши Суб
Идите на Обележивач
Овај једноставан макро ће отићи у обележивач:
Суб ГоТоБоокмарк () Иф АцтивеДоцумент.Боокмаркс.Екистс ("еасиекцел_нет_01") Затим 'морамо да проверимо да ли обележивач под називом "еасиекцел_нет_01" постоји у активном избору докумената. Иди на Шта: = вдГоТоБоокмарк, Назив: = "еасиекцел_нет_01" Заврши ако заврши Суб
Измени обележивач
Овај макро ће променити садржај обележивача:
Суб МодифиБоокмаркЦонтент () 'промени садржај обележивача' компликованије, јер ће се променом садржаја опсега обележивача избрисати обележивач Дим оРангеБКМ као опсег ако је АцтивеДоцумент.Боокмаркс.Екистс ("еасиекцел_нет_01") Затим 'морамо да проверимо да ли обележивач под називом "еасиекцел_нет_01" постоји у активном доц 'Идентификујте тренутни опсег обележивача и уметните текст Поставите оРангеБКМ = АцтивеДоцумент.Боокмаркс ("еасиекцел_нет_01"). Распон оРангеБКМ.Тект = "еасиекцел.нет"' Поново направите обележивач АцтивеДоцумент.Боокмаркс.Адд "еасиекцел_нет_01", оРангеБ
Ово је промена функције обележивача:
Под УпдатеБоокмаркЦонтент (стрБоокМаркНаме Ас Стринг, стрНевТект Ас Стринг) '' употребљива 'процедура за додавање у Дим оРангеБКМ као опсег Ако АцтивеДоцумент.Боокмаркс.Екистс (стрБоокМаркНаме) Затим' морамо да проверимо да ли обележивач под именом "еасиекцел_нет_01" Идентифицира у активном документу тренутни опсег обележивача и уметнути текст Поставите оРангеБКМ = АцтивеДоцумент.Боокмаркс (стрБоокМаркНаме) .Ранге оРангеБКМ.Тект = стрНевТект 'Поново направите обележивач АцтивеДоцумент.Боокмаркс.Адд стрБоокМаркНаме, оРангеБКМ Енд Иф Енд Суб
Функцију можете позвати додавањем назива обележивача и новог текста као аргументе:
Суб ЦаллБоокмаркФунцтион () Позив Упдате УпдатеБоокмаркЦонтент ("еасиекцел_нет_01", "еасиекцел.нет") Крај Суб