Libre Office Writer를 사용하여 텍스트 필드에 텍스트를 추가하는 데 도움이 필요합니다.

Libre Office Writer를 사용하여 텍스트 필드에 텍스트를 추가하는 데 도움이 필요합니다.

안녕하세요. 저는 텍스트 필드에 텍스트를 추가하고 다음과 같이 텍스트 필드에 일부 텍스트를 입력하기 위한 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

도움이 되었나요? 유하를 팔로우하세요

답변1

확인하시기 바랍니다여기확인하다여기그리고여기. 이 링크가 귀하에게 도움이 되기를 바랍니다.

관련 정보