多数のWord文書を連続印刷する

下記の記事ですが、スクリプトを組まなくても、Wordファイルのアイコンをマウス等で複数選んで「右クリック」-「印刷」で一括印刷できます。( ﾟ∀ﾟ )ﾉ

今となっては不要ですが、記録のため記事は残しておきます。

———————–

数十～百数十のWordファイルを印刷しなければならないときに、いちいち１つ１つ開いていたのでは大変。フリーの支援ツールもあるようですが、インストールしなきゃだめでバージョンも更新されていない。

ということで、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