Printing embedded documents (Word 2003)

[willie_joe]

I have received a document which contains 7 embedded documents. Is there a way to print the primary and the 7 embedded documents without having to open each embedded document?

[HansV]

If the documents have been embedded as EMBED fields, you'll have to open each of the documents in turn to print them. You can do this in code, if you like:

Sub PrintEmbedded()
Dim fld As Field
' Print main doc
ActiveDocument.PrintOut
' Loop through fields
For Each fld In ActiveDocument.Fields
' Is it an embedded doc?
If fld.Type = wdFieldEmbed Then
If so, open it
fld.OLEFormat.DoVerb VerbIndex:=1
' And print it
ActiveDocument.PrintOut
' Close it
ActiveDocument.Close False
End If
Next fld
End Sub