Visual Basic con Word
Hola amigos:
Tengo una gran e inmensa duda acerca del manejo
de word en visual basic. Necesito traspasar datos
que proceso en vb a word, ¿como lo hago?.
Por favor si alguien me puede guiar en esto, por
lo menos necesito saber como ejecuto word desde vb.
De antemano,
muchas gracias.
saludos, Ran
Tengo una gran e inmensa duda acerca del manejo
de word en visual basic. Necesito traspasar datos
que proceso en vb a word, ¿como lo hago?.
Por favor si alguien me puede guiar en esto, por
lo menos necesito saber como ejecuto word desde vb.
De antemano,
muchas gracias.
saludos, Ran
Mira si esto te sirve para abrit documento de Word:
Option Explicit
Public i As Integer, j As Integer
Public Midocbase As Word.Application
Public Midoc As Word.Document
Public micelda As Cell, c As Cell
Public mitabla As Tables
Public mirango As Range
Sub Setup()
On Error Resume Next 'ignorar errores
Set Midocbase = GetObject(, "word.Application") 'buscar una copia de Word en ejecución
If Err.Number <> 0 Then 'Si no se ejecuta Word
Set Midocbase = CreateObject("word.Application") 'ejcutarlo
End If
Err.Clear ' Borrar el objeto Err si se produce un error.
On Error GoTo 0 'Reaunudar el procesamiento normal de errores
Set Midoc = Midocbase.Documents.Open(App.Path & "tablanueva")
Midoc.Activate
End Sub
Sub CleanUp()
' Esto fuerza la descarga de Microsoft Word
' suponiendo que no lo hayan cargado otras aplicaciones u otros usuarios.
Set Midocbase = Nothing
Set Midoc = Nothing
End Sub
sub manejar_documento()
Midocbase.Visible = True
Set c = Midoc.Tables(2).Cell(Row:=1, Column:=1)
c.Range.InsertAfter dtf(5).Text ' selecciona la primera celda y escribe un dato
Lo mismo puedes hacer con un párrafo del documento o cualquier otro elememto del mismo, modificarlo, añadir, etc.
Tienes que tener la referencia Microsoft Word 9.0 (8.0 en Office 97) Objet Library
Una vez la tengas ve al examinador de objetos, selecciona Word y revisa la ayuda.
Espero te sirva. Saludos.
Option Explicit
Public i As Integer, j As Integer
Public Midocbase As Word.Application
Public Midoc As Word.Document
Public micelda As Cell, c As Cell
Public mitabla As Tables
Public mirango As Range
Sub Setup()
On Error Resume Next 'ignorar errores
Set Midocbase = GetObject(, "word.Application") 'buscar una copia de Word en ejecución
If Err.Number <> 0 Then 'Si no se ejecuta Word
Set Midocbase = CreateObject("word.Application") 'ejcutarlo
End If
Err.Clear ' Borrar el objeto Err si se produce un error.
On Error GoTo 0 'Reaunudar el procesamiento normal de errores
Set Midoc = Midocbase.Documents.Open(App.Path & "tablanueva")
Midoc.Activate
End Sub
Sub CleanUp()
' Esto fuerza la descarga de Microsoft Word
' suponiendo que no lo hayan cargado otras aplicaciones u otros usuarios.
Set Midocbase = Nothing
Set Midoc = Nothing
End Sub
sub manejar_documento()
Midocbase.Visible = True
Set c = Midoc.Tables(2).Cell(Row:=1, Column:=1)
c.Range.InsertAfter dtf(5).Text ' selecciona la primera celda y escribe un dato
Lo mismo puedes hacer con un párrafo del documento o cualquier otro elememto del mismo, modificarlo, añadir, etc.
Tienes que tener la referencia Microsoft Word 9.0 (8.0 en Office 97) Objet Library
Una vez la tengas ve al examinador de objetos, selecciona Word y revisa la ayuda.
Espero te sirva. Saludos.
