'Gera Slides
Sub lsGerarSlides()

    
    Dim lApresentacao       As Presentation 'Variável do objeto do powerpoint
    Dim lSlide              As Slide        'Variável do slide

   
    Dim Arquivo As Integer
    Dim CaminhoArquivo As String
    Dim Linha As String
    Set lApresentacao = ActivePresentation    'Seta o objeto do powerPoint para a apresentação ativa
    Set lSlide = lApresentacao.Slides(2)  ' Seta o Segundo slide como modelo para o projeto
    'Configura a leitura do arquivo
     Arquivo = FreeFile
    
    CaminhoArquivo = "C:\Users\crist\OneDrive\Documentos\AV BC\Ministérios\Cultos\Séries de Palavras\_ Quebrando Os Mitos do Sofrimento\02 Dor\powerpoint.txt"
 
    'Abre o arquivo para leitura
    Open CaminhoArquivo For Input As Arquivo
    
    'Lê o conteúdo do arquivo linha a linha
    Do While Not EOF(Arquivo) 'Lê linha a linha até o fim do arquivo
        Line Input #Arquivo, Linha 'carrega linha a linha do arquivo
     If Linha <> "" Then 'Se a linha não estiver vazia, então
        lSlide.Duplicate 'Duplica o slide atual
        Set lSlide = lApresentacao.Slides(lApresentacao.Slides.Count) 'torna o slide duplicado ativo
        lSlide.Shapes(1).TextFrame.TextRange = Linha  'Coloca a linha carregado do arquivo no slide
     End If
    Loop  'manda executar novamente para carregar a próxima linha
 
    'Fecha o arquivo
    Close Arquivo
 
End Sub