縦書きのtarticle環境で
行数と文字数を指定したくて、拾ってきたソース

\setlength{\columnsep}{10mm}

\def\linesparpage#1{\baselineskip=\textheight\divide\baselineskip by #1}
\def\kcharparline#1{
\xkanjiskip 0mm plus 0.2mm minus 0.2mm
\settowidth{\textwidth}{あ}
\multiply\textwidth by #1}

\kcharparline{40}

\begin{document}
\linesparpage{30}
\end{document}
を使ってたんですが、
\inputまたは\includeでchap1.tex、chap2.texを読み込むと、
原稿ファイルchap1,chap2のフォントが大きくなってしまい
指定した行数と文字数にならなくなります。
フォントが大きくなるのは、原稿に\normalsizeを入れて解決し、
文字数は指定通りなんですが、行数が指定できなくなりました。
何か方法はないでしょうか。