Apache OpenOffice: Foro oficial de la comunidad

Código: Seleccionar todo

sub InsDocumento (sruta as string)
' Inserta en la hoja actual el archivo sruta con ruta absoluta en formato URL
'
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")


rem ----------------------------------------------------------------------
dim args2(1) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Name"
args2(0).Value = sruta
args2(1).Name = "Filter"
args2(1).Value = "writer8"
dispatcher.executeDispatch(document, ".uno:InsertDoc", "", 0, args2())

end sub

Código: Seleccionar todo

Sub Main
Dim oDoc As Object
Dim oTexto As Object
Dim oCursor As Object
Dim oVCursor As Object

	oDoc = ThisComponent
	oTexto = oDoc.getText
	oCursor = oTexto.createTextCursor
	
	'Movemos el cursor al final del texto
	oCursor.gotoEnd( False )
	'Insertamos un salto de parrafo
	oTexto.insertControlCharacter( oCursor, com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK, False )
	'Al establecer la propiedad PageDescName, le indicamos que queremos un salto de página, usamos el
	'mismo nombre del estilo de página actual
	oCursor.PageDescName = oCursor.PageStyleName
	
	'Insertas lo que quieras en la nueva página
	oCursor.setString( "Prueba 1" )
	
	'Ahora usamos el cursor visual
	oVCursor = oDoc.CurrentController.getViewCursor()
	'Movemos al final
	oVCursor.gotoEnd( False )
	'Insertamos un salto de parrafo
	oTexto.insertControlCharacter( oVCursor, com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK, False )
 	'Establecemos el salto de página
 	oVCursor.BreakType = com.sun.star.style.BreakType.PAGE_BEFORE
 	
 	'Insertamos una prueba
 	oVCursor.setString( "Prueba 2" )
 	
End Sub