Eine Zeile tiefer in Openoffice TextTable per Makro

Filed in Allgemein, Openoffice

Openoffice per Basic zu erweitern ist leider ganz schön anstrengend, hier ein schneller Entwurf um eine Zeile tiefer zu gehen, ist keine tiefere Zeile da, wird eine angehängt. Funktioniert also wie ein Tab in der letzten Tabellenzelle.

Sub ZeileRunter
Rem viewcursor in table, max columns=26 wg cellname
ViewCursor = thisComponent.getCurrentController().getViewCursor()
Tabelle = ViewCursor.TextTable
Zeilenzahl = Tabelle.getRows().getCount()
Zelle = ViewCursor.Cell
If Zeilenzahl = CInt(Right(Zelle.Cellname, Len(Zelle.Cellname) -1)) Then
Tabelle.getRows().insertByIndex(Zeilenzahl,1)
End if
ViewCursor.goDown(1,False)
End Sub

Oenology Post Formats
Click to view/hide
Posts Calendar
Click to view/hide
August 2019
M D M D F S S
« Apr    
 1234
567891011
12131415161718
19202122232425
262728293031  
Archive
Click to view/hide
Letzte Beiträge
Click to view/hide