Documentation Center

PslOutputWnd.JumpNumber

If the type of a text line is pslOutputJump, this property returns the number of the refered string.

Syntax

Expression.JumpNumber (Line as Long) as String

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