If the 'text' in in the slide's title placeholder, then something like this
All depends on where the text is and how it can be identified
Option Explicit
Sub SaveEach()
Dim oPresentation As Presentation
Dim oSlide As Slide
Dim oShape As Shape
Dim sFilename As String
Set oPresentation = ActivePresentation
For Each oSlide In oPresentation.Slides
For Each oShape In oSlide.Shapes
With oShape
If .Type = msoPlaceholder Then
If .PlaceholderFormat.Type = ppPlaceholderCenterTitle Or _
.PlaceholderFormat.Type = ppPlaceholderTitle Then
If .HasTextFrame Then
If .TextFrame.HasText Then
sFilename = Left(LCase(.TextFrame.TextRange.Text), 25) & ".jpg"
On Error Resume Next
Kill sFilename
On Error GoTo 0
oSlide.Export sFilename, "jpg"
End If
End If
End If
End If
End With
Next
Next
End Sub