Poverpoint Заметки к слайду через макрос, Помогите получить доступ к заметке.

[Dosugx]

Я записал макрос,но он не работает
Sub Макрос1()
'
' Макрос записан 22.07.2010. Автор: z
'
ActiveWindow.Selection.ShapeRange.T extFrame.TextRange.Characters(Start :=1, Length:=0).Select 'выбираем форму с заметками (в этой строке выдает ошибку Selection (unknow member): Invalid request. Nothing appropriate is currently selected.)
With ActiveWindow.Selection.TextRange
.Text = "Заметка к слайду"
End With
ActiveWindow.Selection.ShapeRange.T extFrame.TextRange.Characters(Start :=1, Length:=17).Select
ActiveWindow.Selection.TextRange.Fo nt.Bold = msoTrue
End Sub

Мне нужен доступ к заметке. также как и например к слайду ActivePresentation.Slides(2).Select
тоесть Presentation - презентация, Slides - слайд, Shapes - форма, а заметка -? как

[KL (XL)]

MsgBox ActivePresentation.Slides(1).NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.Text