LoginSignup
0

More than 5 years have passed since last update.

wordファイル順序一括印刷

Posted at

①Macro1を導入して、印刷したいファイルパス下記ように記述する。
(ファイル全部選択して、sakura.exeに直接ペーストして、ファイルパスを取得できる)
image

②開発→マクロをクリックする。
image
③Macro1を行って、印刷できること。
image

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

Register as a new user and use Qiita more conveniently

  1. You get articles that match your needs
  2. You can efficiently read back useful information
  3. You can use dark theme
What you can do with signing up
0