OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Corel User Forums > CorelDRAW > General

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 11-02-2010, 00:17
misteralien
Guest
 
Posts: n/a
Default get selection text help

can someone help me with this? i want the macro to get the text at the selected shape. this is obviously not working. thanks.

Sub getselectiontext()
ActiveDocument.Pages(pagenum).ActiveLayer.Activate
ActivePage.SelectShapesAtPoint(2.3, 9.88, True).CreateSelection
Set shRange = ActiveSelectionRange
MsgBox shRange.Shapes.Count

For Each stext In shRange.FindShapes(Type:=cdrTextShape)
Set tr = stext.Text.Story.Duplicate
MsgBox tr

Next stext


' If s.Type = cdrTextShape Then s.Text.Story = "New Text": Stop

End Sub
Reply With Quote
Reply


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Object Selection norbert_ds CorelDRAW/Corel DESIGNER VBA 4 17-04-2007 09:52
Automatic Selection Jim Holt General 1 16-02-2006 11:13
Text selection and sizing ddonnahoe CorelDRAW/Corel DESIGNER VBA 5 17-05-2005 14:19
Text selection problem ken_ac CorelDRAW/Corel DESIGNER VBA 2 10-02-2004 21:24
Selection of Text off-page D_Green CorelDRAW/Corel DESIGNER VBA 2 04-10-2003 17:34


All times are GMT -5. The time now is 14:37.


Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
Copyright © 2011, Oberonplace.com