Results 1 to 11 of 11
  1. #1
    2 Star Lounger
    Join Date
    Dec 2000
    Location
    Palmyra, Virginia, USA
    Posts
    157
    Thanks
    0
    Thanked 0 Times in 0 Posts

    ALL text on slide to RTF? (PPT 2000)

    The slides I project of church songs have the main text in the center box but also have the song name and other info in a small text box at the bottom (on the main slide, not the slide master). A save as RTF gets the song words but not the title, etc.

    Is there a way to save/export that will get all of the text off of each slide?

  2. #2
    Silver Lounger
    Join Date
    Mar 2001
    Location
    Springfield, Ohio, USA
    Posts
    2,136
    Thanks
    0
    Thanked 1 Time in 1 Post

    Re: ALL text on slide to RTF? (PPT 2000)

    Does File | SendTo | Microsoft Word do what you want?
    --Sam
    <font face="Comic Sans MS">Sam Barrett, CACI </font face=comic>
    <small>And the things that you have heard... commit these to faithful men who will be able to teach others also. 2 Timothy 2:2</small>

  3. #3
    2 Star Lounger
    Join Date
    Dec 2000
    Location
    Palmyra, Virginia, USA
    Posts
    157
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: ALL text on slide to RTF? (PPT 2000)

    Hmmm. Didn't even realize that function was there. But ..., no, not really. That puts the slides in a Word file and all I want is the text but all of the text.

  4. #4
    Silver Lounger
    Join Date
    Mar 2001
    Location
    Springfield, Ohio, USA
    Posts
    2,136
    Thanks
    0
    Thanked 1 Time in 1 Post

    Re: ALL text on slide to RTF? (PPT 2000)

    Paul, did you try File | SendTo | Microsoft Word | Outline Only. If you try this and it doesn't work, that means that the text is in a textbox or a shape and we will have to use VBA. That's not a problem, I've already done it, just need to find it. If sending an outline to Word doesn't work, please click on several of the text items that didn't get sent to Word, then click on the Format menu. At the bottom of the menu it should say Placeholder, AutoShape, TextBox, Picture, etc. Let me know which items you have so that I account for them. Thanks! --Sam
    <font face="Comic Sans MS">Sam Barrett, CACI </font face=comic>
    <small>And the things that you have heard... commit these to faithful men who will be able to teach others also. 2 Timothy 2:2</small>

  5. #5
    Silver Lounger
    Join Date
    Mar 2001
    Location
    Springfield, Ohio, USA
    Posts
    2,136
    Thanks
    0
    Thanked 1 Time in 1 Post

    Re: ALL text on slide to RTF? (PPT 2000)

    Assuming that the file-send-outline-to-word didn't get all of the text, here is a macro that will hopefully do the job.

    1) In your PP presentation, select the Tools, Macro, Record New Macro...
    menu item.
    2) Enter the macro name as sendTextToWord and press OK.
    3) Press the Stop Recording button.
    4) Select the Tools, Macro, Macros... menu item.
    5) Click sendTextToWord to select it and press the Edit button.
    This will start VBA and place you in the sendTextToWord macro code.
    6) In VBA, select Tools, References... menu item.
    7) Click the Microsoft Word checkbox to include the Word object library and
    press OK.
    8) Replace the empty sendTextToWord macro with the following code, return
    to PP, save your presentation, and run the macro.
    <pre>Option Explicit

    Sub sendTextToWord()
    Dim wrdApp As New Word.Application
    Dim wrdDoc As Word.Document
    Dim sld As PowerPoint.Slide
    Dim shp As PowerPoint.Shape
    Dim i As Integer
    Set wrdDoc = wrdApp.Documents.Add ' Open a new word document
    wrdApp.Visible = True
    For Each sld In ActivePresentation.Slides ' go thru each slide
    For Each shp In sld.Shapes ' and each shape on the slide
    If shp.HasTextFrame Then ' send the text to Word
    wrdDoc.Range.InsertAfter shp.TextFrame.TextRange.Text & vbCr
    End If
    Next shp
    wrdDoc.Range.InsertAfter vbCr ' blank line between slides
    Next sld
    End Sub
    </pre>

    <font face="Comic Sans MS">Sam Barrett, CACI </font face=comic>
    <small>And the things that you have heard... commit these to faithful men who will be able to teach others also. 2 Timothy 2:2</small>

  6. #6
    2 Star Lounger
    Join Date
    Dec 2000
    Location
    Palmyra, Virginia, USA
    Posts
    157
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: ALL text on slide to RTF? (PPT 2000)

    Whoaaa! FANTASTIC! (Took me a while to get around to trying it.)

    May I request two mods, if not too difficult? Can it print out the filename of the presentation at either beginning or end of the word document? And, for more than one powerpoint presentation, can it write to a single word document? The document could have a fixed name and all sends be appended to it, if that simplifies anything.

  7. #7
    Silver Lounger
    Join Date
    Mar 2001
    Location
    Springfield, Ohio, USA
    Posts
    2,136
    Thanks
    0
    Thanked 1 Time in 1 Post

    Re: ALL text on slide to RTF? (PPT 2000)

    Sounds like you want to open all of the presentations in a directory and dump them to a word file. Would that be best? May not get to it this week; I'm out of the office. --Sam
    <font face="Comic Sans MS">Sam Barrett, CACI </font face=comic>
    <small>And the things that you have heard... commit these to faithful men who will be able to teach others also. 2 Timothy 2:2</small>

  8. #8
    2 Star Lounger
    Join Date
    Dec 2000
    Location
    Palmyra, Virginia, USA
    Posts
    157
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: ALL text on slide to RTF? (PPT 2000)

    Well, although that would work rather slickly, actually my plan is to open 6 - 8 presentations (that are part of a group) and I would trigger the macro individually in each presentation. I need to have the file name in the word file to make the data meaningful and it would be handier if the word files were concatenated rather than my having to cut and paste them together.

    OH, and this is a periodic project that I just finished the latest event of and decided, "There must be an easier way", so there is no need to hurry. Given the good start you have provided, I really should just sit down and attempt to learn enough VBA to make the changes myself.

  9. #9
    Silver Lounger
    Join Date
    Mar 2001
    Location
    Springfield, Ohio, USA
    Posts
    2,136
    Thanks
    0
    Thanked 1 Time in 1 Post

    Re: ALL text on slide to RTF? (PPT 2000)

    For your scenario, you just need to add an outer loop:<pre>Option Explicit

    Sub sendTextToWord()
    Dim wrdApp As New Word.Application
    Dim wrdDoc As Word.Document
    Dim pres As PowerPoint.Presentation
    Dim sld As PowerPoint.Slide
    Dim shp As PowerPoint.Shape
    Dim i As Integer
    Set wrdDoc = wrdApp.Documents.Add ' Open a new word document
    wrdApp.Visible = True
    For Each pres In Presentations
    wrdDoc.Range.InsertAfter ">>> " & pres.Name & " <<<" & vbCr & vbCr
    For Each sld In pres.Slides ' go thru each slide
    For Each shp In sld.Shapes ' and each shape on the slide
    If shp.HasTextFrame Then ' send the text to Word
    wrdDoc.Range.InsertAfter shp.TextFrame.TextRange.Text & vbCr
    End If
    Next shp
    wrdDoc.Range.InsertAfter vbCr ' blank line between slides
    Next sld
    Next pres
    End Sub</pre>


    Don't forget to add a reference to Word in the presentation with this macro. --Sam
    <font face="Comic Sans MS">Sam Barrett, CACI </font face=comic>
    <small>And the things that you have heard... commit these to faithful men who will be able to teach others also. 2 Timothy 2:2</small>

  10. #10
    2 Star Lounger
    Join Date
    Dec 2000
    Location
    Palmyra, Virginia, USA
    Posts
    157
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: ALL text on slide to RTF? (PPT 2000)

    YESSS!!!

    Took me a moment to realize what you had provided. It prints from every open presentation to a Word file. Works beautifully. Thank you. It will save much time the next time I have to total these things up.

    I am a little mystified, however, by what you meant by "Don't forget to add a reference to Word in the presentation with this macro". I didn't change anything in my base presentation and it works great.

  11. #11
    Silver Lounger
    Join Date
    Mar 2001
    Location
    Springfield, Ohio, USA
    Posts
    2,136
    Thanks
    0
    Thanked 1 Time in 1 Post

    Re: ALL text on slide to RTF? (PPT 2000)

    <img src=/w3timages/blackline.gif width=33% height=2>
    > little mistified
    <img src=/w3timages/blackline.gif width=33% height=2>
    Just in case you used a different presentation, but you had already done it in <A target="_blank" HREF=http://www.wopr.com/cgi-bin/w3t/showflat.pl?Cat=&Board=ppt&Number=113377&page=0&vi ew=expanded&sb=5&o=0#Post113377>step 7</A>.
    <font face="Comic Sans MS">Sam Barrett, CACI </font face=comic>
    <small>And the things that you have heard... commit these to faithful men who will be able to teach others also. 2 Timothy 2:2</small>

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •