Enviado por flipyado el Mié, 03/08/2005 - 01:57.
saludos al foro.
Estoy buscando infromacion para saber como puedo pegar una foto al comienzo del texto de 500 archivos de word,sin tener que ir abriendo yo mismo uno por uno y pegandola.gracias
»
- Añadir nuevo comentario
- 19869 lecturas
Debes estudiar algo de VBA
... aunque la mayor parte del trabajo te lo hará la grabadora de macros. Prueba lo siguiente:
Hasta ahora lo único que tienes es una macro que te permite insertar la imagen en un determinado documento.
Comprueba que la macro se ejecuta correctamente. Debería insertar otra foto en el mismo documento y no dar ningún error durante su ejecución.
Ahora pasa a estudiar el código que ha generado la macro; no tengo Word a mano (hace tiempo que uso GNU/Linux en vez de Windows) pero creo recordar que es algo así como Herramientas -> Macros -> Editar macros.
Verás que el código generado por la macro es bastante comprensible (english Almodovar Style):-)
Se trataría de que sustituyeses el nombre del archivo por una variable. Y todo el código ejecutarlo dentro de un bucle que recorra una lista con los nombres de todos tus 500 archivos, para asignar cada vez un nombre de archivo diferente a la variable.
Si alguna vez has estudiado cualquier lenguaje de programación eso no te será difícil.
Lo bonito sería que, por ejemplo, la lista de nombres la obtuviese leyendo todos los .doc de un directorio. Con la ayuda del Visual Basic del Office y un poco de estudio de los objetos y sus propiedades y métodos, deberías encontrar la manera de hacerlo. todo el tiempo que inviertas en ello te lo ahorrarás cuando debas hacer algo parecido.
No dispongo de referencias on-line para estudiar esas materias, aunque como material impreso aquí tengo una bibliografía recomendada (orientada a Excel y Access, pero es más de lo mismo)
De todas maneras, una búsqueda en Google debería ofrecerte algún tutorial práctico que te ayude en tu labor.
Suerte en tu proyecto... ¡y pásate a OpenOffice.org!
Es GRATIS... es LEGAL... y sobre todo... ¡ES LIBRE!
:-)
--
"Sólo el conocimiento nos hace libres"