PPT 2003, copy slides with VB

[rod]

I am using code to copy slides from one slide kit to another, this
works great but I have noticed that the formatting (bulleted text,
indents) on the notes section is lost. Any ideas?

Here is the code I am using to do the copy.....

Set objPPT = CreateObject("PowerPoint.Application")
Set objDestination = objPPT.Presentations.Add(0)

Set objSource = objPPT.Presentations.Open(strFileName, -1, -1, 0)
Set oSlide = objSource.Slides.Item(slide_number)
oSlide.Copy

With objDestination.Slides.Paste
.Design = objSlide.Design
.ColorScheme = objSlide.ColorScheme
End With





thanks

 

[rod]

Shyam,

BTW, I just tried the following code in my PPT 2003 and it also does
not copy the formatting of the notespage...

http://www.mvps.org/skp/pptxp001.htm

any suggestions on how to detect and copy the formatting of the
notespage?

thanks

 

[Shyam Pillai]

That specific page does not include notes page formatting in it's code. The
approach I recommand is to read the formatting from the source notes page
and apply it to the target page. Look up the information on the Runs
property this will be very useful. If you still fail to get it right. Get
back here.
Take a look at this example which employs runs to locate specific color
formatting: http://www.mvps.org/skp/pptxp006.htm