添付したファイルにあるのは、友人が原型を作成してくれたボックスで、自分の環境用に微調整して使っているボックスなのですが、これのタイトル部分にあまり長いものを入れすぎるとタイトル部分からはみ出てしまいます。
というのもボックスの構造上、サブタイトル部分を入れるボックスが可変長（いちいち入力によって長さが変わってしまう）ため、parboxで回避しように引数に「入力した文字列の横幅の合計値」を取らないといけないため、絶対に手動処理が必要になってしまい、マクロにできないからです。
サブタイトル部分の長さを計算してピッタリ収まる長さのparboxに入れ、ボックスの横幅から引いた上でさらにタイトルの入る部分のボックスを求めた長さのparboxに格納するとかでもしないと無理な気がしており、かなりの苦戦を強いられています。
どなたかいい案を授けてくださる方はいらっしゃいませんでしょうか。
aoharu と hannari フォントは test3.tex では使用していないのでコメントアウトして検証しました。
いくつか方法はあると思いますが、サブタイトルを含むタイトル部分の幅 を
\settowidth で取得して、それを \textwidth と比較しその真偽で制御する方法はどうでしょうか？
なお、限界までテストしていないので \textwidth との比較では若干の補正が必要になることがあります。
それから、nあぜか ptbs 環境をマクロに取り込んだら、本文の先頭のアキが消えてしまったり、
一行の送り込みが変わってしまいました。暇を見て追及しますが ....
検証に使用した .tex などは念の為添付しますが、 今回用のマクロです。適宜修正してください。
\newlength{\myTitleLength}
\newcommand{\myPTBS}[3]{
\settowidth{\myTitleLength}{#2 #1}
\ifthenelse{\myTitleLength < \textwidth}% .9\textwidth が必要かな
{% タイトルとサブタイトルの幅が一行に収まる時
\begin{ptbs}[#1]{#2}
\textgt{#3}
\end{ptbs}}
{% タイトルとサブタイトルの幅が一行の幅を超える時
\begin{ptbs}[\parbox{44em}{#1}]{\parbox{1cm}{#2}}
\textgt{#3}
\end{ptbs}
}
}
具体的な症状を見せていただかないと、なんとも言えません。
とはいえ、コーディングを見ると \titlelength のマクロで \setlength{\len}{\linewidth} と
\linewidth を使っていますね。
この \linewidth を使う場合は、若干注意が必要です。
【2段組で注釈】 の 和田の回答 にも参考URL は
記されていますが、 Difference between \textwidth, \linewidth and \hsize 内の Answers 部分 353 を
参考に、ptbs の宣言で \titlelength と \len の扱いを検討する必要があるのではと考えています。
もしかしたら \linewidth を \textwidth に書き換えるだけで済むかもしれませんが、 再現するソースが出来たら連絡ください。
長いタイトル用の幅を ...\parbox[b]{\columnwidth-1.2cm}... と
しても計算してくれません。
マクロ \titlelength で \len の計算を \linewidth を元に \addtolength で
計算しているようにしてみました。
なお 1.2cm の補正では意図された結果が得られないので試行錯誤の上 1.4cm で
調整しましたが、限界値までの検証は行っていませんので、その点を考慮の上、
検討してください。
この部分に関する、差分は以下のとおり。
+\newlength{\myLongTitleWidth}% 長いタイトルを想定した時の幅
+\setlength{\myLongTitleWidth}{\columnwidth}% {\columnwidth-1.2cm} の意図の反映
+\addtolength{\myLongTitleWidth}{-1.4cm}% でも 1.2cm では足りないので
\newcommand{\myPTBSS}[3]{
\settowidth{\myTitleLength}{#2 #1}
- \settoheight{\myTitleheight}{\parbox[b]{\columnwidth-1.2cm}{\setstretch{0.8} \vspace*{0.8mm} #1}}
+ \settoheight{\myTitleheight}{\parbox[b]{\myLongTitleWidth}{\setstretch{0.8} \vspace*{0.8mm} #1}}
minipage 環境などで、意図しない 線 が生じる場合があるとのことでしたが、
\linewidth の影響かと書き込んだので、念の為 minipage multicolum 環境で試してみました。
test3.tex のソースを元にしたものでは、 \parbox{44em}{...} の部分は、当然おかしくはなりますが、 その他は特段おかしな状況は発生しないようです。