Назначение макроса на документы с опред. словом в названии

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

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

ЛенивыйВася

Дата: Среда, 26.12.2018, 18:56 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

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

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

Excel 2016

Здравствуйте, уважаемые специалисты в области языка программирования VBA.

В ворде существуют два типа макросов.
Первый тип навешивается на конкретные файлы (например только на 1.doc и 2.doc).
А второй тип макросов - навешивается на все открытые документы (все открытые файлы с расширением *.doc).

Как назначить макросу второго типа свойство, чтобы он назначался не на все без исключения вордовские документы, а только на те, в чьих названиях есть текст "-СКРИПТ" ?

То есть, к примеру : если документ называется "123-СКРИПТ-2.doc" то макрос будет в нем работать - например выдавать некое сообщение Msgbox.

Ответить

_Boroda_

Дата: Среда, 26.12.2018, 20:35 | Сообщение № 2

Группа: Админы

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

Сообщений: 16745

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

В макросе второй строкой (после Sub) напишите
[vba]

Код

If InStr(ActiveDocument.Name, "-СКРИПТ") = 0 Then Exit Sub

[/vba]

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

Ответить

ЛенивыйВася

Дата: Среда, 26.12.2018, 22:36 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

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

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

Excel 2016

_Boroda_, все заработало.
Спасибо.

Ответить

Назначение макроса на документы с опред. словом в названии

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