View Single Post
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

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

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 ' this
        Else '...forget it, do this
        End If
    Next s
Reply With Quote