MshFlexgrid a word sin lineas

[dwin]

hola. bueno, tengo un pequeño problema, encontre un codigo que me sirvio demasiado para poder exportar de mi MshFlexgrid a Word, y si lo hace, el problema es que no me pinta las lineas de la tabla donde deberia de estar y que siempre me deja un espacio en blanco antes de la primer columna, no se que podria hacer para solucionar esto..

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
...