Vba und Arrays

Hiho,

ich habe da ein Problem mit Vba und einem Array.

Ich will Einträge die in einer Exceltabelle stehen in ein Wordformular einfügen lassen.

Ich habe bisher nur das hier:

Sub ExcelSheetToArray()

Const Blatt = "Tabelle1"

Dim xlMappe As Object

Set xlMappe = GetObject("C:\Eigene Dateien\Formular\Exceltest.xls")

MaxRows = xlMappe.Worksheets(Blatt).Cells.SpecialCells(11).Row

MaxCols = xlMappe.Worksheets(Blatt).Cells.SpecialCells(11).Column

ReDim x(MaxRows, MaxCols)

For RowIndex = 1 To MaxRows

For ColIndex = 1 To MaxCols

x(RowIndex, ColIndex) = xlMappe.Worksheets(Blatt).Cells(RowIndex, ColIndex).Value

Next ColIndex

Next RowIndex

xlMappe.Parent.Quit

MsgBox "Die Zelle A1 enthält folgenden Inhalt: "

ActiveDocument.EditType Type:=x

End Sub