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

[Reklama]

[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...