PslOutputWnd.Type
Returns the type of a line in the output window.
pslOutputText (value = 0) The line contains a simple text output
pslOutputError (value = 1) The line contains an error message
pslOutputJump (value = 2) The line contains text with a 'jump', i.e. the user can doubleclick the line to select a string.
Syntax
Expression.Type (Line as Long) as Long
Expression Object of type PslOutputWnd
Line The line number, the first line has the number 1
Example
Dim trn As PslTransList
Dim trn As PslTransList
Set trn = PSL.ActiveTransList
If trn Is Nothing Then Exit Sub
' Perform check on active translation list
trn.Check
Dim checkwnd As PslOutputWnd
Set checkwnd = PSL.OutputWnd(pslOutputWndCheck)
Dim Line As Long
For Line = 1 To checkwnd.LineCount
If checkwnd.Type(Line) = pslOutputJump And _
checkwnd.JumpError(Line) = 301 Then
' Mark translation string
Dim t As PslTransString
Set t = trn.String(checkwnd.JumpNumber(Line), pslNumber)
t.TransComment = "TODO: Resize"
End If
Next Line
trn.Save