¿Cómo grabar un macro relativo en Word?

30/12/2004 - 18:40 por Luis Carvacho | Informe spam
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.
 

Leer las respuestas

#1 Pilar Mueckay [MVP - Office]
02/01/2005 - 16:07 | Informe spam
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 han
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.

Preguntas similares