imprimir Word desde excel

hola, José Rafael !

(creo que) te saldria mas "barato" (y por mucho) usar la combinacion de correspondencia en directo desde word -?-
solo necesitas indicar que el origen de los campos es tu archivo de excel ;)

saludos,
hector.

__ la consulta original __

Se podria establecer un codigo desde una hoja de excel donde estan relacionadas y con un hipervinculo
que abra 365 cartas en formato RTF de word y las imprima automaticamente?
Me imagino un bucle y saltando de una aplicacion a otra (Excel a Word...) No se ...
Las cartas las tengo en una carpeta llamada C:\Informacion de los clientes que han consumido en 2007 con los precios actualizados\
y libro se llama "Hipervinculo de los consumos de los clientes en word de 2007", la hoja "hoja1"
Copio los datos de la hoja x columnas y ejemplo...

Titulos de las columnas: + EJEMPLO

A - Ruta C:\Informacion de los clientes que han consumido en 2007 con los precios actualizados
B - Nombre E41-AC~1.RTF
C - Tamaño 10.915
D - Fecha Modif. 30-01-08
E - Nombre largo E41-ACE CARAVANAS, S.A..rtf
F - (Vacia)
G - Hipervinculo: E41-AC~1.RTF\E41-ACE CARAVANAS, S.A..rtf
H - Terminación *.rtf
I - Letras E

Hola Héctor:
Una vez mas no he sabido explicarme. Lo siento. Veamos ahora...
El informatico de mi empresa me ha enviado 365 documentos en word que
contienen los consumos de articulos de mis clientes durante el 2007.
Normalmente los enviaba en un bloque de word, es decir en 365 páginas, pero
esta vez me lo ha enviado en 365 documentos independientes que para imprimir
tengo que abrirlos uno a uno e imprimirlos.
Pero yo tengo un código en excel (lo conseguí en este foro) que me permite
listar en una hoja todos los archivos de una terminacion determinada que se
encuentren en una carpeta (ó en el PC).
Ese listado con los 365 documentos lo tengo ya listado en un libro de excel
y en la columna G he puesto una fórmula de hipervinculo que me permite abrir
(y elegir) cada documento por su nombre y despues imprimirlo. Pero esta
rutina tambien es muy "fatigosa" y por eso he solicitado la automatización
mediante un código VBA.
He intentado grabar una macro con el proceso que hago pero no registra el
hecho de pulsar el hipervinculo, imprimir, volver a la hoja excel, elegir un
segundo documentopor su hipervinculo e imprimirlo y así sucesivamente.
¿Sería posible hacerlo?. He ahí mi pregunta y solicitud... si no fuera
posible, pues nada lo seguiría haciendo a mano...
Saludos y gracias
José Rafael



"Héctor Miguel" escribió en el mensaje
news:%

hola, José Rafael !

(creo que) te saldria mas "barato" (y por mucho) usar la combinacion de
correspondencia en directo desde word -?-
solo necesitas indicar que el origen de los campos es tu archivo de excel
;)

saludos,
hector.

__ la consulta original __

Se podria establecer un codigo desde una hoja de excel donde estan
relacionadas y con un hipervinculo
que abra 365 cartas en formato RTF de word y las imprima automaticamente?
Me imagino un bucle y saltando de una aplicacion a otra (Excel a Word...)
No se ...
Las cartas las tengo en una carpeta llamada C:\Informacion de los
clientes que han consumido en 2007 con los precios actualizados\
y libro se llama "Hipervinculo de los consumos de los clientes en word de
2007", la hoja "hoja1"
Copio los datos de la hoja x columnas y ejemplo...

Titulos de las columnas: + EJEMPLO

A - Ruta C:\Informacion de los clientes que han
consumido en 2007 con los precios actualizados
B - Nombre E41-AC~1.RTF
C - Tamaño 10.915
D - Fecha Modif. 30-01-08
E - Nombre largo E41-ACE CARAVANAS, S.A..rtf
F - (Vacia)
G - Hipervinculo: E41-AC~1.RTF\E41-ACE CARAVANAS, S.A..rtf
H - Terminación *.rtf
I - Letras E

hola, Jose !

El informatico de mi empresa me ha enviado 365 documentos en word que... los enviaba en un bloque... es decir en 365 paginas
... esta vez me lo ha enviado en 365 documentos independientes que... tengo que abrirlos uno a uno e imprimirlos.
... tengo un codigo... me permite listar en una hoja todos los archivos de una terminacion determinada... en una carpeta (o en el PC).
... en la columna G he puesto una formula de hipervinculo que me permite abrir... cada documento... y despues imprimirlo.
... esta rutina tambien es muy "fatigosa" y por eso he solicitado la automatizacion mediante un codigo VBA.
... grabar una macro con el proceso... no registra... pulsar el hipervinculo, imprimir, volver a... excel, elegir un segundo documento ...

el siguiente ejemplo "asume" que seleccionas un rango de celdas que contiene el nombre de cada archivo a imprimir en word
abre una instancia de word (por automatizacion)... abre cada archivo, lo imprime, lo cierra, y al finalizar el ultimo cierra el word

OJO: se espera que cada celda contenga la ruta completa (p.e.) -> c:uta y sub\carpetas a\cada archivo.xyz
si no es asi como tienes cada celda en excel, deberas adaptar la linea del .Documents.Open para que la ruta este incluida

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Sub Imprime_varias_cartas()
Dim Celda As Range
With CreateObject("word.application")
For Each Celda In Selection
With .Documents.Open(Celda.Text)
.PrintOut
.Close
End With
Next
.Quit
End With
End Sub