'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