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....
dijo:
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
luego de conseguir esos 8 puntos si quieren dejenlos directamente aca