Pastes the shapes or text on the Clipboard into the specified Shapes collection, at the top of the z-order. Each pasted object becomes a member of the specified Shapes collection. If the Clipboard contains a text range, the text will be pasted into a newly created TextFrame shape. Returns a ShapeRange object that represents the pasted objects.
expression.Paste
expression Required. An expression that returns a Shapes collection.
Paste method as it applies to the TextRange object.
Pastes the text on the Clipboard into the specified text range, and returns a TextRange object that represents the pasted text.
expression.Paste
expression Required. An expression that returns a TextRange object.
Example
As it applies to the Shapes object.
This example copies shape one on page one in the active publication to the Clipboard and then pastes it into page two.
With ActiveDocument
.Pages(1).Shapes(1).Copy
.Pages(2).Shapes.Paste
End With
As it applies to the TextRange object.
This example cuts the text in shape one on page one in the active publication, places it on the Clipboard, and then pastes it after the first word in shape two on the same page. This example assumes that each shape contains text.
With ActiveDocument.Pages(1)
.Shapes(1).TextFrame.TextRange.Cut
.Shapes(2).TextFrame.TextRange. _
Words(1).Paste
End With