ccXtractDocument.GetLineObjects

var
  i         : Integer;
  MyObjects : Variant;
  Line      : String;
begin
  Line      := '';
  MyObjects := ccXtractDocument.GetLineObjects(0,0);

  for i:=0 to VarArrayHighBound(MyObjects,1) do
  begin
    Line := Line + ccXtractDocument.GetZoneValue(0,MyObjects[i]) + ' ';
  end;

  ccScriptEngine.Log(ccLog_Info,Line);
end;