TPE

http://bayanbox.ir/view/263405954590585756/2mobile.png

Tavvafi@gmail.com


≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡

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