Пишем слово "информатика" и ставим курсор ПЕРЕД ним.
Делаем вот так:
В появившемся окошке называем макрос "Редактирование", тыкаем на кнопку "клавишам".
Перед нами появляется второе окошко. Тыкаем мышкой на поле "Новое сочетание клавиш", нажимаем на клавиатуре сначала кнопку ctrl. Потом, не отпуская её, жмём "d". Потом тыкаем "Назначить".
Нажимем "Закрыть".
Зажимаем кнопку "Shift" и два раза тыкаем на стрелку "-->". То есть клавиатурой выделяем "ин".
Потом вводим такую команду:
После того, как исчезло "ин", стрелкой "-->" на клавиатуре переводим курсор в конец слова.
Переведя курсор, зажимаем "shift" и четыре раза тыкаем на клавиатуре на стрелку "<--". Должно выделиться "тика":
Выбираем такую команду:
А потом такую:
Открываем вот эту фигню:
И тыкаем "Изменить" в открывшемся окне.
Должен появиться какой-нибудь подобный код в VB (как вариант):
Тыкаем вот сюда (это всё в VB):
В открывшейся фигне (надеюсь, она откроется сразу с Toolbox) выбираем сей замечательный инструмент:
Нажимаем на открывшейся Userform в любое место показанным инструментом, и, не отпуская левую кнопку мыши, проведем ею на пару сантиметров по диагонали вниз. В процессе должно выглядеть так:
В итоге должно выйти так:
Переименуем несчастную кнопку...
Откроем Normal - NewMacros (Code). Эту штуку мы получили в шаге 7 и, надеюсь, её не закрывали.
Выделим всё, что у нас между "Редактирование макрос" (или что-то похожее зелёным шрифтом) и "End Sub", а потом нажмём на выделенное правой кнопкой мыши и выберем "Copy":
Откроем UserForm, которую мы создавали.
Ткнём 2 раза левой кнопкой мыши на серую кнопочку. Должен открыться код:
Ткнём правой кнопкой мыши между "Private Sub CommandButton1_Click()" и "End Sub", и в открывшемся меню нажмём "Paste".
Теперь закроем код, в котором работали. Свернём VB. Откроем Word. Если в нашем документе что-то написано – сотрём. Напишем на чистом листе "информатика" и поставим курсор перед этим словом.
Свернём Word. Откроем VB. Выберем "Run Sub/UserForm".
Должно получиться так:
Ткнем на кнопку. Выйдет так:
Алилуйя, макросэ готовэ!
Дата добавления: 2015-08-28; просмотров: 39 | Нарушение авторских прав
| <== предыдущая лекция | | | следующая лекция ==> |
| Кейс – это головоломка, части которой нужно сложить, чтобы получить представление о том, что представляет собой ситуация, привлекшая ваше внимание. Главное, что необходимо помнить при составлении | | | Пишем слово информатика и ставим курсор ПЕРЕД ним. |