①Macro1を導入して、印刷したいファイルパス下記ように記述する。
(ファイル全部選択して、sakura.exeに直接ペーストして、ファイルパスを取得できる)
②開発→マクロをクリックする。
③Macro1を行って、印刷できること。
Sub Macro1()
'
' Macro1 Macro
'
'
Dim MyWd As Word.Application
Dim MyDoc As Word.Document
Dim fileNm As String
For i = 1 To ActiveDocument.Paragraphs.Count
Dim doc As Document
fileNm = Replace(ActiveDocument.Paragraphs(i).Range, vbCr, "")
If fileNm <> "" And InStr(fileNm, ".doc") Then
Set MyWd = CreateObject("Word.Application")
Set MyDoc = Word.Application.Documents.Open(fileNm)
'print 最終版
With ActiveWindow.View.RevisionsFilter
.Markup = wdRevisionsMarkupNone
.View = wdRevisionsViewFinal
End With
'<印刷>
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
ActiveWindow.Close
End If
Next
End Sub