'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