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

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


<-- Назад Читать дальше -->

Ответ к заданию 2: Редактирование макроса

Решение:

  • Откройте Word и нажмите клавиши <Alt>+<F11>. В открывшемся окне Microsoft Visual Basic найдите окно Project Explorer, раскройте в нем узел Normal -> Modules -> NewMacros, выделите NewMacros и нажмите на кнопку <F7>. Откроется окно с кодом NewMacros.

Найдите вашу процедуру Sub Подпись() и внесите необходимые изменения. Общий текст процедуры может быть, например, таким (Внимание! Он вполне может не совпадать с вашим текстом — все зависит о того, какие действия вы выполняли в макрорекордере):

Sub Подпись()

'

' Подпись Макрос

' Макрос записан 02.05.2004 R

'

Dim sInPut As String

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

Selection.TypeText Text :="Генеральный директор:" & vbTab & vbTab & vbTab & _

" Иванов А.А."

Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

Selection.TypeParagraph

Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft

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

Selection.TypeParagraph

Selection.TypeText Text:="т. 55-55"

End Sub

Нажмите на кнопку < Ctrl>-< S>, чтобы сохранить изменения и <Alt>-<Q>, чтобы вернуться в Word. Выполните макрос, чтобы убедиться, что он работает в соответствии с заданием.

 

   
   
   
   
   
   
   
   
   
   
 
<-- Назад Читать дальше -->

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


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

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