Как написать элемент управления ActiveX в Word из Lotusscript?

Это было нелегко выяснить, но вот оно.

Sub Click(Source As Button)

Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument

'get Current NotesDoc
Set uidoc = workspace.CurrentDocument
Set doc =uidoc.Document

'get WordDocument
Dim wApp As Variant 
Dim worddoc As Variant
Dim oTB As Variant
Set wApp=CreateObject("Word.Application")
wApp.Visible= True
Set worddoc= wApp.Documents.Add()
wApp.Visible = True
Call worddoc.InlineShapes.AddOLEControl ("Forms.TextBox.1")

'if you don't have the name off the TextBox1 let the system show you this with
'Msgbox ActiveDocument.InlineShapes(1).OLEFormat.Object.Name ,0, "title"

worddoc.TextBox1.Value ="Hello" 'or doc.field1(0)

End Sub

Отличие от вашего примера в том, что я создаю worddoc и текстовое поле. В вашем случае вы должны сначала получить файл

Set wApps = CreateObject("word.application")
set worddoc = wApps.Documents.Open "C:\path-to-file\file.doc"

А затем установите все значения текстовых полей

worddoc.TextBox1.Value ="Hello" 'or doc.field1(0)
worddoc.TextBox2.Value ="Hello" 'or doc.field1(0)
worddoc.TextBox3.Value ="Hello" 'or doc.field1(0)