nishikatalab - wordで連続印刷Sub ListDocNamesInFolder?() Dim sMyDir As String Dim sDocName As String ' The path to obtain the files. sMyDir = "C:\My Documents\" sDocName = Dir(sMyDir & "*.DOC") While sDocName <> "" ' Print the file. Application.PrintOut FileName: = sMyDir & sDocName ' Get next file name. sDocName = Dir() Wend End Sub ← wikifarm 最新の20件 2010-01-23 プレゼント100213 2008-05-06 tex 2008-03-10 本 2008-02-06 rcファイル 2008-0
