PassoloApp.ActiveTransDisplay
Returns the current PslTransDisplay object, this means the source list window that is just active.
Syntax
Expression.ActiveSourceList as PslSourceList
Expression Required. Object of type PassoloApp
Example
Dim tdisp As PslTransDisplay
Set tdisp = PSL.ActiveTransDisplay
If tdisp Is Nothing Then
PSL.Output
"No active translation list window found."
Else
PSL.Output "Strings in active translation list window: " & tdisp.StringCount
End If