PslTransList.FindID
Returns a PslTransString with a given ID.
Syntax
Expression.FindID (ID as VARIANT, Index as Long) as PslTransString
Expression Object of type PsTransList
ID The ID you're looking for
Index Set to 1 to find the first token with ID. Increase the number to find following tokens with that ID.
Example
' Find all translation strings with the ID 100
Dim trn As PslTransList
Set trn = PSL.ActiveTransList
If Not trn Is Nothing Then
Dim t As PslTransString
Dim index As Long
index = 1
While True
Set t = trn.FindID(100, index)
If t Is Nothing Then Exit While
PSL.Output Str(t.Number)
index = index + 1
Wend
End If