Напиши код VBA для презентации на тему Ёжик по плану 1. Лексическое значение слова Ёжик 2. Словосочетания со словом Ёжик 3. Однокоренные слова 4. Пословицы со словом Ежик 5.Загадки о слове Ежик 6. Стихи, прозы со словом Ежик

Sub PresentationAboutHedgehog()

Dim slideIndex As Integer
Dim pptApp As Object
Dim pptPres As Object
Dim slideTitle As String
Dim slideContent As String

Set pptApp = CreateObject("PowerPoint.Application")
Set pptPres = pptApp.Presentations.Add

' Slide 1 - Лексическое значение слова Ёжик
slideIndex = 1
slideTitle = "Лексическое значение слова Ёжик"
slideContent = "Ёжик - это маленькое животное с иголками на спине, которое защищается, скручиваясь в клубок"
pptPres.Slides.Add slideIndex, 1
pptPres.Slides(slideIndex).Shapes(1).TextFrame.TextRange.Text = slideTitle
pptPres.Slides(slideIndex).Shapes(2).TextFrame.TextRange.Text = slideContent

' Slide 2 - Словосочетания со словом Ёжик
slideIndex = slideIndex + 1
slideTitle = "Словосочетания со словом Ёжик"
slideContent = "Ёжик на иголках, ёжик в тумане, ёжик в лесу"
pptPres.Slides.Add slideIndex, 1
pptPres.Slides(slideIndex).Shapes(1).TextFrame.TextRange.Text = slideTitle
pptPres.Slides(slideIndex).Shapes(2).TextFrame.TextRange.Text = slideContent

' Slide 3 - Однокоренные слова
slideIndex = slideIndex + 1
slideTitle = "Однокоренные слова"
slideContent = "Ёж, ёжить, ёженый"
pptPres.Slides.Add slideIndex, 1
pptPres.Slides(slideIndex).Shapes(1).TextFrame.TextRange.Text = slideTitle
pptPres.Slides(slideIndex).Shapes(2).TextFrame.TextRange.Text = slideContent

' Slide 4 - Пословицы со словом Ежик
slideIndex = slideIndex + 1
slideTitle = "Пословицы со словом Ежик"
slideContent = "Ежик в тумане - не пропадет"
pptPres.Slides.Add slideIndex, 1
pptPres.Slides(slideIndex).Shapes(1).TextFrame.TextRange.Text = slideTitle
pptPres.Slides(slideIndex).Shapes(2).TextFrame.TextRange.Text = slideContent

' Slide 5 - Загадки о слове Ежик
slideIndex = slideIndex + 1
slideTitle = "Загадки о слове Ежик"
slideContent = "Маленький, колючий, в лесу живет, клубочек скручивает - кто это?"
pptPres.Slides.Add slideIndex, 1
pptPres.Slides(slideIndex).Shapes(1).TextFrame.TextRange.Text = slideTitle
pptPres.Slides(slideIndex).Shapes(2).TextFrame.TextRange.Text = slideContent

' Slide 6 - Стихи, прозы со словом Ежик
slideIndex = slideIndex + 1
slideTitle = "Стихи, прозы со словом Ежик"
slideContent = "Маленький ёжик в лесу живет, иголки на спине у него светят. Он клубочек скручивает, в нем спрятаться ему нравится."
pptPres.Slides.Add slideIndex, 1
pptPres.Slides(slideIndex).Shapes(1).TextFrame.TextRange.Text = slideTitle
pptPres.Slides(slideIndex).Shapes(2).TextFrame.TextRange.Text = slideContent

pptApp.Visible = True

End Sub