Ivo ten Hagen wrote:
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
Klopt. Je moet ConvertToURL("C:\Documents and Settings\Data\") gebruiken.
Cor
' myFile = InputBox("Naam?")
' myNewFile = myPath & myFile
' myDoc.StoreAsUrl(ConvertToUrl(myNewFile)) Hier krijg ik een foutmelding mbt argumenten
STOP
end if
[EMAIL PROTECTED] schreef:
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
-- Cor Nouws www.nouenoff.nl
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
