ワードで画像を自動で挿入する方法

ワード2000を使用しています。フォルダにgif画像が200個程入っており（ファイル名は毎回変わります）、これをワードに１つずつ画像を挿入する作業をしているのですが、自動で処理するようなフリーソフトや方法があれば教えて下さい。出来れば挿入したファイル名も表示されるとうれしいのですが・・
宜しくお願い致します。

No.2 ベストアンサー 回答者： TTak 回答日時： 2004/02/25 17:48

ちょうど、マクロを作っていましたので紹介します。

Sub 画像取込()
myFolda = "C:\My Documents\My Pictures" '-gifファイルのフォルダ
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

上記"Sub 画像取込()"から"End Sub"までがマクロになります。この例ではC:\My Documents\My Picturesのフォルダにあるgifファイルすべてが対象です。適宜フォルダへのパスを変更してください。
マクロの実行方法ですが、
1, 画像ファイルを貼り付けるword文書を開いて、Alt+F11キーを押します。
2, VisualBasicEditorが立ち上がりますので、左の方のプロジェクトエクスプローラのTisDocumentが選択されているのを確認して、コードウインドウに上記マクロをコピー＆ペーストしてください。
3, VisualBasicEditorを閉じて、Alt+F8キーを押すとマクロリストのダイアログが立ち上がりますので、"画像取込"を選択して"実行"をクリックします。

マクロはコマンドボタンに登録することもできます。

windows2000 word2000 で動作確認

この回答へのお礼

ご回答ありがとうございます。
早速使用させていただきます。
かなり作業時間の短縮になります。
本当にありがとうございます。

お礼日時：2004/02/26 08:25

No.1 回答者： neKo_deux 回答日時： 2004/02/25 17:16

マクロ(VBA)を使用すると可能です。

1) 画像を挿入、ファイル名を記述する操作をマクロに記録。
2) マクロのファイル名の部分を外から与えられるよう変更。
3) ファイルの一覧を取得。
4) ファイル数分2)を呼び出すマクロを作成。(Excelが便利)

--
雑な方法ですと、画像の一覧のhtmlを作成するツールで作成したhtmlをWordに取り込むとか。

この回答へのお礼

ご回答ありがとうございます。
ＶＢＡに関してはまだ勉強中です。
参考にさせて頂きます。
ありがとうございました。

お礼日時：2004/02/26 08:27