OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Developer Forums > VBA > CorelDRAW/Corel DESIGNER VBA

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 15-01-2017, 06:21
knowbodynow knowbodynow is offline
Senior Member
 
Join Date: Mar 2006
Location: Hatsukaichi near Hiroshima
Posts: 430
Default X6 Changecase problem?

If I run the following code with CorelDraw X6 (no service packs) then the changecase fails - it deletes the word. Is this a known bug? Or a problem with the code? Thanks.

Code:
Sub TestChangeCase()

    Dim s As Shape
    Dim tr1 As TextRange, tr2 As TextRange, tr3 As TextRange
    Dim tr4 As TextRange
    
    Set s = ActiveLayer.CreateArtisticText(2, 3, "Word1 Word2 Word3")
    Set tr1 = s.text.Story.Words(1)
    Set tr2 = s.text.Story.Words(2)
    Set tr3 = s.text.Story.Words(3)
    
    tr1.ChangeCase cdrTextUpperCase

End Sub
Reply With Quote
  #2  
Old 16-01-2017, 15:39
shelbym's Avatar
shelbym shelbym is offline
Senior Member
 
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,769
Blog Entries: 9
Send a message via ICQ to shelbym Send a message via AIM to shelbym Send a message via MSN to shelbym Send a message via Yahoo to shelbym
Default Code

The code works fine in X6 16.4.1.1281 so I am going to guess it is a bug in that version.

-Shelby
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


All times are GMT -5. The time now is 17:55.


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