🚀 go-pugleaf

Kelly,

You didn't specify AppleScript or VB. Here's a VB routine that will do a basic change-to-title-case. It assumes that the text to be shifted is the currently selected text.

If you wanted to get fancy, you could modify it to make articles and common prepositions all-lower-case (by providing an exception list).

Stu


Option Explicit

Sub Main()
    Dim objInDesign As InDesign.Application
    Dim objWord As InDesign.TextWord
    Dim sWord As String
    On Error GoTo CantChangeCase

Set objInDesign = CreateObject("InDesign.Application")
        If TypeName(objInDesign.Selection.Item(1)) = "Text" Then
            For Each objWord In objInDesign.Selection.Item(1).TextWords
                sWord = objWord.TextContents
                objWord.TextContents = TitleCase(sWord)
            Next
        Else
            MsgBox "You must have one or more characters of text selected to change case", vbExclamation, "InDesign Title Case Maker"
        End If
Exit Sub
CantChangeCase:
    MsgBox Err.Description, vbExclamation, "InDesign Title Case Maker"
Exit Sub
End Sub

Private Function TitleCase(ByRef sWord As String) As String
    Dim sFirst As String
    Dim sRest As String

sWord = Trim(sWord)
    If sWord <> vbNullString Then
        sFirst = UCase(Left(sWord, 1))
        If Len(sWord) > 1 Then
            sRest = LCase(Mid(sWord, 2))
        End If
    End If
    TitleCase = sFirst & sRest
End Function