RTF conversion by a macro fails (reproducable) for long documents while it works
with shorter documents.

This is the macro code:

Sub Main (FileName as string)

	On Error Goto ErrorHandler
	Dim Doc as Object
	Dim document as Object
	Dim Url as String
	Dim Dummy()
	Dim oCursor As Object


	'Save as HTML

	HTMLFileName = ReplaceFileAppendix(FileName, "html")

	Dim args1(1) as new com.sun.star.beans.PropertyValue
	args1(0).Name = "Overwrite"
	args1(0).Value = True
	args1(1).Name = "FilterName"
	args1(1).Value = "HTML (StarWriter)"
	Doc.storeAsURL("file://" + HTMLFileName, args1())


	'Save As RTF

	RTFFileName = ReplaceFileAppendix(FileName, "rtf")
	args1(1).Value = "Rich Text Format"
	Doc.storeAsURL("file://" + RTFFileName, args1())


	'Save As PDF

	PDFFileName = ReplaceFileAppendix(FileName, "pdf")
	Dim PDFargs1(1) as new com.sun.star.beans.PropertyValue
	PDFargs1(0).Name = "FilterName"
	PDFargs1(0).Value = "writer_pdf_Export"
	PDFargs1(1).Name = "CompressMode"
	PDFargs1(1).Value = 0
	Doc.storeToURL("file://" + PDFFileName, PDFargs1())


	Doc.dispose()

Exit Sub

ErrorHandler:
	Doc.dispose()

End Sub