[gebruikers] Heel moeilijke vraag

[Nico Koolsbergen]

Beste vrienden, Ik ben geen programmeur en zal dat ook nooit worden. Ik heb er geen talent voor. Door de jaren heen heb ik echter in diverse programma's wel de nodige macro's weten te maken, soms met hulp van anderen. Daarbij - helaas - ervaar ik de macrotaal van OpenOffice als vele malen ingewikkelder dan het Visual Basic dat ik kende uit Word. Toch, met de nodige hulp, had ik uiteindelijk in versie 1 een Office-macro gemaakt die een artikel in Writer kopieert naar een andere map, en tegelijk het formaat wijzigt naar txt. Het droeve is nu dat deze opdracht in 2.0.2 niet meer werkt. Ik krijg een foutmelding waar ik niets mee kan: Er is een Scripting Framework-fout opgetreden bij het uitvoeren van het Basic-script vnd.sun.star.script: Standard.ExportDocument.ExportDocument?language=Basic&location=application Bericht: BasicProviderImpl::getScript: no script! Mijn Engels is prima dus ik snap dat er iets ontbreekt. Maar wat??? En wat te doen? Wie o wie kan me helpen? Ter informatie de macro waarom het gaat en die dus jaren lang prima werkte in de diverse 1-versies: Sub ExportDocument   Dim sNewFile$, sNewFileName$   sNewFile = ""   If NOT ThisComponent.hasLocation() Then     Rem You could also choose a file name to use!     Print "Sorry, you must give the document a name first!"     Exit Sub   Else     sNewFile = ThisComponent.getURL()   End If   Rem These next two subroutine calls are in the Strings module in the   Rem application Tools library.   sNewFileName = "file:///c:/Documents%20and%20settings/Nico%20Koolsbergen/Mijn%20documenten/Kopij/" &_   GetFileNameWithoutExtension(FileNameoutofPath(sNewFile)) & ".txt"   'Print "Exporting to " & sNewFileName   Dim args2(1) as new com.sun.star.beans.PropertyValue   args2(0).Name = "InteractionHandler"   args2(0).Value = ""   args2(1).Name = "FilterName"   args2(1).Value = "Text"   ThisComponent.storeToURL(sNewFileName,args2()) End Sub Mijn dank is oneindig, Nico Koolsbergen --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]