Задание для самостоятельной работы 2: Редактирование макроса

Задание:

Измените созданный вами на самостоятельной работе 1 макрос таким образом, чтобы он запрашивал фамилию ответственного исполнителя. Для этого:

впечатайте первыми строки кода макроса (над первой строкой Selection.TypeText) строки

Dim sInput As String

sInPut = InputBox ("Введите фамилию ответственного исполнителя", "Запрос данных")

замените строку

Selection.TypeText Text :=("Отв. исполнитель Петрова М.М.")

(фамилия должна быть Ваша)

на строку:

Selection.TypeText Text:=("Отв. исполнитель " & sInput)

Сохраните измененный макрос, закройте окно редактора кода и убедитесь, что макрос теперь работает по-новому.

Примечание: не волнуйтесь, что вводимый вами код может показаться непонятным. Почему он именно такой, станет ясно после рассмотрения встроенных функций Visual Basic (функция InputBox) и объектной модели Word (метод TypeText объекта Selection) в соответствующих главах. Задача этой самостоятельной работы — просто позволить вам освоиться в окне редактора кода.

Получить учебные материалы по этому курсу