Jump to content

Macro para dividir un archivo word de x páginas en x archivos word de una página cada uno


Recommended Posts

Buenas tardes, una consulta, si tengo un archivo word de "X" páginas, se puede hacer una macro para crear "X" archivos word de una página cada uno, y que a la vez lo grabe y me permita poner el nombre que yo desee a cada uno.

Muchas gracias por la atención

Saludos

Jorge desde Perú

Link to comment
Share on other sites

Abre el archivo Word y ejecuta esta macro:

Sub CopiarPáginasUnaUna()
Dim Página As Integer
For Página = 1 To ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
ActiveDocument.Select
Selection.GoTo wdGoToPage, wdGoToAbsolute, Página
ActiveDocument.Bookmarks("\page").Range.Select
Selection.Copy
Documents.Add
Selection.Paste
ActiveDocument.Save
ActiveDocument.Close
Next
End Sub
[/CODE]

Link to comment
Share on other sites

Miguel Angel, gracias por responder. Los errores que me salen al seleccionar el archivo, es Error "5941" en tiempo de ejecución, y en su rutina me marca la línea que podrás ver en el archivo adjunto. Asímismo te remito un archivo de prueba.

Te agradeceré tengas a bien, si está a tú alcance explicarme la forma de usarlo, a lo mejor allí está el error.

Gracias,

Jorge desde Perú

Observa MA_LogroAstur.rar

Link to comment
Share on other sites

Buenos días, aprovecho la oportunidad que el tema no ha sido cerrado, y consultarles, si las respuesta dadas se pueden generalizar, en el sentido que yo pueda indicar el número de hojas que deseo tomar del archivo original para dividir el word. Es decir, si en vez de que sea cada hoja yo pueda indicar por ejemplo que sean dos, o que sean cada tres

Gracias

Jorge desde Perú

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

Guest
This topic is now closed to further replies.
  • 41 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Files

  • Download Statistics

    • Files
      155
    • Comments
      89
    • Reviews
      25

    Latest File
    By pegones1

    2    0

  • Crear macros Excel

  • Posts

    • Muchas gracias Victor por tu respuesta! En la hoja "Control" coloque los filtros Hour Type y Workplace.  La formula que me pasaste me sirve para poder seguir avanzando, mucha gracias! Voy a ver de puedo aplicar los filtros que requiero para continuar. De igual manera dejo un ejemplo de lo que querría que me traiga: Filtros aplicados: Hour type: "Total" Workplace: "Obra Ruta 23" Employee: Bernardo Banta celda: G15 de hoja "Control" Objetivo: Que, por los siguientes datos: Fecha (G10), Persona (C15), Workplace (AF6) y hour type (AF4), traiga el resultado de horas trabajadas ("7,25" correspondiente a la suma de los registros 5 y 6 de la hoja "2023" coloreados en naranja). A su vez, si cambio el filtro de tipo de hora es "normal", que solo aparezca las horas normales (7)y no los overtime(0,25).   Check in control.xlsx    
    • ................y bueno, sólo como pequeño ejemplo, esta fórmula: =SUMAPRODUCTO(($C15='2023'!$D$2:$D$76)*(E$10='2023'!$A$2:$A$76)*'2023'!$I$2:$I$76) introducida en E15 de la hoja 'Control', te devolvería el total de horas (columna I de la hoja '2023'), del día correspondiente a la columna (E10), y el empleado de esa fila (en este caso, Bernardo Banta). Si copias la fórmula horizontal y verticalmente, tendrás los mismos resultados, por día y empleado. ? ? Saludos,
    • Hola, @ArNurSanti. Sólo 2 cosas: 1).  Si seleccionas  el rango A2:A76, haces clic en la hoja 'Datos', seleccionas 'Texto en columnas', 'Finalizar', el rango se transformará [como por arte de magia] en fechas reconocidas por Excel. 2).  La fórmula que tienes en C15 de la hoja 'Control' la puedes cambiar por: ='2023'!N2# que es más corta y da los mismos resultados. - - - - - - - - - - - - - - - - - - - A partir de aquí, creo que lo más conveniente es que vuelvas a subir el archivo con algunos de los resultados que esperas introducidos a mano para entender fondo y forma del problema; hablas de filtros por horas normales, extras, pero al menos yo no tengo claro cómo identificar esas variables, al igual que dónde están situados tales filtros (sólo veo un desplegable para elegir mes). Saludos,
    • Buenos días,   Mi situación es la siguiente, y de antemano agradezco todo tipo de ayuda me que me puedan aportar: Estoy trabajando en el armado de una plantilla Excel en donde pueda visualizarse, mediante filtros aplicables por el usuario, las horas trabajadas normales, las horas extras, las horas extras al 200%. Toda esta información la importo al Excel desde una aplicación que usamos en la empresa y se expresa tal cual se ve en la primera hoja("2023", Columna A - M, los datos de las columnas N y O son agregados mios). El problema radica en el armado de una formula valide varios datos y que exprese las horas indicadas en la base de datos según la siguiente información :   - Fecha  - Empleado  -  Filtro Lugar de trabajo (Workplace) -  Filtro Tipo de hora (hour type) Mas específicamente se me complica en el hecho de que la fecha de la primera columna que importo de nuestro sistema, el excel no me la reconoce como fecha (Se puede ver en el ejemplo J15 de la hoja "Control" donde uso =O(J10='2023'!A7)  ) Por otra parte no sabría como hacer la validacion multiple segun los filtros indicado; y en el caso de que el filtro sea "Todo", se haga la suma de las horas normales + extras. Muchas gracias         Check in control.xlsx
    • Sube tu archivo a un servidor en la nube (Mega, OnDrive, Dropbox,.....) y compártelo.  
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy