Read Text and Output to Powerpoint

[max777]

I am trying to read a .txt file line by line, and output one line per slide.

Currently, in my powerpoint, I have one slide and one text box.

My logic for the vba is that it will create a new slide after reading each line, and print the new line from the .txt file onto the new slide.

However, I am getting an error on the line.

Sld.Shapes(1).TextFrame.TextRange.Text = strLine

Appreciate any help.

Sub ReadAsciiFile()
    
    Dim Pre As Presentation
    Dim Sld As Slide
    Dim FileName As String
    Dim FileNum As Integer
    Dim i As Integer
    Dim pptLayout As CustomLayout
    
    Set Pre = ActivePresentation
    
    ' edit this:
    FileName = "C:\Users\user\Desktop\veni.txt"
    
    Open FileName For Input As #1
    i = 1
    
    While EOF(1) = False
        Line Input #1, strLine
        
        If Not Len(strLine) = 0 Then
            Set pptLayout = ActivePresentation.Slides(1).CustomLayout
            Set Sld = ActivePresentation.Slides(1)
            Sld.Shapes(1).TextFrame.TextRange.Text = strLine
            Set pptSlide = ActivePresentation.Slides.AddSlide(i + 1, pptLayout)
            i = i + 1
        End If
    Wend
    Close #1
    
End Sub

[max777]

I managed to work it out.

1. Added the current slide template to Slide Master.
2. Applied slide template to current slide from Slide Master
3. Ran the script

Sub ReadAsciiFile()
     
    Dim Pre As Presentation
    Dim Sld As Slide
    Dim FileName As String
    Dim FileNum As Integer
    Dim i As Integer
    Dim pptLayout As CustomLayout
    Dim NewSld As Shape
     
    Set Pre = ActivePresentation
     
     ' edit this:
    FileName = "C:\Users\User1\Desktop\veni.txt"
     
    Open FileName For Input As #1


    i = 0
    While EOF(1) = False
        i = i + 1
        Line Input #1, strLine
        If Not Len(strLine) = 0 Then


            Set Sld = ActivePresentation.Slides(i)
            strLine = StrConv(strLine, vbProperCase)
            Sld.Shapes(1).TextFrame.TextRange = strLine
            MyString = UCase(Left(MyString, 1))
            Set pptLayout = ActivePresentation.Slides(i).CustomLayout
            Set pptSlide = ActivePresentation.Slides.AddSlide(i + 1, pptLayout)


        End If
    Wend
    Close #1
     
End Sub

I am trying to read a .txt file line by line, and output one line per slide.