'begin description
'Назначение: удалить метки значений у всех переменных.
'Условия: файл данных открыт в редакторе данных SPSS
'end description

'Автор: Raynald Levesque, 08.06.2004
'Сайт по SPSS: http://www.spsstools.ru

' Перевод: А. Балабанов, 15.11.2008
' Проверено: SPSS 15.0.1.1.

Option Explicit

Sub Main
	Dim objSpssInfo As ISpssInfo
	Dim i As Integer, j As Integer
	Dim strCmd As String

	Set objSpssInfo = objSpssApp.SpssInfo
	With objSpssInfo
		For i = 0 To .NumVariables - 1
			If .NumberOfValueLabels(i) > 0 Then
				strCmd = strCmd & "VALUE LABELS " & .VariableAt(i) & "." & vbCrLf
			End If
		Next i
	End With
	objSpssApp.ExecuteCommands (strCmd, vbFalse)
	Set objSpssInfo = Nothing
End Sub