' Grid = MSHFlexGrid
 
    Dim objWRDDOC As Word.Document
    Set objWRDDOC = New Word.Document
    objWRDDOC.Content.InsertFile "C:\Dokument.doc"
 
    Dim varTable As Variant
    Dim varRow As Variant
    Dim varCol As Variant
    Dim varText As Variant
 
    For Each varTable In objWRDDOC.Tables
        Grid.Rows = varTable.Rows.Count
        Grid.Cols = varTable.Columns.Count
        For Each varRow In varTable.Rows
        For Each varCol In varTable.Columns
            varText = varTable.Cell(varRow.Index, varCol.Index).Range.Text
            varText = Replace(varText, Chr(13), vbNullString)
            varText = Replace(varText, Chr(7), vbNullString)
            Grid.TextMatrix(varRow.Index - 1, varCol.Index - 1) = varText
        Next varCol
        Next varRow
    Next varTable
 
    objWRDDOC.Close False
    Set objWRDDOC = Nothing

Ohne Mampf, kein Kampf !