View Single Post
  #2  
Old 15-09-2010, 10:40
runflacruiser's Avatar
runflacruiser runflacruiser is offline
Senior Member
 
Join Date: Jun 2009
Location: Pigeon Forge, TN USA
Posts: 811
Default

Hi.
Here's a chunk of one of mine that may help you.
-John

Code:
Dim s As Shape, sr As ShapeRange
    Dim myChr As String
    
    Set sr = ActiveSelectionRange
    For Each s In sr
        If s.Type <> cdrTextShape Then Exit Sub
        myChr = s.Text.Story.Characters(1)
        
        If myChr = "!" Then 'do this.
            
        ElseIf myChr = "@" Then 'do this
            
        ElseIf myChr = "#" Then 'do this instead
            
        ElseIf myChr = "*" Then 'naw...do this
            
        Else '...forget it, do this
            
        End If
    Next s
Reply With Quote