OpenOffice.info

hat alles super gut funktioniert, :)

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

[quote]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). [/quote]

[code]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[/code]


Gruß
Stephan

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 :wink:

vielen dank für die hinweise im vorraus.

gruß

markus