Copying shapes and text

[hlngus]

I'm in need of copying an inline shape plus text for an entire
document.
When performing a 'select all', only the text gets highlighted.

How does one incorporate the activedocument.shapes.selectall method
with the selection of text in one pass? I wish to allow the user to
copy shapes and text as originally input into another doc.


The inline shape was created using the following:

Selection.InlineShapes.AddPicture(FileName:=FileName, _
LinkToFile:=False, SaveWithDocument:=True).Select

Thanks in advance.

 

[hlngus]

Forgot to mention, that I'm coding for Word 2000.

 

[Jezebel]

ActiveDocument.Content.Copy

You don't need to select things to copy them.