Send PowerPoint (Office 2003)

Topic

New Reply

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

Reply | Quote

Replies

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.

Reply | Quote

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

Reply | Quote

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.

Reply | Quote

Hello Hans
Thank you for the time and effort.

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

Regards
Geof

Reply | Quote

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

Reply | Quote

Thanks for sharing your solution.

Reply | Quote