Удаление сносок во всех таблицах

 

Загрузить как .sbs Показать простым текстом

 

 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
35
36
37
38
39
40
'Отправлено в новостную группу 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
Related pages

...

Navigate from here