TechTalkz.com Logo Ask the Experts!

Go Back   TechTalkz.com Technology & Computer Troubleshooting Forums > Tech Support Archives > Microsoft > Microsoft Office > Microsoft Office Powerpoint

Select all Text in Powerpoint

Microsoft Office Powerpoint

 
 
Thread Tools Display Modes
Unread 04-11-2007, 03:06 PM   #1
HelpPlease
Guest
 
Posts: n/a
Select all Text in Powerpoint

Hi, I have already read previous questions and answers. "Andrew" asked about
"Select and Change all text".

I want to select all text within every textbox on my presentation in order
to copy and paste it into a word document.

I have never studied VBA before but I looked at the links provided by Kathy
J:
http://www.rdpslides.com/pptfaq/FAQ00465.htm
http://www.rdpslides.com/pptfaq/FAQ00594.htm

I thought that if I play around with the codes I could somehow get them to
select all of the text throughout my presentation.
After playing with the Record Macro function to figure out the coding for
selecting text, I wrote this code:

Sub EveryTextBoxOnSlide()
' Performs some operation on every shape that contains text on every slide
' (doesn't affect charts, tables, etc)

Dim oSh As Shape
Dim oSl As Slide

On Error GoTo ErrorHandler

For Each oSl In ActivePresentation.Slides
For Each oSh In oSl.Shapes
With oSh
If .HasTextFrame Then
If .TextFrame.HasText Then
.TextFrame.TextRange.Select
End If
End If
End With
Next ' shape
Next ' slide

NormalExit:
Exit Sub

ErrorHandler:
Resume Next

End Sub

But it only selects the text in one textbox on the current slide. I really
don't know how to do what I want to do, so I'd much appreciate some help with
coding!

Thanks



 
Unread 04-11-2007, 04:07 PM   #2
Shyam Pillai
Guest
 
Posts: n/a
Re: Select all Text in Powerpoint

You can either select text within a text box or select all shapes on a
slide. You cannot select all the text in the shapes. So process each text
object and copy/paste to Word and then move to the next shape.


--
Regards,
Shyam Pillai

Animation Carbon: Copy/Paste/Share animation libraries.
www.animationcarbon.com


"HelpPlease" <HelpPlease@discussions.microsoft.com> wrote in message
news:051100D5-2344-4DC2-A1F1-8154AC74F209@microsoft.com...
> Hi, I have already read previous questions and answers. "Andrew" asked
> about
> "Select and Change all text".
>
> I want to select all text within every textbox on my presentation in order
> to copy and paste it into a word document.
>
> I have never studied VBA before but I looked at the links provided by
> Kathy
> J:
> http://www.rdpslides.com/pptfaq/FAQ00465.htm
> http://www.rdpslides.com/pptfaq/FAQ00594.htm
>
> I thought that if I play around with the codes I could somehow get them to
> select all of the text throughout my presentation.
> After playing with the Record Macro function to figure out the coding for
> selecting text, I wrote this code:
>
> Sub EveryTextBoxOnSlide()
> ' Performs some operation on every shape that contains text on every slide
> ' (doesn't affect charts, tables, etc)
>
> Dim oSh As Shape
> Dim oSl As Slide
>
> On Error GoTo ErrorHandler
>
> For Each oSl In ActivePresentation.Slides
> For Each oSh In oSl.Shapes
> With oSh
> If .HasTextFrame Then
> If .TextFrame.HasText Then
> .TextFrame.TextRange.Select
> End If
> End If
> End With
> Next ' shape
> Next ' slide
>
> NormalExit:
> Exit Sub
>
> ErrorHandler:
> Resume Next
>
> End Sub
>
> But it only selects the text in one textbox on the current slide. I really
> don't know how to do what I want to do, so I'd much appreciate some help
> with
> coding!
>
> Thanks
>
>
>


 
Unread 04-11-2007, 08:08 PM   #3
Steve Rindsberg
Guest
 
Posts: n/a
Re: Select all Text in Powerpoint

Try this instead:

Export Text to a text file, extract text from PowerPoint (Mac or PC)
http://www.pptfaq.com/FAQ00274.htm

Once you've created the text file, you can open it in Word.



In article <051100D5-2344-4DC2-A1F1-8154AC74F209@microsoft.com>, HelpPlease
wrote:
> Hi, I have already read previous questions and answers. "Andrew" asked about
> "Select and Change all text".
>
> I want to select all text within every textbox on my presentation in order
> to copy and paste it into a word document.
>
> I have never studied VBA before but I looked at the links provided by Kathy
> J:
> http://www.rdpslides.com/pptfaq/FAQ00465.htm
> http://www.rdpslides.com/pptfaq/FAQ00594.htm
>
> I thought that if I play around with the codes I could somehow get them to
> select all of the text throughout my presentation.
> After playing with the Record Macro function to figure out the coding for
> selecting text, I wrote this code:
>
> Sub EveryTextBoxOnSlide()
> ' Performs some operation on every shape that contains text on every slide
> ' (doesn't affect charts, tables, etc)
>
> Dim oSh As Shape
> Dim oSl As Slide
>
> On Error GoTo ErrorHandler
>
> For Each oSl In ActivePresentation.Slides
> For Each oSh In oSl.Shapes
> With oSh
> If .HasTextFrame Then
> If .TextFrame.HasText Then
> .TextFrame.TextRange.Select
> End If
> End If
> End With
> Next ' shape
> Next ' slide
>
> NormalExit:
> Exit Sub
>
> ErrorHandler:
> Resume Next
>
> End Sub
>
> But it only selects the text in one textbox on the current slide. I really
> don't know how to do what I want to do, so I'd much appreciate some help with
> coding!
>
> Thanks
>


-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================


 
 

Thread Tools
Display Modes



< Home - Windows Help - MS Office Help - Hardware Support >


New To Site? Need Help?

All times are GMT. The time now is 08:35 AM.


vBulletin, Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
Content Relevant URLs by vBSEO
Copyright © 2005-2013, TechTalkz.com. All Rights Reserved - Privacy Policy
Valid XHTML 1.0 Transitional