pongo el codigo que utilizo
Código:
Private Sub Command1_Click() 'Variable de tipo Aplicación de Word Dim o_Word As Word.Application 'Variable de tipo documento de Word Dim Documento As Word.Document ' variable para hacer referencia al párrafo Dim Parrafo As Table 'F es para recorrer la Fila y C para la Columna Dim F, C As Double 'Nuevo instancia del objeto Set o_Word = New Word.Application 'Agrega un Nuevo documento de word Set Documento = o_Word.Documents.Add 'Creamos una tabla dentro del nuevo documento Set Parrafo = Documento.Tables.Add(Documento.Range(0, 0), _ MSHFlexGrid1.Rows, MSHFlexGrid1.Cols) 'Hacemos visible el word o_Word.Visible = True 'Recorremos el MsHFlexgrid para agregar las columnas y filas a nuestra tabla For C = 0 To MSHFlexGrid1.Cols - 1 'Agregar columnas Parrafo.Cell(0, C + 1).Range.Text = MSHFlexGrid1.TextMatrix(0, C) 'Agregar filas For F = 0 To MSHFlexGrid1.Rows - 1 Parrafo.Cell(F + 1, C + 1).Range.Text = MSHFlexGrid1.TextMatrix(F, C) Next F Next C 'Eliminamos los objetos Set o_Word = Nothing Set Documento = Nothing Set Parrafo = Nothing Exit Sub
Gracias
...