Hi =?Utf-8?B?VGVycnlL?=,
I have both Word 2000 and 2002 available at my office. I can use which
ever is better for this procedure in your judgement.
I am fairly proficient in VBA and macros in Excel but Word is not my forte.
The main difference in these two versions, for the approach I have in
mind, is that Word 2002 provides "FileDialog", making it possible to
display a dialog box and select multiple files, then process them.
Since you're comfortable with VBA I'm going to let you do a little
exploring on this part

The same FileDialog is common to all Office XP
apps, including Excel. So look it up in the Excel VBA Help files and get a
feel for how it works. (I found it to be quite a bit of fun, when I
discovered it.)
What you need to retrieve is 1) the file path and 2) the file name(s) of
your selection. The examples will show you how this is done, you work
through the selections in a loop. The following bit of sample code will
show you how to insert the pictures one after the other at the end of the
current document.
Dim doc as Word.Document
Dim rng as Word.Range
Set doc = ActiveDocument
Set rng = doc.Range
rng.Collapse wdCollapseEnd
For Each vrtSelectedItem In .SelectedItems
doc.InlineShapes.AddPicture _
FileName:=vrtSelectedItem, _
Range:=rng
rng.MoveEnd wdCharacter, 2
rng.Collapse wdCollapseEnd
rng.MoveEnd wdCharacter, 1
rng.InsertCaption 'args you need here
rng.Collapse wdCollapseEnd
rng.InsertAfter vbCR
rng.Collapse wdCollapseEnd
Next vrtSelectedItem
Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Sep 30 2003)
http://www.mvps.org/word
This reply is posted in the Newsgroup; please post any follow question or
reply in the newsgroup and not by e-mail
