Jump to content

DanielaAlcala22

Members
  • Posts

    77
  • Joined

  • Last visited

Everything posted by DanielaAlcala22

  1. @tierra_pampa Hola! queria escribirte que ya resolvi lo de sustituir los valores dentro de un encabezado para que no te molestaras en escribir un codigo al pedo 😅. Te vuelvo a dar muchas gracias por toda la ayuda que me has dado para este codigo!
  2. @tierra_pampa funciona de maravilla y ya vi cual fue mi error de concepto: pensaba que poniendo ruta & nombre dentro del argumento de Documents identificaba el word que queria transformar a pdf y lo iba a guardar de igual manera. Pero por lo que veo tenia que usar eso en el comando OutputFileName y ademas anadirle la extension ".pdf". Muchisimas gracias! y feliz dia del padre si es su caso!. Si puedo molestarlo con una ultima consulta. Quisiera poder hacer el mismo procedimiento de sustituir los datos de excel a una planilla de word, pero esta vez los campos den de se debe sustituir la informacion estan dentro de un encabezado. Me di cuenta que con el codigo de sustitucion que estaba usando para la planilla anterior no logro llegar a esos campos. Tienes idea de que comando puedo usar para que el excel entienda que desbe sustituir los datos dentro del encabezado del word? anexo la planilla para que entiendas a lo que me refiero. Proyecto.docx
  3. @tierra_pampa Eres un genio! ya se guarda el documento en la carpeta y en con el nombre con el codigo que uno introdusca. Ahora me gustaria que de ese mismo documento word se guardara un documento pdf con el mismo nombre y todo estoy tratando de usar las siguientes lineas de codigo pero no genera el pdf ObjWord.Documents(ruta & nombre).ExportAsFixedFormat OutputFileName:=ruta & nombre, ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False 'ruta' sigue teniendo el valor que tu le habias designado pero 'nombre' es lo que tu habias llamado arch03 Cuando lo corro me arroja un error que dice: Llamada a procedimiento o argumento no válido Aqui abajo te ddejo el codigo completo Sub generar_word_3R() ruta1 = ActiveWorkbook.Path & "\" ruta2 = "Trabajo gerardo\Licitaciones 3R\" plantilla = "Cotizacion.docx" nombre = Sheet1.Cells(2, 3).Value & Sheet1.Cells(3, 3).Value ruta = ruta1 & ruta2 Set ObjWord = CreateObject("Word.Application") ObjWord.Visible = True Set objDoc = ObjWord.Documents.Add(Template:=ruta & plantilla, NewTemplate:=False, DocumentType:=0) For i = 3 To 10 busqueda = Sheet1.Range("D" & i).Text reemplazar = Sheet1.Range("C" & i).Text With ObjWord.Selection.Find .Text = busqueda .Replacement.Text = reemplazar .Execute Replace:=2 End With Next i For n = 13 To 16 busqueda = Sheet1.Range("D" & n).Text reemplazar = Sheet1.Range("C" & n).Text With ObjWord.Selection.Find .Text = busqueda .Replacement.Text = reemplazar .Execute Replace:=2 End With Next n objDoc.SaveAs Filename:=ruta & nombre 'guarda el archivo con las modificaciones ObjWord.Documents(ruta & nombre).ExportAsFixedFormat OutputFileName:=ruta & nombre, ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False ObjWord.Quit End Sub
  4. @tierra_pampaPrimeramente muchisimas gracias por tomarte el tiempo de ver mi problema, ya estaba perdiendo la esperanza de que alguien respondiera. Sin embargo creo que no se ha dado con la solucion. Descarque el archivo que adjuntaste y cuando quise correr el codigo me salio este error Le doy a depurar y me señala esta linea de codigo. Intente leer el codigo que habias añadido para ver si entendia lo que quisiste hacer y capaz hallaba lo solucion, pero lamentablemente mi ignoracion fue mas y no entendi bien que hiciste. Tal vez si me lo explicaras podria ver cual ver que es lo que fallo.
  5. Aqui esta el archivo en excel y una de las planillas en word en las que la macro sustituye los datos. Datos_Licitaciones.xlsm Cotizacion.docx
  6. Hola comunidad de excel! Les vengo con un reto interesante. Estoy tratando de hacer un excel el cual rellene los mismos datos en 3 planillas diferentes de word, esto supe como hacerlo con una macro que usa las funciones buscar y reemplazar de excel. Pero ademas de eso quiero que guarde las planillas de word bajo un nombre que contiene un codigo que tambien es parte de los datos que ingreso en la hoja de excel. La verdad no tengo ni idea de como hacer eso. Para que entiendan bien a que me refiero les pondre un ejemplo: Los datos a ingresar son: Nombre Telefono Email Codigo de compra Quiero que una vez todos los datos hayan sido sustituidos en la planilla de word esta se guarde con el nombre "Cotizacion + Codigo de compra". Es mas, una vez guardado el word quiero quier tambien se guarde en formato en pdf. Si necesitan el excel con el que he estado trabajando para que entiendan mejor que es lo que estoy haciendo pueden pedirmelo De antemano muchas gracias.
×
×
  • Create New...

Important Information

Privacy Policy