Salve
ho un vecchio portatile (insicuro per via della pila!) e tempo fa ho scritto una macro che mi permette di salvare frequentemente sul floppy A ciò che sto scrivendo in Word, per sicurezza, cliccando con un solo pulsante e assegnando automaticamente al file salvato il suo nome. Ciò che non riesco a fare è di riaprire automaticamente il documento sul portatile nella sua sottodirectory di partenza per continuare a lavorare. Qualcuno mi può aiutare nello script ?
Ecco il testo della macro:

---

Sub AutoSalva()
'
' AutoSalva Macro

ChangeFileOpenDirectory "A:\"
myDocname = ActiveDocument.Name
pos = InStr(myDocname, ".")
If pos > 0 Then
myDocname = Left(myDocname, pos - 1)
myDocname = myDocname & ".doc"
ActiveDocument.SaveAs FileName:=myDocname, _
FileFormat:=wdFormatDocument, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
End If

ActiveDocument.Close

ChangeFileOpenDirectory "C:\DOCUMENTI WORD"


End Sub

---

Cio' che vorrei è che il ChangeFileOpenDirectory puntasse alla subdirectory di partenza e mi riaprisse automaticamente il file su cui stavo lavorando. Si può fare? Io non ci riesco.

salve
una cosa non è chiara. La routine termina con la chiusra del file, se devi continuare a lavorarci pechè lo chiudi e non lo mantieni aperto. Suppongo che oltre alla copia di sicurezza sul Floppy ti inetressi mantenere le modifiche anche sul file originario. La possibile soluzione potrebbe essere quella di effettuare un doppio salvataggio. guarda se queste righe sotto possono fare al caso tuo:

Sub AutoSalva()
miadir="C:\DOCUMENTI WORD"
ActiveDocument.SaveAs FileName:= "A:\" & _
ActiveDocument.Name, AddToRecentFiles:= False

ActiveDocument.SaveAs FileName:=miadir & "\" & _
ActiveDocument.Name, AddToRecentFiles:= False
End sub

in questo modo salvi la copia di sicurezza sul floppy, aggiorni il file originale sull'HD e ripristini i riferimenti originali della directory.
saluti
Andrea

---

salve
per fefinire l'intero percorso del file ci sono varie soluzioni:
la prima è farla leggere direttemente da VBA utilizzando la funzione "CurDir"

MyPath=Curdir 'ti restituisce il percorso completo del file

oppure questo è un altro metodo:

MyPath= "C:\DOCUMENTI WORD\"
subfold="MIEIDOCUMENTI\"
MyDocname=ActiveDocument.Name
X= mypath & subfold &MyDocname

il più semplice è questo:

X= "C:\DOCUMENTI WORD &"\" & "MIEIDOCUMENTI" & "\" & ActiveDocument.Name


saluti
Andrea

---

Volevo dirti ancora che non sono proprio un esperto di VBA (si era capito ? ) e vado un po' a tentoni...
Grazie mille ancora !

salve
ricapitolando il tuo problema, tu vorresti che dopo aver eseguito il salvataggio sul floppy, ti possa rimanere aperto il file su cui stavi lavorando ma indirizzato al percorso sull'HD, svincolandolo dall'associazione al floppy generato dal comando Salva con nome.
Una soluzione che a parole può sembrare complicata ma estremamente fluida e veloce può essere questa: Crei una copia provvisoria del tuo documento che salverai con nome nel floppy, chiuderai l'istanza appena eseguito il salvataggio e ti resterà aperto il tuo file originario puntato al percorso delle tue cartelle e sottocartelle.
prova a far girare questa macro:

Sub copia_salva()
Application.ScreenUpdating = False
savedir = "A:\"
docname = ActiveDocument.Name
Selection.WholeStory
Selection.Copy
Documents.Add
Selection.Paste
ActiveDocument.SaveAs FileName:=savedir & _
docname, AddToRecentFiles:=False
ActiveDocument.Close
End Sub


questa istruzioni non è necessaria in quanto già indicato nel comando SaveAs
<font color=red>ChangeFileOpenDirectory "A:\"</font id=red>
inoltre considera che l'istruzione di cui sopra non modifica fisicamente il percorso del documento attivo ma predispone l'indirizzamento delle operazioni che sono assegnate alla macro.

L'istruzione <font color=red>CurDir</font id=red> non è altro che il comando che restituisce il percorso completo del documento attivo. nella tua macro originaria sarebbe potuta essere usata così:


Sub AutoSalva()

<font color=red>Mydir= CurDir</font id=red>
ChangeFileOpenDirectory "A:\"
myDocname = ActiveDocument.Name
pos = InStr(myDocname, ".")
If pos > 0 Then
myDocname = Left(myDocname, pos - 1)
myDocname = myDocname & ".doc"
ActiveDocument.SaveAs FileName:=myDocname, _
FileFormat:=wdFormatDocument, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
End If
ChangeFileOpenDirectory <font color=red>Mydir</font id=red>**
ActiveDocument.Close
End Sub

**<font color=red>però non serve a nulla perchè non modifica fisicamente la radice inoltre avrebbe dovuto essere posta prima della chiusura del documento</font id=red>

saluti Andrea



Edited by - a10n11 on 04/13/2006 16:33:03

---