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 2018
M D M D F S S
« Apr    
 12345
6789101112
13141516171819
20212223242526
2728293031  
Archive
Click to view/hide
Letzte Beiträge
Click to view/hide