OberonPlace.com Forums  

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

Thread Tools Search this Thread Display Modes
Old 19-03-2019, 15:27
gorgo gorgo is offline
Senior Member
Join Date: Feb 2010
Posts: 169
Default Insert space then delete space

I need to insert a space between text, then delete it. Is there a macro for this?
Reply With Quote
Old 22-04-2019, 20:44
knowbodynow knowbodynow is offline
Senior Member
Join Date: Mar 2006
Location: Hatsukaichi near Hiroshima
Posts: 432

What kind of text? Under what circumstances? The following macro works with x6. For selected artistic text if the character spacing is 0 it makes it 200. if the spacing is not 0 then it makes it 0:

Sub ToggleSpacepace()

Dim s As Shape

If ActiveSelection.Shapes.Count = 0 Then

    MsgBox "Please Select some text to process", vbInformation, "Nothing Selected!"
    Exit Sub

End If

For Each s In ActiveSelection.Shapes

    If s.Type = cdrTextShape Then
        If s.text.Story.CharSpacing = 0 Then
        s.text.Story.CharSpacing = 200
        s.text.Story.CharSpacing = 0
        End If
    End If

Next s

End Sub
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

Similar Threads
Thread Thread Starter Forum Replies Last Post
Vertical lettering in a tapered space gordonhd55 Feature requests/wishlist 1 26-02-2012 12:01
Space Selected Layers Evenly ProofingGuy CorelDRAW/Corel DESIGNER VBA 2 11-06-2008 16:06
thin space keytecstaff General 1 11-10-2006 11:31
Changing color space in an RGB only world... ddonnahoe CorelDRAW/Corel DESIGNER VBA 1 16-03-2005 15:44
... Non breaking Space ... Hernán General 5 06-01-2005 06:03

All times are GMT -5. The time now is 01:51.

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