Export speaker notes to word with PAGE BREAK!

[kuhni]

Hello everybody!

As I have already looked for a solution in this group I've found a lot
of hints already. But nevertheless there is one last question I want
to ask you:

i want to export the speaker notes to word and each note shall be
separated by a page break because I want to print them for my
presentations.

I am using the following code to write the data to text-file:
For J = 1 To .Slides(I).NotesPage.Shapes.Placeholders.Count
With .Slides(I).NotesPage.Shapes.Placeholders.Item(J)
If .PlaceholderFormat.Type = ppPlaceholderBody Then
Debug.Print .TextFrame.TextRange
' Write the title text to the output file
Print #1, "[Slide " & I & "]"
Print #1, .TextFrame.TextRange
End If
End With
Next J

Is there any better solution to write them directly to a word
document? and is it possible to insert page breaks when writing the
text to a text-file?


I would be very thankful if somebody could help me!

Best wishes,
Stephan Kuhnert, Germany

 

[Steve Rindsberg]

Try writing a Ctrl-L (formfeed) character into the text file (I don't have
the Chr$(xx) equivalent handy right now, sorry)

If that doesn't work, I'd ask in one of the Word groups. Look for one where
Cindy Meister or Jonathan West are answering questions; either of them
would know, I'm sure.


--

Steve Rindsberg PPT MVP
PPTLive ( http://www.pptlive.com ) Featured Speaker
PPTools: http://www.pptools.com
PPT FAQ: http://www.pptfaq.com