TTak's Office Word フォルダ内のピクチャファイルを一気に張り付けたい

　フォルダ内のピクチャファイルを
一気に張り付けたい

　　
要VBA

○ポイントはFoundFilesオブジェクト

大量の写真や絵のファイルから、一覧表をつくったり、アルバムファイルを作る人もいることでしょう。しかし、Wordのファイル挿入機能は1個ずつのファイルのみしか対応していません。この機能を使えば、任意のフォルダ内にあるピクチャファイルを一気にWord上に展開することができます。

(1) VBEを起動

(2) VBEを開いてプロジェクトエクスプローラ（図1）から編集中の文書を右クリック[挿入(N)]＞[標準モジュール(M)]。
office

（図1）WORD VBEプロジェクトエクスプローラ

(3) (2)で作った標準モジュールにマクロ作成。コード例は下記
　（この例ではC:\My Documents\My Picturesフォルダにある *.gif ファイルをすべて張り付けます）

Sub INPUT_PICTURE()
'読み込みに行くフォルダを指定します
myFolda = "C:\My Documents\My Pictures"
Set fs = Application.FileSearch
DoEvents
With fs
    .NewSearch
    .LookIn = myFolda
    .SearchSubFolders = False
　　'画像ファイルの拡張子を指定します
    .FileName = "*.gif"
    If .Execute() > 0 Then
        For I = 1 To .FoundFiles.Count
            myfname = .FoundFiles(I)
            Selection.TypeParagraph
            Selection.InlineShapes.AddPicture FileName:= _
        myfname, LinkToFile _
        :=False, SaveWithDocument:=True
        Selection.TypeParagraph
        Selection.TypeText Text:= _
        Right(.FoundFiles(I), Len(.FoundFiles(I)) - Len(myFolda) - 1)
        Selection.TypeParagraph
        Next I
    End If
End With
MsgBox "貼り付け完了"
End Sub

(4) VBEを閉じてファイルを保存終了

○こんな時に使える

・アルバムを作りたい
・写真を一気に印刷したい

○応用またはその他の方法

・複数のオブジェクトに同じ処理を実行したい要vba

○注意

写真などを貼り付けたWordファイルは重くなる傾向があります。保存時は注意してください

作業フォルダにネットワークパスを指定する場合は、アクセス権などのメッセージでマクロが止まる場合があります。