'BEGIN DESCRIPTION 'Тема: вставка символа разрыва страницы перед таблицей, чей заголовок начинается с символов '/разрстрн'(скрипт работает вместе с синтаксисом). 'Ключевые слова: разрыв страницы output выдача форматирование синтаксис модуль TABLES. 'Опубликован: 22.05.2002, перевод: 15.08.2008. 'Автор: Raynald Levesque; перевод: А. Балабанов. 'Размещение: http://www.spsstools.ru/Scripts/OutputDoc/AddPageBreaksAtSelectedPlaces.txt (.sbs) 'Проверено: SPSS 13.0. 'END DESCRIPTION 'См. http://www.spsstools.net. 'Скрипт должен быть размещён в папке c:\\program files\\spss\\scripts\\. 'Скрипт вызывается из синтаксиса http://www.spsstools.ru/Scripts/OutputDoc/AddPageBreakSyntax.txt (.sps). Sub Main PageBreak True End Sub Sub PageBreak(blnBreak As Boolean) Dim i As Long Dim objItem As ISpssItem Dim objPivotTable As PivotTable Dim intPos As Integer With objSpssApp.GetDesignatedOutputDoc.Items For i = 0 To .Count - 1 Set objItem = .GetItem(i) intPos = InStr(LCase(objItem.Label),"/разрстрн") If intPos >0 Then 'Необходимо вставить разрыв страницы 'Убираем текст '/разрстрн' из метки Output-навигатора objItem.Label = Left(objItem.Label,intPos - 1) & Mid(objItem.Label,intPos + 9) Select Case objItem.SPSSType Case SPSSPivot 'Убираем текст '/разрстрн' из заголовка таблицы Set objPivotTable = objItem.Activate() objPivotTable.TitleText =Mid(objPivotTable.TitleText,10) Case SPSSChart 'Ничего не делаем (невозможно изменить заголовок графика через SaxBasic) End Select 'Вставляем разрыв страницы objItem.PageBreak = blnBreak objItem.Deactivate End If Next End With Set objItem = Nothing End Sub