iwase/kenko

先日、健康調査のマクロも作った。これも、もしかしたら uplatex でも動くかもしれない。

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%	CharSet & TeX						%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%charset = UTF-8
%!TEX encoding = UTF-8 Unicode
%!TEX TS-program = XeLaTeX
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\input kenko.inc
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\ここから								%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\所属{大学院 数理学研究院}職{某某}%
\氏名{何 々}{某 々}%
\勤務１２時間以上{0}日%
	１４時間以上{0}日%
	１６時間以上{0}日%
		（{}）%{＜主な勤務内容とその理由＞}
\疲労の蓄積（{}）% {＜主な自覚症状＞}
\面談の希望（{}）% {有}／{無}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\以上									%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

以下が kenko.inc の中身である。

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%										%
%  健康調査報告書 Form by Norio Iwase	%
%										%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\ifx\undefined\XeTeXversion
 \documentclass[12pt,a4j]{jarticle}
 \usepackage[dvipdfmx]{graphicx}
 \usepackage[deluxe]{otf}
\else
 \documentclass[12pt,a4paper]{article}
 \usepackage[xetex]{graphicx}
 \usepackage[no-math]{fontspec}
 \usepackage[boldfont,slantfont]{xeCJK}
 \usepackage{zxjatype}
 \usepackage{zxotf}
 \usepackage{xunicode}\usepackage{xltxtra}
 \CJKspace
%
 \defaultfontfeatures{Mapping=tex-text}
 \setromanfont{Times}\setsansfont{Papyrus}\setmonofont{Arial}
 \setjamainfont[Scale=0.95]{HGSeikaishotaiPRO}
 \setjasansfont[Scale=0.9]{IPAexMincho}
 \setjamonofont[Scale=0.9]{Osaka-Mono}
\fi
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%	共通設定					%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\textheight=25.0truecm
\hoffset -12.0truemm
\voffset -23truemm
\ifx\undefined\XeTeXversion%	pLaTeX
\addtolength{\hoffset}{-.2em}
\addtolength{\voffset}{-.7ex}
\else%	XeLaTeX
\fi
\setlength\unitlength{1truept}
%
\usepackage{amsmath,amssymb}
%
\def\ここから{
\pagestyle{empty}
\begin{document}
\thispagestyle{empty}
%
\newcount\Hyear \Hyear=\year \advance\Hyear -1988
\def\DTyear{\number\Hyear}\def\DTmonth{\number\month}\def\DTday{\number\day}
\ifx\undefined\XeTeXversion
\begin{picture}(430,680)(-20,45)
\else
\begin{picture}(430,680)(3,17)
\fi
\put(196.7,658.0)	{\makebox(0,1)[cc]{\small\DTyear}}
\put(230.4,658.0)	{\makebox(0,1)[cc]{\small\DTmonth}}
\ifx\undefined\XeTeXversion
\put(-85,-84){\includegraphics{kenko-chosa1.pdf}}
\else
\put(-85,-84){\includegraphics{kenko-chosa1}}
\fi}
\def\所属#1職#2{\def\shozoku{#1}\def\shoku{#2}
\put(260,622.2)	{\makebox(0,0)[cl]{\footnotesize\text{#1}・\text{#2}}}
}
\def\氏名#1#2{
\put(260,603.9)	{\makebox(0,0)[cl]{\footnotesize\text{#1}　\text{#2}}}
}
\def\長時間勤務無{
\put(312.2,549.5)	{\makebox(0,0)[cc]{\small $\checkmark$}}
}
\def\長時間勤務若干有{
\put(249.2,549.5)	{\makebox(0,0)[cc]{\small $\checkmark$}}
\put(42.5,494.2)	{\makebox(0,0)[cc]{\small $\checkmark$}}
}
\def\勤務１２時間以上#1日１４時間以上#2日１６時間以上#3日（#4）{
\newcounter{choujikan}\setcounter{choujikan}{0}
\addtocounter{choujikan}{#1}
\addtocounter{choujikan}{#2}
\addtocounter{choujikan}{#3}
\ifnum\number\value{choujikan}>0
\put(249.2,549.5)	{\makebox(0,0)[cc]{\small $\checkmark$}}
\ifnum\number\value{choujikan}<10
\put(42.5,494.7)	{\makebox(0,0)[cc]{\small $\checkmark$}}
\else
\put(42.5,476.2)	{\makebox(0,0)[cc]{\small $\checkmark$}}
\put(347,475.7)	{\makebox(0,0)[cr]{\small #1}}
\put(347,457.2)	{\makebox(0,0)[cr]{\small #2}}
\put(347,438.7)	{\makebox(0,0)[cr]{\small #3}}
\put(8,370){\makebox(0,0)[tl]{\begin{minipage}{147mm}\baselineskip6.5mm{#4}\end{minipage}}}
\fi
\else
\put(312.2,549.5)	{\makebox(0,0)[cc]{\small $\checkmark$}}
\fi
}
\def\疲労の蓄積無{
\put(230,292.9)	{\makebox(0,0)[cc]{\small $\checkmark$}}
}
\def\疲労の蓄積有：#1の症状{
\put(167.5,292.9)	{\makebox(0,0)[cc]{\small $\checkmark$}}
\put(8,243){\makebox(0,0)[tl]{\begin{minipage}{147mm}\baselineskip6.5mm{#1}\end{minipage}}}
}
\def\疲労の蓄積（#1）{\def\temp{#1}%
\ifx\temp\empty%
\put(230,292.9)	{\makebox(0,0)[cc]{\small $\checkmark$}}
\else%
\put(167.5,292.9)	{\makebox(0,0)[cc]{\small $\checkmark$}}
\put(8,243){\makebox(0,0)[tl]{\begin{minipage}{147mm}\baselineskip6.5mm{#1}\end{minipage}}}
\fi%
}
\def\面談の希望無{
\put(265,164.5)	{\makebox(0,0)[cc]{\small $\checkmark$}}
}
\def\面談の希望有{
\put(202.5,164.5)	{\makebox(0,0)[cc]{\small $\checkmark$}}
}
\def\面談の希望（#1）{
\def\Ari{有}\def\Kibou{#1}
\ifx\Kibou\Ari
\put(202.5,164.5)	{\makebox(0,0)[cc]{\small $\checkmark$}}
\else
\put(265,164.5)	{\makebox(0,0)[cc]{\small $\checkmark$}}
\fi
}
\def\以上{
\end{picture}
%
\end{document}
\end
}
\newcounter{Line}
\setcounter{Line}{266}
%