GDG Code Chunks, Discussion, VBA Snippets for CorelDRAW, Simple Macro Helpers!

GDG Macros Suite 2025 is available. All 2025 macros are available for purchase separately as well.
Enter discount code: GDG2DECADES for 20% OFF (limited time)
GDG Macros Suite Upgrade Discount: SENT VIA EMAIL to those eligible
Thank you! ~John
Best deal! ALL MACROS IN ONE SUITE:
GDG Macros Suite 2023 and GDG Macros Suite 2024 and GDG Macros Suite 2025
(older versions of the products available below, as well)

Quick change selected text to title case

Decription: No Description Left for this code

Date: 2010-11-10 Author: John

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