Hola a todos, he encontrado este código, para des - enlazar imágenes vinculas en corel draw, como podría hacer para lograr que las imágenes se desvincularan pero en todas las páginas, el problema está donde dice: "For Each s In activepages.shapes" (en cada página activa) en vez de en todas las páginas del documento, por favor Jesús , FJLC o cualquier otra persona conocedora del tema nos eche una mano...


Sub batchBreakLink()

Dim s As Shape

For Each s In ActivePage.Shapes
If s.Type = cdrBitmapShape Then
If s.Bitmap.ExternallyLinked = True Then
s.Bitmap.ResolveLink
End If

End If
Next s

End Sub

Prueba con este código y nos cuentas:

Sub batchBreakLink()

Dim s As Shape
Dim m As Integer
Dim m As Integer
m = ActiveDocument.Pages.Count
'Aplica lo siguiente desde la página 1 hasta la última página
For n = 1 To m ' Debido a que m es el número de páginas del documento, entonces también es el número de la última página
ActiveDocument.Pages(n).Activate 'Activa la página n (en este caso la página 1)
'Desagrupa previamente todos los objetos
ActiveDocument.SelectableShapes.All.UngroupAllExFor Each s In ActivePage.Shapes
If s.Type = cdrBitmapShape Then
If s.Bitmap.ExternallyLinked = True Then
s.Bitmap.ResolveLink
End If

End If
Next s
Next n

End Sub

HOla Jesús, muchas gracias por responder, pero creo que te has equivocado de post, este post es del macro de desvincular imágenes enlazadas exteriormente en corel, el de "convertir todo a curvas" es el otro, pero te agradezco muchas gracias por responder....(este nuevo código me da error de complilación "m As Integer".....

Por favor, si no es mucho pedir, danos una mano, con este macro, de las imágenes, te lo vamos agradecer encarecidamente, pues funciona muy bien pero solo por página, no en todas las páginas del documento....saludos!!!

Me da error de compilación: ActiveDocument.SelectableShapes.All.UngroupAllExFor Each s In ActivePage.Shapes

Olvidé poner un "Enter", pruébalo de nuevo con este:
Sub batchBreakLink()

Dim s As Shape
Dim m As Integer
Dim n As Integer
m = ActiveDocument.Pages.Count
'Aplica lo siguiente desde la página 1 hasta la última página
For n = 1 To m ' Debido a que m es el número de páginas del documento, entonces también es el número de la última página
ActiveDocument.Pages(n).Activate 'Activa la página n (en este caso la página 1)
'Desagrupa previamente todos los objetos
ActiveDocument.SelectableShapes.All.UngroupAllEx
For Each s In ActivePage.Shapes
If s.Type = cdrBitmapShape Then
If s.Bitmap.ExternallyLinked = True Then
s.Bitmap.ResolveLink
End If

End If
Next s
Next n

End Sub