[macropod[_2_]]

Hi Medusa,

You could use the mailmerge to insert the pictures, without recourse to a macro. The field code to insert & unlink the pictures
would be either:
{IF {INCLUDEPICTURE {IF TRUE "C:\Users\My Document Path\Pictures\«Image»"} \d} {INCLUDEPICTURE {IF TRUE "C:\Users\My Document
Path\Pictures\«Image»"} \d}}
or
{IF {INCLUDEPICTURE {IF TRUE "C:\Users\My Document Path\Pictures\{MERGEFIELD Image}"} \d} {INCLUDEPICTURE {IF TRUE "C:\Users\My
Document Path\Pictures\{MERGEFIELD Image}"} \d}}
where 'C:\Users\My Document Path\Pictures\' is the file path and 'Image' is you data sourcefield name for the images.

Note: The field brace pairs (ie '{ }') for the above examples are created via Ctrl-F9 - you can't simply type them or copy & paste
them from this message. Likwise, you can't type or copy & paste the chevrons (ie '« »') - they're part of the actual mergefields,
which you can insert from the mailmerge toolbar.

--
Cheers
macropod
[Microsoft MVP - Word]


"Medusa" wrote in message news
hello there;

I've creating a mailmerge template in Word 2003. The datasource (in excel)
includes filenames for .jpg images - 1 image per record, set against text
fields (it's actually property details, with a picture of the property).

The text fields are OK, but I recorded a macro, which I attached to the
template document, to type in the 'includePicture' command. The way I want
it to work is that the users open the template, open the datasource, then run
the macro to insert the 'Include picture' command in the final column of a
Word table.

This worked fine the first time I did it, but when I have tested it again,
the process is adding an additional copy of the image against each record in
the merged document - this is incrementing by 1 each time I run the process.

The code in the macro is:
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
PreserveFormatting:=False
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.TypeText Text:="IncludePicture""\\\\Printserver\\cblftp\\"
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
PreserveFormatting:=False
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.TypeText Text:="MERGEFIELD PHOTO"
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeText Text:=""""
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeText Text:="\d"
Selection.Delete Unit:=wdCharacter, Count:=1
End Sub

Can anybody help?

Thanks