Ввод текста в Word

[Dimasik3313]

При самостоятельном изучении макросов, как то из двух создал один:

Sub m_1()
Dim oDataObject As DataObject
Set oDataObject = New DataObject
x = InputBox("Введите имя")
oDataObject.SetText (x)
oDataObject.PutInClipboard
Selection.Paste
End Sub

НО он проработал только до момента написания макроса "на чистовик". С тех пор не могу найти ему замену или запустить.
Задача: Открыть форму для ввода данных, и впечатать то, что будет введено (текст) на страницу.
Понимаю, что печатать текст в текстовый файл макросом выглядет слегка смешно, но речь идет о впечатывании нескольких полей в файл, который потом обработается другим макросом. Это необходимо для ускорения редактирования исходного файла. Не получается написать только эту часть кода. Помогите пожалуйста
ЗЫ Не выкладываю файл - так как всё остальное работает(тало )
ЗЗЫ Знаю что можно делать через буфер обмена, но там нужно надстройку включать, потом всё это объяснять девченкам... Проще один раз установить макрос.

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

а что не устраивает заполнить табличку, нажать один раз кнопку?