#1
|
|||
|
|||
Dividing Text From Notepad to Powerpoint
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.)
|
#2
|
|||
|
|||
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 |
Tags |
#essay, #school |
Thread Tools | |
Display Modes | |
|
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 |