- 静岡県立大学渡邉研究室
- 2月, 06, 2012
- おしらせ
- 多数のWord文書を連続印刷する はコメントを受け付けていません
下記の記事ですが、スクリプトを組まなくても、Wordファイルのアイコンをマウス等で複数選んで「右クリック」-「印刷」で一括印刷できます。( ゚∀゚ )ノ
今となっては不要ですが、記録のため記事は残しておきます。
———————–
数十~百数十のWordファイルを印刷しなければならないときに、いちいち1つ1つ開いていたのでは大変。フリーの支援ツールもあるようですが、インストールしなきゃだめでバージョンも更新されていない。
ということで、VBScriptで一括印刷スクリプトを書いてみました。というか、元ネタはココ。変更点は、現在のフォルダパスを使用するという点と、.docxも対象にするという点だけです。
下記のスクリプトを「ファイル名.vbs」で保存して、印刷したいWordファイルが入ったフォルダにコピーします。フォルダ内でダブルクリックして実行すれば、一括印刷が実行されます。
Set objWord = CreateObject("Word.Application") objWord.Visible = True Set objDoc = objWord.Documents.Add() Dim objWshShell Set objWshShell = WScript.CreateObject("WScript.Shell") strComputer = "." Set objWMIService = GetObject("winmgmts:\" & strComputer & "rootcimv2") Set FileList = objWMIService.ExecQuery ("ASSOCIATORS OF {Win32_Directory.Name='" & objWshShell.CurrentDirectory & "'} Where " & "ResultClass = CIM_DataFile") For Each objFile In FileList If objFile.Extension = "doc" Or objFile.Extension = "docx" Then objWord.PrintOut ,,,,,,,,,,,,objFile.Name End If Next objWord.Quit
アーカイブ
- 2024年9月
- 2024年7月
- 2024年5月
- 2024年3月
- 2024年1月
- 2023年11月
- 2023年10月
- 2023年6月
- 2023年4月
- 2023年2月
- 2023年1月
- 2022年11月
- 2022年9月
- 2022年8月
- 2022年7月
- 2022年3月
- 2022年2月
- 2021年12月
- 2021年11月
- 2021年10月
- 2021年9月
- 2021年4月
- 2020年11月
- 2020年4月
- 2019年12月
- 2019年11月
- 2019年10月
- 2019年9月
- 2019年8月
- 2019年6月
- 2019年5月
- 2019年4月
- 2019年1月
- 2018年12月
- 2018年11月
- 2018年9月
- 2018年8月
- 2018年7月
- 2018年5月
- 2018年3月
- 2018年2月
- 2018年1月
- 2017年12月
- 2017年11月
- 2017年10月
- 2017年9月
- 2017年8月
- 2017年7月
- 2017年5月
- 2017年3月
- 2017年2月
- 2016年11月
- 2016年10月
- 2016年9月
- 2016年8月
- 2016年7月
- 2016年6月
- 2016年3月
- 2015年12月
- 2015年11月
- 2015年9月
- 2015年7月
- 2015年6月
- 2015年5月
- 2015年3月
- 2015年2月
- 2014年12月
- 2014年11月
- 2014年9月
- 2014年8月
- 2014年7月
- 2014年5月
- 2014年3月
- 2014年1月
- 2013年12月
- 2013年8月
- 2013年6月
- 2013年5月
- 2013年3月
- 2012年6月
- 2012年3月
- 2012年2月
- 2012年1月
- 2009年4月