Seite 1 von 1
Abfrage einer leeren Objektvariablen
Verfasst: So, 25.09.2016 14:18
von marcel_at_work
Seid gegrüßt,
ich habe eine Tabelle in einem Writer-Dokument, in der mittels Button, unter der aktuellen Cursorposition (Zelladresse) eine neue Zeile eingefügt werden kann. Diese frage ich momentan mit
Code: Alles auswählen
myViewCursorCellName = myDoc.getCurrentController().ViewCursor.Cell.CellName
ab. Dies läuft soweit auch super, nur bekomme ich auf diese Art die Meldung "Objektvariable nicht belegt", wenn sich der Cursor außerhalb der Tabelle befindet, da im Textdokument die Eigenschaft "Cell" ja nicht vorhanden ist.
Welche Möglichkeit gibt es denn, mit einer leeren Objektvariablen zu arbeiten?
Viele Grüße,
Marcel
Re: Abfrage einer leeren Objektvariablen
Verfasst: So, 25.09.2016 14:32
von F3K Total
Moin,
so etwa?
Code: Alles auswählen
Sub Main
myViewCursor = ThisComponent.CurrentController.ViewCursor
if ISEMPTY(myViewCursor.Cell) then
msgbox "Der Cursor befindet sich nicht in einer Zelle"
else
sCellname = myViewCursor.Cell.CellName
msgbox sCellname
endif
End Sub
Gruß R
Re: Abfrage einer leeren Objektvariablen
Verfasst: So, 25.09.2016 15:37
von marcel_at_work
Du bist ein Schatz, Danke.
Re: Abfrage einer leeren Objektvariablen
Verfasst: So, 25.09.2016 18:06
von Toxitom
Kleiner Zusatzhinweis:
Der Code funktioniert zu 90% - bei etwa 10% de Anwendungsfälle gibt es keinen Viewcursor und der Code läuft in einen Fehler.
Um das abzufangen würde ich unbedingt einen Fehlersprung mit einbauen....
Code: Alles auswählen
Sub Main
on error goto ende:
myViewCursor = ThisComponent.CurrentController.ViewCursor
on error goto 0 'Errorhandler zurücksetzen
if ISEMPTY(myViewCursor.Cell) then
msgbox "Der Cursor befindet sich nicht in einer Zelle"
else
sCellname = myViewCursor.Cell.CellName
msgbox sCellname
endif
exit sub
ende:
msgbox "Kein Cursor vorhanden...."
End Sub
Zum Testen: Beispielsweise die Druckvorschau einstellen - da gibt es keinen Cursor....
VG Tom
Re: Abfrage einer leeren Objektvariablen
Verfasst: Mi, 28.09.2016 22:22
von marcel_at_work
Danke!