Форма в Ворде

[Ципихович Эндрю]

1
плохо путать людей, быть под разными именами, но дело Ваше
2
что это такое
"9. Файл примера прилагаю.
Список.dot 31.5 Кб, файл не был скачан.
You don't have the permssions to download the attachments of this post."
Где он?
3
что-то тяжеловато для осязания, просто скажите
"в Ворде 2003 г. вкладка формы, там есть
тестовое поле
флажок
поле со списком
Так вот можно там сделать так чтобы было что-то пусть самое простое но созданное мною?"
Да или нет

[Пименов Александр]

Да можно создавать, только все равно придется писать коды на те или иные события......

[Пименов Александр]

Чтобы скачать файл, надо войти на форум

[Ципихович Эндрю]

вот это разговор, потихонечку, чтобы не спугнуть добычу пишем например склеенные между собой Комбобокс и Кнопку, с чего начинать?

[Ципихович Эндрю]

>Чтобы скачать файл, надо войти на форум
ага, так и есть не заметил, вошёл, качнул, не то...

[Пименов Александр]

Ну, если будет шаблон, на основе которого будут создаваться документы, то создаем новый шаблон или просто новый документ, затем создаем в документе Комбобокс и Кнопку. Выделив элемент щелкаем правой клавишей и в контекстном меню выбираем Свойства. В появившемся окне Properties находим поле Name и присваиваем каждому элементу оригинальное имя. Это первое.

[Ципихович Эндрю]

тактика меняется, ведь в формах нет кнопки, тогда значит в ЮзерФорм, можно?
пробую на свой страх, а что выдумывать, имею
ComboBox1 и CommandButton1
Так? что далее?

[Пименов Александр]

Вот образец файла .doc c Комбобоксом cmbСписок1, и двумя кнопками cmdДобавить и cmdУдалить, в свойстве Caption(Надпись) соответственно Добавить к списку и Удалить из списка. Чтобы отрыть свойства элементов в документе нужно в 2003 нажать Сервис-->Макросы-->Режим конструктора. Для элементов на UserForm свойства элементов теже самые.

[Ципихович Эндрю]

только одно но... они должны быть склеены между собой, может и бред, но тем не менее

[Пименов Александр]

Не спеши, всему свое время.
Далее, чтобы наш список запоминал значения в модуле ThisDocument нашего документа объявим переменную varСписок1 как объект Variable и создадим процедуру открытия документа:

Public varСписок1 As Variable
Public lstСписок1 As Variant ' Массив элементов Списка1
Public booVarb As Boolean ' Переменная для определения объекта Variable с именем varСписок1

Private Sub Document_Open()
Dim varb As Variable ' Переменная Variable для цикла
    booVarb = False
    ThisDocument.cmbСписок1.Clear ' Очищаем список cmbСписок1
    For Each varb In ThisDocument.Variables ' Перебираем всю коллекцию Variables
        If varb.Name = "varСписок1" Then ' Если имя varb = varСписок1 то
            Select Case varb.Value ' Проверяем значение переменной varb
                Case "(none)" ' Если значение переменной varb = "(none)" т.е. список пуст
                    With ThisDocument
                        .cmdУдалить.Enabled = False ' Блокируем кнопку Удалить из списка т.к. удалять нечего
                        Set .varСписок1 = varb ' Создаем переменную varСписок1
                        .cmbСписок1.Text = "(none)" ' Текст элемента cmbСписок1.Text = "(none)"
                        .cmdДобавить.Enabled = True ' Кнопка Добавить к списку активна
                    End With
                Case Else ' Если значение varb.Value не равно "(none)"
                    With ThisDocument
                        .cmdУдалить.Enabled = True ' Кнопка Удалить из списка активна
                        Set .varСписок1 = varb ' Создаем переменную varСписок1
                        .lstСписок1 = Split(varb, ";") ' Создаем массив элементов Списка1 с разделителем ";"
                        .cmbСписок1.List = .lstСписок1 ' Заполняем .cmbСписок1
                        .cmbСписок1.ListIndex = 0 ' Текст элемента cmbСписок1.Text = первоу элементу списка
                        .cmdДобавить.Enabled = True ' Кнопка Добавить к списку активна
                    End With
            End Select
               booVarb = True ' Отмечаем что переменная varСписок1 найдена
               Exit Sub ' Завершаем процедуру
        Else
            booVarb = False ' Отмечаем что переменная varСписок1 не найдена
        End If
    Next varb
            If booVarb = False Then ' Если переменная varСписок1 не найдена то
                Set varСписок1 = ThisDocument.Variables.Add("varСписок1", "(none)") ' Создаем новую переменную varСписок1
                With ThisDocument
                            .cmdУдалить.Enabled = False ' Блокируем кнопку Удалить из списка т.к. удалять нечего
                            .cmbСписок1.Text = "(none)" ' Текст элемента cmbСписок1.Text = "(none)"
                            .cmdДобавить.Enabled = True ' Кнопка Добавить к списку активна
                End With
            End If
End Sub

Далее создадим процедуры нажатия на кнопки cmdДобавить_Click() и
cmdУдалить_Click()