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 19-03-2019, 14: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
  #2  
Old 22-04-2019, 19:44
knowbodynow knowbodynow is offline
Senior Member
 
Join Date: Mar 2006
Location: Hatsukaichi near Hiroshima
Posts: 430
Default

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:

Code:
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
        Else
        s.text.Story.CharSpacing = 0
        End If
    
    End If

Next s

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
Vertical lettering in a tapered space gordonhd55 Feature requests/wishlist 1 26-02-2012 11:01
Space Selected Layers Evenly ProofingGuy CorelDRAW/Corel DESIGNER VBA 2 11-06-2008 15:06
thin space keytecstaff General 1 11-10-2006 10:31
Changing color space in an RGB only world... ddonnahoe CorelDRAW/Corel DESIGNER VBA 1 16-03-2005 14:44
... Non breaking Space ... Hernán General 5 06-01-2005 05:03


All times are GMT -5. The time now is 16:10.


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