« 自殺した近畿財務局職員の手記 | Main | ハーバード大学のデミング教授のオンライン授業の教育経済学的な解説 »

マクロ:フォルダ内の全Wordファイルを一つにまとめる

Sub フォルダ内の全Wordファイルを一つにまとめる()
Dim doc_name As String

Documents.Add

ChDir "C:\Users\Yoshiaki Hisamatsu\Documents\_YearMonth\2004\2020春_授業\4年卒論ゼミ\1_20200408\提出"

doc_name = Dir("*.doc*")

Do While doc_name <> ""
With Selection
.TypeText "ファイル名 = " & doc_name & vbCr
.InsertBreak wdPageBreak
.InsertFile doc_name
.InsertBreak wdSectionBreakNextPage
.Collapse wdCollapseEnd
End With
doc_name = Dir
Loop

End Sub

|

« 自殺した近畿財務局職員の手記 | Main | ハーバード大学のデミング教授のオンライン授業の教育経済学的な解説 »