Datenaufbereitung - Automatisch von Word/Excel nach TXT/CSV mit OpenOffice

Viele kleinere Sender haben kein WWW-Presseportal, sondern versenden die Program-Informationen mit Hilfe von Word-Dateien.

Diese Word-Dateien kann man sehr schlecht mit Java bearbeiten. Ich benutze bei mir OpenOffice, um automatisch aus den Word-Dokumenten Txt-Dateien zu erzeugen.

Dazu muß ein neues Marko erzeugt werden:

Sub ConvertWordToTXT( cFile )
  cURL = ConvertToURL( cFile )
  
 ' Open the document.
  ' Just blindly assume that the document is of a type that OOo will
  '  correctly recognize and open -- without specifying an import filter.
  oDoc = StarDesktop.loadComponentFromURL( cURL, "_blank", 0, Array(_
           MakePropertyValue( "Hidden", True ),_
           ) )
  cFile = Left( cFile, Len( cFile ) - 4 ) + ".txt"
  cURL = ConvertToURL( cFile )

  ' Save the document using a filter.   
  oDoc.storeToURL( cURL, Array(MakePropertyValue( "FilterName", "TEXT" ))
  
  oDoc.close( True )
End Sub

Diese Makro kann von der Kommandozeile bedient werden mit:

soffice -invisible "macro:///BodumsLibrary.Conversion.ConvertWordToTXT('Test.doc')"

Nach diesem Aufruf existiert eine Test.txt in dem selben Verzeichniss wie die Test.doc. Natürlich muß der Name der Library angepasst werden.