複数のwordファイルを連番のページ番号を付けて印刷

基本的にファイル（ワードの場合文書、Doc）が違えば別世界で、メニューやツールバー操作などで始まるワードの操作で、ページ番号だけにしろ、連携をしていくのは、そういう操作は存在しないと思います。 ただVBAで印刷する場合 （１）あるフォルダ内の文書（.doc)ファイルの中で、指定する名前のものだけに付いて （２）プログラム主導で、印刷する （３）その直前に、プログラムでフーターなどのページ番号を、変数で計算したもの（今までの印刷済みのページ数の累積して）を使い、セットすることは可能と思います。 ーー エクセルの例がWEBにあると思うので、近いころまではそれを利用できます。 http://itpro.nikkeibp.co.jp/article/COLUMN/20060120/227645/ を少し改変させていただいて 下記XXXXの部分はユーザー名でおき変えること Sub MakeFileList() Set FS = CreateObject("Scripting.FileSystemObject") Set Fol = FS.GetFolder("C:\Documents and Settings\XXX\My Documents\") Set Fil = Fol.Files ThisWorkbook.Sheets("Sheet1").UsedRange.Delete '見出しを付ける ThisWorkbook.Sheets(1).Range("B2") = "ファイル名" ThisWorkbook.Sheets(1).Range("C2") = "ファイル種別" ThisWorkbook.Sheets(1).Range("D2") = "最終更新日" ThisWorkbook.Sheets(1).Range("E2") = "説明" ThisWorkbook.Sheets(1).Range("B2:E2").Interior.Color = RGB(0, 0, 0) ThisWorkbook.Sheets(1).Range("B2:E2").Font.Color = RGB(255, 255, 255) ThisWorkbook.Sheets(1).Range("B2:Es2").HorizontalAlignment = xlCenter i = 3 For Each Fx In Fil 'ファイル名 sFile = Fx.Name If Right(sFile, 4) = ".doc" Then MsgBox sFile 'ファイル名の書き出し ThisWorkbook.Sheets(1).Cells(i, 2) = sFile 'ファイル種別 sFType = Fx.Type '最終更新日時の書き出し ThisWorkbook.Sheets(1).Cells(i, 3) = sFType '最終更新日 sLMod = Fx.DateLastModified ThisWorkbook.Sheets(1).Cells(i, 4) = sLMod i = i + 1 End If Next End Sub これでエクセルのセルに文書名ガでます。 これでエクセルに書き出していますが、具体的なイメージがつかめると思います。 ーーーー 後は、上記文書名の中で、必要な文書（名）を絞り印刷対象にするやり方ですが、VBAをやる人には平凡な事項です。 Arraｙででも使って、プログラムの中に文書名を持って、毎回その中に（上記で言えばSFileが）Array内に該当があるか調べる。 ーー 印刷はワードでのマクロの記録をとれば、PageSetUpでページ数セットのコードが知れて、印刷操作で文書印刷のコードが知れる。 その際は、当然上記のコードの中のエクセル関係の業は全て削除します。 以上で必要な要素技術はそろったと思う。 -- あるいは、最後に思いついたが、指定文書名をプログラムのArrayにもって、１つずつ順にOpenして印刷するほうが、印刷順序を指導権を握れるので良いかもしれない。 その際変数に印刷ページは http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1412167539 http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=434;id=word を参考に。