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