2018-06-13

Wordファイル（.docx）をPDFに変換するバッチファイル

@echo off

:loop
if "%~1"=="" goto :end

echo %~1
echo PDFファイルに変換中です。このウィンドウは閉じないでください。

powershell -Command "$word=New-Object -ComObject Word.Application;$file='%~1';$doc=$word.Documents.OpenNoRepairDialog($file);$doc.SaveAs([ref] $file.Replace(\".docx\",\".pdf\"),[ref] 17);$doc.Close();$word.Quit()"

shift
goto loop

:end
exit /b

docx, doc, xlsx, xls, pptx, ppt に対応したバージョン

@echo off

set ARGS=%*
set ARGS=%ARGS:,=$comma$%
set ARGS=%ARGS:;=$semicolon$%
set ARGS=%ARGS:　=$fullwidthsp$%

call :main %ARGS%

exit /b

:main

:loop
if "%~1"=="" goto :end

set ARG1=%~1
set ARG1=%ARG1:$comma$=,%
set ARG1=%ARG1:$semicolon$=;%
set ARG1=%ARG1:$fullwidthsp$=　%

if exist "%ARG1%" (
echo %ARG1%
echo PDFファイルに変換中です。このウィンドウは閉じないでください。
) else (
echo %ARG1%
echo ファイルが存在しないか、ファイル名に処理できない記号等が含まれており、変換できません。何かキーを押してください。
pause
shift
goto loop
)

if %~x1==.docx (
powershell -Command "$app=New-Object -ComObject Word.Application;$file='%ARG1%';$doc=$app.Documents.OpenNoRepairDialog($file);$doc.SaveAs([ref] $file.Replace(\".docx\",\".pdf\"),[ref] 17);$doc.Close();$app.Quit()"
)

if %~x1==.doc (
powershell -Command "$app=New-Object -ComObject Word.Application;$file='%ARG1%';$doc=$app.Documents.OpenNoRepairDialog($file);$doc.SaveAs([ref] $file.Replace(\".doc\",\".pdf\"),[ref] 17);$doc.Close();$app.Quit()"
)

if %~x1==.xlsx (
powershell -Command "$app=New-Object -ComObject Excel.Application;$file='%ARG1%';$doc=$app.Workbooks.Open($file);$doc.ExportAsFixedFormat([ref] 0, [ref] $file.Replace(\".xlsx\",\".pdf\"));$doc.Close();$app.Quit()"
)

if %~x1==.xls (
powershell -Command "$app=New-Object -ComObject Excel.Application;$file='%ARG1%';$doc=$app.Workbooks.Open($file);$doc.ExportAsFixedFormat([ref] 0, [ref] $file.Replace(\".xls\",\".pdf\"));$doc.Close();$app.Quit()"
)

if %~x1==.pptx (
powershell -Command "$app=New-Object -ComObject Powerpoint.Application;$file='%ARG1%';$doc=$app.Presentations.Open($file);$doc.SaveAs([ref] $file.Replace(\".pptx\",\".pdf\"), [ref] 32);$doc.Close();$app.Quit()"
)

if %~x1==.ppt (
powershell -Command "$app=New-Object -ComObject Powerpoint.Application;$file='%ARG1%';$doc=$app.Presentations.Open($file);$doc.SaveAs([ref] $file.Replace(\".ppt\",\".pdf\"), [ref] 32);$doc.Close();$app.Quit()"
)

shift
echo;
goto loop

:end

exit /b

2018-04-10

新刊関連トークイベントのお知らせ

　新刊に関連して、5月末に大阪と東京で2つのトークイベントが開催されます。

こちらは、5月27日(日)13:00～15:00に、大澤聡さんと梅田蔦屋書店にて。

real.tsite.jp

こちらは、5月31日(木)19:00～21:00に、東畑開人さんと代官山蔦屋書店にて。

real.tsite.jp

　いずれも要予約ですので、ご予約はお早めに。

〈つながり〉の現代思想―社会的紐帯をめぐる哲学・政治・精神分析

享楽社会論: 現代ラカン派の展開

教養主義のリハビリテーション (筑摩選書)

日本のありふれた心理療法: ローカルな日常臨床のための心理学と医療人類学

2018-04-05

『〈つながり〉の現代思想』刊行

　編著『〈つながり〉の現代思想——社会的紐帯をめぐる哲学・政治・精神分析』が明石書店より刊行されました。

〈つながり〉の現代思想——社会的紐帯をめぐる哲学・政治・精神分析

　本書は、「社会的紐帯」という術語を手がかりに、現代社会の「つながり」が孕む諸問題を根底から捉えなおし、その理論と病理、そして可能性を探る、若手研究者の共同研究の成果です。私の寄稿は、ディスクール、レイシズム、といったいつもの話の拡大版ですが、非常に濃密な論考が全8本ありますので、ぜひご覧になってみて下さい。

　通販や店頭で探される際には、下記のリンク先の情報をご参考になさってください。

『現代思想』2018年4月号に寄稿

　本日発売の『現代思想』2018年4月号（特集＝現代思想の316冊）に、「「臨床と人文知」の協働を再起動する」を寄稿しています。私の原稿はブックガイドというか最近の興味関心のサマリーみたいになってますが、新学期にいろいろと勉強したい人には良い特集だと思います。
　なお、一箇所誤植が残っており（すいません）、p.126下段の後ろから10行目の「言語化可能」➝「言語化不可能」の間違いです。

『現代思想』2018年4月号