| while trying to split up text that I'll get from an Excel sheet (2 columns: one header, one body) I have a problem with the following code. Below the code that I could come up with. I might almost be there but maybe someone can give me an extra hint. What I'm doing is trying to avoid that a PPT slide has more then 250 characters on it. This is what I have so far. Thanks for any replies. Gert
set slide_heading to "Slide Heading Here" set slide_content to "this is all just text this is all just textthis is all just textthis is all just textthis is all just textthis is all just textthis is all just textthis is all just textthis is all just textthis is all just textthis is all just textthis is all just textthis is all just textthis is all just textthis is all just textthis is all just text that is indeed the last text" tell application "Microsoft PowerPoint" set this_presentation to make new presentation set content of its text range to slide_content set i to count slide_content repeat until -250 + i < 0 set myBegin to i - 250 set myEnd to myBegin + 250
set this_slide to make new slide at the end of this_presentation ¬ with properties {layout:slide layout text slide}
set content of text range of text frame of shape 1 of this_slide to slide_heading tell text frame of shape 2 of this_slide set its auto size to shape to fit text set content of its text myBegin thru myEnd to slide_content end tell set i to i - 250 end repeat end tell |