View Single Post
Old 04-29-2020, 07:30 AM
JohnWilson JohnWilson is offline Windows 10 Office 2016
Join Date: Nov 2008
Location: UK
Posts: 1,822
JohnWilson will become famous soon enoughJohnWilson will become famous soon enough

You would need to do this with vba code.

Here is the basis of the code needed.

Sub splitText()

Dim sFilePath As String
Dim iFile As Integer
Dim sInput As String
Dim rayText() As String
Dim L As Long
' assumes texfile is called data.txt and is on the desktop
sFilePath = Environ("USERPROFILE") & "\Desktop\data.txt"
iFile = FreeFile
Open sFilePath For Input As iFile
sInput = Input(LOF(iFile), iFile)
Close iFile
rayText = Split(sInput, " ")
For L = 0 To UBound(rayText)
With ActivePresentation.Slides.Add(ActivePresentation.Slides.Count, ppLayoutTitle)
.Shapes.Title.TextFrame.TextRange = rayText(L)
End With
End Sub
Microsoft PowerPoint MVP
Free Advanced PowerPoint Tips and Tutorials
Reply With Quote