Приложение

Вот на какие моменты при решении этой задачи следует обратить внимание:

Public Sub AddControls()
	'Эта процедура добавляет командную кнопку и окно редактирования в форму
	With UserForm1
		
		'Добавляем окно редактирования
		Set Mycmd = .Controls.Add("Forms.TextBox.1", "ProgramBox", True)
		Mycmd.Left = .TextBox1.Left
		Mycmd.Top = .TextBox1.Top + 100
		Mycmd.Width = .TextBox1.Width
		Mycmd.Height = .TextBox1.Height
		Mycmd.Text = "New Control - "  Mycmd.Name
		
		'Добавляем командную кнопку
		Set Mycmd = .Controls.Add("Forms.CommandButton.1", "ProgramButton", True)
		Mycmd.Left = .CommandButton1.Left
		Mycmd.Top = .CommandButton1.Top + 100
		Mycmd.Width = .CommandButton1.Width
		Mycmd.Height = .CommandButton1.Height
		Mycmd.Caption = "ProgramButton"
				
	End With
	
End Sub

Public Sub AddDesignControls()
	'Эта процедура добавляет командную кнопку и окно редактирования в форму
	Dim MyForm As UserForm
	'Создаем форму этапа проектирования

	Set MyForm = ActiveDocument.VBProject.VBComponents("UserForm1").Designer
	With MyForm

		'Добавляем окно редактирования
		Set Mycmd = .Controls.Add("Forms.TextBox.1", "ProgramBox", True)
		Mycmd.Left = .TextBox1.Left
		Mycmd.Top = .TextBox1.Top + 100
		Mycmd.Width = .TextBox1.Width
		Mycmd.Height = .TextBox1.Height
		Mycmd.Text = "New Control - "  Mycmd.Name

		'Добавляем командную кнопку
		Set Mycmd = .Controls.Add("Forms.CommandButton.1", "ProgramButton", True)
		Mycmd.Left = .CommandButton1.Left
		Mycmd.Top = .CommandButton1.Top + 100
		Mycmd.Width = .CommandButton1.Width
		Mycmd.Height = .CommandButton1.Height
		Mycmd.Caption = "DesignButton"

	End With
	
	'Удаляем командную кнопку, вызывающую эту процедуру.
	'Эта кнопка может работать лишь раз, по крайней мере,
	'пока в режиме проектирования не будут удалены добавленные элементы.
	'Заметьте, кнопку можно только удалить, но нельзя сделать ее невидимой.
	
	ActiveDocument.InlineShapes(4).Delete
End Sub

Обратите внимание, к нашей форме, рассматриваемой как объект класса VBComponent, мы добираемся через свойство VBProject нашего документа. Имея форму, в последний момент вызываем Designer, который и возвращает форму периода проектирования. Теперь добавление элементов управления будет постоянным. Само добавление делается, как и ранее, никаких изменений в этом процессе здесь нет.

Однако есть некоторые естественные ограничения, на которые следует обратить внимание. Процедура AddDesignControls, добавляющая элементы периода проектирования, должна вызываться при закрытой форме и только один раз. Поэтому в конце этой процедуры добавлен текст, удаляющий из тестового документа командную кнопку (объект класса InlineShape ), обработчик которой вызывал процедуру AddDesignControls.

Вот как выглядит форма, открытая после окончания работы этой процедуры:

Вопрос второй: "Как импортировать VBComponent, если компонент с таким именем уже присутствует в программе (соответственно выдается ошибка при попытке импорта)?"

Ответ, кажется, очевидным - нужно переименовать один из компонентов, поскольку, действительно не могут существовать два компонента с одним именем. Какой же из компонентов переименовывать? Здесь тоже все достаточно ясно, - импортируемый компонент программно в момент его добавления не переименуешь, поскольку он скрыт в файле. Поэтому остается переименовать компонент в самом проекте. Остается понять, какой именно компонент вызвал коллизию и требует переименования. Часто подсказкой может служить имя файла с импортируемым компонентом, поскольку по умолчанию имя файла совпадает с именем компонента. В моем примере я переименовываю все компоненты текущего проекта. Это одно из возможных решений. Главное, демонстрируется возможность переименования компонент.

Но обо всем по порядку. Несколько слов о самом примере. В наш документ, содержащий форму со стандартным именем UserForm1, программно импортируются еще две формы. Обе они были экспортированы из другого документа, сохранены в виде файлов, и поскольку имели стандартные имена, то и файлы (по два файла на форму с уточнениями " frm " и " frx ") получили имена " UserForm1 " и " UserForm2 ". Вот процедура, осуществляющая импорт:

Public Sub ImportForm()
	'Эта процедура импортирует формы, сохраненные в файле
	Documents("Answer1.doc").VBProject.VBComponents.Import 
	("e:\O2000\cd2000\tests\UserForm1.frm")
	Documents("Answer1.doc").VBProject.VBComponents.Import 
	("e:\O2000\cd2000\tests\UserForm2.frm")

End Sub

Очевидно, что при запуске этой процедуры возникнет конфликт имен (два компонента - две формы имеют одно и то же имя " UserForm1 ") и при выполнении первого же оператора возникнет ошибка. Если же предварительно запустить процедуру Rename, переименовывающую объекты класса VBComponent, то импорт пройдет гладко. Разумно, конечно, запускать процедуру Rename в обработчике исключительной ситуации, когда конфликт реально возник. Вот возможный вариант процедуры Rename:

Public Sub Rename()
	Dim Comp As Object
	
	For Each Comp In Documents("Answer1").VBProject.VBComponents
		Debug.Print Comp.Name
		Comp.Name = Comp.Name  "New"
		Debug.Print Comp.Name
	Next Comp
	
End Sub

Вот результаты отладочной печати, показывающей, какие компоненты проекта будут переименованы:

ThisDocument
ThisDocumentNew
Sample
SampleNew
UserForm1
UserForm1New

После переименования импорт происходит без проблем.

На два вопроса Ивана Кряжева ответы даны.

Если Вы хотите задать свои вопросы, напоминаю мой адрес: Vladimir.Billig@tversu.ru