Hi,

I want to read a line from a table cell into an array. Just can not figure
out how to read the lines into arrays.

This is what I´ve got so far from

http://mypage.bluewin.ch/reprobst/Wo...htm#Tabellen05

Sub WordTabelleNachEindimensionalenArray1()
Dim x() As String
Dim oTable As Table, Zelle As Cell If ActiveDocument.Tables.Count = 0
Then
MsgBox "Das Dokument enthält keine Tabelle.", vbInformation
Exit Sub
End If Set oTable = ActiveDocument.Tables(1)
ReDim x(1 To oTable.Range.Cells.Count)
i = 0 'Oder auch -1, wenn der Array bei "0" beginnen soll
For Each Zelle In oTable.Range.Cells
i = i + 1
strText = Zelle.Range.Text
x(i) = Left(strText, Len(strText) - 2)
Next Zelle
End Sub
I can save the whole cell into the array, but not just one line. How should
this be changed?

Thanks in advance for every help

Rob