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
>
Heb je wel een object aangemaakt met:
Dim myDoc As Object
myDoc = StarDesktop.CurrentComponent
Bij mij werkt het namelijk prima, hieronder de volledige code:
Sub opslaan
Dim myDoc As Object
myDoc = StarDesktop.CurrentComponent
Dim args() As New com.sun.star.beans.PropertyValue
myPath = "C:\Documents and Settings\Data\"
myFile = InputBox("Naam?")
myNewFile = ConvertToUrl(myPath & myFile)
print myNewFile
myDoc.StoreAsUrl(myNewFile, args())
End Sub
Succes ermeee,
Jef Knoors
>
> [EMAIL PROTECTED] schreef:
>
>
>
> Ha Cor,
> Ik heb jouw aanwijzingen uitgeprobeerd, dank. Echter, hoe ik ook
> probeer, de macro blijft hangen op myDoc.StoreAsURL
> Ivo
>
>
> myNewFile = ConvertToUrl(myPath & myFile)
> myDoc.StoreAsUrl(myNewFile, args())
>
> doet het wel. Heb nog even niet uitgezocht wat de logica daarachter is.
>
>
>
> Het verschil zit'm in:
> Dim args(0) As .....
>
> Doordat je een nul opgeeft tussen de haakjes creeer je een array die je
> dan
> ook zult moeten vullen:
> Dim FileProperties(0) As New com.sun.star.beans.PropertyValue
> FileProperties(0).Name = "Overwrite"
> FileProperties(0).Value = True
> myDoc.StoreAsUrl(myNewFile, FileProperties(0) )
>
> Maar je kunt het ook weglaten.
> Jef Knoors
>
>
>
>
>
>
>
> ---------------------------------------------------------------------
> 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]
