Calling getString() on a text range while enumerating paragraphs causes the Writer to scroll 
automatically, to the point where the visible cursor was last placed. 

This is particularly apparent during repeated enumerations of document structure using a timer. 


<code>
Sub Main

While (1 = 1) 
	Run
	REM Wait 5 seconds...
	Wait (5000)
Wend

End Sub

Sub Run()

Dim oTextEnum as Object, oTextElement as Object
Dim  nHeadsFound as long

oText = ThisComponent.Text
nHeadsFound = -1
oTextEnum = oText.createEnumeration
While oTextEnum.hasMoreElements
	oTextElement = oTextEnum.nextElement
	If oTextElement.supportsService("com.sun.star.text.Paragraph") Then
		If oTextElement.ParaChapterNumberingLevel >= 0 then
			Dim strHeadingText as string
			REM IF YOU COMMMENT THE LINE BELOW, THE DOCUMENT DOES NOT SCROLL....
		    strHeadingText = oTextElement.getString()
			nHeadsFound = nHeadsFound + 1
		End If
	End If
Wend

End Sub

</code>