** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Otros Productos Microsoft
  Mensajes nuevos Mensajes nuevos RSS - ¿Cómo copio todos elementos de powerpoint a word?
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerrado¿Cómo copio todos elementos de powerpoint a word?

 Responder Responder Página  <12
Autor
Mensaje
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 11179
Enlace directo a este mensaje Enviado: 15/Mayo/2016 a las 21:24
Para ser la primera vez que programo en PW no queda mal ....  LOL

Option Explicit

Private Sub CopiarWord()
Dim n As Integer, WDoc As Object

    Set WDoc = CreateObject("Word.Application")
    WDoc.Visible = True
    WDoc.documents.Add
    

    For n = 1 To ActivePresentation.Slides.Count
        ActivePresentation.Slides(n).Select             ' Activate present slide
        ActiveWindow.Selection.SlideRange.Shapes.SelectAll
        ActiveWindow.Selection.Copy                     ' Copy to clipboard
        
        WDoc.Selection.endkey Unit:=6  'wdStory
        If n > 1 Then WDoc.Selection.InsertBreak Type:=7         'wdPageBreak
        WDoc.Selection.Paste
    
    Next n
    
    WDoc.activedocument.saveas2 FileName:="C:\Temp\DocumentoDiapo1.docx"
    WDoc.Quit
    Set WDoc = Nothing

End Sub


Obviamente será muy mejorable.  Tongue





Editado por Mihura - 15/Mayo/2016 a las 21:30
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
Josepo Ver desplegable
Asiduo
Asiduo


Unido: 25/Mayo/2006
Estado: Sin conexión
Puntos: 229
Enlace directo a este mensaje Enviado: 15/Mayo/2016 a las 21:57
Muchas gracias, así sale perfecto. Queda algo grande en cada hoja del word, no puedo redimensionarlo desde el word si no es objeto a objeto, se me sale por el margen de la derecha. No sé si se puede indicar en la instrucción de pegado que de alguna manera lo haga un poco más pequeño. 
Pero bueno, lo que es copiar el contenido de las diapositivas y pegarlo, lo hace perfectamente
Aplaudir
Arriba
 Responder Responder Página  <12
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable