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: "[email protected]" <[email protected]> > 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]
