TPE
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