uno, python scripting, macro management window & user experience

Laurent Godard lgodard.libre at
Thu Oct 25 07:10:11 PDT 2012

Hi Marc

>    Range(Foo).select
>    If ActiveCell.MergeCells Then
>    MergedInfo = ActiveCell.MergeArea
>    MergedValue = MergedInfo(1, 1)
>    End If

for Libreoffice basic
assuming a calc sheet, with some content in A1 and B1

Sub Main

	doc = thisComponent ' the current document
	curSheet = doc.CurrentController.activeSheet
	cellRange = curSheet.getCellRangeByName("A1:B1")

	if cellRange.isMerged then
		cellContent = cellrange.dataArray
	anArray = cellContent(0)
	print join(anArray, " ---- ")
End Sub

did you have a look there

i assumle you already identified this ressource (IDL reference)



More information about the LibreOffice mailing list