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
'Posted to SPSS newsgroup by David Marso on Sept 4,1997

Sub Main
'Modifies ALL footnotes (They disappear).
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
	' Get each pivot table and select the entire table for modification:
	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