Escribir en un documento existente de Word desde Excel con VBA

[@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

[@Charlyelsanto]

Buen día, necesito desde excel abrir un word existente (hasta ahí lo puedo hacer), y luego llegar hasta una determinada tabla dentro del word y editarla, reemplazando y agregando valores dentro de la tabla.

[@ccarranzal]

Si quieres mover el cursor donde encuentro X texto para después escribir en esa línea ¿como lo harias?

[@bienexplicado]

Haría un Call a este macro para me mueva a esa línea: Sub Buscatexto() Selection.Find.ClearFormatting With Selection.Find .Text = "audiencia" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute End Sub Y luego especificaría qué escribir en esa línea.

[@rogerrodriguez238]

he tratado que la palabra "RETROALIMENTACION" la coloque a la izquierda pero no lo he logrado, me podrias ayudar amigo??

[@FranciscoJavier-sl1jj]

Requiero remplazar una palabra en muchos archivos word, en esencia qué abra el word busque 2021 y lo reemplace con 2024, guarde y cierre, y abra el siguiente, se puede hacer algo así?

[@bienexplicado]

@Francisco Javier si se puede, pero es más complicado: 1) todos los nombres de los archivos tendrían que estar en un formato secuencial numérico para que el programa sepa cual es el siguiente archivo a abrir en secuencia y cual es el último. Hay que decirle eso al programa con una constante, sino la rutina de averiguar cuántos archivos al que abrir es aún más compleja. 2) todos los archivos deberían estar en la misma carpeta 3) cumplidos esos requisitos, el código para lograr la búsqueda y reemplazo sería: 'Find and replace all instances of a specific text Dim replaceText As Range Set replaceText = ActiveDocument.Content replaceText.Find.Execute FindText:="Hello", ReplaceWith:="Goodbye", Replace:=wdReplaceAll Si me doy tiempito estás vacaciones, hago el programa, suena muy útil. Un abrazo.

[@FranciscoJavier-sl1jj]

@@bienexplicado OK, de hecho tenia pensado con otra macro renombrar los archivos como 1,2, 3...etc, para después del remplazo, regresarles su nombre anterior, la verdad no se programar macros, hace mucho tuve que extraer texto de varios archivos y pegarlos en uno nuevo, la macro la arme a partir de foros e Internet, pero la perdí, no se si tenga algún video donde enseñe la parte que comenta sobre abrir de forma cíclica archivos, de antemano gracias

[@bienexplicado]

@@FranciscoJavier-sl1jj creo que lo que quieres hacer se puede sin macros de VBA, puedes usar Jitbit Macro recorder. Aquí hay un video para comenzar, son cinco kzbin.info/www/bejne/Z4iulYqQmM18bJY Te puedes grabar a ti mismo abriendo un un documento de Word, buscando la fecha, reemplazándola y finalmente cerrando el documento. Jitbit creará un archivo que registre esos pasos y los podrás repetir en otros archivos sin necesidad de renombrarlos. Si te animas a ver la serie de cinco videos, te puedes descargar el programa con serial incluido desde aquí mega.nz/file/fxwhwAwL#O77gotLZWsKhOv27lglbXoWJ3I4yF7XC9BVx7PQSXn8

[@FranciscoJavier-sl1jj]

@@bienexplicado muchisimas gracias eso haré, me servirá para futuros trabajos, ya qué normalmente tengo ese tipo de necesidades en mi trabajo,de modificar masivamente archivos o jalar información de ellos, de nuevo gracias

[@samaeluis]

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

[@edubercastrillon2953]

podrias por favor hacer un video explicando como abrir un documento de word que ya tiene formulario desde un boton de VBA, Muchas gracias

[@luisfeliperosas9721]

Si solo quiero abrir el archivo word desde VBA como le hago? necesito eso

[@bienexplicado]

@Luis Felipe Rosas solo usas esta parte del código: Sub AddWordInicio() Dim objWord Dim objDoc Dim objSelection Set objWord = CreateObject("Word.Application") Set objDoc = objWord.Documents.Open("I:\DOWNLOAD\ENVIO_DATOS_EXCEL_WORD\Excel Videos.docx") objWord.Visible = True End sub

[@miguelangelpd]

Excelente

[@braaddcueva]

Un abrazo excelente video, amigo perdone la molestia, podría por favor, si es tan amable, ayudarme con el código modificado a fin de que me permita buscar (abreviaturas) y remplazar (nombres completos) en un documento de Word. quedo agradecido y atento a su gentil respuesta.

[@viking7397]

Profesor, no se olvide de los comodines de buscar.