Citeren Ivo ten Hagen <[EMAIL PROTECTED]>:
>
> Bingo
>
> Dim args() As New com.sun.star.beans.PropertyValue
>
>
>
> myNewFile = myPath & myFile
>
> myURL=ConvertToUrl(myNewFile)
>
> myDoc.StoreAsUrl(myURL,args())
>
>
>
> Ik heb nog even geprobeerd de laatste drie stappen samen te voegen,
> maar dat werkt niet. Heren, dank!
>
> Ivo
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
--
_____________________________________________________________________
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]
