Sub CrearePrezentareStiluriFunctionale() ' Declarați variabilele pentru prezentare și slide-uri Dim pptApp As Object Dim prezentare As Object Dim slide As Object

' Deschide PowerPoint și creează o prezentare nouă
Set pptApp = CreateObject("PowerPoint.Application")
pptApp.Visible = True
Set prezentare = pptApp.Presentations.Add

' Slide 1: Titlul proiectului
Set slide = prezentare.Slides.Add(1, ppLayoutTitle)
slide.Shapes.Title.TextFrame.TextRange.Text = "Stilurile funcționale ale limbii române"
slide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "Prezentare generală"

' Slide 2: Introducere
Set slide = prezentare.Slides.Add(2, ppLayoutText)
slide.Shapes.Title.TextFrame.TextRange.Text = "Introducere"
slide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "Stilurile funcționale ale limbii române sunt moduri diferite de utilizare a limbajului, adaptate la scopul și contextul comunicării."

' Slide 3: Stilul științific
Set slide = prezentare.Slides.Add(3, ppLayoutText)
slide.Shapes.Title.TextFrame.TextRange.Text = "Stilul științific"
slide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "Caracteristici: limbaj clar, precis, obiectiv; terminologie specifică domeniului științific."

' Slide 4: Stilul beletristic
Set slide = prezentare.Slides.Add(4, ppLayoutText)
slide.Shapes.Title.TextFrame.TextRange.Text = "Stilul beletristic"
slide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "Caracteristici: expresivitate și imaginație; limbaj bogat în figuri de stil."

' Slide 5: Stilul publicistic
Set slide = prezentare.Slides.Add(5, ppLayoutText)
slide.Shapes.Title.TextFrame.TextRange.Text = "Stilul publicistic"
slide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "Caracteristici: limbaj accesibil, ușor de înțeles; obiectiv și informativ."

' Slide 6: Stilul administrativ și juridic
Set slide = prezentare.Slides.Add(6, ppLayoutText)
slide.Shapes.Title.TextFrame.TextRange.Text = "Stilul administrativ și juridic"
slide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "Stilul administrativ: limbaj formal, impersonal; Stilul juridic: terminologie juridică specializată."

' Slide 7: Stilul colocvial
Set slide = prezentare.Slides.Add(7, ppLayoutText)
slide.Shapes.Title.TextFrame.TextRange.Text = "Stilul colocvial"
slide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "Caracteristici: limbaj informal, familiar; ton relaxat, expresii uzuale."

' Slide 8: Concluzii
Set slide = prezentare.Slides.Add(8, ppLayoutText)
slide.Shapes.Title.TextFrame.TextRange.Text = "Concluzii"
slide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "Adaptarea limbajului la contextul și scopul comunicării poate îmbunătăți comunicarea eficientă."

' Finalizare
MsgBox "Prezentarea a fost creată cu succes!", vbInformation

End Sub