PslOutputWnd.LineCount

Returns the number of lines in the output window.

Syntax

Expression.LineCount as Long

Expression Object of type PslOutputWnd

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