4つのテキストボックスにある文字をBASICでつなぎたいのです。
4つのテキストボックスにある文字をBASICでつなぎたいのです。
そして別のテキストボックスに表示したいです。
ふたつ悩んでます。
下記のコードを修正したいです。
===
質問①
下に記載したコードの左側に "@" をつけてます。
このひとつめの "@" のところで止まってしまいます。
BASIC ランタイムエラー.
'1'
Type: com.sun.star.container.NoSuchElementException
Message:
と表示されます。
===
質問②
CANCATの使用法と記述がわかりません。
ふたつめの "@" の場所に記載した内容で良いのでしょうか?
上記①の所で止まってしまうので、検証できてません。
あてずっぽうで書いたので、まるで自信がないです。
===
質問③
ほかに間違ってる所があれば教えてください。
===
Sub ConcatAABBCCDD()
Dim oForm As Object
Dim oField1 As Object
Dim oField2 As Object
Dim oField3 As Object
Dim oField4 As Object
Dim oField5 As Object
Dim document As Object
Dim dispatcher As Object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:RecSave", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:RecRefresh", "", 0, Array())
oForm = ThisComponent.Drawpage.Forms.getByName("ABCDフォーム")
Doc = ThisComponent
DocCtl = Doc.getCurrentController()
oField1 = oForm.getByName("AA")
oField2 = oForm.getByName("BB")
@ oField3 = oForm.getByName("CC")
oField4 = oForm.getByName("DD")
oField5 = oForm.getByName("EE")
@ AABBCCDD= concat(oField1.Text, oField2.Text, oField1.Text, oField4.Text)
CtlView = DocCtl.GetControl(oPutField)
CtlView.Text = AABBCCDD
oField5.commit()
dispatcher.executeDispatch(document, ".uno:RecSave", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:RecRefresh", "", 0, Array())
End Sub
よろしくおねがいします。