Results 1 to 7 of 7
  1. #1
    3 Star Lounger
    Join Date
    Apr 2001
    Location
    Levin, Manawatu-Wanganui, New Zealand
    Posts
    324
    Thanks
    9
    Thanked 28 Times in 26 Posts

    Send PowerPoint (Office 2003)

    Greetings to the lounge

    Q: Does the ability to send a Word Outline to PowerPoint rely on
    *Normal style to identify body text
    *Direct formatting to distinguish and thus leave bullet and list numbered text.

    I apply bullets and numbering by applying custom styles
    I regularly use a customised Body Text style, not based on Normal.

    When I use the send to powerpoint feature

    *Heading 1, Heading 2, Heading 3 styles behave as expected,

    *My customised bullet and list numberied text, applied as styles, comes over to the presentation

    *as does the body text

    Note
    Searching and replacing the Body Text style with Normal style results in the now normal text remaining, as expected.

    IT seems that or this feature to work I must direct format for bullets and numbering in Word. !!!

    What have I missed.

    Geof

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

    Re: Send PowerPoint (Office 2003)

    I'm not sure I understand your question (if there is one)

    The idea of Send to PowerPoint is to use only Heading styles: Heading 1 for the slide title, and Heading 2, Heading 3 etc. for the levels in the "main" text box. Direct font formatting will be transferred. Other styles may be transferred too, but that's not the intended use of this feature.

  3. #3
    3 Star Lounger
    Join Date
    Apr 2001
    Location
    Levin, Manawatu-Wanganui, New Zealand
    Posts
    324
    Thanks
    9
    Thanked 28 Times in 26 Posts

    Re: Send PowerPoint (Office 2003)

    Hello Hans
    Your answer reinforced what I believed should have been the case.

    My questions are

    1 Why would the text formatted with my bulleting and numbering styles come over to the presentation?
    2 Why does text other than normal style come into the presentation (e.g Body Text style)

    If the answer is
    "Microsoft by design" that is fine.

    Regards
    Geof

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

    Re: Send PowerPoint (Office 2003)

    Apparently, the conversion routine attempts to determine what to do with other styles than Heading styles. I a quick experiment, it appears that the following elements are taken into consideration:
    - Outline level
    - Indentation
    Bulleted or numbered styles obviously fit into this; I don't understand why Body Text is also transferred. The moral of this story seems to be: if you want to create a PowerPoint presentation from a Word document, use only Normal and Heading styles.

  5. #5
    3 Star Lounger
    Join Date
    Apr 2001
    Location
    Levin, Manawatu-Wanganui, New Zealand
    Posts
    324
    Thanks
    9
    Thanked 28 Times in 26 Posts

    Re: Send PowerPoint (Office 2003)

    Hello Hans
    Thank you for the time and effort.

    It seems that I will have to develop my own routines for this.

    Regards
    Geof

  6. #6
    3 Star Lounger
    Join Date
    Apr 2001
    Location
    Levin, Manawatu-Wanganui, New Zealand
    Posts
    324
    Thanks
    9
    Thanked 28 Times in 26 Posts

    Re: Send PowerPoint (Office 2003)

    Hello Hans
    Thank you for your effort on the board.

    My solution extracts content formatted with Heading styles from a document.
    This means that a document need not use normal for 'body' content and bullets and numbers can have custom styles.

    A new doc is created which is then sent to powerpoint.
    Perhaps this will be helpful to others. It may make a start for a project.

    I intend to tidy this up and build additional functionality into it.

    '--------------------
    Dim x As Integer
    Dim aryHeadings()
    Dim aryStyles()
    Dim oPara As Word.Paragraph

    Sub build_powerpoint()
    x = 0
    For Each oPara In ActiveDocument.Paragraphs
    oPara.Range.Select
    If isHeadingStyle(selection) Then

    build_headings_array
    build_styles_array

    x = x + 1
    End If
    Next
    create_new_document
    ActiveDocument.PresentIt

    MsgBox ("done")
    End Sub

    Function isHeadingStyle(oPara As String)
    isHeadingStyle = False
    If Left(selection.Style, 7) = "Heading" Then
    isHeadingStyle = True
    End If
    End Function


    Sub build_headings_array()
    ReDim Preserve aryHeadings(x)
    aryHeadings(x) = selection.Text

    End Sub
    Sub build_styles_array()
    ReDim Preserve aryStyles(x)
    aryStyles(x) = selection.Style

    End Sub


    Sub create_new_document()
    Documents.Add
    With ActiveDocument
    For i = 0 To x - 1
    selection.InsertAfter aryHeadings(i)
    selection.Style = aryStyles(i)
    selection.Collapse (wdCollapseEnd)

    Next
    End With

    End Sub

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

    Re: Send PowerPoint (Office 2003)

    Thanks for sharing your solution.

Posting Permissions

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