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

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

вот код:

'условие если выделенное, курсор находится в таблице, тогда ...
If Selection.Information(wdWithInTable) = False Then
MsgBox$ "Курсор поставьте в любом месте внутри таблицы"
Else
Dim Sel As Selection
Set Sel = Selection
'Назад:
'условие, если выделена одна ячейка таблицы, тогда ...
If Sel.Range.Cells.Count = 1 Then _
MsgBox$ ActiveDocument.Range(Sel.Tables(1).Range.Start, Sel.Range.End).Cells.Count
'Selection.MoveRight Unit:=wdCell
'GoTo Назад
Set Sel = Nothing
End If

в прикреплённом файле если ставим курсор где написано "Курсор сюда" получаем верный ответ - 11 если убрать эту надпись, получаем ответ 10 - чудеса?!

[Пименов Александр]

Вставьте в модуль ThisDocument макрос

Public Sub NumCell()
Dim Sel As Selection
    Set Sel = Selection
    If Sel.Tables.Count > 0 Then
        MsgBox "Номер ячейки " & ActiveDocument.Range(Sel.Tables(1).Range.Start, Sel.Cells(1).Range.End).Cells.Count
    End If
End Sub

И проверте

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

ОК, я в шоколаде:

'условие если выделенное, курсор находится в таблице, тогда ...
If Selection.Information(wdWithInTable) = False Then
MsgBox$ "Курсор поставьте в любом месте внутри таблицы"
Else
Dim Sel As Selection
Set Sel = Selection
Назад:
'условие, если выделена одна ячейка таблицы, тогда ...
If Sel.Range.Cells.Count = 1 Then
MsgBox$ "Номер ячейки где находится курсор в таблице " & ActiveDocument.Range(Sel.Tables(1).Range.Start, Sel.Cells(1).Range.End).Cells.Count
Selection.MoveRight Unit:=wdCell
GoTo Назад
End If
Set Sel = Nothing
End If

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