lotus-notes - Lotusscript から Word の ActiveX コントロールに書き込むにはどうすればよいですか?

Question

Word 文書をテンプレートとして使用して、Notes データを入力したいと考えています。5 つの ActiveX テキスト ボックスで作成された Word ファイルがあります。Lotusscript を使用してこれらのテキスト ボックスにアクセスする方法の例はありますか

MJ

Answer 1

これを見つけるのは簡単ではありませんでしたが、ここにあります。

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)