The table count can be obtained with:
ActiveDocument.Tables.Count



A loop in VBA might be constructed with code like:
or:
Note how the second one doesn't need to table count.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Thanks Macropod!

I updated my code as following, but this does not work.

I hightlighted the part I updated per your comments. Is this correct?


filename script "C:\Users\zzz\Desktop\New\wdtb2ppt.vbs";

data _null_;
file script;
put 'Set objWord = CreateObject("Word.Application")';
put 'objWord.Visible = False';
/* Slide 1*/
put 'Set objDoc = objWord.Documents.Open("' "C:\Users\zzz\Desktop\New\t_aesum_age_saf.rtf"'")' ;
put 'Set objSelection = objWord.Selection';
put 'Set objPPT = CreateObject("PowerPoint.Application")';
put 'objPPT.Visible = True';
put 'Set objPresentation = objPPT.Presentations.Add';
/* put 'objPresentation.ApplyTemplate("C:\temp\tmp3.pot") ';*/

put 'Sub Demo2()';
put 'Dim Tbl As Table';
put 'For Each Tbl In ActiveDocument.Tables';
put 'objDoc.Activate';
put 'With Tbl';
put 'objDoc.Tbl.Range.Select';
put 'End With';
put 'Tbl.Range.Copy';
put 'Set objSlide = objPresentation.Slides.Add(1,12)';
put 'objPPT.ActiveWindow.View.Paste';
put 'Next';
put 'End Sub';


put 'objPresentation.SaveAs("C:\Users\zzz\Desktop\New\ table.ppt")';
put 'objPresentation.Close';
put 'objPPT.Quit';
put 'objDoc.Close';
put 'objWord.Quit';
run;

filename xx pipe "cscript //nologo ""C:\Users\zzz\Desktop\New\wdtb2ppt.vbs""";
data _null_;
infile xx;
input;
put _infile_;
run;