¡ATENCIÓN - FUNCIÓN ACTUALIZADA PARA HACER REEMPLAZOS EN ENCABEZADO Y PIE DE PÁGINA) Sub FindAndReplace(strSearch As String, strReplacement As String, doc As Word.Document) Dim wdStoryRange As Word.Range For Each wdStoryRange In doc.StoryRanges With wdStoryRange.Find .Text = strSearch .Forward = True .replacement.ClearFormatting .replacement.Text = strReplacement .Execute Replace:=wdReplaceAll, Forward:=True End With Next End Sub
Tendrás algún video que explique como poner diferentes firmas (segun aplique) en unos documentos generados por correspondencia? tengo ya mi tabla de excel y mi archivo word, solo me falta poner las imagenes
Muchas Gracias por el video, me gustaria saber si es posible que aparezca una ventanilla y pueda seleccionar el documento word que me interese, y no sea por el link con el nombre del documento, así pueda aplicarle el macro a varios documento word con diferente nombre.
Hola, cómo puedo contactarte. Quiero cotizar cuanto saldria que me automatices un documento de Word con información que quiero guardar en excel. Tus videos son muy buenos, sin embargo, lo que yo necesito requiere de varias funciones a la vez, por ejemplo, pasar tablas, un organigrama, datos del cliente, e imagenes. Se puede?
¡Hola! Muchas gracias por comentar, claro que sí, estaré encantado de apoyarte, puedes contactarme vía correo a las direcciones que comparto en la descripción de este mismo video o bien también puedes encontrarme en facebook e instagram como @inteligenciaeficiente facebook.com/InteligenciaEficiente ¡Saludos!
excelente tutorial, quisiera que me puedas apoyar, cuando ejecuto la macro, me sale una advertencia Sub FindAndReplace(strSearch As String, strReplacement As String, doc As Word.Document), que falta compilar
Hola. Lo que has presentado tiene un gran potencial, que de inmediato voy a aplicar. cualquier consulta o intercambio e idea, te ruego tengas la amabilidad de contestar mis e-mail. G|racias
Hola le saludo desde Manta manabi Ecuador. es usted un Maestro el problema es que yo no tengo ni idea como lograrlo, déjeme felicitarlo y por su explicación y a la vez déjeme pedirle un inmenso favor, perdone el abuso pero si tiene algún archivo de macro que pueda ayudarme, déjeme le comento, Tengo varios archivos en Word que tiene muchas pero muchas hojas y tiene abreviaturas de la Biblia y yo quisiera remplazar por el nombre del libro en lugar de la abreviatura y estoy haciéndolo manualmente y me toma mucho tiempo ya que así puedo hacerlo leer con Microsoft Edge. desde ya le quedamos agradecidos.
Con el método actual tiene la limitante de 255 caracteres pero si tienes problemas envíame un correo a inteligenciaeficienteyt@gmail.com para mejorar la macro y que pueda reemplazar más caracteres. Saludos!!
Muchas gracias por tu aportación. El código me da "Error de compilación: No se ha definido el tipo de definido por el usuario" y señala "Sub FindAndReplace(strSearch As String, strReplacement As String, doc As Word.Document)", Si pudieran ayudarme
@@InteligenciaEficiente Muchas gracias por tu rápida respuesta, el problema es que no había marcado correctamente el tick en MS word library! muy buen vídeo.
Excelente, solo no se si tambien por ejemplo podria que al no poseer dato en la celda del NombrePersona en el documento de word no me aparezca la palabra "Nombre:"
Hola Oscar, Hay diversas soluciones para lo que necesitas hacer, sin embargo esta que te mostraré no requiere que agregues nada al código por lo que me parece lo mejor. bastará con que el reemplazo contenga también el sufijo "Nombre: "
Hola, copié todo el código y lo adapté a mi tabla pero me sale el e}mensaje Se ha producido el error '5854' en tiempo de ejecución: El parámetro de la cadena es demasiado largo. ¿Qué significa esto? ¿son muchos datos los que quiero cambiar? Al ejecutar el programa solo me cambia dos datos y los demás no
Deje Like, deje suscripción y aqui estoy con mi comentario. Sencillamente espectacular! Soy fotografo y te comento que lo aplique a un generador de presupuestos para eventos sumando a una base de datos de mis clientes. Solo tengo 2 cosas que me gustaria resolver, en mis presupuesto se colocan las fechas del evento por esta programacion que tan gentilmente has publicado pero me aparence en formato dd/mm/aaaa en el word cuando en el excel se visualizan como "dia" de "mes" de "año", como hago para que se reemplacen en este ultimo formato en word? y la otra duda es similar a esta ; en el campo de los precios en excel lo tengo expresados sin decimales y con el separador de miles (ej 20.000) y en el reemplazo de word se visualizan como 20000,00000 sobre todo en una formula que me genera el valor en cuotas que suele dar con decimales . Si pudiera resolver esto seria maravilloso! Gracias de todas maneras!
¡Hola Pablo! Muchas gracias por tu valioso comentario, puedes modificar la macro en las líneas que dice replacement = replacements(1,2).Text para que de esa manera jale el formato que tenga la celda, lo más sencillo en tu caso es que le des formato a tus fechas y valores desde Excel, por ejemplo que los números los pongas con formato "Moneda" en el caso de la fecha, puedes utilizar la fórmula TEXTO en una celda que agarre la fecha por ejemplo si la celda B2 tiene una fecha 01/10/2022 con la fórmula =TEXTO("dd de mm de aaaa") podría funcionar, si tienes alguna duda puedes contactarme a mi correo y con mucho gusto puedo ayudarte. inteligenciaeficienteYT@gmail.com
¡ATENCIÓN - FUNCIÓN ACTUALIZADA PARA HACER REEMPLAZOS EN ENCABEZADO Y PIE DE PÁGINA)
Sub FindAndReplace(strSearch As String, strReplacement As String, doc As Word.Document)
Dim wdStoryRange As Word.Range
For Each wdStoryRange In doc.StoryRanges
With wdStoryRange.Find
.Text = strSearch
.Forward = True
.replacement.ClearFormatting
.replacement.Text = strReplacement
.Execute Replace:=wdReplaceAll, Forward:=True
End With
Next
End Sub
Tendrás algún video que explique como poner diferentes firmas (segun aplique) en unos documentos generados por correspondencia? tengo ya mi tabla de excel y mi archivo word, solo me falta poner las imagenes
Excelente, me adapte al código y me funciono de maravilla
Magnífico. Me ha servido mucho. Gracias!!
¡Buena lección, muchas gracias!
la explicación es muy buena y no se pierde en tonterías
¡Gracias por comentar!
Feliz año, que sigas colmado de bendiciones y mi eterno agradecimiento por todo lo que me has enseñado
Adriana ¡Muchísimas gracias por todo tu apoyo al canal, un abrazo y que tengas un excelente año! :D
Buen vídeo fue útil para mis trabajos
¡Me da mucho gusto saberlo! ¡Gracias por comentar! :D
Me sirvió. Justo no sabia como reducir mi código q tiene 12 variables a reemplazar
Excelente!!
hola, excelente video, y cual seria el código para buscar e ingresar datos en el encabezado de word
Gracias! buen video , una duda, Se puede guardar como PDF?
Muchas Gracias por el video, me gustaria saber si es posible que aparezca una ventanilla y pueda seleccionar el documento word que me interese, y no sea por el link con el nombre del documento, así pueda aplicarle el macro a varios documento word con diferente nombre.
Claro que es posible, si deseas una asesoría más personalizada con gusto puedes escribirme a: inteligenciaeficienteyt@gmail.com
Excelente aporte, pero como se complementaria para que la instrucción la haga también en encabezados y pie de página.
Hola Edmundo, si deseas una asesoría más personal puedes escribirme a: inteligenciaeficienteyt@gmail.com SALUDOS!!
Hola, cómo puedo contactarte. Quiero cotizar cuanto saldria que me automatices un documento de Word con información que quiero guardar en excel. Tus videos son muy buenos, sin embargo, lo que yo necesito requiere de varias funciones a la vez, por ejemplo, pasar tablas, un organigrama, datos del cliente, e imagenes. Se puede?
¡Hola! Muchas gracias por comentar, claro que sí, estaré encantado de apoyarte, puedes contactarme vía correo a las direcciones que comparto en la descripción de este mismo video o bien también puedes encontrarme en facebook e instagram como @inteligenciaeficiente facebook.com/InteligenciaEficiente ¡Saludos!
Buenas tardes, hice todo igual y me sale que variable de objeto With no establecido, me puedes ayudar, gracias
los datos también se pueden reemplazar por fecha o números ?
¡Claro que sí, es posible!
excelente tutorial, quisiera que me puedas apoyar, cuando ejecuto la macro, me sale una advertencia Sub FindAndReplace(strSearch As String, strReplacement As String, doc As Word.Document), que falta compilar
¡Hola Rael! Si aún continúas con problemas puedes enviarme tu macro por correo: inteligenciaeficienteYT@gmail.com ¡Saludos!
Hola. Lo que has presentado tiene un gran potencial, que de inmediato voy a aplicar. cualquier consulta o intercambio e idea, te ruego tengas la amabilidad de contestar mis e-mail. G|racias
Hola le saludo desde Manta manabi Ecuador. es usted un Maestro el problema es que yo no tengo ni idea como lograrlo, déjeme felicitarlo y por su explicación y a la vez déjeme pedirle un inmenso favor, perdone el abuso pero si tiene algún archivo de macro que pueda ayudarme, déjeme le comento, Tengo varios archivos en Word que tiene muchas pero muchas hojas y tiene abreviaturas de la Biblia y yo quisiera remplazar por el nombre del libro en lugar de la abreviatura y estoy haciéndolo manualmente y me toma mucho tiempo ya que así puedo hacerlo leer con Microsoft Edge. desde ya le quedamos agradecidos.
¡Muchas gracias por contactarme vía mail! Seguiremos en contacto por allá. ¡Saludos!
Cuántos caracteres se pueden reemplazar?
Con el método actual tiene la limitante de 255 caracteres pero si tienes problemas envíame un correo a inteligenciaeficienteyt@gmail.com para mejorar la macro y que pueda reemplazar más caracteres. Saludos!!
Muchas gracias por tu aportación. El código me da "Error de compilación: No se ha definido el tipo de definido por el usuario" y señala "Sub FindAndReplace(strSearch As String, strReplacement As String, doc As Word.Document)", Si pudieran ayudarme
¡Muchas gracias por ponerte en contacto por correo! Espero que se pueda resolver el problema con la respuesta que envié, saludos!
@@InteligenciaEficiente Muchas gracias por tu rápida respuesta, el problema es que no había marcado correctamente el tick en MS word library! muy buen vídeo.
Excelente, solo no se si tambien por ejemplo podria que al no poseer dato en la celda del NombrePersona en el documento de word no me aparezca la palabra "Nombre:"
Hola Oscar, Hay diversas soluciones para lo que necesitas hacer, sin embargo esta que te mostraré no requiere que agregues nada al código por lo que me parece lo mejor.
bastará con que el reemplazo contenga también el sufijo "Nombre: "
Hola, copié todo el código y lo adapté a mi tabla pero me sale el e}mensaje Se ha producido el error '5854' en tiempo de ejecución:
El parámetro de la cadena es demasiado largo.
¿Qué significa esto? ¿son muchos datos los que quiero cambiar? Al ejecutar el programa solo me cambia dos datos y los demás no
Hice todo igual y me sale un error "el tipo de argumento de ByRef no coincide"
¡Hola! Si te sale un error es porque algo no está igual que en el video... cualquier duda puedes contactarme al correo en la descripción. ¡Saludos!
Deje Like, deje suscripción y aqui estoy con mi comentario. Sencillamente espectacular! Soy fotografo y te comento que lo aplique a un generador de presupuestos para eventos sumando a una base de datos de mis clientes. Solo tengo 2 cosas que me gustaria resolver, en mis presupuesto se colocan las fechas del evento por esta programacion que tan gentilmente has publicado pero me aparence en formato dd/mm/aaaa en el word cuando en el excel se visualizan como "dia" de "mes" de "año", como hago para que se reemplacen en este ultimo formato en word? y la otra duda es similar a esta ; en el campo de los precios en excel lo tengo expresados sin decimales y con el separador de miles (ej 20.000) y en el reemplazo de word se visualizan como 20000,00000 sobre todo en una formula que me genera el valor en cuotas que suele dar con decimales . Si pudiera resolver esto seria maravilloso! Gracias de todas maneras!
¡Hola Pablo! Muchas gracias por tu valioso comentario, puedes modificar la macro en las líneas que dice replacement = replacements(1,2).Text para que de esa manera jale el formato que tenga la celda, lo más sencillo en tu caso es que le des formato a tus fechas y valores desde Excel, por ejemplo que los números los pongas con formato "Moneda" en el caso de la fecha, puedes utilizar la fórmula TEXTO en una celda que agarre la fecha por ejemplo si la celda B2 tiene una fecha 01/10/2022 con la fórmula =TEXTO("dd de mm de aaaa") podría funcionar, si tienes alguna duda puedes contactarme a mi correo y con mucho gusto puedo ayudarte. inteligenciaeficienteYT@gmail.com
@@InteligenciaEficiente E-S-P-E-C-T-A-C-U-L-A-R. Gracias TOTALES!