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
Oktober 2018
M D M D F S S
« Apr    
1234567
891011121314
15161718192021
22232425262728
293031  
Archive
Click to view/hide
Letzte Beiträge
Click to view/hide