List of inserted graphics

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Graphic question - 12 Feb 2008 20:55 GMT

How do I compile a list of the file names of all the graphics I inserted into
a Word document?

I have added graphics by Insert > Picture > From File and saved and linked
to the file. I've added and deleted graphics and now need to compile a list
of the graphics actually used in the document. How do I do this?

Thanks.

Reply to this Message

macropod - 12 Feb 2008 22:44 GMT

Hi,

There are two ways:
1. Press Alt-F9 to reveal the field codes. Any linked pictures that haven't been set to 'in-line with text' will appear as
'{INCLUDEPICTURE "C:\\My Documents\\PicName.jpg"}', where "C:\\My Documents\\PicName.jpg" is the file's path and name.
2. Use a macro to extract the name & path details from all INCLUDEPICTURE fields.

Cheers

Signature

macropod
[MVP - Microsoft Word]
-------------------------

> How do I compile a list of the file names of all the graphics I inserted into
> a Word document?
[quoted text clipped - 4 lines]
>
> Thanks.

Reply to this Message

Graphic question - 13 Feb 2008 00:53 GMT

Thanks for the response.

Does that mean that if it is set to in-line with text, there is no way to
retrieve this information?

> Hi,
>
[quoted text clipped - 12 lines]
> >
> > Thanks.

Reply to this Message

macropod - 13 Feb 2008 01:35 GMT

Hi,

Sorry, it's 'square' pictures that might cause difficulty. In any event, using a macro like the one below will do the job.

Sub ListLinkedImages()
Dim oFld As Field
If ActiveDocument.Fields.Count > 0 Then
For Each oFld In ActiveDocument.Fields
If oFld.Type = wdFieldIncludePicture Then
With Selection
.EndKey Unit:=wdStory
.InsertAfter vbCrLf
.EndKey Unit:=wdStory
.TypeText Text:=oFld.LinkFormat.SourceFullName
End With
End If
Next oFld
End If
End Sub

The list is created at the end of the document.

Note: This may not work with Word 2007, which seems to have implemented a new way of linking to images.

Cheers

Signature

macropod
[MVP - Microsoft Word]
-------------------------

> Thanks for the response.
>
[quoted text clipped - 17 lines]
>> >
>> > Thanks.

Reply to this Message

Graphic Question - 28 Mar 2008 21:22 GMT

Thanks so much! This worked great. For some reason Alt-F9 doesn't always
work, but this marco does what I need.

I appreciate your help.

> Hi,
>
[quoted text clipped - 42 lines]
> >> >
> >> > Thanks.

Reply to this Message