Makro für RTF to HTML
Verfasst: Sa, 20.12.2003 18:16
Hallo,
ich habe diese Frage schon auf der users@de.openoffice.org gestellt, und von Thomas Krumbein den Hinweis auf dieses Forum bekommen.
Ich möchte ein Makro erstellen, dass alle RTF-Dokumente eines Verzeichnises öffnet und anschließend in einem anderen V als HTML speicher. Ich hab inzwischen schon einiges hinbekommen, habe aber noch Fragen.
Wie kann ich von dem Dateinamen "file.rtf" die Endung ".rtf" entfernen. sonst bekomme ich immer "file.rtf.html" als neue Dateinamen?
Wie kann ich bei speicher steuern, dass enthaltene Bilder im HTML-Verzeichnis mitgespeichert werden, momentan werden Bilder nur ins RTF-Verzeichnis verlinkt?
Für evtl. Hilfen scho jetzt vilen Dank.
Johann
ich habe diese Frage schon auf der users@de.openoffice.org gestellt, und von Thomas Krumbein den Hinweis auf dieses Forum bekommen.
Ich möchte ein Makro erstellen, dass alle RTF-Dokumente eines Verzeichnises öffnet und anschließend in einem anderen V als HTML speicher. Ich hab inzwischen schon einiges hinbekommen, habe aber noch Fragen.
Code: Alles auswählen
Sub rtf2html
REM Alle RTFs im Verzeichnis lesen
dim args()
Dim in_Path As String
Dim out_Path As String
Dim sDir as String
Dim sValue as String
Dim sEndung as String
sDir="Dateien:"
in_Path = "/home/spo/tmp/tmp/"
out_Path = "/home/spo/tmp/tmp/HTML/"
sEndung = "*.rtf"
sWert = Dir$(in_Path + sEndung,0)
sValue = sWert
Do
if (GetAttr( in_Path + getPathSeparator + sValue) AND 0) =0 then
sUrl1$ = "file://" & in_Path & sValue
Rem Datei oeffnen
objDokument = starDesktop.loadComponentFromURL(sUrl1, "_blank", 0, args())
Rem Datei als HTML speichern
dim args1(0) as new com.sun.star.beans.PropertyValue
sUrl = "file://" & out_Path & sValue & ".html"
args1(0).Name = "FilterName"
args1(0).Value = "HTML (StarWriter)"
objDokument.storeAsUrl(sUrl, args1())
rem objDokument.close(-1)
End If
sValue = Dir$
Loop until sValue = ""
MsgBox Chr(13) + sWert + Chr(13) + Chr(13) + "wurde(n) als HTML gespeichert",0,"Meldung"
End sub
Wie kann ich bei speicher steuern, dass enthaltene Bilder im HTML-Verzeichnis mitgespeichert werden, momentan werden Bilder nur ins RTF-Verzeichnis verlinkt?
Für evtl. Hilfen scho jetzt vilen Dank.
Johann