12 lines
384 B
Plaintext
12 lines
384 B
Plaintext
Function _WordLastTableMerge(row1, col1, row2, col2);
|
|
Begin
|
|
table := TOfficeApi().Get('LastTable');
|
|
if ifnil(table) then return false;
|
|
[err1, beg_cell] := CoordinatesToCellName(col1, row1);
|
|
[err2, end_cell] := CoordinatesToCellName(col2, row2);
|
|
if err1 or err2 then return false;
|
|
table.Merge(beg_cell, end_cell, false);
|
|
TOfficeApi().Set('LastTable', table);
|
|
return true;
|
|
End;
|