Sub Summarize_Table_Report_Create(objTable As Object, objOutputDoc As Object, lngIndex As Long)
'Автоскрипт
'Инициирующее событие (Trigger Event): создание таблицы после выполнения процедуры Summarize.

'Действие: просматривает метки строк в таблице и находит строку "Total" (итого) и форматирует надпись "Total" и
'соответствующую ей строку данных жирным шрифтом, если заголовок таблицы начинается с "/bold/";
' если заголовок начинается с /break/, тогда скрипт вставляет разрыв страницы прямо перед таблицей Summarize;
' если хотите использовать вместе и /break/, и /bold/, следует писать заголовок как "/break//bold/"

'Автор: Raynald Levesque, 3.2.2004.

	Dim bolSelection As Boolean
	Dim i As Integer
	Dim objitem As ISpssItem

	Set objitem = objOutputDoc.Items.GetItem(lngIndex)

	With objitem
		If (Left(.Label,7) = "/break/") Then
			objitem.PageBreak =True
			.Label = Mid(.Label, 8)
			objTable.TitleText = Mid(objTable.TitleText, 8)
		End If
		If (Left(.Label,6) = "/bold/") Then
			Call SelectRowLabelsAndData(objTable, "Total", bolSelection)
			If bolSelection = True Then
					objTable.TextStyle = SpssTSBold
			End If
			.Label = Mid(.Label, 7)
			objTable.TitleText = Mid(objTable.TitleText, 7)
		End If
		.Activate
		.Deactivate
	End With
	Set objitem = Nothing
End Sub

'Пример вызова таблицы Summarize из синтаксиса - А.Б.:
'SUMMARIZE
'  /TABLES=educ
'  /FORMAT=VALIDLIST NOCASENUM TOTAL LIMIT=100
'  /TITLE='/break//bold/Case Summaries'
'  /MISSING=VARIABLE
'  /CELLS=COUNT .