How to check if a string in a translation list is currently selected?

Question

Hello, 
 I want to perform certain tasks via a macro on the data of manually selected strings in one or more opened translation lists. 
 To do that I first need to check, which strings were selected manually before. 
 There seems to be no COM method or property to check if a string is currently selected. Among other things I had a look at "PslTransString.State", but there is no state like "Selected". 
 The only possibility I have found so far is to assign a special comment to the selected strings. Fortunately t his also works for strings in multiple opened translation lists (although the "NOTE" in "Translation Comment" states something else). 
 
 The comments of all selected strings are set to "to be processed" afterwards. 
 The macro could then identify all selected strings via the assigned special comment and perform some operations on the string data (to preserve already existing comments the macro first needs to store already existing comments in a list and rewrite them in the end). 
 To have to assign a special comment first (e.g. a single character like "&sect;") to the selected strings is a bit laborious for the user. 
 Would be nice if there exists a simpler method to detect selected strings in a translation list. 
 Have I perhaps overlooked something in the COM reference? 
 Best regards 
 Karl-Heinz

Karl-Heinz Claas · Accepted Answer

Many thanks. With your hints I could find the perfect solution for my task. 
 Finding the required objects, methods, properties in the COM reference for a task can sometimes be really demanding. 
 I had to use the "PslTransDisplay" object to get all selected strings in multiple opened translation lists. 
 
 Dim ptd As PslTransDisplay 
 Set ptd = PSL.ActiveTransDisplay

' process selected strings in opened translation lists... 
 For i = 1 To ptd .StringCount ( pslSelection )
 
 Dim ts As PslTransString 
 Set ts = ptd .String (i, pslSelection )

Dim list As String 
 list = ts .TransList.Title

Dim desc As String 
 desc = ts .Description

Dim text As String 
 text = ts .Text 
 ' process collected data... 
 Next i

Achim Herrmann · Answer

Without knowing whether you are looping a single PslTransList entries or a complete view with multiple lists PslTransDisplay you can access the selected string entries with a simple selector modifier. Instead of 
 For i = 1 To PslTransList.StringCount() 
 use 
 For i = 1 To PslTransList .StringCount(pslSelection) 
 which then just loops the selected string entries. 
 PS: Forget to add the you need to select just the selected entries using 
 Dim t As PslTransString Set t = PslTransString .String(i, pslSelection)

Passolo > 3. Object Model

How to check if a string in a translation list is currently selected?

Top Replies