import mlreportgen.ppt.*

slidesFile = 'myTableEntryPresentation.pptx';
slides = Presentation(slidesFile);
add(slides,'Title and Content');

table1 = Table(3);

tr1 = TableRow();
tr1.Style = {Bold(true)};

te1tr1 = TableEntry();
p = Paragraph('first entry');
p.FontColor = 'red';
append(te1tr1,p);

te2tr1 = TableEntry();
append(te2tr1,'second entry');

te3tr1 = TableEntry();
te3tr1.Style = {FontColor('green')};
append(te3tr1,'third entry');

append(tr1,te1tr1);
append(tr1,te2tr1);
append(tr1,te3tr1);

tr2 = TableRow();

te1tr2 = TableEntry();
te1tr2.Style = {FontColor('red')};
p = Paragraph('first entry');
append(te1tr2,p);

te2tr2 = TableEntry();
append(te2tr2,'second entry');

te3tr2 = TableEntry();
te3tr2.Style = {FontColor('green')};
append(te3tr2,'third entry');

append(tr2,te1tr2);
append(tr2,te2tr2);
append(tr2,te3tr2);

append(table1,tr1);
append(table1,tr2);

contents = find(slides,'Content');

replace(contents(1),table1);

close(slides);

if ispc
    winopen(slidesFile);
end