Dividing Text From Notepad to Powerpoint

[tmab]

Is there a way other than Copy and paste each word (text), to create 10 separate slides of a 10 word sentence on PPT using a command or Plugin ? (Task - 700 to 800 word essay has to be separated into slides. One word per slide.)

[JohnWilson]

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
Next
End Sub