1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
'(в ответ на вопрос) Дэвид, следующий скрип добавляет после последней мобильной таблицы в выдаче
'объект заголовка (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