ADA - visual basic para aplicaciones

Sub CopiarInformacion()

    Dim objWord As Object

    Dim objPowerPoint As Object

    Dim wdDoc As Object

    Dim pptPres As Object

    ' Abre el documento de Word '

    Set objWord = CreateObject("Word.Application")

    objWord.Visible = True ' Si deseas que el documento de Word sea visible '

    Set wdDoc = objWord.Documents.Open("Ruta\del\Documento.docx") ' Reemplaza con la ruta de tu documento de Word '

    ' Copia la información desde la hoja de cálculo '

    ThisWorkbook.Sheets("NombreDeLaHoja").Range("RangoDeCeldas").Copy

    ' Pega la información en el documento de Word '

    wdDoc.Content.PasteSpecial Link:=False, DataType:=wdPasteText

    ' Cierra el documento de Word '

    wdDoc.Close SaveChanges:=True ' Cambia a False si no deseas guardar los cambios '

    ' Abre PowerPoint y pega la información '

    Set objPowerPoint = CreateObject("PowerPoint.Application")

    objPowerPoint.Visible = True ' Si deseas que PowerPoint sea visible '

    Set pptPres = objPowerPoint.Presentations.Open("Ruta\de\la\Presentacion.pptx") ' Reemplaza con la ruta de tu presentación de PowerPoint '

    ' Pega la información en la presentación de PowerPoint '

    pptPres.Slides(1).Shapes.PasteSpecial DataType:=2 ' Cambia el índice del slide según tu necesidad '

    ' Cierra la presentación de PowerPoint '

    pptPres.Close SaveChanges:=True ' Cambia a False si no deseas guardar los cambios '

    ' Cierra las aplicaciones de Word y PowerPoint '

    objWord.Quit

    objPowerPoint.Quit

End Sub