🚀 go-pugleaf

Gang-- 

If you've ever wanted to get all of the characters in the selected text as a sequence of Unicode strings, you might find the following of interest. Make youself a form with a multi-line text field, then put this under a 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 = "" 
����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 
End If 
 

Note that some break characters are converted into returns, but everything else seems to come across OK. 

Thanks, 

Ole