Seite 1 von 1

Textfelder "NoSuchElementException" [gelöst]

Verfasst: So 3. Jun 2012, 14:28
von 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

Re: Textfelder

Verfasst: So 3. Jun 2012, 16:17
von 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

Re: Textfelder "NoSuchElementException"

Verfasst: So 3. Jun 2012, 17:35
von 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

Re: Textfelder "NoSuchElementException"

Verfasst: So 3. Jun 2012, 18:46
von 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

Re: Textfelder "NoSuchElementException"

Verfasst: So 3. Jun 2012, 19:04
von Strunz
RobertG hat geschrieben: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

Re: Textfelder "NoSuchElementException"

Verfasst: So 3. Jun 2012, 20:08
von 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

Re: Textfelder "NoSuchElementException"

Verfasst: So 3. Jun 2012, 20:19
von Strunz
Hallo Karo,

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

Mfg
Strunz