S
Steven Knight
Hi,
Here is my question hopefully in a readable format!
I a using Office 2003 and I would to loop through all "shapes" in all
slides on a presentation and put the text into a variable for some
processing.
Here is the code I use for 2003:
For Each aslide In objPowerpoint.Presentations(1).Slides
For i = 1 To aslide.Shapes.Count
StrTxt = aslide.Shapes(i).TextFrame.TextRange.Text 'XP stops
here!
StrTxt = SomeFunction(Strtxt)
Next
Next
When I use this in XP it doesn't like it and gives an error.
Does anyone know why? Does anyone have XP compatible code that does
the same thing?
Thanks in anticipation.
Steven
Here is my question hopefully in a readable format!
I a using Office 2003 and I would to loop through all "shapes" in all
slides on a presentation and put the text into a variable for some
processing.
Here is the code I use for 2003:
For Each aslide In objPowerpoint.Presentations(1).Slides
For i = 1 To aslide.Shapes.Count
StrTxt = aslide.Shapes(i).TextFrame.TextRange.Text 'XP stops
here!
StrTxt = SomeFunction(Strtxt)
Next
Next
When I use this in XP it doesn't like it and gives an error.
Does anyone know why? Does anyone have XP compatible code that does
the same thing?
Thanks in anticipation.
Steven