1ページあたり800文字にしたい

（2011/02/12 新規登録）

次のプリアンブルを使って下さい。

% 1ページあたり800文字、 
% 25文字 x 32 行  天地左右 3cm 空き、
% を簡単に実現する
%                            2011/02/13   
\documentclass[12pt]{jsarticle}
\usepackage[margin=3cm]{geometry}
\makeatletter
\def\mojiparline#1{
    \newcounter{mpl}
    \setcounter{mpl}{#1}
    \@tempdima=\linewidth
    \advance\@tempdima by-\value{mpl}zw
    \addtocounter{mpl}{-1}
    \divide\@tempdima by \value{mpl}
    \advance\kanjiskip by\@tempdima
    \advance\parindent by\@tempdima
}
\makeatother
\def\linesparpage#1{
    \baselineskip=\textheight
    \divide\baselineskip by #1
}
\begin{document}
\mojiparline{25}    % 一行あたり文字数=25 の指定
\linesparpage{32}   %1ページあたり行数=32 の指定
%---------------------------------ここから本文

以上です。簡単でしょ。