OberonPlace.com Forums  

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

Thread Tools Search this Thread Display Modes
Old 15-01-2017, 07:21
knowbodynow knowbodynow is offline
Senior Member
Join Date: Mar 2006
Location: Hatsukaichi near Hiroshima
Posts: 434
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.

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
Old 16-01-2017, 16:39
shelbym's Avatar
shelbym shelbym is offline
Senior Member
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,790
Blog Entries: 13
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 so I am going to guess it is a bug in that version.

Reply With Quote

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 11:27.

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