таблица word

[i'm pissed]

имеем textbox в нем текст как этот текст поместить в таблицу word причем каждое слово в ячейку

[RayShade]

Вот такой вот код. Я мог что то напутать, так как по памяти пишу (а макросов я давно не писал уж ), но идея в любом случае примерно такая.

Код: Выделить всё

dim arr
split(text1.text,arr)
for i = 1 to ubound(arr)
activedocument.tables(1).columns(i).cells(1).range.text=arr(i)
next i


[A.A.Z.]

Код не проверял, но ошибку вижу :

Код: Выделить всё

Arr = Split(Text1.Text, " ")

И еще: по умолчанию всегда идет Option Base 0, поэтому надо писать For i = 0 To Ubound(Arr). А лучше - For i = LBound(Arr) To UBound(Arr)
PS это ни в коем случае не в обиду RayShade