Основы программирования на VBA. Регеда В.В - 74 стр.

UptoLike

Составители: 

Selection.TypeText Text:=MemoForm1.txtOsn.Text
ActiveDocument.Bookmarks("ccGrupa").Select
Selection.TypeText Text:=MemoForm1.txtGrupa.Text
ActiveDocument.Bookmarks("ccRazd").Select
Selection.TypeText Text:=MemoForm1.CboRazd.Text
ActiveDocument.Bookmarks("ccListov").Select
Selection.TypeText Text:=MemoForm1.txtListov.Text
'Выбор закладки ccList и вставка поля PAGE
ActiveDocument.Bookmarks("ccList").Select
Selection.Fields.Add Range:=Selection.Range, Type:= _
wdFieldEmpty, Text:= "PAGE \* Arabic ", _
PreserveFormatting:=True
'Переход на закладку для начала ввода информации
ActiveDocument.Bookmarks("Body").Select
End Sub
Для ячейки таблицы «Лист» удобно использовать поле MS Word
Page, которое вставляет номер текущей страницы. Для переключения ме-
жду отображением результата кодов полей и отображением самих кодов
нажмите комбинацию Alt+F9, чтобы включить отображение кодов полей
нажмите Alt+F9 еще раз.
Все время, пока форма находится на экране, должна работать опре-
деленная VBA-процедура, чтобы выполнять действия по обработке проис-
ходящих в форме событий. Процедуры, обрабатывающие данные события,
генерируются в VBA автоматически во время создания формы и ее управ-
ляющих элементов. И тогда все, что вам остается сделать, – это написать
код для всех действий, которые вы хотите связать с определенными собы-
тиями.
Процедура Activate выполняется каждый раз при загрузке формы.
Этой процедурой обычно пользуются для выполнения любых предвари-
тельных действий, которые должны произойти перед тем, как допустить
пользователя к работе с формой. Метод AddItem поля со списком вызы-
вается три раза для описания данных из раскрывающегося списка «Вид
схемы». Свойство Text для текстовых полей устанавливает начальное,
пустое значение.
Private Sub UserForm_Activate()
Me.CboRazd.Clear
Me.CboRazd.AddItem "Схема структурная", 0
    Selection.TypeText Text:=MemoForm1.txtOsn.Text
ActiveDocument.Bookmarks("ccGrupa").Select
Selection.TypeText Text:=MemoForm1.txtGrupa.Text
    ActiveDocument.Bookmarks("ccRazd").Select
    Selection.TypeText Text:=MemoForm1.CboRazd.Text
ActiveDocument.Bookmarks("ccListov").Select
Selection.TypeText Text:=MemoForm1.txtListov.Text
    'Выбор закладки ccList и вставка поля PAGE
ActiveDocument.Bookmarks("ccList").Select
Selection.Fields.Add Range:=Selection.Range, Type:= _
wdFieldEmpty,    Text:=   "PAGE    \*   Arabic    ", _
PreserveFormatting:=True
    'Переход на закладку для начала ввода информации
    ActiveDocument.Bookmarks("Body").Select
End Sub
      Для ячейки таблицы «Лист» удобно использовать поле MS Word
Page, которое вставляет номер текущей страницы. Для переключения ме-
жду отображением результата кодов полей и отображением самих кодов
нажмите комбинацию Alt+F9, чтобы включить отображение кодов полей
нажмите Alt+F9 еще раз.
      Все время, пока форма находится на экране, должна работать опре-
деленная VBA-процедура, чтобы выполнять действия по обработке проис-
ходящих в форме событий. Процедуры, обрабатывающие данные события,
генерируются в VBA автоматически во время создания формы и ее управ-
ляющих элементов. И тогда все, что вам остается сделать, – это написать
код для всех действий, которые вы хотите связать с определенными собы-
тиями.
      Процедура Activate выполняется каждый раз при загрузке формы.
Этой процедурой обычно пользуются для выполнения любых предвари-
тельных действий, которые должны произойти перед тем, как допустить
пользователя к работе с формой. Метод AddItem поля со списком вызы-
вается три раза для описания данных из раскрывающегося списка «Вид
схемы». Свойство Text для текстовых полей устанавливает начальное,
пустое значение.
      Private Sub UserForm_Activate()
Me.CboRazd.Clear
Me.CboRazd.AddItem "Схема структурная", 0