Stuart escribió sobre la necesidad que tenía de consolidar muchos archivos de texto diferentes en un solo documento de Word. Insertar los archivos manualmente resultó ser tedioso, particularmente cuando había 20 o 30 archivos de texto diferentes para combinar.

Afortunadamente para Stuart, sus nombres de archivo eran predecibles: C1000.TXT, C1001.TXT, etc. Esto hace que armar una macro para hacer la consolidación sea bastante fácil. El siguiente ejemplo buscará los archivos C1000.TXT a C1030.TXT, todos en el directorio C: \, y los combinará en el documento actual:

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

Si desea cambiar el rango de archivos que se insertan, simplemente cambie los valores al comienzo del ciclo For …​ Next. Si los archivos están en un directorio diferente, puede cambiar la ruta utilizada en la siguiente línea de código, donde se establece sFile. Si falta un archivo dentro del rango, se omite automáticamente.

Sin embargo, existe una forma aún más sencilla de combinar archivos que ni siquiera implica el uso de Word. Puede utilizar el siguiente comando en un símbolo del sistema de Windows:

copy C1???.txt single.txt

Esto combinaría hasta 1000 archivos, C1000.TXT a C1999.TXT, en un solo archivo de texto llamado SINGLE.TXT. Los archivos originales permanecen intactos.

Si quisiera combinar una menor cantidad de archivos, podría usar este formato:

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

Este uso da como resultado que los cuatro archivos, C1020.TXT a C1023.TXT, se combinen en SINGLE.TXT. Puede agregar tantos archivos juntos de esta manera como desee.

Sin embargo, hay una salvedad en esta técnica. El comando de copia da como resultado que no se agreguen caracteres adicionales a un archivo. En otras palabras, el contenido de C1021.TXT se coloca inmediatamente después de C1020.TXT. Por ejemplo, si C1020.TXT contiene «texto 1020» y C1021.TXT contiene «texto 1021», SINGLE.TXT contendrá «texto 1020texto 1021». La única forma de evitar esto es editar cada archivo de origen para asegurarse de que termine con un retorno de carro o utilizar la macro presentada anteriormente.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (9807) se aplica a Microsoft Word 2007, 2010, 2013 y 2016. Puede encontrar una versión de este consejo para la interfaz de menú anterior de Word aquí: link: / word-Combining_Documents [Combinar documentos].