reading files in array

[Maga Circe]

i use this code for importing a file csv into an array

Do While Not EOF(1)
i = i + 1
Line Input #1, cRecord
tRec = Split(cRecord, ",")
for j = 1 to 5
tRin(i, j) = tRec(j)
next
Loop

can i use the code

Set fs = CreateObject("Scripting.filesystemobject")
Set ts = fs.GetFile(strFile).OpenAsTextStream(1, -2)
strTable = ts.readall

amd put into an array all the strTable at once?
i can do it in excel if i put a table variant and then the range.value into
it, but how in word?

 

[Russ]

It might be better to open it in Excel first and format and sort it there
first and then open it as a worksheet in Word.