Sub RestartNumbering
	Dim cursor   As Object
	cursor = ThisComponent.CurrentController.ViewCursor
	
	Dim startFrom As Integer
	startFrom = CInt(InputBox("Restart numbering from:"))
	
	cursor.NumberingStartValue = startFrom
End Sub