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
Mfg
Strunz