Foros del Web » Programación para mayores de 30 ;) » Programación General »

Código para insertar fórmula en OO.o Writer

Estas en el tema de Código para insertar fórmula en OO.o Writer en el foro de Programación General en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 06/10/2008, 08:42
Avatar de 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.
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 07:00.