Copy Figure/image

[vbaNOOB]

Hi all,

I have a question on copying Fig/image from the doc.
Now I'm able to copy all Fig/image in the doc to another doc by copy and
paste the
Shapes and InShapes obj in the activedocument by VBA

However when there are drawings that contains couples of Shapes, (e.g 3 text
boxes and 3 drawn arrows to represent the relationship, 6 shapes represent 1
image) I can still copy these shapes, but I cant put them in the right order
or position. The image is meaningful when all shapes are in order and right
position

These what I have now:

For i = 1 To ActiveDocument.Shapes.count
'*** 2 process the image
'select the image again
Windows(originalFileName).Activate
ActiveDocument.Shapes(1).Select
Selection.Cut
Windows(figFileName).Activate
Selection.Paste
Selection.TypeParagraph
Windows(originalFileName).Activate
Next

The logic is to loop all shapes in the doc, then copy and paste them in a
new doc

Any1 can give me suggestion??

 

[Cindy M.]

Hi =?Utf-8?B?dmJhTk9PQg==?=,

Version of Word involved?

Do you have any say in how the graphics in these documents are created?

I have a question on copying Fig/image from the doc.
Now I'm able to copy all Fig/image in the doc to another doc by copy and
paste the
Shapes and InShapes obj in the activedocument by VBA

However when there are drawings that contains couples of Shapes, (e.g 3 text
boxes and 3 drawn arrows to represent the relationship, 6 shapes represent 1
image) I can still copy these shapes, but I cant put them in the right order
or position. The image is meaningful when all shapes are in order and right
position

These what I have now:

For i = 1 To ActiveDocument.Shapes.count
'*** 2 process the image
'select the image again
Windows(originalFileName).Activate
ActiveDocument.Shapes(1).Select
Selection.Cut
Windows(figFileName).Activate
Selection.Paste
Selection.TypeParagraph
Windows(originalFileName).Activate
Next

The logic is to loop all shapes in the doc, then copy and paste them in a
new doc

Any1 can give me suggestion??

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 17 2005)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question or reply
in the newsgroup and not by e-mail