Sub que permite exportar desde una grilla MshFlexGrid a un documento Word.

Public Sub S_ExportarWord(ByVal Grilla As MSHFlexGrid) 'Exporta a Documento Word
'Se debe hacer referencia a la libreria Microsoft Word 11.0 object library, cualquier version
On Error GoTo Ocurrio_Error
Const ColCodigo = 1
Const ColNombre = 2
Const ColCodigoBarra = 3
Const ColColumnas = 4

Dim wdApp As Word.Application
Dim wdDoc As Word.Document

Dim ConvertirCodigoBarra As New ClsCodigoBarra

Dim Tabla As Table
Dim Fila As Long
Dim Columna As Integer
Dim Datos As Variant

Screen.MousePointer = 11

Set wdApp = New Word.Application
'
'wdApp.Visible = True

'Añadimos un Nuevo wdDoc de word
Set wdDoc = wdApp.Documents.Add

'creamos una tabla dentro del wdDoc
Set Tabla = wdDoc.Tables.Add(wdDoc.Range(0, 0), _
        Grilla.Rows, Grilla.Cols - 1)

For Columna = 0 To Grilla.Cols - 1
    Grilla.Row = 0
        For Fila = 0 To Grilla.Rows - 1
            Datos = Grilla.TextMatrix(Fila, Columna)
           
            If Columna = ColCodigoBarra And Fila > 0 Then
                Datos = ConvertirCodigoBarra.F_ConvertirCodigoBarra(CStr(Grilla.TextMatrix(Fila, 1)))
            End If
           
            Tabla.Cell(Fila + 1, Columna).Range.InsertAfter Datos
           
            If Columna = ColCodigoBarra And Fila > 0 Then
                Tabla.Cell(Fila + 1, Columna).Range.Font.Name = "EAN JK"
                Tabla.Cell(Fila + 1, Columna).Range.Font.Size = 55
                wdApp.Documents.Item(1).Tables(1).Cell(Fila + 1, Columna).Range.ParagraphFormat.Alignment = 1
            End If
           
        Next Fila

Next Columna

wdApp.Visible = True
'descargamos los objetos creados
Set wdApp = Nothing
Set wdDoc = Nothing
Set Tabla = Nothing

Screen.MousePointer = 0
Exit Sub
Ocurrio_Error:
Screen.MousePointer = 0
        MsgBox "Ocurrio un Error en Proc. S_ExportarWord: " & _
                Err.Description, vbCritical, "ERROR EN TRASPASO A WORD"
End Sub