VBA jak opět uložit načtený dokument

[petrofff]

Přesněji jde o starbasic v OpenOffice makru:

Kód: Vybrat vše

	cImportFilter = "Text"
	cExportFilter = cImportFilter 
	oImportOptions = Array( MakePropertyValue( "FilterName", cImportFilter ) )
	oExportOptions = Array( MakePropertyValue( "FilterName", cExportFilter ) )
	cName = "c:/dok/konverze RTF/*.rtf"
	' ----------- OTEVŘÍT dokument -----------
	oDoc = StarDesktop.loadComponentFromURL( ConvertToUrl( cName ), "_blank", 0, oImportOptions )
	' ----------- ÚPRAVY v dokumentu -----------
	'     .....................................
	' ----------- ULOŽIT dokument -----------    >>> ERROR
	oDoc.storeToURL( ConvertToUrl( cName ), oExportOptions )
	' ----------- ZRUŠIT dokument -----------
	oDoc.dispose()
End Sub

Požadovaná akce = odpovídá stisku Ctrl-S (uložit pod stejným jménem)
Jenže volání storeToURL mi háže runtime error:
výjimka/Type:com.sun.star.task.ErrorCodeIOException

[petrofff]

Už je to jasné - funguje pouze je-li URL odlišná (složka/jméno/přípona). Pro přepsání pův.dokumentu nutno použít: oDoc.store()
PS. Zajímavé jak by se asi ukládal dokument pod stejným názvem ale např. s odlišným kódováním...