Salvataggio documento word con macro

[erryrox]

Ciao a tutti!
Esiste un modo per salvare un documento word (anche premendo un bottone) tramite macro?
La cosa essenziale è che devo decidere io il nome del file, magari prendendolo proprio da dentro il documento.
Si può fare?
Grazie

[wallace&gromit]

Ciao erryox,
questa è una domanda curiosa: la scelta del menu File/"salva con nome..." non ti basta?
Puoi anche creare un'icona sulla tua barra del menu (sto parlando di office 2003) ma si potrà ben fare anche nei più recenti.

[erryrox]

... il problema è che ho bisogno di salvare il file con un nome ben preciso e il documento in questione non sarà compilato da me....quindi se ci fosse una macro che sa con che nome salvare sarebbe meglio!!

[Zer0Kelvin]

Ciao.
Questo va già bene per fare quello che dici:

Codice: Seleziona tutto

Public Sub SalvaConNome()
Const nomeDOC = "Pippo"
    ThisDocument.SaveAs2 FileName:=nomeDOC
End Sub


ma si può migliorare volendo...

[erryrox]

Però così imposto un nome nella macro e rimane fisso giusto???
Invece a me servirebbe prendere il nome dal contenuto del documento, ma mentre su excel basta impostare una cella, su word non ne ho idea di come si potrebbe fare...

[wallace&gromit]

Magari (ma non chiedermi come) è possibile prevedere un campo il cui valore viene preso da una macro per dare il nome al file salvato, ma in mano a qualcun altro... niente di più facile che quel tuo campo faccia una brutta fine e addio automazione.
Word non è come excel, dove puoi bloccare le celle e un utente inesperto non riesce a scardinarle. Word è in mano a tutti (parlo per esperienza in ufficio)!

[Flash30005]

Però così imposto un nome nella macro e rimane fisso giusto???
Invece a me servirebbe prendere il nome dal contenuto del documento, ma mentre su excel basta impostare una cella, su word non ne ho idea di come si potrebbe fare...

Capisco cosa intendi ma non hai dato alcun elemento per rintracciare il nome.
Come dice bene Wallace&Gromit, questo nome è un campo?
oppure ti consiglio di inserire un carattere tipo "*" (asterisco prima del nome)
una cosa del genere

nel foglio inserisci
*Nomefile
(con questo nome NumCar = 8 )

Codice: Seleziona tutto

Sub SalvaConNomeDoc()
NumCar = 8 '(lunghezza nome file)

    Selection.Find.ClearFormatting
    Selection.Find.Text = "*"
    Selection.Find.Execute

    Selection.MoveRight Unit:=wdCharacter, Count:=1
    MsgBox Endline
    Selection.MoveRight Unit:=wdCharacter, Count:=NumCar, Extend:=wdExtend
    Mionome = Selection & ".doc"
   
        ActiveDocument.SaveAs FileName:=Mionome, FileFormat:=wdFormatDocument _
        , LockComments:=False, Password:="", AddToRecentFiles:=True, _
        WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
         SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False
End Sub

Ciao

[Zer0Kelvin]

Word non è come excel, dove puoi bloccare le celle e un utente inesperto non riesce a scardinarle.

Salve a tutti; curiosando nell'oggetto Document ho scoperto che in effetti anche in Word (2010) esistono gli oggetti Range e Cell, che probabilmente possono essere manipolati per impedire una modifica in un'area specifica del documento...

[Zer0Kelvin]

Salve a tutti; curiosando nell'oggetto Document ho scoperto che in effetti anche in Word (2010) esistono gli oggetti Range e Cell, che probabilmente possono essere manipolati per impedire una modifica in un'area specifica del documento...

EDIT: come non detto, non è così semplice come mi era sembrato a prima vista. Probabilmente è possibile proteggere un'area del documento (es. ricorrendo all'evento Application_DocumentChange) ma sarebbe complicato e, penso, esagerato nel nostro caso.

[erryrox]

grazie flash e grazie a tutti quelli che si sono interessati dell'argomento!

[Flash30005]

Prego!
ma non hai detto se hai risolto e come... (?)

ciao

P.s. il Forum funziona con quesiti ed eventuali soluzioni, quando viene posto un quesito che, poi, viene risolto il topic è considerato chiuso con successo altrimenti rimane nel "limbo"

[Anthony47]

Immaginando che il problema non sia ancora risolto pongo "un paio" di domande per inquadrare la richiesta:
-quale e' l' obiettivo della prestazione?
-quale e' il flusso di lavoro completo in cui questa richiesta si posiziona?
-ti sei gia' fatto un' idea di dove potrebbe essere posizionato il campo che vorresti usare come nome file?
-e' un' informazione precompilata da te su un documento distribuito per revisioni o aggiornamenti, o la deve compilare lo stesso utente che aggiorna un documento da te distribuito, o si tratta di un documento nuovo che l' utente deve creare e compilare da zero (o da un "modello" comune; chiarire)?
-perche' pensi che salvare con un nome scelto dalla macro sia piu' vantaggioso che salvare con un nome scelto dall' utente?
-l' eventuale errata applicazione o inapplicazione della regola che hai in mente ha impatto grave o lieve sul processo?

Le domande talvolta si sovrappongono, quindi il numero di risposte potrebbe essere inferiore al numero di domande.
Vorrei anche sapere quale versione di Word sara' usata, o se si opera con versioni variopinte.

Ovviamente considero la richiesta "mediamente fattibile" se parliamo di documenti personalizzati inviati a vari utenti per il loro completamento. Negli altri casi temo che il risultato sia aleatorio, legato piu' che altro alla diligenza e disciplina del compilatore, anche se una macro puo' fare qualcosa per "invogliare" l' utente a collaborare.

Ciao a tutti.