Decription: No Description Left for this code
Date: 2010-11-10 Author: John
Code:
Sub TitleCase()
Dim s As Shape, sr As ShapeRange
Set sr = ActiveSelectionRange
For Each s In sr
On Error Resume Next
s.Text.Story.changeCase cdrTextTitleCase
Next s
End Sub
|
MyAccount
