Hallo Heiko,
Heiko Kuschel schrieb:
> ich br�uchte ein Skript, das folgendes tut:
> - Nimm den bereits vorhandenen Dateinamen.
> - Speichere die Datei unter diesem Namen in einem anderen,
> immer identischen Verzeichnis.
> (I:\Heiko\Eigene Webs\www.gochsheim-evangelisch.de\presse\)
> - speichere sie dort auch als .doc und .rtf (Name bleibt gleich)
Ich bin zu faul das (ordentlich) mit einer Function zu machen und habe
alles in ein Sub geschrieben:
Sub Main
x = GetFileNameWithoutExtension(ConvertToURL(ThisComponent.URL), "/")
Dim oWriterDokument as Object
Dim sUrl as String
Dim sFilterName as String
Dim exportEigenschaften(0) as New com.sun.star.beans.PropertyValue
oWriterDokument = ThisComponent
sUrl = ConvertToUrl("I:\Heiko\Eigene
Webs\www.gochsheim-evangelisch.de\presse\" & x & ".doc")
sFilterName = "MS Word 97"
exportEigenschaften(0).Name = "FilterName"
exportEigenschaften(0).Value = sFilterName
oWriterDokument.storeToUrl( sUrl , exportEigenschaften())
sUrl = ConvertToUrl("I:\Heiko\Eigene
Webs\www.gochsheim-evangelisch.de\presse\" & x & ".rtf")
sFilterName = "Rich Text Format"
exportEigenschaften(0).Name = "FilterName"
exportEigenschaften(0).Value = sFilterName
oWriterDokument.storeToUrl( sUrl , exportEigenschaften())
End Sub
Gru�
J�rg
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
