:: Corel-FORUM :: WWW.CORELCLUB.ORG ::
http://www.corelforum.corelclub.org/

Seleccionar objeto a través de las páginas
http://www.corelforum.corelclub.org/viewtopic.php?f=4&t=3431		 Página 1 de 1
Autor:  Walder Martinez [Mié, 30 Mar 2011, 20:36 ]
Asunto:  Seleccionar objeto a través de las páginas
Hola amigos, quisiera saber si existe la opción de seleccionar un objeto que se repite en todas las páginas de un documento. El tema es que uso Corel muchas veces para editar PDF.. Y tengo un libro de 357 páginas con un mapa de bits en todas ellas y necesito eliminarlo. Y es más que engorroso seleccionar cada página, buscar el objeto y eliminarlo de a uno. Probé la función "buscar objetos" pero sólo busca en la página que se muestra actualmente. Si alguien tiene alguna ayuda se lo voy a agradecer. Un saludo desde Buenos Aires.
Autor:  Manuel Rivas [Jue, 31 Mar 2011, 12:14 ]
Asunto:  Seleccionar objeto a través de las páginas
Este pequeño macro elimina todos los bitmaps de todas las paginas:
Citar:
Sub deletebitmaps()

Dim sh As Shape, pg As Page

For Each pg In ActiveDocument.Pages
For Each sh In pg.Shapes
If sh.Type = cdrBitmapShape Then
sh.Delete
End If
Next sh
Next pg

End Sub
Autor:  Walder Martinez [Jue, 31 Mar 2011, 12:50 ]
Asunto:  Seleccionar objeto a través de las páginas
Citar:
Este pequeño macro elimina todos los bitmaps de todas las paginas:
Excelente! Mil gracias, Manuel! Se me ocurre algo, se podrá editar para que borre únicamente un bitmap de un nombre determinado? Especificando el nombre del bitmap sería posible? Muchas gracias por tu aporte..
Autor:  Manuel Rivas [Jue, 31 Mar 2011, 22:11 ]
Asunto:  Seleccionar objeto a través de las páginas
Citar:
Sub deletebitmaps()

Dim sh As Shape, pg As Page

For Each pg In ActiveDocument.Pages
For Each sh In pg.Shapes
If sh.Type = cdrBitmapShape And sh.Name = "nombredelbitmap" Then
sh.Delete
End If
Next sh
Next pg

End Sub
añade la parte que puse en negrita, la palabra nombredelbitmap la tienes que sustituir por el nombre real del bitmap conservando las comillas
Página 1 de 1 Todos los horarios son UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/