Как обратиться к текущей таблице

Это ведь обращение к первой таблице из коллекции таблиц, разве не так?
А нужно - к той таблице, где установлен курсор (что-то вроде ActiveCell в Excel).

Кстати, если курсор находится в начале первого абзаца под таблицей, т.е. визуально не в таблице, Selection.Tables(1) все равно имеет место быть, и указывает на таблицу над курсором. Приведенная мной выше функция обходит это несоответствие.

Попробовал следующий макрос, выделяющий первую строку таблицы, где находится курсор:

Sub ThisTable1()
    Selection.Tables(1).Rows(1).Select
End Sub

Все работает прекрасно (и когда курсор просто стоит на таблице, и когда выделена часть файла с этой таблицей), но когда курсор стоит вне таблицы или  выделена часть файла без таблицы - выдается известная ошибка Запрашиваемый номер семейства не существует.Есть ли возможность проверить, имеется ли таблица в выделении Selection (что-то вроде IsTable), и, если такой таблицы нет, выдать сообщение "Таблицы отсутствуют"?

В макросе в посте http://wordexpert.ru/forum/viewtopic.php?pid=7865#p7865 эта проблема решается путем перебора всех таблиц файла, но это решение не очень красиво.

Большое спасибо. Получилось так:

Sub ThisTable1()
    Dim isTable As Range
    Set isTable = Selection.Range
    If isTable.Information(wdWithInTable) Then
        Selection.Tables(1).Rows(1).Select
    Else
        MsgBox "Таблица отсутствует"
    End If
End Sub

Но теперь макрос выдает сообщение "Таблица отсутствует", даже если таблица является частью выделения (то есть если в выделении имеются и таблицы, и обычные строки).

В любом случае, поставленная проблема решена. Всем большое спасибо.

Спасибо! Оказалось очень просто и красиво! 

и ещё вместо
MsgBox "Таблица отсутствует"
лучше
MsgBox$ "Таблица отсутствует"

А еще лучше так

Public Sub GoToTable()
Dim Table As Table, Rng As Range
    If Selection.Tables.Count = 0 Then
        Msg = MsgBox("Таблица отствует!!!" & Chr(13) _
        & "Перейти к следующей???", vbYesNo + vbQuestion, _
        "Переход к таблице")
            If Msg = 7 Then Exit Sub
            Set Rng = ActiveDocument.Range(Selection.End, ActiveDocument.Range.End)
            Select Case Rng.Tables.Count
                Case 0
                    MsgBox "До конца документа" & Chr(13) _
                    & ActiveDocument.Name & " таблиц нет!!!" & Chr(13), vbYesNo + vbCritical, "Переход к таблице"
                    Exit Sub
                Case Else
                    Set Table = Rng.Tables(1)
                    Selection.Start = Table.Range.Cells(1).Range.Start
                    Set Rng = ActiveDocument.Range(ActiveDocument.Range.Start, Table.Range.End)
                    MsgBox "Вы находитесь в таблице " & Rng.Tables.Count & "документа " & ActiveDocument.Name, vbInformation, "Переход к таблице"
            End Select
    End If
End Sub

Хотя генералам можно и поцветастие такую ерунду оформить.
Например с поиском в обе стороны с выбором ближайшей к выделению.
А вот кто расчитает полную ширину и высоту таблицы, учитывая что ширина неизвестна, а высота неизвестно на сколько страниц, а также по отдельности каждый элемент многостраничной таблицы???

Такой темы не существует но я ее создам сейчас в Блоге Александра Пименова под названием Связывание Таблиц Word b Excel там подробней изложите проблему