Error con DBF en OpenOffice 3.2

Con Ubuntu 10.4 cuando intentaba abrir o guardar un fichero DBF en OpenOffice Calc me daba el siguiente mensaje de error:

General Error.
General Input/Output Error.

Pensé que podía ser, que como pasa en las nuevas versiones de Office de Microsoft, que han dejado de dar soporte a este formato "clásico". Pero no, buscando un poco encontré la solución que parece que dio la lata a más de uno.

Hay que instalar openoffice.org-base y todo arreglado.

       

   

Pasar archivos de openoffice a pdf automáticamente

Una de las grandes comodidades de openoffice es poder contar con un botón que pase los documentos a PDF con un simple click. Pero si tienes muchos documentos y todos los quieres pasar a pdf, el hecho de abrirlos uno a uno y pulsar ese botón puede resultar laborioso.

Buscando alguna solución mágica del tipo "openoffice2pdf" o "odt2pdf", encontré el siguiente enlace
http://www.oooforum.org/forum/viewtopic.phtml?p=61967#61967 donde se ofrece una macro que hace justamente eso.

Los pasos para poder usarlo son los siguientes:

• Abrir openoffice e ir a Herramientas->Macros->Organizar->Basic
• Crear una nueva y copiar el siguiente código

Sub ExportAsPDF(strFile as string)
Dim oDoc
Dim strFilterSubName as String
Dim oLoadArgs(0) as New com.sun.star.beans.PropertyValue

oLoadArgs(0).Name = "Hidden"
oLoadArgs(0).Value = True

oDoc = StarDesktop.loadComponentFromURL(ConvertToUrl(strFile), "_blank", 0, oLoadArgs())
If IsNull(oDoc) Then Exit Sub

strFilterSubName = ""
' select appropriate filter
If oDoc.SupportsService("com.sun.star.presentation.PresentationDocument") Then
strFilterSubName = "impress_pdf_Export"
ElseIf oDoc.SupportsService("com.sun.star.sheet.SpreadsheetDocument") Then
strFilterSubName = "calc_pdf_Export"
ElseIf oDoc.SupportsService("com.sun.star.text.WebDocument") Then
strFilterSubName = "writer_web_pdf_Export"
ElseIf oDoc.SupportsService("com.sun.star.text.GlobalDocument") Then
strFilterSubName = "writer_globaldocument_pdf_Export"
ElseIf oDoc.SupportsService("com.sun.star.text.TextDocument") Then
strFilterSubName = "writer_pdf_Export"
ElseIf oDoc.SupportsService("com.sun.star.drawing.DrawingDocument") Then
strFilterSubName = "draw_pdf_Export"
ElseIf oDoc.SupportsService("com.sun.star.formula.FormulaProperties") Then
strFilterSubName = "math_pdf_Export"
ElseIf oDoc.SupportsService("com.sun.star.chart.ChartDocument") Then
strFilterSubName = "chart_pdf_Export"
Else
Exit Sub
EndIf

Dim oSaveArgs(1) as New com.sun.star.beans.PropertyValue
oSaveArgs(0).Name = "FilterName"
oSaveArgs(0).Value = strFilterSubName

oSaveArgs(1).Name = "CompressMode"
oSaveArgs(1).Value = "1"

oDoc.storeToUrl(ConvertToUrl( strFile & ".pdf" ), oSaveArgs())
oDoc.close(True)
End Sub

• Guardar la macro
• Llamar a openoffice desde línea de comandos con la siguiente instrucción:
  

  
  $openoffice.org3 "macro:///Standard.Module1.ExportAsPDF(pathCompleto/archivo.odt)"
  

Esto genera un archivo con nombre "miarchivo.odt.pdf" en la misma carpeta que el archivo origen. Y con esto... ya podemos crear un script que nos exporte a PDF de forma masiva!!!

       

   

Cómo instalar OpenOffice 3.0

El pasado 13 Oct 2008 se anunció la release de OpenOffice 3.0. Ésta incluye interesantes mejoras entre ellas me llamaron la atención las siguientes:

• Importación y edición de archivos PDF
• Una extensión de publicación en WikiMedia
• Mejoras en gráficos estadísticos

Para instalarlo en Ubuntu 8.04 hice lo siguiente:

Desinstalar la versión antigua (creo que no es estrictamente necesario).


$apt-get remove openoffice.org-core


Bajar el tar.gz de la página oficial de OpenOffice y descomprimirlo en /tmp



Entrar en la nueva carpeta y en el directorio DEBS



Instalar los paquetes debian con la instrucción:


$sudo dpkg -i *.deb

Entrar en la carpeta desktop-integration y repetir el comando del punto 4.

La prueba de que me funcionó :)