wordファイル順序一括印刷

1769 ワード
print Word VBA macro print テキストリンク

①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