OpenOffice.info

Hallo an ALLE,

habe durch AUSPROBIEREN meine ersten Schritte verwirklichen können.

Vielen Dank an ALLE,

heinzst

Hallo Winfried,

zunächst vielen Dank für deine Hilfe.

Ich habe wie beschrieben alles zum Bearbeiten freigegeben.
Nun komme ich aber immer noch nicht zu dem Formular "Träger" im Makro.

Was ich möchte ist folgendes:

Zunächst möchte ich sagen: Ich habe keine Ahnung von Basic und Programme erstellen.

Ich möchte ganz einfach das Formular "Träger" neu erstellen mit anderen Farben und Feldern
und das Makro sonst belassen - auch die Feldnamen. Für den Anfang würde mir eine Änderung
der Farben auch helfen.

Wenn das geht schreibe mir bitte wie.

Vielen Dank nochmals und viele Grüße,

heinzst

Willkommen im Forum.

[quote="heinzst"]Ich kann aber nicht das Formular aufrufen. (Makro im ueberweisungstraeger.ott)[/quote]
F5 - Navigator aufrufen, Rechtsklick auf [color=#008000]Bereich1>Bearbeiten...>Schreibschutz>Geschützt[/color] Haken entfernen
So ähnlich lässt sich auch der Schutz der Rahmen ausschalten...

Hilft Dir das?



Hinweis: habe dasvon Dir zitierte Makro mal in CODE-tags gesetzt... damit kann man Code einfacher kopieren und bei längeren Zeilen auch komplett lesen.

REM  *****  BASIC  *****

Sub Main
oDoc = thisComponent
oDrawPage = oDoc.getDrawPage()
oForms = oDrawPage.getForms()
oForm = oForms.getByName("Träger")
oForm.getByName("EmpfBel").label = oForm.getbyName("Empf").text
oForm.getByName("KontoEmpfBel").label = oForm.getbyName("KontoEmpf").text
oForm.getByName("BLZEmpfBel").label = oForm.getbyName("BLZEmpf").text
oForm.getByName("InstitutEmpfBel").label = oForm.getbyName("InstitutEmpf").text
oForm.getByName("BetragBel").value = oForm.getbyName("Betrag").value
oForm.getByName("ReferenzBel").label = oForm.getbyName("Referenz").text & " " & oForm.getbyName("Referenz2").text
oForm.getByName("KontoinhBel").label = oForm.getbyName("Kontoinh").text
oForm.getByName("KontoKontoinhBel").label = oForm.getbyName("KontoKontoinh").text
oForm.getByName("DatumBel").date = oForm.getbyName("Datum").date
End Sub

Sub Loeschen
oDoc = thisComponent
oDrawPage = oDoc.getDrawPage()
oForms = oDrawPage.getForms()
oForm = oForms.GetByName("Träger")
oform.reset()
main
End Sub

Hallo an Alle,

ich möchte in einem fertigen Makro das Formular ändern.
Ich kann aber nicht das Formular aufrufen. (Makro im ueberweisungstraeger.ott)
Nachfolgend das Makro des von der DVD gezogene File ueberweisungstraeger.ott als Beispiel.
======================================================================================
[code]REM ***** BASIC *****

Sub Main
oDoc = thisComponent
oDrawPage = oDoc.getDrawPage()
oForms = oDrawPage.getForms()
oForm = oForms.getByName("Träger")
oForm.getByName("EmpfBel").label = oForm.getbyName("Empf").text
oForm.getByName("KontoEmpfBel").label = oForm.getbyName("KontoEmpf").text
oForm.getByName("BLZEmpfBel").label = oForm.getbyName("BLZEmpf").text
oForm.getByName("InstitutEmpfBel").label = oForm.getbyName("InstitutEmpf").text
oForm.getByName("BetragBel").value = oForm.getbyName("Betrag").value
oForm.getByName("ReferenzBel").label = oForm.getbyName("Referenz").text & " " & oForm.getbyName("Referenz2").text
oForm.getByName("KontoinhBel").label = oForm.getbyName("Kontoinh").text
oForm.getByName("KontoKontoinhBel").label = oForm.getbyName("KontoKontoinh").text
oForm.getByName("DatumBel").date = oForm.getbyName("Datum").date
End Sub

Sub Loeschen
oDoc = thisComponent
oDrawPage = oDoc.getDrawPage()
oForms = oDrawPage.getForms()
oForm = oForms.GetByName("Träger")
oform.reset()
main
End Sub[/code]
====================================================================================
Meine Frage nun:

Wie kann ich das im Makro aufgeführte Formular [color=#FF0000]"Träger"[/color] öffnen und bearbeiten???

Vielen Dank für jede Hilfe,

heinzst