Openoffice und XHTML

 

 

Leider funktioniert der XHTML Export von Openoffice2 noch nicht gut genug. Ich bin daher wieder auf OO1.x zurückgewechselt.

 

Um OODokumente zu exportieren ist im Moment ein mehrstufiger Vorgang nötig: es muß

  1. das Dokument als normales HTML Dokument abgespeichert werde; dabei werden die eingebetteten Bilder exportiert

  2. das Dokument neu geladen werden; die Links auf die exportierten Bilder werden hergestellt

  3. das Dokument als XHTML Dokument exportiert werden.

 

Folgendes Makro kann behilflich sein:

 

 

'Kner 2006

 

sub WriteToHTMLStrict (filename as string)

  '1. export embedded pictures als html

        dim dispatcher as object

        dim doc as object

        dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

        doc   = ThisComponent.CurrentController.Frame

        dim args1(1) as new com.sun.star.beans.PropertyValue

        args1(0).Name = "URL"

        args1(0).Value = ConvertToURL(filename)

        args1(1).Name = "FilterName"

        args1(1).Value = "HTML (StarWriter)"

        dispatcher.executeDispatch(doc, ".uno:SaveAs", "", 0, args1())

 

  '2. reload document; links to exported pictures ready

        dispatcher.executeDispatch(doc, ".uno:Reload", "", 0, Array())

 

  '3. export to xhtml

        dim args2(1) as new com.sun.star.beans.PropertyValue

        args2(0).Name = "URL"

        args2(0).Value = ConvertToURL(filename)

        args2(1).Name = "FilterName"

        args2(1).Value = "XHTML 1.0 strict File"

        dispatcher.executeDispatch(doc, ".uno:ExportTo", "", 0, args2())

end sub