Re: MS Word: how to get a list of graphics

["Klopfenstein, Ed (AFS)" <edk -at- ACCU-FAB -dot- COM>]

> We link graphics (rather than embed them) in our Word documents. Does
> anyone
> know of a way to generate a list of the graphics used in the document?
> Could
> a macro do this?
>
        A quick solution would be to save all graphics in one folder and use
Office's FileSearch function in a macro to create a list of files. You then
create a new Word (or text or Excel) object to save your results.

        Another option that might be a little more involved but better suite
your needs is to use Word's LinkFormat object and read the file's
"SourceFullName" values. This would be more versatile since you could make
your file string a property and change the property anytime you want to save
a Word project to a new file source. Again, though, this is probably going
to be a little more involved.

        Here's a function I wrote using FileSearch to search for text
modules in my company's server. It returns a string.

        Hope it helps.

        Ed

        ******

        Public Function ShowProperties(File As String, _
            Folder As String, path As Boolean) As String
            Dim Result As String
            With Application.FileSearch
                .NewSearch
                .FileName = File
                If (formData.cmbDBSources.Value = "All Folders") = True Then
                    .LookIn = "I:\AFS\Modules\Manual"
                    Else
                    .LookIn = "I:\AFS\Modules\Manual\" _
                        & formData.cmbDBSources
                End If
                .SearchSubFolders = True
                .Execute
                ShowProperties = .LookIn & "\" & _
                    formData.lstFolders.Value & ".doc"
            End With
        End Function



**********************************
Ed Klopfenstein
Senior Technical Writer
Accu-Fab Systems, Inc.

541.758.3469, ext.321
http://www.accu-fab.com
Mailto:edk -at- accu-fab -dot- com

 From ??? -at- ??? Sun Jan 00 00:00:00 0000=