Open Office Dateien als Word Documente verschicken

[Student123]

Guten Tag,

ich suche ein Makro mit dem ich meine oo dokumente als word dokumente via e-mail versenden kann, ohne extra nochmal den namen eingeben zu müssen. Gut wäre auch ein makro mit welchem ich die datei unter gleichem namen als ms datei abspeichern kann(Dateiendungen müssen natürlich doc und xls sein). Versenden kann ich dann noch mit der hand

vielen dank für die hinweise im vorraus.

gruß

markus

[Stephan]

Gut wäre auch ein makro mit welchem ich die datei unter gleichem namen als ms datei abspeichern kann(Dateiendungen müssen natürlich doc und xls sein).

Code: Alles auswählen

Sub sxw_doc_sxc_xls	
	Dim dokument as Object
	Dim sUrl as String
	Dim sFilterName as String
	Dim exportEigenschaften(0) as New com.sun.star.beans.PropertyValue
	dokument = ThisComponent
	pfad_all = ConvertToUrl(dokument.URL)
	i = 0
	Do
		i = i + 1
		akt = Right(pfad_all, i)
		akt1 = left(akt, 1)
	Loop While akt1 <> "/"
	akt = Right(akt, i-1)
	pfad = Left(pfad_all,Len(pfad_all)-i)
	nur_nam = Left(akt,Len(akt)-4)
	If dokument.supportsService( "com.sun.star.text.TextDocument" ) then
		sFilterName = "MS Word 97"
		sURL = pfad & "/" & nur_nam & ".doc"
	ElseIf  dokument.supportsService( "com.sun.star.sheet.SpreadsheetDocument" ) then
		sFilterName = "MS Excel 97"
		sURL = pfad & "/" & nur_nam & ".xls"
	Else
		MsgBox "Fehler"
		Exit sub
	End If
   	exportEigenschaften(0).Name = "FilterName"
   	exportEigenschaften(0).Value = sFilterName
	sUrl = ConvertToUrl( sURL )
 	dokument.storeToUrl( sUrl , exportEigenschaften() 
End Sub

Gruß
Stephan

[Student123]

hat alles super gut funktioniert,