Indiscutiblemente Word 2010 es el mejor editor de palabrasAdemás de proporcionar herramientas de edición básicas y estilos de gráficos, también ofrece una opción para personalizar el documento de la forma que desee. Oculto de forma predeterminada, Word 2010 proporciona una opción para agregar diferentes funciones, como por ejemplo, al insertar algunas líneas de código puede fusionar documentos de Word sin tener que usar ninguna aplicación de terceros dedicada. En esta publicación, insertaremos algunas líneas de código para fusionar todo el contenido de los documentos que residen en la misma carpeta y mostrarlos en una nueva.
Para comenzar, primero debes ponerlos en el mismocarpeta, asegúrese de que todos pertenecen a la misma versión de Word, ya sea Doc o Docx. Como puede 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 Guardar como.
Aparecerá un cuadro de diálogo, desde Guardar como tipo, hacer clic Plantilla de Word habilitada para macros y haga clic en Guardar.
Usaremos el editor VB, así que primero debemos Desarrollador pestaña aparente en la ventana de Word. En caso de que no encuentres Desarrollador pestaña, ve a Expediente menú, haga clic Opciones y en el panel izquierdo, haga clic Personalizar la cinta, desde el panel derecho habilitar Desarrollador caja. Hacer clic de acuerdo con para ver Desarrollador pestaña en la cinta.
Ahora navegue a Desarrollador pestaña y haga clic Visual Basic
Llegará al cuadro de diálogo Editor de VB; desde la barra lateral izquierda, haga doble clic Este documento a abre su ventana de edición de VB. Verá la ventana de código en el lado derecho. Ahora ponga estas líneas de código en él.
Nota: No olvides cambiar la ruta de la carpetadonde residen los documentos y la versión de los documentos de Word en estas líneas de código. Para hacerlo más fácil, también hemos agregado esta precaución frente a los códigos.
Sub MergeDocs ()
Dim rng As Range
Dim MainDoc como documento
Dim strFile As String
Const strFolder = "C: Documentos de UserUsman JavaidDesktopWord" ||| (Cambie la ruta donde residen sus documentos)
Establecer MainDoc = Documents.Add
strFile = Dir $ (strFolder & "* .docx") ||| (Cambie la extensión del archivo a .doc en caso de que esté trabajando con la versión de Word 97-03)
Hacer hasta strFile = ""
Establecer rng = MainDoc.Range
rng.Collapse wdCollapseEnd
rng.InsertFile strFolder & strFile
strFile = Dir $ ()
Lazo
End Sub
Ahora presiona Ctrl + S para guardar la macro recién agregada y cerrar el editor VB. Navegar a Desarrollador pestaña y haga clic Macros
Desde el Macros cuadro de diálogo, seleccione MergeDocs macro y haga clic correr.
Si ha especificado la ruta y la versión correctamente, todos los documentos se fusionarían y abrirían en un nuevo documento.
También puede consultar nuestras guías revisadas anteriormente en Volver a la última línea editada en Word 2010 y usar Combinar correspondencia en Word 2010.
Comentarios