Kombinere dokumenter

October 12  by Eliza

Stuart skrev om et behov han hadde med å konsolidere mange forskjellige tekstfiler i en enkelt Word-dokument. Bruke Insert | Fil alternativet viste seg å være kjedelig, spesielt når det var 20 eller 30 forskjellige tekstfiler som skal kombineres.

Heldigvis for Stuart, hans filnavnene var forutsigbar: C1000.TXT, C1001.TXT, etc. Dette gjør å sette sammen en makro for å gjøre konsolideringen ganske lett. Følgende eksempel vil søke etter filer C1000.TXT gjennom C1030.TXT, alt i mappen C: \ og kombinere dem i gjeldende dokument:

Sub CombineFiles ()
Dim J As Integer
Dim sFile As String
For J = 1000 til 1030
sFile = "c: \ c" & Trim (Str (J)) og ".txt"
If (Dir (sFile)> "") Deretter
Selection.InsertFile Filename: = sFile, ConfirmConversions: = False
Selection.TypeParagraph
End If
Neste
End Sub

Hvis du ønsker å endre utvalget av filer som blir satt inn, bare endre verdiene i begynnelsen av For ... Neste loop. Hvis filene er i en annen katalog, kan du endre banen brukes i neste kodelinje, hvor sFile er satt. Hvis en fil innenfor området mangler, blir den automatisk hoppet.

Det er en enda enklere måte å kombinere filer, men som ikke engang innebære bruk av Word. Du kan bruke følgende kommando ved DOS kommandolinjen:

kopiere C1 ???. txt single.txt

Dette ville kombinere opp til 1000 filer, C1000.TXT gjennom C1999.TXT, i en enkelt tekstfil kalt SINGLE.TXT. De originale filene forbli urørt. Hvis du ønsket å kombinere et mindre antall filer, kan du bruke dette formatet:

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

Denne bruken resultater i de fire filer, C1020.TXT gjennom C1023.TXT, blir kombinert i SINGLE.TXT. Du kan legge til så mange filer sammen på denne måten som du ønsker.

Det er en påminnelse til denne teknikken, men. Kommandoen Kopier medfører ingen ekstra tegn blir lagt til en fil i det hele tatt. Med andre ord, blir innholdet i C1021.TXT plassert umiddelbart etter C1020.TXT. For eksempel hvis C1020.TXT inneholder "tekst 1020" og C1021.TXT inneholder "tekst 1021" da SINGLE.TXT vil inneholde "tekst 1020text 1021". Den eneste måten rundt dette å enten redigere hver kildefilen for å sørge for at det ender med et linjeskift, eller å bruke makroen tidligere presentert.

WordTips er din kilde for kostnadseffektiv Microsoft Word trening. (Microsoft Word er den mest populære tekstbehandlingsprogrammet i verden.) Dette tipset (1607) gjelder for Microsoft Word 97, 2000, 2002, og 2003. Du kan finne en versjon av dette tipset for Båndet av Word (Word 2007 og senere) her: Kombinere dokumenter.