Diseñar tablas en word desde vb6.0

[zabait]

Ahí va mi código de algunas de las funciones que utilizo para generar word.

En este caso solo os pondré las referentes al manejo de tablas

Se encsitan dos variables:

appWord word.application
docWord word.document

Código:

Function docCrearTabla(numcols As Integer, numrows As Integer)

    docWord.Tables.Add Range:=appWord.Selection.Range, numrows:=numrows, NumColumns:=numcols
        
    With appWord.Selection.Tables(appWord.Selection.Tables.Count)
        If .Style <> "Tabla con cuadrícula" Then
            .Style = "Tabla con cuadrícula"
        End If
        
        .Columns(1).Width = 230    
        .Columns(2).Width = 75     
        .Columns(3).Width = 50     
        .Columns(4).Width = 75     
                
    End With

End Function

Function docCombinarCeldas(numceldas As Integer)

    appWord.Selection.MoveRight Unit:=wdCharacter, Count:=numceldas, Extend:=wdExtend
    appWord.Selection.Cells.Merge
    
End Function

Function docFormatearPrimeraLineaTabla(numtablas As Integer)

    Dim i As Integer
    
    For i = 1 To appWord.Selection.Tables(appWord.Selection.Tables.Count).Columns.Count
'        appWord.Selection.Tables(appWord.Selection.Tables.Count).Cell(0, i).Row.Alignment = wdAlignRowCenter
        appWord.Selection.Tables(appWord.Selection.Tables.Count).Cell(1, i).Row.Borders.InsideLineWidth = wdLineWidth150pt
        appWord.Selection.Tables(appWord.Selection.Tables.Count).Cell(1, i).Row.Borders.OutsideLineWidth = wdLineWidth150pt
        appWord.Selection.Tables(appWord.Selection.Tables.Count).Cell(1, i).Shading.BackgroundPatternColor = wdColorGray30
    Next
    
End Function

Con esto ya puedes jugar un rato, no????