🚀 go-pugleaf

This seems highly inefficient, but it looks like it works...

Function GetSelection(Optional whichCase As Integer) As String

Dim inD As InDesign.Application
Dim iDoc As InDesign.Document
Dim iWord As InDesign.Word
Dim sWords As String

Set inD = CreateObject("InDesign.Application.CS2")
Set iSel = inD.Selection

If TypeName(iSel.Item(1)) = "Text" Then
    For Each iWord In iSel.Item(1).Words
        sWords = sWords & " " & iWord.Contents
    Next iWord
Else
    MsgBox "You must have one or more characters of text selected", vbExclamation, "Get Selection"
    GetSelection = ""
End If

Select Case whichCase
    Case 0 'As is
        GetSelection = sWords
    Case 1 'UPPER CASE
        GetSelection = UCase(sWords)
    Case 2 'lower case
        GetSelection = LCase(sWords)
    Case Else
        GetSelection = sWords
    End Select

Set inD = Nothing
Set iDoc = Nothing
Set iWord = Nothing
Set iSel = Nothing

End Function