domingo, 2 de mayo de 2010

Visual basic para manejar tabla de word

Hola,
Voy a pegar aquí el código de una aplicación que he hecho para mandar texto desde VB-6 a una tabla de Word. Lo hago por si alguien buscando en san google se encuentra con este post y le viene bien.

Lo primero que hay que hacer es añadir al proyecto de Visual Basic referencia a Office y a Word.


Se hace clic sobre "Proyecto" y luego "Referencias" y se agregan, como se puede ver en la imagen.
 Mi aplicación tiene 4 textbox para meter el texto que se quiere enviar al documento word.
Un textbox (text6) lo utilizo para meter la ruta al archivo word que quiero abrir.
Mediante el botón: Command3 abro, escribo en la tabla del documento y por último guardo y cierro el documento:

Private Sub Command3_Click()
If Text1 = "" Or Text2 = "" Or Text3 = "" Or Text4 = "" Then
MsgBox "No has rellenado algún campo", vbInformation, "Información"
Else
Dim eword As Word.Application
Set eword = New Word.Application
eword.Documents.Open (Text6.Text)
eword.ActiveDocument.Sentences.Last.Next.Text = Text1
'(busco la última oración del documento y voy a la siguiente celda, después pego el texto de text1)
eword.ActiveDocument.Sentences.Last.Next.Text = Text2
'(lo mismo que para text1)
eword.ActiveDocument.Sentences.Last.Next.Text = Text3
eword.ActiveDocument.Sentences.Last.Next.Text = Text4
eword.ActiveDocument.Save
eword.Documents.Close
eword.Quit
End If
End Sub

Este post es copia de un topic creado por mi en mi foro de V. Basic. Ahora aquí le pongo imagen de como se añaden las referencias.

No hay comentarios: