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
Juni 2018
M D M D F S S
« Apr    
 123
45678910
11121314151617
18192021222324
252627282930  
Archive
Click to view/hide
Letzte Beiträge
Click to view/hide