Mail Merge for Powerpoint

mailmergeppt.vba

Sub MailMergeFromFile()
    Dim hf As Integer: hf = FreeFile
    Dim lines() As String, i As Long
    
    Open "c:\users.txt" For Input As #hf
        lines = Split(Input$(LOF(hf), #hf), vbNewLine)
    Close #hf
    
    For i = 0 To UBound(lines)
        ' MsgBox "Line" & i & "=" & lines(i)
        ActivePresentation.Slides.Range(1).Copy
        Set ss = ActivePresentation.Slides.Paste
        ss.Shapes(2).TextFrame.TextRange = lines(i)
    Next
End Sub