Hi, Please help me. I have to re-apply master to the notespage view in powerpoint 2007 and at times the the slide count is huge. I want the macro to reapply master to all slides but not to the text as the text contains special formatting like, bold, italics, hyperlinks, underline and bullets. I found a re-apply master macro made by David Foster, but it formats the text also, Please help.

The manual steps we follow in the notes page view are:

First , if there is a text box and it has text then Copy and cut the text (so that the text formatting is not lost), then right click outside and go to notes layout and tick all the three options (Image, Body and Reapply Master.) and click OK, this will reapply master to the slide. Then paste the text back into the text box; and the re-apply master is also done for slides without text boxes where we just right click ad apply re-apply master.


Below is a Macro to re-apply master which I found on Internet. It will reapply Master BUT also removes the formatting from the Text BOX. Which I do not want. Please help with the coding.


Sub ApplyMasterToNotes()

' Modified version of code originally posted to

' msnews.microsoft.com public newsgroups by

' David Foster in May of 1999

Dim ctl As CommandBarControl

Dim oSl As Slide

' 700 is the control ID for Layout

Set ctl = CommandBars.FindControl(Id:=700)

ActiveWindow.ViewType = ppViewNotesPage

If (ctl Is Nothing) Then

MsgBox "command not available"

Exit Sub

End If

For Each oSl In ActivePresentation.Slides

' go to the current slide

ActiveWindow.View.GotoSlide (oSl.SlideIndex)

DoEvents

' Bring up the dialog

ctl.Execute

DoEvents

' send it the needed keystrokes

SendKeys "%r{enter}"

DoEvents

Next

End Sub