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
Disculpad, ya he podido solucionarlo.
Un saludo a todos!