RE:insertar tablas en Word desde VB
\'Creamos las var q se utilizaran para la aplicasion de word
Private Sub Command2_Click()
Dim Hoja As Word.Document
Dim ApWord As Word.Application
Dim docword As Word.Document
Set ApWord = CreateObject(\"Word.Application\")
Set Hoja = ApWord.Documents.Add
With ApWord.Selection
.Tables.Add .Range, 4, 6 \'Creamaos una tabla de 4 X 6
.Tables(1).Rows.Add \'adicionamos una columna para que sea una tabla de 5 X 6
.Tables(1).Rows(1).Select \'Seleccionamos la 1° fila
\'Debemos entrar a la columna la celdas para escribir ¿no?
.Font.Bold = True \'Le ponemos negritas
.Tables(1).Cell(1, 1).Select \'nos posicionamos en la celda 1,1
.TypeText \"Marca\" \'Escribimos
.Tables(1).Cell(1, 2).Select \'nos posicionamos en la celda 1,2
.TypeText \"Modelo\" \'Escribimos
.Tables(1).Cell(1, 3).Select \'nos posicionamos en la celda 1,3
.TypeText \"Color\" \'Escribimos
.Tables(1).Cell(1, 4).Select \'nos posicionamos en la celda 1,4
.TypeText \"Año\" \'Escribimos
.Tables(1).Cell(1, 5).Select \'nos posicionamos en la celda 1,5
.TypeText \"Puertas\" \'Escribimos
.Tables(1).Cell(1, 6).Select \'nos posicionamos en la celda 1,6
.TypeText \"Patente\" \'Escribimos
.MoveEnd
.MoveDown \'salimos de la tabla
End With