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

Una Macro para todas las paginas
http://www.corelforum.corelclub.org/viewtopic.php?f=4&t=17682		 Página 1 de 1
Autor:  Charly77 [Jue, 17 Jun 2021, 23:28 ]
Asunto:  Una Macro para todas las paginas
Hola

Como puedo ejecutar una Macro a todas las paginas del un documento.
Ejemplo facil.... que me seleccione todos los objetos de la pagina y los agrupe.
Tengo hecha la macro, pero solo la ejecuta en la pagina activa.... como puedo hacer para que se ejecute en todas las paginas del documento, independiente de las paginas que tenga dicho documento.

Gracias
Autor:  diannlawton [Mié, 18 May 2022, 11:31 ]
Asunto:  Re: Una Macro para todas las paginas
Citar:
Hola

Como puedo ejecutar una Macro a todas las paginas del un documento.
Ejemplo facil.... que me seleccione todos los objetos de la pagina y los agrupe.
Tengo hecha la macro, pero solo la ejecuta en la pagina activa.... como puedo hacer para que se ejecute en todas las paginas del documento, independiente de las paginas que tenga dicho documento.

Gracias
Hola!!! alguien q me aconseje ??? :)
Autor:  Corel Macros [Vie, 20 May 2022, 03:44 ]
Asunto:  Re: Una Macro para todas las paginas
Sub Group_4_all_pages()
Dim p As Page, sr As ShapeRange
On Error Resume Next

For Each p In ActiveDocument.Pages
p.Activate
Set sr = ActiveLayer.Page.Shapes.All.ReverseRange
If sr.count = 0 Then MsgBox "no hay objetos en la página(" & p.Index & ")", vbInformation
sr.Group
Next p

End Sub
Página 1 de 1 Todos los horarios son UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/