Добавить слово «index» (или любое другое) в начало метки каждой переменной

'BEGIN DESCRIPTION
' Скрипт добавляет слово "Index" в начало метки каждой переменной
' Размещено в spss newsgroup 10.10.2003, автор: Raynald Levesque
'END DESCRIPTION

' Перевод: А. Балабанов, 14.11.2008
Option Explicit
Const cPREFIX="Index "	'Поставьте здесь нужную вам приставку

Sub Main()

	' Объявляем переменные скрипта и получаем список переменных файла данных:
	Dim objSpssInfo As ISpssInfo
	Dim var As String
	Set objSpssInfo = objSpssApp.SpssInfo

	Dim lngNumber As Long
	Dim i As Long
	Dim strCmd As String
	lngNumber = objSpssInfo.NumVariables
	strCmd = "VARIABLE LABELS "
	Debug.Clear

	With objSpssInfo
		For i = 0 To lngNumber - 1
			strCmd = strCmd & " " & .VariableAt(i) & " '" & cPREFIX & .VariableLabelAt(i) & "'/" & vbCrLf
			Debug.Print strCmd
			Next
	End With
	strCmd = strCmd + "." & vbCrLf

	objSpssApp.ExecuteCommands strCmd, False
	Set objSpssInfo = Nothing
End Sub