Как достать информацию из таблицы

[breeve]

Есть документ состоящий из одной страницы, в начале есть немного текста и в конце, а по середине таблица. Как достать информацию из таблицы? Есть ли метод аля Text который возвращает текст из ячейки таблицы? Заранее благодарен за помощь.

ПС Гуглил нашел много кода с помощью которого можно создавать таблицу, а как ее просмотреть так и не нашел.

[Aent]

Плохо гулили...
Вывод текста из ячейки 2-й колонки 5-й строки 1-й таблицы активного документа:

Msgbox ActiveDocument.Tables(1).Cell(5,2).Range.Text

Учтите, что текст в конце будет содержать признак конца ячейки.

[breeve]

Сообщение от Aent

Плохо гулили...
Вывод текста из ячейки 2-й колонки 5-й строки 1-й таблицы активного документа
Учтите, что текст в конце будет содержать признак конца ячейки.

Спасибо, действительно в конце текста здоровенная точка.

А чтобы вытащить все данные из таблицы нужно по ячеечно это делать или есть какойто метод чтобы за раз).
Думаю надо двигаться в сторону циклов. Но вот только проблема такая возникла. Таблица у меня не простая, т.е НЕ в каждом столбце одинаковое кол-во строк. Как тогда мне получить все ячейки?

[shanemac51]

-выделите кусок таблицы и скопируйте в новый документ
-инфу можете удалить или заменить на ввв ааа ррр 111
-выложите полученный образец

[breeve]

Сообщение от shanemac51

-выделите кусок таблицы и скопируйте в новый документ
-инфу можете удалить или заменить на ввв ааа ррр 111
-выложите полученный образец

Вообще если быть точнее, то я пишу программу на сях, и мне нужно достать информацию из таблицы ворд чтобы потом ее можно было обрабатывать. Информацию я могу достать лишь в текстовом или цифровом видах.
И из всего VBA мне нужны только методы и свойства библиотеки ворд.
Смотрел на мсдн документацию но толком ничего не понял.
Привожу пример таблицы. 1-ая цифра - столбец, 2-ая строка. Где пунктир там ничего нет, и вместо цифр текст - это для ясности. Узнал что оказывается если ссылаться на 2-ую строку в 1-м столбце то он выдаст ошибку. И чтобы взять 2-ую ячейку нужно ссылаться к 3-ей строке. Проблема заключается в том что как найти сколько строк 2-го столбца пролегают напротив 1-ой ячейки 1-го столбца. Можно сделать так, перейти на след ячейку вниз (1-ый столбец) и далее узнать какая это строка. Но не метод перехода, не получение номера текуще строки не знаю.

[breeve]

Сообщение от breeve

или есть какойто метод чтобы за раз).

Это я имел ввиду метод, чтобы вывод его был примерно таков:
"1 1*1 2*1 3/2 1*...*9 2*9 3" где звездочка это переход на след ячейку в этой строке, а слеш на след строку.

[Ципихович Эндрю]

cursor_row = oDocument.Windows(1).Selection.Rows .First.Index 'номер строки в таблице, в документе, где расположен курсор
или
cursor_row = ActiveDocument.Selection.Rows.First .Index

[Ципихович Эндрю]

Думаю надо двигаться в сторону циклов. Но вот только проблема такая возникла. Таблица у меня не простая, т.е НЕ в каждом столбце одинаковое кол-во строк. Как тогда мне получить все ячейки


Для этого есть цикл Фор еах - До тех пор или сначала узнать сколько, а затем делать цикл

[shanemac51]

вывод из нерегулярной таблицы

Sub m110218_0521()
Dim c1 As Cell, j1
Word.ActiveDocument.Tables(1).Select
With Selection
For Each c1 In .Cells
j1 = Len("" & c1.Range.Text)
If j1 > 2 Then
If Mid(c1.Range.Text, j1, 1) < Chr(32) Then
j1 = j1 - 1
End If
If Mid(c1.Range.Text, j1, 1) < Chr(32) Then
j1 = j1 - 1
End If
Debug.Print c1.ColumnIndex, c1.RowIndex, Mid(c1.Range.Text, 1, j1)
End If
Next c1
End With
End Sub