Results 1 to 8 of 8
  1. #1
    3 Star Lounger
    Join Date
    Jan 2002
    Location
    Ashmore, Queensland, Australia
    Posts
    358
    Thanks
    0
    Thanked 2 Times in 1 Post

    sending to Word (Office 2003 SP1)

    I have been converting the text in my PowerPoint lectures to Word docs, using Send to Word- outline only, and noted that the content of some slides does not appear in the Word doc. Any suggestions?
    Many thanks
    Dianne

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 28 Times in 28 Posts

    Re: sending to Word (Office 2003 SP1)

    When you send a PowerPoint presentation to Word as "Outline only", only the text in the text boxes that are part of the slide layout will be transferred to Word, i.e. the slide title and the text in the one or two bulleted lists from the slide layout. All other objects, including text boxes added from the Drawing toolbar, and all graphics, will be lost. So a graphics-only slide will be omitted, as well as a slide in which you deleted the original text boxes, and added new ones.

  3. #3
    3 Star Lounger
    Join Date
    Jan 2002
    Location
    Ashmore, Queensland, Australia
    Posts
    358
    Thanks
    0
    Thanked 2 Times in 1 Post

    Re: sending to Word (Office 2003 SP1)

    Thank you, Hans. I am sure that added text boxes have been my downfall!

  4. #4
    Silver Lounger
    Join Date
    Jan 2001
    Location
    West Long Branch, New Jersey, USA
    Posts
    1,921
    Thanks
    6
    Thanked 9 Times in 7 Posts

    Re: sending to Word (Office 2003 SP1)

    Dianne,

    about 3 years ago, SammyB responded to a similar query with a macro that pretty much does what you want. That was in <post#=113377>post 113377</post#>. This included instructions for how to create a macro in ppt. In case you have difficulty, here's the post - I saved it bcs I thought it might be useful. I haven't had a chance to use this until now - you never know.


    Fred

    (PS: for lounge moderators: I posted this 2 days ago but see it's not in thread.)

    ----SammyB's posting
    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.

    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

  5. #5
    3 Star Lounger
    Join Date
    Jan 2002
    Location
    Ashmore, Queensland, Australia
    Posts
    358
    Thanks
    0
    Thanked 2 Times in 1 Post

    Re: sending to Word (Office 2003 SP1)

    Thank you, Fred. Certainly sounds worth trying. A pleasant weekend project....

  6. #6
    Lounger
    Join Date
    Jun 2002
    Location
    Michigan City, Indiana, USA
    Posts
    37
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: sending to Word (Office 2003 SP1)

    I absolutely love this macro and use it all the time. However, I would love to add a line to it and have been trying all day but can't figure it out. Is there a way to to add a line so that before each slide, it prints "Slide 1", "Slide 2", etc.? I know it has something to do with "Slide " & sld.slidenumber or insertslidenumber but not sure where and how to add it into the macro. Would appreciate any assistance.

    Jodi

  7. #7
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 28 Times in 28 Posts

    Re: sending to Word (Office 2003 SP1)

    You could change the part
    <code>
    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
    </code>
    to
    <code>
    i = 0
    For Each sld In pres.Slides ' go thru each slide
    i = i + 1
    wrdDoc.Range.InsertAfter "Slide " & i & vbCr ' slide number
    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</code>

  8. #8
    Silver Lounger
    Join Date
    Jan 2001
    Location
    West Long Branch, New Jersey, USA
    Posts
    1,921
    Thanks
    6
    Thanked 9 Times in 7 Posts

    Re: sending to Word (Office 2003 SP1)

    Thanks for the rescue, Hans. I certainly couldn't have come up with those 2 lines (I think it was just 2 lines); the second one would have been where I would have fallen.

    Fred

Posting Permissions

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