iwase/kenko の変更点 - PukiWiki

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

 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %	CharSet & TeX						%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %charset = UTF-8
 %!TEX encoding = UTF-8 Unicode
 %!TEX TS-program = XeLaTeX
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 \input kenko.inc
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 \ここから								%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 \所属{大学院 数理学研究院}職{某某}%
 \氏名{何 々}{某 々}%
 \勤務12時間以上{0}日%
 	14時間以上{0}日%
 	16時間以上{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\勤務12時間以上#1日14時間以上#2日16時間以上#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}
 %

トップ   編集 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS