Ver Mensaje Individual
  #1 (permalink)  
Antiguo 06/10/2008, 08:42
Avatar de Vanchi
Vanchi
Colaborador
 
Fecha de Ingreso: enero-2007
Ubicación: Io voy donde vo' vai... Ca'eza
Mensajes: 1.111
Antigüedad: 17 años, 3 meses
Puntos: 138
Código para insertar fórmula en OO.o Writer

Buen día Gente,

Estoy haciendo un programa que me genera memorias de cálculos con los datos que tengo almacenados en bases de datos.

He buscado mucho en internet y por suerte he encontrado solución a casi todas mis necesidades, con la excepción que no logré insertar fórmulas (tampoco gráficos desde archivo, pero eso es otro tema). Actualmente el programa transcribe las fórmulas a la memoria como textos pero no se ven para nada elegantes...

Ej:
Código:
ixx = (Ixx /A)^.5
Lo que busco es poder insertar un objeto "fórmula" para que la misma quede bien presentada.

Sería el equivalente a hacer en OO.o Writer "Insertar > Objeto > Fórmula" y escribir para el ejemplo anterior
Código:
i_xx = sqrt{I_xx over A}
¿Saben cómo se hace?

NOTA: Respecto al lenguaje que estoy trabajando... Si bien es VB.Net (Les dejo una pequeña muestra), respuestas en CUALQUIER lenguaje son bienvenidas.

Código:
Dim oSM As Object
Dim oDesk, oDoc As Object
Dim arg() As Object 
Dim objText, objCursor, objTabla As Object

MainForm.Cursor = Cursors.WaitCursor
Try
	oSM = CreateObject("com.sun.star.ServiceManager")
Catch
	Msgbox ("Fallo al intentar inicializar OpenOffice.org." )
	Exit Sub
End Try
oDesk = oSM.CreateInstance("com.sun.star.frame.Desktop")
ReDim arg(-1)
oDoc = oDesk.loadComponentFromURL("private:factory/swriter", "_blank", 0, arg)
objText = oDoc.GetText
objCursor = objText.createTextCursor

objCursor.setPropertyValue ("ParaStyleName", "Heading 1")
objText.insertString (objCursor, Proc.Procedimiento(0).Titulo & vbCr, False)
__________________
Según recientes estudios científicos, los 3 más grandes descubrimientos de la humanidad son: El fuego, la rueda y la minifalda.
Yo personalmente no le encuentro mucha utilidad a los 2 primeros.