The code that Brian gave you was not appropriate for Embedded object.
The following will however copy such objects to another document:
Dim Source As Document, Target As Document
Dim rngTarget As Range
Dim i As Long
Set Source = ActiveDocument
Set Target = Documents.Add
With Source
For i = .Fields.Count To 1 Step -1
If .Fields(i).Type = wdFieldEmbed Then
.Fields(i).Copy 'Use Cut instead of Copy if you want to remove
the files from the source
Set rngTarget = Target.Range
rngTarget.Collapse wdCollapseEnd
rngTarget.Paste
Target.Range.InsertAfter vbCr
End If
Next i
End With
--
Hope this helps.
Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.
Doug Robbins - Word MVP, originally posted via msnews.microsoft.com
"DeanH" wrote in message
...
In the specific document that started all this, for one of the files I see
{EMBED Excel.sheet.12}
DeanH
"Doug Robbins - Word MVP" wrote:
If you toggle on the display of field codes (Alt+F9) in the document
that
contains the embedded files, what do you see?
--
Hope this helps.
Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.
Doug Robbins - Word MVP, originally posted via msnews.microsoft.com
"DeanH" wrote in message
...
Doug.
All the embedded file are InLine.
It appears that nothing is happening when the macro is run.
What I have checked is the following.
Run macro.
No new documents appear in the folder of the original file.
No new documents are created in the drive.
Now search turns up any file with the names of the embedded files.
I have done several tests with some old documents of mine, new
documents
for
testing, as well as the document that I wanted this macro for in the
first
place, no extraction happens.
From the macro script I gather that the extracted files should go to
the
same folder as the original document, and they are named as per the
icon
display.
Any way, I have manually extractd the files I needed, but it would be
nice
to get this working.
Many thanks for your perseverance.
DeanH
"Doug Robbins - Word MVP" wrote:
Exactly what is it that you have in the document? That macro is
specifically for in-line shapes.
--
Hope this helps.
Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.
Doug Robbins - Word MVP, originally posted via msnews.microsoft.com
"DeanH" wrote in message
...
Doug, thanks for the input. The macro does not fail now, but it also
does
not
do the extraction.
I have done several tests with several different files, in different
locations, but no extraction happens :-(
DeanH
"Doug Robbins - Word MVP" wrote:
Probably caused by line breaks inserted by the mail program.
Try
For Each shape In ThisDocument.InlineShapes
If shape.Type = wdInlineShapeEmbeddedOLEObject And _
InStr(LCase(shape.OLEFormat.IconLabel), ".doc") 0 Then
shape.OLEFormat.Object.SaveAs (folderName & "\" & _
shape.OLEFormat.IconLabel)
End If
Next shape
--
Hope this helps.
Please reply to the newsgroup unless you wish to avail yourself of
my
services on a paid consulting basis.
Doug Robbins - Word MVP, originally posted via msnews.microsoft.com
"DeanH" wrote in message
...
Brian, thanks but sorry, it fails at the "End If".
"Compile error: End If without block If"
DeanH
"Brian" wrote:
Found the following for extracting embedded word files. Haven't
tried
it
though.
Sub ExtractFiles()
'
' ExtractFiles Macro
'
'
Dim shape As InlineShape
Dim folderName As String
Dim a As Document
folderName = Replace(ThisDocument.Name, ".", "_")
MkDir folderName
For Each shape In ThisDocument.InlineShapes
If (shape.Type = wdInlineShapeEmbeddedOLEObject) And
(InStr(LCase(shape.OLEFormat.IconLabel), ".doc") 0) Then
shape.OLEFormat.Object.SaveAs (folderName & "\" &
shape.OLEFormat.IconLabel)
End If
Next shape
End Sub
Hope it helps.
--
Brian McCaffery
"DeanH" wrote:
Word 2003 on XP
Is there a way to extract embedded files all in one go?
Like the image file extraction process described in
http://www.gmayor.com/extract_images_from_word.htm but for
embedded
files?
Many thanks
DeanH