Stuart ha scritto della necessità di consolidare molti file di testo diversi in un unico documento Word. L’inserimento manuale dei file si è rivelato noioso, in particolare quando c’erano 20 o 30 diversi file di testo da combinare.

Fortunatamente per Stuart, i suoi nomi di file erano prevedibili: C1000.TXT, C1001.TXT, ecc. Questo rende piuttosto facile mettere insieme una macro per eseguire il consolidamento. Il seguente esempio cercherà i file da C1000.TXT a C1030.TXT, tutti nella directory C: \, e li combinerà nel documento corrente:

Sub CombineFiles()

Dim J As Integer     Dim sFile As String     For J = 1000 To 1030         sFile = "c:\c" & Trim(Str(J)) & ".txt"

If (Dir(sFile) > "") Then             Selection.InsertFile FileName:=sFile, ConfirmConversions:=False             Selection.TypeParagraph         End If     Next End Sub

Se vuoi cambiare l’intervallo di file da inserire, cambia semplicemente i valori all’inizio del ciclo For …​ Next. Se i file si trovano in una directory diversa, è possibile modificare il percorso utilizzato nella riga di codice successiva, dove è impostato sFile. Se manca un file all’interno dell’intervallo, viene automaticamente ignorato.

Esiste un modo ancora più semplice per combinare i file, tuttavia, che non prevede nemmeno l’uso di Word. È possibile utilizzare il seguente comando da un prompt dei comandi di Windows:

copy C1???.txt single.txt

Ciò combinerà fino a 1000 file, da C1000.TXT a C1999.TXT, in un unico file di testo denominato SINGLE.TXT. I file originali rimangono intatti.

Se vuoi combinare un numero inferiore di file, puoi usare questo formato:

copy C1020.txt+C1021.txt+C1022.txt+C1023.txt single.txt

Questo utilizzo fa sì che i quattro file, da C1020.TXT a C1023.TXT, vengano combinati in SINGLE.TXT. Puoi aggiungere tutti i file insieme in questo modo come desideri.

Tuttavia, c’è un avvertimento su questa tecnica. Il comando di copia non comporta l’aggiunta di caratteri extra a un file. In altre parole, il contenuto di C1021.TXT viene inserito immediatamente dopo C1020.TXT. Ad esempio, se C1020.TXT contiene “testo 1020” e C1021.TXT contiene “testo 1021”, SINGLE.TXT conterrà “testo 1020testo 1021”. L’unico modo per aggirare questo è modificare ogni file sorgente per assicurarsi che termini con un ritorno a capo o per utilizzare la macro presentata in precedenza.

_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 (9807) si applica a Microsoft Word 2007, 2010, 2013 e 2016. Puoi trovare una versione di questo suggerimento per l’interfaccia del menu precedente di Word qui: Combinazione di documenti.