OpenOffice.info

Entschuldige - viel zu tun - das ich erst jetzt dazu komme mir die Datei anzuschauen.
Du hast mir damit sehr geholfen - vielen Dank!
Jetzt komme ich endlich mit einer ganzen Reihe von Projekten ein gutes Stück weiter.
Die "kleine" (das meiste befindet sich ja im Hintergrund versteckt) Datei ist eine Empfehlung wert,
genau so etwas habe ich lange im Web gesucht - und nicht gefunden (naja vielleicht hab' ich ja
auch nicht die richtigen Suchbegriffe gehabt)

Vielen Dank nochmal!

Lutz

PS.: Sollte ich noch die eine oder andere kleine Frage haben, hoffe ich noch mal auf Deine Hilfe.

Hi,

schau Dir mal dieses Beispiel an:[attachment=0]Feldbefehl_lesen_schreiben.odt[/attachment]
Hilft das weiter?

Jürgen

Sub Dlg_Start
  DialogLibraries.LoadLibrary("Prgrm")
  Dlg = CreateUnoDialog(DialogLibraries.Prgrm.Dlg_Basisvorgaben)
  Dlg.Execute
End Sub

Sub cmd_OK
  ' Benutzerfeld beschreiben
  TextFieldEnum = ThisComponent.getTextFields.createEnumeration
  TextField = TextFieldEnum.nextElement()

  Benutzerfeld = "com.sun.star.text.FieldMaster.User.Ort"
  Textfelder.getByName(Benutzerfeld).content = Dlg.getControl("E_Ort").getText()
End Sub

Hallo, meine Frage ist sicher zu einfach für viele, aber ich fang erst an zu programmieren:
Ich habe einen Dialog mit Textfeldern und mithilfe von Feldbefehl-Variablen im Dokument erstellt.
Der Dialog heißt Dlg_Basisvorgaben, darin gibt es u.a. z.B. ein Textfeld E_Ort
Im Dokument gibt es u.a. eine Feldbefehl-Variable Ort (Typ: Text).
Wird der Dialog mit wird mit einer OK-Taste geschlossen und ruft das Makro cmd_OK auf.
Ich möchte nun, dass beim Start des Dialogs die Werte der Variablen in die Textfelder
übernommen werden und beim Abschluss den Dialogs die Inhalte der Textfelder in die
Feldbefehl-Variablen geschrieben werden und im Dokument erscheinen.
Kann mir jemand helfen oder hat wer einen Tipp, wo ich hinweise zur Lösung
des Problems finde?
[code]
Sub Dlg_Start
DialogLibraries.LoadLibrary("Prgrm")
Dlg = CreateUnoDialog(DialogLibraries.Prgrm.Dlg_Basisvorgaben)
Dlg.Execute
End Sub

Sub cmd_OK
' Benutzerfeld beschreiben
TextFieldEnum = ThisComponent.getTextFields.createEnumeration
TextField = TextFieldEnum.nextElement()

Benutzerfeld = "com.sun.star.text.FieldMaster.User.Ort"
Textfelder.getByName(Benutzerfeld).content = Dlg.getControl("E_Ort").getText()
End Sub
[/code]