Академия Специальных Курсов по Компьютерным Технологиям
    Главная страница Послать письмо
 
AskIt.ru  
   
   
   
   
   
   
 
 
  Главная / Заказные курсы / Программирование в Microsoft Office для пользователей
 
 

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


<-- Назад Посмотреть решение -->

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

Задание:

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

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

Dim sInput As String

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

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

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

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

на строку:

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

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

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

 

   
   
   
   
   
   
   
   
   
   
 
<-- Назад Посмотреть решение -->

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


 
© 2004-2016, Академия Специальных Курсов
по Информационным Технологиям
.
Все права защищены.

Разработка NevaStudio
г. Санкт-Петербург, Васильевский остров,
20-я линия, д. 7
Офис 101, 2-й этаж
Телефон: 8(812)922-47-60
E-mail: info@askit.ru