Recorrer Imagenes de un archivo Word desde Excel

2 envíos / 0 nuevos
Último envío
Vyrtim
Imagen de Vyrtim
Offline
última acción: Hace 1 día 21 horas
alta: 13/07/2016 - 09:18
Puntos: 205
Recorrer Imagenes de un archivo Word desde Excel

Buenas a todos,

Estoy intentando recorrer todas las imagenes de un archivo word desde una macro vba en excel, pero parece que la coleccion Shapes del documento word esta vacía, a pesar de que efectivamente hay imagenes en el documento. En el código que pego al final, no entra en ningún momento en el bucle For y, por tanto, no me va mostrando los nombres de las imagenes.

¿Podría algún alma caritativa echarle un ojo al código que estoy utilizando para ver en qué estoy metiendo la pata?

Muchas gracias por adelantado y un saludo

Public Sub Sustituye_Graficos()

' Ejemplo de sustitución de una gráfica como imagen de un archivo Word preexistente

 

    Dim wrdApp As Word.Application

    Dim wrdDoc As Word.Document

    Dim wrdPath As String

    Dim wrdShape As Word.Shape

    Dim wrdPage As Word.Page

    Dim lastwrdPath As String

    Dim FSO As Scripting.FileSystemObject

   

    Application.ScreenUpdating = False

    

    Set FSO = New FileSystemObject

    

    ' Ruta del archivo

    wrdPath = "[...]" ' aqui la ruta del documento Word

    ' Ruta de la carpeta contenedora

    lastwrdPath = FSO.GetParentFolderName(wrdPath)

    

    ' Abrir el archivo Word

    Set wrdApp = CreateObject("Word.Application")

    Set wrdDoc = wrdApp.Documents.Open(wrdPath)

    

    wrdApp.Visible = True

    wrdApp.Activate

    

    For Each wrdShape In wrdDoc.Shapes

        MsgBox wrdShape.Name

    Next wrdShape

    

    Application.ScreenUpdating = True

    

End Sub

Vyrtim
Imagen de Vyrtim
Offline
última acción: Hace 1 día 21 horas
alta: 13/07/2016 - 09:18
Puntos: 205
Disculpad, ya he podido

Disculpad, ya he podido solucionarlo.

Un saludo a todos!