Re: [gebruikers] directory van het huidige document

[Ivo ten Hagen]

Ha Cor,
Ik heb jouw aanwijzingen uitgeprobeerd, dank. Echter, hoe ik ook 
probeer, de macro blijft hangen op myDoc.StoreAsURL
Ivo

Cor Nouws schreef:
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

Als je bovenin nu toevoegt:
    Dim args(0) As New com.sun.star.beans.PropertyValue
en onderaan zet
    myDoc.StoreAsUrl(ConvertToUrl(myNewFile), args())
scheelt dat?
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]