Condividi:        

macro per word

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

macro per word

Postdi elevation1 » 13/12/18 14:50

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
elevation1
Utente Junior
 
Post: 33
Iscritto il: 07/10/17 13:23

Sponsor
 

Re: macro per word

Postdi Anthony47 » 13/12/18 17:43

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: macro per word

Postdi wallace&gromit » 13/12/18 17:44

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.
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: macro per word

Postdi Anthony47 » 13/12/18 17:54

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!
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: macro per word

Postdi elevation1 » 17/01/19 23:23

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
elevation1
Utente Junior
 
Post: 33
Iscritto il: 07/10/17 13:23

Re: macro per word

Postdi wallace&gromit » 18/01/19 08:46

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
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: macro per word

Postdi elevation1 » 18/01/19 10:13

grazie mille!!!
elevation1
Utente Junior
 
Post: 33
Iscritto il: 07/10/17 13:23


Torna a Applicazioni Office Windows


Topic correlati a "macro per word":


Chi c’è in linea

Visitano il forum: Marius44 e 57 ospiti