Open only one page of the RTF file

[iFuradon]

I have a RTF file with a table on each page. I need to get the number of rows and columns of a table on a given page (nPage). To do this, I open the file (FileRTF its size is 150 MB) and get the data I need. However, this takes a very long time to open. Is there a different approach?

Dim aResult(1) As Integer 
Dim nAllPages As Long 
Dim nPage  As Long 
Dim oRTF As Object

Set oRTF = GetObject(FileRTF)
        
 nAllPages = oRTF.Tables.Count
        
 If nPage > nAllPages Then
     nPage = nAllPages 
End If
        
aResult(0) = oRTF.Tables(nPage).Columns.Count
aResult(1) = oRTF.Tables(nPage).Rows.Count

 

[iFuradon]

Сan only load part of a file - is it possible?

 

[6StringJazzer]

Short answer is no. You can read in part of a plain text file but you cannot open just part of an RTF, which has non-ASCII content.