🚀 go-pugleaf

Gang-- 

I could swear I've posted this before, but I'll do so again because of the recent questions about special characters. Make yourself a form with a text field and a button. Put the following under the button: 



Dim myInDesign As InDesign.Application 
Set myInDesign = CreateObject("InDesign.Application.2.0") 
If myInDesign.Documents.Count > 0 Then 
Set myDocument = myInDesign.ActiveDocument 
Set mySelection = myInDesign.Selection 
    If mySelection.Count > 0 Then 
    Set myText = mySelection.Item(1) 
    myString = "" 
    If myText.Characters.Count > 1 Then 
        Set myCharacter = myText.Characters.ItemByRange(myText.Characters.Item(1), myText.Characters.Item(myText.Characters.Count)).Item(1) 
        myContents = myCharacter.TextContents 
        For myCounter = 1 To Len(myContents) 
            myCharacter = Mid(myContents, myCounter, 1) 
            If AscW(myCharacter) < 0 Or AscW(myCharacter) > 255 Then 
                myString = myString & "<" & CStr(Hex(AscW(myCharacter))) & ">" 
            Else 
                myPadString = "" 
                myLength = 4 - Len(CStr(Hex(AscW(myCharacter)))) 
                For myPadCounter = 1 To myLength 
                    myPadString = myPadString & "0" 
                Next 
                myString = myString & "<" & myPadString & Hex(AscW(myCharacter)) & ">" 
            End If 
        Next 
        Text1.Text = myString 
        End If 
    Else 
        MsgBox "Please select two or more characters. If you select a single character, InDesign will return the idSpecialCharacters enum decimal value, which won't work." 
    End If 
End If 




Select two or more characters in InDesign, then click the button. The script will put the Unicode strings for the selected characters into the text field. 

Thanks, 

Ole