как узнать номер ячейки в таблице Ворда, где находится курсор?

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

Здравствуйте, собственно сабж, а также как считать содержимое этой ячейки?
Спасибо

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

неужели без цикла нельзя узнать:

Dim cl As Cell
Dim j1 As String
Dim j11111 As Integer

With ActiveDocument.Tables(1).Range
For Each cl In .Cells
j1 = cl.Range.Text
j11111 = j11111 + 1
Next cl
End With

[shanemac51]

Сообщение от Ципихович Эндрю

Здравствуйте, собственно сабж, а также как считать содержимое этой ячейки?
Спасибо

Sub w120327_1147()
Debug.Print Selection.Information(wdEndOfRangeRowNumber)
Debug.Print Selection.Information(wdEndOfRangeColumnNumber)

End Sub

Sub w120327_1147()
Dim jr, jc
jr = Selection.Information(wdEndOfRangeRowNumber)
jc = Selection.Information(wdEndOfRangeColumnNumber)
Debug.Print jr, jc, Selection.Tables(1).Rows(jr).Range.Cells(jc).Range.Text

End Sub

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

1е это номер строки
2е это номер ячейки в строке
а мне нужно номер ячейки в таблице

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

благодаря ответу мне более ничего и не надо

 'номер строки в таблице, в документе, где расположен курсор
    IntegerCursor_rowбыло = Selection.Rows.First.Index

    'номер столбца, а также ячейки в таблице, в документе, где расположен курсор, даже если ширина столбца, ячейки различается
    IntegerCursor_cellбыло = Selection.Cells(1).ColumnIndex
'''''''''''''''''стало
'номер строки в таблице, в документе, где расположен курсор, даже если ширина столбца, ячейки различается
    IntegerCursor_row = Selection.Information(wdEndOfRangeRowNumber)
    
'номер столбца, а также ячейки в таблице, в документе, где расположен курсор, даже если ширина столбца, ячейки различается
    IntegerCursor_cell = Selection.Information(wdEndOfRangeColumnNumber)

спасибо!!!!!!

[Вождь]

Веселая ветка

Эндрю, а чем не подходит Selection.Cells(1)? В частности .RowIndex и .ColumnIndex?

Зачем нужен номер, если уже есть сама ячейка? Если нужно запомнить "координаты" ячейки, то лучше RowIndex и ColumnIndex, с последующим доступом Table.Cell(R, C). Обращение Cells(N) и работает медленнее.

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

увы в другом месте прорвало, вопрос актуален
как узнать номер ячейки в таблице Ворда, где находится курсор?
как узнать количество ячеек в строке таблицы Ворда, и в случае когда таблица имеет объединённые ячейки по вертикали?

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

уважаемый Вождь все мои вопросы связаны так как наткунулся на таблицу, которая имеет объединённые ячейки по вертикали
Ваши ответы не смотрел...

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

посмотрел ответ Вождя, пришёл к выводу:

'номер строки в таблице, в документе, где расположен курсор, даже если ширина столбца, ячейки различается
    IntegerCursor_row = Selection.Information(wdEndOfRangeRowNumber)
    
'номер столбца, а также ячейки в таблице, в документе, где расположен курсор, даже если ширина столбца, ячейки различается
    IntegerCursor_cell = Selection.Information(wdEndOfRangeColumnNumber)

и

'номер строки в таблице, в документе, где расположен курсор, даже если ширина столбца, ячейки различается
    IntegerCursor_row = Selection.Cells(1).RowIndex
    
'номер столбца, а также ячейки в таблице, в документе, где расположен курсор, даже если ширина столбца, ячейки различается
    IntegerCursor_cell = Selection.Cells(1).ColumnIndex

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

[Вождь]

Сообщение от Ципихович Эндрю

...знать не последняя ли она...

Это уже другой вопрос
Вариант 1:

If Selection.Cells(1).Next Is Nothing Then MsgBox "Конец таблицы"

Вариант 2:

With Selection.Cells(1).Range
        If .End >= .Tables(1).Range.End - 1 Then MsgBox "Конец таблицы"
End With