'(в ответ на вопрос) Дэвид, следующий скрип добавляет после последней мобильной таблицы в выдаче 'объект заголовка (Title), содержащий заголовки всех мобильных таблиц, которые были в окне результатов на 'момент запуска скрипта. 'Надеюсь, это будет полезным. 'Автор: Fabrizio 'Перевод: А. Балабанов, 20.11.2008. 'Проверено: SPSS 15.0.0. Sub Main Dim objOutDoc As ISpssOutputDoc, objItems As ISpssItems, objPivot As PivotTable Dim Txt As String, ItemIndex As Long 'Продолжаем выполнение скрипта только если есть хотя бы один документ (окно) выдачи (Output). If objSpssApp.Documents.OutputDocCount > 0 Then 'Установка ссылки на текущее (designated) окно выдачи. Set objOutDoc = objSpssApp.GetDesignatedOutputDoc Set objItems = objOutDoc.Items Else MsgBox "Не обнаружено окна результатов" Exit Sub End If Txt="" For ItemIndex=0 To objItems.Count-1 With objItems.GetItem(ItemIndex) If .SPSSType=SPSSPivot And .Visible Then Set objPivot=.ActivateTable Txt=Txt+objPivot.TitleText+vbCr+vbCr .Deactivate End If End With Next ItemIndex objOutDoc.InsertTitle "Оглавление", Txt End Sub