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