'(в ответ на вопрос) Пол, я думаю, единственный способ выделить последнюю таблицу ' в Навигаторе (окне результатов SPSS) - это воспользоваться скриптом, который ' (при желании) можно вызвать через синтаксис командой SCRIPT. 'Автор: Fabrizio Arosio, размещено в SPSSX-L, 10 июля 2000 года ' Перевод: А. Балабанов, 20.11.2008. ' Проверено: SPSS 15.0.0. Sub Main Dim objOutputDoc As ISpssOutputDoc Dim objItems As ISpssItems Dim Index As Long If objSpssApp.Documents.OutputDocCount > 0 Then Set objOutputDoc = objSpssApp.GetDesignatedOutputDoc Else MsgBox "Не обнаружено окна с результатами!" Exit Sub End If objOutputDoc.ClearSelection Set objItems = objOutputDoc.Items For Index=objItems.Count-1 To 0 Step -1 With objItems.GetItem(Index) If .SPSSType=SPSSPivot Then .Selected = True Exit Sub End If End With Next Index MsgBox "Не обнаружено мобильных таблиц!" End Sub