TeX предоставляет простое \, если сравнивает буквы.Следующее будет работать, если вы не сделаете что-то вроде \ AOrAn \ myapplecommand, которое даст неожиданные результаты.
\documentclass{article}
\makeatletter
\newcommand\AOrAn[1]{%
a%
\@for\@vowel:=a,e,i,o,u,y,A,E,I,O,U,Y\do{%
\expandafter\ifx\@vowel#1%
n%
\fi
} % keep this space
#1%
}
\makeatother
\begin{document}
\AOrAn apple, \AOrAn orange, \AOrAn banana.
an apple, an orange, a banana.
\end{document}
Вы не можете вручную принудительно ввести «an», как это, но вы должны быть в состоянии подавить его с помощьюнаписание \ AOrAn {} университета.
(отредактировано для учета замечаний по исключительным случаям.)