Thank you
-Ralf.
Sub CopyPasteText()
Dim s As Shape
ActiveShape.Text.Story.Copy
Set s = ActiveLayer.CreateParagraphText(0, 0, 2, 2)
s.Text.Story.Paste
End Sub
I hope this helps.
"Ralf Schneider" <ra...@dynamco.com.au> wrote in message
news:412e865d_3@cnews...
"Alex Vakulenko" <alexv@vakcer_dot_com> wrote in message
news:413665dc_1@cnews...
Alex
"Ralf Schneider" <ra...@dynamco.com.au> wrote in message
news:4149143a_1@cnews...