select all sounds = numberOfSelected ("Sound") for i to sounds sound$ [i] = selected$ ("Sound", i) selectObject ("Sound " + sound$ [i]) do ("To TextGrid...", "vowel F1", "F1") select all endfor selectObject ()