Re: [gebruikers] directory van het huidige document

[Ivo ten Hagen]

Beste Jef,
met Bingo bedoelde ik dat de zaak werkte. Ik heb jouw code overgenomen 
en die werkt nu ook goed. Nogmaals dank.
Ivo

[EMAIL PROTECTED] schreef:
Jawel, dat lukt wel.
Sub opslaan
Dim myDoc As Object
myDoc = StarDesktop.CurrentComponent
Dim args() As New com.sun.star.beans.PropertyValue
myPath = "C:\Documents and Settings\Data\"
myDoc.StoreAsUrl(ConvertToUrl(myPath & InputBox("Naam?")), args())
End Sub
Jef Knoors
 

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]