11 lines
270 B
Plaintext
11 lines
270 B
Plaintext
Function _WordGetFont(prop, value);
|
|
Begin
|
|
crun := TOfficeApi().GetCurrentRun();
|
|
node := crun.Node().FirstChildElement('w:rPr');
|
|
rPr := TOfficeObj('TwrPr');
|
|
rPr.InitRootNode(node);
|
|
value := rPr.Value(prop);
|
|
if not ifnil(value) then return true;
|
|
return false;
|
|
End;
|