atbegshi.sty + 縦組クラス

atbegshi_tate.tex

\documentclass{tarticle}
\usepackage[word]{continue}% これは atbegshi 依存

\usepackage{etoolbox}
\makeatletter

\patchcmd{\AtBegShi@Output}%
{\let\AtBegShi@OrgProtect\protect}%
{\setbox\z@\hbox\bgroup\yoko\let\AtBegShi@OrgProtect\protect}%
{}{}

\patchcmd{\AtBegShi@Output}%
{\AtBeginShipoutOriginalShipout\box\AtBeginShipoutBox}%
{\AtBeginShipoutOriginalShipout\box\AtBeginShipoutBox\egroup}%
{}{}


\AtBeginShipout{\AtBeginShipoutAddToBox{ほーげほーげ，ふが「ぴよ」}}
\begin{document}

あいうえお、かきくけこ。「さーしす：せそ？」
\newpage
This is a pen. い
\end{document}

だいたい ok らしかったのですが，pdfpages パッケージ使用時にはエラーが出ました。

\documentclass[dvipdfmx]{jarticle}
\usepackage{pdfpages}

\makeatletter
\usepackage{etoolbox}
\patchcmd{\AtBegShi@Output}%
{\let\AtBegShi@OrgProtect\protect}%
{\setbox\z@\hbox\bgroup\yoko\let\AtBegShi@OrgProtect\protect}%
{}{}
\patchcmd{\AtBegShi@Output}%
{\AtBeginShipoutOriginalShipout\box\AtBeginShipoutBox}%
{\AtBeginShipoutOriginalShipout\box\AtBeginShipoutBox\egroup}%
{}{}
\makeatother

\begin{document}
a
\end{document}

./pdfpages-atbegshi.tex:18: You can't use `\prevdepth' in restricted horizontal mode.
\nointerlineskip ->\prevdepth 
                              -\@m \p@ 
l.18 \end{document}