Re: [gebruikers] directory van het huidige document

[Ivo ten Hagen]

Ik heb dit geprobeerd, maar het opslaan wil nog niet lukken.     myDoc = ThisComponent            'Dit document instellen     If not myDoc.haslocation then      'Document heeft nog geen naam / locatie         MsgBox "Bestand is nog niet opgeslagen" '        myPath = "C:\Documents and Settings\Data\"   Dit gedeelte werkt nog niet goed '        myFile = InputBox("Naam?") '        myNewFile  = myPath & myFile '        myDoc.StoreAsUrl(ConvertToUrl(myNewFile))  Hier krijg ik een foutmelding mbt argumenten         STOP     end if [EMAIL PROTECTED] schreef: Hoi Jef, ik zou me kunnen voorstellen dat wanneer je een nieuw document hebt dat nog niet is opgeslagen je dat eerst moet doen. Het bestand heeft op dat moment namelijk nog geen bestandsnaam. Groeten, Bert van: [EMAIL PROTECTED] datum: 2005/03/04 vr AM 08:16:04 CET aan: "gebruikers@nl.openoffice.org" <gebruikers@nl.openoffice.org> onderwerp: Re: [gebruikers] directory van het huidige document Bedankt, ik heb het getest en het werkt. Ookal had ik dat niet van deze code verwacht, omdat volgens mijn interpretatie van de engelse tekst uit de api sDocURL = oDoc.getURL() pas kan worden aangeroepen na een oDoc.saveAsUrl() Ik kon geen oDoc.saveAsUrl() uitvoeren omdat ik de Url niet wist. Maar blijkbaar kan het dus ook anders. Jef. Citeren Dick Groskamp <[EMAIL PROTECTED]>: [EMAIL PROTECTED] schreef: Geachte gebruikers, Kan iemand mij helpen aan een macro die het huidige path of de huidige directory laat zien van een calc document? Ik moet daarin namelijk een submap aanmaken en het document opslaan. Bij voorbaat dank, Jef Jef, uit het macrodocument van Andrew Pitonyak: (beschikbaar op http://www.pitonyak.org/AndrewMacro.sxw <http://www.pitonyak.org/AndrewMacro.sxw> *REM Author: Andrew Pitonyak* *Sub DocumentFileNames* *Dim oDoc* *Dim sDocURL* *oDoc = ThisComponent* *If (Not GlobalScope.BasicLibraries.isLibraryLoaded("Tools")) Then* *GlobalScope.BasicLibraries.LoadLibrary("Tools")* *End If* *If (oDoc.hasLocation()) Then* *sDocURL = oDoc.getURL()* *Print "Document Directory = " & DirectoryNameoutofPath(sDocURL, "/")* *Print "Document File Name = " & FileNameoutofPath(sDocURL, "/")* *End If* *End Sub * *Voor info over macro's etc. kijk eens hier: http://www.oooforum.org/forum/viewforum.phtml?f=11 of een van de andere fora daar.* -- DiGro ---------------------------------------------------------------------- Scanned for virus and spam with Norton Antivirus ---------------------------------------------------------------------- --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] -- _____________________________________________________________________ Versatel ADSL Gratis. De voordelen van gratis internet met de snelheid van ADSL. Zonder abonnementskosten en zonder vast contract. Je betaalt alleen voor de tijd online. Nu zonder aansluitkosten en met gratis modem. Bestel snel op www.versatel.nl. --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]