12 lines
324 B
Plaintext
12 lines
324 B
Plaintext
Function _WordGetLastTableProp(name, value);
|
|
Begin
|
|
table := TOfficeApi().Get('LastTable');
|
|
if ifnil(table) then return false;
|
|
ctr := _wordCompTable();
|
|
name_ := ctr[lowercase(name)];
|
|
if ifnil(name_) then name_ := name;
|
|
str := 'return table.Format.' $ name_ $ '"' $ value $ '"';
|
|
value := eval(&str);
|
|
return true;
|
|
End;
|