Apache OpenOffice Community Forum

Posted: **Tue Jan 23, 2024 3:39 pm**

Hi,

I'm trying to merge some cells in a table in Writer programmatically. My current code (all variables are declared):

Code: Select all

	Set cell= anchor.Cell
	Set tbl= anchor.textTable
	col = Asc(Left$(cell.CellName,1)) - Asc("A")
	row = CInt(Mid$(cell.CellName, 2)) - 1
	rf1= Chr$(Asc("A")+ col) & (row+1) & ":" & Chr$(Asc("A")+ tbl.getColumns().getCount()-1) & (row+1)
	Set cr2= tbl.getCellRangeByName(rf1)
	Call cr2.merge(True)

The anchor is obtained from a bookmark inside the table, and I want to merge cells starting from the anchored cell to the right end of the table. The code executes up to the last line, and then I get the error message: "Instance member MERGE does not exist".

How can I merge some cells in code?

TIA

Posted: **Tue Jan 23, 2024 6:15 pm**

There is a sketch here of how to merge cells in a writer table.

Posted: **Tue Jan 23, 2024 6:19 pm**

Record a macro

Code: Select all




sub mergecells
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:MergeCells", "", 0, Array())

Then use

Code: Select all

thiscomponent.currentcontroller.select cr2
mergecells

Posted: **Tue Jan 23, 2024 6:24 pm**

Adapting your code to FJCC's better solution

Code: Select all


with thiscomponent.currentcontroller
.select cr2
.selection.mergerange
end with

Posted: **Tue Jan 23, 2024 9:10 pm**

Thanks all! It works with mergerange.

Apache OpenOffice Community Forum

[Solved] Writer: merge cells in a table using Basic

[Solved] Writer: merge cells in a table using Basic

Re: Writer: merge cells in a table using Basic

Re: Writer: merge cells in a table using Basic

Re: Writer: merge cells in a table using Basic

Re: Writer: merge cells in a table using Basic