단어 파일 순서 일괄 인쇄

① 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