OpenOffice.info

Servus

Ender hat geschrieben:Ich bekomme immer folgende Fehlermeldung :
"Basic-Laufzeitfehler. Es ist eine Exception aufgetreten Type: com.sun.star.container.NoSuchElementException Message: ." in der Zeile "oFeld = oForm.getByName( "name1" )"

Die Fehlermeldung ist ziemlich eindeutig - in Deinem ersten Formular gibt es kein Feld mit dem Namen "name1" - evtl. Vertipper? Groß-/Kleinschreibung beachtet? Ist das Feld überhaupt im ersten Formular?

In diesem Unterforum solltest du eigentlich auf den ersten sticky Post gestoßen sein und darin auf die von Stephan zusammengestellten Informationen zur StarBasic-Programmierung – gewissermaßen eine Pflichtlektüre für StarBasic-Einsteiger.

In diesem Post enthalten ist u.a. ein Link auf Michael Dannenhöfers StarBasic / OpenOffice.org Basic FAQ.

In dieser FAQ nun dürfte für den Augenblick der Abschnitt 8.1.9 Wie kann man auf die Benutzerfelder eines Textes zugreifen? genau das sein, was du zum Auslesen eines Feldes suchst. Ich bin aber sicher, dass du auch darüber hinaus von Michael Dannenhöfers Arbeit profitieren können wirst.

Gruß
lorbass

Guten Tag an alle im Forum !
Ich bin absoluter Anfänger in Makros und versuche nun ein Makro im Writer zu erstellen welchen den Namen aus einem Textfeld (name1) ausliesst und dann aus dem Namen und dem Datum einen Namen für das zu speichernede PDF erstellt.......ich schaff es einfach nicht
Ich bekomme immer folgende Fehlermeldung :
"Basic-Laufzeitfehler. Es ist eine Exception aufgetreten Type: com.sun.star.container.NoSuchElementException Message: ." in der Zeile "oFeld = oForm.getByName( "name1" )"

Ich verwende Openoffice 3.4.0 unter Windows Vista+

Hier mein Makro :

sub save_vertrag
Path = "file:///C:/Users/HP-7184/Desktop/Vertr%C3%A4ge2012/"
dim args(0) as new com.sun.star.beans.PropertyValue
myDoc = thisComponent

oDok = ThisComponent
oForm = oDok.Drawpage.Forms(0)
oFeld = oForm.getByName( "name1" )

date( Date )
args(0).Name="FilterName"
args(0).Value = "writer_pdf_Export"
myDoc.storetoUrl(Path & date & "_" & oFeld.String & ".pdf",args())
oDocument.Print(mPrintopts1())
end sub

Es wäre echt toll wenn Ihr mir nen Tipp geben könntet !

Danke

Ender