none
PowerPoint 2007- Reapply Mster to Notes Page but Not to the Text within the Textbox.

    Question

  • 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

    Monday, January 23, 2012 3:57 AM