大概写了一个:
\documentclass{article}
\usepackage{showframe}
\makeatletter
\NewDocumentEnvironment{yuanlist}{}{
\newcounter{yuan}
\def\item{
\stepcounter{yuan}
\settowidth{\@tempskipa}{\theyuan.}
\par\leftskip=\@tempskipa\noindent\llap{\theyuan.}\ignorespaces
}
}{\@endparenv}
\makeatother
\begin{document}
yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan
\begin{yuanlist}
\item yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan
\item yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan \setcounter{yuan}{1000}
\item yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan
\end{yuanlist}
yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan
\end{document}
细节的慢慢改吧(摊手
问 如何制作可跨页分栏的列表环境,使得标签顶格且标签宽度等于标签自身?