Здравствуйте, Аноним, Вы писали:

А>Ах, да:
А>Пример РЕАЛЬНЫЙ! (т.е. копируем код в файл и запускаем)
А>Контролы есть только ИХ НЕ ВИДНО ((
А>Как же эту форму с контролами увидеть???

А>(Список всех Свойств и Методов FM20.DLL — http://arial.net.ru/user/96489246964/FM20.htm )
А>Использовать другую библиотеку (самодельную — видал такие) не хочу, т.к. условие — "Только стандартные библиотеки, имеющиеся в ЛЮБОЙ версии Windows"

Вот ...

Dim objWord
Set objWord = WScript.CreateObject("Word.Application")

objWord.ShowVisualBasicEditor = True

Dim objVBE
Set objVBE = objWord.VBE

Dim objVBComp
Set objVBComp = objVBE.ActiveVBProject.VBComponents.Add(vbext_ct_MSForm)

Set objForm = objVBComp.Designer

With objForm
.Caption = "MyForm"
End With

Set objLabel = objForm.Add ("Forms.Label.1", "MyLabel", True)
With objLabel
.Caption = "Label"
.Top = 10
.Left = 10
.Width = 200
.Height = 20
.Enabled = True
End With

Set objTextBox = objForm.Add ("Forms.TextBox.1", "MyTextBox", True)
With objTextBox
.Text = "TextBox"
.Top = 40
.Left = 10
.Width = 200
.Height = 20
.Enabled = True
End With

Set objComboBox = objForm.Add ("Forms.ComboBox.1", "MyComboBox", True)
With objComboBox
.Text = "ComboBox"
.Top = 70
.Left = 10
.Width = 200
.Height = 20
.Enabled = True
End With

'For Each objCnt In objForm.Controls
' MsgBox objCnt.Name
'Next

objWord.ShowVisualBasicEditor = False
objVBE.CommandBars("Run").Controls("Run Sub/UserForm").Execute

Set objForm = Nothing
Set objLabel = Nothing
Set objTextBox = Nothing
Set objComboBox = Nothing
WScript.Quit