Dividing Text From Notepad to Powerpoint

tmab · #1 04-26-2020, 07:01 PM

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 · #2 04-29-2020, 07:30 AM

You would need to do this with vba code.

Here is the basis of the code needed.

Code:

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Microsoft notepad over word for saving important text files	Noclip1	Word	1	10-25-2017 10:55 PM
Copy text with tab at start of line and paste to Notepad	JohnTurnbull	Word	5	08-27-2017 11:17 PM
Formula Help for Dividing Properly	lonniepoet	Excel	8	12-17-2015 12:27 PM
Dividing line at top of document?	daviddoria	Word	0	10-24-2009 08:13 AM
Dividing by 100!	fkaramagi	Excel	2	01-30-2009 02:52 PM