(MyText as text) =>

let

    ListAccents = 

	{

		{"à","a"},

		{"á","a"},

		{"â","a"},

		{"ã","a"},

		{"ä","a"},

		{"å","a"},

		{"è","e"},

		{"é","e"},

		{"ê","e"},

		{"ë","e"},

		{"ì","i"},

		{"í","i"},

		{"î","i"},

		{"ï","i"},

		{"ò","o"},

		{"ó","o"},

		{"ô","o"},

		{"õ","o"},

		{"ö","o"},

		{"ø","o"},

		{"ù","u"},

		{"ú","u"},

		{"û","u"},

		{"ü","u"},

		{"ů","u"},

		{"À","A"},

		{"Á","A"},

		{"Â","A"},

		{"Ã","A"},

		{"Ä","A"},

		{"Å","A"},

		{"È","E"},

		{"É","E"},

		{"Ê","E"},

		{"Ë","E"},

		{"Ì","I"},

		{"Í","I"},

		{"Î","I"},

		{"Ò","O"},

		{"Ó","O"},

		{"Ô","O"},

		{"Õ","O"},

		{"Ö","O"},

		{"Ø","O"},

		{"Ù","U"},

		{"Ú","U"},

		{"Û","U"},

		{"Ü","U"},

		{"ç","c"},

		{"Ç","C"},

		{"ñ","n"},

		{"Ñ","N"},

		{"ř","r"},

		{"š","s"},

		{"Š","S"},

		{"ł","l"},

		{"ý","y"},

		{"ÿ","y"},

		{"Ý","Y"},

		{"Ÿ","Y"},

		{"ž","z"},

		{"Ž","Z"},

		{"ą","a"},

		{"ć","c"},

		{"ę","e"},

		{"ń","n"},

		{"ś","s"},

		{"ż","z"},

		{"ź","z"},

		{"Ą","A"},

		{"Ć","C"},

		{"Ę","E"},

		{"Ł","L"},

		{"Ń","N"},

		{"Ś","S"},

		{"Ż","Z"},

		{"Ź","Z"}

	}

in

    Text.Combine(List.ReplaceMatchingItems(Text.ToList(MyText), ListAccents))