Documentation Center

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