Kombination af dokumenter

Stuart skrev om et behov, han havde om at konsolidere mange forskellige tekstfiler i et enkelt Word-dokument. Brug af Indsæt | File option viste sig at være trættende, især når der var 20 eller 30 forskellige tekstfiler, der skal kombineres.

Heldigvis for Stuart, hans filnavne var forudsigelig: C1000.TXT, C1001.TXT etc. Dette gør at sammensætte en makro til at gøre konsolideringen temmelig let. Det følgende eksempel vil søge efter filer C1000.TXT gennem C1030.TXT, alle i C: \ mappe, og kombinere dem i det aktuelle dokument:

Sub CombineFiles ()
Dim J As Integer
Dim $ file As String
For J = 1000 til 1030
$ file = "c: \ c" & Trim (Str (J)) & ".txt"
Hvis (Dir ($ file)> "") Derefter
Selection.InsertFile FileName: = $ file, ConfirmConversions: = False
Selection.TypeParagraph
End hvis
Næste
End Sub

Hvis du ønsker at ændre de udbudte filer bliver indsat, bare ændre værdierne i begyndelsen af ​​det For ... Next løkke. Hvis filerne er i en anden mappe, kan du ændre stien, der anvendes i den næste kode linje, hvor $ file er indstillet. Hvis der mangler en fil i området, bliver det automatisk sprunget.

Der er en endnu nemmere måde at kombinere filer dog, at ikke engang indebærer brug af Word. Du kan bruge følgende kommando ved DOS kommandolinje:

kopiere C1 ???. txt single.txt

Dette ville kombinere op til 1000 filer, C1000.TXT gennem C1999.TXT, i en enkelt tekstfil kaldet SINGLE.TXT. De oprindelige filer forbliver uberørt. Hvis du ønskede at kombinere et mindre antal filer, kan du bruge dette format:

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

Denne brug resulterer i de fire filer, C1020.TXT gennem C1023.TXT, kombineres i SINGLE.TXT. Du kan tilføje lige så mange filer sammen på denne måde, som du ønsker.

Der er en advarsel til denne teknik, men. Kommandoen Kopier medfører ingen ekstra tegn bliver tilføjet til en fil på alle. Med andre ord er indholdet af C1021.TXT placeres umiddelbart efter C1020.TXT. For eksempel, hvis C1020.TXT indeholder "tekst 1020" og C1021.TXT indeholder "tekst 1021" så SINGLE.TXT vil indeholde "tekst 1020text 1021". Den eneste måde omkring dette til enten redigere hver kilde fil for at sikre, at det ender med en vognretur eller bruge makroen tidligere fremlagt.

WordTips er din kilde til omkostningseffektiv Microsoft Word træning. (Microsoft Word er det mest populære tekstbehandlingsprogram i verden.) Dette tip (1607) gælder for Microsoft Word 97, 2000, 2002, og 2003. Du kan finde en version af dette tip til menufaner Word (Word 2007 og nyere) her: Kombination dokumenter.


© 2020 Zajacperrone.com | Contact us: webmaster# zajacperrone.com