SALVARE FILE CON NOME PREDEFINITO

Hai un problema con Excel?

Nuova discussione

SALVARE FILE CON NOME PREDEFINITO
di alexps81 data: 27/07/2014 11:40:11
Buongiorno a tutti voi,

oggi vorrei chiedervi una mano su WORD 2003.

Nello specifico, vorrei sapere se c'è un modo (o col codice VBA o se addirittura c'è un comando apposta) per poter salvare un documento WORD 2003 con un nome predefinito.
Mi spiego nell'esempio:

All'interno del foglio di lavoro, ho una casella di testo dove è riportata la data odierna (in modo automatico), beh....io desidererei che ogni qual volta si salva questo file, mi venga assegnato il nome "ELENCO DEL 27/07/2014" (la data ovviamente riferita ad oggi). Dunque "ELENCO DEL" deve sempre uscire, la data ovviamente cambia in base a quella odierna.

Grazie sempre per l'aiuto
di lepat (utente non iscritto) data: 27/07/2014 12:13:27
allega un file di esempio
di alexps81 data: 27/07/2014 12:39:46
Ciao Lepant....ho allegato un file come hai richiesto

di lepat (utente non iscritto) data: 27/07/2014 13:30:42
per salvare devi creare un pulsante collegato a questa macro

Sub salva()
fpath = ActiveDocument.Path & "ELENCO DEL "
s = Replace(ActiveDocument.FormFields("testo1").Result, "/", "-")
FName = fpath & s & ".doc"
ActiveDocument.SaveAs (FName)
End Sub

di alexps81 data: 27/07/2014 22:44:58
La macro funziona a dovere!!! Grazie.

Vorrei poter fare in modo che per poter salvare sia possibile utilizzare soltanto il pulsando creato da me e dunque quando si preme FILE ==> SALVA, compaia un messaggio "UTILIZZARE IL PULSANTE SUL DOCUMENTO"

grazie
di alexps81 data: 27/07/2014 23:04:25
Ciao lepat, ho trovato la tua macro molto carina, anche se ho riscontrato un piccolo problema:

ho la necessità che questo documento sia di default in una cartella, ma quando si salva una copia si crea in un'altra cartella. Ho provato a inserire il percorso prima di "ELENCO DEL " ma mi da errore.

grazie

di lepat (utente non iscritto) data: 28/07/2014 08:23:19
hai provato così ?

Sub salva()
fpath = "C:percorsoELENCO DEL "
s = Replace(ActiveDocument.FormFields("testo1").Result, "/", "-")
FName = fpath & s & ".doc"
ActiveDocument.SaveAs (FName)
End Sub

di alexps81 data: 28/07/2014 18:18:11
Ho modificato la macro come riportato qui sotto e funziona a meraviglia.

Purtroppo non sa come fare a inibire il pulsante SALVA sulla barra degli strumenti. Con Excel è semplice: creo l'evento BEFORESAVE, ma su Word credo sia diverso. Sai darmi qualche spiegazione in merito?

Grazie

Private Sub CommandButton1_Click()

fpath = ActiveDocument.Path
s = Replace(ActiveDocument.FormFields("testo1").Result, "/", "-")
ActiveDocument.SaveAs ("C:UsersAlessandroDocumentsELENCO DEL ") & s & (".doc")
End Sub

di alexps81 data: 28/07/2014 18:22:45
Comunque funziona benissimo anche questo che hai scritto adesso.

Ho soltanto il problema legato al fatto di inibire il pulsante salva di word
di lepat (utente non iscritto) data: 28/07/2014 18:24:30
su word non esiste l'evento BEFORESAVE, bisognerebbe crearselo con una classe, ma non è roba per me.
di alexps81 data: 28/07/2014 18:38:51
ok grazie
di lepat (utente non iscritto) data: 28/07/2014 18:57:40
se fai una ricerca in inglese con google può darsi che tu trovi il modulo di classe giusto
di lepat (utente non iscritto) data: 28/07/2014 18:59:37
h t t p://forums.techguy.org/business-applications/536573-ms-word-macro-before-save.html

Vuoi Approfondire?