'Отправлено в новостную группу SPSS 04.09.1997. Автор: David Marso. 'Размещение: http://www.spsstools.ru/Scripts/PivotTables/DeleteFootnotesOfAllPivotTables.txt (.sbs). 'Перевод: А. Балабанов, 31.12.2008. 'Проверено: SPSS 15.0.0. 'Фактически, знаки сносок не удаляются, а заменяются пробелами, 'текст сносок - скрывается - примеч. перев. 'Альтернативным вариантом скрытия сносок может стать применения метода HideFootnotesAt к ячейкам таблиц и меткам строк/столбцов - примеч. перев. Sub Main 'Удаление ВСЕХ сносок в таблицах. Dim objOutputDoc As ISpssOutputDoc Dim objOutputItems As ISpssItems Dim objPivotTable As PivotTable Dim intCount As Integer Dim IntItem As Integer Dim I As Integer Set objOutputDoc = objSpssApp.GetDesignatedOutputDoc Set objOutputItems=objOutputDoc.Items ' Обработка каждой найденной таблицы: For IntItem = 0 To objOutputItems.Count - 1 Set objOutputItem = objOutputItems.GetItem (IntItem) If objOutputItem.SPSSType = SPSSPivot Then Set objPivotTable = objOutputItem.ActivateTable objPivotTable.UpdateScreen=False Dim objFootnotes As ISpssFootnotes Dim intSize As Integer Set objFootnotes = objPivotTable.FootnotesArray intCount = objFootnotes.Count For I=0 To intCount-1 objFootnotes.TextHiddenAt (I)=True objFootnotes.ChangeMarkerToSpecial (I, " ") Next I objPivotTable.UpdateScreen=True objOutputItem.Deactivate End If Next IntItem End Sub