VBA: Excel a Word - Crea CONTRATOS, CARTAS, CONSTANCIAS y MÁS automáticamente

¡Hola a todos, espero que se encuentren muy muy bien! 😁
En este video aprenderemos a generar múltiples documentos de Word con base en los registros que tengamos en una tabla de Excel, esta herramienta les ayudará a agilizar el proceso de creación de contratos, cartas, constancias y demás. ¡Espero que les sea de gran utilidad!
Espero que les guste y sobre todo que sea de gran ayuda para los proyectos que tengan en mente.
00:00 Introducción
01:19 Ajustes al documento de Word
03:07 Etiquetar las celdas importantes
03:40 Creación de método para mostrar GIF
05:20 Explicación del código VBA
12:20 Cierre
Me ayudarías bastante si lo compartes con todas las personas a las que creas que puede interesarles este video. 🤩 🙏
¿Necesitas asesoría personalizada?
Mail: [e-mail]
Descarga los materiales de apoyo: 👇🏻
www.mediafire....
Créditos de música de fondo:
Hola Beats: open.spotify.c...

[@InteligenciaEficiente]

Los invito a revisar la lista de reproducción dedicada a macros entre Excel y Word 👇 kzbin.info/aero/PLDjlwPQyQjdHmhPvviR2rS1-5xrSOMEZQ

[@erickc9781]

Estimado, me sale el siguiente error: Compile Error: User-defined type not defined y me resalta la fila de Sub crearDoc(datosEmpleado As Empleado) Cómo podría arreglarlo? Muchas gracias de antemano.

[@InteligenciaEficiente]

@@erickc9781 Hola Erick, cuando creas tu tipo de datos datosEmpleado, este debe de ser lo primero que escribas en el módulo de VBA. Cualquier duda puedes contactarme al correo en la descripción. ¡Saludos!

[@InteligenciaEficiente]

@@erickc9781 Hola Erick, cuando creas tu tipo de datos datosEmpleado, este debe de ser lo primero que escribas en el módulo de VBA. Cualquier duda puedes contactarme al correo en la descripción. ¡Saludos!

[@jonatanprieto5856]

Por que me crea la primera carta pero al crear la segunda los marcadores de word dejan de existir y por ende me arroja error de que no encuentra los marcadores en el archivo word, Si me pudieras ayudar seria de gran ayuda saludos

[@diegodechaco]

Gracias por compartir! si quieren que les lea automaticamente la ruta, copien y peguen en la celda C4 la siguiente formula =EXTRAE(CELDA("nombrearchivo");1;LARGO(CELDA("nombrearchivo"))-HALLAR("[";CELDA("nombrearchivo")))

[@InteligenciaEficiente]

¡Muchas gracias por comentar y por tu valioso aporte!

[@schroedereric142]

me salvaste la vida, tenia que redactar 350 informes de desempeño con esto me liberaste para poder estudiar para el siguiente arcial ! muchas gracias!!!!

[@InteligenciaEficiente]

Me da mucho gusto saber eso! Mucho éxito en tu parcial!!

[@sergiomontelongo8498]

Excelente video de muchisma ayuda, Muchas Gracias!! Me ayudo mucho

[@InteligenciaEficiente]

A la orden Sergio!! :D

[@luisbarroso4815]

este video me ayudo a resolver un problema que tenia y pude realizar un archivo de excel que me llene 3 documentos de word y los datos los obtiene desde una tabla en excel, ahora me ahorrare demasiado tiempo gracias a ti brother

[@InteligenciaEficiente]

Un gusto leer tu comentario, saludos!! :D

[@luisbarroso4815]

@@InteligenciaEficiente solo tengo una duda, como le puedo hacer para que solo guarde en pdf, ya que lo hago y me edita el documento principal

[@zedh90]

Excelente video, me gustó mucho por que esto es una alternativa de la función correspondencia de word. Que lo malo de ahí es que tiene limitado la base de datos que se carga desde excel y si quieres guardar el documento en pdf, te hace un solo documento con todo. Tengo una tarea a realizar para más de 300 registros con cerca de 600 columnas pero creo que mapeando uno me ahorraré todo. Gracias por tu ayuda y espero regresar pronto a la comunidad como me fue. Saludos

[@FlekyVG2]

Muchas gracias por compartir este trabajo , es muy útil.

[@InteligenciaEficiente]

Gracias por tu valioso comentario!

[@deyvidpalaciosreyes8202]

Excelente video amigo. El mejor que he visto

[@InteligenciaEficiente]

¡Un gusto leer tu comentario! ¡Saludos!

[@josemariacorderoherrera640]

Muchas gracias por compartir su conocimiento. Me ayudará mucho en mis labores.

[@InteligenciaEficiente]

¡Un gusto leer tu comentario!

[@victorcervantes5063]

Te lo agradezco inmensamente! Y lo mínimo que pude hacer en favor es suscribirme

[@InteligenciaEficiente]

Muchísimas gracias Victor!!

[@chileno6000]

MUY Bueno, llevaba dias haciendolo de manera artesanal, pasandolos a rtf ejecutando una macro pero nunca tan sencillo como te quedo a ti! como q unificaste 10 videos q vi los ultimos dias en 1

[@aadrianaam14]

Excelente y muy útil, muchas gracias

[@mauriciogiraldomarin568]

Excelente video, muchas gracias

[@katerindias6049]

Muchas gracias!!! Eres el mejor !

[@InteligenciaEficiente]

Gracias, saludos!

[@villgathzsteam6385]

Este canal está vivo…..

[@losmonteblanco]

¡Muy buena la lección, bastante útil, gracias! Me gustan mucho tus videos tutoriales, por eso me suscribe a tu canal

[@InteligenciaEficiente]

¡Muchísimas gracias por tus valiosos comentarios!

[@claytonjhordaniliquinzaval4719]

Demasiado Crack, muchas gracias :D

[@InteligenciaEficiente]

¡Gracias a ti!

[@stalinbejarano4896]

Muy buen video gracias

[@sarmyo]

Excelente!

[@eugeniusmagic]

este video esta infravalorado que poquitos likes!

[@antonioesquivelmoreno8670]

Excelente, felicidades

[@kanitorum]

Gracias por tu gran aporte. Podrías darme una idea de cómo podría seleccionar solo una fila o algunas filas para que no sea todo. Gracias

[@InteligenciaEficiente]

¡Hola! podrías aplicar un filtro y después de ello solo hacer que la macro trabaje con las filas visibles con la propiedad xlCellTypeVisible. ¡Saludos!

[@gloriapriegoluque2777]

Muchas gracias por el video. Quería preguntar si es posible hacer varias macros dentro del mismo excel y que tengan botones diferentes, así usar condensar 3 automatizaciones en un único excel

[@LuisFernandoJudexSilva]

Excelente Gracias

[@InteligenciaEficiente]

A la orden!

[@danielaguilera2790]

Si pude! Le batalle un poquito pero se logro. Muchas gracias.

[@InteligenciaEficiente]

Excelente! Me da mucho gusto :D

[@movto1]

Buenas, El código da un error 9 en tiempo de ejecución. Subíndice fuera del intervalo. En la línea siguiente Set tablaDatos = ws.ListObjects("Datos")

[@movto1]

Acabo de descubrir el error. No se trata de asignarle un nombre sin más a la tabla DATOS. Como hace con la RUTA y el ARCHIVO. Se trata de crear una Tabla-Tabla, que sí es un objeto. Y después llamarla Datos. Si no, VBA no encentra dicho objeto. Es decir, no podemos crear la tabla sin más, como un RANGO DE DATOS. Hay que poner los datos y a continuación crearlos como tabla. (Es la opción que hay junto al icono de crear Tabla Dinámica (pestaña INSERTAR), pero la que se llama TABLA a secas. Eso sí lo convierte en objeto y entonces sí se puede referenciar desde VBA.

[@InteligenciaEficiente]

Es correcto, te felicito por tu resolución, los errores son algo muy común cuando desarrollamos macros así que el ser autodidactas e investigar el por qué del error nos ayudará a mejorar cada vez más!! Saludos!!

[@gonzalo3956]

Hola, muchas gracias por compartir y enseñar a simplificar nuestras tareas, tengo una pregunta y te agradecería mucho si me puedes ayudar, mi intención es crear una carpeta por cada empleado (el nombre de la carpeta seria el nombre del empleado) que hay en la tabla y dentro de esta carpeta se genere o se grabe unicamente el archivo pdf ? Muchas gracias por tu ayuda

[@MrSalas2012]

para mejorar los tiempos de ejecucion se podra hacer teniendo la plantilla en una hoja diferente en el mismo excel ?

[@InteligenciaEficiente]

¡Hola! Para mejorar los tiempos podrías intentar implementar el comando Application.ScreenUpdating = False y Application.DisplayAlerts = False. Esto hará que la pantalla deje de mostrar el proceso lo que puede ahorrar unos segundos.

[@samaeluis]

hola, excelente video, y cual seria el código para ingresar datos en el encabezado de word

[@InteligenciaEficiente]

¡Hola! Te recomiendo darte una vuelta por este video, en el primer comentario dejo el código de la función para ingresar datos al encabezado de word. ¡Saludos! kzbin.info/www/bejne/jIKyZ4N7msuNi6M&ab_channel=InteligenciaEficiente

[@ggmm7463]

gracias bro y si son 2 archivos con textos diferentes en el word pero lo mismos datos de excel, ejmplo que cree un archivo contrato y una constancia, con un solo clic, como agregaria otro word?

[@gersaavedra6168]

Hola. Mi sugerencia es que adiciones dos campos a la tabla datos: carpeta (RUTA) y nombre documento (DOC), y en "Type Empleado" adiciona estos dos datos: Ruta as String, Doc as String. Asimismo, en el For each adicional estos datos.

[@InteligenciaEficiente]

Podrías generar dos suburtinas, una que genere el contrato y otra que genere la constancia, al dar click en el botón llamarás a una macro que ejecutará ambos procesos con el comando Call. www.excel-avanzado.com/10882/que-es-call-en-vba-y-como-se-usa.html

[@eugeniusmagic]

Que pro!

[@jano436]

Hola como estas, tendras algun video donde te pueda generar un solo doc con cada fila de excel? porfa

[@InteligenciaEficiente]

¡Hola! Muchas gracias por comentar, actualmente no cuento con un video pero lo añadiré a la lista. ¡Saludos! Puedes contactarnos al correo en la descripción para asesorías o desarrollos personalizados. :D

[@ricardouculmanaquispe453]

Excelente. Solo que la sintaxis en VBA cambia para las versiones más recientes de Excel. Por otro lado, cuando son una gran cantidad de archivos, la macro demora en ejecutarse :/

[@InteligenciaEficiente]

Hola Ricardo, ¿Me podrías decir qué cambios pudiste notar en la sintaxis de VBA? Quizá de esa manera podríamos saber qué es lo que ha cambiado ya que esta macro la he trabajado en Excel 2010, 2016 y 365 sin cambios. Sobre el tiempo de procesamiento es posible que demore, pero aún así será menor que hacerlo manualmente. ¡Saludos y gracias por comentar! :D

[@willyarenas4444]

Gravias por tu apoyo, tengo un inconveniente me sale el error 5174 en tiempo de ejecucion: NO HEMOS PODIDO ENCONTRAR EL ARCHIVO.... cuando ejecuto la macro me sale este anuncio q no encuentra la ruta..q puedo hacer?.

[@jennymejia3463]

Una consulta si la lista de datos que tengo no esta en filas, sino por el contrario esta en columnas como seria la formula para que tome el rango hacia la derecha?

[@InteligenciaEficiente]

Hola Jenny, habría que hacer unos pequeños ajustes para que el recorrido sea por columna y no por fila, si gustas puedes compartirme tu macro al correo que dejo en la descripción y con gusto te ayudo :D

[@mateos7564]

Hola, muchas gracias, ¿se pueden generar varios archivos Excel desde otro Excel?

[@InteligenciaEficiente]

¡Claro que es posible! Quizá pueda platicarme más por mail, puede escribirme al correo escrito en la descripción del video. ¡Saludos!

[@user-to4nl2pn6u]

como le hago para que solo me genere el documento dependiente de los registros que tenga en la tabla es decir si filtro la informacion de la tabla y solo tengo una fila solo genere un documento y si filtro y ahora tengo 5 solo genere los documentos de los datos que tenga filtrado

[@nicolevanessagomezbeltran1219]

Hola! muchas gracias Intento ejecutar la macro pero se me presenta un error "9" en tiempo de ejecución, ya intente solucionarlo de una y mil formas pero nada funciona. Puedes ayudarme por favor

[@InteligenciaEficiente]

Hola Nicole, puede enviarme su macro a [e-mail] para verificarla a detalle. ¡Saludos!

[@pistasdebluex]

hola me gusta que bien explicas!, una pregunta me puedes decir por que este error --> no se ha definido el tipo definido por el usuario Sub crearDoc(datosEmpleado As Empleado) Dim objWord As Word.Application

[@ChrisReategui07]

Pudiste solucionarlo? me salió lo mismo

[@InteligenciaEficiente]

Hola! Parece que no está habilitada la librería MS Word Object Library, en el minuto 3:00 explico cómo habilitarla :D

[@kleidymonsalve2266]

Buenas noches! Gracias por compartir tus videos.. Tengo una consulta ¿tienes algún video donde expliques como se hace el formulario previo al envío de información a varios documentos en Word?

[@InteligenciaEficiente]

Hola Kleidy, si te refieres a la tabla, aquí te dejo más info sobre como crear una tabla en Excel, saludos!! :D support.microsoft.com/es-es/office/crear-una-tabla-en-excel-bf0ce08b-d012-42ec-8ecf-a2259c9faf3f

[@kleidymonsalve2266]

@@InteligenciaEficiente Muchas gracias por tu respuesta!, pero no me supe explicar, me refiero a como haces la conexión del botón para que se generen los documentos

[@InteligenciaEficiente]

@@kleidymonsalve2266 Me avisas si esta info te ayuda! ayudaexcel.com/como-asignar-una-macro-a-un-boton/

[@kleidymonsalve2266]

@@InteligenciaEficiente Muchísimas graciasss!! Esta información es la que necesitaba :)

[@gonzalolopez8165]

Hola estimado, excelente tu aporte. Mil gracias. Consulta: quiero filtrar 1 sola fila y solo genere ese documento .doc o pdf. Vi abajo que utilizas la instruccion xlCellTypeVisible. Me gustaria saber como se implementa. Probe algunas opciones pegandola en el codigo y me tira un error. Desde ya muchas gracias.

[@InteligenciaEficiente]

Hola Gonzalo, necesitas modificar el código en esta sección:

[@InteligenciaEficiente]

Dim nFila As Range For Each nFila In tabla.DataBodyRange.SpecialCells(xlCellTypeVisible).Rows datosEmpleado.nombre = nFila.Cells(1, 1) datosEmpleado.puesto = nFila.Cells(1, 2) '.... Así con los demás Next

[@gonzalolopez8165]

@@InteligenciaEficiente listo genio!!! ahi en el for Each te falto tablaDatos seria y funciona una maravilla. Mil gracias hermano. Necesito aprender mas sobre esto. Me podes ofrecer un curso para aprender a programar a nivel avanzado? nunca vi visual Basic

[@danielmendoza6009]

Hola muchas gracias por el aporte, una pregunta hay forma de que genere los documentos pero con filas que se muestre despues de aplicar un filtro de la tabla? básicamente que me genere las filas visibles del documento?

[@InteligenciaEficiente]

Claro que sí, te comparto un ejemplo de un ciclo a través de celdas visibles. Sub SpecialLoop() Dim cl As Range, rng As Range Set rng = Range("A2:A11") For Each cl In rng.SpecialCells(xlCellTypeVisible) Debug.Print cl Next cl End Sub

[@fabiolasalas7605]

@@InteligenciaEficiente Hola! en qué parte de la macro debo agregar este ciclo? también me gustaría generar solo documentos de lo que se vea después de agregar un filtro

[@jorgeluisugazcabrejos2778]

Hola!, agradecerte por el conocimiento compartido, de verdad que es de mucha ayuda para todos, tengo una consulta en mi tabla quiero agregar imagenes(foto pequeña), y quiero que puedan unirse con el word quisiera saber como podria declarar la variable o cambair el codigo.Hola!, agradecerte por el conocimiento compartido, de verdad que es de mucha ayuda para todos, tengo una consulta en mi tabla quiero agregar imagenes(foto pequeña), y quiero que puedan unirse con el word quisiera saber como podria declarar la variable o cambiar el codigo??

[@InteligenciaEficiente]

¡Hola Jorge! Eso es algo nuevo, la verdad tendría que checar tu caso en particular, puedes enviarme correo a [e-mail] para poder revisarlo. ¡Saludos!

[@kaasimahmed222]

@@InteligenciaEficiente Estos casos por acá están muy interesantes

[@angeldediosrodriguez8352]

Igual me gustaría saber, sé como hacerlo por combinación de correspondencia pero no con marcadores como indics en el video@@InteligenciaEficiente

[@kevinvenegas6726]

Hola! tus videos me sirven muchisimo, tengo una duda. Yo quiero que se genere una carta en el mismo documento de word (una por cada pagina) por cada fila en el excel. No deseo que se guarde en documentos aparte cada fila sino que se guarde todo en un solo documento. Como podria ahcer eso?

[@InteligenciaEficiente]

Hola Kevin, tendías que modificar un poco la lógica de la macro. No es algo que pueda ponerte en un comentario ya que hay que cambiar varias cosas, puedes contactarme al correo en la descripción para revisar este detalle, saludos!!

[@edwinmarinchiguasuque]

[@gesa401]

Muchísimas gracias, tu video me ha ayudado a intentar hacer algo similar, solamente que tengo un problema, en mi tabla de Excel quiero que haya celdas celdas ocultas pero al momento de generar el documento de Word, los datos de estas celdas ocultas no se visualizan, ¿sabrías como poder hacer que los datos de las celdas ocultas también se tomen en cuenta al generar el documento de Word?

[@InteligenciaEficiente]

Hola Gellert! Podrías mandarme un correo con tu macro a [e-mail] para ver cómo puedo ayudarte con ello. Saludos!! :D

[@kaasimahmed222]

@@InteligenciaEficiente Cual fue la solución??

[@rsar4919]

Disculpa no lo entiendo, esto no es de forma masiva si no de uno por uno. Alguien sabe como generar archivos individuales de forma masiva?

[@lucky4ever.]

Gracias por compartir, una consulta: si borro el numero 17 de la linea del código resaltado en el minuto 12:00 sucede algo?, que función cumple ese 17?

[@InteligenciaEficiente]

Hola Edgar, ese número corresponde al parámetro wdSaveFormat donde el valor 17 significa que será PDF por lo que es importante tenerlo, también es posible cambiar el 17 por wdFormatPDF ya que tienen el mismo valor o sea wdFormatPDF = 17, te comparto la información sobre los diferentes formatos que se pueden utilizar. docs.microsoft.com/en-us/office/vba/api/word.wdsaveformat

[@lucky4ever.]

@@InteligenciaEficiente muchas gracias

[@melchorluisalbinojusto1039]

Mi estimado... con mi saludo previo... quiero hacerle una consulta.... que generar los contratos pero de manera individual y NO masivamente.... ¿como hago??

[@InteligenciaEficiente]

Hola Melchor, quizá este video te pueda servir: kzbin.info/www/bejne/aonOaaWJiNp7j8Usi=i8OIZDkBZQmiPT1R

[@villgathzsteam6385]

En correspondencia Si quisiera hacer en Word con una tabla, con el fin llenar varias celdas de dicha tabla, en relación a un solo dato extraído de un Excel , que coincide con toda la información de la tabla del Excel, ejemplo una fecha, y que llene automáticamente la tabla del word, todos aquellos datos tales como nombre , modelo , precio, color, ubicación, etc que tiene la fecha en común Se pueda enviar al Word en control de correspondencia. ¿Como puedo hacerlo.?

[@InteligenciaEficiente]

¡Hola! Esto es una necesidad muy particular, podríamos revisarlo en una sesión de asesoría personalizada si gustas. Puedes enviarme correo al mail en la descripción. ¡Saludos! :D

[@ronaldayalahuarachi2130]

Muy bueno

[@LeonelRFF]

¿Es posible hacer eso para informes en los que tenga muchas fórmulas (cada una depende de la anterior) con el desarrollo completo hasta el resultado?

[@InteligenciaEficiente]

Sí es posible, porque solo se estaría tomando el valor del resultado de cada celda :)

[@LeonelRFF]

@@InteligenciaEficiente¿incluso si las fórmulas son en látex?

[@joelballesta3334]

Hola, una consulta, cómo puedo hacer para que la macro aparte de que me tome los valores me pegue una tabla en cada archivo o que cuando se esté pegando en los datos en el archivo base enseguida me pegue una tabla. Muchas gracias

[@InteligenciaEficiente]

Hola Joel, tengo un video para las tablas. Te recomiendo revisarlo. ¡Saludos! kzbin.info/www/bejne/ooPQh36cn9GXf7c

[@crisfueyo9400]

Nunca he trabajado con VB y probablemente esto sea muy básico pero he copiado la macro cambiando los datos para adaptarlos a mi Excel y me da un error en Dim datosEmpleado As Empleado. Tengo que tener declarado datosEmpleado en algún otro lugar?

[@InteligenciaEficiente]

Hola! Podías enviarme tu archivo a mi página de fb y con gutso te ayudaré: facebook.com/InteligenciaEficiente/

[@mariainesvillalobosreyna2495]

Hola! Al querer correr la macro aparece el error 4198 command failed en la fila de Set objDoc, revise todo y está igual que en el video ¿alguien sabe por qué otra razón se puede dar este error?

[@InteligenciaEficiente]

¡Hola María! El error 4198 no es muy específico por lo que te puedo apoyar si me compartes más información a mi correo electrónico, el cual podrás encontrar en la descripción de este video. ¡Saludos!

[@260789Naty]

Buenas tardes, por favor su ayuda al poner el . para colocar bookmarks en el código no aparece en las opciones que despliegan

[@InteligenciaEficiente]

Hola Karen, pide deberse a que no está habilitada la Referencia a Microsoft Word Object Library como se muestra en el video.

[@RicardoSilvaYescas]

Como puedo solucionar el error (9) subíndice fuera del intervalo

[@eugeniusmagic]

Hola! tengo office 2016 y sirvio genial, pero al colocarlo en la lapto de un colega con office 2010 y la version de libreria 14, tengo un problema al crear el Word , se tranca aqui " Set objWord = New Word.Application"

[@InteligenciaEficiente]

¡Hola! En la máquina con Office 2010 puedes cambiar las declaraciones de los objetos de la siguiente manera: Dim objWord As Word.Application ---> objWord As Object Set objWord = New Word.Application ---> Set objWord = CreateObject("Word.Application") Si deseas una asesoría más personalizada no dudes en contactarme a mi correo: [e-mail] ¡¡SALUDOS!!

[@eugeniusmagic]

@@InteligenciaEficiente el lunes comento como me fue, en serio muchas muchas gracias

[@eugeniusmagic]

@@InteligenciaEficiente Hola! Me dieron otras tareas y no habia podido probar con este codigo, paso bien el objWord As Object pero luego se tranco en la siguiente donde le dice que abra el word... vamos a actualizar el microsoft office para que tenga la libreria mas actualizada. Gracias! 😅

[@johnfabergalvezmorales665]

Hola, muchasa gracias por el valioso aporte. Al ejecutar la macro se genera un error "13" en tiempo de ejecucion: no coinciden los tipos. Puedas ayudarme por favor. Gracias

[@InteligenciaEficiente]

Hola John, puedes enviarme un correo mostrándome más detalles del error que te aparece a: [e-mail]

[@qfbirazufm]

Buen día, excelente video, tengo una duda, cómo le puedo hacer para que en un solo archivo de Word queden las constancias de los trabajadores 1 a 4 con su respectiva información. Muchas gracias de antemano.

[@InteligenciaEficiente]

Se me ocurre que se puede tener una etiqueta por cada trabajador como NombreTrabajador_1, NombreTrabajador_2 , etc. Saludos!

[@GeoEnergyGreenMinning1000]

Simplemente haces una combinación de correspondencia, y al finalizar escoges la opción guardar como documentos diferentes, y te los guarda en un sólo archivo. No requiere macro.

[@Almaoj]

tengo un Error en "For each fila in tablaDatos.ListRows" la palabra dato la tengo que cambiar por lo que yo tengo en mi hoja de excel? en mi caso, todo los datos de la tabla se llaman "Tabla1"

[@InteligenciaEficiente]

¡Hola! Así, es, necesitarías establecer el nombre correspondiente. ¡Saludos!

[@Almaoj]

@@InteligenciaEficiente lo otro el documento WORD a usar como base, no puede estar con Autoguardado?

[@InteligenciaEficiente]

@@Almaoj Hola!! Sí, si el documento ya está configurado como autoguardado no hay problema.

[@ladyleon2409]

Buenas noches, acabo de replicar el ejercicio. Me sale este error: error en intervalo de ejecución y se sombrea en amarillo esta linea Set ws = ThisWorkbook.Sheets("Principal"). Ayuda por favor para entender que pude hacer mal

[@InteligenciaEficiente]

Hola!! Debe ser porque no tienes una hoja en tu libro de Excel que se llame Principal, es muy importante que el nombre no contenga espacios.

[@tommyduran1566]

Buenas tardes cordial saludos desde Colombia. ¿Dónde se podría conseguir ese código de programación? Muchas gracias

[@InteligenciaEficiente]

Hola Tommy, en la descripción del video puedes descargarlo, saludos!!

[@cristhiangarijaramillo3147]

este ejemplo lo puedes hacer en lugar de exel con access

[@InteligenciaEficiente]

¡Claro que sí, de hecho pienso mejorarlo y posteriormente lo escalaré a otras herramientas como Access!

[@cristhiangarijaramillo3147]

@@InteligenciaEficiente si xq quisiera saber hacer esl mismo con access

[@hernandezjxs]

Hola como puedo hacer para que me genere un solo archivo de word y/o pdf con todas las cartas y no por separado

[@InteligenciaEficiente]

Hola Jesús, quizá una manera en la que no tengas que modificar tanto el proceso actual sería que al final unieras todos los documentos en uno solo. Si deseas una asesoría o un desarrollo más personalizado puedes contactarme al correo en la descripción. ¡Saludos!

[@antoniaarpon5326]

Hola muchisimas gracias por el video pero hago tal cual el proceso como lo realizas pero al ejecutar me da error en Sub crearDoc(datosEmpleado as Empleado) porfa tu ayuda para solucionarlo

[@angeldediosrodriguez8352]

Lograste resolverlo? me da el mismo error a pesas de ponerlo al principio de todo el módulo :/

[@lisetpalacio9019]

Ayuda algo estoy haciendo mal la macro no me funciona y sale depurar,, finalizar, ayuda

[@InteligenciaEficiente]

¡Hola! Con gusto puedo apoyarte, puedes contactarme por correo a la dirección que dejo en la descripción del video para poder revisarlo a detalle. ¡Saludos!

[@guitarslongavitabrevis9575]

Está genial, pero lo intente con un equipo que tiene el word 14 en las referencias y no funcionó, que tendría que camiar del código? O no funciona para librerías anteriores a Word 16. Saludos...

[@InteligenciaEficiente]

Hola! Solo tendrías que buscar en Herramientas >> Referencias >> Microsoft Word 14.0 Object Library y marcar esa casilla para que pueda funcionar, saludos!

[@guitarslongavitabrevis9575]

@@InteligenciaEficiente Resuelto muchas gracias... excelente canal...

[@vanessamacias6879]

Hola, porfa ayúdame, me sale error 7 memoria insuficiente. ¿Es algo de mi computadora o en excel?

[@InteligenciaEficiente]

Hola Vanessa, puedes contactarme al correo en la descripción para ayudarte con este tema.

[@joanafandino4761]

Hola! me genera el siguiente error "se ha producido el error 9 en tiempo de ejecución: Subíndice fuera de intervalo y el depurar se coloca en amarillo "Set tablaDatos = ws.ListObjects("PruebaD")" me podrías ayudar. 😐

[@InteligenciaEficiente]

Hola Joana, con gusto! Si te manda ese error es porque no encuentra la tabla llamada pruebaD, en este link puedes ver las instrucciones para nombrar una tabla en Excel. ¡Saludos! :D support.microsoft.com/es-es/office/cambiar-el-nombre-de-una-tabla-de-excel-fbf49a4f-82a3-43eb-8ba2-44d21233b114

[@joanafandino4761]

@@InteligenciaEficiente Gracias 🤗 la termine y funciona perfecta!!!!

[@diegoeduardovelascoruiz1509]

Buenas tardes, primero muchas gracias por el aporte me es de gran utilidad para mis actividades, sin embargo quiero generar una nueva variable o dato para generar un poco mas automático el tema, tengo cuatro documento diferentes, por lo quiero que en lugar de que genere el documento por una celda especifica quisiera que se genere por una lista de nombre (fila), no se si sea posible con el fin de que genere en automático 4 diferentes archivos en base a la celda que corresponda a la columna ejemplo: diego debe de generar constancia con el formato uno; Jorge con la constancia dos, Jesus con la constancia tres, Victor con la constancia uno, diana con la constancia tres, etcétera.. espero me puedan ayudar.

[@InteligenciaEficiente]

Hola Diego, claro que se podría, tendrías que agregar un condicional para que dependiendo el caso trabaje en diferentes plantillas, si gustas una asesoría más personalizada puedes mandarme más detalles a mi correo: [e-mail]

[@kaasimahmed222]

@@InteligenciaEficiente Un video de esto, estaría perfecto Ya se subió?

[@scarlethmendoza5474]

Hola, muy buen vídeo! tengo una pregunta, me sale error 91, y revise todo y esta justo como lo explicaste, me podrías ayudar a revisarlo? ya te envié el correo con el Excel, gracias previas.

[@InteligenciaEficiente]

Gracias Scarleth, seguimos en contacto!

[@aerg1605]

Como puedo hacer para que el archivo word se guarde en otra direccion(carpeta del pc) diferente a donde esta el archivo original?

[@InteligenciaEficiente]

Hola Alejandro, necesitas cambiar el parámetro Filename:= del método SaveAs por la nueva dirección por ejemplo: C:\Users\carlo\Downloads

[@williamtovar4598]

Pregunta, si quiero repetir 2 mismos nombres, solo me sale el primero que vincule

[@InteligenciaEficiente]

Como está esta macro habría que desarrollar 2 campos distintos para cada nombre aunque sean del mismo valor pero te comparto este otro video donde se hace el reemplazo de otra manera más eficiente. kzbin.info/www/bejne/jIKyZ4N7msuNi6M&ab_channel=InteligenciaEficiente

[@adriancontreras-ceron3023]

Buenas noches, muchas gracias por el video, me sirvió mucho, sin embargo estoy bloqueado, porque en la parte del encabezado de texto esta macro no lo modifica. ¿Me podrías indicar como hacerlo o podrías hacer un video explicando esta situación? Si es el caso te puedo compartir lo que quiero hacer. De nuevo gracias

[@InteligenciaEficiente]

Hola Adrián, el comentario de hasta arriba modifica la función buscar y reemplazar para que también modifique los encabezados :D

[@juanmiramontes990]

hola muchas gracias por compartir su conocimientos, estoy teniendo un Error con esta linea (objDoc.Save2 filename :=...)) me tira el (Error Tiempo de ejecución Error 5152 Este no es un nombre de archivo válido cuando..) estoy usando la librería microsoft word 15 object library... como podría solucionarlo. intente varias maneras pero no me funciono.. desde Muchas Gracias

[@InteligenciaEficiente]

Hola Juan, verifique que la ruta que esta después de filename de verdad es una ruta válida, seguramente está cometiendo un error al definir esa ruta. Si necesita alguna asesoría más personal puede escribirme a [e-mail] ¡¡Saludos!!

[@oscardiaz6591]

Me aparece el error de Run-time error '9': Subscript out of range Que podria hacer en ese caso? Saludos

[@InteligenciaEficiente]

¡Hola Oscar! Si necesitas asesoría personalizada con gusto puedes escribirme a: [e-mail]

[@andreinafernandez9539]

A esto se le podrian agregar imagenes? Tengo que generar documentos automaticos que incluyen tablas de presupuestos y no se como hacerlo :(

[@InteligenciaEficiente]

subiré pronto un video para las imágenes :D

[@gustavogrosso3273]

Excelente video!! solo tengo un problema: al guardar el archivo, me sale en formato L, como lo puedo solucionar?

[@InteligenciaEficiente]

Hola Gustavo. ¿A qué te refieres con formato L?

[@deedeeramon6783]

Hola, buenos días, intento ejecutar la macro en mi automatización pero me dice "Error en la ejecución de servidor " o también error '5174" porque no ha podido encontrar el archivo Chequé la ruta , el nombre de la hoja de Word pero están correcto, no entiendo qué pasa, les agradecería mucho si me podrían ayudar, por favor

[@InteligenciaEficiente]

Hola, por favor verifica que hayas agregado un "\" al final de la celda C4 donde escribes la ruta de la carpeta. Me platicas si con eso ya funciona, saludos!!

[@deedeeramon6783]

Muchisimas gracias, ya lo puede resolver !!!! 💖😊😊😊

[@gassancarlos9497]

AYUDA!! ME MARCA ERROR EN objWord As Word.Application dice que tipo no definido por el usuario, no se que hacer!!!

[@gassancarlos9497]

Y si tengo seleccionado las herramientas de word 16

[@InteligenciaEficiente]

Hola! Puedes enviarme tu macro a [e-mail] para revisarla a detalle, saludos!

[@Gloriannys]

me da un bug con esta parte " Set objDoc = objWord.Documents.Open(rutaCarpeta & nombreDoc)" no pasa por ahí

[@InteligenciaEficiente]

Hola Gloria, quizá los valores que asignaste a rutaCarpeta y a nombreDoc no están definidos correctamente.

[@benjaminlopez7333]

Hola, esta muy bueno el contenido, pero cuando acomodo el codigo a mis archivos, me arroja error 91 'Variable de objeto o Bloque With no establecido'

[@InteligenciaEficiente]

¡Hola Benjamín! Para poder ayudarte puedes enviarme tu macro al correo que está en la descripción del video. SALUDOS.

[@camareraMAN]

No me funciona, dice "no se puede definir un tipo definido por el usuario Públic dentro de un módulo de objeto

[@InteligenciaEficiente]

Hola! cuando creas un tipo de dato definido por el usuario, como en el caso de este video, ese tipo de dato solo puede ser utilizado en el mismo módulo donde fue creado y tiene que ser un módulo normal, no puede ser de clase o dentro de un formulario. Posiblemente eso esté causando el error. ¡Saludos!

[@oscardiaz6591]

Y como vinculaste el boton de crear documento?

[@InteligenciaEficiente]

Te comparto todos los detalles: support.microsoft.com/es-es/office/asignar-una-macro-a-un-formulario-o-un-bot%C3%B3n-control-d58edd7d-cb04-4964-bead-9c72c843a283

[@maximoarias835]

Una duda y como hago para generar solo un archivo de una persona en especifico y no de todos al mismo tiempo

[@InteligenciaEficiente]

¡Hola! Te comparto este otro video donde solo se hace el traslado a un solo documento. kzbin.info/www/bejne/aonOaaWJiNp7j8U

[@movimientoclub2483]

Buenas tardes, Muy buen video, tengo una consulta, me sale un mensaje de Error de compilación: El uso de la propiedad no es válido y en el visual basic me señala en amarillo Sub crearDoc(datosEmpleado As Empleado), me podrías ayudar porfavor, te lo agradecería un montón.

[@InteligenciaEficiente]

¡Hola! Debes tener algún error en el código, te recomiendo revisarlo minuciosamente, si continúas con problemas puedes enviarme tu macro al correo: [e-mail] ¡SALUDOS!

[@movimientoclub2483]

@@InteligenciaEficiente te lo acabo de enviar, ojalá puedas ayudarme, de antemano muchas gracias.

[@InteligenciaEficiente]

@@movimientoclub2483 Listo, me cuentas cómo te va :D

[@pk2k2]

Enorme. Lo único: no queda claro cómo nombras la tabla, a mi me da un error de tipo '9' ( Set tablaDatos = ws.ListObjects("Datos") '----> Nombre de la tabla con los datos )

[@InteligenciaEficiente]

Tienes razón, es una tabla. Te comparto más información sobre cómo cambiarle el nombre. support.microsoft.com/es-es/office/cambiar-el-nombre-de-una-tabla-de-excel-fbf49a4f-82a3-43eb-8ba2-44d21233b114

[@yampiergordillo1706]

Muy buenas tardes, disculpe como se puede realiza el procedimiento pero pegando una tabla completa a un documento word

[@InteligenciaEficiente]

¡Hola! Agregando estos comandos puedes lograrlo: Dim tabla As Range Set tabla = Worksheets("TuHojaAqui").UsedRange tabla.Copy objDoc.Application.Selection.Range.PasteExcelTable LinkedToExcel:=False, WordFormatting:=False, RTF:=False Si requieres algo más sofisticado no dudes en contactarme: facebook.com/InteligenciaEficiente/

[@yampiergordillo1706]

@@InteligenciaEficiente Muchas gracias amigo, me fue de mucha utilidad, funciona excelentemente, aunque quisiera saber si existe alguna manera de poder reemplazar el marcador de la hoja de word por la tabla seleccionada en excel

[@carlosalbertolealgemade7947]

Hola como estas, excelente tu aporte me suscribi a tu canal, por algun motivo en esta linea al ejecutar la macro me genera error Set tablaDatos = ws.ListObjects("Datos"), cuando ubico el cursor encima me dice lo siguiente: ws.ListObjects("Datos)=, agradecería me indicaras en donde esta mi error

[@InteligenciaEficiente]

Hola Tocayo, me podrías mandar tu archivo por mensaje de facebook a la página para poder revisarlo con mayor detalle? Saludos! facebook.com/InteligenciaEficiente

[@alondraleonelaeliasamaya814]

Hola, Buenas tardes. Una consulta, a mi también me sale ese error, me podrían indicar a qué se debe. De antemano muchas gracias.

[@valentinapazastete788]

Me aparece el mismo error, lograste solucionarlo?

[@escanornanatsu8126]

Seguimos esperando respuesta

[@CamiloNietoYKerllyRamos]

Primero excelente video, gran ayuda. Pregunta, me ejecuta Perfecto, sin embargo tengo una tabla con 76 registros y solo logra hacer los 13 primeros, luego me sale error “5487”, al parecer es algo de permisos pero no logro resolver, he cambiado los nombres de la lista, borrado algunos, pero sigue saliendo lo mismo. ¿Sabes que podría ser ? Gracias!!

[@InteligenciaEficiente]

Hola Camilo, quizá debamos ajustar un poco el método de copiado y pegado en la tabla, puedes enviarme tu macro y documento de word por correo para poder revisar y corregir el problema, saludos! :D

[@user-km9ud4ss7u]

como hiciste eso en excel.. es un macro... perdon por mi inexperiencia

[@InteligenciaEficiente]

¡Hola! Así es, este proceso se logra con macros de VBA. Te invito a revisar mi canal ya que tengo muchos desarrollos parecidos. ¡Un saludo!

[@sebastianmuneramarin249]

Como llevar los datos con formato del excel a word?

[@InteligenciaEficiente]

Hola Sebastian, haré un video muy pronto sobre ello :D

[@avantiasacconsultora9987]

Cuando ocurren errores he notado que borra los marcadores de word y tienea que volver a crearlos seria mejor otro metodo

[@InteligenciaEficiente]

Quizá este método pueda ayudar: kzbin.info/www/bejne/jIKyZ4N7msuNi6Msi=oJK5ygOrbS5Jzmig

[@AngeliroR]

Y COMO LE ARIA PARA QUE SE APLIQUE POR CONDICIONAL SOLO PARA QUE CREE A LOS QUE CUMPLAN UN CRITERIO

[@InteligenciaEficiente]

con la sentencia IF seguido de la lógica que desees implementar. ¡Saludos!

[@guitarslongavitabrevis9575]

Y si quisiera imprimirlos... como lo haría?!!!

[@InteligenciaEficiente]

Hola, te comparto más información sobre cómo imprimir los documentos usando VBA: excel-macro.tutorialhorizon.com/vba-excel-open-and-print-the-word-document/

[@guitarslongavitabrevis9575]

​@@InteligenciaEficiente de nuevo muchísimas gracias por tu ayuda

[@martinmananes]

Muchísimas gracias por tus videos! Necesito ayuda ya que me está tirando un msj de error (nro 91 "tiempos de ejecución). Ya revisé los marcadores en Word y están Ok. Me podrían ayudar por favor? El código que puse es el siguiente: 'Definir datos Type Contrato RAZON_SOCIAL As String N°CUIT As String DOMICILIO_LEGAL As String CORREO As String FECHA As String End Type 'Macro Sub CrearContrato() Dim ws As Worksheet Dim tabladatos As ListObject Dim fila As ListRow Dim datosContrato As Contrato Set ws = ThisWorkbook.Sheets("Contrato") Set tabladatos = ws.ListObjects("Datos") Application.DisplayAlerts = False Application.ScreenUpdating = False For Each fila In tabladatos.ListRows datosContrato.RAZON_SOCIAL = fila.Range(1.1) datosContrato.N°CUIT = fila.Range(1.2) datosContrato.DOMICILIO_LEGAL = fila.Range(1.3) datosContrato.CORREO = fila.Range(1.4) datosContrato.FECHA = fila.Range(1.5).Text Call crearDoc(datosContrato) Next MsgBox "Proceso finalizado", vbInformation End Sub 'Metodo Sub crearDoc(datosContrato As Contrato) Dim objWord As Word.Application Dim objDoc As Word.Document Dim estaHoja As Worksheet Dim rutaCarpeta As String, nombreDoc As String Set estaHoja = ThisWorkbook.Sheets("Contrato") rutaCarpeta = Range("rutaCarpeta").Value nombreDoc = Range("nombreDoc").Value Set objWord = New Word.Application Set objDoc = objWord.Documents.Open(rutaCarpeta & nombreDoc) objWord.Visible = True With objDoc .Bookmarks("RAZON_SOCIAL1").Range.Text = datosContrato.RAZON_SOCIAL .Bookmarks("RAZON_SOCIAL2").Range.Text = datosContrato.RAZON_SOCIAL .Bookmarks("RAZON_SOCIAL3").Range.Text = datosContrato.RAZON_SOCIAL .Bookmarks("FECHA").Range.Text = datosContrato.FECHA .Bookmarks("NroCUIT").Range.Text = datosContrato.N°CUIT .Bookmarks("DOMICILIO_LEGAL1").Range.Text = datosContrato.DOMICILIO_LEGAL .Bookmarks("DOMICILIO_LEGAL2").Range.Text = datosContrato.DOMICILIO_LEGAL .Bookmarks("DOMICILIO_LEGAL3").Range.Text = datosContrato.DOMICILIO_LEGAL .Bookmarks("CORREO").Range.Text = datosContrato.CORREO End With nombreDoc = "Carta Oferta -" & datosContrato.RAZON_SOCIAL objDoc.SaveAs2 Filename:=rutaCarpeta & nombreDoc 'Para crear PDF objDoc.SaveAs2 rutaCarpeta & nombreDoc & " .pdf", 17

[@InteligenciaEficiente]

Hola Martin, será más fácil ayudarte si me envías tu macro al correo en la descripción del video. ¡Saludos!

[@elisaflores9297]

Excelente amigo! Necesito insertar cantidades en moneda Ejemplo: $2,500.50 Al poner las cantidades se importan sin comas ni símbolo de pesos, alguien me puede ayudar?

[@InteligenciaEficiente]

Hola Elisa, para poder conservar el signo de pesos debes hacer una modidicación al código agregando .Text al final en la siguiente sección para que se vea así: datosEmpleado.nombre = fila.Range(1, 1).Text '

[@pistasdebluex]

si estaba mal escrita --> .Bookmarks

[@katiaalcarrazserna2345]

holaa, estoy tratando de replicar tu macro pero me sale error 9, en la parte de Set tablaDatos = ws.ListObjects("Datos") que podria estar mal??

[@katiaalcarrazserna2345]

esta es mi macro Type Empleado NOMBRE As String NUMERODEIDENTIDAD As String CARGO As String EMPLEADOR As String DISTRITO As String DIRECCION As String End Type Sub principal() Dim ws As Worksheet Dim tablaDatos As ListObject Dim fila As ListRow Dim datosEmpleado As Empleado Set ws = ThisWorkbook.Sheets("Principal") Set tablaDatos = ws.ListObjects("Datos") Application.DisplayAlerts = False Application.ScreenUpdating = False For Each fila In tablaDatos.ListRows datosEmpleado.NOMBRE = fila.Range(1, 1) datosEmpleado.NUMERODEIDENTIDAD = fila.Range(1, 2) datosEmpleado.CARGO = fila.Range(1, 3) datosEmpleado.EMPLEADOR = fila.Range(1, 4) datosEmpleado.DISTRITO = fila.Range(1, 5) datosEmpleado.DIRECCION = fila.Range(1, 6) Call crearDoc(datosEmpleado) Next MsgBox "!Proceso finalizado!", vbInformation End Sub Sub crearDoc(datosEmpleado As Empleado) Dim objWord As Word.Application Dim objDoc As Word.Document Dim estaHoja As Worksheet Dim rutaCarpeta As String, nombreDoc As String Set estaHoja = ThisWorkbook.Sheets(“Principal”) rutaCarpeta = Range(“RutaCarpeta”).Value nombreDoc = Range(“NombreArchivo”).Value Set objWord = New Word.Application Set objDoc = objWord.Documents.Open(rutaCarpeta & nombreDoc) objWord.Visible = True With objDoc .Bookmarks(“NOMBRE1”).Range.Text = datosEmpleado.NOMBRE .Bookmarks(“NOMBRE2”).Range.Text = datosEmpleado.NOMBRE .Bookmarks(“NUMERODEIDENTIDAD”).Range.Text = datosEmpleado.NUMERODEIDENTIDAD .Bookmarks(“CARGO”).Range.Text = datosEmpleado.CARGO .Bookmarks(“EMPLEADOR”).Range.Text = datosEmpleado.EMPLEADOR .Bookmarks(“DISTRITO”).Range.Text = datosEmpleado.DISTRITO .Bookmarks(“DIRECCION”).Range.Text = datosEmpleado.DIRECCION End With nombreDoc = ”CONSTANCIA.” & datosEmpleado.NOMBRE ojDoc.SaveAs2 Filename:=rutaCarpeta & nombreDoc objDoc.SaveAs2 rutaCarpeta & nombreDoc & ”.pdf”, 17 objDoc.Close objWord.Quit End Sub

[@katiaalcarrazserna2345]

agradeceria mucho tu apoyo

[@InteligenciaEficiente]

¡Hola Katia! Este error indica que no existe una tabla llamada "Datos" tiene que ser una tabla, no un rango con nombre como lo hacemos con las celdas de ruta carpeta. Te comparto más información sobre cómo crear una tabla en Excel. support.microsoft.com/es-es/office/crear-tablas-y-aplicarles-formato-e81aa349-b006-4f8a-9806-5af9df0ac664