OpenOffice.info

Hallo,

ich möchte gerne meine Videoproduktion ein bisschen verbessern.
Alle Videos sollen aufgelistet sein. Wenn ich jetzt in Spalte A (Titel)
einen Text reinschreibe. Dann möchte ich über einen Klick (geht das auch ohne Makro?)
diesen Text kopieren und in einem bestimmten Ordner eine odt-Datei ...

Bei
Do Until oSubForm.afterLast()
kommt eine Fehlermeldung:
Unzulässiger Wert oder Datentyp

Kann mir das jemand erklären?

Sub SendMailSerie
Dim oDoc, oForm as Object
Dim betr, sMail_Adr, sMail_Anr as String
oDoc = thisComponent
oForm = oDoc.drawpage.forms.getbyindex(0)
oSubForm = oForm ...

Jetzt funktioniert es.

Sub SendMail
Dim oDoc, oForm as Object
Dim betr, sMail_Adr, sMail_Anr, hfea as String
oDoc = thisComponent
oForm = oDoc.drawpage.forms.getbyindex(0)
oSubForm = oForm.getByName("F_Kontakte").getByName("Kontakte")
sMail_Adr = oSubForm.getByName("txtEmail").Text
sMail ...

Hier nochmal etwas anders ausprobiert.

Sub SendMail
Dim oDoc, oForm as Object
Dim betr, sMail_Adr, sMail_Anr, hfea as String
oDoc = thisComponent
oForm = oDoc.drawpage.forms.getbyindex(0)
oSubForm = oForm.getByName("F_Kontakte").getByName("Kontakte")
sMail_Adr = oSubForm.getByName("txtEmail ...

Hallo ich habe folgenden Code:

Sub SendMail
Dim oDoc, oForm as Object
Dim betr, sMail_Adr, sMail_Anr as String
oDoc = thisComponent
oForm = oDoc.drawpage.forms.getbyindex(0)
oSubForm = oForm.getByName("F_Kontakte").getByName("Kontakte")
sMail_Adr = oSubForm.getByName("txtEmail").Text
sMail ...