¿Cómo grabar un macro relativo en Word?

Pues eso... Necesito grabar un macro que dé cierto formato de
posición y tamaño a los cuadros de texto de varias páginas de un
documento. Pensé que lo mejor sería grabar un macro con las
definiciones necesarias y lo hice. Funciona bien, pero sólo para la
página en que el macro se grabó. Hurgando en el código, veo una
declaración como esta:

ActiveDocument.Shapes("Text Box 19").Select

y otras dos similares después de los códigos respectivos a cada
TextBox:

ActiveDocument.Shapes("Text Box 4").Select
ActiveDocument.Shapes("Text Box 5").Select

Me parece que allí está el problema, sin ser un experto en VBA.

La selección queda persistente en los TextBox sobre los que se grabó
el macro (19, 4 y 5). Mi interés es situar el cursor en distintas
páginas, ejecutar el macro, y que los comandos de estilo de los
cuadros de texto, se aplique a los de esa página en cuestión.

¿Se puede hacer esto en Word? En Excel es re fácil, pero no he
encontrado nada parecido acá.

Gracias

Luis Carvacho B.

Luis,

Resulta un poco difícil opinar sin leer toda la macro, porque se puede
presuponer erróneamente.
Por ejemplo ¿por qué no usas ActiveDocument.Shapes.SelectAll ?

¿Has preguntado en el foro especializado de Word?
news://news.microsoft.com/microsoft.public.es.word


menteAtenta,
Pilar Mueckay [MVP - Office]
Ecuador
**** Gracias por votar si las aportaciones contestaron su pregunta o le

ayudado ****




En news:,
Luis Carvacho escribió:
> Pues eso... Necesito grabar un macro que dé cierto formato de
> posición y tamaño a los cuadros de texto de varias páginas de un
> documento. Pensé que lo mejor sería grabar un macro con las
> definiciones necesarias y lo hice. Funciona bien, pero sólo para la
> página en que el macro se grabó. Hurgando en el código, veo una
> declaración como esta:
>
> ActiveDocument.Shapes("Text Box 19").Select
>
> y otras dos similares después de los códigos respectivos a cada
> TextBox:
>
> ActiveDocument.Shapes("Text Box 4").Select
> ActiveDocument.Shapes("Text Box 5").Select
>
> Me parece que allí está el problema, sin ser un experto en VBA.
>
> La selección queda persistente en los TextBox sobre los que se grabó
> el macro (19, 4 y 5). Mi interés es situar el cursor en distintas
> páginas, ejecutar el macro, y que los comandos de estilo de los
> cuadros de texto, se aplique a los de esa página en cuestión.
>
> ¿Se puede hacer esto en Word? En Excel es re fácil, pero no he
> encontrado nada parecido acá.
>
> Gracias
>
> Luis Carvacho B.