GELÖST: Formular Textfeld - Ausgabe an anderer Stelle

[magic-andy]

Hallo,

versuche ein Formular in Writer zu erstellen.
Habe zwei Textfelder im Formular mit Vorname und Nachname
Nun möchte ich den Vornamen bei Änderung an einen anderen Stelle dann automatisch einfügen.
Ich habe an dieser Stelle nun ein Leerzeichen mit Textmarke versehen und möchte das nun bei Änderung des Formularfeldes automatisch mit dem Inhalt des Formularfeldes ersetzen.

Leider klappt das nicht ganz so, wie gewünscht

Mein VB-Script:

Code: Alles auswählen

Sub Main
dim objectForm As Object, VN As Object
objectForm = ThisComponent.DrawPage.Forms.GetByname("Formular")
VN = objectForm.getByName("Vorname")
thisComponent.getBookmarks().getByName("VN").getAnchor.setString("VN") 
End Sub

Mir wird zwar nun der Text VN bei Änderung an der Stelle ausgegeben, jedoch möchte ich ja den Inhalt der Variable VN und nicht nur VN dort stehen haben

Gruß Andreas

[gogo]

ohne dass ich 's getestet habe sollte das funktionieren:

Code: Alles auswählen

thisComponent.getBookmarks().getByName("VN").getAnchor.setString(VN.currentvalue) 

evtl auch VN.text oder VN.string oder ...

[karolus]

Vmtl.

Code: Alles auswählen

Sub Main
    doc = ThisComponent
    Form = doc.DrawPage.Forms.getByName( "Formular" )
    VN = Form.getByName( "Vorname" ).getText().getString()
    doc.getBookmarks().getByName( "VN" ).getAnchor.setString( VN )
End Sub

Karolus

[magic-andy]

Danke gogo . Mit VN.currentValue hat es geklappt

Danke karolus. Deine Lösung funktioniert auch