안녕하세요. 저는 텍스트 필드에 텍스트를 추가하고 다음과 같이 텍스트 필드에 일부 텍스트를 입력하기 위한 LO 기본 매크로를 만들려고 합니다.
If l>2 Then
'not first time, insert file after Doc5
oText = Doc4.getText()
oText2 = oText
oText.insertString( oText.End, oText2, False ) 'THIS IS NOT WORKING
oText.insertObject( oText.End, oText2, False ) 'THIS IS NOT WORKING
Else
Doc5 = StarDesktop.loadComponentFromURL(file1, "_hidden", 0, Dummy) 'open copied file
Doc4 = Doc5
End If
oForm = Doc5.Drawpage.Forms.getByName("Form") 'Get Form'
oField = oForm.getByName("Textfield 1") 'Get access to field'
oField.Text = "some text..."
'Change name to text field, there is no need to use it any more, and new page in next round will have the textfield 1 -name
oField.Name = "Textfield" & Cstr(l)
l=l+1
도움이 되었나요? 유하를 팔로우하세요