OpenOffice.info

Gast hat geschrieben:Hallo,

ich sitze auch ein wenig zu mit leeren Zeilen in DDE-verknüpften Tabellen in einem Libre Office Writer-Dokument.

Das zitierte Makro tut bei mir nix. Weder mit einfachen Writer-Tabellen noch mit den DDE-Tabellen.

Hat der Haken in dem Zeilenhöhen-Dialog "Dynamisch Anpassen" was damit zu tun?

In den leeren DDE-Zeilen liegt ne Formel liegt die aber in diesem Fall nur ein "" ausgibt.

Kann mir jemand weiterhelfen?

Karolus hat geschrieben:

Code: Alles auswählen

Sub leere_zeile_minimieren
with thiscomponent.gettexttables.getbyindex(0)'1.Tabelle mit Index 0
for i = 0 to .getrows().getcount -1
	if .getcellbyposition(0,i).string = "" then
		.getrows.getbyindex(i).IsAutoHeight = false
		.getrows.getbyindex(i).height = 10 'hier geht auch Höhe 0
	else
		.getrows.getbyindex(i).IsAutoHeight = true
	end if
next
end with
end sub

Sub leere_zeile_enfernen
with thiscomponent.gettexttables.getbyindex(0)'1.Tabelle mit Index 0
do 
	if .getcellbyposition(0,i).string = "" then
		.getrows.removebyindex(i,1)
	else 
		i = i +1
	end if
loop while i < .getrows.getcount
end with

End Sub

eddi-z hat geschrieben:Habs anderweitig hinbekommen.