Una delle proprietà che Word ti consente di salvare con un documento è un titolo per il documento. Se si utilizza questa proprietà regolarmente con i nuovi documenti, è possibile creare un modo in cui Word assegni automaticamente un nome al documento osservando il titolo fornito.

Questa particolare macro è adatta per l’uso con le lettere, sebbene possa essere facilmente modificata per altri tipi di documenti. La macro è denominata FileSaveAs, quindi sostituisce il comando Salva con nome incorporato. Il posto migliore per salvare questa macro è nel modello che usi per le tue lettere:

Sub FileSaveAs()

Dim MyDocTitle As String     MyDocTitle = Format(Date, "yymmdd") + " letter"



Selection.HomeKey Unit:=wdStory     Selection.Find.ClearFormatting     With Selection.Find         .Text = "^pDear "

.Replacement.Text = ""

.Forward = True         .Wrap = wdFindContinue         .Format = False         .MatchCase = False         .MatchWholeWord = False         .MatchWildcards = False         .MatchSoundsLike = False         .MatchAllWordForms = False     End With     Selection.Find.Execute

If Selection.Find.Found Then         Selection.MoveRight Unit:=wdCharacter, Count:=1         Selection.EndKey Unit:=wdLine, Extend:=wdExtend         Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend         If Len(Selection.Text) > 1 Then             MyDocTitle = MyDocTitle + " to " + Selection.Text         End If     End If

With Dialogs(wdDialogFileSummaryInfo)

.Title = MyDocTitle         .Execute     End With

Dialogs(wdDialogFileSaveAs).Show End Sub

Notare che questa macro funziona correttamente solo quando si salva per la prima volta un nuovo documento. Se lo si utilizza con un documento esistente (uno precedentemente salvato con un nome diverso), il nome originale viene comunque suggerito come predefinito nella finestra di dialogo Salva con nome, anche se il titolo del documento viene modificato.

La macro può essere assegnata a un pulsante della barra degli strumenti o a un’opzione di menu in modo da poter salvare i documenti e denominarli automaticamente.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti WordTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

WordTips è la tua fonte di formazione economica su Microsoft Word.

(Microsoft Word è il software di elaborazione testi più popolare al mondo.) Questo suggerimento (1693) si applica a Microsoft Word 97, 2000, 2002 e 2003. È possibile trovare una versione di questo suggerimento per l’interfaccia a nastro di Word (Word 2007 e più tardi) qui:

An Automatic File Name.