Textfelder "NoSuchElementException" [gelöst]

[Strunz]

Hallo liebe Community,

ich habe ein Writer-Dokument mit zwei Textfeldern ("eingabeText" und "ausgabeText") plus einen Button!
Sobald ich im "eingabeText" was eingegeben habe und den Button drücke soll er den Text in das
Textfeld "ausgabeText" übertragen!

ich habe folgenden Colde:

Code: Alles auswählen

REM  *****  BASIC  *****
Option Explicit

' Deklaration der Textdokumentobjekte
Dim oDoc AS Object
Dim oForm As Object
Dim oFeld AS Object

Sub Main

oDoc = thisComponent
If NOT ThisComponent.supportsService("com.sun.star.text.TextDocument") Then
MsgBox "Das aktuelle Dokument ist kein Writer-Textdokument", 48, "Fehler"
End If

oForm = oDoc.Drawpage.Forms(0)
oFeld = oForm.getByName("eingabeText")
MsgBox oFeld.String 

End Sub

Jetzt bringt er eine Fehlermeldung "NoSuchElementException". Was muss ich tun?




Mfg
Strunz

[karolus]

Hallo

Toll, ein Screenshot von 220 KiB !

Die Fehlermeldung besagt doch recht eindeutig das es dieses Objekt so nicht gibt.

Hol dir Mri und arbeite damit.
Falls du dann noch Hilfe benötigst häng einfach dein Dokument mit Makro hier an, dass ist sinnvoller wie ein fetter Screenshot !

Ps. Jedes vernünftige Screenshotprogramm bietet die Möglichkeit der Auswahl eines rechteckigen Bereichs....

Karo

[Strunz]

Hallo Karo,

Entschuldigung für den übigen Screenshot, hab Ihn gleich entfernt
Hier mein Dokument!

Kannst du mir nochmals helfen?
Ich wäre dir sehr verbunden.

Mfg
Strunz

[RobertG]

Da sind zwei Fehler drin.
Wenn ich das Writer-Dokument öffne und mir das Formular ansehe, so heißt das Textfeld "Textfeld 1".
Wenn Du den Wert eines solchen Feldes auslesen willst, dann funktioniert das mit "GetCurrentValue".

Code: Alles auswählen

oFeld = oForm.getByName("Textfeld 1")
MsgBox oFeld.getCurrentValue

Gruß

Robert

[Strunz]

Da sind zwei Fehler drin.
Wenn ich das Writer-Dokument öffne und mir das Formular ansehe, so heißt das Textfeld "Textfeld 1".
Wenn Du den Wert eines solchen Feldes auslesen willst, dann funktioniert das mit "GetCurrentValue".

Code: Alles auswählen

oFeld = oForm.getByName("Textfeld 1")
MsgBox oFeld.getCurrentValue

Gruß

Robert

Danke Robert für deine schnelle Hilfe!
Nur noch eine Frage:
- Wie schreibe ich die Eingabe des "Textfeld1" in das "Textfeld2"?

Mfg
Strunz

[karolus]

Hallo

ich habe ein Writer-Dokument mit zwei Textfeldern ("eingabeText" und "ausgabeText")

Nein, hast du nicht - die Textfelder haben die Namen "Textfeld 1" und "Textfeld 2"

Code: Alles auswählen

Sub Main
  	form = ThisComponent.getDrawPage().getForms().getByName("Formular")
  	inputtext = form.getByName("Textfeld 1").getText().getString()
  	form.getByName("Textfeld 2").getText().setString( inputtext )
End Sub

Karo

[Strunz]

Hallo Karo,

vielen, vielen Dank für deine Hilfe:-)

Mfg
Strunz