ВУЗ:
Составители:
Рубрика:
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
Страницы
- « первая
- ‹ предыдущая
- …
- 72
- 73
- 74
- 75
- 76
- …
- следующая ›
- последняя »
