uno, python scripting, macro management window & user experience

Laurent Godard lgodard.libre at laposte.net
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")
	
	cellRange.merge(true)

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

did you have a look there

http://wiki.openoffice.org/wiki/Documentation/BASIC_Guide
http://wiki.openoffice.org/wiki/Documentation/DevGuide/OpenOffice.org_Developers_Guide

i assumle you already identified this ressource (IDL reference)
http://api.libreoffice.org/docs/common/ref/com/sun/star/module-ix.html

HTH

laurent


More information about the LibreOffice mailing list