Sin lugar a dudas, Word 2010 es el mejor editor de Word del mercado. Además de ofrecer herramientas básicas de edición y estilos de gráficos, también ofrece la opción de personalizar el documento a tu gusto. Aunque está oculto por defecto, Word 2010 ofrece la opción de añadir diferentes funciones. Por ejemplo, con solo insertar unas líneas de código, puedes combinar documentos de Word sin necesidad de usar aplicaciones de terceros. En esta publicación, insertaremos unas líneas de código para combinar el contenido de los documentos que se encuentran en la misma carpeta y mostrarlos en una nueva.
Para empezar, primero debes colocarlos en la misma carpeta y asegurarte de que todos pertenezcan a la misma versión de Word, ya sea Doc o Docx. Como puedes ver en la captura de pantalla a continuación, hemos abierto dos documentos que se fusionarán.

Ahora abra cualquier documento de Word y guárdelo como documento habilitado para macros, para esto vaya al menú Archivo y haga clic en Guardar como.

Aparecerá un cuadro de diálogo; en Guardar como tipo, haga clic en Plantilla habilitada para macros de Word y haga clic en Guardar.

Usaremos el editor de VB, así que primero debemos hacer visible la pestaña "Desarrollador" en la ventana de Word. Si no encuentra la pestaña "Desarrollador" , vaya al menú Archivo , haga clic en Opciones y, en el panel izquierdo , en Personalizar cinta . En el panel derecho, active la casilla "Desarrollador" . Haga clic en Aceptar para ver la pestaña "Desarrollador" en la cinta.

Ahora vaya a la pestaña Desarrollador y haga clic en Visual Basic.

Accederás al cuadro de diálogo del Editor de VB. En la barra lateral izquierda, haz doble clic en "EsteDocumento" para abrir la ventana de edición de VB. Verás la ventana de código a la derecha. Ahora, introduce estas líneas de código.
Nota: No olvide cambiar la ruta de la carpeta donde se encuentran los documentos y la versión de los documentos de Word en estas líneas de código. Para facilitarlo, también hemos añadido esta precaución antes de los códigos.
Sub MergeDocs()
Rango de rango atenuado
Dim MainDoc como documento
Dim strFile como cadena
Const strFolder = “C:\Users\Usman Javaid\Desktop\Word documents\” ||| (Cambia la ruta donde se encuentran tus documentos)
Establezca MainDoc = Documentos.Add
strFile = Dir$(strFolder & “*.docx”) ||| (Cambie la extensión del archivo a .doc en caso de que esté trabajando con la versión Word 97-03)
Hacer hasta strFile = “”
Establezca rng = MainDoc.Range
rng.Collapse wdCollapseEnd
rng.InsertFile strFolder y strFile
strFile = Dir$()
Bucle
Fin del subtítulo

Ahora presione Ctrl+S para guardar la macro recién agregada y cerrar el editor de VB. Vaya a la pestaña Desarrollador y haga clic en Macros.
Desde el cuadro de diálogo Macros , seleccione la macro MergeDocs y haga clic en Ejecutar .

Si ha especificado la ruta y la versión correctamente, todos los documentos se fusionarán y se abrirán en un nuevo documento.

También puede consultar nuestras guías revisadas anteriormente sobre Volver a la última línea editada en Word 2010 y usar Combinar correspondencia en Word 2010 .
[vía gaebler ]