13 lines
380 B
Plaintext
13 lines
380 B
Plaintext
Function _WordGetLastTableCellProp(row, col, name, value);
|
|
Begin
|
|
table := TOfficeApi().Get('LastTable');
|
|
if ifnil(table) then return false;
|
|
table_cell := table.Cell(row, col);
|
|
ctr := _wordCompTable();
|
|
name_ := ctr[lowercase(name)];
|
|
if ifnil(name_) then name_ := name;
|
|
str := 'return table_cell.Format.' $ name_ $ '"' $ value $ '"';
|
|
value := eval(&str);
|
|
return true;
|
|
End;
|