[vb[a}/word] Bestand verplaatsen vóór openen

[LePlatDuJour]

Goeie,

Ik wil graag antwoord op de vraag of het volgende *mogelijk* en *doenbaar* in Word (2000 of XP) in te bouwen is; ik hoef dus niet precies te weten hoe dat moet.

*Context*
Het punt is dat ik met Novell iFolder Word bestanden over een GPRS verbinding probeer te synchroniseren. Als ik in Word een document in m'n iFolder open, dan maakt Word automatisch tijdelijke bestanden in dezelfde folder aan (zie ook KB211632). De locatie van die tijdelijke bestanden is niet te wijzigen.

*Vraag*
Is het mogelijk om een Word macro te bakken die, voordat het document geopend wordt dit document verplaatst naar een andere locatie; en die bij afsluiten dat document weer verplaatst naar de iFolder (dus over de oude versie heen), en zo ja: hoe lastig is dat?

Nogmaals, je hoeft me geen code te bakken (tenzij je 't graag wilt, natuurlijk ), ik hoef alleen maar te weten of dit een werkbaar concept is.

Alvast bedankt,
-LePlatDuJour

[Gomez12]

Ik snap de bedoeling niet helemaal. Moet dit een losse macro zijn, die je gewoon in je standaard-sjabloon hebt zitten??? Dan is het heel goed mogelijk, maar dan weet ik niet hoe je aangeeft welk bestand je wilt openen.

Of wil je de macro in elk word bestand gooien, dan kan het denk ik niet. Want als word je bestand opent dan creeert hij gelijk al een tempbestand. Dacht ik...

[Lister]

Ik weet niet of het altijd kan, maar je kan de File->Open actie in Word vervangen door een eigen macro, door de procedure FileOpen aan de Normal.dot toe te voegen.

Met de volgende code krijg je een messagebox te zien van de file die er gekozen wordt om deze te openen, en daarna wordt deze geopend.
Tussen het tonen van de messagebox en het .Execute statement moet je dus zelf code schrijven voor het verplaatsen en zo.
Ook met je het resultaat van .Display nog afvangen, want een gebruiker kan ook voor Cancel kiezen maar dat kan je allemaal zelf in de Word helpfile wel opzoeken.

code:

Public Sub FileOpen()
'Macro replacing built-in command FileOpen
    Dim strFile As String
    Dim strDir As String
    
    With Application.Dialogs(wdDialogFileOpen)
        .Display
        strFile = .Name
        strDir = Options.DefaultFilePath(wdDocumentsPath)
        Call MsgBox("Opening '" & strDir & "\" & strFile & "'")

        .Execute
    End With
    
    
End Sub

Ik weet niet of deze macro ook bij dubbelklikken op een bestand in Explorer werkt, of hoe je dat dan af moet vangen.

Edit: En ik wou graag de code schrijven

[ Voor 6% gewijzigd door Lister op 06-04-2004 19:51 ]

[LePlatDuJour]

Mijn hartelijke dank!