Software

Ask something
Discussion Locked

Office2k-Word-Printing Embedded Docs

0 helpful
6 replies

by jboardman

Closed to new repliesThis discussion is closed. It stays readable, but it takes no new replies.
Have documents with other docs (word/excel/visio) embedded as icons, and some linked docs. Would like a way to print the doc AND all embedded/linked docs at the same time in series (ie base doc complete, embedded docs complete). Any suggestions? A macro perhaps? All suggestions welcome!

6 replies

by cruncher_1

I just did this by creating a test document with embedded icons and links. I created a new document for printing that includes all the links pasted in your preferred order.

1.Start by edit>select all--edit>copy Move to new doc and edit>paste This will copy your entire document as the beginning of your print document.

2.Next Right click on the first icon or link. Choose hyperlink>open>edit>select all--edit>copy Move to new doc and edit>paste This will copy your embedded document next in your print document.

3.Repeat step 2 until all documents are included in the print document.

4.Print

If you wish, you could record a macro to include in each document you want to print in this manner.

I hope this helps.

Good Luck.

by dklippert

Try this:

Sub PrintEmbedded()

IShape = ActiveDocument.InlineShapes.Count

For IXShape = 1 To IShape

ActiveDocument.InlineShapes(IXShape).Select

ActiveDocument.InlineShapes _(IXShape).OLEFormat.DoVerb VerbIndex:=1

' The line above can be one line. I inserted
' the line extender ( _) to fight
' word wrap.

ActiveDocument.PrintOut

ActiveDocument.Close

Next IXShape

End Sub

by dklippert

It doen't wrap as bad as I thought it would.
Here's the long line:

ActiveDocument.InlineShapes (IXShape).OLEFormat.DoVerb VerbIndex:=1

This discussion is closed to new replies.