'#Reference {BE35B7EB-0D00-44D8-B3A5-0727DF5AD7C1}#1.0#0#
'#Reference {C9E29001-3D45-11D4-9FF4-00C04FA0D540}#1.0#0#
'#Language "WWB-COM"


Sub Main
EN=Array("Belgium","Bulgaria","Czechia","Denmark","Germany","Estonia","Ireland","Greece","Spain","France","Croatia","Italy","Cyprus","Latvia","Lithuania","Luxembourg","Hungary","Malta","Netherlands","Austria","Poland","Portugal","Romania","Slovenia","Slovakia","Finland","Sweden","United Kingdom")
PL=Array("Belgia","Bułgaria","Czechy","Dania","Niemcy","Estonia","Irlandia","Grecja","Hiszpania","Francja","Chorwacja","Włochy","Cypr","Łotwa","Litwa","Luksemburg","Węgry","Malta","Holandia","Austria","Polska","Portugalia","Rumunia","Słowenia","Słowacja","Finlandia","Szwecja","Wielka Brytania")
For i=1 To ActiveDataSet.NumberOfCases
	For j=1 To 28
		If ActiveDataSet.CaseName(i)=EN(j-1) Then ActiveDataSet.CaseName(i)=PL(j-1)
	Next
Next
End Sub

'STATISTICA MACRO FILE VERSION 4
'BEGINPROPERTIES
'NAME=Tłumaczenie
'DESCRIPTION=
'LANGUAGE=0
'SCRIPTING=0
'ENDPROPERTIES