Mentre usi Word, giorno dopo giorno, tendi ad accumulare molti e molti documenti. Se questi documenti vengono utilizzati per uno scopo standard, non è insolito che i documenti contengano alcune delle stesse informazioni.

Ad esempio, potresti avere documenti che contengono storie che invii a diversi giornali e riviste. Sebbene le singole storie possano essere diverse, ogni documento può contenere il tuo nome e le informazioni di contatto. Se le tue informazioni di contatto cambiano o se decidi di utilizzare un’ortografia diversa per il tuo nome, potresti desiderare un modo per apportare una modifica universale a tutti i documenti contemporaneamente.

Sfortunatamente, Word non include questo tipo di funzionalità. Le tue opzioni sono di fare affidamento su una soluzione di terze parti o scrivere la tua macro per apportare le modifiche. Esistono numerosi programmi di terze parti che offrono il tipo di funzione di ricerca e sostituzione necessaria quando si lavora con più documenti. I seguenti sono solo alcuni di quelli suggeriti dagli abbonati a WordTips:

Lo sviluppatore di parole Malcom Smith ha anche creato una macro che eseguirà la ricerca e le sostituzioni tra le directory. Se vuoi vederlo, puoi visitare http://www.dragondrop.com. Basta fare clic sul collegamento Trova e sostituisci per Word, sul lato destro della pagina.

Se non ti dispiace usare le tue macro, quanto segue mostra le tecniche inerenti allo scorrere i documenti in una cartella particolare.

Public Sub MassReplace()

With Application.FileSearch         .LookIn = "C:\"             ' where to search         .SearchSubFolders = True    ' search the subfolders         .FileName = "*.doc"         ' file pattern to match

' if more than one match, execute the following code         If .Execute() > 0 Then             ' for each file you find, run this loop             For i = 1 To .FoundFiles.Count                 ' open the file based on its index position                 Documents.Open FileName:=.FoundFiles(i)



' search and replace the address                 selection.Find.ClearFormatting                 selection.Find.Replacement.ClearFormatting                 With selection.Find                     .Text = "OldAddress"

.MatchCase = True                     .Replacement.Text = "NewAddress"

End With                 selection.Find.Execute Replace:=wdReplaceAll

' replace e-mail address                 With selection.Find                     .Text = "Oldemail"

.Replacement.Text = "Newemail"

End With                 selection.Find.Execute Replace:=wdReplaceAll

' save and close the current document                 ActiveDocument.Close wdSaveChanges             Next i         Else             ' if the system cannot find any files             ' with the .doc extension             MsgBox "No files found."

End If     End With End Sub

Questa macro è abbastanza potente e ti consente non solo di modificare un indirizzo, ma anche il tuo indirizzo e-mail. Tutto quello che devi fare è apportare modifiche per specificare quale directory e unità utilizzare nella ricerca, nonché quali sono le informazioni vecchie e nuove. Modificare il parametro .Lookin all’inizio della macro per indicare dove la macro deve cercare; assicurati di utilizzare un percorso completo. Quindi, all’interno del corpo principale della macro, aggiorna i parametri .Text e .Replacement.Text per riflettere ciò che stai cercando e sostituendo.

_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 (3783) si applica a Microsoft Word 97, 2000, 2002 e 2003.