Форма в Ворде

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

Вот файл вложения

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

честно сказать не понял к чему клонится как это может в дальнейшем повлиять на склеивание их между собой может неудачно но добавил процедуры
*******************
не видел ответа от Вас
смотрю Ваше вложение

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

ну и какие перспективы склеивания?

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

Вот коды для кнопок

Private Sub cmdДобавить_Click()
    inp = InputBox("Введите элемент списка:", "Ввод элемента списка")
    Set varСписок1 = ThisDocument.Variables("varСписок1")
    If varСписок1.Value = "(none)" Then ' Если нет списка то
        ThisDocument.cmbСписок1.AddItem inp ' Добавляем элемент в cmbСписок1
        ThisDocument.cmbСписок1.Text = inp ' Выводим значение в cmbСписок1
        varСписок1.Value = inp ' Присваиваем значение varСписок1
        ThisDocument.cmdУдалить.Enabled = True ' Кнопка Удалить из списка активна
        ThisDocument.Save
    Else
        ThisDocument.cmbСписок1.Text = inp
            If ThisDocument.cmbСписок1.ListIndex < 0 And ThisDocument.cmbСписок1.Text <> "" Then
                ThisDocument.cmbСписок1.AddItem inp ' Добавляем элемент в cmbСписок1
                ThisDocument.cmbСписок1.Text = inp ' Выводим значение в cmbСписок1
                varСписок1.Value = varСписок1.Value & ";" & inp ' Присваиваем значение varСписок1
                ThisDocument.cmdУдалить.Enabled = True ' Кнопка Удалить из списка активна
                ThisDocument.Save
            Else
                MsgBox "Элемент " & inp & " уже существует!", vbInformation
            End If
    End If
End Sub

Private Sub cmdУдалить_Click()
    If ThisDocument.cmbСписок1.ListIndex >= 0 Then
        Set varСписок1 = ThisDocument.Variables("varСписок1")
        msg = MsgBox("Удалить элемент " & ThisDocument.cmbСписок1.Text & "?", vbQuestion + vbYesNo)
            If msg = 6 Then
                ThisDocument.cmbСписок1.RemoveItem (ThisDocument.cmbСписок1.ListIndex)
                    If ThisDocument.cmbСписок1.ListCount = 0 Then
                        ThisDocument.cmdУдалить.Enabled = False ' Блокируем кнопку Удалить из списка т.к. удалять нечего
                        ThisDocument.cmbСписок1.Text = "(none)"
                        varСписок1.Value = "(none)"
                        ThisDocument.Save
                    Else
                        ThisDocument.cmdУдалить.Enabled = True
                        lstСписок1 = Split(varСписок1.Value, ";")
                        s = ""
                            For i = 0 To UBound(lstСписок1)
                                If lstСписок1(i) <> ThisDocument.cmbСписок1.Text Then
                                    s = s & lstСписок1(i) & ";"
                                End If
                            Next i
                            s = Mid(s, 1, Len(s) - 1)
                            varСписок1.Value = s
                            ThisDocument.cmbСписок1.ListIndex = 0
                            ThisDocument.Save
                    End If
            Else
                Exit Sub
            End If
    End If
End Sub

Действия кнопок привязаны к комбобоксу
Файл прилагаю

[alex77755]

Поместил файл PU.ocx в C:\WINDOWS\system32

Это не форма, а элемент управления
Я делал просто:
Запустил ворд. Сделал видимой панель "Элементы управления"
Нажал на кнопочку с молотком и ключём.
Открылся список. Там их у меня 389.
А в самом низу кнопка "Зарегистрировать".
Зарегистрировал. Потом перетащил на лист.

[alex77755]

А что получается если просто открываешь документ с контролом PU?
Я не знаю как оно связано, но для проверки своих программ я использую виртуальную машину без VB. поэтому видно когда программа может просто работать в Хрюше, а когда необходим инстолятор.
Решил проверить и этот документ с контролом - открылся без проблем и без регистрации. Функционал сохранён?

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

Пименов Александр, я Вам говорю, где намёк, что это одно целое, склеянное, тандем, 1 контрол???

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

Алекс77755, бегло перед работой пытался зарегистрировать,получил отлуп:
Can't exit design mode because Control 'ПУ11' can not be created
????

[alex77755]

Это исходники набросков.
попробуй с ними

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

Алекс77755 в принципе знания не помешают, всё же у Вас склеяно между собой, и как Вы добились этого и как мне добится чтобы в файле Ворда когда я открываю этот контрол не выделяло как рисунок?? - такая обводка с кругляшками по углам