Dim Tbl As Table

type1 = Selection.Type 
'если выделена таблица
If (type1 =  5 ) Then
    Set Tbl = Selection.Tables( 1 )
    '<всякие действия с таблицей>
Else
'если просто установлен курсор в любой ячейке таблицы
'или третий случай, что курсор вообще вне таблицы  
'как определить?
End If

        Dim Item As Table
    For Each Item In ActiveDocument.Tables()
        If Selection.InRange(Item.Range) Then
            'делаем что хотим
        End If
    Next

    Dim Item As Table
    If Selection.Information(wdWithInTable) Then
        MsgBox "Мы в таблице"
    End If
    For Each Item In Selection.Tables()
        MsgBox "Очередная таблица в выделенном"
    Next

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы