El post que buscas se encuentra eliminado, pero este también te puede interesar

VBA macro enviar datos excel a texbox de word

Hola ya que veo que mucha gete pregunta sobre el tema pero nadie da respuesta a esta pregunta tan sencilla y basica, dejo un pequeño codigo para que se hagan una idea de como enviar datos de una hoja de excel o un formulario de excel a una plantila de word, muy util por ejemplo si se quiere imprimir en formularios preimpresos (como pueden ser facturas) con datos contenidos en una planilla de excel.

supongamos que tenemos un textbox midato.text creado en excel y lo queremos pasar a un texbox1.text creado en un documento de word, las posibilidades son muchas este es solo un ejemplo.

Previamente tendriamos que diseñar el textbox en word y guardar el archivo para pasarle luego los datos.
en el ejemplo el objeto midato.text lo cambio directamente por una cadena string metida a mano para no complicar el ejemplo pero recuerden que al hacer referencia al control de excel tienen que hacerlo con rutas absolutas por ejemplo frmForm.midato.text

Para que el codigo funcione tienen que tener referencia a la libreria de word, en el libro de excel donde creamos la macro, en el editor de VBA en el menu herramientas-->Referencia, buscamos y tildamos Microsoft Word 12 object library (tener en cuenta que la version 12 es de Word 2007 y el numero de version varia dependiendo de la version que tengamos instaldo de office, si luego queremos ejecutar la misma macro en otro equipo diferente del que lo venimos usando debe tener esa misma version de office instalada para que funcione.)

El codigo que pongo es solo como guia y tienen que adaptarlo a sus necesidades pero es lo basico necesario para que la macro funcione y haga lo que se supone que debe hacer.

Saludos y comenten que tal les fue....


Sub Pasar_datos_Wordl()
' esta rutina debe ir excel en un modulo o en el codigo de formulario o boton de comando elejido
Dim strWordArchivo As Variant
Dim i, r, intLineas As Integer
Dim appWord As Word.Application
Dim appDoc As Word.Document
Dim rngDoc As Word.Range


'dialogo abrir archivo de word y guardar en variable
strWordArchivo = Application.GetOpenFilename("Documentos Word (*.doc), *.doc"

'crear el objeto Word
Set appWord = CreateObject("Word.Application"
'Abrir Documento de word
Set appDoc = appWord.Documents.Open(strWordArchivo)
appWord.Visible = True

' Pasar datos al textbox creado en word
appDoc.textbox1.Text = "hola"
'appDoc.Activate

'Aqui iria tu codigo para imprimir el documento de word

'Aqui puedo ir tu codigo para guardar el documento en caso de ser necesario


'Cierro Documento word y cierro aplicacion word (Ojo fundamental cerrar los objetos creados si no
'al querer abrir de nuevo el mismo documento no se abre ya que quedo el proceso winword.exe abierto y clavado
appDoc.Close
Set appDoc = Nothing
appWord.Quit
Set appWord = Nothing

End Sub


Pd: Si quieren dejar puntos haganlo en el siguiente post, me faltan solo 8 puntos http://www.taringa.net/posts/videos/2753190/Miniserie-Tumberos-1-video-por-capitulo-para-ver-online.html luego de conseguir esos 8 puntos si quieren dejenlos directamente aca

5 comentarios - VBA macro enviar datos excel a texbox de word

@remington_phoenix
No sé cómo se usa pero gracias por la ayuda. Es programación de Macros verdad?
Bueno, yo no sé muy bien de esto pero buen tip y de gran ayuda, lo implementaré, van 10 pts.
@Deeze365
105 puntos y novato??
@serika
decime cual es el post y te dejo lo que falta