PslOutputWnd.JumpError
If the type of a text line is pslOutputJump, this property returns the associated error number.
Syntax
Expression.JumpError (Line as Long) as Long
Expression Object of type PslOutputWnd
Line The line number, the first line has the number 1
Syntax
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