Reinaldo aqi esta tu respuesta, voy a poner todo desde el principio en caso de que alguien no sepa manejar word desde visual, en realidad a mi me costo mucho encontrar informacion sobre el tema, asi que espero que les sirva....
saludos
Dim DocDeWord As Object
Dim UnArchivo As String
Dim strRuta As String
On Error Resume Next
Set xWord = GetObject(, "Word.Application")
If Err.Number = 429 Then
Err.Clear
Set xWord = CreateObject("Word.Application")
End If
'Ruta de un archivo exsitente
UnArchivo = App.Path & "\documento.doc" 'PON AQUI EL NOMBRE DEL ARCHIVO
'Verificamos que exista el archivo
If Len(Dir(UnArchivo)) > 0 Then
'Abrimos un libro existente
Set DocDeWord = xWord.Documents.Open(UnArchivo)
With xWord.Selection
.Tables.Add .Range, 2, 6 '2 filas,6 columnas
.Tables(1).Cell(1,1).Select
.TypeText "Hola1"
.Tables(1).Cell(1,2).Select
.TypeText "hola2"
End With
xWord.Visible = True
Else
MsgBox "El archivo no existe"
End If
End Sub
Espero que les sirva, de todas maneras mas consultan escriban a mi mail....
