Okay, I am probably going about this the wrong way, but if you package this script, it will read all the lines in the rtf file as though it were a text file.
Lines/paragraphs with text start with "\par", but you may not get anything useful from this technique:
'-----------------
i = 1
Const ForReading = 1
Set ObjFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = ObjFSO.OpenTextFile("C:\Sample1.rtf", ForReading)
Do Until objFile.AtEndOfStream
sValue = objFile.ReadLine
WScript.Echo sValue
i = i + 1
Loop
WScript.Echo sName
'-----------------
Hope this helps somehow.
mmcdonal
|