** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - Copiar datos desde word
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Copiar datos desde word

 Responder Responder
Autor
Mensaje
raul461 Ver desplegable
Nuevo
Nuevo


Unido: 12/Julio/2020
Localización: 28008, Madrid
Estado: Sin conexión
Puntos: 2
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita raul461 Cita  ResponderRespuesta Enlace directo a este mensaje Tema: Copiar datos desde word
    Enviado: 12/Julio/2020 a las 13:49
Buenos días.
Tengo una consulta a ver si me podéis ayudar por favor !!

Estoy haciendo una macro para enviar un mail desde excel pero uno de las partes del mail debe ser el contenido de un word. Y no lo consigo hacer.

Primero abro el mail con CreateObject("Outlook.Application")
creo el .Subject, ..
Y si una celda es NO entonces escribo solo que es "no residente" manteniendo la firma de origen con: 
If Range("C12").Value = "NO" Then
        Correo.HTMLBody = strHTMLBody & "<br>no residente" & Correo.HTMLBody
end if

PEROOOOO... realmente lo que tiene que poner es "no residente" seguido de un texto que es el contenido de un word y que además lleva un par de imágenes.

Entonces, de momento lo he abierto con   Documents.Open fileName:="c:\\......."

Pero me faltaría copiar el texto completo de ese word y luego pegarlo después de "no residente", pero no se como ..
socorrooooooo

Saludos a todos/as

Arriba
lbauluz Ver desplegable
Administrador
Administrador
Avatar

Unido: 29/Marzo/2005
Localización: Binghamton Jail
Estado: Sin conexión
Puntos: 3583
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita lbauluz Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 13/Julio/2020 a las 20:08
Como esto no es Access sino Excel o Word, lo muevo al foro correspondiente.

Luis
Hay un culto a la ignorancia y siempre lo ha habido y es alimentado por la falsa noción de que democracia significa que "mi ignorancia es tan buena como su conocimiento". (Isaac Asimov)
Arriba
raul461 Ver desplegable
Nuevo
Nuevo


Unido: 12/Julio/2020
Localización: 28008, Madrid
Estado: Sin conexión
Puntos: 2
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita raul461 Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 13/Julio/2020 a las 21:29
uy perdón. mil gracias
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable