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

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


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

Решение:

К пункту 1 — создание пользовательской формы:

  • Откройте окно редактора Visual Basic для Word и щелкните правой кнопкой мыши по проекту Normal в Project Explorer, а затем выберите в контекстном меню Insert -> UserForm.
  • В дизайнере форм сконструируйте форму, аналогичную представленной на рис. 10.1-2 (про работу с дизайнером форм рассказывалось в разделе 5). В нашем примере элементы управления на форме будут называться так:
    • текстовое поле для ввода города: txtCity;
    • текстовое поле для ввода номера договора: txtNumber;
    • текстовое поле для ввода даты: txtDate;
    • текстовое поле для ввода наименования организации: txtOrg;
    • текстовое поле для ввода представителя организации: txtPerson;
    • текстовое поле для ввода его должности: txtTitle;
    • текстовое поле для ввода юридического основания: txtLaw;
    • кнопка для формирования договора: cmdDog;
    • кнопка Отмена: cmdСancel.
  • Настройте оформление для элементов управления по вашему вкусу. Установите значение для свойства Caption для формы как "Данные договора". Для кнопки cmdDog установите True для значения свойства Default, а для кнопки cmdCancel установите True для значения свойства Cancel. Для свойства (Name) самой формы введите значение FormDog.

 

К пункту 2 — создание макроса и кнопки для показа формы:

  • В стандартном модуле NewMacros проекта Normal создайте новую процедуру с именем FormDog(). Код ее может быть таким:

Public Sub FormDogShow ()

FormDog.Show

End Sub

  • Убедитесь, что при его запуске открывается созданная вами форма.
  • В Word в меню Сервис выберите Настройка, а затем перейдите на вкладку Команды. В списке Категории выберите Макросы, а затем перетащите на любую панель инструментов макрос Normal. NewMacros. FormDogShow. Настройте для созданной кнопки подходящий формат отображения (см. главу 1 этой книги). После этого закройте окно Настройка и убедитесь, что при нажатии на эту кнопку открывается форма.

 

К пункту 3 — создание шаблона документа Word:

  • Создайте новый документ Word, аналогичный представленному на рис. 10.4.

Рис. 10.4 Шаблон договора

  • Поместите в нужные места этого документа закладки. Места вставки закладок можно посмотреть на рис. 10.2 (текст, выделенный зеленым). В нашем примере закладки будут называться так:
    • закладка для ввода номера договора: bNumber;
    • закладка для ввода города: bCity;
    • закладка для ввода даты: bDate;
    • закладка для ввода наименования организации: bOrg;
    • закладка для ввода представителя организации: bPerson;
    • закладка для ввода его должности: bTitle;
    • закладка для ввода юридического основания: bLaw.
  • Сохраните этот файл как шаблон Microsoft Word с именем C:\DogovorTemplate.dot.

 

К пункту 4 — создание программного кода для кнопок на форме:

  • Для события Click кнопки cmdCancel введите следующий программный код:

Private Sub cmdCancel_Click()

FormDog.Hide

End Sub

  • Для события Click кнопки cmdDog можно использовать следующий программный код:

Private Sub cmdDog_Click()

Dim oDoc As Document

Set oDoc = Application.Documents.Add("C:\DogovorTemplate.dot")

oDoc.Bookmarks("bNumber").Range.Text = txtNumber.Value

oDoc.Bookmarks("bCity").Range.Text = txtCity.Value

oDoc.Bookmarks("bDate").Range.Text = txtDate.Value

oDoc.Bookmarks("bOrg").Range.Text = txtOrg.Value

oDoc.Bookmarks("bTitle").Range.Text = txtTitle.Value

oDoc.Bookmarks("bPerson").Range.Text = txtPerson.Value

oDoc.Bookmarks("bLaw").Range.Text = txtLaw.Value

FormDog.Hide

oDoc.Activate

End Sub

 

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

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


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

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