Работ с массивами в Word (VBA)

[shabbiness]

Передо мной стоит следующая задача. Имеется doc-файл, в котором занесена следующая информация вида:

Номер точки;Координата Х;Координата У
1;50.1;-50.1
2;100.2;-100.2
3;150.3;-150.3
4;200.4;-200.4
5;250.5;-250.5
6;300.6;-300.6
7;350.7;-350.7
1;50.1;-50.1

Мне нужно (а может и не нужно, см. ниже) сделать три символьных массива:
1 - всё от начала до первой ; каждой строки
2 - всё от первой до второй; каждой строки
3 - всё от второй ; до конца каждой строки
А затем поместить отдельно взятый элемент любого из массивов в заданную ячейку таблицы.

Меня конкретно интересует, как считать информацию, ограниченную ; или началом, концом строки. И что лучше с ней сделать, закинуть в буфер и вставить в ячейку, или присваивать элементу массива, а потом вставлять?

[Serge_Bliznykov]

а просто выделить текст, в меню - Таблица - Преобразовать текст в таблицу - разделитель ;
Вас не устроит?

[shabbiness]

скорее всего нет, потому что все эти значения нужно будет распихать по шаблонной таблице, где ещё много чего, плюс, скорее всего, придётся ещё и расстояния вычислять

[Serge_Bliznykov]

ок.
можно, конечно, написать код, используя строковые функции ( Pos = InStr(s, ";") и Left(...) или Mid(...)

но можно и доверить парсинг строки самому VBA.
вот, попробуйте такой код:

Sub test1()
  Dim s As String, a As Variant, i As Long
  s = "1;50.1;-50.1"
  a = Split(s, ";")
  For i = LBound(a) To UBound(a)
    MsgBox Str(i) & "-й элемент массива = " & a(i)
  Next i
End Sub

[shabbiness]

я условие задачи немного неправильно написал, doc-файлов может быть несколько и координаты могут быть разными, т.е. массив может заполниться только после считывания данных