macro per word

[elevation1]

Salve,
mi servirebbe una mano per realizzare una macro che mi faccia comparire la cartella salva con nome... poi manualmente inserisco il nome del file...
Grazie

[Anthony47]

Ad esempio:

Codice: Seleziona tutto

Dim FLName
With Application.FileDialog(msoFileDialogSaveAs)
        .Show
        If .SelectedItems.Count = 0 Then
             MsgBox ("Nessuna voce selezionata, procedura annullata")
             Exit Sub
        End If
        FLName = .SelectedItems.Item(1)
    End With

In questo modo la variabile FLName conterra' il percorso + il nome prescelto. Successivamente dovrai salvare il documento usando questo nome, come farlo dipendera' dalla versione di word in uso; io ho usato (Office 2016)

Codice: Seleziona tutto

ActiveDocument.SaveAs2 FLName


Ciao

[wallace&gromit]

Non metto in dubbio che la macro di Anthony funzioni, ma sei sicuro che sia necessario costruire una macro per questo?
Se fai clic destro sulla barra degli strumenti e scegli "personalizza barra di accesso rapido"
Scegli comandi da: scheda File
scorri in giù fino a trovare l'icona di un dischetto con una penna, clicchi su aggiungi.
Così avrai sempre a portata di mano questo comando, basta premere lì e ti porta alla cartella attuale del file, che puoi salvare con un nome nuovo.

[Anthony47]

Io avevo dato per scontato che la macro contenesse altre istruzioni, e non una semplice sostituzione di Alt-F-M (Word 2016); ma in effetti e' meglio aver spiegato anche la via della personalizzazione della barra di accesso rapido...
Ciao!

[elevation1]

scusate se non ho più risposto... in realtà mi serve che apra salva con nome sempre in una stessa cartella ad es. quella prova nel seguente percorso... es... C:\Users\Studio\Desktop\Prova"
Ho fatto questa macro ma non va...

Public Sub prova()
Dim sPath As String
sPath = "C:\Users\Studio\Desktop\Prova"
With Application.FileDialog(msoFileDialogSaveAs)
.Show
End With
End Sub

mi apre la cartella desktop ma non quella prova... dove sbaglio? grazie mille

[wallace&gromit]

manca uno slash dopo prova e l'istruzione che ti apra la cartella quando fai partire la finestra di dialogo:

Codice: Seleziona tutto

Public Sub prova()
Dim sPath As String
sPath = "C:\Users\Studio\Desktop\Prova\"
With Application.FileDialog(msoFileDialogSaveAs)
.InitialFileName = sPath
.Show
End With
End Sub

[elevation1]

grazie mille!!!